ISPatientRecallPlanVers.IsImmunization

Example

Display IsImmunization for the patient's 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 & "  Immunization = " &_
      aPlan.IsImmunization & ". Version on date: Immunization =  " &_
      aPlanVers.IsImmunization
  end if    
next   

Profile.MsgBox(aMessage)