The full names of the patients who were loaded on the basis of the selected Lookup Parameter.
object.Description
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientLookupItem interface |
string
Display the number of the patients loaded on the basis of the selected Lookup Parameter and their full names.
Dim aParam
Dim aList
Dim aPatientLookupItem
Dim aLookupType
Dim aMessage
Set aParam = Profile.MakePatientLookupParam 'ISPatientLookupParam
aParam.Index = 1 'smppiFileNum
aParam.Value = 9108
aLookupType = 23 'patient lookup
set aList = Profile.LoadLookupList2(aLookupType, aParam) 'ISPatientLookupItem collection
aMessage = "Patients Count = " & aList.Count & vbNewLine & vbNewLine
for each aPatientLookupItem in aList
aMessage = aMessage &_
"Name: " & aPatientLookupItem.Description & vbNewLine
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Last Name can be found in
, First Name can be found in .