ISPatientRecallVisit.GetOutcomes

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 &_
     " has status " & aVisit.StatusAsString  
    
    set aOutcomes = aVisit.GetOutcomes(aVisit.Status)
    if aOutcomes.Count = 0 then
      info = info & vbNewLine & "  There are no possible outcomes"
    else       
      info = info & vbNewLine & "  There are possible outcomes:"
    end if  
          
    for each aOutcome in aOutcomes
      info = info & vbNewLine & "    >>> " & aOutcome.Description    
    next      
  next
  GetVisitCollectionInfo = info
end function