[Home] [Help]
203:
204: --Raise the event
205:
206: begin
207: WF_EVENT.Raise(p_event_name=>'oracle.apps.icx.security.session.created',
208: p_event_key=>to_char(sysdate, 'HH:MI:SS'),
209: p_parameters=>l_parameterList);
210: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE
226: --disable all other sessions for the user_id except the session_id
227: --(user_id and session_id are retrieved from the p_evtMsg type).
228: --mputman 1513025
229: function doNewSessionEvent(p_guid in raw,
230: p_evtMsg in out NOCOPY wf_event_t)
231: return varchar2 is
232:
233: l_user_id VARCHAR2(80);
234: l_user_name VARCHAR2(240);
263: WHERE user_id=l_user_id;
264: EXCEPTION
265: WHEN OTHERS THEN
266: WF_CORE.CONTEXT('fnd_session_management', 'doNewSessionEvent',p_evtMsg.getEventName( ), p_guid);
267: WF_EVENT.setErrorInfo(p_evtMsg, 'ERROR');
268: return 'ERROR';
269: END;
270:
271: BEGIN
270:
271: BEGIN
272: SELECT substrb(parameters,(instrb(parameters,'=',1)+1))
273: INTO l_except_ids
274: FROM wf_event_subscriptions
275: WHERE guid=p_guid;
276:
277: EXCEPTION
278: WHEN no_data_found THEN
276:
277: EXCEPTION
278: WHEN no_data_found THEN
279: WF_CORE.CONTEXT('fnd_session_management', 'doNewSessionEvent',p_evtMsg.getEventName( ), p_guid);
280: WF_EVENT.setErrorInfo(p_evtMsg, 'ERROR');
281: return 'ERROR';
282: END;
283:
284: IF (instrb((nvl(l_except_ids,' ')),l_user_name) = 0)
305:
306: EXCEPTION
307: WHEN OTHERS THEN
308: WF_CORE.CONTEXT('fnd_session_management', 'doNewSessionEvent',p_evtMsg.getEventName( ), p_guid);
309: WF_EVENT.setErrorInfo(p_evtMsg, 'ERROR');
310: return 'ERROR';
311: END;
312: NULL;
313: END IF;