[Home] [Help]
263: CHECK_RRVS_FIRST and
264: CHECK_LAT_BALS_FIRST package
265: globals to tune behaviour of
266: trash_latest_balances.
267: 09-JAN-2003 alogue 115.63 2692195 Use of hr_utility.debug_enabled
268: for performance of trace
269: statements.
270: 06-DEC-2002 alogue 115.62 Subtle-paranoid fix to
271: bal_adjust_actions to avoid
668: c_eot constant date := to_date('31/12/4712','DD/MM/YYYY');
669: g_context_cache context_cache_type;
670: contexts_cached boolean := FALSE;
671: g_lat_bal_check_mode pay_action_parameters.parameter_value%TYPE := null;
672: g_debug boolean := hr_utility.debug_enabled;
673: g_dynamic_contexts pay_core_utils.t_contexts_tab;
674: --
675: --
676: --
680: p_rollback_mode in varchar2) is
681: begin
682: if p_rollback_mode = 'RETRY' then
683: if p_pact_rec.action_type in ('V', 'B', 'Z', 'E', 'H') then
684: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
685: hr_utility.set_message_token('ACTION_NAME',p_pact_rec.action_name);
686: hr_utility.raise_error;
687: end if;
688: else
681: begin
682: if p_rollback_mode = 'RETRY' then
683: if p_pact_rec.action_type in ('V', 'B', 'Z', 'E', 'H') then
684: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
685: hr_utility.set_message_token('ACTION_NAME',p_pact_rec.action_name);
686: hr_utility.raise_error;
687: end if;
688: else
689: if p_pact_rec.action_type = 'Z' then
682: if p_rollback_mode = 'RETRY' then
683: if p_pact_rec.action_type in ('V', 'B', 'Z', 'E', 'H') then
684: hr_utility.set_message(801, 'HR_7093_ACTION_CANT_RETPAY');
685: hr_utility.set_message_token('ACTION_NAME',p_pact_rec.action_name);
686: hr_utility.raise_error;
687: end if;
688: else
689: if p_pact_rec.action_type = 'Z' then
690: hr_utility.set_message(801, 'HR_7212_ACTION_RBACK_RULE');
686: hr_utility.raise_error;
687: end if;
688: else
689: if p_pact_rec.action_type = 'Z' then
690: hr_utility.set_message(801, 'HR_7212_ACTION_RBACK_RULE');
691: hr_utility.set_message_token('ACTION_NAME',p_pact_rec.action_name);
692: hr_utility.raise_error;
693: end if;
694: end if;
687: end if;
688: else
689: if p_pact_rec.action_type = 'Z' then
690: hr_utility.set_message(801, 'HR_7212_ACTION_RBACK_RULE');
691: hr_utility.set_message_token('ACTION_NAME',p_pact_rec.action_name);
692: hr_utility.raise_error;
693: end if;
694: end if;
695: end val_pact_rr_rules;
688: else
689: if p_pact_rec.action_type = 'Z' then
690: hr_utility.set_message(801, 'HR_7212_ACTION_RBACK_RULE');
691: hr_utility.set_message_token('ACTION_NAME',p_pact_rec.action_name);
692: hr_utility.raise_error;
693: end if;
694: end if;
695: end val_pact_rr_rules;
696: --
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;
726: --
727: procedure validate_rollback_mode(p_rollback_mode in varchar2) is
728: begin
729: if p_rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY') then
730: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
731: hr_utility.raise_error;
732: end if;
733: end validate_rollback_mode;
734: --
727: procedure validate_rollback_mode(p_rollback_mode in varchar2) is
728: begin
729: if p_rollback_mode not in ('RETRY', 'ROLLBACK', 'BACKPAY') then
730: hr_utility.set_message(801, 'HR_7000_ACTION_BAD_ROLL_MODE');
731: hr_utility.raise_error;
732: end if;
733: end validate_rollback_mode;
734: --
735: --
803: from pay_element_entries_f
804: where updating_action_id = p_assact_id);
805: --
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;
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');
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');
822: hr_utility.set_message_token('ASSACTID',p_assact_id);
823: hr_utility.raise_error;
824: end loop;
825: --
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');
822: hr_utility.set_message_token('ASSACTID',p_assact_id);
823: hr_utility.raise_error;
824: end loop;
825: --
826: else
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');
822: hr_utility.set_message_token('ASSACTID',p_assact_id);
823: hr_utility.raise_error;
824: end loop;
825: --
826: else
827: --
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');
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');
834: hr_utility.set_message_token('ASSACTID',p_assact_id);
835: hr_utility.raise_error;
836: end loop;
837: --
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');
834: hr_utility.set_message_token('ASSACTID',p_assact_id);
835: hr_utility.raise_error;
836: end loop;
837: --
838: 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');
834: hr_utility.set_message_token('ASSACTID',p_assact_id);
835: hr_utility.raise_error;
836: end loop;
837: --
838: end if;
839: --
860: from pay_message_lines
861: where source_type = 'P'
862: and source_id = p_pact_id);
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;
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');
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');
872: hr_utility.raise_error;
873: end loop;
874: return;
875: end ensure_pact_rolled_back;
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');
872: hr_utility.raise_error;
873: end loop;
874: return;
875: end ensure_pact_rolled_back;
876: --
897: l_action_status pay_assignment_actions.action_status%type;
898: l_person_id per_all_people_f.person_id%type;
899: begin
900: --
901: g_debug := hr_utility.debug_enabled;
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
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,
1167: and pay.payroll_id (+) = pac.payroll_id
1168: and pac.effective_date between
1169: pay.effective_start_date (+) and pay.effective_end_date (+);
1170: if g_debug then
1171: hr_utility.trace('action type is ' || p_pact_rec.action_type );
1172: end if;
1173: --
1174: --
1175: -- some types (e.g, purge) of action can't be rolled back full stop.
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
1188: where action_type = p_pact_rec.action_type
1189: and classification_name = 'NONREMOVEABLE');
1190: exception
1191: when no_data_found then
1192: hr_utility.set_message(801, 'HR_6216_ACTION_CANT_PURGE');
1193: hr_utility.set_message_token('PACT_ID',
1194: to_char(p_pact_rec.pact_id));
1195: hr_utility.raise_error;
1196: end;
1189: and classification_name = 'NONREMOVEABLE');
1190: exception
1191: when no_data_found then
1192: hr_utility.set_message(801, 'HR_6216_ACTION_CANT_PURGE');
1193: hr_utility.set_message_token('PACT_ID',
1194: to_char(p_pact_rec.pact_id));
1195: hr_utility.raise_error;
1196: end;
1197: --
1191: when no_data_found then
1192: hr_utility.set_message(801, 'HR_6216_ACTION_CANT_PURGE');
1193: hr_utility.set_message_token('PACT_ID',
1194: to_char(p_pact_rec.pact_id));
1195: hr_utility.raise_error;
1196: end;
1197: --
1198: --
1199: -- get some more info needed to roll back actions
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
1222: from pay_action_classifications CLASS
1223: where CLASS.action_type = p_pact_rec.action_type
1224: and CLASS.classification_name = 'SEQUENCED';
1225: if g_debug then
1226: hr_utility.trace('this action type IS sequenced');
1227: end if;
1228: exception
1229: when no_data_found then
1230: p_pact_rec.sequenced_flag := FALSE;
1228: exception
1229: when no_data_found then
1230: p_pact_rec.sequenced_flag := FALSE;
1231: if g_debug then
1232: hr_utility.trace('this action type NOT sequenced');
1233: end if;
1234: end;
1235: end val_pact_rollback;
1236: --
1241: p_rollback_mode in varchar2
1242: ) is
1243: l_pact_rec pact_details;
1244: begin
1245: g_debug := hr_utility.debug_enabled;
1246: --
1247: -- We simply call the internal validate rollback procedure
1248: -- to give us the information we need.
1249: if g_debug then
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,
1273: l_pact_rec pact_details;
1274: l_assact_rec assact_details;
1275: result boolean;
1276: begin
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);
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;
1415: c_indent constant varchar2(30) := 'pyassact.undo_stop_update';
1416: begin
1417: -- Select some information about the entry we are operating on.
1418: if g_debug then
1419: hr_utility.set_location(c_indent, 10);
1420: end if;
1421: select pee.effective_start_date,
1422: pee.effective_end_date,
1423: pee.original_entry_id,
1437: -- For undo update, we have to get next effective start date.
1438: if(p_mode = 'DELETE_NEXT_CHANGE') then
1439: begin
1440: if g_debug then
1441: hr_utility.set_location(c_indent, 20);
1442: end if;
1443: select min(ee.effective_end_date)
1444: into next_end
1445: from pay_element_entries_f ee
1472: exception
1473: -- Several error messages can be raised from this procedure.
1474: -- We wish to trap a number of them, as they should be ignored
1475: -- for our purposes.
1476: when hr_utility.hr_error then
1477: hr_utility.get_message_details(message,applid);
1478: --
1479: if(message in ('HR_7699_ELE_ENTRY_REC_EXISTS',
1480: 'HR_7700_ELE_ENTRY_REC_EXISTS',
1473: -- Several error messages can be raised from this procedure.
1474: -- We wish to trap a number of them, as they should be ignored
1475: -- for our purposes.
1476: when hr_utility.hr_error then
1477: hr_utility.get_message_details(message,applid);
1478: --
1479: if(message in ('HR_7699_ELE_ENTRY_REC_EXISTS',
1480: 'HR_7700_ELE_ENTRY_REC_EXISTS',
1481: 'HR_6281_ELE_ENTRY_DT_DEL_LINK',
1483: 'HR_6284_ELE_ENTRY_DT_ASG_DEL')
1484: ) then
1485: -- We cannot extend the entry.
1486: if g_debug then
1487: hr_utility.set_location(c_indent, 25);
1488: end if;
1489: return;
1490: else
1491: -- Should fail if it is anything else.
1498: --
1499: declare dummy number;
1500: begin
1501: if g_debug then
1502: hr_utility.set_location(c_indent, 30);
1503: end if;
1504: select null
1505: into dummy
1506: from pay_element_entries_f ee
1511: and (ee.effective_start_date <= val_end and
1512: ee.effective_end_date >= val_start);
1513: --
1514: -- If row returned, we are in trouble.
1515: hr_utility.set_message(801, 'HR_6956_ELE_ENTRY_OVERLAP');
1516: hr_utility.raise_error;
1517: --
1518: exception
1519: when no_data_found then null;
1512: ee.effective_end_date >= val_start);
1513: --
1514: -- If row returned, we are in trouble.
1515: hr_utility.set_message(801, 'HR_6956_ELE_ENTRY_OVERLAP');
1516: hr_utility.raise_error;
1517: --
1518: exception
1519: when no_data_found then null;
1520: end;
1530: --
1531: -- Process the delete of element entries.
1532: if(p_mode = 'DELETE_NEXT_CHANGE') then
1533: if g_debug then
1534: hr_utility.set_location(c_indent, 40);
1535: end if;
1536: delete from pay_element_entries_f ee
1537: where ee.element_entry_id = p_ee_id
1538: and ee.effective_start_date = val_start;
1537: where ee.element_entry_id = p_ee_id
1538: and ee.effective_start_date = val_start;
1539: --
1540: if g_debug then
1541: hr_utility.set_location(c_indent, 50);
1542: end if;
1543: update pay_element_entries_f ee
1544: set ee.effective_end_date = decode(val_end, c_eot, effend, val_end)
1545: where ee.element_entry_id = p_ee_id
1547: --
1548: elsif(p_mode = 'FUTURE_CHANGE') then
1549: --
1550: if g_debug then
1551: hr_utility.set_location(c_indent, 60);
1552: end if;
1553: delete from pay_element_entries_f ee
1554: where ee.element_entry_id = p_ee_id
1555: and ee.effective_start_date > effstart;
1554: where ee.element_entry_id = p_ee_id
1555: and ee.effective_start_date > effstart;
1556: --
1557: if g_debug then
1558: hr_utility.set_location(c_indent, 70);
1559: end if;
1560: update pay_element_entries_f ee
1561: set ee.effective_end_date = effend
1562: where ee.element_entry_id = p_ee_id
1565: --
1566: -- Now, delete the entry values between validation start/end dates..
1567: --
1568: if g_debug then
1569: hr_utility.set_location(c_indent, 80);
1570: end if;
1571: delete from pay_element_entry_values_f eev
1572: where eev.element_entry_id = p_ee_id
1573: and ((eev.effective_end_date between val_start and val_end)
1574: or (eev.effective_start_date between val_start and val_end));
1575: --
1576: -- Update the effective end date as appropriate.
1577: if g_debug then
1578: hr_utility.set_location(c_indent, 90);
1579: end if;
1580: update pay_element_entry_values_f eev
1581: set eev.effective_end_date = val_end
1582: where eev.element_entry_id = p_ee_id
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;
1858: --
1859: declare
1860: mesg_text pay_message_lines.line_text%type;
1861: begin
1862: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1863: hr_utility.set_message_token
1864: ('ASG_NUMBER',p_assact_rec.assignment_number);
1865: hr_utility.set_message_token
1866: ('FULL_NAME',p_assact_rec.full_name);
1859: declare
1860: mesg_text pay_message_lines.line_text%type;
1861: begin
1862: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1863: hr_utility.set_message_token
1864: ('ASG_NUMBER',p_assact_rec.assignment_number);
1865: hr_utility.set_message_token
1866: ('FULL_NAME',p_assact_rec.full_name);
1867: hr_utility.set_message_token
1861: begin
1862: hr_utility.set_message (801, 'HR_ACTION_ASACT_ROLLOK');
1863: hr_utility.set_message_token
1864: ('ASG_NUMBER',p_assact_rec.assignment_number);
1865: hr_utility.set_message_token
1866: ('FULL_NAME',p_assact_rec.full_name);
1867: hr_utility.set_message_token
1868: ('SYSDATE',fnd_date.date_to_canonical(p_pact_rec.current_date));
1869: mesg_text := substrb(hr_utility.get_message,1,240);
1863: hr_utility.set_message_token
1864: ('ASG_NUMBER',p_assact_rec.assignment_number);
1865: hr_utility.set_message_token
1866: ('FULL_NAME',p_assact_rec.full_name);
1867: hr_utility.set_message_token
1868: ('SYSDATE',fnd_date.date_to_canonical(p_pact_rec.current_date));
1869: mesg_text := substrb(hr_utility.get_message,1,240);
1870: --
1871: -- now write our message to the payroll_action level. We
1865: hr_utility.set_message_token
1866: ('FULL_NAME',p_assact_rec.full_name);
1867: hr_utility.set_message_token
1868: ('SYSDATE',fnd_date.date_to_canonical(p_pact_rec.current_date));
1869: mesg_text := substrb(hr_utility.get_message,1,240);
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
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;
1979:
1980: -- populate payroll action details and perform high level validation
1981: l_pact_rec.pact_id := p_payroll_action_id;
1982: if g_debug then
1983: hr_utility.set_location(c_indent, 10);
1984: end if;
1985: val_pact_rollback(p_pact_rec => l_pact_rec,
1986: p_rollback_mode => p_rollback_mode);
1987: --
1999: -- We need to roll back assignment actions in reverse order
2000: -- from high action_sequence down (for multiple assignments).
2001: -- Therefore, start by selecting the max action_sequence.
2002: if g_debug then
2003: hr_utility.set_location(c_indent, 20);
2004: end if;
2005: select max(act.action_sequence) + 1
2006: into l_cur_aseq
2007: from pay_assignment_actions act
2042: more_actions := FALSE;
2043: l_counter := 0;
2044: --
2045: if g_debug then
2046: hr_utility.set_location(c_indent,30);
2047: end if;
2048: for c1rec in c1 loop
2049: exit when l_counter = p_chunk_size;
2050: more_actions := TRUE;
2056: --
2057: -- see if OK to roll back or retry this assignment action
2058: l_assact_rec.assact_id := c1rec.assignment_action_id;
2059: if g_debug then
2060: hr_utility.set_location(c_indent,40);
2061: end if;
2062: if val_assact_rollback
2063: (p_pact_rec => l_pact_rec,
2064: p_assact_rec => l_assact_rec,
2065: p_rollback_mode => p_rollback_mode) then
2066: --
2067: -- OK, clean up all child records for the action
2068: if g_debug then
2069: hr_utility.set_location(c_indent,50);
2070: end if;
2071: do_assact_rollback
2072: (p_pact_rec => l_pact_rec,
2073: p_assact_rec => l_assact_rec,
2089: end if;
2090: --
2091: -- decide whether to leap out entirely
2092: if p_all_or_nothing then
2093: hr_utility.set_message(801, 'HR_7008_ACTION_CANT_ROLLBACK');
2094: hr_utility.set_message_token
2095: ('FAILING_ASSACT', to_char(c1rec.assignment_action_id));
2096: hr_utility.raise_error;
2097: end if;
2090: --
2091: -- decide whether to leap out entirely
2092: if p_all_or_nothing then
2093: hr_utility.set_message(801, 'HR_7008_ACTION_CANT_ROLLBACK');
2094: hr_utility.set_message_token
2095: ('FAILING_ASSACT', to_char(c1rec.assignment_action_id));
2096: hr_utility.raise_error;
2097: end if;
2098: end if;
2092: if p_all_or_nothing then
2093: hr_utility.set_message(801, 'HR_7008_ACTION_CANT_ROLLBACK');
2094: hr_utility.set_message_token
2095: ('FAILING_ASSACT', to_char(c1rec.assignment_action_id));
2096: hr_utility.raise_error;
2097: end if;
2098: end if;
2099: --
2100: end loop; -- cursor loop.
2108: end;
2109: --
2110: -- trash messages
2111: if g_debug then
2112: hr_utility.set_location(c_indent,60);
2113: end if;
2114: delete from pay_message_lines ML
2115: where ML.source_type = 'P'
2116: and ML.source_id = p_payroll_action_id;
2117: --
2118: -- now trash the payroll action itself if the user so desires (and if
2119: -- all assignment actions where successfully rolled back).
2120: if g_debug then
2121: hr_utility.set_location(c_indent,70);
2122: end if;
2123: if not p_leave_base_table_row and p_failed_assact is null then
2124: --
2125: --
2131: -- us BACS or NACHA or whatever, before generating
2132: -- the message.
2133: if(l_pact_rec.action_type = 'M') then
2134: if g_debug then
2135: hr_utility.set_location(c_indent,90);
2136: end if;
2137: select ppt_tl.payment_type_name
2138: into l_pact_rec.action_name
2139: from pay_payroll_actions pac,
2151: mesg_text pay_message_lines.line_text%type;
2152: begin
2153: if(l_pact_rec.payroll_name is null) then
2154: -- Set up message for no payroll case.
2155: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
2156: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2157: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2158: hr_utility.set_message_token('SYSDATE',
2159: fnd_date.date_to_canonical(l_pact_rec.current_date));
2152: begin
2153: if(l_pact_rec.payroll_name is null) then
2154: -- Set up message for no payroll case.
2155: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
2156: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2157: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2158: hr_utility.set_message_token('SYSDATE',
2159: fnd_date.date_to_canonical(l_pact_rec.current_date));
2160: else
2153: if(l_pact_rec.payroll_name is null) then
2154: -- Set up message for no payroll case.
2155: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
2156: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2157: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2158: hr_utility.set_message_token('SYSDATE',
2159: fnd_date.date_to_canonical(l_pact_rec.current_date));
2160: else
2161: -- Set up message for payroll case.
2154: -- Set up message for no payroll case.
2155: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLNOPAY');
2156: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2157: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2158: hr_utility.set_message_token('SYSDATE',
2159: fnd_date.date_to_canonical(l_pact_rec.current_date));
2160: else
2161: -- Set up message for payroll case.
2162: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
2158: hr_utility.set_message_token('SYSDATE',
2159: fnd_date.date_to_canonical(l_pact_rec.current_date));
2160: else
2161: -- Set up message for payroll case.
2162: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
2163: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2164: hr_utility.set_message_token('PAYROLL_NAME',
2165: l_pact_rec.payroll_name);
2166: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2159: fnd_date.date_to_canonical(l_pact_rec.current_date));
2160: else
2161: -- Set up message for payroll case.
2162: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
2163: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2164: hr_utility.set_message_token('PAYROLL_NAME',
2165: l_pact_rec.payroll_name);
2166: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2167: hr_utility.set_message_token('SYSDATE',
2160: else
2161: -- Set up message for payroll case.
2162: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
2163: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2164: hr_utility.set_message_token('PAYROLL_NAME',
2165: l_pact_rec.payroll_name);
2166: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2167: hr_utility.set_message_token('SYSDATE',
2168: fnd_date.date_to_canonical(l_pact_rec.current_date));
2162: hr_utility.set_message(801,'HR_ACTION_PACT_ROLLPAY');
2163: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2164: hr_utility.set_message_token('PAYROLL_NAME',
2165: l_pact_rec.payroll_name);
2166: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2167: hr_utility.set_message_token('SYSDATE',
2168: fnd_date.date_to_canonical(l_pact_rec.current_date));
2169: end if;
2170: mesg_text := substrb(hr_utility.get_message,1,240);
2163: hr_utility.set_message_token('ACTION_TYPE',l_pact_rec.action_name);
2164: hr_utility.set_message_token('PAYROLL_NAME',
2165: l_pact_rec.payroll_name);
2166: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2167: hr_utility.set_message_token('SYSDATE',
2168: fnd_date.date_to_canonical(l_pact_rec.current_date));
2169: end if;
2170: mesg_text := substrb(hr_utility.get_message,1,240);
2171: --
2166: hr_utility.set_message_token('BG_NAME',l_pact_rec.bg_name);
2167: hr_utility.set_message_token('SYSDATE',
2168: fnd_date.date_to_canonical(l_pact_rec.current_date));
2169: end if;
2170: mesg_text := substrb(hr_utility.get_message,1,240);
2171: --
2172: if g_debug then
2173: hr_utility.set_location(c_indent,100);
2174: end if;
2169: end if;
2170: mesg_text := substrb(hr_utility.get_message,1,240);
2171: --
2172: if g_debug then
2173: hr_utility.set_location(c_indent,100);
2174: end if;
2175: insert into pay_message_lines (
2176: line_sequence,
2177: payroll_id,
2190:
2191: end;
2192: --
2193: if g_debug then
2194: hr_utility.set_location(c_indent,80);
2195: end if;
2196: delete from pay_payroll_actions
2197: where payroll_action_id = p_payroll_action_id;
2198: --
2197: where payroll_action_id = p_payroll_action_id;
2198: --
2199: if not p_all_or_nothing then
2200: if g_debug then
2201: hr_utility.set_location(c_indent,110);
2202: end if;
2203: commit;
2204: end if;
2205: --
2205: --
2206: end if;
2207: --
2208: if g_debug then
2209: hr_utility.set_location(c_indent,120);
2210: end if;
2211: return;
2212: --
2213: end do_pact_rollback;
2237: (p_payroll_action_id in number,
2238: p_rollback_mode in varchar2,
2239: p_leave_base_table_row in boolean) is
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;
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,
2255: p_failed_assact in out nocopy number,
2256: p_rollback_mode in varchar2,
2257: p_leave_base_table_row in boolean) is
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;
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,
2274: p_failed_assact in out nocopy number,
2275: p_rollback_mode in varchar2,
2276: p_leave_base_table_row in boolean) is
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;
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,
2309: for update of action_status;
2310: --
2311: --
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;
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,
2345: p_assact_rec => l_assact_rec,
2346: p_rollback_mode => p_rollback_mode,
2347: p_leave_base_table_row => p_leave_base_table_row);
2348: else
2349: hr_utility.set_message(801, 'HR_7008_ACTION_CANT_ROLLBACK');
2350: hr_utility.set_message_token('FAILING_ASSACT',l_assact_rec.assact_id);
2351: hr_utility.raise_error;
2352: end if;
2353: --
2346: p_rollback_mode => p_rollback_mode,
2347: p_leave_base_table_row => p_leave_base_table_row);
2348: else
2349: hr_utility.set_message(801, 'HR_7008_ACTION_CANT_ROLLBACK');
2350: hr_utility.set_message_token('FAILING_ASSACT',l_assact_rec.assact_id);
2351: hr_utility.raise_error;
2352: end if;
2353: --
2354: end loop;
2347: p_leave_base_table_row => p_leave_base_table_row);
2348: else
2349: hr_utility.set_message(801, 'HR_7008_ACTION_CANT_ROLLBACK');
2350: hr_utility.set_message_token('FAILING_ASSACT',l_assact_rec.assact_id);
2351: hr_utility.raise_error;
2352: end if;
2353: --
2354: end loop;
2355: --
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;
2504: Type t_latbal is table of pay_assignment_latest_balances.latest_balance_id%type;
2505: lat_bal_list t_latbal;
2506: --
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;
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
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:
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;
3018: --
3019: l_person_id number;
3020: l_element_type_id number;
3021: begin
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);
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;
3426: upd_aa_id pay_assignment_actions.assignment_action_id%type;
3427: --
3428: begin
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;
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)
3689: obj_type pay_assignment_actions.object_type%type;
3690: --
3691: begin
3692: --
3693: g_debug := hr_utility.debug_enabled;
3694: --
3695: hr_utility.trace('passing pact = '||pactid);
3696: hr_utility.trace('passing asgid = '||asgid);
3697: hr_utility.trace('passing actseq = '||actseq);
3691: begin
3692: --
3693: g_debug := hr_utility.debug_enabled;
3694: --
3695: hr_utility.trace('passing pact = '||pactid);
3696: hr_utility.trace('passing asgid = '||asgid);
3697: hr_utility.trace('passing actseq = '||actseq);
3698: --
3699: if g_debug then
3692: --
3693: g_debug := hr_utility.debug_enabled;
3694: --
3695: hr_utility.trace('passing pact = '||pactid);
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);
3693: g_debug := hr_utility.debug_enabled;
3694: --
3695: hr_utility.trace('passing pact = '||pactid);
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;
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
3719: fetch seqgrp into my_rowid, upd_aa_id, src_aa_id, obj_type;
3720: exit when seqgrp%notfound;
3721: end if;
3722: --
3723: hr_utility.trace('Resequenceing '||upd_aa_id);
3724: resequence_children(upd_aa_id);
3725: --
3726: --
3727: -- Now, update with new action_sequence.
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: --
3783: v_string varchar2(240) := NULL;
3784: v_max_length_reached boolean := false;
3785: --
3786: begin
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);
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;
4306: l_run_type_id number;
4307: aa_exists number;
4308: --
4309: begin
4310: g_debug := hr_utility.debug_enabled;
4311: --
4312: taxunt2 := null;
4313: l_run_type_id := p_run_type_id;
4314: --
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;
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;
4328: --
4329: select pac.effective_date,
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;
4328: --
4329: select pac.effective_date,
4330: pac.action_type,
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
4481: end;
4482: end loop;
4483: end if;
4484: if(aa_exists <> 0) then
4485: hr_utility.set_message(801,'HR_7010_ACTION_INTLOCK_FAIL');
4486: hr_utility.raise_error;
4487: end if;
4488: end if;
4489: -- we need to check that there is not a purge action
4482: end loop;
4483: end if;
4484: if(aa_exists <> 0) then
4485: hr_utility.set_message(801,'HR_7010_ACTION_INTLOCK_FAIL');
4486: hr_utility.raise_error;
4487: end if;
4488: end if;
4489: -- we need to check that there is not a purge action
4490: -- with an effective date later than the effective
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,
4531: and pa2.action_type = 'Z'
4532: and pa2.effective_date > pac.effective_date);
4533: --
4534: if(sql%rowcount = 0) then
4535: hr_utility.set_message(801,'HR_7009_ACTION_FUTURE_PURGE');
4536: hr_utility.raise_error;
4537: end if;
4538: --
4539: -- If we are really getting called from purge, we do not
4532: and pa2.effective_date > pac.effective_date);
4533: --
4534: if(sql%rowcount = 0) then
4535: hr_utility.set_message(801,'HR_7009_ACTION_FUTURE_PURGE');
4536: hr_utility.raise_error;
4537: end if;
4538: --
4539: -- If we are really getting called from purge, we do not
4540: -- want to perform any re-sequencing. Purge mode is actually
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
4598: end if;
4599: end irbaact;
4600: --
4601: begin
4602: g_debug := hr_utility.debug_enabled;
4603: --
4604: -- Start by grabbing the type of the action we are dealing with.
4605: select pac.action_type,
4606: pac.business_group_id,
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,
5005: -- If a row was not inserted, it must mean interlock
5006: -- rule failure for that particular assignment.
5007: -- This condition is reported via an error message.
5008: if(sql%rowcount = 0) then
5009: hr_utility.set_message(801,'HR_7010_ACTION_INTLOCK_FAIL');
5010: hr_utility.raise_error;
5011: end if;
5012: elsif (actyp in ('V','B','N','X','I')) then
5013: --
5006: -- rule failure for that particular assignment.
5007: -- This condition is reported via an error message.
5008: if(sql%rowcount = 0) then
5009: hr_utility.set_message(801,'HR_7010_ACTION_INTLOCK_FAIL');
5010: hr_utility.raise_error;
5011: end if;
5012: elsif (actyp in ('V','B','N','X','I')) then
5013: --
5014: -- The following called to create assignment action for
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;
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;
5073: end if;
5074: --
5075: elsif (actyp = 'U') 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;
5073: end if;
5074: --
5075: elsif (actyp = 'U') then
5076: -- Insert an assignment action for a QuickPay Pre-Payment.
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,
5135: and as3.person_id = pos.person_id);
5136: else
5137: -- If we get here, we are attempting to process
5138: -- an illegal action type.
5139: hr_utility.set_message(801,'HR_7034_ACTION_TYP_INV_VBN');
5140: hr_utility.raise_error;
5141: end if;
5142: --
5143: --
5136: else
5137: -- If we get here, we are attempting to process
5138: -- an illegal action type.
5139: hr_utility.set_message(801,'HR_7034_ACTION_TYP_INV_VBN');
5140: hr_utility.raise_error;
5141: end if;
5142: --
5143: --
5144: -- update the action_population_status to indicate
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
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.
5193: if g_debug then
5194: hr_utility.set_location(c_indent,5);
5190: g_debug := hr_utility.debug_enabled;
5191: --
5192: -- Simply call the inassact procedure.
5193: if g_debug then
5194: hr_utility.set_location(c_indent,5);
5195: end if;
5196: inassact(p_payroll_action_id, p_assignment_id, null, null, null);
5197: --
5198: -- Get the assignment_action_id
5224: l_assignment_id number;
5225: l_locking_action_id number;
5226: l_locked_action_id number;
5227: begin
5228: g_debug := hr_utility.debug_enabled;
5229: --
5230: -- We have to get the assignment_id
5231: -- of the assignment that is going
5232: -- to be prepaid, so it may be passed on.
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.
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
5393: l_st2_needed pay_legislation_rules.rule_mode%type;
5394: l_value pay_action_parameters.parameter_value%type;
5395: l_tax_group hr_organization_information.org_information5%type;
5396: begin
5397: g_debug := hr_utility.debug_enabled;
5398: --
5399: -- To process the reversal, we need to
5400: -- obtain information about the assignment.
5401: -- Note : in addition, the following select
5408: -- required for the reversal assigment action.
5409: -- not part of assignment set reversal so perform normal logic
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,
5409: -- not part of assignment set reversal so perform normal logic
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,
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,
5431: and acl.action_type = pa2.action_type
5432: and pa2.effective_date <= pac.effective_date;
5433: exception
5434: when no_data_found then
5435: hr_utility.set_message(801,'HR_7011_ACTION_ILLEGAL_REV');
5436: hr_utility.raise_error;
5437: end;
5438: --
5439: if not multi then
5432: and pa2.effective_date <= pac.effective_date;
5433: exception
5434: when no_data_found then
5435: hr_utility.set_message(801,'HR_7011_ACTION_ILLEGAL_REV');
5436: hr_utility.raise_error;
5437: end;
5438: --
5439: if not multi then
5440: -- If redo is true, we do not not need to insert
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)
5485: and pa2.payroll_action_id = ac2.payroll_action_id
5486: and pa2.action_type = 'V');
5487: --
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: --
5486: and pa2.action_type = 'V');
5487: --
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
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,
5627: and pac.effective_date between
5628: pet.effective_start_date and pet.effective_end_date;
5629: exception
5630: when no_data_found then
5631: hr_utility.set_message(801,'HR_7012_ACTION_ELE_NOT_EFF');
5632: hr_utility.raise_error;
5633: end;
5634: --
5635: if g_debug then
5628: pet.effective_start_date and pet.effective_end_date;
5629: exception
5630: when no_data_found then
5631: hr_utility.set_message(801,'HR_7012_ACTION_ELE_NOT_EFF');
5632: hr_utility.raise_error;
5633: end;
5634: --
5635: if g_debug then
5636: hr_utility.set_location('hrassact.reversal',30);
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,
5677: -- or SOURCE_NUMBER input value, then multiply by 1, otherwise by
5678: -- -1 as before.
5679: -- Need to get input_value name for SOURCE_ID and SOURCE_NUMBER
5680: --
5681: hr_utility.trace('leg_code: '||leg_code);
5682: pay_core_utils.get_leg_context_iv_name('SOURCE_ID'
5683: ,leg_code
5684: ,l_src_iv
5685: ,l_iv_found);
5686: if (not l_iv_found) then
5687: l_src_iv := null;
5688: else
5689: l_si_needed := 'Y';
5690: hr_utility.trace('l_src_iv: '||l_src_iv);
5691: end if;
5692: --
5693: pay_core_utils.get_leg_context_iv_name('SOURCE_NUMBER'
5694: ,leg_code
5697: if (not l_num_found) then
5698: l_src_num := null;
5699: else
5700: l_sn_needed := 'Y';
5701: hr_utility.trace('l_src_num: '||l_src_num);
5702: end if;
5703: --
5704: pay_core_utils.get_leg_context_iv_name('SOURCE_NUMBER2'
5705: ,leg_code
5708: if (not l_num_found) then
5709: l_src_num2 := null;
5710: else
5711: l_sn2_needed := 'Y';
5712: hr_utility.trace('l_src_num2: '||l_src_num2);
5713: end if;
5714: --
5715: pay_core_utils.get_leg_context_iv_name('ORGANIZATION_ID'
5716: ,leg_code
5719: if (not l_num_found) then
5720: l_org_id_iv := null;
5721: else
5722: l_org_needed := 'Y';
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);
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,
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 ------------------------------
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
5969: hr_utility.set_location(c_indent, 10);
5970: end if;
5965: begin
5966: g_debug := hr_utility.debug_enabled;
5967: -- Insert un-processed run results and values as appropriate
5968: if g_debug then
5969: hr_utility.set_location(c_indent, 10);
5970: end if;
5971: for c1rec in c1 loop
5972: -- Start with insertion of run result.
5973: insert into pay_run_results (
6046: where paa.ASSIGNMENT_ACTION_ID = p_assignment_action_id
6047: and paa.PAYROLL_ACTION_ID = pa.PAYROLL_ACTION_ID;
6048: --
6049: begin
6050: g_debug := hr_utility.debug_enabled;
6051: --
6052: -- Open the cursor and retrieve the payroll action details
6053: if g_debug then
6054: hr_utility.set_location(c_indent,5);
6050: g_debug := hr_utility.debug_enabled;
6051: --
6052: -- Open the cursor and retrieve the payroll action details
6053: if g_debug then
6054: hr_utility.set_location(c_indent,5);
6055: end if;
6056: open C_CON1;
6057: fetch C_CON1 into l_payroll_action_id,
6058: l_assignment_action_id,
6061: close C_CON1;
6062: --
6063: -- insert the payroll action row
6064: if g_debug then
6065: hr_utility.set_location(c_indent,10);
6066: end if;
6067: insert into PAY_PAYROLL_ACTIONS
6068: (PAYROLL_ACTION_ID,
6069: ACTION_TYPE,
6090: p_reason);
6091: --
6092: -- call procedure to insert assignment action record
6093: if g_debug then
6094: hr_utility.set_location(c_indent,20);
6095: end if;
6096: inassact(pactid => l_payroll_action_id,
6097: asgid => p_assignment_id,
6098: p_ass_action_seq => l_assignment_action_id,
6100: p_serial_number => p_serial_number);
6101: --
6102: -- insert a pay action interlock record.
6103: if g_debug then
6104: hr_utility.set_location(c_indent,30);
6105: end if;
6106: insert into PAY_ACTION_INTERLOCKS
6107: (LOCKING_ACTION_ID,
6108: LOCKED_ACTION_ID)
6112: --
6113: -- Update the payroll action table with
6114: -- the appropriate date earned value.
6115: if g_debug then
6116: hr_utility.set_location(c_indent,40);
6117: end if;
6118: update pay_payroll_actions pac
6119: set pac.date_earned = (
6120: select pa2.date_earned
6154: c_indent constant varchar2(30) := 'hrassact.ext_man_payment2';
6155:
6156: BEGIN
6157:
6158: g_debug := hr_utility.debug_enabled;
6159:
6160: if g_debug then
6161: hr_utility.set_location('Entering '||c_indent,10);
6162: end if;
6157:
6158: g_debug := hr_utility.debug_enabled;
6159:
6160: if g_debug then
6161: hr_utility.set_location('Entering '||c_indent,10);
6162: end if;
6163:
6164: ext_man_payment(p_payroll_id,
6165: TRUNC(FND_DATE.canonical_to_date(P_EFF_DATE)),
6170: p_pre_payment_id,
6171: p_reason);
6172:
6173: if g_debug then
6174: hr_utility.set_location('Leaving '||c_indent,20);
6175: end if;
6176:
6177: END ext_man_payment;
6178: --------------------------- set_action_contexts------------------------
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: --
6236: if g_debug then
6237: hr_utility.set_location(c_indent,10);
6238: end if;
6233: begin
6234: g_debug := hr_utility.debug_enabled;
6235: --
6236: if g_debug then
6237: hr_utility.set_location(c_indent,10);
6238: end if;
6239: udca.sz := 0;
6240: pay_core_utils.get_dynamic_contexts(p_busgrp,
6241: g_dynamic_contexts);
6263: --
6264: begin
6265: --
6266: if g_debug then
6267: hr_utility.set_location(c_indent,20);
6268: end if;
6269: select 1
6270: into dummy
6271: from pay_legislation_rules plr
6273: and plr.rule_type = 'ACTION_CONTEXTS'
6274: and plr.rule_mode = 'Y';
6275: --
6276: if g_debug then
6277: hr_utility.set_location(c_indent,30);
6278: end if;
6279: action_contexts := TRUE;
6280: --
6281: exception
6279: action_contexts := TRUE;
6280: --
6281: exception
6282: when no_data_found then
6283: hr_utility.set_location(c_indent,40);
6284: action_contexts := FALSE;
6285: end;
6286: --
6287: if g_debug then
6284: action_contexts := FALSE;
6285: end;
6286: --
6287: if g_debug then
6288: hr_utility.set_location(c_indent,50);
6289: end if;
6290: --
6291: -- OK get the contexts cached
6292: --
6343: --
6344: for rrvrec in get_rr_values (p_rrid, l_effective_date) loop
6345: for l_cnt in 1..g_dynamic_contexts.count loop
6346: --
6347: hr_utility.set_location(c_indent,90);
6348: --
6349: --Run Result Contexts
6350: if (rrvrec.name = g_dynamic_contexts(l_cnt).input_value_name) then
6351: --
6348: --
6349: --Run Result Contexts
6350: if (rrvrec.name = g_dynamic_contexts(l_cnt).input_value_name) then
6351: --
6352: hr_utility.set_location(c_indent,95);
6353: declare
6354: l_ctx_value pay_run_result_values.result_value%type;
6355: begin
6356: l_ctx_value := null;
6402: end if;
6403: --
6404: end if;
6405:
6406: hr_utility.set_location(c_indent,96);
6407: --
6408: if l_ctx_value is not null then
6409: --
6410: -- Set the jurisdiction on the run_result.
6434: end;
6435: end if;
6436: --
6437: if g_debug then
6438: hr_utility.set_location(c_indent,100);
6439: end if;
6440: get_cache_context(g_dynamic_contexts(l_cnt).context_name, cxt_id);
6441: udca.sz := udca.sz + 1;
6442: udca.assact_id(udca.sz) := p_assact;
6447: udca.valid(udca.sz) := TRUE;
6448: end if;
6449: end;
6450: if g_debug then
6451: hr_utility.set_location(c_indent,105);
6452: end if;
6453: --
6454: end if;
6455: if g_debug then
6452: end if;
6453: --
6454: end if;
6455: if g_debug then
6456: hr_utility.set_location(c_indent,106);
6457: end if;
6458: end loop;
6459: end loop;
6460:
6461: --
6462: -- Payroll ID
6463: --
6464: if g_debug then
6465: hr_utility.set_location(c_indent,130);
6466: end if;
6467: get_cache_context('PAYROLL_ID', cxt_id);
6468: udca.sz := udca.sz + 1;
6469: udca.assact_id(udca.sz) := p_assact;
6477: -- Original Entry ID
6478: --
6479: if p_oentry is not null then
6480: if g_debug then
6481: hr_utility.set_location(c_indent,135);
6482: end if;
6483:
6484: get_cache_context('ORIGINAL_ENTRY_ID', cxt_id);
6485: udca.sz := udca.sz + 1;
6503: where run_result_id = p_rrid;
6504: --
6505: if l_local_unit_id is not null then
6506: if g_debug then
6507: hr_utility.set_location(c_indent,136);
6508: end if;
6509:
6510: get_cache_context('LOCAL_UNIT_ID', cxt_id);
6511: udca.sz := udca.sz + 1;
6521: --
6522: if (p_legcode = 'US' or p_legcode = 'CA') then
6523: --
6524: if g_debug then
6525: hr_utility.set_location(c_indent,140);
6526: end if;
6527: declare
6528: tax_group hr_organization_information.org_information5%type;
6529: asg_id number;
6531: begin
6532: --
6533: if (p_legcode = 'US') then
6534: if g_debug then
6535: hr_utility.set_location(c_indent,150);
6536: end if;
6537: select hoi.org_information5,
6538: paa.assignment_id
6539: into tax_group,
6545: and paa.assignment_action_id = p_assact
6546: and hoi.org_information5 is not null;
6547: else
6548: if g_debug then
6549: hr_utility.set_location(c_indent,153);
6550: end if;
6551: select hoi.org_information4,
6552: paa.assignment_id
6553: into tax_group,
6560: and hoi.org_information4 is not null;
6561: end if;
6562: --
6563: if g_debug then
6564: hr_utility.set_location(c_indent,155);
6565: end if;
6566: get_cache_context('TAX_GROUP', cxt_id);
6567: udca.sz := udca.sz + 1;
6568: udca.assact_id(udca.sz) := p_assact;
6574: --
6575: exception
6576: when no_data_found then
6577: if g_debug then
6578: hr_utility.set_location(c_indent,160);
6579: end if;
6580: null;
6581: end;
6582: --
6582: --
6583: end if;
6584: --
6585: if g_debug then
6586: hr_utility.set_location(c_indent,170);
6587: end if;
6588: -- Now do all the inserts.
6589: if action_contexts = TRUE then
6590: for cnt in 1..udca.sz loop
6598: ,'TIME_DEFINITION_ID'
6599: ,'TAX_GROUP'
6600: ,'ORIGINAL_ENTRY_ID')) then
6601: if g_debug then
6602: hr_utility.set_location(c_indent,180);
6603: end if;
6604: --
6605: -- The row could already be in the table due
6606: -- to batch balance adjustments
6625: --
6626: end loop;
6627: end if;
6628: if g_debug then
6629: hr_utility.set_location(c_indent,190);
6630: end if;
6631: exception
6632: when others then
6633: hr_utility.trace(sqlerrm);
6629: hr_utility.set_location(c_indent,190);
6630: end if;
6631: exception
6632: when others then
6633: hr_utility.trace(sqlerrm);
6634: raise;
6635: --
6636: end set_action_context;
6637: --
6686: and legislation_code = p_leg_code
6687: and rule_mode = 'Y';
6688: --
6689: begin
6690: g_debug := hr_utility.debug_enabled;
6691: --
6692: --
6693: -- Select a number of values, including assignment
6694: -- and payroll action details.
6705: -- attached to the record by the form or entry API before
6706: -- calling this process.
6707: --
6708: if g_debug then
6709: hr_utility.trace('effdate='||to_char(effdate, 'DD-MON-YYYY'));
6710: hr_utility.set_location(c_indent,5);
6711: end if;
6712: select /*+ ordered use_nl(pee asg ptp pbg)
6713: index(pee PAY_ELEMENT_ENTRIES_F_PK)
6706: -- calling this process.
6707: --
6708: if g_debug then
6709: hr_utility.trace('effdate='||to_char(effdate, 'DD-MON-YYYY'));
6710: hr_utility.set_location(c_indent,5);
6711: end if;
6712: select /*+ ordered use_nl(pee asg ptp pbg)
6713: index(pee PAY_ELEMENT_ENTRIES_F_PK)
6714: index(asg PER_ASSIGNMENTS_F_PK)
6766: end if;
6767: --
6768: -- insert payroll action row.
6769: if g_debug then
6770: hr_utility.set_location(c_indent,10);
6771: end if;
6772: insert into pay_payroll_actions (
6773: payroll_action_id,
6774: action_type,
6808: --
6809: -- We now need to get the id of the inserted action,
6810: -- so that it can be used for update purposes.
6811: if g_debug then
6812: hr_utility.set_location(c_indent,15);
6813: end if;
6814: select act.assignment_action_id, act.tax_unit_id
6815: into assactid, tax_unit
6816: from pay_assignment_actions act
6818: --
6819: --
6820: -- we need to insert the run result row
6821: if g_debug then
6822: hr_utility.set_location(c_indent,20);
6823: end if;
6824:
6825:
6826: -- calc jur code name
6890:
6891: --
6892: if(sql%notfound) then
6893: if g_debug then
6894: hr_utility.trace('Update of pay_run_results has failed');
6895: end if;
6896: raise no_data_found;
6897: end if;
6898: --
6899: -- Update the element entry creator_id column
6900: -- with the assignment_action_id of balance
6901: -- adjustment action.
6902: if g_debug then
6903: hr_utility.set_location(c_indent,25);
6904: end if;
6905: update pay_element_entries_f pee
6906: set pee.creator_id = assactid
6907: where pee.element_entry_id = eentryid;
6907: where pee.element_entry_id = eentryid;
6908: --
6909: if(sql%notfound) then
6910: if g_debug then
6911: hr_utility.trace('Update of pay_element_entries_f has failed');
6912: end if;
6913: raise no_data_found;
6914: end if;
6915: --
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
6985: hr_utility.set_location(c_indent,10);
6986: end if;
6981: begin
6982: g_debug := hr_utility.debug_enabled;
6983: --
6984: if g_debug then
6985: hr_utility.set_location(c_indent,10);
6986: end if;
6987: bal_adjust_actions(consetid, eentryid, effdate, l_pay_act_id,
6988: l_asg_act_id, act_type, prepay_flag,tax_unit_id,false,run_type_id);
6989: if g_debug then
6986: end if;
6987: bal_adjust_actions(consetid, eentryid, effdate, l_pay_act_id,
6988: l_asg_act_id, act_type, prepay_flag,tax_unit_id,false,run_type_id);
6989: if g_debug then
6990: hr_utility.set_location(c_indent,20);
6991: end if;
6992: end;
6993: --
6994: --------------------------- maintain_lat_bal ------------------------
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);
7165: end if;
7166: --
7167: l_context_string := '';
7168: for cnt in 1..udca.sz loop
7199: --
7200: begin
7201: --
7202: if g_debug then
7203: hr_utility.set_location (c_indent, 1);
7204: hr_utility.trace ('Feed checking code = ' || p_feed_checking_code);
7205: hr_utility.trace ('context string = ' || p_bal_context_str);
7206: end if;
7207: --
7200: begin
7201: --
7202: if g_debug then
7203: hr_utility.set_location (c_indent, 1);
7204: hr_utility.trace ('Feed checking code = ' || p_feed_checking_code);
7205: hr_utility.trace ('context string = ' || p_bal_context_str);
7206: end if;
7207: --
7208: -- we build up the sql string to call the balance
7201: --
7202: if g_debug then
7203: hr_utility.set_location (c_indent, 1);
7204: hr_utility.trace ('Feed checking code = ' || p_feed_checking_code);
7205: hr_utility.trace ('context string = ' || p_bal_context_str);
7206: end if;
7207: --
7208: -- we build up the sql string to call the balance
7209: -- feed checking pl/sql procedure:
7228: -- 5. Get the variable value (providing there are rows returned)
7229: -- 6. Close the dynamic sql cursor
7230: --
7231: if g_debug then
7232: hr_utility.set_location (c_indent, 20);
7233: end if;
7234: sql_cursor := dbms_sql.open_cursor; -- step 1
7235: --
7236: if g_debug then
7233: end if;
7234: sql_cursor := dbms_sql.open_cursor; -- step 1
7235: --
7236: if g_debug then
7237: hr_utility.set_location (c_indent, 25);
7238: end if;
7239: dbms_sql.parse(sql_cursor, l_feed_chk_str, dbms_sql.v7); -- step 2
7240: --
7241: if g_debug then
7238: end if;
7239: dbms_sql.parse(sql_cursor, l_feed_chk_str, dbms_sql.v7); -- step 2
7240: --
7241: if g_debug then
7242: hr_utility.set_location (c_indent, 30);
7243: end if;
7244: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:
7245: --
7246: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
7255: --
7256: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);
7257: --
7258: if g_debug then
7259: hr_utility.set_location (c_indent, 35);
7260: end if;
7261: l_rows := dbms_sql.execute (sql_cursor); -- step 4
7262: --
7263: if (l_rows = 1) then
7261: l_rows := dbms_sql.execute (sql_cursor); -- step 4
7262: --
7263: if (l_rows = 1) then
7264: if g_debug then
7265: hr_utility.set_location (c_indent, 40);
7266: end if;
7267: dbms_sql.variable_value(sql_cursor, 'l_feed_flag', -- step 5
7268: l_feed_flag);
7269: --
7271: l_feed_balance := TRUE;
7272: end if;
7273: --
7274: if g_debug then
7275: hr_utility.set_location (c_indent, 45);
7276: end if;
7277: dbms_sql.close_cursor(sql_cursor); -- step 6
7278: else
7279: --
7280: -- None or more than 1 row has been returned. We must error as package
7281: -- call can only return 1 row, so this condition should never occur !
7282: --
7283: if g_debug then
7284: hr_utility.set_location (c_indent, 111);
7285: end if;
7286: dbms_sql.close_cursor(sql_cursor);
7287: hr_utility.raise_error;
7288: end if;
7283: if g_debug then
7284: hr_utility.set_location (c_indent, 111);
7285: end if;
7286: dbms_sql.close_cursor(sql_cursor);
7287: hr_utility.raise_error;
7288: end if;
7289: --
7290: return(l_feed_balance);
7291: --
7354: from pay_latest_balances
7355: where p_lat_bal_id = latest_balance_id;
7356:
7357: if g_debug then
7358: hr_utility.set_location (c_indent, 1);
7359: end if;
7360:
7361: l_feed_flag := TRUE;
7362: if udca.sz = 0 then
7622: --
7623: begin
7624: --
7625: if g_debug then
7626: hr_utility.set_location (c_indent, 1);
7627: end if;
7628: --
7629: l_feed_flag := TRUE;
7630:
7672: end loop;
7673:
7674: --
7675: if g_debug then
7676: hr_utility.set_location (c_indent, 20);
7677: end if;
7678: --
7679: -- jurisdiction_code check for 'J' feed checking type whereby
7680: -- jurisdiction_code must be undefined in the udca
7720: --
7721: begin
7722: --
7723: if g_debug then
7724: hr_utility.set_location (c_indent, 10);
7725: end if;
7726: --
7727: -- get balance dimension info for the latest balance
7728: --
7769: --
7770: if feed_checking_type is null then
7771: -- default checking type whereby always feed balance
7772: if g_debug then
7773: hr_utility.set_location (c_indent, 20);
7774: end if;
7775: feed_balance := TRUE;
7776:
7777: elsif feed_checking_type not in ('P', 'E', 'J') then
7780: -- recalculate it
7781: -- YET TO BE DECIDED
7782:
7783: if g_debug then
7784: hr_utility.set_location (c_indent, 30);
7785: end if;
7786:
7787: if lat_bal_type = 'A' then
7788: delete from pay_balance_context_values
7867: --
7868: begin
7869: --
7870: if g_debug then
7871: hr_utility.set_location (c_indent, 5);
7872: end if;
7873: if p_bal_owner_asg_actid = -9999 then
7874: l_expiry_date := to_date('01/01/1900', 'DD/MM/YYYY');
7875: p_bal_owner_eff_date := l_expiry_date;
7877: return(l_expiry_date);
7878: end if;
7879: --
7880: if g_debug then
7881: hr_utility.trace ('Expiry date fetching code = ' || p_expiry_date_code);
7882: hr_utility.set_location (c_indent||p_bal_owner_asg_actid, 7);
7883: end if;
7884: --
7885: -- Get the payroll_action_id and eff date for the latest balance
7878: end if;
7879: --
7880: if g_debug then
7881: hr_utility.trace ('Expiry date fetching code = ' || p_expiry_date_code);
7882: hr_utility.set_location (c_indent||p_bal_owner_asg_actid, 7);
7883: end if;
7884: --
7885: -- Get the payroll_action_id and eff date for the latest balance
7886: -- The expiry date returned is the last date in the period for
7898: -- Get the payroll_action_id and eff date for the adjustment if
7899: -- it is different
7900: --
7901: if g_debug then
7902: hr_utility.set_location (c_indent||p_ass_action_id, 10);
7903: end if;
7904: if p_ass_action_id <> p_bal_owner_asg_actid then
7905: select pay.payroll_action_id,
7906: pay.effective_date
7919: -- of beginning of time
7920: --
7921: if p_expiry_check_level = 'N' then
7922: if g_debug then
7923: hr_utility.set_location (c_indent, 12);
7924: end if;
7925: l_expiry_date := to_date('01/01/1900', 'DD/MM/YYYY');
7926:
7927: return(l_expiry_date);
7929: --
7930: -- expiry date procedure doesn't exist
7931: --
7932: if g_debug then
7933: hr_utility.set_location (c_indent, 14);
7934: end if;
7935: dbms_sql.close_cursor(sql_cursor);
7936: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
7937: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
7932: if g_debug then
7933: hr_utility.set_location (c_indent, 14);
7934: end if;
7935: dbms_sql.close_cursor(sql_cursor);
7936: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
7937: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
7938: hr_utility.raise_error;
7939: end if;
7940: --
7933: hr_utility.set_location (c_indent, 14);
7934: end if;
7935: dbms_sql.close_cursor(sql_cursor);
7936: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
7937: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
7938: hr_utility.raise_error;
7939: end if;
7940: --
7941: -- we build up the sql string to call the balance
7934: end if;
7935: dbms_sql.close_cursor(sql_cursor);
7936: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
7937: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
7938: hr_utility.raise_error;
7939: end if;
7940: --
7941: -- we build up the sql string to call the balance
7942: -- feed checking pl/sql procedure:
7967: -- 5. Get the variable value (providing there are rows returned)
7968: -- 6. Close the dynamic sql cursor
7969: --
7970: if g_debug then
7971: hr_utility.set_location (c_indent, 20);
7972: end if;
7973: sql_cursor := dbms_sql.open_cursor; -- step 1
7974: --
7975: if g_debug then
7972: end if;
7973: sql_cursor := dbms_sql.open_cursor; -- step 1
7974: --
7975: if g_debug then
7976: hr_utility.set_location (c_indent, 25);
7977: end if;
7978: dbms_sql.parse(sql_cursor, l_expiry_chk_str, dbms_sql.v7); -- step 2
7979: --
7980: if g_debug then
7977: end if;
7978: dbms_sql.parse(sql_cursor, l_expiry_chk_str, dbms_sql.v7); -- step 2
7979: --
7980: if g_debug then
7981: hr_utility.set_location (c_indent||to_char(p_bal_owner_eff_date, 'DD/MM/YYYY'), 30);
7982: end if;
7983: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:
7984: --
7985: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
8000: --
8001: dbms_sql.bind_variable(sql_cursor, 'l_expiry_date', l_expiry_date);
8002: --
8003: if g_debug then
8004: hr_utility.set_location (c_indent, 35);
8005: end if;
8006: l_rows := dbms_sql.execute (sql_cursor); -- step 4
8007: --
8008: if (l_rows = 1) then
8006: l_rows := dbms_sql.execute (sql_cursor); -- step 4
8007: --
8008: if (l_rows = 1) then
8009: if g_debug then
8010: hr_utility.set_location (c_indent, 40);
8011: end if;
8012: dbms_sql.variable_value(sql_cursor, 'l_expiry_date', -- step 5
8013: l_expiry_date);
8014: --
8012: dbms_sql.variable_value(sql_cursor, 'l_expiry_date', -- step 5
8013: l_expiry_date);
8014: --
8015: if g_debug then
8016: hr_utility.set_location (c_indent||to_char(l_expiry_date, 'DD/MM/YYYY'), 45);
8017: end if;
8018: dbms_sql.close_cursor(sql_cursor); -- step 6
8019: elsif (l_rows = 0) then
8020: --
8020: --
8021: -- expiry date procedure didn't exist
8022: --
8023: if g_debug then
8024: hr_utility.set_location (c_indent, 50);
8025: end if;
8026: dbms_sql.close_cursor(sql_cursor);
8027: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
8028: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
8023: if g_debug then
8024: hr_utility.set_location (c_indent, 50);
8025: end if;
8026: dbms_sql.close_cursor(sql_cursor);
8027: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
8028: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
8029: hr_utility.raise_error;
8030: else
8031: --
8024: hr_utility.set_location (c_indent, 50);
8025: end if;
8026: dbms_sql.close_cursor(sql_cursor);
8027: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
8028: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
8029: hr_utility.raise_error;
8030: else
8031: --
8032: -- None or more than 1 row has been returned. We must error as package
8025: end if;
8026: dbms_sql.close_cursor(sql_cursor);
8027: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
8028: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
8029: hr_utility.raise_error;
8030: else
8031: --
8032: -- None or more than 1 row has been returned. We must error as package
8033: -- call can only return 1 row, so this condition should never occur !
8032: -- None or more than 1 row has been returned. We must error as package
8033: -- call can only return 1 row, so this condition should never occur !
8034: --
8035: if g_debug then
8036: hr_utility.set_location (c_indent, 60);
8037: end if;
8038: dbms_sql.close_cursor(sql_cursor);
8039: hr_utility.raise_error;
8040: end if;
8035: if g_debug then
8036: hr_utility.set_location (c_indent, 60);
8037: end if;
8038: dbms_sql.close_cursor(sql_cursor);
8039: hr_utility.raise_error;
8040: end if;
8041: --
8042: return(l_expiry_date);
8043: --
8082: --
8083: begin
8084: --
8085: if g_debug then
8086: hr_utility.set_location (c_indent, 10);
8087: end if;
8088: --
8089: l_change_flag := TRUE;
8090: --
8094: if assignment_action_id = assactid or
8095: expired_asg_action_id = assactid then
8096:
8097: if g_debug then
8098: hr_utility.set_location (c_indent, 15);
8099: end if;
8100:
8101: if assignment_action_id = assactid then
8102: value := value + (result_value * feed_scale);
8121: p_expiry_check_level, p_bal_context_str,
8122: bal_adj_eff_date);
8123: --
8124: if g_debug then
8125: hr_utility.set_location (c_indent, 20);
8126: end if;
8127: --
8128: -- Get expiry date for latest balance
8129: --
8132: p_expiry_check_level, p_bal_context_str,
8133: l_bal_owner_eff_date);
8134: --
8135: if g_debug then
8136: hr_utility.set_location (c_indent||p_dimension_name, 30);
8137: end if;
8138:
8139: if bal_adj_exp_date > lat_bal_exp_date then
8140: -- balance adjustment expiry date is later than the latest balance
8142: -- to the previous latest balance and expired latest balance, and set
8143: -- the latest balance to be the balance adjustment
8144:
8145: if g_debug then
8146: hr_utility.set_location (c_indent, 40);
8147: end if;
8148:
8149: prev_balance_value := value;
8150: prev_asg_action_id := assignment_action_id;
8161: -- balance adjustment expiry date = latest balance expiry date
8162: -- so feed latest balance and possibly previous latest balance
8163:
8164: if g_debug then
8165: hr_utility.set_location (c_indent, 50);
8166: end if;
8167:
8168: if bal_adj_eff_date >= l_bal_owner_eff_date then
8169: -- balance adjustment effective date is later than the latest balance
8171: -- balance and adjust the latest balance value and its asg action id by
8172: -- the adjustment
8173:
8174: if g_debug then
8175: hr_utility.set_location (c_indent, 60);
8176: end if;
8177:
8178: prev_balance_value := value;
8179: prev_asg_action_id := assignment_action_id;
8189: -- action id), and then see if we need to adjust the previous latest
8190: -- balance
8191:
8192: if g_debug then
8193: hr_utility.set_location (c_indent, 70);
8194: end if;
8195:
8196: value := value + (result_value * feed_scale);
8197: expiry_date := bal_adj_exp_date;
8205: if bal_adj_exp_date = prev_bal_exp_date then
8206: -- need to adjust previous balance as in same period as balance adjustment
8207:
8208: if g_debug then
8209: hr_utility.set_location (c_indent, 80);
8210: end if;
8211:
8212: if bal_adj_eff_date >= p_bal_owner_eff_date then
8213: -- as balance adjustment effective date is later than previous latest
8214: -- balance effective date we also need to amend previous latest
8215: -- balance asg action id
8216:
8217: if g_debug then
8218: hr_utility.set_location (c_indent, 90);
8219: end if;
8220:
8221: prev_balance_value := prev_balance_value + (result_value * feed_scale);
8222: prev_asg_action_id := assactid;
8222: prev_asg_action_id := assactid;
8223: prev_expiry_date := bal_adj_exp_date;
8224: else
8225: if g_debug then
8226: hr_utility.set_location (c_indent, 100);
8227: end if;
8228:
8229: prev_balance_value := prev_balance_value + (result_value * feed_scale);
8230: prev_expiry_date := prev_bal_exp_date;
8235: -- so replace previous latest balance value and its asg action id by
8236: -- the balance adjustment
8237:
8238: if g_debug then
8239: hr_utility.set_location (c_indent, 110);
8240: end if;
8241: prev_balance_value := result_value * feed_scale;
8242: prev_asg_action_id := assactid;
8243: prev_expiry_date := bal_adj_exp_date;
8245: else
8246: -- previous balance value is undefined (ie null or -9999)
8247:
8248: if g_debug then
8249: hr_utility.set_location (c_indent, 115);
8250: end if;
8251:
8252: end if;
8253: end if;
8255: else
8256: -- balance adjusmtent expiry date <> latest balance expiry date
8257: -- so may need to adjust expired and previous latest balances
8258: if g_debug then
8259: hr_utility.set_location (c_indent, 120);
8260: end if;
8261:
8262: -- Get expiry date for expired latest balance
8263: exp_bal_exp_date := get_expiry_date(p_expiry_date_code, expired_asg_action_id,
8269: -- then adjust expired balance and possibly previous latest balance
8270: if bal_adj_exp_date = exp_bal_exp_date then
8271:
8272: if g_debug then
8273: hr_utility.set_location (c_indent, 130);
8274: end if;
8275:
8276: if bal_adj_eff_date >= e_bal_owner_eff_date then
8277: -- balance adjustment effective date is later than the expired balance
8281: -- before doing so we see if the previous latest balance is from the
8282: -- same assignment action id and hence also needs adjusting
8283:
8284: if g_debug then
8285: hr_utility.set_location (c_indent, 140);
8286: end if;
8287:
8288: if expired_asg_action_id = prev_asg_action_id then
8289: -- adjust the previous latest balance
8287:
8288: if expired_asg_action_id = prev_asg_action_id then
8289: -- adjust the previous latest balance
8290: if g_debug then
8291: hr_utility.set_location (c_indent, 150);
8292: end if;
8293:
8294: prev_balance_value := prev_balance_value + (result_value * feed_scale);
8295: prev_asg_action_id := assactid;
8308: -- before doing so we see if the previous latest balance is from the
8309: -- same assignment action id and hence also needs adjusting
8310:
8311: if g_debug then
8312: hr_utility.set_location (c_indent, 160);
8313: end if;
8314:
8315: if expired_asg_action_id = prev_asg_action_id then
8316: -- adjust the previous latest balance
8314:
8315: if expired_asg_action_id = prev_asg_action_id then
8316: -- adjust the previous latest balance
8317: if g_debug then
8318: hr_utility.set_location (c_indent||prev_balance_value, 170);
8319: end if;
8320:
8321: prev_balance_value := prev_balance_value + (result_value * feed_scale);
8322: prev_expiry_date := exp_bal_exp_date;
8320:
8321: prev_balance_value := prev_balance_value + (result_value * feed_scale);
8322: prev_expiry_date := exp_bal_exp_date;
8323: if g_debug then
8324: hr_utility.set_location (c_indent||prev_balance_value, 170);
8325: end if;
8326: end if;
8327:
8328: if g_debug then
8325: end if;
8326: end if;
8327:
8328: if g_debug then
8329: hr_utility.set_location (c_indent||expired_value, 170);
8330: end if;
8331: expired_value := expired_value + (result_value * feed_scale);
8332: expired_date := exp_bal_exp_date;
8333: if g_debug then
8330: end if;
8331: expired_value := expired_value + (result_value * feed_scale);
8332: expired_date := exp_bal_exp_date;
8333: if g_debug then
8334: hr_utility.set_location (c_indent||expired_value, 170);
8335: end if;
8336:
8337: end if;
8338:
8344: -- which case we would want to adjust the expired, or it may be
8345: -- ealier than the expired.
8346: --
8347: if g_debug then
8348: hr_utility.set_location (c_indent, 180);
8349: end if;
8350:
8351: if expired_asg_action_id <> -9999 and
8352: bal_adj_exp_date > exp_bal_exp_date then
8352: bal_adj_exp_date > exp_bal_exp_date then
8353: -- it is newer so we need to replace the expired (and possibly previous)
8354:
8355: if g_debug then
8356: hr_utility.set_location (c_indent, 190);
8357: end if;
8358:
8359: if expired_asg_action_id = prev_asg_action_id then
8360: -- adjust the previous latest balance
8358:
8359: if expired_asg_action_id = prev_asg_action_id then
8360: -- adjust the previous latest balance
8361: if g_debug then
8362: hr_utility.set_location (c_indent, 200);
8363: end if;
8364:
8365: prev_balance_value := result_value * feed_scale;
8366: prev_asg_action_id := assactid;
8375: -- the balance adjustment is in an older period than the expired
8376: -- latest balance and therefore does not feed it
8377:
8378: if g_debug then
8379: hr_utility.set_location (c_indent, 210);
8380: end if;
8381:
8382: l_change_flag := FALSE;
8383:
8390: --
8391: end feed_balance;
8392: --
8393: begin
8394: g_debug := hr_utility.debug_enabled;
8395: --
8396: if g_debug then
8397: hr_utility.set_location(c_indent,10);
8398: end if;
8393: begin
8394: g_debug := hr_utility.debug_enabled;
8395: --
8396: if g_debug then
8397: hr_utility.set_location(c_indent,10);
8398: end if;
8399: --
8400: -- initialise balance dimensions cache
8401: --
8421: and effdate between pera.effective_start_date
8422: and pera.effective_end_date;
8423: --
8424: if g_debug then
8425: hr_utility.set_location(c_indent,20);
8426: end if;
8427: --
8428: if act_type = 'B' then
8429: --
8460: if not_supported = TRUE then
8461: --
8462: -- delete latest balances
8463: if g_debug then
8464: hr_utility.set_location(c_indent,25);
8465: end if;
8466: --
8467: -- Derive element type id from the run result.
8468: --
8479: cache_contexts;
8480: end if;
8481: --
8482: if g_debug then
8483: hr_utility.set_location(c_indent,30);
8484: end if;
8485: --
8486: for rrv in run_result_values loop
8487:
8558: --
8559: else
8560: -- feed check person latest balances
8561: for lb in fed_latest_balances(rrv.input_value_id, l_person_id, asgid) loop
8562: hr_utility.set_location(c_indent,100);
8563: bal_fed := feed_check(lb.latest_balance_id, 'L', lb.balance_dimension_id,
8564: lb.balance_type_id, bal_dim_name,
8565: balance_expiry_code, balance_expiry_level,
8566: bal_context_string, udca);
8647: when no_data_found then
8648: return -9999;
8649:
8650: when too_many_rows then
8651: hr_utility.set_message(801,'HR_34864_INTERLOCK_ERR_REV');
8652: hr_utility.raise_error;
8653:
8654: end;
8655:
8648: return -9999;
8649:
8650: when too_many_rows then
8651: hr_utility.set_message(801,'HR_34864_INTERLOCK_ERR_REV');
8652: hr_utility.raise_error;
8653:
8654: end;
8655:
8656: exception
8671: v_assignment_action_id number;
8672: v_a_object_version_number number;
8673: v_r_mode varchar2(5);
8674: begin
8675: hr_utility.set_location ('Entered ins_dummy_quickpay_action', 10);
8676: hr_utility.trace ('Assignment id is :'||p_assignment_id);
8677: hr_utility.trace ('p_consolidation_set_id is :'||p_consolidation_set_id);
8678: hr_utility.trace ('p_run_type_id is :'||p_run_type_id);
8679:
8672: v_a_object_version_number number;
8673: v_r_mode varchar2(5);
8674: begin
8675: hr_utility.set_location ('Entered ins_dummy_quickpay_action', 10);
8676: hr_utility.trace ('Assignment id is :'||p_assignment_id);
8677: hr_utility.trace ('p_consolidation_set_id is :'||p_consolidation_set_id);
8678: hr_utility.trace ('p_run_type_id is :'||p_run_type_id);
8679:
8680: begin
8673: v_r_mode varchar2(5);
8674: begin
8675: hr_utility.set_location ('Entered ins_dummy_quickpay_action', 10);
8676: hr_utility.trace ('Assignment id is :'||p_assignment_id);
8677: hr_utility.trace ('p_consolidation_set_id is :'||p_consolidation_set_id);
8678: hr_utility.trace ('p_run_type_id is :'||p_run_type_id);
8679:
8680: begin
8681: SELECT business_group_id
8674: begin
8675: hr_utility.set_location ('Entered ins_dummy_quickpay_action', 10);
8676: hr_utility.trace ('Assignment id is :'||p_assignment_id);
8677: hr_utility.trace ('p_consolidation_set_id is :'||p_consolidation_set_id);
8678: hr_utility.trace ('p_run_type_id is :'||p_run_type_id);
8679:
8680: begin
8681: SELECT business_group_id
8682: into v_business_group_id
8684: WHERE assignment_id = p_assignment_id
8685: AND p_effective_date BETWEEN effective_start_date AND effective_end_date ;
8686: exception
8687: when no_data_found then
8688: hr_utility.set_message(801, 'HR_7244_QPAY_NO_PAY_D_EFF');
8689: hr_utility.raise_error;
8690: end;
8691:
8692: hr_utility.trace ('v_business_group_id is :'||v_business_group_id);
8685: AND p_effective_date BETWEEN effective_start_date AND effective_end_date ;
8686: exception
8687: when no_data_found then
8688: hr_utility.set_message(801, 'HR_7244_QPAY_NO_PAY_D_EFF');
8689: hr_utility.raise_error;
8690: end;
8691:
8692: hr_utility.trace ('v_business_group_id is :'||v_business_group_id);
8693:
8688: hr_utility.set_message(801, 'HR_7244_QPAY_NO_PAY_D_EFF');
8689: hr_utility.raise_error;
8690: end;
8691:
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 ;
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: (
8711: ,p_assignment_action_id => v_assignment_action_id
8712: ,p_a_object_version_number => v_a_object_version_number
8713: );
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);
8712: ,p_a_object_version_number => v_a_object_version_number
8713: );
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:
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,
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: --