[Home] [Help]
PACKAGE BODY: APPS.OKL_XTL_FUND_RQNS_PUB
Source
1 PACKAGE BODY okl_xtl_fund_rqns_pub AS
2 /* $Header: OKLPXLRB.pls 115.7 2004/04/13 11:27:34 rnaik noship $ */
3
4
5 /*
6 PROCEDURE insert_xtl_fund_rqns(
7 p_api_version IN NUMBER
8 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
9 ,x_return_status OUT NOCOPY VARCHAR2
10 ,x_msg_count OUT NOCOPY NUMBER
11 ,x_msg_data OUT NOCOPY VARCHAR2
12 ,p_xlrv_rec IN xlrv_rec_type
13 ,x_xlrv_rec OUT NOCOPY xlrv_rec_type) IS
14
15
16 l_api_version NUMBER ;
17 l_init_msg_list VARCHAR2(1) ;
18 l_return_status VARCHAR2(1);
19 l_msg_count NUMBER ;
20 l_msg_data VARCHAR2(2000);
21 lp_xlrv_rec xlrv_rec_type;
22 lx_xlrv_rec xlrv_rec_type;
23
24 BEGIN
25
26 SAVEPOINT xtl_fund_rqns_insert;
27
28
29 l_api_version := p_api_version ;
30 l_init_msg_list := p_init_msg_list ;
31 l_return_status := x_return_status ;
32 l_msg_count := x_msg_count ;
33 l_msg_data := x_msg_data ;
34 lp_xlrv_rec := p_xlrv_rec;
35 lx_xlrv_rec := x_xlrv_rec;
36
37
38
39
40
41
42 okl_xlr_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_xlrv_rec
49 ,lx_xlrv_rec);
50
51 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
52 RAISE FND_API.G_EXC_ERROR;
53 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
54 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55 END IF;
56
57 --Copy value of OUT variable in the IN record type
58 lp_xlrv_rec := lx_xlrv_rec;
59
60
61
62
63
64 --Assign value to OUT variables
65 x_xlrv_rec := lx_xlrv_rec;
66 x_return_status := l_return_status ;
67 x_msg_count := l_msg_count ;
68 x_msg_data := l_msg_data ;
69
70 EXCEPTION
71
72 WHEN FND_API.G_EXC_ERROR THEN
73 ROLLBACK TO xtl_fund_rqns_insert;
74 x_return_status := FND_API.G_RET_STS_ERROR;
75 x_msg_count := l_msg_count ;
76 x_msg_data := l_msg_data ;
77 FND_MSG_PUB.count_and_get(
78 p_count => x_msg_count
79 ,p_data => x_msg_data);
80 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
81 ROLLBACK TO xtl_fund_rqns_insert;
82 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83 x_msg_count := l_msg_count ;
84 x_msg_data := l_msg_data ;
85 FND_MSG_PUB.count_and_get(
86 p_count => x_msg_count
87 ,p_data => x_msg_data);
88 WHEN OTHERS THEN
89 ROLLBACK TO xtl_fund_rqns_insert;
90 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91 x_msg_count := l_msg_count ;
92 x_msg_data := l_msg_data ;
93 FND_MSG_PUB.ADD_EXC_MSG('OKL_XTL_FUND_RQNS_PUB','insert_xtl_fund_rqns');
94 FND_MSG_PUB.count_and_get(
95 p_count => x_msg_count
96 ,p_data => x_msg_data);
97 END insert_xtl_fund_rqns;
98
99 PROCEDURE insert_xtl_fund_rqns(
100 p_api_version IN NUMBER
101 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
102 ,x_return_status OUT NOCOPY VARCHAR2
103 ,x_msg_count OUT NOCOPY NUMBER
104 ,x_msg_data OUT NOCOPY VARCHAR2
105 ,p_xlrv_tbl IN xlrv_tbl_type
106 ,x_xlrv_tbl OUT NOCOPY xlrv_tbl_type) IS
107
108 l_api_version NUMBER;
109 l_init_msg_list VARCHAR2(1) ;
110 l_msg_data VARCHAR2(2000);
111 l_msg_count NUMBER ;
112 l_return_status VARCHAR2(1);
113 lp_xlrv_tbl xlrv_tbl_type;
114 lx_xlrv_tbl xlrv_tbl_type;
115
116 BEGIN
117
118 SAVEPOINT xtl_fund_rqns_insert;
119
120
121 l_api_version := p_api_version ;
122 l_init_msg_list := p_init_msg_list ;
123 l_return_status := x_return_status ;
124 l_msg_count := x_msg_count ;
125 l_msg_data := x_msg_data ;
126 lp_xlrv_tbl := p_xlrv_tbl;
127 lx_xlrv_tbl := x_xlrv_tbl;
128
129
130
131 okl_xlr_pvt.insert_row(
132 l_api_version
133 ,l_init_msg_list
134 ,l_return_status
135 ,l_msg_count
136 ,l_msg_data
137 ,lp_xlrv_tbl
138 ,lx_xlrv_tbl);
139
140 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
141 RAISE FND_API.G_EXC_ERROR;
142 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
143 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
144 END IF;
145
146 --Copy value of OUT variable in the IN record type
147 lp_xlrv_tbl := lx_xlrv_tbl;
148
149
150
151 --Assign value to OUT variables
152 x_xlrv_tbl := lx_xlrv_tbl;
153 x_return_status := l_return_status ;
154 x_msg_count := l_msg_count ;
155 x_msg_data := l_msg_data ;
156
157
158 EXCEPTION
159
160 WHEN FND_API.G_EXC_ERROR THEN
161 ROLLBACK TO xtl_fund_rqns_insert;
162 x_return_status := FND_API.G_RET_STS_ERROR;
163 x_msg_count := l_msg_count ;
164 x_msg_data := l_msg_data ;
165 FND_MSG_PUB.count_and_get(
166 p_count => x_msg_count
167 ,p_data => x_msg_data);
168 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
169 ROLLBACK TO xtl_fund_rqns_insert;
170 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
171 x_msg_count := l_msg_count ;
172 x_msg_data := l_msg_data ;
173 FND_MSG_PUB.count_and_get(
174 p_count => x_msg_count
175 ,p_data => x_msg_data);
176 WHEN OTHERS THEN
177 ROLLBACK TO xtl_fund_rqns_insert;
178 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
179 x_msg_count := l_msg_count ;
180 x_msg_data := l_msg_data ;
181 FND_MSG_PUB.ADD_EXC_MSG('OKL_XTL_FUND_RQNS_PUB','insert_xtl_fund_rqns');
182 FND_MSG_PUB.count_and_get(
183 p_count => x_msg_count
184 ,p_data => x_msg_data);
185 END insert_xtl_fund_rqns;
186
187 PROCEDURE lock_xtl_fund_rqns(
188 p_api_version IN NUMBER
189 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
190 ,x_return_status OUT NOCOPY VARCHAR2
191 ,x_msg_count OUT NOCOPY NUMBER
192 ,x_msg_data OUT NOCOPY VARCHAR2
193 ,p_xlrv_rec IN xlrv_rec_type) IS
194
195 BEGIN
196 okl_xlr_pvt.lock_row(
197 p_api_version,
198 p_init_msg_list,
199 x_return_status,
200 x_msg_count,
201 x_msg_data,
202 p_xlrv_rec);
203
204 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
205 RAISE FND_API.G_EXC_ERROR;
206 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
207 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208 END IF;
209
210
211 EXCEPTION
212
213 WHEN FND_API.G_EXC_ERROR THEN
214 FND_MSG_PUB.count_and_get(
215 p_count => x_msg_count
216 ,p_data => x_msg_data);
217 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
218 FND_MSG_PUB.count_and_get(
219 p_count => x_msg_count
220 ,p_data => x_msg_data);
221 WHEN OTHERS THEN
222 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223 FND_MSG_PUB.ADD_EXC_MSG('OKL_XTL_FUND_RQNS_PUB','lock_xtl_fund_rqns');
224 FND_MSG_PUB.count_and_get(
225 p_count => x_msg_count
226 ,p_data => x_msg_data);
227 END lock_xtl_fund_rqns;
228
229 PROCEDURE lock_xtl_fund_rqns(
230 p_api_version IN NUMBER
231 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
232 ,x_return_status OUT NOCOPY VARCHAR2
233 ,x_msg_count OUT NOCOPY NUMBER
234 ,x_msg_data OUT NOCOPY VARCHAR2
235 ,p_xlrv_tbl IN xlrv_tbl_type) IS
236
237 BEGIN
238 okl_xlr_pvt.lock_row(
239 p_api_version,
240 p_init_msg_list,
241 x_return_status,
242 x_msg_count,
243 x_msg_data,
244 p_xlrv_tbl);
245
246 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
247 RAISE FND_API.G_EXC_ERROR;
248 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
249 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
250 END IF;
251
252
253 EXCEPTION
254
255 WHEN FND_API.G_EXC_ERROR THEN
256 FND_MSG_PUB.count_and_get(
257 p_count => x_msg_count
258 ,p_data => x_msg_data);
259 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260 FND_MSG_PUB.count_and_get(
261 p_count => x_msg_count
262 ,p_data => x_msg_data);
263 WHEN OTHERS THEN
264 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
265 FND_MSG_PUB.ADD_EXC_MSG('OKL_XTL_FUND_RQNS_PUB','lock_xtl_fund_rqns');
266 FND_MSG_PUB.count_and_get(
267 p_count => x_msg_count
268 ,p_data => x_msg_data);
269 END lock_xtl_fund_rqns;
270
271 PROCEDURE update_xtl_fund_rqns(
272 p_api_version IN NUMBER
273 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
274 ,x_return_status OUT NOCOPY VARCHAR2
275 ,x_msg_count OUT NOCOPY NUMBER
276 ,x_msg_data OUT NOCOPY VARCHAR2
277 ,p_xlrv_rec IN xlrv_rec_type
278 ,x_xlrv_rec OUT NOCOPY xlrv_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_xlrv_rec xlrv_rec_type;
286 lx_xlrv_rec xlrv_rec_type;
287
288 BEGIN
289
290 SAVEPOINT xtl_fund_rqns_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_xlrv_rec := p_xlrv_rec;
299 lx_xlrv_rec := x_xlrv_rec;
300
301
302
303
304
305 okl_xlr_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_xlrv_rec
312 ,lx_xlrv_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_xlrv_rec := lx_xlrv_rec;
322
323
324
325
326 --Assign value to OUT variables
327 x_xlrv_rec := lx_xlrv_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 xtl_fund_rqns_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 xtl_fund_rqns_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 xtl_fund_rqns_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_XTL_FUND_RQNS_PUB','update_xtl_fund_rqns');
357 FND_MSG_PUB.count_and_get(
358 p_count => x_msg_count
359 ,p_data => x_msg_data);
360 END update_xtl_fund_rqns;
361
362 PROCEDURE update_xtl_fund_rqns(
363 p_api_version IN NUMBER
364 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
365 ,x_return_status OUT NOCOPY VARCHAR2
366 ,x_msg_count OUT NOCOPY NUMBER
367 ,x_msg_data OUT NOCOPY VARCHAR2
368 ,p_xlrv_tbl IN xlrv_tbl_type
369 ,x_xlrv_tbl OUT NOCOPY xlrv_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_xlrv_tbl xlrv_tbl_type;
377 lx_xlrv_tbl xlrv_tbl_type;
378
379 BEGIN
380
381 SAVEPOINT xtl_fund_rqns_update;
382
383
384 lp_xlrv_tbl := p_xlrv_tbl;
385 lx_xlrv_tbl := x_xlrv_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_xlr_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_xlrv_tbl
402 ,lx_xlrv_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_xlrv_tbl := lx_xlrv_tbl;
412
413
414
415 --Assign value to OUT variables
416 x_xlrv_tbl := lx_xlrv_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 xtl_fund_rqns_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 xtl_fund_rqns_update;
434 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438 p_count => x_msg_count
435 x_msg_count := l_msg_count ;
436 x_msg_data := l_msg_data ;
437 FND_MSG_PUB.count_and_get(
439 ,p_data => x_msg_data);
440 WHEN OTHERS THEN
441 ROLLBACK TO xtl_fund_rqns_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_XTL_FUND_RQNS_PUB','update_xtl_fund_rqns');
446 FND_MSG_PUB.count_and_get(
447 p_count => x_msg_count
448 ,p_data => x_msg_data);
449 END update_xtl_fund_rqns;
450
451 --Put custom code for cascade delete by developer
452 PROCEDURE delete_xtl_fund_rqns(
453 p_api_version IN NUMBER
454 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
455 ,x_return_status OUT NOCOPY VARCHAR2
456 ,x_msg_count OUT NOCOPY NUMBER
457 ,x_msg_data OUT NOCOPY VARCHAR2
458 ,p_xlrv_rec IN xlrv_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_xlrv_rec xlrv_rec_type;
467 lx_xlrv_rec xlrv_rec_type;
468
469 BEGIN
470
471 SAVEPOINT xtl_fund_rqns_delete_rec;
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_xlrv_rec := p_xlrv_rec;
479 lx_xlrv_rec := p_xlrv_rec;
480
481
482
483
484 --Delete the Master
485 okl_xlr_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_xlrv_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 xtl_fund_rqns_delete_rec;
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 xtl_fund_rqns_delete_rec;
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 xtl_fund_rqns_delete_rec;
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_XTL_FUND_RQNS_PUB','delete_xtl_fund_rqns');
532 FND_MSG_PUB.count_and_get(
533 p_count => x_msg_count
534 ,p_data => x_msg_data);
535 END delete_xtl_fund_rqns;
536
537 PROCEDURE delete_xtl_fund_rqns(
538 p_api_version IN NUMBER
539 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_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_xlrv_tbl IN xlrv_tbl_type) IS
544
545 i NUMBER := 0;
546 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
547 l_api_version NUMBER := p_api_version ;
548 l_init_msg_list VARCHAR2(1) := p_init_msg_list ;
549 l_msg_data VARCHAR2(2000);
550 l_msg_count NUMBER ;
551 lp_xlrv_tbl xlrv_tbl_type;
552 lx_xlrv_tbl xlrv_tbl_type;
553
554 BEGIN
555
556 SAVEPOINT xtl_fund_rqns_delete_tbl;
557
558
559 l_api_version := p_api_version ;
560 l_init_msg_list := p_init_msg_list ;
561 l_msg_data := x_msg_data;
562 l_msg_count := x_msg_count ;
563 lp_xlrv_tbl := p_xlrv_tbl;
564 lx_xlrv_tbl := p_xlrv_tbl;
565
566
567
568
569 BEGIN
570 --Initialize the return status
571 l_return_status := OKC_API.G_RET_STS_SUCCESS;
572
573 IF (lp_xlrv_tbl.COUNT > 0) THEN
574 i := p_xlrv_tbl.FIRST;
575 LOOP
576 delete_xtl_fund_rqns(
577 l_api_version
578 ,l_init_msg_list
579 ,l_return_status
580 ,l_msg_count
581 ,l_msg_data
582 ,lp_xlrv_tbl(i));
583 EXIT WHEN (i = lp_xlrv_tbl.LAST);
587 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
584 i := p_xlrv_tbl.NEXT(i);
585 END LOOP;
586 END IF;
588 RAISE FND_API.G_EXC_ERROR;
589 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
590 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591 END IF;
592
593 END;
594
595
596
597
598
599 --Assign value to OUT variables
600 x_msg_count := l_msg_count ;
601 x_msg_data := l_msg_data ;
602
603 x_return_status := l_return_status ;
604
605 EXCEPTION
606
607 WHEN FND_API.G_EXC_ERROR THEN
608 ROLLBACK TO xtl_fund_rqns_delete_tbl;
609 x_return_status := FND_API.G_RET_STS_ERROR;
610 x_msg_count := l_msg_count ;
611 x_msg_data := l_msg_data ;
612 FND_MSG_PUB.count_and_get(
613 p_count => x_msg_count
614 ,p_data => x_msg_data);
615 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
616 ROLLBACK TO xtl_fund_rqns_delete_tbl;
617 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
618 x_msg_count := l_msg_count ;
619 x_msg_data := l_msg_data ;
620 FND_MSG_PUB.count_and_get(
621 p_count => x_msg_count
622 ,p_data => x_msg_data);
623 WHEN OTHERS THEN
624 ROLLBACK TO xtl_fund_rqns_delete_tbl;
625 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626 x_msg_count := l_msg_count ;
627 x_msg_data := l_msg_data ;
628 FND_MSG_PUB.ADD_EXC_MSG('OKL_XTL_FUND_RQNS_PUB','delete_xtl_fund_rqns');
629 FND_MSG_PUB.count_and_get(
630 p_count => x_msg_count
631 ,p_data => x_msg_data);
632 END delete_xtl_fund_rqns;
633
634 PROCEDURE validate_xtl_fund_rqns(
635 p_api_version IN NUMBER
636 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
637 ,x_return_status OUT NOCOPY VARCHAR2
638 ,x_msg_count OUT NOCOPY NUMBER
639 ,x_msg_data OUT NOCOPY VARCHAR2
640 ,p_xlrv_rec IN xlrv_rec_type) IS
641
642 l_api_version NUMBER ;
643 l_init_msg_list VARCHAR2(1) ;
644 l_msg_data VARCHAR2(2000);
645 l_msg_count NUMBER ;
646 lp_xlrv_rec xlrv_rec_type;
647 lx_xlrv_rec xlrv_rec_type;
648 l_return_status VARCHAR2(1);
649
650 BEGIN
651
652 SAVEPOINT xtl_fund_rqns_validate;
653
654
655 l_api_version := p_api_version ;
656 l_init_msg_list := p_init_msg_list ;
657 l_msg_data := x_msg_data;
658 l_msg_count := x_msg_count ;
659 lp_xlrv_rec := p_xlrv_rec;
660 lx_xlrv_rec := p_xlrv_rec;
661
662
663
664
665 okl_xlr_pvt.validate_row(
666 l_api_version
667 ,l_init_msg_list
668 ,l_return_status
669 ,l_msg_count
670 ,l_msg_data
671 ,lp_xlrv_rec);
672
673 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
674 RAISE FND_API.G_EXC_ERROR;
675 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
676 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
677 END IF;
678
679 --Copy value of OUT variable in the IN record type
680 lp_xlrv_rec := lx_xlrv_rec;
681
682
683
684
685
686
687
688
689 --Assign value to OUT variables
690 x_msg_count := l_msg_count ;
691 x_msg_data := l_msg_data ;
692
693 x_return_status := l_return_status ;
694
695 EXCEPTION
696
697 WHEN FND_API.G_EXC_ERROR THEN
698 ROLLBACK TO xtl_fund_rqns_validate;
699 x_return_status := FND_API.G_RET_STS_ERROR;
700 x_msg_count := l_msg_count ;
701 x_msg_data := l_msg_data ;
702 FND_MSG_PUB.count_and_get(
703 p_count => x_msg_count
704 ,p_data => x_msg_data);
705 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
706 ROLLBACK TO xtl_fund_rqns_validate;
707 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
708 x_msg_count := l_msg_count ;
709 x_msg_data := l_msg_data ;
710 FND_MSG_PUB.count_and_get(
711 p_count => x_msg_count
712 ,p_data => x_msg_data);
713 WHEN OTHERS THEN
714 ROLLBACK TO xtl_fund_rqns_validate;
715 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716 x_msg_count := l_msg_count ;
717 x_msg_data := l_msg_data ;
718 FND_MSG_PUB.ADD_EXC_MSG('OKL_XTL_FUND_RQNS_PUB','validate_xtl_fund_rqns');
719 FND_MSG_PUB.count_and_get(
720 p_count => x_msg_count
721 ,p_data => x_msg_data);
722 END validate_xtl_fund_rqns;
723
724 PROCEDURE validate_xtl_fund_rqns(
725 p_api_version IN NUMBER,
726 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
727 x_return_status OUT NOCOPY VARCHAR2,
728 x_msg_count OUT NOCOPY NUMBER,
729 x_msg_data OUT NOCOPY VARCHAR2,
730 p_xlrv_tbl IN xlrv_tbl_type) IS
731 l_api_version NUMBER ;
732 l_init_msg_list VARCHAR2(1) ;
733 l_msg_data VARCHAR2(2000);
734 l_msg_count NUMBER ;
735 lp_xlrv_tbl xlrv_tbl_type;
736 lx_xlrv_tbl xlrv_tbl_type;
737 l_return_status VARCHAR2(1);
738
739 BEGIN
740
741 SAVEPOINT xtl_fund_rqns_validate;
742
743
744 l_api_version := p_api_version ;
745 l_init_msg_list := p_init_msg_list ;
746 l_msg_data := x_msg_data;
747 l_msg_count := x_msg_count ;
748 lp_xlrv_tbl := p_xlrv_tbl;
749 lx_xlrv_tbl := p_xlrv_tbl;
750
751
752
753 okl_xlr_pvt.validate_row(
754 p_api_version
755 ,p_init_msg_list
756 ,x_return_status
757 ,x_msg_count
758 ,x_msg_data
759 ,lp_xlrv_tbl);
760
761 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
762 RAISE FND_API.G_EXC_ERROR;
763 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
764 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765 END IF;
766
767 --Copy value of OUT variable in the IN record type
768 lp_xlrv_tbl := lx_xlrv_tbl;
769
770
771
772
773
774 --Assign value to OUT variables
775 x_msg_count := l_msg_count ;
776 x_msg_data := l_msg_data ;
777
778 x_return_status := l_return_status ;
779
780 EXCEPTION
781
782 WHEN FND_API.G_EXC_ERROR THEN
783 ROLLBACK TO xtl_fund_rqns_validate;
784 x_return_status := FND_API.G_RET_STS_ERROR;
785 x_msg_count := l_msg_count ;
786 x_msg_data := l_msg_data ;
787 FND_MSG_PUB.count_and_get(
788 p_count => x_msg_count
789 ,p_data => x_msg_data);
790 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
791 ROLLBACK TO xtl_fund_rqns_validate;
792 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793 x_msg_count := l_msg_count ;
794 x_msg_data := l_msg_data ;
795 FND_MSG_PUB.count_and_get(
796 p_count => x_msg_count
797 ,p_data => x_msg_data);
798 WHEN OTHERS THEN
799 ROLLBACK TO xtl_fund_rqns_validate;
800 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
801 x_msg_count := l_msg_count ;
802 x_msg_data := l_msg_data ;
803 FND_MSG_PUB.ADD_EXC_MSG('OKL_XTL_FUND_RQNS_PUB','validate_xtl_fund_rqns');
804 FND_MSG_PUB.count_and_get(
805 p_count => x_msg_count
806 ,p_data => x_msg_data);
807 END validate_xtl_fund_rqns;
808 */
809
810 END OKL_XTL_FUND_RQNS_PUB;