ISAppointment.PatientCancellantionReason

Description

The reason of the appointment cancellation made by the patient through Accession.

Syntax

object.PatientCancellantionReason

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface

Return Value

string

Example

Display the reason of the appointment cancellation made by the patient through Accession.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aPatientCancellantionReason

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.PatientCancellantionReason = "Declined"
  aFirstAppointment.IsCancelled = true
  aFirstAppointment.Save
  Profile.MsgBox(aFirstAppointment.PatientCancellantionReason)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

In Profile Client v8 on User Interface Cancellation Reason can be found in Organisation > Work Centre > Work > Patient Items > Appointment Properties > Comment.

Version information

Added in v8.2.0