ISPatientUtils.LoadPatientByCode

Description

This function returns the patient by the code.

Syntax

object.LoadPatientByCode(aCode)

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

Return Value

ISPatient

Returns the full name of the patient loaded by the specified code.

Example

Display the full name of the patient loaded by the specified code.

Dim aPatient
Dim aMessage
 
Set aPatient = Profile.PatientUtils.LoadPatientByCode("36259")
if aPatient is nothing then 
  aMessage = "There is no patient with the specified code."
else 
  aMessage = aPatient.SurnameFirstName
end if 
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Patient Code can be found in Patient > Alter Patient > General > General > File Num.

Version information

Added in v7.8.0