/* tr-d-stn.p - Delete trigger for state-table-name */
TRIGGER PROCEDURE FOR DELETE OF state-table-name.

/* Include Commons */
{common.i}

/* Delete all associated state-table-codes, state-items, and state-report-items */
TransBlock:
DO ON ERROR UNDO TransBlock, RETURN ERROR:
  FOR EACH state-table-code OF state-table-name EXCLUSIVE-LOCK:
    DELETE state-table-code NO-ERROR.
  END.

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

/* That's all there is to it */
RETURN.