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

/* Include commons */
{common.i}

/* Wipe out all relate state-report-items */
TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:
  FOR EACH state-report-record OF state-report-period EXCLUSIVE-LOCK:
    DELETE state-report-record NO-ERROR.
  END.

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

/* Go Back */
RETURN.