ISAppointment.GetRecurrenceTemplateForOccurence

Description

This function returns the recurrence template of the appointment occurrence.

Syntax

object.GetRecurrenceTemplateForOccurence()

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface

Return Value

ISAppointment

Returns the recurrence template of the appointment occurrence.

Example

Display the reason description of the recurring appointment occurrence template.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aAppTemplate

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

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #01/01/2018#
aFilter.DateTo = #01/01/2019#
aFilter.IncludeRecurrent = 1
set aAppointments = Profile.LoadAppointments(aFilter)

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)
  set aAppTemplate = aFirstAppointment.GetRecurrenceTemplateForOccurence
  Profile.MsgBox(aAppTemplate.ReasonDescription)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Recurrence Template For Occurrence can be found in Appointment Window > Recurrence.

Version information

Added in v7.8.0