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