ISAppointmentFilter.TrackRecurrent

Description

If true, this filter returns the occurrences of the recurrent appointments. If false, it returns the instances of the recurrent appointments.

Syntax

object.TrackRecurrent

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

Return Value

bool

Example

Display the number of the loaded appointments in the collection. Display if the first of the loaded appointments is an occurrence or an instance.

Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aMessage
Dim aTrackRecurrent
Dim aIncludeRecurrent

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

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #12/12/2018#
aFilter.DateTo = #12/12/2019#
aFilter.TrackRecurrent = true
aFilter.IncludeRecurrent = 2

set aAppointments = Profile.LoadAppointments(aFilter)

if aAppointments.Count = 0 then 
  Profile.MsgBox("There is no appointment")
else  
  aMessage = "The number of the appointments is " & aAppointments.Count & vbNewLine &_ 
    "First appointment: " & vbNewLine & "IsRecurrenceOccurence = " &_
    aAppointments.Item(0).IsRecurrenceOccurence & vbNewLine &_
    "IsRecurrenceTemplate = " & aAppointments.Item(0).IsRecurrenceTemplate 

  Profile.MsgBox(aMessage)
end if

Note:

In Profile Client v8 on User Interface Track Recurrent cannot be found.

Version information

Added in v7.8.0