[Home] [Help]
145: l_search_criteria_id number;
146: --
147: l_start_date date;
148: begin
149: hr_utility.set_location(' Entering: '||l_proc, 10);
150: --
151: -- Issue a savepoint
152: --
153: savepoint CREATE_CANDIDATE_INTERNAL;
590: ,p_name_combination_warning => l_name_combination_warning
591: ,p_orig_hire_warning => l_orig_hire_warning
592: );
593: end if;
594: hr_utility.set_location(l_proc, 40);
595:
596: -- calling this will associate the TCA party with the newly created Candidate and prevent PTU code from
597: -- creating a new TCA record
598: if p_party_id is not NULL then
619: (p_effective_date => l_start_date
620: ,p_person_id => l_person_id
621: ,p_person_type_id => l_ptu_person_type_id
622: );
623: hr_utility.set_location(l_proc, 45);
624: --
625: -- Call After Process User Hook
626: --
627: begin
733: p_person_id := l_person_id;
734: p_effective_start_date := l_effective_start_date;
735: p_effective_end_date := l_effective_end_date;
736: --
737: hr_utility.set_location(' Leaving:'||l_proc, 70);
738:
739: exception
740: when hr_Api.validate_enabled then
741: --
750: --
751: p_person_id := null;
752: p_effective_start_date := null;
753: p_effective_start_date := null;
754: hr_utility.set_location(' Leaving:'||l_proc, 80);
755: when others then
756: --
757: -- A validation or unexpected error has occured
758: --
761: p_person_id := null;
762: p_effective_start_date := null;
763: p_effective_start_date := null;
764: --
765: hr_utility.set_location(' Leaving:'||l_proc, 90);
766: raise;
767: end create_candidate_internal;
768: --
769: -- -------------------------------------------------------------------------
898: l_search_criteria_id number;
899: --
900: l_start_date date;
901: begin
902: hr_utility.set_location(' Entering: '||l_proc, 10);
903: --
904: -- Issue a savepoint
905: --
906: savepoint CREATE_REGISTERED_USER;
1004: ,p_hook_type => 'BP'
1005: );
1006: end;
1007: --
1008: hr_utility.set_location(l_proc, 10);
1009: --
1010: -- Process Logic
1011: -- code for disabling the descriptive flex field
1012: --
1022: l_add_struct_d(l_add_struct_d.count) := 'Person Developer DF';
1023: --
1024: hr_dflex_utility.create_ignore_df_validation(p_rec => l_add_struct_d);
1025: --
1026: hr_utility.set_location(l_proc, 20);
1027: --
1028: --
1029: -- Get the business group id from profile
1030: --
1034: fnd_message.set_name('PER','IRC_412155_REG_BG_NOT_SET');
1035: fnd_message.raise_error;
1036: end if;
1037: --
1038: hr_utility.set_location(l_proc, 30);
1039: --
1040: IRC_PARTY_API.CREATE_CANDIDATE_INTERNAL
1041: (p_business_group_id => l_business_group_id
1042: ,p_last_name => p_last_name
1120: ,p_effective_end_date => l_effective_end_date
1121: ,p_person_id => l_person_id
1122: );
1123: --
1124: hr_utility.set_location(l_proc, 40);
1125: --
1126: -- create notification preferences
1127: --
1128: irc_notification_prefs_api.create_notification_prefs
1250: p_person_id := l_person_id;
1251: p_effective_start_date := l_effective_start_date;
1252: p_effective_end_date := l_effective_end_date;
1253: --
1254: hr_utility.set_location(' Leaving:'||l_proc, 70);
1255: --
1256: exception
1257: when hr_Api.validate_enabled then
1258: --
1267: --
1268: p_person_id := null;
1269: p_effective_start_date := null;
1270: p_effective_start_date := null;
1271: hr_utility.set_location(' Leaving:'||l_proc, 80);
1272: when others then
1273: --
1274: -- A validation or unexpected error has occured
1275: --
1278: p_person_id := null;
1279: p_effective_start_date := null;
1280: p_effective_start_date := null;
1281: --
1282: hr_utility.set_location(' Leaving:'||l_proc, 90);
1283: raise;
1284: end create_registered_user;
1285: --
1286: -- -------------------------------------------------------------------------
1408: where person_id = p_person_id
1409: and l_effective_date between effective_start_date and effective_end_date;
1410: --
1411: begin
1412: hr_utility.set_location(' Entering: ' || l_proc, 10);
1413: --
1414: -- Issue a savepoint
1415: --
1416: savepoint UPDATE_REGISTERED_USER;
1514: --
1515: --
1516: -- Set profile option
1517: fnd_profile.put('HZ_CREATED_BY_MODULE','HR API');
1518: hr_utility.set_location(l_proc, 40);
1519: --
1520: -- Added for turn off key flex field validation
1521: --
1522: l_add_struct_k.extend(1);
1807: ,p_assign_payroll_warning => l_assign_payroll_warning
1808: ,p_orig_hire_warning => l_orig_hire_warning
1809: );
1810: end if;
1811: hr_utility.set_Location(l_proc, 60);
1812: -- Save person ovn to global
1813: if ( p_person_id = g_person_id ) then
1814: g_ovn_for_person := l_object_version_number;
1815: end if;
1912: --
1913: -- Set all output arguments
1914: --
1915: --
1916: hr_utility.set_location(' Leaving:'||l_proc, 70);
1917:
1918: exception
1919: when hr_api.validate_enabled then
1920: --
1926: -- Only set output warning arguments
1927: -- (Any key or derived arguments must be set to null
1928: -- when validation only mode is beINg used.)
1929: --
1930: hr_utility.set_location(' Leaving:'||l_proc, 80);
1931: when others then
1932: --
1933: -- A validation or unexpected error has occured
1934: --
1932: --
1933: -- A validation or unexpected error has occured
1934: --
1935: rollback to UPDATE_REGISTERED_USER;
1936: hr_utility.set_location(' Leaving:'||l_proc, 90);
1937: raise;
1938:
1939: end update_registered_user;
1940: --
2209: WHERE bus.business_group_id = p_business_group_id;
2210: --
2211: --
2212: begin
2213: hr_utility.set_location(' Entering: ' || l_proc, 10);
2214: --
2215: -- Issue a savepoint
2216: --
2217: savepoint REGISTERED_USER_APPLICATION;
2366: if csr_get_bg_default_details%NOTFOUND then
2367: --
2368: close csr_get_bg_default_details;
2369: --
2370: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2371: hr_utility.raise_error;
2372: end if;
2373: close csr_get_bg_default_details;
2374: END IF;
2367: --
2368: close csr_get_bg_default_details;
2369: --
2370: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
2371: hr_utility.raise_error;
2372: end if;
2373: close csr_get_bg_default_details;
2374: END IF;
2375: --
2406: ,p_effective_end_date => l_effective_end_date
2407: ,p_assignment_sequence => l_assignment_sequence
2408: );
2409: elsif (l_current_employee_flag = 'Y') then
2410: hr_utility.set_location(l_proc,20);
2411: --
2412: hr_employee_api.apply_for_internal_vacancy
2413: (p_validate => false
2414: ,p_effective_date => l_effective_date
2446: ,p_effective_end_date => l_effective_end_date
2447: );
2448: --
2449: else
2450: hr_utility.set_location(l_proc,30);
2451: --
2452: hr_applicant_api.convert_to_applicant
2453: (p_validate => false
2454: ,p_effective_date => l_effective_date
2492: ,p_effective_end_date => l_effective_end_date
2493: );
2494: end if;
2495: else
2496: hr_utility.set_location(l_proc, 40);
2497: --
2498: -- Register Person ID
2499: --
2500: per_per_ins.set_base_key_value
2637: (p_effective_date => l_effective_start_date
2638: ,p_person_id => l_person_id
2639: ,p_person_type_id => l_ptu_person_type_id
2640: );
2641: hr_utility.set_location(l_proc, 45);
2642: --
2643: hr_assignment_api.update_apl_asg
2644: (p_effective_date => l_application_received_date
2645: ,p_datetrack_update_mode => 'CORRECTION'
2704: p_asg_object_version_number := l_asg_object_version_number;
2705: p_per_object_version_number := l_per_object_version_number;
2706: p_applicant_number := l_applicant_number;
2707: --
2708: hr_utility.set_location(' Leaving:'||l_proc, 70);
2709:
2710: exception
2711: when hr_api.validate_enabled then
2712: --
2720: -- when validation only mode is beINg used.)
2721: --
2722: p_asg_object_version_number := null;
2723: p_per_object_version_number := null;
2724: hr_utility.set_location(' Leaving:'||l_proc, 80);
2725: when others then
2726: --
2727: -- A validation or unexpected error has occured
2728: --
2737: --
2738: p_asg_object_version_number := null;
2739: p_per_object_version_number := null;
2740: --
2741: hr_utility.set_location(' Leaving:'||l_proc, 90);
2742: raise;
2743: end registered_user_application;
2744: -- -------------------------------------------------------------------------
2745: -- |------------------------< grant_access >-------------------------------|
2859: cursor get_menu_id (p_menu_name varchar2) is
2860: select menu_id from fnd_menus where menu_name=upper(p_menu_name);
2861: --
2862: begin
2863: hr_utility.set_location(' Entering: '||l_proc, 10);
2864: --
2865: -- Create Person
2866: l_default_last_name := nvl(p_last_name,fnd_message.get_string('PER','IRC_412108_UNKNOWN_NAME'));
2867:
2907: ,p_per_information30 => p_per_information30
2908: );
2909:
2910: --
2911: hr_utility.set_location(l_proc,20);
2912: --
2913: -- Create User and set person_id to employee_id
2914: --
2915: l_user_id := fnd_user_pkg.CreateUserId (
2919: x_email_address => p_email,
2920: x_employee_id => l_person_id,
2921: x_password_date => trunc(sysdate));
2922: --
2923: hr_utility.set_location(l_proc,30);
2924: --
2925: -- set the language profile option
2926: --
2927: l_profile_check := fnd_profile.save (
2929: x_value => p_language,
2930: x_level_name => 'USER',
2931: x_level_value => l_user_id );
2932: --
2933: hr_utility.set_location(l_proc,40);
2934: --
2935: --
2936: -- add the appropriate responsibility
2937: --
2944: ,end_date => null
2945: ,description => ' ' -- ### description was supposed to default
2946: -- to null... but does not look like it has
2947: );
2948: hr_utility.set_location(l_proc,50);
2949: --
2950: -- look to see if we are using multiple security groups
2951: --
2952: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
2949: --
2950: -- look to see if we are using multiple security groups
2951: --
2952: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
2953: hr_utility.set_location(l_proc,60);
2954: l_sec_profile_id:=fnd_profile.value_specific
2955: (name=>'PER_SECURITY_PROFILE_ID'
2956: ,user_id=>l_user_id
2957: ,responsibility_id=>p_responsibility_id
2961: ,user_id=>l_user_id
2962: ,responsibility_id=>p_responsibility_id
2963: ,application_id=>p_resp_appl_id);
2964: --
2965: hr_utility.set_location(l_proc,70);
2966: per_sec_profile_asg_api.create_security_profile_asg
2967: (p_sec_profile_assignment_id => l_sec_profile_assignment_id
2968: ,p_user_id => l_user_id
2969: ,p_security_group_id => p_security_group_id
2974: ,p_start_date => trunc(sysdate)
2975: ,p_object_version_number => l_ovn
2976: );
2977: end if;
2978: hr_utility.set_location(l_proc,90);
2979: --
2980: -- Assign the grant to the User
2981: --
2982: l_menu_name:=fnd_profile.value_specific
3003: p_sec_group_id=> p_security_group_id,
3004: p_grant_name=> l_grant_name,
3005: p_description=>' ');
3006: end if;
3007: hr_utility.set_location(l_proc,100);
3008: --
3009: -- commit autonomous transaction
3010: --
3011: commit;
3009: -- commit autonomous transaction
3010: --
3011: commit;
3012: --
3013: hr_utility.set_location(' Leaving:'||l_proc, 110);
3014: end create_user_internal;
3015: --
3016: -- -------------------------------------------------------------------------
3017: -- |------------------------< create_user >--------------------------------|
3653: hr_dflex_utility.l_ignore_dfcode_varray();
3654: --
3655: begin
3656:
3657: hr_utility.set_location(' Entering: '||l_proc, 10);
3658: --
3659: -- Issue a savepoint
3660: --
3661: savepoint SELF_REGISTER_USER;
3705: (p_module_name => 'SELF_REGISTER_USER'
3706: ,p_hook_type => 'BP'
3707: );
3708: end;
3709: hr_utility.set_location(l_proc,20);
3710: --
3711: -- Process Logic
3712: -- code for disabling the descriptive flex field
3713: --
3723: l_add_struct_d(l_add_struct_d.count) := 'Person Developer DF';
3724: --
3725: hr_dflex_utility.create_ignore_df_validation(p_rec => l_add_struct_d);
3726: --
3727: hr_utility.set_location(l_proc, 21);
3728: --
3729: --
3730: -- Process Logic
3731: --
3730: -- Process Logic
3731: --
3732: if p_user_name is null then
3733: --
3734: hr_utility.set_location(l_proc || ' p_user_name is null.',22);
3735: -- use the FND API to determine if a user exists with the same user name
3736: hr_utility.set_location(l_proc,23);
3737: l_num := TestUserName(p_user_name=>upper(p_current_email_address));
3738: if l_num = 2 or l_num = 4 then
3732: if p_user_name is null then
3733: --
3734: hr_utility.set_location(l_proc || ' p_user_name is null.',22);
3735: -- use the FND API to determine if a user exists with the same user name
3736: hr_utility.set_location(l_proc,23);
3737: l_num := TestUserName(p_user_name=>upper(p_current_email_address));
3738: if l_num = 2 or l_num = 4 then
3739: -- the e-mail address is already in use. Raise an error
3740: fnd_message.set_name('PER','IRC_EXEMP_EMAIL_IN_USE');
3747: fnd_message.set_token('UNAME',p_current_email_address);
3748: fnd_message.raise_error;
3749: end if;
3750: else
3751: hr_utility.set_location(l_proc|| ' p_user_name is not null.',23);
3752: -- check if the user account is already associated to a person
3753: open user_association_exists(p_user_name);
3754: fetch user_association_exists into l_dummy;
3755: if user_association_exists%found then
3759: else
3760: close user_association_exists;
3761: end if;
3762: end if;
3763: hr_utility.set_location(l_proc,30);
3764:
3765: open get_prev_emp;
3766: fetch get_prev_emp into l_party_id,l_count;
3767: if get_prev_emp%notfound then
3764:
3765: open get_prev_emp;
3766: fetch get_prev_emp into l_party_id,l_count;
3767: if get_prev_emp%notfound then
3768: hr_utility.set_location(l_proc, 31);
3769: -- we have not found a match at all, so error out
3770: close get_prev_emp;
3771: fnd_message.set_name('PER','IRC_EXEMP_NO_RECORD_FOUND');
3772: fnd_message.raise_error;
3770: close get_prev_emp;
3771: fnd_message.set_name('PER','IRC_EXEMP_NO_RECORD_FOUND');
3772: fnd_message.raise_error;
3773: end if;
3774: hr_utility.set_location(l_proc,40);
3775:
3776: fetch get_prev_emp into l_party_id2,l_count2;
3777: if get_prev_emp%found then
3778: -- we have found more than one match, so error out
3780: fnd_message.set_name('PER','IRC_EXEMP_MANY_RECORDS_FOUND');
3781: fnd_message.raise_error;
3782: end if;
3783: close get_prev_emp;
3784: hr_utility.set_location(l_proc,50);
3785:
3786: -- we have only one match, so check their credentials.
3787: open current_emp(l_party_id);
3788: fetch current_emp into l_dummy;
3787: open current_emp(l_party_id);
3788: fetch current_emp into l_dummy;
3789: if current_emp%found then
3790: close current_emp;
3791: hr_utility.set_location(l_proc,51);
3792: -- the person is a current employee, so error
3793: fnd_message.set_name('PER','IRC_EXEMP_CURRENT_EMP');
3794: fnd_message.raise_error;
3795: end if;
3794: fnd_message.raise_error;
3795: end if;
3796: close current_emp;
3797: --
3798: hr_utility.set_location(l_proc,60);
3799: --
3800: -- the person is not a current employee, so good to go.
3801: -- look to see if they have any notification preferences already
3802: open has_notification_prefs(l_party_id);
3801: -- look to see if they have any notification preferences already
3802: open has_notification_prefs(l_party_id);
3803: fetch has_notification_prefs into l_person_id;
3804: if has_notification_prefs%found then
3805: hr_utility.set_location(l_proc,61);
3806: close has_notification_prefs;
3807: -- we have notification preferences already for this person, so use that as
3808: -- the primary person
3809: else
3807: -- we have notification preferences already for this person, so use that as
3808: -- the primary person
3809: else
3810: close has_notification_prefs;
3811: hr_utility.set_location(l_proc,70);
3812: open in_reg_bg(l_party_id);
3813: fetch in_reg_bg into l_person_id;
3814: if in_reg_bg%found then
3815: close in_reg_bg;
3816: -- the person exists in the registration business group, so use that
3817: -- as the primary person record
3818: else
3819: close in_reg_bg;
3820: hr_utility.set_location(l_proc,80);
3821:
3822: -- the person is not in the registration business group, look to
3823: -- find their last employee record
3824: open get_last_emp_rec(l_party_id);
3825: fetch get_last_emp_rec into l_person_id;
3826: if get_last_emp_rec%notfound then
3827: --could not find an old employee record, so find the last record
3828: close get_last_emp_rec;
3829: hr_utility.set_location(l_proc,90);
3830:
3831: open get_last_per_rec(l_party_id);
3832: fetch get_last_per_rec into l_person_id;
3833: close get_last_per_rec;
3836: end if;
3837: end if;
3838: -- we have gone through all of the options, and found the best person_id
3839: -- for this person, so now create their notification preferences
3840: hr_utility.set_location(l_proc,100);
3841:
3842: irc_notification_prefs_api.create_notification_prefs
3843: (p_validate => p_validate
3844: ,p_person_id => l_person_id
3847: ,p_object_version_number => l_object_version_number
3848: ,p_allow_access => l_allow_access);
3849:
3850: end if;
3851: hr_utility.set_location(l_proc,110);
3852:
3853: -- look for work preferences for the person
3854: open has_work_prefs(l_person_id);
3855: fetch has_work_prefs into l_dummy;
3856: if has_work_prefs%notfound then
3857: -- no work preferences, so create some
3858: close has_work_prefs;
3859: --
3860: hr_utility.set_location(l_proc,120);
3861:
3862: irc_search_criteria_api.create_work_choices
3863: (p_validate => p_validate
3864: ,p_effective_date => trunc(sysdate)
3872: end if;
3873:
3874: -- get the PTU person type for iRecruitment Candidate
3875: --
3876: hr_utility.set_location(l_proc,130);
3877: --
3878: open get_bg(l_person_id);
3879: fetch get_bg into l_business_group_id
3880: ,l_person_ovn
3888: open ptu_exists(l_person_id,l_ptu_person_type_id);
3889: fetch ptu_exists into l_dummy;
3890: if ptu_exists%notfound then
3891: close ptu_exists;
3892: hr_utility.set_location(l_proc,140);
3893:
3894: hr_per_type_usage_internal.maintain_person_type_usage
3895: (p_effective_date => trunc(sysdate)
3896: ,p_person_id => l_person_id
3899: else
3900: close ptu_exists;
3901: end if;
3902: --
3903: hr_utility.set_location(l_proc,145);
3904: --
3905: if trunc(sysdate)=l_person_start_date then
3906: l_dt_mode:='CORRECTION';
3907: else
3932: end if;
3933: --
3934: -- close off the old user accounts for this person
3935: --
3936: hr_utility.set_location(l_proc,150);
3937:
3938: for user_rec in existing_emails(l_person_id,l_party_id) loop
3939: fnd_user_pkg.disableUser(user_rec.user_name);
3940: end loop;
3991: exit;
3992: end if;
3993: end loop;
3994:
3995: hr_utility.set_location(l_proc,160);
3996:
3997: l_user_id := fnd_user_pkg.CreateUserId (
3998: x_user_name => upper(p_current_email_address),
3999: x_owner => 'CUST',
4001: x_employee_id => l_person_id);
4002:
4003: else
4004: -- associate the previous employee record to the fnd user
4005: hr_utility.set_location(l_proc,165);
4006: open get_party_id(p_user_name =>p_user_name) ;
4007: fetch get_party_id into l_purge_party_id;
4008: close get_party_id;
4009: hr_utility.set_location(l_proc,166);
4005: hr_utility.set_location(l_proc,165);
4006: open get_party_id(p_user_name =>p_user_name) ;
4007: fetch get_party_id into l_purge_party_id;
4008: close get_party_id;
4009: hr_utility.set_location(l_proc,166);
4010: --
4011: fnd_user_pkg.UpdateUserParty(
4012: x_user_name => p_user_name,
4013: x_owner => 'CUST',
4017: x_user_name => p_user_name,
4018: x_owner => 'CUST',
4019: x_employee_id => l_person_id);
4020: --
4021: hr_utility.set_location(l_proc,167);
4022:
4023: if l_purge_party_id is not null then
4024: hr_utility.set_location(l_proc,168);
4025: per_hrtca_merge.purge_person(p_person_id=>-1 ,p_party_id=>l_purge_party_id );
4020: --
4021: hr_utility.set_location(l_proc,167);
4022:
4023: if l_purge_party_id is not null then
4024: hr_utility.set_location(l_proc,168);
4025: per_hrtca_merge.purge_person(p_person_id=>-1 ,p_party_id=>l_purge_party_id );
4026: end if;
4027: hr_utility.set_location(l_proc,169);
4028: -- get the user ID for the given user name
4023: if l_purge_party_id is not null then
4024: hr_utility.set_location(l_proc,168);
4025: per_hrtca_merge.purge_person(p_person_id=>-1 ,p_party_id=>l_purge_party_id );
4026: end if;
4027: hr_utility.set_location(l_proc,169);
4028: -- get the user ID for the given user name
4029: open get_user_id(p_user_name);
4030: fetch get_user_id into l_user_id;
4031: close get_user_id;
4049: x_value => l_nls_language,
4050: x_level_name => 'USER',
4051: x_level_value => l_user_id );
4052: end if;
4053: hr_utility.set_location(l_proc,170);
4054: -- If this is an existing user, check if he has the required responsibility
4055: if p_user_name is null then
4056: l_resp_exists := false;
4057: else
4054: -- If this is an existing user, check if he has the required responsibility
4055: if p_user_name is null then
4056: l_resp_exists := false;
4057: else
4058: hr_utility.set_location(l_proc,175);
4059: l_resp_exists := fnd_user_resp_groups_api.Assignment_Exists(l_user_id,
4060: p_responsibility_id, p_resp_appl_id, p_security_group_id);
4061: end if;
4062: -- if the User doesn't have the responsibility, assign it.
4073: ,end_date => null
4074: ,description => ' ' -- ### description was supposed to default
4075: -- to null... but does not look like it has
4076: );
4077: hr_utility.set_location(l_proc,180);
4078: --
4079: -- look to see if we are using multiple security groups
4080: --
4081: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
4078: --
4079: -- look to see if we are using multiple security groups
4080: --
4081: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
4082: hr_utility.set_location(l_proc,190);
4083: l_sec_profile_id:=fnd_profile.value_specific
4084: (name=>'PER_SECURITY_PROFILE_ID'
4085: ,user_id=>l_user_id
4086: ,responsibility_id=>p_responsibility_id
4090: ,user_id=>l_user_id
4091: ,responsibility_id=>p_responsibility_id
4092: ,application_id=>p_resp_appl_id);
4093: --
4094: hr_utility.set_location(l_proc,200);
4095: per_sec_profile_asg_api.create_security_profile_asg
4096: (p_sec_profile_assignment_id => l_sec_profile_assignment_id
4097: ,p_user_id => l_user_id
4098: ,p_security_group_id => p_security_group_id
4104: ,p_object_version_number => l_object_version_number
4105: );
4106: end if;
4107: else
4108: hr_utility.set_location(l_proc, 205);
4109: --
4110: -- reopen the candidate responsibility
4111: --
4112: fnd_user_resp_groups_api.Update_Assignment
4121: );
4122: -- REVISIT, what about Security Profile Assignment
4123: end if;
4124: --
4125: hr_utility.set_location(l_proc,210);
4126: --
4127: -- now send an e-mail to the user confirming that this has been done
4128: --
4129: hr_utility.set_location(l_proc,220);
4125: hr_utility.set_location(l_proc,210);
4126: --
4127: -- now send an e-mail to the user confirming that this has been done
4128: --
4129: hr_utility.set_location(l_proc,220);
4130: l_sso_enabled:=fnd_profile.value('APPS_SSO');
4131:
4132: l_central_registration_url:=fnd_profile.value('APPS_CENTRAL_REGISTER_URL');
4133:
4221: (p_wf_attribute_value => l_text_body
4222: ,p_wf_attribute_name => 'TEXT_BODY'
4223: ,p_nid => l_nid);
4224: wf_notification.denormalize_notification(l_nid);
4225: hr_utility.set_location(l_proc,230);
4226: --
4227: -- Call After Process User Hook
4228: --
4229: begin
4260: --
4261: if p_validate then
4262: raise hr_api.validate_enabled;
4263: end if;
4264: hr_utility.set_location(' Leaving:'||l_proc, 240);
4265:
4266: exception
4267: when hr_api.validate_enabled then
4268: --
4270: -- we must rollback to the savepoint
4271: --
4272: rollback to SELF_REGISTER_USER;
4273: --
4274: hr_utility.set_location(' Leaving:'||l_proc, 250);
4275: when others then
4276: --
4277: -- A validation or unexpected error has occured
4278: --
4278: --
4279: rollback to SELF_REGISTER_USER;
4280: --
4281: --
4282: hr_utility.set_location(' Leaving:'||l_proc, 260);
4283: raise;
4284:
4285: end self_register_user;
4286:
4391: --
4392: l_proc varchar2(72) := g_package||'create_partial_user';
4393: --
4394: begin
4395: hr_utility.set_location(' Entering: '||l_proc, 10);
4396: --
4397: -- Truncate time portion from date
4398: --
4399: l_start_date := trunc(p_start_date);
4408: else
4409: close get_nls_language;
4410: end if;
4411: --
4412: hr_utility.set_location(l_proc, 20);
4413: --
4414: -- default Allow Access if input value is NULL
4415: --
4416: l_allow_access := nvl(p_allow_access,nvl(fnd_profile.value('IRC_VISIBLE_PREF_DEFAULT'),'N'));
4435: l_email_address := p_user_name;
4436: end if;
4437: end if;
4438: --
4439: hr_utility.set_location(l_proc, 30);
4440: -- Disable Partial Registration for Employees
4441: -- we have to REVISIT after using UMX support for Registration
4442: if l_person_id is not null then
4443: l_per_type := irc_utilities_pkg.get_emp_spt_for_person(l_person_id, trunc(p_start_date));
4446: fnd_message.raise_error;
4447: end if;
4448: end if;
4449: --
4450: hr_utility.set_location(l_proc, 40);
4451: --intialize the first name
4452: l_first_name := p_first_name;
4453: -- there is no person attached to this FND_USER. We need to create a new
4454: -- iRecruitment Candidate, update FND user with the person_id,
4468: ,p_party_id => l_person_party_id
4469: ,p_start_date => l_start_date
4470: );
4471: --
4472: hr_utility.set_location(l_proc, 50);
4473: --
4474: fnd_user_pkg.UpdateUser
4475: (x_user_name => p_user_name
4476: ,x_owner => 'CUST'
4475: (x_user_name => p_user_name
4476: ,x_owner => 'CUST'
4477: ,x_employee_id => l_person_id);
4478: --
4479: hr_utility.set_location(l_proc, 60);
4480: --
4481: l_profile_check := fnd_profile.save (
4482: x_name => 'ICX_LANGUAGE',
4483: x_value => l_nls_language,
4483: x_value => l_nls_language,
4484: x_level_name => 'USER',
4485: x_level_value => l_user_id );
4486: --
4487: hr_utility.set_location(l_proc, 70);
4488: --
4489: -- create work preferences
4490: irc_search_criteria_api.create_work_choices
4491: (p_effective_date=>trunc(sysdate)
4494: ,p_contractor=>'Y'
4495: ,p_object_version_number=>l_sc_ovn
4496: ,p_search_criteria_id=>l_search_criteria_id);
4497: --
4498: hr_utility.set_location(l_proc, 80);
4499: else
4500: hr_utility.set_location(l_proc, 45);
4501: open get_bg(l_person_id);
4502: fetch get_bg into l_pers_business_group_id, l_person_ovn,
4496: ,p_search_criteria_id=>l_search_criteria_id);
4497: --
4498: hr_utility.set_location(l_proc, 80);
4499: else
4500: hr_utility.set_location(l_proc, 45);
4501: open get_bg(l_person_id);
4502: fetch get_bg into l_pers_business_group_id, l_person_ovn,
4503: l_employee_number,l_person_start_date;
4504: close get_bg;
4531: open ptu_exists(l_person_id,l_ptu_person_type_id);
4532: fetch ptu_exists into l_dummy;
4533: if ptu_exists%notfound then
4534: close ptu_exists;
4535: hr_utility.set_location(l_proc,140);
4536: hr_per_type_usage_internal.maintain_person_type_usage
4537: (p_effective_date => trunc(sysdate)
4538: ,p_person_id => l_person_id
4539: ,p_person_type_id => l_ptu_person_type_id
4541: else
4542: close ptu_exists;
4543: end if;
4544: end if;
4545: hr_utility.set_location(l_proc, 55);
4546: end if;
4547:
4548: -- check if the Party has Notification preferences
4549: open get_notif_prefs(l_person_party_id);
4559: ,p_notification_preference_id=>l_notif_preference_id
4560: ,p_object_version_number =>l_notif_ovn
4561: ,p_allow_access => l_allow_access);
4562: end if;
4563: hr_utility.set_location(l_proc, 90);
4564: -- check if the User has the required responsibility
4565: l_resp_exists := fnd_user_resp_groups_api.Assignment_Exists(l_user_id,
4566: p_responsibility_id, p_resp_appl_id, p_security_group_id);
4567: -- if the User doesn't have the responsibility, assign it.
4578: ,end_date => null
4579: ,description => ' ' -- ### description was supposed to default
4580: -- to null... but does not look like it has
4581: );
4582: hr_utility.set_location(l_proc, 100);
4583: --
4584: -- look to see if we are using multiple security groups
4585: --
4586: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
4605: ,p_responsibility_application_i => p_resp_appl_id
4606: ,p_start_date => trunc(sysdate)
4607: ,p_object_version_number => l_ovn
4608: );
4609: hr_utility.set_location(l_proc, 110);
4610: end if;
4611: else
4612: hr_utility.set_location(l_proc, 95);
4613: --
4608: );
4609: hr_utility.set_location(l_proc, 110);
4610: end if;
4611: else
4612: hr_utility.set_location(l_proc, 95);
4613: --
4614: -- reopen the candidate responsibility
4615: --
4616: fnd_user_resp_groups_api.Update_Assignment
4661: p_description=>' ');
4662: end if;
4663: end if;
4664: --
4665: hr_utility.set_location('Leaving'||l_proc, 120);
4666: --
4667: end create_partial_user;
4668: -- -------------------------------------------------------------------------
4669: -- |------------------------< irec_profile_exists >-------------------------|
4722: l_proc varchar2(72) := g_package||'irec_profile_exists';
4723: --
4724: begin
4725: --
4726: hr_utility.set_location(' Entering: '||l_proc, 10);
4727: --
4728: open get_person_party_info;
4729: fetch get_person_party_info into l_user_id, l_person_id, l_person_party_id;
4730: close get_person_party_info;
4737: fetch get_bg into l_pers_business_group_id;
4738: close get_bg;
4739: l_ptu_person_type_id:=hr_person_type_usage_info.get_default_person_type_id
4740: (l_pers_business_group_id, 'IRC_REG_USER');
4741: hr_utility.set_location(l_proc, 15);
4742: -- if the person's BG doesn't have the iRecruitment Candidate defined
4743: -- ignore??
4744: if l_ptu_person_type_id is not null then
4745: open ptu_exists(l_person_id,l_ptu_person_type_id);
4751: close ptu_exists;
4752: end if;
4753: end if;
4754: --
4755: hr_utility.set_location(l_proc, 20);
4756: --
4757: if l_person_party_id IS NOT NULL then
4758: -- check if the Party has Notification preferences
4759: open get_notif_prefs(l_person_party_id);
4767: return 'NO_PROFILE';
4768: end if;
4769: end if;
4770: end if;
4771: hr_utility.set_location(l_proc, 30);
4772:
4773: -- check if user has the Candidate Responsibility
4774: open get_user_responsibility(l_user_id, p_responsibility_id, p_resp_appl_id, p_security_group_id);
4775: fetch get_user_responsibility into l_tmp_resp_id;
4790: if l_func_check <> 'T' then
4791: return 'NO_PROFILE';
4792: end if;
4793: --
4794: hr_utility.set_location('Leaving: '||l_proc, 40);
4795:
4796: return 'PROFILE_EXISTS';
4797: end irec_profile_exists;
4798: -- -------------------------------------------------------------------------
4830: l_proc varchar2(72) := g_package||'create_ha_processed_user';
4831:
4832: begin
4833: --
4834: hr_utility.set_location(' Entering: '||l_proc, 10);
4835:
4836: l_num := TestUserName(p_user_name=>p_user_name);
4837: -- creating a brand new user. This happens when SSO is not enabled and user
4838: -- registered on HA instance
4836: l_num := TestUserName(p_user_name=>p_user_name);
4837: -- creating a brand new user. This happens when SSO is not enabled and user
4838: -- registered on HA instance
4839: if l_num = 0 then
4840: hr_utility.set_location(' Entering: '||l_proc, 20);
4841: -- create the iRecruitment user with standard password
4842: irc_party_api.create_user(p_user_name => p_user_name,
4843: p_password => 'j3ke678to',
4844: p_start_date => p_start_date,
4848: p_last_name => p_last_name,
4849: p_first_name => p_first_name,
4850: p_email => p_email,
4851: p_allow_access => p_allow_access);
4852: hr_utility.set_location(' Entering: '||l_proc, 30);
4853: -- update the user password
4854: l_bool := fnd_user_pkg.setreencryptedpassword(username => p_user_name,
4855: reencpwd => p_password,
4856: newkey => 'LOADER');
4857: if NOT l_bool then
4858: raise PASSWORD_UPDATE_FAILED;
4859: end if;
4860: --
4861: hr_utility.set_location(l_proc, 40);
4862: --
4863: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4864: --
4865: hr_utility.set_location(l_proc, 50);
4861: hr_utility.set_location(l_proc, 40);
4862: --
4863: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4864: --
4865: hr_utility.set_location(l_proc, 50);
4866: --
4867: -- this case happens when user is present in SSO and applied for a job through
4868: -- HA and for this we have to create a local user who points to SSO user
4869: -- note that we are passing in FND_WEB_SEC.EXTERNAL_PWD which is checked by
4868: -- HA and for this we have to create a local user who points to SSO user
4869: -- note that we are passing in FND_WEB_SEC.EXTERNAL_PWD which is checked by
4870: -- ATG routine and treats this as an SSO user
4871: elsif l_num = 3 then
4872: hr_utility.set_location(l_proc, 15);
4873: l_user_id := fnd_user_pkg.CreateUserId(
4874: x_user_name => p_user_name
4875: ,x_owner => 'CUST'
4876: ,x_unencrypted_password => FND_WEB_SEC.EXTERNAL_PWD
4876: ,x_unencrypted_password => FND_WEB_SEC.EXTERNAL_PWD
4877: ,x_email_address => p_email
4878: ,x_user_guid => p_user_guid
4879: );
4880: hr_utility.set_location(l_proc, 25);
4881: -- fix for bug 4765406
4882: -- set the profile to SSO
4883: l_found := fnd_profile.save(x_name => 'APPS_SSO_LOCAL_LOGIN'
4884: , x_value => 'SSO'
4884: , x_value => 'SSO'
4885: , x_level_name => 'USER'
4886: , x_level_value => l_user_id);
4887:
4888: hr_utility.set_location(l_proc, 30);
4889: --
4890: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4891: hr_utility.set_location(l_proc, 35);
4892: --
4887:
4888: hr_utility.set_location(l_proc, 30);
4889: --
4890: fnd_sso_manager.synch_user_from_LDAP(p_user_name);
4891: hr_utility.set_location(l_proc, 35);
4892: --
4893: -- check if User has Resp
4894: irc_party_api.process_ha_resp_check(p_user_id => l_user_id,
4895: p_responsibility_id => p_responsibility_id,
4910: ,p_language => p_language
4911: ,p_allow_access => p_allow_access
4912: );
4913: end if;
4914: hr_utility.set_location('Leaving: '||l_proc, 60);
4915: end create_ha_processed_user;
4916: --
4917: -- -------------------------------------------------------------------------
4918: -- |------------------------< process_ha_resp_check >----------------------|
4976: ,end_date => null
4977: ,description => ' ' -- ### description was supposed to default
4978: -- to null... but does not look like it has
4979: );
4980: hr_utility.set_location(l_proc, 100);
4981: --
4982: -- look to see if we are using multiple security groups
4983: --
4984: if (fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
5003: ,p_responsibility_application_i => p_resp_appl_id
5004: ,p_start_date => trunc(sysdate)
5005: ,p_object_version_number => l_ovn
5006: );
5007: hr_utility.set_location(l_proc, 110);
5008: end if;
5009: else
5010: hr_utility.set_location(l_proc, 95);
5011: if (l_per_type <> 'EMP') then
5006: );
5007: hr_utility.set_location(l_proc, 110);
5008: end if;
5009: else
5010: hr_utility.set_location(l_proc, 95);
5011: if (l_per_type <> 'EMP') then
5012: --
5013: -- reopen the candidate responsibility
5014: --
5092: ,end_date => null
5093: ,description => ' ' -- ### description was supposed to default
5094: -- to null... but does not look like it has
5095: );
5096: hr_utility.set_location(l_proc, 100);
5097: --
5098: -- look to see if we are using multiple security groups
5099: --
5100: if(fnd_profile.value('ENABLE_SECURITY_GROUPS')='Y') then
5119: ,p_responsibility_application_i => p_resp_appl_id
5120: ,p_start_date => trunc(sysdate)
5121: ,p_object_version_number => l_ovn
5122: );
5123: hr_utility.set_location(l_proc, 110);
5124: end if;
5125: else
5126: hr_utility.set_location(l_proc, 95);
5127: --
5122: );
5123: hr_utility.set_location(l_proc, 110);
5124: end if;
5125: else
5126: hr_utility.set_location(l_proc, 95);
5127: --
5128: -- reopen the candidate responsibility
5129: --
5130: fnd_user_resp_groups_api.Update_Assignment
5139: );
5140: -- REVISIT, what about Security Profile Assignment
5141: end if;
5142: commit;
5143: hr_utility.set_location('Leaving:'||l_proc, 110);
5144: end assign_responsibility;
5145: --
5146: --
5147: --
5215: cursor get_menu_id (p_menu_name varchar2) is
5216: select menu_id from fnd_menus where menu_name=upper(p_menu_name);
5217: --
5218: begin
5219: hr_utility.set_location(' Entering: '||l_proc, 10);
5220: --
5221: -- Create Person
5222: l_default_last_name := nvl(p_last_name,fnd_message.get_string('PER','IRC_412108_UNKNOWN_NAME'));
5223:
5222: l_default_last_name := nvl(p_last_name,fnd_message.get_string('PER','IRC_412108_UNKNOWN_NAME'));
5223:
5224: l_person_id := p_person_id;
5225: --
5226: hr_utility.set_location(l_proc,20);
5227: --
5228: -- Create User and set person_id to employee_id
5229: --
5230: l_user_id := fnd_user_pkg.CreateUserId (
5234: x_email_address => p_email,
5235: x_employee_id => l_person_id,
5236: x_password_date => trunc(sysdate));
5237: --
5238: hr_utility.set_location(l_proc,30);
5239: l_user_name := fnd_web_sec.set_reencrypted_password(username => p_user_name
5240: ,reencpwd => fnd_web_sec.encrypt(key => 'LOADER',value => p_password)
5241: , new_key =>'LOADER' );
5242: --
5247: x_value => p_language,
5248: x_level_name => 'USER',
5249: x_level_value => l_user_id );
5250: --
5251: hr_utility.set_location(l_proc,40);
5252: --
5253: -- Set the password date Column to Null for the created user
5254: -- As the password is system generated, it should be changed
5255: -- by candidate when he first logs in
5261: --
5262: --
5263: commit;
5264: --
5265: hr_utility.set_location(' Leaving:'||l_proc, 50);
5266: end create_user_internal_byRef;
5267: --
5268: --
5269: -- -------------------------------------------------------------------------
5538: and trunc(sysdate) between fu.start_date and nvl(fu.end_date,trunc(sysdate));
5539: --
5540: begin
5541: --
5542: hr_utility.set_location(' Entering: '||l_proc, 10);
5543: --
5544: -- Issue a savepoint
5545: --
5546: savepoint MERGE_PROFILE;
5570: if l_disable_user_acc='Y' then
5571: --
5572: -- close off the user accounts for the source party
5573: --
5574: hr_utility.set_location(l_proc,20);
5575: --
5576: for user_rec in get_user_name(p_source_party_id) loop
5577: fnd_user_pkg.disableUser(user_rec.user_name);
5578: end loop;
5576: for user_rec in get_user_name(p_source_party_id) loop
5577: fnd_user_pkg.disableUser(user_rec.user_name);
5578: end loop;
5579: --
5580: hr_utility.set_location(l_proc,30);
5581: --
5582: end if;
5583: --
5584: hr_utility.set_location(' Leaving: '||l_proc, 40);
5580: hr_utility.set_location(l_proc,30);
5581: --
5582: end if;
5583: --
5584: hr_utility.set_location(' Leaving: '||l_proc, 40);
5585: --
5586: exception
5587: when others then
5588: --
5590: --
5591: rollback to MERGE_PROFILE;
5592: --
5593: --
5594: hr_utility.set_location(' Leaving:'||l_proc, 50);
5595: --
5596: raise;
5597: end merge_profile;
5598: --
6317: WHERE bus.business_group_id = p_business_group_id;
6318: --
6319: begin
6320: --
6321: hr_utility.set_location('Entering: ' || l_proc, 10);
6322: hr_utility.set_location('p_effective_date '||p_effective_date, 20);
6323: hr_utility.set_location('p_recruitment_person_id '||p_recruitment_person_id, 30);
6324: hr_utility.set_location('p_business_group_id '||p_business_group_id, 40);
6325: hr_utility.set_location('p_organization_id '||p_organization_id, 50);
6318: --
6319: begin
6320: --
6321: hr_utility.set_location('Entering: ' || l_proc, 10);
6322: hr_utility.set_location('p_effective_date '||p_effective_date, 20);
6323: hr_utility.set_location('p_recruitment_person_id '||p_recruitment_person_id, 30);
6324: hr_utility.set_location('p_business_group_id '||p_business_group_id, 40);
6325: hr_utility.set_location('p_organization_id '||p_organization_id, 50);
6326: hr_utility.set_location('p_manager_id '||p_manager_id, 60);
6319: begin
6320: --
6321: hr_utility.set_location('Entering: ' || l_proc, 10);
6322: hr_utility.set_location('p_effective_date '||p_effective_date, 20);
6323: hr_utility.set_location('p_recruitment_person_id '||p_recruitment_person_id, 30);
6324: hr_utility.set_location('p_business_group_id '||p_business_group_id, 40);
6325: hr_utility.set_location('p_organization_id '||p_organization_id, 50);
6326: hr_utility.set_location('p_manager_id '||p_manager_id, 60);
6327: --
6320: --
6321: hr_utility.set_location('Entering: ' || l_proc, 10);
6322: hr_utility.set_location('p_effective_date '||p_effective_date, 20);
6323: hr_utility.set_location('p_recruitment_person_id '||p_recruitment_person_id, 30);
6324: hr_utility.set_location('p_business_group_id '||p_business_group_id, 40);
6325: hr_utility.set_location('p_organization_id '||p_organization_id, 50);
6326: hr_utility.set_location('p_manager_id '||p_manager_id, 60);
6327: --
6328: -- Issue a savepoint
6321: hr_utility.set_location('Entering: ' || l_proc, 10);
6322: hr_utility.set_location('p_effective_date '||p_effective_date, 20);
6323: hr_utility.set_location('p_recruitment_person_id '||p_recruitment_person_id, 30);
6324: hr_utility.set_location('p_business_group_id '||p_business_group_id, 40);
6325: hr_utility.set_location('p_organization_id '||p_organization_id, 50);
6326: hr_utility.set_location('p_manager_id '||p_manager_id, 60);
6327: --
6328: -- Issue a savepoint
6329: --
6322: hr_utility.set_location('p_effective_date '||p_effective_date, 20);
6323: hr_utility.set_location('p_recruitment_person_id '||p_recruitment_person_id, 30);
6324: hr_utility.set_location('p_business_group_id '||p_business_group_id, 40);
6325: hr_utility.set_location('p_organization_id '||p_organization_id, 50);
6326: hr_utility.set_location('p_manager_id '||p_manager_id, 60);
6327: --
6328: -- Issue a savepoint
6329: --
6330: savepoint OFR_REG_USER_APPLICATION;
6341: l_add_struct_k.extend(1);
6342: l_add_struct_k(l_add_struct_k.count) := 'SCL';
6343: --
6344: hr_kflex_utility.create_ignore_kf_validation(p_rec => l_add_struct_k);
6345: hr_utility.set_location(' After Calling hr_kflex_utility.create_ignore_kf_validation ', 70);
6346: --
6347: -- code for disabling the descriptive flex field
6348: l_add_struct_d.extend(1);
6349: l_add_struct_d(l_add_struct_d.count) := 'PER_ASSIGNMENTS';
6352: l_add_struct_d.extend(1);
6353: l_add_struct_d(l_add_struct_d.count) := 'PER_PEOPLE';
6354: --
6355: hr_dflex_utility.create_ignore_df_validation(p_rec => l_add_struct_d);
6356: hr_utility.set_location(' After Calling hr_dflex_utility.create_ignore_df_validation ', 80);
6357: --
6358: --
6359: -- Process Logic
6360: --
6423: if csr_get_bg_default_details%NOTFOUND then
6424: --
6425: close csr_get_bg_default_details;
6426: --
6427: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
6428: hr_utility.raise_error;
6429: end if;
6430: close csr_get_bg_default_details;
6431: END IF;
6424: --
6425: close csr_get_bg_default_details;
6426: --
6427: hr_utility.set_message(801, 'HR_7208_API_BUS_GRP_INVALID');
6428: hr_utility.raise_error;
6429: end if;
6430: close csr_get_bg_default_details;
6431: END IF;
6432: --
6432: --
6433: if csr_person_id%found then
6434: --
6435: if (l_current_applicant_flag = 'Y') then
6436: hr_utility.set_location('Calling hr_assignment_api.create_secondary_apl_asg ', 90);
6437: hr_assignment_api.create_secondary_apl_asg
6438: (p_validate => false
6439: ,p_effective_date => l_effective_date
6440: ,p_person_id => l_person_id
6462: ,p_effective_end_date => l_effective_end_date
6463: ,p_assignment_sequence => l_assignment_sequence
6464: );
6465: elsif (l_current_employee_flag = 'Y') then
6466: hr_utility.set_location('hr_employee_api.apply_for_internal_vacancy ', 100);
6467: hr_employee_api.apply_for_internal_vacancy
6468: (p_validate => false
6469: ,p_effective_date => l_effective_date
6470: ,p_person_id => l_person_id
6477: ,p_assignment_sequence => l_assignment_sequence
6478: ,p_per_effective_start_date => l_effective_start_date
6479: ,p_per_effective_end_date => l_effective_end_date);
6480: --
6481: hr_utility.set_location('Calling hr_assignment_api.update_apl_asg ', 110);
6482: hr_assignment_api.update_apl_asg
6483: (p_effective_date => l_effective_date
6484: ,p_datetrack_update_mode => 'CORRECTION'
6485: ,p_assignment_id => l_assignment_id
6499: ,p_effective_start_date => l_effective_start_date
6500: ,p_effective_end_date => l_effective_end_date
6501: );
6502: elsif (l_current_npw_flag = 'Y') then
6503: hr_utility.set_location('Calling hr_contingent_worker_api.apply_for_job ', 120);
6504: hr_contingent_worker_api.apply_for_job
6505: (p_validate => false
6506: ,p_effective_date => l_effective_date
6507: ,p_person_id => l_person_id
6515: ,p_asg_object_version_number => l_asg_object_version_number
6516: ,p_assignment_sequence => l_assignment_sequence
6517: );
6518: --
6519: hr_utility.set_location('Calling hr_assignment_api.update_apl_asg ', 130);
6520: hr_assignment_api.update_apl_asg
6521: (p_effective_date => l_effective_date
6522: ,p_datetrack_update_mode => 'CORRECTION'
6523: ,p_assignment_id => l_assignment_id
6537: ,p_effective_start_date => l_effective_start_date
6538: ,p_effective_end_date => l_effective_end_date
6539: );
6540: else
6541: hr_utility.set_location('Calling hr_applicant_api.convert_to_applicant ', 140);
6542: hr_applicant_api.convert_to_applicant
6543: (p_validate => false
6544: ,p_effective_date => l_effective_date
6545: ,p_person_id => l_person_id
6552: open get_new_asg(l_person_id,l_effective_date);
6553: fetch get_new_asg into l_assignment_id,l_asg_object_version_number;
6554: close get_new_asg;
6555: --
6556: hr_utility.set_location('Calling hr_assignment_api.update_apl_asg ', 150);
6557: hr_assignment_api.update_apl_asg
6558: (p_effective_date => l_effective_date
6559: ,p_datetrack_update_mode => 'CORRECTION'
6560: ,p_assignment_id => l_assignment_id
6587: where pbg.business_group_id = p_business_group_id;
6588: --
6589: l_applicant_number:=null;
6590: if (l_legislation_code = 'JP') then
6591: hr_utility.set_location('Calling hr_applicant_api.create_applicant ', 160);
6592: hr_applicant_api.create_applicant
6593: (p_validate => false
6594: ,p_date_received => l_application_received_date
6595: ,p_business_group_id => p_business_group_id
6619: ,p_orig_hire_warning => l_orig_hire_warning
6620: ,p_party_id => l_party_id
6621: );
6622: elsif (l_legislation_code = 'KR') then
6623: hr_utility.set_location('Calling hr_applicant_api.create_applicant ', 170);
6624: hr_applicant_api.create_applicant
6625: (p_validate => false
6626: ,p_date_received => l_application_received_date
6627: ,p_business_group_id => p_business_group_id
6651: ,p_orig_hire_warning => l_orig_hire_warning
6652: ,p_party_id => l_party_id
6653: );
6654: elsif (l_legislation_code = 'ZA') then
6655: hr_utility.set_location('Calling hr_applicant_api.create_applicant ', 180);
6656: hr_applicant_api.create_applicant
6657: (p_validate => false
6658: ,p_date_received => l_application_received_date
6659: ,p_business_group_id => p_business_group_id
6682: ,p_orig_hire_warning => l_orig_hire_warning
6683: ,p_party_id => l_party_id
6684: );
6685: else
6686: hr_utility.set_location('Calling hr_applicant_api.create_applicant ', 190);
6687: hr_applicant_api.create_applicant
6688: (p_validate => false
6689: ,p_date_received => l_application_received_date
6690: ,p_business_group_id => p_business_group_id
6718: --
6719: l_ptu_person_type_id:=hr_person_type_usage_info.get_default_person_type_id
6720: (p_business_group_id,
6721: 'IRC_REG_USER');
6722: hr_utility.set_location('Value of IRC_REG_USER person_type_id: '|| l_ptu_person_type_id,200);
6723: --
6724: -- create the extra PTU entry for iRecruitment Candidate
6725: --
6726: hr_utility.set_location('Calling hr_per_type_usage_internal.maintain_person_type_usage ',210);
6722: hr_utility.set_location('Value of IRC_REG_USER person_type_id: '|| l_ptu_person_type_id,200);
6723: --
6724: -- create the extra PTU entry for iRecruitment Candidate
6725: --
6726: hr_utility.set_location('Calling hr_per_type_usage_internal.maintain_person_type_usage ',210);
6727: hr_per_type_usage_internal.maintain_person_type_usage
6728: (p_effective_date => l_effective_start_date
6729: ,p_person_id => l_person_id
6730: ,p_person_type_id => l_ptu_person_type_id
6729: ,p_person_id => l_person_id
6730: ,p_person_type_id => l_ptu_person_type_id
6731: );
6732: --
6733: hr_utility.set_location('Calling hr_assignment_api.update_apl_asg ',220);
6734: hr_assignment_api.update_apl_asg
6735: (p_effective_date => l_application_received_date
6736: ,p_datetrack_update_mode => 'CORRECTION'
6737: ,p_assignment_id => l_assignment_id
6767: -- commit autonmous transaction
6768: --
6769: commit;
6770: --
6771: hr_utility.set_location(' Leaving:'||l_proc, 230);
6772: --
6773: exception
6774: when others then
6775: --
6783: rollback to OFR_REG_USER_APPLICATION;
6784: --
6785: p_asg_id := null;
6786: --
6787: hr_utility.set_location(' Leaving:'||l_proc, 240);
6788: raise;
6789: end ofr_reg_user_application;
6790: --
6791: --