ISRecallAction.Explanation

Example

Display the outcome of the action.

sub main   
  Dim aPatient
  Dim aRecallPlans
  Dim aPlan
  Dim aVisit
  Dim aVisits
  Dim aActions
  Dim aAction
  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

  for each aPlan in aRecallPlans
    aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'"
    set aVisits = aPlan.Visits
    if aVisits.Count = 0 then
      aMessage = aMessage & vbNewLine & "  NO INTERVENTIONS"
    end if
    for each aVisit in aVisits
      set aActions = aVisit.Actions     
      aMessage = aMessage & vbNewLine & "  INTERVENTION: '" &_
        aVisit.Description & "'" & "  (Action Count = " & aActions.Count & ")"

      for i = 0 to aActions.Count - 1 
        set aAction = aActions.Item(i)
        set aOutcome = aAction.Explanation


        aMessage = aMessage & vbNewLine &_
          "  - ACTION: '" & aAction.Description & "'" & vbNewLine 
        
        if aOutcome is nothing then 
          aMessage = aMessage & "The action has no outcome!" & vbNewLine
        else  
          aMessage = aMessage & "  - Action Outcome: - " & aOutcome.Description & vbNewLine
        end if 
      next  
    next
  next
  Profile.MsgBox(aMessage)  
end sub