98: l_user varchar2(30);
99: l_ret varchar2(1);
100: begin
101: l_dev_mode := FND_PROFILE.VALUE ('FND_DEVELOPER_MODE');
102: l_conc_id := FND_GLOBAL.CONC_REQUEST_ID;
103: select osuser
104: into l_user
105: from v$session
106: where audsid = USERENV('SESSIONID');
151: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME',p_procedure);
152: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',substr(SQLERRM, 1, 1000));
153:
154: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL and
155: fnd_global.conc_request_id = -1) then
156: FND_LOG.MESSAGE (FND_LOG.LEVEL_EXCEPTION,
157: 'zpb.plsql.'||p_module||'.'||p_procedure,
158: p_pop_message);
159: end if;
197: is
198: l_user varchar2(30);
199: begin
200: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
201: if (fnd_global.conc_request_id = -1) then
202: FND_LOG.STRING (FND_LOG.LEVEL_PROCEDURE,
203: 'zpb.plsql.'||MODULE,
204: MESSAGE);
205: else
255: TOKEN_5_NAME,
256: TOKEN_5_VALUE);
257: end if;
258: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
259: if (fnd_global.conc_request_id = -1) then
260: FND_LOG.MESSAGE (FND_LOG.LEVEL_ERROR,
261: 'zpb.plsql.'||MODULE,
262: POP_MESSAGE);
263: else
286: is
287: l_user varchar2(30);
288: begin
289: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
290: if (fnd_global.conc_request_id = -1) then
291: FND_LOG.STRING (FND_LOG.LEVEL_EVENT,
292: 'zpb.plsql.'||MODULE,
293: MESSAGE);
294: else
347: TOKEN_5_NAME,
348: TOKEN_5_VALUE);
349: end if;
350: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
351: if (fnd_global.conc_request_id = -1) then
352: FND_LOG.MESSAGE (FND_LOG.LEVEL_EVENT,
353: 'zpb.plsql.'||MODULE,
354: POP_MESSAGE);
355: else
377: MESSAGE in VARCHAR2)
378: is
379: begin
380: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
381: if (fnd_global.conc_request_id = -1) then
382: FND_LOG.STRING (FND_LOG.LEVEL_EXCEPTION,
383: 'zpb.plsql.'||MODULE,
384: MESSAGE);
385: else
437: TOKEN_5_NAME,
438: TOKEN_5_VALUE);
439: end if;
440: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
441: if (fnd_global.conc_request_id = -1) then
442: FND_LOG.MESSAGE (FND_LOG.LEVEL_EXCEPTION,
443: 'zpb.plsql.'||MODULE,
444: POP_MESSAGE);
445: else
471:
472: begin
473:
474: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
475: if (fnd_global.conc_request_id = -1) then
476: FND_LOG.STRING (FND_LOG.LEVEL_STATEMENT,
477: 'zpb.plsql.'||MODULE,
478: MESSAGE);
479: else
529: TOKEN_5_NAME,
530: TOKEN_5_VALUE);
531: end if;
532: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
533: if (fnd_global.conc_request_id = -1) then
534: FND_LOG.MESSAGE (FND_LOG.LEVEL_UNEXPECTED,
535: 'zpb.plsql.'||MODULE,
536: POP_MESSAGE);
537: else