ISRecallAction.Comment

Example

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

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")
  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 & "  The patient has no interventions within the plan"
  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 & "        Code: " & aAction.Code & vbNewLine &_
        "        Comment: " & aAction.Comment & vbNewLine     
    next  
  next
next
Profile.MsgBox(aMessage)