ISProfileForm.Patient

Description

The patient from the form context.

Syntax

object.Patient

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

Restriction: This property is readonly.

Return Value

ISPatient

Example

Display some information about the form, including the full name of the patient from the form context.

Dim aForm
Dim aPatient
Dim aMessage

Set aForm = Profile.Form
aMessage =_
  "ShortName: " & aForm.ShortName & vbNewLine &_
  "TypeName: " & aForm.TypeName & vbNewLine 
set aPatient = aForm.Patient
if aPatient is nothing then
  aMessage = aMessage & "There is no patient in the form context"
else
  aMessage = aMessage & "Form Patient: " & aPatient.SurnameFirstName 
end if
  
Profile.MsgBox(aMessage)

Note: This macro should be executed in any event handler of the form control.

In Profile Client v8 on User Interface Patient cannot be found.

Version information

Added in v7.8.0