[Home] [Help]
1: package body hrassact as
2: /* $Header: pyassact.pkb 120.43.12020000.12 2012/11/09 11:35:24 asnell ship $ */
3: /*
4: Copyright (c) Oracle Corporation 1991,1992,1993. All rights reserved
5: --
4: Copyright (c) Oracle Corporation 1991,1992,1993. All rights reserved
5: --
6: /*
7: --
8: Name : hrassact
9: Author : $Author: asnell $
10: Synopsis : Payroll and Assignment action processing.
11: Contents : applied_interlocks
12: bal_adjust
55: while inserting into pay_assignment_actions.
56: 22-Nov-2010 priupadh 115.151 10212578 Modified maintain_lat_bal now calling pay_core_utils.get_legislation_rule
57: for leg rule 'BAL_ADJ_LAT_BAL'
58: 22-Apr-2010 phattarg 115.150 9089219 Removed ORDERED hint from cursor albc_selective
59: in hrassact.del_latest_balances.
60: 21-Apr-2010 phattarg 115.149 8994425 Corrected the behavior of trash_latest_balances procedure
61: when pap 'LAT_BAL_CHECK_MODE' is set to B..
62: 19-Apr-2010 phattarg 115.148 9558506 Performance fix to 'seqper' cursor in
63: hrassact.resequence_actions.
59: in hrassact.del_latest_balances.
60: 21-Apr-2010 phattarg 115.149 8994425 Corrected the behavior of trash_latest_balances procedure
61: when pap 'LAT_BAL_CHECK_MODE' is set to B..
62: 19-Apr-2010 phattarg 115.148 9558506 Performance fix to 'seqper' cursor in
63: hrassact.resequence_actions.
64: 03-Jun-2009 priupadh 115.147 8570075 Modified trash_latest_balances,removed "close ivchk"
65: inside if condition as it was closing twice ivchk.
66: 14-Apr-2009 priupadh 115.146 7652030 Removed checkfile in dbdrv.
67: 14-Apr-2009 priupadh 115.145 7652030 Modified multi_assignment_reversal
704: --
705: -- Validate the rollback and mark for retry rules for
706: -- assignment actions.
707: if g_debug then
708: hr_utility.set_location('hrassact.val_assact_rr_rules', 10);
709: end if;
710: if p_rollback_mode = 'RETRY' then
711: if p_pact_rec.action_type in ('V', 'B', 'Z', 'E', 'M', 'H', 'T') then
712: return false;
806: begin
807: g_debug := hr_utility.debug_enabled;
808: --
809: if g_debug then
810: hr_utility.set_location('hrassact.ensure_assact_rolled_back',10);
811: end if;
812: validate_rollback_mode(p_rollback_mode);
813: --
814: if (p_rollback_mode = 'BACKPAY') then
813: --
814: if (p_rollback_mode = 'BACKPAY') then
815: --
816: if g_debug then
817: hr_utility.set_location('hrassact.ensure_assact_rolled_back',20);
818: end if;
819: for c2rec in c2 loop
820: -- any record fetched is an error
821: hr_utility.set_message(801, 'HR_7001_ACTION_MUST_ROLL_FIRST');
825: --
826: else
827: --
828: if g_debug then
829: hr_utility.set_location('hrassact.ensure_assact_rolled_back',30);
830: end if;
831: for c1rec in c1 loop
832: -- any record fetched is an error
833: hr_utility.set_message(801, 'HR_7001_ACTION_MUST_ROLL_FIRST');
863: begin
864: g_debug := hr_utility.debug_enabled;
865: --
866: if g_debug then
867: hr_utility.set_location('hrassact.ensure_pact_rolled_back',10);
868: end if;
869: for c1rec in c1 loop
870: -- any record fetched is an error
871: hr_utility.set_message(801, 'HR_7007_ACTION_ROLL_ASSACTS');
902: -- Obtain information about this assignment action which we will
903: -- need later on.
904: -- Some of this is required for messages.
905: if g_debug then
906: hr_utility.set_location('hrassact.val_assact_rollback',10);
907: end if;
908: select ACT.assignment_id,
909: ACT.action_sequence,
910: ACT.action_status,
959: -- to see if it is locked by another action. Peform
960: -- slightly different checks for RETRY and ROLLBACK
961: -- modes. See comments below.
962: if g_debug then
963: hr_utility.set_location('hrassact.val_assact_rollback',20);
964: end if;
965: if(p_rollback_mode = 'RETRY') then
966: -- Case for RETRY mode.
967: -- Check that the assignment action we are attempting to
1006: --
1007: -- check for other actions on this ASSIGNMENT
1008: -- Perform different checks for RETRY or ROLLBACK.
1009: if g_debug then
1010: hr_utility.set_location('hrassact.val_assact_rollback',30);
1011: end if;
1012: if(p_rollback_mode = 'RETRY') then
1013: -- Case for RETRY mode.
1014: -- Disallow mark for retry assignment action
1056: -- check for other actions on this PERSON
1057: -- As above, perform different checks for
1058: -- RETRY and ROLLBACK modes.
1059: if g_debug then
1060: hr_utility.set_location('hrassact.val_assact_rollback',40);
1061: end if;
1062: if(p_rollback_mode = 'RETRY') then
1063: -- Case for RETRY mode.
1064: select null into dummy
1108: --
1109: exception
1110: when no_data_found then
1111: if g_debug then
1112: hr_utility.set_location('hrassact.val_assact_rollback',50);
1113: end if;
1114: return FALSE;
1115: --
1116: end;
1115: --
1116: end;
1117: --
1118: if g_debug then
1119: hr_utility.set_location('hrassact.val_assact_rollback',60);
1120: end if;
1121: return TRUE;
1122: --
1123: end val_assact_rollback;
1139: validate_rollback_mode(p_rollback_mode);
1140: --
1141: -- get payroll action level information
1142: if g_debug then
1143: hr_utility.set_location('hrassact.val_pact_rollback', 10);
1144: end if;
1145: select pac.business_group_id,
1146: pac.effective_date,
1147: hrl.meaning,
1176: declare
1177: dummy number;
1178: begin
1179: if g_debug then
1180: hr_utility.set_location('hrassact.val_pact_rollback', 20);
1181: end if;
1182: select null
1183: into dummy
1184: from dual
1197: --
1198: --
1199: -- get some more info needed to roll back actions
1200: if g_debug then
1201: hr_utility.set_location('hrassact.val_pact_rollback', 30);
1202: end if;
1203: if upper( hr_leg_rule.get_independent_periods(l_business_group_id))
1204: like 'Y%' then
1205: p_pact_rec.independent_periods_flag := TRUE;
1214: begin
1215: p_pact_rec.sequenced_flag := TRUE;
1216: --
1217: if g_debug then
1218: hr_utility.set_location('hrassact.val_pact_rollback', 40);
1219: end if;
1220: select null
1221: into dummy
1222: from pay_action_classifications CLASS
1246: --
1247: -- We simply call the internal validate rollback procedure
1248: -- to give us the information we need.
1249: if g_debug then
1250: hr_utility.set_location('hrassact.validate_pact_rollback', 10);
1251: end if;
1252: l_pact_rec.pact_id := p_payroll_action_id;
1253: --
1254: val_pact_rollback(p_pact_rec => l_pact_rec,
1277: g_debug := hr_utility.debug_enabled;
1278: --
1279: -- Call the validate payroll action routine to get pact details.
1280: if g_debug then
1281: hr_utility.set_location('hrassact.validate_assact_rollback',10);
1282: end if;
1283: l_pact_rec.pact_id := p_payroll_action_id;
1284: val_pact_rollback(p_pact_rec => l_pact_rec,
1285: p_rollback_mode => p_rollback_mode);
1285: p_rollback_mode => p_rollback_mode);
1286: --
1287: -- Call the validate assignment action routine to validate assact.
1288: if g_debug then
1289: hr_utility.set_location('hrassact.validate_assact_rollback',20);
1290: end if;
1291: l_assact_rec.assact_id := p_assignment_action_id;
1292: --
1293: if val_assact_rollback(l_pact_rec, l_assact_rec, p_rollback_mode) and
1322: -- results were trashed in a previous step.
1323: begin
1324: -- We wish to remove the QuickPay inclusions.
1325: if g_debug then
1326: hr_utility.set_location('hrassact.trash_quickpay',10);
1327: end if;
1328: --
1329: -- Enhancement 3368211
1330: -- Delete from both PAY_QUICKPAY_INCLUSIONS and
1339: delete from pay_quickpay_inclusions
1340: where assignment_action_id = p_action_id;
1341: --
1342: if g_debug then
1343: hr_utility.set_location('hrassact.trash_quickpay',20);
1344: end if;
1345: for c1rec in c1 loop
1346: --
1347: -- delete any unprocessed run result attached to the entry.
1345: for c1rec in c1 loop
1346: --
1347: -- delete any unprocessed run result attached to the entry.
1348: if g_debug then
1349: hr_utility.set_location('hrassact.trash_quickpay',30);
1350: end if;
1351: delete from pay_run_result_values RRV
1352: where RRV.run_result_id in
1353: (select RR.run_result_id
1355: where RR.source_type = 'E'
1356: and RR.source_id = c1rec.element_entry_id);
1357: --
1358: if g_debug then
1359: hr_utility.set_location('hrassact.trash_quickpay',40);
1360: end if;
1361: delete from pay_run_results RR
1362: where RR.source_type = 'E'
1363: and RR.source_id = c1rec.element_entry_id;
1363: and RR.source_id = c1rec.element_entry_id;
1364: --
1365: -- delete any element entry values
1366: if g_debug then
1367: hr_utility.set_location('hrassact.trash_quickpay',50);
1368: end if;
1369: delete from pay_element_entry_values_f EEV
1370: where EEV.element_entry_id = c1rec.element_entry_id;
1371: --
1370: where EEV.element_entry_id = c1rec.element_entry_id;
1371: --
1372: -- delete the entry itself
1373: if g_debug then
1374: hr_utility.set_location('hrassact.trash_quickpay',60);
1375: end if;
1376: delete from pay_element_entries_f
1377: where current of c1;
1378: --
1379: end loop;
1380: end;
1381: --
1382: if g_debug then
1383: hr_utility.set_location('hrassact.trash_quickpay',60);
1384: end if;
1385: return;
1386: --
1387: end trash_quickpay;
1613: -- will have no effect for unsequenced actions such as
1614: -- Pre-Payments. For efficiency there should be no cascade
1615: -- trigger on Run Results so we need to trash the values as well.
1616: if g_debug then
1617: hr_utility.set_location('hrassact.do_assact_rollback',10);
1618: end if;
1619: delete from pay_run_result_values RRV
1620: where RRV.run_result_id in
1621: (select RR.run_result_id
1622: from pay_run_results RR
1623: where RR.assignment_action_id = p_assact_rec.assact_id);
1624: --
1625: if g_debug then
1626: hr_utility.set_location('hrassact.do_assact_rollback',20);
1627: end if;
1628: delete from pay_run_results RR
1629: where RR.assignment_action_id = p_assact_rec.assact_id;
1630: --
1632: -- performance requirements on Insert and Update, and also because
1633: -- they need to go for retry as well as rollback.
1634: -- Start with any balance context values.
1635: if g_debug then
1636: hr_utility.set_location('hrassact.do_assact_rollback',25);
1637: end if;
1638: delete from pay_balance_context_values VAL
1639: where exists (
1640: select null
1642: where PLB.assignment_action_id = p_assact_rec.assact_id
1643: and VAL.latest_balance_id = PLB.latest_balance_id);
1644: --
1645: if g_debug then
1646: hr_utility.set_location('hrassact.do_assact_rollback',30);
1647: end if;
1648: delete from pay_person_latest_balances PLB
1649: where PLB.assignment_action_id = p_assact_rec.assact_id;
1650: --
1648: delete from pay_person_latest_balances PLB
1649: where PLB.assignment_action_id = p_assact_rec.assact_id;
1650: --
1651: if g_debug then
1652: hr_utility.set_location('hrassact.do_assact_rollback',35);
1653: end if;
1654: delete from pay_balance_context_values VAL
1655: where exists (
1656: select null
1658: where ALB.assignment_action_id = p_assact_rec.assact_id
1659: and VAL.latest_balance_id = ALB.latest_balance_id);
1660: --
1661: if g_debug then
1662: hr_utility.set_location('hrassact.do_assact_rollback',40);
1663: end if;
1664: delete from pay_assignment_latest_balances ALB
1665: where ALB.assignment_action_id = p_assact_rec.assact_id;
1666: --
1676: -- Start by selecting the element_entry_id
1677: -- that we need to delete.
1678: -- We are joining effective dates only to hit the whole
1679: -- index, because there should only be the one row anyway.
1680: -- hr_utility.set_location('hrassact.do_assact_rollback',50);
1681: select pee.element_entry_id
1682: into v_eeid
1683: from pay_element_entries_f pee
1684: where pee.creator_id = p_assact_rec.assact_id
1686: and p_pact_rec.action_date between
1687: pee.effective_start_date and pee.effective_end_date;
1688: --
1689: -- Now, we attempt to delete the entry values.
1690: -- hr_utility.set_location('hrassact.do_assact_rollback',60);
1691: delete from pay_element_entry_values_f pev
1692: where pev.element_entry_id = v_eeid
1693: and p_pact_rec.action_date between
1694: pev.effective_start_date and pev.effective_end_date;
1697: -- Note, if this procedure is called from the balance
1698: -- adjustment row, the form may be attempting to delete
1699: -- this row. However, this could be called from the
1700: -- actions form, in which case we do need to do the delete.
1701: -- hr_utility.set_location('hrassact.do_assact_rollback',70);
1702: delete from pay_element_entries_f pee
1703: where pee.element_entry_id = v_eeid
1704: and p_pact_rec.action_date between
1705: pee.effective_start_date and pee.effective_end_date;
1742: -- to undo changes in their entirety, since we do not
1743: -- have all the information we need to hand, but we
1744: -- perform delete next change.
1745: if g_debug then
1746: hr_utility.set_location('hrassact.do_assact_rollback',80);
1747: end if;
1748: for c1rec in c1 loop
1749: -- First, look for possible stop rule case.
1750: if(c1rec.effective_end_date = p_pact_rec.action_date) then
1750: if(c1rec.effective_end_date = p_pact_rec.action_date) then
1751: -- We may have a stopped entry, but we need to
1752: -- see if this really is the case.
1753: if g_debug then
1754: hr_utility.set_location('hrassact.do_assact_rollback',90);
1755: end if;
1756: select max(pee.effective_end_date)
1757: into v_max_date
1758: from pay_element_entries_f pee
1782: then
1783: -- Note, in following select, use max to avoid
1784: -- having to deal with no data found error.
1785: if g_debug then
1786: hr_utility.set_location('hrassact.do_assact_rollback',110);
1787: end if;
1788: select max(pee.effective_end_date)
1789: into v_max_date
1790: from pay_element_entries_f pee
1803: -- the update was previously a correction. This
1804: -- means we need to set the updating_action_id
1805: -- to null.
1806: if g_debug then
1807: hr_utility.set_location('hrassact.do_assact_rollback',130);
1808: end if;
1809: update pay_element_entries_f pee
1810: set pee.updating_action_id = null
1811: where pee.element_entry_id = c1rec.element_entry_id
1821: --
1822: --
1823: -- delete any messages associated with the assignment action.
1824: if g_debug then
1825: hr_utility.set_location('hrassact.do_assact_rollback',140);
1826: end if;
1827: delete from pay_message_lines ML
1828: where ML.source_type = 'A'
1829: and ML.source_id = p_assact_rec.assact_id;
1835: -- in retry mode.
1836: -- Note, the delete of a pre-payment row causes
1837: -- a cascade delete from pay_coin_anal_elements.
1838: if g_debug then
1839: hr_utility.set_location('hrassact.do_assact_rollback',150);
1840: end if;
1841: delete from pay_pre_payments ppp
1842: where ppp.assignment_action_id = p_assact_rec.assact_id;
1843: end if;
1870: --
1871: -- now write our message to the payroll_action level. We
1872: -- want to spit out the asssignment's current Payroll ID as well.
1873: if g_debug then
1874: hr_utility.set_location('hrassact.do_assact_rollback',160);
1875: end if;
1876: insert into pay_message_lines
1877: (line_sequence,
1878: payroll_id,
1901: -- if we were being called from a form)
1902: if not p_leave_base_table_row then
1903: if p_rollback_mode = 'RETRY' then
1904: if g_debug then
1905: hr_utility.set_location('hrassact.do_assact_rollback',170);
1906: end if;
1907: update pay_assignment_actions
1908: set action_status = 'M'
1909: where assignment_action_id = p_assact_rec.assact_id;
1909: where assignment_action_id = p_assact_rec.assact_id;
1910: --
1911: elsif p_rollback_mode = 'BACKPAY' then
1912: if g_debug then
1913: hr_utility.set_location('hrassact.do_assact_rollback',180);
1914: end if;
1915: update pay_assignment_actions
1916: set action_status = 'B'
1917: where assignment_action_id = p_assact_rec.assact_id;
1919: elsif p_rollback_mode = 'ROLLBACK' then
1920: -- there may be pay_action_interlock rows.
1921: -- which are locking other assignment actions.
1922: if g_debug then
1923: hr_utility.set_location('hrassact.do_assact_rollback',190);
1924: end if;
1925: delete from pay_action_interlocks lck
1926: where lck.locking_action_id = p_assact_rec.assact_id;
1927: --
1925: delete from pay_action_interlocks lck
1926: where lck.locking_action_id = p_assact_rec.assact_id;
1927: --
1928: if g_debug then
1929: hr_utility.set_location('hrassact.do_assact_rollback',200);
1930: end if;
1931: delete from pay_assignment_actions
1932: where assignment_action_id = p_assact_rec.assact_id;
1933: end if;
1936: -- still need to delete interlock rows. Of course,
1937: -- in this case we do not delete the action.
1938: if(p_rollback_mode = 'ROLLBACK') then
1939: if g_debug then
1940: hr_utility.set_location('hrassact.do_assact_rollback',210);
1941: end if;
1942: delete from pay_action_interlocks lck
1943: where lck.locking_action_id = p_assact_rec.assact_id;
1944: end if;
1944: end if;
1945: end if;
1946: --
1947: if g_debug then
1948: hr_utility.set_location('hrassact.do_assact_rollback',220);
1949: end if;
1950: return;
1951: --
1952: end do_assact_rollback;
2240: begin
2241: g_debug := hr_utility.debug_enabled;
2242: --
2243: if g_debug then
2244: hr_utility.set_location('hrassact.rollback_payroll_action',10);
2245: end if;
2246: py_rollback_pkg.rollback_payroll_action
2247: (p_payroll_action_id => p_payroll_action_id,
2248: p_rollback_mode => p_rollback_mode,
2258: begin
2259: g_debug := hr_utility.debug_enabled;
2260: --
2261: if g_debug then
2262: hr_utility.set_location('hrassact.rollback_payroll_action',20);
2263: end if;
2264: py_rollback_pkg.rollback_payroll_action
2265: (p_payroll_action_id => p_payroll_action_id,
2266: p_rollback_mode => p_rollback_mode,
2277: begin
2278: g_debug := hr_utility.debug_enabled;
2279: --
2280: if g_debug then
2281: hr_utility.set_location('hrassact.rollback_payroll_action',30);
2282: end if;
2283: py_rollback_pkg.rollback_payroll_action
2284: (p_payroll_action_id => p_payroll_action_id,
2285: p_all_or_nothing => FALSE,
2312: begin
2313: g_debug := hr_utility.debug_enabled;
2314: --
2315: if g_debug then
2316: hr_utility.set_location('hrassact.rollback_ass_action',20);
2317: end if;
2318: for c1rec in c1 loop
2319: --
2320: -- populate payroll action details and perform high level validation
2319: --
2320: -- populate payroll action details and perform high level validation
2321: l_pact_rec.pact_id := c1rec.payroll_action_id;
2322: if g_debug then
2323: hr_utility.set_location('hrassact.rollback_ass_action',30);
2324: end if;
2325: val_pact_rollback(p_pact_rec => l_pact_rec,
2326: p_rollback_mode => p_rollback_mode);
2327: --
2328: -- see if OK to roll back or retry this assignment action
2329: l_assact_rec.assact_id := p_assignment_action_id;
2330: --
2331: if g_debug then
2332: hr_utility.set_location('hrassact.rollback_ass_action',40);
2333: end if;
2334: if p_rollback_mode = 'BACKPAY' or
2335: (val_assact_rollback (l_pact_rec, l_assact_rec, p_rollback_mode) and
2336: val_assact_rr_rules (l_pact_rec, p_rollback_mode))
2337: then
2338: --
2339: -- OK, clean up all child records for the action
2340: if g_debug then
2341: hr_utility.set_location('hrassact.rollback_ass_action',50);
2342: end if;
2343: do_assact_rollback
2344: (p_pact_rec => l_pact_rec,
2345: p_assact_rec => l_assact_rec,
2353: --
2354: end loop;
2355: --
2356: if g_debug then
2357: hr_utility.set_location('hrassact.rollback_ass_action',60);
2358: end if;
2359: return;
2360: --
2361: end rollback_ass_action;
2507: begin
2508: g_debug := hr_utility.debug_enabled;
2509: --
2510: if g_debug then
2511: hr_utility.set_location('hrassact.trash_latest_balances',10);
2512: end if;
2513: if (g_lat_bal_check_mode is null) then
2514: begin
2515: if g_debug then
2512: end if;
2513: if (g_lat_bal_check_mode is null) then
2514: begin
2515: if g_debug then
2516: hr_utility.set_location('hrassact.trash_latest_balances',15);
2517: end if;
2518: select parameter_value
2519: into g_lat_bal_check_mode
2520: from pay_action_parameters
2525: g_lat_bal_check_mode := 'N';
2526: end;
2527:
2528: if (g_lat_bal_check_mode = 'B') then
2529: HRASSACT.CHECK_LAT_BALS_FIRST := TRUE;
2530: elsif (g_lat_bal_check_mode = 'R') then
2531: HRASSACT.CHECK_RRVS_FIRST := TRUE;
2532: end if;
2533: end if;
2527:
2528: if (g_lat_bal_check_mode = 'B') then
2529: HRASSACT.CHECK_LAT_BALS_FIRST := TRUE;
2530: elsif (g_lat_bal_check_mode = 'R') then
2531: HRASSACT.CHECK_RRVS_FIRST := TRUE;
2532: end if;
2533: end if;
2534: --
2535: if HRASSACT.CHECK_LATEST_BALANCES = TRUE then
2531: HRASSACT.CHECK_RRVS_FIRST := TRUE;
2532: end if;
2533: end if;
2534: --
2535: if HRASSACT.CHECK_LATEST_BALANCES = TRUE then
2536: if HRASSACT.CHECK_RRVS_FIRST = TRUE then
2537: if g_debug then
2538: hr_utility.set_location('hrassact.trash_latest_balances',20);
2539: end if;
2532: end if;
2533: end if;
2534: --
2535: if HRASSACT.CHECK_LATEST_BALANCES = TRUE then
2536: if HRASSACT.CHECK_RRVS_FIRST = TRUE then
2537: if g_debug then
2538: hr_utility.set_location('hrassact.trash_latest_balances',20);
2539: end if;
2540: --
2534: --
2535: if HRASSACT.CHECK_LATEST_BALANCES = TRUE then
2536: if HRASSACT.CHECK_RRVS_FIRST = TRUE then
2537: if g_debug then
2538: hr_utility.set_location('hrassact.trash_latest_balances',20);
2539: end if;
2540: --
2541: -- Check for existance of run result value for input value
2542: --
2545: into l_ivchk;
2546: if ivchk%FOUND then
2547: --
2548: if g_debug then
2549: hr_utility.set_location('hrassact.trash_latest_balances',30);
2550: end if;
2551: -- Delete all balance context values and
2552: -- person latest balances.
2553: for plbcrec in platbalc loop
2558: where PLB.latest_balance_id = plbcrec.latest_balance_id;
2559: end loop;
2560:
2561: if g_debug then
2562: hr_utility.set_location('hrassact.trash_latest_balances',40);
2563: end if;
2564: -- Delete all balance context values and
2565: -- assignment latest balances.
2566:
2604: --
2605: end if;
2606: close ivchk;
2607:
2608: elsif HRASSACT.CHECK_LAT_BALS_FIRST = TRUE then
2609:
2610: if g_debug then
2611: hr_utility.set_location('hrassact.trash_latest_balances',50);
2612: end if;
2607:
2608: elsif HRASSACT.CHECK_LAT_BALS_FIRST = TRUE then
2609:
2610: if g_debug then
2611: hr_utility.set_location('hrassact.trash_latest_balances',50);
2612: end if;
2613: --
2614: -- Check for any latest balances before relevant run result value
2615: --
2638: end if;
2639: end loop;
2640: --
2641: if g_debug then
2642: hr_utility.set_location('hrassact.trash_latest_balances',60);
2643: end if;
2644: -- Delete all balance context values and
2645: -- assignment latest balances.
2646: if l_rrv_found <> 0 then
2697: --
2698: -- Original Code
2699: --
2700: if g_debug then
2701: hr_utility.set_location('hrassact.trash_latest_balances',70);
2702: end if;
2703: -- Delete all balance context values and
2704: -- person latest balances.
2705: for plbcrec in plbc loop
2710: where PLB.latest_balance_id = plbcrec.latest_balance_id;
2711: end loop;
2712: --
2713: if g_debug then
2714: hr_utility.set_location('hrassact.trash_latest_balances',80);
2715: end if;
2716: -- Delete all balance context values and
2717: -- assignment latest balances.
2718: open albc;
2735: CLOSE albc;
2736: END IF;
2737: --
2738: if g_debug then
2739: hr_utility.set_location('hrassact.trash_latest_balances',70);
2740: end if;
2741: --
2742: for lbcrec in lbc loop
2743: delete from pay_latest_balances ALB
2746: --
2747: end if;
2748: --
2749: if g_debug then
2750: hr_utility.set_location('hrassact.trash_latest_balances',90);
2751: end if;
2752: --
2753: for plrec in pl_feed_chk loop
2754: --
2752: --
2753: for plrec in pl_feed_chk loop
2754: --
2755: if g_debug then
2756: hr_utility.set_location('hrassact.trash_latest_balances',100);
2757: end if;
2758:
2759: delete from pay_balance_context_values BCV
2760: where BCV.latest_balance_id = plrec.latest_balance_id;
2802: --
2803: end if;
2804: --
2805: if g_debug then
2806: hr_utility.set_location('hrassact.trash_latest_balances',110);
2807: end if;
2808: --
2809: return;
2810: --
2850: Type t_latbal is table of pay_assignment_latest_balances.latest_balance_id%type;
2851: lat_bal_list t_latbal;
2852:
2853: begin
2854: hr_utility.set_location('hrassact.trash_latest_balances',10);
2855: --
2856: -- Delete all balance context values and
2857: -- person latest balances.
2858: for plbcrec in plbc loop
2862: delete from pay_person_latest_balances PLB
2863: where PLB.latest_balance_id = plbcrec.latest_balance_id;
2864: end loop;
2865: --
2866: hr_utility.set_location('hrassact.trash_latest_balances',20);
2867: -- Delete all balance context values and
2868: -- assignment latest balances.
2869: open albc;
2870: loop
2886: CLOSE albc;
2887: END IF;
2888:
2889: --
2890: hr_utility.set_location('hrassact.trash_latest_balances',30);
2891: for lbcrec in lbc loop
2892: delete from pay_latest_balances ALB
2893: where ALB.latest_balance_id = lbcrec.latest_balance_id;
2894: end loop;
2891: for lbcrec in lbc loop
2892: delete from pay_latest_balances ALB
2893: where ALB.latest_balance_id = lbcrec.latest_balance_id;
2894: end loop;
2895: hr_utility.set_location('hrassact.trash_latest_balances',40);
2896: --
2897: return;
2898: --
2899: end trash_latest_balances;
3022: g_debug := hr_utility.debug_enabled;
3023: --
3024: -- Simply return the person_id for the assignment.
3025: if g_debug then
3026: hr_utility.set_location('hrassact.del_latest_balances',10);
3027: end if;
3028: select asg.person_id
3029: into l_person_id
3030: from per_all_assignments_f asg
3034: --
3035: if (p_element_entry is null) and (p_element_type_id is null) then
3036: -- Delete (person) balance context values.
3037: if g_debug then
3038: hr_utility.set_location('hrassact.del_latest_balances',20);
3039: end if;
3040: for plbcrec in plbc(l_person_id) loop
3041: delete from pay_balance_context_values BCV
3042: where BCV.latest_balance_id = plbcrec.latest_balance_id;
3047: --
3048: -- We need to delete all latest balances for the
3049: -- person's period of service.
3050: if g_debug then
3051: hr_utility.set_location('hrassact.del_latest_balances',40);
3052: end if;
3053: for albcrec in albc(l_person_id) loop
3054: delete from pay_balance_context_values BCV
3055: where BCV.latest_balance_id = albcrec.latest_balance_id;
3058: where ALB.latest_balance_id = albcrec.latest_balance_id;
3059: end loop;
3060: --
3061: if g_debug then
3062: hr_utility.set_location('hrassact.del_latest_balances',45);
3063: end if;
3064: for lbcrec in lbc(l_person_id) loop
3065: delete from pay_latest_balances ALB
3066: where ALB.latest_balance_id = lbcrec.latest_balance_id;
3075: --
3076: -- Derive the element type id from the entry id.
3077: --
3078: if g_debug then
3079: hr_utility.set_location('hrassact.del_latest_balances',60);
3080: end if;
3081: select pel.element_type_id into l_element_type_id
3082: from pay_element_entries_f pee
3083: ,pay_element_links_f pel
3091: ;
3092: end if;
3093: -- Delete (person) balance context values.
3094: if g_debug then
3095: hr_utility.set_location('hrassact.del_latest_balances',70);
3096: end if;
3097: for plbcrec in plbc_selective(l_person_id, l_element_type_id) loop
3098: delete from pay_balance_context_values BCV
3099: where BCV.latest_balance_id = plbcrec.latest_balance_id;
3105: -- Delete contexts and latest balances for assignment.
3106: -- We need to delete all latest balances for the
3107: -- person's period of service.
3108: if g_debug then
3109: hr_utility.set_location('hrassact.del_latest_balances',80);
3110: end if;
3111: for albcrec in albc_selective(l_person_id, l_element_type_id) loop
3112: delete from pay_balance_context_values BCV
3113: where BCV.latest_balance_id = albcrec.latest_balance_id;
3116: where ALB.latest_balance_id = albcrec.latest_balance_id;
3117: end loop;
3118: --
3119: if g_debug then
3120: hr_utility.set_location('hrassact.del_latest_balances',85);
3121: end if;
3122: for lbcrec in lbc_selective(l_person_id, l_element_type_id) loop
3123: delete from pay_latest_balances ALB
3124: where ALB.latest_balance_id = lbcrec.latest_balance_id;
3429: --
3430: g_debug := hr_utility.debug_enabled;
3431: --
3432: if g_debug then
3433: hr_utility.set_location('hrassact.resequence_actions', 10);
3434: end if;
3435: if(rmode = 'Y') then
3436: open seqasg(aaid, chldact);
3437: elsif (rmode = 'N') then
3491: end if;
3492: end if;
3493: --
3494: if g_debug then
3495: hr_utility.set_location('hrassact.resequence_actions', 20);
3496: end if;
3497: end resequence_actions;
3498: --
3499: procedure resequence_children(p_asg_action in number)
3696: hr_utility.trace('passing asgid = '||asgid);
3697: hr_utility.trace('passing actseq = '||actseq);
3698: --
3699: if g_debug then
3700: hr_utility.set_location('hrassact.resequence_actions', 10);
3701: end if;
3702: if(rmode = 'Y') then
3703: open seqasg(asgid,actseq);
3704: elsif(rmode = 'N') then
3757: else
3758: close seqgrp;
3759: end if;
3760: if g_debug then
3761: hr_utility.set_location('hrassact.resequence_actions', 20);
3762: end if;
3763: end resequence_actions;
3764: --
3765: --
3787: g_debug := hr_utility.debug_enabled;
3788: --
3789: -- Find interlocks for this assignment action
3790: if g_debug then
3791: hr_utility.set_location('hrassact.applied_interlocks',10);
3792: end if;
3793: <
3794: for locked IN interlocks(p_locking_action_id) loop
3795: --
3803: -- For the second and subsequent locked action ids, append them to
3804: -- the current string, if there is enough space left for the dash
3805: -- and the whole of the id.
3806: if g_debug then
3807: hr_utility.set_location('hrassact.applied_interlocks',20);
3808: end if;
3809: v_string := v_string || '-' || locked.locked_action_id;
3810: else
3811: --
3813: -- If there is no space left at the end of the string for the
3814: -- current locked action id, add the arrow symbol to the end
3815: -- of the string
3816: if g_debug then
3817: hr_utility.set_location('hrassact.applied_interlocks',30);
3818: end if;
3819: v_string := v_string || '->';
3820: else
3821: -- If the end of the string has already been reached,
3820: else
3821: -- If the end of the string has already been reached,
3822: -- replace the last id with the arrow symbol
3823: if g_debug then
3824: hr_utility.set_location('hrassact.applied_interlocks',40);
3825: end if;
3826: v_string := substr(v_string, 1, instr(v_string, '-', -1, 1)-1)
3827: || '->';
3828: end if;
3839: --
3840: end loop interlocks_loop; -- end for locked IN interlocks
3841: --
3842: if g_debug then
3843: hr_utility.set_location('hrassact.applied_interlocks',40);
3844: end if;
3845: return v_string;
3846: --
3847: end applied_interlocks;
4034: run_type_id in number default null
4035: ) is
4036: --
4037: begin
4038: hrassact.inassact_main(pactid, asgid, p_ass_action_seq,
4039: p_serial_number, p_pre_payment_id,
4040: p_element_entry, p_asg_lock, null,
4041: p_purge_mode,run_type_id);
4042: end inassact;
4054: p_purge_mode in boolean default FALSE --purge mode
4055: ) is
4056: --
4057: begin
4058: hrassact.inassact_main(pactid, asgid, p_ass_action_seq,
4059: p_serial_number, p_pre_payment_id,
4060: p_element_entry, p_asg_lock, taxunt,
4061: p_purge_mode,null);
4062: end inassact_main;
4319: -- Need the effective date of the payroll action.
4320: -- Also want to see the action_type.
4321: -- The legislation and the tax unit is also needed for the US.
4322: if g_debug then
4323: hr_utility.set_location('hrassact.irbaact',10);
4324: --
4325: hr_utility.trace('pactid = '||pactid);
4326: hr_utility.trace('assignment_id = '||asgid);
4327: end if;
4347: taxunt2 := hr_dynsql.get_tax_unit(asgid, effdate);
4348: end if;
4349: --
4350: if g_debug then
4351: hr_utility.set_location('hrassact.irbaact',11);
4352: end if;
4353: end if;
4354: --
4355: if (actyp = 'V') then
4405: end if;
4406: --
4407: -- insert an assigment action.
4408: if g_debug then
4409: hr_utility.set_location('hrassact.irbaact',20);
4410: end if;
4411: if((actype = 'V' or actype = 'I' or actype = 'B')
4412: and p_mode <> 'BACKPAY') then
4413: -- we need to check that there isn't a failed action for this
4493: -- An exception is the 'I' action. It can be inserted
4494: -- before a purge, because a Purge uses balance
4495: -- initialisation to perform balance rollup.
4496: if g_debug then
4497: hr_utility.set_location('hrassact.irbaact',25);
4498: end if;
4499: insert into pay_assignment_actions (
4500: assignment_action_id,
4501: assignment_id,
4551: -- NOTE - the update of sequences for 'X' actions will
4552: -- work correctly because the seqasg cursor does not
4553: -- join to per_all_assignments_f.
4554: if g_debug then
4555: hr_utility.set_location('hrassact.irbaact',30);
4556: end if;
4557: if(rmode = 'Y') then
4558: open seqasg(pactid, asgid);
4559: elsif(rmode = 'N') then
4619: if(actyp <> 'X') then
4620: -- take the opportunity here to lock the assignment
4621: -- and period of service of the person.
4622: if g_debug then
4623: hr_utility.set_location('hrassact.inassact_main',10);
4624: end if;
4625: if (p_asg_lock) then
4626: -- We wish to lock the assignment and period of service.
4627: declare
4656: end;
4657: end if;
4658: --
4659: if g_debug then
4660: hr_utility.set_location('hrassact.inassact_main',15);
4661: end if;
4662: --
4663: -- get the rule_mode
4664: select /*+ ORDERED*/ plr.rule_mode
4688: -- as for the run.
4689: if(rmode = 'Y') then
4690: -- time period independent legislation.
4691: if g_debug then
4692: hr_utility.set_location('hrassact.inassact_main',20);
4693: end if;
4694: if (gv_dum_qpay) then
4695: hr_utility.set_location('hrassact.inassact_main Dummy quickpay ',20);
4696: insert into pay_assignment_actions (
4691: if g_debug then
4692: hr_utility.set_location('hrassact.inassact_main',20);
4693: end if;
4694: if (gv_dum_qpay) then
4695: hr_utility.set_location('hrassact.inassact_main Dummy quickpay ',20);
4696: insert into pay_assignment_actions (
4697: assignment_action_id,
4698: assignment_id,
4699: payroll_action_id,
4735: and ptp.payroll_id = pac.payroll_id
4736: and pac.effective_date between ptp.start_date and ptp.end_date
4737: and pa2.effective_date <= ptp.end_date);
4738: else
4739: hr_utility.set_location('hrassact.inassact_main Normal quickpay ',20);
4740: insert into pay_assignment_actions (
4741: assignment_action_id,
4742: assignment_id,
4743: payroll_action_id,
4784: end if;
4785: elsif rmode = 'G' then -- bug 13541539
4786: -- POG dependent legislation
4787: if g_debug then
4788: hr_utility.set_location('hrassact.inassact_main',22);
4789: end if;
4790: if (gv_dum_qpay) then
4791: hr_utility.set_location('hrassact.inassact_main Dummy quickpay ',22);
4792: insert into pay_assignment_actions (
4787: if g_debug then
4788: hr_utility.set_location('hrassact.inassact_main',22);
4789: end if;
4790: if (gv_dum_qpay) then
4791: hr_utility.set_location('hrassact.inassact_main Dummy quickpay ',22);
4792: insert into pay_assignment_actions (
4793: assignment_action_id,
4794: assignment_id,
4795: payroll_action_id,
4838: and ptp.payroll_id = pac.payroll_id
4839: and pac.effective_date between ptp.start_date and ptp.end_date
4840: and pa2.effective_date <= ptp.end_date);
4841: else
4842: hr_utility.set_location('hrassact.inassact_main Normal quickpay ',22);
4843: insert into pay_assignment_actions (
4844: assignment_action_id,
4845: assignment_id,
4846: payroll_action_id,
4895: --
4896: else
4897: -- time period dependent legislation.
4898: if g_debug then
4899: hr_utility.set_location('hrassact.inassact_main',30);
4900: end if;
4901: if (gv_dum_qpay) then
4902: hr_utility.set_location('hrassact.inassact_main Dummy quickpay ',30);
4903: insert into pay_assignment_actions (
4898: if g_debug then
4899: hr_utility.set_location('hrassact.inassact_main',30);
4900: end if;
4901: if (gv_dum_qpay) then
4902: hr_utility.set_location('hrassact.inassact_main Dummy quickpay ',30);
4903: insert into pay_assignment_actions (
4904: assignment_action_id,
4905: assignment_id,
4906: payroll_action_id,
4946: and ptp.payroll_id = pac.payroll_id
4947: and pac.effective_date between ptp.start_date and ptp.end_date
4948: and pa2.effective_date <= ptp.end_date);
4949: else
4950: hr_utility.set_location('hrassact.inassact_main Normal quickpay ',30);
4951: -- Changes for bug 12356133, forced indexes PAY_PAYROLL_ACTIONS_PK and
4952: -- PAY_ASSIGNMENT_ACTIONS_N1 through hints.
4953: insert into pay_assignment_actions (
4954: assignment_action_id,
5064:
5065: --
5066: -- Check that a row has been inserted.
5067: if g_debug then
5068: hr_utility.set_location('hrassact.inassact_main',40);
5069: end if;
5070: if(sql%rowcount = 0) then
5071: hr_utility.set_message(801,'HR_7010_ACTION_INTLOCK_FAIL');
5072: hr_utility.raise_error;
5077: -- We perform validation of the interlock rules here.
5078: -- kkawol: Only return rows for master assignment action.
5079: --
5080: if g_debug then
5081: hr_utility.set_location('hrassact.inassact_main',45);
5082: end if;
5083: insert into PAY_ASSIGNMENT_ACTIONS (
5084: ASSIGNMENT_ACTION_ID,
5085: ASSIGNMENT_ID,
5143: --
5144: -- update the action_population_status to indicate
5145: -- an action has been successfully inserted.
5146: if g_debug then
5147: hr_utility.set_location('hrassact.inassact_main',50);
5148: end if;
5149:
5150: begin
5151: select pac.action_population_status
5184: p_assignment_action_id out nocopy number,
5185: p_object_version_number out nocopy number
5186: ) is
5187: assactid number;
5188: c_indent constant varchar2(30) := 'hrassact.qpassact';
5189: begin
5190: g_debug := hr_utility.debug_enabled;
5191: --
5192: -- Simply call the inassact procedure.
5233: -- kkawol: query restricted to only return the assignment id
5234: -- of the master action.
5235: --
5236: if g_debug then
5237: hr_utility.set_location('hrassact.qpppassact',10);
5238: end if;
5239: select act.assignment_id
5240: into l_assignment_id
5241: from pay_assignment_actions act,
5245: and act.source_action_id is null;
5246: --
5247: -- Start by simply inserting an assignment action.
5248: if g_debug then
5249: hr_utility.set_location('hrassact.qpppassact',20);
5250: end if;
5251: hrassact.inassact(p_payroll_action_id,l_assignment_id,null,null,null);
5252: --
5253: -- Get some information for insert to interlocks.
5247: -- Start by simply inserting an assignment action.
5248: if g_debug then
5249: hr_utility.set_location('hrassact.qpppassact',20);
5250: end if;
5251: hrassact.inassact(p_payroll_action_id,l_assignment_id,null,null,null);
5252: --
5253: -- Get some information for insert to interlocks.
5254: -- kkawol: Only returning details for the master action.
5255: --
5253: -- Get some information for insert to interlocks.
5254: -- kkawol: Only returning details for the master action.
5255: --
5256: if g_debug then
5257: hr_utility.set_location('hrassact.qpppassact',30);
5258: end if;
5259: select pay_assignment_actions_s.currval,
5260: act.assignment_action_id
5261: into l_locking_action_id,
5267: and act.source_action_id is null;
5268: --
5269: -- We can now insert interlock row.
5270: if g_debug then
5271: hr_utility.set_location('hrassact.qpppassact',40);
5272: end if;
5273: insert into pay_action_interlocks (
5274: locking_action_id,
5275: locked_action_id)
5278: --
5279: -- Update the payroll actions table with the
5280: -- appropriate date_earned value.
5281: if g_debug then
5282: hr_utility.set_location('hrassact.qpppassact',50);
5283: end if;
5284: update pay_payroll_actions pac
5285: set pac.date_earned = (
5286: select pa2.date_earned
5410: begin
5411: if g_debug then
5412: hr_utility.trace('pactid: '||to_char(pactid));
5413: hr_utility.trace('assactid: '||to_char(assactid));
5414: hr_utility.set_location('hrassact.reversal',10);
5415: end if;
5416: select ac2.assignment_id,
5417: ac2.tax_unit_id,
5418: ac2.run_type_id,
5442: -- the BackPay process needs this.
5443: if(not redo) then
5444: --
5445: -- start by inserting an assignment action row.
5446: hrassact.inassact_main(pactid,asgid,null,null,null,null,TRUE,taxunt,FALSE,run_type_id);
5447: --
5448: hr_utility.set_location('hrassact.reversal',10);
5449: -- Return the Reversal's assignment_action_id
5450: select act.assignment_action_id
5444: --
5445: -- start by inserting an assignment action row.
5446: hrassact.inassact_main(pactid,asgid,null,null,null,null,TRUE,taxunt,FALSE,run_type_id);
5447: --
5448: hr_utility.set_location('hrassact.reversal',10);
5449: -- Return the Reversal's assignment_action_id
5450: select act.assignment_action_id
5451: into rev_assact
5452: from pay_assignment_actions act
5466: -- have not already reversed the assignment action.
5467: -- Do this by checking a reversal does not already lock
5468: -- this row.
5469: if g_debug then
5470: hr_utility.set_location('hrassact.reversal',20);
5471: end if;
5472: insert into pay_action_interlocks (
5473: locking_action_id,
5474: locked_action_id)
5488: if(sql%rowcount = 0) then
5489: hr_utility.set_message(801,'HR_7013_ACTION_IS_REVERSED');
5490: hr_utility.raise_error;
5491: end if;
5492: hr_utility.set_location('hrassact.reversal',10);
5493: --
5494: -- insert lock to master action if this is a sub action
5495:
5496: insert into pay_action_interlocks (
5615: declare
5616: dummy number; -- need this for syntax.
5617: begin
5618: if g_debug then
5619: hr_utility.set_location('hrassact.reversal',25);
5620: end if;
5621: select 1
5622: into dummy
5623: from pay_payroll_actions pac,
5632: hr_utility.raise_error;
5633: end;
5634: --
5635: if g_debug then
5636: hr_utility.set_location('hrassact.reversal',30);
5637: end if;
5638:
5639: insert into pay_run_results (
5640: run_result_id,
5723: hr_utility.trace('l_org_id_iv: '||l_org_id_iv);
5724: end if;
5725: --
5726: if g_debug then
5727: hr_utility.set_location('hrassact.reversal',35);
5728: end if;
5729: insert into pay_run_result_values (
5730: input_value_id,
5731: run_result_id,
5789: -- the Reversal itself, we call a procedure to create
5790: -- "pre-inserted" run results and values to allow the
5791: -- correct re-processing of element entries in a
5792: -- subsequent run.
5793: --hrassact.rev_pre_inserted_rr(pactid);
5794: --
5795: -- To signal that processing has been successfully
5796: -- completed, update the action_status to (C)omplete.
5797: hr_utility.set_location('hrassact.reversal',40);
5793: --hrassact.rev_pre_inserted_rr(pactid);
5794: --
5795: -- To signal that processing has been successfully
5796: -- completed, update the action_status to (C)omplete.
5797: hr_utility.set_location('hrassact.reversal',40);
5798: update pay_payroll_actions pac
5799: set pac.action_status = 'C'
5800: where pac.payroll_action_id = pactid;
5801: end;
5803: --
5804: -- Now do the reversal for pay_run_balances. 1st the asg level balances
5805: --
5806: if g_debug then
5807: hr_utility.set_location('hrassact.reversal',45);
5808: end if;
5809: --
5810: /* currently for multi reversal we are using pactid as the reversal
5811: pactid. If multi then the ass_act_id is the rev_act_id we want to
5840: --
5841: pay_balance_pkg.maintain_balances_for_action(rev_assact);
5842: --
5843: if g_debug then
5844: hr_utility.set_location('Leaving: hrassact.reversal', 100);
5845: end if;
5846: end reversal;
5847: --
5848: ----------------- multi_assignment_reversal ------------------------------
5868: rev_aaid in number -- locking action
5869: ) is
5870: begin
5871:
5872: hrassact.gv_multi_reversal := TRUE;
5873:
5874: If hrassact.gv_cnt_reversal_act_id is null then
5875:
5876: SELECT count(*)
5870: begin
5871:
5872: hrassact.gv_multi_reversal := TRUE;
5873:
5874: If hrassact.gv_cnt_reversal_act_id is null then
5875:
5876: SELECT count(*)
5877: INTO hrassact.gv_cnt_reversal_act_id
5878: FROM pay_action_interlocks pai,
5873:
5874: If hrassact.gv_cnt_reversal_act_id is null then
5875:
5876: SELECT count(*)
5877: INTO hrassact.gv_cnt_reversal_act_id
5878: FROM pay_action_interlocks pai,
5879: pay_assignment_actions paa
5880: WHERE paa.payroll_action_id = pactid
5881: AND paa.assignment_action_id = pai.locking_action_id;
5887: rev_aaid, -- locking action id
5888: true -- multi flag to indicate assignment set reversal
5889: );
5890:
5891: hrassact.gv_cnt_reversal_act_id := hrassact.gv_cnt_reversal_act_id - 1 ;
5892:
5893: If hrassact.gv_cnt_reversal_act_id = 0 then
5894: pay_balance_pkg.create_all_group_balances(pactid,
5895: 'ALL',
5889: );
5890:
5891: hrassact.gv_cnt_reversal_act_id := hrassact.gv_cnt_reversal_act_id - 1 ;
5892:
5893: If hrassact.gv_cnt_reversal_act_id = 0 then
5894: pay_balance_pkg.create_all_group_balances(pactid,
5895: 'ALL',
5896: 'NORMAL',
5897: NULL,
5960: where rr3.source_id = pee.element_entry_id
5961: and rr3.status = 'U')
5962: order by pee.element_entry_id;
5963: --
5964: c_indent constant varchar2(30) := 'hrassact.rev_pre_inserted_rr';
5965: begin
5966: g_debug := hr_utility.debug_enabled;
5967: -- Insert un-processed run results and values as appropriate
5968: if g_debug then
6029: p_serial_number in varchar2,
6030: p_pre_payment_id in number,
6031: p_reason in varchar2 default null
6032: ) is
6033: c_indent constant varchar2(30) := 'hrassact.ext_man_payment';
6034: l_payroll_action_id number;
6035: l_assignment_action_id number;
6036: l_business_group_id number;
6037: l_consolidation_set_id number;
6150: p_pre_payment_id in number, -- pre-payment id
6151: p_reason in varchar2 default null -- Reason
6152: )
6153: IS
6154: c_indent constant varchar2(30) := 'hrassact.ext_man_payment2';
6155:
6156: BEGIN
6157:
6158: g_debug := hr_utility.debug_enabled;
6227: dummy number;
6228: l_found boolean;
6229: l_action_type varchar2(30);
6230: l_effective_date date;
6231: c_indent constant varchar2(32) := 'hrassact.set_action_context';
6232: --
6233: begin
6234: g_debug := hr_utility.debug_enabled;
6235: --
6655: taxunit in number default null, -- tax unit id.
6656: purge_mode in boolean default false, -- are we calling in purge mode?
6657: run_type_id in number default null
6658: ) is
6659: c_indent constant varchar2(32) := 'hrassact.bal_adjust_actions';
6660: pactid number; -- payroll_action_id.
6661: busgrp number; -- business_group_id.
6662: legcode pay_legislation_rules.legislation_code%TYPE; -- leg code
6663: asgid number; -- assignment_id.
6976: ) is
6977: --
6978: l_pay_act_id number;
6979: l_asg_act_id number;
6980: c_indent constant varchar2(22) := 'hrassact.bal_adjust';
6981: begin
6982: g_debug := hr_utility.debug_enabled;
6983: --
6984: if g_debug then
7125: and pplb.person_id = p_person_id;
7126:
7127: bal_dims bal_dims_cache;
7128:
7129: c_indent constant varchar2(30) := 'hrassact.maintain_lat_bal';
7130: pactid pay_payroll_actions.payroll_action_id%TYPE;
7131: asgid per_all_assignments_f.assignment_id%TYPE;
7132: bus_grp_id per_all_assignments_f.business_group_id%TYPE;
7133: l_person_id per_all_assignments_f.person_id%TYPE;
7156: ) return varchar2 is
7157: --
7158: l_context_string varchar2(2000);
7159: --
7160: c_indent constant varchar2(35) := 'hrassact.create_context_string';
7161: begin
7162: --
7163: if g_debug then
7164: hr_utility.set_location(c_indent,10);
7190: p_bal_context_str in varchar2 -- list of context values.
7191: ) return boolean is
7192: l_feed_balance boolean := FALSE;
7193: --
7194: c_indent constant varchar2(35) := 'hrassact.proc_feed_check';
7195: l_feed_chk_str varchar2(2000); -- used with dynamic pl/sql
7196: sql_cursor integer;
7197: l_rows integer;
7198: l_feed_flag integer;
7308: ) return boolean is
7309: l_feed_flag boolean;
7310: l_match boolean;
7311:
7312: c_indent constant varchar2(35) := 'hrassact.lb_context_match_check';
7313: l_jurisdiction_level pay_balance_types.jurisdiction_level%TYPE;
7314: cnt number;
7315: l_tax_unit_id number;
7316: l_jurisdiction_code pay_run_result_values.result_value%type;
7615: value
7616: from pay_balance_context_values
7617: where latest_balance_id = p_lat_bal_id;
7618:
7619: c_indent constant varchar2(35) := 'hrassact.context_match_check';
7620: l_jurisdiction_level pay_balance_types.jurisdiction_level%TYPE;
7621: cnt number;
7622: --
7623: begin
7711: udca in context_details
7712: ) return boolean is
7713: feed_balance boolean;
7714: --
7715: c_indent constant varchar2(30) := 'hrassact.feed_check';
7716: feed_checking_type pay_balance_dimensions.feed_checking_type%TYPE;
7717: feed_checking_code pay_balance_dimensions.feed_checking_code%TYPE;
7718: dim_num number;
7719: found boolean := FALSE;
7856: p_bal_owner_eff_date in out nocopy date -- latest balance date
7857: ) return date is
7858: l_expiry_date date;
7859: --
7860: c_indent constant varchar2(35) := 'hrassact.get_expiry_date';
7861: l_payroll_action pay_payroll_actions.payroll_action_id%type;
7862: l_effective_date pay_payroll_actions.effective_date%type;
7863: l_bal_owner_pay_action pay_payroll_actions.payroll_action_id%type;
7864: l_expiry_chk_str varchar2(2000); -- used with dynamic pl/sql
8069: prev_expiry_date in out nocopy date -- lb prev expiry date
8070: ) return boolean is
8071: l_change_flag boolean;
8072: --
8073: c_indent constant varchar2(35) := 'hrassact.feed_balance';
8074: lat_bal_exp_date date;
8075: l_bal_owner_eff_date pay_payroll_actions.effective_date%type;
8076: bal_adj_exp_date date;
8077: bal_adj_eff_date pay_payroll_actions.effective_date%type;
8692: hr_utility.trace ('v_business_group_id is :'||v_business_group_id);
8693:
8694:
8695: /*setting this variable to avoid the interlock failure error in quickpay action creation */
8696: hrassact.gv_dum_qpay := TRUE ;
8697:
8698: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 20);
8699:
8700: /*Call the following function to insert a quickpay payroll action*/
8694:
8695: /*setting this variable to avoid the interlock failure error in quickpay action creation */
8696: hrassact.gv_dum_qpay := TRUE ;
8697:
8698: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 20);
8699:
8700: /*Call the following function to insert a quickpay payroll action*/
8701: pay_qpq_api.ins
8702: (
8714:
8715: hr_utility.trace ('v_payroll_action_id:'||v_payroll_action_id);
8716: hr_utility.trace ('v_assignment_action_id'||v_assignment_action_id);
8717:
8718: hrassact.gv_dum_qpay := FALSE ;
8719: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 30);
8720:
8721: if v_payroll_action_id is not null and v_assignment_action_id is not null then
8722: /*Inserting the action sequence in pay_payroll_actions since
8715: hr_utility.trace ('v_payroll_action_id:'||v_payroll_action_id);
8716: hr_utility.trace ('v_assignment_action_id'||v_assignment_action_id);
8717:
8718: hrassact.gv_dum_qpay := FALSE ;
8719: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 30);
8720:
8721: if v_payroll_action_id is not null and v_assignment_action_id is not null then
8722: /*Inserting the action sequence in pay_payroll_actions since
8723: it is not inserted by the previous called api
8729: batch_process_mode = 'DUM_QPAY'
8730: where payroll_action_id = v_payroll_action_id
8731: and action_sequence is null;
8732:
8733: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 40);
8734:
8735: -- get the rule_mode
8736: begin
8737: select /*+ ORDERED*/ plr.rule_mode
8746: when no_data_found then
8747: v_r_mode := 'N';
8748: end;
8749:
8750: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 50);
8751: /*Resequencing the assignment actions*/
8752: hrassact.resequence_actions
8753: (
8754: aaid => v_assignment_action_id,
8748: end;
8749:
8750: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 50);
8751: /*Resequencing the assignment actions*/
8752: hrassact.resequence_actions
8753: (
8754: aaid => v_assignment_action_id,
8755: rmode => v_r_mode ,
8756: chldact => 'Y', -- need to verify whether resequencing of child actions is required or not
8756: chldact => 'Y', -- need to verify whether resequencing of child actions is required or not
8757: actype => 'Q'
8758: );
8759:
8760: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 60);
8761: /*Updating the action status of assignment action to complete*/
8762:
8763: update pay_assignment_actions
8764: set ACTION_STATUS = 'C'
8763: update pay_assignment_actions
8764: set ACTION_STATUS = 'C'
8765: where assignment_action_id = v_assignment_action_id;
8766:
8767: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 70);
8768: /*Updating the payroll action status as complete*/
8769:
8770: update pay_payroll_actions
8771: set action_status = 'C'
8770: update pay_payroll_actions
8771: set action_status = 'C'
8772: where payroll_action_id = v_payroll_action_id;
8773:
8774: hr_utility.set_location ('hrassact.ins_dummy_quickpay_action', 80);
8775: end if;
8776:
8777: end;
8778: --
8775: end if;
8776:
8777: end;
8778: --
8779: end hrassact;