This function returns the patient by ID.
object.LoadPatientByID(aId)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientUtils interface |
|
aId |
In, Required | int |
ID of the patient |
Display the full name of the patient loaded by the specified ID.
Dim aPatient
Dim aMessage
Set aPatient = Profile.PatientUtils.LoadPatientByID(34334)
if aPatient.ID = 0 then
aMessage = "There is no patient with the specified ID."
else
aMessage = aPatient.SurnameFirstName
end if
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Patient ID cannot be found, but Patient can be found in
.