ISProfile.LoadAppointments

Description

This function returns the appointments loaded on the basis of the selected filter.

Syntax

object.LoadAppointments(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISAppointmentFilter	The object that defines conditions for filtering

Return Value

ISAppointments

Returns the appointments loaded on the basis of the selected filter.

Example

Display the number of the appointments loaded on the basis of the selected filter and the time when they were booked.

Dim aPatient
Dim aFilter
Dim aAppointment
Dim aAppointments
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateAppointmentFilter
aFilter.PatientID = aPatient.ID
set aAppointments = Profile.LoadAppointments(aFilter)

aMessage = "Appointments Count = " & aAppointments.Count
for i = 0 to aAppointments.Count - 1
  set aAppointment = aAppointments.Item(i)
  aMessage = aMessage & vbNewLine & "The appointment was booked on " &_
    aAppointment.BookTime
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Appointments can be found in Special > Appointments or in Patient > Alter Patient > Appointments.

Version information