ISPatientRecallPlanVers.Patient

Example

Display the full name of the patient linked to the care plan 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 & "':" & vbNewLine & "  The patient is " &_
      aPlan.Patient.SurnameFirstName & ". Version on date: The patient is  " &_
      aPlanVers.Patient.SurnameFirstName
  end if    
next   

Profile.MsgBox(aMessage)