1: PACKAGE BODY fa_xla_accounting_main_pkg AS
2: /* $Header: FAXLAXMB.pls 120.10.12010000.1 2008/07/28 13:19:52 appldev ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2: /* $Header: FAXLAXMB.pls 120.10.12010000.1 2008/07/28 13:19:52 appldev ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
5:
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
13: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_accounting_main_pkg.';
6: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
13: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_accounting_main_pkg.';
14:
7: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12:
13: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_accounting_main_pkg.';
14:
15:
62: WHEN OTHERS THEN
63: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
64: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
65: fnd_message.set_token('ORACLE_ERR',SQLERRM);
66: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
67: END IF;
68: raise;
69:
70: END preaccounting;
86: BEGIN
87:
88: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
89:
90: fnd_log.string(G_LEVEL_PROCEDURE,
91: G_MODULE_NAME||l_procedure_name||'.begin',
92: 'Beginning of procedure');
93:
94: END IF;
105: END IF;
106:
107: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
108:
109: fnd_log.string(G_LEVEL_PROCEDURE,
110: G_MODULE_NAME||l_procedure_name||'.end',
111: 'End of procedure');
112:
113: END IF;
117: WHEN OTHERS THEN
118: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
119: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
120: fnd_message.set_token('ORACLE_ERR',SQLERRM);
121: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
122: END IF;
123: raise;
124:
125: END extract;
160: WHEN OTHERS THEN
161: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
162: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
163: fnd_message.set_token('ORACLE_ERR',SQLERRM);
164: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
165: END IF;
166: raise;
167:
168: