ISAppLocationHistory.Created

Example

Display the number of the patient's appointment locations, and the date and time the location for the selected appointment was created.

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 location was created on " & aLocation.Created 
    next

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