This function returns the selected patients in the active window.
object.GetPatients()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the number of the patients and their full names.
Dim aPatients
Dim aMessage
Set aPatients = Profile.GetPatients
aMessage = "Patients Count: " & aPatients.Count & vbNewLine
for i = 0 to aPatients.Count - 1
set aPatient = aPatients.Item(i)
aMessage = aMessage & aPatient.SurnameFirstName
next
Profile.MsgBox(aMessage)