ISAppLocationHistory.CreatedBy

Example

Display the number of the patient's appointment locations, and the full name of the provider the location was created by.

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

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 aAppointmentCreator = aLocation.CreatedBy 
      aMessage = aMessage & vbNewLine
      aMessage = aMessage & "The location for the appointment was created by " 
      aMessage = aMessage & aAppointmentCreator.FullName      
    next

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