[Home] [Help]
140: l_search_criteria_id number;
141: --
142: l_start_date date;
143: begin
144: hr_utility.set_location(' Entering: '||l_proc, 10);
145: --
146: -- Issue a savepoint
147: --
148: savepoint CREATE_CANDIDATE_INTERNAL;
568: ,p_name_combination_warning => l_name_combination_warning
569: ,p_orig_hire_warning => l_orig_hire_warning
570: );
571: end if;
572: hr_utility.set_location(l_proc, 40);
573:
574: -- calling this will associate the TCA party with the newly created Candidate and prevent PTU code from
575: -- creating a new TCA record
576: if p_party_id is not NULL then
597: (p_effective_date => l_start_date
598: ,p_person_id => l_person_id
599: ,p_person_type_id => l_ptu_person_type_id
600: );
601: hr_utility.set_location(l_proc, 45);
602: --
603: -- Call After Process User Hook
604: --
605: begin
706: p_person_id := l_person_id;
707: p_effective_start_date := l_effective_start_date;
708: p_effective_end_date := l_effective_end_date;
709: --
710: hr_utility.set_location(' Leaving:'||l_proc, 70);
711:
712: exception
713: when hr_Api.validate_enabled then
714: --
723: --
724: p_person_id := null;
725: p_effective_start_date := null;
726: p_effective_start_date := null;
727: hr_utility.set_location(' Leaving:'||l_proc, 80);
728: when others then
729: --
730: -- A validation or unexpected error has occured
731: --
734: p_person_id := null;
735: p_effective_start_date := null;
736: p_effective_start_date := null;
737: --
738: hr_utility.set_location(' Leaving:'||l_proc, 90);
739: raise;
740: end create_candidate_internal;
741: --
742: -- -------------------------------------------------------------------------
871: l_search_criteria_id number;
872: --
873: l_start_date date;
874: begin
875: hr_utility.set_location(' Entering: '||l_proc, 10);
876: --
877: -- Issue a savepoint
878: --
879: savepoint CREATE_REGISTERED_USER;
977: ,p_hook_type => 'BP'
978: );
979: end;
980: --
981: hr_utility.set_location(l_proc, 10);
982: --
983: -- Process Logic
984: -- code for disabling the descriptive flex field
985: --
995: l_add_struct_d(l_add_struct_d.count) := 'Person Developer DF';
996: --
997: hr_dflex_utility.create_ignore_df_validation(p_rec => l_add_struct_d);
998: --
999: hr_utility.set_location(l_proc, 20);
1000: --
1001: --
1002: -- Get the business group id from profile
1003: --
1007: fnd_message.set_name('PER','IRC_412155_REG_BG_NOT_SET');
1008: fnd_message.raise_error;
1009: end if;
1010: --
1011: hr_utility.set_location(l_proc, 30);
1012: --
1013: IRC_PARTY_API.CREATE_CANDIDATE_INTERNAL
1014: (p_business_group_id => l_business_group_id
1015: ,p_last_name => p_last_name
1093: ,p_effective_end_date => l_effective_end_date
1094: ,p_person_id => l_person_id
1095: );
1096: --
1097: hr_utility.set_location(l_proc, 40);
1098: --
1099: -- create notification preferences
1100: --
1101: irc_notification_prefs_api.create_notification_prefs
1223: p_person_id := l_person_id;
1224: p_effective_start_date := l_effective_start_date;
1225: p_effective_end_date := l_effective_end_date;
1226: --
1227: hr_utility.set_location(' Leaving:'||l_proc, 70);
1228: --
1229: exception
1230: when hr_Api.validate_enabled then
1231: --
1240: --
1241: p_person_id := null;
1242: p_effective_start_date := null;
1243: p_effective_start_date := null;
1244: hr_utility.set_location(' Leaving:'||l_proc, 80);
1245: when others then
1246: --
1247: -- A validation or unexpected error has occured
1248: --
1251: p_person_id := null;
1252: p_effective_start_date := null;
1253: p_effective_start_date := null;
1254: --
1255: hr_utility.set_location(' Leaving:'||l_proc, 90);
1256: raise;
1257: end create_registered_user;
1258: --
1259: -- -------------------------------------------------------------------------
1381: where person_id = p_person_id
1382: and l_effective_date between effective_start_date and effective_end_date;
1383: --
1384: begin
1385: hr_utility.set_location(' Entering: ' || l_proc, 10);
1386: --
1387: -- Issue a savepoint
1388: --
1389: savepoint UPDATE_REGISTERED_USER;
1486: --
1487: --
1488: -- Set profile option
1489: fnd_profile.put('HZ_CREATED_BY_MODULE','HR API');
1490: hr_utility.set_location(l_proc, 40);
1491: --
1492: -- Added for turn off key flex field validation
1493: --
1494: l_add_struct_k.extend(1);
1782: ,p_assign_payroll_warning => l_assign_payroll_warning
1783: ,p_orig_hire_warning => l_orig_hire_warning
1784: );
1785: end if;
1786: hr_utility.set_Location(l_proc, 60);
1787: -- Save person ovn to global
1788: if ( p_person_id = g_person_id ) then
1789: g_ovn_for_person := l_object_version_number;
1790: end if;
1887: --
1888: -- Set all output arguments
1889: --
1890: --
1891: hr_utility.set_location(' Leaving:'||l_proc, 70);
1892:
1893: exception
1894: when hr_api.validate_enabled then
1895: --
1901: -- Only set output warning arguments
1902: -- (Any key or derived arguments must be set to null
1903: -- when validation only mode is beINg used.)
1904: --
1905: hr_utility.set_location(' Leaving:'||l_proc, 80);
1906: when others then
1907: --
1908: -- A validation or unexpected error has occured
1909: --
1907: --
1908: -- A validation or unexpected error has occured
1909: --
1910: rollback to UPDATE_REGISTERED_USER;
1911: hr_utility.set_location(' Leaving:'||l_proc, 90);
1912: raise;
1913:
1914: end update_registered_user;
1915: --
2149: and effective_start_date = p_effective_date
2150: and assignment_type='A';
2151: --
2152: begin
2153: hr_utility.set_location(' Entering: ' || l_proc, 10);
2154: --
2155: -- Issue a savepoint
2156: --
2157: savepoint REGISTERED_USER_APPLICATION;
2303: ,p_effective_end_date => l_effective_end_date
2304: ,p_assignment_sequence => l_assignment_sequence
2305: );
2306: elsif (l_current_employee_flag = 'Y') then
2307: hr_utility.set_location(l_proc,20);
2308: hr_employee_api.apply_for_internal_vacancy
2309: (p_validate => false
2310: ,p_effective_date => l_effective_date
2311: ,p_person_id => l_person_id
2336: ,p_effective_start_date => l_effective_start_date
2337: ,p_effective_end_date => l_effective_end_date
2338: );
2339: elsif (l_current_npw_flag = 'Y') then
2340: hr_utility.set_location(l_proc,25);
2341: hr_contingent_worker_api.apply_for_job
2342: (p_validate => false
2343: ,p_effective_date => l_effective_date
2344: ,p_person_id => l_person_id
2370: ,p_effective_start_date => l_effective_start_date
2371: ,p_effective_end_date => l_effective_end_date
2372: );
2373: else
2374: hr_utility.set_location(l_proc,30);
2375: hr_applicant_api.convert_to_applicant
2376: (p_validate => false
2377: ,p_effective_date => l_effective_date
2378: ,p_person_id => l_person_id
2409: ,p_effective_end_date => l_effective_end_date
2410: );
2411: end if;
2412: else
2413: hr_utility.set_location(l_proc, 40);
2414: --
2415: -- Register Person ID
2416: --
2417: per_per_ins.set_base_key_value
2524: (p_effective_date => l_effective_start_date
2525: ,p_person_id => l_person_id
2526: ,p_person_type_id => l_ptu_person_type_id
2527: );
2528: hr_utility.set_location(l_proc, 45);
2529: --
2530: hr_assignment_api.update_apl_asg
2531: (p_effective_date => l_application_received_date
2532: ,p_datetrack_update_mode => 'CORRECTION'
2587: p_asg_object_version_number := l_asg_object_version_number;
2588: p_per_object_version_number := l_per_object_version_number;
2589: p_applicant_number := l_applicant_number;
2590: --
2591: hr_utility.set_location(' Leaving:'||l_proc, 70);
2592:
2593: exception
2594: when hr_api.validate_enabled then
2595: --
2603: -- when validation only mode is beINg used.)
2604: --
2605: p_asg_object_version_number := null;
2606: p_per_object_version_number := null;
2607: hr_utility.set_location(' Leaving:'||l_proc, 80);
2608: when others then
2609: --
2610: -- A validation or unexpected error has occured
2611: --
2620: --
2621: p_asg_object_version_number := null;
2622: p_per_object_version_number := null;
2623: --
2624: hr_utility.set_location(' Leaving:'||l_proc, 90);
2625: raise;
2626: end registered_user_application;
2627: -- -------------------------------------------------------------------------
2628: -- |------------------------< grant_access >-------------------------------|
2742: cursor get_menu_id (p_menu_name varchar2) is
2743: select menu_id from fnd_menus where menu_name=upper(p_menu_name);
2744: --
2745: begin
2746: hr_utility.set_location(' Entering: '||l_proc, 10);
2747: --
2748: -- Create Person
2749: l_default_last_name := nvl(p_last_name,fnd_message.get_string('PER','IRC_412108_UNKNOWN_NAME'));
2750:
2790: ,p_per_information30 => p_per_information30
2791: );
2792:
2793: --
2794: hr_utility.set_location(l_proc,20);
2795: --
2796: -- Create User and set person_id to employee_id
2797: --
2798: l_user_id := fnd_user_pkg.CreateUserId (
2802: x_email_address => p_email,
2803: x_employee_id => l_person_id,
2804: x_password_date => trunc(sysdate));
2805: --
2806: hr_utility.set_location(l_proc,30);
2807: --
2808: -- set the language profile option
2809: --
2810: l_profile_check := fnd_profile.save (
2812: x_value => p_language,
2813: x_level_name => 'USER',
2814: x_level_value => l_user_id );
2815: --
2816: hr_utility.set_location(l_proc,40);
2817: --
2818: --
2819: -- add the appropriate responsibility
2820: --
2827: ,end_date => null
2828: ,description => ' ' -- ### description was supposed to default
2829: -- to null... but does not look like it has
2830: );
2831: hr_utility.set_location(l_proc,50);
2832: --
2833: -- look to see if we are using multiple security groups
2834: --
2835: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
2832: --
2833: -- look to see if we are using multiple security groups
2834: --
2835: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
2836: hr_utility.set_location(l_proc,60);
2837: l_sec_profile_id:=fnd_profile.value_specific
2838: (name=>'PER_SECURITY_PROFILE_ID'
2839: ,user_id=>l_user_id
2840: ,responsibility_id=>p_responsibility_id
2844: ,user_id=>l_user_id
2845: ,responsibility_id=>p_responsibility_id
2846: ,application_id=>p_resp_appl_id);
2847: --
2848: hr_utility.set_location(l_proc,70);
2849: per_sec_profile_asg_api.create_security_profile_asg
2850: (p_sec_profile_assignment_id => l_sec_profile_assignment_id
2851: ,p_user_id => l_user_id
2852: ,p_security_group_id => p_security_group_id
2857: ,p_start_date => trunc(sysdate)
2858: ,p_object_version_number => l_ovn
2859: );
2860: end if;
2861: hr_utility.set_location(l_proc,90);
2862: --
2863: -- Assign the grant to the User
2864: --
2865: l_menu_name:=fnd_profile.value_specific
2886: p_sec_group_id=> p_security_group_id,
2887: p_grant_name=> l_grant_name,
2888: p_description=>' ');
2889: end if;
2890: hr_utility.set_location(l_proc,100);
2891: --
2892: -- commit autonomous transaction
2893: --
2894: commit;
2892: -- commit autonomous transaction
2893: --
2894: commit;
2895: --
2896: hr_utility.set_location(' Leaving:'||l_proc, 110);
2897: end create_user_internal;
2898: --
2899: -- -------------------------------------------------------------------------
2900: -- |------------------------< create_user >--------------------------------|
3512: l_min_password_length number := 8;
3513:
3514: begin
3515:
3516: hr_utility.set_location(' Entering: '||l_proc, 10);
3517: --
3518: -- Issue a savepoint
3519: --
3520: savepoint SELF_REGISTER_USER;
3564: (p_module_name => 'SELF_REGISTER_USER'
3565: ,p_hook_type => 'BP'
3566: );
3567: end;
3568: hr_utility.set_location(l_proc,20);
3569:
3570: --
3571: -- Process Logic
3572: --
3571: -- Process Logic
3572: --
3573: if p_user_name is null then
3574: -- use the FND API to determine if a user exists with the same user name
3575: hr_utility.set_location(l_proc,23);
3576: l_num := TestUserName(p_user_name=>upper(p_current_email_address));
3577: if l_num <> 0 then
3578: -- the e-mail address is already in use. Raise an error
3579: fnd_message.set_name('PER','IRC_EXEMP_EMAIL_IN_USE');
3579: fnd_message.set_name('PER','IRC_EXEMP_EMAIL_IN_USE');
3580: fnd_message.raise_error;
3581: end if;
3582: else
3583: hr_utility.set_location(l_proc,26);
3584: -- check if the user account is already associated to a person
3585: open user_association_exists(p_user_name);
3586: fetch user_association_exists into l_dummy;
3587: if user_association_exists%found then
3591: else
3592: close user_association_exists;
3593: end if;
3594: end if;
3595: hr_utility.set_location(l_proc,30);
3596:
3597: open get_prev_emp;
3598: fetch get_prev_emp into l_party_id,l_count;
3599: if get_prev_emp%notfound then
3601: close get_prev_emp;
3602: fnd_message.set_name('PER','IRC_EXEMP_NO_RECORD_FOUND');
3603: fnd_message.raise_error;
3604: end if;
3605: hr_utility.set_location(l_proc,40);
3606:
3607: fetch get_prev_emp into l_party_id2,l_count2;
3608: if get_prev_emp%found then
3609: -- we have found more than one match, so error out
3611: fnd_message.set_name('PER','IRC_EXEMP_MANY_RECORDS_FOUND');
3612: fnd_message.raise_error;
3613: end if;
3614: close get_prev_emp;
3615: hr_utility.set_location(l_proc,50);
3616:
3617: -- we have only one match, so check their credentials.
3618: open current_emp(l_party_id);
3619: fetch current_emp into l_dummy;
3623: fnd_message.set_name('PER','IRC_EXEMP_CURRENT_EMP');
3624: fnd_message.raise_error;
3625: end if;
3626: close current_emp;
3627: hr_utility.set_location(l_proc,60);
3628:
3629: -- the person is not a current employee, so good to go.
3630: -- look to see if they have any notification preferences already
3631: open has_notification_prefs(l_party_id);
3635: -- we have notification preferences already for this person, so use that as
3636: -- the primary person
3637: else
3638: close has_notification_prefs;
3639: hr_utility.set_location(l_proc,70);
3640: open in_reg_bg(l_party_id);
3641: fetch in_reg_bg into l_person_id;
3642: if in_reg_bg%found then
3643: close in_reg_bg;
3644: -- the person exists in the registration business group, so use that
3645: -- as the primary person record
3646: else
3647: close in_reg_bg;
3648: hr_utility.set_location(l_proc,80);
3649:
3650: -- the person is not in the registration business group, look to
3651: -- find their last employee record
3652: open get_last_emp_rec(l_party_id);
3653: fetch get_last_emp_rec into l_person_id;
3654: if get_last_emp_rec%notfound then
3655: --could not find an old employee record, so find the last record
3656: close get_last_emp_rec;
3657: hr_utility.set_location(l_proc,90);
3658:
3659: open get_last_per_rec(l_party_id);
3660: fetch get_last_per_rec into l_person_id;
3661: close get_last_per_rec;
3664: end if;
3665: end if;
3666: -- we have gone through all of the options, and found the best person_id
3667: -- for this person, so now create their notification preferences
3668: hr_utility.set_location(l_proc,100);
3669:
3670: irc_notification_prefs_api.create_notification_prefs
3671: (p_validate=>false
3672: ,p_person_id =>l_person_id
3675: ,p_object_version_number =>l_object_version_number
3676: ,p_allow_access => l_allow_access);
3677:
3678: end if;
3679: hr_utility.set_location(l_proc,110);
3680:
3681: -- look for work preferences for the person
3682: open has_work_prefs(l_person_id);
3683: fetch has_work_prefs into l_dummy;
3684: if has_work_prefs%notfound then
3685: -- no work preferences, so create some
3686: close has_work_prefs;
3687: --
3688: hr_utility.set_location(l_proc,120);
3689:
3690: irc_search_criteria_api.create_work_choices
3691: (p_validate=>false
3692: ,p_effective_date=>trunc(sysdate)
3700: end if;
3701:
3702: -- get the PTU person type for iRecruitment Candidate
3703: --
3704: hr_utility.set_location(l_proc,130);
3705: --
3706: open get_bg(l_person_id);
3707: fetch get_bg into l_business_group_id
3708: ,l_person_ovn
3716: open ptu_exists(l_person_id,l_ptu_person_type_id);
3717: fetch ptu_exists into l_dummy;
3718: if ptu_exists%notfound then
3719: close ptu_exists;
3720: hr_utility.set_location(l_proc,140);
3721:
3722: hr_per_type_usage_internal.maintain_person_type_usage
3723: (p_effective_date => trunc(sysdate)
3724: ,p_person_id => l_person_id
3729: end if;
3730: --
3731: -- close off the old user accounts for this person
3732: --
3733: hr_utility.set_location(l_proc,150);
3734:
3735: for user_rec in existing_emails(l_person_id,l_party_id) loop
3736: fnd_user_pkg.disableUser(user_rec.user_name);
3737: end loop;
3779: -- release the patch before that, comment it out and replace with the line above
3780: --
3781: l_password:=l_password||mod(fnd_crypto.randomnumber,10);
3782:
3783: hr_utility.set_location(l_proc,160);
3784:
3785: l_user_id := fnd_user_pkg.CreateUserId (
3786: x_user_name => upper(p_current_email_address),
3787: x_owner => 'CUST',
3789: x_employee_id => l_person_id);
3790:
3791: else
3792: -- associate the previous employee record to the fnd user
3793: hr_utility.set_location(l_proc,165);
3794: fnd_user_pkg.UpdateUser(
3795: x_user_name => p_user_name,
3796: x_owner => 'CUST',
3797: x_employee_id => l_person_id);
3819: x_value => l_nls_language,
3820: x_level_name => 'USER',
3821: x_level_value => l_user_id );
3822: end if;
3823: hr_utility.set_location(l_proc,170);
3824: -- If this is an existing user, check if he has the required responsibility
3825: if p_user_name is null then
3826: l_resp_exists := false;
3827: else
3824: -- If this is an existing user, check if he has the required responsibility
3825: if p_user_name is null then
3826: l_resp_exists := false;
3827: else
3828: hr_utility.set_location(l_proc,175);
3829: l_resp_exists := fnd_user_resp_groups_api.Assignment_Exists(l_user_id,
3830: p_responsibility_id, p_resp_appl_id, p_security_group_id);
3831: end if;
3832: -- if the User doesn't have the responsibility, assign it.
3843: ,end_date => null
3844: ,description => ' ' -- ### description was supposed to default
3845: -- to null... but does not look like it has
3846: );
3847: hr_utility.set_location(l_proc,180);
3848: --
3849: -- look to see if we are using multiple security groups
3850: --
3851: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
3848: --
3849: -- look to see if we are using multiple security groups
3850: --
3851: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
3852: hr_utility.set_location(l_proc,190);
3853: l_sec_profile_id:=fnd_profile.value_specific
3854: (name=>'PER_SECURITY_PROFILE_ID'
3855: ,user_id=>l_user_id
3856: ,responsibility_id=>p_responsibility_id
3860: ,user_id=>l_user_id
3861: ,responsibility_id=>p_responsibility_id
3862: ,application_id=>p_resp_appl_id);
3863: --
3864: hr_utility.set_location(l_proc,200);
3865: per_sec_profile_asg_api.create_security_profile_asg
3866: (p_sec_profile_assignment_id => l_sec_profile_assignment_id
3867: ,p_user_id => l_user_id
3868: ,p_security_group_id => p_security_group_id
3874: ,p_object_version_number => l_object_version_number
3875: );
3876: end if;
3877: else
3878: hr_utility.set_location(l_proc, 205);
3879: --
3880: -- reopen the candidate responsibility
3881: --
3882: fnd_user_resp_groups_api.Update_Assignment
3891: );
3892: -- REVISIT, what about Security Profile Assignment
3893: end if;
3894: --
3895: hr_utility.set_location(l_proc,210);
3896:
3897: if trunc(sysdate)=l_person_start_date then
3898: l_dt_mode:='CORRECTION';
3899: else
3918: );
3919: --
3920: -- now send an e-mail to the user confirming that this has been done
3921: --
3922: hr_utility.set_location(l_proc,220);
3923:
3924: l_nid:=wf_notification.send( upper(p_current_email_address)
3925: , fnd_profile.value('IRC_WORKFLOW_ITEM_TYPE')
3926: , 'IRC_TEXT_HTML_MSG'
3993: (p_wf_attribute_value => l_text_body
3994: ,p_wf_attribute_name => 'TEXT_BODY'
3995: ,p_nid => l_nid);
3996: wf_notification.denormalize_notification(l_nid);
3997: hr_utility.set_location(l_proc,230);
3998: --
3999: -- Call After Process User Hook
4000: --
4001: begin
4032: --
4033: if p_validate then
4034: raise hr_api.validate_enabled;
4035: end if;
4036: hr_utility.set_location(' Leaving:'||l_proc, 240);
4037:
4038: exception
4039: when hr_api.validate_enabled then
4040: --
4042: -- we must rollback to the savepoint
4043: --
4044: rollback to SELF_REGISTER_USER;
4045: --
4046: hr_utility.set_location(' Leaving:'||l_proc, 250);
4047: when others then
4048: --
4049: -- A validation or unexpected error has occured
4050: --
4050: --
4051: rollback to SELF_REGISTER_USER;
4052: --
4053: --
4054: hr_utility.set_location(' Leaving:'||l_proc, 260);
4055: raise;
4056:
4057: end self_register_user;
4058:
4163: --
4164: l_proc varchar2(72) := g_package||'create_partial_user';
4165: --
4166: begin
4167: hr_utility.set_location(' Entering: '||l_proc, 10);
4168: --
4169: -- Truncate time portion from date
4170: --
4171: l_start_date := trunc(p_start_date);
4180: else
4181: close get_nls_language;
4182: end if;
4183: --
4184: hr_utility.set_location(l_proc, 20);
4185: --
4186: -- default Allow Access if input value is NULL
4187: --
4188: l_allow_access := nvl(p_allow_access,nvl(fnd_profile.value('IRC_VISIBLE_PREF_DEFAULT'),'N'));
4207: l_email_address := p_user_name;
4208: end if;
4209: end if;
4210: --
4211: hr_utility.set_location(l_proc, 30);
4212: -- Disable Partial Registration for Employees
4213: -- we have to REVISIT after using UMX support for Registration
4214: if l_person_id is not null then
4215: l_per_type := irc_utilities_pkg.get_emp_spt_for_person(l_person_id, trunc(p_start_date));
4218: fnd_message.raise_error;
4219: end if;
4220: end if;
4221: --
4222: hr_utility.set_location(l_proc, 40);
4223: -- there is no person attached to this FND_USER. We need to create a new
4224: -- iRecruitment Candidate, update FND user with the person_id,
4225: -- set Language profile and Create Work Preferences
4226: if l_person_id is NULL then
4238: ,p_party_id => l_person_party_id
4239: ,p_start_date => l_start_date
4240: );
4241: --
4242: hr_utility.set_location(l_proc, 50);
4243: --
4244: fnd_user_pkg.UpdateUser
4245: (x_user_name => p_user_name
4246: ,x_owner => 'CUST'
4245: (x_user_name => p_user_name
4246: ,x_owner => 'CUST'
4247: ,x_employee_id => l_person_id);
4248: --
4249: hr_utility.set_location(l_proc, 60);
4250: --
4251: l_profile_check := fnd_profile.save (
4252: x_name => 'ICX_LANGUAGE',
4253: x_value => l_nls_language,
4253: x_value => l_nls_language,
4254: x_level_name => 'USER',
4255: x_level_value => l_user_id );
4256: --
4257: hr_utility.set_location(l_proc, 70);
4258: --
4259: -- create work preferences
4260: irc_search_criteria_api.create_work_choices
4261: (p_effective_date=>trunc(sysdate)
4264: ,p_contractor=>'Y'
4265: ,p_object_version_number=>l_sc_ovn
4266: ,p_search_criteria_id=>l_search_criteria_id);
4267: --
4268: hr_utility.set_location(l_proc, 80);
4269: else
4270: hr_utility.set_location(l_proc, 45);
4271: open get_bg(l_person_id);
4272: fetch get_bg into l_pers_business_group_id, l_person_ovn,
4266: ,p_search_criteria_id=>l_search_criteria_id);
4267: --
4268: hr_utility.set_location(l_proc, 80);
4269: else
4270: hr_utility.set_location(l_proc, 45);
4271: open get_bg(l_person_id);
4272: fetch get_bg into l_pers_business_group_id, l_person_ovn,
4273: l_employee_number,l_person_start_date;
4274: close get_bg;
4301: open ptu_exists(l_person_id,l_ptu_person_type_id);
4302: fetch ptu_exists into l_dummy;
4303: if ptu_exists%notfound then
4304: close ptu_exists;
4305: hr_utility.set_location(l_proc,140);
4306: hr_per_type_usage_internal.maintain_person_type_usage
4307: (p_effective_date => trunc(sysdate)
4308: ,p_person_id => l_person_id
4309: ,p_person_type_id => l_ptu_person_type_id
4311: else
4312: close ptu_exists;
4313: end if;
4314: end if;
4315: hr_utility.set_location(l_proc, 55);
4316: end if;
4317:
4318: -- check if the Party has Notification preferences
4319: open get_notif_prefs(l_person_party_id);
4329: ,p_notification_preference_id=>l_notif_preference_id
4330: ,p_object_version_number =>l_notif_ovn
4331: ,p_allow_access => l_allow_access);
4332: end if;
4333: hr_utility.set_location(l_proc, 90);
4334: -- check if the User has the required responsibility
4335: l_resp_exists := fnd_user_resp_groups_api.Assignment_Exists(l_user_id,
4336: p_responsibility_id, p_resp_appl_id, p_security_group_id);
4337: -- if the User doesn't have the responsibility, assign it.
4348: ,end_date => null
4349: ,description => ' ' -- ### description was supposed to default
4350: -- to null... but does not look like it has
4351: );
4352: hr_utility.set_location(l_proc, 100);
4353: --
4354: -- look to see if we are using multiple security groups
4355: --
4356: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
4375: ,p_responsibility_application_i => p_resp_appl_id
4376: ,p_start_date => trunc(sysdate)
4377: ,p_object_version_number => l_ovn
4378: );
4379: hr_utility.set_location(l_proc, 110);
4380: end if;
4381: else
4382: hr_utility.set_location(l_proc, 95);
4383: --
4378: );
4379: hr_utility.set_location(l_proc, 110);
4380: end if;
4381: else
4382: hr_utility.set_location(l_proc, 95);
4383: --
4384: -- reopen the candidate responsibility
4385: --
4386: fnd_user_resp_groups_api.Update_Assignment
4431: p_description=>' ');
4432: end if;
4433: end if;
4434: --
4435: hr_utility.set_location('Leaving'||l_proc, 120);
4436: --
4437: end create_partial_user;
4438: -- -------------------------------------------------------------------------
4439: -- |------------------------< irec_profile_exists >-------------------------|
4492: l_proc varchar2(72) := g_package||'irec_profile_exists';
4493: --
4494: begin
4495: --
4496: hr_utility.set_location(' Entering: '||l_proc, 10);
4497: --
4498: open get_person_party_info;
4499: fetch get_person_party_info into l_user_id, l_person_id, l_person_party_id;
4500: close get_person_party_info;
4507: fetch get_bg into l_pers_business_group_id;
4508: close get_bg;
4509: l_ptu_person_type_id:=hr_person_type_usage_info.get_default_person_type_id
4510: (l_pers_business_group_id, 'IRC_REG_USER');
4511: hr_utility.set_location(l_proc, 15);
4512: -- if the person's BG doesn't have the iRecruitment Candidate defined
4513: -- ignore??
4514: if l_ptu_person_type_id is not null then
4515: open ptu_exists(l_person_id,l_ptu_person_type_id);
4521: close ptu_exists;
4522: end if;
4523: end if;
4524: --
4525: hr_utility.set_location(l_proc, 20);
4526: --
4527: if l_person_party_id IS NOT NULL then
4528: -- check if the Party has Notification preferences
4529: open get_notif_prefs(l_person_party_id);
4537: return 'NO_PROFILE';
4538: end if;
4539: end if;
4540: end if;
4541: hr_utility.set_location(l_proc, 30);
4542:
4543: -- check if user has the Candidate Responsibility
4544: open get_user_responsibility(l_user_id, p_responsibility_id, p_resp_appl_id, p_security_group_id);
4545: fetch get_user_responsibility into l_tmp_resp_id;
4560: if l_func_check <> 'T' then
4561: return 'NO_PROFILE';
4562: end if;
4563: --
4564: hr_utility.set_location('Leaving: '||l_proc, 40);
4565:
4566: return 'PROFILE_EXISTS';
4567: end irec_profile_exists;
4568: -- -------------------------------------------------------------------------
4600: l_proc varchar2(72) := g_package||'create_ha_processed_user';
4601:
4602: begin
4603: --
4604: hr_utility.set_location(' Entering: '||l_proc, 10);
4605:
4606: l_num := TestUserName(p_user_name=>p_user_name);
4607: -- creating a brand new user. This happens when SSO is not enabled and user
4608: -- registered on HA instance
4606: l_num := TestUserName(p_user_name=>p_user_name);
4607: -- creating a brand new user. This happens when SSO is not enabled and user
4608: -- registered on HA instance
4609: if l_num = 0 then
4610: hr_utility.set_location(' Entering: '||l_proc, 20);
4611: -- create the iRecruitment user with standard password
4612: irc_party_api.create_user(p_user_name => p_user_name,
4613: p_password => 'j3ke678to',
4614: p_start_date => p_start_date,
4618: p_last_name => p_last_name,
4619: p_first_name => p_first_name,
4620: p_email => p_email,
4621: p_allow_access => p_allow_access);
4622: hr_utility.set_location(' Entering: '||l_proc, 30);
4623: -- update the user password
4624: l_bool := fnd_user_pkg.setreencryptedpassword(username => p_user_name,
4625: reencpwd => p_password,
4626: newkey => 'LOADER');
4627: if NOT l_bool then
4628: raise PASSWORD_UPDATE_FAILED;
4629: end if;
4630: --
4631: hr_utility.set_location(l_proc, 40);
4632: --
4633: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4634: --
4635: hr_utility.set_location(l_proc, 50);
4631: hr_utility.set_location(l_proc, 40);
4632: --
4633: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4634: --
4635: hr_utility.set_location(l_proc, 50);
4636: --
4637: -- this case happens when user is present in SSO and applied for a job through
4638: -- HA and for this we have to create a local user who points to SSO user
4639: -- note that we are passing in FND_WEB_SEC.EXTERNAL_PWD which is checked by
4638: -- HA and for this we have to create a local user who points to SSO user
4639: -- note that we are passing in FND_WEB_SEC.EXTERNAL_PWD which is checked by
4640: -- ATG routine and treats this as an SSO user
4641: elsif l_num = 3 then
4642: hr_utility.set_location(l_proc, 15);
4643: l_user_id := fnd_user_pkg.CreateUserId(
4644: x_user_name => p_user_name
4645: ,x_owner => 'CUST'
4646: ,x_unencrypted_password => FND_WEB_SEC.EXTERNAL_PWD
4646: ,x_unencrypted_password => FND_WEB_SEC.EXTERNAL_PWD
4647: ,x_email_address => p_email
4648: ,x_user_guid => p_user_guid
4649: );
4650: hr_utility.set_location(l_proc, 25);
4651: -- fix for bug 4765406
4652: -- set the profile to SSO
4653: l_found := fnd_profile.save(x_name => 'APPS_SSO_LOCAL_LOGIN'
4654: , x_value => 'SSO'
4654: , x_value => 'SSO'
4655: , x_level_name => 'USER'
4656: , x_level_value => l_user_id);
4657:
4658: hr_utility.set_location(l_proc, 30);
4659: --
4660: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4661: hr_utility.set_location(l_proc, 35);
4662: --
4657:
4658: hr_utility.set_location(l_proc, 30);
4659: --
4660: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4661: hr_utility.set_location(l_proc, 35);
4662: --
4663: -- check if User has Resp
4664: irc_party_api.process_ha_resp_check(p_user_id => l_user_id,
4665: p_responsibility_id => p_responsibility_id,
4680: ,p_language => p_language
4681: ,p_allow_access => p_allow_access
4682: );
4683: end if;
4684: hr_utility.set_location('Leaving: '||l_proc, 60);
4685: end create_ha_processed_user;
4686: --
4687: -- -------------------------------------------------------------------------
4688: -- |------------------------< process_ha_resp_check >----------------------|
4746: ,end_date => null
4747: ,description => ' ' -- ### description was supposed to default
4748: -- to null... but does not look like it has
4749: );
4750: hr_utility.set_location(l_proc, 100);
4751: --
4752: -- look to see if we are using multiple security groups
4753: --
4754: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
4773: ,p_responsibility_application_i => p_resp_appl_id
4774: ,p_start_date => trunc(sysdate)
4775: ,p_object_version_number => l_ovn
4776: );
4777: hr_utility.set_location(l_proc, 110);
4778: end if;
4779: else
4780: hr_utility.set_location(l_proc, 95);
4781: if (l_per_type <> 'EMP') then
4776: );
4777: hr_utility.set_location(l_proc, 110);
4778: end if;
4779: else
4780: hr_utility.set_location(l_proc, 95);
4781: if (l_per_type <> 'EMP') then
4782: --
4783: -- reopen the candidate responsibility
4784: --
4862: ,end_date => null
4863: ,description => ' ' -- ### description was supposed to default
4864: -- to null... but does not look like it has
4865: );
4866: hr_utility.set_location(l_proc, 100);
4867: --
4868: -- look to see if we are using multiple security groups
4869: --
4870: if(fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
4889: ,p_responsibility_application_i => p_resp_appl_id
4890: ,p_start_date => trunc(sysdate)
4891: ,p_object_version_number => l_ovn
4892: );
4893: hr_utility.set_location(l_proc, 110);
4894: end if;
4895: else
4896: hr_utility.set_location(l_proc, 95);
4897: --
4892: );
4893: hr_utility.set_location(l_proc, 110);
4894: end if;
4895: else
4896: hr_utility.set_location(l_proc, 95);
4897: --
4898: -- reopen the candidate responsibility
4899: --
4900: fnd_user_resp_groups_api.Update_Assignment
4909: );
4910: -- REVISIT, what about Security Profile Assignment
4911: end if;
4912: commit;
4913: hr_utility.set_location('Leaving:'||l_proc, 110);
4914: end assign_responsibility;
4915: --
4916: --
4917: --
4985: cursor get_menu_id (p_menu_name varchar2) is
4986: select menu_id from fnd_menus where menu_name=upper(p_menu_name);
4987: --
4988: begin
4989: hr_utility.set_location(' Entering: '||l_proc, 10);
4990: --
4991: -- Create Person
4992: l_default_last_name := nvl(p_last_name,fnd_message.get_string('PER','IRC_412108_UNKNOWN_NAME'));
4993:
4992: l_default_last_name := nvl(p_last_name,fnd_message.get_string('PER','IRC_412108_UNKNOWN_NAME'));
4993:
4994: l_person_id := p_person_id;
4995: --
4996: hr_utility.set_location(l_proc,20);
4997: --
4998: -- Create User and set person_id to employee_id
4999: --
5000: l_user_id := fnd_user_pkg.CreateUserId (
5004: x_email_address => p_email,
5005: x_employee_id => l_person_id,
5006: x_password_date => trunc(sysdate));
5007: --
5008: hr_utility.set_location(l_proc,30);
5009: --
5010: -- set the language profile option
5011: --
5012: l_profile_check := fnd_profile.save (
5014: x_value => p_language,
5015: x_level_name => 'USER',
5016: x_level_value => l_user_id );
5017: --
5018: hr_utility.set_location(l_proc,40);
5019: --
5020: -- Set the password date Column to Null for the created user
5021: -- As the password is system generated, it should be changed
5022: -- by candidate when he first logs in
5028: --
5029: --
5030: commit;
5031: --
5032: hr_utility.set_location(' Leaving:'||l_proc, 50);
5033: end create_user_internal_byRef;
5034: --
5035: --
5036: -- -------------------------------------------------------------------------