ISPatientRecallVisit.Actions

Example

Display the number of the actions associated with the patient's intervention and their code description.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallPlans = aPatient.RecallPlans
   

  aMessage = aMessage & GetPlanCollectionInfo(aRecallPlans)

  Profile.MsgBox(aMessage)
end sub

function GetPlanCollectionInfo(aRecallPlans)
  for each aPlan in aRecallPlans
    info = aPlan.Description & vbNewLine
    set aVisits = aPlan.Visits
    for each aVisit in aVisits 
      info = info & " Intervention: " & aVisit.Description & vbNewLine
      
      set aActions = aVisit.Actions
      for i = 0 to aActions.Count - 1 
        set aAction = aActions.Item(i)
        info = info & " Actions Count = " & aActions.Count & vbNewLine &_
         aAction.Description & vbNewLine   
      next  
    next
  next  
  GetPlanCollectionInfo = info
end function