ISPatientRecallPlans.Item

Description

Each of the care plans owned by the selected patient.

Syntax

object.Item(prpIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlans	The `object` always implements the ISPatientRecallPlans interface
`prpIndex`	In, Required	int	The index of the care plan

Restriction: This property is readonly.

Return Value

ISPatientRecallPlan

Example

Display each of the care plans owned by the selected patient.

Dim aPatient
Dim aRecallPlans
Dim aMessage

Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans

if aRecallPlans.Count = 0 then
  aMessage = vbNewLine & "The patient has no recall plans!"
else
  aMessage = "Recall Plans Count = " & aRecallPlans.Count 
end if

for i = 0 to aRecallPlans.Count - 1
set aRecallPlan = aRecallPlans.Item(i)
  aMessage = aMessage & vbNewLine & "The patient's recall plan is '" &_
    aRecallPlan.Description & "'"
next
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Care Plans can be found in Clinical > Medical Record > Care Plans.

Version information

Added in v7.8.0