ISPatientRecallVisit.VersionOnDate

Example

Display the most recent version of the patient's intervention and the version on the specified date.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallPlans = aPatient.RecallPlans
   
  aOnDate = #03/01/2019# 
  aMessage = GetPlanCollectionInfo(aRecallPlans, aOnDate)

   Profile.MsgBox(aMessage)
end sub


function GetPlanCollectionInfo(aRecallPlans, aOnDate)
  info = ""
  for each aPlan in aRecallPlans
    info = info & vbNewLine & aPlan.Description
    set aVisits = aPlan.Visits  
      
    if aVisits.Count = 0 then
      info = info & vbNewLine & "The plan has no interventions!"
    end if  
    for each aVisit in aVisits  
      set aVisitOnDate = aVisit.VersionOnDate(aOnDate)
      if aVisitOnDate is nothing then    
         info = info & vbNewLine & " - " & aVisit.Description &_
         "  -  No Version on this date"
      else            
        info = info & vbNewLine & " Current Date " & aVisit.Description &_
        "      Version on date:  " & aVisitOnDate.Description 
       end if    
     next
  next   
  GetPlanCollectionInfo = info
end function