The date and the time the patient rules were modified on.
object.ModifiedOn
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRule interface |
DateTime
Display the patient rules loaded by the specified patient ID, their descriptions, dates when they were modified and the provider they were modified 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.ModifiedBy)
aMessage = aMessage & vbNewLine & "The patient rule '" & aRule.Description &_
"' was modified on " & aRule.ModifiedOn & " by " & aProvider.FullName
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Date Modified cannot be found, but Patient Rules can be found in
.