ISAppointmentFilter.ReasonID

Description

This filter property is used to load the appointments by ID of the appointment reason.

Syntax

object.ReasonID

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

Return Value

int

Example

Display the number of the appointments filtered by ID of the appointment reason.

Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aReasonID

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

set aReasonService = Profile.LoadService("110")

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #13/01/2018#
aFilter.DateTo = #29/12/2018#
aFilter.ReasonID = aReasonService.Id
 
set aAppointments = Profile.LoadAppointments(aFilter)

Profile.MsgBox("The number of the appointments is " & aAppointments.Count)

Note:

In Profile Client v8 on User Interface Reason ID cannot be found.

Version information

Added in v7.8.0