ISPatients.Item

Description

Each of the patients within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatients	The `object` always implements the ISPatients interface
`aIndex`	In, Required	int	The index of the patient

Restriction: This property is readonly.

Return Value

ISPatient

Example

Display the number of the patients whose data have been recently looked through by the selected provider and their full names.

Dim aProvider
Dim aPatients
Dim aPatient
Dim aMessage

Set aProvider = Profile.LoadProvider("MM")

if aProvider.ID = 0 then
  Profile.MsgBox("There is no provider with the specified code")
  exit sub
end if

set aPatients = aProvider.GetRecentPatients

aMessage = "Patients Count = " & aPatients.Count

for i = 0 to aPatients.Count - 1
  set aPatient = aPatients.Item(i) 
  aMessage = aMessage & vbNewLine & aPatient.SurnameFirstName 
next

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0