[Home] [Help]
463: l_phone_id number;
464: --
465: begin
466:
467: hr_utility.set_location('Entering:'|| l_proc, 10);
468:
469: --
470: -- Issue a savepoint
471: --
609: ,p_hook_type => 'BP'
610: );
611: end;
612: --
613: hr_utility.set_location(l_proc, 20);
614: --
615: -- Validation in addition to Row Handlers
616: --
617: -- If the specified person type id is not null then check that it
624: ,p_business_group_id => p_business_group_id
625: ,p_expected_sys_type => 'CWK'
626: );
627: --
628: hr_utility.set_location(l_proc, 30);
629: --
630: -- Initialise local variables as appropriate
631: --
632: l_applicant_number := null;
777: ,p_dob_null_warning => l_dob_null_warning
778: ,p_orig_hire_warning => l_orig_hire_warning
779: );
780: --
781: hr_utility.set_location(l_proc, 40);
782:
783: --
784: -- Add this person to the relevant security definitions.
785: --
786: hr_security_internal.populate_new_person
787: (p_person_id => l_person_id
788: ,p_business_group_id => p_business_group_id);
789:
790: hr_utility.set_location(l_proc, 45);
791:
792: --
793: -- Create the period of placement record
794: --
802: --
803: ,p_object_version_number => l_pdp_object_version_number
804: );
805:
806: hr_utility.set_location(l_proc, 60);
807:
808: --
809: -- Maintain Person Type Usages
810: --
814: ,p_person_type_id => l_person_type_id
815: );
816: --
817: --
818: hr_utility.set_location(l_proc, 70);
819: --
820: -- Create the default non-payrolled assignment
821: --
822: hr_assignment_internal.create_default_cwk_asg
830: ,p_assignment_sequence => l_assignment_sequence
831: ,p_assignment_number => l_assignment_number
832: );
833: --
834: hr_utility.set_location(l_proc, 80);
835: --
836: -- Create a phone row using the newly created person as the parent row.
837: -- This phone row replaces the work_telephone column on the person.
838: --
1034: p_full_name := l_full_name;
1035: p_comment_id := l_comment_id;
1036: p_name_combination_warning := l_name_combination_warning;
1037: --
1038: hr_utility.set_location(' Leaving:'||l_proc, 70);
1039: exception
1040: when hr_api.validate_enabled then
1041: --
1042: -- As the Validate_Enabled exception has been raised
1060: p_per_effective_end_date := null;
1061: p_full_name := null;
1062: p_comment_id := null;
1063: p_name_combination_warning := l_name_combination_warning;
1064: hr_utility.set_location(' Leaving:'||l_proc, 80);
1065: when others then
1066: --
1067: -- A validation or unexpected error has occured
1068: --
1082: p_per_effective_end_date := null;
1083: p_full_name := null;
1084: p_comment_id := null;
1085: p_name_combination_warning := l_name_combination_warning;
1086: hr_utility.set_location(' Leaving:'||l_proc, 90);
1087: raise;
1088: end create_cwk;
1089: --
1090: -- ----------------------------------------------------------------------------
1169: AND ppt.system_person_type IN ('APL','EX_APL')
1170: ORDER BY effective_start_date;
1171: --
1172: begin
1173: hr_utility.set_location('Entering:'|| l_proc, 10);
1174:
1175: --
1176: -- Ensure mandatory arguments have been passed
1177: --
1216: (p_module_name => 'convert_to_cwk'
1217: ,p_hook_type => 'BP'
1218: );
1219: end;
1220: hr_utility.set_location(l_proc, 20);
1221: --
1222: -- Validation in addition to Row Handlers
1223: --
1224: -- Get derived details for person on effective date
1245: (p_person_type_id => l_person_type_id
1246: ,p_business_group_id => l_per_details_rec.business_group_id
1247: ,p_expected_sys_type => 'CWK'
1248: );
1249: hr_utility.set_location(l_proc, 30);
1250: --
1251: -- Check for future person_type_changes
1252: --
1253: if (nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y') then
1285: (l_per_details_rec.business_group_id,
1286: 'OTHER');
1287: else
1288: l_person_type_id1 := l_per_details_rec.person_type_id;
1289: hr_utility.set_location(l_proc,50);
1290: end if;
1291: --
1292: -- Ensure the npw_number will not be changed if it exists
1293: --
1293: --
1294: IF l_per_details_rec.npw_number IS NOT NULL
1295: AND NVL(p_npw_number,hr_api.g_number) <> l_per_details_rec.npw_number
1296: THEN
1297: hr_utility.set_location(l_proc,60);
1298: p_npw_number := l_per_details_rec.npw_number;
1299: END IF;
1300: --
1301: -- Check: is this back-to-back contract?
1307: ,'CWK'
1308: ,l_effective_date-1) then
1309: l_datetrack_update_mode := 'CORRECTION';
1310: l_ptu_update_mode := 'CORRECTION';
1311: hr_utility.set_location(l_proc,70);
1312: elsif hr_general2.is_person_type(p_person_id
1313: ,'EX_EMP'
1314: ,l_effective_date)
1315: and hr_general2.is_person_type(p_person_id
1316: ,'EMP'
1317: ,l_effective_date-1) then
1318: l_datetrack_update_mode := 'CORRECTION';
1319: l_ptu_update_mode := 'UPDATE';
1320: hr_utility.set_location(l_proc,80);
1321: else
1322: --
1323: -- Support the use of CORRECTION for the person table handler routines.
1324: --
1354: ,p_dob_null_warning => l_dob_null_warning
1355: ,p_orig_hire_warning => l_orig_hire_warning
1356: );
1357:
1358: hr_utility.set_location(l_proc, 90);
1359:
1360: hr_security_internal.populate_new_person
1361: (p_business_group_id => l_per_details_rec.business_group_id
1362: ,p_person_id => p_person_id);
1360: hr_security_internal.populate_new_person
1361: (p_business_group_id => l_per_details_rec.business_group_id
1362: ,p_person_id => p_person_id);
1363:
1364: hr_utility.set_location(l_proc, 93);
1365:
1366: --
1367: -- Maintain PTU
1368: --
1372: ,p_person_type_id => l_person_type_id
1373: ,p_datetrack_update_mode => l_ptu_update_mode
1374: );
1375:
1376: hr_utility.set_location(l_proc, 95);
1377:
1378: --
1379: -- Create the period of placement record
1380: --
1388: --
1389: ,p_object_version_number => l_pdp_object_version_number
1390: );
1391: --
1392: hr_utility.set_location(l_proc, 100);
1393: --
1394: -- Create the default non-payrolled assignment
1395: --
1396: hr_assignment_internal.create_default_cwk_asg
1408: -- ER FPT
1409:
1410: for ptu_rec in fpt_ptu_details loop
1411:
1412: hr_utility.set_location('Updating future per_all_people_f rows',105);
1413:
1414: select object_version_number,effective_start_date,applicant_number
1415: into l_ovn,l_effective_start_date,l_applicant_number
1416: from per_all_people_f
1455: ,p_orig_hire_warning => l_orig_hire_warning
1456: );
1457: end loop;
1458: -- ER FPT
1459: hr_utility.set_location(l_proc, 110);
1460: --
1461: -- Call After Process User Hook
1462: --
1463: begin
1498: p_assignment_id := l_assignment_id;
1499: p_asg_object_version_number := l_asg_object_version_number;
1500: p_assignment_sequence := l_assignment_sequence;
1501: --
1502: hr_utility.set_location(' Leaving:'||l_proc, 170);
1503: exception
1504: when hr_api.validate_enabled then
1505: --
1506: -- As the Validate_Enabled exception has been raised
1519: p_per_effective_end_date := null;
1520: p_assignment_id := null;
1521: p_asg_object_version_number := null;
1522: p_assignment_sequence := null;
1523: hr_utility.set_location(' Leaving:'||l_proc, 180);
1524: when others then
1525: --
1526: -- A validation or unexpected error has occured
1527: --
1537: p_assignment_id := null;
1538: p_asg_object_version_number := null;
1539: p_assignment_sequence := null;
1540: --
1541: hr_utility.set_location(' Leaving:'||l_proc, 190);
1542: raise;
1543: end convert_to_cwk;
1544: --
1545: -- ----------------------------------------------------------------------------
1622: and ptu.effective_start_date >= p_effective_date
1623: and ppt.system_person_type = 'APL');
1624: --
1625: begin
1626: hr_utility.set_location('Entering:'|| l_proc, 10);
1627: --
1628: -- Ensure mandatory arguments have been passed
1629: --
1630: hr_api.mandatory_arg_error
1667: (p_module_name => 'apply_for_job'
1668: ,p_hook_type => 'BP'
1669: );
1670: end;
1671: hr_utility.set_location(l_proc, 20);
1672: --
1673: -- Validation in addition to Row Handlers
1674: --
1675: --
1686: fnd_message.set_name('PER','PER_289602_CWK_INV_PERSON_ID');
1687: fnd_message.raise_error;
1688: END IF;
1689: CLOSE csr_per_details;
1690: hr_utility.set_location(l_proc, 25);
1691: --
1692: -- Check for future person_type_changes
1693: --
1694: if hr_person.chk_future_person_type(l_per_details_rec.system_person_type
1698: fnd_message.set_name('PAY','HR_7193_PER_FUT_TYPE_EXISTS');
1699: fnd_message.raise_error;
1700: end if;
1701:
1702: hr_utility.set_location(l_proc, 28);
1703: --
1704: -- Check against the existing person type records.
1705: --
1706: open csr_fut_apl(p_person_id,l_effective_date);
1714: fnd_message.raise_error;
1715: else
1716: close csr_fut_apl;
1717: end if;
1718: hr_utility.set_location(l_proc, 30);
1719: --
1720: -- If the specified person type id is not null then check that it
1721: -- corresponds to type 'APL', is currently active and is in the correct
1722: -- business group, otherwise set person type to the active default for APL
1726: (p_person_type_id => l_person_type_id
1727: ,p_business_group_id => l_per_details_rec.business_group_id
1728: ,p_expected_sys_type => 'APL'
1729: );
1730: hr_utility.set_location(l_proc, 40);
1731: --
1732: -- Ensure the applicant number will not be changed if it exists
1733: --
1734: IF l_per_details_rec.applicant_number IS NOT NULL
1733: --
1734: IF l_per_details_rec.applicant_number IS NOT NULL
1735: AND NVL(p_applicant_number,hr_api.g_number) <> l_per_details_rec.applicant_number
1736: THEN
1737: hr_utility.set_location(l_proc,50);
1738: p_applicant_number := l_per_details_rec.applicant_number;
1739: END IF;
1740: --
1741: /* Added for bug 9026035 */
1772: ,p_name_combination_warning => l_name_combination_warning
1773: ,p_dob_null_warning => l_dob_null_warning
1774: ,p_orig_hire_warning => l_orig_hire_warning
1775: );
1776: hr_utility.set_location(l_proc, 60);
1777: --
1778: hr_security_internal.populate_new_person
1779: (p_business_group_id => l_per_details_rec.business_group_id
1780: ,p_person_id => p_person_id
1778: hr_security_internal.populate_new_person
1779: (p_business_group_id => l_per_details_rec.business_group_id
1780: ,p_person_id => p_person_id
1781: );
1782: hr_utility.set_location(l_proc, 70);
1783: --
1784: -- Maintain PTU
1785: --
1786: hr_per_type_usage_internal.maintain_person_type_usage
1787: (p_effective_date => l_effective_date
1788: ,p_person_id => p_person_id
1789: ,p_person_type_id => l_person_type_id
1790: );
1791: hr_utility.set_location(l_proc, 80);
1792: --
1793: -- create an application.
1794: --
1795: per_apl_ins.ins
1799: ,p_date_received => l_effective_date
1800: ,p_object_version_number => l_apl_object_version_number
1801: ,p_effective_date => l_effective_date
1802: );
1803: hr_utility.set_location(l_proc, 90);
1804: --
1805: hr_assignment_internal.create_default_apl_asg
1806: (p_effective_date => l_effective_date
1807: ,p_person_id => p_person_id
1810: ,p_assignment_id => l_assignment_id
1811: ,p_object_version_number => l_asg_object_version_number
1812: ,p_assignment_sequence => l_assignment_sequence
1813: );
1814: hr_utility.set_location(l_proc, 100);
1815: --
1816: -- Call After Process User Hook
1817: --
1818: begin
1854: p_assignment_id := l_assignment_id;
1855: p_asg_object_version_number := l_asg_object_version_number;
1856: p_assignment_sequence := l_assignment_sequence;
1857: --
1858: hr_utility.set_location(' Leaving:'||l_proc, 170);
1859: exception
1860: when hr_api.validate_enabled then
1861: --
1862: -- As the Validate_Enabled exception has been raised
1876: p_apl_object_version_number := null;
1877: p_assignment_id := null;
1878: p_asg_object_version_number := null;
1879: p_assignment_sequence := null;
1880: hr_utility.set_location(' Leaving:'||l_proc, 180);
1881: when others then
1882: --
1883: -- A validation or unexpected error has occured
1884: --
1896: p_assignment_id := null;
1897: p_asg_object_version_number := null;
1898: p_assignment_sequence := null;
1899: --
1900: hr_utility.set_location(' Leaving:'||l_proc, 190);
1901: raise;
1902: end apply_for_job;
1903: --
1904: -- ----------------------------------------------------------------------------
1917: --
1918: begin
1919: if p_status = 'SUPERVISOR' then
1920: begin
1921: hr_utility.set_location(l_proc,10);
1922: Select 'X'
1923: into v_dummy
1924: from sys.dual
1925: where exists (select 'Assignments Exist'
1935: return;
1936: end;
1937: elsif p_status = 'EVENT' then
1938: begin
1939: hr_utility.set_location(l_proc,30);
1940: select 'X'
1941: into v_dummy
1942: from sys.dual
1943: where exists ( select 'Events exist'
1959: end;
1960: end if;
1961: if p_status = 'INTERVIEW' then
1962: begin
1963: hr_utility.set_location(l_proc,40);
1964: select 'X'
1965: into v_dummy
1966: from sys.dual
1967: where exists(select 'Interview rows exist'
1991: end;
1992: end if;
1993: if p_status = 'REVIEW' then
1994: begin
1995: hr_utility.set_location(l_proc,50);
1996: select 'X'
1997: into v_dummy
1998: from sys.dual
1999: where exists ( select 'Perf Review rows exist'
2009: end;
2010: end if;
2011: if p_status = 'RECRUITER' then
2012: begin
2013: hr_utility.set_location(l_proc,60);
2014: select 'X'
2015: into v_dummy
2016: from sys.dual
2017: where exists (select 'Recruiter for vacancy'
2185: -- ER FPT
2186: --
2187: --
2188: begin
2189: hr_utility.set_location('Entering:'|| l_proc, 1);
2190: --
2191: -- Issue a savepoint.
2192: --
2193: savepoint actual_termination_placement;
2201: l_actual_termination_date := trunc(p_actual_termination_date);
2202: l_effective_date := trunc(p_effective_date);
2203: l_date_start := trunc(p_date_start);
2204: --
2205: hr_utility.set_location(l_proc, 10);
2206: --
2207: -- Validation in addition to Table Handlers
2208: --
2209: -- Check period of placement and get business group details for validation.
2225: ,p_argument => 'actual_termination_date'
2226: ,p_argument_value => l_actual_termination_date
2227: );
2228: --
2229: hr_utility.set_location(l_proc, 20);
2230: --
2231: open csr_get_derived_details;
2232: fetch csr_get_derived_details
2233: into l_business_group_id
2240: --
2241: if csr_get_derived_details%NOTFOUND
2242: then
2243: --
2244: hr_utility.set_location(l_proc, 30);
2245: --
2246: close csr_get_derived_details;
2247: --
2248: fnd_message.set_name('PER','HR_289609_PDP_NOT_EXISTS');
2250: end if;
2251: --
2252: close csr_get_derived_details;
2253:
2254: hr_utility.set_location(l_proc, 40);
2255: --
2256: -- Check that the corresponding person has a person type usage of
2257: -- contingent worker at the actual termination date.
2258: --
2261: ,p_person_type => 'CWK'
2262: ,p_effective_date => l_actual_termination_date))
2263: then
2264:
2265: hr_utility.set_location(l_proc, 50);
2266:
2267: fnd_message.set_name('PER','HR_289612_PDP_NOT_PTU_CWK');
2268: fnd_message.raise_error;
2269:
2268: fnd_message.raise_error;
2269:
2270: end if;
2271:
2272: hr_utility.set_location(l_proc, 60);
2273:
2274: --
2275: -- Check that there are not any future changes to the person.
2276: --
2284: if (nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y') then
2285: open csr_fpt_ptu_changes;
2286: fetch csr_fpt_ptu_changes into l_exists;
2287: if csr_fpt_ptu_changes%found then
2288: hr_utility.set_location(l_proc, 75);
2289: fnd_message.set_name('PAY','HR_7957_PDS_INV_ATT_FUTURE');
2290: fnd_message.raise_error;
2291: end if;
2292: close csr_fpt_ptu_changes;
2291: end if;
2292: close csr_fpt_ptu_changes;
2293: else
2294:
2295: hr_utility.set_location(l_proc, 70);
2296: --
2297: close csr_future_per_changes;
2298: --
2299: fnd_message.set_name('PAY','HR_7957_PDS_INV_ATT_FUTURE');
2300: fnd_message.raise_error;
2301: end if;
2302: end if;
2303: --
2304: hr_utility.set_location(l_proc, 80);
2305: --
2306: close csr_future_per_changes;
2307:
2308: --
2316: ,p_business_group_id => l_business_group_id
2317: ,p_expected_sys_type => 'EX_CWK'
2318: );
2319: --
2320: hr_utility.set_location(l_proc, 90);
2321: hr_utility.trace('l_assignment_status_type_id: '||
2322: to_char(l_assignment_status_type_id));
2323: hr_utility.trace('l_business_group_id: '||
2324: to_char(l_business_group_id));
2317: ,p_expected_sys_type => 'EX_CWK'
2318: );
2319: --
2320: hr_utility.set_location(l_proc, 90);
2321: hr_utility.trace('l_assignment_status_type_id: '||
2322: to_char(l_assignment_status_type_id));
2323: hr_utility.trace('l_business_group_id: '||
2324: to_char(l_business_group_id));
2325: hr_utility.trace('l_legislation_code: '||l_legislation_code);
2319: --
2320: hr_utility.set_location(l_proc, 90);
2321: hr_utility.trace('l_assignment_status_type_id: '||
2322: to_char(l_assignment_status_type_id));
2323: hr_utility.trace('l_business_group_id: '||
2324: to_char(l_business_group_id));
2325: hr_utility.trace('l_legislation_code: '||l_legislation_code);
2326:
2327:
2321: hr_utility.trace('l_assignment_status_type_id: '||
2322: to_char(l_assignment_status_type_id));
2323: hr_utility.trace('l_business_group_id: '||
2324: to_char(l_business_group_id));
2325: hr_utility.trace('l_legislation_code: '||l_legislation_code);
2326:
2327:
2328: --
2329: -- If l_assignment_status_type_id is g_number then derive it's
2341: ,p_expected_system_status => 'TERM_CWK_ASG'
2342: );
2343: */
2344: --
2345: hr_utility.set_location(l_proc, 100);
2346: --
2347: -- Validate/derive the last standard process date.
2348: --
2349: --
2346: --
2347: -- Validate/derive the last standard process date.
2348: --
2349: --
2350: hr_utility.set_location(l_proc, 130);
2351: --
2352: if l_last_standard_process_date is not null
2353: then
2354: --
2351: --
2352: if l_last_standard_process_date is not null
2353: then
2354: --
2355: hr_utility.set_location(l_proc, 140);
2356: --
2357: -- Check that the last standard process date is on or after the actual
2358: -- termination date.
2359: --
2359: --
2360: if not l_last_standard_process_date >= l_actual_termination_date
2361: then
2362: --
2363: hr_utility.set_location(l_proc, 150);
2364: --
2365: fnd_message.set_name('PAY','HR_7505_PDS_INV_LSP_ATT_DT');
2366: fnd_message.raise_error;
2367: end if;
2366: fnd_message.raise_error;
2367: end if;
2368: else
2369: --
2370: hr_utility.set_location(l_proc, 160);
2371: --
2372: -- Last standard process date is null => derive it.
2373: --
2374: -- Find the max tpe end date of any payrolls that are assigned.
2379: --
2380: if csr_get_max_tpe_end_date%NOTFOUND
2381: then
2382: --
2383: hr_utility.set_location(l_proc, 170);
2384: --
2385: close csr_get_max_tpe_end_date;
2386: --
2387: -- As the cursor should always return at least a null value, this
2394: end if;
2395: --
2396: close csr_get_max_tpe_end_date;
2397: --
2398: hr_utility.set_location(l_proc, 180);
2399: --
2400: if l_max_tpe_end_date is not null
2401: then
2402: --
2399: --
2400: if l_max_tpe_end_date is not null
2401: then
2402: --
2403: hr_utility.set_location(l_proc, 190);
2404: --
2405: -- A time period end date has been found, so set the last standard
2406: -- process date to that.
2407: --
2407: --
2408: l_last_standard_process_date := l_max_tpe_end_date;
2409: else
2410: --
2411: hr_utility.set_location(l_proc, 200);
2412: --
2413: -- Either there was not an assignment assigned to a payroll, or
2414: -- there was no time period for that payroll as of the actual
2415: -- termination date. It doesn't matter which as we will default
2418: l_last_standard_process_date := l_actual_termination_date;
2419: end if;
2420: end if;
2421: --
2422: hr_utility.set_location(l_proc, 240);
2423: --
2424: -- Lock the person record in PER_PEOPLE_F ready for UPDATE at a later point.
2425: -- (Note: This is necessary because calling the table handlers in locking
2426: -- ladder order invokes an error in per_pdp_upd.upd due to the person
2452: ,p_validation_start_date => l_validation_start_date
2453: ,p_validation_end_date => l_validation_end_date
2454: );
2455:
2456: hr_utility.set_location(l_proc, 245);
2457: --
2458: -- Update actual termination date and last standard process date in
2459: -- periods of placement table.
2460:
2480: close csr_date_of_death;
2481: end if;
2482: --
2483: if l_dod_warning = TRUE then
2484: hr_utility.set_location(l_proc, 998);
2485: else
2486: hr_utility.set_location(l_proc,999);
2487: end if;
2488: --
2482: --
2483: if l_dod_warning = TRUE then
2484: hr_utility.set_location(l_proc, 998);
2485: else
2486: hr_utility.set_location(l_proc,999);
2487: end if;
2488: --
2489: -- Update person type in person table.
2490: --
2487: end if;
2488: --
2489: -- Update person type in person table.
2490: --
2491: hr_utility.set_location(l_proc, 250);
2492: per_per_upd.upd
2493: (p_person_id => l_person_id
2494: ,p_effective_start_date => l_effective_start_date
2495: ,p_effective_end_date => l_effective_end_date
2516: set current_npw_flag = null
2517: where person_id = p_person_id
2518: and effective_start_date > l_actual_termination_date;
2519: --
2520: hr_utility.set_location(l_proc, 260);
2521: --
2522: -- Terminate the assignments, ensuring that the non-primaries are
2523: -- processed before the primary (implemented via 'order by primary_flag'
2524: -- clause in cursor declaration).
2525: --
2526: for csr_rec in csr_get_asgs_to_terminate
2527: loop
2528: --
2529: hr_utility.set_location(l_proc, 270);
2530: --
2531: hr_assignment_internal.actual_term_cwk_asg
2532: (p_assignment_id => csr_rec.assignment_id
2533: ,p_object_version_number => csr_rec.object_version_number
2540: ,p_entries_changed_warning => l_cr_entries_changed_warn
2541: ,p_pay_proposal_warning => l_pay_proposal_warn
2542: );
2543: --
2544: hr_utility.set_location(l_proc, 280);
2545: --
2546: -- Set entries changed warning using the precedence of 'S', then 'Y', then
2547: -- 'N'.
2548: --
2548: --
2549: if l_cr_entries_changed_warn = 'S' or
2550: l_entries_changed_warning = 'S' then
2551: --
2552: hr_utility.set_location(l_proc, 290);
2553: --
2554: l_entries_changed_warning := 'S';
2555: --
2556: elsif l_cr_entries_changed_warn = 'Y' or
2555: --
2556: elsif l_cr_entries_changed_warn = 'Y' or
2557: l_entries_changed_warning = 'Y' then
2558: --
2559: hr_utility.set_location(l_proc, 300);
2560: --
2561: l_entries_changed_warning := 'Y';
2562:
2563: else
2561: l_entries_changed_warning := 'Y';
2562:
2563: else
2564: --
2565: hr_utility.set_location(l_proc, 305);
2566: --
2567: l_entries_changed_warning := 'N';
2568:
2569: end if;
2567: l_entries_changed_warning := 'N';
2568:
2569: end if;
2570: --
2571: hr_utility.set_location(l_proc, 310);
2572: --
2573: -- Set future changes warning.
2574: --
2575: if l_cr_asg_future_changes_warn or l_asg_future_changes_warning
2574: --
2575: if l_cr_asg_future_changes_warn or l_asg_future_changes_warning
2576: then
2577: --
2578: hr_utility.set_location(l_proc, 320);
2579: --
2580: l_asg_future_changes_warning := TRUE;
2581:
2582: end if;
2582: end if;
2583:
2584: end loop;
2585: --
2586: hr_utility.set_location(l_proc, 330);
2587: --
2588: -- Added code to support the following Out warning parameters.
2589: --
2590: l_status := 'SUPERVISOR';
2669: p_last_standard_process_date := l_last_standard_process_date;
2670: p_object_version_number := l_pdp_object_version_number;
2671: --
2672: --
2673: hr_utility.set_location(' Leaving:'||l_proc, 340);
2674: exception
2675: when hr_api.validate_enabled then
2676: --
2677: -- As the Validate_Enabled exception has been raised
2783: order by asg.primary_flag;
2784: --
2785:
2786: begin
2787: hr_utility.set_location('Entering:'|| l_proc, 1);
2788: --
2789: l_final_process_date := trunc(p_final_process_date);
2790: --
2791: -- Issue a savepoint.
2791: -- Issue a savepoint.
2792: --
2793: savepoint final_process_placement;
2794:
2795: hr_utility.set_location(l_proc, 10);
2796: --
2797: -- Validation in addition to Table Handlers
2798: --
2799: -- Check person id.
2819: ,p_argument => 'object_version_number'
2820: ,p_argument_value => p_object_version_number
2821: );
2822: --
2823: hr_utility.set_location(l_proc, 20);
2824: --
2825: open csr_get_derived_details;
2826: fetch csr_get_derived_details
2827: into l_legislation_code
2832: --
2833: if csr_get_derived_details%NOTFOUND
2834: then
2835: --
2836: hr_utility.set_location(l_proc, 30);
2837: --
2838: close csr_get_derived_details;
2839: --
2840: fnd_message.set_name('PER','HR_289609_PDP_NOT_EXISTS');
2851: fnd_message.set_name('PAY','HR_7155_OBJECT_INVALID');
2852: fnd_message.raise_error;
2853: end if;
2854:
2855: hr_utility.set_location(l_proc, 40);
2856: --
2857: -- Check that the actual termination date has already been set.
2858: --
2859: if l_actual_termination_date is null
2858: --
2859: if l_actual_termination_date is null
2860: then
2861: --
2862: hr_utility.set_location(l_proc, 50);
2863: --
2864: fnd_message.set_name('PAY','HR_51007_ASG_INV_NOT_ACT_TERM');
2865: fnd_message.raise_error;
2866: end if;
2920: l_exemppet_eff_date := p_final_process_date;
2921: --
2922: end if;
2923: --
2924: hr_utility.set_location(l_proc, 90);
2925: --
2926: -- Check that the corresponding person is of EX_CWK system person type.
2927: --
2928: if not (hr_general2.is_person_type
2930: ,p_person_type => 'EX_CWK'
2931: ,p_effective_date => l_exemppet_eff_date))
2932: then
2933: --
2934: hr_utility.set_location(l_proc, 100);
2935: --
2936: fnd_message.set_name('PER','HR_289613_PDP_NOT_PTU_EX_CWK');
2937: fnd_message.raise_error;
2938: --
2937: fnd_message.raise_error;
2938: --
2939: end if;
2940: --
2941: hr_utility.set_location(l_proc, 110);
2942: --
2943: --
2944: -- Check that there are no COBRA benefits after the final process date.
2945: --
2955: ,p_effective_date => l_final_process_date
2956: );
2957:
2958: --
2959: hr_utility.set_location(l_proc, 120);
2960: --
2961: -- Final process the assignments, ensuring that the non-primaries are
2962: -- processed before the primary (implemented via 'order by primary_flag'
2963: -- clause in cursor declaration).
2964: --
2965: for csr_rec in csr_get_asgs_to_final_proc
2966: loop
2967: --
2968: hr_utility.set_location(l_proc, 130);
2969: --
2970: hr_assignment_internal.final_process_cwk_asg
2971: (p_assignment_id => csr_rec.assignment_id
2972: ,p_object_version_number => csr_rec.object_version_number
2978: ,p_asg_future_changes_warning => l_cr_asg_future_changes_warn
2979: ,p_entries_changed_warning => l_cr_entries_changed_warn
2980: );
2981: --
2982: hr_utility.set_location(l_proc, 140);
2983: --
2984: -- Set entries changed warning using the precedence of 'S', then 'Y', then
2985: -- 'N'.
2986: --
2987: if l_cr_entries_changed_warn = 'S'
2988: or l_entries_changed_warning = 'S'
2989: then
2990: --
2991: hr_utility.set_location(l_proc, 150);
2992: --
2993: l_entries_changed_warning := 'S';
2994: --
2995: elsif l_cr_entries_changed_warn = 'Y'
2995: elsif l_cr_entries_changed_warn = 'Y'
2996: or l_entries_changed_warning = 'Y'
2997: then
2998: --
2999: hr_utility.set_location(l_proc, 160);
3000: --
3001: l_entries_changed_warning := 'Y';
3002: --
3003: else
3001: l_entries_changed_warning := 'Y';
3002: --
3003: else
3004: --
3005: hr_utility.set_location(l_proc, 165);
3006: --
3007: l_entries_changed_warning := 'N';
3008: --
3009: end if;
3007: l_entries_changed_warning := 'N';
3008: --
3009: end if;
3010: --
3011: hr_utility.set_location(l_proc, 170);
3012: --
3013: -- Set future changes warning.
3014: --
3015: if l_cr_asg_future_changes_warn
3014: --
3015: if l_cr_asg_future_changes_warn
3016: then
3017: --
3018: hr_utility.set_location(l_proc, 180);
3019: --
3020: l_asg_future_changes_warning := TRUE;
3021: end if;
3022: --
3024: --
3025: if l_cr_org_now_no_manager_warn
3026: then
3027: --
3028: hr_utility.set_location(l_proc, 190);
3029: --
3030: l_org_now_no_manager_warning := TRUE;
3031: end if;
3032: end loop;
3030: l_org_now_no_manager_warning := TRUE;
3031: end if;
3032: end loop;
3033:
3034: hr_utility.set_location(l_proc, 200);
3035:
3036: --
3037: -- When in validation only mode raise the Validate_Enabled exception
3038: --
3047: p_final_process_date := l_final_process_date;
3048: p_object_version_number := l_object_version_number;
3049: p_org_now_no_manager_warning := l_org_now_no_manager_warning;
3050: --
3051: hr_utility.set_location(' Leaving:'||l_proc, 400);
3052: exception
3053: when hr_api.validate_enabled then
3054: --
3055: -- As the Validate_Enabled exception has been raised
3216: -- end fix 1370960
3217:
3218: begin
3219:
3220: hr_utility.set_location('Entering: '||l_proc, 10);
3221:
3222: --
3223: -- Issue a savepoint
3224: --
3223: -- Issue a savepoint
3224: --
3225: savepoint terminate_placement;
3226:
3227: hr_utility.set_location(l_proc, 15);
3228:
3229: /* For CWK Phase I we default the final process
3230: and last standard process date to the actual
3231: termination date so that assignments are immediately
3325: end;
3326: --
3327: -- End of API User Hook for the before hook of actual_termination
3328: --
3329: hr_utility.set_location(l_proc, 20);
3330:
3331: /*
3332: ** We need to get the details currently on the PDP record so that
3333: ** we know if the person has already been partially or fully terminated.
3340: into l_curr_actual_termination_date
3341: ,l_curr_final_process_date;
3342: close csr_get_pdp_details;
3343:
3344: hr_utility.set_location(l_proc, 30);
3345:
3346: /*
3347: ** Save the non-termination related PDP information....
3348: */
3417: ,p_information29 => p_information29
3418: ,p_information30 => p_information30
3419: );
3420:
3421: hr_utility.set_location(l_proc, 40);
3422:
3423: /*
3424: ** Process actual termination date if it's set for the first time....
3425: */
3426: if l_curr_actual_termination_date is null
3427: and p_actual_termination_date is not null
3428: then
3429:
3430: hr_utility.set_location(l_proc, 50);
3431:
3432: hr_contingent_worker_api.actual_termination_placement
3433: (p_validate => FALSE
3434: ,p_effective_date => p_effective_date
3476: -- end fix 1370960
3477:
3478: end if;
3479:
3480: hr_utility.set_location(l_proc, 60);
3481:
3482: /*
3483: ** If it's set process final process date....
3484: */
3485: if l_curr_final_process_date is null
3486: and l_final_process_date is not null
3487: then
3488:
3489: hr_utility.set_location(l_proc, 70);
3490:
3491: hr_contingent_worker_api.final_process_placement
3492: (p_validate => FALSE
3493: ,p_person_id => p_person_id
3499: ,p_entries_changed_warning => p_entries_changed_warning
3500: );
3501: end if;
3502:
3503: hr_utility.set_location(l_proc, 80);
3504: --
3505: -- Added HR workflow for the termination process. Bug 3829474
3506: -- Even though the following call is psecific to period of service,
3507: -- used the same forperiod of placement.
3621: IF p_validate THEN
3622: RAISE hr_api.validate_enabled;
3623: END IF;
3624:
3625: hr_utility.set_location('Leaving: '||l_proc, 90);
3626:
3627: EXCEPTION
3628: when hr_api.validate_enabled then
3629: --
3643: --p_object_version_number := l_object_version_number;
3644: --
3645: raise;
3646: --
3647: hr_utility.set_location('Leaving: '||l_proc, 100);
3648:
3649: end terminate_placement;
3650: --
3651: -- ----------------------------------------------------------------------------
3744: and per.person_type_id = ppt.person_type_id
3745: and ppt.system_person_type in ('EX_APL','APL');
3746: begin
3747:
3748: hr_utility.set_location('Entering: '||l_proc, 10);
3749:
3750: --
3751: -- Issue a savepoint.
3752: --
3783: end;
3784: --
3785: -- End of API User Hook for the before hook of reverse_terminate_placement
3786: --
3787: hr_utility.set_location(l_proc, 20);
3788:
3789: hr_utility.trace('Entered reverse termination for '||p_person_id);
3790: --
3791: hr_utility.set_location(l_proc,25);
3785: -- End of API User Hook for the before hook of reverse_terminate_placement
3786: --
3787: hr_utility.set_location(l_proc, 20);
3788:
3789: hr_utility.trace('Entered reverse termination for '||p_person_id);
3790: --
3791: hr_utility.set_location(l_proc,25);
3792: begin
3793: SELECT pdp.final_process_date
3787: hr_utility.set_location(l_proc, 20);
3788:
3789: hr_utility.trace('Entered reverse termination for '||p_person_id);
3790: --
3791: hr_utility.set_location(l_proc,25);
3792: begin
3793: SELECT pdp.final_process_date
3794: , pdp.last_standard_process_date
3795: INTO l_final_process_date
3803: fnd_message.set_name('PER','HR_289614_PDP_STILL_OPEN');
3804: fnd_message.raise_error;
3805: end;
3806: --
3807: hr_utility.set_location(l_proc,30);
3808:
3809: --
3810: -- Check for future person types
3811: --
3810: -- Check for future person types
3811: --
3812: for fpt_rec in future_person_types loop
3813:
3814: hr_utility.set_location(l_proc,35);
3815: hr_utility.trace('System person type: '||fpt_rec.system_person_type);
3816: -- start of bug 4457651
3817: -- commented out the if condition and redifined it
3818: -- if fpt_rec.system_person_type <> 'EX_CWK' then
3811: --
3812: for fpt_rec in future_person_types loop
3813:
3814: hr_utility.set_location(l_proc,35);
3815: hr_utility.trace('System person type: '||fpt_rec.system_person_type);
3816: -- start of bug 4457651
3817: -- commented out the if condition and redifined it
3818: -- if fpt_rec.system_person_type <> 'EX_CWK' then
3819: -- ER FPT
3828: fnd_message.set_name('PAY','HR_7122_EMP_CNCL_TERM_INVLD');
3829: fnd_message.raise_error;
3830: end if;
3831: --
3832: hr_utility.set_location(l_proc,40);
3833:
3834: --
3835: -- Check for future completed actions.
3836: --
3865: AND pac.effective_date > l_final_process_date);
3866: exception when NO_DATA_FOUND then null;
3867: END;
3868: --
3869: hr_utility.set_location(l_proc,45);
3870:
3871: IF l_action_chk = 'N' THEN
3872: BEGIN
3873: SELECT 'W'
3883: AND pac.payroll_action_id = act.payroll_action_id
3884: AND pac.action_status = 'C'
3885: AND (pac.effective_date BETWEEN l_action_date AND l_final_process_date));
3886: --
3887: hr_utility.set_location(l_proc,7);
3888: exception when NO_DATA_FOUND then null;
3889: END;
3890: END IF;
3891:
3899: if l_action_chk = 'Y' then
3900: p_fut_actns_exist_warning := TRUE;
3901: end if;
3902: --
3903: hr_utility.set_location(l_proc,50);
3904:
3905: FPD_FLAG := (l_final_process_date IS NOT NULL);
3906: --
3907: hr_utility.set_location(l_proc,55);
3903: hr_utility.set_location(l_proc,50);
3904:
3905: FPD_FLAG := (l_final_process_date IS NOT NULL);
3906: --
3907: hr_utility.set_location(l_proc,55);
3908: -- ER FPT
3909: open get_min_eff_start_date;
3910: fetch get_min_eff_start_date into l_eff_start_date;
3911: if l_eff_start_date is not null then
3934: AND p_actual_termination_date
3935: BETWEEN pp.effective_start_date
3936: AND pp.effective_end_date;
3937: --
3938: hr_utility.set_location(l_proc,60);
3939: DELETE per_people_f pp
3940: WHERE pp.person_id = p_person_id
3941: AND pp.effective_start_date > p_actual_termination_date;
3942: --
3939: DELETE per_people_f pp
3940: WHERE pp.person_id = p_person_id
3941: AND pp.effective_start_date > p_actual_termination_date;
3942: --
3943: hr_utility.set_location(l_proc,65);
3944: end if;
3945: --
3946: -- WWBUG # - CERN want to keep old details
3947: -- was a feature of rel 9
4068: */
4069: --
4070: --
4071: --
4072: hr_utility.set_location(l_proc,70);
4073: FOR c_asg_rec IN c_assignment LOOP
4074: --
4075: hr_utility.set_location(l_proc,75);
4076: SELECT per_system_status
4071: --
4072: hr_utility.set_location(l_proc,70);
4073: FOR c_asg_rec IN c_assignment LOOP
4074: --
4075: hr_utility.set_location(l_proc,75);
4076: SELECT per_system_status
4077: INTO l_per_system_status
4078: FROM per_assignment_status_types
4079: WHERE assignment_status_type_id = c_asg_rec.assignment_status_type_id;
4087: FROM per_all_assignments_f
4088: WHERE assignment_id = c_asg_rec.assignment_id
4089: AND effective_end_date = p_actual_termination_date;
4090: --
4091: hr_utility.set_location(l_proc,80);
4092:
4093: SELECT max(asg.effective_end_date)
4094: INTO l_max_end_date
4095: FROM per_all_assignments_f asg
4096: WHERE asg.assignment_id = c_asg_rec.assignment_id;
4097:
4098: --
4099: if l_per_system_status <> 'TERM_CWK_ASG' then
4100: hr_utility.set_location(l_proc,85);
4101: if FPD_FLAG then
4102: hr_utility.set_location(l_proc,90);
4103: if l_max_end_date <> l_final_process_date then
4104: l_effective_end_date := l_max_end_date;
4098: --
4099: if l_per_system_status <> 'TERM_CWK_ASG' then
4100: hr_utility.set_location(l_proc,85);
4101: if FPD_FLAG then
4102: hr_utility.set_location(l_proc,90);
4103: if l_max_end_date <> l_final_process_date then
4104: l_effective_end_date := l_max_end_date;
4105: else
4106: hr_utility.set_location(l_proc,95);
4102: hr_utility.set_location(l_proc,90);
4103: if l_max_end_date <> l_final_process_date then
4104: l_effective_end_date := l_max_end_date;
4105: else
4106: hr_utility.set_location(l_proc,95);
4107: l_effective_end_date := hr_api.g_eot;
4108: end if;
4109: else
4110: hr_utility.set_location(l_proc,100);
4106: hr_utility.set_location(l_proc,95);
4107: l_effective_end_date := hr_api.g_eot;
4108: end if;
4109: else
4110: hr_utility.set_location(l_proc,100);
4111: l_effective_end_date := l_max_end_date;
4112: end if;
4113: --
4114: hr_utility.set_location(l_proc,105);
4110: hr_utility.set_location(l_proc,100);
4111: l_effective_end_date := l_max_end_date;
4112: end if;
4113: --
4114: hr_utility.set_location(l_proc,105);
4115: --
4116: -- Open out the last dated assignment record to the end of time or
4117: -- max_end_date based on above logic.
4118: --
4138: --
4139: end if;
4140: --
4141: if FPD_FLAG then
4142: hr_utility.set_location(l_proc,110);
4143: if l_max_end_date <> l_final_process_date then
4144: null;
4145: else
4146: hr_utility.set_location(l_proc,115);
4142: hr_utility.set_location(l_proc,110);
4143: if l_max_end_date <> l_final_process_date then
4144: null;
4145: else
4146: hr_utility.set_location(l_proc,115);
4147: l_effective_end_date := hr_api.g_eot;
4148: --
4149: hr_utility.set_location(l_proc,120);
4150: UPDATE per_secondary_ass_statuses sas
4145: else
4146: hr_utility.set_location(l_proc,115);
4147: l_effective_end_date := hr_api.g_eot;
4148: --
4149: hr_utility.set_location(l_proc,120);
4150: UPDATE per_secondary_ass_statuses sas
4151: SET sas.end_date = null
4152: WHERE sas.assignment_id = c_asg_rec.assignment_id
4153: AND sas.end_date = l_final_process_date;
4151: SET sas.end_date = null
4152: WHERE sas.assignment_id = c_asg_rec.assignment_id
4153: AND sas.end_date = l_final_process_date;
4154: --
4155: hr_utility.set_location(l_proc,125);
4156: UPDATE pay_personal_payment_methods_f ppm
4157: SET ppm.effective_end_date = l_effective_end_date
4158: WHERE ppm.assignment_id = c_asg_rec.assignment_id
4159: AND ppm.effective_end_date = l_final_process_date;
4157: SET ppm.effective_end_date = l_effective_end_date
4158: WHERE ppm.assignment_id = c_asg_rec.assignment_id
4159: AND ppm.effective_end_date = l_final_process_date;
4160: --
4161: hr_utility.set_location(l_proc,130);
4162: UPDATE pay_cost_allocations_f pca
4163: SET pca.effective_end_date = l_effective_end_date
4164: WHERE pca.assignment_id = c_asg_rec.assignment_id
4165: AND pca.effective_end_date = l_final_process_date;
4163: SET pca.effective_end_date = l_effective_end_date
4164: WHERE pca.assignment_id = c_asg_rec.assignment_id
4165: AND pca.effective_end_date = l_final_process_date;
4166: --
4167: hr_utility.set_location(l_proc,135);
4168: UPDATE per_spinal_point_placements_f spp
4169: SET spp.effective_end_date = l_effective_end_date
4170: WHERE spp.assignment_id = c_asg_rec.assignment_id
4171: AND spp.effective_end_date = l_final_process_date;
4185: -- customer do not use these TAX tables. Only Customers with HR/CERIDIAN
4186: -- use this TAX tables.
4187:
4188: if hr_general.chk_geocodes_installed ='Y' then
4189: hr_utility.set_location(l_proc,140);
4190: pay_us_update_tax_rec_pkg.reverse_term_emp_tax_records
4191: (c_asg_rec.assignment_id
4192: ,l_final_process_date);
4193:
4195: --
4196: -- SASmith 30-APR-1998
4197: -- Due to date tracking of assignment_budget_values
4198:
4199: hr_utility.set_location(l_proc,145);
4200: --
4201: -- Start of Fix for WWBUG 1408379
4202: --
4203: open c2(c_asg_rec.assignment_id);
4241: end if;
4242: --
4243: -- open up element entries closed down by the termination
4244: --
4245: hr_utility.set_location(l_proc,150);
4246: hrentmnt.maintain_entries_asg(c_asg_rec.assignment_id
4247: ,c_asg_rec.business_group_id
4248: ,'CNCL_TERM'
4249: ,p_actual_termination_date
4264: ,p_person_id => p_person_id
4265: ,p_system_person_type => 'EX_CWK'
4266: );
4267:
4268: hr_utility.set_location(l_proc, 155);
4269:
4270: --
4271: -- Start of API User Hook for the after hook of reverse_terminate_placement
4272: --
4300: );
4301: end loop;
4302: -- 1370960 end
4303:
4304: hr_utility.set_location('Leaving: '||l_proc, 200);
4305:
4306: exception
4307: when hr_api.validate_enabled then
4308: --
4360:
4361:
4362: begin
4363:
4364: hr_utility.set_location('Entering: '||l_proc, 10);
4365: --
4366: -- Get the total length of the placement
4367: --
4368: open c_get_length;
4373:
4374: --
4375: -- The person could not be found.
4376: --
4377: hr_utility.set_location(l_proc, 30);
4378:
4379: end if;
4380:
4381: close c_get_length;
4385: --
4386: p_total_years := l_total_years;
4387: p_total_months := l_total_months;
4388:
4389: hr_utility.set_location('Leaving: '||l_proc, 30);
4390:
4391: end get_length_of_placement;
4392:
4393: end hr_contingent_worker_api;