[Home] [Help]
PACKAGE BODY: APPS.XLA_FA_EXTRACT_PKG
Source
1 PACKAGE BODY xla_fa_extract_pkg AS
2 -- $Header: xlafaext.pkb 120.2 2006/03/17 21:26:52 svjoshi noship $
3 /*===========================================================================+
4 | Copyright (c) 2003 Oracle Corporation BelmFont, California, USA |
5 | ALL rights reserved. |
6 +============================================================================+
7 | PACKAGE NAME |
8 | xla_fa_extract_pkg |
9 | |
10 | DESCRIPTION |
11 | SLA wrapper package for FA dynamic extract. |
12 | |
13 | HISTORY |
14 | 03/06/2006 Shishir Joshi Created |
15 | |
16 +===========================================================================*/
17
18 --=============================================================================
19 -- *********** Local Trace Routine **********
20 --=============================================================================
21 C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
22 C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
23 C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24 C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
25 C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
26 C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
27
28 C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
29 C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_fa_extract_pkg';
30
31 g_log_level NUMBER;
32 g_log_enabled BOOLEAN;
33
34 PROCEDURE trace (p_msg IN VARCHAR2
35 ,p_level IN NUMBER
36 ,p_module IN VARCHAR2) IS
37 BEGIN
38
39 IF (p_msg IS NULL AND p_level >= g_log_level) THEN
40 fnd_log.message(p_level, p_module);
41 ELSIF p_level >= g_log_level THEN
42 fnd_log.string(p_level, p_module, p_msg);
43 END IF;
44 EXCEPTION
45 WHEN xla_exceptions_pkg.application_exception THEN
46 RAISE;
47 WHEN OTHERS THEN
48 xla_exceptions_pkg.raise_message
49 (p_location => 'xla_fa_extract_pkg.trace');
50 END trace;
51
52
53 PROCEDURE COMPILE
54 (p_application_id IN INTEGER
55 ,p_amb_context_code IN VARCHAR2
56 ,p_product_rule_type_code IN VARCHAR2
57 ,p_product_rule_code IN VARCHAR2) IS
58 l_log_module VARCHAR2(240);
59 l_sqlerrm VARCHAR2(2000);
60 BEGIN
61 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
62 trace
63 (p_msg => 'BEGIN of procedure Compile'
64 ,p_level => C_LEVEL_PROCEDURE
65 ,p_module => l_log_module);
66 END IF;
67
68 -- Call Product API
69 IF p_application_id = 140 THEN
70 xla_utility_pkg.print_logfile
71 ('Calling fa_xla_cmp_accounting_pkg');
72 fa_xla_cmp_accounting_pkg.compile;
73 END IF;
74
75 --
76
77 EXCEPTION
78 WHEN OTHERS THEN
79 l_sqlerrm := sqlerrm;
80
81 IF (C_LEVEL_EXCEPTION>= g_log_level) THEN
82 trace
83 (p_msg => 'Technical problem : Error encountered in fa_xla_cmp_accounting_pkg '||
84 xla_environment_pkg.g_chr_newline||l_sqlerrm
85 ,p_level => C_LEVEL_EXCEPTION
86 ,p_module => l_log_module);
87 END IF;
88 xla_utility_pkg.print_logfile('Technical problem: Error encountered in product API fa_xla_cmp_accounting_pkg' || l_sqlerrm);
89 RAISE;
90 END Compile;
91
92
93 BEGIN
94 -- l_log_module := C_DEFAULT_MODULE;
95 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
96 g_log_enabled := fnd_log.test
97 (log_level => g_log_level
98 ,module => C_DEFAULT_MODULE);
99
100 IF NOT g_log_enabled THEN
101 g_log_level := C_LEVEL_LOG_DISABLED;
102 END IF;
103
104 END xla_fa_extract_pkg; -- end of package spec.