The external unique ID for the patient's enrolment record.
object.ExternalId
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientEnrolment interface |
int
Display the number of the patient's NES Enrolments, external ID for them and the date and time of their creation.
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 &_
", external ID: " & aEnrolment.ExternalId
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface External ID cannot be found.