ISPatientRecallPlanVers.ReferenceDate

Example

Display the date used for calculating intervention dates in the care plan version.

Dim aPatient
Dim aRecallPlans
Dim aOnDate
Dim aPlan
Dim aPlanVers
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 = #02/27/2019 10:33:11# 

for each aPlan in aRecallPlans
  set aPlanVers = aPlan.VersionOnDate(aOnDate)
  if aPlanVers is nothing then    
    aMessage = aMessage & vbNewLine & " The care plan '" & aPlan.Description &_
      " (" & aPlan.Id & ") " & "' has no version on this date!"
  else            
    aMessage = aMessage & vbNewLine & " The care plan '" &  aPlan.Description &_
      "' : Reference date = " & aPlan.ReferenceDate &_
      ";  Version on date: Reference date = " & aPlanVers.ReferenceDate
  end if    
next   

Profile.MsgBox(aMessage)