This filter is used to load the collection of patients up to the patient with the specified ID.
object.ID_To
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientFilter interface |
int
Display the number of the patients loaded on the basis of the selected filter, their full names and IDs.
Dim aIterator
Dim aFilter
Dim aCount
Dim aCanProcessItem
Dim aPatient
Dim aMessage
Set aIterator = Profile.CreatePatientIterator
set aFilter = Profile.CreatePatientFilter
aFilter.ID_To = 8021
aIterator.Open(aFilter)
aCount = aIterator.Count
aMessage = "Patients Count = " & aCount & vbNewLine & vbNewLine
aMessage = aMessage & "Selected Patients: " & vbNewLine
aIterator.Reset
aCanProcessItem = aIterator.Next
i = 1
do while aCanProcessItem
set aPatient = aIterator.Patient
aMessage = aMessage & vbNewLine & i & ") " &_
aPatient.FirstName & " " & aPatient.LastName &_
" ( " & aIterator.PatientId & " ) "
i = i + 1
aCanProcessItem = aIterator.Next
loop
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface ID cannot be found.