ISAppointmentFilter.SourceRef

Example

Display the number of all the patient's appointments, and then the number of the appointments filtered by Source Ref.

Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim SourceRef
Dim SourceRefType

set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateAppointmentFilter

aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #13/12/2017#
aFilter.DateTo = #29/12/2019#

set aAppointments = Profile.LoadAppointments(aFilter)
Profile.MsgBox("The number of the appointments is " & aAppointments.Count)

if aAppointments.Count = 0 then exit sub

set aFirstAppointment = aAppointments.Item(0)
aFirstAppointment.SourceRef = "XXXXX1"
aFirstAppointment.Save

aFilter.SourceRef = "XX"
aFilter.SourceRefType = 2 'ssstPrefix  
set aAppointments = Profile.LoadAppointments(aFilter)
Profile.MsgBox("The number of the appointments with SourceRef " &_
   aFilter.SourceRef &  " is " & aAppointments.Count)