ISAppointments.Item

Description

Each of the appointments within the collection.

Syntax

object.Item(aIndex)

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

Restriction: This property is readonly.

Return Value

ISAppointment

Example

Display each of the appointments within the collection.

Dim aPatient
Dim aProvider
Dim aFilter
Dim aAppointment 
Dim aAppointments
Dim aMessage

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id

set aAppointments = Profile.LoadAppointments(aFilter)

for i = 0 to aAppointments.Count - 1
    set aAppointment = aAppointments.Item(i)
    aMessage = aMessage & vbNewLine
    aMessage = aMessage & "The appointment is on " & aAppointment.Date 
  next

Profile.MsgBox(aMessage)

Note: This is a zero based array, so the first item is at (0).

In Profile Client v8 on User Interface Appointments can be found in Appointment Window > Booking.

Version information

Added in v7.8.0