ISPatientRecallPlanVers.ObjectiveCollection

Example

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

Dim aPatient
Dim aRecallPlans
Dim aOnDate
Dim aPlan
Dim aPlanVers
Dim aMessage

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   

aOnDate = #02/27/2019 10:33:11# 

for each aPlan in aRecallPlans
  set aPlanVers = aPlan.VersionOnDate(aOnDate)
  if aPlanVers is nothing then    
    aMessage = aMessage & vbNewLine & " The care plan '" & aPlan.Description &_
      " (" & aPlan.Id & ") " & "' has no version on this date!"
  else            
    aMessage = aMessage & vbNewLine & " The care plan '" &_
      aPlan.Description & "':" & vbNewLine & "  The number of objectives is " &_
      aPlan.RecallObjectives.Count & ". Version on date:" &_
      " The number of objectives is  " & aPlanVers.ObjectiveCollection.Count
  end if    
next   

Profile.MsgBox(aMessage)