ISRecallObjectiveVers.RecallPlan

Example

Display the name of the patient's care plan the selected objective version is linked to.

sub main   
  Dim aPatient
  Dim aRecallPlans
  Dim aPlan
  Dim i
  Dim aObjectives
  Dim aObjective
  Dim aObjectiveOnDate
  Dim aMessage
     
  Set aPatient = Profile.SelectPatient
  set aRecallPlans = aPatient.RecallPlans
  aVersionDate = #04/06/2019 11:16#
   
  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 & "PLAN: '" & aPlan.Description & "'" & vbNewLine 

    for i = 0 to aObjectives.Count - 1
      set aObjective = aObjectives.Item(i)
      set aObjectiveOnDate = aObjective.VersionOnDate(aVersionDate)
      aMessage = aMessage &_
        MakeObjectiveDescription(aPatient, "    ACTUAL OBJECTIVE VERSION: ", aObjective) &_
        MakeObjectiveDescription(aPatient, "    OBJECTIVE VERSION ON DATE: ", aObjectiveOnDate)
        
    next ' aObjective
  next ' aPlan
  Profile.MsgBox(aMessage)  
end sub 


function MakeObjectiveDescription(aPatient, aInfo, aObjectiveInstance)
  aMessage = aInfo  
  if aObjectiveInstance is nothing then
    aMessage = aMessage & " UNASSIGNED" 
  else
    aRPInstanceId = aObjectiveInstance.RecallPlanId
    
    set aRPInstance = aPatient.LoadRecallPlan(aRPInstanceId)
    
    if aRPInstance is nothing then
      aMessage = aMessage & " UNASSIGNED" 
    else  
      aMessage = aMessage & aObjectiveInstance.DisplayName & vbNewLine &_
        "    PARENT CARE PLAN: " & aRPInstance.Description
    end if          
  end if
  MakeObjectiveDescription = aMessage & vbNewLine
end function