ISAppointment.GetLocationHistory

Example

Display the patient's appointment locations and the date and time of their creation.

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

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)
      aMessage = aMessage & vbNewLine
      aMessage = aMessage & "The location " & aLocation.Location.Description
      aMessage = aMessage & " was created on " & aLocation.Created 
    next

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