ISPatientRecallPlanVers.SnapshotDate

Example

Display the date and time the snapshot of the care plan version was shown.

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

   Profile.MsgBox(aMessage)
end sub


function GetPlanCollectionInfo(aRecallPlans, aOnDate)
  info = ""
  for each aPlan in aRecallPlans
      set aPlanOnDate = aPlan.VersionOnDate(aOnDate)
      if aPlanOnDate is nothing then    
         info = info & vbNewLine & " PLAN: '" & aPlan.Description &_
           "' -- Plan ID = " & aPlan.Id &  "  -  No Version on this date"
      else            
        info = info & vbNewLine & " PLAN: '" &  aPlan.Description &_
           "'  (Plan ID =  " & aPlan.Id  & ");  --  Version on date:  '" &_
           aPlanOnDate.Description & "' -- PlanOnDate ID = " & aPlanOnDate.Id &_
           "; -- Snapshot Date and Time = " & aPlanOnDate.SnapshotDate 
      end if    
  next   
  GetPlanCollectionInfo = info
end function