This function returns the patient by the specified personal health number.
object.FindPatientByNHI(aPatientNHI)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aPatientNHI |
In, Required | string |
The patient's personal health number |
Display the patient's full name.
Dim aPatient
Dim aMessage
Set aPatient = Profile.FindPatientByNHI("BC")
if aPatient is nothing then
aMessage = "There is no patient with the specified NHI"
else
aMessage = aPatient.SurnameFirstName
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface NHI can be found in
.