ISProfile.LoadAppointment

Description

This function returns the appointment by ID.

Syntax

object.LoadAppointment(aAppointmentID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aAppointmentID`	In, Required	int	ID of the appointment

Return Value

ISAppointment

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

Example

Display the appointment loaded on the basis of the selected filter and the date it was booked.

Dim aAppointment
Dim aMessage

On Error Resume Next

Set aAppointment = Profile.LoadAppointment(6753)

if Err.Number <> 0 then
  aMessage = "There is no appointment with the specified ID"
  Err.Clear
else  
  aMessage = "The appointment was booked on " & aAppointment.Date 
end If

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

Added in v7.8.0