ISRecallAction.Immunisation

Example

Display additional information for immunisation action (the diluent's batch and expiry date; actions performed outside the practice; vaccine indication Id).

sub main   
  Dim aPatient
  Dim aRecallPlans
  Dim aPlan
  Dim aVisit
  Dim aVisits
  Dim aActions
  Dim aAction
  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

  for each aPlan in aRecallPlans
    aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'"
    set aVisits = aPlan.Visits
    if aVisits.Count = 0 then
      aMessage = aMessage & vbNewLine & "  NO INTERVENTIONS"
    end if
    for each aVisit in aVisits
      set aActions = aVisit.Actions     
      aMessage = aMessage & vbNewLine & "  INTERVENTION: '" &_
        aVisit.Description & "'  (Action Count = " & aActions.Count & ")"

      for i = 0 to aActions.Count - 1 
        set aAction = aActions.Item(i)
        set aImmunisationAction = aAction.Immunisation
        if aImmunisationAction is nothing then
          aMessage = aMessage & vbNewLine & "-----"
        else
          aMessage = aMessage & vbNewLine & "  - ACTION: '" & aAction.Description &_
            "'" & vbNewLine &_ 
            "   BatchDiluent: " & aImmunisationAction.BatchDiluent & vbNewLine &_
            "   BatchDiluentExpiry: " & aImmunisationAction.BatchDiluentExpiry & vbNewLine &_
            "   DoneElsewhere: " & aImmunisationAction.DoneElsewhere & vbNewLine &_
            "   IndicationId: " & aImmunisationAction.IndicationId & vbNewLine                                    
        end if    
      next  
    next
  next
  Profile.MsgBox(aMessage)  
end sub