[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: --
2077: begin
2078: --
2079: if g_debug then
2080: l_proc := g_package||'create_us_employee';
2081: hr_utility.set_location('Entering:'||l_proc,333);
2082: end if;
2083: --
2084:
2085: hr_employee_api.create_us_employee
2204: ,p_orig_hire_warning => l_orig_hire_warning
2205: );
2206: --
2207: if g_debug then
2208: hr_utility.set_location('Leaving:'||l_proc,333);
2209: end if;
2210: --
2211: end create_us_employee;
2212: --
2361: fetch csr_bg
2362: into l_legislation_code;
2363: if csr_bg%notfound then
2364: close csr_bg;
2365: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2366: hr_utility.raise_error;
2367: end if;
2368: close csr_bg;
2369: if g_debug then
2362: into l_legislation_code;
2363: if csr_bg%notfound then
2364: close csr_bg;
2365: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2366: hr_utility.raise_error;
2367: end if;
2368: close csr_bg;
2369: if g_debug then
2370: l_proc := g_package||'create_us_employee';
2367: end if;
2368: close csr_bg;
2369: if g_debug then
2370: l_proc := g_package||'create_us_employee';
2371: hr_utility.set_location(l_proc, 20);
2372: end if;
2373: --
2374: -- Check that the legislation of the specified business group is 'US'.
2375: --
2373: --
2374: -- Check that the legislation of the specified business group is 'US'.
2375: --
2376: if l_legislation_code <> 'US' then
2377: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2378: hr_utility.set_message_token('LEG_CODE','US');
2379: hr_utility.raise_error;
2380: end if;
2381: if g_debug then
2374: -- Check that the legislation of the specified business group is 'US'.
2375: --
2376: if l_legislation_code <> 'US' then
2377: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2378: hr_utility.set_message_token('LEG_CODE','US');
2379: hr_utility.raise_error;
2380: end if;
2381: if g_debug then
2382: hr_utility.set_location(l_proc, 30);
2375: --
2376: if l_legislation_code <> 'US' then
2377: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2378: hr_utility.set_message_token('LEG_CODE','US');
2379: hr_utility.raise_error;
2380: end if;
2381: if g_debug then
2382: hr_utility.set_location(l_proc, 30);
2383: end if;
2378: hr_utility.set_message_token('LEG_CODE','US');
2379: hr_utility.raise_error;
2380: end if;
2381: if g_debug then
2382: hr_utility.set_location(l_proc, 30);
2383: end if;
2384: */
2385: --
2386: -- Call the person business process
2511: ,p_orig_hire_warning => p_orig_hire_warning
2512: );
2513: --
2514: /* if g_debug then
2515: hr_utility.set_location(' Leaving:'||l_proc, 40);
2516: end if;
2517: */
2518: end create_us_employee;
2519:
2664: fetch csr_bg
2665: into l_legislation_code;
2666: if csr_bg%notfound then
2667: close csr_bg;
2668: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2669: hr_utility.raise_error;
2670: end if;
2671: close csr_bg;
2672: if g_debug then
2665: into l_legislation_code;
2666: if csr_bg%notfound then
2667: close csr_bg;
2668: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2669: hr_utility.raise_error;
2670: end if;
2671: close csr_bg;
2672: if g_debug then
2673: l_proc := g_package||'create_us_employee';
2670: end if;
2671: close csr_bg;
2672: if g_debug then
2673: l_proc := g_package||'create_us_employee';
2674: hr_utility.set_location(l_proc, 20);
2675: end if;
2676: --
2677: -- Check that the legislation of the specified business group is 'US'.
2678: --
2676: --
2677: -- Check that the legislation of the specified business group is 'US'.
2678: --
2679: if l_legislation_code <> 'US' then
2680: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2681: hr_utility.set_message_token('LEG_CODE','US');
2682: hr_utility.raise_error;
2683: end if;
2684: if g_debug then
2677: -- Check that the legislation of the specified business group is 'US'.
2678: --
2679: if l_legislation_code <> 'US' then
2680: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2681: hr_utility.set_message_token('LEG_CODE','US');
2682: hr_utility.raise_error;
2683: end if;
2684: if g_debug then
2685: hr_utility.set_location(l_proc, 30);
2678: --
2679: if l_legislation_code <> 'US' then
2680: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
2681: hr_utility.set_message_token('LEG_CODE','US');
2682: hr_utility.raise_error;
2683: end if;
2684: if g_debug then
2685: hr_utility.set_location(l_proc, 30);
2686: end if;
2681: hr_utility.set_message_token('LEG_CODE','US');
2682: hr_utility.raise_error;
2683: end if;
2684: if g_debug then
2685: hr_utility.set_location(l_proc, 30);
2686: end if;
2687: --
2688: -- Call the person business process
2689: --
2812: ,p_orig_hire_warning => p_orig_hire_warning
2813: );
2814: --
2815: if g_debug then
2816: hr_utility.set_location(' Leaving:'||l_proc, 40);
2817: end if;
2818: end create_us_employee;
2819: -- --------------------------------------------------------------------------
2820:
2957: --
2958: begin
2959: if g_debug then
2960: l_proc := g_package||'get_person_details';
2961: hr_utility.set_location('Entering:'|| l_proc, 5);
2962: end if;
2963: --
2964: open csr_chk_person_exists;
2965: fetch csr_chk_person_exists into
2973: --
2974: -- This person either does not exist at all or does not exist as of the
2975: -- date specified.
2976: --
2977: hr_utility.set_message(801, 'HR_51011_PER_NOT_EXIST_DATE');
2978: hr_utility.raise_error;
2979: end if;
2980: --changes for bug 5601538 starts here
2981: Loop
2974: -- This person either does not exist at all or does not exist as of the
2975: -- date specified.
2976: --
2977: hr_utility.set_message(801, 'HR_51011_PER_NOT_EXIST_DATE');
2978: hr_utility.raise_error;
2979: end if;
2980: --changes for bug 5601538 starts here
2981: Loop
2982: if p_system_person_type ='EX_EMP' then
2990: End loop;
2991: --changes for bug 5601538 ends here
2992: close csr_chk_person_exists;
2993: if g_debug then
2994: hr_utility.set_location(' Leaving:'||l_proc, 10);
2995: end if;
2996: end get_person_details;
2997: -- --------------------------------------------------------------------------
2998: -- |-------------------------< perform_validation >-------------------------|
3063: --
3064: --
3065: begin
3066: if g_debug then
3067: hr_utility.set_location('Entering:'|| l_proc, 5);
3068: end if;
3069: --
3070: -- Validation Logic
3071: --
3123: --
3124: -- the system person type is not 'EX_EMP' therefore error
3125: -- You cannot Re-Hire a person who is not an Ex-Employee.
3126: --
3127: hr_utility.set_message(801, 'HR_51012_REHIRE_NOT_EX_EMP');
3128: hr_utility.raise_error;
3129: end if;
3130: if g_debug then
3131: hr_utility.set_location(l_proc, 10);
3124: -- the system person type is not 'EX_EMP' therefore error
3125: -- You cannot Re-Hire a person who is not an Ex-Employee.
3126: --
3127: hr_utility.set_message(801, 'HR_51012_REHIRE_NOT_EX_EMP');
3128: hr_utility.raise_error;
3129: end if;
3130: if g_debug then
3131: hr_utility.set_location(l_proc, 10);
3132: end if;
3127: hr_utility.set_message(801, 'HR_51012_REHIRE_NOT_EX_EMP');
3128: hr_utility.raise_error;
3129: end if;
3130: if g_debug then
3131: hr_utility.set_location(l_proc, 10);
3132: end if;
3133: --
3134: -- 3. ensure the most recent period of service for this person has been
3135: -- completely terminated. i.e. check that
3153: -- we must error
3154: --
3155: -- This person does not have a previous period of service
3156: --
3157: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
3158: hr_utility.raise_error;
3159: end if;
3160: close csr_chk_period_of_service;
3161: --
3154: --
3155: -- This person does not have a previous period of service
3156: --
3157: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
3158: hr_utility.raise_error;
3159: end if;
3160: close csr_chk_period_of_service;
3161: --
3162: --
3169: --
3170: -- You cannot re-hire a person who does not have a final processing date
3171: -- set for their most recent period of service
3172: --
3173: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
3174: hr_utility.raise_error;
3175: end if;
3176: --
3177: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
3170: -- You cannot re-hire a person who does not have a final processing date
3171: -- set for their most recent period of service
3172: --
3173: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
3174: hr_utility.raise_error;
3175: end if;
3176: --
3177: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
3178: --
3184: --
3185: -- You cannot re-hire an Ex-Employee before their LSPD.
3186: -- Please specify a Re-Hire date which is after the LSPD.
3187: --
3188: --hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
3189: hr_utility.set_message(800, 'HR_449759_REHIRE_AFTER_LSPD'); -- product ID corrected for bug fix 8929785
3190: hr_utility.raise_error;
3191: end if;
3192: else
3185: -- You cannot re-hire an Ex-Employee before their LSPD.
3186: -- Please specify a Re-Hire date which is after the LSPD.
3187: --
3188: --hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
3189: hr_utility.set_message(800, 'HR_449759_REHIRE_AFTER_LSPD'); -- product ID corrected for bug fix 8929785
3190: hr_utility.raise_error;
3191: end if;
3192: else
3193: --
3186: -- Please specify a Re-Hire date which is after the LSPD.
3187: --
3188: --hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
3189: hr_utility.set_message(800, 'HR_449759_REHIRE_AFTER_LSPD'); -- product ID corrected for bug fix 8929785
3190: hr_utility.raise_error;
3191: end if;
3192: else
3193: --
3194: -- Rehire before FPD is not allowed (old behaviour)
3199: --
3200: -- You cannot re-hire an Ex-Employee before their final processing date.
3201: -- Please specify a Re-Hire date which is after the final processing date.
3202: --
3203: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
3204: hr_utility.raise_error;
3205: end if;
3206: end if;
3207: --
3200: -- You cannot re-hire an Ex-Employee before their final processing date.
3201: -- Please specify a Re-Hire date which is after the final processing date.
3202: --
3203: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
3204: hr_utility.raise_error;
3205: end if;
3206: end if;
3207: --
3208: --if (l_final_process_date is null) then
3212: -- --
3213: -- -- You cannot re-hire a person who does not have a final processing date
3214: -- -- set for their most recent period of service
3215: -- --
3216: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
3217: -- hr_utility.raise_error;
3218: --elsif (l_final_process_date >= p_hire_date) then
3219: -- --
3220: -- -- the re hire date is before the current final process date
3213: -- -- You cannot re-hire a person who does not have a final processing date
3214: -- -- set for their most recent period of service
3215: -- --
3216: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
3217: -- hr_utility.raise_error;
3218: --elsif (l_final_process_date >= p_hire_date) then
3219: -- --
3220: -- -- the re hire date is before the current final process date
3221: -- --
3221: -- --
3222: -- -- You cannot re-hire an Ex-Employee before their final processing date.
3223: -- -- Please specify a Re-Hire date which is after the final processing date.
3224: -- --
3225: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
3226: -- hr_utility.raise_error;
3227: --end if;
3228: --
3229: -- 115.57 (START)
3222: -- -- You cannot re-hire an Ex-Employee before their final processing date.
3223: -- -- Please specify a Re-Hire date which is after the final processing date.
3224: -- --
3225: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
3226: -- hr_utility.raise_error;
3227: --end if;
3228: --
3229: -- 115.57 (START)
3230: --
3228: --
3229: -- 115.57 (START)
3230: --
3231: if g_debug then
3232: hr_utility.set_location(l_proc, 20);
3233: end if;
3234: p_effective_date := l_effective_start_date;
3235: --
3236:
3234: p_effective_date := l_effective_start_date;
3235: --
3236:
3237: if g_debug then
3238: hr_utility.set_location(' Leaving:'||l_proc, 25);
3239: end if;
3240: end perform_validation;
3241:
3242: begin
3240: end perform_validation;
3241:
3242: begin
3243: if g_debug then
3244: hr_utility.set_location('Entering:'|| l_proc, 5);
3245: end if;
3246: --
3247: -- Issue a savepoint.
3248: --
3266: --
3267: -- processing logic
3268: --
3269: if g_debug then
3270: hr_utility.set_location(l_proc, 10);
3271: end if;
3272: l_person_type_id := p_person_type_id;
3273: --
3274: begin
3302: p_business_group_id => l_business_group_id,
3303: p_expected_sys_type => 'EMP');
3304: --
3305: if g_debug then
3306: hr_utility.set_location(l_proc, 15);
3307: end if;
3308: --
3309: if (l_effective_date = p_hire_date) then
3310: l_datetrack_mode := 'CORRECTION';
3342: p_full_name => l_full_name,
3343: p_npw_number => l_npw_number);
3344: --
3345: if g_debug then
3346: hr_utility.set_location(l_proc, 20);
3347: end if;
3348: --
3349: -- add to current security list
3350: -- when in validation only mode raise the Validate_Enabled exception
3373:
3374: -- PTU : End of changes
3375: --
3376: if g_debug then
3377: hr_utility.set_location(l_proc, 22);
3378: end if;
3379: --
3380: -- create a new period of service for the re-hired employee
3381: --
3388: p_validate_df_flex => false,
3389: p_object_version_number => l_pds_object_version_number);
3390: --
3391: if g_debug then
3392: hr_utility.set_location(l_proc, 25);
3393: end if;
3394: --
3395: -- create a default primary assignment with any corresponding standard
3396: -- element entries for the re-hired employee
3407: --
3408: -- 115.57 (START)
3409: --
3410: if g_debug then
3411: hr_utility.set_location(l_proc, 26);
3412: end if;
3413: --
3414: -- If rehire before FPD is allowed, any resulting overlapping PDS
3415: -- will require updating the terminated primary assignment to
3422: );
3423: end if;
3424: --
3425: if g_debug then
3426: hr_utility.set_location(l_proc, 27);
3427: end if;
3428: --
3429: -- 115.57 (END)
3430: --
3484: --
3485: -- When in validation only mode raise the Validate_Enabled exception
3486: --
3487: if g_debug then
3488: hr_utility.set_location(' Leaving:'||l_proc, 30);
3489: end if;
3490: exception
3491: when hr_api.validate_enabled then
3492: --
3530: --
3531: -- End of fix.
3532: --
3533: if g_debug then
3534: hr_utility.set_location(' Leaving:'||l_proc, 35);
3535: end if;
3536: end re_hire_ex_employee;
3537: --
3538: -- OLD
3717: end if;
3718: -- Bug 665566 End
3719:
3720: if g_debug then
3721: hr_utility.set_location('Entering:'|| l_proc, 5);
3722: end if;
3723: --
3724: -- Truncate p_effective_date
3725: --
3740: ,p_argument => 'person id'
3741: ,p_argument_value => p_person_id);
3742: --
3743: if g_debug then
3744: hr_utility.set_location(' Leaving:'||l_proc, 10);
3745: end if;
3746: --
3747: -- Check that this person (p_person_id) exists as of l_effective_date
3748: -- the current person type (per_people_f.person_type_id) has a
3755: ,l_npw_number
3756: ,l_system_person_type;
3757: if csr_chk_person_exists%notfound then
3758: close csr_chk_person_exists;
3759: hr_utility.set_message(800, 'HR_51011_PER_NOT_EXIST_DATE');
3760: hr_utility.raise_error;
3761: end if;
3762: close csr_chk_person_exists;
3763: --
3756: ,l_system_person_type;
3757: if csr_chk_person_exists%notfound then
3758: close csr_chk_person_exists;
3759: hr_utility.set_message(800, 'HR_51011_PER_NOT_EXIST_DATE');
3760: hr_utility.raise_error;
3761: end if;
3762: close csr_chk_person_exists;
3763: --
3764: --
3767: if (l_system_person_type <> 'EMP' and l_system_person_type <> 'EMP_APL') then
3768: --
3769: -- the system person type is not 'EMP'.
3770: --
3771: hr_utility.set_message(800, 'PER_52788_PER_INV_PER_TYPE');
3772: hr_utility.raise_error;
3773: end if;
3774: if g_debug then
3775: hr_utility.set_location(l_proc, 15);
3768: --
3769: -- the system person type is not 'EMP'.
3770: --
3771: hr_utility.set_message(800, 'PER_52788_PER_INV_PER_TYPE');
3772: hr_utility.raise_error;
3773: end if;
3774: if g_debug then
3775: hr_utility.set_location(l_proc, 15);
3776: end if;
3771: hr_utility.set_message(800, 'PER_52788_PER_INV_PER_TYPE');
3772: hr_utility.raise_error;
3773: end if;
3774: if g_debug then
3775: hr_utility.set_location(l_proc, 15);
3776: end if;
3777:
3778: --
3779: -- Initialise local variables
3807: end;
3808: -- processing logic
3809: --
3810: if g_debug then
3811: hr_utility.set_location(l_proc, 20);
3812: end if;
3813: --
3814: -- PTU : Following Code has been added
3815: -- Validate that the person_type_id passed is a flavour of 'APL' or derive the default
3830: -- fetch csr_get_person_type_id into
3831: -- l_person_type_id;
3832: -- if csr_get_person_type_id%notfound then
3833: -- close csr_get_person_type_id;
3834: -- hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
3835: -- hr_utility.raise_error;
3836: -- end if;
3837: -- close csr_get_person_type_id;
3838: --
3831: -- l_person_type_id;
3832: -- if csr_get_person_type_id%notfound then
3833: -- close csr_get_person_type_id;
3834: -- hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
3835: -- hr_utility.raise_error;
3836: -- end if;
3837: -- close csr_get_person_type_id;
3838: --
3839: if g_debug then
3836: -- end if;
3837: -- close csr_get_person_type_id;
3838: --
3839: if g_debug then
3840: hr_utility.set_location(l_proc, 25);
3841: end if;
3842: --
3843: -- Get organization id
3844: --
3851: ,l_normal_hours
3852: ,l_frequency;
3853: if csr_get_organization_id%notfound then
3854: close csr_get_organization_id;
3855: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
3856: hr_utility.raise_error;
3857: end if;
3858: close csr_get_organization_id;
3859: --
3852: ,l_frequency;
3853: if csr_get_organization_id%notfound then
3854: close csr_get_organization_id;
3855: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
3856: hr_utility.raise_error;
3857: end if;
3858: close csr_get_organization_id;
3859: --
3860: -- Get vacancy details.
3871: ,l_vac_organization_id -- added org id. thayden 7/10.
3872: ,l_vac_business_group_id; -- added business_group_id. thayden 7/11.
3873: if csr_get_vacancy_details%notfound then
3874: close csr_get_vacancy_details;
3875: hr_utility.set_message(801, 'HR_51001_THE_VAC_NOT_FOUND');
3876: hr_utility.raise_error;
3877: end if;
3878: close csr_get_vacancy_details;
3879: --added if ... end if (Rod's sugguestion)
3872: ,l_vac_business_group_id; -- added business_group_id. thayden 7/11.
3873: if csr_get_vacancy_details%notfound then
3874: close csr_get_vacancy_details;
3875: hr_utility.set_message(801, 'HR_51001_THE_VAC_NOT_FOUND');
3876: hr_utility.raise_error;
3877: end if;
3878: close csr_get_vacancy_details;
3879: --added if ... end if (Rod's sugguestion)
3880: if l_vac_organization_id is null then
3884: l_vac_organization_id := l_business_group_id;
3885: end if;
3886: --
3887: if g_debug then
3888: hr_utility.set_location(l_proc, 30);
3889: end if;
3890: --
3891: -- 3652025: Create an applicant, generate the application and
3892: -- the applicant assignment
3908: ,p_per_effective_end_date => l_effective_end_date
3909: ,p_appl_override_warning => l_appl_override_warning);
3910: --
3911: if g_debug then
3912: hr_utility.set_location(l_proc, 35);
3913: end if;
3914: --
3915: hr_security_internal.add_to_person_list(l_effective_date,l_assignment_id);
3916: --
3914: --
3915: hr_security_internal.add_to_person_list(l_effective_date,l_assignment_id);
3916: --
3917: if g_debug then
3918: hr_utility.set_location(l_proc, 40);
3919: end if;
3920: --
3921: --
3922: begin
3971: raise hr_api.validate_enabled;
3972: end if;
3973: --
3974: if g_debug then
3975: hr_utility.set_location(' Leaving:'||l_proc, 50);
3976: end if;
3977: exception
3978: when hr_api.validate_enabled then
3979: --
3997: p_per_effective_end_date := null;
3998: p_appl_override_warning := null;
3999:
4000: if g_debug then
4001: hr_utility.set_location(' Leaving:'||l_proc, 55);
4002: end if;
4003: end apply_for_internal_vacancy;
4004: --
4005: -- ----------------------------------------------------------------------------
4030: --
4031: BEGIN
4032: --
4033: if g_debug then
4034: hr_utility.set_location('Entering:'||l_proc,10);
4035: end if;
4036: --
4037: hr_employee_api.hire_into_job
4038: (p_validate => p_validate
4051: ,p_orig_hire_warning => p_orig_hire_warning
4052: );
4053: --
4054: if g_debug then
4055: hr_utility.set_location('Leaving:'||l_proc,999);
4056: end if;
4057:
4058: --
4059: END hire_into_job;
4187:
4188: BEGIN
4189: --
4190: if g_debug then
4191: hr_utility.set_location('Entering:'||l_proc,10);
4192: end if;
4193: --
4194: -- Ensure mandatory arguments have been passed
4195: --
4213: --
4214: SAVEPOINT hire_into_job;
4215: --
4216: if g_debug then
4217: hr_utility.set_location(l_proc,20);
4218: end if;
4219: --
4220: -- Get dervied details for person on effective date
4221: --
4226: FETCH csr_per_details INTO l_per_details_rec;
4227: IF csr_per_details%NOTFOUND
4228: THEN
4229: CLOSE csr_per_details;
4230: hr_utility.set_message(800,'PER_52097_APL_INV_PERSON_ID');
4231: hr_utility.raise_error;
4232: END IF;
4233: CLOSE csr_per_details;
4234: --
4227: IF csr_per_details%NOTFOUND
4228: THEN
4229: CLOSE csr_per_details;
4230: hr_utility.set_message(800,'PER_52097_APL_INV_PERSON_ID');
4231: hr_utility.raise_error;
4232: END IF;
4233: CLOSE csr_per_details;
4234: --
4235: if g_debug then
4232: END IF;
4233: CLOSE csr_per_details;
4234: --
4235: if g_debug then
4236: hr_utility.set_location(l_proc,30);
4237: end if;
4238: --
4239: -- Call Before Process User Hook
4240: --
4259: );
4260: END;
4261: --
4262: if g_debug then
4263: hr_utility.set_location(l_proc,40);
4264: end if;
4265: --
4266: -- Check the person is of a correct system person type
4267: --
4267: --
4268: IF l_per_details_rec.system_person_type NOT IN ('EX_APL','EX_EMP','OTHER')
4269: THEN
4270: if g_debug then
4271: hr_utility.set_location(l_proc,50);
4272: end if;
4273: hr_utility.set_message(800,'PER_52096_APL_INV_PERSON_TYPE');
4274: hr_utility.raise_error;
4275: END IF;
4269: THEN
4270: if g_debug then
4271: hr_utility.set_location(l_proc,50);
4272: end if;
4273: hr_utility.set_message(800,'PER_52096_APL_INV_PERSON_TYPE');
4274: hr_utility.raise_error;
4275: END IF;
4276: --
4277: if g_debug then
4270: if g_debug then
4271: hr_utility.set_location(l_proc,50);
4272: end if;
4273: hr_utility.set_message(800,'PER_52096_APL_INV_PERSON_TYPE');
4274: hr_utility.raise_error;
4275: END IF;
4276: --
4277: if g_debug then
4278: hr_utility.set_location(l_proc,60);
4274: hr_utility.raise_error;
4275: END IF;
4276: --
4277: if g_debug then
4278: hr_utility.set_location(l_proc,60);
4279: end if;
4280: -- Start of fix for bug 3143299.
4281: --
4282: --
4288: ,l_rule_found
4289: );
4290: --
4291: if g_debug then
4292: hr_utility.set_location(l_proc,62);
4293: end if;
4294: --
4295: -- 115.57 (END)
4296: --
4318: -- we must error
4319: --
4320: -- This person does not have a previous period of service
4321: --
4322: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
4323: hr_utility.raise_error;
4324: end if;
4325: close csr_chk_period_of_service;
4326: --
4319: --
4320: -- This person does not have a previous period of service
4321: --
4322: hr_utility.set_message(801, 'HR_51013_PDS_NOT_EXIST');
4323: hr_utility.raise_error;
4324: end if;
4325: close csr_chk_period_of_service;
4326: --
4327: --
4334: --
4335: -- You cannot re-hire a person who does not have a final processing date
4336: -- set for their most recent period of service
4337: --
4338: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4339: hr_utility.raise_error;
4340: end if;
4341: --
4342: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
4335: -- You cannot re-hire a person who does not have a final processing date
4336: -- set for their most recent period of service
4337: --
4338: hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4339: hr_utility.raise_error;
4340: end if;
4341: --
4342: if l_rule_found and nvl(l_rule_value,'N') = 'Y' then
4343: --
4349: --
4350: -- You cannot re-hire an Ex-Employee before their LSPD.
4351: -- Please specify a Re-Hire date which is after the LSPD.
4352: --
4353: -- hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
4354: hr_utility.set_message(800, 'HR_449759_REHIRE_AFTER_LSPD'); -- product ID corrected for bug fix 8929785
4355: hr_utility.raise_error;
4356: end if;
4357: else
4350: -- You cannot re-hire an Ex-Employee before their LSPD.
4351: -- Please specify a Re-Hire date which is after the LSPD.
4352: --
4353: -- hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
4354: hr_utility.set_message(800, 'HR_449759_REHIRE_AFTER_LSPD'); -- product ID corrected for bug fix 8929785
4355: hr_utility.raise_error;
4356: end if;
4357: else
4358: --
4351: -- Please specify a Re-Hire date which is after the LSPD.
4352: --
4353: -- hr_utility.set_message(801, 'HR_449759_REHIRE_AFTER_LSPD');
4354: hr_utility.set_message(800, 'HR_449759_REHIRE_AFTER_LSPD'); -- product ID corrected for bug fix 8929785
4355: hr_utility.raise_error;
4356: end if;
4357: else
4358: --
4359: -- Rehire before FPD is not allowed (old behaviour)
4364: --
4365: -- You cannot re-hire an Ex-Employee before their final processing date.
4366: -- Please specify a Re-Hire date which is after the final processing date.
4367: --
4368: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4369: hr_utility.raise_error;
4370: end if;
4371: end if;
4372: --
4365: -- You cannot re-hire an Ex-Employee before their final processing date.
4366: -- Please specify a Re-Hire date which is after the final processing date.
4367: --
4368: hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4369: hr_utility.raise_error;
4370: end if;
4371: end if;
4372: --
4373: --if (l_final_process_date is null) then
4377: -- --
4378: -- -- You cannot re-hire a person who does not have a final processing date
4379: -- -- set for their most recent period of service
4380: -- --
4381: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4382: -- hr_utility.raise_error;
4383: --elsif (l_final_process_date >= l_effective_date) then
4384: -- --
4385: -- -- the re hire date is before the current final process date
4378: -- -- You cannot re-hire a person who does not have a final processing date
4379: -- -- set for their most recent period of service
4380: -- --
4381: -- hr_utility.set_message(801, 'HR_51014_REHIRE_FINAL_DATE');
4382: -- hr_utility.raise_error;
4383: --elsif (l_final_process_date >= l_effective_date) then
4384: -- --
4385: -- -- the re hire date is before the current final process date
4386: -- --
4386: -- --
4387: -- -- You cannot re-hire an Ex-Employee before their final processing date.
4388: -- -- Please specify a Re-Hire date which is after the final processing date.
4389: -- --
4390: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4391: -- hr_utility.raise_error;
4392: --end if;
4393: --
4394: -- 115.57 (END)
4387: -- -- You cannot re-hire an Ex-Employee before their final processing date.
4388: -- -- Please specify a Re-Hire date which is after the final processing date.
4389: -- --
4390: -- hr_utility.set_message(801, 'HR_51015_REHIRE_NEW_DATE');
4391: -- hr_utility.raise_error;
4392: --end if;
4393: --
4394: -- 115.57 (END)
4395: --
4395: --
4396: end if;
4397: --
4398: if g_debug then
4399: hr_utility.set_location(l_proc,65);
4400: end if;
4401: -- End of fix for bug 3143299
4402:
4403: -- Ensure the employee number will not be changed if it exists
4405: IF l_per_details_rec.employee_number IS NOT NULL
4406: AND NVL(p_employee_number,hr_api.g_number) <> l_per_details_rec.employee_number
4407: THEN
4408: if g_debug then
4409: hr_utility.set_location(l_proc,70);
4410: end if;
4411: p_employee_number := l_per_details_rec.employee_number;
4412: END IF;
4413: --
4411: p_employee_number := l_per_details_rec.employee_number;
4412: END IF;
4413: --
4414: if g_debug then
4415: hr_utility.set_location(l_proc,80);
4416: end if;
4417: --
4418: -- Check the person does not have future assignment changes
4419: --
4423: );
4424: IF l_future_asgs_count > 0
4425: THEN
4426: if g_debug then
4427: hr_utility.set_location(l_proc,90);
4428: end if;
4429: hr_utility.set_message(800,'HR_7975_ASG_INV_FUTURE_ASA');
4430: hr_utility.raise_error;
4431: END IF;
4425: THEN
4426: if g_debug then
4427: hr_utility.set_location(l_proc,90);
4428: end if;
4429: hr_utility.set_message(800,'HR_7975_ASG_INV_FUTURE_ASA');
4430: hr_utility.raise_error;
4431: END IF;
4432: --
4433: if g_debug then
4426: if g_debug then
4427: hr_utility.set_location(l_proc,90);
4428: end if;
4429: hr_utility.set_message(800,'HR_7975_ASG_INV_FUTURE_ASA');
4430: hr_utility.raise_error;
4431: END IF;
4432: --
4433: if g_debug then
4434: hr_utility.set_location(l_proc,100);
4430: hr_utility.raise_error;
4431: END IF;
4432: --
4433: if g_debug then
4434: hr_utility.set_location(l_proc,100);
4435: end if;
4436: --
4437: -- If person type id is not null check it corresponds to the correct type for
4438: -- the persons current system person type is currently active and in the
4439: -- correct business group, otherwise set person type id to the active default
4440: -- for the correct system person type in the correct business group
4441: --
4442: if g_debug then
4443: hr_utility.set_location(l_proc,110);
4444: end if;
4445: l_system_person_type := 'EMP';
4446: per_per_bus.chk_person_type
4447: (p_person_type_id => l_person_type_id
4449: ,p_expected_sys_type => l_system_person_type
4450: );
4451: --
4452: if g_debug then
4453: hr_utility.set_location(l_proc,120);
4454: end if;
4455: --
4456: -- Check the datetrack mode
4457: --
4466: end if;
4467: ELSE
4468: IF (l_datetrack_update_mode NOT IN (hr_api.g_update,hr_api.g_correction))
4469: THEN
4470: hr_utility.set_message(800,'HR_7203_DT_UPD_MODE_INVALID');
4471: hr_utility.raise_error;
4472: END IF;
4473: END IF;
4474: ELSE
4467: ELSE
4468: IF (l_datetrack_update_mode NOT IN (hr_api.g_update,hr_api.g_correction))
4469: THEN
4470: hr_utility.set_message(800,'HR_7203_DT_UPD_MODE_INVALID');
4471: hr_utility.raise_error;
4472: END IF;
4473: END IF;
4474: ELSE
4475: l_datetrack_update_mode := hr_api.g_update;
4518: ,p_original_date_of_hire => nvl(l_earliest_date,l_effective_date) -- Bug#14140116
4519: );
4520: --
4521: if g_debug then
4522: hr_utility.set_location(l_proc,130);
4523: end if;
4524: --
4525: -- add to current security list
4526: --
4526: --
4527: hr_security_internal.populate_new_person(l_per_details_rec.business_group_id,p_person_id);
4528: --
4529: if g_debug then
4530: hr_utility.set_location(l_proc,135);
4531: end if;
4532: --
4533: -- Create an period of service for the person
4534: --
4542: ,p_object_version_number => l_pds_object_version_number
4543: );
4544: --
4545: if g_debug then
4546: hr_utility.set_location(l_proc,140);
4547: end if;
4548: --
4549: -- Create a default employee assignment for the person
4550: --
4559: ,p_assignment_number => l_assignment_number
4560: );
4561: --
4562: if g_debug then
4563: hr_utility.set_location(l_proc,150);
4564: end if;
4565: --
4566: -- 115.57 (START)
4567: --
4577: );
4578: end if;
4579: --
4580: if g_debug then
4581: hr_utility.set_location(l_proc,155);
4582: end if;
4583: --
4584: -- 115.57 (END)
4585: --
4656: );
4657: END;
4658: --
4659: if g_debug then
4660: hr_utility.set_location(l_proc,160);
4661: end if;
4662: --
4663: -- When in validation only mode raise validate_enabled exception
4664: --
4675: p_assign_payroll_warning := l_assign_payroll_warning;
4676: p_orig_hire_warning := l_orig_hire_warning;
4677: --
4678: if g_debug then
4679: hr_utility.set_location(' Leaving:'||l_proc,1000);
4680: end if;
4681: --
4682: EXCEPTION
4683: --
4898: lr_prim_asg c_prim_asg%ROWTYPE;
4899: --
4900: BEGIN
4901: --
4902: hr_utility.set_location('Entering:'|| l_proc, 5);
4903: --
4904: -- Issue a savepoint.
4905: --
4906: SAVEPOINT update_rehire_primary_asgs;
4908: IF p_cancel = 'Y' THEN
4909: --
4910: -- Perform Cancel Rehire updates to ASG records
4911: --
4912: hr_utility.set_location(l_proc, 10);
4913: --
4914: -- Get the primary assignment on (rehire date - 1)
4915: --
4916: OPEN c_prim_asg (p_person_id
4917: ,(p_rehire_date-1)
4918: );
4919: FETCH c_prim_asg INTO lr_prim_asg;
4920: IF c_prim_asg%NOTFOUND THEN
4921: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4922: hr_utility.raise_error;
4923: END IF;
4924: CLOSE c_prim_asg;
4925: --
4918: );
4919: FETCH c_prim_asg INTO lr_prim_asg;
4920: IF c_prim_asg%NOTFOUND THEN
4921: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4922: hr_utility.raise_error;
4923: END IF;
4924: CLOSE c_prim_asg;
4925: --
4926: hr_utility.set_location(l_proc, 20);
4922: hr_utility.raise_error;
4923: END IF;
4924: CLOSE c_prim_asg;
4925: --
4926: hr_utility.set_location(l_proc, 20);
4927: --
4928: -- Update all assignments records for this assignment with
4929: -- ESD >= rehire date setting primary flag to 'Y'
4930: --
4938: ELSIF p_cancel = 'N' THEN
4939: --
4940: -- Perform Rehire updates to ASG records
4941: --
4942: hr_utility.set_location(l_proc, 30);
4943: --
4944: -- Get the primary assignment on rehire date
4945: --
4946: OPEN c_prim_asg (p_person_id
4947: ,p_rehire_date
4948: );
4949: FETCH c_prim_asg INTO lr_prim_asg;
4950: IF c_prim_asg%NOTFOUND THEN
4951: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4952: hr_utility.raise_error;
4953: END IF;
4954: CLOSE c_prim_asg;
4955: --
4948: );
4949: FETCH c_prim_asg INTO lr_prim_asg;
4950: IF c_prim_asg%NOTFOUND THEN
4951: hr_utility.set_message(800,'PER_52595_PRIM_ASG_INV');
4952: hr_utility.raise_error;
4953: END IF;
4954: CLOSE c_prim_asg;
4955: --
4956: IF p_rehire_date = lr_prim_asg.effective_start_date THEN
4954: CLOSE c_prim_asg;
4955: --
4956: IF p_rehire_date = lr_prim_asg.effective_start_date THEN
4957: --
4958: hr_utility.set_location(l_proc, 40);
4959: --
4960: -- Set the primary assignment flag to 'N' for this record.
4961: --
4962: UPDATE per_assignments_f
4967: AND effective_start_date = p_rehire_date;
4968: --
4969: ELSIF p_rehire_date = lr_prim_asg.effective_end_date THEN
4970: --
4971: hr_utility.set_location(l_proc, 50);
4972: --
4973: -- Update EED to rehire date - 1
4974: --
4975: UPDATE per_assignments_f
4978: WHERE assignment_id = lr_prim_asg.assignment_id
4979: AND assignment_type <> 'B' -- 115.59
4980: AND effective_end_date = p_rehire_date;
4981: --
4982: hr_utility.set_location(l_proc, 60);
4983: --
4984: -- Insert new record with primary flag 'N' and ESD
4985: -- same as EED same as rehire date
4986: --
5218: );
5219: --
5220: ELSE -- rehire date between but not inclusive of ESD and EED
5221: --
5222: hr_utility.set_location(l_proc, 70);
5223: --
5224: -- Update EED to rehire date - 1
5225: --
5226: UPDATE per_assignments_f
5229: WHERE assignment_id = lr_prim_asg.assignment_id
5230: AND assignment_type <> 'B' -- 115.59
5231: AND effective_start_date = lr_prim_asg.effective_start_date;
5232: --
5233: hr_utility.set_location(l_proc, 80);
5234: --
5235: -- Insert new record primary flag 'N' and ESD
5236: -- same as rehire date
5237: --
5469: );
5470: --
5471: END IF;
5472: --
5473: hr_utility.set_location(l_proc, 90);
5474: --
5475: -- Update assignments where ESD > rehire date setting the
5476: -- primary flag to 'N'
5477: --
5482: AND effective_start_date > p_rehire_date;
5483: --
5484: END IF; -- check p_cancel
5485: --
5486: hr_utility.set_location('Leaving:'|| l_proc, 9998);
5487: --
5488: EXCEPTION
5489: --
5490: WHEN OTHERS THEN
5492: -- An unexpected error has occurred
5493: -- No OUT parameters need to be set
5494: -- No cursors need to be closed
5495: --
5496: hr_utility.set_location('Leaving:'|| l_proc, 9999);
5497: ROLLBACK TO update_rehire_primary_asgs;
5498: RAISE;
5499: --
5500: END update_rehire_primary_asgs;
5579: e_nothing_to_manage EXCEPTION;
5580: --
5581: BEGIN
5582: --
5583: hr_utility.set_location('Entering:'|| l_proc, 5);
5584: --
5585: -- Issue a savepoint.
5586: --
5587: SAVEPOINT manage_rehire_primary_asgs;
5585: -- Issue a savepoint.
5586: --
5587: SAVEPOINT manage_rehire_primary_asgs;
5588: --
5589: hr_utility.set_location(l_proc, 10);
5590: --
5591: -- Get the previous PDS that is the latest PDS before
5592: -- rehire date
5593: --
5601: RAISE e_nothing_to_manage;
5602: END IF;
5603: CLOSE csr_prev_pds;
5604: --
5605: hr_utility.set_location(l_proc, 20);
5606: --
5607: -- Check if overlap condition
5608: --
5609: IF lr_prev_pds.final_process_date < p_rehire_date THEN
5612: --
5613: RAISE e_nothing_to_manage;
5614: END IF;
5615: --
5616: hr_utility.set_location(l_proc, 30);
5617: --
5618: -- Get the associated primary assignment on rehire date
5619: --
5620: OPEN csr_prim_asg(lr_prev_pds.period_of_service_id
5624: FETCH csr_prim_asg INTO lr_prim_asg;
5625: IF csr_prim_asg%NOTFOUND THEN
5626: CLOSE csr_prim_asg;
5627: --
5628: hr_utility.set_location(l_proc, 35);
5629: --
5630: -- Get the associated primary assignment on actual term date
5631: --
5632: OPEN csr_prim_asg(lr_prev_pds.period_of_service_id
5641: END IF;
5642: END IF;
5643: CLOSE csr_prim_asg;
5644: --
5645: hr_utility.set_location(l_proc, 40);
5646: --
5647: -- if p_cancel = 'Y', this is a cancel rehire scenario
5648: -- find primary assignment on rehire date - 1
5649: -- DT CORRECTION to ASG records with ESD >= rehire date to primary
5656: ,p_rehire_date => p_rehire_date
5657: ,p_cancel => p_cancel
5658: );
5659: --
5660: hr_utility.set_location('Leaving:'|| l_proc, 50);
5661: --
5662: EXCEPTION
5663: --
5664: WHEN e_nothing_to_manage THEN
5662: EXCEPTION
5663: --
5664: WHEN e_nothing_to_manage THEN
5665: --
5666: hr_utility.set_location('Leaving:'|| l_proc, 60);
5667: ROLLBACK TO manage_rehire_primary_asgs;
5668: --
5669: WHEN OTHERS THEN
5670: --
5671: -- An unexpected error has occurred
5672: -- No OUT parameters need to be set
5673: -- No cursors need to be closed
5674: --
5675: hr_utility.set_location('Leaving:'|| l_proc, 70);
5676: ROLLBACK TO manage_rehire_primary_asgs;
5677: RAISE;
5678: --
5679: END manage_rehire_primary_asgs;