ISRecallAction.ExternalEntity

Example

Display the external entity for the action.

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)
        
        aMessage = aMessage & vbNewLine & _
          "    ACTION: '" & aAction.Description & "'. "        
        
        set aExternalEntity = aAction.ExternalEntity
        if aExternalEntity is nothing then
          aMessage = aMessage & " No external entity!"
        else
          aMessage = aMessage & " External Entity ID = " & aExternalEntity.ID
        end if     
      next  
    next
  next
  Profile.MsgBox(aMessage)  
end sub