ISPatientRecallPlan.RecallObjectives

Description

The objectives linked to the specified care plan. On Use Interface Objectives can be found in Clinical/Medical Record/Care Plans.

Syntax

object.RecallObjectives

Part	Attribute	Type	Description
`object`	Required	ISPatientRecallPlan	The `object` always implements the ISPatientRecallPlan interface

Restriction: This property is readonly.

Return Value

ISRecallObjectives

Example

Display the number of the objectives linked to the specified care plan.

Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan
Dim aPlanObjective

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
  aPlanObjectiveCount = aPlan.RecallObjectives.Count
  if aPlanObjectiveCount = 0 then 
    aMessage = aMessage & vbNewLine & "The care plan '" & aPlan.Description &_ 
      "' has no objectives!"
  else
    aMessage = aMessage & vbNewLine & "The number of the objectives " &_
      "for the care plan '" & aPlan.Description & "' is " & aPlanObjectiveCount
  end if
next

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0