The status of the patient's care plan.
| 1 | Open |
| 2 | Excluded |
| 3 | Declined |
| 4 | Closed |
object.Status
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallPlan interface |
int
Display the status of the patient's care plan.
Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
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
for each aPlan in aRecallPlans
aMessage = aMessage & vbNewLine & "The status of the patient's" &_
" care plan '" & aPlan.Description & "' = " & aPlan.Status
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Status can be found in .