This function returns the care plans for the patient by care plan ID.
object.LoadRecallPlan(aPlanID)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aPlanID |
In, Required | int |
ID of the care plan |
Display the description of the care plan returned by the selected care plan ID.
Dim aPatient
Dim aRecallPlans
Dim aRecallPlan
Dim aPlanID
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
if aRecallPlans.Count = 0 then
Profile.MsgBox ("This patient has no care plans!")
else
aPlanID = aRecallPlans.Item(0).ID
set aRecallPlan = aPatient.LoadRecallPlan(aPlanID)
Profile.MsgBox ("The first care plan of the patient is ' " &_
aRecallPlan.Description & "'")
end if In Profile Client v8 on User Interface Care Plans can be found in .