22:
23: --
24: BEGIN
25: --
26: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
27: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
28: MODULE => g_module || '.' || l_procedure,
29: MESSAGE => 'Entering ' || l_procedure);
30: END IF;
23: --
24: BEGIN
25: --
26: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
27: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
28: MODULE => g_module || '.' || l_procedure,
29: MESSAGE => 'Entering ' || l_procedure);
30: END IF;
31:
33: OPEN csr_user;
34: FETCH csr_user INTO l_user;
35: CLOSE csr_user;
36:
37: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
38: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
39: MODULE => g_module || '.' || l_procedure,
40: MESSAGE => 'sso user is ' || l_user);
41: END IF;
34: FETCH csr_user INTO l_user;
35: CLOSE csr_user;
36:
37: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
38: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
39: MODULE => g_module || '.' || l_procedure,
40: MESSAGE => 'sso user is ' || l_user);
41: END IF;
42:
40: MESSAGE => 'sso user is ' || l_user);
41: END IF;
42:
43: IF l_user IS NULL THEN
44: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
45: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
46: MODULE => g_module || '.' || l_procedure,
47: MESSAGE => 'sso user is not found for user_id ' ||
48: p_user_id);
41: END IF;
42:
43: IF l_user IS NULL THEN
44: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
45: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
46: MODULE => g_module || '.' || l_procedure,
47: MESSAGE => 'sso user is not found for user_id ' ||
48: p_user_id);
49: END IF;
48: p_user_id);
49: END IF;
50: END IF;
51:
52: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
53: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
54: MODULE => g_module || '.' || l_procedure,
55: MESSAGE => 'Exiting ' || l_procedure);
56: END IF;
49: END IF;
50: END IF;
51:
52: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
53: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
54: MODULE => g_module || '.' || l_procedure,
55: MESSAGE => 'Exiting ' || l_procedure);
56: END IF;
57: RETURN(l_user);
82:
83: --
84: BEGIN
85: --
86: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
87: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
88: MODULE => g_module || '.' || l_procedure,
89: MESSAGE => 'Entering ' || l_procedure);
90: END IF;
83: --
84: BEGIN
85: --
86: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
87: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
88: MODULE => g_module || '.' || l_procedure,
89: MESSAGE => 'Entering ' || l_procedure);
90: END IF;
91:
92: OPEN csr_country;
93: FETCH csr_country INTO l_country;
94: CLOSE csr_country;
95:
96: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
97: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
98: MODULE => g_module || '.' || l_procedure,
99: MESSAGE => 'country is ' || l_country);
100: END IF;
93: FETCH csr_country INTO l_country;
94: CLOSE csr_country;
95:
96: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
97: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
98: MODULE => g_module || '.' || l_procedure,
99: MESSAGE => 'country is ' || l_country);
100: END IF;
101:
99: MESSAGE => 'country is ' || l_country);
100: END IF;
101:
102: IF l_country IS NULL THEN
103: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
104: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
105: MODULE => g_module || '.' || l_procedure,
106: MESSAGE => 'No country associated with person_id ' ||
107: p_person_id);
100: END IF;
101:
102: IF l_country IS NULL THEN
103: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
104: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
105: MODULE => g_module || '.' || l_procedure,
106: MESSAGE => 'No country associated with person_id ' ||
107: p_person_id);
108: END IF;
107: p_person_id);
108: END IF;
109: END IF;
110:
111: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
112: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
113: MODULE => g_module || '.' || l_procedure,
114: MESSAGE => 'Exiting ' || l_procedure);
115: END IF;
108: END IF;
109: END IF;
110:
111: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
112: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
113: MODULE => g_module || '.' || l_procedure,
114: MESSAGE => 'Exiting ' || l_procedure);
115: END IF;
116:
132:
133: --
134: BEGIN
135: --
136: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
137: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
138: MODULE => g_module || '.' || l_procedure,
139: MESSAGE => 'Entering ' || l_procedure);
140: END IF;
133: --
134: BEGIN
135: --
136: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
137: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
138: MODULE => g_module || '.' || l_procedure,
139: MESSAGE => 'Entering ' || l_procedure);
140: END IF;
141:
140: END IF;
141:
142: l_url := fnd_profile.value('HR_AUTHORIA_URL_' || p_country);
143:
144: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
145: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
146: MODULE => g_module || '.' || l_procedure,
147: MESSAGE => 'url is ' || l_url);
148: END IF;
141:
142: l_url := fnd_profile.value('HR_AUTHORIA_URL_' || p_country);
143:
144: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
145: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
146: MODULE => g_module || '.' || l_procedure,
147: MESSAGE => 'url is ' || l_url);
148: END IF;
149:
146: MODULE => g_module || '.' || l_procedure,
147: MESSAGE => 'url is ' || l_url);
148: END IF;
149:
150: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
151: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
152: MODULE => g_module || '.' || l_procedure,
153: MESSAGE => 'Exiting ' || l_procedure);
154: END IF;
147: MESSAGE => 'url is ' || l_url);
148: END IF;
149:
150: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
151: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
152: MODULE => g_module || '.' || l_procedure,
153: MESSAGE => 'Exiting ' || l_procedure);
154: END IF;
155:
198: --
199: BEGIN
200: --
201:
202: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
203: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
204: MODULE => g_module || '.' || l_procedure,
205: MESSAGE => 'Entering ' || l_procedure);
206: END IF;
199: BEGIN
200: --
201:
202: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
203: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
204: MODULE => g_module || '.' || l_procedure,
205: MESSAGE => 'Entering ' || l_procedure);
206: END IF;
207:
246: l_FNAME7, l_FVAL7,
247: l_FNAME8, l_FVAL8,
248: l_FNAME9, l_FVAL9);
249:
250: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
251: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
252: MODULE => g_module || '.' || l_procedure,
253: MESSAGE => 'Exiting ' || l_procedure);
254: END IF;
247: l_FNAME8, l_FVAL8,
248: l_FNAME9, l_FVAL9);
249:
250: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
251: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
252: MODULE => g_module || '.' || l_procedure,
253: MESSAGE => 'Exiting ' || l_procedure);
254: END IF;
255:
299: --
300: BEGIN
301: --
302:
303: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
304: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
305: MODULE => g_module || '.' || l_procedure,
306: MESSAGE => 'Entering ' || l_procedure);
307: END IF;
300: BEGIN
301: --
302:
303: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
304: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
305: MODULE => g_module || '.' || l_procedure,
306: MESSAGE => 'Entering ' || l_procedure);
307: END IF;
308:
321: l_country);
322:
323: EXCEPTION
324: WHEN OTHERS THEN
325: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
326: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
327: MODULE => g_module || '.' || l_procedure,
328: MESSAGE => 'Unable to determine SSO external ' ||
329: 'application - ' || sqlerrm);
322:
323: EXCEPTION
324: WHEN OTHERS THEN
325: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
326: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
327: MODULE => g_module || '.' || l_procedure,
328: MESSAGE => 'Unable to determine SSO external ' ||
329: 'application - ' || sqlerrm);
330: END IF;
366: l_USER_PREFS);
367:
368: EXCEPTION
369: WHEN OTHERS THEN
370: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
371: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
372: MODULE => g_module || '.' || l_procedure,
373: MESSAGE => 'No user found, using defaults');
374: END IF;
367:
368: EXCEPTION
369: WHEN OTHERS THEN
370: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
371: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
372: MODULE => g_module || '.' || l_procedure,
373: MESSAGE => 'No user found, using defaults');
374: END IF;
375: END;
373: MESSAGE => 'No user found, using defaults');
374: END IF;
375: END;
376:
377: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
378: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
379: MODULE => g_module || '.' || l_procedure,
380: MESSAGE => 'APP_USER is ' || l_APP_USER);
381: END IF;
374: END IF;
375: END;
376:
377: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
378: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
379: MODULE => g_module || '.' || l_procedure,
380: MESSAGE => 'APP_USER is ' || l_APP_USER);
381: END IF;
382:
385:
386: -- create user for the first time
387: -- can not store a null password in the SSO
388: -- so user can not already exist
389: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
390: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
391: MODULE => g_module || '.' || l_procedure,
392: MESSAGE => 'creating new user');
393: END IF;
386: -- create user for the first time
387: -- can not store a null password in the SSO
388: -- so user can not already exist
389: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
390: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
391: MODULE => g_module || '.' || l_procedure,
392: MESSAGE => 'creating new user');
393: END IF;
394:
422: p_user_prefs => l_USER_PREFS);
423:
424: EXCEPTION
425: WHEN OTHERS THEN
426: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
427: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
428: MODULE => g_module || '.' || l_procedure,
429: MESSAGE => 'new user error - ' || sqlerrm);
430: END IF;
423:
424: EXCEPTION
425: WHEN OTHERS THEN
426: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
427: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
428: MODULE => g_module || '.' || l_procedure,
429: MESSAGE => 'new user error - ' || sqlerrm);
430: END IF;
431: l_error := 'Error creating new user record in SSO - ' ||
463: p_fval9 => l_FVAL9,
464: p_user_prefs => l_USER_PREFS);
465: EXCEPTION
466: WHEN OTHERS THEN
467: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
468: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
469: MODULE => g_module || '.' || l_procedure,
470: MESSAGE => 'existing user error - ' || sqlerrm);
471: END IF;
464: p_user_prefs => l_USER_PREFS);
465: EXCEPTION
466: WHEN OTHERS THEN
467: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
468: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
469: MODULE => g_module || '.' || l_procedure,
470: MESSAGE => 'existing user error - ' || sqlerrm);
471: END IF;
472: l_error := 'Error modifying existing user record in SSO - ' ||
487: IF l_error IS NOT NULL THEN
488: l_url := 'ERROR: ' || l_error;
489: END IF;
490:
491: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
492: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
493: MODULE => g_module || '.' || l_procedure,
494: MESSAGE => 'url is ' || l_url);
495: END IF;
488: l_url := 'ERROR: ' || l_error;
489: END IF;
490:
491: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
492: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
493: MODULE => g_module || '.' || l_procedure,
494: MESSAGE => 'url is ' || l_url);
495: END IF;
496:
493: MODULE => g_module || '.' || l_procedure,
494: MESSAGE => 'url is ' || l_url);
495: END IF;
496:
497: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
498: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
499: MODULE => g_module || '.' || l_procedure,
500: MESSAGE => 'Exiting ' || l_procedure);
501: END IF;
494: MESSAGE => 'url is ' || l_url);
495: END IF;
496:
497: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
498: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
499: MODULE => g_module || '.' || l_procedure,
500: MESSAGE => 'Exiting ' || l_procedure);
501: END IF;
502:
504: RETURN(l_url);
505:
506: EXCEPTION
507: WHEN OTHERS THEN
508: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
509: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
510: MODULE => g_module || '.' || l_procedure,
511: MESSAGE => 'Error whilst determining redirection URL' ||
512: ' - ' || sqlerrm);
505:
506: EXCEPTION
507: WHEN OTHERS THEN
508: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
509: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_ERROR,
510: MODULE => g_module || '.' || l_procedure,
511: MESSAGE => 'Error whilst determining redirection URL' ||
512: ' - ' || sqlerrm);
513: END IF;
537:
538: --
539: BEGIN
540: --
541: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
542: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
543: MODULE => g_module || '.' || l_procedure,
544: MESSAGE => 'Entering ' || l_procedure);
545: END IF;
538: --
539: BEGIN
540: --
541: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
542: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
543: MODULE => g_module || '.' || l_procedure,
544: MESSAGE => 'Entering ' || l_procedure);
545: END IF;
546:
543: MODULE => g_module || '.' || l_procedure,
544: MESSAGE => 'Entering ' || l_procedure);
545: END IF;
546:
547: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
548: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
549: MODULE => g_module || '.' || l_procedure,
550: MESSAGE => 'provider is ' || p_provider);
551: END IF;
544: MESSAGE => 'Entering ' || l_procedure);
545: END IF;
546:
547: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
548: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
549: MODULE => g_module || '.' || l_procedure,
550: MESSAGE => 'provider is ' || p_provider);
551: END IF;
552:
549: MODULE => g_module || '.' || l_procedure,
550: MESSAGE => 'provider is ' || p_provider);
551: END IF;
552:
553: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
554: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
555: MODULE => g_module || '.' || l_procedure,
556: MESSAGE => 'page is ' || p_page);
557: END IF;
550: MESSAGE => 'provider is ' || p_provider);
551: END IF;
552:
553: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
554: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
555: MODULE => g_module || '.' || l_procedure,
556: MESSAGE => 'page is ' || p_page);
557: END IF;
558:
555: MODULE => g_module || '.' || l_procedure,
556: MESSAGE => 'page is ' || p_page);
557: END IF;
558:
559: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
560: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
561: MODULE => g_module || '.' || l_procedure,
562: MESSAGE => 'user_id is ' || p_user_id);
563: END IF;
556: MESSAGE => 'page is ' || p_page);
557: END IF;
558:
559: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
560: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
561: MODULE => g_module || '.' || l_procedure,
562: MESSAGE => 'user_id is ' || p_user_id);
563: END IF;
564:
561: MODULE => g_module || '.' || l_procedure,
562: MESSAGE => 'user_id is ' || p_user_id);
563: END IF;
564:
565: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
566: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
567: MODULE => g_module || '.' || l_procedure,
568: MESSAGE => 'page is ' || p_page);
569: END IF;
562: MESSAGE => 'user_id is ' || p_user_id);
563: END IF;
564:
565: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
566: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
567: MODULE => g_module || '.' || l_procedure,
568: MESSAGE => 'page is ' || p_page);
569: END IF;
570:
567: MODULE => g_module || '.' || l_procedure,
568: MESSAGE => 'page is ' || p_page);
569: END IF;
570:
571: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
572: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
573: MODULE => g_module || '.' || l_procedure,
574: MESSAGE => 'primary_obj is ' || p_primary_obj);
575: END IF;
568: MESSAGE => 'page is ' || p_page);
569: END IF;
570:
571: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
572: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
573: MODULE => g_module || '.' || l_procedure,
574: MESSAGE => 'primary_obj is ' || p_primary_obj);
575: END IF;
576:
596: END IF;
597:
598: IF l_error IS NOT NULL THEN
599: l_url := 'ERROR : APPS-47368 : ' || l_error ||
600: ' Examine FND logging information for more details.';
601: END IF;
602:
603: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
604: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
599: l_url := 'ERROR : APPS-47368 : ' || l_error ||
600: ' Examine FND logging information for more details.';
601: END IF;
602:
603: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
604: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
605: MODULE => g_module || '.' || l_procedure,
606: MESSAGE => 'Exiting ' || l_procedure);
607: END IF;
600: ' Examine FND logging information for more details.';
601: END IF;
602:
603: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
604: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
605: MODULE => g_module || '.' || l_procedure,
606: MESSAGE => 'Exiting ' || l_procedure);
607: END IF;
608:
632:
633: --
634: BEGIN
635: --
636: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
637: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
638: MODULE => g_module || '.' || l_procedure,
639: MESSAGE => 'Entering ' || l_procedure);
640: END IF;
633: --
634: BEGIN
635: --
636: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
637: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
638: MODULE => g_module || '.' || l_procedure,
639: MESSAGE => 'Entering ' || l_procedure);
640: END IF;
641:
644:
645: -- need to decrypt encrypted user_id
646: l_user_id := hr_sso_utl.decrypt_ps_username(p_user_id);
647:
648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
649: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
650: MODULE => g_module || '.' || l_procedure,
651: MESSAGE => 'decrypted person_id is ' || l_person_id);
652: END IF;
645: -- need to decrypt encrypted user_id
646: l_user_id := hr_sso_utl.decrypt_ps_username(p_user_id);
647:
648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
649: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
650: MODULE => g_module || '.' || l_procedure,
651: MESSAGE => 'decrypted person_id is ' || l_person_id);
652: END IF;
653:
650: MODULE => g_module || '.' || l_procedure,
651: MESSAGE => 'decrypted person_id is ' || l_person_id);
652: END IF;
653:
654: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
655: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
656: MODULE => g_module || '.' || l_procedure,
657: MESSAGE => 'decrypted user_id is ' || l_user_id);
658: END IF;
651: MESSAGE => 'decrypted person_id is ' || l_person_id);
652: END IF;
653:
654: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
655: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
656: MODULE => g_module || '.' || l_procedure,
657: MESSAGE => 'decrypted user_id is ' || l_user_id);
658: END IF;
659:
664: l_person_id,
665: p_page,
666: p_primary_obj);
667:
668: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
669: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
670: MODULE => g_module || '.' || l_procedure,
671: MESSAGE => 'Exiting ' || l_procedure);
672: END IF;
665: p_page,
666: p_primary_obj);
667:
668: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
669: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
670: MODULE => g_module || '.' || l_procedure,
671: MESSAGE => 'Exiting ' || l_procedure);
672: END IF;
673:
691: --
692: BEGIN
693: --
694:
695: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
696: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
697: MODULE => g_module || '.' || l_procedure,
698: MESSAGE => 'Entering ' || l_procedure);
699: END IF;
692: BEGIN
693: --
694:
695: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
696: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
697: MODULE => g_module || '.' || l_procedure,
698: MESSAGE => 'Entering ' || l_procedure);
699: END IF;
700:
703: -- using the first 8 characters only - SSO limitation
704:
705: l_password := substrb(icx_call.encrypt3(p_person_id),1,8);
706:
707: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
708: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
709: MODULE => g_module || '.' || l_procedure,
710: MESSAGE => 'Exiting ' || l_procedure);
711: END IF;
704:
705: l_password := substrb(icx_call.encrypt3(p_person_id),1,8);
706:
707: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
708: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
709: MODULE => g_module || '.' || l_procedure,
710: MESSAGE => 'Exiting ' || l_procedure);
711: END IF;
712:
749: --
750: BEGIN
751: --
752:
753: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
754: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
755: MODULE => g_module || '.' || l_procedure,
756: MESSAGE => 'Entering ' || l_procedure);
757: END IF;
750: BEGIN
751: --
752:
753: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
754: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
755: MODULE => g_module || '.' || l_procedure,
756: MESSAGE => 'Entering ' || l_procedure);
757: END IF;
758:
768: OPEN csr_page;
769: FETCH csr_page INTO l_target_page;
770: CLOSE csr_page;
771:
772: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
773: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
774: MODULE => g_module || '.' || l_procedure,
775: MESSAGE => 'target page is ' || l_target_page);
776: END IF;
769: FETCH csr_page INTO l_target_page;
770: CLOSE csr_page;
771:
772: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
773: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
774: MODULE => g_module || '.' || l_procedure,
775: MESSAGE => 'target page is ' || l_target_page);
776: END IF;
777:
774: MODULE => g_module || '.' || l_procedure,
775: MESSAGE => 'target page is ' || l_target_page);
776: END IF;
777:
778: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
779: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
780: MODULE => g_module || '.' || l_procedure,
781: MESSAGE => 'Exiting ' || l_procedure);
782: END IF;
775: MESSAGE => 'target page is ' || l_target_page);
776: END IF;
777:
778: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
779: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
780: MODULE => g_module || '.' || l_procedure,
781: MESSAGE => 'Exiting ' || l_procedure);
782: END IF;
783:
807:
808: --
809: BEGIN
810: --
811: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
812: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
813: MODULE => g_module || '.' || l_procedure,
814: MESSAGE => 'Entering ' || l_procedure);
815: END IF;
808: --
809: BEGIN
810: --
811: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
812: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
813: MODULE => g_module || '.' || l_procedure,
814: MESSAGE => 'Entering ' || l_procedure);
815: END IF;
816:
827: ELSE
828: l_anchor_tag := p_plan_name;
829: END IF;
830:
831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
832: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
833: MODULE => g_module || '.' || l_procedure,
834: MESSAGE => 'anchor tag is ' || l_anchor_tag);
835: END IF;
828: l_anchor_tag := p_plan_name;
829: END IF;
830:
831: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
832: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
833: MODULE => g_module || '.' || l_procedure,
834: MESSAGE => 'anchor tag is ' || l_anchor_tag);
835: END IF;
836:
833: MODULE => g_module || '.' || l_procedure,
834: MESSAGE => 'anchor tag is ' || l_anchor_tag);
835: END IF;
836:
837: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
838: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
839: MODULE => g_module || '.' || l_procedure,
840: MESSAGE => 'Exiting ' || l_procedure);
841: END IF;
834: MESSAGE => 'anchor tag is ' || l_anchor_tag);
835: END IF;
836:
837: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
838: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
839: MODULE => g_module || '.' || l_procedure,
840: MESSAGE => 'Exiting ' || l_procedure);
841: END IF;
842:
845: --
846: EXCEPTION
847: --
848: WHEN others THEN
849: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
850: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
851: MODULE => g_module || '.' || l_procedure,
852: MESSAGE => 'Exiting with Exception' || l_procedure);
853: END IF;
846: EXCEPTION
847: --
848: WHEN others THEN
849: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
850: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
851: MODULE => g_module || '.' || l_procedure,
852: MESSAGE => 'Exiting with Exception' || l_procedure);
853: END IF;
854: RETURN p_plan_name;
897:
898: --
899: BEGIN
900: --
901: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
902: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
903: MODULE => g_module || '.' || l_procedure,
904: MESSAGE => 'Entering ' || l_procedure);
905: END IF;
898: --
899: BEGIN
900: --
901: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
902: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
903: MODULE => g_module || '.' || l_procedure,
904: MESSAGE => 'Entering ' || l_procedure);
905: END IF;
906:
919: IF p_plan_url IS NULL THEN
920:
921: l_hr_authoria_enabled := fnd_profile.value('HR_AUTHORIA_ENABLED');
922:
923: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
924: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
925: MODULE => g_module || '.' || l_procedure,
926: MESSAGE => 'profile HR_AUTHORIA_ENABLED is ' ||
927: l_hr_authoria_enabled);
920:
921: l_hr_authoria_enabled := fnd_profile.value('HR_AUTHORIA_ENABLED');
922:
923: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
924: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
925: MODULE => g_module || '.' || l_procedure,
926: MESSAGE => 'profile HR_AUTHORIA_ENABLED is ' ||
927: l_hr_authoria_enabled);
928: END IF;
929:
930: IF UPPER(l_hr_authoria_enabled) = 'Y' then
931: l_hr_kpi_agent := fnd_profile.value('HR_KPI_AGENT');
932:
933: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
934: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
935: MODULE => g_module || '.' || l_procedure,
936: MESSAGE => 'profile HR_KPI_AGENT is ' ||l_hr_kpi_agent);
937: END IF;
930: IF UPPER(l_hr_authoria_enabled) = 'Y' then
931: l_hr_kpi_agent := fnd_profile.value('HR_KPI_AGENT');
932:
933: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
934: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
935: MODULE => g_module || '.' || l_procedure,
936: MESSAGE => 'profile HR_KPI_AGENT is ' ||l_hr_kpi_agent);
937: END IF;
938:
938:
939: IF l_hr_kpi_agent is null then
940: l_apps_servlet_agent := fnd_profile.value('APPS_SERVLET_AGENT');
941:
942: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
943: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
944: MODULE => g_module || '.' || l_procedure,
945: MESSAGE => 'profile APPS_SERVLET_AGENT is ' ||
946: l_apps_servlet_agent);
939: IF l_hr_kpi_agent is null then
940: l_apps_servlet_agent := fnd_profile.value('APPS_SERVLET_AGENT');
941:
942: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
943: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
944: MODULE => g_module || '.' || l_procedure,
945: MESSAGE => 'profile APPS_SERVLET_AGENT is ' ||
946: l_apps_servlet_agent);
947: END IF;
947: END IF;
948: END IF;
949:
950: l_hr_kpi_servlet := fnd_profile.value('HR_KPI_SERVLET');
951: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
952: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
953: MODULE => g_module || '.' || l_procedure,
954: MESSAGE => 'profile HR_KPI_SERVLET is ' ||
955: l_hr_kpi_servlet);
948: END IF;
949:
950: l_hr_kpi_servlet := fnd_profile.value('HR_KPI_SERVLET');
951: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
952: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
953: MODULE => g_module || '.' || l_procedure,
954: MESSAGE => 'profile HR_KPI_SERVLET is ' ||
955: l_hr_kpi_servlet);
956: END IF;
956: END IF;
957:
958: l_dbc_filename := fnd_web_config.database_id;
959:
960: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
961: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
962: MODULE => g_module || '.' || l_procedure,
963: MESSAGE => 'dbc file name is ' || l_dbc_filename);
964: END IF;
957:
958: l_dbc_filename := fnd_web_config.database_id;
959:
960: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
961: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
962: MODULE => g_module || '.' || l_procedure,
963: MESSAGE => 'dbc file name is ' || l_dbc_filename);
964: END IF;
965:
963: MESSAGE => 'dbc file name is ' || l_dbc_filename);
964: END IF;
965:
966: l_user_id := ICX_SEC.G_USER_ID;
967: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
968: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
969: MODULE => g_module || '.' || l_procedure,
970: MESSAGE => 'user id is ' || l_user_id);
971: END IF;
964: END IF;
965:
966: l_user_id := ICX_SEC.G_USER_ID;
967: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
968: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
969: MODULE => g_module || '.' || l_procedure,
970: MESSAGE => 'user id is ' || l_user_id);
971: END IF;
972:
970: MESSAGE => 'user id is ' || l_user_id);
971: END IF;
972:
973: l_encrypted_user_id := hr_sso_utl.encrypt_ps_username(l_user_id);
974: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
975: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
976: MODULE => g_module || '.' || l_procedure,
977: MESSAGE => 'encryted user id is ' ||
978: l_encrypted_user_id);
971: END IF;
972:
973: l_encrypted_user_id := hr_sso_utl.encrypt_ps_username(l_user_id);
974: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
975: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
976: MODULE => g_module || '.' || l_procedure,
977: MESSAGE => 'encryted user id is ' ||
978: l_encrypted_user_id);
979: END IF;
978: l_encrypted_user_id);
979: END IF;
980:
981: l_encrypted_person_id := hr_sso_utl.encrypt_ps_username(p_person_id);
982: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
983: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
984: MODULE => g_module || '.' || l_procedure,
985: MESSAGE => 'encryted person id is ' ||
986: l_encrypted_person_id);
979: END IF;
980:
981: l_encrypted_person_id := hr_sso_utl.encrypt_ps_username(p_person_id);
982: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
983: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
984: MODULE => g_module || '.' || l_procedure,
985: MESSAGE => 'encryted person id is ' ||
986: l_encrypted_person_id);
987: END IF;
986: l_encrypted_person_id);
987: END IF;
988:
989: l_page_name := hr_auth_int.get_page(p_plip_id,p_pl_id,p_ler_id);
990: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
991: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
992: MODULE => g_module || '.' || l_procedure,
993: MESSAGE => 'authoria page name is ' || l_page_name);
994: END IF;
987: END IF;
988:
989: l_page_name := hr_auth_int.get_page(p_plip_id,p_pl_id,p_ler_id);
990: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
991: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
992: MODULE => g_module || '.' || l_procedure,
993: MESSAGE => 'authoria page name is ' || l_page_name);
994: END IF;
995:
994: END IF;
995:
996: l_primary_obj := to_char(p_pl_id)||'A'||to_char(p_plip_id)||','||
997: p_primary_obj_context;
998: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
999: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1000: MODULE => g_module || '.' || l_procedure,
1001: MESSAGE => 'primary object is ' || l_primary_obj);
1002: END IF;
995:
996: l_primary_obj := to_char(p_pl_id)||'A'||to_char(p_plip_id)||','||
997: p_primary_obj_context;
998: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
999: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1000: MODULE => g_module || '.' || l_procedure,
1001: MESSAGE => 'primary object is ' || l_primary_obj);
1002: END IF;
1003:
1023: IF l_ret_val IS NULL THEN
1024: l_ret_val := p_plan_url;
1025: END IF;
1026:
1027: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1028: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1029: MODULE => g_module || '.' || l_procedure,
1030: MESSAGE => 'return url is ' || l_ret_val);
1031: END IF;
1024: l_ret_val := p_plan_url;
1025: END IF;
1026:
1027: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1028: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1029: MODULE => g_module || '.' || l_procedure,
1030: MESSAGE => 'return url is ' || l_ret_val);
1031: END IF;
1032:
1029: MODULE => g_module || '.' || l_procedure,
1030: MESSAGE => 'return url is ' || l_ret_val);
1031: END IF;
1032:
1033: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1034: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1035: MODULE => g_module || '.' || l_procedure,
1036: MESSAGE => 'Exiting ' || l_procedure);
1037: END IF;
1030: MESSAGE => 'return url is ' || l_ret_val);
1031: END IF;
1032:
1033: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1034: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1035: MODULE => g_module || '.' || l_procedure,
1036: MESSAGE => 'Exiting ' || l_procedure);
1037: END IF;
1038:
1040: --
1041: EXCEPTION
1042: --
1043: WHEN others THEN
1044: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1045: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1046: MODULE => g_module || '.' || l_procedure,
1047: MESSAGE => 'Exiting with Exception' || l_procedure);
1048: END IF;
1041: EXCEPTION
1042: --
1043: WHEN others THEN
1044: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1045: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
1046: MODULE => g_module || '.' || l_procedure,
1047: MESSAGE => 'Exiting with Exception' || l_procedure);
1048: END IF;
1049: return p_plan_url;