ISPatient.GetLastEnrolment

Description

This function returns the patient's last NES Enrolment.

Syntax

object.GetLastEnrolment()

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

Return Value

ISPatientEnrolment

Returns the patient's last NES Enrolment.

Example

Display the date and time of the patient's last NES Enrolment.

Dim aPatient  
Dim aMessage

Set aPatient = Profile.SelectPatient 
if aPatient.GetLastEnrolment is nothing then
  aMessage = "There are no enrolments"
else
  aMessage = "The last enrolment was created on " & aPatient.GetLastEnrolment.CreatedDate 
end if
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface NES Enrolments can be found in Patient > Alter Patient > General > Enrolment.

Version information

Added in v8.2.0