ISPatientRecallPlanVers.ClosedDate

Example

Display the date and time the patient's care plan is completed, or no longer applicable to the patient 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 11:11: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 & "':" & vbNewLine & "  Closed Date = " &_
      aPlan.ClosedDate & ". Version on date: Closed Date =   " &_
      aPlanVers.ClosedDate
  end if    
next   

Profile.MsgBox(aMessage)