ISAppointment.SecondaryAppointments

Example

Display the time and the count of free appointment slots found by secondary search criteria.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aSecondaryAppointment
Dim aSecondaryAppointments

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 aSecondaryAppointments = aFirstAppointment.SecondaryAppointments
  aMessage = "Appointments Count = " & aSecondaryAppointments.Count

  for i = 0 to aSecondaryAppointments.Count - 1
    set aSecondaryAppointment = aFirstAppointment.SecondaryAppointments.Item(i)
    aMessage = aMessage & vbNewLine
    aMessage = aMessage & aSecondaryAppointment.Date 
  next

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