stcwp
Database
Tables
(current)
Columns
Constraints
Relationships
Orphan Tables
Anomalies
Routines
STCW.TR_QUALITY_SYSTEM_H
Parameters
Name
Type
Mode
Definition
TRIGGER "STCW"."TR_QUALITY_SYSTEM_H" AFTER INSERT OR UPDATE OR DELETE ON QUALITY_SYSTEM REFERENCING OLD AS early NEW AS late FOR EACH row DECLARE action VARCHAR2(75); BEGIN IF INSERTING THEN action := 'INSERTING'; INSERT INTO STCW_HISTORY.QUALITY_SYSTEM_H (QUALITY_SYSTEM_ID,CERTIFICATION_BODY,CERTIFIED,IN_PLACE,LEGAL_ENTITY_ID,OBSERVATIONS,ORIGINAL_CERTIFICATION_DATE,VERSION_ID,CUSER,CDATE,MUSER, MDATE, action) VALUES(:late.QUALITY_SYSTEM_ID,:late.CERTIFICATION_BODY,:late.CERTIFIED,:late.IN_PLACE,:late.LEGAL_ENTITY_ID,:late.OBSERVATIONS,:late.ORIGINAL_CERTIFICATION_DATE, :late.VERSION_ID,:late.CUSER,:late.CDATE,:late.MUSER,:late.MDATE, action); ELSIF UPDATING THEN action := 'UPDATING'; INSERT INTO STCW_HISTORY.QUALITY_SYSTEM_H (QUALITY_SYSTEM_ID,CERTIFICATION_BODY,CERTIFIED,IN_PLACE,LEGAL_ENTITY_ID,OBSERVATIONS,ORIGINAL_CERTIFICATION_DATE,VERSION_ID,CUSER,CDATE,MUSER, MDATE, action) VALUES(:late.QUALITY_SYSTEM_ID,:late.CERTIFICATION_BODY,:late.CERTIFIED,:late.IN_PLACE,:late.LEGAL_ENTITY_ID,:late.OBSERVATIONS,:late.ORIGINAL_CERTIFICATION_DATE, :late.VERSION_ID,:late.CUSER,:late.CDATE,:late.MUSER,:late.MDATE, action); ELSE action := 'DELETING'; INSERT INTO STCW_HISTORY.QUALITY_SYSTEM_H (QUALITY_SYSTEM_ID,CERTIFICATION_BODY,CERTIFIED,IN_PLACE,LEGAL_ENTITY_ID,OBSERVATIONS,ORIGINAL_CERTIFICATION_DATE,VERSION_ID,CUSER,CDATE,MUSER, MDATE, action) VALUES(:early.QUALITY_SYSTEM_ID,:early.CERTIFICATION_BODY,:early.CERTIFIED,:early.IN_PLACE,:early.LEGAL_ENTITY_ID,:early.OBSERVATIONS,:early.ORIGINAL_CERTIFICATION_DATE, :early.VERSION_ID,:early.CUSER,:early.CDATE,:early.MUSER,:early.MDATE, action); END IF; END;