Files
mip/Data/BulkLoad/EFT/Nominations/plsql/cg$aus_nominations.trg

64 lines
2.7 KiB
Plaintext

CREATE OR REPLACE TRIGGER EFT_NOM.cg$AUS_NOMINATIONS
AFTER UPDATE ON NOMINATIONS
DECLARE
idx BINARY_INTEGER := cg$NOMINATIONS.cg$table.FIRST;
cg$old_rec cg$NOMINATIONS.cg$row_type;
cg$rec cg$NOMINATIONS.cg$row_type;
cg$ind cg$NOMINATIONS.cg$ind_type;
BEGIN
-- Application_logic Pre-After-Update-statement <<Start>>
-- Application_logic Pre-After-Update-statement << End >>
WHILE idx IS NOT NULL LOOP
cg$old_rec.CREATED_BY := cg$NOMINATIONS.cg$table(idx).CREATED_BY;
cg$old_rec.NOMI_ID := cg$NOMINATIONS.cg$table(idx).NOMI_ID;
cg$old_rec.STATUS := cg$NOMINATIONS.cg$table(idx).STATUS;
cg$old_rec.IDENTIFIER := cg$NOMINATIONS.cg$table(idx).IDENTIFIER;
cg$old_rec.CONT_ID := cg$NOMINATIONS.cg$table(idx).CONT_ID;
cg$old_rec.CREATED_ON := cg$NOMINATIONS.cg$table(idx).CREATED_ON;
cg$old_rec.TSA_TIMESTAMP := cg$NOMINATIONS.cg$table(idx).TSA_TIMESTAMP;
IF NOT (cg$NOMINATIONS.called_from_package) THEN
idx := cg$NOMINATIONS.cg$table.NEXT(idx);
cg$rec.CREATED_BY := cg$NOMINATIONS.cg$table(idx).CREATED_BY;
cg$ind.CREATED_BY := updating('CREATED_BY');
cg$rec.NOMI_ID := cg$NOMINATIONS.cg$table(idx).NOMI_ID;
cg$ind.NOMI_ID := updating('NOMI_ID');
cg$rec.STATUS := cg$NOMINATIONS.cg$table(idx).STATUS;
cg$ind.STATUS := updating('STATUS');
cg$rec.IDENTIFIER := cg$NOMINATIONS.cg$table(idx).IDENTIFIER;
cg$ind.IDENTIFIER := updating('IDENTIFIER');
cg$rec.CONT_ID := cg$NOMINATIONS.cg$table(idx).CONT_ID;
cg$ind.CONT_ID := updating('CONT_ID');
cg$rec.CREATED_ON := cg$NOMINATIONS.cg$table(idx).CREATED_ON;
cg$ind.CREATED_ON := updating('CREATED_ON');
cg$rec.TSA_TIMESTAMP := cg$NOMINATIONS.cg$table(idx).TSA_TIMESTAMP;
cg$ind.TSA_TIMESTAMP := updating('TSA_TIMESTAMP');
cg$NOMINATIONS.validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind);
cg$NOMINATIONS.upd_denorm2( cg$rec,
cg$NOMINATIONS.cg$tableind(idx)
);
cg$NOMINATIONS.upd_oper_denorm2( cg$rec,
cg$old_rec,
cg$NOMINATIONS.cg$tableind(idx)
);
cg$NOMINATIONS.cascade_update(cg$rec, cg$old_rec);
cg$NOMINATIONS.domain_cascade_update(cg$rec, cg$ind, cg$old_rec);
cg$NOMINATIONS.called_from_package := FALSE;
END IF;
idx := cg$NOMINATIONS.cg$table.NEXT(idx);
END LOOP;
cg$NOMINATIONS.cg$table.DELETE;
-- Application_logic Post-After-Update-statement <<Start>>
-- Application_logic Post-After-Update-statement << End >>
END;
/