[Home] [Help]
180: l_phone_id number;
181: --
182: begin
183:
184: hr_utility.set_location('Entering:'|| l_proc, 10);
185:
186: --
187: -- Issue a savepoint
188: --
326: ,p_hook_type => 'BP'
327: );
328: end;
329: --
330: hr_utility.set_location(l_proc, 20);
331: --
332: -- Validation in addition to Row Handlers
333: --
334: -- If the specified person type id is not null then check that it
341: ,p_business_group_id => p_business_group_id
342: ,p_expected_sys_type => 'CWK'
343: );
344: --
345: hr_utility.set_location(l_proc, 30);
346: --
347: -- Initialise local variables as appropriate
348: --
349: l_applicant_number := null;
490: ,p_dob_null_warning => l_dob_null_warning
491: ,p_orig_hire_warning => l_orig_hire_warning
492: );
493: --
494: hr_utility.set_location(l_proc, 40);
495:
496: --
497: -- Add this person to the relevant security definitions.
498: --
499: hr_security_internal.populate_new_person
500: (p_person_id => l_person_id
501: ,p_business_group_id => p_business_group_id);
502:
503: hr_utility.set_location(l_proc, 45);
504:
505: --
506: -- Create the period of placement record
507: --
515: --
516: ,p_object_version_number => l_pdp_object_version_number
517: );
518:
519: hr_utility.set_location(l_proc, 60);
520:
521: --
522: -- Maintain Person Type Usages
523: --
527: ,p_person_type_id => l_person_type_id
528: );
529: --
530: --
531: hr_utility.set_location(l_proc, 70);
532: --
533: -- Create the default non-payrolled assignment
534: --
535: hr_assignment_internal.create_default_cwk_asg
543: ,p_assignment_sequence => l_assignment_sequence
544: ,p_assignment_number => l_assignment_number
545: );
546: --
547: hr_utility.set_location(l_proc, 80);
548: --
549: -- Create a phone row using the newly created person as the parent row.
550: -- This phone row replaces the work_telephone column on the person.
551: --
747: p_full_name := l_full_name;
748: p_comment_id := l_comment_id;
749: p_name_combination_warning := l_name_combination_warning;
750: --
751: hr_utility.set_location(' Leaving:'||l_proc, 70);
752: exception
753: when hr_api.validate_enabled then
754: --
755: -- As the Validate_Enabled exception has been raised
773: p_per_effective_end_date := null;
774: p_full_name := null;
775: p_comment_id := null;
776: p_name_combination_warning := l_name_combination_warning;
777: hr_utility.set_location(' Leaving:'||l_proc, 80);
778: when others then
779: --
780: -- A validation or unexpected error has occured
781: --
795: p_per_effective_end_date := null;
796: p_full_name := null;
797: p_comment_id := null;
798: p_name_combination_warning := l_name_combination_warning;
799: hr_utility.set_location(' Leaving:'||l_proc, 90);
800: raise;
801: end create_cwk;
802: --
803: -- ----------------------------------------------------------------------------
866: --
867: l_per_details_rec csr_per_details%rowtype;
868: --
869: begin
870: hr_utility.set_location('Entering:'|| l_proc, 10);
871:
872: --
873: -- Ensure mandatory arguments have been passed
874: --
913: (p_module_name => 'convert_to_cwk'
914: ,p_hook_type => 'BP'
915: );
916: end;
917: hr_utility.set_location(l_proc, 20);
918: --
919: -- Validation in addition to Row Handlers
920: --
921: -- Get derived details for person on effective date
942: (p_person_type_id => l_person_type_id
943: ,p_business_group_id => l_per_details_rec.business_group_id
944: ,p_expected_sys_type => 'CWK'
945: );
946: hr_utility.set_location(l_proc, 30);
947: --
948: -- Check for future person_type_changes
949: --
950: if hr_person.chk_future_person_type(l_per_details_rec.system_person_type
970: (l_per_details_rec.business_group_id,
971: 'OTHER');
972: else
973: l_person_type_id1 := l_per_details_rec.person_type_id;
974: hr_utility.set_location(l_proc,50);
975: end if;
976: --
977: -- Ensure the npw_number will not be changed if it exists
978: --
978: --
979: IF l_per_details_rec.npw_number IS NOT NULL
980: AND NVL(p_npw_number,hr_api.g_number) <> l_per_details_rec.npw_number
981: THEN
982: hr_utility.set_location(l_proc,60);
983: p_npw_number := l_per_details_rec.npw_number;
984: END IF;
985: --
986: -- Check: is this back-to-back contract?
992: ,'CWK'
993: ,l_effective_date-1) then
994: l_datetrack_update_mode := 'CORRECTION';
995: l_ptu_update_mode := 'CORRECTION';
996: hr_utility.set_location(l_proc,70);
997: elsif hr_general2.is_person_type(p_person_id
998: ,'EX_EMP'
999: ,l_effective_date)
1000: and hr_general2.is_person_type(p_person_id
1001: ,'EMP'
1002: ,l_effective_date-1) then
1003: l_datetrack_update_mode := 'CORRECTION';
1004: l_ptu_update_mode := 'UPDATE';
1005: hr_utility.set_location(l_proc,80);
1006: else
1007: --
1008: -- Support the use of CORRECTION for the person table handler routines.
1009: --
1039: ,p_dob_null_warning => l_dob_null_warning
1040: ,p_orig_hire_warning => l_orig_hire_warning
1041: );
1042:
1043: hr_utility.set_location(l_proc, 90);
1044:
1045: hr_security_internal.populate_new_person
1046: (p_business_group_id => l_per_details_rec.business_group_id
1047: ,p_person_id => p_person_id);
1045: hr_security_internal.populate_new_person
1046: (p_business_group_id => l_per_details_rec.business_group_id
1047: ,p_person_id => p_person_id);
1048:
1049: hr_utility.set_location(l_proc, 93);
1050:
1051: --
1052: -- Maintain PTU
1053: --
1057: ,p_person_type_id => l_person_type_id
1058: ,p_datetrack_update_mode => l_ptu_update_mode
1059: );
1060:
1061: hr_utility.set_location(l_proc, 95);
1062:
1063: --
1064: -- Create the period of placement record
1065: --
1073: --
1074: ,p_object_version_number => l_pdp_object_version_number
1075: );
1076: --
1077: hr_utility.set_location(l_proc, 100);
1078: --
1079: -- Create the default non-payrolled assignment
1080: --
1081: hr_assignment_internal.create_default_cwk_asg
1089: ,p_assignment_sequence => l_assignment_sequence
1090: ,p_assignment_number => l_assignment_number
1091: );
1092: --
1093: hr_utility.set_location(l_proc, 110);
1094: --
1095: -- Call After Process User Hook
1096: --
1097: begin
1132: p_assignment_id := l_assignment_id;
1133: p_asg_object_version_number := l_asg_object_version_number;
1134: p_assignment_sequence := l_assignment_sequence;
1135: --
1136: hr_utility.set_location(' Leaving:'||l_proc, 170);
1137: exception
1138: when hr_api.validate_enabled then
1139: --
1140: -- As the Validate_Enabled exception has been raised
1153: p_per_effective_end_date := null;
1154: p_assignment_id := null;
1155: p_asg_object_version_number := null;
1156: p_assignment_sequence := null;
1157: hr_utility.set_location(' Leaving:'||l_proc, 180);
1158: when others then
1159: --
1160: -- A validation or unexpected error has occured
1161: --
1171: p_assignment_id := null;
1172: p_asg_object_version_number := null;
1173: p_assignment_sequence := null;
1174: --
1175: hr_utility.set_location(' Leaving:'||l_proc, 190);
1176: raise;
1177: end convert_to_cwk;
1178: --
1179: -- ----------------------------------------------------------------------------
1256: and ptu.effective_start_date >= p_effective_date
1257: and ppt.system_person_type = 'APL');
1258: --
1259: begin
1260: hr_utility.set_location('Entering:'|| l_proc, 10);
1261: --
1262: -- Ensure mandatory arguments have been passed
1263: --
1264: hr_api.mandatory_arg_error
1301: (p_module_name => 'apply_for_job'
1302: ,p_hook_type => 'BP'
1303: );
1304: end;
1305: hr_utility.set_location(l_proc, 20);
1306: --
1307: -- Validation in addition to Row Handlers
1308: --
1309: --
1320: fnd_message.set_name('PER','PER_289602_CWK_INV_PERSON_ID');
1321: fnd_message.raise_error;
1322: END IF;
1323: CLOSE csr_per_details;
1324: hr_utility.set_location(l_proc, 25);
1325: --
1326: -- Check for future person_type_changes
1327: --
1328: if hr_person.chk_future_person_type(l_per_details_rec.system_person_type
1332: fnd_message.set_name('PAY','HR_7193_PER_FUT_TYPE_EXISTS');
1333: fnd_message.raise_error;
1334: end if;
1335:
1336: hr_utility.set_location(l_proc, 28);
1337: --
1338: -- Check against the existing person type records.
1339: --
1340: open csr_fut_apl(p_person_id,l_effective_date);
1348: fnd_message.raise_error;
1349: else
1350: close csr_fut_apl;
1351: end if;
1352: hr_utility.set_location(l_proc, 30);
1353: --
1354: -- If the specified person type id is not null then check that it
1355: -- corresponds to type 'APL', is currently active and is in the correct
1356: -- business group, otherwise set person type to the active default for APL
1360: (p_person_type_id => l_person_type_id
1361: ,p_business_group_id => l_per_details_rec.business_group_id
1362: ,p_expected_sys_type => 'APL'
1363: );
1364: hr_utility.set_location(l_proc, 40);
1365: --
1366: -- Ensure the applicant number will not be changed if it exists
1367: --
1368: IF l_per_details_rec.applicant_number IS NOT NULL
1367: --
1368: IF l_per_details_rec.applicant_number IS NOT NULL
1369: AND NVL(p_applicant_number,hr_api.g_number) <> l_per_details_rec.applicant_number
1370: THEN
1371: hr_utility.set_location(l_proc,50);
1372: p_applicant_number := l_per_details_rec.applicant_number;
1373: END IF;
1374: --
1375: l_person_type_id1 := hr_person_type_usage_info.get_default_person_type_id
1399: ,p_name_combination_warning => l_name_combination_warning
1400: ,p_dob_null_warning => l_dob_null_warning
1401: ,p_orig_hire_warning => l_orig_hire_warning
1402: );
1403: hr_utility.set_location(l_proc, 60);
1404: --
1405: hr_security_internal.populate_new_person
1406: (p_business_group_id => l_per_details_rec.business_group_id
1407: ,p_person_id => p_person_id
1405: hr_security_internal.populate_new_person
1406: (p_business_group_id => l_per_details_rec.business_group_id
1407: ,p_person_id => p_person_id
1408: );
1409: hr_utility.set_location(l_proc, 70);
1410: --
1411: -- Maintain PTU
1412: --
1413: hr_per_type_usage_internal.maintain_person_type_usage
1414: (p_effective_date => l_effective_date
1415: ,p_person_id => p_person_id
1416: ,p_person_type_id => l_person_type_id
1417: );
1418: hr_utility.set_location(l_proc, 80);
1419: --
1420: -- create an application.
1421: --
1422: per_apl_ins.ins
1426: ,p_date_received => l_effective_date
1427: ,p_object_version_number => l_apl_object_version_number
1428: ,p_effective_date => l_effective_date
1429: );
1430: hr_utility.set_location(l_proc, 90);
1431: --
1432: hr_assignment_internal.create_default_apl_asg
1433: (p_effective_date => l_effective_date
1434: ,p_person_id => p_person_id
1437: ,p_assignment_id => l_assignment_id
1438: ,p_object_version_number => l_asg_object_version_number
1439: ,p_assignment_sequence => l_assignment_sequence
1440: );
1441: hr_utility.set_location(l_proc, 100);
1442: --
1443: -- Call After Process User Hook
1444: --
1445: begin
1481: p_assignment_id := l_assignment_id;
1482: p_asg_object_version_number := l_asg_object_version_number;
1483: p_assignment_sequence := l_assignment_sequence;
1484: --
1485: hr_utility.set_location(' Leaving:'||l_proc, 170);
1486: exception
1487: when hr_api.validate_enabled then
1488: --
1489: -- As the Validate_Enabled exception has been raised
1503: p_apl_object_version_number := null;
1504: p_assignment_id := null;
1505: p_asg_object_version_number := null;
1506: p_assignment_sequence := null;
1507: hr_utility.set_location(' Leaving:'||l_proc, 180);
1508: when others then
1509: --
1510: -- A validation or unexpected error has occured
1511: --
1523: p_assignment_id := null;
1524: p_asg_object_version_number := null;
1525: p_assignment_sequence := null;
1526: --
1527: hr_utility.set_location(' Leaving:'||l_proc, 190);
1528: raise;
1529: end apply_for_job;
1530: --
1531: -- ----------------------------------------------------------------------------
1544: --
1545: begin
1546: if p_status = 'SUPERVISOR' then
1547: begin
1548: hr_utility.set_location(l_proc,10);
1549: Select 'X'
1550: into v_dummy
1551: from sys.dual
1552: where exists (select 'Assignments Exist'
1562: return;
1563: end;
1564: elsif p_status = 'EVENT' then
1565: begin
1566: hr_utility.set_location(l_proc,30);
1567: select 'X'
1568: into v_dummy
1569: from sys.dual
1570: where exists ( select 'Events exist'
1586: end;
1587: end if;
1588: if p_status = 'INTERVIEW' then
1589: begin
1590: hr_utility.set_location(l_proc,40);
1591: select 'X'
1592: into v_dummy
1593: from sys.dual
1594: where exists(select 'Interview rows exist'
1618: end;
1619: end if;
1620: if p_status = 'REVIEW' then
1621: begin
1622: hr_utility.set_location(l_proc,50);
1623: select 'X'
1624: into v_dummy
1625: from sys.dual
1626: where exists ( select 'Perf Review rows exist'
1636: end;
1637: end if;
1638: if p_status = 'RECRUITER' then
1639: begin
1640: hr_utility.set_location(l_proc,60);
1641: select 'X'
1642: into v_dummy
1643: from sys.dual
1644: where exists (select 'Recruiter for vacancy'
1797: where person_id = l_person_id;
1798: --
1799: --
1800: begin
1801: hr_utility.set_location('Entering:'|| l_proc, 1);
1802: --
1803: -- Issue a savepoint.
1804: --
1805: savepoint actual_termination_placement;
1813: l_actual_termination_date := trunc(p_actual_termination_date);
1814: l_effective_date := trunc(p_effective_date);
1815: l_date_start := trunc(p_date_start);
1816: --
1817: hr_utility.set_location(l_proc, 10);
1818: --
1819: -- Validation in addition to Table Handlers
1820: --
1821: -- Check period of placement and get business group details for validation.
1837: ,p_argument => 'actual_termination_date'
1838: ,p_argument_value => l_actual_termination_date
1839: );
1840: --
1841: hr_utility.set_location(l_proc, 20);
1842: --
1843: open csr_get_derived_details;
1844: fetch csr_get_derived_details
1845: into l_business_group_id
1852: --
1853: if csr_get_derived_details%NOTFOUND
1854: then
1855: --
1856: hr_utility.set_location(l_proc, 30);
1857: --
1858: close csr_get_derived_details;
1859: --
1860: fnd_message.set_name('PER','HR_289609_PDP_NOT_EXISTS');
1862: end if;
1863: --
1864: close csr_get_derived_details;
1865:
1866: hr_utility.set_location(l_proc, 40);
1867: --
1868: -- Check that the corresponding person has a person type usage of
1869: -- contingent worker at the actual termination date.
1870: --
1873: ,p_person_type => 'CWK'
1874: ,p_effective_date => l_actual_termination_date))
1875: then
1876:
1877: hr_utility.set_location(l_proc, 50);
1878:
1879: fnd_message.set_name('PER','HR_289612_PDP_NOT_PTU_CWK');
1880: fnd_message.raise_error;
1881:
1880: fnd_message.raise_error;
1881:
1882: end if;
1883:
1884: hr_utility.set_location(l_proc, 60);
1885:
1886: --
1887: -- Check that there are not any future changes to the person.
1888: --
1892: --
1893: if csr_future_per_changes%FOUND
1894: then
1895: --
1896: hr_utility.set_location(l_proc, 70);
1897: --
1898: close csr_future_per_changes;
1899: --
1900: fnd_message.set_name('PAY','HR_7957_PDS_INV_ATT_FUTURE');
1900: fnd_message.set_name('PAY','HR_7957_PDS_INV_ATT_FUTURE');
1901: fnd_message.raise_error;
1902: end if;
1903: --
1904: hr_utility.set_location(l_proc, 80);
1905: --
1906: close csr_future_per_changes;
1907:
1908: --
1916: ,p_business_group_id => l_business_group_id
1917: ,p_expected_sys_type => 'EX_CWK'
1918: );
1919: --
1920: hr_utility.set_location(l_proc, 90);
1921: hr_utility.trace('l_assignment_status_type_id: '||
1922: to_char(l_assignment_status_type_id));
1923: hr_utility.trace('l_business_group_id: '||
1924: to_char(l_business_group_id));
1917: ,p_expected_sys_type => 'EX_CWK'
1918: );
1919: --
1920: hr_utility.set_location(l_proc, 90);
1921: hr_utility.trace('l_assignment_status_type_id: '||
1922: to_char(l_assignment_status_type_id));
1923: hr_utility.trace('l_business_group_id: '||
1924: to_char(l_business_group_id));
1925: hr_utility.trace('l_legislation_code: '||l_legislation_code);
1919: --
1920: hr_utility.set_location(l_proc, 90);
1921: hr_utility.trace('l_assignment_status_type_id: '||
1922: to_char(l_assignment_status_type_id));
1923: hr_utility.trace('l_business_group_id: '||
1924: to_char(l_business_group_id));
1925: hr_utility.trace('l_legislation_code: '||l_legislation_code);
1926:
1927:
1921: hr_utility.trace('l_assignment_status_type_id: '||
1922: to_char(l_assignment_status_type_id));
1923: hr_utility.trace('l_business_group_id: '||
1924: to_char(l_business_group_id));
1925: hr_utility.trace('l_legislation_code: '||l_legislation_code);
1926:
1927:
1928: --
1929: -- If l_assignment_status_type_id is g_number then derive it's
1941: ,p_expected_system_status => 'TERM_CWK_ASG'
1942: );
1943: */
1944: --
1945: hr_utility.set_location(l_proc, 100);
1946: --
1947: -- Validate/derive the last standard process date.
1948: --
1949: --
1946: --
1947: -- Validate/derive the last standard process date.
1948: --
1949: --
1950: hr_utility.set_location(l_proc, 130);
1951: --
1952: if l_last_standard_process_date is not null
1953: then
1954: --
1951: --
1952: if l_last_standard_process_date is not null
1953: then
1954: --
1955: hr_utility.set_location(l_proc, 140);
1956: --
1957: -- Check that the last standard process date is on or after the actual
1958: -- termination date.
1959: --
1959: --
1960: if not l_last_standard_process_date >= l_actual_termination_date
1961: then
1962: --
1963: hr_utility.set_location(l_proc, 150);
1964: --
1965: fnd_message.set_name('PAY','HR_7505_PDS_INV_LSP_ATT_DT');
1966: fnd_message.raise_error;
1967: end if;
1966: fnd_message.raise_error;
1967: end if;
1968: else
1969: --
1970: hr_utility.set_location(l_proc, 160);
1971: --
1972: -- Last standard process date is null => derive it.
1973: --
1974: -- Find the max tpe end date of any payrolls that are assigned.
1979: --
1980: if csr_get_max_tpe_end_date%NOTFOUND
1981: then
1982: --
1983: hr_utility.set_location(l_proc, 170);
1984: --
1985: close csr_get_max_tpe_end_date;
1986: --
1987: -- As the cursor should always return at least a null value, this
1994: end if;
1995: --
1996: close csr_get_max_tpe_end_date;
1997: --
1998: hr_utility.set_location(l_proc, 180);
1999: --
2000: if l_max_tpe_end_date is not null
2001: then
2002: --
1999: --
2000: if l_max_tpe_end_date is not null
2001: then
2002: --
2003: hr_utility.set_location(l_proc, 190);
2004: --
2005: -- A time period end date has been found, so set the last standard
2006: -- process date to that.
2007: --
2007: --
2008: l_last_standard_process_date := l_max_tpe_end_date;
2009: else
2010: --
2011: hr_utility.set_location(l_proc, 200);
2012: --
2013: -- Either there was not an assignment assigned to a payroll, or
2014: -- there was no time period for that payroll as of the actual
2015: -- termination date. It doesn't matter which as we will default
2018: l_last_standard_process_date := l_actual_termination_date;
2019: end if;
2020: end if;
2021: --
2022: hr_utility.set_location(l_proc, 240);
2023: --
2024: -- Lock the person record in PER_PEOPLE_F ready for UPDATE at a later point.
2025: -- (Note: This is necessary because calling the table handlers in locking
2026: -- ladder order invokes an error in per_pdp_upd.upd due to the person
2036: ,p_validation_start_date => l_validation_start_date
2037: ,p_validation_end_date => l_validation_end_date
2038: );
2039:
2040: hr_utility.set_location(l_proc, 245);
2041: --
2042: -- Update actual termination date and last standard process date in
2043: -- periods of placement table.
2044:
2064: close csr_date_of_death;
2065: end if;
2066: --
2067: if l_dod_warning = TRUE then
2068: hr_utility.set_location(l_proc, 998);
2069: else
2070: hr_utility.set_location(l_proc,999);
2071: end if;
2072: --
2066: --
2067: if l_dod_warning = TRUE then
2068: hr_utility.set_location(l_proc, 998);
2069: else
2070: hr_utility.set_location(l_proc,999);
2071: end if;
2072: --
2073: -- Update person type in person table.
2074: --
2071: end if;
2072: --
2073: -- Update person type in person table.
2074: --
2075: hr_utility.set_location(l_proc, 250);
2076: per_per_upd.upd
2077: (p_person_id => l_person_id
2078: ,p_effective_start_date => l_effective_start_date
2079: ,p_effective_end_date => l_effective_end_date
2095: ,p_dob_null_warning => l_dob_null_warning
2096: ,p_orig_hire_warning => l_orig_hire_warning
2097: );
2098: --
2099: hr_utility.set_location(l_proc, 260);
2100: --
2101: -- Terminate the assignments, ensuring that the non-primaries are
2102: -- processed before the primary (implemented via 'order by primary_flag'
2103: -- clause in cursor declaration).
2104: --
2105: for csr_rec in csr_get_asgs_to_terminate
2106: loop
2107: --
2108: hr_utility.set_location(l_proc, 270);
2109: --
2110: hr_assignment_internal.actual_term_cwk_asg
2111: (p_assignment_id => csr_rec.assignment_id
2112: ,p_object_version_number => csr_rec.object_version_number
2119: ,p_entries_changed_warning => l_cr_entries_changed_warn
2120: ,p_pay_proposal_warning => l_pay_proposal_warn
2121: );
2122: --
2123: hr_utility.set_location(l_proc, 280);
2124: --
2125: -- Set entries changed warning using the precedence of 'S', then 'Y', then
2126: -- 'N'.
2127: --
2127: --
2128: if l_cr_entries_changed_warn = 'S' or
2129: l_entries_changed_warning = 'S' then
2130: --
2131: hr_utility.set_location(l_proc, 290);
2132: --
2133: l_entries_changed_warning := 'S';
2134: --
2135: elsif l_cr_entries_changed_warn = 'Y' or
2134: --
2135: elsif l_cr_entries_changed_warn = 'Y' or
2136: l_entries_changed_warning = 'Y' then
2137: --
2138: hr_utility.set_location(l_proc, 300);
2139: --
2140: l_entries_changed_warning := 'Y';
2141:
2142: else
2140: l_entries_changed_warning := 'Y';
2141:
2142: else
2143: --
2144: hr_utility.set_location(l_proc, 305);
2145: --
2146: l_entries_changed_warning := 'N';
2147:
2148: end if;
2146: l_entries_changed_warning := 'N';
2147:
2148: end if;
2149: --
2150: hr_utility.set_location(l_proc, 310);
2151: --
2152: -- Set future changes warning.
2153: --
2154: if l_cr_asg_future_changes_warn or l_asg_future_changes_warning
2153: --
2154: if l_cr_asg_future_changes_warn or l_asg_future_changes_warning
2155: then
2156: --
2157: hr_utility.set_location(l_proc, 320);
2158: --
2159: l_asg_future_changes_warning := TRUE;
2160:
2161: end if;
2161: end if;
2162:
2163: end loop;
2164: --
2165: hr_utility.set_location(l_proc, 330);
2166: --
2167: -- Added code to support the following Out warning parameters.
2168: --
2169: l_status := 'SUPERVISOR';
2248: p_last_standard_process_date := l_last_standard_process_date;
2249: p_object_version_number := l_pdp_object_version_number;
2250: --
2251: --
2252: hr_utility.set_location(' Leaving:'||l_proc, 340);
2253: exception
2254: when hr_api.validate_enabled then
2255: --
2256: -- As the Validate_Enabled exception has been raised
2362: order by asg.primary_flag;
2363: --
2364:
2365: begin
2366: hr_utility.set_location('Entering:'|| l_proc, 1);
2367: --
2368: l_final_process_date := trunc(p_final_process_date);
2369: --
2370: -- Issue a savepoint.
2370: -- Issue a savepoint.
2371: --
2372: savepoint final_process_placement;
2373:
2374: hr_utility.set_location(l_proc, 10);
2375: --
2376: -- Validation in addition to Table Handlers
2377: --
2378: -- Check person id.
2398: ,p_argument => 'object_version_number'
2399: ,p_argument_value => p_object_version_number
2400: );
2401: --
2402: hr_utility.set_location(l_proc, 20);
2403: --
2404: open csr_get_derived_details;
2405: fetch csr_get_derived_details
2406: into l_legislation_code
2411: --
2412: if csr_get_derived_details%NOTFOUND
2413: then
2414: --
2415: hr_utility.set_location(l_proc, 30);
2416: --
2417: close csr_get_derived_details;
2418: --
2419: fnd_message.set_name('PER','HR_289609_PDP_NOT_EXISTS');
2430: fnd_message.set_name('PAY','HR_7155_OBJECT_INVALID');
2431: fnd_message.raise_error;
2432: end if;
2433:
2434: hr_utility.set_location(l_proc, 40);
2435: --
2436: -- Check that the actual termination date has already been set.
2437: --
2438: if l_actual_termination_date is null
2437: --
2438: if l_actual_termination_date is null
2439: then
2440: --
2441: hr_utility.set_location(l_proc, 50);
2442: --
2443: fnd_message.set_name('PAY','HR_51007_ASG_INV_NOT_ACT_TERM');
2444: fnd_message.raise_error;
2445: end if;
2499: l_exemppet_eff_date := p_final_process_date;
2500: --
2501: end if;
2502: --
2503: hr_utility.set_location(l_proc, 90);
2504: --
2505: -- Check that the corresponding person is of EX_CWK system person type.
2506: --
2507: if not (hr_general2.is_person_type
2509: ,p_person_type => 'EX_CWK'
2510: ,p_effective_date => l_exemppet_eff_date))
2511: then
2512: --
2513: hr_utility.set_location(l_proc, 100);
2514: --
2515: fnd_message.set_name('PER','HR_289613_PDP_NOT_PTU_EX_CWK');
2516: fnd_message.raise_error;
2517: --
2516: fnd_message.raise_error;
2517: --
2518: end if;
2519: --
2520: hr_utility.set_location(l_proc, 110);
2521: --
2522: --
2523: -- Check that there are no COBRA benefits after the final process date.
2524: --
2534: ,p_effective_date => l_final_process_date
2535: );
2536:
2537: --
2538: hr_utility.set_location(l_proc, 120);
2539: --
2540: -- Final process the assignments, ensuring that the non-primaries are
2541: -- processed before the primary (implemented via 'order by primary_flag'
2542: -- clause in cursor declaration).
2543: --
2544: for csr_rec in csr_get_asgs_to_final_proc
2545: loop
2546: --
2547: hr_utility.set_location(l_proc, 130);
2548: --
2549: hr_assignment_internal.final_process_cwk_asg
2550: (p_assignment_id => csr_rec.assignment_id
2551: ,p_object_version_number => csr_rec.object_version_number
2557: ,p_asg_future_changes_warning => l_cr_asg_future_changes_warn
2558: ,p_entries_changed_warning => l_cr_entries_changed_warn
2559: );
2560: --
2561: hr_utility.set_location(l_proc, 140);
2562: --
2563: -- Set entries changed warning using the precedence of 'S', then 'Y', then
2564: -- 'N'.
2565: --
2566: if l_cr_entries_changed_warn = 'S'
2567: or l_entries_changed_warning = 'S'
2568: then
2569: --
2570: hr_utility.set_location(l_proc, 150);
2571: --
2572: l_entries_changed_warning := 'S';
2573: --
2574: elsif l_cr_entries_changed_warn = 'Y'
2574: elsif l_cr_entries_changed_warn = 'Y'
2575: or l_entries_changed_warning = 'Y'
2576: then
2577: --
2578: hr_utility.set_location(l_proc, 160);
2579: --
2580: l_entries_changed_warning := 'Y';
2581: --
2582: else
2580: l_entries_changed_warning := 'Y';
2581: --
2582: else
2583: --
2584: hr_utility.set_location(l_proc, 165);
2585: --
2586: l_entries_changed_warning := 'N';
2587: --
2588: end if;
2586: l_entries_changed_warning := 'N';
2587: --
2588: end if;
2589: --
2590: hr_utility.set_location(l_proc, 170);
2591: --
2592: -- Set future changes warning.
2593: --
2594: if l_cr_asg_future_changes_warn
2593: --
2594: if l_cr_asg_future_changes_warn
2595: then
2596: --
2597: hr_utility.set_location(l_proc, 180);
2598: --
2599: l_asg_future_changes_warning := TRUE;
2600: end if;
2601: --
2603: --
2604: if l_cr_org_now_no_manager_warn
2605: then
2606: --
2607: hr_utility.set_location(l_proc, 190);
2608: --
2609: l_org_now_no_manager_warning := TRUE;
2610: end if;
2611: end loop;
2609: l_org_now_no_manager_warning := TRUE;
2610: end if;
2611: end loop;
2612:
2613: hr_utility.set_location(l_proc, 200);
2614:
2615: --
2616: -- When in validation only mode raise the Validate_Enabled exception
2617: --
2626: p_final_process_date := l_final_process_date;
2627: p_object_version_number := l_object_version_number;
2628: p_org_now_no_manager_warning := l_org_now_no_manager_warning;
2629: --
2630: hr_utility.set_location(' Leaving:'||l_proc, 400);
2631: exception
2632: when hr_api.validate_enabled then
2633: --
2634: -- As the Validate_Enabled exception has been raised
2795: -- end fix 1370960
2796:
2797: begin
2798:
2799: hr_utility.set_location('Entering: '||l_proc, 10);
2800:
2801: --
2802: -- Issue a savepoint
2803: --
2802: -- Issue a savepoint
2803: --
2804: savepoint terminate_placement;
2805:
2806: hr_utility.set_location(l_proc, 15);
2807:
2808: /* For CWK Phase I we default the final process
2809: and last standard process date to the actual
2810: termination date so that assignments are immediately
2904: end;
2905: --
2906: -- End of API User Hook for the before hook of actual_termination
2907: --
2908: hr_utility.set_location(l_proc, 20);
2909:
2910: /*
2911: ** We need to get the details currently on the PDP record so that
2912: ** we know if the person has already been partially or fully terminated.
2919: into l_curr_actual_termination_date
2920: ,l_curr_final_process_date;
2921: close csr_get_pdp_details;
2922:
2923: hr_utility.set_location(l_proc, 30);
2924:
2925: /*
2926: ** Save the non-termination related PDP information....
2927: */
2996: ,p_information29 => p_information29
2997: ,p_information30 => p_information30
2998: );
2999:
3000: hr_utility.set_location(l_proc, 40);
3001:
3002: /*
3003: ** Process actual termination date if it's set for the first time....
3004: */
3005: if l_curr_actual_termination_date is null
3006: and p_actual_termination_date is not null
3007: then
3008:
3009: hr_utility.set_location(l_proc, 50);
3010:
3011: hr_contingent_worker_api.actual_termination_placement
3012: (p_validate => FALSE
3013: ,p_effective_date => p_effective_date
3055: -- end fix 1370960
3056:
3057: end if;
3058:
3059: hr_utility.set_location(l_proc, 60);
3060:
3061: /*
3062: ** If it's set process final process date....
3063: */
3064: if l_curr_final_process_date is null
3065: and l_final_process_date is not null
3066: then
3067:
3068: hr_utility.set_location(l_proc, 70);
3069:
3070: hr_contingent_worker_api.final_process_placement
3071: (p_validate => FALSE
3072: ,p_person_id => p_person_id
3078: ,p_entries_changed_warning => p_entries_changed_warning
3079: );
3080: end if;
3081:
3082: hr_utility.set_location(l_proc, 80);
3083: --
3084: -- Added HR workflow for the termination process. Bug 3829474
3085: -- Even though the following call is psecific to period of service,
3086: -- used the same forperiod of placement.
3200: IF p_validate THEN
3201: RAISE hr_api.validate_enabled;
3202: END IF;
3203:
3204: hr_utility.set_location('Leaving: '||l_proc, 90);
3205:
3206: EXCEPTION
3207: when hr_api.validate_enabled then
3208: --
3222: --p_object_version_number := l_object_version_number;
3223: --
3224: raise;
3225: --
3226: hr_utility.set_location('Leaving: '||l_proc, 100);
3227:
3228: end terminate_placement;
3229: --
3230: -- ----------------------------------------------------------------------------
3313: --
3314:
3315: begin
3316:
3317: hr_utility.set_location('Entering: '||l_proc, 10);
3318:
3319: --
3320: -- Issue a savepoint.
3321: --
3352: end;
3353: --
3354: -- End of API User Hook for the before hook of reverse_terminate_placement
3355: --
3356: hr_utility.set_location(l_proc, 20);
3357:
3358: hr_utility.trace('Entered reverse termination for '||p_person_id);
3359: --
3360: hr_utility.set_location(l_proc,25);
3354: -- End of API User Hook for the before hook of reverse_terminate_placement
3355: --
3356: hr_utility.set_location(l_proc, 20);
3357:
3358: hr_utility.trace('Entered reverse termination for '||p_person_id);
3359: --
3360: hr_utility.set_location(l_proc,25);
3361: begin
3362: SELECT pdp.final_process_date
3356: hr_utility.set_location(l_proc, 20);
3357:
3358: hr_utility.trace('Entered reverse termination for '||p_person_id);
3359: --
3360: hr_utility.set_location(l_proc,25);
3361: begin
3362: SELECT pdp.final_process_date
3363: , pdp.last_standard_process_date
3364: INTO l_final_process_date
3372: fnd_message.set_name('PER','HR_289614_PDP_STILL_OPEN');
3373: fnd_message.raise_error;
3374: end;
3375: --
3376: hr_utility.set_location(l_proc,30);
3377:
3378: --
3379: -- Check for future person types
3380: --
3379: -- Check for future person types
3380: --
3381: for fpt_rec in future_person_types loop
3382:
3383: hr_utility.set_location(l_proc,35);
3384: hr_utility.trace('System person type: '||fpt_rec.system_person_type);
3385: -- start of bug 4457651
3386: -- commented out the if condition and redifined it
3387: -- if fpt_rec.system_person_type <> 'EX_CWK' then
3380: --
3381: for fpt_rec in future_person_types loop
3382:
3383: hr_utility.set_location(l_proc,35);
3384: hr_utility.trace('System person type: '||fpt_rec.system_person_type);
3385: -- start of bug 4457651
3386: -- commented out the if condition and redifined it
3387: -- if fpt_rec.system_person_type <> 'EX_CWK' then
3388: if fpt_rec.system_person_type in ('EMP','APL','CWK') then
3395: fnd_message.set_name('PAY','HR_7122_EMP_CNCL_TERM_INVLD');
3396: fnd_message.raise_error;
3397: end if;
3398: --
3399: hr_utility.set_location(l_proc,40);
3400:
3401: --
3402: -- Check for future completed actions.
3403: --
3432: AND pac.effective_date > l_final_process_date);
3433: exception when NO_DATA_FOUND then null;
3434: END;
3435: --
3436: hr_utility.set_location(l_proc,45);
3437:
3438: IF l_action_chk = 'N' THEN
3439: BEGIN
3440: SELECT 'W'
3450: AND pac.payroll_action_id = act.payroll_action_id
3451: AND pac.action_status = 'C'
3452: AND (pac.effective_date BETWEEN l_action_date AND l_final_process_date));
3453: --
3454: hr_utility.set_location(l_proc,7);
3455: exception when NO_DATA_FOUND then null;
3456: END;
3457: END IF;
3458:
3466: if l_action_chk = 'Y' then
3467: p_fut_actns_exist_warning := TRUE;
3468: end if;
3469: --
3470: hr_utility.set_location(l_proc,50);
3471:
3472: FPD_FLAG := (l_final_process_date IS NOT NULL);
3473: --
3474: hr_utility.set_location(l_proc,55);
3470: hr_utility.set_location(l_proc,50);
3471:
3472: FPD_FLAG := (l_final_process_date IS NOT NULL);
3473: --
3474: hr_utility.set_location(l_proc,55);
3475: UPDATE per_people_f pp
3476: SET pp.effective_end_date = hr_api.g_eot
3477: WHERE pp.person_id = p_person_id
3478: AND p_actual_termination_date
3478: AND p_actual_termination_date
3479: BETWEEN pp.effective_start_date
3480: AND pp.effective_end_date;
3481: --
3482: hr_utility.set_location(l_proc,60);
3483: DELETE per_people_f pp
3484: WHERE pp.person_id = p_person_id
3485: AND pp.effective_start_date > p_actual_termination_date;
3486: --
3483: DELETE per_people_f pp
3484: WHERE pp.person_id = p_person_id
3485: AND pp.effective_start_date > p_actual_termination_date;
3486: --
3487: hr_utility.set_location(l_proc,65);
3488: --
3489: -- WWBUG # - CERN want to keep old details
3490: -- was a feature of rel 9
3491: if (p_clear_details = 'N') then
3611: */
3612: --
3613: --
3614: --
3615: hr_utility.set_location(l_proc,70);
3616: FOR c_asg_rec IN c_assignment LOOP
3617: --
3618: hr_utility.set_location(l_proc,75);
3619: SELECT per_system_status
3614: --
3615: hr_utility.set_location(l_proc,70);
3616: FOR c_asg_rec IN c_assignment LOOP
3617: --
3618: hr_utility.set_location(l_proc,75);
3619: SELECT per_system_status
3620: INTO l_per_system_status
3621: FROM per_assignment_status_types
3622: WHERE assignment_status_type_id = c_asg_rec.assignment_status_type_id;
3630: FROM per_all_assignments_f
3631: WHERE assignment_id = c_asg_rec.assignment_id
3632: AND effective_end_date = p_actual_termination_date;
3633: --
3634: hr_utility.set_location(l_proc,80);
3635:
3636: SELECT max(asg.effective_end_date)
3637: INTO l_max_end_date
3638: FROM per_all_assignments_f asg
3639: WHERE asg.assignment_id = c_asg_rec.assignment_id;
3640:
3641: --
3642: if l_per_system_status <> 'TERM_CWK_ASG' then
3643: hr_utility.set_location(l_proc,85);
3644: if FPD_FLAG then
3645: hr_utility.set_location(l_proc,90);
3646: if l_max_end_date <> l_final_process_date then
3647: l_effective_end_date := l_max_end_date;
3641: --
3642: if l_per_system_status <> 'TERM_CWK_ASG' then
3643: hr_utility.set_location(l_proc,85);
3644: if FPD_FLAG then
3645: hr_utility.set_location(l_proc,90);
3646: if l_max_end_date <> l_final_process_date then
3647: l_effective_end_date := l_max_end_date;
3648: else
3649: hr_utility.set_location(l_proc,95);
3645: hr_utility.set_location(l_proc,90);
3646: if l_max_end_date <> l_final_process_date then
3647: l_effective_end_date := l_max_end_date;
3648: else
3649: hr_utility.set_location(l_proc,95);
3650: l_effective_end_date := hr_api.g_eot;
3651: end if;
3652: else
3653: hr_utility.set_location(l_proc,100);
3649: hr_utility.set_location(l_proc,95);
3650: l_effective_end_date := hr_api.g_eot;
3651: end if;
3652: else
3653: hr_utility.set_location(l_proc,100);
3654: l_effective_end_date := l_max_end_date;
3655: end if;
3656: --
3657: hr_utility.set_location(l_proc,105);
3653: hr_utility.set_location(l_proc,100);
3654: l_effective_end_date := l_max_end_date;
3655: end if;
3656: --
3657: hr_utility.set_location(l_proc,105);
3658: --
3659: -- Open out the last dated assignment record to the end of time or
3660: -- max_end_date based on above logic.
3661: --
3681: --
3682: end if;
3683: --
3684: if FPD_FLAG then
3685: hr_utility.set_location(l_proc,110);
3686: if l_max_end_date <> l_final_process_date then
3687: null;
3688: else
3689: hr_utility.set_location(l_proc,115);
3685: hr_utility.set_location(l_proc,110);
3686: if l_max_end_date <> l_final_process_date then
3687: null;
3688: else
3689: hr_utility.set_location(l_proc,115);
3690: l_effective_end_date := hr_api.g_eot;
3691: --
3692: hr_utility.set_location(l_proc,120);
3693: UPDATE per_secondary_ass_statuses sas
3688: else
3689: hr_utility.set_location(l_proc,115);
3690: l_effective_end_date := hr_api.g_eot;
3691: --
3692: hr_utility.set_location(l_proc,120);
3693: UPDATE per_secondary_ass_statuses sas
3694: SET sas.end_date = null
3695: WHERE sas.assignment_id = c_asg_rec.assignment_id
3696: AND sas.end_date = l_final_process_date;
3694: SET sas.end_date = null
3695: WHERE sas.assignment_id = c_asg_rec.assignment_id
3696: AND sas.end_date = l_final_process_date;
3697: --
3698: hr_utility.set_location(l_proc,125);
3699: UPDATE pay_personal_payment_methods_f ppm
3700: SET ppm.effective_end_date = l_effective_end_date
3701: WHERE ppm.assignment_id = c_asg_rec.assignment_id
3702: AND ppm.effective_end_date = l_final_process_date;
3700: SET ppm.effective_end_date = l_effective_end_date
3701: WHERE ppm.assignment_id = c_asg_rec.assignment_id
3702: AND ppm.effective_end_date = l_final_process_date;
3703: --
3704: hr_utility.set_location(l_proc,130);
3705: UPDATE pay_cost_allocations_f pca
3706: SET pca.effective_end_date = l_effective_end_date
3707: WHERE pca.assignment_id = c_asg_rec.assignment_id
3708: AND pca.effective_end_date = l_final_process_date;
3706: SET pca.effective_end_date = l_effective_end_date
3707: WHERE pca.assignment_id = c_asg_rec.assignment_id
3708: AND pca.effective_end_date = l_final_process_date;
3709: --
3710: hr_utility.set_location(l_proc,135);
3711: UPDATE per_spinal_point_placements_f spp
3712: SET spp.effective_end_date = l_effective_end_date
3713: WHERE spp.assignment_id = c_asg_rec.assignment_id
3714: AND spp.effective_end_date = l_final_process_date;
3728: -- customer do not use these TAX tables. Only Customers with HR/CERIDIAN
3729: -- use this TAX tables.
3730:
3731: if hr_general.chk_geocodes_installed ='Y' then
3732: hr_utility.set_location(l_proc,140);
3733: pay_us_update_tax_rec_pkg.reverse_term_emp_tax_records
3734: (c_asg_rec.assignment_id
3735: ,l_final_process_date);
3736:
3738: --
3739: -- SASmith 30-APR-1998
3740: -- Due to date tracking of assignment_budget_values
3741:
3742: hr_utility.set_location(l_proc,145);
3743: --
3744: -- Start of Fix for WWBUG 1408379
3745: --
3746: open c2(c_asg_rec.assignment_id);
3784: end if;
3785: --
3786: -- open up element entries closed down by the termination
3787: --
3788: hr_utility.set_location(l_proc,150);
3789: hrentmnt.maintain_entries_asg(c_asg_rec.assignment_id
3790: ,c_asg_rec.business_group_id
3791: ,'CNCL_TERM'
3792: ,p_actual_termination_date
3807: ,p_person_id => p_person_id
3808: ,p_system_person_type => 'EX_CWK'
3809: );
3810:
3811: hr_utility.set_location(l_proc, 155);
3812:
3813: --
3814: -- Start of API User Hook for the after hook of reverse_terminate_placement
3815: --
3843: );
3844: end loop;
3845: -- 1370960 end
3846:
3847: hr_utility.set_location('Leaving: '||l_proc, 200);
3848:
3849: exception
3850: when hr_api.validate_enabled then
3851: --
3903:
3904:
3905: begin
3906:
3907: hr_utility.set_location('Entering: '||l_proc, 10);
3908: --
3909: -- Get the total length of the placement
3910: --
3911: open c_get_length;
3916:
3917: --
3918: -- The person could not be found.
3919: --
3920: hr_utility.set_location(l_proc, 30);
3921:
3922: end if;
3923:
3924: close c_get_length;
3928: --
3929: p_total_years := l_total_years;
3930: p_total_months := l_total_months;
3931:
3932: hr_utility.set_location('Leaving: '||l_proc, 30);
3933:
3934: end get_length_of_placement;
3935:
3936: end hr_contingent_worker_api;