ISAppointmentService.Appointment

Example

Display the reason description of the appointment the service is linked to.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aServices
Dim aService
Dim aReasonDescription
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
  
  for i = 0 to aServices.Count - 1
    set aService = aFirstAppointment.Services.Item(i)
    aMessage = aMessage & vbNewLine
    aMessage = aMessage & aService.Appointment.ReasonDescription
  next

  Profile.MsgBox(aMessage)

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