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

/* Include commons */
{common.i}

/* Purge all related records  */

TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:
  FOR EACH extracted-record  
    WHERE extracted-record.state-report-id = state-report-record.state-report-id 
      AND extracted-record.state-report-period-id = state-report-record.state-report-period-id
      AND extracted-record.state-record-id = state-report-record.state-record-id 
      EXCLUSIVE-LOCK: 

    DELETE extracted-record NO-ERROR.
  END.
  
END.


/* That's it */
RETURN.