ISPatientRule.CreatedOn

Description

The date and the time the patient rules were created on.

Syntax

object.CreatedOn

Part Attribute Type Description
object Required
The object always implements the ISPatientRule interface
Restriction: This property is readonly.

Return Value

DateTime

Example

Display the patient rules loaded by the specified patient ID, their descriptions, time and dates when they were created and the provider they were created by.

Dim aPatient
Dim aPatientId
Dim aRules
Dim aRule
Dim aMessage
Dim aProvider
Dim i

Set aPatient = Profile.SelectPatient 
aPatientId = aPatient.Id
set aRules = Profile.LoadPatientRules(aPatientId)

aMessage = "Rules Count = " & aRules.Count & vbNewLine
for i = 0 to aRules.Count - 1
  set aRule = aRules.Item(i)
  set aProvider = Profile.LoadProviderById(aRule.CreatedBy)
  aMessage = aMessage & vbNewLine & "The patient rule '" & aRule.Description &_
    "' was created on " & aRule.CreatedOn & " by " & aProvider.FullName  
next

Profile.MsgBox(aMessage) 
Note:

In Profile Client v8 on User Interface Date can be found in Patient > Alter Patient > Bookings > Patient Rules > Created.

Version information

Added in v8.1.0