The status of the patient's care plan in the selected care plan version.
| 1 | Open |
| 2 | Excluded |
| 3 | Declined |
| 4 | Closed |
object.Status
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallPlanVers interface |
int
Display the status of the patient's care plan in the selected care plan version.
Dim aPatient
Dim aRecallPlans
Dim aOnDate
Dim aPlan
Dim aPlanVers
Dim aMessage
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
aOnDate = #02/27/2019 15:37:11#
for each aPlan in aRecallPlans
set aPlanVers = aPlan.VersionOnDate(aOnDate)
if aPlanVers is nothing then
aMessage = aMessage & vbNewLine & " The care plan '" & aPlan.Description &_
" (" & aPlan.Id & ") " & "' has no version on this date!"
else
aMessage = aMessage & vbNewLine & " The care plan '" & aPlan.Description &_
"' : Status = " & aPlan.Status & "; Version on date: Status = " &_
aPlanVers.Status
end if
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Status can be found in .