163: l_parameterList WF_PARAMETER_LIST_T;
164:
165: begin
166:
167: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
168: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE
169: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','BEGIN');
170: end if;
171: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
164:
165: begin
166:
167: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
168: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE
169: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','BEGIN');
170: end if;
171: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
167: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
168: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE
169: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','BEGIN');
170: end if;
171: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
173: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent',
174: 'userid='||NVL(p_user_id,'**NULL**')
175: ||' sessionId='||NVL(p_session_id,'**NULL*')
168: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE
169: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','BEGIN');
170: end if;
171: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
173: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent',
174: 'userid='||NVL(p_user_id,'**NULL**')
175: ||' sessionId='||NVL(p_session_id,'**NULL*')
176: );
194: begin
195: WF_EVENT.Raise(p_event_name=>'oracle.apps.icx.security.session.created',
196: p_event_key=>to_char(sysdate, 'HH:MI:SS'),
197: p_parameters=>l_parameterList);
198: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
199: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE
200: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','END');
201: end if;
202: exception
195: WF_EVENT.Raise(p_event_name=>'oracle.apps.icx.security.session.created',
196: p_event_key=>to_char(sysdate, 'HH:MI:SS'),
197: p_parameters=>l_parameterList);
198: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
199: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE
200: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','END');
201: end if;
202: exception
203: when others then
200: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','END');
201: end if;
202: exception
203: when others then
204: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
205: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED
206: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','END with errors '||sqlerrm);
207: end if;
208: null; -- allows login to continue if WF process not installed.
201: end if;
202: exception
203: when others then
204: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
205: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED
206: , 'fnd.plsql.FND_SESSION_MANAGEMENT.newSessionRaiseEvent','END with errors '||sqlerrm);
207: end if;
208: null; -- allows login to continue if WF process not installed.
209: end;
359: lm_key varchar2(40);
360: l_fixed_key varchar2(10);
361: l_module varchar2(100) := 'fnd.plsql.FND_SESSION_MANAGEMENT.createSessionPrivate';
362: begin
363: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
364: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'BEGIN');
365: end if;
366:
367: begin
360: l_fixed_key varchar2(10);
361: l_module varchar2(100) := 'fnd.plsql.FND_SESSION_MANAGEMENT.createSessionPrivate';
362: begin
363: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
364: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'BEGIN');
365: end if;
366:
367: begin
368: select node_id into l_node_id from fnd_nodes
381: fnd_profile.get_specific (name_z => 'ICX_SESSION_TIMEOUT',
382: user_id_z => p_user_id,
383: val_z => l_timeout,
384: defined_z => l_profile_defined);
385: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT , l_module||'.timeout',
387: 'timeout : ' || to_char(l_timeout) || ' User Id : ' || to_char (p_user_id));
388: end if;
389: -- end BUG 5354477
382: user_id_z => p_user_id,
383: val_z => l_timeout,
384: defined_z => l_profile_defined);
385: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT , l_module||'.timeout',
387: 'timeout : ' || to_char(l_timeout) || ' User Id : ' || to_char (p_user_id));
388: end if;
389: -- end BUG 5354477
390:
526: p_proxy_user);
527:
528: commit;
529:
530: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
531: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END');
532: end if;
533: return '0';
534: EXCEPTION WHEN OTHERS THEN
527:
528: commit;
529:
530: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
531: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END');
532: end if;
533: return '0';
534: EXCEPTION WHEN OTHERS THEN
535: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
531: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END');
532: end if;
533: return '0';
534: EXCEPTION WHEN OTHERS THEN
535: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
536: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED , l_module, 'Exception:'||sqlcode||' '||sqlerrm);
537: end if;
538: RAISE;
539: -- exception
532: end if;
533: return '0';
534: EXCEPTION WHEN OTHERS THEN
535: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
536: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED , l_module, 'Exception:'||sqlcode||' '||sqlerrm);
537: end if;
538: RAISE;
539: -- exception
540: -- when others then
562: l_module varchar2(200):= 'fnd.plsql.FND_SESSION_MANAGEMENT.createSession';
563:
564: begin
565:
566: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'BEGIN');
568: end if;
569: fnd_session_management.g_security_group_id := c_sec_grp_id;
570:
563:
564: begin
565:
566: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'BEGIN');
568: end if;
569: fnd_session_management.g_security_group_id := c_sec_grp_id;
570:
571:
580: p_proxy_user => p_proxy_user);
581: if l_message = '0'
582: then
583: newSessionRaiseEvent(p_user_id,l_session_id);
584: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END->'||l_session_id);
586: end if;
587: return l_session_id;
588: else
581: if l_message = '0'
582: then
583: newSessionRaiseEvent(p_user_id,l_session_id);
584: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END->'||l_session_id);
586: end if;
587: return l_session_id;
588: else
589: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END->'||l_session_id);
586: end if;
587: return l_session_id;
588: else
589: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END->-1(l_message=0)');
591: end if;
592: return -1;
593: end if;
586: end if;
587: return l_session_id;
588: else
589: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END->-1(l_message=0)');
591: end if;
592: return -1;
593: end if;
594:
592: return -1;
593: end if;
594:
595: EXCEPTION WHEN OTHERS THEN
596: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
597: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED , l_module, 'Exception:'||sqlcode||' '||sqlerrm);
598: end if;
599: RAISE;
600: -- exception
593: end if;
594:
595: EXCEPTION WHEN OTHERS THEN
596: if( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
597: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED , l_module, 'Exception:'||sqlcode||' '||sqlerrm);
598: end if;
599: RAISE;
600: -- exception
601: -- when others then
646: l_from_login_id NUMBER;
647: l_module varchar2(200):= 'fnd.plsql.FND_SESSION_MANAGEMENT.convertGuestSession';
648:
649: begin
650: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
651: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'BEGIN');
652: end if;
653: -- check if user exists
654: begin
647: l_module varchar2(200):= 'fnd.plsql.FND_SESSION_MANAGEMENT.convertGuestSession';
648:
649: begin
650: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
651: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'BEGIN');
652: end if;
653: -- check if user exists
654: begin
655: select user_id into l_user_id from fnd_user
658: (end_date is null or end_date>sysdate);
659: exception
660: when no_data_found then
661: rollback;
662: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
663: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> user not found');
664: end if;
665: return 'N';
666: end;
659: exception
660: when no_data_found then
661: rollback;
662: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
663: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> user not found');
664: end if;
665: return 'N';
666: end;
667: -- check if it is guest session
671: from icx_sessions
672: where xsid = p_session_id;
673: exception
674: when no_data_found then
675: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
676: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> session not found');
677: end if;
678: rollback;
679: return 'N';
672: where xsid = p_session_id;
673: exception
674: when no_data_found then
675: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
676: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> session not found');
677: end if;
678: rollback;
679: return 'N';
680: end;
679: return 'N';
680: end;
681: if (l_guest <> 'Y') then
682: rollback;
683: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
684: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> no guest session ');
685: end if;
686: return 'N';
687: end if;
680: end;
681: if (l_guest <> 'Y') then
682: rollback;
683: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
684: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> no guest session ');
685: end if;
686: return 'N';
687: end if;
688:
707:
708: if l_guest_user_id = p_user_id
709: then
710: rollback;
711: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
712: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> guest target user ');
713: end if;
714: return 'N';
715: end if;
708: if l_guest_user_id = p_user_id
709: then
710: rollback;
711: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
712: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , l_module, 'END-> guest target user ');
713: end if;
714: return 'N';
715: end if;
716:
742: end if;
743: l_profile_defined := false;
744:
745:
746: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
748: , 'fnd.plsql.FND_SESSION_MANAGEMENT.convertGuestSession.timeout'
749: , 'timeout : ' || to_char(l_timeout) || ' User Id : ' || to_char (p_user_id)
750: || ' Resp ID: ' || to_char(l_resp_id)
743: l_profile_defined := false;
744:
745:
746: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
748: , 'fnd.plsql.FND_SESSION_MANAGEMENT.convertGuestSession.timeout'
749: , 'timeout : ' || to_char(l_timeout) || ' User Id : ' || to_char (p_user_id)
750: || ' Resp ID: ' || to_char(l_resp_id)
751: || ' Resp app ID : ' || to_char(l_resp_app_id));
766: l_limit_connects,
767: l_org_id,
768: l_timeout);
769:
770: -- Bug 6010245 Guest Login is not being end dated in FND_LOGINS.
771: -- AMGONZAL.
772:
773: l_audit_level:=fnd_profile.value('SIGNONAUDIT:LEVEL');
774: if (l_audit_level is not null) and ( l_from_login_id is not null) then
1518: defined_z => l_profile_defined);
1519: if ( l_user_id = 6) then -- Guest user has special rules for timeout.
1520: l_timeout := l_session_timeout;
1521: end if;
1522: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1523: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
1524: , 'fnd.plsql.FND_SESSION_MANAGEMENT.check_session.timeout'
1525: , 'timeout : ' || to_char(l_timeout) || ' User Id : ' || to_char (l_user_id)
1526: || ' Resp ID: ' || to_char(l_resp_id)
1519: if ( l_user_id = 6) then -- Guest user has special rules for timeout.
1520: l_timeout := l_session_timeout;
1521: end if;
1522: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1523: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
1524: , 'fnd.plsql.FND_SESSION_MANAGEMENT.check_session.timeout'
1525: , 'timeout : ' || to_char(l_timeout) || ' User Id : ' || to_char (l_user_id)
1526: || ' Resp ID: ' || to_char(l_resp_id)
1527: || ' Resp app ID : ' || to_char(l_app_resp_id));
1814: application_id_z => p_application_id,
1815: val_z => l_new_timeout,
1816: defined_z => l_profile_defined);
1817:
1818: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1819: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
1820: , 'fnd.plsql.FND_SESSION_MANAGEMENT.updateSessionContext.timeout'
1821: , 'Previous timeout : ' || to_char(l_prev_timeout)
1822: || 'New Timeout ' || to_char (l_new_timeout)
1815: val_z => l_new_timeout,
1816: defined_z => l_profile_defined);
1817:
1818: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1819: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT
1820: , 'fnd.plsql.FND_SESSION_MANAGEMENT.updateSessionContext.timeout'
1821: , 'Previous timeout : ' || to_char(l_prev_timeout)
1822: || 'New Timeout ' || to_char (l_new_timeout)
1823: || ' Resp : ' || to_char(p_responsibility_id)
1934: l_login_id number;
1935:
1936: begin
1937:
1938: select fnd_logins_s.nextval
1939: into l_login_id
1940: from sys.dual;
1941:
1942: