ISPatientRecallVisit.SeriesMasterIntervention

Example

Display the code and ID of the master intervention in the series of the patient's repeating interventions.

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.Code &_
        " ( " & aVisit.Id & " )" & vbNewLine
      set aSeriesMasterIntervention = aVisit.SeriesMasterIntervention
      if aSeriesMasterIntervention is nothing then 
        info = info & "        There is no Master Intervention" & vbNewLine
      else 
        info = info & "        Master Intervention Code (ID): " &_
          aSeriesMasterIntervention.Code &_
        " ( " & aSeriesMasterIntervention.Id & " )" & vbNewLine  
      end if
    next
  next  
  GetPlanCollectionInfo = info
end function