[Home] [Help]
PACKAGE BODY: APPS.OKL_TAX_BASIS_OVERRIDE_PUB
Source
1 PACKAGE BODY OKL_TAX_BASIS_OVERRIDE_PUB AS
2 /* $Header: OKLPTBOB.pls 120.0 2005/08/26 19:45:19 sechawla noship $ */
3
4 PROCEDURE insert_TAX_BASIS_OVERRIDE(
5 p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_tbov_rec IN tbov_rec_type,
11 x_tbov_rec OUT NOCOPY tbov_rec_type) IS
12
13
14 l_api_version NUMBER ;
15 l_init_msg_list VARCHAR2(1) ;
16 l_return_status VARCHAR2(1);
17 l_msg_count NUMBER ;
18 l_msg_data VARCHAR2(2000);
19 lp_tbov_rec tbov_rec_type;
20 lx_tbov_rec tbov_rec_type;
21
22 BEGIN
23
24 SAVEPOINT tbo_insert ;
25
26
27 l_api_version := p_api_version ;
28 l_init_msg_list := p_init_msg_list ;
29 l_return_status := x_return_status ;
30 l_msg_count := x_msg_count ;
31 l_msg_data := x_msg_data ;
32 lp_tbov_rec := p_tbov_rec;
33 lx_tbov_rec := x_tbov_rec;
34
35
36
37
38
39
40 okl_tbo_pvt.insert_row(
41 l_api_version
42 ,l_init_msg_list
43 ,l_return_status
44 ,l_msg_count
45 ,l_msg_data
46 ,lp_tbov_rec
47 ,lx_tbov_rec);
48
49 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
50 RAISE FND_API.G_EXC_ERROR;
51 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
52 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53 END IF;
54
55 --Copy value of OUT variable in the IN record type
56 lp_tbov_rec := lx_tbov_rec;
57
58
59
60
61
62 --Assign value to OUT variables
63 x_tbov_rec := lx_tbov_rec;
64 x_return_status := l_return_status ;
65 x_msg_count := l_msg_count ;
66 x_msg_data := l_msg_data ;
67
68 EXCEPTION
69
70 WHEN FND_API.G_EXC_ERROR THEN
71 ROLLBACK TO tbo_insert;
72 x_return_status := FND_API.G_RET_STS_ERROR;
73 x_msg_count := l_msg_count ;
74 x_msg_data := l_msg_data ;
75 FND_MSG_PUB.count_and_get(
76 p_count => x_msg_count
77 ,p_data => x_msg_data);
78 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79 ROLLBACK TO tbo_insert;
80 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 x_msg_count := l_msg_count ;
82 x_msg_data := l_msg_data ;
83 FND_MSG_PUB.count_and_get(
84 p_count => x_msg_count
85 ,p_data => x_msg_data);
86 WHEN OTHERS THEN
87 ROLLBACK TO tbo_insert;
88 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89 x_msg_count := l_msg_count ;
90 x_msg_data := l_msg_data ;
91 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','insert_TAX_BASIS_OVERRIDE');
92 FND_MSG_PUB.count_and_get(
93 p_count => x_msg_count
94 ,p_data => x_msg_data);
95 END insert_TAX_BASIS_OVERRIDE;
96
97 PROCEDURE insert_TAX_BASIS_OVERRIDE(
98 p_api_version IN NUMBER,
99 p_init_msg_list IN VARCHAR2,
100 x_return_status OUT NOCOPY VARCHAR2,
101 x_msg_count OUT NOCOPY NUMBER,
102 x_msg_data OUT NOCOPY VARCHAR2,
103 p_tbov_tbl IN tbov_tbl_type,
104 x_tbov_tbl OUT NOCOPY tbov_tbl_type) IS
105
106 l_api_version NUMBER;
107 l_init_msg_list VARCHAR2(1) ;
108 l_msg_data VARCHAR2(2000);
109 l_msg_count NUMBER ;
110 l_return_status VARCHAR2(1);
111 lp_tbov_tbl tbov_tbl_type;
112 lx_tbov_tbl tbov_tbl_type;
113
114 BEGIN
115
116 SAVEPOINT tbo_insert;
117
118
119 l_api_version := p_api_version ;
120 l_init_msg_list := p_init_msg_list ;
121 l_return_status := x_return_status ;
122 l_msg_count := x_msg_count ;
123 l_msg_data := x_msg_data ;
124 lp_tbov_tbl := p_tbov_tbl;
125 lx_tbov_tbl := x_tbov_tbl;
126
127
128
129 okl_tbo_pvt.insert_row(
130 l_api_version
131 ,l_init_msg_list
132 ,l_return_status
133 ,l_msg_count
134 ,l_msg_data
135 ,lp_tbov_tbl
136 ,lx_tbov_tbl);
137
138 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
139 RAISE FND_API.G_EXC_ERROR;
140 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
141 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
142 END IF;
143
144 --Copy value of OUT variable in the IN record type
145 lp_tbov_tbl := lx_tbov_tbl;
146
147
148
149 --Assign value to OUT variables
150 x_tbov_tbl := lx_tbov_tbl;
151 x_return_status := l_return_status ;
152 x_msg_count := l_msg_count ;
153 x_msg_data := l_msg_data ;
154
155
156 EXCEPTION
157
158 WHEN FND_API.G_EXC_ERROR THEN
159 ROLLBACK TO tbo_insert;
160 x_return_status := FND_API.G_RET_STS_ERROR;
161 x_msg_count := l_msg_count ;
162 x_msg_data := l_msg_data ;
163 FND_MSG_PUB.count_and_get(
164 p_count => x_msg_count
165 ,p_data => x_msg_data);
166 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167 ROLLBACK TO tbo_insert;
168 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169 x_msg_count := l_msg_count ;
170 x_msg_data := l_msg_data ;
171 FND_MSG_PUB.count_and_get(
172 p_count => x_msg_count
173 ,p_data => x_msg_data);
174 WHEN OTHERS THEN
175 ROLLBACK TO tbo_insert;
176 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177 x_msg_count := l_msg_count ;
178 x_msg_data := l_msg_data ;
179 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','insert_TAX_BASIS_OVERRIDE');
180 FND_MSG_PUB.count_and_get(
181 p_count => x_msg_count
182 ,p_data => x_msg_data);
183 END insert_TAX_BASIS_OVERRIDE;
184
185 PROCEDURE lock_TAX_BASIS_OVERRIDE(
186 p_api_version IN NUMBER,
187 p_init_msg_list IN VARCHAR2,
188 x_return_status OUT NOCOPY VARCHAR2,
189 x_msg_count OUT NOCOPY NUMBER,
190 x_msg_data OUT NOCOPY VARCHAR2,
191 p_tbov_rec IN tbov_rec_type) IS
192
193 BEGIN
194 okl_tbo_pvt.lock_row(
195 p_api_version,
196 p_init_msg_list,
197 x_return_status,
198 x_msg_count,
199 x_msg_data,
200 p_tbov_rec);
201
202 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
203 RAISE FND_API.G_EXC_ERROR;
204 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
205 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
206 END IF;
207
208
209 EXCEPTION
210
211 WHEN FND_API.G_EXC_ERROR THEN
212 FND_MSG_PUB.count_and_get(
213 p_count => x_msg_count
214 ,p_data => x_msg_data);
215 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
216 FND_MSG_PUB.count_and_get(
217 p_count => x_msg_count
218 ,p_data => x_msg_data);
219 WHEN OTHERS THEN
220 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
221 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','lock_TAX_BASIS_OVERRIDE');
222 FND_MSG_PUB.count_and_get(
223 p_count => x_msg_count
224 ,p_data => x_msg_data);
225 END lock_TAX_BASIS_OVERRIDE;
226
227
228 PROCEDURE lock_TAX_BASIS_OVERRIDE(
229 p_api_version IN NUMBER
230 ,p_init_msg_list IN VARCHAR2
231 ,x_return_status OUT NOCOPY VARCHAR2
232 ,x_msg_count OUT NOCOPY NUMBER
233 ,x_msg_data OUT NOCOPY VARCHAR2
234 ,p_tbov_tbl IN tbov_tbl_type) IS
235
236 BEGIN
237 okl_tbo_pvt.lock_row(
238 p_api_version,
239 p_init_msg_list,
240 x_return_status,
241 x_msg_count,
242 x_msg_data,
243 p_tbov_tbl);
244
245 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
246 RAISE FND_API.G_EXC_ERROR;
247 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
248 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249 END IF;
250
251
252 EXCEPTION
253
254 WHEN FND_API.G_EXC_ERROR THEN
255 FND_MSG_PUB.count_and_get(
256 p_count => x_msg_count
257 ,p_data => x_msg_data);
258 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
259 FND_MSG_PUB.count_and_get(
260 p_count => x_msg_count
261 ,p_data => x_msg_data);
262 WHEN OTHERS THEN
263 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','lock_TAX_BASIS_OVERRIDE');
265 FND_MSG_PUB.count_and_get(
266 p_count => x_msg_count
267 ,p_data => x_msg_data);
268 END lock_TAX_BASIS_OVERRIDE;
269
270
271 PROCEDURE update_TAX_BASIS_OVERRIDE(
272 p_api_version IN NUMBER
273 ,p_init_msg_list IN VARCHAR2
274 ,x_return_status OUT NOCOPY VARCHAR2
275 ,x_msg_count OUT NOCOPY NUMBER
276 ,x_msg_data OUT NOCOPY VARCHAR2
277 ,p_tbov_rec IN tbov_rec_type
278 ,x_tbov_rec OUT NOCOPY tbov_rec_type) IS
279
280 l_api_version NUMBER ;
281 l_init_msg_list VARCHAR2(1) ;
282 l_return_status VARCHAR2(1);
283 l_msg_count NUMBER ;
284 l_msg_data VARCHAR2(2000);
285 lp_tbov_rec tbov_rec_type;
286 lx_tbov_rec tbov_rec_type;
287
288 BEGIN
289
290 SAVEPOINT tbo_update;
291
292
293 l_api_version := p_api_version ;
294 l_init_msg_list := p_init_msg_list ;
295 l_return_status := x_return_status ;
296 l_msg_count := x_msg_count ;
297 l_msg_data := x_msg_data ;
298 lp_tbov_rec := p_tbov_rec;
299 lx_tbov_rec := x_tbov_rec;
300
301
302
303
304
305 okl_tbo_pvt.update_row(
306 l_api_version
307 ,l_init_msg_list
308 ,l_return_status
309 ,l_msg_count
310 ,l_msg_data
311 ,lp_tbov_rec
312 ,lx_tbov_rec);
313
314 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
315 RAISE FND_API.G_EXC_ERROR;
316 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
317 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318 END IF;
319
320 --Copy value of OUT variable in the IN record type
321 lp_tbov_rec := lx_tbov_rec;
322
323
324
325
326 --Assign value to OUT variables
327 x_tbov_rec := lx_tbov_rec;
328 x_return_status := l_return_status ;
329 x_msg_count := l_msg_count ;
330 x_msg_data := l_msg_data ;
331
332
333 EXCEPTION
334
335 WHEN FND_API.G_EXC_ERROR THEN
336 ROLLBACK TO tbo_update;
337 x_return_status := FND_API.G_RET_STS_ERROR;
338 x_msg_count := l_msg_count ;
339 x_msg_data := l_msg_data ;
340 FND_MSG_PUB.count_and_get(
341 p_count => x_msg_count
342 ,p_data => x_msg_data);
343 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344 ROLLBACK TO tbo_update;
345 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346 x_msg_count := l_msg_count ;
347 x_msg_data := l_msg_data ;
348 FND_MSG_PUB.count_and_get(
349 p_count => x_msg_count
350 ,p_data => x_msg_data);
351 WHEN OTHERS THEN
352 ROLLBACK TO tbo_update;
353 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
354 x_msg_count := l_msg_count ;
355 x_msg_data := l_msg_data ;
356 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','update_TAX_BASIS_OVERRIDE');
357 FND_MSG_PUB.count_and_get(
358 p_count => x_msg_count
359 ,p_data => x_msg_data);
360 END update_TAX_BASIS_OVERRIDE;
361
362 PROCEDURE update_TAX_BASIS_OVERRIDE(
363 p_api_version IN NUMBER,
364 p_init_msg_list IN VARCHAR2,
365 x_return_status OUT NOCOPY VARCHAR2,
366 x_msg_count OUT NOCOPY NUMBER,
367 x_msg_data OUT NOCOPY VARCHAR2,
368 p_tbov_tbl IN tbov_tbl_type,
369 x_tbov_tbl OUT NOCOPY tbov_tbl_type) IS
370
371 l_api_version NUMBER;
372 l_init_msg_list VARCHAR2(200);
373 l_msg_data VARCHAR2(100);
374 l_msg_count NUMBER ;
375 l_return_status VARCHAR2(1);
376 lp_tbov_tbl tbov_tbl_type;
377 lx_tbov_tbl tbov_tbl_type;
378
379 BEGIN
380
381 SAVEPOINT tbo_update;
382
383
384 lp_tbov_tbl := p_tbov_tbl;
385 lx_tbov_tbl := x_tbov_tbl;
386 l_api_version := p_api_version ;
387 l_init_msg_list := p_init_msg_list ;
388 l_msg_data := x_msg_data ;
389 l_msg_count := x_msg_count ;
390
391
392
393
394
395 okl_tbo_pvt.update_row(
396 l_api_version
397 ,l_init_msg_list
398 ,l_return_status
399 ,l_msg_count
400 ,l_msg_data
401 ,lp_tbov_tbl
402 ,lx_tbov_tbl);
403
404 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
405 RAISE FND_API.G_EXC_ERROR;
406 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
407 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
408 END IF;
409
410 --Copy value of OUT variable in the IN record type
411 lp_tbov_tbl := lx_tbov_tbl;
412
413
414
415 --Assign value to OUT variables
416 x_tbov_tbl := lx_tbov_tbl;
417 x_return_status := l_return_status ;
418 x_msg_count := l_msg_count ;
419 x_msg_data := l_msg_data ;
420
421
422 EXCEPTION
423
424 WHEN FND_API.G_EXC_ERROR THEN
425 ROLLBACK TO tbo_update;
426 x_return_status := FND_API.G_RET_STS_ERROR;
427 x_msg_count := l_msg_count ;
428 x_msg_data := l_msg_data ;
429 FND_MSG_PUB.count_and_get(
430 p_count => x_msg_count
431 ,p_data => x_msg_data);
432 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
433 ROLLBACK TO tbo_update;
434 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435 x_msg_count := l_msg_count ;
436 x_msg_data := l_msg_data ;
437 FND_MSG_PUB.count_and_get(
438 p_count => x_msg_count
439 ,p_data => x_msg_data);
440 WHEN OTHERS THEN
441 ROLLBACK TO tbo_update;
442 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443 x_msg_count := l_msg_count ;
444 x_msg_data := l_msg_data ;
445 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','update_TAX_BASIS_OVERRIDE');
446 FND_MSG_PUB.count_and_get(
447 p_count => x_msg_count
448 ,p_data => x_msg_data);
449 END update_TAX_BASIS_OVERRIDE;
450
451 --Put custom code for cascade delete by developer
452 PROCEDURE delete_TAX_BASIS_OVERRIDE(
453 p_api_version IN NUMBER,
454 p_init_msg_list IN VARCHAR2,
455 x_return_status OUT NOCOPY VARCHAR2,
456 x_msg_count OUT NOCOPY NUMBER,
457 x_msg_data OUT NOCOPY VARCHAR2,
458 p_tbov_rec IN tbov_rec_type) IS
459
460 i NUMBER :=0;
461 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
462 l_api_version NUMBER ;
463 l_init_msg_list VARCHAR2(1) ;
464 l_msg_data VARCHAR2(2000);
465 l_msg_count NUMBER ;
466 lp_tbov_rec tbov_rec_type;
467 --lx_tbov_rec tbov_rec_type;
468
469 BEGIN
470
471 SAVEPOINT tbo_delete;
472
473
474 l_api_version := p_api_version ;
475 l_init_msg_list := p_init_msg_list ;
476 l_msg_data := x_msg_data;
477 l_msg_count := x_msg_count ;
478 lp_tbov_rec := p_tbov_rec;
479 --lx_tbov_rec := p_tbov_rec;
480
481
482
483
484 --Delete the Master
485 okl_tbo_pvt.delete_row(
486 l_api_version
487 ,l_init_msg_list
488 ,l_return_status
489 ,l_msg_count
490 ,l_msg_data
491 ,lp_tbov_rec);
492
493 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
494 RAISE FND_API.G_EXC_ERROR;
495 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
496 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497 END IF;
498
499
500
501
502
503 --Assign value to OUT variables
504 x_msg_count := l_msg_count ;
505 x_msg_data := l_msg_data ;
506 x_return_status := l_return_status ;
507
508 EXCEPTION
509
510 WHEN FND_API.G_EXC_ERROR THEN
511 ROLLBACK TO tbo_delete;
512 x_return_status := FND_API.G_RET_STS_ERROR;
513 x_msg_count := l_msg_count ;
514 x_msg_data := l_msg_data ;
515 FND_MSG_PUB.count_and_get(
516 p_count => x_msg_count
517 ,p_data => x_msg_data);
518 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
519 ROLLBACK TO tbo_delete;
520 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
521 x_msg_count := l_msg_count ;
522 x_msg_data := l_msg_data ;
523 FND_MSG_PUB.count_and_get(
524 p_count => x_msg_count
525 ,p_data => x_msg_data);
526 WHEN OTHERS THEN
527 ROLLBACK TO tbo_delete;
528 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529 x_msg_count := l_msg_count ;
530 x_msg_data := l_msg_data ;
531 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','delete_TAX_BASIS_OVERRIDE');
532 FND_MSG_PUB.count_and_get(
533 p_count => x_msg_count
534 ,p_data => x_msg_data);
535 END delete_TAX_BASIS_OVERRIDE;
536
537
538 PROCEDURE delete_TAX_BASIS_OVERRIDE(
539 p_api_version IN NUMBER,
540 p_init_msg_list IN VARCHAR2,
541 x_return_status OUT NOCOPY VARCHAR2,
542 x_msg_count OUT NOCOPY NUMBER,
543 x_msg_data OUT NOCOPY VARCHAR2,
544 p_tbov_tbl IN tbov_tbl_type) IS
545
546 i NUMBER := 0;
547 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
548 l_api_version NUMBER := p_api_version ;
549 l_init_msg_list VARCHAR2(1) := p_init_msg_list ;
550 l_msg_data VARCHAR2(2000);
551 l_msg_count NUMBER ;
552 lp_tbov_tbl tbov_tbl_type;
553 --lx_tbov_tbl tbov_tbl_type;
554
555 BEGIN
556
557 SAVEPOINT tbo_delete;
558
559
560 l_api_version := p_api_version ;
561 l_init_msg_list := p_init_msg_list ;
562 l_msg_data := x_msg_data;
563 l_msg_count := x_msg_count ;
564 lp_tbov_tbl := p_tbov_tbl;
565 --lx_tbov_tbl := p_tbov_tbl;
566
567
568
569
570 --Delete the Master
571 okl_tbo_pvt.delete_row(
572 l_api_version
573 ,l_init_msg_list
574 ,l_return_status
575 ,l_msg_count
576 ,l_msg_data
577 ,lp_tbov_tbl);
578
579 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
580 RAISE FND_API.G_EXC_ERROR;
581 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
582 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583 END IF;
584
585
586
587
588
589 --Assign value to OUT variables
590 x_msg_count := l_msg_count ;
591 x_msg_data := l_msg_data ;
592 x_return_status := l_return_status ;
593 EXCEPTION
594
595 WHEN FND_API.G_EXC_ERROR THEN
596 ROLLBACK TO tbo_delete;
597 x_return_status := FND_API.G_RET_STS_ERROR;
598 x_msg_count := l_msg_count ;
599 x_msg_data := l_msg_data ;
600 FND_MSG_PUB.count_and_get(
601 p_count => x_msg_count
602 ,p_data => x_msg_data);
603 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604 ROLLBACK TO tbo_delete;
605 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606 x_msg_count := l_msg_count ;
607 x_msg_data := l_msg_data ;
608 FND_MSG_PUB.count_and_get(
609 p_count => x_msg_count
610 ,p_data => x_msg_data);
611 WHEN OTHERS THEN
612 ROLLBACK TO tbo_delete;
613 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614 x_msg_count := l_msg_count ;
615 x_msg_data := l_msg_data ;
616 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','delete_TAX_BASIS_OVERRIDE');
617 FND_MSG_PUB.count_and_get(
618 p_count => x_msg_count
619 ,p_data => x_msg_data);
620 END delete_TAX_BASIS_OVERRIDE;
621
622
623
624 PROCEDURE validate_TAX_BASIS_OVERRIDE(
625 p_api_version IN NUMBER,
626 p_init_msg_list IN VARCHAR2,
627 x_return_status OUT NOCOPY VARCHAR2,
628 x_msg_count OUT NOCOPY NUMBER,
629 x_msg_data OUT NOCOPY VARCHAR2,
630 p_tbov_rec IN tbov_rec_type) IS
631
632 l_api_version NUMBER ;
633 l_init_msg_list VARCHAR2(1) ;
634 l_msg_data VARCHAR2(2000);
635 l_msg_count NUMBER ;
636 lp_tbov_rec tbov_rec_type;
637 lx_tbov_rec tbov_rec_type;
638 l_return_status VARCHAR2(1);
639
640 BEGIN
641
642 SAVEPOINT tbo_validate;
643
644
645 l_api_version := p_api_version ;
646 l_init_msg_list := p_init_msg_list ;
647 l_msg_data := x_msg_data;
648 l_msg_count := x_msg_count ;
649 lp_tbov_rec := p_tbov_rec;
650 lx_tbov_rec := p_tbov_rec;
651
652
653
654
655 okl_tbo_pvt.validate_row(
656 l_api_version
657 ,l_init_msg_list
658 ,l_return_status
659 ,l_msg_count
660 ,l_msg_data
661 ,lp_tbov_rec);
662
663 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
664 RAISE FND_API.G_EXC_ERROR;
665 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
666 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667 END IF;
668
669 --Copy value of OUT variable in the IN record type
670 lp_tbov_rec := lx_tbov_rec;
671
672
673
674
675
676
677
678
679 --Assign value to OUT variables
680 x_msg_count := l_msg_count ;
681 x_msg_data := l_msg_data ;
682
683 x_return_status := l_return_status ;
684
685 EXCEPTION
686
687 WHEN FND_API.G_EXC_ERROR THEN
688 ROLLBACK TO tbo_validate;
689 x_return_status := FND_API.G_RET_STS_ERROR;
690 x_msg_count := l_msg_count ;
691 x_msg_data := l_msg_data ;
692 FND_MSG_PUB.count_and_get(
693 p_count => x_msg_count
694 ,p_data => x_msg_data);
695 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696 ROLLBACK TO tbo_validate;
697 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698 x_msg_count := l_msg_count ;
699 x_msg_data := l_msg_data ;
700 FND_MSG_PUB.count_and_get(
701 p_count => x_msg_count
702 ,p_data => x_msg_data);
703 WHEN OTHERS THEN
704 ROLLBACK TO tbo_validate;
705 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
706 x_msg_count := l_msg_count ;
707 x_msg_data := l_msg_data ;
708 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','validate_TAX_BASIS_OVERRIDE');
709 FND_MSG_PUB.count_and_get(
710 p_count => x_msg_count
711 ,p_data => x_msg_data);
712 END validate_TAX_BASIS_OVERRIDE;
713
714 PROCEDURE validate_TAX_BASIS_OVERRIDE(
715 p_api_version IN NUMBER,
716 p_init_msg_list IN VARCHAR2,
717 x_return_status OUT NOCOPY VARCHAR2,
718 x_msg_count OUT NOCOPY NUMBER,
719 x_msg_data OUT NOCOPY VARCHAR2,
720 p_tbov_tbl IN tbov_tbl_type) IS
721
722 l_api_version NUMBER ;
723 l_init_msg_list VARCHAR2(1) ;
724 l_msg_data VARCHAR2(2000);
725 l_msg_count NUMBER ;
726 lp_tbov_tbl tbov_tbl_type;
727 lx_tbov_tbl tbov_tbl_type;
728 l_return_status VARCHAR2(1);
729
730 BEGIN
731
732 SAVEPOINT tbo_validate;
733
734
735 l_api_version := p_api_version ;
736 l_init_msg_list := p_init_msg_list ;
737 l_msg_data := x_msg_data;
738 l_msg_count := x_msg_count ;
739 lp_tbov_tbl := p_tbov_tbl;
740 lx_tbov_tbl := p_tbov_tbl;
741
742
743
744 okl_tbo_pvt.validate_row(
745 p_api_version
746 ,p_init_msg_list
747 ,x_return_status
748 ,x_msg_count
749 ,x_msg_data
750 ,lp_tbov_tbl);
751
752 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
753 RAISE FND_API.G_EXC_ERROR;
754 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
755 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756 END IF;
757
758 --Copy value of OUT variable in the IN record type
759 lp_tbov_tbl := lx_tbov_tbl;
760
761
762
763
764
765 --Assign value to OUT variables
766 x_msg_count := l_msg_count ;
767 x_msg_data := l_msg_data ;
768
769 x_return_status := l_return_status ;
770
771 EXCEPTION
772
773 WHEN FND_API.G_EXC_ERROR THEN
774 ROLLBACK TO tbo_validate;
775 x_return_status := FND_API.G_RET_STS_ERROR;
776 x_msg_count := l_msg_count ;
777 x_msg_data := l_msg_data ;
778 FND_MSG_PUB.count_and_get(
779 p_count => x_msg_count
780 ,p_data => x_msg_data);
781 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
782 ROLLBACK TO tbo_validate;
783 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
784 x_msg_count := l_msg_count ;
785 x_msg_data := l_msg_data ;
786 FND_MSG_PUB.count_and_get(
787 p_count => x_msg_count
788 ,p_data => x_msg_data);
789 WHEN OTHERS THEN
790 ROLLBACK TO tbo_validate;
791 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
792 x_msg_count := l_msg_count ;
793 x_msg_data := l_msg_data ;
794 FND_MSG_PUB.ADD_EXC_MSG('OKL_TAX_BASIS_OVERRIDE_PUB','validate_TAX_BASIS_OVERRIDE');
795 FND_MSG_PUB.count_and_get(
796 p_count => x_msg_count
797 ,p_data => x_msg_data);
798 END validate_TAX_BASIS_OVERRIDE;
799
800 END OKL_TAX_BASIS_OVERRIDE_PUB;