ISPatientRecallVisit.DueDate

Example

Display the date when the patient's intervention is first due.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallVisits = aPatient.RecallVisits
   aMessage = "Due Interventions: " & vbNewLine &_  
     GetVisitCollectionInfo(aRecallVisits.Due) & vbNewLine &_
       "Completed Interventions: " & vbNewLine &_
     GetVisitCollectionInfo(aRecallVisits.Completed) & vbNewLine

  Profile.MsgBox(aMessage)
end sub

function GetVisitCollectionInfo(aVisits)
  Dim aVisit, aPlan, info

  if aVisits.Count = 0 then
    info = "  There are no interventions!"
  else
    info = "  The patient has " & aVisits.Count & " intervention(s):"
  end if   
   
  for each aVisit in aVisits 
    set aPlan = aVisit.ParentPlan
    info = info & vbNewLine & "The date the intervention is first due is " &_
    aVisit.DueDate 

  next
  
  GetVisitCollectionInfo = info
end function