ISPatientEnrolment.ReEnrolDate

Description

The date the patient was most recently re-enrolled.

Syntax

object.ReEnrolDate

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

Return Value

DateTime

Example

Display the number of the patient's NES Enrolments, the date and time of their creation and re-enrolling.

Dim aPatient  
Dim aEnrolments
Dim aEnrolment
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aEnrolments = aPatient.GetEnrolments
aMessage = "Enrolments Count = " & aEnrolments.Count

for i = 0 to aEnrolments.Count - 1
  set aEnrolment = aEnrolments.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & "Created: " & aEnrolment.CreatedDate & ", re-enrolled on: " &_ 
    aEnrolment.ReEnrolDate
next 

Profile.MsgBox(aMessage)

Note: This date will be blank until a re-enrol action is completed.

In Profile Client v8 on User Interface Re-Enrol Date can be found in Patient > Alter Patient > General > Enrolment > History > Enrolment detail > Created.

Version information

Added in v8.1.0