rem rem $Header: L:\\\\model\\repman40\\api\\RCS\\CIFUNEVT.HPB 1.2 1998/12/30 14:55:20 loldham Exp $ rem Rem Copyright (c) 1994 by Oracle Corporation Rem NAME Rem cifunevt.hpb - Rem DESCRIPTION Rem Rem RETURNS Rem Rem NOTES Rem Rem MODIFIED (MM/DD/YY) Rem jwetherb 10/20/94 - Maintain EVENT_TRIGGER_BY/EVENT_TRIGGER_OF Rem jwetherb 10/20/94 - Rebuilt REM *************************************************************************** REM Hand-carved package body for EVENT TRIGGER created on 20-OCT-94 REM *************************************************************************** CREATE OR REPLACE PACKAGE BODY cihfunevt IS -- Generic post-process routines PROCEDURE check_delete(id number); str_type constant varchar2(6) := 'FUNEVT'; part_type constant varchar2(6) := 'FUN'; --#DELETED use_type constant varchar2(6) := 'EVT'; --#BEGIN function_reference rm.reference; event_reference rm.reference; triggered_reference rm.reference; triggering_reference rm.reference; --#END --======================== PRE-PROCESS (INS,UPD) ============================-- PROCEDURE pre_process(operation varchar2,id number, pl in out NOCOPY cioevent_trigger.data) IS BEGIN --#BEGIN -- Initialize the function and event references function_reference := nvl(pl.v.triggering_function_reference, pl.v.triggered_function_reference); event_reference := nvl(pl.v.triggering_event_reference, pl.v.triggered_event_reference); triggered_reference := nvl(pl.v.triggered_function_reference, pl.v.triggered_event_reference); triggering_reference := nvl(pl.v.triggering_function_reference, pl.v.triggering_event_reference); --#END -- Perform INSERT-specific processing if operation = 'INS' then --#BEGIN if triggering_reference = function_reference then pl.v.event_trigger_of := 'EVT'; pl.v.event_trigger_by := 'FUN'; else pl.v.event_trigger_of := 'FUN'; pl.v.event_trigger_by := 'EVT'; end if; pl.i.event_trigger_of := true; pl.i.event_trigger_by := true; --#END -- Check for existence of function and event -- elements --#BEGIN CHANGED if ciiutl.el_exists(function_reference,part_type) = false then ciierr.fatal(3500,'EVENT TRIGGER','function', function_reference); end if; if ciiutl.el_exists(event_reference,use_type) = false then ciierr.fatal(3500,'EVENT TRIGGER','event', event_reference); end if ; --#END CHANGED else if ciiutl.el_exists(id,str_type) = false then ciierr.fatal(3504,ciiutl.nls_type_name('EVENT_TRIGGER'),id); end if; end if; --#DELETED -- Check access rights for event trigger --#BEGIN CHANGED -- Access rights checking performed by triggers in config 4.0.9 -- ciiacc.check_access_rights(function_reference,part_type,'UPD','NSHR'); -- if operation = 'INS' then -- ciiacc.check_access_rights(event_reference, use_type,'SEL','NSHR'); -- end if; --#END CHANGED -- Check that event trigger with this function and -- event doesn't already exist on insert -- CHECK REPLACED BY DEFERRED CONSTRAINT AT 4.0.6 if operation = 'INS' then --#BEGIN CHANGED -- Initialize unassigned properties with default values on INSERT pl.v.element_type_name := str_type; pl.i.element_type_name := true; --#END CHANGED end if; -- Validate user-defined properties if cieval.is_extended then cieval.check_association(id,pl.v.types,(operation='UPD') ,triggered_reference ,triggering_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 event trigger derive from the function --#BEGIN -- Access rights checking performed by triggers in config 4.0.9 /* select max(decode(event_trigger_by,'FUN',triggering_function_reference ,triggered_function_reference)) into function_reference from ci_event_triggers where id = pre_process.id; if operation = 'DEL' then ciiacc.check_access_rights(function_reference,part_type,'UPD','NSHR'); else ciiacc.check_access_rights(function_reference,part_type,operation,'NSHR'); end if; */ -- if operation is 'DELETE', make sure no non-cascading references exist if operation = 'DEL' then check_delete(id); end if; END; --===================== POST-PROCESS (INS,UPD,SEL) ==========================-- PROCEDURE post_process(operation varchar2,id number, pl cioevent_trigger.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; END; --================================== END ====================================-- -- -- Package instantiation block -- BEGIN is_installed := true; END; /