[Home] [Help]
1: package body py_rollback_pkg AS
2: /* $Header: pyrolbak.pkb 120.27.12010000.3 2008/11/26 06:59:46 priupadh ship $ */
3: /*------------- Payroll and Assignment Action Details ----------------*/
4: type rollback_rec is record
5: (
107: function action_parameter(p_param_name in varchar2)
108: return varchar2 is
109: l_name pay_action_parameters.parameter_name%type;
110: param_value pay_action_parameters.parameter_value%type;
111: c_indent constant varchar2(40) := 'py_rollback_pkg.action_parameter';
112: l_found boolean;
113: begin
114: -- Attempt to find value of the parameter
115: -- in the action parameter table.
158: procedure remove_action_information(
159: p_action_context_id in number,
160: p_action_context_type in varchar2 default 'AAP')
161: is
162: c_indent constant varchar2(100) := 'py_rollback_pkg.remove_action_information';
163: --
164: cursor actionitems (cp_action_context_id in number,
165: cp_action_context_type in varchar2) is
166: select action_information_id
183: procedure remove_archive_items(p_info in rollback_rec,
184: p_source_id in number,
185: p_archive_type in varchar2 default 'AAP')
186: is
187: c_indent constant varchar2(40) := 'py_rollback_pkg.remove_archive_items';
188: --
189: cursor architems (p_source number, p_archive_type varchar2) is
190: select archive_item_id
191: from ff_archive_items
209: procedure remove_file_details(p_info in rollback_rec,
210: p_source_id in number,
211: p_source_type in varchar2 default 'PAA')
212: is
213: c_indent constant varchar2(40) := 'py_rollback_pkg.remove_file_details';
214: --
215: begin
216: --
217: delete from pay_file_details
235: and pee.creator_id = paa.assignment_action_id
236: and pee.creator_type = 'P';
237: begin
238: if g_debug then
239: c_indent := 'py_rollback_pkg.remove_retro_ee';
240: hr_utility.set_location(c_indent,10);
241: end if;
242: --
243: /* Delete the entry values before the element entry */
271: and pee.creator_id = paa.assignment_action_id
272: and pee.creator_type = 'D';
273: begin
274: if g_debug then
275: c_indent := 'py_rollback_pkg.remove_adv_ee';
276: hr_utility.set_location(c_indent,10);
277: end if;
278: --
279: /* Delete the entry values before the element entry */
305: and pee.creator_id = paa.assignment_action_id
306: and pee.creator_type in ('AD', 'AE','D');
307: begin
308: if g_debug then
309: c_indent := 'py_rollback_pkg.remove_advpayele_ee';
310: hr_utility.set_location(c_indent,10);
311: end if;
312: --
313: /* Delete the entry values before the element entry */
338: and pee.creator_id = paa.assignment_action_id
339: and pee.creator_type = 'R';
340: begin
341: if g_debug then
342: c_indent := 'py_rollback_pkg.remove_retroact_ee';
343: hr_utility.set_location(c_indent,10);
344: end if;
345: --
346: /* Delete the entry values before the element entry */
381: and pra.retro_assignment_action_id = p_assact_id;
382: --
383: begin
384: if g_debug then
385: c_indent := 'py_rollback_pkg.remove_retroele_ee';
386: hr_utility.set_location(c_indent,10);
387: end if;
388: --
389: /* Delete the entry values before the element entry */
440: l_source_name gl_interface.user_je_source_name%type;
441: --
442: begin
443: if g_debug then
444: c_indent := 'py_rollback_pkg.remove_gl_entries';
445: hr_utility.set_location(c_indent, 10);
446: end if;
447: --
448: if mtgl_mode_cached = FALSE then
546: -- scan that occurs when you attempt to use a single
547: -- delete statement.
548: -- Tight loop, so the set_location call set outside it.
549: if g_debug then
550: c_indent := 'py_rollback_pkg.remove_run_results';
551: hr_utility.set_location(c_indent,10);
552: end if;
553: --
554: purge_rr := TRUE;
589: procedure remove_action_contexts(p_assact_id in number) is
590: c_indent varchar2(40);
591: begin
592: if g_debug then
593: c_indent := 'py_rollback_pkg.remove_action_contexts';
594: hr_utility.set_location(c_indent,10);
595: end if;
596: --
597: delete from pay_action_contexts
731: -- Cursor loops used to avoid full table access of
732: -- the balance context table.
733:
734: if g_debug then
735: c_indent := 'py_rollback_pkg.remove_balances';
736: hr_utility.set_location(c_indent,10);
737: end if;
738: if (p_info.action_type in ('B', 'I', 'V')) then
739: -- treat balance adjustment as a special case : we should
1057: begin
1058: --
1059: -- get payroll action level information
1060: if g_debug then
1061: c_indent := 'py_rollback_pkg.get_pact_info';
1062: hr_utility.set_location(c_indent, 10);
1063: end if;
1064: select pac.business_group_id,
1065: pac.effective_date,
1180: l_action_name hr_lookups.meaning%type;
1181: begin
1182: g_debug := hr_utility.debug_enabled;
1183: if g_debug then
1184: c_indent := 'py_rollback_pkg.ins_rollback_message';
1185: hr_utility.set_location(c_indent, 10);
1186: end if;
1187: -- Set up a message for either rollback at assignment or
1188: -- payroll action level.
1302: c_indent varchar2(40);
1303: begin
1304: -- Select some information about the entry we are operating on.
1305: if g_debug then
1306: c_indent := 'py_rollback_pkg.undo_stop_update';
1307: hr_utility.set_location(c_indent, 10);
1308: end if;
1309: select pee.effective_start_date,
1310: pee.effective_end_date,
1525: c_indent varchar2(40);
1526: v_max_date date; -- maximum entry end date
1527: begin
1528: if g_debug then
1529: c_indent := 'py_rollback_pkg.proc_entry_dml';
1530: hr_utility.set_location(c_indent,90);
1531: end if;
1532: -- Begin by processing for stop entry dml.
1533: for stprec in stp loop
1577: * deleting. (Depends on the wishes of the client). In
1578: * addition, we may need to remove interlock rows.
1579: */
1580: procedure act_base_table_dml(p_info in rollback_rec) is
1581: c_indent constant varchar2(40) := 'py_rollback_pkg.act_base_table_dml';
1582: begin
1583: -- see if we want to alter the assignment action itself (we wouldn't
1584: -- if we were being called from a form).
1585: -- However, if we are called from the payroll action level,
1677: --
1678: begin
1679: --
1680: if g_debug then
1681: c_indent := 'py_rollback_pkg.do_assact_rollback';
1682: hr_utility.set_location(c_indent, 10);
1683: hr_utility.set_location('p_info.assact_id'||p_info.assact_id,11);
1684: hr_utility.set_location('p_info.action_date'||p_info.action_date,12);
1685: hr_utility.set_location('p_info.pact_id'||p_info.pact_id,13);
1948: -- Obtain information about this assignment action which we will
1949: -- need later on.
1950: -- Some of this is required for messages.
1951: if g_debug then
1952: c_indent := 'py_rollback_pkg.val_assact_rollback';
1953: hr_utility.trace('assact_id : ' || p_info.assact_id);
1954: end if;
1955: --
1956: -- OK We need to run different statements for different types
2437: c_indent varchar2(40);
2438: message_text pay_message_lines.line_text%type;
2439: begin
2440: if g_debug then
2441: c_indent := 'py_rollback_pkg.assact_error';
2442: hr_utility.set_location(c_indent, 10);
2443: end if;
2444: --
2445: -- handle the assignment action level error.
2508: range_info range_rec;
2509: c_indent varchar2(40);
2510: begin
2511: if g_debug then
2512: c_indent := 'py_rollback_pkg.next_range';
2513: hr_utility.set_location(c_indent, 1);
2514: end if;
2515: -- select a range row for update.
2516: begin
3053: l_date_earned date;
3054: begin
3055: g_debug := hr_utility.debug_enabled;
3056: if g_debug then
3057: c_indent := 'py_rollback_pkg.rollback_payroll_action';
3058: hr_utility.set_location(c_indent, 5);
3059: end if;
3060: -- set up the parameters.
3061: info.rollback_mode := p_rollback_mode;
3263: begin
3264: g_debug := hr_utility.debug_enabled;
3265: -- need to know the payroll action.
3266: if g_debug then
3267: c_indent := 'py_rollback_pkg.rollback_ass_action';
3268: hr_utility.set_location(c_indent, 10);
3269: end if;
3270: select act.payroll_action_id, act.source_action_id, act.object_type
3271: into info.pact_id, src_action_id, info.object_type
3418: -- whole payroll action or assignment action by
3419: -- assignment action.
3420: g_error_count := 0;
3421: -- hr_utility.trace_on(null, 'ORACLE');
3422: end py_rollback_pkg;