This enumeration is used in ISPatientLookupParam.OnlyActive to load the collection of patients with the selected statuses.
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 |
|---|---|---|
| spasOnlyNotInactive | 0 | Unknown, Capitated, Enrolled, Active, Casual, Registered |
| spasAll | 1 | All statuses |
| spasOnlyActive | 2 | Capitated, Enrolled, Active, Casual, Registered |
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.IsStartsWith = True
aParam.Value = "s,s" 'Surname,First name
aParam.OnlyActive = 1
set aList = Profile.LoadLookupList2(23, aParam) 'ISPatientLookupItem collection
aMessage = "Patients Count = " & aList.Count & vbNewLine & vbNewLine
for each aPatientLookupItem in aList
aMessage = aMessage &_
aPatientLookupItem.Name & " (" & aPatientLookupItem.Status & ")" & vbNewLine
next
Profile.MsgBox(aMessage)