[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,
1920: 'N','NUMBER'
1921: ) data_type,
1922: data_type data_type_code,
1923: variable_size
1924: FROM pay_trigger_declarations
1925: WHERE event_id = cp_id;
1926: --
1927: BEGIN
1928: --JFORD 15-SEP-03 Due to data inconsistencies the owness is now on the
2544: WHERE event_id = p_id;
2545: --
2546: -- Delete the local variable declarations that the trigger uses
2547: DELETE
2548: FROM pay_trigger_declarations
2549: WHERE event_id = p_id;
2550: --
2551: -- Drop the support package and delete it's definition
2552: drop_package(l_tname,get_package_name(p_id,l_tname));
4048: function is_not_declared(p_id in number,p_name in varchar2) return boolean is
4049: --
4050: cursor csr_pay(cp_id in number,cp_name in varchar2) is
4051: select 'x'
4052: from pay_trigger_declarations
4053: where variable_name = cp_name
4054: and event_id = cp_id;
4055: --
4056: l_cx varchar2(1);