ISAppLocationHistory.Appointment

Example

Display the number of the patient's appointment locations, and the date and time the appointment is booked for.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aGetLocationHistory
Dim aLocation
Dim aLocationAppointment

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 aGetLocationHistory = aFirstAppointment.GetLocationHistory
    aMessage = "Locations Count = " & aGetLocationHistory.Count
    for i = 0 to aGetLocationHistory.Count - 1
      set aLocation = aGetLocationHistory.Item(i)
      set aLocationAppointment = aLocation.Appointment 
      aMessage = aMessage & vbNewLine
      aMessage = aMessage & "The appointment was booked on " & aLocationAppointment.BookedTime      
    next

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