30: l_user_id fnd_user.user_id%type;
31: l_user_name fnd_user.user_name%type;
32:
33: BEGIN
34: hr_utility.set_location('Entering:'|| l_proc, 10);
35:
36: l_user_name := upper(per_ri_config_utilities.return_config_entity_name_pre
37: (per_ri_config_main.g_configuration_user_name));
38:
35:
36: l_user_name := upper(per_ri_config_utilities.return_config_entity_name_pre
37: (per_ri_config_main.g_configuration_user_name));
38:
39: hr_utility.trace('l_user_name = ' || l_user_name);
40: open csr_find_user(l_user_name);
41: fetch csr_find_user into l_user_id;
42:
43: if NOT (p_technical_summary_mode) then
52:
53: l_log_message := 'Created User ' || upper(per_ri_config_utilities.return_config_entity_name_pre
54: (per_ri_config_main.g_configuration_user_name));
55: per_ri_config_utilities.write_log(p_message => l_log_message);
56: hr_utility.set_location(l_proc, 20);
57: else
58: l_log_message := 'User Already Existing ';
59: per_ri_config_utilities.write_log(p_message => l_log_message);
60: hr_utility.set_location(l_proc, 30);
56: hr_utility.set_location(l_proc, 20);
57: else
58: l_log_message := 'User Already Existing ';
59: per_ri_config_utilities.write_log(p_message => l_log_message);
60: hr_utility.set_location(l_proc, 30);
61: end if;
62: else
63: p_user_tab(l_users_count).user_name := upper(per_ri_config_utilities.return_config_entity_name_pre
64: (per_ri_config_main.g_configuration_user_name));
68: l_users_count := l_users_count + 1;
69: end if;
70: close csr_find_user;
71:
72: hr_utility.set_location(' Leaving:'|| l_proc, 40);
73: EXCEPTION
74: when others then
75: l_error_message := 'Error in ' || l_proc;
76: hr_utility.trace(l_error_message || '-' || sqlerrm);
72: hr_utility.set_location(' Leaving:'|| l_proc, 40);
73: EXCEPTION
74: when others then
75: l_error_message := 'Error in ' || l_proc;
76: hr_utility.trace(l_error_message || '-' || sqlerrm);
77: hr_utility.set_location(' Leaving:'|| l_proc, 500);
78: hr_utility.raise_error;
79:
80: END create_user;
73: EXCEPTION
74: when others then
75: l_error_message := 'Error in ' || l_proc;
76: hr_utility.trace(l_error_message || '-' || sqlerrm);
77: hr_utility.set_location(' Leaving:'|| l_proc, 500);
78: hr_utility.raise_error;
79:
80: END create_user;
81:
74: when others then
75: l_error_message := 'Error in ' || l_proc;
76: hr_utility.trace(l_error_message || '-' || sqlerrm);
77: hr_utility.set_location(' Leaving:'|| l_proc, 500);
78: hr_utility.raise_error;
79:
80: END create_user;
81:
82: /* --------------------------------------------------------------------------
97: l_log_message varchar2(360);
98: l_error_message varchar2(360);
99:
100: BEGIN
101: hr_utility.set_location('Entering:'|| l_proc, 10);
102:
103: --HR_CROSS_BUSINESS_GROUP
104: if NOT (p_technical_summary_mode) then
105: per_ri_config_utilities.set_profile_option_value
120: end if;
121:
122: l_log_message := 'Created PROFILE_OPTION ' || 'HR_CROSS_BUSINESS_GROUP';
123: per_ri_config_utilities.write_log(p_message => l_log_message);
124: hr_utility.set_location(l_proc, 20);
125:
126: /* DGARG - MSG Changes
127: if (per_ri_config_utilities.check_selected_product
128: (p_configuration_code => p_configuration_code
147:
148: end if;
149: l_log_message := 'Created PROFILE_OPTION PER ' || 'ENABLE_SECURITY_GROUPS';
150: per_ri_config_utilities.write_log(p_message => l_log_message);
151: hr_utility.set_location(l_proc, 30);
152: end if;
153:
154: if (per_ri_config_utilities.check_selected_product
155: (p_configuration_code => p_configuration_code
174:
175: end if;
176: l_log_message := 'Created PROFILE_OPTION PAY ' || 'ENABLE_SECURITY_GROUPS';
177: per_ri_config_utilities.write_log(p_message => l_log_message);
178: hr_utility.set_location(l_proc, 30);
179: end if;
180:
181: if (per_ri_config_utilities.check_selected_product
182: (p_configuration_code => p_configuration_code
201:
202: end if;
203: l_log_message := 'Created PROFILE_OPTION BEN ' || 'ENABLE_SECURITY_GROUPS';
204: per_ri_config_utilities.write_log(p_message => l_log_message);
205: hr_utility.set_location(l_proc, 30);
206: end if;
207: ** */
208: --HR_SYNC_SINGLE_GL_ORG
209: if NOT (p_technical_summary_mode) then
225:
226: end if;
227: l_log_message := 'Created PROFILE_OPTION ' || 'HR_SYNC_SINGLE_GL_ORG';
228: per_ri_config_utilities.write_log(p_message => l_log_message);
229: hr_utility.set_location(l_proc, 40);
230:
231: --HR_GENERATE_GL_ORGS
232: if NOT (p_technical_summary_mode) then
233: per_ri_config_utilities.set_profile_option_value
248: end if;
249:
250: l_log_message := 'Created PROFILE_OPTION ' || 'HR_GENERATE_GL_ORGS';
251: per_ri_config_utilities.write_log(p_message => l_log_message);
252: hr_utility.set_location(l_proc, 50);
253:
254: --BIS_PRIMARY_RATE_TYPE
255: if NOT (p_technical_summary_mode) then
256: per_ri_config_utilities.set_profile_option_value
271: end if;
272:
273: l_log_message := 'Created PROFILE_OPTION ' || 'BIS_PRIMARY_RATE_TYPE';
274: per_ri_config_utilities.write_log(p_message => l_log_message);
275: hr_utility.set_location(l_proc, 60);
276:
277: --BIS_WORKFORCE_MEASUREMENT_TYPE
278: if NOT (p_technical_summary_mode) then
279: per_ri_config_utilities.set_profile_option_value
294: end if;
295:
296: l_log_message := 'Created PROFILE_OPTION ' || 'BIS_WORKFORCE_MEASUREMENT_TYPE';
297: per_ri_config_utilities.write_log(p_message => l_log_message);
298: hr_utility.set_location(l_proc, 70);
299:
300: if (per_ri_config_utilities.check_selected_product
301: (p_configuration_code => p_configuration_code
302: ,p_product_name => 'SSHR')) then
320: end if;
321:
322: l_log_message := 'Created PROFILE_OPTION ' || 'HR_SELF_SERVICE_HR_LICENSED';
323: per_ri_config_utilities.write_log(p_message => l_log_message);
324: hr_utility.set_location(l_proc, 80);
325: end if;
326:
327: hr_utility.set_location(' Leaving:'|| l_proc, 90);
328:
323: per_ri_config_utilities.write_log(p_message => l_log_message);
324: hr_utility.set_location(l_proc, 80);
325: end if;
326:
327: hr_utility.set_location(' Leaving:'|| l_proc, 90);
328:
329: EXCEPTION
330: when others then
331: l_error_message := 'Error in ' || l_proc;
328:
329: EXCEPTION
330: when others then
331: l_error_message := 'Error in ' || l_proc;
332: hr_utility.trace(l_error_message || '-' || sqlerrm);
333: hr_utility.set_location(' Leaving:'|| l_proc, 500);
334: hr_utility.raise_error;
335:
336: END create_site_profile_options;
329: EXCEPTION
330: when others then
331: l_error_message := 'Error in ' || l_proc;
332: hr_utility.trace(l_error_message || '-' || sqlerrm);
333: hr_utility.set_location(' Leaving:'|| l_proc, 500);
334: hr_utility.raise_error;
335:
336: END create_site_profile_options;
337:
330: when others then
331: l_error_message := 'Error in ' || l_proc;
332: hr_utility.trace(l_error_message || '-' || sqlerrm);
333: hr_utility.set_location(' Leaving:'|| l_proc, 500);
334: hr_utility.raise_error;
335:
336: END create_site_profile_options;
337:
338: /* --------------------------------------------------------------------------
368: l_self_service boolean default FALSE;
369:
370: l_product_name per_ri_config_information.config_information1%type;
371: BEGIN
372: hr_utility.set_location('Entering:'|| l_proc, 10);
373:
374: if NOT (p_technical_summary_mode) then
375: -- Attach System Administrator
376: fnd_User_resp_groups_api.load_row(
396:
397: l_resp_count := l_resp_count + 1 ;
398: end if;
399:
400: hr_utility.set_location(l_proc, 20);
401: l_log_message := 'Created RESPONSIBILITY ' || 'SYSTEM_ADMINISTRATOR';
402: per_ri_config_utilities.write_log(p_message => l_log_message);
403:
404: -- Attach APPLICATION IMPLEMENTATION for iSetup
426:
427: l_resp_count := l_resp_count + 1 ;
428:
429: end if;
430: hr_utility.set_location(l_proc, 40);
431: l_log_message := 'Created RESPONSIBILITY ' || 'APPLICATION IMPLEMENTATION';
432: per_ri_config_utilities.write_log(p_message => l_log_message);
433:
434: -- Attach FNDWF_USER_WEB_NEW for Payroll Process Workflow process
457:
458: l_resp_count := l_resp_count + 1 ;
459:
460: end if;
461: hr_utility.set_location(l_proc, 40);
462: l_log_message := 'Created RESPONSIBILITY ' || 'FNDWF_USER_WEB_NEW';
463: per_ri_config_utilities.write_log(p_message => l_log_message);
464:
465: -- Attach AZ_ISETUP
487:
488: l_resp_count := l_resp_count + 1 ;
489:
490: end if;
491: hr_utility.set_location(l_proc, 40);
492: l_log_message := 'Created RESPONSIBILITY ' || 'AZ_ISETUP';
493: per_ri_config_utilities.write_log(p_message => l_log_message);
494:
495: -- Attach HRMS_RI_WORKBENCH
517:
518: l_resp_count := l_resp_count + 1 ;
519:
520: end if;
521: hr_utility.set_location(l_proc, 50);
522: l_log_message := 'Created RESPONSIBILITY ' || 'HRMS_RI_WORKBENCH';
523: per_ri_config_utilities.write_log(p_message => l_log_message);
524:
525: hr_utility.set_location(' Leaving:'|| l_proc, 50);
521: hr_utility.set_location(l_proc, 50);
522: l_log_message := 'Created RESPONSIBILITY ' || 'HRMS_RI_WORKBENCH';
523: per_ri_config_utilities.write_log(p_message => l_log_message);
524:
525: hr_utility.set_location(' Leaving:'|| l_proc, 50);
526:
527: -- create data for technical summary for self-service responsibilities
528: open csr_get_product(p_configuration_code);
529:
529:
530: loop
531: fetch csr_get_product into l_product_name;
532: exit when csr_get_product%NOTFOUND;
533: hr_utility.trace('l_product_name = ' || l_product_name);
534:
535: if l_product_name = 'PER' then
536: l_hr := TRUE;
537: end if;
580:
581: l_resp_count := l_resp_count + 1 ;
582: end if;
583:
584: hr_utility.set_location(l_proc, 30);
585: EXCEPTION
586: when others then
587: l_error_message := 'Error in ' || l_proc;
588: hr_utility.trace(l_error_message || '-' || sqlerrm);
584: hr_utility.set_location(l_proc, 30);
585: EXCEPTION
586: when others then
587: l_error_message := 'Error in ' || l_proc;
588: hr_utility.trace(l_error_message || '-' || sqlerrm);
589: hr_utility.set_location(' Leaving:'|| l_proc, 500);
590: hr_utility.raise_error;
591:
592: END attach_default_responsibility;
585: EXCEPTION
586: when others then
587: l_error_message := 'Error in ' || l_proc;
588: hr_utility.trace(l_error_message || '-' || sqlerrm);
589: hr_utility.set_location(' Leaving:'|| l_proc, 500);
590: hr_utility.raise_error;
591:
592: END attach_default_responsibility;
593:
586: when others then
587: l_error_message := 'Error in ' || l_proc;
588: hr_utility.trace(l_error_message || '-' || sqlerrm);
589: hr_utility.set_location(' Leaving:'|| l_proc, 500);
590: hr_utility.raise_error;
591:
592: END attach_default_responsibility;
593:
594: END per_ri_config_fnd_def_entity;