118:
119: -------------------------------------------------------------------------------
120: -- GET_LOGGING_LEVEL
121: --
122: -- Returns the logging level. Same as FND_LOG.G_CURRENT_RUNTIME_LEVEL, but
123: -- placed in a function for use in AW's
124: -------------------------------------------------------------------------------
125: function GET_LOGGING_LEVEL return number
126: is
124: -------------------------------------------------------------------------------
125: function GET_LOGGING_LEVEL return number
126: is
127: begin
128: return FND_LOG.G_CURRENT_RUNTIME_LEVEL;
129: end GET_LOGGING_LEVEL;
130:
131: -------------------------------------------------------------------------------
132: -- LOG_PLSQL_EXCEPTION
142: procedure LOG_PLSQL_EXCEPTION (p_module in VARCHAR2,
143: p_procedure in VARCHAR2,
144: p_pop_message in BOOLEAN) is
145: begin
146: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL or
147: not p_pop_message) then
148:
149: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
150: FND_MESSAGE.SET_TOKEN('PKG_NAME',p_module);
150: FND_MESSAGE.SET_TOKEN('PKG_NAME',p_module);
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);
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;
160: end if;
196: MESSAGE in VARCHAR2)
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);
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
206: FND_FILE.PUT_LINE (FND_FILE.LOG,
240: POP_MESSAGE in BOOLEAN)
241: is
242: l_user varchar2(30);
243: begin
244: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL or
245: not pop_message) then
246: BUILD_MESSAGE (MESSAGE_NAME,
247: TOKEN_1_NAME,
248: TOKEN_1_VALUE,
254: TOKEN_4_VALUE,
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);
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
264: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET);
285: MESSAGE in VARCHAR2)
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);
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
295: FND_FILE.PUT_LINE (FND_FILE.LOG,
332: is
333: l_user varchar2(30);
334: begin
335:
336: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL or
337: not pop_message) then
338: BUILD_MESSAGE (MESSAGE_NAME,
339: TOKEN_1_NAME,
340: TOKEN_1_VALUE,
346: TOKEN_4_VALUE,
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);
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
356: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET);
376: procedure WRITE_EXCEPTION_UNTR (MODULE in VARCHAR2,
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);
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
386: FND_FILE.PUT_LINE (FND_FILE.LOG,
422: POP_MESSAGE in BOOLEAN)
423: is
424: l_user varchar2(30);
425: begin
426: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL or
427: not pop_message) then
428: BUILD_MESSAGE (MESSAGE_NAME,
429: TOKEN_1_NAME,
430: TOKEN_1_VALUE,
436: TOKEN_4_VALUE,
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);
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
446: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET);
470: l_user varchar2(30);
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);
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
480: FND_FILE.PUT_LINE (FND_FILE.LOG,
514: POP_MESSAGE in BOOLEAN)
515: is
516: l_user varchar2(30);
517: begin
518: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL or
519: not pop_message) then
520: BUILD_MESSAGE (MESSAGE_NAME,
521: TOKEN_1_NAME,
522: TOKEN_1_VALUE,
528: TOKEN_4_VALUE,
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);
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
538: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET);