ISPatientRecallVisit.Explanation

Example

Display the outcomes of the patient's intervention.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallPlans = aPatient.RecallPlans
   
   for each aPlan in aRecallPlans
     aMessage = aMessage & GetVisitCollectionInfo(aPlan.Visits)
   next

  Profile.MsgBox(aMessage)
end sub

function GetVisitCollectionInfo(aVisits)
  for each aVisit in aVisits 
    info = info & vbNewLine & "The intervention '" & aVisit.Description 
    set aExpl = aVisit.Explanation    
    if aExpl is nothing then
      info = info & vbNewLine & "  There are no outcomes"    
    else   
      info = info & vbNewLine & "  Outcome: " & aExpl.Description
    end if   
  next
  GetVisitCollectionInfo = info
end function