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