This function returns the date and time the status of the patient's care plan was last modified.
object.getStatusLastChanged(aUser)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallPlan interface |
|
aUser |
Out, Required | object& |
The provider for the intervention |
DateTime
Display the date and time the status of the patient's care plan was last modified and the provider who has done the modification.
Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
Dim aPlanObjective
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
if aRecallPlans.Count = 0 then
Profile.MsgBox("The patient has no care plans!")
exit sub
end if
Dim aUser, aChangeDT
for each aPlan in aRecallPlans
aChangeDT = aPlan.GetStatusLastChanged(aUser)
aMessage = aMessage & vbNewLine & "- The status of the care plan '" &_
aPlan.Description & "' was changed " & aChangeDT & " by " & aUser.FullName
next
Profile.MsgBox(aMessage)In Profile Client v8 on User Interface Status Last Changed cannot be found.