[Home] [Help]
3: --
4: -- Package Variables
5: --
6: g_package varchar2(33) := 'hr_employee_api.';
7: g_debug boolean := hr_utility.debug_enabled;
8: --
9: -- Package cursors
10: --
11: CURSOR csr_future_asgs
98: BEGIN
99: --
100: if g_debug then
101: l_proc := g_package||'future_asgs_count';
102: hr_utility.set_location('Entering:'||l_proc,10);
103: end if;
104: --
105: FOR l_future_asgs_rec IN
106: csr_future_asgs
111: l_future_asgs_count := l_future_asgs_count + 1;
112: END LOOP;
113: --
114: if g_debug then
115: hr_utility.set_location(' Leaving:'||l_proc,100);
116: end if;
117: --
118: --
119: -- 115.58 (START)
335: --
336: begin
337: if g_debug then
338: l_proc := g_package||'create_employee';
339: hr_utility.set_location('Entering:'|| l_proc, 10);
340: end if;
341: --
342: -- Issue a savepoint.
343: --
500: --
501: end;
502: --
503: if g_debug then
504: hr_utility.set_location(l_proc, 20);
505: end if;
506: --
507: -- Truncate the time portion from all date parameters
508: -- which are passed in.
528: ,p_business_group_id => p_business_group_id
529: ,p_expected_sys_type => 'EMP'
530: );
531: if g_debug then
532: hr_utility.set_location(l_proc, 30);
533: end if;
534: --
535: -- Initialise local variables as appropriate
536: --
695: ,p_npw_number => l_npw_number
696: );
697: --
698: if g_debug then
699: hr_utility.set_location(l_proc, 40);
700: end if;
701: --
702: -- insert the person in to the security list
703: --
713:
714: -- PTU : End of changes
715:
716: if g_debug then
717: hr_utility.set_location(l_proc, 50);
718: end if;
719: --
720: -- Create the period of service record
721: --
732: ,p_period_of_service_id => l_period_of_service_id
733: ,p_object_version_number => l_discard_number
734: );
735: if g_debug then
736: hr_utility.set_location(l_proc, 50);
737: end if;
738: --
739: -- Create the default primary employee assignment
740: --
749: ,p_assignment_sequence => l_assignment_sequence
750: ,p_assignment_number => l_assignment_number
751: );
752: if g_debug then
753: hr_utility.set_location(l_proc, 60);
754: end if;
755: --
756: -- Create a phone row using the newly created person as the parent row.
757: -- This phone row replaces the work_telephone column on the person.
977: raise hr_api.validate_enabled;
978: end if;
979: --
980: if g_debug then
981: hr_utility.set_location(' Leaving:'||l_proc, 70);
982: end if;
983: exception
984: when hr_api.validate_enabled then
985: --
1194: begin
1195: --
1196: if g_debug then
1197: l_proc := g_package||'create_employee';
1198: hr_utility.set_location('Entering:'||l_proc,111);
1199: end if;
1200: --
1201: hr_employee_api.create_employee
1202: (p_validate => p_validate
1342: ,p_orig_hire_warning => l_orig_hire_warning
1343: );
1344: --
1345: if g_debug then
1346: hr_utility.set_location('Leaving:'||l_proc,111);
1347: end if;
1348: --
1349: end create_employee;
1350: --
1493: begin
1494:
1495: if g_debug then
1496: l_proc := g_package||'create_gb_employee';
1497: hr_utility.set_location('Entering:'|| l_proc, 5);
1498: end if;
1499:
1500: begin
1501: select 1 into l_session_c from fnd_sessions
1515: fetch csr_bg
1516: into l_legislation_code;
1517: if csr_bg%notfound then
1518: close csr_bg;
1519: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
1520: hr_utility.raise_error;
1521: end if;
1522: close csr_bg;
1523: --
1516: into l_legislation_code;
1517: if csr_bg%notfound then
1518: close csr_bg;
1519: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
1520: hr_utility.raise_error;
1521: end if;
1522: close csr_bg;
1523: --
1524: -- Check that the legislation of the specified business group is 'GB'.
1523: --
1524: -- Check that the legislation of the specified business group is 'GB'.
1525: --
1526: if l_legislation_code <> 'GB' then
1527: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1528: hr_utility.set_message_token('LEG_CODE','GB');
1529: hr_utility.raise_error;
1530: end if;
1531:
1524: -- Check that the legislation of the specified business group is 'GB'.
1525: --
1526: if l_legislation_code <> 'GB' then
1527: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1528: hr_utility.set_message_token('LEG_CODE','GB');
1529: hr_utility.raise_error;
1530: end if;
1531:
1532: if g_debug then
1525: --
1526: if l_legislation_code <> 'GB' then
1527: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
1528: hr_utility.set_message_token('LEG_CODE','GB');
1529: hr_utility.raise_error;
1530: end if;
1531:
1532: if g_debug then
1533: hr_utility.set_location(l_proc, 6);
1529: hr_utility.raise_error;
1530: end if;
1531:
1532: if g_debug then
1533: hr_utility.set_location(l_proc, 6);
1534: end if;
1535: --
1536: -- set the original date of hire to hire date if null
1537: --
1805: begin
1806: --
1807: if g_debug then
1808: l_proc := g_package||'create_gb_employee';
1809: hr_utility.set_location('Entering:'||l_proc,222);
1810: end if;
1811: --
1812: hr_employee_api.create_gb_employee
1813: (p_validate => p_validate
1930: ,p_orig_hire_warning => l_orig_hire_warning
1931: );
1932: --
1933: if g_debug then
1934: hr_utility.set_location('Leaving:'||l_proc,222);
1935: end if;
1936: --
1937: end create_gb_employee;
1938: --
2086: fetch csr_bg
2087: into l_legislation_code;
2088: if csr_bg%notfound then
2089: close csr_bg;
2090: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2091: hr_utility.raise_error;
2092: end if;
2093: close csr_bg;
2094: if g_debug then
2087: into l_legislation_code;
2088: if csr_bg%notfound then
2089: close csr_bg;
2090: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2091: hr_utility.raise_error;
2092: end if;
2093: close csr_bg;
2094: if g_debug then
2095: l_proc := g_package||'create_us_employee';
2092: end if;
2093: close csr_bg;
2094: if g_debug then
2095: l_proc := g_package||'create_us_employee';
2096: hr_utility.set_location(l_proc, 20);
2097: end if;
2098: --
2099: -- Check that the legislation of the specified business group is 'US'.
2100: --
2098: --
2099: -- Check that the legislation of the specified business group is 'US'.
2100: --
2101: if l_legislation_code <> 'US' then
2102: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2103: hr_utility.set_message_token('LEG_CODE','US');
2104: hr_utility.raise_error;
2105: end if;
2106: if g_debug then
2099: -- Check that the legislation of the specified business group is 'US'.
2100: --
2101: if l_legislation_code <> 'US' then
2102: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2103: hr_utility.set_message_token('LEG_CODE','US');
2104: hr_utility.raise_error;
2105: end if;
2106: if g_debug then
2107: hr_utility.set_location(l_proc, 30);
2100: --
2101: if l_legislation_code <> 'US' then
2102: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2103: hr_utility.set_message_token('LEG_CODE','US');
2104: hr_utility.raise_error;
2105: end if;
2106: if g_debug then
2107: hr_utility.set_location(l_proc, 30);
2108: end if;
2103: hr_utility.set_message_token('LEG_CODE','US');
2104: hr_utility.raise_error;
2105: end if;
2106: if g_debug then
2107: hr_utility.set_location(l_proc, 30);
2108: end if;
2109: --
2110: -- Call the person business process
2111: --
2233: ,p_orig_hire_warning => p_orig_hire_warning
2234: );
2235: --
2236: if g_debug then
2237: hr_utility.set_location(' Leaving:'||l_proc, 40);
2238: end if;
2239: end create_us_employee;
2240: -- --------------------------------------------------------------------------
2241: --
2373: begin
2374: --
2375: if g_debug then
2376: l_proc := g_package||'create_us_employee';
2377: hr_utility.set_location('Entering:'||l_proc,333);
2378: end if;
2379: --
2380: hr_employee_api.create_us_employee
2381: (p_validate => p_validate
2499: ,p_orig_hire_warning => l_orig_hire_warning
2500: );
2501: --
2502: if g_debug then
2503: hr_utility.set_location('Leaving:'||l_proc,333);
2504: end if;
2505: --
2506: end create_us_employee;
2507: --
2646: --
2647: begin
2648: if g_debug then
2649: l_proc := g_package||'get_person_details';
2650: hr_utility.set_location('Entering:'|| l_proc, 5);
2651: end if;
2652: --
2653: open csr_chk_person_exists;
2654: fetch csr_chk_person_exists into
2662: --
2663: -- This person either does not exist at all or does not exist as of the
2664: -- date specified.
2665: --
2666: hr_utility.set_message(801, 'HR_51011_PER_NOT_EXIST_DATE');
2667: hr_utility.raise_error;
2668: end if;
2669: --changes for bug 5601538 starts here
2670: Loop
2663: -- This person either does not exist at all or does not exist as of the
2664: -- date specified.
2665: --
2666: hr_utility.set_message(801, 'HR_51011_PER_NOT_EXIST_DATE');
2667: hr_utility.raise_error;
2668: end if;
2669: --changes for bug 5601538 starts here
2670: Loop
2671: if p_system_person_type ='EX_EMP' then
2679: End loop;
2680: --changes for bug 5601538 ends here
2681: close csr_chk_person_exists;
2682: if g_debug then
2683: hr_utility.set_location(' Leaving:'||l_proc, 10);
2684: end if;
2685: end get_person_details;
2686: -- --------------------------------------------------------------------------
2687: -- |-------------------------< perform_validation >-------------------------|
2752: --
2753: --
2754: begin
2755: if g_debug then
2756: hr_utility.set_location('Entering:'|| l_proc, 5);
2757: end if;
2758: --
2759: -- Validation Logic
2760: --
2812: --
2813: -- the system person type is not 'EX_EMP' therefore error
2814: -- You cannot Re-Hire a person who is not an Ex-Employee.
2815: --
2816: hr_utility.set_message(801, 'HR_51012_REHIRE_NOT_EX_EMP');
2817: hr_utility.raise_error;
2818: end if;
2819: if g_debug then
2820: hr_utility.set_location(l_proc, 10);
2813: -- the system person type is not 'EX_EMP' therefore error
2814: -- You cannot Re-Hire a person who is not an Ex-Employee.
2815: --
2816: hr_utility.set_message(801, 'HR_51012_REHIRE_NOT_EX_EMP');
2817: hr_utility.raise_error;
2818: end if;
2819: if g_debug then
2820: hr_utility.set_location(l_proc, 10);
2821: end if;
2816: hr_utility.set_message(801, 'HR_51012_REHIRE_NOT_EX_EMP');
2817: hr_utility.raise_error;
2818: end if;
2819: if g_debug then
2820: hr_utility.set_location(l_proc, 10);
2821: end if;
2822: --
2823: -- 3. ensure the most recent period of service for this person has been
2824: -- completely terminated. i.e. check that
2842: -- we must error
2843: --
2844: -- This person does not have a previous period of service
2845: --
2846: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
2847: hr_utility.raise_error;
2848: end if;
2849: close csr_chk_period_of_service;
2850: --
2843: --
2844: -- This person does not have a previous period of service
2845: --
2846: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
2847: hr_utility.raise_error;
2848: end if;
2849: close csr_chk_period_of_service;
2850: --
2851: --
2858: --
2859: -- You cannot re-hire a person who does not have a final processing date
2860: -- set for their most recent period of service
2861: --
2862: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
2863: hr_utility.raise_error;
2864: end if;
2865: --
2866: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
2859: -- You cannot re-hire a person who does not have a final processing date
2860: -- set for their most recent period of service
2861: --
2862: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
2863: hr_utility.raise_error;
2864: end if;
2865: --
2866: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
2867: --
2873: --
2874: -- You cannot re-hire an Ex-Employee before their LSPD.
2875: -- Please specify a Re-Hire date which is after the LSPD.
2876: --
2877: hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
2878: hr_utility.raise_error;
2879: end if;
2880: else
2881: --
2874: -- You cannot re-hire an Ex-Employee before their LSPD.
2875: -- Please specify a Re-Hire date which is after the LSPD.
2876: --
2877: hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
2878: hr_utility.raise_error;
2879: end if;
2880: else
2881: --
2882: -- Rehire before FPD is not allowed (old behaviour)
2887: --
2888: -- You cannot re-hire an Ex-Employee before their final processing date.
2889: -- Please specify a Re-Hire date which is after the final processing date.
2890: --
2891: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
2892: hr_utility.raise_error;
2893: end if;
2894: end if;
2895: --
2888: -- You cannot re-hire an Ex-Employee before their final processing date.
2889: -- Please specify a Re-Hire date which is after the final processing date.
2890: --
2891: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
2892: hr_utility.raise_error;
2893: end if;
2894: end if;
2895: --
2896: --if (l_final_process_date is null) then
2900: -- --
2901: -- -- You cannot re-hire a person who does not have a final processing date
2902: -- -- set for their most recent period of service
2903: -- --
2904: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
2905: -- hr_utility.raise_error;
2906: --elsif (l_final_process_date >= p_hire_date) then
2907: -- --
2908: -- -- the re hire date is before the current final process date
2901: -- -- You cannot re-hire a person who does not have a final processing date
2902: -- -- set for their most recent period of service
2903: -- --
2904: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
2905: -- hr_utility.raise_error;
2906: --elsif (l_final_process_date >= p_hire_date) then
2907: -- --
2908: -- -- the re hire date is before the current final process date
2909: -- --
2909: -- --
2910: -- -- You cannot re-hire an Ex-Employee before their final processing date.
2911: -- -- Please specify a Re-Hire date which is after the final processing date.
2912: -- --
2913: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
2914: -- hr_utility.raise_error;
2915: --end if;
2916: --
2917: -- 115.57 (START)
2910: -- -- You cannot re-hire an Ex-Employee before their final processing date.
2911: -- -- Please specify a Re-Hire date which is after the final processing date.
2912: -- --
2913: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
2914: -- hr_utility.raise_error;
2915: --end if;
2916: --
2917: -- 115.57 (START)
2918: --
2916: --
2917: -- 115.57 (START)
2918: --
2919: if g_debug then
2920: hr_utility.set_location(l_proc, 20);
2921: end if;
2922: p_effective_date := l_effective_start_date;
2923: --
2924:
2922: p_effective_date := l_effective_start_date;
2923: --
2924:
2925: if g_debug then
2926: hr_utility.set_location(' Leaving:'||l_proc, 25);
2927: end if;
2928: end perform_validation;
2929:
2930: begin
2928: end perform_validation;
2929:
2930: begin
2931: if g_debug then
2932: hr_utility.set_location('Entering:'|| l_proc, 5);
2933: end if;
2934: --
2935: -- Issue a savepoint.
2936: --
2954: --
2955: -- processing logic
2956: --
2957: if g_debug then
2958: hr_utility.set_location(l_proc, 10);
2959: end if;
2960: l_person_type_id := p_person_type_id;
2961: --
2962: begin
2990: p_business_group_id => l_business_group_id,
2991: p_expected_sys_type => 'EMP');
2992: --
2993: if g_debug then
2994: hr_utility.set_location(l_proc, 15);
2995: end if;
2996: --
2997: if (l_effective_date = p_hire_date) then
2998: l_datetrack_mode := 'CORRECTION';
3030: p_full_name => l_full_name,
3031: p_npw_number => l_npw_number);
3032: --
3033: if g_debug then
3034: hr_utility.set_location(l_proc, 20);
3035: end if;
3036: --
3037: -- add to current security list
3038: -- when in validation only mode raise the Validate_Enabled exception
3061:
3062: -- PTU : End of changes
3063: --
3064: if g_debug then
3065: hr_utility.set_location(l_proc, 22);
3066: end if;
3067: --
3068: -- create a new period of service for the re-hired employee
3069: --
3076: p_validate_df_flex => false,
3077: p_object_version_number => l_pds_object_version_number);
3078: --
3079: if g_debug then
3080: hr_utility.set_location(l_proc, 25);
3081: end if;
3082: --
3083: -- create a default primary assignment with any corresponding standard
3084: -- element entries for the re-hired employee
3095: --
3096: -- 115.57 (START)
3097: --
3098: if g_debug then
3099: hr_utility.set_location(l_proc, 26);
3100: end if;
3101: --
3102: -- If rehire before FPD is allowed, any resulting overlapping PDS
3103: -- will require updating the terminated primary assignment to
3110: );
3111: end if;
3112: --
3113: if g_debug then
3114: hr_utility.set_location(l_proc, 27);
3115: end if;
3116: --
3117: -- 115.57 (END)
3118: --
3172: --
3173: -- When in validation only mode raise the Validate_Enabled exception
3174: --
3175: if g_debug then
3176: hr_utility.set_location(' Leaving:'||l_proc, 30);
3177: end if;
3178: exception
3179: when hr_api.validate_enabled then
3180: --
3218: --
3219: -- End of fix.
3220: --
3221: if g_debug then
3222: hr_utility.set_location(' Leaving:'||l_proc, 35);
3223: end if;
3224: end re_hire_ex_employee;
3225: --
3226: -- OLD
3405: end if;
3406: -- Bug 665566 End
3407:
3408: if g_debug then
3409: hr_utility.set_location('Entering:'|| l_proc, 5);
3410: end if;
3411: --
3412: -- Truncate p_effective_date
3413: --
3428: ,p_argument => 'person id'
3429: ,p_argument_value => p_person_id);
3430: --
3431: if g_debug then
3432: hr_utility.set_location(' Leaving:'||l_proc, 10);
3433: end if;
3434: --
3435: -- Check that this person (p_person_id) exists as of l_effective_date
3436: -- the current person type (per_people_f.person_type_id) has a
3443: ,l_npw_number
3444: ,l_system_person_type;
3445: if csr_chk_person_exists%notfound then
3446: close csr_chk_person_exists;
3447: hr_utility.set_message(800, 'HR_51011_PER_NOT_EXIST_DATE');
3448: hr_utility.raise_error;
3449: end if;
3450: close csr_chk_person_exists;
3451: --
3444: ,l_system_person_type;
3445: if csr_chk_person_exists%notfound then
3446: close csr_chk_person_exists;
3447: hr_utility.set_message(800, 'HR_51011_PER_NOT_EXIST_DATE');
3448: hr_utility.raise_error;
3449: end if;
3450: close csr_chk_person_exists;
3451: --
3452: --
3455: if (l_system_person_type <> 'EMP' and l_system_person_type <> 'EMP_APL') then
3456: --
3457: -- the system person type is not 'EMP'.
3458: --
3459: hr_utility.set_message(800, 'PER_52788_PER_INV_PER_TYPE');
3460: hr_utility.raise_error;
3461: end if;
3462: if g_debug then
3463: hr_utility.set_location(l_proc, 15);
3456: --
3457: -- the system person type is not 'EMP'.
3458: --
3459: hr_utility.set_message(800, 'PER_52788_PER_INV_PER_TYPE');
3460: hr_utility.raise_error;
3461: end if;
3462: if g_debug then
3463: hr_utility.set_location(l_proc, 15);
3464: end if;
3459: hr_utility.set_message(800, 'PER_52788_PER_INV_PER_TYPE');
3460: hr_utility.raise_error;
3461: end if;
3462: if g_debug then
3463: hr_utility.set_location(l_proc, 15);
3464: end if;
3465:
3466: --
3467: -- Initialise local variables
3495: end;
3496: -- processing logic
3497: --
3498: if g_debug then
3499: hr_utility.set_location(l_proc, 20);
3500: end if;
3501: --
3502: -- PTU : Following Code has been added
3503: -- Validate that the person_type_id passed is a flavour of 'APL' or derive the default
3518: -- fetch csr_get_person_type_id into
3519: -- l_person_type_id;
3520: -- if csr_get_person_type_id%notfound then
3521: -- close csr_get_person_type_id;
3522: -- hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
3523: -- hr_utility.raise_error;
3524: -- end if;
3525: -- close csr_get_person_type_id;
3526: --
3519: -- l_person_type_id;
3520: -- if csr_get_person_type_id%notfound then
3521: -- close csr_get_person_type_id;
3522: -- hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
3523: -- hr_utility.raise_error;
3524: -- end if;
3525: -- close csr_get_person_type_id;
3526: --
3527: if g_debug then
3524: -- end if;
3525: -- close csr_get_person_type_id;
3526: --
3527: if g_debug then
3528: hr_utility.set_location(l_proc, 25);
3529: end if;
3530: --
3531: -- Get organization id
3532: --
3539: ,l_normal_hours
3540: ,l_frequency;
3541: if csr_get_organization_id%notfound then
3542: close csr_get_organization_id;
3543: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
3544: hr_utility.raise_error;
3545: end if;
3546: close csr_get_organization_id;
3547: --
3540: ,l_frequency;
3541: if csr_get_organization_id%notfound then
3542: close csr_get_organization_id;
3543: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
3544: hr_utility.raise_error;
3545: end if;
3546: close csr_get_organization_id;
3547: --
3548: -- Get vacancy details.
3559: ,l_vac_organization_id -- added org id. thayden 7/10.
3560: ,l_vac_business_group_id; -- added business_group_id. thayden 7/11.
3561: if csr_get_vacancy_details%notfound then
3562: close csr_get_vacancy_details;
3563: hr_utility.set_message(801, 'HR_51001_THE_VAC_NOT_FOUND');
3564: hr_utility.raise_error;
3565: end if;
3566: close csr_get_vacancy_details;
3567: --added if ... end if (Rod's sugguestion)
3560: ,l_vac_business_group_id; -- added business_group_id. thayden 7/11.
3561: if csr_get_vacancy_details%notfound then
3562: close csr_get_vacancy_details;
3563: hr_utility.set_message(801, 'HR_51001_THE_VAC_NOT_FOUND');
3564: hr_utility.raise_error;
3565: end if;
3566: close csr_get_vacancy_details;
3567: --added if ... end if (Rod's sugguestion)
3568: if l_vac_organization_id is null then
3572: l_vac_organization_id := l_business_group_id;
3573: end if;
3574: --
3575: if g_debug then
3576: hr_utility.set_location(l_proc, 30);
3577: end if;
3578: --
3579: -- 3652025: Create an applicant, generate the application and
3580: -- the applicant assignment
3596: ,p_per_effective_end_date => l_effective_end_date
3597: ,p_appl_override_warning => l_appl_override_warning);
3598: --
3599: if g_debug then
3600: hr_utility.set_location(l_proc, 35);
3601: end if;
3602: --
3603: hr_security_internal.add_to_person_list(l_effective_date,l_assignment_id);
3604: --
3602: --
3603: hr_security_internal.add_to_person_list(l_effective_date,l_assignment_id);
3604: --
3605: if g_debug then
3606: hr_utility.set_location(l_proc, 40);
3607: end if;
3608: --
3609: --
3610: begin
3659: raise hr_api.validate_enabled;
3660: end if;
3661: --
3662: if g_debug then
3663: hr_utility.set_location(' Leaving:'||l_proc, 50);
3664: end if;
3665: exception
3666: when hr_api.validate_enabled then
3667: --
3685: p_per_effective_end_date := null;
3686: p_appl_override_warning := null;
3687:
3688: if g_debug then
3689: hr_utility.set_location(' Leaving:'||l_proc, 55);
3690: end if;
3691: end apply_for_internal_vacancy;
3692: --
3693: -- ----------------------------------------------------------------------------
3718: --
3719: BEGIN
3720: --
3721: if g_debug then
3722: hr_utility.set_location('Entering:'||l_proc,10);
3723: end if;
3724: --
3725: hr_employee_api.hire_into_job
3726: (p_validate => p_validate
3739: ,p_orig_hire_warning => p_orig_hire_warning
3740: );
3741: --
3742: if g_debug then
3743: hr_utility.set_location('Leaving:'||l_proc,999);
3744: end if;
3745:
3746: --
3747: END hire_into_job;
3864: --
3865: BEGIN
3866: --
3867: if g_debug then
3868: hr_utility.set_location('Entering:'||l_proc,10);
3869: end if;
3870: --
3871: -- Ensure mandatory arguments have been passed
3872: --
3890: --
3891: SAVEPOINT hire_into_job;
3892: --
3893: if g_debug then
3894: hr_utility.set_location(l_proc,20);
3895: end if;
3896: --
3897: -- Get dervied details for person on effective date
3898: --
3903: FETCH csr_per_details INTO l_per_details_rec;
3904: IF csr_per_details%NOTFOUND
3905: THEN
3906: CLOSE csr_per_details;
3907: hr_utility.set_message(800,'PER_52097_APL_INV_PERSON_ID');
3908: hr_utility.raise_error;
3909: END IF;
3910: CLOSE csr_per_details;
3911: --
3904: IF csr_per_details%NOTFOUND
3905: THEN
3906: CLOSE csr_per_details;
3907: hr_utility.set_message(800,'PER_52097_APL_INV_PERSON_ID');
3908: hr_utility.raise_error;
3909: END IF;
3910: CLOSE csr_per_details;
3911: --
3912: if g_debug then
3909: END IF;
3910: CLOSE csr_per_details;
3911: --
3912: if g_debug then
3913: hr_utility.set_location(l_proc,30);
3914: end if;
3915: --
3916: -- Call Before Process User Hook
3917: --
3936: );
3937: END;
3938: --
3939: if g_debug then
3940: hr_utility.set_location(l_proc,40);
3941: end if;
3942: --
3943: -- Check the person is of a correct system person type
3944: --
3944: --
3945: IF l_per_details_rec.system_person_type NOT IN ('EX_APL','EX_EMP','OTHER')
3946: THEN
3947: if g_debug then
3948: hr_utility.set_location(l_proc,50);
3949: end if;
3950: hr_utility.set_message(800,'PER_52096_APL_INV_PERSON_TYPE');
3951: hr_utility.raise_error;
3952: END IF;
3946: THEN
3947: if g_debug then
3948: hr_utility.set_location(l_proc,50);
3949: end if;
3950: hr_utility.set_message(800,'PER_52096_APL_INV_PERSON_TYPE');
3951: hr_utility.raise_error;
3952: END IF;
3953: --
3954: if g_debug then
3947: if g_debug then
3948: hr_utility.set_location(l_proc,50);
3949: end if;
3950: hr_utility.set_message(800,'PER_52096_APL_INV_PERSON_TYPE');
3951: hr_utility.raise_error;
3952: END IF;
3953: --
3954: if g_debug then
3955: hr_utility.set_location(l_proc,60);
3951: hr_utility.raise_error;
3952: END IF;
3953: --
3954: if g_debug then
3955: hr_utility.set_location(l_proc,60);
3956: end if;
3957: -- Start of fix for bug 3143299.
3958: --
3959: --
3965: ,l_rule_found
3966: );
3967: --
3968: if g_debug then
3969: hr_utility.set_location(l_proc,62);
3970: end if;
3971: --
3972: -- 115.57 (END)
3973: --
3995: -- we must error
3996: --
3997: -- This person does not have a previous period of service
3998: --
3999: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
4000: hr_utility.raise_error;
4001: end if;
4002: close csr_chk_period_of_service;
4003: --
3996: --
3997: -- This person does not have a previous period of service
3998: --
3999: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
4000: hr_utility.raise_error;
4001: end if;
4002: close csr_chk_period_of_service;
4003: --
4004: --
4011: --
4012: -- You cannot re-hire a person who does not have a final processing date
4013: -- set for their most recent period of service
4014: --
4015: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4016: hr_utility.raise_error;
4017: end if;
4018: --
4019: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
4012: -- You cannot re-hire a person who does not have a final processing date
4013: -- set for their most recent period of service
4014: --
4015: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4016: hr_utility.raise_error;
4017: end if;
4018: --
4019: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
4020: --
4026: --
4027: -- You cannot re-hire an Ex-Employee before their LSPD.
4028: -- Please specify a Re-Hire date which is after the LSPD.
4029: --
4030: hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
4031: hr_utility.raise_error;
4032: end if;
4033: else
4034: --
4027: -- You cannot re-hire an Ex-Employee before their LSPD.
4028: -- Please specify a Re-Hire date which is after the LSPD.
4029: --
4030: hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
4031: hr_utility.raise_error;
4032: end if;
4033: else
4034: --
4035: -- Rehire before FPD is not allowed (old behaviour)
4040: --
4041: -- You cannot re-hire an Ex-Employee before their final processing date.
4042: -- Please specify a Re-Hire date which is after the final processing date.
4043: --
4044: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4045: hr_utility.raise_error;
4046: end if;
4047: end if;
4048: --
4041: -- You cannot re-hire an Ex-Employee before their final processing date.
4042: -- Please specify a Re-Hire date which is after the final processing date.
4043: --
4044: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4045: hr_utility.raise_error;
4046: end if;
4047: end if;
4048: --
4049: --if (l_final_process_date is null) then
4053: -- --
4054: -- -- You cannot re-hire a person who does not have a final processing date
4055: -- -- set for their most recent period of service
4056: -- --
4057: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4058: -- hr_utility.raise_error;
4059: --elsif (l_final_process_date >= l_effective_date) then
4060: -- --
4061: -- -- the re hire date is before the current final process date
4054: -- -- You cannot re-hire a person who does not have a final processing date
4055: -- -- set for their most recent period of service
4056: -- --
4057: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4058: -- hr_utility.raise_error;
4059: --elsif (l_final_process_date >= l_effective_date) then
4060: -- --
4061: -- -- the re hire date is before the current final process date
4062: -- --
4062: -- --
4063: -- -- You cannot re-hire an Ex-Employee before their final processing date.
4064: -- -- Please specify a Re-Hire date which is after the final processing date.
4065: -- --
4066: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4067: -- hr_utility.raise_error;
4068: --end if;
4069: --
4070: -- 115.57 (END)
4063: -- -- You cannot re-hire an Ex-Employee before their final processing date.
4064: -- -- Please specify a Re-Hire date which is after the final processing date.
4065: -- --
4066: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4067: -- hr_utility.raise_error;
4068: --end if;
4069: --
4070: -- 115.57 (END)
4071: --
4071: --
4072: end if;
4073: --
4074: if g_debug then
4075: hr_utility.set_location(l_proc,65);
4076: end if;
4077: -- End of fix for bug 3143299
4078:
4079: -- Ensure the employee number will not be changed if it exists
4081: IF l_per_details_rec.employee_number IS NOT NULL
4082: AND NVL(p_employee_number,hr_api.g_number) <> l_per_details_rec.employee_number
4083: THEN
4084: if g_debug then
4085: hr_utility.set_location(l_proc,70);
4086: end if;
4087: p_employee_number := l_per_details_rec.employee_number;
4088: END IF;
4089: --
4087: p_employee_number := l_per_details_rec.employee_number;
4088: END IF;
4089: --
4090: if g_debug then
4091: hr_utility.set_location(l_proc,80);
4092: end if;
4093: --
4094: -- Check the person does not have future assignment changes
4095: --
4099: );
4100: IF l_future_asgs_count > 0
4101: THEN
4102: if g_debug then
4103: hr_utility.set_location(l_proc,90);
4104: end if;
4105: hr_utility.set_message(800,'HR_7975_ASG_INV_FUTURE_ASA');
4106: hr_utility.raise_error;
4107: END IF;
4101: THEN
4102: if g_debug then
4103: hr_utility.set_location(l_proc,90);
4104: end if;
4105: hr_utility.set_message(800,'HR_7975_ASG_INV_FUTURE_ASA');
4106: hr_utility.raise_error;
4107: END IF;
4108: --
4109: if g_debug then
4102: if g_debug then
4103: hr_utility.set_location(l_proc,90);
4104: end if;
4105: hr_utility.set_message(800,'HR_7975_ASG_INV_FUTURE_ASA');
4106: hr_utility.raise_error;
4107: END IF;
4108: --
4109: if g_debug then
4110: hr_utility.set_location(l_proc,100);
4106: hr_utility.raise_error;
4107: END IF;
4108: --
4109: if g_debug then
4110: hr_utility.set_location(l_proc,100);
4111: end if;
4112: --
4113: -- If person type id is not null check it corresponds to the correct type for
4114: -- the persons current system person type is currently active and in the
4115: -- correct business group, otherwise set person type id to the active default
4116: -- for the correct system person type in the correct business group
4117: --
4118: if g_debug then
4119: hr_utility.set_location(l_proc,110);
4120: end if;
4121: l_system_person_type := 'EMP';
4122: per_per_bus.chk_person_type
4123: (p_person_type_id => l_person_type_id
4125: ,p_expected_sys_type => l_system_person_type
4126: );
4127: --
4128: if g_debug then
4129: hr_utility.set_location(l_proc,120);
4130: end if;
4131: --
4132: -- Check the datetrack mode
4133: --
4142: end if;
4143: ELSE
4144: IF (l_datetrack_update_mode NOT IN (hr_api.g_update,hr_api.g_correction))
4145: THEN
4146: hr_utility.set_message(800,'HR_7203_DT_UPD_MODE_INVALID');
4147: hr_utility.raise_error;
4148: END IF;
4149: END IF;
4150: ELSE
4143: ELSE
4144: IF (l_datetrack_update_mode NOT IN (hr_api.g_update,hr_api.g_correction))
4145: THEN
4146: hr_utility.set_message(800,'HR_7203_DT_UPD_MODE_INVALID');
4147: hr_utility.raise_error;
4148: END IF;
4149: END IF;
4150: ELSE
4151: l_datetrack_update_mode := hr_api.g_update;
4183: ,p_per_information7 => p_per_information7 --3414274
4184: );
4185: --
4186: if g_debug then
4187: hr_utility.set_location(l_proc,130);
4188: end if;
4189: --
4190: -- add to current security list
4191: --
4191: --
4192: hr_security_internal.populate_new_person(l_per_details_rec.business_group_id,p_person_id);
4193: --
4194: if g_debug then
4195: hr_utility.set_location(l_proc,135);
4196: end if;
4197: --
4198: -- Create an period of service for the person
4199: --
4207: ,p_object_version_number => l_pds_object_version_number
4208: );
4209: --
4210: if g_debug then
4211: hr_utility.set_location(l_proc,140);
4212: end if;
4213: --
4214: -- Create a default employee assignment for the person
4215: --
4224: ,p_assignment_number => l_assignment_number
4225: );
4226: --
4227: if g_debug then
4228: hr_utility.set_location(l_proc,150);
4229: end if;
4230: --
4231: -- 115.57 (START)
4232: --
4242: );
4243: end if;
4244: --
4245: if g_debug then
4246: hr_utility.set_location(l_proc,155);
4247: end if;
4248: --
4249: -- 115.57 (END)
4250: --
4310: );
4311: END;
4312: --
4313: if g_debug then
4314: hr_utility.set_location(l_proc,160);
4315: end if;
4316: --
4317: -- When in validation only mode raise validate_enabled exception
4318: --
4329: p_assign_payroll_warning := l_assign_payroll_warning;
4330: p_orig_hire_warning := l_orig_hire_warning;
4331: --
4332: if g_debug then
4333: hr_utility.set_location(' Leaving:'||l_proc,1000);
4334: end if;
4335: --
4336: EXCEPTION
4337: --
4552: lr_prim_asg c_prim_asg%ROWTYPE;
4553: --
4554: BEGIN
4555: --
4556: hr_utility.set_location('Entering:'|| l_proc, 5);
4557: --
4558: -- Issue a savepoint.
4559: --
4560: SAVEPOINT update_rehire_primary_asgs;
4562: IF p_cancel = 'Y' THEN
4563: --
4564: -- Perform Cancel Rehire updates to ASG records
4565: --
4566: hr_utility.set_location(l_proc, 10);
4567: --
4568: -- Get the primary assignment on (rehire date - 1)
4569: --
4570: OPEN c_prim_asg (p_person_id
4571: ,(p_rehire_date-1)
4572: );
4573: FETCH c_prim_asg INTO lr_prim_asg;
4574: IF c_prim_asg%NOTFOUND THEN
4575: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4576: hr_utility.raise_error;
4577: END IF;
4578: CLOSE c_prim_asg;
4579: --
4572: );
4573: FETCH c_prim_asg INTO lr_prim_asg;
4574: IF c_prim_asg%NOTFOUND THEN
4575: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4576: hr_utility.raise_error;
4577: END IF;
4578: CLOSE c_prim_asg;
4579: --
4580: hr_utility.set_location(l_proc, 20);
4576: hr_utility.raise_error;
4577: END IF;
4578: CLOSE c_prim_asg;
4579: --
4580: hr_utility.set_location(l_proc, 20);
4581: --
4582: -- Update all assignments records for this assignment with
4583: -- ESD >= rehire date setting primary flag to 'Y'
4584: --
4592: ELSIF p_cancel = 'N' THEN
4593: --
4594: -- Perform Rehire updates to ASG records
4595: --
4596: hr_utility.set_location(l_proc, 30);
4597: --
4598: -- Get the primary assignment on rehire date
4599: --
4600: OPEN c_prim_asg (p_person_id
4601: ,p_rehire_date
4602: );
4603: FETCH c_prim_asg INTO lr_prim_asg;
4604: IF c_prim_asg%NOTFOUND THEN
4605: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4606: hr_utility.raise_error;
4607: END IF;
4608: CLOSE c_prim_asg;
4609: --
4602: );
4603: FETCH c_prim_asg INTO lr_prim_asg;
4604: IF c_prim_asg%NOTFOUND THEN
4605: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4606: hr_utility.raise_error;
4607: END IF;
4608: CLOSE c_prim_asg;
4609: --
4610: IF p_rehire_date = lr_prim_asg.effective_start_date THEN
4608: CLOSE c_prim_asg;
4609: --
4610: IF p_rehire_date = lr_prim_asg.effective_start_date THEN
4611: --
4612: hr_utility.set_location(l_proc, 40);
4613: --
4614: -- Set the primary assignment flag to 'N' for this record.
4615: --
4616: UPDATE per_assignments_f
4621: AND effective_start_date = p_rehire_date;
4622: --
4623: ELSIF p_rehire_date = lr_prim_asg.effective_end_date THEN
4624: --
4625: hr_utility.set_location(l_proc, 50);
4626: --
4627: -- Update EED to rehire date - 1
4628: --
4629: UPDATE per_assignments_f
4632: WHERE assignment_id = lr_prim_asg.assignment_id
4633: AND assignment_type <> 'B' -- 115.59
4634: AND effective_end_date = p_rehire_date;
4635: --
4636: hr_utility.set_location(l_proc, 60);
4637: --
4638: -- Insert new record with primary flag 'N' and ESD
4639: -- same as EED same as rehire date
4640: --
4872: );
4873: --
4874: ELSE -- rehire date between but not inclusive of ESD and EED
4875: --
4876: hr_utility.set_location(l_proc, 70);
4877: --
4878: -- Update EED to rehire date - 1
4879: --
4880: UPDATE per_assignments_f
4883: WHERE assignment_id = lr_prim_asg.assignment_id
4884: AND assignment_type <> 'B' -- 115.59
4885: AND effective_start_date = lr_prim_asg.effective_start_date;
4886: --
4887: hr_utility.set_location(l_proc, 80);
4888: --
4889: -- Insert new record primary flag 'N' and ESD
4890: -- same as rehire date
4891: --
5123: );
5124: --
5125: END IF;
5126: --
5127: hr_utility.set_location(l_proc, 90);
5128: --
5129: -- Update assignments where ESD > rehire date setting the
5130: -- primary flag to 'N'
5131: --
5136: AND effective_start_date > p_rehire_date;
5137: --
5138: END IF; -- check p_cancel
5139: --
5140: hr_utility.set_location('Leaving:'|| l_proc, 9998);
5141: --
5142: EXCEPTION
5143: --
5144: WHEN OTHERS THEN
5146: -- An unexpected error has occurred
5147: -- No OUT parameters need to be set
5148: -- No cursors need to be closed
5149: --
5150: hr_utility.set_location('Leaving:'|| l_proc, 9999);
5151: ROLLBACK TO update_rehire_primary_asgs;
5152: RAISE;
5153: --
5154: END update_rehire_primary_asgs;
5233: e_nothing_to_manage EXCEPTION;
5234: --
5235: BEGIN
5236: --
5237: hr_utility.set_location('Entering:'|| l_proc, 5);
5238: --
5239: -- Issue a savepoint.
5240: --
5241: SAVEPOINT manage_rehire_primary_asgs;
5239: -- Issue a savepoint.
5240: --
5241: SAVEPOINT manage_rehire_primary_asgs;
5242: --
5243: hr_utility.set_location(l_proc, 10);
5244: --
5245: -- Get the previous PDS that is the latest PDS before
5246: -- rehire date
5247: --
5255: RAISE e_nothing_to_manage;
5256: END IF;
5257: CLOSE csr_prev_pds;
5258: --
5259: hr_utility.set_location(l_proc, 20);
5260: --
5261: -- Check if overlap condition
5262: --
5263: IF lr_prev_pds.final_process_date < p_rehire_date THEN
5266: --
5267: RAISE e_nothing_to_manage;
5268: END IF;
5269: --
5270: hr_utility.set_location(l_proc, 30);
5271: --
5272: -- Get the associated primary assignment on rehire date
5273: --
5274: OPEN csr_prim_asg(lr_prev_pds.period_of_service_id
5278: FETCH csr_prim_asg INTO lr_prim_asg;
5279: IF csr_prim_asg%NOTFOUND THEN
5280: CLOSE csr_prim_asg;
5281: --
5282: hr_utility.set_location(l_proc, 35);
5283: --
5284: -- Get the associated primary assignment on actual term date
5285: --
5286: OPEN csr_prim_asg(lr_prev_pds.period_of_service_id
5295: END IF;
5296: END IF;
5297: CLOSE csr_prim_asg;
5298: --
5299: hr_utility.set_location(l_proc, 40);
5300: --
5301: -- if p_cancel = 'Y', this is a cancel rehire scenario
5302: -- find primary assignment on rehire date - 1
5303: -- DT CORRECTION to ASG records with ESD >= rehire date to primary
5310: ,p_rehire_date => p_rehire_date
5311: ,p_cancel => p_cancel
5312: );
5313: --
5314: hr_utility.set_location('Leaving:'|| l_proc, 50);
5315: --
5316: EXCEPTION
5317: --
5318: WHEN e_nothing_to_manage THEN
5316: EXCEPTION
5317: --
5318: WHEN e_nothing_to_manage THEN
5319: --
5320: hr_utility.set_location('Leaving:'|| l_proc, 60);
5321: ROLLBACK TO manage_rehire_primary_asgs;
5322: --
5323: WHEN OTHERS THEN
5324: --
5325: -- An unexpected error has occurred
5326: -- No OUT parameters need to be set
5327: -- No cursors need to be closed
5328: --
5329: hr_utility.set_location('Leaving:'|| l_proc, 70);
5330: ROLLBACK TO manage_rehire_primary_asgs;
5331: RAISE;
5332: --
5333: END manage_rehire_primary_asgs;