This enumeration is used in ISPatientLookupParam.Index to load the collection of patients.
An enumeration is a set of named constants whose underlying type is any integral type. If no underlying type is explicitly declared, Integer is used.| Name | Value | Description |
|---|---|---|
| smppiIndex | 0 | The patients are loaded by their indexes |
| smppiFileNum | 1 | The patients are loaded by their file numbers |
| smppiFolder | 2 | The patients are loaded by their folder numbers |
| smppiDOB | 3 | The patients are loaded by their date of birth |
| smppiNationalNum | 4 | The patients are loaded by their national numbers |
| smppiInsuranceNum | 5 | The patients are loaded by their insurance numbers (not used) |
| smppiCode | 6 | The patients are loaded by their codes |
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 aMessage
Set aParam = Profile.MakePatientLookupParam 'ISPatientLookupParam
aParam.Index = 1 'smppiFileNum
aParam.Value = "9108"
set aList = Profile.LoadLookupList2(23, aParam) 'ISPatientLookupItem collection
aMessage = "Patients Count = " & aList.Count & vbNewLine & vbNewLine
for each aPatientLookupItem in aList
aMessage = aMessage &_
"Name: " & aPatientLookupItem.Name & vbNewLine
next
Profile.MsgBox(aMessage)