[Home] [Help]
PACKAGE BODY: APPS.OKL_CSH_ALLCTN_RL_HDR_PUB
Source
1 PACKAGE BODY okl_csh_allctn_rl_hdr_pub AS
2 /* $Header: OKLPCAUB.pls 120.4 2006/07/13 12:21:20 adagur noship $ */
3
4 PROCEDURE insert_csh_allctn_rl_hdr(
5 p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2
7 ,x_return_status OUT NOCOPY VARCHAR2
8 ,x_msg_count OUT NOCOPY NUMBER
9 ,x_msg_data OUT NOCOPY VARCHAR2
10 ,p_cauv_rec IN cauv_rec_type
11 ,x_cauv_rec OUT NOCOPY cauv_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_cauv_rec cauv_rec_type;
20 lx_cauv_rec cauv_rec_type;
21
22 BEGIN
23
24 SAVEPOINT csh_allctn_rl_hdr_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_cauv_rec := p_cauv_rec;
33 lx_cauv_rec := x_cauv_rec;
34
35
36 lp_cauv_rec.org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
37
38
39
40
41 -- Private API Call start
42 okl_cau_pvt.insert_row(
43 l_api_version
44 ,l_init_msg_list
45 ,l_return_status
46 ,l_msg_count
47 ,l_msg_data
48 ,lp_cauv_rec
49 ,lx_cauv_rec);
50 -- Private API Call start
51
52 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
53 RAISE FND_API.G_EXC_ERROR;
54 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
55 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56 END IF;
57
58 --Copy value of OUT variable in the IN record type
59 lp_cauv_rec := lx_cauv_rec;
60
61
62
63
64
65 --Assign value to OUT variables
66 x_cauv_rec := lx_cauv_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 csh_allctn_rl_hdr_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 csh_allctn_rl_hdr_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 csh_allctn_rl_hdr_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_CSH_ALLCTN_RL_HDR_PUB','insert_csh_allctn_rl_hdr');
95 FND_MSG_PUB.count_and_get(
96 p_count => x_msg_count
97 ,p_data => x_msg_data);
98 END insert_csh_allctn_rl_hdr;
99
100 PROCEDURE insert_csh_allctn_rl_hdr(
101 p_api_version IN NUMBER
102 ,p_init_msg_list IN VARCHAR2
103 ,x_return_status OUT NOCOPY VARCHAR2
104 ,x_msg_count OUT NOCOPY NUMBER
105 ,x_msg_data OUT NOCOPY VARCHAR2
106 ,p_cauv_tbl IN cauv_tbl_type
107 ,x_cauv_tbl OUT NOCOPY cauv_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_cauv_tbl cauv_tbl_type;
115 lx_cauv_tbl cauv_tbl_type;
116
117 BEGIN
118
119 SAVEPOINT csh_allctn_rl_hdr_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_cauv_tbl := p_cauv_tbl;
128 lx_cauv_tbl := x_cauv_tbl;
129
130 for i in 1..lp_cauv_tbl.count
131 LOOP
132 lp_cauv_tbl(i).org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
133
134 END LOOP;
135
136
137
138 -- Private API Call start
139 okl_cau_pvt.insert_row(
140 l_api_version
141 ,l_init_msg_list
142 ,l_return_status
143 ,l_msg_count
144 ,l_msg_data
145 ,lp_cauv_tbl
146 ,lx_cauv_tbl);
147 -- Private API Call end
148
149 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
150 RAISE FND_API.G_EXC_ERROR;
151 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
152 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153 END IF;
154
155 --Copy value of OUT variable in the IN record type
156 lp_cauv_tbl := lx_cauv_tbl;
157
158
159
160 --Assign value to OUT variables
161 x_cauv_tbl := lx_cauv_tbl;
162 x_return_status := l_return_status ;
163 x_msg_count := l_msg_count ;
164 x_msg_data := l_msg_data ;
165
166
167 EXCEPTION
168
169 WHEN FND_API.G_EXC_ERROR THEN
170 ROLLBACK TO csh_allctn_rl_hdr_insert;
171 x_return_status := FND_API.G_RET_STS_ERROR;
172 x_msg_count := l_msg_count ;
173 x_msg_data := l_msg_data ;
174 FND_MSG_PUB.count_and_get(
175 p_count => x_msg_count
176 ,p_data => x_msg_data);
177 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178 ROLLBACK TO csh_allctn_rl_hdr_insert;
179 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
180 x_msg_count := l_msg_count ;
181 x_msg_data := l_msg_data ;
182 FND_MSG_PUB.count_and_get(
183 p_count => x_msg_count
184 ,p_data => x_msg_data);
185 WHEN OTHERS THEN
186 ROLLBACK TO csh_allctn_rl_hdr_insert;
187 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
188 x_msg_count := l_msg_count ;
189 x_msg_data := l_msg_data ;
190 FND_MSG_PUB.ADD_EXC_MSG('OKL_CSH_ALLCTN_RL_HDR_PUB','insert_csh_allctn_rl_hdr');
191 FND_MSG_PUB.count_and_get(
192 p_count => x_msg_count
193 ,p_data => x_msg_data);
194 END insert_csh_allctn_rl_hdr;
195
196 PROCEDURE lock_csh_allctn_rl_hdr(
197 p_api_version IN NUMBER
198 ,p_init_msg_list IN VARCHAR2
199 ,x_return_status OUT NOCOPY VARCHAR2
200 ,x_msg_count OUT NOCOPY NUMBER
201 ,x_msg_data OUT NOCOPY VARCHAR2
202 ,p_cauv_rec IN cauv_rec_type) IS
203
204 BEGIN
205 okl_cau_pvt.lock_row(
206 p_api_version,
207 p_init_msg_list,
208 x_return_status,
209 x_msg_count,
210 x_msg_data,
211 p_cauv_rec);
212
213 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
214 RAISE FND_API.G_EXC_ERROR;
215 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
216 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
217 END IF;
218
219
220 EXCEPTION
221
222 WHEN FND_API.G_EXC_ERROR THEN
223 FND_MSG_PUB.count_and_get(
224 p_count => x_msg_count
225 ,p_data => x_msg_data);
226 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227 FND_MSG_PUB.count_and_get(
228 p_count => x_msg_count
229 ,p_data => x_msg_data);
230 WHEN OTHERS THEN
231 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
232 FND_MSG_PUB.ADD_EXC_MSG('OKL_CSH_ALLCTN_RL_HDR_PUB','lock_csh_allctn_rl_hdr');
233 FND_MSG_PUB.count_and_get(
234 p_count => x_msg_count
235 ,p_data => x_msg_data);
236 END lock_csh_allctn_rl_hdr;
237
238 PROCEDURE lock_csh_allctn_rl_hdr(
239 p_api_version IN NUMBER
240 ,p_init_msg_list IN VARCHAR2
241 ,x_return_status OUT NOCOPY VARCHAR2
242 ,x_msg_count OUT NOCOPY NUMBER
243 ,x_msg_data OUT NOCOPY VARCHAR2
244 ,p_cauv_tbl IN cauv_tbl_type) IS
245
246 BEGIN
247 okl_cau_pvt.lock_row(
248 p_api_version,
249 p_init_msg_list,
250 x_return_status,
251 x_msg_count,
252 x_msg_data,
253 p_cauv_tbl);
254
255 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
256 RAISE FND_API.G_EXC_ERROR;
257 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
258 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259 END IF;
260
261
262 EXCEPTION
263
264 WHEN FND_API.G_EXC_ERROR THEN
265 FND_MSG_PUB.count_and_get(
266 p_count => x_msg_count
267 ,p_data => x_msg_data);
268 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269 FND_MSG_PUB.count_and_get(
270 p_count => x_msg_count
271 ,p_data => x_msg_data);
272 WHEN OTHERS THEN
273 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274 FND_MSG_PUB.ADD_EXC_MSG('OKL_CSH_ALLCTN_RL_HDR_PUB','lock_csh_allctn_rl_hdr');
275 FND_MSG_PUB.count_and_get(
276 p_count => x_msg_count
277 ,p_data => x_msg_data);
278 END lock_csh_allctn_rl_hdr;
279
280 PROCEDURE update_csh_allctn_rl_hdr(
281 p_api_version IN NUMBER
282 ,p_init_msg_list IN VARCHAR2
283 ,x_return_status OUT NOCOPY VARCHAR2
284 ,x_msg_count OUT NOCOPY NUMBER
285 ,x_msg_data OUT NOCOPY VARCHAR2
286 ,p_cauv_rec IN cauv_rec_type
287 ,x_cauv_rec OUT NOCOPY cauv_rec_type) IS
288
289 l_api_version NUMBER ;
290 l_init_msg_list VARCHAR2(1) ;
291 l_return_status VARCHAR2(1);
292 l_msg_count NUMBER ;
293 l_msg_data VARCHAR2(2000);
294 lp_cauv_rec cauv_rec_type;
295 lx_cauv_rec cauv_rec_type;
296
297 BEGIN
298
299 SAVEPOINT csh_allctn_rl_hdr_update;
300
301
302 l_api_version := p_api_version ;
303 l_init_msg_list := p_init_msg_list ;
304 l_return_status := x_return_status ;
305 l_msg_count := x_msg_count ;
306 l_msg_data := x_msg_data ;
307 lp_cauv_rec := p_cauv_rec;
308 lx_cauv_rec := x_cauv_rec;
309
310
311
312
313
314 -- Private API Call start
315 okl_cau_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_cauv_rec
322 ,lx_cauv_rec);
323 -- Private API Call end
324
325 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
326 RAISE FND_API.G_EXC_ERROR;
327 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
328 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
329 END IF;
330
331 --Copy value of OUT variable in the IN record type
332 lp_cauv_rec := lx_cauv_rec;
333
334
335
336
337 --Assign value to OUT variables
338 x_cauv_rec := lx_cauv_rec;
339 x_return_status := l_return_status ;
340 x_msg_count := l_msg_count ;
341 x_msg_data := l_msg_data ;
342
343
344 EXCEPTION
345
346 WHEN FND_API.G_EXC_ERROR THEN
347 ROLLBACK TO csh_allctn_rl_hdr_update;
348 x_return_status := FND_API.G_RET_STS_ERROR;
349 x_msg_count := l_msg_count ;
350 x_msg_data := l_msg_data ;
351 FND_MSG_PUB.count_and_get(
352 p_count => x_msg_count
353 ,p_data => x_msg_data);
354 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
355 ROLLBACK TO csh_allctn_rl_hdr_update;
356 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
357 x_msg_count := l_msg_count ;
358 x_msg_data := l_msg_data ;
359 FND_MSG_PUB.count_and_get(
360 p_count => x_msg_count
361 ,p_data => x_msg_data);
362 WHEN OTHERS THEN
363 ROLLBACK TO csh_allctn_rl_hdr_update;
364 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
365 x_msg_count := l_msg_count ;
366 x_msg_data := l_msg_data ;
367 FND_MSG_PUB.ADD_EXC_MSG('OKL_CSH_ALLCTN_RL_HDR_PUB','update_csh_allctn_rl_hdr');
368 FND_MSG_PUB.count_and_get(
369 p_count => x_msg_count
370 ,p_data => x_msg_data);
371 END update_csh_allctn_rl_hdr;
372
373 PROCEDURE update_csh_allctn_rl_hdr(
374 p_api_version IN NUMBER
375 ,p_init_msg_list IN VARCHAR2
376 ,x_return_status OUT NOCOPY VARCHAR2
377 ,x_msg_count OUT NOCOPY NUMBER
378 ,x_msg_data OUT NOCOPY VARCHAR2
379 ,p_cauv_tbl IN cauv_tbl_type
380 ,x_cauv_tbl OUT NOCOPY cauv_tbl_type) IS
381
382 l_api_version NUMBER;
383 l_init_msg_list VARCHAR2(200);
384 l_msg_data VARCHAR2(100);
385 l_msg_count NUMBER ;
386 l_return_status VARCHAR2(1);
387 lp_cauv_tbl cauv_tbl_type;
388 lx_cauv_tbl cauv_tbl_type;
389
390 BEGIN
391
392 SAVEPOINT csh_allctn_rl_hdr_update;
393
394
395 lp_cauv_tbl := p_cauv_tbl;
396 lx_cauv_tbl := x_cauv_tbl;
397 l_api_version := p_api_version ;
398 l_init_msg_list := p_init_msg_list ;
399 l_msg_data := x_msg_data ;
400 l_msg_count := x_msg_count ;
401
402
403
404
405
406 -- Private API Call start
407 okl_cau_pvt.update_row(
408 l_api_version
409 ,l_init_msg_list
410 ,l_return_status
411 ,l_msg_count
412 ,l_msg_data
413 ,lp_cauv_tbl
414 ,lx_cauv_tbl);
415 -- Private API Call end
416
417 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
418 RAISE FND_API.G_EXC_ERROR;
419 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
420 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421 END IF;
422
423 --Copy value of OUT variable in the IN record type
424 lp_cauv_tbl := lx_cauv_tbl;
425
426
427
428 --Assign value to OUT variables
429 x_cauv_tbl := lx_cauv_tbl;
430 x_return_status := l_return_status ;
431 x_msg_count := l_msg_count ;
432 x_msg_data := l_msg_data ;
433
434
435 EXCEPTION
436
437 WHEN FND_API.G_EXC_ERROR THEN
438 ROLLBACK TO csh_allctn_rl_hdr_update;
439 x_return_status := FND_API.G_RET_STS_ERROR;
440 x_msg_count := l_msg_count ;
441 x_msg_data := l_msg_data ;
442 FND_MSG_PUB.count_and_get(
443 p_count => x_msg_count
444 ,p_data => x_msg_data);
445 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
446 ROLLBACK TO csh_allctn_rl_hdr_update;
447 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
448 x_msg_count := l_msg_count ;
449 x_msg_data := l_msg_data ;
450 FND_MSG_PUB.count_and_get(
451 p_count => x_msg_count
452 ,p_data => x_msg_data);
453 WHEN OTHERS THEN
454 ROLLBACK TO csh_allctn_rl_hdr_update;
455 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456 x_msg_count := l_msg_count ;
457 x_msg_data := l_msg_data ;
458 FND_MSG_PUB.ADD_EXC_MSG('OKL_CSH_ALLCTN_RL_HDR_PUB','update_csh_allctn_rl_hdr');
459 FND_MSG_PUB.count_and_get(
460 p_count => x_msg_count
461 ,p_data => x_msg_data);
462 END update_csh_allctn_rl_hdr;
463
464 --Put custom code for cascade delete by developer
465 PROCEDURE delete_csh_allctn_rl_hdr(
466 p_api_version IN NUMBER
467 ,p_init_msg_list IN VARCHAR2
468 ,x_return_status OUT NOCOPY VARCHAR2
469 ,x_msg_count OUT NOCOPY NUMBER
470 ,x_msg_data OUT NOCOPY VARCHAR2
471 ,p_cauv_rec IN cauv_rec_type) IS
472
473 i NUMBER :=0;
474 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
475 l_api_version NUMBER ;
476 l_init_msg_list VARCHAR2(1) ;
477 l_msg_data VARCHAR2(2000);
478 l_msg_count NUMBER ;
479 lp_cauv_rec cauv_rec_type;
480 lx_cauv_rec cauv_rec_type;
481
482 BEGIN
483
484 SAVEPOINT csh_allctn_rl_hdr_delete_rec;
485
486
487 l_api_version := p_api_version ;
488 l_init_msg_list := p_init_msg_list ;
489 l_msg_data := x_msg_data;
490 l_msg_count := x_msg_count ;
491 lp_cauv_rec := p_cauv_rec;
492 lx_cauv_rec := p_cauv_rec;
493
494
495
496
497 --Delete the Master
498 -- Private API Call start
499 okl_cau_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_cauv_rec);
506 -- Private API Call end
507
508 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
509 RAISE FND_API.G_EXC_ERROR;
510 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
511 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512 END IF;
513
514
515
516
517
518 --Assign value to OUT variables
519 x_msg_count := l_msg_count ;
520 x_msg_data := l_msg_data ;
521 x_return_status := l_return_status ;
522
523 EXCEPTION
524
525 WHEN FND_API.G_EXC_ERROR THEN
526 ROLLBACK TO csh_allctn_rl_hdr_delete_rec;
527 x_return_status := FND_API.G_RET_STS_ERROR;
528 x_msg_count := l_msg_count ;
529 x_msg_data := l_msg_data ;
530 FND_MSG_PUB.count_and_get(
531 p_count => x_msg_count
532 ,p_data => x_msg_data);
533 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
534 ROLLBACK TO csh_allctn_rl_hdr_delete_rec;
535 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
536 x_msg_count := l_msg_count ;
537 x_msg_data := l_msg_data ;
538 FND_MSG_PUB.count_and_get(
539 p_count => x_msg_count
540 ,p_data => x_msg_data);
541 WHEN OTHERS THEN
542 ROLLBACK TO csh_allctn_rl_hdr_delete_rec;
543 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
544 x_msg_count := l_msg_count ;
545 x_msg_data := l_msg_data ;
546 FND_MSG_PUB.ADD_EXC_MSG('OKL_CSH_ALLCTN_RL_HDR_PUB','delete_csh_allctn_rl_hdr');
547 FND_MSG_PUB.count_and_get(
548 p_count => x_msg_count
549 ,p_data => x_msg_data);
550 END delete_csh_allctn_rl_hdr;
551
552 PROCEDURE delete_csh_allctn_rl_hdr(
553 p_api_version IN NUMBER
554 ,p_init_msg_list IN VARCHAR2
555 ,x_return_status OUT NOCOPY VARCHAR2
556 ,x_msg_count OUT NOCOPY NUMBER
557 ,x_msg_data OUT NOCOPY VARCHAR2
558 ,p_cauv_tbl IN cauv_tbl_type) IS
559
560 i NUMBER := 0;
561 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
562 l_api_version NUMBER := p_api_version ;
563 l_init_msg_list VARCHAR2(1) := p_init_msg_list ;
564 l_msg_data VARCHAR2(2000);
565 l_msg_count NUMBER ;
566 lp_cauv_tbl cauv_tbl_type;
567 lx_cauv_tbl cauv_tbl_type;
568
569 BEGIN
570
571 SAVEPOINT csh_allctn_rl_hdr_delete_tbl;
572
573
574 l_api_version := p_api_version ;
575 l_init_msg_list := p_init_msg_list ;
576 l_msg_data := x_msg_data;
577 l_msg_count := x_msg_count ;
578 lp_cauv_tbl := p_cauv_tbl;
579 lx_cauv_tbl := p_cauv_tbl;
580
581
582
583
584 BEGIN
585 --Initialize the return status
586 l_return_status := OKC_API.G_RET_STS_SUCCESS;
587
588 IF (lp_cauv_tbl.COUNT > 0) THEN
589 i := p_cauv_tbl.FIRST;
590 LOOP
591 delete_csh_allctn_rl_hdr(
592 l_api_version
593 ,l_init_msg_list
594 ,l_return_status
595 ,l_msg_count
596 ,l_msg_data
597 ,lp_cauv_tbl(i));
598 EXIT WHEN (i = lp_cauv_tbl.LAST);
599 i := p_cauv_tbl.NEXT(i);
600 END LOOP;
601 END IF;
602 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
603 RAISE FND_API.G_EXC_ERROR;
604 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
605 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606 END IF;
607
608 END;
609
610
611
612
613
614 --Assign value to OUT variables
615 x_msg_count := l_msg_count ;
616 x_msg_data := l_msg_data ;
617
618 x_return_status := l_return_status ;
619
620 EXCEPTION
621
622 WHEN FND_API.G_EXC_ERROR THEN
623 ROLLBACK TO csh_allctn_rl_hdr_delete_tbl;
624 x_return_status := FND_API.G_RET_STS_ERROR;
625 x_msg_count := l_msg_count ;
626 x_msg_data := l_msg_data ;
627 FND_MSG_PUB.count_and_get(
628 p_count => x_msg_count
629 ,p_data => x_msg_data);
630 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
631 ROLLBACK TO csh_allctn_rl_hdr_delete_tbl;
632 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633 x_msg_count := l_msg_count ;
634 x_msg_data := l_msg_data ;
635 FND_MSG_PUB.count_and_get(
636 p_count => x_msg_count
637 ,p_data => x_msg_data);
638 WHEN OTHERS THEN
639 ROLLBACK TO csh_allctn_rl_hdr_delete_tbl;
640 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641 x_msg_count := l_msg_count ;
642 x_msg_data := l_msg_data ;
643 FND_MSG_PUB.ADD_EXC_MSG('OKL_CSH_ALLCTN_RL_HDR_PUB','delete_csh_allctn_rl_hdr');
644 FND_MSG_PUB.count_and_get(
645 p_count => x_msg_count
646 ,p_data => x_msg_data);
647 END delete_csh_allctn_rl_hdr;
648
649 PROCEDURE validate_csh_allctn_rl_hdr(
650 p_api_version IN NUMBER
651 ,p_init_msg_list IN VARCHAR2
652 ,x_return_status OUT NOCOPY VARCHAR2
653 ,x_msg_count OUT NOCOPY NUMBER
654 ,x_msg_data OUT NOCOPY VARCHAR2
655 ,p_cauv_rec IN cauv_rec_type) IS
656
657 l_api_version NUMBER ;
658 l_init_msg_list VARCHAR2(1) ;
659 l_msg_data VARCHAR2(2000);
660 l_msg_count NUMBER ;
661 lp_cauv_rec cauv_rec_type;
662 lx_cauv_rec cauv_rec_type;
663 l_return_status VARCHAR2(1);
664
665 BEGIN
666
667 SAVEPOINT csh_allctn_rl_hdr_validate;
668
669
670 l_api_version := p_api_version ;
671 l_init_msg_list := p_init_msg_list ;
672 l_msg_data := x_msg_data;
673 l_msg_count := x_msg_count ;
674 lp_cauv_rec := p_cauv_rec;
675 lx_cauv_rec := p_cauv_rec;
676
677
678
679
680 -- Private API Call start
681 okl_cau_pvt.validate_row(
682 l_api_version
683 ,l_init_msg_list
684 ,l_return_status
685 ,l_msg_count
686 ,l_msg_data
687 ,lp_cauv_rec);
688 -- Private API Call end
689
690 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
691 RAISE FND_API.G_EXC_ERROR;
692 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
693 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694 END IF;
695
696 --Copy value of OUT variable in the IN record type
697 lp_cauv_rec := lx_cauv_rec;
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 csh_allctn_rl_hdr_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 csh_allctn_rl_hdr_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 csh_allctn_rl_hdr_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_CSH_ALLCTN_RL_HDR_PUB','validate_csh_allctn_rl_hdr');
733 FND_MSG_PUB.count_and_get(
734 p_count => x_msg_count
735 ,p_data => x_msg_data);
736 END validate_csh_allctn_rl_hdr;
737
738 PROCEDURE validate_csh_allctn_rl_hdr(
739 p_api_version IN NUMBER,
740 p_init_msg_list IN VARCHAR2 ,
741 x_return_status OUT NOCOPY VARCHAR2,
742 x_msg_count OUT NOCOPY NUMBER,
743 x_msg_data OUT NOCOPY VARCHAR2,
744 p_cauv_tbl IN cauv_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_cauv_tbl cauv_tbl_type;
750 lx_cauv_tbl cauv_tbl_type;
751 l_return_status VARCHAR2(1);
752
753 BEGIN
754
755 SAVEPOINT csh_allctn_rl_hdr_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_cauv_tbl := p_cauv_tbl;
763 lx_cauv_tbl := p_cauv_tbl;
764
765
766
767 -- Private API Call start
768 okl_cau_pvt.validate_row(
769 p_api_version
770 ,p_init_msg_list
771 ,x_return_status
772 ,x_msg_count
773 ,x_msg_data
774 ,lp_cauv_tbl);
775 -- Private API Call end
776
777 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
778 RAISE FND_API.G_EXC_ERROR;
779 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
780 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
781 END IF;
782
783 --Copy value of OUT variable in the IN record type
784 lp_cauv_tbl := lx_cauv_tbl;
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 csh_allctn_rl_hdr_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 csh_allctn_rl_hdr_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 csh_allctn_rl_hdr_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_CSH_ALLCTN_RL_HDR_PUB','validate_csh_allctn_rl_hdr');
818 FND_MSG_PUB.count_and_get(
819 p_count => x_msg_count
820 ,p_data => x_msg_data);
821 END validate_csh_allctn_rl_hdr;
822
823 END OKL_CSH_ALLCTN_RL_HDR_PUB;