ISProfile.LoadApproval

Description

This function returns the approval with the specified ID.

Syntax

object.LoadApproval(aApprovalID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aApprovalID`	In, Required	int	ID of the approval

Return Value

ISApproval

Returns the approval with the specified ID.

Example

Display the date of the approval and the full name of the patient it was created for.

Dim aApproval
Dim aMessage

Set aApproval= Profile.LoadApproval(108)

if aApproval.ID = 0 then
  aMessage = "There is no approval with the specified ID"  
else 
  aMessage = "The approval for the patient " &_
    Profile.LoadPatient(aApproval.PatientId).SurnameFirstName &_
    " was created on " & aApproval.Date 
end if

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface ID cannot be found, but Approvals can be found in Patient > Alter Patient > Approvals or in Financial > Approvals.

Version information

Added in v7.8.0