ISRecallObjective.Visits

Example

Display the number of the patient's interventions under the selected care objective.

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 & "PLAN: '" & aPlan.Description & "'" & vbNewLine
  
  if aObjectives.Count = 0 then
    aMessage = aMessage & "  NO OBJECTIVES" & vbNewLine
  end if  
         
  for i = 0 to aObjectives.Count - 1
    set aObjective = aObjectives.Item(i)
    set aVisits = aObjective.Visits
    aVisitsCount = aVisits.Count
    if aVisitsCount = 0 then 
      aMessage = aMessage & vbNewLine & "There are no interventions linked" &_
        " to the care objective '" & aObjective.Name & "'"
    else   
      aMessage = aMessage & vbNewLine & "There (is) are " & aVisitsCount &_ 
        " intervention(s) under the care objective '" & aObjective.Name & "'"   
    end if
  next  
next

Profile.MsgBox(aMessage)