/* tr-d-sit.p - Delete trigger for state-item */
TRIGGER PROCEDURE FOR DELETE OF state-item.

/* Include commons */
{common.i}

/* Purge all related state-report-items */
TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:
  FOR EACH extracted-item 
    WHERE extracted-item.state-version-id = state-item.state-version-id
      AND extracted-item.state-item-id    = state-item.state-item-id EXCLUSIVE-LOCK:
    DELETE extracted-item NO-ERROR.
  END.

  FOR EACH state-record-item OF state-item EXCLUSIVE-LOCK:
    DELETE state-record-item NO-ERROR.
  END.
END.

/* That's it */