Returns True if the appointment is cancelled by the patient through Accession.
object.IsPatientCancelled
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISAppointment interface |
bool
Display IsPatientCancelled for the appointment.
Dim aPatient
Dim aProvider
Dim aFilter
Dim aAppointments
Dim aFirstAppointment
Dim aIsPatientCancelled
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)
aFirstAppointment.IsPatientCancelled = True
aFirstAppointment.IsCancelled = true
aFirstAppointment.Save
Profile.MsgBox(aFirstAppointment.IsPatientCancelled)
else
Profile.MsgBox("aAppointments.Count = 0")
end if
In Profile Client v8 on User Interface of Accession the appointment can be cancelled with the Cancel button in
.