47:
48: BEGIN
49:
50: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
51: fnd_log.string(G_LEVEL_PROCEDURE,
52: G_MODULE_NAME||l_procedure_name||''.begin'',
53: ''Beginning of procedure'');
54: END IF;
55:
58:
59: C_PRIVATE_API_2 CONSTANT VARCHAR2(32000) := '
60: --
61: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
62: fnd_log.string(G_LEVEL_PROCEDURE,
63: G_MODULE_NAME||l_procedure_name||''.end'',
64: ''End of procedure'');
65: END IF;
66:
68: WHEN others THEN
69: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
70: fnd_message.set_name(''OFA'',''FA_SHARED_ORACLE_ERR'');
71: fnd_message.set_token(''ORACLE_ERR'',SQLERRM);
72: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
73: END IF;
74: raise;
75:
76:
95: g_chr_newline CONSTANT VARCHAR2(10):= fa_cmp_string_pkg.g_chr_newline;
96:
97: g_log_level_rec fa_api_types.log_level_rec_type;
98:
99: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
100:
101: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
102: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
103: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
97: g_log_level_rec fa_api_types.log_level_rec_type;
98:
99: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
100:
101: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
102: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
103: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
104: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
105: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
98:
99: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
100:
101: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
102: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
103: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
104: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
105: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
106: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
99: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
100:
101: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
102: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
103: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
104: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
105: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
106: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
107:
100:
101: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
102: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
103: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
104: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
105: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
106: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
107:
108: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_lock_pkg.';
101: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
102: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
103: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
104: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
105: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
106: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
107:
108: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_lock_pkg.';
109:
102: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
103: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
104: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
105: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
106: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
107:
108: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_lock_pkg.';
109:
110:
119:
120: BEGIN
121:
122: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
123: fnd_log.string(G_LEVEL_PROCEDURE,
124: G_MODULE_NAME||l_procedure_name||'.begin',
125: 'Beginning of procedure');
126: END IF;
127:
186: WHEN OTHERS THEN
187: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
188: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
189: fnd_message.set_token('ORACLE_ERR',SQLERRM);
190: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
191: END IF;
192: RETURN FALSE;
193:
194: END GenerateLockingExtract;