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

/* Include commons */
{common.i}

/* Purge related state-items, state-report-items */
TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:

  FOR EACH extracted-record 
    WHERE extracted-record.state-version-id = state-record.state-version-id
      AND extracted-record.state-record-id  = state-record.state-record-id 
  EXCLUSIVE-LOCK:
    DELETE extracted-record NO-ERROR.
  END.

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

/* That's it */
RETURN.