[Home] [Help]
191:
192: --Raise the event
193:
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
214: --disable all other sessions for the user_id except the session_id
215: --(user_id and session_id are retrieved from the p_evtMsg type).
216: --mputman 1513025
217: function doNewSessionEvent(p_guid in raw,
218: p_evtMsg in out NOCOPY wf_event_t)
219: return varchar2 is
220:
221: l_user_id VARCHAR2(80);
222: l_user_name VARCHAR2(240);
237: WHERE user_id=l_user_id;
238: EXCEPTION
239: WHEN OTHERS THEN
240: WF_CORE.CONTEXT('fnd_session_management', 'doNewSessionEvent',p_evtMsg.getEventName( ), p_guid);
241: WF_EVENT.setErrorInfo(p_evtMsg, 'ERROR');
242: return 'ERROR';
243: END;
244:
245: BEGIN
244:
245: BEGIN
246: SELECT substrb(parameters,(instrb(parameters,'=',1)+1))
247: INTO l_except_ids
248: FROM wf_event_subscriptions
249: WHERE guid=p_guid;
250: EXCEPTION
251: WHEN no_data_found THEN
252: WF_CORE.CONTEXT('fnd_session_management', 'doNewSessionEvent',p_evtMsg.getEventName( ), p_guid);
249: WHERE guid=p_guid;
250: EXCEPTION
251: WHEN no_data_found THEN
252: WF_CORE.CONTEXT('fnd_session_management', 'doNewSessionEvent',p_evtMsg.getEventName( ), p_guid);
253: WF_EVENT.setErrorInfo(p_evtMsg, 'ERROR');
254: return 'ERROR';
255: END;
256:
257: IF (instrb((nvl(l_except_ids,' ')),l_user_name) = 0)
264: COMMIT;
265: EXCEPTION
266: WHEN OTHERS THEN
267: WF_CORE.CONTEXT('fnd_session_management', 'doNewSessionEvent',p_evtMsg.getEventName( ), p_guid);
268: WF_EVENT.setErrorInfo(p_evtMsg, 'ERROR');
269: return 'ERROR';
270: END;
271: NULL;
272: END IF;