[Home] [Help]
PACKAGE BODY: APPS.OKL_CONTRACT_BALANCES_PVT
Source
1 PACKAGE BODY OKL_CONTRACT_BALANCES_PVT AS
2 /* $Header: OKLRCBLB.pls 120.0 2005/09/29 06:24:58 dkagrawa noship $ */
3
4 --------------------------------------------------------------------------------
5 --Start of Comments
6 --API Name : create_contract_balance
7 --Description : Calls the Table API of OKL_CONTRACT_BALANCES to create a record
8 -- to store the contract balances.
9 --History :
10 -- 01-AUG-2005 smadhava Created
11 --End of Comments
12 ------------------------------------------------------------------------------
13 PROCEDURE create_contract_balance(
14 p_api_version IN NUMBER
15 , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
16 , x_return_status OUT NOCOPY VARCHAR2
17 , x_msg_count OUT NOCOPY NUMBER
18 , x_msg_data OUT NOCOPY VARCHAR2
19 , p_cblv_rec IN okl_cblv_rec
20 , x_cblv_rec OUT NOCOPY okl_cblv_rec) AS
21 l_api_version CONSTANT NUMBER DEFAULT 1.0;
22 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CREATE_CONTRACT_BAL_REC';
23
24 l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_CONTRACT_BALANCES_PVT.CREATE_CONTRACT_BALANCE';
25 l_debug_enabled VARCHAR2(10);
26
27
28 BEGIN
29 x_return_status := OKL_API.G_RET_STS_SUCCESS;
30
31 l_debug_enabled := okl_debug_pub.check_log_enabled;
32
33 IF(NVL(l_debug_enabled,'N')='Y') THEN
34 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCBLB.pls call create_contract_balance(REC)');
35 END IF;
36
37 -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
38 x_return_status := OKL_API.START_ACTIVITY(
39 p_api_name => l_api_name
40 , p_pkg_name => G_PKG_NAME
41 , p_init_msg_list => p_init_msg_list
42 , l_api_version => l_api_version
43 , p_api_version => p_api_version
44 , p_api_type => G_API_TYPE
45 , x_return_status => x_return_status);
46 -- check if activity started successfully
47 IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
48 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
49 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
50 RAISE OKL_API.G_EXCEPTION_ERROR;
51 END IF;
52
53 OKL_CBL_PVT.insert_row(p_api_version => l_api_version,
54 p_init_msg_list => p_init_msg_list,
55 x_return_status => x_return_status,
56 x_msg_count => x_msg_count,
57 x_msg_data => x_msg_data,
58 p_cblv_rec => p_cblv_rec,
59 x_cblv_rec => x_cblv_rec);
60
61 -- write to log
62 IF(NVL(l_debug_enabled,'N')='Y') THEN
63 okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
64 l_module,
65 'okl_cbl_pvt.insert_row(rec) returned with status '||x_return_status||' id '||x_cblv_rec.id
66 );
67 END IF; -- end of NVL(l_debug_enabled,'N')='Y'
68
69 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
70 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
71 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
72 RAISE OKL_API.G_EXCEPTION_ERROR;
73 END IF;
74
75 -- commit the savepoint
76 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
77
78 IF(NVL(l_debug_enabled,'N')='Y') THEN
79 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCBLB.pls call create_contract_balance(REC)');
80 END IF;
81 EXCEPTION
82 WHEN OKL_API.G_EXCEPTION_ERROR THEN
83 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
84 p_api_name => l_api_name,
85 p_pkg_name => G_PKG_NAME,
86 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
87 x_msg_count => x_msg_count,
88 x_msg_data => x_msg_data,
89 p_api_type => G_API_TYPE);
90
91 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
92 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
93 p_api_name => l_api_name,
94 p_pkg_name => G_PKG_NAME,
95 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
96 x_msg_count => x_msg_count,
97 x_msg_data => x_msg_data,
98 p_api_type => G_API_TYPE);
99
100 WHEN OTHERS THEN
101 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
102 p_api_name => l_api_name,
103 p_pkg_name => G_PKG_NAME,
104 p_exc_name => 'OTHERS',
105 x_msg_count => x_msg_count,
106 x_msg_data => x_msg_data,
107 p_api_type => G_API_TYPE);
108 END create_contract_balance; -- end of record insert api - REC
109
110 --------------------------------------------------------------------------------
111 --Start of Comments
112 --API Name : create_contract_balance
113 --Description : Calls the Table API of OKL_CONTRACT_BALANCES to create records
114 -- to store the contract balances.
115 --History :
116 -- 01-AUG-2005 smadhava Created
117 --End of Comments
118 ------------------------------------------------------------------------------
119 PROCEDURE create_contract_balance(
120 p_api_version IN NUMBER
121 , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
122 , x_return_status OUT NOCOPY VARCHAR2
123 , x_msg_count OUT NOCOPY NUMBER
124 , x_msg_data OUT NOCOPY VARCHAR2
125 , p_cblv_tbl IN okl_cblv_tbl
126 , x_cblv_tbl OUT NOCOPY okl_cblv_tbl) AS
127 l_api_version CONSTANT NUMBER DEFAULT 1.0;
128 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'CREATE_CONTRACT_BAL_TBL';
129
130 l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_CONTRACT_BALANCES_PVT.CREATE_CONTRACT_BALANCE';
131 l_debug_enabled VARCHAR2(10);
132
133 BEGIN
134 x_return_status := OKL_API.G_RET_STS_SUCCESS;
135
136 l_debug_enabled := okl_debug_pub.check_log_enabled;
137
138 IF(NVL(l_debug_enabled,'N')='Y') THEN
139 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCBLB.pls call create_contract_balance(TBL)');
140 END IF;
141
142 -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
143 x_return_status := OKL_API.START_ACTIVITY(
144 p_api_name => l_api_name
145 , p_pkg_name => G_PKG_NAME
146 , p_init_msg_list => p_init_msg_list
147 , l_api_version => l_api_version
148 , p_api_version => p_api_version
149 , p_api_type => G_API_TYPE
150 , x_return_status => x_return_status);
151 -- check if activity started successfully
152 IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
153 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
154 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
155 RAISE OKL_API.G_EXCEPTION_ERROR;
156 END IF;
157
158 OKL_CBL_PVT.insert_row(p_api_version => l_api_version,
159 p_init_msg_list => p_init_msg_list,
160 x_return_status => x_return_status,
161 x_msg_count => x_msg_count,
162 x_msg_data => x_msg_data,
163 p_cblv_tbl => p_cblv_tbl,
164 x_cblv_tbl => x_cblv_tbl);
165
166 -- write to log
167 IF(NVL(l_debug_enabled,'N')='Y') THEN
168 okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
169 l_module,
170 'okl_cbl_pvt.insert_row (tbl) returned with status '||x_return_status
171 );
172 END IF; -- end of NVL(l_debug_enabled,'N')='Y'
173
174 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
175 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
176 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
177 RAISE OKL_API.G_EXCEPTION_ERROR;
178 END IF;
179
180 -- commit the savepoint
181 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
182
183 IF(NVL(l_debug_enabled,'N')='Y') THEN
184 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCBLB.pls call create_contract_balance(TBL)');
185 END IF;
186 EXCEPTION
187 WHEN OKL_API.G_EXCEPTION_ERROR THEN
188 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
189 p_api_name => l_api_name,
190 p_pkg_name => G_PKG_NAME,
191 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
192 x_msg_count => x_msg_count,
193 x_msg_data => x_msg_data,
194 p_api_type => G_API_TYPE);
195
196 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
197 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
198 p_api_name => l_api_name,
199 p_pkg_name => G_PKG_NAME,
200 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
201 x_msg_count => x_msg_count,
202 x_msg_data => x_msg_data,
203 p_api_type => G_API_TYPE);
204
205 WHEN OTHERS THEN
206 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
207 p_api_name => l_api_name,
208 p_pkg_name => G_PKG_NAME,
209 p_exc_name => 'OTHERS',
210 x_msg_count => x_msg_count,
211 x_msg_data => x_msg_data,
212 p_api_type => G_API_TYPE);
213 END create_contract_balance; -- end of table insert api - TBL
214
215 --------------------------------------------------------------------------------
216 --Start of Comments
217 --API Name : create_contract_balance
218 --Description : Calls the Table API of OKL_CONTRACT_BALANCES to update a record
219 -- with the contract balances.
220 --History :
221 -- 01-AUG-2005 smadhava Created
222 --End of Comments
223 ------------------------------------------------------------------------------
224 PROCEDURE update_contract_balance(
225 p_api_version IN NUMBER
226 , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
227 , x_return_status OUT NOCOPY VARCHAR2
228 , x_msg_count OUT NOCOPY NUMBER
229 , x_msg_data OUT NOCOPY VARCHAR2
230 , p_cblv_rec IN okl_cblv_rec
231 , x_cblv_rec OUT NOCOPY okl_cblv_rec) AS
232 l_api_version CONSTANT NUMBER DEFAULT 1.0;
233 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'UPDATE_CONTRACT_BAL_REC';
234
235 l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_CONTRACT_BALANCES_PVT.UPDATE_CONTRACT_BALANCE';
236 l_debug_enabled VARCHAR2(10);
237
238 BEGIN
239 x_return_status := OKL_API.G_RET_STS_SUCCESS;
240
241 l_debug_enabled := okl_debug_pub.check_log_enabled;
242
243 IF(NVL(l_debug_enabled,'N')='Y') THEN
244 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCBLB.pls call update_contract_balance(REC)');
245 END IF;
246
247 -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
248 x_return_status := OKL_API.START_ACTIVITY(
249 p_api_name => l_api_name
250 , p_pkg_name => G_PKG_NAME
251 , p_init_msg_list => p_init_msg_list
252 , l_api_version => l_api_version
253 , p_api_version => p_api_version
254 , p_api_type => G_API_TYPE
255 , x_return_status => x_return_status);
256 -- check if activity started successfully
257 IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
258 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
259 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
260 RAISE OKL_API.G_EXCEPTION_ERROR;
261 END IF;
262
263 OKL_CBL_PVT.update_row(p_api_version => l_api_version,
264 p_init_msg_list => p_init_msg_list,
265 x_return_status => x_return_status,
266 x_msg_count => x_msg_count,
267 x_msg_data => x_msg_data,
268 p_cblv_rec => p_cblv_rec,
269 x_cblv_rec => x_cblv_rec);
270
271 -- write to log
272 IF(NVL(l_debug_enabled,'N')='Y') THEN
273 okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
274 l_module,
275 'okl_cbl_pvt.update_row(rec) returned with status '||x_return_status||'id '||x_cblv_rec.id
276 );
277 END IF; -- end of NVL(l_debug_enabled,'N')='Y'
278
279 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
280 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
281 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
282 RAISE OKL_API.G_EXCEPTION_ERROR;
283 END IF;
284
285 -- commit the savepoint
286 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
287
288 IF(NVL(l_debug_enabled,'N')='Y') THEN
289 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCBLB.pls call update_contract_balance(REC)');
290 END IF;
291 EXCEPTION
292 WHEN OKL_API.G_EXCEPTION_ERROR THEN
293 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
294 p_api_name => l_api_name,
295 p_pkg_name => G_PKG_NAME,
296 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
297 x_msg_count => x_msg_count,
298 x_msg_data => x_msg_data,
299 p_api_type => G_API_TYPE);
300
301 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
302 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
303 p_api_name => l_api_name,
304 p_pkg_name => G_PKG_NAME,
305 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
306 x_msg_count => x_msg_count,
307 x_msg_data => x_msg_data,
308 p_api_type => G_API_TYPE);
309
310 WHEN OTHERS THEN
311 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
312 p_api_name => l_api_name,
313 p_pkg_name => G_PKG_NAME,
314 p_exc_name => 'OTHERS',
315 x_msg_count => x_msg_count,
316 x_msg_data => x_msg_data,
317 p_api_type => G_API_TYPE);
318 END update_contract_balance; -- end of record update api - REC
319
320 --------------------------------------------------------------------------------
321 --Start of Comments
322 --API Name : create_contract_balance
323 --Description : Calls the Table API of OKL_CONTRACT_BALANCES to update records
324 -- with the contract balances.
325 --History :
326 -- 01-AUG-2005 smadhava Created
327 --End of Comments
328 ------------------------------------------------------------------------------
329 PROCEDURE update_contract_balance(
330 p_api_version IN NUMBER
331 , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
332 , x_return_status OUT NOCOPY VARCHAR2
333 , x_msg_count OUT NOCOPY NUMBER
334 , x_msg_data OUT NOCOPY VARCHAR2
335 , p_cblv_tbl IN okl_cblv_tbl
336 , x_cblv_tbl OUT NOCOPY okl_cblv_tbl) AS
337 l_api_version CONSTANT NUMBER DEFAULT 1.0;
338 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'UPDATE_CONTRACT_BAL_TBL';
339
340 l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_CONTRACT_BALANCES_PVT.UPATE_CONTRACT_BALANCE';
341 l_debug_enabled VARCHAR2(10);
342
343 BEGIN
344 x_return_status := OKL_API.G_RET_STS_SUCCESS;
345
346 l_debug_enabled := okl_debug_pub.check_log_enabled;
347
348 IF(NVL(l_debug_enabled,'N')='Y') THEN
349 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCBLB.pls call update_contract_balance(TBL)');
350 END IF;
351
352 -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
353 x_return_status := OKL_API.START_ACTIVITY(
354 p_api_name => l_api_name
355 , p_pkg_name => G_PKG_NAME
356 , p_init_msg_list => p_init_msg_list
357 , l_api_version => l_api_version
358 , p_api_version => p_api_version
359 , p_api_type => G_API_TYPE
360 , x_return_status => x_return_status);
361 -- check if activity started successfully
362 IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365 RAISE OKL_API.G_EXCEPTION_ERROR;
366 END IF;
367
368 OKL_CBL_PVT.update_row(p_api_version => l_api_version,
369 p_init_msg_list => p_init_msg_list,
370 x_return_status => x_return_status,
371 x_msg_count => x_msg_count,
372 x_msg_data => x_msg_data,
373 p_cblv_tbl => p_cblv_tbl,
374 x_cblv_tbl => x_cblv_tbl);
375
376 -- write to log
377 IF(NVL(l_debug_enabled,'N')='Y') THEN
378 okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
379 l_module,
380 'okl_cbl_pvt.update_row (tbl) returned with status '||x_return_status
381 );
382 END IF; -- end of NVL(l_debug_enabled,'N')='Y'
383
384 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
385 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
386 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
387 RAISE OKL_API.G_EXCEPTION_ERROR;
388 END IF;
389
390 -- commit the savepoint
391 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
392
393 IF(NVL(l_debug_enabled,'N')='Y') THEN
394 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCBLB.pls call update_contract_balance(TBL)');
395 END IF;
396 EXCEPTION
397 WHEN OKL_API.G_EXCEPTION_ERROR THEN
398 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
399 p_api_name => l_api_name,
400 p_pkg_name => G_PKG_NAME,
401 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
402 x_msg_count => x_msg_count,
403 x_msg_data => x_msg_data,
404 p_api_type => G_API_TYPE);
405
406 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
407 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
408 p_api_name => l_api_name,
409 p_pkg_name => G_PKG_NAME,
410 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
411 x_msg_count => x_msg_count,
412 x_msg_data => x_msg_data,
413 p_api_type => G_API_TYPE);
414
415 WHEN OTHERS THEN
416 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
417 p_api_name => l_api_name,
418 p_pkg_name => G_PKG_NAME,
419 p_exc_name => 'OTHERS',
420 x_msg_count => x_msg_count,
421 x_msg_data => x_msg_data,
422 p_api_type => G_API_TYPE);
423 END update_contract_balance; -- end of table update api - TBL
424
425 --------------------------------------------------------------------------------
426 --Start of Comments
427 --API Name : create_contract_balance
428 --Description : Calls the Table API of OKL_CONTRACT_BALANCES to delete records
429 -- present in the balances table.
430 --History :
431 -- 01-AUG-2005 smadhava Created
432 --End of Comments
433 ------------------------------------------------------------------------------
434 PROCEDURE delete_contract_balances(
435 p_api_version IN NUMBER
436 , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
437 , x_return_status OUT NOCOPY VARCHAR2
438 , x_msg_count OUT NOCOPY NUMBER
439 , x_msg_data OUT NOCOPY VARCHAR2
440 , p_cblv_tbl IN okl_cblv_tbl) AS
441 l_api_version CONSTANT NUMBER DEFAULT 1.0;
442 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'DELETE_CONTRACT_BAL_TBL';
443
444 l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_CONTRACT_BALANCES_PVT.DELETE_CONTRACT_BALANCE';
445 l_debug_enabled VARCHAR2(10);
446
447 BEGIN
448 x_return_status := OKL_API.G_RET_STS_SUCCESS;
449
450 l_debug_enabled := okl_debug_pub.check_log_enabled;
451
452 IF(NVL(l_debug_enabled,'N')='Y') THEN
453 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCBLB.pls call delete_contract_balance(TBL)');
454 END IF;
455
456 -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
457 x_return_status := OKL_API.START_ACTIVITY(
458 p_api_name => l_api_name
459 , p_pkg_name => G_PKG_NAME
460 , p_init_msg_list => p_init_msg_list
461 , l_api_version => l_api_version
462 , p_api_version => p_api_version
463 , p_api_type => G_API_TYPE
464 , x_return_status => x_return_status);
465 -- check if activity started successfully
466 IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
467 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
468 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
469 RAISE OKL_API.G_EXCEPTION_ERROR;
470 END IF;
471
472 OKL_CBL_PVT.delete_row(p_api_version => l_api_version,
473 p_init_msg_list => p_init_msg_list,
474 x_return_status => x_return_status,
475 x_msg_count => x_msg_count,
476 x_msg_data => x_msg_data,
477 p_cblv_tbl => p_cblv_tbl);
478
479 -- write to log
480 IF(NVL(l_debug_enabled,'N')='Y') THEN
481 okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
482 l_module,
483 'okl_cbl_pvt.delete_row (tbl) returned with status '||x_return_status
484 );
485 END IF; -- end of NVL(l_debug_enabled,'N')='Y'
486
487 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
488 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
489 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
490 RAISE OKL_API.G_EXCEPTION_ERROR;
491 END IF;
492
493 -- commit the savepoint
494 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
495
496 IF(NVL(l_debug_enabled,'N')='Y') THEN
497 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCBLB.pls call delete_contract_balance(TBL)');
498 END IF;
499 EXCEPTION
500 WHEN OKL_API.G_EXCEPTION_ERROR THEN
501 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
502 p_api_name => l_api_name,
503 p_pkg_name => G_PKG_NAME,
504 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
505 x_msg_count => x_msg_count,
506 x_msg_data => x_msg_data,
507 p_api_type => G_API_TYPE);
508
509 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
510 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
511 p_api_name => l_api_name,
512 p_pkg_name => G_PKG_NAME,
513 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
514 x_msg_count => x_msg_count,
515 x_msg_data => x_msg_data,
516 p_api_type => G_API_TYPE);
517
518 WHEN OTHERS THEN
519 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
520 p_api_name => l_api_name,
521 p_pkg_name => G_PKG_NAME,
522 p_exc_name => 'OTHERS',
523 x_msg_count => x_msg_count,
524 x_msg_data => x_msg_data,
525 p_api_type => G_API_TYPE);
526 END delete_contract_balances; -- end of table update api - TBL
527
528 --------------------------------------------------------------------------------
529 --Start of Comments
530 --API Name : create_contract_balance
531 --Description : Calls the Table API of OKL_CONTRACT_BALANCES to validate a record
532 -- in the contract balances table.
533 --History :
534 -- 01-AUG-2005 smadhava Created
535 --End of Comments
536 ------------------------------------------------------------------------------
537 PROCEDURE validate_contract_balance(
538 p_api_version IN NUMBER
539 , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
540 , x_return_status OUT NOCOPY VARCHAR2
541 , x_msg_count OUT NOCOPY NUMBER
542 , x_msg_data OUT NOCOPY VARCHAR2
543 , p_cblv_rec IN okl_cblv_rec) AS
544 l_api_version CONSTANT NUMBER DEFAULT 1.0;
545 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'VALID_CONTRACT_BAL_REC';
546
547 l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_CONTRACT_BALANCES_PVT.VALIDATE_CONTRACT_BALANCE';
548 l_debug_enabled VARCHAR2(10);
549
550 BEGIN
551 x_return_status := OKL_API.G_RET_STS_SUCCESS;
552
553 l_debug_enabled := okl_debug_pub.check_log_enabled;
554
555 IF(NVL(l_debug_enabled,'N')='Y') THEN
556 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCBLB.pls call validate_contract_balance(REC)');
557 END IF;
558
559 -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
560 x_return_status := OKL_API.START_ACTIVITY(
561 p_api_name => l_api_name
562 , p_pkg_name => G_PKG_NAME
563 , p_init_msg_list => p_init_msg_list
564 , l_api_version => l_api_version
565 , p_api_version => p_api_version
566 , p_api_type => G_API_TYPE
567 , x_return_status => x_return_status);
568 -- check if activity started successfully
569 IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
570 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
571 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
572 RAISE OKL_API.G_EXCEPTION_ERROR;
573 END IF;
574
575 OKL_CBL_PVT.validate_row(p_api_version => l_api_version,
576 p_init_msg_list => p_init_msg_list,
577 x_return_status => x_return_status,
578 x_msg_count => x_msg_count,
579 x_msg_data => x_msg_data,
580 p_cblv_rec => p_cblv_rec);
581
582 -- write to log
583 IF(NVL(l_debug_enabled,'N')='Y') THEN
584 okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
585 l_module,
586 'okl_cbl_pvt.validate_row(rec) returned with status '||x_return_status
587 );
588 END IF; -- end of NVL(l_debug_enabled,'N')='Y'
589
590 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
591 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
592 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
593 RAISE OKL_API.G_EXCEPTION_ERROR;
594 END IF;
595
596 -- commit the savepoint
597 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
598
599 IF(NVL(l_debug_enabled,'N')='Y') THEN
600 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCBLB.pls call validate_contract_balance(REC)');
601 END IF;
602 EXCEPTION
603 WHEN OKL_API.G_EXCEPTION_ERROR THEN
604 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
605 p_api_name => l_api_name,
606 p_pkg_name => G_PKG_NAME,
607 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
608 x_msg_count => x_msg_count,
609 x_msg_data => x_msg_data,
610 p_api_type => G_API_TYPE);
611
612 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
613 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
614 p_api_name => l_api_name,
615 p_pkg_name => G_PKG_NAME,
616 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
617 x_msg_count => x_msg_count,
618 x_msg_data => x_msg_data,
619 p_api_type => G_API_TYPE);
620
621 WHEN OTHERS THEN
622 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
623 p_api_name => l_api_name,
624 p_pkg_name => G_PKG_NAME,
625 p_exc_name => 'OTHERS',
626 x_msg_count => x_msg_count,
627 x_msg_data => x_msg_data,
628 p_api_type => G_API_TYPE);
629 END validate_contract_balance; -- end of record validate api - REC
630
631 --------------------------------------------------------------------------------
632 --Start of Comments
633 --API Name : create_contract_balance
634 --Description : Calls the Table API of OKL_CONTRACT_BALANCES to validate a set
635 -- of records in the contract balances table.
636 --History :
637 -- 01-AUG-2005 smadhava Created
638 --End of Comments
639 ------------------------------------------------------------------------------
640 PROCEDURE validate_contract_balance(
641 p_api_version IN NUMBER
642 , p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
643 , x_return_status OUT NOCOPY VARCHAR2
644 , x_msg_count OUT NOCOPY NUMBER
645 , x_msg_data OUT NOCOPY VARCHAR2
646 , p_cblv_tbl IN okl_cblv_tbl) AS
647 l_api_version CONSTANT NUMBER DEFAULT 1.0;
648 l_api_name CONSTANT VARCHAR2(30) DEFAULT 'VALID_CONTRACT_BAL_TBL';
649
650 l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_CONTRACT_BALANCES_PVT.VALIDATE_CONTRACT_BALANCE';
651 l_debug_enabled VARCHAR2(10);
652
653 BEGIN
654 x_return_status := OKL_API.G_RET_STS_SUCCESS;
655
656 l_debug_enabled := okl_debug_pub.check_log_enabled;
657
658 IF(NVL(l_debug_enabled,'N')='Y') THEN
659 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRCBLB.pls call validate_contract_balance(TBL)');
660 END IF;
661
662 -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
663 x_return_status := OKL_API.START_ACTIVITY(
664 p_api_name => l_api_name
665 , p_pkg_name => G_PKG_NAME
666 , p_init_msg_list => p_init_msg_list
667 , l_api_version => l_api_version
668 , p_api_version => p_api_version
669 , p_api_type => G_API_TYPE
670 , x_return_status => x_return_status);
671 -- check if activity started successfully
672 IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
673 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
674 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
675 RAISE OKL_API.G_EXCEPTION_ERROR;
676 END IF;
677
678 OKL_CBL_PVT.validate_row(p_api_version => l_api_version,
679 p_init_msg_list => p_init_msg_list,
680 x_return_status => x_return_status,
681 x_msg_count => x_msg_count,
682 x_msg_data => x_msg_data,
683 p_cblv_tbl => p_cblv_tbl);
684
685 -- write to log
686 IF(NVL(l_debug_enabled,'N')='Y') THEN
687 okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
688 l_module,
689 'okl_cbl_pvt.validate_row(tbl) returned with status '||x_return_status
690 );
691 END IF; -- end of NVL(l_debug_enabled,'N')='Y'
692
693 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
694 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
695 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
696 RAISE OKL_API.G_EXCEPTION_ERROR;
697 END IF;
698
699 -- commit the savepoint
700 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
701
702 IF(NVL(l_debug_enabled,'N')='Y') THEN
703 okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRCBLB.pls call validate_contract_balance(TBL)');
704 END IF;
705 EXCEPTION
706 WHEN OKL_API.G_EXCEPTION_ERROR THEN
707 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
708 p_api_name => l_api_name,
709 p_pkg_name => G_PKG_NAME,
710 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
711 x_msg_count => x_msg_count,
712 x_msg_data => x_msg_data,
713 p_api_type => G_API_TYPE);
714
715 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
716 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
717 p_api_name => l_api_name,
718 p_pkg_name => G_PKG_NAME,
719 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
720 x_msg_count => x_msg_count,
721 x_msg_data => x_msg_data,
722 p_api_type => G_API_TYPE);
723
724 WHEN OTHERS THEN
725 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
726 p_api_name => l_api_name,
727 p_pkg_name => G_PKG_NAME,
728 p_exc_name => 'OTHERS',
729 x_msg_count => x_msg_count,
730 x_msg_data => x_msg_data,
731 p_api_type => G_API_TYPE);
732 END validate_contract_balance; -- end of record validate api - TBL
733
734 END OKL_CONTRACT_BALANCES_PVT; -- End of package Body