ISPatientRecallVisit.StatusAsStringEx

Example

Display the status reflecting the intervention status and overall status of the actions in 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 
    set aPlan = aVisit.ParentPlan
    info = info & vbNewLine & "The status of the intervention '" &_
    aVisit.Description & "' =  " & aVisit.Status & "; Status As String = " &_
     aVisit.StatusAsString & "; Status As String Extended = " &_
     aVisit.StatusAsStringEx
  next
  GetVisitCollectionInfo = info
end function