ISRecallAction.IsDeleted

Example

Display IsDeleted for the action.

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 &_
        "          Date/Time Modified: " & aAction.DTModified & vbNewLine &_
        "          Is Deleted: " & aAction.IsDeleted & vbNewLine 
    next  
  next
next
Profile.MsgBox(aMessage)