ISPatientRecallVisitVers.isCompleteFormFlag

Example

Display isCompleteFormFlag 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/04/2019 12:51:59#
 
  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 & " - Intervention '" & aVisit.Description &_
          "': There is no version of the intervention on this date!"
      else
        aMessage = aMessage & vbNewLine & " Complete form for the " &_
          "CURRENT intervention '" & aVisit.Description & "' : " &_
          aVisit.isCompleteFormFlag & "  /  " & vbNewLine & _
          " Complete form for the intervention '" & aVisitVers.Description &_ 
          "' on the specified date :" & aVisitVers.isCompleteFormFlag
       end if    
     next
  next   

  Profile.MsgBox(aMessage)
  
end sub