ISRecallAction.ID

Example

Display some information about the actions linked to the patient's interventions, including their IDs.

Dim aPatient
Dim aRecallPlans, aPlan
Dim aVisits, aVisit
Dim aActions, aAction
Dim i
Dim aMessage
     
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
   
if aRecallPlans.Count = 0 then
  Profile.MsgBox("The patient has no care plans!")
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 &_
        "'" & vbNewLine & "          Description: " & aAction.Description & vbNewLine &_
        "          ID: " & aAction.ID & vbNewLine &_
        "          Code: " & aAction.Code & vbNewLine &_
        "          Status: " & aAction.Status & vbNewLine 
    next  
  next
next
Profile.MsgBox(aMessage)