rem rem $Header: L:\\\\model\\repman40\\api\\RCS\\CITRGCOL.HPB 1.2 1998/12/30 15:01:51 loldham Exp $ rem Rem Copyright (c) 1994 by Oracle Corporation Rem NAME Rem citrgcol.hpb - Rem DESCRIPTION Rem Rem RETURNS Rem Rem NOTES Rem Rem MODIFIED (MM/DD/YY) Rem jwetherb 10/07/94 - Creation REM *************************************************************************** REM Hand-carved package body for TRIGGER COLUMN USAGE created on 07-OCT-94 REM *************************************************************************** CREATE OR REPLACE PACKAGE BODY cihtrgcol IS -- Generic post-process routines PROCEDURE check_delete(id number); str_type constant varchar2(6) := 'TRGCOL'; part_type constant varchar2(6) := 'TRG'; use_type constant varchar2(6) := 'COL'; --======================== PRE-PROCESS (INS,UPD) ============================-- PROCEDURE pre_process(operation varchar2,id number, pl in out NOCOPY ciotrigger_column_usage.data) IS BEGIN -- Perform INSERT-specific processing if operation = 'INS' then -- Check for existence of database trigger and column -- elements if ciiutl.el_exists(pl.v.database_trigger_reference,part_type) = false then ciierr.fatal(3500,'TRIGGER COLUMN USAGE','database_trigger', pl.v.database_trigger_reference); end if; if ciiutl.el_exists(pl.v.column_reference,use_type) = false then ciierr.fatal(3500,'TRIGGER COLUMN USAGE','column', pl.v.column_reference); end if ; else if ciiutl.el_exists(id,str_type) = false then ciierr.fatal(3504,ciiutl.nls_type_name('TRIGGER_COLUMN_USAGE'),id); end if; end if; -- Access rights for trigger column usage derive from the -- database trigger's table -- Access rights checking performed by triggers in config 4.0.9 -- ciiacc.check_access_rights(pl.v.database_trigger_reference,part_type, -- 'UPD','SAC'); -- if operation = 'INS' then -- ciiacc.check_access_rights(pl.v.column_reference, use_type,'SEL','SAC'); -- end if; -- Check that trigger column usage with this database_trigger and -- column doesn't already exist on insert -- CHECK REPLACED BY DEFERRED CONSTRAINT AT 4.0.6 if operation = 'INS' then -- Initialize unassigned properties with default values on INSERT pl.v.element_type_name := str_type; pl.i.element_type_name := true; end if; --#BEGIN -- Maintain the property TABLE_REFERENCE if operation = 'INS' then -- since the DATABASE_TRIGGER_REFERENCE is NON transferable and -- DATABASE_TRIGGER_REFERENCE.TABLE_DEFINITION_REFERENCE is -- NON transferable only need to set this value on insert select max(table_definition_reference) into pl.v.table_reference from ci_database_triggers trg where trg.id = pl.v.database_trigger_reference; pl.i.table_reference := true; end if; --#END -- Validate user-defined properties if cieval.is_extended then cieval.check_association(id,pl.v.types,(operation='UPD') ,pl.v.database_trigger_reference ,pl.v.column_reference ,pl.v.user_defined_property_0,pl.i.user_defined_property_0 ,pl.v.user_defined_property_1,pl.i.user_defined_property_1 ,pl.v.user_defined_property_2,pl.i.user_defined_property_2 ,pl.v.user_defined_property_3,pl.i.user_defined_property_3 ,pl.v.user_defined_property_4,pl.i.user_defined_property_4 ,pl.v.user_defined_property_5,pl.i.user_defined_property_5 ,pl.v.user_defined_property_6,pl.i.user_defined_property_6 ,pl.v.user_defined_property_7,pl.i.user_defined_property_7 ,pl.v.user_defined_property_8,pl.i.user_defined_property_8 ,pl.v.user_defined_property_9,pl.i.user_defined_property_9 ,pl.v.user_defined_property_10,pl.i.user_defined_property_10 ,pl.v.user_defined_property_11,pl.i.user_defined_property_11 ,pl.v.user_defined_property_12,pl.i.user_defined_property_12 ,pl.v.user_defined_property_13,pl.i.user_defined_property_13 ,pl.v.user_defined_property_14,pl.i.user_defined_property_14 ,pl.v.user_defined_property_15,pl.i.user_defined_property_15 ,pl.v.user_defined_property_16,pl.i.user_defined_property_16 ,pl.v.user_defined_property_17,pl.i.user_defined_property_17 ,pl.v.user_defined_property_18,pl.i.user_defined_property_18 ,pl.v.user_defined_property_19,pl.i.user_defined_property_19 ); end if; END; --======================== PRE-PROCESS (DEL,SEL) ============================-- PROCEDURE pre_process(operation varchar2,id number) IS BEGIN -- Access rights for trigger column usage derive from the -- database trigger's table -- Access rights checking performed by triggers in config 4.0.9 -- if operation = 'DEL' then -- ciiacc.check_access_rights(id,str_type,'UPD','MM'); -- else -- ciiacc.check_access_rights(id,str_type,operation,'MM'); -- end if; -- if operation is 'DELETE', make sure no non-cascading references exist --if operation = 'DEL' then --check_delete(id); --end if; null; END; --===================== POST-PROCESS (INS,UPD,SEL) ==========================-- PROCEDURE post_process(operation varchar2,id number, pl ciotrigger_column_usage.data) IS BEGIN null; END; --========================= POST PROCESS (DEL) ==============================-- PROCEDURE post_process(operation varchar2,id number) IS BEGIN null; END; --============================= CHECK DELETE ================================-- PROCEDURE check_delete(id number) IS dummy number; error_count number := 0; BEGIN null; --#BEGIN -- Check if this database trigger's table is connected to other -- application systems select count(*) into dummy from ci_app_sys_tables apptab,ci_database_triggers trg, ci_trigger_column_usages trgcol where trgcol.id = check_delete.id and trg.id = trgcol.database_trigger_reference and apptab.table_reference = trg.table_definition_reference and apptab.application_system_reference != cdapi.app_sys_ref; if dummy > 0 then ciierr.post(100,ciiutl.identify(id, 'TRGCOL'),'Database trigger''s table'); error_count := 1; end if; if error_count > 0 then raise cdapi.apierror; end if; --#END END; --================================== END ====================================-- -- -- Package instantiation block -- BEGIN is_installed := true; END; /