[Home] [Help]
PACKAGE BODY: APPS.FA_XLA_CMP_ACCOUNTING_PKG
Source
1 PACKAGE BODY fa_xla_cmp_accounting_pkg AS
2 /* $Header: faxlacab.pls 120.0 2006/03/06 22:23:10 bridgway noship $ */
3 /*===========================================================================+
4 | Copyright (c) 2001-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +============================================================================+
8 | PACKAGE NAME |
9 | fa_xla_cmp_extract_deprn_pkg |
10 | |
11 | DESCRIPTION |
12 | This is a FA private package, which contains all the APIs required |
13 | for XLA extract package body generation |
14 | |
15 | |
16 | HISTORY |
17 | 25-FEB-2006 BRIDGWAY Created |
18 | |
19 +===========================================================================*/
20
21
22 G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
23
24 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
30
31 G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_accounting_pkg.';
32
33
34 --+==========================================================================+
35 --| PUBLIC procedure |
36 --| Compile |
37 --| DESCRIPTION : generates the PL/SQL packages from the Product Accounting |
38 --| definition. |
39 --| |
40 --| RETURNS |
41 --| 1. l_IsCompiled : BOOLEAN, TRUE if Extract package have |
42 --| been successfully created, FALSE otherwise. |
43 --| |
44 --| |
45 --+==========================================================================+
46
47 PROCEDURE Compile IS
48
49 PRAGMA AUTONOMOUS_TRANSACTION;
50 l_IsCompiled BOOLEAN;
51 l_procedure_name varchar2(80) := 'Compile';
52
53 error_found exception;
54
55 BEGIN
56
57 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
58 fnd_log.string(G_LEVEL_PROCEDURE,
59 G_MODULE_NAME||l_procedure_name||'.begin',
60 'Beginning of procedure');
61 END IF;
62
63 l_IsCompiled := fa_xla_cmp_extract_pkg.Compile;
64
65 IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
66 fnd_log.string(G_LEVEL_STATEMENT,
67 G_MODULE_NAME||l_procedure_name,
68 'return value. = '||
69 CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
70 END IF;
71
72 if not l_IsCompiled then
73 raise error_found;
74 end if;
75
76 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
77 fnd_log.string(G_LEVEL_PROCEDURE,
78 G_MODULE_NAME||l_procedure_name||'.end',
79 'End of procedure');
80 END IF;
81
82 EXCEPTION
83 WHEN error_found THEN
84 raise;
85
86 WHEN OTHERS THEN
87 IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
88 fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
89 fnd_message.set_token('ORACLE_ERR',SQLERRM);
90 FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
91 END IF;
92
93 END Compile;
94
95 --=============================================================================
96
97 END fa_xla_cmp_accounting_pkg;