This function returns care plans by the patient's ID.
object.LoadRecallPlansByPatientID(aId)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aId |
In, Required | int |
ID of the patient |
Display the number of care plans, their names and codes.
Dim aPatient
Dim aPatientID
Dim aRecallPlan, aRecallPlans
Dim aMassage
Dim i
Set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID
set aRecallPlans = Profile.LoadRecallPlansByPatientID(aPatientID)
aMessage = "Care Plans Count = " & aRecallPlans.Count & vbNewLine
for i = 0 to aRecallPlans.Count - 1
set aRecallPlan = aRecallPlans.Item(i)
aMessage = aMessage & vbNewLine & aRecallPlan.Description & " (" &_
aRecallPlan.Code & ")"
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Care Plans can be found in .