[Home] [Help]
246: --
247: -- +---------------------------------------------------------------------------+
248: -- | NAME : insert_declarations |
249: -- | SCOPE : PRIVATE |
250: -- | DESCRIPTION: Simply inserts values into the PAY_TRIGGER_DECLARATIONS table|
251: -- | PARAMETERS : p_event_id - The event_id column |
252: -- | p_variable_name - The variable_name column |
253: -- | p_data_type - The data_type column |
254: -- | p_variable_size - The variable_size column |
263: ) RETURN NUMBER IS
264: --
265: -- Get the next value from the primary key sequence
266: CURSOR get_id IS
267: SELECT pay_trigger_declarations_s.NEXTVAL
268: FROM dual;
269: --
270: l_rc NUMBER;
271: --
276: FETCH get_id INTO l_rc;
277: CLOSE get_id;
278: --
279: -- Insert the new row
280: INSERT INTO pay_trigger_declarations(
281: declaration_id,
282: event_id,
283: variable_name,
284: data_type,
1949: 'N','NUMBER'
1950: ) data_type,
1951: data_type data_type_code,
1952: variable_size
1953: FROM pay_trigger_declarations
1954: WHERE event_id = cp_id;
1955: --
1956: BEGIN
1957: --JFORD 15-SEP-03 Due to data inconsistencies the owness is now on the
2574: WHERE event_id = p_id;
2575: --
2576: -- Delete the local variable declarations that the trigger uses
2577: DELETE
2578: FROM pay_trigger_declarations
2579: WHERE event_id = p_id;
2580: --
2581: -- Drop the support package and delete it's definition
2582: drop_package(l_tname,get_package_name(p_id,l_tname));
4086: function is_not_declared(p_id in number,p_name in varchar2) return boolean is
4087: --
4088: cursor csr_pay(cp_id in number,cp_name in varchar2) is
4089: select 'x'
4090: from pay_trigger_declarations
4091: where variable_name = cp_name
4092: and event_id = cp_id;
4093: --
4094: l_cx varchar2(1);