[Home] [Help]
55: ending_person number
56: );
57: --
58: g_error_count number;
59: g_debug boolean := hr_utility.debug_enabled;
60: --
61: -- cache variables
62: mtgl_mode pay_action_parameters.parameter_value%type;
63: mtgl_mode_cached boolean := false;
241: and pee.creator_type = 'P';
242: begin
243: if g_debug then
244: c_indent := 'py_rollback_pkg.remove_retro_ee';
245: hr_utility.set_location(c_indent,10);
246: end if;
247: --
248: /* Delete the entry values before the element entry */
249: for ceevrec in ceev loop
256: and element_entry_id = ceevrec.element_entry_id;
257: end loop;
258: --
259: if g_debug then
260: hr_utility.set_location(c_indent,20);
261: end if;
262: end remove_retro_ee;
263: --
264: /*
277: and pee.creator_type = 'D';
278: begin
279: if g_debug then
280: c_indent := 'py_rollback_pkg.remove_adv_ee';
281: hr_utility.set_location(c_indent,10);
282: end if;
283: --
284: /* Delete the entry values before the element entry */
285: for aeevrec in aeev loop
292: and element_entry_id = aeevrec.element_entry_id;
293: end loop;
294: --
295: if g_debug then
296: hr_utility.set_location(c_indent,20);
297: end if;
298: end remove_adv_ee;
299: --
300: -- Procedure to remove advance pay by element entries.
311: and pee.creator_type in ('AD', 'AE','D');
312: begin
313: if g_debug then
314: c_indent := 'py_rollback_pkg.remove_advpayele_ee';
315: hr_utility.set_location(c_indent,10);
316: end if;
317: --
318: /* Delete the entry values before the element entry */
319: for aeevrec in aeev loop
326: and element_entry_id = aeevrec.element_entry_id;
327: end loop;
328: --
329: if g_debug then
330: hr_utility.set_location(c_indent,20);
331: end if;
332: end remove_advpayele_ee;
333: --
334: -- Procedure to remove retropay by action entries.
344: and pee.creator_type = 'R';
345: begin
346: if g_debug then
347: c_indent := 'py_rollback_pkg.remove_retroact_ee';
348: hr_utility.set_location(c_indent,10);
349: end if;
350: --
351: /* Delete the entry values before the element entry */
352: for raeevrec in raeev loop
359: and element_entry_id = raeevrec.element_entry_id;
360: end loop;
361: --
362: if g_debug then
363: hr_utility.set_location(c_indent,20);
364: end if;
365: end remove_retroact_ee;
366: --
367: -- Procedure to remove retropay by element_entries.
387: --
388: begin
389: if g_debug then
390: c_indent := 'py_rollback_pkg.remove_retroele_ee';
391: hr_utility.set_location(c_indent,10);
392: end if;
393: --
394: /* Delete the entry values before the element entry */
395: for eev_rec in remove_eev loop
404: and creator_type in ('RR', 'EE', 'NR', 'PR')
405: and element_entry_id = eev_rec.element_entry_id;
406: end loop;
407: --
408: hr_utility.set_location(c_indent,20);
409: -- Finally reset the pay_retro_assignment_table if needed
410: if (p_rollback_mode <> 'RETRY') then
411: --
412: pay_retro_pkg.merge_retro_assignments(p_assact_id);
410: if (p_rollback_mode <> 'RETRY') then
411: --
412: pay_retro_pkg.merge_retro_assignments(p_assact_id);
413: --
414: hr_utility.set_location(c_indent,30);
415: -- Remove or reset row on pay_recorded_requests
416: --
417: hr_utility.set_location(c_indent,40);
418: pay_retro_pkg.reset_recorded_request(p_assact_id);
413: --
414: hr_utility.set_location(c_indent,30);
415: -- Remove or reset row on pay_recorded_requests
416: --
417: hr_utility.set_location(c_indent,40);
418: pay_retro_pkg.reset_recorded_request(p_assact_id);
419: hr_utility.set_location(c_indent,50);
420: --
421: -- Remove the asg act id, and in case merge has new earlier entries
415: -- Remove or reset row on pay_recorded_requests
416: --
417: hr_utility.set_location(c_indent,40);
418: pay_retro_pkg.reset_recorded_request(p_assact_id);
419: hr_utility.set_location(c_indent,50);
420: --
421: -- Remove the asg act id, and in case merge has new earlier entries
422: -- also change the reprocess_date
423: open min_reprocess_date;
431:
432: end if;
433: --
434: if g_debug then
435: hr_utility.set_location(c_indent,20);
436: end if;
437: --
438: end remove_retroele_ee;
439: --
446: --
447: begin
448: if g_debug then
449: c_indent := 'py_rollback_pkg.remove_gl_entries';
450: hr_utility.set_location(c_indent, 10);
451: end if;
452: --
453: if mtgl_mode_cached = FALSE then
454: if g_debug then
451: end if;
452: --
453: if mtgl_mode_cached = FALSE then
454: if g_debug then
455: hr_utility.set_location(c_indent, 20);
456: end if;
457: begin
458: select upper(parameter_value)
459: into mtgl_mode
464: mtgl_mode := 'Y';
465: end;
466: --
467: if g_debug then
468: hr_utility.set_location(c_indent, 30);
469: end if;
470: -- Remove transfer table rows once only
471: -- first of all get source_name
472: select user_je_source_name
474: from gl_je_sources
475: where je_source_name = 'Payroll';
476: --
477: if g_debug then
478: hr_utility.set_location(c_indent, 35);
479: end if;
480: delete from gl_interface gl
481: where gl.reference21 = to_char(p_info.pact_id)
482: and gl.user_je_source_name = l_source_name;
487: if mtgl_mode <> 'N' then
488: -- Remove intermediate transfer table rows
489: -- for multi-threaded transfer to General Ledger only
490: if g_debug then
491: hr_utility.set_location(c_indent, 40);
492: end if;
493: delete from pay_gl_interface pgl
494: where pgl.assignment_action_id = p_info.assact_id;
495: end if;
552: -- delete statement.
553: -- Tight loop, so the set_location call set outside it.
554: if g_debug then
555: c_indent := 'py_rollback_pkg.remove_run_results';
556: hr_utility.set_location(c_indent,10);
557: end if;
558: --
559: purge_rr := TRUE;
560: if (p_info.rollback_mode = 'BACKPAY'
570: where rrv.run_result_id = crrvrec.run_result_id;
571: end loop;
572: --
573: if g_debug then
574: hr_utility.set_location(c_indent,30);
575: end if;
576: delete from pay_run_results RR
577: where RR.assignment_action_id = p_info.assact_id;
578: --
578: --
579: else
580: --
581: if g_debug then
582: hr_utility.set_location(c_indent,40);
583: end if;
584: -- It must be a backpay.
585: update pay_run_results RR
586: set RR.status = 'B'
595: c_indent varchar2(40);
596: begin
597: if g_debug then
598: c_indent := 'py_rollback_pkg.remove_action_contexts';
599: hr_utility.set_location(c_indent,10);
600: end if;
601: --
602: delete from pay_action_contexts
603: where assignment_action_id = p_assact_id;
602: delete from pay_action_contexts
603: where assignment_action_id = p_assact_id;
604: --
605: if g_debug then
606: hr_utility.set_location(c_indent,30);
607: end if;
608: end remove_action_contexts;
609: --
610: /*
737: -- the balance context table.
738:
739: if g_debug then
740: c_indent := 'py_rollback_pkg.remove_balances';
741: hr_utility.set_location(c_indent,10);
742: end if;
743: if (p_info.action_type in ('B', 'I', 'V')) then
744: -- treat balance adjustment as a special case : we should
745: -- delete all latest balances for an assignment if its having
755: and p_info.action_date between
756: effective_start_date and effective_end_date;
757:
758: if g_debug then
759: hr_utility.set_location(c_indent,15);
760: end if;
761:
762: if (p_info.single_bal_table <> 'Y') then
763:
874: end if; /* single_bal_table */
875:
876: else
877: if g_debug then
878: hr_utility.set_location(c_indent,90);
879: end if;
880:
881: if (p_info.single_bal_table <> 'Y') then
882:
913: end loop;
914:
915:
916: if g_debug then
917: hr_utility.set_location(c_indent,100);
918: end if;
919: for cplbrec in cplb loop
920: if (cplbrec.prev_balance_value=-9999 or
921: cplbrec.prev_balance_value is NULL or
1007: and p_action_date between
1008: pee.effective_start_date and pee.effective_end_date;
1009: begin
1010: if g_debug then
1011: hr_utility.set_location('undo_bal_adjust', 60);
1012: end if;
1013: for c1rec in c1 loop
1014: -- Now, we attempt to delete the entry values.
1015: delete from pay_element_entry_values_f pev
1027: and p_action_date between
1028: pee.effective_start_date and pee.effective_end_date;
1029: end loop;
1030: if g_debug then
1031: hr_utility.set_location('undo_bal_adjust', 70);
1032: end if;
1033: --
1034: end undo_bal_adjust;
1035: --
1063: --
1064: -- get payroll action level information
1065: if g_debug then
1066: c_indent := 'py_rollback_pkg.get_pact_info';
1067: hr_utility.set_location(c_indent, 10);
1068: end if;
1069: select pac.business_group_id,
1070: pac.effective_date,
1071: pac.start_date,
1111: and pay.payroll_id (+) = pac.payroll_id
1112: and pac.effective_date between
1113: pay.effective_start_date (+) and pay.effective_end_date (+);
1114: if g_debug then
1115: hr_utility.trace('action type is ' || p_info.action_type );
1116: end if;
1117: --
1118: --
1119: -- legislation information.
1138: from pay_action_classifications CLASS
1139: where CLASS.action_type = p_info.action_type
1140: and CLASS.classification_name = 'SEQUENCED';
1141: if g_debug then
1142: hr_utility.trace('this action type IS sequenced');
1143: end if;
1144: exception
1145: when no_data_found then
1146: p_info.sequenced_flag := FALSE;
1144: exception
1145: when no_data_found then
1146: p_info.sequenced_flag := FALSE;
1147: if g_debug then
1148: hr_utility.trace('this action type NOT sequenced');
1149: end if;
1150: end;
1151: --
1152: /* get the object Types for this payroll_action */
1183: l_source_id number;
1184: l_source_type pay_message_lines.source_type%type;
1185: l_action_name hr_lookups.meaning%type;
1186: begin
1187: g_debug := hr_utility.debug_enabled;
1188: if g_debug then
1189: c_indent := 'py_rollback_pkg.ins_rollback_message';
1190: hr_utility.set_location(c_indent, 10);
1191: end if;
1186: begin
1187: g_debug := hr_utility.debug_enabled;
1188: if g_debug then
1189: c_indent := 'py_rollback_pkg.ins_rollback_message';
1190: hr_utility.set_location(c_indent, 10);
1191: end if;
1192: -- Set up a message for either rollback at assignment or
1193: -- payroll action level.
1194: if(p_level = 'A') then
1191: end if;
1192: -- Set up a message for either rollback at assignment or
1193: -- payroll action level.
1194: if(p_level = 'A') then
1195: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1196: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1197: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1198: hr_utility.set_message_token
1199: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1192: -- Set up a message for either rollback at assignment or
1193: -- payroll action level.
1194: if(p_level = 'A') then
1195: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1196: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1197: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1198: hr_utility.set_message_token
1199: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1200: --
1193: -- payroll action level.
1194: if(p_level = 'A') then
1195: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1196: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1197: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1198: hr_utility.set_message_token
1199: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1200: --
1201: -- Message will insert at payroll action level.
1194: if(p_level = 'A') then
1195: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1196: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1197: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1198: hr_utility.set_message_token
1199: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1200: --
1201: -- Message will insert at payroll action level.
1202: l_source_id := p_info.pact_id;
1208: -- For Magnetic Transfer, the action name must be taken
1209: -- from the Payment Type Name (i.e. BACS, NACHA etc).
1210: if(p_info.action_type = 'M') then
1211: if g_debug then
1212: hr_utility.set_location(c_indent, 90);
1213: end if;
1214: select ppt.payment_type_name
1215: into l_action_name
1216: from pay_payroll_actions pac,
1223: --
1224: -- The message we set up depends on whether or not the
1225: -- Payroll Action is restricted or unrestricted.
1226: if(p_info.payroll_name is null) then
1227: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
1228: else
1229: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
1230: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1231: end if;
1225: -- Payroll Action is restricted or unrestricted.
1226: if(p_info.payroll_name is null) then
1227: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
1228: else
1229: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
1230: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1231: end if;
1232: --
1233: -- Common message tokens.
1226: if(p_info.payroll_name is null) then
1227: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
1228: else
1229: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
1230: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1231: end if;
1232: --
1233: -- Common message tokens.
1234: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1230: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1231: end if;
1232: --
1233: -- Common message tokens.
1234: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1235: hr_utility.set_message_token('BG_NAME',p_info.bg_name);
1236: hr_utility.set_message_token('SYSDATE',
1237: fnd_date.date_to_canonical(p_info.current_date));
1238: --
1231: end if;
1232: --
1233: -- Common message tokens.
1234: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1235: hr_utility.set_message_token('BG_NAME',p_info.bg_name);
1236: hr_utility.set_message_token('SYSDATE',
1237: fnd_date.date_to_canonical(p_info.current_date));
1238: --
1239: -- Message will insert at business group level.
1232: --
1233: -- Common message tokens.
1234: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1235: hr_utility.set_message_token('BG_NAME',p_info.bg_name);
1236: hr_utility.set_message_token('SYSDATE',
1237: fnd_date.date_to_canonical(p_info.current_date));
1238: --
1239: -- Message will insert at business group level.
1240: l_source_id := p_info.bg_id;
1241: l_source_type := 'B';
1242: end if; --- rollback level.
1243: --
1244: -- Get text of message we have set up.
1245: l_line_text := substrb(hr_utility.get_message, 1, 240);
1246: --
1247: -- Write message into message lines table.
1248: if g_debug then
1249: hr_utility.set_location(c_indent, 10);
1245: l_line_text := substrb(hr_utility.get_message, 1, 240);
1246: --
1247: -- Write message into message lines table.
1248: if g_debug then
1249: hr_utility.set_location(c_indent, 10);
1250: end if;
1251: insert into pay_message_lines (
1252: line_sequence,
1253: payroll_id,
1308: begin
1309: -- Select some information about the entry we are operating on.
1310: if g_debug then
1311: c_indent := 'py_rollback_pkg.undo_stop_update';
1312: hr_utility.set_location(c_indent, 10);
1313: end if;
1314: select pee.effective_start_date,
1315: pee.effective_end_date,
1316: pee.original_entry_id,
1330: -- For undo update, we have to get next effective start date.
1331: if(p_mode = 'DELETE_NEXT_CHANGE') then
1332: begin
1333: if g_debug then
1334: hr_utility.set_location(c_indent, 20);
1335: end if;
1336: select min(ee.effective_end_date)
1337: into next_end
1338: from pay_element_entries_f ee
1365: exception
1366: -- Several error messages can be raised from this procedure.
1367: -- We wish to trap a number of them, as they should be ignored
1368: -- for our purposes.
1369: when hr_utility.hr_error then
1370: hr_utility.get_message_details(message,applid);
1371: --
1372: if(message in ('HR_7699_ELE_ENTRY_REC_EXISTS',
1373: 'HR_7700_ELE_ENTRY_REC_EXISTS',
1366: -- Several error messages can be raised from this procedure.
1367: -- We wish to trap a number of them, as they should be ignored
1368: -- for our purposes.
1369: when hr_utility.hr_error then
1370: hr_utility.get_message_details(message,applid);
1371: --
1372: if(message in ('HR_7699_ELE_ENTRY_REC_EXISTS',
1373: 'HR_7700_ELE_ENTRY_REC_EXISTS',
1374: 'HR_6281_ELE_ENTRY_DT_DEL_LINK',
1376: 'HR_6284_ELE_ENTRY_DT_ASG_DEL')
1377: ) then
1378: -- We cannot extend the entry.
1379: if g_debug then
1380: hr_utility.set_location(c_indent, 25);
1381: end if;
1382: if(p_mode = 'DELETE_NEXT_CHANGE') then
1383: update pay_element_entries_f ee
1384: set updating_action_id=NULL
1400: end;
1401: --
1402: -- Process the delete of element entries.
1403: if(p_mode = 'DELETE_NEXT_CHANGE') then
1404: hr_utility.set_location(c_indent, 40);
1405: delete from pay_element_entries_f ee
1406: where ee.element_entry_id = p_ee_id
1407: and ee.effective_start_date = val_start;
1408: --
1405: delete from pay_element_entries_f ee
1406: where ee.element_entry_id = p_ee_id
1407: and ee.effective_start_date = val_start;
1408: --
1409: hr_utility.set_location(c_indent, 45);
1410: delete from pay_element_entry_values_f eev
1411: where eev.element_entry_id = p_ee_id
1412: and eev.effective_start_date = val_start;
1413: --
1410: delete from pay_element_entry_values_f eev
1411: where eev.element_entry_id = p_ee_id
1412: and eev.effective_start_date = val_start;
1413: --
1414: hr_utility.set_location(c_indent, 50);
1415: update pay_element_entries_f ee
1416: set ee.effective_end_date = next_end
1417: where ee.element_entry_id = p_ee_id
1418: and ee.effective_start_date = effstart;
1416: set ee.effective_end_date = next_end
1417: where ee.element_entry_id = p_ee_id
1418: and ee.effective_start_date = effstart;
1419: --
1420: hr_utility.set_location(c_indent, 55);
1421: update pay_element_entry_values_f eev
1422: set eev.effective_end_date = next_end
1423: where eev.element_entry_id = p_ee_id
1424: and eev.effective_start_date = effstart;
1424: and eev.effective_start_date = effstart;
1425: --
1426: elsif(p_mode = 'FUTURE_CHANGE') then
1427: --
1428: hr_utility.set_location(c_indent, 60);
1429: delete from pay_element_entries_f ee
1430: where ee.element_entry_id = p_ee_id
1431: and ee.effective_start_date > effstart;
1432: --
1429: delete from pay_element_entries_f ee
1430: where ee.element_entry_id = p_ee_id
1431: and ee.effective_start_date > effstart;
1432: --
1433: hr_utility.set_location(c_indent, 65);
1434: delete from pay_element_entry_values_f eev
1435: where eev.element_entry_id = p_ee_id
1436: and eev.effective_start_date > effstart;
1437: --
1434: delete from pay_element_entry_values_f eev
1435: where eev.element_entry_id = p_ee_id
1436: and eev.effective_start_date > effstart;
1437: --
1438: hr_utility.set_location(c_indent, 70);
1439: update pay_element_entries_f ee
1440: set ee.effective_end_date = max_end,
1441: ee.updating_action_id=NULL,
1442: ee.updating_action_type=NULL
1459: and ee.effective_start_date = effstart;
1460: end if;
1461: /*End of BUG#6200530*/
1462: --
1463: hr_utility.set_location(c_indent, 75);
1464: update pay_element_entry_values_f eev
1465: set eev.effective_end_date = max_end
1466: where eev.element_entry_id = p_ee_id
1467: and eev.effective_start_date = effstart;
1531: v_max_date date; -- maximum entry end date
1532: begin
1533: if g_debug then
1534: c_indent := 'py_rollback_pkg.proc_entry_dml';
1535: hr_utility.set_location(c_indent,90);
1536: end if;
1537: -- Begin by processing for stop entry dml.
1538: for stprec in stp loop
1539:
1541: then
1542: -- We may have a stopped entry, but we need to
1543: -- see if this really is the case.
1544: if g_debug then
1545: hr_utility.set_location(c_indent,90);
1546: end if;
1547: select max(pee.effective_end_date)
1548: into v_max_date
1549: from pay_element_entries_f pee
1591: -- we must process the assignment action row.
1592: if(not p_info.leave_row or p_info.rollback_level = 'P') then
1593: if(p_info.rollback_mode) = 'RETRY' then
1594: if g_debug then
1595: hr_utility.set_location(c_indent, 10);
1596: end if;
1597: --
1598: update pay_assignment_actions
1599: set action_status = 'M'
1604: where assignment_action_id = p_info.assact_id;
1605: --
1606: elsif(p_info.rollback_mode) = 'BACKPAY' then
1607: if g_debug then
1608: hr_utility.set_location(c_indent, 20);
1609: end if;
1610: --
1611: update pay_assignment_actions
1612: set action_status = 'B'
1619: elsif(p_info.rollback_mode) = 'ROLLBACK' then
1620: -- there may be pay_action_interlock rows.
1621: -- which are locking other assignment actions.
1622: if g_debug then
1623: hr_utility.set_location(c_indent, 30);
1624: end if;
1625: delete from pay_action_interlocks lck
1626: where lck.locking_action_id = p_info.assact_id;
1627: --
1701: begin
1702: --
1703: if g_debug then
1704: c_indent := 'py_rollback_pkg.do_assact_rollback';
1705: hr_utility.set_location(c_indent, 10);
1706: hr_utility.set_location('p_info.assact_id'||p_info.assact_id,11);
1707: hr_utility.set_location('p_info.action_date'||p_info.action_date,12);
1708: hr_utility.set_location('p_info.pact_id'||p_info.pact_id,13);
1709: end if;
1702: --
1703: if g_debug then
1704: c_indent := 'py_rollback_pkg.do_assact_rollback';
1705: hr_utility.set_location(c_indent, 10);
1706: hr_utility.set_location('p_info.assact_id'||p_info.assact_id,11);
1707: hr_utility.set_location('p_info.action_date'||p_info.action_date,12);
1708: hr_utility.set_location('p_info.pact_id'||p_info.pact_id,13);
1709: end if;
1710: --
1703: if g_debug then
1704: c_indent := 'py_rollback_pkg.do_assact_rollback';
1705: hr_utility.set_location(c_indent, 10);
1706: hr_utility.set_location('p_info.assact_id'||p_info.assact_id,11);
1707: hr_utility.set_location('p_info.action_date'||p_info.action_date,12);
1708: hr_utility.set_location('p_info.pact_id'||p_info.pact_id,13);
1709: end if;
1710: --
1711: -- Firstly remove any child actions.
1704: c_indent := 'py_rollback_pkg.do_assact_rollback';
1705: hr_utility.set_location(c_indent, 10);
1706: hr_utility.set_location('p_info.assact_id'||p_info.assact_id,11);
1707: hr_utility.set_location('p_info.action_date'||p_info.action_date,12);
1708: hr_utility.set_location('p_info.pact_id'||p_info.pact_id,13);
1709: end if;
1710: --
1711: -- Firstly remove any child actions.
1712: chld_info := p_info;
1733: if (purge_child = TRUE) then
1734: delete from pay_action_interlocks
1735: where locking_action_id = chld_info.assact_id;
1736: if g_debug then
1737: hr_utility.set_location('About to remove assg actions' , 11);
1738: end if;
1739: delete from pay_assignment_actions
1740: where assignment_action_id = chld_info.assact_id;
1741: end if;
1811: elsif(p_info.action_type in ('P', 'U')) then
1812: -- Remove pre-payment rows.
1813: -- Note, this causes cascade delete of pay_coin_anal_elements.
1814: if g_debug then
1815: hr_utility.set_location('Error abt to occur', 13);
1816: end if;
1817: delete from pay_pre_payments ppp
1818: where ppp.assignment_action_id = p_info.assact_id;
1819: --
1819: --
1820: elsif(p_info.action_type in ('C', 'S', 'EC')) then
1821: -- Remove costing rows.
1822: if g_debug then
1823: hr_utility.set_location(c_indent, 20);
1824: end if;
1825: --Bug 11708644, PAYROLL/PROJECTS INTEGRATION changes FOR 12.2 starts here
1826: -- Check for transfered_to_prj flag.
1827: SELECT count(DECODE(transfered_to_prj,'Y','YES',NULL)) AS prj_flg_yes_count,
1831: from pay_costs pc
1832: where pc.assignment_action_id = p_info.assact_id;
1833: --
1834: if(v_prj_flg_yes_count <> 0) then
1835: hr_utility.set_message(801, 'PAY_449895_STP_RETRY_RLBK_COST');
1836: hr_utility.set_message_token('ASGN_ID', p_info.assignment_number);
1837: hr_utility.raise_error;
1838: elsif(v_prj_flg_no_count <> 0 OR v_prj_flg_x_count <> 0) then
1839: --
1832: where pc.assignment_action_id = p_info.assact_id;
1833: --
1834: if(v_prj_flg_yes_count <> 0) then
1835: hr_utility.set_message(801, 'PAY_449895_STP_RETRY_RLBK_COST');
1836: hr_utility.set_message_token('ASGN_ID', p_info.assignment_number);
1837: hr_utility.raise_error;
1838: elsif(v_prj_flg_no_count <> 0 OR v_prj_flg_x_count <> 0) then
1839: --
1840: if g_debug then
1833: --
1834: if(v_prj_flg_yes_count <> 0) then
1835: hr_utility.set_message(801, 'PAY_449895_STP_RETRY_RLBK_COST');
1836: hr_utility.set_message_token('ASGN_ID', p_info.assignment_number);
1837: hr_utility.raise_error;
1838: elsif(v_prj_flg_no_count <> 0 OR v_prj_flg_x_count <> 0) then
1839: --
1840: if g_debug then
1841: hr_utility.set_location(c_indent, 21);
1837: hr_utility.raise_error;
1838: elsif(v_prj_flg_no_count <> 0 OR v_prj_flg_x_count <> 0) then
1839: --
1840: if g_debug then
1841: hr_utility.set_location(c_indent, 21);
1842: end if;
1843: --
1844: -- First get personid, time_period_id, these are needed by projects
1845: open get_person_id(p_info.assignment_id,p_info.action_date);
1859: P_ASSIGNMENT_ID => p_info.assignment_id,
1860: X_RETURN_STATUS => v_return_status
1861: );
1862: if g_debug then
1863: hr_utility.trace('Return status of projects audit API: ' || v_return_status);
1864: end if;
1865: -- Perform actual rollback
1866: delete from pay_costs pc
1867: where pc.assignment_action_id = p_info.assact_id;
1868: --
1869: ELSE
1870: --
1871: if g_debug then
1872: hr_utility.set_location(c_indent, 22);
1873: end if;
1874: -- Perform only rollback
1875: delete from pay_costs pc
1876: where pc.assignment_action_id = p_info.assact_id;
1876: where pc.assignment_action_id = p_info.assact_id;
1877: --
1878: end if;
1879: if g_debug then
1880: hr_utility.set_location(c_indent, 25);
1881: end if;
1882: --Bug 11708644, PAYROLL/PROJECTS INTEGRATION changes FOR 12.2 end here
1883: --
1884: elsif(p_info.action_type = 'CP') then
1979: -- When we are rolling back QuickPay, we need to
1980: -- remove the QuickPay Inclusions.
1981: if(p_info.action_type = 'Q') then
1982: if g_debug then
1983: hr_utility.set_location(c_indent, 30);
1984: end if;
1985: --
1986: -- Enhancement 3368211
1987: --
2028: -- need later on.
2029: -- Some of this is required for messages.
2030: if g_debug then
2031: c_indent := 'py_rollback_pkg.val_assact_rollback';
2032: hr_utility.trace('assact_id : ' || p_info.assact_id);
2033: end if;
2034: --
2035: -- OK We need to run different statements for different types
2036: -- of processes
2034: --
2035: -- OK We need to run different statements for different types
2036: -- of processes
2037: --
2038: hr_utility.set_location(c_indent, 10);
2039: if ((p_info.action_type = 'L'
2040: and p_info.object_type = 'POG')
2041: or p_info.object_type is not null
2042: ) then
2042: ) then
2043: --
2044: if (p_info.action_type = 'L') then
2045: --
2046: hr_utility.set_location(c_indent, 20);
2047: -- OK this is a retropay that using the Object Group
2048: -- actions
2049: select null,
2050: ACT.action_sequence,
2073: and p_info.action_date between
2074: PEO.effective_start_date and PEO.effective_end_date;
2075: else
2076: --
2077: hr_utility.set_location(c_indent, 30);
2078: -- OK its some sort of object action
2079: select null,
2080: ACT.action_sequence,
2081: ACT.action_status,
2098: end if;
2099: --
2100: else
2101: --
2102: hr_utility.set_location(c_indent, 40);
2103: -- It's a normal action
2104: --
2105: select ACT.assignment_id,
2106: ACT.action_sequence,
2170: and p_info.action_date between
2171: PEO.effective_start_date and PEO.effective_end_date));
2172: end if;
2173: --
2174: hr_utility.set_location(c_indent, 50);
2175: --
2176: -- for Purge, we simply wish to confirm that we are not
2177: -- attempting to rollback an assignment action that has
2178: -- a 'C' secondary status. If everything ok, we simpy
2178: -- a 'C' secondary status. If everything ok, we simpy
2179: -- exit this procedure.
2180: if(p_info.action_type = 'Z') then
2181: if(l_sec_status = 'C') then
2182: hr_utility.set_message(801, 'PAY_289118_PUR_NACT_ROLLBACK');
2183: hr_utility.raise_error;
2184: end if;
2185: --
2186: if g_debug then
2179: -- exit this procedure.
2180: if(p_info.action_type = 'Z') then
2181: if(l_sec_status = 'C') then
2182: hr_utility.set_message(801, 'PAY_289118_PUR_NACT_ROLLBACK');
2183: hr_utility.raise_error;
2184: end if;
2185: --
2186: if g_debug then
2187: hr_utility.trace('Purge act : exit');
2183: hr_utility.raise_error;
2184: end if;
2185: --
2186: if g_debug then
2187: hr_utility.trace('Purge act : exit');
2188: end if;
2189: return;
2190: end if;
2191: --
2191: --
2192: -- can only retry if already complete
2193: if(p_info.rollback_mode = 'RETRY' and l_action_status not in ('C', 'S'))
2194: then
2195: hr_utility.set_message (801, 'HR_7506_ACTION_RET_NOT_COMP');
2196: hr_utility.set_message_token ('ASG_NO', p_info.assignment_number);
2197: hr_utility.raise_error;
2198: end if;
2199: --
2192: -- can only retry if already complete
2193: if(p_info.rollback_mode = 'RETRY' and l_action_status not in ('C', 'S'))
2194: then
2195: hr_utility.set_message (801, 'HR_7506_ACTION_RET_NOT_COMP');
2196: hr_utility.set_message_token ('ASG_NO', p_info.assignment_number);
2197: hr_utility.raise_error;
2198: end if;
2199: --
2200: --
2193: if(p_info.rollback_mode = 'RETRY' and l_action_status not in ('C', 'S'))
2194: then
2195: hr_utility.set_message (801, 'HR_7506_ACTION_RET_NOT_COMP');
2196: hr_utility.set_message_token ('ASG_NO', p_info.assignment_number);
2197: hr_utility.raise_error;
2198: end if;
2199: --
2200: --
2201: --
2230: -- been 'Marked for Retry' then the locked action cannot be
2231: -- 'Marked for Retry'.
2232: --
2233: if g_debug then
2234: hr_utility.set_location(c_indent, 20);
2235: end if;
2236: select null
2237: into dummy
2238: from dual
2256: -- Case for ROLLBACK mode.
2257: -- Check that the assignment action we are attempting to
2258: -- roll back is not locked by an assignment action.
2259: if g_debug then
2260: hr_utility.set_location(c_indent, 30);
2261: hr_utility.trace('Case for ROLLBACK mode');
2262: hr_utility.trace('before checking for interlocking in action interlocks');
2263: end if;
2264: select null
2257: -- Check that the assignment action we are attempting to
2258: -- roll back is not locked by an assignment action.
2259: if g_debug then
2260: hr_utility.set_location(c_indent, 30);
2261: hr_utility.trace('Case for ROLLBACK mode');
2262: hr_utility.trace('before checking for interlocking in action interlocks');
2263: end if;
2264: select null
2265: into dummy
2258: -- roll back is not locked by an assignment action.
2259: if g_debug then
2260: hr_utility.set_location(c_indent, 30);
2261: hr_utility.trace('Case for ROLLBACK mode');
2262: hr_utility.trace('before checking for interlocking in action interlocks');
2263: end if;
2264: select null
2265: into dummy
2266: from dual
2292: -- For ROLLBACK (and BACKPAY):
2293: -- disallow rollback assignment action if there are
2294: -- future SEQUENCED assignment actions for the assignment.
2295: if g_debug then
2296: hr_utility.trace('The p_info.independent_periods_flag is Y');
2297: hr_utility.set_location(c_indent, 40);
2298: end if;
2299: --
2300: if (p_info.rollback_mode = 'RETRY')
2293: -- disallow rollback assignment action if there are
2294: -- future SEQUENCED assignment actions for the assignment.
2295: if g_debug then
2296: hr_utility.trace('The p_info.independent_periods_flag is Y');
2297: hr_utility.set_location(c_indent, 40);
2298: end if;
2299: --
2300: if (p_info.rollback_mode = 'RETRY')
2301: then
2329: and NVL(PACT.legislative_parameters,'TEST') <> 'PAY_SIM');
2330: end if;
2331: --
2332: elsif (p_info.independent_periods_flag = 'G') then
2333: hr_utility.trace('The p_info.independent_periods_flag is G');
2334: --
2335: -- There are 2 Types of processes here. They are
2336: -- either processing at the assignment level but
2337: -- doing Group interlocking or are processing
2435: --
2436: else
2437: -- check for other actions on this PERSON.
2438: if g_debug then
2439: hr_utility.set_location(c_indent, 50);
2440: hr_utility.trace('case where p_info.independent_periods_flag is N');
2441: end if;
2442: --
2443: --
2436: else
2437: -- check for other actions on this PERSON.
2438: if g_debug then
2439: hr_utility.set_location(c_indent, 50);
2440: hr_utility.trace('case where p_info.independent_periods_flag is N');
2441: end if;
2442: --
2443: --
2444: if (p_info.rollback_mode = 'RETRY')
2505: exception
2506: when no_data_found then
2507: -- Catch all interlock failure message.
2508: if p_info.legislation_code = 'GB' then
2509: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2510: else
2511: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2512: end if;
2513: hr_utility.raise_error;
2507: -- Catch all interlock failure message.
2508: if p_info.legislation_code = 'GB' then
2509: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2510: else
2511: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2512: end if;
2513: hr_utility.raise_error;
2514: end;
2515: end val_assact_rollback;
2509: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2510: else
2511: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2512: end if;
2513: hr_utility.raise_error;
2514: end;
2515: end val_assact_rollback;
2516: --
2517: /*
2526: message_text pay_message_lines.line_text%type;
2527: begin
2528: if g_debug then
2529: c_indent := 'py_rollback_pkg.assact_error';
2530: hr_utility.set_location(c_indent, 10);
2531: end if;
2532: --
2533: -- handle the assignment action level error.
2534: -- get the message text to write. Need to get it
2532: --
2533: -- handle the assignment action level error.
2534: -- get the message text to write. Need to get it
2535: -- in diffferent ways for oracle and user errors.
2536: if(error_code = hr_utility.hr_error_number)
2537: then
2538: -- specific exception raised.
2539: message_text := substrb(hr_utility.get_message, 1, 240);
2540: else
2535: -- in diffferent ways for oracle and user errors.
2536: if(error_code = hr_utility.hr_error_number)
2537: then
2538: -- specific exception raised.
2539: message_text := substrb(hr_utility.get_message, 1, 240);
2540: else
2541: -- oracle error.
2542: message_text := error_message;
2543: end if;
2543: end if;
2544: --
2545: -- we can now insert the messge to message lines.
2546: if g_debug then
2547: hr_utility.set_location(c_indent, 10);
2548: end if;
2549: insert into pay_message_lines (
2550: line_sequence,
2551: payroll_id,
2576: commit;
2577: end if;
2578: --
2579: -- raise error to indicate entire process has failed.
2580: hr_utility.set_message (801, 'HR_7269_ASS_TOO_MANY_ERRORS');
2581: hr_utility.raise_error;
2582: end if;
2583: end assact_error;
2584: --
2577: end if;
2578: --
2579: -- raise error to indicate entire process has failed.
2580: hr_utility.set_message (801, 'HR_7269_ASS_TOO_MANY_ERRORS');
2581: hr_utility.raise_error;
2582: end if;
2583: end assact_error;
2584: --
2585: /*
2597: c_indent varchar2(40);
2598: begin
2599: if g_debug then
2600: c_indent := 'py_rollback_pkg.next_range';
2601: hr_utility.set_location(c_indent, 1);
2602: end if;
2603: -- select a range row for update.
2604: begin
2605: if g_debug then
2602: end if;
2603: -- select a range row for update.
2604: begin
2605: if g_debug then
2606: hr_utility.set_location(c_indent, 2);
2607: end if;
2608: select rge.chunk_number,
2609: rge.starting_person_id,
2610: rge.ending_person_id
2615: and rownum < 2
2616: for update of rge.chunk_number;
2617: --
2618: if g_debug then
2619: hr_utility.set_location(c_indent, 3);
2620: end if;
2621: -- If we reach here, we have a range row
2622: -- and we therefore wish to lock it.
2623: update pay_population_ranges pop
2625: where pop.payroll_action_id = p_info.pact_id
2626: and pop.chunk_number = range_info.chunk_number;
2627: --
2628: if g_debug then
2629: hr_utility.set_location(c_indent, 4);
2630: end if;
2631: -- Only commit if we are allowed to.
2632: if(p_info.multi_thread or p_info.dml_mode = 'FULL')
2633: then
2631: -- Only commit if we are allowed to.
2632: if(p_info.multi_thread or p_info.dml_mode = 'FULL')
2633: then
2634: if g_debug then
2635: hr_utility.set_location(c_indent, 5);
2636: end if;
2637: commit;
2638: end if;
2639: exception
2638: end if;
2639: exception
2640: when no_data_found then
2641: if g_debug then
2642: hr_utility.set_location(c_indent, 7);
2643: end if;
2644: range_info.chunk_number := null;
2645: end;
2646: --
2644: range_info.chunk_number := null;
2645: end;
2646: --
2647: if g_debug then
2648: hr_utility.set_location(c_indent, 8);
2649: end if;
2650: return(range_info);
2651: end next_range;
2652: --
2653: procedure perform_act_rollback(p_info in out nocopy rollback_rec)
2654: is
2655: begin
2656: if g_debug then
2657: hr_utility.set_location ('perform_asg_rollback',10);
2658: end if;
2659: --
2660: -- set a savepoint in case we fail.
2661: savepoint before;
2666: -- actually perform the rollback/mark for retry.
2667: do_assact_rollback(p_info);
2668: --
2669: if g_debug then
2670: hr_utility.set_location ('perform_asg_rollback',20);
2671: end if;
2672: -- if succeeded in processing, we reset the
2673: -- error counter, since we only wish to count
2674: -- consecutive errors.
2681: -- message lines before continuing. This is done up to
2682: -- the error limit, then we exit.
2683: when others then
2684: if g_debug then
2685: hr_utility.set_location ('perform_asg_rollback',30);
2686: end if;
2687: rollback to savepoint before; -- throw away any work.
2688: if(p_info.all_or_nothing)
2689: then
2788: --
2789: commit_limit number;
2790: begin
2791: if g_debug then
2792: hr_utility.set_location ('assact_dml',1);
2793: end if;
2794: -- Attempt to get a range to process.
2795: range_info := next_range(p_info);
2796: --
2795: range_info := next_range(p_info);
2796: --
2797: if g_debug then
2798: if g_debug then
2799: hr_utility.trace('max_single_undo = ' || p_info.max_single_undo);
2800: hr_utility.trace('max_errors_allowed = ' || p_info.max_errors_allowed);
2801: hr_utility.set_location ('assact_dml',2);
2802: end if;
2803: end if;
2796: --
2797: if g_debug then
2798: if g_debug then
2799: hr_utility.trace('max_single_undo = ' || p_info.max_single_undo);
2800: hr_utility.trace('max_errors_allowed = ' || p_info.max_errors_allowed);
2801: hr_utility.set_location ('assact_dml',2);
2802: end if;
2803: end if;
2804: -- Continue to process a chunk at a time,
2797: if g_debug then
2798: if g_debug then
2799: hr_utility.trace('max_single_undo = ' || p_info.max_single_undo);
2800: hr_utility.trace('max_errors_allowed = ' || p_info.max_errors_allowed);
2801: hr_utility.set_location ('assact_dml',2);
2802: end if;
2803: end if;
2804: -- Continue to process a chunk at a time,
2805: -- as long as we can lock a range row.
2804: -- Continue to process a chunk at a time,
2805: -- as long as we can lock a range row.
2806: while(range_info.chunk_number is not null)
2807: loop
2808: hr_utility.set_location ('assact_dml',3);
2809: --
2810: /* By default it must be an assignment action */
2811: if (p_info.object_type is null) then
2812: if(p_info.action_type <> 'BEE') then
2839: end if;
2840: --
2841: -- this range row is finished with.
2842: if g_debug then
2843: hr_utility.set_location('assact_dml', 20);
2844: end if;
2845: delete from pay_population_ranges range
2846: where range.payroll_action_id = p_info.pact_id
2847: and range.chunk_number = range_info.chunk_number;
2846: where range.payroll_action_id = p_info.pact_id
2847: and range.chunk_number = range_info.chunk_number;
2848: --
2849: if g_debug then
2850: hr_utility.set_location ('assact_dml',10);
2851: end if;
2852: -- commit our processing, but only if we are
2853: -- mult-threading and dml_mode is appropriate.
2854: -- reset the commit limit to zero.
2858: commit_limit := 0;
2859: end if;
2860: --
2861: if g_debug then
2862: hr_utility.set_location ('assact_dml',11);
2863: end if;
2864: -- Attempt to lock another range.
2865: range_info := next_range(p_info);
2866: end loop;
2865: range_info := next_range(p_info);
2866: end loop;
2867: --
2868: if g_debug then
2869: hr_utility.set_location ('assact_dml',12);
2870: end if;
2871: end assact_dml;
2872: -- --
2873: /*
2879: is
2880: dummy NUMBER;
2881: begin
2882: if g_debug then
2883: hr_utility.set_location('val_pact_rr_rules', 10);
2884: end if;
2885: --
2886: if(p_info.rollback_mode = 'RETRY')
2887: then
2886: if(p_info.rollback_mode = 'RETRY')
2887: then
2888: if(p_info.action_type in ( 'E', 'H', 'D', 'PP'))
2889: then
2890: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
2891: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2892: hr_utility.raise_error;
2893: end if;
2894: end if;
2887: then
2888: if(p_info.action_type in ( 'E', 'H', 'D', 'PP'))
2889: then
2890: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
2891: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2892: hr_utility.raise_error;
2893: end if;
2894: end if;
2895: --
2888: if(p_info.action_type in ( 'E', 'H', 'D', 'PP'))
2889: then
2890: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
2891: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2892: hr_utility.raise_error;
2893: end if;
2894: end if;
2895: --
2896: -- Special check for Purge for both modes.
2907: where act.payroll_action_id = p_info.pact_id
2908: and act.secondary_status = 'C';
2909: --
2910: if(l_complete > 0) then
2911: hr_utility.set_message(801, 'PAY_289020_PUR_CANT_ROLLBACK');
2912: hr_utility.raise_error;
2913: end if;
2914: end;
2915: end if;
2908: and act.secondary_status = 'C';
2909: --
2910: if(l_complete > 0) then
2911: hr_utility.set_message(801, 'PAY_289020_PUR_CANT_ROLLBACK');
2912: hr_utility.raise_error;
2913: end if;
2914: end;
2915: end if;
2916: end val_pact_rr_rules;
2940: and pac.action_type in ('A', 'H', 'M', 'PP');
2941:
2942: begin
2943: if g_debug then
2944: hr_utility.set_location('val_dependant', 18);
2945: end if;
2946:
2947: open chk_dep;
2948: fetch chk_dep into w_payroll_id_1;
2949:
2950: if chk_dep%found
2951: then
2952: if p_info.legislation_code = 'GB' then
2953: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2954: else
2955: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2956: end if;
2957: hr_utility.raise_error;
2951: then
2952: if p_info.legislation_code = 'GB' then
2953: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2954: else
2955: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2956: end if;
2957: hr_utility.raise_error;
2958: end if;
2959:
2953: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2954: else
2955: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2956: end if;
2957: hr_utility.raise_error;
2958: end if;
2959:
2960: close chk_dep;
2961: --
2970: begin
2971: -- Validate the rollback and mark for retry rules for
2972: -- assignment actions.
2973: if g_debug then
2974: hr_utility.set_location('val_assact_rr_rules', 10);
2975: end if;
2976: --
2977: if(p_info.rollback_mode = 'RETRY')
2978: then
2978: then
2979: if(p_info.action_type in ( 'PRU', 'E', 'M', 'H', 'D', 'PP') or
2980: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2981: then
2982: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2983: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2984: hr_utility.raise_error;
2985: end if;
2986: else
2979: if(p_info.action_type in ( 'PRU', 'E', 'M', 'H', 'D', 'PP') or
2980: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2981: then
2982: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2983: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2984: hr_utility.raise_error;
2985: end if;
2986: else
2987: -- !!!! note - temporary change for RN project.
2980: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2981: then
2982: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2983: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2984: hr_utility.raise_error;
2985: end if;
2986: else
2987: -- !!!! note - temporary change for RN project.
2988: -- allow rollback of individual Magnetic Transfer assact.
2988: -- allow rollback of individual Magnetic Transfer assact.
2989: if(p_info.action_type in ('Q', 'U', 'E', 'PRU') or
2990: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2991: then
2992: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2993: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2994: hr_utility.raise_error;
2995: end if;
2996: end if;
2989: if(p_info.action_type in ('Q', 'U', 'E', 'PRU') or
2990: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2991: then
2992: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2993: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2994: hr_utility.raise_error;
2995: end if;
2996: end if;
2997: end val_assact_rr_rules;
2990: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2991: then
2992: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2993: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2994: hr_utility.raise_error;
2995: end if;
2996: end if;
2997: end val_assact_rr_rules;
2998: --
3005: begin
3006: -- where applicable, check that parameters
3007: -- have reasonable values.
3008: if g_debug then
3009: hr_utility.set_location('val_params', 10);
3010: end if;
3011: if(p_info.rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY'))
3012: then
3013: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
3009: hr_utility.set_location('val_params', 10);
3010: end if;
3011: if(p_info.rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY'))
3012: then
3013: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
3014: hr_utility.raise_error;
3015: end if;
3016: --
3017: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
3010: end if;
3011: if(p_info.rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY'))
3012: then
3013: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
3014: hr_utility.raise_error;
3015: end if;
3016: --
3017: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
3018: then
3015: end if;
3016: --
3017: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
3018: then
3019: hr_utility.set_message(801, 'HR_7509_ACTION_BAD_DML_MODE');
3020: hr_utility.raise_error;
3021: end if;
3022: --
3023: -- certain values are illegal if they are combined.
3016: --
3017: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
3018: then
3019: hr_utility.set_message(801, 'HR_7509_ACTION_BAD_DML_MODE');
3020: hr_utility.raise_error;
3021: end if;
3022: --
3023: -- certain values are illegal if they are combined.
3024: -- note that these checks are only applicable to
3046: -- ok, we are single-threading. Need to remove any existing
3047: -- range rows (thought there are unlikely to be any), and
3048: -- then insert a special row.
3049: if g_debug then
3050: hr_utility.set_location('single_thread_range', 10);
3051: end if;
3052: delete from pay_population_ranges range
3053: where range.payroll_action_id = l_payroll_action_id;
3054: --
3052: delete from pay_population_ranges range
3053: where range.payroll_action_id = l_payroll_action_id;
3054: --
3055: if g_debug then
3056: hr_utility.set_location('single_thread_range', 20);
3057: end if;
3058:
3059: if (p_info.object_type is null) then
3060: insert into pay_population_ranges (
3096: group by pac.payroll_action_id;
3097: end if;
3098: --
3099: if g_debug then
3100: hr_utility.set_location('single_thread_range', 30);
3101: end if;
3102: end single_thread_range;
3103: --
3104: /*
3145: where act.payroll_action_id = p_info.pact_id
3146: and rownum < (p_info.max_single_undo + 2);
3147: --
3148: if(action_count > p_info.max_single_undo) then
3149: hr_utility.set_message(801, 'HR_7722_ACTION_COMMIT_LIMIT');
3150: hr_utility.set_message_token('COMMIT_LIMIT',p_info.max_single_undo);
3151: hr_utility.raise_error;
3152: end if;
3153: end val_limit_dml;
3146: and rownum < (p_info.max_single_undo + 2);
3147: --
3148: if(action_count > p_info.max_single_undo) then
3149: hr_utility.set_message(801, 'HR_7722_ACTION_COMMIT_LIMIT');
3150: hr_utility.set_message_token('COMMIT_LIMIT',p_info.max_single_undo);
3151: hr_utility.raise_error;
3152: end if;
3153: end val_limit_dml;
3154: --
3147: --
3148: if(action_count > p_info.max_single_undo) then
3149: hr_utility.set_message(801, 'HR_7722_ACTION_COMMIT_LIMIT');
3150: hr_utility.set_message_token('COMMIT_LIMIT',p_info.max_single_undo);
3151: hr_utility.raise_error;
3152: end if;
3153: end val_limit_dml;
3154: --
3155: /*
3172: info rollback_rec; -- 'global' information.
3173: c_indent varchar2(40);
3174: l_date_earned date;
3175: begin
3176: g_debug := hr_utility.debug_enabled;
3177: if g_debug then
3178: c_indent := 'py_rollback_pkg.rollback_payroll_action';
3179: hr_utility.set_location(c_indent, 5);
3180: end if;
3175: begin
3176: g_debug := hr_utility.debug_enabled;
3177: if g_debug then
3178: c_indent := 'py_rollback_pkg.rollback_payroll_action';
3179: hr_utility.set_location(c_indent, 5);
3180: end if;
3181: -- set up the parameters.
3182: info.rollback_mode := p_rollback_mode;
3183: info.rollback_level := 'P'; -- processing entire Payroll Action.
3233: -- Depending on the dml mode, we may wish to
3234: -- set a savepoint.
3235: if(info.dml_mode = 'NONE') then
3236: if g_debug then
3237: hr_utility.set_location(c_indent, 10);
3238: end if;
3239: savepoint no_dml;
3240: end if;
3241: --
3247: --
3248: -- delete archive_items for the context of payroll_action_id
3249: --
3250: if g_debug then
3251: hr_utility.set_location(c_indent, 12);
3252: end if;
3253: --
3254: -- Remove archiver items at the payroll action level
3255: if (info.action_type = 'X' or
3260: remove_file_details(info, info.pact_id, 'PPA');
3261: end if;
3262: --
3263: if g_debug then
3264: hr_utility.set_location(c_indent, 15);
3265: end if;
3266: --
3267: --
3268: -- delete group level run balances
3273: where payroll_action_id = info.pact_id;
3274: end if;
3275: --
3276: if(info.dml_mode = 'NONE') then
3277: hr_utility.set_location(c_indent, 20);
3278: rollback to savepoint no_dml;
3279: end if;
3280: --
3281: -- we insert a message to indicate that the rollback was successful.
3309: if(not info.leave_row and rollback_complete(info.pact_id))
3310: then
3311: -- delete the payroll action row if we are told to.
3312: if g_debug then
3313: hr_utility.set_location(c_indent, 30);
3314: end if;
3315: delete from pay_chunk_status
3316: where payroll_action_id = info.pact_id;
3317: delete from pay_payroll_actions pac
3346: -- decide if we wish to perform that final commit
3347: if(info.dml_mode = 'FULL')
3348: then
3349: if g_debug then
3350: hr_utility.set_location(c_indent, 40);
3351: end if;
3352: commit;
3353: end if;
3354: --
3381: l_current_date_earned date;
3382: src_action_id number;
3383: --
3384: begin
3385: g_debug := hr_utility.debug_enabled;
3386: -- need to know the payroll action.
3387: if g_debug then
3388: c_indent := 'py_rollback_pkg.rollback_ass_action';
3389: hr_utility.set_location(c_indent, 10);
3385: g_debug := hr_utility.debug_enabled;
3386: -- need to know the payroll action.
3387: if g_debug then
3388: c_indent := 'py_rollback_pkg.rollback_ass_action';
3389: hr_utility.set_location(c_indent, 10);
3390: end if;
3391: select act.payroll_action_id, act.source_action_id, act.object_type
3392: into info.pact_id, src_action_id, info.object_type
3393: from pay_assignment_actions act
3403: info.grp_multi_thread := p_grp_multi_thread;
3404: --
3405: -- Check that it is a master action.
3406: if src_action_id is not null then
3407: hr_utility.set_message(801, 'PAY_289114_RLBK_CHLD_ACT');
3408: hr_utility.raise_error;
3409: end if;
3410: --
3411: -- how many errors can we stand, what commit limit do we have?
3404: --
3405: -- Check that it is a master action.
3406: if src_action_id is not null then
3407: hr_utility.set_message(801, 'PAY_289114_RLBK_CHLD_ACT');
3408: hr_utility.raise_error;
3409: end if;
3410: --
3411: -- how many errors can we stand, what commit limit do we have?
3412: info.max_errors_allowed := action_parameter('MAX_ERRORS_ALLOWED');
3538: -- mechanism to work whether we are rolling back a
3539: -- whole payroll action or assignment action by
3540: -- assignment action.
3541: g_error_count := 0;
3542: -- hr_utility.trace_on(null, 'ORACLE');
3543: end py_rollback_pkg;