[Home] [Help]
96: select pbg.legislation_code
97: from per_business_groups pbg
98: where pbg.business_group_id = p_business_group_id;
99: begin
100: hr_utility.set_location('Entering:'|| l_proc, 10);
101: --
102: -- Issue a savepoint
103: --
104: savepoint create_person_deployment;
347: p_person_deployment_id := l_person_deployment_id;
348: p_object_version_number := l_object_version_number;
349: p_policy_duration_warning := l_policy_duration_warning;
350: --
351: hr_utility.set_location(' Leaving:'||l_proc, 70);
352: exception
353: when hr_api.validate_enabled then
354: --
355: -- As the Validate_Enabled exception has been raised
363: --
364: p_person_deployment_id := null;
365: p_object_version_number := null;
366: p_policy_duration_warning := null;
367: hr_utility.set_location(' Leaving:'||l_proc, 80);
368: when others then
369: --
370: -- A validation or unexpected error has occured
371: --
376: --
377: p_person_deployment_id := null;
378: p_object_version_number := null;
379: p_policy_duration_warning := null;
380: hr_utility.set_location(' Leaving:'||l_proc, 90);
381: raise;
382: end create_person_deployment;
383: --
384: --
458: l_end_date date;
459: l_status_change_date date;
460: l_proc varchar2(72) := g_package||'update_person_deployment';
461: begin
462: hr_utility.set_location('Entering:'|| l_proc, 10);
463: --
464: -- Issue a savepoint
465: --
466: savepoint update_person_deployment;
701: -- Set all IN OUT and OUT parameters with out values
702: --
703: p_policy_duration_warning := l_policy_duration_warning;
704: --
705: hr_utility.set_location(' Leaving:'||l_proc, 70);
706: exception
707: when hr_api.validate_enabled then
708: --
709: -- As the Validate_Enabled exception has been raised
716: -- when validation only mode is being used.)
717: --
718: p_object_version_number := l_object_version_number;
719: p_policy_duration_warning := null;
720: hr_utility.set_location(' Leaving:'||l_proc, 80);
721: when others then
722: --
723: -- A validation or unexpected error has occured
724: --
728: -- OUT parameters, including warnings, to null
729: --
730: p_object_version_number := l_object_version_number;
731: p_policy_duration_warning := null;
732: hr_utility.set_location(' Leaving:'||l_proc, 90);
733: raise;
734: end update_person_deployment;
735: --
736: --
747: -- Declare cursors and local variables
748: --
749: l_proc varchar2(72) := g_package||'delete_person_deployment';
750: begin
751: hr_utility.set_location('Entering:'|| l_proc, 10);
752: --
753: -- Issue a savepoint
754: --
755: savepoint delete_person_deployment;
812: --
813: -- Set all IN OUT and OUT parameters with out values
814: --
815: --
816: hr_utility.set_location(' Leaving:'||l_proc, 70);
817: exception
818: when hr_api.validate_enabled then
819: --
820: -- As the Validate_Enabled exception has been raised
825: -- Reset IN OUT parameters and set OUT parameters
826: -- (Any key or derived arguments must be set to null
827: -- when validation only mode is being used.)
828: --
829: hr_utility.set_location(' Leaving:'||l_proc, 80);
830: when others then
831: --
832: -- A validation or unexpected error has occured
833: --
835: --
836: -- Reset IN OUT parameters and set all
837: -- OUT parameters, including warnings, to null
838: --
839: hr_utility.set_location(' Leaving:'||l_proc, 90);
840: raise;
841: end delete_person_deployment;
842: --
843: -- ----------------------------------------------------------------------------
1157: where people_group_id = cur_p_people_group_id;
1158: -- for people group fields population.
1159:
1160: begin
1161: hr_utility.set_location('Entering:'|| l_proc, 10);
1162: --
1163: -- Issue a savepoint
1164: --
1165: savepoint initiate_deployment;
1181: fnd_message.raise_error;
1182: else
1183: close csr_person_deployment;
1184: --
1185: hr_utility.set_location(l_proc,30);
1186: --
1187: end if;
1188: --
1189: if l_dpl_rec.status <> 'DRAFT' then
1221: l_varray_d(9):='Person Developer DF';
1222:
1223: hr_dflex_utility.create_ignore_df_validation(p_rec=>l_varray_d);
1224: --
1225: hr_utility.set_location(l_proc,20);
1226: --
1227: -- Process Logic
1228: --
1229: --
1235: fetch csr_home_per_values into l_home_last_name,l_home_sex,l_home_party_id,
1236: l_home_original_date_of_hire,l_home_first_name; -- 8605683 , 8688303
1237: close csr_home_per_values;
1238: --
1239: hr_utility.set_location(l_proc,40);
1240: --
1241: -- Set the global transfer in process variable used by person rowhandler validation
1242: --
1243: per_per_bus.g_global_transfer_in_process := true;
1245: -- Start of termination or update to the Home BG records
1246: --
1247: if nvl(l_dpl_rec.permanent,'N') = 'Y' then
1248: --
1249: hr_utility.set_location(l_proc,170);
1250: --
1251: -- termination of home employee record at (l_dpl_rec.start_date-1)
1252: --
1253:
1280: fnd_profile.put(name => 'HR_PROPAGATE_DATA_CHANGES'
1281: ,val => 'Y');
1282: else
1283: --
1284: hr_utility.set_location(l_proc,160);
1285: --
1286: -- suspend the active home assignments, leaving the others.
1287: --
1288: for l_home_asg_rec in csr_active_home_asgs(l_dpl_rec.from_person_id) loop
1322: -- Start of create or update person section
1323: --
1324: if l_dpl_rec.to_person_id is null then --creating new emp in host BG
1325: --
1326: hr_utility.set_location(l_proc,50);
1327: --
1328: hr_employee_api.create_employee
1329: (p_validate => p_validate
1330: ,p_hire_date => l_dpl_rec.start_date
1407: fnd_message.raise_error;
1408: --
1409: else --we should have the all clear to hire existing person
1410: --
1411: hr_utility.set_location(l_proc,70);
1412: --
1413: l_host_person_id := l_dpl_rec.to_person_id;
1414: --
1415: open csr_host_per_values(l_dpl_rec.to_person_id);
1438: close csr_host_asg_ovn;
1439: --
1440: end if;
1441: --
1442: hr_utility.set_location('host person id '||l_host_person_id,77);
1443: --
1444: --Code moved here
1445: if nvl(l_dpl_rec.retain_direct_reports,'N') = 'Y' then
1446:
1563: --
1564: l_soft_coding_keyflex_id := l_dpl_rec.soft_coding_keyflex_id;
1565: --
1566: --
1567: hr_utility.set_location(l_proc,80);
1568: --
1569: hr_assignment_api.update_emp_asg
1570: (p_validate => p_validate
1571: ,p_effective_date => l_dpl_rec.start_date
1704: ,p_hourly_salaried_warning => l_hourly_salaried_warning
1705: ,p_gsp_post_process_warning => l_gsp_post_process_warning
1706: );
1707: --
1708: hr_utility.set_location(l_proc,90);
1709: --
1710: -- sturlapa start
1711:
1712: if l_dpl_rec.people_group_id is not null then
1824: --
1825: if nvl(l_dpl_rec.permanent,'N') = 'Y'
1826: and l_dpl_rec.proposed_salary is not null then
1827: --
1828: hr_utility.set_location(l_proc,100);
1829: --
1830: hr_maintain_proposal_api.insert_salary_proposal
1831: (p_validate => p_validate
1832: ,p_pay_proposal_id => l_host_pyp_id
1877: for l_dpl_contact_rec in csr_dpl_contacts(p_person_deployment_id) loop
1878: <
1879: -- Fetch details from home BG
1880: --
1881: hr_utility.set_location(l_proc,110);
1882: --
1883: open csr_contact_rel_details(l_dpl_contact_rec.contact_relationship_id);
1884: fetch csr_contact_rel_details into l_contact_rel_details;
1885: close csr_contact_rel_details;
1896: --
1897: WHILE l_index_number is not null loop
1898: <
1899: --
1900: hr_utility.set_location(l_proc,120);
1901: --
1902: if l_contact_rel_details.contact_person_id =
1903: l_contacts_created(l_index_number).home_contact_person_id then
1904: l_contact_person_id :=
1903: l_contacts_created(l_index_number).home_contact_person_id then
1904: l_contact_person_id :=
1905: l_contacts_created(l_index_number).host_contact_person_id;
1906: --
1907: hr_utility.set_location(l_proc||' '||l_contact_person_id,123);
1908: --
1909: exit;
1910: else
1911: --
1908: --
1909: exit;
1910: else
1911: --
1912: hr_utility.set_location(l_proc,127);
1913: --
1914: l_contact_person_id := null;
1915: end if;
1916: l_index_number := l_contacts_created.NEXT(l_index_number);
1915: end if;
1916: l_index_number := l_contacts_created.NEXT(l_index_number);
1917: END LOOP created_contacts;
1918: --
1919: hr_utility.set_location(l_proc,130);
1920: hr_utility.set_location('host person id '||l_host_person_id,131);
1921: --
1922: hr_contact_rel_api.create_contact --use fetched details copying to host BG
1923: (p_validate => p_validate
1916: l_index_number := l_contacts_created.NEXT(l_index_number);
1917: END LOOP created_contacts;
1918: --
1919: hr_utility.set_location(l_proc,130);
1920: hr_utility.set_location('host person id '||l_host_person_id,131);
1921: --
1922: hr_contact_rel_api.create_contact --use fetched details copying to host BG
1923: (p_validate => p_validate
1924: ,p_start_date => l_dpl_rec.start_date
1962: --
1963: -- Now store the contact person_ids from home and host for checking in next loop
1964: --
1965: --
1966: hr_utility.set_location(l_proc,140);
1967: --
1968: l_contact_created.home_contact_person_id := l_contact_rel_details.contact_person_id;
1969: l_contact_created.host_contact_person_id := l_host_contact_person_id;
1970: l_contacts_created.EXTEND;
1975: -- Create EITs in host BG
1976: --
1977: for l_dpl_eit_rec in csr_dpl_eits(p_person_deployment_id) loop
1978: --
1979: hr_utility.set_location(l_proc,150);
1980: --
1981: -- Fetch details of EIT from home BG
1982: open csr_eit_details(l_dpl_eit_rec.person_extra_info_id);
1983: fetch csr_eit_details into l_eit_details;
2021: ,p_person_extra_info_id => l_host_person_extra_info_id
2022: ,p_object_version_number => l_host_pei_ovn
2023: );
2024: end loop;
2025: hr_utility.set_location(l_proc,180);
2026: --
2027: -- update the proposal with the new details to keep it up to date
2028: --
2029: if nvl(l_dpl_rec.permanent,'N') = 'Y' then
2027: -- update the proposal with the new details to keep it up to date
2028: --
2029: if nvl(l_dpl_rec.permanent,'N') = 'Y' then
2030: --
2031: hr_utility.set_location(l_proc,190);
2032: --
2033: hr_person_deployment_api.update_person_deployment
2034: (p_validate => p_validate
2035: ,p_person_deployment_id => p_person_deployment_id
2039: ,p_policy_duration_warning => l_policy_duration_warning
2040: );
2041: else
2042: --
2043: hr_utility.set_location(l_proc,200);
2044: --
2045: hr_person_deployment_api.update_person_deployment
2046: (p_validate => p_validate
2047: ,p_person_deployment_id => p_person_deployment_id
2078: open csr_get_attached_doc;
2079: fetch csr_get_attached_doc into l_attachments;
2080: if csr_get_attached_doc%found then
2081: close csr_get_attached_doc;
2082: hr_utility.set_location(l_host_person_id,200);
2083:
2084: update fnd_attached_documents
2085: set ENTITY_NAME='PER_PEOPLE_F' ,PK1_VALUE =l_host_person_id
2086: WHERE PK1_VALUE=p_person_deployment_id
2086: WHERE PK1_VALUE=p_person_deployment_id
2087: and ENTITY_NAME ='HR_PERSON_DEPLOYMENTS' ;
2088:
2089: else
2090: hr_utility.set_location(l_host_person_id,220);
2091: close csr_get_attached_doc;
2092: end if;
2093: --
2094: -- fix for bug 6593649
2094: -- fix for bug 6593649
2095: --
2096: per_per_bus.g_global_transfer_in_process := false;
2097: --
2098: hr_utility.set_location(' Leaving:'||l_proc, 700);
2099: exception
2100: when hr_api.validate_enabled then
2101: --
2102: -- As the Validate_Enabled exception has been raised
2119: p_already_applicant_warning := null;
2120: --
2121: per_per_bus.g_global_transfer_in_process := false;
2122: --
2123: hr_utility.set_location(' Leaving:'||l_proc, 800);
2124: when others then
2125: --
2126: -- A validation or unexpected error has occured
2127: --
2141: p_already_applicant_warning := null;
2142: --
2143: per_per_bus.g_global_transfer_in_process := false;
2144: --
2145: hr_utility.set_location(' Leaving:'||l_proc, 900);
2146: raise;
2147: end initiate_deployment;
2148: --
2149: --
2226: -- and asg.projected_assignment_end is not null;
2227: --
2228: begin
2229: --
2230: hr_utility.set_location('Entering:'|| l_proc, 10);
2231: --
2232: -- Issue a savepoint
2233: --
2234: savepoint change_deployment_dates;
2241: --
2242: l_start_date_in := trunc(p_start_date);
2243: l_end_date_in := trunc(p_end_date);
2244: --
2245: hr_utility.set_location(l_proc,20);
2246: --
2247: -- Validation in addition to Row Handlers
2248: --
2249: open csr_person_deployment(p_person_deployment_id);
2254: fnd_message.raise_error;
2255: else
2256: close csr_person_deployment;
2257: --
2258: hr_utility.set_location(l_proc,30);
2259: --
2260: end if;
2261: --
2262: if l_dpl_rec.status = 'DRAFT' then
2275: fnd_message.raise_error;
2276: end if;
2277:
2278:
2279: hr_utility.set_location(l_proc,40);
2280: --
2281: if nvl(l_start_date_in,l_dpl_rec.start_date) >=
2282: nvl(l_end_date_in,l_dpl_rec.end_date) then
2283: fnd_message.set_name('PER','HR_449621_PDT_CHG_DATES');
2299: --
2300:
2301: if nvl(l_start_date_in,hr_api.g_date) = hr_api.g_date then
2302: --
2303: hr_utility.set_location(l_proc,50);
2304: --
2305: --start date the same
2306: l_start_date_in := l_dpl_rec.start_date;
2307: else
2305: --start date the same
2306: l_start_date_in := l_dpl_rec.start_date;
2307: else
2308: --
2309: hr_utility.set_location(l_proc,60);
2310: --
2311: --start date changed
2312: hr_change_start_date_api.update_start_date
2313: (p_validate => p_validate
2320: );
2321: --
2322: for l_asg in csr_susp_home_asgs(p_person_deployment_id) loop
2323: --
2324: hr_utility.set_location(l_proc,70);
2325: hr_utility.set_location('assignment id '||l_asg.assignment_id,71);
2326: --
2327: open csr_overlap_asg_update
2328: (l_asg.assignment_id,l_dpl_rec.start_date,l_start_date_in);
2321: --
2322: for l_asg in csr_susp_home_asgs(p_person_deployment_id) loop
2323: --
2324: hr_utility.set_location(l_proc,70);
2325: hr_utility.set_location('assignment id '||l_asg.assignment_id,71);
2326: --
2327: open csr_overlap_asg_update
2328: (l_asg.assignment_id,l_dpl_rec.start_date,l_start_date_in);
2329: fetch csr_overlap_asg_update into l_dummy;
2352: -- Bug 5635350 modified the following if condition
2353: -- if l_end_date_in = hr_api.g_date then
2354: if l_end_date_in = hr_api.g_date or l_end_date_in = l_dpl_rec.end_date then
2355: --
2356: hr_utility.set_location(l_proc,80);
2357: --
2358: --end date the same
2359: l_end_date_in := l_dpl_rec.end_date;
2360: else
2358: --end date the same
2359: l_end_date_in := l_dpl_rec.end_date;
2360: else
2361: --
2362: hr_utility.set_location(l_proc,90);
2363: --
2364: -- The end date has changed, this is simply an update to projected asg end in host
2365: -- If start_date also moved later than sysdate we have to do correction instead
2366:
2423: hr_dflex_utility.remove_ignore_df_validation;
2424: --
2425: -- update the proposal with the new details to keep it up to date
2426: --
2427: hr_utility.set_location(l_proc,100);
2428: --
2429: hr_person_deployment_api.update_person_deployment
2430: (p_validate => p_validate
2431: ,p_person_deployment_id => p_person_deployment_id
2445: -- Set all IN OUT and OUT parameters with out values
2446: --
2447:
2448: --
2449: hr_utility.set_location(' Leaving:'||l_proc, 700);
2450: exception
2451: when hr_api.validate_enabled then
2452: --
2453: -- As the Validate_Enabled exception has been raised
2460: -- (Any key or derived arguments must be set to null
2461: -- when validation only mode is being used.)
2462: --
2463: p_object_version_number := l_object_version_number;
2464: hr_utility.set_location(' Leaving:'||l_proc, 800);
2465: when others then
2466: --
2467: -- A validation or unexpected error has occured
2468: --
2472: -- Reset IN OUT parameters and set all
2473: -- OUT parameters, including warnings, to null
2474: --
2475: p_object_version_number := l_object_version_number;
2476: hr_utility.set_location(' Leaving:'||l_proc, 900);
2477: raise;
2478: end change_deployment_dates;
2479: --
2480: --
2561: and paaf2.assignment_status_type_id = past2.assignment_status_type_id
2562: and past2.per_system_status = 'ACTIVE_ASSIGN');
2563: --
2564: begin
2565: hr_utility.set_location('Entering:'|| l_proc, 10);
2566: --
2567: -- Issue a savepoint
2568: --
2569: savepoint return_from_deployment;
2586: fnd_message.raise_error;
2587: else
2588: close csr_person_deployment;
2589: --
2590: hr_utility.set_location(l_proc,20);
2591: --
2592: end if;
2593: --
2594: if l_dpl_rec.status = 'DRAFT' then
2614: l_leaving_reason := p_leaving_reason;
2615: l_leaving_person_type_id := p_leaving_person_type_id;
2616: --
2617: if nvl(l_end_date_in,hr_api.g_date) = hr_api.g_date then
2618: hr_utility.set_location(l_proc,30);
2619: l_end_date_in := l_dpl_rec.end_date;
2620: end if;
2621: --
2622: if nvl(l_leaving_reason,hr_api.g_varchar2) = hr_api.g_varchar2 then
2619: l_end_date_in := l_dpl_rec.end_date;
2620: end if;
2621: --
2622: if nvl(l_leaving_reason,hr_api.g_varchar2) = hr_api.g_varchar2 then
2623: hr_utility.set_location(l_proc,40);
2624: l_leaving_reason := l_dpl_rec.leaving_reason;
2625: end if;
2626: --
2627: if nvl(l_leaving_person_type_id,hr_api.g_number) = hr_api.g_number then
2624: l_leaving_reason := l_dpl_rec.leaving_reason;
2625: end if;
2626: --
2627: if nvl(l_leaving_person_type_id,hr_api.g_number) = hr_api.g_number then
2628: hr_utility.set_location(l_proc,50);
2629: l_leaving_person_type_id := l_dpl_rec.leaving_person_type_id;
2630: end if;
2631:
2632: hr_person_deployment_api.update_person_deployment
2646: open csr_host_pds(l_dpl_rec.to_person_id);
2647: fetch csr_host_pds into l_host_pds_id,l_host_pds_ovn;
2648: close csr_host_pds;
2649: --
2650: hr_utility.set_location(l_proc,60);
2651: --
2652: hr_ex_employee_api.actual_termination_emp
2653: (p_validate => p_validate
2654: ,p_effective_date => l_end_date_in
2676: -- Reactivate the suspended home assignments
2677: --
2678: for l_asg_rec in csr_susp_home_asgs(l_dpl_rec.from_person_id) loop
2679: --
2680: hr_utility.set_location(l_proc,70);
2681: hr_utility.set_location('assignment_id '||l_asg_rec.assignment_id,71);
2682: --
2683: hr_assignment_api.activate_emp_asg
2684: (p_validate => p_validate
2677: --
2678: for l_asg_rec in csr_susp_home_asgs(l_dpl_rec.from_person_id) loop
2679: --
2680: hr_utility.set_location(l_proc,70);
2681: hr_utility.set_location('assignment_id '||l_asg_rec.assignment_id,71);
2682: --
2683: hr_assignment_api.activate_emp_asg
2684: (p_validate => p_validate
2685: ,p_effective_date => l_end_date_in+1
2694: end loop;
2695: --
2696: -- update the proposal with the new details to keep it up to date
2697: --
2698: hr_utility.set_location(l_proc,80);
2699: --
2700:
2701: --
2702: -- When in validation only mode raise the Validate_Enabled exception
2706: end if;
2707: --
2708: -- Set all IN OUT and OUT parameters with out values
2709: --
2710: hr_utility.set_location(' Leaving:'||l_proc, 700);
2711: exception
2712: when hr_api.validate_enabled then
2713: --
2714: -- As the Validate_Enabled exception has been raised
2720: -- (Any key or derived arguments must be set to null
2721: -- when validation only mode is being used.)
2722: --
2723: p_object_version_number := l_object_version_number;
2724: hr_utility.set_location(' Leaving:'||l_proc, 800);
2725: when others then
2726: --
2727: -- A validation or unexpected error has occured
2728: --
2731: -- Reset IN OUT parameters and set all
2732: -- OUT parameters, including warnings, to null
2733: --
2734: p_object_version_number := l_object_version_number;
2735: hr_utility.set_location(' Leaving:'||l_proc, 900);
2736: raise;
2737: end return_from_deployment;
2738: --
2739: end HR_PERSON_DEPLOYMENT_API;