ISRecallObjectives.Item

Description

Each of the care plan objectives within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISRecallObjectives	The `object` always implements the ISRecallObjectives interface
`aIndex`	In, Required	int	The index of the care plan objective

Restriction: This property is readonly.

Return Value

ISRecallObjective

Example

Display each of the care plan objectives within the collection.

Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
Dim i
Dim aObjectives
Dim aObjective

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
  set aObjectives = aPlan.RecallObjectives
  aMessage = aMessage & vbNewLine & "The number of the objectives " &_
    "for the care plan '" & aPlan.Description & "' is " & aObjectives.Count  

  for i = 0 to aObjectives.Count - 1
    set aObjective = aObjectives.Item(i)
    aMessage = aMessage & vbNewLine & " Objective Name: " & aObjective.Name       
  next  
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0