ISApprovalForm.PatientId

Description

ID of the patient whose approval form is loaded.

Syntax

object.PatientId

Part	Attribute	Type	Description
`object`	Required	ISApprovalForm	The `object` always implements the ISApprovalForm interface

Restriction: This property is readonly.

Return Value

int

Example

Display some information about the opened approval form, including the full name of the patient whose approval form is loaded.

Dim aPatientId 
Dim aForm
Dim aFormInfo

aPatientId = Profile.SelectPatient.Id

set aForm = Profile.GetApprovalForm(0, aPatientId)

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

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

Profile.MsgBox(aFormInfo)

Note:

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

Version information

Added in v7.8.0