30: --=============================================================================
31: -- *********** Local Trace Routine **********
32: --=============================================================================
33:
34: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
35:
36: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
37: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
38: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
32: --=============================================================================
33:
34: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
35:
36: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
37: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
38: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
39: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
40: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33:
34: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
35:
36: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
37: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
38: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
39: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
40: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
41: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
35:
36: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
37: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
38: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
39: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
40: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
41: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
42:
35:
36: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
37: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
38: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
39: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
40: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
41: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
42:
43: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_cmp_string_pkg';
36: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
37: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
38: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
39: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
40: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
41: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
42:
43: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_cmp_string_pkg';
44:
37: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
38: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
39: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
40: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
41: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
42:
43: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_cmp_string_pkg';
44:
45: --+==========================================================================+
59:
60: BEGIN
61:
62: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
63: fnd_log.string(G_LEVEL_PROCEDURE,
64: G_MODULE_NAME||l_procedure_name||'.begin',
65: 'Beginning of procedure');
66: END IF;
67:
66: END IF;
67:
68:
69: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
70: fnd_log.string(G_LEVEL_STATEMENT,
71: G_MODULE_NAME||l_procedure_name,
72: 'LENGTH string 1 = '||p_array_string_1.COUNT);
73: fnd_log.string(G_LEVEL_STATEMENT,
74: G_MODULE_NAME||l_procedure_name,
69: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
70: fnd_log.string(G_LEVEL_STATEMENT,
71: G_MODULE_NAME||l_procedure_name,
72: 'LENGTH string 1 = '||p_array_string_1.COUNT);
73: fnd_log.string(G_LEVEL_STATEMENT,
74: G_MODULE_NAME||l_procedure_name,
75: 'LENGTH string 2 = '||p_array_string_2.COUNT);
76: END IF;
77:
94:
95: END IF;
96:
97: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
98: fnd_log.string(G_LEVEL_STATEMENT,
99: G_MODULE_NAME||l_procedure_name,
100: 'LENGTH result = '||l_array_string.COUNT);
101: END IF;
102:
100: 'LENGTH result = '||l_array_string.COUNT);
101: END IF;
102:
103: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
104: fnd_log.string(G_LEVEL_PROCEDURE,
105: G_MODULE_NAME||l_procedure_name||'.end',
106: 'End of procedure');
107: END IF;
108:
112: WHEN OTHERS THEN
113: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
114: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
115: fnd_message.set_token('ORACLE_ERR',SQLERRM);
116: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
117: END IF;
118: raise;
119:
120: END ConcatTwoStrings;
156:
157: BEGIN
158:
159: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
160: fnd_log.string(G_LEVEL_PROCEDURE,
161: G_MODULE_NAME||l_procedure_name||'.begin',
162: 'Beginning of procedure');
163: END IF;
164:
170: l_Space := FALSE;
171: l_Idx := 0;
172:
173: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
174: fnd_log.string(G_LEVEL_STATEMENT,
175: G_MODULE_NAME||l_procedure_name,
176: 'Begin looping....');
177: END IF;
178:
232:
233: p_array_string := l_array_string;
234:
235: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
236: fnd_log.string(G_LEVEL_PROCEDURE,
237: G_MODULE_NAME||l_procedure_name||'.end',
238: 'End of procedure');
239: END IF;
240:
257:
258: BEGIN
259:
260: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
261: fnd_log.string(G_LEVEL_PROCEDURE,
262: G_MODULE_NAME||l_procedure_name||'.begin',
263: 'Beginning of procedure');
264: END IF;
265:
285:
286: p_array_string := l_array_string;
287:
288: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
289: fnd_log.string(G_LEVEL_PROCEDURE,
290: G_MODULE_NAME||l_procedure_name||'.end',
291: 'End of procedure');
292: END IF;
293:
296: WHEN OTHERS THEN
297: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
298: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
299: fnd_message.set_token('ORACLE_ERR',SQLERRM);
300: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
301: END IF;
302: raise;
303:
304: END AddNewLine;
333:
334: BEGIN
335:
336: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
337: fnd_log.string(G_LEVEL_PROCEDURE,
338: G_MODULE_NAME||l_procedure_name||'.begin',
339: 'Beginning of procedure');
340: END IF;
341:
413:
414: p_package_text := l_Output;
415:
416: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
417: fnd_log.string(G_LEVEL_PROCEDURE,
418: G_MODULE_NAME||l_procedure_name||'.end',
419: 'End of procedure');
420: END IF;
421:
423: WHEN OTHERS THEN
424: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
425: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
426: fnd_message.set_token('ORACLE_ERR',SQLERRM);
427: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
428: END IF;
429: raise;
430:
431: END truncate_lines;
443:
444: BEGIN
445:
446: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
447: fnd_log.string(G_LEVEL_PROCEDURE,
448: G_MODULE_NAME||l_procedure_name||'.begin',
449: 'Beginning of procedure');
450: END IF;
451:
455:
456: IF p_array_output_string.EXISTS(Idx) THEN
457:
458: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
459: fnd_log.string(G_LEVEL_STATEMENT,
460: G_MODULE_NAME||l_procedure_name,
461: RPAD(Idx,10,' ')||' '||p_array_output_string(Idx));
462: END IF;
463:
467:
468: END IF;
469:
470: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
471: fnd_log.string(G_LEVEL_PROCEDURE,
472: G_MODULE_NAME||l_procedure_name||'.end',
473: 'End of procedure');
474: END IF;
475:
477: WHEN OTHERS THEN
478: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
479: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
480: fnd_message.set_token('ORACLE_ERR',SQLERRM);
481: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
482: END IF;
483: raise;
484:
485:
502:
503: BEGIN
504:
505: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
506: fnd_log.string(G_LEVEL_PROCEDURE,
507: G_MODULE_NAME||l_procedure_name||'.begin',
508: 'Beginning of procedure');
509: END IF;
510:
532: ,p_replacement_text);
533: END IF;
534:
535: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
536: fnd_log.string(G_LEVEL_PROCEDURE,
537: G_MODULE_NAME||l_procedure_name||'.end',
538: 'End of procedure');
539: END IF;
540:
544: WHEN OTHERS THEN
545: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
546: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
547: fnd_message.set_token('ORACLE_ERR',SQLERRM);
548: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
549: END IF;
550: raise;
551:
552: END replace_token;
567:
568: BEGIN
569:
570: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
571: fnd_log.string(G_LEVEL_PROCEDURE,
572: G_MODULE_NAME||l_procedure_name||'.begin',
573: 'Beginning of procedure');
574: END IF;
575:
659: END IF;
660: END LOOP;
661:
662: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
663: fnd_log.string(G_LEVEL_PROCEDURE,
664: G_MODULE_NAME||l_procedure_name||'.end',
665: 'End of procedure');
666: END IF;
667:
669: WHEN OTHERS THEN
670: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
671: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
672: fnd_message.set_token('ORACLE_ERR',SQLERRM);
673: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
674: END IF;
675: raise;
676:
677: END clob_to_varchar2s;