CREATE OR REPLACE TRIGGER "EFT_NOM".cg$BIR_STYLESHEET_ELEMENTS BEFORE INSERT ON STYLESHEET_ELEMENTS FOR EACH ROW DECLARE cg$rec cg$STYLESHEET_ELEMENTS.cg$row_type; cg$ind cg$STYLESHEET_ELEMENTS.cg$ind_type; BEGIN -- Application_logic Pre-Before-Insert-row <> -- Application_logic Pre-Before-Insert-row << End >> -- Load cg$rec/cg$ind values from new cg$rec.STEL_ID := :new.STEL_ID; cg$ind.STEL_ID := TRUE; cg$rec.STST_ID := :new.STST_ID; cg$ind.STST_ID := TRUE; cg$rec.ITEM_TYPE := :new.ITEM_TYPE; cg$ind.ITEM_TYPE := TRUE; cg$rec.ITEM_NAME := :new.ITEM_NAME; cg$ind.ITEM_NAME := TRUE; cg$rec.ITEM_PROMPT := :new.ITEM_PROMPT; cg$ind.ITEM_PROMPT := TRUE; cg$rec.ITEM_VALUE := :new.ITEM_VALUE; cg$ind.ITEM_VALUE := TRUE; if not (cg$STYLESHEET_ELEMENTS.called_from_package) then cg$STYLESHEET_ELEMENTS.validate_arc(cg$rec); cg$STYLESHEET_ELEMENTS.validate_domain(cg$rec); cg$STYLESHEET_ELEMENTS.ins(cg$rec, cg$ind, FALSE); cg$STYLESHEET_ELEMENTS.called_from_package := FALSE; end if; cg$STYLESHEET_ELEMENTS.cg$table(cg$STYLESHEET_ELEMENTS.idx).STEL_ID := cg$rec.STEL_ID; cg$STYLESHEET_ELEMENTS.cg$tableind(cg$STYLESHEET_ELEMENTS.idx).STEL_ID := cg$ind.STEL_ID; cg$STYLESHEET_ELEMENTS.cg$table(cg$STYLESHEET_ELEMENTS.idx).STST_ID := cg$rec.STST_ID; cg$STYLESHEET_ELEMENTS.cg$tableind(cg$STYLESHEET_ELEMENTS.idx).STST_ID := cg$ind.STST_ID; cg$STYLESHEET_ELEMENTS.cg$table(cg$STYLESHEET_ELEMENTS.idx).ITEM_TYPE := cg$rec.ITEM_TYPE; cg$STYLESHEET_ELEMENTS.cg$tableind(cg$STYLESHEET_ELEMENTS.idx).ITEM_TYPE := cg$ind.ITEM_TYPE; cg$STYLESHEET_ELEMENTS.cg$table(cg$STYLESHEET_ELEMENTS.idx).ITEM_NAME := cg$rec.ITEM_NAME; cg$STYLESHEET_ELEMENTS.cg$tableind(cg$STYLESHEET_ELEMENTS.idx).ITEM_NAME := cg$ind.ITEM_NAME; cg$STYLESHEET_ELEMENTS.cg$table(cg$STYLESHEET_ELEMENTS.idx).ITEM_PROMPT := cg$rec.ITEM_PROMPT; cg$STYLESHEET_ELEMENTS.cg$tableind(cg$STYLESHEET_ELEMENTS.idx).ITEM_PROMPT := cg$ind.ITEM_PROMPT; cg$STYLESHEET_ELEMENTS.cg$table(cg$STYLESHEET_ELEMENTS.idx).ITEM_VALUE := cg$rec.ITEM_VALUE; cg$STYLESHEET_ELEMENTS.cg$tableind(cg$STYLESHEET_ELEMENTS.idx).ITEM_VALUE := cg$ind.ITEM_VALUE; cg$STYLESHEET_ELEMENTS.idx := cg$STYLESHEET_ELEMENTS.idx + 1; :new.STEL_ID := cg$rec.STEL_ID; :new.STST_ID := cg$rec.STST_ID; :new.ITEM_TYPE := cg$rec.ITEM_TYPE; :new.ITEM_NAME := cg$rec.ITEM_NAME; :new.ITEM_PROMPT := cg$rec.ITEM_PROMPT; :new.ITEM_VALUE := cg$rec.ITEM_VALUE; -- Application_logic Post-Before-Insert-row <> -- Application_logic Post-Before-Insert-row << End >> END; /