41:
42: BEGIN
43:
44: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
45: fnd_log.string(G_LEVEL_PROCEDURE,
46: G_MODULE_NAME||l_procedure_name||''.begin'',
47: ''Beginning of procedure'');
48: END IF;
49:
51:
52: C_PRIVATE_API_2 CONSTANT VARCHAR2(32000) := '
53:
54: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
55: fnd_log.string(G_LEVEL_PROCEDURE,
56: G_MODULE_NAME||l_procedure_name,
57: ''Rows inserted into mls: '' || to_char(SQL%ROWCOUNT));
58: END IF;
59:
62:
63: C_PRIVATE_API_3 CONSTANT VARCHAR2(32000) := '
64:
65: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
66: fnd_log.string(G_LEVEL_PROCEDURE,
67: G_MODULE_NAME||l_procedure_name||''.end'',
68: ''End of procedure'');
69: END IF;
70:
72: WHEN others THEN
73: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
74: fnd_message.set_name(''OFA'',''FA_SHARED_ORACLE_ERR'');
75: fnd_message.set_token(''ORACLE_ERR'',SQLERRM);
76: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
77: END IF;
78: raise;
79:
80: end $proc_name$;
98: g_chr_newline CONSTANT VARCHAR2(10):= fa_cmp_string_pkg.g_chr_newline;
99:
100: g_log_level_rec fa_api_types.log_level_rec_type;
101:
102: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
103:
104: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
105: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
106: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
100: g_log_level_rec fa_api_types.log_level_rec_type;
101:
102: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
103:
104: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
105: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
106: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
107: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
108: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
101:
102: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
103:
104: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
105: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
106: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
107: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
108: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
109: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
102: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
103:
104: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
105: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
106: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
107: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
108: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
109: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
110:
103:
104: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
105: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
106: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
107: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
108: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
109: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
110:
111: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_line_pkg.';
104: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
105: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
106: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
107: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
108: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
109: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
110:
111: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_line_pkg.';
112:
105: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
106: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
107: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
108: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
109: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
110:
111: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_line_pkg.';
112:
113:
126:
127: BEGIN
128:
129: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
130: fnd_log.string(G_LEVEL_PROCEDURE,
131: G_MODULE_NAME||l_procedure_name||'.begin',
132: 'Beginning of procedure');
133: END IF;
134:
195: WHEN OTHERS THEN
196: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
197: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
198: fnd_message.set_token('ORACLE_ERR',SQLERRM);
199: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
200: END IF;
201: RETURN FALSE;
202:
203: END GenerateMlsExtract;