ISProfile.LoadPatientByFilenum

Description

This function returns the patient by the file number.

Syntax

object.LoadPatientByFilenum(aCode)

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

Return Value

ISPatient

Returns the patient by the file number.

Example

Display the name and surname of the patient.

Dim aPatient
Dim aMessage

Set aPatient = Profile.LoadPatientByFilenum(36131)
if aPatient is nothing then 
  aMessage = "There is no patient with the specified file number."
else 
  aMessage = aMessage & aPatient.SurnameFirstName
end if 

Profile.MsgBox (aMessage)

Note: It is also called Patient Code.

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

Version information

Added in v7.8.0