ISPatient.LastActiveAttendance

Description

Last attendance of the patient. An attendance is an appointment with a status "Arrived" or "Seen".

Syntax

object.LastActiveAttendance

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

Restriction: This property is readonly.

Return Value

ISAppointment

Example

Display the date, time, provider and the reason of the patient's last attendance.

Dim aPatient
Dim aProvider
Dim aReason  
Dim aLastActiveAttendance

Set aPatient = Profile.SelectPatient
aProvider = aPatient.LastActiveAttendance.ProviderName
aReason = aPatient.LastActiveAttendance.ReasonDescription
aLastActiveAttendance = aPatient.LastActiveAttendance.ArrivalTime

aMessage = aMessage & vbNewLine
aMessage = aMessage & "Last attendance was on " & aLastActiveAttendance 
aMessage = aMessage & " with " & aProvider & " by reason of " & aReason 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Appointments can be found in Patient > Alter Patient > Bookings or in Patient > Alter Patient > Appointments.

Version information

Added in v7.8.0