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

/* Include commons */
{common.i}

/* Purge all related state records, state-items, state-report-periods, and
   state-report-items */
TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:
  FOR EACH extracted-item OF state-report EXCLUSIVE-LOCK:
    DELETE extracted-item NO-ERROR.
  END.
  
  FOR EACH extracted-record OF state-report EXCLUSIVE-LOCK:
    DELETE extracted-record NO-ERROR.
  END.
  
  FOR EACH state-report-record OF state-report EXCLUSIVE-LOCK:
    DELETE state-report-record NO-ERROR.
  END.

  FOR EACH state-report-period OF state-report EXCLUSIVE-LOCK:
    DELETE state-report-period NO-ERROR.
  END.

END.

/* Go back */
RETURN.