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

/* Include commons */
{common.i}

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

/* That's it */
RETURN.