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: -- ***********************************************
3395: end if;
3396:
3397: exception
3398: when others then
3399: -- htp.p(SQLERRM);
3400: htp.p(dbms_utility.format_error_stack);
3401: end;
3402:
3403: function getsessioncookie(p_ticket in varchar2) return number is
3396:
3397: exception
3398: when others then
3399: -- htp.p(SQLERRM);
3400: htp.p(dbms_utility.format_error_stack);
3401: end;
3402:
3403: function getsessioncookie(p_ticket in varchar2) return number is
3404:
3458: return l_session_id;
3459:
3460: exception
3461: when others then
3462: -- htp.p(SQLERRM);
3463: htp.p(dbms_utility.format_error_stack);
3464: return -1;
3465: end;
3466:
3459:
3460: exception
3461: when others then
3462: -- htp.p(SQLERRM);
3463: htp.p(dbms_utility.format_error_stack);
3464: return -1;
3465: end;
3466:
3467: -- ***********************************************
3490: return l_session_cookie_name;
3491:
3492: exception
3493: when others then
3494: htp.p(SQLERRM);
3495: return -1;
3496: end;
3497:
3498: -- ***********************************************
3549: return l_session_cookie_domain;
3550:
3551: exception
3552: when others then
3553: -- htp.p(SQLERRM);
3554: htp.p(dbms_utility.format_error_stack);
3555: return -1;
3556:
3557:
3550:
3551: exception
3552: when others then
3553: -- htp.p(SQLERRM);
3554: htp.p(dbms_utility.format_error_stack);
3555: return -1;
3556:
3557:
3558: end;
3973:
3974: exception
3975: when others then
3976: -- return SQLERRM;
3977: htp.p(dbms_utility.format_error_stack);
3978:
3979: end;
3980:
3981: -- added for 1574527 mputman
4022: COMMIT;
4023:
4024: EXCEPTION
4025: WHEN OTHERS THEN
4026: -- htp.p(SQLERRM);
4027: htp.p(dbms_utility.format_error_stack);
4028:
4029: END;
4030:
4023:
4024: EXCEPTION
4025: WHEN OTHERS THEN
4026: -- htp.p(SQLERRM);
4027: htp.p(dbms_utility.format_error_stack);
4028:
4029: END;
4030:
4031:
4125:
4126: owa_util.mime_header('text/html', FALSE);
4127: sendsessioncookie(l_session_id);
4128: owa_util.http_header_close;
4129: --htp.p('testing????');
4130: RETURN 1;
4131:
4132: else
4133: raise e_account_expired;
4196: OracleApps.displayLogin(c_error_msg||' '||c_login_msg,'IC','Y');
4197: end if;
4198: /*
4199: when others then
4200: htp.p(SQLERRM);
4201: */
4202: return '-1';
4203: END;
4204:
4279:
4280: l_parameterList(2) := wf_parameter_t('p_session_id', p_session_id);
4281:
4282: --Raise the event
4283: --htp.p('####NSRE-5####');--debug mputman
4284:
4285: WF_EVENT.Raise(p_event_name=>'oracle.apps.icx.security.session.created',
4286: p_event_key=>to_char(sysdate, 'HH:MI:SS'),
4287: p_parameters=>l_parameterList);
4284:
4285: WF_EVENT.Raise(p_event_name=>'oracle.apps.icx.security.session.created',
4286: p_event_key=>to_char(sysdate, 'HH:MI:SS'),
4287: p_parameters=>l_parameterList);
4288: --htp.p('####NSRE-6####');--debug mputman
4289:
4290: end;
4291:
4292: --doNewSessionEvent is a function that can be called via an event subscription to