ISProfile.LoadPatient

Description

This function returns the patient by ID.

Syntax

object.LoadPatient(aPatientID)

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

Return Value

ISPatient

Returns the patient by ID.

Example

Display the name and surname of the patient.

Dim aPatient
Dim aMessage

Set aPatient = Profile.LoadPatient(164)
if aPatient.ID = 0 then 
  aMessage = "There is no patient with the specified ID."
else 
  aMessage = aPatient.SurnameFirstName
end if 
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient can be found in Patient > Alter Patient.

Version information

Added in v7.8.0