ISProfile.GetApprovalForm

Description

This function searches for the opened approval form and returns it.

Syntax

object.GetApprovalForm( [aApprovalID = 0[, aPatientID = 0]])

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aApprovalID`	Optional Default value is 0	int	ID of the approval
`aPatientID`	Optional Default value is 0	int	ID of the patient

Return Value

ISApprovalForm

Returns the opened approval form

Example

Display some information about the opened approval form.

Dim aPatientId 
Dim aForm
Dim aFormInfo

aPatientId = Profile.SelectPatient.Id

Set aForm = Profile.GetApprovalForm(0, aPatientId)

if aForm is nothing then
  Profile.MsgBox("No Approval form is opened")
  exit sub 
end if 

aFormInfo = "Agency Code: " & aForm.AgencyCode & vbNewLine &_
  "Description: " & aForm.Description & vbNewLine &_
  "Date: " & aForm.Date & vbNewLine &_
  "Comment: " & aForm.Comment & vbNewLine &_
  "Description: " & aForm.Description & vbNewLine &_ 
  "Side Code: " & aForm.SideCode & vbNewLine &_
  "Reference: "  & aForm.Reference & vbNewLine 
  
Profile.MsgBox(aFormInfo)

Note:

In Profile Client v8 on User Interface Approval Form can be found in Patient > Alter Patient > Approvals > Open selected approval.

Version information

Added in v7.8.0