ISAppointmentFilter.NeedConfirmation

Example

Display the number of the appointments filtered by confirmation.

Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aNeedConfirmation

Set aPos = Profile.LoadProvider("LONSDALE") 
set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #13/12/2017#
aFilter.DateTo = #29/12/2019#
aFilter.NeedConfirmation = false 

set aSourceAppointments = Profile.LoadAppointments(aFilter)
if aSourceAppointments.Count = 0 then
  Profile.MsgBox("There is no appointment")
  exit sub
end if   

set aFirstApp = aSourceAppointments.Item(0)
aFirstApp.NeedConfirmation = true
aFirstApp.Save

aFilter.NeedConfirmation = true
set aAppointments = Profile.LoadAppointments(aFilter)

Profile.MsgBox("The number of the appointments is " & aAppointments.Count)