42:
43: BEGIN
44:
45: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
46: fnd_log.string(G_LEVEL_PROCEDURE,
47: G_MODULE_NAME||l_procedure_name||''.begin'',
48: ''Beginning of procedure'');
49: END IF;
50:
56:
57: C_PRIVATE_API_2 CONSTANT VARCHAR2(32000) := '
58:
59: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
60: fnd_log.string(G_LEVEL_PROCEDURE,
61: G_MODULE_NAME||l_procedure_name||''.end'',
62: ''End of procedure'');
63: END IF;
64:
66: WHEN others THEN
67: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
68: fnd_message.set_name(''OFA'',''FA_SHARED_ORACLE_ERR'');
69: fnd_message.set_token(''ORACLE_ERR'',SQLERRM);
70: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
71: END IF;
72: raise;
73:
74: end $proc_name$;
92: g_chr_newline CONSTANT VARCHAR2(10):= fa_cmp_string_pkg.g_chr_newline;
93:
94: g_log_level_rec fa_api_types.log_level_rec_type;
95:
96: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
97:
98: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
99: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
100: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
94: g_log_level_rec fa_api_types.log_level_rec_type;
95:
96: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
97:
98: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
99: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
100: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
101: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
102: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
95:
96: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
97:
98: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
99: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
100: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
101: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
102: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
103: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
96: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
97:
98: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
99: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
100: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
101: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
102: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
103: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
104:
97:
98: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
99: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
100: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
101: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
102: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
103: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
104:
105: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_line_pkg.';
98: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
99: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
100: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
101: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
102: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
103: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
104:
105: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_line_pkg.';
106:
99: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
100: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
101: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
102: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
103: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
104:
105: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_line_pkg.';
106:
107:
123:
124: BEGIN
125:
126: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
127: fnd_log.string(G_LEVEL_PROCEDURE,
128: G_MODULE_NAME||l_procedure_name||'.begin',
129: 'Beginning of procedure');
130: END IF;
131:
262: WHEN OTHERS THEN
263: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
264: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
265: fnd_message.set_token('ORACLE_ERR',SQLERRM);
266: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
267: END IF;
268: RETURN FALSE;
269:
270: END GenerateLineExtract;