[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;
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 */
244: for ceevrec in ceev loop
251: and element_entry_id = ceevrec.element_entry_id;
252: end loop;
253: --
254: if g_debug then
255: hr_utility.set_location(c_indent,20);
256: end if;
257: end remove_retro_ee;
258: --
259: /*
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 */
280: for aeevrec in aeev loop
287: and element_entry_id = aeevrec.element_entry_id;
288: end loop;
289: --
290: if g_debug then
291: hr_utility.set_location(c_indent,20);
292: end if;
293: end remove_adv_ee;
294: --
295: -- Procedure to remove advance pay by element entries.
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 */
314: for aeevrec in aeev loop
321: and element_entry_id = aeevrec.element_entry_id;
322: end loop;
323: --
324: if g_debug then
325: hr_utility.set_location(c_indent,20);
326: end if;
327: end remove_advpayele_ee;
328: --
329: -- Procedure to remove retropay by action entries.
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 */
347: for raeevrec in raeev loop
354: and element_entry_id = raeevrec.element_entry_id;
355: end loop;
356: --
357: if g_debug then
358: hr_utility.set_location(c_indent,20);
359: end if;
360: end remove_retroact_ee;
361: --
362: -- Procedure to remove retropay by element_entries.
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 */
390: for eev_rec in remove_eev loop
399: and creator_type in ('RR', 'EE', 'NR', 'PR')
400: and element_entry_id = eev_rec.element_entry_id;
401: end loop;
402: --
403: hr_utility.set_location(c_indent,20);
404: -- Finally reset the pay_retro_assignment_table if needed
405: if (p_rollback_mode <> 'RETRY') then
406: --
407: pay_retro_pkg.merge_retro_assignments(p_assact_id);
405: if (p_rollback_mode <> 'RETRY') then
406: --
407: pay_retro_pkg.merge_retro_assignments(p_assact_id);
408: --
409: hr_utility.set_location(c_indent,30);
410: -- Remove or reset row on pay_recorded_requests
411: --
412: hr_utility.set_location(c_indent,40);
413: pay_retro_pkg.reset_recorded_request(p_assact_id);
408: --
409: hr_utility.set_location(c_indent,30);
410: -- Remove or reset row on pay_recorded_requests
411: --
412: hr_utility.set_location(c_indent,40);
413: pay_retro_pkg.reset_recorded_request(p_assact_id);
414: hr_utility.set_location(c_indent,50);
415: --
416: -- Remove the asg act id, and in case merge has new earlier entries
410: -- Remove or reset row on pay_recorded_requests
411: --
412: hr_utility.set_location(c_indent,40);
413: pay_retro_pkg.reset_recorded_request(p_assact_id);
414: hr_utility.set_location(c_indent,50);
415: --
416: -- Remove the asg act id, and in case merge has new earlier entries
417: -- also change the reprocess_date
418: open min_reprocess_date;
426:
427: end if;
428: --
429: if g_debug then
430: hr_utility.set_location(c_indent,20);
431: end if;
432: --
433: end remove_retroele_ee;
434: --
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
449: if g_debug then
446: end if;
447: --
448: if mtgl_mode_cached = FALSE then
449: if g_debug then
450: hr_utility.set_location(c_indent, 20);
451: end if;
452: begin
453: select upper(parameter_value)
454: into mtgl_mode
459: mtgl_mode := 'Y';
460: end;
461: --
462: if g_debug then
463: hr_utility.set_location(c_indent, 30);
464: end if;
465: -- Remove transfer table rows once only
466: -- first of all get source_name
467: select user_je_source_name
469: from gl_je_sources
470: where je_source_name = 'Payroll';
471: --
472: if g_debug then
473: hr_utility.set_location(c_indent, 35);
474: end if;
475: delete from gl_interface gl
476: where gl.reference21 = to_char(p_info.pact_id)
477: and gl.user_je_source_name = l_source_name;
482: if mtgl_mode <> 'N' then
483: -- Remove intermediate transfer table rows
484: -- for multi-threaded transfer to GL only
485: if g_debug then
486: hr_utility.set_location(c_indent, 40);
487: end if;
488: delete from pay_gl_interface pgl
489: where pgl.assignment_action_id = p_info.assact_id;
490: end if;
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;
555: if (p_info.rollback_mode = 'BACKPAY'
565: where rrv.run_result_id = crrvrec.run_result_id;
566: end loop;
567: --
568: if g_debug then
569: hr_utility.set_location(c_indent,30);
570: end if;
571: delete from pay_run_results RR
572: where RR.assignment_action_id = p_info.assact_id;
573: --
573: --
574: else
575: --
576: if g_debug then
577: hr_utility.set_location(c_indent,40);
578: end if;
579: -- It must be a backpay.
580: update pay_run_results RR
581: set RR.status = 'B'
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
598: where assignment_action_id = p_assact_id;
597: delete from pay_action_contexts
598: where assignment_action_id = p_assact_id;
599: --
600: if g_debug then
601: hr_utility.set_location(c_indent,30);
602: end if;
603: end remove_action_contexts;
604: --
605: /*
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
740: -- delete all latest balances for an assignment if its having
750: and p_info.action_date between
751: effective_start_date and effective_end_date;
752:
753: if g_debug then
754: hr_utility.set_location(c_indent,15);
755: end if;
756:
757: if (p_info.single_bal_table <> 'Y') then
758:
869: end if; /* single_bal_table */
870:
871: else
872: if g_debug then
873: hr_utility.set_location(c_indent,90);
874: end if;
875:
876: if (p_info.single_bal_table <> 'Y') then
877:
908: end loop;
909:
910:
911: if g_debug then
912: hr_utility.set_location(c_indent,100);
913: end if;
914: for cplbrec in cplb loop
915: if (cplbrec.prev_balance_value=-9999 or
916: cplbrec.prev_balance_value is NULL or
1002: and p_action_date between
1003: pee.effective_start_date and pee.effective_end_date;
1004: begin
1005: if g_debug then
1006: hr_utility.set_location('undo_bal_adjust', 60);
1007: end if;
1008: for c1rec in c1 loop
1009: -- Now, we attempt to delete the entry values.
1010: delete from pay_element_entry_values_f pev
1022: and p_action_date between
1023: pee.effective_start_date and pee.effective_end_date;
1024: end loop;
1025: if g_debug then
1026: hr_utility.set_location('undo_bal_adjust', 70);
1027: end if;
1028: --
1029: end undo_bal_adjust;
1030: --
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,
1066: pac.start_date,
1106: and pay.payroll_id (+) = pac.payroll_id
1107: and pac.effective_date between
1108: pay.effective_start_date (+) and pay.effective_end_date (+);
1109: if g_debug then
1110: hr_utility.trace('action type is ' || p_info.action_type );
1111: end if;
1112: --
1113: --
1114: -- legislation information.
1133: from pay_action_classifications CLASS
1134: where CLASS.action_type = p_info.action_type
1135: and CLASS.classification_name = 'SEQUENCED';
1136: if g_debug then
1137: hr_utility.trace('this action type IS sequenced');
1138: end if;
1139: exception
1140: when no_data_found then
1141: p_info.sequenced_flag := FALSE;
1139: exception
1140: when no_data_found then
1141: p_info.sequenced_flag := FALSE;
1142: if g_debug then
1143: hr_utility.trace('this action type NOT sequenced');
1144: end if;
1145: end;
1146: --
1147: /* get the object Types for this payroll_action */
1178: l_source_id number;
1179: l_source_type pay_message_lines.source_type%type;
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;
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.
1189: if(p_level = 'A') then
1186: end if;
1187: -- Set up a message for either rollback at assignment or
1188: -- payroll action level.
1189: if(p_level = 'A') then
1190: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1191: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1192: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1193: hr_utility.set_message_token
1194: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1187: -- Set up a message for either rollback at assignment or
1188: -- payroll action level.
1189: if(p_level = 'A') then
1190: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1191: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1192: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1193: hr_utility.set_message_token
1194: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1195: --
1188: -- payroll action level.
1189: if(p_level = 'A') then
1190: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1191: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1192: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1193: hr_utility.set_message_token
1194: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1195: --
1196: -- Message will insert at payroll action level.
1189: if(p_level = 'A') then
1190: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1191: hr_utility.set_message_token('ASG_NUMBER',p_info.assignment_number);
1192: hr_utility.set_message_token('FULL_NAME',p_info.full_name);
1193: hr_utility.set_message_token
1194: ('SYSDATE',fnd_date.date_to_canonical(p_info.current_date));
1195: --
1196: -- Message will insert at payroll action level.
1197: l_source_id := p_info.pact_id;
1203: -- For Magnetic Transfer, the action name must be taken
1204: -- from the Payment Type Name (i.e. BACS, NACHA etc).
1205: if(p_info.action_type = 'M') then
1206: if g_debug then
1207: hr_utility.set_location(c_indent, 90);
1208: end if;
1209: select ppt.payment_type_name
1210: into l_action_name
1211: from pay_payroll_actions pac,
1218: --
1219: -- The message we set up depends on whether or not the
1220: -- Payroll Action is restricted or unrestricted.
1221: if(p_info.payroll_name is null) then
1222: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
1223: else
1224: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
1225: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1226: end if;
1220: -- Payroll Action is restricted or unrestricted.
1221: if(p_info.payroll_name is null) then
1222: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
1223: else
1224: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
1225: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1226: end if;
1227: --
1228: -- Common message tokens.
1221: if(p_info.payroll_name is null) then
1222: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
1223: else
1224: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
1225: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1226: end if;
1227: --
1228: -- Common message tokens.
1229: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1225: hr_utility.set_message_token('PAYROLL_NAME', p_info.payroll_name);
1226: end if;
1227: --
1228: -- Common message tokens.
1229: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1230: hr_utility.set_message_token('BG_NAME',p_info.bg_name);
1231: hr_utility.set_message_token('SYSDATE',
1232: fnd_date.date_to_canonical(p_info.current_date));
1233: --
1226: end if;
1227: --
1228: -- Common message tokens.
1229: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1230: hr_utility.set_message_token('BG_NAME',p_info.bg_name);
1231: hr_utility.set_message_token('SYSDATE',
1232: fnd_date.date_to_canonical(p_info.current_date));
1233: --
1234: -- Message will insert at business group level.
1227: --
1228: -- Common message tokens.
1229: hr_utility.set_message_token('ACTION_TYPE',l_action_name);
1230: hr_utility.set_message_token('BG_NAME',p_info.bg_name);
1231: hr_utility.set_message_token('SYSDATE',
1232: fnd_date.date_to_canonical(p_info.current_date));
1233: --
1234: -- Message will insert at business group level.
1235: l_source_id := p_info.bg_id;
1236: l_source_type := 'B';
1237: end if; --- rollback level.
1238: --
1239: -- Get text of message we have set up.
1240: l_line_text := substrb(hr_utility.get_message, 1, 240);
1241: --
1242: -- Write message into message lines table.
1243: if g_debug then
1244: hr_utility.set_location(c_indent, 10);
1240: l_line_text := substrb(hr_utility.get_message, 1, 240);
1241: --
1242: -- Write message into message lines table.
1243: if g_debug then
1244: hr_utility.set_location(c_indent, 10);
1245: end if;
1246: insert into pay_message_lines (
1247: line_sequence,
1248: payroll_id,
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,
1311: pee.original_entry_id,
1325: -- For undo update, we have to get next effective start date.
1326: if(p_mode = 'DELETE_NEXT_CHANGE') then
1327: begin
1328: if g_debug then
1329: hr_utility.set_location(c_indent, 20);
1330: end if;
1331: select min(ee.effective_end_date)
1332: into next_end
1333: from pay_element_entries_f ee
1360: exception
1361: -- Several error messages can be raised from this procedure.
1362: -- We wish to trap a number of them, as they should be ignored
1363: -- for our purposes.
1364: when hr_utility.hr_error then
1365: hr_utility.get_message_details(message,applid);
1366: --
1367: if(message in ('HR_7699_ELE_ENTRY_REC_EXISTS',
1368: 'HR_7700_ELE_ENTRY_REC_EXISTS',
1361: -- Several error messages can be raised from this procedure.
1362: -- We wish to trap a number of them, as they should be ignored
1363: -- for our purposes.
1364: when hr_utility.hr_error then
1365: hr_utility.get_message_details(message,applid);
1366: --
1367: if(message in ('HR_7699_ELE_ENTRY_REC_EXISTS',
1368: 'HR_7700_ELE_ENTRY_REC_EXISTS',
1369: 'HR_6281_ELE_ENTRY_DT_DEL_LINK',
1371: 'HR_6284_ELE_ENTRY_DT_ASG_DEL')
1372: ) then
1373: -- We cannot extend the entry.
1374: if g_debug then
1375: hr_utility.set_location(c_indent, 25);
1376: end if;
1377: if(p_mode = 'DELETE_NEXT_CHANGE') then
1378: update pay_element_entries_f ee
1379: set updating_action_id=NULL
1395: end;
1396: --
1397: -- Process the delete of element entries.
1398: if(p_mode = 'DELETE_NEXT_CHANGE') then
1399: hr_utility.set_location(c_indent, 40);
1400: delete from pay_element_entries_f ee
1401: where ee.element_entry_id = p_ee_id
1402: and ee.effective_start_date = val_start;
1403: --
1400: delete from pay_element_entries_f ee
1401: where ee.element_entry_id = p_ee_id
1402: and ee.effective_start_date = val_start;
1403: --
1404: hr_utility.set_location(c_indent, 45);
1405: delete from pay_element_entry_values_f eev
1406: where eev.element_entry_id = p_ee_id
1407: and eev.effective_start_date = val_start;
1408: --
1405: delete from pay_element_entry_values_f eev
1406: where eev.element_entry_id = p_ee_id
1407: and eev.effective_start_date = val_start;
1408: --
1409: hr_utility.set_location(c_indent, 50);
1410: update pay_element_entries_f ee
1411: set ee.effective_end_date = next_end
1412: where ee.element_entry_id = p_ee_id
1413: and ee.effective_start_date = effstart;
1411: set ee.effective_end_date = next_end
1412: where ee.element_entry_id = p_ee_id
1413: and ee.effective_start_date = effstart;
1414: --
1415: hr_utility.set_location(c_indent, 55);
1416: update pay_element_entry_values_f eev
1417: set eev.effective_end_date = next_end
1418: where eev.element_entry_id = p_ee_id
1419: and eev.effective_start_date = effstart;
1419: and eev.effective_start_date = effstart;
1420: --
1421: elsif(p_mode = 'FUTURE_CHANGE') then
1422: --
1423: hr_utility.set_location(c_indent, 60);
1424: delete from pay_element_entries_f ee
1425: where ee.element_entry_id = p_ee_id
1426: and ee.effective_start_date > effstart;
1427: --
1424: delete from pay_element_entries_f ee
1425: where ee.element_entry_id = p_ee_id
1426: and ee.effective_start_date > effstart;
1427: --
1428: hr_utility.set_location(c_indent, 65);
1429: delete from pay_element_entry_values_f eev
1430: where eev.element_entry_id = p_ee_id
1431: and eev.effective_start_date > effstart;
1432: --
1429: delete from pay_element_entry_values_f eev
1430: where eev.element_entry_id = p_ee_id
1431: and eev.effective_start_date > effstart;
1432: --
1433: hr_utility.set_location(c_indent, 70);
1434: update pay_element_entries_f ee
1435: set ee.effective_end_date = max_end,
1436: ee.updating_action_id=NULL,
1437: ee.updating_action_type=NULL
1454: and ee.effective_start_date = effstart;
1455: end if;
1456: /*End of BUG#6200530*/
1457: --
1458: hr_utility.set_location(c_indent, 75);
1459: update pay_element_entry_values_f eev
1460: set eev.effective_end_date = max_end
1461: where eev.element_entry_id = p_ee_id
1462: and eev.effective_start_date = effstart;
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
1534:
1536: then
1537: -- We may have a stopped entry, but we need to
1538: -- see if this really is the case.
1539: if g_debug then
1540: hr_utility.set_location(c_indent,90);
1541: end if;
1542: select max(pee.effective_end_date)
1543: into v_max_date
1544: from pay_element_entries_f pee
1586: -- we must process the assignment action row.
1587: if(not p_info.leave_row or p_info.rollback_level = 'P') then
1588: if(p_info.rollback_mode) = 'RETRY' then
1589: if g_debug then
1590: hr_utility.set_location(c_indent, 10);
1591: end if;
1592: --
1593: update pay_assignment_actions
1594: set action_status = 'M'
1599: where assignment_action_id = p_info.assact_id;
1600: --
1601: elsif(p_info.rollback_mode) = 'BACKPAY' then
1602: if g_debug then
1603: hr_utility.set_location(c_indent, 20);
1604: end if;
1605: --
1606: update pay_assignment_actions
1607: set action_status = 'B'
1614: elsif(p_info.rollback_mode) = 'ROLLBACK' then
1615: -- there may be pay_action_interlock rows.
1616: -- which are locking other assignment actions.
1617: if g_debug then
1618: hr_utility.set_location(c_indent, 30);
1619: end if;
1620: delete from pay_action_interlocks lck
1621: where lck.locking_action_id = p_info.assact_id;
1622: --
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);
1686: end if;
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);
1686: end if;
1687: --
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);
1686: end if;
1687: --
1688: -- Firstly remove any child actions.
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);
1686: end if;
1687: --
1688: -- Firstly remove any child actions.
1689: chld_info := p_info;
1710: if (purge_child = TRUE) then
1711: delete from pay_action_interlocks
1712: where locking_action_id = chld_info.assact_id;
1713: if g_debug then
1714: hr_utility.set_location('About to remove assg actions' , 11);
1715: end if;
1716: delete from pay_assignment_actions
1717: where assignment_action_id = chld_info.assact_id;
1718: end if;
1788: elsif(p_info.action_type in ('P', 'U')) then
1789: -- Remove pre-payment rows.
1790: -- Note, this causes cascade delete of pay_coin_anal_elements.
1791: if g_debug then
1792: hr_utility.set_location('Error abt to occur', 13);
1793: end if;
1794: delete from pay_pre_payments ppp
1795: where ppp.assignment_action_id = p_info.assact_id;
1796: --
1796: --
1797: elsif(p_info.action_type in ('C', 'S', 'EC')) then
1798: -- Remove costing rows.
1799: if g_debug then
1800: hr_utility.set_location(c_indent, 20);
1801: end if;
1802: delete from pay_costs pc
1803: where pc.assignment_action_id = p_info.assact_id;
1804: --
1900: -- When we are rolling back QuickPay, we need to
1901: -- remove the QuickPay Inclusions.
1902: if(p_info.action_type = 'Q') then
1903: if g_debug then
1904: hr_utility.set_location(c_indent, 30);
1905: end if;
1906: --
1907: -- Enhancement 3368211
1908: --
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
1957: -- of processes
1955: --
1956: -- OK We need to run different statements for different types
1957: -- of processes
1958: --
1959: hr_utility.set_location(c_indent, 10);
1960: if ((p_info.action_type = 'L'
1961: and p_info.object_type = 'POG')
1962: or p_info.object_type is not null
1963: ) then
1963: ) then
1964: --
1965: if (p_info.action_type = 'L') then
1966: --
1967: hr_utility.set_location(c_indent, 20);
1968: -- OK this is a retropay that using the Object Group
1969: -- actions
1970: select null,
1971: ACT.action_sequence,
1994: and p_info.action_date between
1995: PEO.effective_start_date and PEO.effective_end_date;
1996: else
1997: --
1998: hr_utility.set_location(c_indent, 30);
1999: -- OK its some sort of object action
2000: select null,
2001: ACT.action_sequence,
2002: ACT.action_status,
2019: end if;
2020: --
2021: else
2022: --
2023: hr_utility.set_location(c_indent, 40);
2024: -- It's a normal action
2025: --
2026: select ACT.assignment_id,
2027: ACT.action_sequence,
2091: and p_info.action_date between
2092: PEO.effective_start_date and PEO.effective_end_date));
2093: end if;
2094: --
2095: hr_utility.set_location(c_indent, 50);
2096: --
2097: -- for Purge, we simply wish to confirm that we are not
2098: -- attempting to rollback an assignment action that has
2099: -- a 'C' secondary status. If everything ok, we simpy
2099: -- a 'C' secondary status. If everything ok, we simpy
2100: -- exit this procedure.
2101: if(p_info.action_type = 'Z') then
2102: if(l_sec_status = 'C') then
2103: hr_utility.set_message(801, 'PAY_289118_PUR_NACT_ROLLBACK');
2104: hr_utility.raise_error;
2105: end if;
2106: --
2107: if g_debug then
2100: -- exit this procedure.
2101: if(p_info.action_type = 'Z') then
2102: if(l_sec_status = 'C') then
2103: hr_utility.set_message(801, 'PAY_289118_PUR_NACT_ROLLBACK');
2104: hr_utility.raise_error;
2105: end if;
2106: --
2107: if g_debug then
2108: hr_utility.trace('Purge act : exit');
2104: hr_utility.raise_error;
2105: end if;
2106: --
2107: if g_debug then
2108: hr_utility.trace('Purge act : exit');
2109: end if;
2110: return;
2111: end if;
2112: --
2112: --
2113: -- can only retry if already complete
2114: if(p_info.rollback_mode = 'RETRY' and l_action_status not in ('C', 'S'))
2115: then
2116: hr_utility.set_message (801, 'HR_7506_ACTION_RET_NOT_COMP');
2117: hr_utility.set_message_token ('ASG_NO', p_info.assignment_number);
2118: hr_utility.raise_error;
2119: end if;
2120: --
2113: -- can only retry if already complete
2114: if(p_info.rollback_mode = 'RETRY' and l_action_status not in ('C', 'S'))
2115: then
2116: hr_utility.set_message (801, 'HR_7506_ACTION_RET_NOT_COMP');
2117: hr_utility.set_message_token ('ASG_NO', p_info.assignment_number);
2118: hr_utility.raise_error;
2119: end if;
2120: --
2121: --
2114: if(p_info.rollback_mode = 'RETRY' and l_action_status not in ('C', 'S'))
2115: then
2116: hr_utility.set_message (801, 'HR_7506_ACTION_RET_NOT_COMP');
2117: hr_utility.set_message_token ('ASG_NO', p_info.assignment_number);
2118: hr_utility.raise_error;
2119: end if;
2120: --
2121: --
2122: --
2151: -- been 'Marked for Retry' then the locked action cannot be
2152: -- 'Marked for Retry'.
2153: --
2154: if g_debug then
2155: hr_utility.set_location(c_indent, 20);
2156: end if;
2157: select null
2158: into dummy
2159: from dual
2177: -- Case for ROLLBACK mode.
2178: -- Check that the assignment action we are attempting to
2179: -- roll back is not locked by an assignment action.
2180: if g_debug then
2181: hr_utility.set_location(c_indent, 30);
2182: end if;
2183: select null
2184: into dummy
2185: from dual
2211: -- For ROLLBACK (and BACKPAY):
2212: -- disallow rollback assignment action if there are
2213: -- future SEQUENCED assignment actions for the assignment.
2214: if g_debug then
2215: hr_utility.set_location(c_indent, 40);
2216: end if;
2217: --
2218: if (p_info.rollback_mode = 'RETRY')
2219: then
2349: --
2350: else
2351: -- check for other actions on this PERSON.
2352: if g_debug then
2353: hr_utility.set_location(c_indent, 50);
2354: end if;
2355: --
2356: --
2357: if (p_info.rollback_mode = 'RETRY')
2417: exception
2418: when no_data_found then
2419: -- Catch all interlock failure message.
2420: if p_info.legislation_code = 'GB' then
2421: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2422: else
2423: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2424: end if;
2425: hr_utility.raise_error;
2419: -- Catch all interlock failure message.
2420: if p_info.legislation_code = 'GB' then
2421: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2422: else
2423: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2424: end if;
2425: hr_utility.raise_error;
2426: end;
2427: end val_assact_rollback;
2421: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2422: else
2423: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2424: end if;
2425: hr_utility.raise_error;
2426: end;
2427: end val_assact_rollback;
2428: --
2429: /*
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.
2446: -- get the message text to write. Need to get it
2444: --
2445: -- handle the assignment action level error.
2446: -- get the message text to write. Need to get it
2447: -- in diffferent ways for oracle and user errors.
2448: if(error_code = hr_utility.hr_error_number)
2449: then
2450: -- specific exception raised.
2451: message_text := substrb(hr_utility.get_message, 1, 240);
2452: else
2447: -- in diffferent ways for oracle and user errors.
2448: if(error_code = hr_utility.hr_error_number)
2449: then
2450: -- specific exception raised.
2451: message_text := substrb(hr_utility.get_message, 1, 240);
2452: else
2453: -- oracle error.
2454: message_text := error_message;
2455: end if;
2455: end if;
2456: --
2457: -- we can now insert the messge to message lines.
2458: if g_debug then
2459: hr_utility.set_location(c_indent, 10);
2460: end if;
2461: insert into pay_message_lines (
2462: line_sequence,
2463: payroll_id,
2488: commit;
2489: end if;
2490: --
2491: -- raise error to indicate entire process has failed.
2492: hr_utility.set_message (801, 'HR_7269_ASS_TOO_MANY_ERRORS');
2493: hr_utility.raise_error;
2494: end if;
2495: end assact_error;
2496: --
2489: end if;
2490: --
2491: -- raise error to indicate entire process has failed.
2492: hr_utility.set_message (801, 'HR_7269_ASS_TOO_MANY_ERRORS');
2493: hr_utility.raise_error;
2494: end if;
2495: end assact_error;
2496: --
2497: /*
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
2517: if g_debug then
2514: end if;
2515: -- select a range row for update.
2516: begin
2517: if g_debug then
2518: hr_utility.set_location(c_indent, 2);
2519: end if;
2520: select rge.chunk_number,
2521: rge.starting_person_id,
2522: rge.ending_person_id
2527: and rownum < 2
2528: for update of rge.chunk_number;
2529: --
2530: if g_debug then
2531: hr_utility.set_location(c_indent, 3);
2532: end if;
2533: -- If we reach here, we have a range row
2534: -- and we therefore wish to lock it.
2535: update pay_population_ranges pop
2537: where pop.payroll_action_id = p_info.pact_id
2538: and pop.chunk_number = range_info.chunk_number;
2539: --
2540: if g_debug then
2541: hr_utility.set_location(c_indent, 4);
2542: end if;
2543: -- Only commit if we are allowed to.
2544: if(p_info.multi_thread or p_info.dml_mode = 'FULL')
2545: then
2543: -- Only commit if we are allowed to.
2544: if(p_info.multi_thread or p_info.dml_mode = 'FULL')
2545: then
2546: if g_debug then
2547: hr_utility.set_location(c_indent, 5);
2548: end if;
2549: commit;
2550: end if;
2551: exception
2550: end if;
2551: exception
2552: when no_data_found then
2553: if g_debug then
2554: hr_utility.set_location(c_indent, 7);
2555: end if;
2556: range_info.chunk_number := null;
2557: end;
2558: --
2556: range_info.chunk_number := null;
2557: end;
2558: --
2559: if g_debug then
2560: hr_utility.set_location(c_indent, 8);
2561: end if;
2562: return(range_info);
2563: end next_range;
2564: --
2565: procedure perform_act_rollback(p_info in out nocopy rollback_rec)
2566: is
2567: begin
2568: if g_debug then
2569: hr_utility.set_location ('perform_asg_rollback',10);
2570: end if;
2571: --
2572: -- set a savepoint in case we fail.
2573: savepoint before;
2578: -- actually perform the rollback/mark for retry.
2579: do_assact_rollback(p_info);
2580: --
2581: if g_debug then
2582: hr_utility.set_location ('perform_asg_rollback',20);
2583: end if;
2584: -- if succeeded in processing, we reset the
2585: -- error counter, since we only wish to count
2586: -- consecutive errors.
2593: -- message lines before continuing. This is done up to
2594: -- the error limit, then we exit.
2595: when others then
2596: if g_debug then
2597: hr_utility.set_location ('perform_asg_rollback',30);
2598: end if;
2599: rollback to savepoint before; -- throw away any work.
2600: if(p_info.all_or_nothing)
2601: then
2679: --
2680: commit_limit number;
2681: begin
2682: if g_debug then
2683: hr_utility.set_location ('assact_dml',1);
2684: end if;
2685: -- Attempt to get a range to process.
2686: range_info := next_range(p_info);
2687: --
2686: range_info := next_range(p_info);
2687: --
2688: if g_debug then
2689: if g_debug then
2690: hr_utility.trace('max_single_undo = ' || p_info.max_single_undo);
2691: hr_utility.trace('max_errors_allowed = ' || p_info.max_errors_allowed);
2692: hr_utility.set_location ('assact_dml',2);
2693: end if;
2694: end if;
2687: --
2688: if g_debug then
2689: if g_debug then
2690: hr_utility.trace('max_single_undo = ' || p_info.max_single_undo);
2691: hr_utility.trace('max_errors_allowed = ' || p_info.max_errors_allowed);
2692: hr_utility.set_location ('assact_dml',2);
2693: end if;
2694: end if;
2695: -- Continue to process a chunk at a time,
2688: if g_debug then
2689: if g_debug then
2690: hr_utility.trace('max_single_undo = ' || p_info.max_single_undo);
2691: hr_utility.trace('max_errors_allowed = ' || p_info.max_errors_allowed);
2692: hr_utility.set_location ('assact_dml',2);
2693: end if;
2694: end if;
2695: -- Continue to process a chunk at a time,
2696: -- as long as we can lock a range row.
2695: -- Continue to process a chunk at a time,
2696: -- as long as we can lock a range row.
2697: while(range_info.chunk_number is not null)
2698: loop
2699: hr_utility.set_location ('assact_dml',3);
2700: --
2701: /* By default it must be an assignment action */
2702: if (p_info.object_type is null) then
2703: for c1rec in c1 loop
2718: end if;
2719: --
2720: -- this range row is finished with.
2721: if g_debug then
2722: hr_utility.set_location('assact_dml', 20);
2723: end if;
2724: delete from pay_population_ranges range
2725: where range.payroll_action_id = p_info.pact_id
2726: and range.chunk_number = range_info.chunk_number;
2725: where range.payroll_action_id = p_info.pact_id
2726: and range.chunk_number = range_info.chunk_number;
2727: --
2728: if g_debug then
2729: hr_utility.set_location ('assact_dml',10);
2730: end if;
2731: -- commit our processing, but only if we are
2732: -- mult-threading and dml_mode is appropriate.
2733: -- reset the commit limit to zero.
2737: commit_limit := 0;
2738: end if;
2739: --
2740: if g_debug then
2741: hr_utility.set_location ('assact_dml',11);
2742: end if;
2743: -- Attempt to lock another range.
2744: range_info := next_range(p_info);
2745: end loop;
2744: range_info := next_range(p_info);
2745: end loop;
2746: --
2747: if g_debug then
2748: hr_utility.set_location ('assact_dml',12);
2749: end if;
2750: end assact_dml;
2751: -- --
2752: /*
2758: is
2759: dummy NUMBER;
2760: begin
2761: if g_debug then
2762: hr_utility.set_location('val_pact_rr_rules', 10);
2763: end if;
2764: --
2765: if(p_info.rollback_mode = 'RETRY')
2766: then
2765: if(p_info.rollback_mode = 'RETRY')
2766: then
2767: if(p_info.action_type in ( 'E', 'H', 'D', 'PP'))
2768: then
2769: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
2770: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2771: hr_utility.raise_error;
2772: end if;
2773: end if;
2766: then
2767: if(p_info.action_type in ( 'E', 'H', 'D', 'PP'))
2768: then
2769: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
2770: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2771: hr_utility.raise_error;
2772: end if;
2773: end if;
2774: --
2767: if(p_info.action_type in ( 'E', 'H', 'D', 'PP'))
2768: then
2769: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
2770: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2771: hr_utility.raise_error;
2772: end if;
2773: end if;
2774: --
2775: -- Special check for Purge for both modes.
2786: where act.payroll_action_id = p_info.pact_id
2787: and act.secondary_status = 'C';
2788: --
2789: if(l_complete > 0) then
2790: hr_utility.set_message(801, 'PAY_289020_PUR_CANT_ROLLBACK');
2791: hr_utility.raise_error;
2792: end if;
2793: end;
2794: end if;
2787: and act.secondary_status = 'C';
2788: --
2789: if(l_complete > 0) then
2790: hr_utility.set_message(801, 'PAY_289020_PUR_CANT_ROLLBACK');
2791: hr_utility.raise_error;
2792: end if;
2793: end;
2794: end if;
2795: end val_pact_rr_rules;
2819: and pac.action_type in ('A', 'H', 'M', 'PP');
2820:
2821: begin
2822: if g_debug then
2823: hr_utility.set_location('val_dependant', 18);
2824: end if;
2825:
2826: open chk_dep;
2827: fetch chk_dep into w_payroll_id_1;
2828:
2829: if chk_dep%found
2830: then
2831: if p_info.legislation_code = 'GB' then
2832: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2833: else
2834: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2835: end if;
2836: hr_utility.raise_error;
2830: then
2831: if p_info.legislation_code = 'GB' then
2832: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2833: else
2834: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2835: end if;
2836: hr_utility.raise_error;
2837: end if;
2838:
2832: hr_utility.set_message (801, 'HR_52975_ACTION_UNDO_INTLOK_GB');
2833: else
2834: hr_utility.set_message (801, 'HR_7507_ACTION_UNDO_INTLOCK');
2835: end if;
2836: hr_utility.raise_error;
2837: end if;
2838:
2839: close chk_dep;
2840: --
2849: begin
2850: -- Validate the rollback and mark for retry rules for
2851: -- assignment actions.
2852: if g_debug then
2853: hr_utility.set_location('val_assact_rr_rules', 10);
2854: end if;
2855: --
2856: if(p_info.rollback_mode = 'RETRY')
2857: then
2857: then
2858: if(p_info.action_type in ( 'PRU', 'E', 'M', 'H', 'D', 'PP') or
2859: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2860: then
2861: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2862: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2863: hr_utility.raise_error;
2864: end if;
2865: else
2858: if(p_info.action_type in ( 'PRU', 'E', 'M', 'H', 'D', 'PP') or
2859: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2860: then
2861: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2862: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2863: hr_utility.raise_error;
2864: end if;
2865: else
2866: -- !!!! note - temporary change for RN project.
2859: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2860: then
2861: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2862: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2863: hr_utility.raise_error;
2864: end if;
2865: else
2866: -- !!!! note - temporary change for RN project.
2867: -- allow rollback of individual Magnetic Transfer assact.
2867: -- allow rollback of individual Magnetic Transfer assact.
2868: if(p_info.action_type in ('Q', 'U', 'E', 'PRU') or
2869: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2870: then
2871: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2872: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2873: hr_utility.raise_error;
2874: end if;
2875: end if;
2868: if(p_info.action_type in ('Q', 'U', 'E', 'PRU') or
2869: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2870: then
2871: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2872: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2873: hr_utility.raise_error;
2874: end if;
2875: end if;
2876: end val_assact_rr_rules;
2869: (p_info.action_type = 'T' and p_info.sub_ledger_acc = 'N'))
2870: then
2871: hr_utility.set_message(801, 'HR_7508_ACTION_ACT_RR_RULE');
2872: hr_utility.set_message_token('ACTION_NAME', p_info.action_name);
2873: hr_utility.raise_error;
2874: end if;
2875: end if;
2876: end val_assact_rr_rules;
2877: --
2884: begin
2885: -- where applicable, check that parameters
2886: -- have reasonable values.
2887: if g_debug then
2888: hr_utility.set_location('val_params', 10);
2889: end if;
2890: if(p_info.rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY'))
2891: then
2892: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
2888: hr_utility.set_location('val_params', 10);
2889: end if;
2890: if(p_info.rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY'))
2891: then
2892: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
2893: hr_utility.raise_error;
2894: end if;
2895: --
2896: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
2889: end if;
2890: if(p_info.rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY'))
2891: then
2892: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
2893: hr_utility.raise_error;
2894: end if;
2895: --
2896: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
2897: then
2894: end if;
2895: --
2896: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
2897: then
2898: hr_utility.set_message(801, 'HR_7509_ACTION_BAD_DML_MODE');
2899: hr_utility.raise_error;
2900: end if;
2901: --
2902: -- certain values are illegal if they are combined.
2895: --
2896: if(p_info.dml_mode not in ('FULL', 'NO_COMMIT', 'NONE'))
2897: then
2898: hr_utility.set_message(801, 'HR_7509_ACTION_BAD_DML_MODE');
2899: hr_utility.raise_error;
2900: end if;
2901: --
2902: -- certain values are illegal if they are combined.
2903: -- note that these checks are only applicable to
2925: -- ok, we are single-threading. Need to remove any existing
2926: -- range rows (thought there are unlikely to be any), and
2927: -- then insert a special row.
2928: if g_debug then
2929: hr_utility.set_location('single_thread_range', 10);
2930: end if;
2931: delete from pay_population_ranges range
2932: where range.payroll_action_id = l_payroll_action_id;
2933: --
2931: delete from pay_population_ranges range
2932: where range.payroll_action_id = l_payroll_action_id;
2933: --
2934: if g_debug then
2935: hr_utility.set_location('single_thread_range', 20);
2936: end if;
2937:
2938: if (p_info.object_type is null) then
2939: insert into pay_population_ranges (
2975: group by pac.payroll_action_id;
2976: end if;
2977: --
2978: if g_debug then
2979: hr_utility.set_location('single_thread_range', 30);
2980: end if;
2981: end single_thread_range;
2982: --
2983: /*
3024: where act.payroll_action_id = p_info.pact_id
3025: and rownum < (p_info.max_single_undo + 2);
3026: --
3027: if(action_count > p_info.max_single_undo) then
3028: hr_utility.set_message(801, 'HR_7722_ACTION_COMMIT_LIMIT');
3029: hr_utility.set_message_token('COMMIT_LIMIT',p_info.max_single_undo);
3030: hr_utility.raise_error;
3031: end if;
3032: end val_limit_dml;
3025: and rownum < (p_info.max_single_undo + 2);
3026: --
3027: if(action_count > p_info.max_single_undo) then
3028: hr_utility.set_message(801, 'HR_7722_ACTION_COMMIT_LIMIT');
3029: hr_utility.set_message_token('COMMIT_LIMIT',p_info.max_single_undo);
3030: hr_utility.raise_error;
3031: end if;
3032: end val_limit_dml;
3033: --
3026: --
3027: if(action_count > p_info.max_single_undo) then
3028: hr_utility.set_message(801, 'HR_7722_ACTION_COMMIT_LIMIT');
3029: hr_utility.set_message_token('COMMIT_LIMIT',p_info.max_single_undo);
3030: hr_utility.raise_error;
3031: end if;
3032: end val_limit_dml;
3033: --
3034: /*
3051: info rollback_rec; -- 'global' information.
3052: c_indent varchar2(40);
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;
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;
3062: info.rollback_level := 'P'; -- processing entire Payroll Action.
3112: -- Depending on the dml mode, we may wish to
3113: -- set a savepoint.
3114: if(info.dml_mode = 'NONE') then
3115: if g_debug then
3116: hr_utility.set_location(c_indent, 10);
3117: end if;
3118: savepoint no_dml;
3119: end if;
3120: --
3126: --
3127: -- delete archive_items for the context of payroll_action_id
3128: --
3129: if g_debug then
3130: hr_utility.set_location(c_indent, 12);
3131: end if;
3132: --
3133: -- Remove archiver items at the payroll action level
3134: if (info.action_type = 'X' or
3139: remove_file_details(info, info.pact_id, 'PPA');
3140: end if;
3141: --
3142: if g_debug then
3143: hr_utility.set_location(c_indent, 15);
3144: end if;
3145: --
3146: --
3147: -- delete group level run balances
3152: where payroll_action_id = info.pact_id;
3153: end if;
3154: --
3155: if(info.dml_mode = 'NONE') then
3156: hr_utility.set_location(c_indent, 20);
3157: rollback to savepoint no_dml;
3158: end if;
3159: --
3160: -- we insert a message to indicate that the rollback was successful.
3188: if(not info.leave_row and rollback_complete(info.pact_id))
3189: then
3190: -- delete the payroll action row if we are told to.
3191: if g_debug then
3192: hr_utility.set_location(c_indent, 30);
3193: end if;
3194: delete from pay_chunk_status
3195: where payroll_action_id = info.pact_id;
3196: delete from pay_payroll_actions pac
3225: -- decide if we wish to perform that final commit
3226: if(info.dml_mode = 'FULL')
3227: then
3228: if g_debug then
3229: hr_utility.set_location(c_indent, 40);
3230: end if;
3231: commit;
3232: end if;
3233: --
3260: l_current_date_earned date;
3261: src_action_id number;
3262: --
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);
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
3272: from pay_assignment_actions act
3282: info.grp_multi_thread := p_grp_multi_thread;
3283: --
3284: -- Check that it is a master action.
3285: if src_action_id is not null then
3286: hr_utility.set_message(801, 'PAY_289114_RLBK_CHLD_ACT');
3287: hr_utility.raise_error;
3288: end if;
3289: --
3290: -- how many errors can we stand, what commit limit do we have?
3283: --
3284: -- Check that it is a master action.
3285: if src_action_id is not null then
3286: hr_utility.set_message(801, 'PAY_289114_RLBK_CHLD_ACT');
3287: hr_utility.raise_error;
3288: end if;
3289: --
3290: -- how many errors can we stand, what commit limit do we have?
3291: info.max_errors_allowed := action_parameter('MAX_ERRORS_ALLOWED');
3417: -- mechanism to work whether we are rolling back a
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;