ISAppointmentServices.Count

Description

The number of the services linked to the appointment.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the services linked to the appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aServices
Dim aService

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

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #01/01/2018#
aFilter.DateTo = #01/01/2019#

set aAppointments = Profile.LoadAppointments(aFilter)

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)
  set aAppointmentServices = aFirstAppointment.Services
  
  Profile.MsgBox(aAppointmentServices.Count)

else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Services can be found in Appointment Window > Services.

Version information

Added in v8.1.0