Returns True if the patient's appointment is confirmed.
object.IsConfirmed
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISAppointment interface |
bool
Display IsConfirmed for the appointment.
Dim aPatient
Dim aProvider
Dim aFilter
Dim aAppointments
Dim aFirstAppointment
Dim aIsConfirmed
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)
aIsConfirmed = aFirstAppointment.IsConfirmed
Profile.MsgBox(aIsConfirmed)
else
Profile.MsgBox("aAppointments.Count = 0")
end if
In Profile Client v8 on User Interface the Confirmed checkbox can be checked in
.