[Home] [Help]
19:
20: l_proc VARCHAR2(72) := g_package||'calculate_datetrack_mode';
21:
22: BEGIN
23: hr_utility.set_location('Entering:'|| l_proc, 10);
24: p_update_mode := NULL;
25: p_delete_mode := 'X';
26:
27: IF p_ud_end_date > p_ed_end_date THEN
24: p_update_mode := NULL;
25: p_delete_mode := 'X';
26:
27: IF p_ud_end_date > p_ed_end_date THEN
28: hr_utility.set_location(l_proc, 20);
29: p_delete_mode := 'DELETE_NEXT_CHANGE';
30: ELSE
31: IF p_ud_start_date = p_ed_start_date THEN
32: hr_utility.set_location(l_proc, 30);
28: hr_utility.set_location(l_proc, 20);
29: p_delete_mode := 'DELETE_NEXT_CHANGE';
30: ELSE
31: IF p_ud_start_date = p_ed_start_date THEN
32: hr_utility.set_location(l_proc, 30);
33: IF NOT p_records_same THEN
34: hr_utility.set_location(l_proc, 40);
35: p_update_mode := 'CORRECTION';
36: END IF;
30: ELSE
31: IF p_ud_start_date = p_ed_start_date THEN
32: hr_utility.set_location(l_proc, 30);
33: IF NOT p_records_same THEN
34: hr_utility.set_location(l_proc, 40);
35: p_update_mode := 'CORRECTION';
36: END IF;
37: ELSE
38: IF p_future_records THEN
35: p_update_mode := 'CORRECTION';
36: END IF;
37: ELSE
38: IF p_future_records THEN
39: hr_utility.set_location(l_proc, 50);
40: p_update_mode := 'UPDATE_CHANGE_INSERT';
41: ELSE
42: hr_utility.set_location(l_proc, 60);
43: p_update_mode := 'UPDATE';
38: IF p_future_records THEN
39: hr_utility.set_location(l_proc, 50);
40: p_update_mode := 'UPDATE_CHANGE_INSERT';
41: ELSE
42: hr_utility.set_location(l_proc, 60);
43: p_update_mode := 'UPDATE';
44: END IF;
45: END IF;
46: END IF;
44: END IF;
45: END IF;
46: END IF;
47:
48: hr_utility.set_location('Leaving:'|| l_proc, 70);
49:
50: END calculate_datetrack_mode;
51:
52: FUNCTION get_costing_id_flex_num RETURN NUMBER IS
59: FROM per_business_groups
60: WHERE business_group_id = hr_h2pi_upload.g_to_business_group_id;
61:
62: BEGIN
63: hr_utility.set_location('Entering:'|| l_proc, 10);
64: OPEN csr_costing;
65: FETCH csr_costing INTO l_costing_id_flex_num;
66: IF csr_costing%notfound then
67: hr_utility.set_location(l_proc, 20);
63: hr_utility.set_location('Entering:'|| l_proc, 10);
64: OPEN csr_costing;
65: FETCH csr_costing INTO l_costing_id_flex_num;
66: IF csr_costing%notfound then
67: hr_utility.set_location(l_proc, 20);
68: END IF;
69: CLOSE csr_costing;
70: hr_utility.set_location('Leaving:'|| l_proc, 30);
71: RETURN to_number(l_costing_id_flex_num);
66: IF csr_costing%notfound then
67: hr_utility.set_location(l_proc, 20);
68: END IF;
69: CLOSE csr_costing;
70: hr_utility.set_location('Leaving:'|| l_proc, 30);
71: RETURN to_number(l_costing_id_flex_num);
72: END;
73:
74: PROCEDURE create_end_date_records(p_from_client_id NUMBER ) IS
75:
76: l_proc VARCHAR2(72) := g_package||'create_end_date_records';
77:
78: BEGIN
79: hr_utility.set_location('Entering:'|| l_proc, 10);
80:
81: INSERT INTO hr_h2pi_assignments
82: (assignment_id,
83: effective_start_date,
153: AND sasg.primary_flag = 'Y'
154: AND sasg.effective_start_date = asg.effective_end_date + 1
155: AND sasg.person_id = asg.person_id);
156:
157: hr_utility.set_location(l_proc, 40);
158: INSERT INTO hr_h2pi_payment_methods
159: (personal_payment_method_id,
160: effective_start_date,
161: effective_end_date,
178: WHERE client_id = p_from_client_id
179: GROUP BY person_id, personal_payment_method_id,business_group_id
180: HAVING MAX(effective_end_date) <> g_eot;
181:
182: hr_utility.set_location(l_proc, 50);
183: INSERT INTO hr_h2pi_cost_allocations
184: (cost_allocation_id,
185: effective_start_date,
186: effective_end_date,
210: GROUP BY person_id, cost_allocation_id,business_group_id,
211: id_flex_num,summary_flag,enabled_flag
212: HAVING MAX(effective_end_date) <> g_eot;
213:
214: hr_utility.set_location(l_proc, 60);
215: INSERT INTO hr_h2pi_element_entries
216: (element_entry_id,
217: effective_start_date,
218: effective_end_date,
240: AND creator_type <> 'UT'
241: GROUP BY person_id, element_entry_id,business_group_id
242: HAVING MAX(effective_end_date) <> g_eot;
243:
244: hr_utility.set_location('Leaving:'|| l_proc, 100);
245:
246: END create_end_date_records;
247:
248:
597:
598: BEGIN
599: l_from_client_id := p_from_client_id;
600:
601: hr_utility.set_location('Entering:'|| l_proc, 10);
602: hr_h2pi_person_upload.create_end_date_records(l_from_client_id);
603:
604: FOR v_per IN csr_people(l_from_client_id) LOOP
605:
602: hr_h2pi_person_upload.create_end_date_records(l_from_client_id);
603:
604: FOR v_per IN csr_people(l_from_client_id) LOOP
605:
606: hr_utility.set_location(l_proc, 20);
607: SAVEPOINT person_start;
608:
609: BEGIN
610: delete_address(l_from_client_id,
609: BEGIN
610: delete_address(l_from_client_id,
611: v_per.person_id);
612:
613: hr_utility.set_location(l_proc, 30);
614: FOR v_per_det IN csr_person_detail(v_per.person_id) LOOP
615:
616: BEGIN
617:
614: FOR v_per_det IN csr_person_detail(v_per.person_id) LOOP
615:
616: BEGIN
617:
618: hr_utility.set_location(l_proc, 40);
619: l_date_char := TO_CHAR(v_per_det.eff_date, 'YYYY/MM/DD');
620: l_sql_parse :=
621: 'BEGIN '||fnd_global.local_chr(10)||
622: 'hr_h2pi_person_upload.'||
625: 'TO_DATE('||''''||l_date_char||''''||
626: ','||''''||'YYYY/MM/DD'||''''||'));'||fnd_global.local_chr(10)||
627: 'END;';
628:
629: hr_utility.trace(l_sql_parse);
630: l_csr_handle := dbms_sql.open_cursor;
631: dbms_sql.parse(l_csr_handle,
632: l_sql_parse,
633: dbms_sql.native);
635: dbms_sql.close_cursor(l_csr_handle);
636:
637: EXCEPTION
638: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
639: hr_utility.set_location(l_proc, 50);
640: RAISE PERSON_ERROR;
641: WHEN MAPPING_ID_MISSING THEN
642: hr_utility.set_location(l_proc, 60);
643: RAISE PERSON_ERROR;
638: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
639: hr_utility.set_location(l_proc, 50);
640: RAISE PERSON_ERROR;
641: WHEN MAPPING_ID_MISSING THEN
642: hr_utility.set_location(l_proc, 60);
643: RAISE PERSON_ERROR;
644: WHEN MAPPING_ID_INVALID THEN
645: hr_utility.set_location(l_proc, 70);
646: RAISE PERSON_ERROR;
641: WHEN MAPPING_ID_MISSING THEN
642: hr_utility.set_location(l_proc, 60);
643: RAISE PERSON_ERROR;
644: WHEN MAPPING_ID_INVALID THEN
645: hr_utility.set_location(l_proc, 70);
646: RAISE PERSON_ERROR;
647: END;
648:
649: END LOOP;
653:
654:
655: EXCEPTION
656: WHEN PERSON_ERROR THEN
657: hr_utility.set_location(l_proc, 60);
658: COMMIT;
659: END;
660:
661: END LOOP;
660:
661: END LOOP;
662:
663: IF NOT hr_h2pi_error.check_for_errors THEN
664: hr_utility.set_location(l_proc, 70);
665: remove_staging_table_data(l_from_client_id);
666: END IF;
667:
668: hr_utility.set_location('Leaving:'|| l_proc, 100);
664: hr_utility.set_location(l_proc, 70);
665: remove_staging_table_data(l_from_client_id);
666: END IF;
667:
668: hr_utility.set_location('Leaving:'|| l_proc, 100);
669:
670: COMMIT;
671:
672: END;
739: l_update_mode VARCHAR2(30);
740: l_delete_mode VARCHAR2(30);
741:
742: BEGIN
743: hr_utility.set_location('Entering:'|| l_proc, 10);
744:
745: OPEN csr_ud_person(p_person_id,
746: p_effective_start_date);
747: FETCH csr_ud_person INTO v_ud_per;
750: (p_table_name => 'PER_ALL_PEOPLE_F',
751: p_from_id => p_person_id);
752:
753: IF l_person_id = -1 THEN
754: hr_utility.set_location(l_proc, 20);
755:
756: hr_employee_api.create_employee (
757: p_hire_date => v_ud_per.effective_start_date
758: ,p_business_group_id => hr_h2pi_upload.g_to_business_group_id
851: ,p_assign_payroll_warning => l_assign_payroll_warning
852: ,p_orig_hire_warning => l_orig_hire_warning
853: );
854:
855: hr_utility.set_location(l_proc, 30);
856: hr_h2pi_map.create_id_mapping
857: (p_table_name => 'PER_ALL_PEOPLE_F',
858: p_from_id => p_person_id,
859: p_to_id => l_person_id);
894:
895: ELSE
896:
897: BEGIN
898: hr_utility.set_location(l_proc, 50);
899: OPEN csr_ed_person(l_person_id,
900: v_ud_per.effective_start_date);
901: FETCH csr_ed_person
902: INTO l_person_type,
902: INTO l_person_type,
903: l_esd,
904: l_eed;
905: IF csr_ed_person%NOTFOUND THEN
906: hr_utility.set_location(l_proc, 60);
907: CLOSE csr_ed_person;
908: ROLLBACK;
909: hr_h2pi_error.data_error
910: (p_from_id => l_person_id,
913: p_message_name => 'HR_289240_MAPPING_ID_INVALID');
914: COMMIT;
915: RAISE MAPPING_ID_INVALID;
916: ELSE
917: hr_utility.set_location(l_proc, 70);
918: CLOSE csr_ed_person;
919: END IF;
920:
921: OPEN csr_ed_person_ovn(l_person_id,
926: END;
927:
928: IF v_ud_per.person_type = l_person_type THEN
929:
930: hr_utility.set_location(l_proc, 80);
931: l_delete_mode := 'DELETE_NEXT_CHANGE';
932: LOOP
933: hr_utility.set_location(l_proc, 90);
934: l_records_same := FALSE;
929:
930: hr_utility.set_location(l_proc, 80);
931: l_delete_mode := 'DELETE_NEXT_CHANGE';
932: LOOP
933: hr_utility.set_location(l_proc, 90);
934: l_records_same := FALSE;
935:
936: SELECT MAX(per.effective_end_date)
937: INTO l_max_eed
938: FROM per_all_people_f per
939: WHERE per.person_id = l_person_id;
940:
941: IF l_max_eed > l_eed THEN
942: hr_utility.set_location(l_proc, 100);
943: l_future_records := TRUE;
944: END IF;
945:
946: calculate_datetrack_mode
956: EXIT WHEN l_delete_mode = 'X';
957:
958: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
959:
960: hr_utility.set_location(l_proc, 110);
961: per_per_del.del(p_person_id => l_person_id
962: ,p_effective_start_date => l_del_esd
963: ,p_effective_end_date => l_del_eed
964: ,p_object_version_number => l_ovn
976: END IF;
977:
978: END LOOP;
979:
980: hr_utility.set_location(l_proc, 120);
981: hr_person_api.update_person(
982: p_effective_date => v_ud_per.effective_start_date
983: ,p_datetrack_update_mode => l_update_mode
984: ,p_person_id => l_person_id
1076: ELSE
1077:
1078: IF v_ud_per.person_type = 'EMP' THEN
1079:
1080: hr_utility.set_location(l_proc, 130);
1081: hr_employee_api.re_hire_ex_employee(
1082: p_hire_date => v_ud_per.effective_start_date
1083: ,p_person_id => l_person_id
1084: ,p_per_object_version_number => l_ovn
1091: ,p_assignment_number => l_assignment_number
1092: ,p_assign_payroll_warning => l_assign_payroll_warning
1093: );
1094:
1095: hr_utility.set_location(l_proc, 140);
1096: SELECT asg.assignment_id
1097: INTO l_ud_assignment_id
1098: FROM hr_h2pi_assignments asg
1099: WHERE asg.person_id = v_ud_per.person_id
1106: p_from_id => l_ud_assignment_id,
1107: p_to_id => l_assignment_id);
1108:
1109: BEGIN
1110: hr_utility.set_location(l_proc, 150);
1111: SELECT pos.period_of_service_id
1112: INTO l_ud_period_of_service_id
1113: FROM hr_h2pi_periods_of_service pos
1114: WHERE pos.person_id = v_ud_per.person_id
1130: END;
1131:
1132: ELSE
1133:
1134: hr_utility.set_location(l_proc, 160);
1135: terminate_person
1136: (p_from_client_id => p_from_client_id,
1137: p_person_id => v_ud_per.person_id,
1138: p_effective_start_date => v_ud_per.effective_start_date);
1141:
1142: END IF;
1143: END IF;
1144:
1145: hr_utility.set_location(l_proc, 170);
1146: UPDATE hr_h2pi_employees per
1147: SET status = 'C'
1148: WHERE per.person_id = v_ud_per.person_id
1149: AND per.client_id = p_from_client_id
1150: AND per.effective_start_date = v_ud_per.effective_start_date
1151: AND per.effective_end_date = v_ud_per.effective_end_date;
1152:
1153: CLOSE csr_ud_person;
1154: hr_utility.set_location('Leaving:'|| l_proc, 180);
1155: COMMIT;
1156:
1157: EXCEPTION
1158: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
1156:
1157: EXCEPTION
1158: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
1159: ROLLBACK;
1160: hr_utility.set_location(l_proc, 200);
1161: l_encoded_message := fnd_message.get_encoded;
1162: hr_utility.set_location(l_encoded_message, 200);
1163: hr_h2pi_error.data_error
1164: (p_from_id => v_ud_per.person_id,
1158: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
1159: ROLLBACK;
1160: hr_utility.set_location(l_proc, 200);
1161: l_encoded_message := fnd_message.get_encoded;
1162: hr_utility.set_location(l_encoded_message, 200);
1163: hr_h2pi_error.data_error
1164: (p_from_id => v_ud_per.person_id,
1165: p_table_name => 'HR_H2PI_EMPLOYEES',
1166: p_message_level => 'FATAL',
1212: l_dod_warning BOOLEAN;
1213: l_org_now_no_manager_warning BOOLEAN;
1214:
1215: BEGIN
1216: hr_utility.set_location('Entering:'|| l_proc, 10);
1217:
1218: OPEN csr_ud_periods_of_service(p_person_id,
1219: p_effective_start_date);
1220: FETCH csr_ud_periods_of_service INTO v_ud_pos;
1234:
1235: IF (l_actual_termination_date IS NULL) AND
1236: (v_ud_pos.actual_termination_date IS NOT NULL) THEN
1237:
1238: hr_utility.set_location(l_proc, 30);
1239: hr_ex_employee_api.actual_termination_emp(
1240: p_effective_date => v_ud_pos.actual_termination_date
1241: ,p_period_of_service_id => l_period_of_service_id
1242: ,p_object_version_number => l_ovn
1258:
1259: IF (l_final_process_date IS NULL) AND
1260: (v_ud_pos.actual_termination_date = v_ud_pos.final_process_date) THEN
1261:
1262: hr_utility.set_location(l_proc, 40);
1263: hr_ex_employee_api.final_process_emp(
1264: p_period_of_service_id => l_period_of_service_id
1265: ,p_object_version_number => l_ovn
1266: ,p_final_process_date => v_ud_pos.final_process_date
1270: );
1271:
1272: END IF;
1273:
1274: hr_utility.set_location('Leaving:'|| l_proc, 50);
1275:
1276: END;
1277:
1278:
1306: l_ud_date_to per_addresses.date_to%TYPE;
1307: v_ed_adr hr_h2pi_addresses%ROWTYPE;
1308:
1309: BEGIN
1310: hr_utility.set_location('Entering:'|| l_proc, 10);
1311:
1312: l_person_id := hr_h2pi_map.get_to_id
1313: (p_table_name => 'PER_ALL_PEOPLE_F',
1314: p_from_id => p_person_id);
1315:
1316: IF l_person_id <> -1 THEN
1317:
1318: FOR v_ed_adr IN csr_ed_addresses(l_person_id) LOOP
1319: hr_utility.set_location(l_proc, 20);
1320: l_ud_address_id := hr_h2pi_map.get_from_id
1321: (p_table_name => 'PER_ADDRESSES',
1322: p_to_id => v_ed_adr.address_id);
1323:
1321: (p_table_name => 'PER_ADDRESSES',
1322: p_to_id => v_ed_adr.address_id);
1323:
1324: IF l_ud_address_id <> -1 THEN
1325: hr_utility.set_location(l_proc, 30);
1326: OPEN csr_ud_address(l_ud_address_id);
1327: FETCH csr_ud_address INTO l_ud_address_id,
1328: l_ud_date_from,
1329: l_ud_date_to;
1330: IF (csr_ud_address%FOUND AND
1331: (v_ed_adr.date_from <> l_ud_date_from OR
1332: v_ed_adr.date_to <> l_ud_date_to)) THEN
1333:
1334: hr_utility.set_location(l_proc, 40);
1335: per_add_del.del
1336: (p_address_id => v_ed_adr.address_id,
1337: p_object_version_number => v_ed_adr.object_version_number);
1338:
1345: CLOSE csr_ud_address;
1346: END IF;
1347: END LOOP;
1348: END IF;
1349: hr_utility.set_location('Leaving:'|| l_proc, 50);
1350: COMMIT;
1351:
1352: EXCEPTION
1353: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
1351:
1352: EXCEPTION
1353: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
1354: ROLLBACK;
1355: hr_utility.set_location(l_proc, 60);
1356: l_encoded_message := fnd_message.get_encoded;
1357: hr_h2pi_error.data_error
1358: (p_from_id => l_ud_address_id,
1359: p_table_name => 'HR_H2PI_ADDRESSES',
1391: l_per_start_date per_all_people_f.effective_start_date%TYPE;
1392: l_date_from per_addresses.date_from%TYPE;
1393:
1394: BEGIN
1395: hr_utility.set_location('Entering:'|| l_proc, 10);
1396:
1397: OPEN csr_ud_address(p_address_id);
1398: FETCH csr_ud_address INTO v_ud_adr;
1399:
1401: (p_table_name => 'PER_ALL_PEOPLE_F',
1402: p_from_id => v_ud_adr.person_id,
1403: p_report_error => TRUE);
1404:
1405: hr_utility.set_location(l_proc, 20);
1406: l_address_id := hr_h2pi_map.get_to_id
1407: (p_table_name => 'PER_ADDRESSES',
1408: p_from_id => v_ud_adr.address_id);
1409:
1407: (p_table_name => 'PER_ADDRESSES',
1408: p_from_id => v_ud_adr.address_id);
1409:
1410: IF l_address_id = -1 THEN
1411: hr_utility.set_location(l_proc, 30);
1412: /*
1413: * Check that the employee exists for the date range
1414: */
1415: SELECT MIN(per.effective_start_date)
1471: ,p_address_id => l_address_id
1472: ,p_object_version_number => l_ovn
1473: );
1474:
1475: hr_utility.set_location(l_proc, 40);
1476: hr_h2pi_map.create_id_mapping
1477: (p_table_name => 'PER_ADDRESSES',
1478: p_from_id => v_ud_adr.address_id,
1479: p_to_id => l_address_id);
1478: p_from_id => v_ud_adr.address_id,
1479: p_to_id => l_address_id);
1480: END IF;
1481: ELSE
1482: hr_utility.set_location(l_proc, 50);
1483: OPEN csr_ed_address(l_address_id);
1484: FETCH csr_ed_address INTO l_ovn;
1485: IF csr_ed_address%NOTFOUND THEN
1486: hr_utility.set_location(l_proc, 60);
1482: hr_utility.set_location(l_proc, 50);
1483: OPEN csr_ed_address(l_address_id);
1484: FETCH csr_ed_address INTO l_ovn;
1485: IF csr_ed_address%NOTFOUND THEN
1486: hr_utility.set_location(l_proc, 60);
1487: CLOSE csr_ed_address;
1488: ROLLBACK;
1489: hr_utility.set_location(l_proc, 70);
1490: hr_h2pi_error.data_error
1485: IF csr_ed_address%NOTFOUND THEN
1486: hr_utility.set_location(l_proc, 60);
1487: CLOSE csr_ed_address;
1488: ROLLBACK;
1489: hr_utility.set_location(l_proc, 70);
1490: hr_h2pi_error.data_error
1491: (p_from_id => l_address_id,
1492: p_table_name => 'HR_H2PI_ADDRESSES',
1493: p_message_level => 'FATAL',
1497: ELSE
1498: CLOSE csr_ed_address;
1499: END IF;
1500:
1501: hr_utility.set_location(l_proc, 80);
1502: hr_person_address_api.update_person_address(
1503: p_effective_date => v_ud_adr.date_from
1504: ,p_address_id => l_address_id
1505: ,p_object_version_number => l_ovn
1545: ,p_addr_attribute20 => v_ud_adr.addr_attribute20
1546: );
1547: END IF;
1548:
1549: hr_utility.set_location(l_proc, 90);
1550: UPDATE hr_h2pi_addresses adr
1551: SET status = 'C'
1552: WHERE adr.address_id = v_ud_adr.address_id
1553: AND adr.client_id = p_from_client_id;
1552: WHERE adr.address_id = v_ud_adr.address_id
1553: AND adr.client_id = p_from_client_id;
1554: CLOSE csr_ud_address;
1555:
1556: hr_utility.set_location('Leaving:'|| l_proc, 100);
1557: COMMIT;
1558:
1559: EXCEPTION
1560: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
1558:
1559: EXCEPTION
1560: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
1561: ROLLBACK;
1562: hr_utility.set_location(l_proc, 110);
1563: l_encoded_message := fnd_message.get_encoded;
1564: hr_h2pi_error.data_error
1565: (p_from_id => v_ud_adr.address_id,
1566: p_table_name => 'HR_H2PI_ADDRESSES',
1711: l_dummy_person_type hr_h2pi_employees_v.person_type%TYPE;
1712: l_future_term_flag BOOLEAN := FALSE;
1713:
1714: BEGIN
1715: hr_utility.set_location('Entering:'|| l_proc, 10);
1716:
1717: OPEN csr_ud_assignment(p_assignment_id,
1718: p_effective_start_date);
1719: FETCH csr_ud_assignment INTO v_ud_asg;
1719: FETCH csr_ud_assignment INTO v_ud_asg;
1720:
1721: IF v_ud_asg.last_upd_date = g_eot THEN
1722:
1723: hr_utility.set_location(l_proc, 20);
1724: l_assignment_id := hr_h2pi_map.get_to_id
1725: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
1726: p_from_id => v_ud_asg.assignment_id,
1727: p_report_error => TRUE);
1727: p_report_error => TRUE);
1728:
1729: IF v_ud_asg.primary_flag = 'Y' THEN
1730:
1731: hr_utility.set_location(l_proc, 30);
1732: OPEN csr_ed_periods_of_service(l_assignment_id,
1733: v_ud_asg.effective_start_date);
1734: FETCH csr_ed_periods_of_service
1735: INTO l_ovn,
1735: INTO l_ovn,
1736: l_period_of_service_id;
1737: CLOSE csr_ed_periods_of_service;
1738:
1739: hr_utility.set_location(l_proc, 40);
1740: l_final_process_date := v_ud_asg.effective_start_date - 1;
1741: hr_ex_employee_api.final_process_emp(
1742: p_period_of_service_id => l_period_of_service_id
1743: ,p_object_version_number => l_ovn
1752: FETCH csr_ed_assignment_ovn
1753: INTO l_ovn;
1754: CLOSE csr_ed_assignment_ovn;
1755:
1756: hr_utility.set_location(l_proc, 50);
1757: hr_assignment_api.actual_termination_emp_asg(
1758: p_assignment_id => l_assignment_id
1759: ,p_object_version_number => l_ovn
1760: ,p_actual_termination_date =>(v_ud_asg.effective_start_date - 1)
1764: ,p_entries_changed_warning => l_entries_changed_warning
1765: ,p_pay_proposal_warning => l_pay_proposal_warning
1766: );
1767:
1768: hr_utility.set_location(l_proc, 60);
1769: hr_assignment_api.final_process_emp_asg(
1770: p_assignment_id => l_assignment_id
1771: ,p_object_version_number => l_ovn
1772: ,p_final_process_date =>(v_ud_asg.effective_start_date - 1)
1779: END IF;
1780:
1781: ELSE
1782:
1783: hr_utility.set_location(l_proc, 70);
1784: l_person_id := hr_h2pi_map.get_to_id
1785: (p_table_name => 'PER_ALL_PEOPLE_F',
1786: p_from_id => v_ud_asg.person_id,
1787: p_report_error => TRUE);
1819: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
1820: p_from_id => v_ud_asg.assignment_id);
1821:
1822: IF l_assignment_id = -1 THEN
1823: hr_utility.set_location(l_proc, 80);
1824:
1825: hr_assignment_api.create_secondary_emp_asg(
1826: p_effective_date => v_ud_asg.effective_start_date
1827: ,p_person_id => l_person_id
1942: ,p_comment_id => l_comment_id
1943: ,p_other_manager_warning => l_other_manager_warning
1944: );
1945:
1946: hr_utility.set_location(l_proc, 90);
1947: hr_h2pi_map.create_id_mapping
1948: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
1949: p_from_id => v_ud_asg.assignment_id,
1950: p_to_id => l_assignment_id);
1950: p_to_id => l_assignment_id);
1951: ELSE
1952:
1953: BEGIN
1954: hr_utility.set_location(l_proc, 100);
1955: OPEN csr_ed_assignment(l_assignment_id,
1956: v_ud_asg.effective_start_date);
1957: FETCH csr_ed_assignment
1958: INTO v_ed_asg;
1956: v_ud_asg.effective_start_date);
1957: FETCH csr_ed_assignment
1958: INTO v_ed_asg;
1959: IF csr_ed_assignment%NOTFOUND THEN
1960: hr_utility.set_location(l_proc, 110);
1961: CLOSE csr_ed_assignment;
1962: ROLLBACK;
1963: hr_utility.set_location(l_proc, 220);
1964: hr_h2pi_error.data_error
1959: IF csr_ed_assignment%NOTFOUND THEN
1960: hr_utility.set_location(l_proc, 110);
1961: CLOSE csr_ed_assignment;
1962: ROLLBACK;
1963: hr_utility.set_location(l_proc, 220);
1964: hr_h2pi_error.data_error
1965: (p_from_id => l_assignment_id,
1966: p_table_name => 'HR_H2PI_ASSIGNMENTS',
1967: p_message_level => 'FATAL',
1980: END;
1981:
1982: l_delete_mode := 'DELETE_NEXT_CHANGE';
1983: LOOP
1984: hr_utility.set_location(l_proc, 120);
1985: l_records_same := FALSE;
1986:
1987: SELECT MAX(asg.effective_end_date)
1988: INTO l_max_eed
1989: FROM per_all_assignments_f asg
1990: WHERE asg.assignment_id = l_assignment_id;
1991:
1992: IF l_max_eed > v_ed_asg.effective_end_date THEN
1993: hr_utility.set_location(l_proc, 130);
1994: l_future_records := TRUE;
1995: END IF;
1996:
1997: calculate_datetrack_mode
2006:
2007: EXIT WHEN l_delete_mode = 'X';
2008:
2009: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
2010: hr_utility.set_location(l_proc, 134);
2011:
2012: BEGIN
2013: SELECT DISTINCT person_type
2014: INTO l_dummy_person_type
2017: AND effective_start_date < v_ud_asg.effective_end_date
2018: AND effective_end_date > v_ud_asg.effective_start_date;
2019: EXCEPTION
2020: WHEN TOO_MANY_ROWS THEN
2021: hr_utility.set_location(l_proc, 136);
2022: l_future_term_flag := TRUE;
2023: calculate_datetrack_mode
2024: (p_ud_start_date => v_ud_asg.effective_start_date
2025: ,p_ud_end_date => v_ud_asg.effective_end_date
2032: EXIT;
2033: END;
2034:
2035:
2036: hr_utility.set_location(l_proc, 140);
2037: per_asg_del.del(p_assignment_id => l_assignment_id
2038: ,p_effective_start_date => l_del_esd
2039: ,p_effective_end_date => l_del_eed
2040: ,p_validation_start_date => l_val_esd
2045: ,p_object_version_number => l_ovn
2046: ,p_effective_date => v_ed_asg.effective_end_date
2047: ,p_datetrack_mode => 'DELETE_NEXT_CHANGE');
2048:
2049: hr_utility.set_location(l_proc, 150);
2050: OPEN csr_ed_assignment(l_assignment_id,
2051: v_ud_asg.effective_start_date);
2052: FETCH csr_ed_assignment
2053: INTO v_ed_asg;
2058: END LOOP;
2059:
2060: IF v_ud_asg.primary_flag = 'Y' AND
2061: v_ed_asg.primary_flag = 'N' THEN
2062: hr_utility.set_location(l_proc, 160);
2063: l_person_id := hr_h2pi_map.get_to_id
2064: (p_table_name => 'PER_ALL_PEOPLE_F',
2065: p_from_id => v_ud_asg.person_id,
2066: p_report_error => TRUE);
2064: (p_table_name => 'PER_ALL_PEOPLE_F',
2065: p_from_id => v_ud_asg.person_id,
2066: p_report_error => TRUE);
2067:
2068: hr_utility.set_location(l_proc, 170);
2069: hr_assignment_api.set_new_primary_asg(
2070: p_effective_date => v_ud_asg.effective_start_date
2071: ,p_person_id => l_person_id
2072: ,p_assignment_id => l_assignment_id
2097: ,p_delete_mode => l_delete_mode);
2098: END IF;
2099: END IF;
2100:
2101: hr_utility.set_location(l_proc, 180);
2102: hr_assignment_api.update_emp_asg(
2103: p_effective_date => v_ud_asg.effective_start_date
2104: ,p_datetrack_update_mode => l_update_mode
2105: ,p_assignment_id => l_assignment_id
2181: ,p_no_managers_warning => l_no_manager_warning
2182: ,p_other_manager_warning => l_other_manager_warning
2183: );
2184:
2185: hr_utility.set_location(l_proc, 190);
2186: IF l_future_term_flag THEN
2187: calculate_datetrack_mode
2188: (p_ud_start_date => v_ud_asg.effective_start_date
2189: ,p_ud_end_date => v_ud_asg.effective_end_date
2260: );
2261:
2262: END IF;
2263:
2264: hr_utility.set_location(l_proc, 200);
2265: BEGIN
2266: SELECT emp_fed_tax_rule_id
2267: INTO l_emp_fed_tax_rule_id
2268: FROM hr_h2pi_federal_tax_rules_v
2288: p_to_id => l_emp_fed_tax_rule_id);
2289: END IF;
2290: EXCEPTION
2291: WHEN NO_DATA_FOUND THEN
2292: hr_utility.set_location(l_proc, 205);
2293: END;
2294:
2295: hr_utility.set_location(l_proc, 210);
2296: FOR v_sta IN csr_state_tax_rule(l_assignment_id,
2291: WHEN NO_DATA_FOUND THEN
2292: hr_utility.set_location(l_proc, 205);
2293: END;
2294:
2295: hr_utility.set_location(l_proc, 210);
2296: FOR v_sta IN csr_state_tax_rule(l_assignment_id,
2297: v_ud_asg.effective_start_date) LOOP
2298: l_temp_id := hr_h2pi_map.get_from_id(
2299: p_table_name => 'PAY_US_EMP_STATE_TAX_RULES_F',
2316:
2317: END IF;
2318: END LOOP;
2319:
2320: hr_utility.set_location(l_proc, 220);
2321: FOR v_cnt IN csr_county_tax_rule(l_assignment_id,
2322: v_ud_asg.effective_start_date) LOOP
2323: l_temp_id := hr_h2pi_map.get_from_id(
2324: p_table_name=> 'PAY_US_EMP_COUNTY_TAX_RULES_F',
2341:
2342: END IF;
2343: END LOOP;
2344:
2345: hr_utility.set_location(l_proc, 230);
2346: FOR v_cty IN csr_city_tax_rule(l_assignment_id,
2347: v_ud_asg.effective_start_date) LOOP
2348: l_temp_id := hr_h2pi_map.get_from_id(
2349: p_table_name => 'PAY_US_EMP_CITY_TAX_RULES_F',
2367: END IF;
2368: END LOOP;
2369: END IF;
2370:
2371: hr_utility.set_location(l_proc, 240);
2372: UPDATE hr_h2pi_assignments asg
2373: SET status = 'C'
2374: WHERE asg.assignment_id = v_ud_asg.assignment_id
2375: AND asg.client_id = p_from_client_id
2376: AND asg.effective_start_date = v_ud_asg.effective_start_date
2377: AND asg.effective_end_date = v_ud_asg.effective_end_date;
2378:
2379: CLOSE csr_ud_assignment;
2380: hr_utility.set_location('Leaving:'|| l_proc, 250);
2381: COMMIT;
2382:
2383: EXCEPTION
2384: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
2382:
2383: EXCEPTION
2384: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
2385: ROLLBACK;
2386: hr_utility.set_location(l_proc, 260);
2387: l_encoded_message := fnd_message.get_encoded;
2388: hr_h2pi_error.data_error
2389: (p_from_id => v_ud_asg.assignment_id,
2390: p_table_name => 'HR_H2PI_ASSIGNMENTS',
2420: l_ovn per_periods_of_service.object_version_number%TYPE;
2421: l_actual_termination_date per_periods_of_service.actual_termination_date%TYPE;
2422: l_final_process_date per_periods_of_service.final_process_date%TYPE;
2423: BEGIN
2424: hr_utility.set_location('Entering:'|| l_proc, 10);
2425:
2426: OPEN csr_ud_periods_of_service(p_period_of_service_id);
2427: FETCH csr_ud_periods_of_service INTO v_ud_pos;
2428:
2434: OPEN csr_ed_periods_of_service(l_period_of_service_id);
2435: FETCH csr_ed_periods_of_service INTO l_ovn;
2436: CLOSE csr_ed_periods_of_service;
2437:
2438: hr_utility.set_location(l_proc, 30);
2439: hr_ex_employee_api.update_term_details_emp(
2440: p_effective_date => v_ud_pos.date_start
2441: ,p_period_of_service_id => l_period_of_service_id
2442: ,p_object_version_number => l_ovn
2445: -- ,p_notified_termination_date => v_ud_pos.notified_termination_date
2446: -- ,p_projected_termination_date => v_ud_pos.projected_termination_date
2447: );
2448:
2449: hr_utility.set_location(l_proc, 40);
2450: UPDATE hr_h2pi_periods_of_service pos
2451: SET status = 'C'
2452: WHERE pos.period_of_service_id = v_ud_pos.period_of_service_id
2453: AND pos.client_id = p_from_client_id;
2452: WHERE pos.period_of_service_id = v_ud_pos.period_of_service_id
2453: AND pos.client_id = p_from_client_id;
2454:
2455: CLOSE csr_ud_periods_of_service;
2456: hr_utility.set_location('Leaving:'|| l_proc, 50);
2457: COMMIT;
2458:
2459: EXCEPTION
2460: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
2458:
2459: EXCEPTION
2460: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
2461: ROLLBACK;
2462: hr_utility.set_location(l_proc, 70);
2463: l_encoded_message := fnd_message.get_encoded;
2464: hr_h2pi_error.data_error
2465: (p_from_id => v_ud_pos.period_of_service_id,
2466: p_table_name => 'HR_H2PI_PERIODS_OF_SERVICE',
2511: l_approved_warning BOOLEAN;
2512: l_payroll_warning BOOLEAN;
2513:
2514: BEGIN
2515: hr_utility.set_location('Entering:'|| l_proc, 10);
2516:
2517: OPEN csr_ud_salary(p_pay_proposal_id);
2518: FETCH csr_ud_salary INTO v_ud_ppp;
2519:
2521: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
2522: p_from_id => v_ud_ppp.assignment_id,
2523: p_report_error => TRUE);
2524:
2525: hr_utility.set_location(l_proc, 20);
2526: l_pay_proposal_id := hr_h2pi_map.get_to_id
2527: (p_table_name => 'PER_PAY_PROPOSALS',
2528: p_from_id => v_ud_ppp.pay_proposal_id);
2529:
2529:
2530: OPEN csr_sal_ee(l_assignment_id,
2531: v_ud_ppp.change_date);
2532: FETCH csr_sal_ee INTO l_element_entry_id;
2533: hr_utility.set_location(l_proc, 25);
2534: CLOSE csr_sal_ee;
2535:
2536: IF l_pay_proposal_id = -1 THEN
2537: hr_utility.set_location(l_proc, 30);
2533: hr_utility.set_location(l_proc, 25);
2534: CLOSE csr_sal_ee;
2535:
2536: IF l_pay_proposal_id = -1 THEN
2537: hr_utility.set_location(l_proc, 30);
2538: hr_maintain_proposal_api.insert_salary_proposal(
2539: p_assignment_id => l_assignment_id
2540: ,p_business_group_id => hr_h2pi_upload.g_to_business_group_id
2541: ,p_change_date => v_ud_ppp.change_date
2571: ,p_payroll_warning => l_payroll_warning
2572: ,p_pay_proposal_id => l_pay_proposal_id
2573: );
2574:
2575: hr_utility.set_location(l_proc || ' 2. Assignment_id..' || l_assignment_id, 101);
2576: hr_utility.set_location(l_proc || ' 2. Element_Entry_ID..' || l_element_entry_ID, 102);
2577: hr_utility.set_location(l_proc || ' 2. Proposed_salary_n..' || v_ud_ppp.proposed_salary_n, 103);
2578: hr_utility.set_location(l_proc || ' 2. Change_Date..' || v_ud_ppp.change_date, 104);
2579: hr_utility.set_location(l_proc, 40);
2572: ,p_pay_proposal_id => l_pay_proposal_id
2573: );
2574:
2575: hr_utility.set_location(l_proc || ' 2. Assignment_id..' || l_assignment_id, 101);
2576: hr_utility.set_location(l_proc || ' 2. Element_Entry_ID..' || l_element_entry_ID, 102);
2577: hr_utility.set_location(l_proc || ' 2. Proposed_salary_n..' || v_ud_ppp.proposed_salary_n, 103);
2578: hr_utility.set_location(l_proc || ' 2. Change_Date..' || v_ud_ppp.change_date, 104);
2579: hr_utility.set_location(l_proc, 40);
2580: hr_h2pi_map.create_id_mapping
2573: );
2574:
2575: hr_utility.set_location(l_proc || ' 2. Assignment_id..' || l_assignment_id, 101);
2576: hr_utility.set_location(l_proc || ' 2. Element_Entry_ID..' || l_element_entry_ID, 102);
2577: hr_utility.set_location(l_proc || ' 2. Proposed_salary_n..' || v_ud_ppp.proposed_salary_n, 103);
2578: hr_utility.set_location(l_proc || ' 2. Change_Date..' || v_ud_ppp.change_date, 104);
2579: hr_utility.set_location(l_proc, 40);
2580: hr_h2pi_map.create_id_mapping
2581: (p_table_name => 'PER_PAY_PROPOSALS',
2574:
2575: hr_utility.set_location(l_proc || ' 2. Assignment_id..' || l_assignment_id, 101);
2576: hr_utility.set_location(l_proc || ' 2. Element_Entry_ID..' || l_element_entry_ID, 102);
2577: hr_utility.set_location(l_proc || ' 2. Proposed_salary_n..' || v_ud_ppp.proposed_salary_n, 103);
2578: hr_utility.set_location(l_proc || ' 2. Change_Date..' || v_ud_ppp.change_date, 104);
2579: hr_utility.set_location(l_proc, 40);
2580: hr_h2pi_map.create_id_mapping
2581: (p_table_name => 'PER_PAY_PROPOSALS',
2582: p_from_id => v_ud_ppp.pay_proposal_id,
2575: hr_utility.set_location(l_proc || ' 2. Assignment_id..' || l_assignment_id, 101);
2576: hr_utility.set_location(l_proc || ' 2. Element_Entry_ID..' || l_element_entry_ID, 102);
2577: hr_utility.set_location(l_proc || ' 2. Proposed_salary_n..' || v_ud_ppp.proposed_salary_n, 103);
2578: hr_utility.set_location(l_proc || ' 2. Change_Date..' || v_ud_ppp.change_date, 104);
2579: hr_utility.set_location(l_proc, 40);
2580: hr_h2pi_map.create_id_mapping
2581: (p_table_name => 'PER_PAY_PROPOSALS',
2582: p_from_id => v_ud_ppp.pay_proposal_id,
2583: p_to_id => l_pay_proposal_id);
2582: p_from_id => v_ud_ppp.pay_proposal_id,
2583: p_to_id => l_pay_proposal_id);
2584:
2585: ELSE
2586: hr_utility.set_location(l_proc, 50);
2587: OPEN csr_ed_salary(l_pay_proposal_id);
2588: FETCH csr_ed_salary INTO l_ovn;
2589: IF csr_ed_salary%NOTFOUND THEN
2590: hr_utility.set_location(l_proc, 60);
2586: hr_utility.set_location(l_proc, 50);
2587: OPEN csr_ed_salary(l_pay_proposal_id);
2588: FETCH csr_ed_salary INTO l_ovn;
2589: IF csr_ed_salary%NOTFOUND THEN
2590: hr_utility.set_location(l_proc, 60);
2591: CLOSE csr_ed_salary;
2592: ROLLBACK;
2593: hr_utility.set_location(l_proc, 70);
2594: hr_h2pi_error.data_error
2589: IF csr_ed_salary%NOTFOUND THEN
2590: hr_utility.set_location(l_proc, 60);
2591: CLOSE csr_ed_salary;
2592: ROLLBACK;
2593: hr_utility.set_location(l_proc, 70);
2594: hr_h2pi_error.data_error
2595: (p_from_id => l_pay_proposal_id,
2596: p_table_name => 'HR_H2PI_SALARIES',
2597: p_message_level => 'FATAL',
2601: ELSE
2602: CLOSE csr_ed_salary;
2603: END IF;
2604:
2605: hr_utility.set_location(l_proc, 80);
2606: hr_maintain_proposal_api.update_salary_proposal(
2607: p_pay_proposal_id => l_pay_proposal_id
2608: ,p_object_version_number => l_ovn
2609: ,p_change_date => v_ud_ppp.change_date
2636: ,p_payroll_warning => l_payroll_warning
2637: );
2638: END IF;
2639:
2640: hr_utility.set_location(l_proc, 90);
2641: UPDATE hr_h2pi_salaries ppp
2642: SET status = 'C'
2643: WHERE ppp.pay_proposal_id = v_ud_ppp.pay_proposal_id
2644: AND ppp.client_id = p_from_client_id;
2643: WHERE ppp.pay_proposal_id = v_ud_ppp.pay_proposal_id
2644: AND ppp.client_id = p_from_client_id;
2645: CLOSE csr_ud_salary;
2646:
2647: hr_utility.set_location('Leaving:'|| l_proc, 100);
2648: COMMIT;
2649:
2650: EXCEPTION
2651: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
2649:
2650: EXCEPTION
2651: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
2652: ROLLBACK;
2653: hr_utility.set_location(l_proc, 110);
2654: l_encoded_message := fnd_message.get_encoded;
2655: hr_h2pi_error.data_error
2656: (p_from_id => v_ud_ppp.pay_proposal_id,
2657: p_table_name => 'HR_H2PI_SALARIES',
2728: l_payee_type pay_personal_payment_methods_f.payee_type%TYPE;
2729: --
2730:
2731: BEGIN
2732: hr_utility.set_location('Entering:'|| l_proc, 10);
2733:
2734: OPEN csr_ud_payment_method(p_personal_payment_method_id,
2735: p_effective_start_date);
2736: FETCH csr_ud_payment_method INTO v_ud_ppm;
2736: FETCH csr_ud_payment_method INTO v_ud_ppm;
2737:
2738: IF v_ud_ppm.last_upd_date = g_eot THEN
2739:
2740: hr_utility.set_location(l_proc, 20);
2741: l_personal_pay_method_id := hr_h2pi_map.get_to_id
2742: (p_table_name => 'PAY_PERSONAL_PAYMENT_METHODS_F',
2743: p_from_id => v_ud_ppm.personal_payment_method_id,
2744: p_report_error => TRUE);
2742: (p_table_name => 'PAY_PERSONAL_PAYMENT_METHODS_F',
2743: p_from_id => v_ud_ppm.personal_payment_method_id,
2744: p_report_error => TRUE);
2745:
2746: hr_utility.set_location(l_proc, 30);
2747: OPEN csr_ed_payment_method_ovn(l_personal_pay_method_id,
2748: v_ud_ppm.effective_start_date);
2749: FETCH csr_ed_payment_method_ovn
2750: INTO l_ovn;
2765: CLOSE csr_ed_payment_method_ovn;
2766:
2767: ELSE
2768:
2769: hr_utility.set_location(l_proc, 70);
2770: l_assignment_id := hr_h2pi_map.get_to_id
2771: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
2772: p_from_id => v_ud_ppm.assignment_id,
2773: p_report_error => TRUE);
2782: p_from_id => v_ud_ppm.personal_payment_method_id);
2783:
2784: --
2785: IF v_ud_ppm.payee_type = 'O' THEN
2786: hr_utility.set_location(l_proc, 71);
2787: l_payee_type := v_ud_ppm.payee_type;
2788: l_payee_id := hr_h2pi_map.get_to_id
2789: (p_table_name => 'HR_ALL_ORGANIZATION_UNITS',
2790: p_from_id => v_ud_ppm.payee_id);
2789: (p_table_name => 'HR_ALL_ORGANIZATION_UNITS',
2790: p_from_id => v_ud_ppm.payee_id);
2791:
2792: ELSIF v_ud_ppm.payee_type = 'P' THEN
2793: hr_utility.set_location(l_proc, 72);
2794: l_payee_type := null;
2795: l_payee_id := null;
2796: hr_h2pi_error.data_error
2797: (p_from_id => v_ud_ppm.payee_id,
2804: END IF;
2805: --
2806:
2807: IF l_personal_pay_method_id = -1 THEN
2808: hr_utility.set_location(l_proc, 80);
2809: hr_personal_pay_method_api.create_personal_pay_method(
2810: p_effective_date => v_ud_ppm.effective_start_date
2811: ,p_assignment_id => l_assignment_id
2812: ,p_org_payment_method_id => l_org_pay_method_id
2876: ,p_effective_end_date => l_eed
2877: ,p_comment_id => l_comment_id
2878: );
2879:
2880: hr_utility.set_location(l_proc, 90);
2881: hr_h2pi_map.create_id_mapping
2882: (p_table_name => 'PAY_PERSONAL_PAYMENT_METHODS_F',
2883: p_from_id => v_ud_ppm.personal_payment_method_id,
2884: p_to_id => l_personal_pay_method_id);
2884: p_to_id => l_personal_pay_method_id);
2885: ELSE
2886:
2887: BEGIN
2888: hr_utility.set_location(l_proc, 100);
2889: OPEN csr_ed_payment_method(l_personal_pay_method_id,
2890: v_ud_ppm.effective_start_date);
2891: FETCH csr_ed_payment_method
2892: INTO v_ed_ppm;
2890: v_ud_ppm.effective_start_date);
2891: FETCH csr_ed_payment_method
2892: INTO v_ed_ppm;
2893: IF csr_ed_payment_method%NOTFOUND THEN
2894: hr_utility.set_location(l_proc, 110);
2895: CLOSE csr_ed_payment_method;
2896: ROLLBACK;
2897: hr_utility.set_location(l_proc, 120);
2898: hr_h2pi_error.data_error
2893: IF csr_ed_payment_method%NOTFOUND THEN
2894: hr_utility.set_location(l_proc, 110);
2895: CLOSE csr_ed_payment_method;
2896: ROLLBACK;
2897: hr_utility.set_location(l_proc, 120);
2898: hr_h2pi_error.data_error
2899: (p_from_id => l_personal_pay_method_id,
2900: p_table_name => 'HR_H2PI_PAYMENT_METHODS',
2901: p_message_level => 'FATAL',
2914: END;
2915:
2916: l_delete_mode := 'DELETE_NEXT_CHANGE';
2917: LOOP
2918: hr_utility.set_location(l_proc, 120);
2919: l_records_same := FALSE;
2920:
2921: SELECT MAX(ppm.effective_end_date)
2922: INTO l_max_eed
2923: FROM pay_personal_payment_methods_f ppm
2924: WHERE ppm.personal_payment_method_id = l_personal_pay_method_id;
2925:
2926: IF l_max_eed > v_ed_ppm.effective_end_date THEN
2927: hr_utility.set_location(l_proc, 130);
2928: l_future_records := TRUE;
2929: ELSE
2930: hr_utility.set_location(l_proc, 135);
2931: l_future_records := FALSE;
2926: IF l_max_eed > v_ed_ppm.effective_end_date THEN
2927: hr_utility.set_location(l_proc, 130);
2928: l_future_records := TRUE;
2929: ELSE
2930: hr_utility.set_location(l_proc, 135);
2931: l_future_records := FALSE;
2932: END IF;
2933:
2934: calculate_datetrack_mode
2944: EXIT WHEN l_delete_mode = 'X';
2945:
2946: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
2947:
2948: hr_utility.set_location(l_proc, 140);
2949: hr_personal_pay_method_api.delete_personal_pay_method(
2950: p_effective_date => v_ud_ppm.effective_start_date
2951: ,p_datetrack_delete_mode => l_delete_mode
2952: ,p_personal_payment_method_id => l_personal_pay_method_id
2954: ,p_effective_start_date => l_esd
2955: ,p_effective_end_date => l_eed
2956: );
2957:
2958: hr_utility.set_location(l_proc, 150);
2959: OPEN csr_ed_payment_method(l_personal_pay_method_id,
2960: v_ud_ppm.effective_start_date);
2961: FETCH csr_ed_payment_method
2962: INTO v_ed_ppm;
3034:
3035: END IF;
3036: END IF;
3037:
3038: hr_utility.set_location(l_proc, 200);
3039: UPDATE hr_h2pi_payment_methods ppm
3040: SET status = 'C'
3041: WHERE ppm.personal_payment_method_id = v_ud_ppm.personal_payment_method_id
3042: AND ppm.client_id = p_from_client_id
3043: AND ppm.effective_start_date = v_ud_ppm.effective_start_date
3044: AND ppm.effective_end_date = v_ud_ppm.effective_end_date;
3045:
3046: CLOSE csr_ud_payment_method;
3047: hr_utility.set_location('Leaving:'|| l_proc, 210);
3048: COMMIT;
3049:
3050: EXCEPTION
3051: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
3049:
3050: EXCEPTION
3051: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
3052: ROLLBACK;
3053: hr_utility.set_location(l_proc, 230);
3054: l_encoded_message := fnd_message.get_encoded;
3055: hr_h2pi_error.data_error
3056: (p_from_id => v_ud_ppm.personal_payment_method_id,
3057: p_table_name => 'HR_H2PI_PAYMENT_METHODS',
3118: l_delete_mode VARCHAR2(30);
3119:
3120:
3121: BEGIN
3122: hr_utility.set_location('Entering:'|| l_proc, 10);
3123:
3124: OPEN csr_ud_cost_allocation(p_cost_allocation_id,
3125: p_effective_start_date);
3126: FETCH csr_ud_cost_allocation INTO v_ud_hca;
3126: FETCH csr_ud_cost_allocation INTO v_ud_hca;
3127:
3128: IF v_ud_hca.last_upd_date = g_eot THEN
3129:
3130: hr_utility.set_location(l_proc, 20);
3131: l_cost_allocation_id := hr_h2pi_map.get_to_id
3132: (p_table_name => 'PAY_COST_ALLOCATIONS_F',
3133: p_from_id => v_ud_hca.cost_allocation_id,
3134: p_report_error => TRUE);
3132: (p_table_name => 'PAY_COST_ALLOCATIONS_F',
3133: p_from_id => v_ud_hca.cost_allocation_id,
3134: p_report_error => TRUE);
3135:
3136: hr_utility.set_location(l_proc, 30);
3137: OPEN csr_ed_cost_allocation_ovn(l_cost_allocation_id,
3138: v_ud_hca.effective_start_date);
3139: FETCH csr_ed_cost_allocation_ovn
3140: INTO l_ovn;
3155:
3156: CLOSE csr_ed_cost_allocation_ovn;
3157: ELSE
3158:
3159: hr_utility.set_location(l_proc, 40);
3160: l_assignment_id := hr_h2pi_map.get_to_id
3161: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
3162: p_from_id => v_ud_hca.assignment_id,
3163: p_report_error => TRUE);
3166: (p_table_name => 'PAY_COST_ALLOCATIONS_F',
3167: p_from_id => v_ud_hca.cost_allocation_id);
3168:
3169: IF l_cost_allocation_id = -1 THEN
3170: hr_utility.set_location(l_proc, 50);
3171: pay_cost_allocation_api.create_cost_allocation(
3172: p_effective_date => v_ud_hca.effective_start_date
3173: ,p_assignment_id => l_assignment_id
3174: ,p_proportion => v_ud_hca.proportion
3210: ,p_effective_end_date => l_eed
3211: ,p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
3212: ,p_object_version_number => l_ovn );
3213:
3214: hr_utility.set_location(l_proc, 60);
3215: hr_h2pi_map.create_id_mapping
3216: (p_table_name => 'PAY_COST_ALLOCATIONS_F',
3217: p_from_id => v_ud_hca.cost_allocation_id,
3218: p_to_id => l_cost_allocation_id);
3218: p_to_id => l_cost_allocation_id);
3219: ELSE
3220:
3221: BEGIN
3222: hr_utility.set_location(l_proc, 70);
3223: OPEN csr_ed_cost_allocation(l_cost_allocation_id,
3224: v_ud_hca.effective_start_date);
3225: FETCH csr_ed_cost_allocation
3226: INTO v_ed_hca;
3224: v_ud_hca.effective_start_date);
3225: FETCH csr_ed_cost_allocation
3226: INTO v_ed_hca;
3227: IF csr_ed_cost_allocation%NOTFOUND THEN
3228: hr_utility.set_location(l_proc, 80);
3229: CLOSE csr_ed_cost_allocation;
3230: ROLLBACK;
3231: hr_utility.set_location(l_proc, 90);
3232: hr_h2pi_error.data_error
3227: IF csr_ed_cost_allocation%NOTFOUND THEN
3228: hr_utility.set_location(l_proc, 80);
3229: CLOSE csr_ed_cost_allocation;
3230: ROLLBACK;
3231: hr_utility.set_location(l_proc, 90);
3232: hr_h2pi_error.data_error
3233: (p_from_id => l_cost_allocation_id,
3234: p_table_name => 'HR_H2PI_COST_ALLOCATIONS',
3235: p_message_level => 'FATAL',
3248: END;
3249:
3250: l_delete_mode := 'DELETE_NEXT_CHANGE';
3251: LOOP
3252: hr_utility.set_location(l_proc, 100);
3253: l_records_same := FALSE;
3254:
3255: SELECT MAX(caf.effective_end_date)
3256: INTO l_max_eed
3257: FROM pay_cost_allocations_f caf
3258: WHERE caf.cost_allocation_id = l_cost_allocation_id;
3259:
3260: IF l_max_eed > v_ed_hca.effective_end_date THEN
3261: hr_utility.set_location(l_proc, 110);
3262: l_future_records := TRUE;
3263: ELSE
3264: hr_utility.set_location(l_proc, 120);
3265: l_future_records := FALSE;
3260: IF l_max_eed > v_ed_hca.effective_end_date THEN
3261: hr_utility.set_location(l_proc, 110);
3262: l_future_records := TRUE;
3263: ELSE
3264: hr_utility.set_location(l_proc, 120);
3265: l_future_records := FALSE;
3266: END IF;
3267:
3268: calculate_datetrack_mode
3275: ,p_update_mode => l_update_mode
3276: ,p_delete_mode => l_delete_mode);
3277:
3278: EXIT WHEN l_delete_mode = 'X';
3279: hr_utility.set_location(l_proc, 130);
3280:
3281: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
3282:
3283: hr_utility.set_location(l_proc, 140);
3279: hr_utility.set_location(l_proc, 130);
3280:
3281: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
3282:
3283: hr_utility.set_location(l_proc, 140);
3284: pay_cost_allocation_api.delete_cost_allocation(
3285: p_effective_date => v_ud_hca.effective_start_date
3286: ,p_datetrack_delete_mode => l_delete_mode
3287: ,p_cost_allocation_id => l_cost_allocation_id
3288: ,p_object_version_number => l_ovn
3289: ,p_effective_start_date => l_esd
3290: ,p_effective_end_date => l_eed );
3291:
3292: hr_utility.set_location(l_proc, 150);
3293: OPEN csr_ed_cost_allocation(l_cost_allocation_id,
3294: v_ud_hca.effective_start_date);
3295: FETCH csr_ed_cost_allocation
3296: INTO v_ed_hca;
3299: END IF;
3300:
3301: END LOOP;
3302:
3303: hr_utility.set_location(l_proc, 160);
3304: pay_cost_allocation_api.update_cost_allocation(
3305: p_effective_date => v_ud_hca.effective_start_date
3306: ,p_datetrack_update_mode => l_update_mode
3307: ,p_cost_allocation_id => l_cost_allocation_id
3345:
3346: END IF;
3347: END IF;
3348:
3349: hr_utility.set_location(l_proc, 170);
3350: UPDATE hr_h2pi_cost_allocations hca
3351: SET status = 'C'
3352: WHERE hca.cost_allocation_id = v_ud_hca.cost_allocation_id
3353: AND hca.client_id = p_from_client_id
3354: AND hca.effective_start_date = v_ud_hca.effective_start_date
3355: AND hca.effective_end_date = v_ud_hca.effective_end_date;
3356:
3357: CLOSE csr_ud_cost_allocation;
3358: hr_utility.set_location('Leaving:'|| l_proc, 180);
3359: COMMIT;
3360:
3361: EXCEPTION
3362: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
3360:
3361: EXCEPTION
3362: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
3363: ROLLBACK;
3364: hr_utility.set_location(l_proc, 190);
3365: l_encoded_message := fnd_message.get_encoded;
3366: hr_h2pi_error.data_error
3367: (p_from_id => v_ud_hca.cost_allocation_id,
3368: p_table_name => 'HR_H2PI_COST_ALLOCATIONS',
3456: l_update_warning BOOLEAN;
3457: l_ee_personal_pay_method_id pay_element_entries_f.personal_payment_method_id%TYPE;
3458:
3459: BEGIN
3460: hr_utility.set_location('Entering:'|| l_proc, 10);
3461:
3462: OPEN csr_ud_element_entry(p_element_entry_id,
3463: p_effective_start_date);
3464: FETCH csr_ud_element_entry INTO v_ud_ele;
3464: FETCH csr_ud_element_entry INTO v_ud_ele;
3465:
3466: IF v_ud_ele.last_upd_date = g_eot THEN
3467:
3468: hr_utility.set_location(l_proc, 20);
3469: l_element_entry_id := hr_h2pi_map.get_to_id
3470: (p_table_name => 'PAY_ELEMENT_ENTRIES_F',
3471: p_from_id => v_ud_ele.element_entry_id,
3472: p_report_error => TRUE);
3470: (p_table_name => 'PAY_ELEMENT_ENTRIES_F',
3471: p_from_id => v_ud_ele.element_entry_id,
3472: p_report_error => TRUE);
3473:
3474: hr_utility.set_location(l_proc, 30);
3475: OPEN csr_ed_element_entry_ovn(l_element_entry_id,
3476: v_ud_ele.effective_start_date);
3477: FETCH csr_ed_element_entry_ovn
3478: INTO l_ovn;
3511: AND effective_end_date;
3512: EXCEPTION
3513: WHEN NO_DATA_FOUND THEN
3514: ROLLBACK;
3515: hr_utility.set_location(l_proc, 35);
3516: hr_h2pi_error.data_error
3517: (p_from_id => a_input_value_id(l_index),
3518: p_table_name => 'HR_H2PI_ELEMENT_ENTRY_VALUES',
3519: p_message_level => 'FATAL',
3530: END IF;
3531: l_index := l_index + 1;
3532: END LOOP;
3533:
3534: hr_utility.set_location(l_proc, 40);
3535: l_assignment_id := hr_h2pi_map.get_to_id
3536: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
3537: p_from_id => v_ud_ele.assignment_id,
3538: p_report_error => TRUE);
3553: IF l_ee_personal_pay_method_id = -1 THEN
3554: l_ee_personal_pay_method_id := NULL;
3555: END IF;
3556:
3557: hr_utility.set_location('l_ee_personal_pay_method_id = '||
3558: to_char(l_ee_personal_pay_method_id),1010);
3559:
3560: hr_utility.set_location('Getting cost_allocation_keyflex 1',1011);
3561:
3556:
3557: hr_utility.set_location('l_ee_personal_pay_method_id = '||
3558: to_char(l_ee_personal_pay_method_id),1010);
3559:
3560: hr_utility.set_location('Getting cost_allocation_keyflex 1',1011);
3561:
3562: -- Get id_flex_num using function
3563: l_id_flex_num := get_costing_id_flex_num;
3564:
3566: (p_table_name => 'COST_ALLOCATION_KEYFLEX',
3567: p_from_id => v_ud_ele.id_flex_num);
3568: */
3569:
3570: hr_utility.set_location('cost_allocation_keyflex 1' || l_id_flex_num, 1020);
3571:
3572: IF l_element_entry_id = -1 THEN
3573: hr_utility.set_location(l_proc, 50);
3574: l_element_link_id := hr_h2pi_map.get_to_id
3569:
3570: hr_utility.set_location('cost_allocation_keyflex 1' || l_id_flex_num, 1020);
3571:
3572: IF l_element_entry_id = -1 THEN
3573: hr_utility.set_location(l_proc, 50);
3574: l_element_link_id := hr_h2pi_map.get_to_id
3575: (p_table_name => 'PAY_ELEMENT_LINKS_F',
3576: p_from_id => v_ud_ele.element_link_id,
3577: p_report_error => TRUE);
3682: ,p_object_version_number => l_ovn
3683: ,p_create_warning => l_create_warning
3684: );
3685:
3686: hr_utility.set_location(l_proc, 60);
3687: hr_h2pi_map.create_id_mapping
3688: (p_table_name => 'PAY_ELEMENT_ENTRIES_F',
3689: p_from_id => v_ud_ele.element_entry_id,
3690: p_to_id => l_element_entry_id);
3691:
3692: ELSE
3693:
3694: BEGIN
3695: hr_utility.set_location(l_proc, 70);
3696: OPEN csr_ed_element_entry(l_element_entry_id,
3697: v_ud_ele.effective_start_date);
3698: FETCH csr_ed_element_entry
3699: INTO v_ed_ele;
3697: v_ud_ele.effective_start_date);
3698: FETCH csr_ed_element_entry
3699: INTO v_ed_ele;
3700: IF csr_ed_element_entry%NOTFOUND THEN
3701: hr_utility.set_location(l_proc, 80);
3702: CLOSE csr_ed_element_entry;
3703: ROLLBACK;
3704: hr_utility.set_location(l_proc, 90);
3705: hr_h2pi_error.data_error
3700: IF csr_ed_element_entry%NOTFOUND THEN
3701: hr_utility.set_location(l_proc, 80);
3702: CLOSE csr_ed_element_entry;
3703: ROLLBACK;
3704: hr_utility.set_location(l_proc, 90);
3705: hr_h2pi_error.data_error
3706: (p_from_id => l_element_entry_id,
3707: p_table_name => 'HR_H2PI_ELEMENT_ENTRIES',
3708: p_message_level => 'FATAL',
3721: END;
3722:
3723: l_delete_mode := 'DELETE_NEXT_CHANGE';
3724: LOOP
3725: hr_utility.set_location(l_proc, 100);
3726: l_records_same := FALSE;
3727:
3728: SELECT MAX(ele.effective_end_date)
3729: INTO l_max_eed
3730: FROM pay_element_entries_f ele
3731: WHERE ele.element_entry_id = l_element_entry_id;
3732:
3733: IF l_max_eed > v_ed_ele.effective_end_date THEN
3734: hr_utility.set_location(l_proc, 110);
3735: l_future_records := TRUE;
3736: ELSE
3737: hr_utility.set_location(l_proc, 120);
3738: l_future_records := FALSE;
3733: IF l_max_eed > v_ed_ele.effective_end_date THEN
3734: hr_utility.set_location(l_proc, 110);
3735: l_future_records := TRUE;
3736: ELSE
3737: hr_utility.set_location(l_proc, 120);
3738: l_future_records := FALSE;
3739: END IF;
3740:
3741: calculate_datetrack_mode
3748: ,p_update_mode => l_update_mode
3749: ,p_delete_mode => l_delete_mode);
3750:
3751: EXIT WHEN l_delete_mode = 'X';
3752: hr_utility.set_location(l_proc, 130);
3753:
3754: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
3755:
3756: hr_utility.set_location(l_proc, 140);
3752: hr_utility.set_location(l_proc, 130);
3753:
3754: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
3755:
3756: hr_utility.set_location(l_proc, 140);
3757: py_element_entry_api.delete_element_entry(
3758: p_effective_date => v_ud_ele.effective_start_date
3759: ,p_datetrack_delete_mode => l_delete_mode
3760: ,p_element_entry_id => l_element_entry_id
3763: ,p_effective_end_date => l_eed
3764: ,p_delete_warning => l_delete_warning
3765: );
3766:
3767: hr_utility.set_location(l_proc, 150);
3768: OPEN csr_ed_element_entry(l_element_entry_id,
3769: v_ud_ele.effective_start_date);
3770: FETCH csr_ed_element_entry
3771: INTO v_ed_ele;
3774: END IF;
3775:
3776: END LOOP;
3777:
3778: hr_utility.set_location(l_proc, 160);
3779: l_cost_allocation_keyflex_id := hr_entry.maintain_cost_keyflex(
3780: p_cost_keyflex_structure => l_id_flex_num
3781: ,p_cost_allocation_keyflex_id => -1
3782: ,p_concatenated_segments => v_ud_ele.concatenated_segments
3884:
3885: END IF;
3886: END IF;
3887:
3888: hr_utility.set_location(l_proc, 170);
3889: UPDATE hr_h2pi_element_entries ele
3890: SET status = 'C'
3891: WHERE ele.element_entry_id = v_ud_ele.element_entry_id
3892: AND ele.client_id = p_from_client_id
3900: AND eev.effective_start_date = v_ud_ele.effective_start_date
3901: AND eev.effective_end_date = v_ud_ele.effective_end_date;
3902:
3903: CLOSE csr_ud_element_entry;
3904: hr_utility.set_location('Leaving:'|| l_proc, 180);
3905: COMMIT;
3906:
3907: EXCEPTION
3908: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
3906:
3907: EXCEPTION
3908: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
3909: ROLLBACK;
3910: hr_utility.set_location(l_proc, 190);
3911: l_encoded_message := fnd_message.get_encoded;
3912: hr_h2pi_error.data_error
3913: (p_from_id => v_ud_ele.element_entry_id,
3914: p_table_name => 'HR_H2PI_ELEMENT_ENTRIES',
3974: l_update_mode VARCHAR2(30);
3975: l_delete_mode VARCHAR2(30);
3976:
3977: BEGIN
3978: hr_utility.set_location('Entering:'|| l_proc, 10);
3979:
3980: OPEN csr_ud_federal_tax_rule(p_emp_fed_tax_rule_id,
3981: p_effective_start_date);
3982: FETCH csr_ud_federal_tax_rule INTO v_ud_fed;
3980: OPEN csr_ud_federal_tax_rule(p_emp_fed_tax_rule_id,
3981: p_effective_start_date);
3982: FETCH csr_ud_federal_tax_rule INTO v_ud_fed;
3983:
3984: hr_utility.set_location(l_proc, 40);
3985: l_emp_fed_tax_rule_id := hr_h2pi_map.get_to_id
3986: (p_table_name => 'PAY_US_EMP_FED_TAX_RULES_F',
3987: p_from_id => v_ud_fed.emp_fed_tax_rule_id,
3988: p_report_error => TRUE);
3988: p_report_error => TRUE);
3989:
3990:
3991: BEGIN
3992: hr_utility.set_location(l_proc, 70);
3993: OPEN csr_ed_federal_tax_rule(l_emp_fed_tax_rule_id,
3994: v_ud_fed.effective_start_date);
3995: FETCH csr_ed_federal_tax_rule
3996: INTO v_ed_fed;
3994: v_ud_fed.effective_start_date);
3995: FETCH csr_ed_federal_tax_rule
3996: INTO v_ed_fed;
3997: IF csr_ed_federal_tax_rule%NOTFOUND THEN
3998: hr_utility.set_location(l_proc, 80);
3999: CLOSE csr_ed_federal_tax_rule;
4000: ROLLBACK;
4001: hr_utility.set_location(l_proc, 90);
4002: hr_h2pi_error.data_error
3997: IF csr_ed_federal_tax_rule%NOTFOUND THEN
3998: hr_utility.set_location(l_proc, 80);
3999: CLOSE csr_ed_federal_tax_rule;
4000: ROLLBACK;
4001: hr_utility.set_location(l_proc, 90);
4002: hr_h2pi_error.data_error
4003: (p_from_id => l_emp_fed_tax_rule_id,
4004: p_table_name => 'HR_H2PI_FEDERAL_TAX_RULES',
4005: p_message_level => 'FATAL',
4018: END;
4019:
4020: l_delete_mode := 'DELETE_NEXT_CHANGE';
4021: LOOP
4022: hr_utility.set_location(l_proc, 100);
4023: l_records_same := FALSE;
4024:
4025: SELECT MAX(fed.effective_end_date)
4026: INTO l_max_eed
4027: FROM pay_us_emp_fed_tax_rules_f fed
4028: WHERE fed.emp_fed_tax_rule_id = l_emp_fed_tax_rule_id;
4029:
4030: IF l_max_eed > v_ed_fed.effective_end_date THEN
4031: hr_utility.set_location(l_proc, 110);
4032: l_future_records := TRUE;
4033: ELSE
4034: hr_utility.set_location(l_proc, 120);
4035: l_future_records := FALSE;
4030: IF l_max_eed > v_ed_fed.effective_end_date THEN
4031: hr_utility.set_location(l_proc, 110);
4032: l_future_records := TRUE;
4033: ELSE
4034: hr_utility.set_location(l_proc, 120);
4035: l_future_records := FALSE;
4036: END IF;
4037:
4038: calculate_datetrack_mode
4045: ,p_update_mode => l_update_mode
4046: ,p_delete_mode => l_delete_mode);
4047:
4048: EXIT WHEN l_delete_mode = 'X';
4049: hr_utility.set_location(l_proc, 130);
4050:
4051: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4052:
4053: hr_utility.set_location(l_proc, 140);
4049: hr_utility.set_location(l_proc, 130);
4050:
4051: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4052:
4053: hr_utility.set_location(l_proc, 140);
4054: pay_federal_tax_rule_api.update_fed_tax_rule(
4055: p_effective_date => v_ud_fed.effective_start_date
4056: ,p_datetrack_update_mode => 'UPDATE_OVERRIDE'
4057: ,p_emp_fed_tax_rule_id => l_emp_fed_tax_rule_id
4086: ,p_effective_end_date => l_eed
4087: ,p_delete_routine => NULL
4088: );
4089: */
4090: hr_utility.set_location(l_proc, 150);
4091: OPEN csr_ed_federal_tax_rule(l_emp_fed_tax_rule_id,
4092: v_ud_fed.effective_start_date);
4093: FETCH csr_ed_federal_tax_rule
4094: INTO v_ed_fed;
4097: END IF;
4098:
4099: END LOOP;
4100:
4101: hr_utility.set_location(l_proc, 160);
4102: pay_federal_tax_rule_api.update_fed_tax_rule(
4103: p_effective_date => v_ud_fed.effective_start_date
4104: ,p_datetrack_update_mode => l_update_mode
4105: ,p_emp_fed_tax_rule_id => l_emp_fed_tax_rule_id
4124: ,p_effective_start_date => l_esd
4125: ,p_effective_end_date => l_eed
4126: );
4127:
4128: hr_utility.set_location(l_proc, 170);
4129: UPDATE hr_h2pi_federal_tax_rules fed
4130: SET status = 'C'
4131: WHERE fed.emp_fed_tax_rule_id = v_ud_fed.emp_fed_tax_rule_id
4132: AND fed.client_id = p_from_client_id
4133: AND fed.effective_start_date = v_ud_fed.effective_start_date
4134: AND fed.effective_end_date = v_ud_fed.effective_end_date;
4135:
4136: CLOSE csr_ud_federal_tax_rule;
4137: hr_utility.set_location('Leaving:'|| l_proc, 180);
4138: COMMIT;
4139:
4140: EXCEPTION
4141: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4139:
4140: EXCEPTION
4141: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4142: ROLLBACK;
4143: hr_utility.set_location(l_proc, 190);
4144: l_encoded_message := fnd_message.get_encoded;
4145: hr_h2pi_error.data_error
4146: (p_from_id => v_ud_fed.emp_fed_tax_rule_id,
4147: p_table_name => 'HR_H2PI_FEDERAL_TAX_RULES',
4209: l_update_mode VARCHAR2(30);
4210: l_delete_mode VARCHAR2(30);
4211:
4212: BEGIN
4213: hr_utility.set_location('Entering:'|| l_proc, 10);
4214:
4215: OPEN csr_ud_state_tax_rule(p_emp_state_tax_rule_id,
4216: p_effective_start_date);
4217: FETCH csr_ud_state_tax_rule INTO v_ud_sta;
4215: OPEN csr_ud_state_tax_rule(p_emp_state_tax_rule_id,
4216: p_effective_start_date);
4217: FETCH csr_ud_state_tax_rule INTO v_ud_sta;
4218:
4219: hr_utility.set_location(l_proc, 20);
4220: l_assignment_id := hr_h2pi_map.get_to_id
4221: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
4222: p_from_id => v_ud_sta.assignment_id,
4223: p_report_error => TRUE);
4226: (p_table_name => 'PAY_US_EMP_STATE_TAX_RULES_F',
4227: p_from_id => v_ud_sta.emp_state_tax_rule_id);
4228:
4229: IF l_emp_state_tax_rule_id = -1 THEN
4230: hr_utility.set_location(l_proc, 30);
4231:
4232: pay_state_tax_rule_api.create_state_tax_rule(
4233: p_effective_date => v_ud_sta.effective_start_date
4234: ,p_assignment_id => l_assignment_id
4256: ,p_effective_start_date => l_esd
4257: ,p_effective_end_date => l_eed
4258: );
4259:
4260: hr_utility.set_location(l_proc, 40);
4261: hr_h2pi_map.create_id_mapping
4262: (p_table_name => 'PAY_US_EMP_STATE_TAX_RULES_F',
4263: p_from_id => v_ud_sta.emp_state_tax_rule_id,
4264: p_to_id => l_emp_state_tax_rule_id);
4264: p_to_id => l_emp_state_tax_rule_id);
4265: ELSE
4266:
4267: BEGIN
4268: hr_utility.set_location(l_proc, 50);
4269: OPEN csr_ed_state_tax_rule(l_emp_state_tax_rule_id,
4270: v_ud_sta.effective_start_date);
4271: FETCH csr_ed_state_tax_rule
4272: INTO v_ed_sta;
4270: v_ud_sta.effective_start_date);
4271: FETCH csr_ed_state_tax_rule
4272: INTO v_ed_sta;
4273: IF csr_ed_state_tax_rule%NOTFOUND THEN
4274: hr_utility.set_location(l_proc, 60);
4275: CLOSE csr_ed_state_tax_rule;
4276: ROLLBACK;
4277: hr_utility.set_location(l_proc, 70);
4278: hr_h2pi_error.data_error
4273: IF csr_ed_state_tax_rule%NOTFOUND THEN
4274: hr_utility.set_location(l_proc, 60);
4275: CLOSE csr_ed_state_tax_rule;
4276: ROLLBACK;
4277: hr_utility.set_location(l_proc, 70);
4278: hr_h2pi_error.data_error
4279: (p_from_id => l_emp_state_tax_rule_id,
4280: p_table_name => 'HR_H2PI_STATE_TAX_RULES',
4281: p_message_level => 'FATAL',
4294: END;
4295:
4296: l_delete_mode := 'DELETE_NEXT_CHANGE';
4297: LOOP
4298: hr_utility.set_location(l_proc, 80);
4299: l_records_same := FALSE;
4300:
4301: SELECT MAX(sta.effective_end_date)
4302: INTO l_max_eed
4303: FROM pay_us_emp_state_tax_rules_f sta
4304: WHERE sta.emp_state_tax_rule_id = l_emp_state_tax_rule_id;
4305:
4306: IF l_max_eed > v_ed_sta.effective_end_date THEN
4307: hr_utility.set_location(l_proc, 90);
4308: l_future_records := TRUE;
4309: ELSE
4310: hr_utility.set_location(l_proc, 100);
4311: l_future_records := FALSE;
4306: IF l_max_eed > v_ed_sta.effective_end_date THEN
4307: hr_utility.set_location(l_proc, 90);
4308: l_future_records := TRUE;
4309: ELSE
4310: hr_utility.set_location(l_proc, 100);
4311: l_future_records := FALSE;
4312: END IF;
4313:
4314: calculate_datetrack_mode
4321: ,p_update_mode => l_update_mode
4322: ,p_delete_mode => l_delete_mode);
4323:
4324: EXIT WHEN l_delete_mode = 'X';
4325: hr_utility.set_location(l_proc, 110);
4326:
4327: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4328:
4329: hr_utility.set_location(l_proc, 120);
4325: hr_utility.set_location(l_proc, 110);
4326:
4327: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4328:
4329: hr_utility.set_location(l_proc, 120);
4330: pay_state_tax_rule_api.update_state_tax_rule(
4331: p_effective_date => v_ud_sta.effective_start_date
4332: ,p_datetrack_update_mode => 'UPDATE_OVERRIDE'
4333: ,p_object_version_number => l_ovn
4364: ,p_delete_routine => NULL
4365: );
4366: */
4367:
4368: hr_utility.set_location(l_proc, 130);
4369: OPEN csr_ed_state_tax_rule(l_emp_state_tax_rule_id,
4370: v_ud_sta.effective_start_date);
4371: FETCH csr_ed_state_tax_rule
4372: INTO v_ed_sta;
4375: END IF;
4376:
4377: END LOOP;
4378:
4379: hr_utility.set_location(l_proc, 140);
4380: pay_state_tax_rule_api.update_state_tax_rule(
4381: p_effective_date => v_ud_sta.effective_start_date
4382: ,p_datetrack_update_mode => l_update_mode
4383: ,p_object_version_number => l_ovn
4405: );
4406:
4407: END IF;
4408:
4409: hr_utility.set_location(l_proc, 150);
4410: UPDATE hr_h2pi_state_tax_rules sta
4411: SET status = 'C'
4412: WHERE sta.emp_state_tax_rule_id = v_ud_sta.emp_state_tax_rule_id
4413: AND sta.client_id = p_from_client_id
4414: AND sta.effective_start_date = v_ud_sta.effective_start_date
4415: AND sta.effective_end_date = v_ud_sta.effective_end_date;
4416:
4417: CLOSE csr_ud_state_tax_rule;
4418: hr_utility.set_location('Leaving:'|| l_proc, 160);
4419: COMMIT;
4420:
4421: EXCEPTION
4422: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4420:
4421: EXCEPTION
4422: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4423: ROLLBACK;
4424: hr_utility.set_location(l_proc, 170);
4425: l_encoded_message := fnd_message.get_encoded;
4426: hr_h2pi_error.data_error
4427: (p_from_id => v_ud_sta.emp_state_tax_rule_id,
4428: p_table_name => 'HR_H2PI_STATE_TAX_RULES',
4490: l_update_mode VARCHAR2(30);
4491: l_delete_mode VARCHAR2(30);
4492:
4493: BEGIN
4494: hr_utility.set_location('Entering:'|| l_proc, 10);
4495:
4496: OPEN csr_ud_county_tax_rule(p_emp_county_tax_rule_id,
4497: p_effective_start_date);
4498: FETCH csr_ud_county_tax_rule INTO v_ud_cnt;
4496: OPEN csr_ud_county_tax_rule(p_emp_county_tax_rule_id,
4497: p_effective_start_date);
4498: FETCH csr_ud_county_tax_rule INTO v_ud_cnt;
4499:
4500: hr_utility.set_location(l_proc, 20);
4501: l_assignment_id := hr_h2pi_map.get_to_id
4502: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
4503: p_from_id => v_ud_cnt.assignment_id,
4504: p_report_error => TRUE);
4507: (p_table_name => 'PAY_US_EMP_COUNTY_TAX_RULES_F',
4508: p_from_id => v_ud_cnt.emp_county_tax_rule_id);
4509:
4510: IF l_emp_county_tax_rule_id = -1 THEN
4511: hr_utility.set_location(l_proc, 30);
4512: pay_county_tax_rule_api.create_county_tax_rule(
4513: p_effective_date => v_ud_cnt.effective_start_date
4514: ,p_assignment_id => l_assignment_id
4515: ,p_state_code => v_ud_cnt.state_code
4529: ,p_effective_start_date => l_esd
4530: ,p_effective_end_date => l_eed
4531: );
4532:
4533: hr_utility.set_location(l_proc, 40);
4534: hr_h2pi_map.create_id_mapping
4535: (p_table_name => 'PAY_US_EMP_COUNTY_TAX_RULES_F',
4536: p_from_id => v_ud_cnt.emp_county_tax_rule_id,
4537: p_to_id => l_emp_county_tax_rule_id);
4537: p_to_id => l_emp_county_tax_rule_id);
4538: ELSE
4539:
4540: BEGIN
4541: hr_utility.set_location(l_proc, 50);
4542: OPEN csr_ed_county_tax_rule(l_emp_county_tax_rule_id,
4543: v_ud_cnt.effective_start_date);
4544: FETCH csr_ed_county_tax_rule
4545: INTO v_ed_cnt;
4543: v_ud_cnt.effective_start_date);
4544: FETCH csr_ed_county_tax_rule
4545: INTO v_ed_cnt;
4546: IF csr_ed_county_tax_rule%NOTFOUND THEN
4547: hr_utility.set_location(l_proc, 60);
4548: CLOSE csr_ed_county_tax_rule;
4549: ROLLBACK;
4550: hr_utility.set_location(l_proc, 70);
4551: hr_h2pi_error.data_error
4546: IF csr_ed_county_tax_rule%NOTFOUND THEN
4547: hr_utility.set_location(l_proc, 60);
4548: CLOSE csr_ed_county_tax_rule;
4549: ROLLBACK;
4550: hr_utility.set_location(l_proc, 70);
4551: hr_h2pi_error.data_error
4552: (p_from_id => l_emp_county_tax_rule_id,
4553: p_table_name => 'HR_H2PI_COUNTY_TAX_RULES',
4554: p_message_level => 'FATAL',
4567: END;
4568:
4569: l_delete_mode := 'DELETE_NEXT_CHANGE';
4570: LOOP
4571: hr_utility.set_location(l_proc, 80);
4572: l_records_same := FALSE;
4573:
4574: SELECT MAX(cnt.effective_end_date)
4575: INTO l_max_eed
4576: FROM pay_us_emp_county_tax_rules_f cnt
4577: WHERE cnt.emp_county_tax_rule_id = l_emp_county_tax_rule_id;
4578:
4579: IF l_max_eed > v_ed_cnt.effective_end_date THEN
4580: hr_utility.set_location(l_proc, 90);
4581: l_future_records := TRUE;
4582: ELSE
4583: hr_utility.set_location(l_proc, 100);
4584: l_future_records := FALSE;
4579: IF l_max_eed > v_ed_cnt.effective_end_date THEN
4580: hr_utility.set_location(l_proc, 90);
4581: l_future_records := TRUE;
4582: ELSE
4583: hr_utility.set_location(l_proc, 100);
4584: l_future_records := FALSE;
4585: END IF;
4586:
4587: calculate_datetrack_mode
4594: ,p_update_mode => l_update_mode
4595: ,p_delete_mode => l_delete_mode);
4596:
4597: EXIT WHEN l_delete_mode = 'X';
4598: hr_utility.set_location(l_proc, 110);
4599:
4600: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4601:
4602: hr_utility.set_location(l_proc, 120);
4598: hr_utility.set_location(l_proc, 110);
4599:
4600: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4601:
4602: hr_utility.set_location(l_proc, 120);
4603: pay_county_tax_rule_api.update_county_tax_rule(
4604: p_effective_date => v_ud_cnt.effective_start_date
4605: ,p_datetrack_mode => 'UPDATE_OVERRIDE'
4606: ,p_object_version_number => l_ovn
4629: ,p_delete_routine => NULL
4630: );
4631: */
4632:
4633: hr_utility.set_location(l_proc, 130);
4634: OPEN csr_ed_county_tax_rule(l_emp_county_tax_rule_id,
4635: v_ud_cnt.effective_start_date);
4636: FETCH csr_ed_county_tax_rule
4637: INTO v_ed_cnt;
4640: END IF;
4641:
4642: END LOOP;
4643:
4644: hr_utility.set_location(l_proc, 140);
4645: pay_county_tax_rule_api.update_county_tax_rule(
4646: p_effective_date => v_ud_cnt.effective_start_date
4647: ,p_datetrack_mode => l_update_mode
4648: ,p_object_version_number => l_ovn
4661: ,p_effective_end_date => l_eed
4662: );
4663: END IF;
4664:
4665: hr_utility.set_location(l_proc, 150);
4666: UPDATE hr_h2pi_county_tax_rules cnt
4667: SET status = 'C'
4668: WHERE cnt.emp_county_tax_rule_id = v_ud_cnt.emp_county_tax_rule_id
4669: AND cnt.client_id = p_from_client_id
4670: AND cnt.effective_start_date = v_ud_cnt.effective_start_date
4671: AND cnt.effective_end_date = v_ud_cnt.effective_end_date;
4672:
4673: CLOSE csr_ud_county_tax_rule;
4674: hr_utility.set_location('Leaving:'|| l_proc, 160);
4675: COMMIT;
4676:
4677: EXCEPTION
4678: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4676:
4677: EXCEPTION
4678: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4679: ROLLBACK;
4680: hr_utility.set_location(l_proc, 170);
4681: l_encoded_message := fnd_message.get_encoded;
4682: hr_h2pi_error.data_error
4683: (p_from_id => v_ud_cnt.emp_county_tax_rule_id,
4684: p_table_name => 'HR_H2PI_COUNTY_TAX_RULES',
4745: l_update_mode VARCHAR2(30);
4746: l_delete_mode VARCHAR2(30);
4747:
4748: BEGIN
4749: hr_utility.set_location('Entering:'|| l_proc, 10);
4750:
4751: OPEN csr_ud_city_tax_rule(p_emp_city_tax_rule_id,
4752: p_effective_start_date);
4753: FETCH csr_ud_city_tax_rule INTO v_ud_cty;
4751: OPEN csr_ud_city_tax_rule(p_emp_city_tax_rule_id,
4752: p_effective_start_date);
4753: FETCH csr_ud_city_tax_rule INTO v_ud_cty;
4754:
4755: hr_utility.set_location(l_proc, 20);
4756: l_assignment_id := hr_h2pi_map.get_to_id
4757: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
4758: p_from_id => v_ud_cty.assignment_id,
4759: p_report_error => TRUE);
4762: (p_table_name => 'PAY_US_EMP_CITY_TAX_RULES_F',
4763: p_from_id => v_ud_cty.emp_city_tax_rule_id);
4764:
4765: IF l_emp_city_tax_rule_id = -1 THEN
4766: hr_utility.set_location(l_proc, 30);
4767: pay_city_tax_rule_api.create_city_tax_rule(
4768: p_effective_date => v_ud_cty.effective_start_date
4769: ,p_assignment_id => l_assignment_id
4770: ,p_state_code => v_ud_cty.state_code
4785: ,p_effective_start_date => l_esd
4786: ,p_effective_end_date => l_eed
4787: );
4788:
4789: hr_utility.set_location(l_proc, 40);
4790: hr_h2pi_map.create_id_mapping
4791: (p_table_name => 'PAY_US_EMP_CITY_TAX_RULES_F',
4792: p_from_id => v_ud_cty.emp_city_tax_rule_id,
4793: p_to_id => l_emp_city_tax_rule_id);
4793: p_to_id => l_emp_city_tax_rule_id);
4794: ELSE
4795:
4796: BEGIN
4797: hr_utility.set_location(l_proc, 50);
4798: OPEN csr_ed_city_tax_rule(l_emp_city_tax_rule_id,
4799: v_ud_cty.effective_start_date);
4800: FETCH csr_ed_city_tax_rule
4801: INTO v_ed_cty;
4799: v_ud_cty.effective_start_date);
4800: FETCH csr_ed_city_tax_rule
4801: INTO v_ed_cty;
4802: IF csr_ed_city_tax_rule%NOTFOUND THEN
4803: hr_utility.set_location(l_proc, 60);
4804: CLOSE csr_ed_city_tax_rule;
4805: ROLLBACK;
4806: hr_utility.set_location(l_proc, 70);
4807: hr_h2pi_error.data_error
4802: IF csr_ed_city_tax_rule%NOTFOUND THEN
4803: hr_utility.set_location(l_proc, 60);
4804: CLOSE csr_ed_city_tax_rule;
4805: ROLLBACK;
4806: hr_utility.set_location(l_proc, 70);
4807: hr_h2pi_error.data_error
4808: (p_from_id => l_emp_city_tax_rule_id,
4809: p_table_name => 'HR_H2PI_CITY_TAX_RULES',
4810: p_message_level => 'FATAL',
4823: END;
4824:
4825: l_delete_mode := 'DELETE_NEXT_CHANGE';
4826: LOOP
4827: hr_utility.set_location(l_proc, 80);
4828: l_records_same := FALSE;
4829:
4830: SELECT MAX(sta.effective_end_date)
4831: INTO l_max_eed
4832: FROM pay_us_emp_city_tax_rules_f sta
4833: WHERE sta.emp_city_tax_rule_id = l_emp_city_tax_rule_id;
4834:
4835: IF l_max_eed > v_ed_cty.effective_end_date THEN
4836: hr_utility.set_location(l_proc, 90);
4837: l_future_records := TRUE;
4838: ELSE
4839: hr_utility.set_location(l_proc, 100);
4840: l_future_records := FALSE;
4835: IF l_max_eed > v_ed_cty.effective_end_date THEN
4836: hr_utility.set_location(l_proc, 90);
4837: l_future_records := TRUE;
4838: ELSE
4839: hr_utility.set_location(l_proc, 100);
4840: l_future_records := FALSE;
4841: END IF;
4842:
4843: calculate_datetrack_mode
4850: ,p_update_mode => l_update_mode
4851: ,p_delete_mode => l_delete_mode);
4852:
4853: EXIT WHEN l_delete_mode = 'X';
4854: hr_utility.set_location(l_proc, 110);
4855:
4856: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4857:
4858: hr_utility.set_location(l_proc, 120);
4854: hr_utility.set_location(l_proc, 110);
4855:
4856: IF l_delete_mode = 'DELETE_NEXT_CHANGE' THEN
4857:
4858: hr_utility.set_location(l_proc, 120);
4859: pay_city_tax_rule_api.update_city_tax_rule(
4860: p_effective_date => v_ud_cty.effective_start_date
4861: ,p_datetrack_mode => 'UPDATE_OVERRIDE'
4862: ,p_object_version_number => l_ovn
4883: ,p_effective_end_date => l_eed
4884: ,p_delete_routine => NULL
4885: );
4886:
4887: hr_utility.set_location(l_proc, 130);
4888: OPEN csr_ed_city_tax_rule(l_emp_city_tax_rule_id,
4889: v_ud_cty.effective_start_date);
4890: FETCH csr_ed_city_tax_rule
4891: INTO v_ed_cty;
4894: END IF;
4895:
4896: END LOOP;
4897:
4898: hr_utility.set_location(l_proc, 140);
4899: pay_city_tax_rule_api.update_city_tax_rule(
4900: p_effective_date => v_ud_cty.effective_start_date
4901: ,p_datetrack_mode => l_update_mode
4902: ,p_object_version_number => l_ovn
4915: ,p_effective_end_date => l_eed
4916: );
4917: END IF;
4918:
4919: hr_utility.set_location(l_proc, 150);
4920: UPDATE hr_h2pi_city_tax_rules sta
4921: SET status = 'C'
4922: WHERE sta.emp_city_tax_rule_id = v_ud_cty.emp_city_tax_rule_id
4923: AND sta.client_id = p_from_client_id
4924: AND sta.effective_start_date = v_ud_cty.effective_start_date
4925: AND sta.effective_end_date = v_ud_cty.effective_end_date;
4926:
4927: CLOSE csr_ud_city_tax_rule;
4928: hr_utility.set_location('Leaving:'|| l_proc, 160);
4929: COMMIT;
4930:
4931: EXCEPTION
4932: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4930:
4931: EXCEPTION
4932: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
4933: ROLLBACK;
4934: hr_utility.set_location(l_proc, 170);
4935: l_encoded_message := fnd_message.get_encoded;
4936: hr_h2pi_error.data_error
4937: (p_from_id => v_ud_cty.emp_city_tax_rule_id,
4938: p_table_name => 'HR_H2PI_CITY_TAX_RULES',
5146:
5147: l_effective_date DATE;
5148:
5149: begin
5150: hr_utility.set_location('Entering:'|| l_proc, 10);
5151: l_person_id := hr_h2pi_map.get_to_id
5152: (p_table_name => 'PER_ALL_PEOPLE_F',
5153: p_from_id => p_person_id,
5154: p_report_error => TRUE);
5154: p_report_error => TRUE);
5155:
5156: FOR v_asg IN csr_ed_assignment(l_person_id) LOOP
5157:
5158: hr_utility.set_location(l_proc, 20);
5159: l_ud_assignment_id := hr_h2pi_map.get_from_id
5160: (p_table_name => 'PER_ALL_ASSIGNMENTS_F',
5161: p_to_id => v_asg.assignment_id,
5162: p_report_error => TRUE);
5186: l_ud_assignment_id,
5187: l_input_value_id1,
5188: l_input_value_id2,
5189: v_asg.assignment_id) LOOP
5190: hr_utility.set_location(l_proc, 30);
5191: IF v_sta.pct_diff > 0 THEN
5192: hr_utility.set_location(l_proc, 40);
5193: pay_us_tax_api.correct_tax_percentage(
5194: p_assignment_id => v_asg.assignment_id
5188: l_input_value_id2,
5189: v_asg.assignment_id) LOOP
5190: hr_utility.set_location(l_proc, 30);
5191: IF v_sta.pct_diff > 0 THEN
5192: hr_utility.set_location(l_proc, 40);
5193: pay_us_tax_api.correct_tax_percentage(
5194: p_assignment_id => v_asg.assignment_id
5195: ,p_effective_date => l_effective_date
5196: ,p_state_code => v_sta.state_code
5205: l_input_value_id1,
5206: l_input_value_id2,
5207: v_asg.assignment_id,
5208: v_sta.state_code) LOOP
5209: hr_utility.set_location(l_proc, 50);
5210: IF v_cnt.pct_diff > 0 THEN
5211: hr_utility.set_location(l_proc, 60);
5212: pay_us_tax_api.correct_tax_percentage(
5213: p_assignment_id => v_asg.assignment_id
5207: v_asg.assignment_id,
5208: v_sta.state_code) LOOP
5209: hr_utility.set_location(l_proc, 50);
5210: IF v_cnt.pct_diff > 0 THEN
5211: hr_utility.set_location(l_proc, 60);
5212: pay_us_tax_api.correct_tax_percentage(
5213: p_assignment_id => v_asg.assignment_id
5214: ,p_effective_date => l_effective_date
5215: ,p_state_code => v_sta.state_code
5224: l_input_value_id1,
5225: l_input_value_id2,
5226: v_asg.assignment_id,
5227: v_sta.state_code||'-'||v_cnt.county_code) LOOP
5228: hr_utility.set_location(l_proc, 70);
5229: IF v_cty.pct_diff <> 0 THEN
5230: hr_utility.set_location(l_proc, 80);
5231: pay_us_tax_api.correct_tax_percentage(
5232: p_assignment_id => v_asg.assignment_id
5226: v_asg.assignment_id,
5227: v_sta.state_code||'-'||v_cnt.county_code) LOOP
5228: hr_utility.set_location(l_proc, 70);
5229: IF v_cty.pct_diff <> 0 THEN
5230: hr_utility.set_location(l_proc, 80);
5231: pay_us_tax_api.correct_tax_percentage(
5232: p_assignment_id => v_asg.assignment_id
5233: ,p_effective_date => l_effective_date
5234: ,p_state_code => v_sta.state_code
5237: ,p_percentage => v_cty.percentage);
5238: END IF;
5239: END LOOP;
5240:
5241: hr_utility.set_location(l_proc, 90);
5242: IF v_cnt.pct_diff < 0 THEN
5243: hr_utility.set_location(l_proc, 100);
5244: pay_us_tax_api.correct_tax_percentage(
5245: p_assignment_id => v_asg.assignment_id
5239: END LOOP;
5240:
5241: hr_utility.set_location(l_proc, 90);
5242: IF v_cnt.pct_diff < 0 THEN
5243: hr_utility.set_location(l_proc, 100);
5244: pay_us_tax_api.correct_tax_percentage(
5245: p_assignment_id => v_asg.assignment_id
5246: ,p_effective_date => l_effective_date
5247: ,p_state_code => v_sta.state_code
5251: END IF;
5252:
5253: END LOOP;
5254:
5255: hr_utility.set_location(l_proc, 110);
5256: IF v_sta.pct_diff < 0 THEN
5257: hr_utility.set_location(l_proc, 120);
5258: pay_us_tax_api.correct_tax_percentage(
5259: p_assignment_id => v_asg.assignment_id
5253: END LOOP;
5254:
5255: hr_utility.set_location(l_proc, 110);
5256: IF v_sta.pct_diff < 0 THEN
5257: hr_utility.set_location(l_proc, 120);
5258: pay_us_tax_api.correct_tax_percentage(
5259: p_assignment_id => v_asg.assignment_id
5260: ,p_effective_date => l_effective_date
5261: ,p_state_code => v_sta.state_code
5267: END LOOP;
5268:
5269: END LOOP;
5270:
5271: hr_utility.set_location(l_proc, 125);
5272: UPDATE hr_h2pi_element_entry_values eev
5273: SET eev.status = 'C'
5274: WHERE eev.element_entry_id IN (SELECT ee.element_entry_id
5275: FROM hr_h2pi_element_entries ee
5282: WHERE ee.person_id = p_person_id
5283: AND ee.creator_type = 'UT'
5284: AND ee.client_id = p_from_client_id;
5285:
5286: hr_utility.set_location('Entering:'|| l_proc, 130);
5287:
5288: EXCEPTION
5289: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
5290: ROLLBACK;
5287:
5288: EXCEPTION
5289: WHEN APP_EXCEPTIONS.APPLICATION_EXCEPTION THEN
5290: ROLLBACK;
5291: hr_utility.set_location(l_proc, 140);
5292: l_encoded_message := fnd_message.get_encoded;
5293: hr_h2pi_error.data_error
5294: (p_from_id => l_ud_assignment_id,
5295: p_table_name => 'HR_H2PI_ASSIGNMENTS',
5297: p_message_text => l_encoded_message);
5298: COMMIT;
5299: RAISE;
5300: WHEN MAPPING_ID_MISSING THEN
5301: hr_utility.set_location(l_proc, 150);
5302: RAISE PERSON_ERROR;
5303:
5304: END;
5305: