ISProfile.LoadPatientByCode

Description

This function returns the patient by the code.

Syntax

object.LoadPatientByCode(aCode)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aCode`	In, Required	string	The code of the patient

Return Value

ISPatient

Returns the patient by the code.

Example

Display the name and surname of the patient.

Dim aPatient
Dim aMessage

Set aPatient = Profile.LoadPatientByCode(36131)
if aPatient is nothing then 
  aMessage = "There is no patient with the specified code."
else 
  aMessage = 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