115: p_loginfrom varchar2(30);
116:
117:
118: BEGIN
119: --htp.p('VP');--mputman debug
120: -- start additions for 1916792
121: -- icx_sec.g_security_group_id:=c_sec_grp_id; --mputman hosted update
122: --SECURITY_GROUP_KEY in the FND_SECURITY_GROUPS
123: fnd_profile.get(name => 'ENABLE_SECURITY_GROUPS',
379: --Start Bug 3161306
380: select fnd_message.get into c_error_msg1 from dual;
381: if c_error_msg1 like 'Oracle error%'
382: then
383: htp.p(c_error_msg1);
384: htp.nl;
385: htp.line;
386: end if;
387: --End Bug 3161306
380: select fnd_message.get into c_error_msg1 from dual;
381: if c_error_msg1 like 'Oracle error%'
382: then
383: htp.p(c_error_msg1);
384: htp.nl;
385: htp.line;
386: end if;
387: --End Bug 3161306
388:
381: if c_error_msg1 like 'Oracle error%'
382: then
383: htp.p(c_error_msg1);
384: htp.nl;
385: htp.line;
386: end if;
387: --End Bug 3161306
388:
389: fnd_message.set_name('ICX','ICX_SIGNIN_INVALID');
395: end if;
396:
397: /*
398: when others then
399: htp.p(SQLERRM);
400: */
401: return '-1';
402: end;
403:
440: owa_util.http_header_close;
441:
442: l_url := 'OracleApps.RF?F='||icx_call.encrypt2(l_responsibility_id||'*'||l_function_id||'**]');
443:
444: htp.htmlOpen;
445: -- htp.p('
441:
442: l_url := 'OracleApps.RF?F='||icx_call.encrypt2(l_responsibility_id||'*'||l_function_id||'**]');
443:
444: htp.htmlOpen;
445: -- htp.p('');
446:
447: htp.p('Run Function would called here');
448:
449: -- htp.p('');
443:
444: htp.htmlOpen;
445: -- htp.p('
445: -- htp.p('
');
446:
447: htp.p('Run Function would called here');
448:
449: -- htp.p('');
450: htp.htmlClose;
451:
452: exception
453: when others then
454: fnd_message.set_name('ICX','ICX_DATA_INCORRECT');
767: when dup_val_on_index then --bug 1388903
768: return -1;
769:
770: when others then
771: -- htp.p(SQLERRM);
772: htp.p(dbms_utility.format_error_stack);
773: return -1;
774: end;
775:
768: return -1;
769:
770: when others then
771: -- htp.p(SQLERRM);
772: htp.p(dbms_utility.format_error_stack);
773: return -1;
774: end;
775:
776:
816: end if;
817:
818: exception
819: when others then
820: -- htp.p(SQLERRM);
821: htp.p(dbms_utility.format_error_stack);
822: return -1;
823: end;
824:
817:
818: exception
819: when others then
820: -- htp.p(SQLERRM);
821: htp.p(dbms_utility.format_error_stack);
822: return -1;
823: end;
824:
825: -- ***********************************************
881: return l_transaction_id;
882:
883: exception
884: when others then
885: -- htp.p(SQLERRM);
886: htp.p(dbms_utility.format_error_stack);
887: return -1;
888: end;
889: -- ***********************************************
882:
883: exception
884: when others then
885: -- htp.p(SQLERRM);
886: htp.p(dbms_utility.format_error_stack);
887: return -1;
888: end;
889: -- ***********************************************
890: -- Procedure SeverLevel
957: where TRANSACTION_ID = p_transaction_id;
958:
959: exception
960: when others then
961: -- htp.p(SQLERRM);
962: htp.p(dbms_utility.format_error_stack);
963: end;
964:
965: -- ***********************************************
958:
959: exception
960: when others then
961: -- htp.p(SQLERRM);
962: htp.p(dbms_utility.format_error_stack);
963: end;
964:
965: -- ***********************************************
966: -- Function NewSession
1009: p_pseudo_flag => 'N',
1010: c_mode_code => c_mode_code) ;
1011:
1012: if l_message = '0' then
1013: --htp.p('####NSRE####');--debug mputman
1014: newSessionRaiseEvent(user_info.user_id,l_session_id);--mputman 1513025
1015: -- htp.p(' ####post NSRE####');--debug mputman
1016: return l_session_id;
1017: else
1011:
1012: if l_message = '0' then
1013: --htp.p('####NSRE####');--debug mputman
1014: newSessionRaiseEvent(user_info.user_id,l_session_id);--mputman 1513025
1015: -- htp.p(' ####post NSRE####');--debug mputman
1016: return l_session_id;
1017: else
1018: return -1;
1019: end if;
1019: end if;
1020:
1021: exception
1022: when others then
1023: -- htp.p(SQLERRM);
1024: htp.p(dbms_utility.format_error_stack);
1025: return -1;
1026: end;
1027:
1020:
1021: exception
1022: when others then
1023: -- htp.p(SQLERRM);
1024: htp.p(dbms_utility.format_error_stack);
1025: return -1;
1026: end;
1027:
1028: -- ***********************************************
1238: end if;
1239:
1240: exception
1241: when others then
1242: -- htp.p(SQLERRM);
1243: htp.p(dbms_utility.format_error_stack);
1244: return FALSE;
1245: end;
1246:
1239:
1240: exception
1241: when others then
1242: -- htp.p(SQLERRM);
1243: htp.p(dbms_utility.format_error_stack);
1244: return FALSE;
1245: end;
1246:
1247: -- ***********************************************
1286: icx_sec.g_nls_territory);
1287: exception
1288: when others
1289: then
1290: -- htp.p(SQLERRM);
1291: htp.p(dbms_utility.format_error_stack);
1292: p_success := FALSE;
1293: end;
1294:
1287: exception
1288: when others
1289: then
1290: -- htp.p(SQLERRM);
1291: htp.p(dbms_utility.format_error_stack);
1292: p_success := FALSE;
1293: end;
1294:
1295:
1456:
1457: exception
1458: when others
1459: then
1460: -- htp.p(SQLERRM);
1461: htp.p(dbms_utility.format_error_stack);
1462:
1463: end setSessionPrivate;
1464:
1457: exception
1458: when others
1459: then
1460: -- htp.p(SQLERRM);
1461: htp.p(dbms_utility.format_error_stack);
1462:
1463: end setSessionPrivate;
1464:
1465: -- **************************************************
1609: -- **************************************************
1610: -- This section handles the multi-org implemenation
1611: -- **************************************************
1612:
1613: -- htp.p('DEBUG session_id='||icx_sec.g_session_id||' user_id='||icx_sec.g_user_id||' responsibility_id='||icx_sec.g_responsibility_id||' resp_appl_id='||icx_sec.g_resp_appl_id||' security_group_id='||icx_sec.g_security_group_id);
1614:
1615: -- htp.p('DEBUG function_id='||icx_sec.g_function_id);
1616:
1617: -- Allow easier performance tuning
1611: -- **************************************************
1612:
1613: -- htp.p('DEBUG session_id='||icx_sec.g_session_id||' user_id='||icx_sec.g_user_id||' responsibility_id='||icx_sec.g_responsibility_id||' resp_appl_id='||icx_sec.g_resp_appl_id||' security_group_id='||icx_sec.g_security_group_id);
1614:
1615: -- htp.p('DEBUG function_id='||icx_sec.g_function_id);
1616:
1617: -- Allow easier performance tuning
1618: /* Request to remove aalomari 16-NOV-1999
1619: DBMS_APPLICATION_INFO.SET_MODULE(
1889: --end fix for 2214199
1890: */-- mputman
1891:
1892: owa_util.mime_header('text/html', TRUE); -- added to prevent login loop 2065270 mputman
1893: htp.p('');-- added to prevent login loop 2065270 mputman
1894: htp.htmlOpen;
1895: --part of 2214199 .. not ready to be released.
1896: /*
1897: IF l_browser_is_IE THEN
1890: */-- mputman
1891:
1892: owa_util.mime_header('text/html', TRUE); -- added to prevent login loop 2065270 mputman
1893: htp.p('');-- added to prevent login loop 2065270 mputman
1894: htp.htmlOpen;
1895: --part of 2214199 .. not ready to be released.
1896: /*
1897: IF l_browser_is_IE THEN
1898: htp.p('');
1901: END IF;
1902: */-- mputman
1931: ELSE --profile option is null
1932:
1933: --Bug 3816417 changed below WWK to WWW
1934:
1935: htp.p('icx_login_window("WWW","'||l_url||'","_Login_");
1936: ');
1937: END IF;
1938:
1939: htp.htmlClose;
1935: htp.p('icx_login_window("WWW","'||l_url||'","_Login_");
1936: ');
1937: END IF;
1938:
1939: htp.htmlClose;
1940: ELSE
1941: OracleApps.displayLogin(c_error_msg||' '||c_login_msg,'IC','Y');
1942: END IF; --recreate
1943:
2421:
2422: return true;
2423: exception
2424: when others then
2425: -- htp.p(SQLERRM);
2426: htp.p(dbms_utility.format_error_stack);
2427: return false;
2428: end;
2429:
2422: return true;
2423: exception
2424: when others then
2425: -- htp.p(SQLERRM);
2426: htp.p(dbms_utility.format_error_stack);
2427: return false;
2428: end;
2429:
2430: -- ***********************************************
3374: end if;
3375:
3376: exception
3377: when others then
3378: -- htp.p(SQLERRM);
3379: htp.p(dbms_utility.format_error_stack);
3380: end;
3381:
3382: function getsessioncookie(p_ticket in varchar2) return number is
3375:
3376: exception
3377: when others then
3378: -- htp.p(SQLERRM);
3379: htp.p(dbms_utility.format_error_stack);
3380: end;
3381:
3382: function getsessioncookie(p_ticket in varchar2) return number is
3383:
3437: return l_session_id;
3438:
3439: exception
3440: when others then
3441: -- htp.p(SQLERRM);
3442: htp.p(dbms_utility.format_error_stack);
3443: return -1;
3444: end;
3445:
3438:
3439: exception
3440: when others then
3441: -- htp.p(SQLERRM);
3442: htp.p(dbms_utility.format_error_stack);
3443: return -1;
3444: end;
3445:
3446: -- ***********************************************
3469: return l_session_cookie_name;
3470:
3471: exception
3472: when others then
3473: htp.p(SQLERRM);
3474: return -1;
3475: end;
3476:
3477: -- ***********************************************
3547: return l_session_cookie_domain;
3548:
3549: exception
3550: when others then
3551: -- htp.p(SQLERRM);
3552: htp.p(dbms_utility.format_error_stack);
3553: return -1;
3554:
3555:
3548:
3549: exception
3550: when others then
3551: -- htp.p(SQLERRM);
3552: htp.p(dbms_utility.format_error_stack);
3553: return -1;
3554:
3555:
3556: end;
3971:
3972: exception
3973: when others then
3974: -- return SQLERRM;
3975: htp.p(dbms_utility.format_error_stack);
3976:
3977: end;
3978:
3979: -- added for 1574527 mputman
4020: COMMIT;
4021:
4022: EXCEPTION
4023: WHEN OTHERS THEN
4024: -- htp.p(SQLERRM);
4025: htp.p(dbms_utility.format_error_stack);
4026:
4027: END;
4028:
4021:
4022: EXCEPTION
4023: WHEN OTHERS THEN
4024: -- htp.p(SQLERRM);
4025: htp.p(dbms_utility.format_error_stack);
4026:
4027: END;
4028:
4029:
4128:
4129: owa_util.mime_header('text/html', FALSE);
4130: sendsessioncookie(l_session_id);
4131: owa_util.http_header_close;
4132: --htp.p('testing????');
4133: RETURN 1;
4134:
4135: else
4136: raise e_account_expired;
4199: OracleApps.displayLogin(c_error_msg||' '||c_login_msg,'IC','Y');
4200: end if;
4201: /*
4202: when others then
4203: htp.p(SQLERRM);
4204: */
4205: return '-1';
4206: END;
4207:
4282:
4283: l_parameterList(2) := wf_parameter_t('p_session_id', p_session_id);
4284:
4285: --Raise the event
4286: --htp.p('####NSRE-5####');--debug mputman
4287:
4288: WF_EVENT.Raise(p_event_name=>'oracle.apps.icx.security.session.created',
4289: p_event_key=>to_char(sysdate, 'HH:MI:SS'),
4290: p_parameters=>l_parameterList);
4287:
4288: WF_EVENT.Raise(p_event_name=>'oracle.apps.icx.security.session.created',
4289: p_event_key=>to_char(sysdate, 'HH:MI:SS'),
4290: p_parameters=>l_parameterList);
4291: --htp.p('####NSRE-6####');--debug mputman
4292:
4293: end;
4294:
4295: --doNewSessionEvent is a function that can be called via an event subscription to