[Home] [Help]
PACKAGE BODY: APPS.XLA_TAB_PUB_PKG
Source
1 PACKAGE BODY xla_tab_pub_pkg AS
2 /* $Header: xlatbpub.pkb 120.1 2005/04/28 18:45:43 masada ship $ */
3 /*======================================================================+
4 | Copyright (c) 1995-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +=======================================================================+
8 | PACKAGE NAME |
9 | xla_tab_pub_pkg |
10 | |
11 | DESCRIPTION |
12 | Transaction Account Builder API Compiler |
13 | |
14 | HISTORY |
15 | |
16 | 27-AUG-02 A. Quaglia Created |
17 | |
18 +======================================================================*/
19
20
21 --=============================================================================
22 -- *********** Local Trace Routine **********
23 --=============================================================================
24 C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25 C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26 C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27 C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28 C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29 C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
30
31 C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
32 C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_tab_pub_pkg';
33
34 g_log_level NUMBER;
35 g_log_enabled BOOLEAN;
36
37 --1-STATEMENT, 2-PROCEDURE, 3-EVENT, 4-EXCEPTION, 5-ERROR, 6-UNEXPECTED
38
39 PROCEDURE trace
40 ( p_module IN VARCHAR2 DEFAULT C_DEFAULT_MODULE
41 ,p_msg IN VARCHAR2
42 ,p_level IN NUMBER
43 ) IS
44 BEGIN
45 IF (p_msg IS NULL AND p_level >= g_log_level) THEN
46 fnd_log.message(p_level, p_module);
47 ELSIF p_level >= g_log_level THEN
48 fnd_log.string(p_level, p_module, p_msg);
49 END IF;
50
51 EXCEPTION
52 WHEN xla_exceptions_pkg.application_exception THEN
53 RAISE;
54 WHEN OTHERS THEN
55 xla_exceptions_pkg.raise_message
56 (p_location => 'xla_tab_pub_pkg.trace');
57 END trace;
58
59 /*======================================================================+
60 | |
61 | Private Function |
62 | |
63 | run |
64 | |
65 | |
66 | |
67 | |
68 +======================================================================*/
69 PROCEDURE run
70 (
71 p_api_version IN NUMBER
72 ,p_application_id IN NUMBER
73 ,p_account_definition_type_code IN VARCHAR2
74 ,p_account_definition_code IN VARCHAR2
75 ,p_transaction_coa_id IN NUMBER
76 ,p_mode IN VARCHAR2
77 ,x_return_status OUT NOCOPY VARCHAR2
78 ,x_msg_count OUT NOCOPY NUMBER
79 ,x_msg_data OUT NOCOPY VARCHAR2
80 )
81 IS
82 l_return_status VARCHAR2(1);
83 l_msg_count NUMBER;
84 l_msg_data VARCHAR2(2000);
85
86 l_log_module VARCHAR2 (2000);
87 BEGIN
88 IF g_log_enabled THEN
89 l_log_module := C_DEFAULT_MODULE||'.run';
90 END IF;
91
92 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
93 trace
94 (p_module => l_log_module
95 ,p_msg => 'BEGIN ' || l_log_module
96 ,p_level => C_LEVEL_PROCEDURE);
97 END IF;
98
99 xla_tab_pkg.run
100 (
101 p_api_version => p_api_version
102 ,p_application_id => p_application_id
103 ,p_account_definition_type_code => p_account_definition_type_code
104 ,p_account_definition_code => p_account_definition_code
105 ,p_transaction_coa_id => p_transaction_coa_id
106 ,p_mode => p_mode
107 ,x_return_status => l_return_status
108 ,x_msg_count => l_msg_count
109 ,x_msg_data => l_msg_data
110 );
111
112 --Assign out parameters
113 x_msg_count := l_msg_count;
114 x_msg_data := l_msg_data;
115 x_return_status := l_return_status;
116
117 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
118 trace
119 (p_module => l_log_module
120 ,p_msg => 'END ' || l_log_module
121 ,p_level => C_LEVEL_PROCEDURE);
122 END IF;
123
124 EXCEPTION
125 WHEN xla_exceptions_pkg.application_exception
126 THEN
127 RAISE;
128 WHEN OTHERS
129 THEN
130 xla_exceptions_pkg.raise_message
131 (p_location => 'xla_tab_pub_pkg.run');
132
133 END run;
134
135
136
137
138 --Trace initialization
139 BEGIN
140 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
141 g_log_enabled := fnd_log.test
142 (log_level => g_log_level
143 ,module => C_DEFAULT_MODULE);
144
145 IF NOT g_log_enabled THEN
146 g_log_level := C_LEVEL_LOG_DISABLED;
147 END IF;
148
149 END xla_tab_pub_pkg;