[Home] [Help]
11: g_date_prior_to_cur_start_date exception;
12: g_validate_basic_details_error exception;
13: g_applicant_hire boolean := false;
14:
15: g_debug boolean := hr_utility.debug_enabled;
16:
17: --global cursor for getting system_person_type
18: CURSOR gc_get_sys_person_type (p_person_type_id in number) IS
19: SELECT ppt.system_person_type
215: l_proc varchar2(72) := g_package||'get_hr_lookup_meaning';
216: --
217: Begin
218: --
219: hr_utility.set_location('Entering:'||l_proc, 5);
220: hr_utility.set_location('Entering For Loop:'||l_proc,10);
221: FOR csr1 in csr_hr_lookup LOOP
222: l_meaning := csr1.meaning;
223: END LOOP;
216: --
217: Begin
218: --
219: hr_utility.set_location('Entering:'||l_proc, 5);
220: hr_utility.set_location('Entering For Loop:'||l_proc,10);
221: FOR csr1 in csr_hr_lookup LOOP
222: l_meaning := csr1.meaning;
223: END LOOP;
224: hr_utility.set_location('Exiting For Loop:'||l_proc,15);
220: hr_utility.set_location('Entering For Loop:'||l_proc,10);
221: FOR csr1 in csr_hr_lookup LOOP
222: l_meaning := csr1.meaning;
223: END LOOP;
224: hr_utility.set_location('Exiting For Loop:'||l_proc,15);
225:
226: hr_utility.set_location('Exiting:'||l_proc,20);
227: --
228: return l_meaning;
222: l_meaning := csr1.meaning;
223: END LOOP;
224: hr_utility.set_location('Exiting For Loop:'||l_proc,15);
225:
226: hr_utility.set_location('Exiting:'||l_proc,20);
227: --
228: return l_meaning;
229: --
230: Exception
228: return l_meaning;
229: --
230: Exception
231: When others THEN
232: hr_utility.set_location('Exception:Others'||l_proc,555);
233: raise;
234: --
235: END get_hr_lookup_meaning;
236:
248: l_proc varchar2(72) := g_package||'get_max_effective_date';
249: --
250: Begin
251: --
252: hr_utility.set_location('Entering:'||l_proc, 5);
253: select max(EFFECTIVE_START_DATE) into l_effective_date
254: from per_all_people_f where person_id = p_person_id;
255: hr_utility.set_location('Exiting:'||l_proc,10);
256: --
251: --
252: hr_utility.set_location('Entering:'||l_proc, 5);
253: select max(EFFECTIVE_START_DATE) into l_effective_date
254: from per_all_people_f where person_id = p_person_id;
255: hr_utility.set_location('Exiting:'||l_proc,10);
256: --
257: return l_effective_date;
258: --
259: Exception
257: return l_effective_date;
258: --
259: Exception
260: When others THEN
261: hr_utility.set_location('Exception:Others'||l_proc,555);
262: raise;
263: --
264: END get_max_effective_date;
265:
432: -- transaction. This is used for re-display the Update page when a user
433: -- clicks the Back button on the Review page to go back to the Update page
434: -- to make further changes or to correct errors.
435: -----------------------------------------------------------------------------
436: hr_utility.set_location('Entering:'||l_proc, 5);
437: hr_transaction_api.get_transaction_step_info
438: (p_item_type => p_item_type
439: ,p_item_key => p_item_key
440: ,p_activity_id => p_activity_id
445:
446: IF l_trans_step_rows IS NOT NULL OR
447: l_trans_step_rows > 0
448: THEN
449: hr_utility.set_location('IF step_rows!=NULL OR step_rows > 0:'||l_proc,10);
450: l_transaction_rec_count := l_trans_step_rows;
451: ELSE
452: hr_utility.set_location('IF step_rows=NULL AND step_rows <= 0:'||l_proc,15);
453: l_transaction_rec_count := 0;
448: THEN
449: hr_utility.set_location('IF step_rows!=NULL OR step_rows > 0:'||l_proc,10);
450: l_transaction_rec_count := l_trans_step_rows;
451: ELSE
452: hr_utility.set_location('IF step_rows=NULL AND step_rows <= 0:'||l_proc,15);
453: l_transaction_rec_count := 0;
454: hr_utility.set_location('Exiting: in the else part'||l_proc, 15);
455: return;
456: END IF;
450: l_transaction_rec_count := l_trans_step_rows;
451: ELSE
452: hr_utility.set_location('IF step_rows=NULL AND step_rows <= 0:'||l_proc,15);
453: l_transaction_rec_count := 0;
454: hr_utility.set_location('Exiting: in the else part'||l_proc, 15);
455: return;
456: END IF;
457: --
458: -- -------------------------------------------------------------------
462: --
463: -- Now get the transaction data for the given step
464: -- Need to loop through l_trans_rec_count -1 as the index starts from 0
465:
466: hr_utility.set_location('Entering 0..l_transaction_rec_count-1:'||l_proc,20);
467: FOR i in 0..l_transaction_rec_count-1 LOOP
468: IF(l_api_names(i) = 'HR_PROCESS_PERSON_SS.PROCESS_API') THEN
469: get_person_data_from_tt(
470: p_transaction_step_id => l_trans_step_ids(i)
606: ,p_action_type => p_action_type
607: );
608: END IF;
609: END LOOP;
610: hr_utility.set_location('Exiting For Loop:'||l_proc,30);
611:
612: p_trans_rec_count := l_transaction_rec_count;
613: hr_utility.set_location('Exiting:'||l_proc,35);
614:
609: END LOOP;
610: hr_utility.set_location('Exiting For Loop:'||l_proc,30);
611:
612: p_trans_rec_count := l_transaction_rec_count;
613: hr_utility.set_location('Exiting:'||l_proc,35);
614:
615: EXCEPTION
616: WHEN g_data_error THEN
617: hr_utility.set_location('Exception:g_data_error'||l_proc,555);
613: hr_utility.set_location('Exiting:'||l_proc,35);
614:
615: EXCEPTION
616: WHEN g_data_error THEN
617: hr_utility.set_location('Exception:g_data_error'||l_proc,555);
618: RAISE;
619:
620: END get_person_data_from_tt;
621: --
774: l_proc varchar2(72) := g_package||'get_person_data_from_tt';
775:
776: BEGIN
777: --
778: hr_utility.set_location('Entering:'||l_proc, 5);
779: p_effective_date:= to_date(
780: hr_transaction_ss.get_wf_effective_date
781: (p_transaction_step_id => p_transaction_step_id),g_date_format);
782: --
779: p_effective_date:= to_date(
780: hr_transaction_ss.get_wf_effective_date
781: (p_transaction_step_id => p_transaction_step_id),g_date_format);
782: --
783: hr_utility.set_location('Start Calling hr_transaction_api methods:'||l_proc,10);
784: p_attribute_update_mode :=
785: hr_transaction_api.get_varchar2_value
786: (p_transaction_step_id => p_transaction_step_id
787: ,p_name => 'P_ATTRIBUTE_UPDATE_MODE');
1112: (p_transaction_step_id => p_transaction_step_id),g_date_format);
1113: --
1114: exception
1115: when others then
1116: hr_utility.set_location('Exception:Others'||l_proc,555);
1117: P_ADJUSTED_SVC_DATE := null;
1118: P_DATE_START := null;
1119: end;
1120:
1462: p_marital_status := l_marital_status;
1463: p_marital_status_meaning := l_marital_status_meaning;
1464: --
1465: --
1466: hr_utility.set_location('End of Calling hr_transaction_api methods:'||l_proc,15);
1467: hr_utility.set_location('Exiting:'||l_proc, 20);
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: hr_utility.set_location('Exception:Others'||l_proc,555);
1463: p_marital_status_meaning := l_marital_status_meaning;
1464: --
1465: --
1466: hr_utility.set_location('End of Calling hr_transaction_api methods:'||l_proc,15);
1467: hr_utility.set_location('Exiting:'||l_proc, 20);
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: hr_utility.set_location('Exception:Others'||l_proc,555);
1471: RAISE;
1466: hr_utility.set_location('End of Calling hr_transaction_api methods:'||l_proc,15);
1467: hr_utility.set_location('Exiting:'||l_proc, 20);
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: hr_utility.set_location('Exception:Others'||l_proc,555);
1471: RAISE;
1472:
1473: END get_person_data_from_tt;
1474:
1713:
1714: BEGIN
1715:
1716:
1717: hr_utility.set_location('Entering:'||l_proc, 5);
1718: IF g_debug THEN
1719: hr_utility.set_location('IF g_debug THEN', 10);
1720: END IF;
1721:
1715:
1716:
1717: hr_utility.set_location('Entering:'||l_proc, 5);
1718: IF g_debug THEN
1719: hr_utility.set_location('IF g_debug THEN', 10);
1720: END IF;
1721:
1722:
1723: IF upper(p_action_type) = g_change
1721:
1722:
1723: IF upper(p_action_type) = g_change
1724: THEN
1725: hr_utility.set_location('IF Action Type=g_change', 15);
1726: l_attribute_update_mode := g_attribute_update;
1727: ELSE
1728: IF upper(p_action_type) = g_correct
1729: THEN
1726: l_attribute_update_mode := g_attribute_update;
1727: ELSE
1728: IF upper(p_action_type) = g_correct
1729: THEN
1730: hr_utility.set_location('IF Action Type=g_correct', 20);
1731: l_attribute_update_mode := g_attribute_correct;
1732: END IF;
1733: END IF;
1734:
1733: END IF;
1734:
1735:
1736: IF g_debug THEN
1737: hr_utility.set_location('l_attribute_update_mode=' || l_attribute_update_mode, 20);
1738: END IF;
1739:
1740:
1741:
1748: -- transaction table.
1749:
1750: IF p_vendor_id = 0
1751: THEN
1752: hr_utility.set_location('p_vendor_id = 0:'||l_proc,25);
1753: l_vendor_id := null;
1754: ELSE
1755: hr_utility.set_location('p_vendor_id != 0:'||l_proc,30);
1756: l_vendor_id := p_vendor_id;
1751: THEN
1752: hr_utility.set_location('p_vendor_id = 0:'||l_proc,25);
1753: l_vendor_id := null;
1754: ELSE
1755: hr_utility.set_location('p_vendor_id != 0:'||l_proc,30);
1756: l_vendor_id := p_vendor_id;
1757: END IF;
1758: --
1759: IF p_benefit_group_id = 0
1787: END IF;
1788:
1789: -- Save for later changes.
1790: IF (p_save_mode = 'SAVE_FOR_LATER') THEN
1791: hr_utility.set_location('save mode is SFL'||l_proc,35);
1792: GOTO only_transaction;
1793: END IF;
1794:
1795: --
1798: -- make the applicant an employee and then update the BD record and made
1799: -- this call before is_basic_details_changed, so that the person_type_id
1800: -- is always changed and we write to transaction tables
1801:
1802: hr_utility.set_location('Open:gc_get_current_applicant_flag'||l_proc,40);
1803: open gc_get_current_applicant_flag(p_person_id, p_effective_date);
1804: fetch gc_get_current_applicant_flag into l_current_applicant_flag, l_current_employee_flag, l_current_npw_flag;
1805: close gc_get_current_applicant_flag;
1806:
1819: nvl(l_current_employee_flag, 'N') <> 'Y' AND
1820: nvl(l_current_npw_flag, 'N') <> 'Y') then
1821: g_applicant_hire := true;
1822:
1823: hr_utility.set_location(' SAVEPOINT applicant_hire:'||l_proc,45);
1824: SAVEPOINT applicant_hire;
1825:
1826: open check_payroll;
1827: fetch check_payroll into dummy;
1880: nvl(l_current_employee_flag, 'N') <> 'Y' AND
1881: nvl(l_current_npw_flag, 'N') <> 'Y')
1882: THEN
1883: -- get the person_type_id for the applicant from database
1884: hr_utility.set_location('Fetching gc_get_new_appl_person_type into l_person_type_id:'||l_proc,50);
1885: open gc_get_new_appl_person_type(p_person_id, p_effective_date);
1886: fetch gc_get_new_appl_person_type into l_person_type_id;
1887: close gc_get_new_appl_person_type;
1888: ELSE
1893:
1894:
1895:
1896: IF g_debug THEN
1897: hr_utility.set_location('Before calling is_rec_changed', 55);
1898: END IF;
1899:
1900:
1901: -- Check if the record has changed
2031: IF l_basic_details_changed
2032: THEN
2033: null;
2034: ELSE
2035: hr_utility.set_location('raise hr_perinfo_util_web.g_no_changes:'||l_proc,60);
2036: raise hr_perinfo_util_web.g_no_changes;
2037: GOTO no_transaction;
2038: END IF;
2039:
2038: END IF;
2039:
2040:
2041: if(p_assign_payroll_warning = 'Y') then
2042: hr_utility.set_location('p_assign_payroll_warning = Y:'||l_proc,65);
2043: l_assign_payroll_warning := true;
2044: end if;
2045:
2046: --
2058: ,p_ni_duplicate_warn_or_err => p_ni_duplicate_warn_or_err);
2059: end if;
2060:
2061: if(p_validate_ni <> 'IGNORE') then
2062: hr_utility.set_location('p_validate_ni <> IGNORE:'||l_proc,70);
2063: hr_person_info_util_ss.validate_national_identifier(
2064: p_national_identifier => p_national_identifier
2065: ,p_birth_date => p_date_of_birth
2066: ,p_gender => p_sex
2212: );
2213:
2214:
2215: IF g_debug THEN
2216: hr_utility.set_location('After calling validate_basic_details', 75);
2217: END IF;
2218:
2219:
2220: --
2218:
2219:
2220: --
2221: IF (l_error_message IS NOT NULL) THEN
2222: hr_utility.set_location('l_error_message IS NOT NULL:'||l_proc,80);
2223: raise hr_process_person_ss.g_validate_basic_details_error;
2224: END IF;
2225:
2226: --
2227: IF hr_errors_api.errorExists
2228: THEN
2229:
2230: IF g_debug THEN
2231: hr_utility.set_location('api error exists', 85);
2232: END IF;
2233:
2234: raise g_data_error;
2235: END IF;
3035: actid => p_actid,
3036: aname => g_wf_review_regn_itm_attr_name);
3037: EXCEPTION
3038: WHEN OTHERS THEN
3039: hr_utility.set_location('Exception:Others'||l_proc,555);
3040: l_review_item_name := 'HrBasicDetailsReview';
3041: END;
3042: end if;
3043:
3067: --------------------------------------------------------------------------------
3068: --
3069:
3070: IF g_debug THEN
3071: hr_utility.set_location('Before save_transaction_step', 95);
3072: END IF;
3073:
3074:
3075: hr_transaction_ss.save_transaction_step
3082: ,p_transaction_data => l_transaction_table);
3083: --
3084:
3085: IF g_debug THEN
3086: hr_utility.set_location('After save_transaction_step', 100);
3087: END IF;
3088:
3089: --
3090: -- Not sure if we need to set the generic approval url here ????
3091: --
3092: --
3093:
3094: IF g_debug THEN
3095: hr_utility.set_location('After saving transaction steps', 105);
3096: END IF;
3097:
3098:
3099: --
3126: END IF;
3127: --
3128: p_object_version_number := l_ovn;
3129: p_employee_number := l_employee_number;
3130: hr_utility.set_location('Exiting:'||l_proc, 115);
3131: <
3132: null;
3133:
3134:
3133:
3134:
3135: EXCEPTION
3136: WHEN g_data_error THEN
3137: hr_utility.set_location('Exception:g_data_error'||l_proc,560);
3138: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3139: p_error_message => l_error_message);
3140: -- applicant_hire
3141: if (g_applicant_hire) then
3143: g_applicant_hire := false;
3144: end if;
3145: --
3146: WHEN hr_process_person_ss.g_validate_basic_details_error THEN
3147: hr_utility.set_location('Exception:g_validate_basic_details_error'||l_proc,565);
3148: -- No need to call formatted_error_message, as the messages is already
3149: -- formatted.
3150: p_error_message := l_error_message;
3151: -- applicant_hire
3154: g_applicant_hire := false;
3155: end if;
3156: --
3157: WHEN hr_perinfo_util_web.g_no_changes THEN
3158: hr_utility.set_location('Exception:g_no_changes'||l_proc,570);
3159: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3160: p_error_message => l_error_message,
3161: p_attr_name => 'Page',
3162: p_app_short_name => 'PER',
3168: end if;
3169: --
3170: -- Bug Fix : 3048836
3171: WHEN hr_perinfo_util_web.g_past_effective_date THEN
3172: hr_utility.set_location('Exception:g_past_effective_date'||l_proc,575);
3173: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3174: p_error_message => l_error_message);
3175:
3176: WHEN hr_perinfo_util_web.g_past_current_start_date THEN
3173: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3174: p_error_message => l_error_message);
3175:
3176: WHEN hr_perinfo_util_web.g_past_current_start_date THEN
3177: hr_utility.set_location('Exception:g_past_current_start_date'||l_proc,580);
3178: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3179: p_error_message => l_error_message);
3180:
3181: WHEN OTHERS THEN
3178: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3179: p_error_message => l_error_message);
3180:
3181: WHEN OTHERS THEN
3182: hr_utility.set_location('Exception:Others'||l_proc,585);
3183: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3184: p_error_message => l_error_message);
3185: -- applicant_hire
3186: if (g_applicant_hire) then
3362:
3363: -- Validate that the effective_date entered is not less than the
3364: -- effective_start_date of the most current record.
3365: --
3366: hr_utility.set_location('Entering:& creating a Savepoint'||l_proc, 5);
3367: SAVEPOINT process_basic_details;
3368: --
3369: hr_utility.set_location('Opening & Fetching:get_current_rec'||l_proc,10);
3370: OPEN get_current_rec(p_eff_date=> p_effective_date);
3365: --
3366: hr_utility.set_location('Entering:& creating a Savepoint'||l_proc, 5);
3367: SAVEPOINT process_basic_details;
3368: --
3369: hr_utility.set_location('Opening & Fetching:get_current_rec'||l_proc,10);
3370: OPEN get_current_rec(p_eff_date=> p_effective_date);
3371: FETCH get_current_rec into l_current_rec;
3372: IF get_current_rec%NOTFOUND
3373: THEN
3389: --
To correct the invalid entry either:
3390: -- - enter an address after the hire date
3391: -- - contact your HR department for a correction of the person
3392: -- details change.
3393: hr_utility.set_location('p_effective_date < l_current_rec.effective_start_date:'||l_proc,15);
3394: raise hr_process_person_ss.g_date_prior_to_cur_start_date;
3395: END IF;
3396: --
3397: --
3553:
3554:
3555: IF p_validate_mode
3556: THEN
3557: hr_utility.set_location('IF p_validate_mode:'||l_proc,20);
3558: p_full_name := l_full_name; -- Bug fix 2116170
3559: p_effective_start_date := l_effective_start_date;
3560: p_effective_end_date := l_effective_end_date;
3561: p_comment_id := l_comment_id;
3570: end if;
3571: p_orig_hire_warning := l_orig_hire_warning;
3572: ROLLBACK TO process_basic_details;
3573: ELSE
3574: hr_utility.set_location('!p_validate_mode:'||l_proc,25);
3575: p_effective_start_date := l_effective_start_date;
3576: p_effective_end_date := l_effective_end_date;
3577: p_full_name := l_full_name;
3578: p_comment_id := l_comment_id;
3583: p_employee_number := l_employee_number;
3584: END IF;
3585: --
3586:
3587: hr_utility.set_location('Exiting:'||l_proc, 30);
3588: EXCEPTION
3589:
3590: WHEN hr_process_person_ss.g_date_prior_to_cur_start_date THEN
3591: hr_utility.set_location('Exception:g_date_prior_to_cur_start_date'||l_proc,555);
3587: hr_utility.set_location('Exiting:'||l_proc, 30);
3588: EXCEPTION
3589:
3590: WHEN hr_process_person_ss.g_date_prior_to_cur_start_date THEN
3591: hr_utility.set_location('Exception:g_date_prior_to_cur_start_date'||l_proc,555);
3592: ROLLBACK TO process_basic_details;
3593: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3594: p_error_message => p_error_message,
3595: p_attr_name => 'EffectiveStartDate',
3596: p_app_short_name => 'PER',
3597: p_message_name => 'HR_EARLIER_THAN_CUR_START_DT');
3598: --
3599: WHEN g_data_error THEN
3600: hr_utility.set_location('Exception:g_data_error'||l_proc,560);
3601: ROLLBACK TO process_basic_details;
3602: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3603: p_error_message => p_error_message);
3604: --
3601: ROLLBACK TO process_basic_details;
3602: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3603: p_error_message => p_error_message);
3604: --
3605: WHEN hr_utility.hr_error THEN
3606: -- -------------------------------------------
3607: -- an application error has been raised so we must
3608: -- redisplay the web form to display the error
3609: -- --------------------------------------------
3606: -- -------------------------------------------
3607: -- an application error has been raised so we must
3608: -- redisplay the web form to display the error
3609: -- --------------------------------------------
3610: hr_utility.set_location('Exception:hr_utility.hr_error'||l_proc,565);
3611: ROLLBACK TO process_basic_details;
3612: hr_message.provide_error;
3613: l_message_number := hr_message.last_message_number;
3614: IF l_message_number = 'APP-7165' OR l_message_number = 'APP-7155' THEN
3619: p_app_short_name => 'PER',
3620: p_message_name => 'HR_UPDATE_NOT_ALLOWED');
3621: -- Bug Fix : 3048836
3622: ELSIF l_message_number = 'APP-7179' THEN
3623: hr_utility.set_message(800,'HR_PERINFO_PAST_EFFECTIVE_DATE');
3624: hr_utility.set_message_token('EFFECTIVE_DATE',
3625: get_max_effective_date(p_person_id));
3626: hr_utility.raise_error;
3627:
3620: p_message_name => 'HR_UPDATE_NOT_ALLOWED');
3621: -- Bug Fix : 3048836
3622: ELSIF l_message_number = 'APP-7179' THEN
3623: hr_utility.set_message(800,'HR_PERINFO_PAST_EFFECTIVE_DATE');
3624: hr_utility.set_message_token('EFFECTIVE_DATE',
3625: get_max_effective_date(p_person_id));
3626: hr_utility.raise_error;
3627:
3628: ELSE
3622: ELSIF l_message_number = 'APP-7179' THEN
3623: hr_utility.set_message(800,'HR_PERINFO_PAST_EFFECTIVE_DATE');
3624: hr_utility.set_message_token('EFFECTIVE_DATE',
3625: get_max_effective_date(p_person_id));
3626: hr_utility.raise_error;
3627:
3628: ELSE
3629: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3630: p_error_message => p_error_message);
3630: p_error_message => p_error_message);
3631: END IF;
3632: --
3633: WHEN hr_perinfo_util_web.g_past_current_Start_date THEN
3634: hr_utility.set_location('Exception:g_past_current_Start_date'||l_proc,570);
3635: ROLLBACK TO process_basic_details;
3636: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3637: p_error_message => p_error_message,
3638: p_attr_name => 'EffectiveStartDate',
3639: p_app_short_name => 'PER',
3640: p_message_name => 'HR_PERINFO_INVALID_ED_01');
3641: --
3642: WHEN hr_perinfo_util_web.g_past_effective_date THEN
3643: hr_utility.set_location('Exception:g_past_effective_date'||l_proc,575);
3644: ROLLBACK TO process_basic_details;
3645: hr_utility.set_message(800,'HR_PERINFO_PAST_EFFECTIVE_DATE');
3646: hr_utility.set_message_token('EFFECTIVE_DATE',
3647: get_max_effective_date(p_person_id));
3641: --
3642: WHEN hr_perinfo_util_web.g_past_effective_date THEN
3643: hr_utility.set_location('Exception:g_past_effective_date'||l_proc,575);
3644: ROLLBACK TO process_basic_details;
3645: hr_utility.set_message(800,'HR_PERINFO_PAST_EFFECTIVE_DATE');
3646: hr_utility.set_message_token('EFFECTIVE_DATE',
3647: get_max_effective_date(p_person_id));
3648: hr_utility.raise_error;
3649: --
3642: WHEN hr_perinfo_util_web.g_past_effective_date THEN
3643: hr_utility.set_location('Exception:g_past_effective_date'||l_proc,575);
3644: ROLLBACK TO process_basic_details;
3645: hr_utility.set_message(800,'HR_PERINFO_PAST_EFFECTIVE_DATE');
3646: hr_utility.set_message_token('EFFECTIVE_DATE',
3647: get_max_effective_date(p_person_id));
3648: hr_utility.raise_error;
3649: --
3650: WHEN hr_perinfo_util_web.g_no_changes THEN
3644: ROLLBACK TO process_basic_details;
3645: hr_utility.set_message(800,'HR_PERINFO_PAST_EFFECTIVE_DATE');
3646: hr_utility.set_message_token('EFFECTIVE_DATE',
3647: get_max_effective_date(p_person_id));
3648: hr_utility.raise_error;
3649: --
3650: WHEN hr_perinfo_util_web.g_no_changes THEN
3651: hr_utility.set_location('Exception:g_no_changes'||l_proc,580);
3652: ROLLBACK TO process_basic_details;
3647: get_max_effective_date(p_person_id));
3648: hr_utility.raise_error;
3649: --
3650: WHEN hr_perinfo_util_web.g_no_changes THEN
3651: hr_utility.set_location('Exception:g_no_changes'||l_proc,580);
3652: ROLLBACK TO process_basic_details;
3653: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3654: p_error_message => p_error_message,
3655: p_attr_name => 'Page',
3656: p_app_short_name => 'PER',
3657: p_message_name => 'HR_PERINFO_NO_CHANGES');
3658: --
3659: WHEN OTHERS THEN
3660: hr_utility.set_location('Exception:Others'||l_proc,585);
3661: ROLLBACK TO process_basic_details;
3662: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
3663: p_error_message => p_error_message);
3664:
3812: --
3813: -- Bug Fix 3048836 : checking if the effective date entered by user <
3814: -- hire date or the current record's start date.
3815:
3816: hr_utility.set_location('Entering:'||l_proc, 5);
3817: IF hr_perinfo_util_web.isDateLessThanCreationDate
3818: (p_date => p_effective_date
3819: ,p_person_id => p_person_id) THEN
3820: -- The effective Date is less than the creation date of the
3818: (p_date => p_effective_date
3819: ,p_person_id => p_person_id) THEN
3820: -- The effective Date is less than the creation date of the
3821: -- Person.
3822: hr_utility.set_location('The EffDate
3824: END IF;
3825: IF hr_perinfo_util_web.isLessThanCurrentStartDate
3826: (p_effective_date => p_effective_date
3825: IF hr_perinfo_util_web.isLessThanCurrentStartDate
3826: (p_effective_date => p_effective_date
3827: ,p_person_id => p_person_id
3828: ,p_ovn => p_object_version_number) THEN
3829: hr_utility.set_location('The EffDate
3831: END IF;
3832:
3833:
3830: RAISE hr_perinfo_util_web.g_past_current_start_date;
3831: END IF;
3832:
3833:
3834: hr_utility.set_location('Opening and Fetching gc_get_cur_person_data :'||l_proc,20);
3835: OPEN gc_get_cur_person_data(p_person_id => p_person_id,
3836: p_eff_date=> p_effective_date);
3837: FETCH gc_get_cur_person_data into l_cur_person_data;
3838: IF gc_get_cur_person_data%NOTFOUND
3853: THEN
3854: IF nvl(p_person_type_id, hr_api.g_number) <>
3855: nvl(l_cur_person_data.person_type_id, hr_api.g_number)
3856: THEN
3857: hr_utility.set_location('nvl(p_person_type_id, hr_api.g_number) <> nvl(l_cur_person_data.person_type_id, hr_api.g_number)'||l_proc,25);
3858: l_rec_changed := TRUE;
3859: hr_utility.set_location('GOing to
3860: goto finish;
3861: END IF;
3855: nvl(l_cur_person_data.person_type_id, hr_api.g_number)
3856: THEN
3857: hr_utility.set_location('nvl(p_person_type_id, hr_api.g_number) <> nvl(l_cur_person_data.person_type_id, hr_api.g_number)'||l_proc,25);
3858: l_rec_changed := TRUE;
3859: hr_utility.set_location('GOing to
3861: END IF;
3862: END IF;
3863: --
3865: THEN
3866: IF nvl(p_last_name, hr_api.g_varchar2) <>
3867: nvl (l_cur_person_data.last_name, hr_api.g_varchar2)
3868: THEN
3869: hr_utility.set_location('nvl(p_last_name, hr_api.g_varchar2) <>nvl (l_cur_person_data.last_name, hr_api.g_varchar2)'||l_proc,35);
3870: hr_utility.set_location('GOing to
3871: l_rec_changed := TRUE;
3872: goto finish;
3873: END IF;
3866: IF nvl(p_last_name, hr_api.g_varchar2) <>
3867: nvl (l_cur_person_data.last_name, hr_api.g_varchar2)
3868: THEN
3869: hr_utility.set_location('nvl(p_last_name, hr_api.g_varchar2) <>nvl (l_cur_person_data.last_name, hr_api.g_varchar2)'||l_proc,35);
3870: hr_utility.set_location('GOing to
3872: goto finish;
3873: END IF;
3874: END IF;
3878: IF nvl(p_applicant_number, hr_api.g_varchar2) <>
3879: nvl(l_cur_person_data.applicant_number, hr_api.g_varchar2)
3880: THEN
3881: l_rec_changed := TRUE;
3882: hr_utility.set_location('nvl(p_applicant_number, hr_api.g_varchar2)<>nvl(l_cur_person_data.applicant_number, hr_api.g_varchar2)'||l_proc,45);
3883: hr_utility.set_location('GOing to
3884:
3885: goto finish;
3886: END IF;
3879: nvl(l_cur_person_data.applicant_number, hr_api.g_varchar2)
3880: THEN
3881: l_rec_changed := TRUE;
3882: hr_utility.set_location('nvl(p_applicant_number, hr_api.g_varchar2)<>nvl(l_cur_person_data.applicant_number, hr_api.g_varchar2)'||l_proc,45);
3883: hr_utility.set_location('GOing to
3885: goto finish;
3886: END IF;
3887: END IF;
3891: IF nvl(p_comments, hr_api.g_varchar2) <>
3892: nvl(l_cur_person_data.comment_text, hr_api.g_varchar2)
3893: THEN
3894: l_rec_changed := TRUE;
3895: hr_utility.set_location('nvl(p_comments, hr_api.g_varchar2) <>nvl(l_cur_person_data.comment_text, hr_api.g_varchar2)'||l_proc,55);
3896: hr_utility.set_location('GOing to
3897:
3898: goto finish;
3899: END IF;
3892: nvl(l_cur_person_data.comment_text, hr_api.g_varchar2)
3893: THEN
3894: l_rec_changed := TRUE;
3895: hr_utility.set_location('nvl(p_comments, hr_api.g_varchar2) <>nvl(l_cur_person_data.comment_text, hr_api.g_varchar2)'||l_proc,55);
3896: hr_utility.set_location('GOing to
3898: goto finish;
3899: END IF;
3900: END IF;
3904: IF nvl(p_date_employee_data_verified, hr_api.g_date) <>
3905: nvl(l_cur_person_data.date_employee_data_verified, hr_api.g_date)
3906: THEN
3907:
3908: hr_utility.set_location('GOing to
3910: l_rec_changed := TRUE;
3911: goto finish;
3912: END IF;
3916: THEN
3917: IF nvl(p_original_date_of_hire, hr_api.g_date) <>
3918: nvl(l_cur_person_data.original_date_of_hire, hr_api.g_date)
3919: THEN
3920: hr_utility.set_location('GOing to
3922: goto finish;
3923: END IF;
3924: END IF;
3928: IF nvl(p_date_of_birth, hr_api.g_date) <>
3929: nvl(l_cur_person_data.date_of_birth, hr_api.g_date)
3930: THEN
3931: l_rec_changed := TRUE;
3932: hr_utility.set_location('Check DOB & , GOing to
3934: END IF;
3935: END IF;
3936: --
3939: IF nvl(p_town_of_birth, hr_api.g_varchar2) <>
3940: nvl(l_cur_person_data.town_of_birth, hr_api.g_varchar2)
3941: THEN
3942: l_rec_changed := TRUE;
3943: hr_utility.set_location('Check on Town of birth & GOing to
3945: END IF;
3946: END IF;
3947: --
3950: IF nvl(p_region_of_birth, hr_api.g_varchar2) <>
3951: nvl(l_cur_person_data.region_of_birth, hr_api.g_varchar2)
3952: THEN
3953: l_rec_changed := TRUE;
3954: hr_utility.set_location('Check on Region of birth & GOing to
3956: END IF;
3957: END IF;
3958: --
3961: IF nvl(p_country_of_birth, hr_api.g_varchar2) <>
3962: nvl(l_cur_person_data.country_of_birth, hr_api.g_varchar2)
3963: THEN
3964: l_rec_changed := TRUE;
3965: hr_utility.set_location('Check on Country of birth & GOing to
3967: END IF;
3968: END IF;
3969: --
3972: THEN
3973: IF nvl(p_global_person_id, hr_api.g_varchar2) <>
3974: nvl(l_cur_person_data.global_person_id, hr_api.g_varchar2)
3975: THEN
3976: hr_utility.set_location('Check on Global person id & GOing to
3978: goto finish;
3979: END IF;
3980: END IF;
3984: IF nvl(p_email_address, hr_api.g_varchar2) <>
3985: nvl(l_cur_person_data.email_address, hr_api.g_varchar2)
3986: THEN
3987: l_rec_changed := TRUE;
3988: hr_utility.set_location('Check on Email id id & GOing to
3990: END IF;
3991: END IF;
3992: --
3995: IF nvl(p_employee_number, hr_api.g_varchar2) <>
3996: nvl(l_cur_person_data.employee_number, hr_api.g_varchar2)
3997: THEN
3998: l_rec_changed := TRUE;
3999: hr_utility.set_location('Check on empno & GOing to
4001: END IF;
4002: END IF;
4003: --
4005: THEN
4006: IF nvl(p_npw_number, hr_api.g_varchar2) <>
4007: nvl(l_cur_person_data.npw_number, hr_api.g_varchar2)
4008: THEN
4009: hr_utility.set_location('Check on npwno & GOing to
4011: goto finish;
4012: END IF;
4013: END IF;
4016: THEN
4017: IF nvl(p_expense_check_send_to_addres, hr_api.g_varchar2) <>
4018: nvl(l_cur_person_data.expense_check_send_to_address, hr_api.g_varchar2)
4019: THEN
4020: hr_utility.set_location('Check on to address & GOing to
4022: goto finish;
4023: END IF;
4024: END IF;
4027: THEN
4028: IF nvl(p_first_name, hr_api.g_varchar2) <>
4029: nvl(l_cur_person_data.first_name, hr_api.g_varchar2)
4030: THEN
4031: hr_utility.set_location('Check on firstname & GOing to
4033: goto finish;
4034: END IF;
4035: END IF;
4058: THEN
4059: IF nvl(p_middle_names, hr_api.g_varchar2) <>
4060: nvl(l_cur_person_data.middle_names, hr_api.g_varchar2)
4061: THEN
4062: hr_utility.set_location('Check on middlename & GOing to
4064: goto finish;
4065: END IF;
4066: END IF;
5108: goto finish;
5109: END IF;
5110: END IF;
5111:
5112: hr_utility.set_location('Exiting:'||l_proc, 200);
5113: --
5114: --
5115: <
5116: RETURN l_rec_changed;
5117:
5118:
5119: EXCEPTION
5120: When hr_perinfo_util_web.g_past_effective_date then
5121: hr_utility.set_location('Exception:past_effective_date'||l_proc,555);
5122: hr_utility.set_message(applid=> 800,l_message_name=>'HR_PERINFO_PAST_EFFECTIVE_DATE');
5123: hr_utility.set_message_token('EFFECTIVE_DATE',
5124: get_max_effective_date(p_person_id));
5125: raise hr_perinfo_util_web.g_past_effective_date;
5118:
5119: EXCEPTION
5120: When hr_perinfo_util_web.g_past_effective_date then
5121: hr_utility.set_location('Exception:past_effective_date'||l_proc,555);
5122: hr_utility.set_message(applid=> 800,l_message_name=>'HR_PERINFO_PAST_EFFECTIVE_DATE');
5123: hr_utility.set_message_token('EFFECTIVE_DATE',
5124: get_max_effective_date(p_person_id));
5125: raise hr_perinfo_util_web.g_past_effective_date;
5126:
5119: EXCEPTION
5120: When hr_perinfo_util_web.g_past_effective_date then
5121: hr_utility.set_location('Exception:past_effective_date'||l_proc,555);
5122: hr_utility.set_message(applid=> 800,l_message_name=>'HR_PERINFO_PAST_EFFECTIVE_DATE');
5123: hr_utility.set_message_token('EFFECTIVE_DATE',
5124: get_max_effective_date(p_person_id));
5125: raise hr_perinfo_util_web.g_past_effective_date;
5126:
5127: When hr_perinfo_util_web.g_past_current_start_date then
5124: get_max_effective_date(p_person_id));
5125: raise hr_perinfo_util_web.g_past_effective_date;
5126:
5127: When hr_perinfo_util_web.g_past_current_start_date then
5128: hr_utility.set_location('Exception:past_current_start_date'||l_proc,565);
5129: hr_utility.set_message(applid=> 800,l_message_name=>'HR_PERINFO_PAST_EFFECTIVE_DATE');
5130: hr_utility.set_message_token('EFFECTIVE_DATE',
5131: get_max_effective_date(p_person_id));
5132: raise hr_perinfo_util_web.g_past_current_start_date;
5125: raise hr_perinfo_util_web.g_past_effective_date;
5126:
5127: When hr_perinfo_util_web.g_past_current_start_date then
5128: hr_utility.set_location('Exception:past_current_start_date'||l_proc,565);
5129: hr_utility.set_message(applid=> 800,l_message_name=>'HR_PERINFO_PAST_EFFECTIVE_DATE');
5130: hr_utility.set_message_token('EFFECTIVE_DATE',
5131: get_max_effective_date(p_person_id));
5132: raise hr_perinfo_util_web.g_past_current_start_date;
5133:
5126:
5127: When hr_perinfo_util_web.g_past_current_start_date then
5128: hr_utility.set_location('Exception:past_current_start_date'||l_proc,565);
5129: hr_utility.set_message(applid=> 800,l_message_name=>'HR_PERINFO_PAST_EFFECTIVE_DATE');
5130: hr_utility.set_message_token('EFFECTIVE_DATE',
5131: get_max_effective_date(p_person_id));
5132: raise hr_perinfo_util_web.g_past_current_start_date;
5133:
5134:
5133:
5134:
5135: When g_data_error THEN
5136:
5137: hr_utility.set_location('Exception:g_data_error'||l_proc,575);
5138: raise;
5139:
5140: When others THEN
5141: hr_utility.set_location('Exception:Others'||l_proc,585);
5137: hr_utility.set_location('Exception:g_data_error'||l_proc,575);
5138: raise;
5139:
5140: When others THEN
5141: hr_utility.set_location('Exception:Others'||l_proc,585);
5142: raise;
5143:
5144: END is_rec_changed;
5145:
5254:
5255: l_orgid number;
5256: BEGIN
5257: --
5258: hr_utility.set_location('Entering:'||l_proc, 5);
5259: if (p_effective_date is not null) then
5260: l_effective_date:= to_date(p_effective_date,g_date_format);
5261: hr_utility.set_location('p_effective_date is not null:'||l_proc,10);
5262: else
5257: --
5258: hr_utility.set_location('Entering:'||l_proc, 5);
5259: if (p_effective_date is not null) then
5260: l_effective_date:= to_date(p_effective_date,g_date_format);
5261: hr_utility.set_location('p_effective_date is not null:'||l_proc,10);
5262: else
5263: hr_utility.set_location('p_effective_date is null:'||l_proc,15);
5264: l_effective_date:= to_date(
5265: hr_transaction_ss.get_wf_effective_date
5259: if (p_effective_date is not null) then
5260: l_effective_date:= to_date(p_effective_date,g_date_format);
5261: hr_utility.set_location('p_effective_date is not null:'||l_proc,10);
5262: else
5263: hr_utility.set_location('p_effective_date is null:'||l_proc,15);
5264: l_effective_date:= to_date(
5265: hr_transaction_ss.get_wf_effective_date
5266: (p_transaction_step_id => p_transaction_step_id),g_date_format);
5267: end if;
5272: --
5273: -- Get the person_id first. If it is null, that means we'll create a new
5274: -- employee. If it is not null, we will do an update to the person record.
5275:
5276: hr_utility.set_location('Calls to hr_transation_api:'||l_proc,20);
5277: l_person_id := hr_transaction_api.get_number_value
5278: (p_transaction_step_id => p_transaction_step_id
5279: ,p_name => 'P_PERSON_ID');
5280: --
5308: fetch csr_leg_code into l_leg_code_row;
5309: close csr_leg_code;
5310: l_orgid := l_business_grp_Id;
5311: if hr_multi_tenancy_pkg.is_multi_tenant_system then
5312: hr_utility.set_location('Multi tenancy changes '||l_proc,21);
5313:
5314: if l_person_id is not null
5315: and l_person_id <> -1 then
5316: hr_utility.set_location('Person Id: '|| l_person_id,22);
5312: hr_utility.set_location('Multi tenancy changes '||l_proc,21);
5313:
5314: if l_person_id is not null
5315: and l_person_id <> -1 then
5316: hr_utility.set_location('Person Id: '|| l_person_id,22);
5317:
5318: l_orgid := hr_multi_tenancy_pkg.get_org_id_for_person(l_person_id);
5319: else
5320: hr_utility.set_location('Business group Id: '|| l_business_grp_Id,23);
5316: hr_utility.set_location('Person Id: '|| l_person_id,22);
5317:
5318: l_orgid := hr_multi_tenancy_pkg.get_org_id_for_person(l_person_id);
5319: else
5320: hr_utility.set_location('Business group Id: '|| l_business_grp_Id,23);
5321:
5322: select CREATOR_PERSON_ID into login_person_id
5323: from HR_API_TRANSACTION_STEPS
5324: where TRANSACTION_STEP_ID = p_transaction_step_id;
5322: select CREATOR_PERSON_ID into login_person_id
5323: from HR_API_TRANSACTION_STEPS
5324: where TRANSACTION_STEP_ID = p_transaction_step_id;
5325:
5326: hr_utility.set_location('Creator Person Id: '|| login_person_id,24);
5327: l_orgid := hr_multi_tenancy_pkg.get_org_id_for_person(login_person_id, l_business_grp_Id);
5328: end if;
5329: end if;
5330: hr_util_misc_ss.set_sys_ctx(l_leg_code_row.legislation_code, l_orgid);
5335:
5336: -- In case of hiring an applicant, we need to call the hr_applicant_api to
5337: -- make the applicant an employee and then update the BD record
5338:
5339: hr_utility.set_location('Opening & Fetching gc_get_current_applicant_flag:'||l_proc,25);
5340: open gc_get_current_applicant_flag(l_person_id, l_effective_date);
5341: fetch gc_get_current_applicant_flag into
5342: l_current_applicant_flag, l_current_employee_flag, l_current_npw_flag;
5343: close gc_get_current_applicant_flag;
5359: -- as we need to make sure that the generation controls table is not
5360: -- locked.
5361: --
5362:
5363: hr_utility.set_location('hr_new_user_reg_ss.g_ignore_emp_generation =YES:'||l_proc,35);
5364: fnd_profile.put('PER_SSHR_NO_EMPNUM_GENERATION','Y');
5365:
5366: end if;
5367:
5409: fetch gc_get_new_appl_person_type into l_person_type_id;
5410: close gc_get_new_appl_person_type;
5411:
5412: if hr_new_user_reg_ss.g_ignore_emp_generation = 'YES' then
5413: hr_utility.set_location('hr_new_user_reg_ss.g_ignore_emp_generation = YES:'||l_proc,40);
5414: hr_new_user_reg_ss.g_ignore_emp_generation := 'NO';
5415:
5416: fnd_profile.put('PER_SSHR_NO_EMPNUM_GENERATION','N');
5417: end if;
5444:
5445: IF (l_current_applicant_flag = 'Y'
5446: AND nvl(l_current_employee_flag, 'N') <> 'Y')
5447: THEN
5448: hr_utility.set_location('l_current_applicant_flag=Y:'||l_proc,45);
5449: NULL;
5450: ELSE
5451: l_person_type_id := hr_api.g_number;
5452: END IF;
5867: -- as we need to make sure that the generation controls table is not
5868: -- locked.
5869: --
5870:
5871: hr_utility.set_location('l_flow_name = Insert:'||l_proc,100);
5872: fnd_profile.put('PER_SSHR_NO_EMPNUM_GENERATION','Y');
5873:
5874: end if;
5875:
6623: fnd_profile.put('PER_SSHR_NO_EMPNUM_GENERATION','N');
6624: end if;
6625:
6626: ELSIF l_flow_name = 'Cobra' THEN
6627: hr_utility.set_location('l_flow_name = Cobra:'||l_proc,100);
6628: hr_contact_api.create_person
6629: (p_validate => p_validate
6630: ,p_start_date => sysdate
6631: ,p_business_group_id => hr_transaction_api.get_number_value
6935: (itemtype => l_item_type,
6936: itemkey => l_item_key,
6937: aname =>'USER_TRANSACTION_STEP'));
6938: if l_transaction_step is not null then
6939: hr_utility.set_location('l_transaction_step is not null then'||l_proc,105);
6940: ben_process_user_ss_api.get_user_data_from_tt(
6941: p_transaction_step_id => l_transaction_step
6942: ,p_user_name => l_user_name
6943: ,p_user_pswd => l_user_pswd
7001: g_session_id := ICX_SEC.G_SESSION_ID;
7002: g_person_id := l_person_id;
7003: g_assignment_id := l_assignment_id;
7004: g_asg_object_version_number := l_aovn;
7005: -- hr_utility.set_location('Venkat g_person_id =' || g_person_id, 8888);
7006: ---End Registration
7007: END IF;
7008:
7009: fnd_profile.put('PER_PERSON_ID', l_person_id);
7022: END IF;
7023: --
7024: --
7025: IF p_validate = true THEN
7026: hr_utility.set_location('p_validate = true THEN'||l_proc,115);
7027: ROLLBACK TO process_basic_details;
7028: END IF;
7029: --
7030: --
7028: END IF;
7029: --
7030: --
7031: EXCEPTION
7032: WHEN hr_utility.hr_error THEN
7033: -- -----------------------------------------------------------------
7034: -- An application error has been raised by the API so we must set
7035: -- the error.
7036: -- -----------------------------------------------------------------
7033: -- -----------------------------------------------------------------
7034: -- An application error has been raised by the API so we must set
7035: -- the error.
7036: -- -----------------------------------------------------------------
7037: hr_utility.set_location('Exception:hr_utility.hr_error THEN'||l_proc,555);
7038: ROLLBACK TO process_basic_details;
7039: RAISE;
7040:
7041: END process_api;
7272:
7273: SAVEPOINT create_person_ben_ss;
7274: --
7275:
7276: hr_utility.set_location('Entering:'||l_proc, 5);
7277: IF p_validate = 'N' OR p_validate IS NULL
7278: THEN
7279:
7280: hr_utility.set_location('p_validate=N OR p_validate IS NULL:'||l_proc,10);
7276: hr_utility.set_location('Entering:'||l_proc, 5);
7277: IF p_validate = 'N' OR p_validate IS NULL
7278: THEN
7279:
7280: hr_utility.set_location('p_validate=N OR p_validate IS NULL:'||l_proc,10);
7281: l_validate := false;
7282: ELSE
7283: hr_utility.set_location('p_validate=Y AND p_validate!= NULL:'||l_proc,15);
7284: l_validate := true;
7279:
7280: hr_utility.set_location('p_validate=N OR p_validate IS NULL:'||l_proc,10);
7281: l_validate := false;
7282: ELSE
7283: hr_utility.set_location('p_validate=Y AND p_validate!= NULL:'||l_proc,15);
7284: l_validate := true;
7285: END IF;
7286: ---------
7287: -- Java caller will set p_vendor_id, p_benefit_group_id and p_fte_capacity to
7289: -- transaction table.
7290:
7291: IF p_vendor_id = 0
7292: THEN
7293: hr_utility.set_location('p_vendor_id = 0:'||l_proc,20);
7294: l_vendor_id := null;
7295: ELSE
7296: hr_utility.set_location('p_vendor_id != 0:'||l_proc,25);
7297: l_vendor_id := p_vendor_id;
7292: THEN
7293: hr_utility.set_location('p_vendor_id = 0:'||l_proc,20);
7294: l_vendor_id := null;
7295: ELSE
7296: hr_utility.set_location('p_vendor_id != 0:'||l_proc,25);
7297: l_vendor_id := p_vendor_id;
7298: END IF;
7299: --
7300: IF p_benefit_group_id = 0
7298: END IF;
7299: --
7300: IF p_benefit_group_id = 0
7301: THEN
7302: hr_utility.set_location('p_benefit_group_id = 0:'||l_proc,30);
7303: l_benefit_group_id := null;
7304: ELSE
7305: hr_utility.set_location('p_benefit_group_id != 0:'||l_proc,35);
7306: l_benefit_group_id := p_benefit_group_id;
7301: THEN
7302: hr_utility.set_location('p_benefit_group_id = 0:'||l_proc,30);
7303: l_benefit_group_id := null;
7304: ELSE
7305: hr_utility.set_location('p_benefit_group_id != 0:'||l_proc,35);
7306: l_benefit_group_id := p_benefit_group_id;
7307: END IF;
7308: --
7309: IF p_fte_capacity = 0
7307: END IF;
7308: --
7309: IF p_fte_capacity = 0
7310: THEN
7311: hr_utility.set_location('p_fte_capacity = 0:'||l_proc,40);
7312: l_fte_capacity := null;
7313: ELSE
7314: hr_utility.set_location('p_fte_capacity != 0:'||l_proc,45);
7315: l_fte_capacity := p_fte_capacity;
7310: THEN
7311: hr_utility.set_location('p_fte_capacity = 0:'||l_proc,40);
7312: l_fte_capacity := null;
7313: ELSE
7314: hr_utility.set_location('p_fte_capacity != 0:'||l_proc,45);
7315: l_fte_capacity := p_fte_capacity;
7316: END IF;
7317: ----
7318: IF p_person_type_id = 0
7316: END IF;
7317: ----
7318: IF p_person_type_id = 0
7319: THEN
7320: hr_utility.set_location('p_person_type_id = 0:'||l_proc,50);
7321: l_person_type_id := null;
7322: ELSE
7323: hr_utility.set_location('p_person_type_id != 0:'||l_proc,55);
7324: l_person_type_id := p_person_type_id;
7319: THEN
7320: hr_utility.set_location('p_person_type_id = 0:'||l_proc,50);
7321: l_person_type_id := null;
7322: ELSE
7323: hr_utility.set_location('p_person_type_id != 0:'||l_proc,55);
7324: l_person_type_id := p_person_type_id;
7325: END IF;
7326:
7327: l_employee_number := p_employee_number;
7328: l_npw_number := p_npw_number;
7329:
7330: -- Save for later changes.
7331: IF (p_save_mode = 'SAVE_FOR_LATER') THEN
7332: hr_utility.set_location('if SFL,GOTO to create only Txn '||l_proc,60);
7333: GOTO create_only_transaction;
7334: END IF;
7335:
7336:
7352: p_national_identifier => p_national_identifier
7353: ,p_business_group_id => p_business_group_id
7354: ,p_person_id => p_person_id
7355: ,p_ni_duplicate_warn_or_err => p_ni_duplicate_warn_or_err);
7356: hr_utility.set_location('p_ni_duplicate_warn_or_err!=IGNORE'||l_proc,65);
7357: end if;
7358:
7359: if(p_validate_ni <> 'IGNORE') then
7360: hr_person_info_util_ss.validate_national_identifier(
7365: ,p_business_group_id => p_business_group_id
7366: ,p_legislation_code => p_per_information_category
7367: ,p_effective_date => p_effective_date
7368: ,p_warning => p_validate_ni);
7369: hr_utility.set_location('p_validate_ni!=IGNORE'||l_proc,70);
7370: end if;
7371:
7372: open gc_get_sys_person_type(l_person_type_id);
7373: fetch gc_get_sys_person_type into l_sys_person_type;
7373: fetch gc_get_sys_person_type into l_sys_person_type;
7374: close gc_get_sys_person_type;
7375:
7376: if (l_sys_person_type = 'CWK') then
7377: hr_utility.set_location('l_sys_person_type=CWK'||l_proc,75);
7378: hr_contingent_worker_api.create_cwk
7379: (p_validate => l_validate
7380: ,p_start_date => p_hire_date
7381: ,p_business_group_id => p_business_group_id
7508: ,p_assignment_number => l_assignment_number
7509: ,p_name_combination_warning => l_name_combination_warning
7510: );
7511: else
7512: hr_utility.set_location('l_sys_person_type!=CWK'||l_proc,80);
7513: hr_employee_api.create_employee
7514: (p_validate => l_validate
7515: --in boolean default false
7516: ,p_hire_date => p_hire_date
7654: --
7655: --
7656: -- start cobra codes
7657: ELSIF p_flow_name = 'Cobra' THEN
7658: hr_utility.set_location('p_flow_name=Cobra'||l_proc,85);
7659: hr_contact_api.create_person
7660: (p_validate => false --in boolean default false
7661: ,p_start_date => sysdate
7662: ,p_business_group_id => p_business_group_id
7763: );
7764: --
7765:
7766: IF g_debug THEN
7767: hr_utility.set_location('Leaving hr_process_person_ss.create_personnnnnnnnnn ' || l_person_id, 2006);
7768: END IF;
7769:
7770: /*prflvalue := fnd_profile.value('BEN_USER_TO_ORG_LINK');
7771: ben_assignment_api.create_ben_asg
7790:
7791: -- set back the full name
7792: p_full_name := l_full_name;
7793:
7794: hr_utility.set_location('Rolling back to create_person_ben_ss'||l_proc,90);
7795: rollback to create_person_ben_ss;
7796:
7797: hr_multi_message.disable_message_list;
7798:
7797: hr_multi_message.disable_message_list;
7798:
7799: <
7800:
7801: hr_utility.set_location('create_only_transaction:'||l_proc,95);
7802: --Store the full_name in workflow item attribute HR_SECTION_DISPLAY_NAME
7803: -- to be used by the actions page.
7804: -- if l_full_name is null, derive it
7805: if (l_full_name is null) then
7802: --Store the full_name in workflow item attribute HR_SECTION_DISPLAY_NAME
7803: -- to be used by the actions page.
7804: -- if l_full_name is null, derive it
7805: if (l_full_name is null) then
7806: hr_utility.set_location('l_full_name is null:'||l_proc,100);
7807: hr_person.derive_full_name(p_first_name,
7808: p_middle_names, p_last_name, p_known_as,
7809: p_title, p_date_of_birth,
7810: p_person_id, p_business_group_id
7852: ,p_item_key => p_item_key);
7853: --
7854: IF l_transaction_id is null THEN
7855: -- Start a Transaction
7856: hr_utility.set_location('l_transaction_id is null THEN:'||l_proc,105);
7857: hr_transaction_ss.start_transaction
7858: (itemtype => p_item_type
7859: ,itemkey => p_item_key
7860: ,actid => p_actid
7879: ,p_api_name => l_api_names
7880: ,p_rows => l_trans_step_rows);
7881: --
7882:
7883: hr_utility.set_location('Entering For Loop 0..l_trans_step_rows-1:'||l_proc,110);
7884: FOR i in 0..l_trans_step_rows-1 LOOP
7885: IF(l_api_names(i) = 'HR_PROCESS_PERSON_SS.PROCESS_API') THEN
7886: l_transaction_step_id := l_trans_step_ids(i);
7887: END IF;
7885: IF(l_api_names(i) = 'HR_PROCESS_PERSON_SS.PROCESS_API') THEN
7886: l_transaction_step_id := l_trans_step_ids(i);
7887: END IF;
7888: END LOOP;
7889: hr_utility.set_location('Exiting For Loop 0..l_trans_step_rows-1:'||l_proc,115);
7890:
7891: if l_transaction_step_id is null then
7892: --
7893: -- Create a transaction step
7891: if l_transaction_step_id is null then
7892: --
7893: -- Create a transaction step
7894: --
7895: hr_utility.set_location('l_transaction_step_id is null then:'||l_proc,120);
7896: hr_transaction_api.create_transaction_step
7897: (p_validate => false
7898: ,p_creator_person_id => p_login_person_id
7899: --nvl(p_login_person_id, p_parent_id)
8598: --
8599: l_review_item_name := p_review_page_region_code;
8600: if (p_review_page_region_code IS NULL) then
8601: BEGIN
8602: hr_utility.set_location('p_review_page_region_code IS NULL'||l_proc,125);
8603: l_review_item_name :=
8604: wf_engine.GetActivityAttrText(itemtype => p_item_type,
8605: itemkey => p_item_key,
8606: actid => p_actid,
8606: actid => p_actid,
8607: aname => g_wf_review_regn_itm_attr_name);
8608: EXCEPTION
8609: WHEN OTHERS THEN
8610: hr_utility.set_location('Exception:Others'||l_proc,555);
8611: l_review_item_name := 'HrBasicDetailsReview';
8612: END;
8613: end if;
8614:
8754: p_employee_number := l_employee_number;
8755:
8756:
8757: IF g_debug THEN
8758: hr_utility.set_location('Leaving hr_process_person_ss.create_person ' || g_person_id, 200);
8759: END IF;
8760:
8761:
8762: EXCEPTION
8760:
8761:
8762: EXCEPTION
8763: WHEN g_data_error THEN
8764: hr_utility.set_location('Exception:g_data_error THEN'||l_proc,560);
8765: rollback to create_person_ben_ss;
8766: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
8767: p_error_message => p_error_message);
8768: WHEN others THEN
8765: rollback to create_person_ben_ss;
8766: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
8767: p_error_message => p_error_message);
8768: WHEN others THEN
8769: hr_utility.set_location('Exception:Others'||l_proc,555);
8770: -- This should be included as an out param for the procedure "create_person".
8771: -- Along with this change include also the appropriate changes in the java that calls this api.
8772: --
8773: p_error_message := hr_java_conv_util_ss.get_formatted_error_message(
8825: close csr_get_legc_code;
8826:
8827: if (hr_general.chk_geocodes_installed = 'Y'
8828: and ( ( l_legislation_code = 'CA'
8829: and hr_utility.chk_product_install(p_product => 'Oracle Payroll',
8830: p_legislation => 'CA'))
8831: OR ( l_legislation_code = 'US'
8832: and hr_utility.chk_product_install(p_product => 'Oracle Payroll',
8833: p_legislation => 'US')))
8828: and ( ( l_legislation_code = 'CA'
8829: and hr_utility.chk_product_install(p_product => 'Oracle Payroll',
8830: p_legislation => 'CA'))
8831: OR ( l_legislation_code = 'US'
8832: and hr_utility.chk_product_install(p_product => 'Oracle Payroll',
8833: p_legislation => 'US')))
8834: and l_address_line1 is null) OR (l_date_of_birth is null) then
8835:
8836: update per_all_assignments_f set payroll_id=null where assignment_id = p_assignment_id and