[Home] [Help]
PACKAGE BODY: APPS.XLA_TB_BALANCE_PUB
Source
1 PACKAGE BODY XLA_TB_BALANCE_PUB AS
2 /* $Header: xlatbblp.pkb 120.2 2008/03/03 11:19:30 samejain ship $ */
3 /*======================================================================+
4 | Copyright (c) 2000-2001 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +=======================================================================+
8 | PACKAGE NAME |
9 | xla_tb_balance_pub |
10 | |
11 | DESCRIPTION |
12 | XLA Trial Balance Upgrade API (Public) |
13 | |
14 | HISTORY |
15 | 21-Dec-05 M.Asada Created |
16 | |
17 +======================================================================*/
18
19 --=============================================================================
20 -- *********** Public API Standard Constants **********
21 --=============================================================================
22 G_PKG_NAME CONSTANT VARCHAR2(30):='xla_tb_balance_pkg';
23
24
25 --=============================================================================
26 -- *********** Local Trace Routine **********
27 --=============================================================================
28 C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
29 C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
30 C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
31 C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
32 C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33 C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34
35 C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
36 C_DEFAULT_MODULE CONSTANT VARCHAR2(240)
37 := 'xla.plsql.xla_tb_balance_pub';
38
39 g_log_level NUMBER;
40 g_log_enabled BOOLEAN;
41
42 PROCEDURE trace
43 (p_msg IN VARCHAR2
44 ,p_level IN NUMBER
45 ,p_module IN VARCHAR2 DEFAULT C_DEFAULT_MODULE) IS
46 BEGIN
47 IF (p_msg IS NULL AND p_level >= g_log_level) THEN
48 fnd_log.message(p_level, p_module);
49 ELSIF p_level >= g_log_level THEN
50 fnd_log.string(p_level, p_module, p_msg);
51 END IF;
52
53 EXCEPTION
54 WHEN xla_exceptions_pkg.application_exception THEN
55 RAISE;
56 WHEN OTHERS THEN
57 xla_exceptions_pkg.raise_message
58 (p_location => 'xla_tb_balance_pub.trace');
59 END trace;
60
61 --============================================================================
62 --
63 --
64 --
65 --============================================================================
66
67 PROCEDURE upload_balances
68 (p_api_version IN NUMBER
69 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
70 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
71 ,x_return_status OUT NOCOPY VARCHAR2
72 ,x_msg_count OUT NOCOPY NUMBER
73 ,x_msg_data OUT NOCOPY VARCHAR2
74 ,p_definition_code IN VARCHAR2
75 ,p_definition_name IN VARCHAR2
76 ,p_definition_desc IN VARCHAR2
77 ,p_ledger_id IN NUMBER
78 ,p_balance_side_code IN VARCHAR2
79 ,p_je_source_name IN VARCHAR2
80 ,p_gl_date_from IN DATE
81 ,p_gl_date_to IN DATE
82 ,p_mode IN VARCHAR2
83 )
84 IS
85
86 l_api_name CONSTANT VARCHAR2(30) := 'upload_balances';
87 l_api_version CONSTANT NUMBER := 1.0;
88
89 l_log_module VARCHAR2(240);
90
91 BEGIN
92
93 IF g_log_enabled THEN
94 l_log_module := C_DEFAULT_MODULE||'.upload_balances';
95 END IF;
96
97 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
98 trace
99 (p_msg => 'BEGIN of procedure upload_balances'
100 ,p_level => C_LEVEL_PROCEDURE
101 ,p_module => l_log_module);
102 END IF;
103
104 SAVEPOINT Upload_Balances;
105
106 IF NOT FND_API.Compatible_API_Call
107 (p_current_version_number => l_api_version
108 ,p_caller_version_number => p_api_version
109 ,p_api_name => l_api_name
110 ,p_pkg_name => G_PKG_NAME)
111 THEN
112
113 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
114
115 END IF;
116
117 -- Initialize message list if p_init_msg_list is set to TRUE.
118 IF FND_API.to_Boolean( p_init_msg_list ) THEN
119
120 FND_MSG_PUB.initialize;
121
122 END IF;
123
124 -- Initialize API return status to success
125 x_return_status := FND_API.G_RET_STS_SUCCESS;
126
127 xla_tb_balance_pkg.upload_balances
128 (p_api_version => p_api_version
129 ,p_init_msg_list => p_init_msg_list
130 ,p_commit => p_commit
131 ,x_return_status => x_return_status
132 ,x_msg_count => x_msg_count
133 ,x_msg_data => x_msg_data
134 ,p_definition_code => p_definition_code
135 ,p_definition_name => p_definition_name
136 ,p_definition_desc => p_definition_desc
137 ,p_ledger_id => p_ledger_id
138 ,p_balance_side_code => p_balance_side_code
139 ,p_je_source_name => p_je_source_name
140 ,p_gl_date_from => p_gl_date_from
141 ,p_gl_date_to => p_gl_date_to
142 ,p_mode => p_mode);
143
144 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
145 trace
146 (p_msg => 'END of procedure upload_balance'
147 ,p_level => C_LEVEL_PROCEDURE
148 ,p_module => l_log_module);
149 END IF;
150
151 FND_MSG_PUB.Count_And_Get
152 (p_count => x_msg_count
153 ,p_data => x_msg_data);
154
155 EXCEPTION
156 WHEN FND_API.G_EXC_ERROR THEN
157
158 ROLLBACK TO Upload_Balances;
159
160 x_return_status := FND_API.G_RET_STS_ERROR ;
161
162 FND_MSG_PUB.Count_And_Get
163 (p_count => x_msg_count
164 ,p_data => x_msg_data);
165
166 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167
168 ROLLBACK TO Upload_Balances;
169
170 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
171
172 FND_MSG_PUB.Count_And_Get
173 (p_count => x_msg_count
174 ,p_data => x_msg_data);
175
176 WHEN OTHERS THEN
177
178 ROLLBACK TO Upload_Balances;
179
180 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181
182 IF FND_MSG_PUB.Check_Msg_Level
183 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
184 THEN
185 FND_MSG_PUB.Add_Exc_Msg
186 (p_pkg_name => G_PKG_NAME
187 ,p_procedure_name => l_api_name);
188 END IF;
189
190 FND_MSG_PUB.Count_And_Get
191 (p_count => x_msg_count
192 ,p_data => x_msg_data);
193
194 END upload_balances;
195
196
197 PROCEDURE Upgrade_AP_Balances
198 (p_api_version IN NUMBER
199 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
200 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
201 ,x_return_status OUT NOCOPY VARCHAR2
202 ,x_msg_count OUT NOCOPY NUMBER
203 ,x_msg_data OUT NOCOPY VARCHAR2
204 ,p_balance_side_code IN VARCHAR2
205 ,p_je_source_name IN VARCHAR2
206 )
207 IS
208
209 l_api_name CONSTANT VARCHAR2(30) := 'Upgrade_AP_Balances';
210 l_api_version CONSTANT NUMBER := 1.0;
211
212 l_log_module VARCHAR2(240);
213
214 BEGIN
215
216 IF g_log_enabled THEN
217 l_log_module := C_DEFAULT_MODULE||'.Upgrade_AP_Balances';
218 END IF;
219
220 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
221 trace
222 (p_msg => 'BEGIN of procedure Upgrade_AP_Balances'
223 ,p_level => C_LEVEL_PROCEDURE
224 ,p_module => l_log_module);
225 END IF;
226
227 SAVEPOINT Upgrade_AP_Balances;
228
229 IF NOT FND_API.Compatible_API_Call
230 (p_current_version_number => l_api_version
231 ,p_caller_version_number => p_api_version
232 ,p_api_name => l_api_name
233 ,p_pkg_name => G_PKG_NAME)
234 THEN
235
236 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
237
238 END IF;
239
240 -- Initialize message list if p_init_msg_list is set to TRUE.
241 IF FND_API.to_Boolean( p_init_msg_list ) THEN
242
243 FND_MSG_PUB.initialize;
244
245 END IF;
246
247 -- Initialize API return status to success
248 x_return_status := FND_API.G_RET_STS_SUCCESS;
249
250 xla_tb_balance_pkg.Upgrade_AP_Balances
251 (p_api_version => p_api_version
252 ,p_init_msg_list => p_init_msg_list
253 ,p_commit => p_commit
254 ,x_return_status => x_return_status
255 ,x_msg_count => x_msg_count
256 ,x_msg_data => x_msg_data
257 ,p_balance_side_code => p_balance_side_code
258 ,p_je_source_name => p_je_source_name);
259
260 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
261 trace
262 (p_msg => 'END of procedure Upgrade_AP_Balances'
263 ,p_level => C_LEVEL_PROCEDURE
264 ,p_module => l_log_module);
265 END IF;
266
267 FND_MSG_PUB.Count_And_Get
268 (p_count => x_msg_count
269 ,p_data => x_msg_data);
270
271 EXCEPTION
272 WHEN OTHERS THEN
273 raise;
274 /*
275 WHEN FND_API.G_EXC_ERROR THEN
276
277 -- ROLLBACK TO Upgrade_AP_Balances;
278
279 x_return_status := FND_API.G_RET_STS_ERROR ;
280
281 FND_MSG_PUB.Count_And_Get
282 (p_count => x_msg_count
283 ,p_data => x_msg_data);
284
285 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
286
287 -- ROLLBACK TO Upgrade_AP_Balances;
288
289 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
290
291 FND_MSG_PUB.Count_And_Get
292 (p_count => x_msg_count
293 ,p_data => x_msg_data);
294
295 WHEN OTHERS THEN
296
297 -- ROLLBACK TO Upgrade_AP_Balances;
298
299 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
300
301 IF FND_MSG_PUB.Check_Msg_Level
302 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
303 THEN
304 FND_MSG_PUB.Add_Exc_Msg
305 (p_pkg_name => G_PKG_NAME
306 ,p_procedure_name => l_api_name);
307 END IF;
308
309 FND_MSG_PUB.Count_And_Get
310 (p_count => x_msg_count
311 ,p_data => x_msg_data);
312 */
313
314 END Upgrade_AP_Balances;
315
316 END xla_tb_balance_pub;