ISAppointment.Services

Example

Display the number and description of the services linked to the appointment.

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

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#

set aAppointments = Profile.LoadAppointments(aFilter)

if aAppointments.Count > 0 then
set aFirstAppointment = aAppointments.Item(0)
set aServices = aFirstAppointment.Services
aMessage = "Services Count = " & aServices.Count

for i = 0 to aServices.Count - 1
  set aService = aFirstAppointment.Services.Item(i)
  aMessage = aMessage & vbNewLine & aService.Description 
  next

  Profile.MsgBox(aMessage)

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