26: l_procedure VARCHAR2(31) := 'display_error';
27:
28: BEGIN
29:
30: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
31: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
32: MODULE => g_module || '.' || l_procedure,
33: MESSAGE => 'Entering ' || l_procedure);
34: END IF;
27:
28: BEGIN
29:
30: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
31: FND_LOG.STRING(LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
32: MODULE => g_module || '.' || l_procedure,
33: MESSAGE => 'Entering ' || l_procedure);
34: END IF;
35:
32: MODULE => g_module || '.' || l_procedure,
33: MESSAGE => 'Entering ' || l_procedure);
34: END IF;
35:
36: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
37: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_ERROR,
38: MODULE => g_module || '.' || l_procedure,
39: MESSAGE => p_msg);
40: END IF;
33: MESSAGE => 'Entering ' || l_procedure);
34: END IF;
35:
36: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
37: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_ERROR,
38: MODULE => g_module || '.' || l_procedure,
39: MESSAGE => p_msg);
40: END IF;
41:
48: htp.bodyClose;
49: htp.htmlClose;
50:
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: htp.htmlClose;
50:
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:
67: l_procedure VARCHAR2(31) := 'get_extapp_url';
68:
69: BEGIN
70:
71: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
72: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
73: MODULE => g_module || '.' || l_procedure,
74: MESSAGE => 'Entering ' || l_procedure);
75: END IF;
68:
69: BEGIN
70:
71: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
72: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
73: MODULE => g_module || '.' || l_procedure,
74: MESSAGE => 'Entering ' || l_procedure);
75: END IF;
76:
76:
77: l_retval := hr_sso_utl.get_sso_query_path(l_sso_extapp_launcher)
78: || '?p_app_id='||p_app_id;
79:
80: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
81: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
82: MODULE => g_module || '.' || l_procedure,
83: MESSAGE => 'extapp_url is ' || l_retval);
84: END IF;
77: l_retval := hr_sso_utl.get_sso_query_path(l_sso_extapp_launcher)
78: || '?p_app_id='||p_app_id;
79:
80: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
81: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
82: MODULE => g_module || '.' || l_procedure,
83: MESSAGE => 'extapp_url is ' || l_retval);
84: END IF;
85:
82: MODULE => g_module || '.' || l_procedure,
83: MESSAGE => 'extapp_url is ' || l_retval);
84: END IF;
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 => 'Exiting ' || l_procedure);
90: END IF;
83: MESSAGE => 'extapp_url is ' || l_retval);
84: END IF;
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 => 'Exiting ' || l_procedure);
90: END IF;
91:
129: l_procedure VARCHAR2(31) := 'call_extapp';
130:
131: BEGIN
132:
133: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
134: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
135: MODULE => g_module || '.' || l_procedure,
136: MESSAGE => 'Entering ' || l_procedure);
137: END IF;
130:
131: BEGIN
132:
133: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
134: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
135: MODULE => g_module || '.' || l_procedure,
136: MESSAGE => 'Entering ' || l_procedure);
137: END IF;
138:
158: owa_util.redirect_url(l_url);
159:
160: END IF;
161:
162: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
163: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
164: MODULE => g_module || '.' || l_procedure,
165: MESSAGE => 'Exiting ' || l_procedure);
166: END IF;
159:
160: END IF;
161:
162: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
163: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
164: MODULE => g_module || '.' || l_procedure,
165: MESSAGE => 'Exiting ' || l_procedure);
166: END IF;
167:
204: l_procedure VARCHAR2(31) := 'check_app_id';
205:
206: BEGIN
207:
208: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
209: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
210: MODULE => g_module || '.' || l_procedure,
211: MESSAGE => 'Entering ' || l_procedure);
212: END IF;
205:
206: BEGIN
207:
208: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
209: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
210: MODULE => g_module || '.' || l_procedure,
211: MESSAGE => 'Entering ' || l_procedure);
212: END IF;
213:
239: l_retval := false;
240: END;
241:
242: IF l_retval THEN
243: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
244: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
245: MODULE => g_module || '.' || l_procedure,
246: MESSAGE => 'valid app_id');
247: END IF;
240: END;
241:
242: IF l_retval THEN
243: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
244: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
245: MODULE => g_module || '.' || l_procedure,
246: MESSAGE => 'valid app_id');
247: END IF;
248: ELSE
245: MODULE => g_module || '.' || l_procedure,
246: MESSAGE => 'valid app_id');
247: END IF;
248: ELSE
249: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
250: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
251: MODULE => g_module || '.' || l_procedure,
252: MESSAGE => 'invalid app_id');
253: END IF;
246: MESSAGE => 'valid app_id');
247: END IF;
248: ELSE
249: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
250: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
251: MODULE => g_module || '.' || l_procedure,
252: MESSAGE => 'invalid app_id');
253: END IF;
254: END IF;
253: END IF;
254: END IF;
255:
256:
257: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
258: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
259: MODULE => g_module || '.' || l_procedure,
260: MESSAGE => 'Exiting ' || l_procedure);
261: END IF;
254: END IF;
255:
256:
257: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
258: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
259: MODULE => g_module || '.' || l_procedure,
260: MESSAGE => 'Exiting ' || l_procedure);
261: END IF;
262:
292: WHERE external_application_name = p_app_code;
293:
294: BEGIN
295:
296: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
297: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
298: MODULE => g_module || '.' || l_procedure,
299: MESSAGE => 'Entering ' || l_procedure);
300: END IF;
293:
294: BEGIN
295:
296: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
297: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
298: MODULE => g_module || '.' || l_procedure,
299: MESSAGE => 'Entering ' || l_procedure);
300: END IF;
301:
298: MODULE => g_module || '.' || l_procedure,
299: MESSAGE => 'Entering ' || l_procedure);
300: END IF;
301:
302: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
303: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
304: MODULE => g_module || '.' || l_procedure,
305: MESSAGE => 'p_app_code is ' || p_app_code);
306: END IF;
299: MESSAGE => 'Entering ' || l_procedure);
300: END IF;
301:
302: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
303: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
304: MODULE => g_module || '.' || l_procedure,
305: MESSAGE => 'p_app_code is ' || p_app_code);
306: END IF;
307:
313: RAISE e_extappexception;
314: END IF;
315: CLOSE csr_get_app_id;
316:
317: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
318: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
319: MODULE => g_module || '.' || l_procedure,
320: MESSAGE => 'l_app_id is ' || NVL(l_app_id,'-null-'));
321: END IF;
314: END IF;
315: CLOSE csr_get_app_id;
316:
317: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
318: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
319: MODULE => g_module || '.' || l_procedure,
320: MESSAGE => 'l_app_id is ' || NVL(l_app_id,'-null-'));
321: END IF;
322:
326: RAISE e_extappexception;
327: END IF;
328:
329: IF l_app_id IS NOT NULL THEN
330: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
331: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
332: MODULE => g_module || '.' || l_procedure,
333: MESSAGE => 'app_id is ' || l_app_id);
334: END IF;
327: END IF;
328:
329: IF l_app_id IS NOT NULL THEN
330: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
331: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
332: MODULE => g_module || '.' || l_procedure,
333: MESSAGE => 'app_id is ' || l_app_id);
334: END IF;
335: END IF;
333: MESSAGE => 'app_id is ' || l_app_id);
334: END IF;
335: END IF;
336:
337: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
338: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
339: MODULE => g_module || '.' || l_procedure,
340: MESSAGE => 'Exiting ' || l_procedure);
341: END IF;
334: END IF;
335: END IF;
336:
337: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
338: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
339: MODULE => g_module || '.' || l_procedure,
340: MESSAGE => 'Exiting ' || l_procedure);
341: END IF;
342:
389:
390: --
391: BEGIN
392:
393: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
394: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
395: MODULE => g_module || '.' || l_procedure,
396: MESSAGE => 'Entering ' || l_procedure);
397: END IF;
390: --
391: BEGIN
392:
393: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
394: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
395: MODULE => g_module || '.' || l_procedure,
396: MESSAGE => 'Entering ' || l_procedure);
397: END IF;
398:
395: MODULE => g_module || '.' || l_procedure,
396: MESSAGE => 'Entering ' || l_procedure);
397: END IF;
398:
399: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
400: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
401: MODULE => g_module || '.' || l_procedure,
402: MESSAGE => 'User Info for ' || p_user_name);
403: END IF;
396: MESSAGE => 'Entering ' || l_procedure);
397: END IF;
398:
399: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
400: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
401: MODULE => g_module || '.' || l_procedure,
402: MESSAGE => 'User Info for ' || p_user_name);
403: END IF;
404:
428:
429: END;
430:
431: IF p_app_pwd IS NULL THEN
432: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
433: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
434: MODULE => g_module || '.' || l_procedure,
435: MESSAGE => 'No details for ' || p_user_name);
436: END IF;
429: END;
430:
431: IF p_app_pwd IS NULL THEN
432: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
433: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
434: MODULE => g_module || '.' || l_procedure,
435: MESSAGE => 'No details for ' || p_user_name);
436: END IF;
437: ELSE
434: MODULE => g_module || '.' || l_procedure,
435: MESSAGE => 'No details for ' || p_user_name);
436: END IF;
437: ELSE
438: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
439: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
440: MODULE => g_module || '.' || l_procedure,
441: MESSAGE => 'apps_user_name is ' || p_app_user);
442: END IF;
435: MESSAGE => 'No details for ' || p_user_name);
436: END IF;
437: ELSE
438: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
439: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
440: MODULE => g_module || '.' || l_procedure,
441: MESSAGE => 'apps_user_name is ' || p_app_user);
442: END IF;
443: END IF;
441: MESSAGE => 'apps_user_name is ' || p_app_user);
442: END IF;
443: END IF;
444:
445: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
446: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
447: MODULE => g_module || '.' || l_procedure,
448: MESSAGE => 'Exiting ' || l_procedure);
449: END IF;
442: END IF;
443: END IF;
444:
445: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
446: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
447: MODULE => g_module || '.' || l_procedure,
448: MESSAGE => 'Exiting ' || l_procedure);
449: END IF;
450:
483:
484: --
485: BEGIN
486:
487: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
488: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
489: MODULE => g_module || '.' || l_procedure,
490: MESSAGE => 'Entering ' || l_procedure);
491: END IF;
484: --
485: BEGIN
486:
487: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
488: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
489: MODULE => g_module || '.' || l_procedure,
490: MESSAGE => 'Entering ' || l_procedure);
491: END IF;
492: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
488: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
489: MODULE => g_module || '.' || l_procedure,
490: MESSAGE => 'Entering ' || l_procedure);
491: END IF;
492: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
493: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
494: MODULE => g_module || '.' || l_procedure,
495: MESSAGE => 'Target is ' || p_app_code);
496: END IF;
489: MODULE => g_module || '.' || l_procedure,
490: MESSAGE => 'Entering ' || l_procedure);
491: END IF;
492: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
493: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
494: MODULE => g_module || '.' || l_procedure,
495: MESSAGE => 'Target is ' || p_app_code);
496: END IF;
497:
514: -- 'site level' credentials from a fixed username
515:
516: IF ( ( l_app_user IS NULL ) OR ( site_override ) ) THEN
517:
518: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
519: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
520: MODULE => g_module || '.' || l_procedure,
521: MESSAGE => 'Using site level details');
522: END IF;
515:
516: IF ( ( l_app_user IS NULL ) OR ( site_override ) ) THEN
517:
518: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
519: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
520: MODULE => g_module || '.' || l_procedure,
521: MESSAGE => 'Using site level details');
522: END IF;
523:
533: -- are passed as parameters
534:
535: IF l_app_user IS NOT NULL THEN
536:
537: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
538: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
539: MODULE => g_module || '.' || l_procedure,
540: MESSAGE => 'Storing details for ' || l_user_name);
541: END IF;
534:
535: IF l_app_user IS NOT NULL THEN
536:
537: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
538: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
539: MODULE => g_module || '.' || l_procedure,
540: MESSAGE => 'Storing details for ' || l_user_name);
541: END IF;
542:
551: -- If we reach this point then no password was held for either
552: -- site level (SYSADMIN) or the current user. For now we'll allow
553: -- the login to go ahead.
554:
555: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
556: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
557: MODULE => g_module || '.' || l_procedure,
558: MESSAGE => 'No details found at site level');
559: END IF;
552: -- site level (SYSADMIN) or the current user. For now we'll allow
553: -- the login to go ahead.
554:
555: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
556: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
557: MODULE => g_module || '.' || l_procedure,
558: MESSAGE => 'No details found at site level');
559: END IF;
560: END IF;
571: --
572: call_extapp(l_app_id,
573: fnd_profile.value('HR_KPI_OPEN_NEW_WINDOW') = 'Y' );
574:
575: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
576: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
577: MODULE => g_module || '.' || l_procedure,
578: MESSAGE => 'Exiting ' || l_procedure);
579: END IF;
572: call_extapp(l_app_id,
573: fnd_profile.value('HR_KPI_OPEN_NEW_WINDOW') = 'Y' );
574:
575: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
576: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
577: MODULE => g_module || '.' || l_procedure,
578: MESSAGE => 'Exiting ' || l_procedure);
579: END IF;
580:
640:
641: --
642: BEGIN
643:
644: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
645: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
646: MODULE => g_module || '.' || l_procedure,
647: MESSAGE => 'Entering ' || l_procedure);
648: END IF;
641: --
642: BEGIN
643:
644: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
645: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
646: MODULE => g_module || '.' || l_procedure,
647: MESSAGE => 'Entering ' || l_procedure);
648: END IF;
649:
701: l_url := l_hr_ext_servlet||l_servlet||'?type=INIT'|| '&' || 'uit=FRMFN'||
702: '&' || 'topic='||l_topic||'&'||'provider='||l_provider||
703: '&'|| 'dbc='||l_dbc||l_icx_ki_ids;
704:
705: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
706: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
707: MODULE => g_module || '.' || l_procedure,
708: MESSAGE => 'l_url' || l_url);
709: END IF;
702: '&' || 'topic='||l_topic||'&'||'provider='||l_provider||
703: '&'|| 'dbc='||l_dbc||l_icx_ki_ids;
704:
705: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
706: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_STATEMENT,
707: MODULE => g_module || '.' || l_procedure,
708: MESSAGE => 'l_url' || l_url);
709: END IF;
710:
720: --
721: owa_util.redirect_url(l_url);
722: END IF;
723:
724: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
725: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
726: MODULE => g_module || '.' || l_procedure,
727: MESSAGE => 'Exiting ' || l_procedure);
728: END IF;
721: owa_util.redirect_url(l_url);
722: END IF;
723:
724: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
725: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_PROCEDURE,
726: MODULE => g_module || '.' || l_procedure,
727: MESSAGE => 'Exiting ' || l_procedure);
728: END IF;
729:
730: EXCEPTION
731:
732: WHEN OTHERS THEN
733:
734: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
735: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_ERROR,
736: MODULE => g_module || '.' || l_procedure,
737: MESSAGE => 'Error whilst launcing URL' ||
738: ' - ' || sqlerrm);
731:
732: WHEN OTHERS THEN
733:
734: IF( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
735: FND_LOG.STRING (LOG_LEVEL => FND_LOG.LEVEL_ERROR,
736: MODULE => g_module || '.' || l_procedure,
737: MESSAGE => 'Error whilst launcing URL' ||
738: ' - ' || sqlerrm);
739: END IF;