ISPatientRecallVisitVers.SeriesIsCompleted

Example

Display SeriesIsCompleted for the selected intervention version.

sub main
  Dim aPatient
  Dim aRecallPlans
  Dim aOnDate
  Dim aPlan
  Dim aVisit
  Dim aVisits
  Dim aVisitVers
  Dim aMessage

  Set aPatient = Profile.SelectPatient
  set aRecallPlans = aPatient.RecallPlans
   
  if aRecallPlans.Count = 0 then
    Profile.MsgBox("The patient has no care plans!")
    exit sub
  end if   

  aOnDate = #03/17/2019#
 
  for each aPlan in aRecallPlans
    aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'"
    set aVisits = aPlan.Visits  
      
    if aVisits.Count = 0 then
      aMessage = aMessage & vbNewLine & "  There are no interventions in the plan!"
    end if  
    for each aVisit in aVisits  
      set aVisitVers = aVisit.VersionOnDate(aOnDate)
      if aVisitVers is nothing then    
        aMessage = aMessage & vbNewLine & _
          "  CURRENT Descr: " & aVisit.Description & vbNewLine &_
          "  VERSION Descr: -" & vbNewLine &_          
          "  CURRENT SeriesIsCompleted: " & aVisit.SeriesIsCompleted & vbNewLine &_
          "  VERSION SeriesIsCompleted: -" & vbNewLine &_
          "  -----------------------------------------------" & vbNewLine    
      else
        aMessage = aMessage & vbNewLine & _
          "  CURRENT Descr: " & aVisit.Description & vbNewLine &_
          "  VERSION Descr: " & aVisitVers.Description & vbNewLine &_          
          "  CURRENT SeriesIsCompleted: " & aVisit.SeriesIsCompleted & vbNewLine &_
          "  VERSION SeriesIsCompleted: " & aVisitVers.SeriesIsCompleted & vbNewLine &_
          "-----------------------------------------------" & vbNewLine                            
      end if    
    next
  next   

  Profile.MsgBox(aMessage)
  
end sub