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

/* Include commons */
{common.i}

/* Purge all related records  */

TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:
  FOR EACH extracted-item
    WHERE extracted-item.state-report-id = extracted-record.state-report-id
      AND extracted-item.state-report-period-id = extracted-record.state-report-period-id
      AND extracted-item.state-version-id = extracted-record.state-version-id
      AND extracted-item.state-record-id  = extracted-record.state-record-id
      AND extracted-item.extracted-record-seq = extracted-record.extracted-record-seq
  EXCLUSIVE-LOCK:
    DELETE extracted-item NO-ERROR.
  END.
END.

/* That's it */
RETURN.