[Home] [Help]
PACKAGE BODY: APPS.OKL_INS_CLASS_CATS_PUB
Source
1 PACKAGE BODY okl_ins_class_cats_pub AS
2 /* $Header: OKLPICGB.pls 115.8 2004/04/13 10:47:16 rnaik noship $ */
3
4 PROCEDURE insert_ins_class_cats(
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_icgv_rec IN icgv_rec_type
11 ,x_icgv_rec OUT NOCOPY icgv_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_icgv_rec icgv_rec_type;
20 lx_icgv_rec icgv_rec_type;
21
22 BEGIN
23
24 SAVEPOINT ins_class_cats_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_icgv_rec := p_icgv_rec;
33 lx_icgv_rec := x_icgv_rec;
34
35
36
37
38
39
40 okl_icg_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_icgv_rec
47 ,lx_icgv_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_icgv_rec := lx_icgv_rec;
57
58
59
60
61
62 --Assign value to OUT variables
63 x_icgv_rec := lx_icgv_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 ins_class_cats_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 ins_class_cats_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 ins_class_cats_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_INS_CLASS_CATS_PUB','insert_ins_class_cats');
92 FND_MSG_PUB.count_and_get(
93 p_count => x_msg_count
94 ,p_data => x_msg_data);
95 END insert_ins_class_cats;
96
97 PROCEDURE insert_ins_class_cats(
98 p_api_version IN NUMBER
99 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
100 ,x_return_status OUT NOCOPY VARCHAR2
101 ,x_msg_count OUT NOCOPY NUMBER
102 ,x_msg_data OUT NOCOPY VARCHAR2
103 ,p_icgv_tbl IN icgv_tbl_type
104 ,x_icgv_tbl OUT NOCOPY icgv_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_icgv_tbl icgv_tbl_type;
112 lx_icgv_tbl icgv_tbl_type;
113
114 BEGIN
115
116 SAVEPOINT ins_class_cats_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_icgv_tbl := p_icgv_tbl;
125 lx_icgv_tbl := x_icgv_tbl;
126
127
128
129 okl_icg_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_icgv_tbl
136 ,lx_icgv_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_icgv_tbl := lx_icgv_tbl;
146
147
148
149 --Assign value to OUT variables
150 x_icgv_tbl := lx_icgv_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 ins_class_cats_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 ins_class_cats_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 ins_class_cats_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_INS_CLASS_CATS_PUB','insert_ins_class_cats');
180 FND_MSG_PUB.count_and_get(
181 p_count => x_msg_count
182 ,p_data => x_msg_data);
183 END insert_ins_class_cats;
184
185 PROCEDURE lock_ins_class_cats(
186 p_api_version IN NUMBER
187 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
188 ,x_return_status OUT NOCOPY VARCHAR2
189 ,x_msg_count OUT NOCOPY NUMBER
190 ,x_msg_data OUT NOCOPY VARCHAR2
191 ,p_icgv_rec IN icgv_rec_type) IS
192
193 BEGIN
194 okl_icg_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_icgv_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_INS_CLASS_CATS_PUB','lock_ins_class_cats');
222 FND_MSG_PUB.count_and_get(
223 p_count => x_msg_count
224 ,p_data => x_msg_data);
225 END lock_ins_class_cats;
226
227 PROCEDURE lock_ins_class_cats(
228 p_api_version IN NUMBER
229 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
230 ,x_return_status OUT NOCOPY VARCHAR2
231 ,x_msg_count OUT NOCOPY NUMBER
232 ,x_msg_data OUT NOCOPY VARCHAR2
233 ,p_icgv_tbl IN icgv_tbl_type) IS
234
235 BEGIN
236 okl_icg_pvt.lock_row(
237 p_api_version,
238 p_init_msg_list,
239 x_return_status,
240 x_msg_count,
241 x_msg_data,
242 p_icgv_tbl);
243
244 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
245 RAISE FND_API.G_EXC_ERROR;
246 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
247 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
248 END IF;
249
250
251 EXCEPTION
252
253 WHEN FND_API.G_EXC_ERROR THEN
254 FND_MSG_PUB.count_and_get(
255 p_count => x_msg_count
256 ,p_data => x_msg_data);
257 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258 FND_MSG_PUB.count_and_get(
259 p_count => x_msg_count
260 ,p_data => x_msg_data);
261 WHEN OTHERS THEN
262 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLASS_CATS_PUB','lock_ins_class_cats');
264 FND_MSG_PUB.count_and_get(
265 p_count => x_msg_count
266 ,p_data => x_msg_data);
267 END lock_ins_class_cats;
268
269 PROCEDURE update_ins_class_cats(
270 p_api_version IN NUMBER
271 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
272 ,x_return_status OUT NOCOPY VARCHAR2
273 ,x_msg_count OUT NOCOPY NUMBER
274 ,x_msg_data OUT NOCOPY VARCHAR2
275 ,p_icgv_rec IN icgv_rec_type
276 ,x_icgv_rec OUT NOCOPY icgv_rec_type) IS
277
278 l_api_version NUMBER ;
279 l_init_msg_list VARCHAR2(1) ;
280 l_return_status VARCHAR2(1);
281 l_msg_count NUMBER ;
282 l_msg_data VARCHAR2(2000);
283 lp_icgv_rec icgv_rec_type;
284 lx_icgv_rec icgv_rec_type;
285
286 BEGIN
287
288 --SAVEPOINT ins_class_cats_update;
289
290 l_api_version := p_api_version ;
291 l_init_msg_list := p_init_msg_list ;
292 l_return_status := x_return_status ;
293 l_msg_count := x_msg_count ;
294 l_msg_data := x_msg_data ;
295 lp_icgv_rec := p_icgv_rec;
296 lx_icgv_rec := x_icgv_rec;
297
298
299
300
301 okl_icg_pvt.update_row(
302 l_api_version
303 ,l_init_msg_list
304 ,l_return_status
305 ,l_msg_count
306 ,l_msg_data
307 ,lp_icgv_rec
308 ,lx_icgv_rec);
309
310 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
311 RAISE FND_API.G_EXC_ERROR;
312
313 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
314 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315 END IF;
316
317 --Copy value of OUT variable in the IN record type
318 lp_icgv_rec := lx_icgv_rec;
319
320
321
322
323 --Assign value to OUT variables
324 x_icgv_rec := lx_icgv_rec;
325 x_return_status := l_return_status ;
326 x_msg_count := l_msg_count ;
327 x_msg_data := l_msg_data ;
328
329
330 EXCEPTION
331
332 WHEN FND_API.G_EXC_ERROR THEN
333 ROLLBACK TO ins_class_cats_update;
334 x_return_status := FND_API.G_RET_STS_ERROR;
335 x_msg_count := l_msg_count ;
336 x_msg_data := l_msg_data ;
337 FND_MSG_PUB.count_and_get(
338 p_count => x_msg_count
339 ,p_data => x_msg_data);
340
341
342 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343 ROLLBACK TO ins_class_cats_update;
344 x_return_status := FND_API.G_RET_STS_UNEXP_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
351
352 WHEN OTHERS THEN
353 ROLLBACK TO ins_class_cats_update;
354 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
355 x_msg_count := l_msg_count ;
356 x_msg_data := l_msg_data ;
357 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLASS_CATS_PUB','update_ins_class_cats');
358 FND_MSG_PUB.count_and_get(
359 p_count => x_msg_count
360 ,p_data => x_msg_data);
361
362
363
364 END update_ins_class_cats;
365
366 PROCEDURE update_ins_class_cats(
367 p_api_version IN NUMBER
368 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
369 ,x_return_status OUT NOCOPY VARCHAR2
370 ,x_msg_count OUT NOCOPY NUMBER
371 ,x_msg_data OUT NOCOPY VARCHAR2
372 ,p_icgv_tbl IN icgv_tbl_type
373 ,x_icgv_tbl OUT NOCOPY icgv_tbl_type) IS
374
375 l_api_version NUMBER;
376 l_init_msg_list VARCHAR2(200);
377 l_msg_data VARCHAR2(100);
378 l_msg_count NUMBER ;
379 l_return_status VARCHAR2(1);
380 lp_icgv_tbl icgv_tbl_type;
381 lx_icgv_tbl icgv_tbl_type;
382
383 BEGIN
384
385 SAVEPOINT ins_class_cats_update;
386
387
388 lp_icgv_tbl := p_icgv_tbl;
389 lx_icgv_tbl := x_icgv_tbl;
390 l_api_version := p_api_version ;
391 l_init_msg_list := p_init_msg_list ;
392 l_msg_data := x_msg_data ;
393 l_msg_count := x_msg_count ;
394
395
396
397
398
399 okl_icg_pvt.update_row(
400 l_api_version
401 ,l_init_msg_list
402 ,l_return_status
403 ,l_msg_count
404 ,l_msg_data
405 ,lp_icgv_tbl
406 ,lx_icgv_tbl);
407
408 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
409 RAISE FND_API.G_EXC_ERROR;
410 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
411 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
412 END IF;
413
414 --Copy value of OUT variable in the IN record type
415 lp_icgv_tbl := lx_icgv_tbl;
416
417
418
419 --Assign value to OUT variables
420 x_icgv_tbl := lx_icgv_tbl;
421 x_return_status := l_return_status ;
422 x_msg_count := l_msg_count ;
423 x_msg_data := l_msg_data ;
424
425
426 EXCEPTION
427
428 WHEN FND_API.G_EXC_ERROR THEN
429 ROLLBACK TO ins_class_cats_update;
430 x_return_status := FND_API.G_RET_STS_ERROR;
431 x_msg_count := l_msg_count ;
432 x_msg_data := l_msg_data ;
433 FND_MSG_PUB.count_and_get(
434 p_count => x_msg_count
435 ,p_data => x_msg_data);
436 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
437 ROLLBACK TO ins_class_cats_update;
438 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439 x_msg_count := l_msg_count ;
440 x_msg_data := l_msg_data ;
441 FND_MSG_PUB.count_and_get(
442 p_count => x_msg_count
443 ,p_data => x_msg_data);
444 WHEN OTHERS THEN
445 ROLLBACK TO ins_class_cats_update;
446 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447 x_msg_count := l_msg_count ;
448 x_msg_data := l_msg_data ;
449 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLASS_CATS_PUB','update_ins_class_cats');
450 FND_MSG_PUB.count_and_get(
451 p_count => x_msg_count
452 ,p_data => x_msg_data);
453 END update_ins_class_cats;
454
455 --Put custom code for cascade delete by developer
456 PROCEDURE delete_ins_class_cats(
457 p_api_version IN NUMBER
458 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
459 ,x_return_status OUT NOCOPY VARCHAR2
460 ,x_msg_count OUT NOCOPY NUMBER
461 ,x_msg_data OUT NOCOPY VARCHAR2
462 ,p_icgv_rec IN icgv_rec_type) IS
463
464 i NUMBER :=0;
465 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
466 l_api_version NUMBER ;
467 l_init_msg_list VARCHAR2(1) ;
468 l_msg_data VARCHAR2(2000);
469 l_msg_count NUMBER ;
470 lp_icgv_rec icgv_rec_type;
471 lx_icgv_rec icgv_rec_type;
472
473 BEGIN
474
475 SAVEPOINT ins_class_cats_delete_rec;
476
477
478 l_api_version := p_api_version ;
479 l_init_msg_list := p_init_msg_list ;
480 l_msg_data := x_msg_data;
481 l_msg_count := x_msg_count ;
482 lp_icgv_rec := p_icgv_rec;
483 lx_icgv_rec := p_icgv_rec;
484
485
486
487
488 --Delete the Master
489 okl_icg_pvt.delete_row(
490 l_api_version
491 ,l_init_msg_list
492 ,l_return_status
493 ,l_msg_count
494 ,l_msg_data
495 ,lp_icgv_rec);
496
497 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
498 RAISE FND_API.G_EXC_ERROR;
499 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
500 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501 END IF;
502
503
504
505
506
507 --Assign value to OUT variables
508 x_msg_count := l_msg_count ;
509 x_msg_data := l_msg_data ;
510 x_return_status := l_return_status ;
511
512 EXCEPTION
513
514 WHEN FND_API.G_EXC_ERROR THEN
515 ROLLBACK TO ins_class_cats_delete_rec;
516 x_return_status := FND_API.G_RET_STS_ERROR;
517 x_msg_count := l_msg_count ;
518 x_msg_data := l_msg_data ;
519 FND_MSG_PUB.count_and_get(
520 p_count => x_msg_count
521 ,p_data => x_msg_data);
522 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523 ROLLBACK TO ins_class_cats_delete_rec;
524 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
525 x_msg_count := l_msg_count ;
526 x_msg_data := l_msg_data ;
527 FND_MSG_PUB.count_and_get(
528 p_count => x_msg_count
529 ,p_data => x_msg_data);
530 WHEN OTHERS THEN
531 ROLLBACK TO ins_class_cats_delete_rec;
532 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533 x_msg_count := l_msg_count ;
534 x_msg_data := l_msg_data ;
535 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLASS_CATS_PUB','delete_ins_class_cats');
536 FND_MSG_PUB.count_and_get(
537 p_count => x_msg_count
538 ,p_data => x_msg_data);
539 END delete_ins_class_cats;
540
541 PROCEDURE delete_ins_class_cats(
542 p_api_version IN NUMBER
543 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
544 ,x_return_status OUT NOCOPY VARCHAR2
545 ,x_msg_count OUT NOCOPY NUMBER
546 ,x_msg_data OUT NOCOPY VARCHAR2
547 ,p_icgv_tbl IN icgv_tbl_type) IS
548
549 i NUMBER := 0;
550 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
551 l_api_version NUMBER := p_api_version ;
552 l_init_msg_list VARCHAR2(1) := p_init_msg_list ;
553 l_msg_data VARCHAR2(2000);
554 l_msg_count NUMBER ;
555 lp_icgv_tbl icgv_tbl_type;
556 lx_icgv_tbl icgv_tbl_type;
557
558 BEGIN
559
560 SAVEPOINT ins_class_cats_delete_tbl;
561
562
563 l_api_version := p_api_version ;
564 l_init_msg_list := p_init_msg_list ;
565 l_msg_data := x_msg_data;
566 l_msg_count := x_msg_count ;
567 lp_icgv_tbl := p_icgv_tbl;
568 lx_icgv_tbl := p_icgv_tbl;
569
570
571
572
573 BEGIN
574 --Initialize the return status
575 l_return_status := OKC_API.G_RET_STS_SUCCESS;
576
577 IF (lp_icgv_tbl.COUNT > 0) THEN
578 i := p_icgv_tbl.FIRST;
579 LOOP
580 delete_ins_class_cats(
581 l_api_version
582 ,l_init_msg_list
583 ,l_return_status
584 ,l_msg_count
585 ,l_msg_data
586 ,lp_icgv_tbl(i));
587 EXIT WHEN (i = lp_icgv_tbl.LAST);
588 i := p_icgv_tbl.NEXT(i);
589 END LOOP;
590 END IF;
591 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
592 RAISE FND_API.G_EXC_ERROR;
593 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
594 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
595 END IF;
596
597 END;
598
599
600
601
602
603 --Assign value to OUT variables
604 x_msg_count := l_msg_count ;
605 x_msg_data := l_msg_data ;
606
607 x_return_status := l_return_status ;
608
609 EXCEPTION
610
611 WHEN FND_API.G_EXC_ERROR THEN
612 ROLLBACK TO ins_class_cats_delete_tbl;
613 x_return_status := FND_API.G_RET_STS_ERROR;
614 x_msg_count := l_msg_count ;
615 x_msg_data := l_msg_data ;
616 FND_MSG_PUB.count_and_get(
617 p_count => x_msg_count
618 ,p_data => x_msg_data);
619 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
620 ROLLBACK TO ins_class_cats_delete_tbl;
621 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
622 x_msg_count := l_msg_count ;
623 x_msg_data := l_msg_data ;
624 FND_MSG_PUB.count_and_get(
625 p_count => x_msg_count
626 ,p_data => x_msg_data);
627 WHEN OTHERS THEN
628 ROLLBACK TO ins_class_cats_delete_tbl;
629 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630 x_msg_count := l_msg_count ;
631 x_msg_data := l_msg_data ;
632 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLASS_CATS_PUB','delete_ins_class_cats');
633 FND_MSG_PUB.count_and_get(
634 p_count => x_msg_count
635 ,p_data => x_msg_data);
636 END delete_ins_class_cats;
637
638 PROCEDURE validate_ins_class_cats(
639 p_api_version IN NUMBER
640 ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
641 ,x_return_status OUT NOCOPY VARCHAR2
642 ,x_msg_count OUT NOCOPY NUMBER
643 ,x_msg_data OUT NOCOPY VARCHAR2
644 ,p_icgv_rec IN icgv_rec_type) IS
645
646 l_api_version NUMBER ;
647 l_init_msg_list VARCHAR2(1) ;
648 l_msg_data VARCHAR2(2000);
649 l_msg_count NUMBER ;
650 lp_icgv_rec icgv_rec_type;
651 lx_icgv_rec icgv_rec_type;
652 l_return_status VARCHAR2(1);
653
654 BEGIN
655
656 SAVEPOINT ins_class_cats_validate;
657
658
659 l_api_version := p_api_version ;
660 l_init_msg_list := p_init_msg_list ;
661 l_msg_data := x_msg_data;
662 l_msg_count := x_msg_count ;
663 lp_icgv_rec := p_icgv_rec;
664 lx_icgv_rec := p_icgv_rec;
665
666
667
668
669 okl_icg_pvt.validate_row(
670 l_api_version
671 ,l_init_msg_list
672 ,l_return_status
673 ,l_msg_count
674 ,l_msg_data
675 ,lp_icgv_rec);
676
677 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
678 RAISE FND_API.G_EXC_ERROR;
679 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
680 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
681 END IF;
682
683 --Copy value of OUT variable in the IN record type
684 lp_icgv_rec := lx_icgv_rec;
685
686
687
688
689
690
691
692
693 --Assign value to OUT variables
694 x_msg_count := l_msg_count ;
695 x_msg_data := l_msg_data ;
696
697 x_return_status := l_return_status ;
698
699 EXCEPTION
700
701 WHEN FND_API.G_EXC_ERROR THEN
702 ROLLBACK TO ins_class_cats_validate;
703 x_return_status := FND_API.G_RET_STS_ERROR;
704 x_msg_count := l_msg_count ;
705 x_msg_data := l_msg_data ;
706 FND_MSG_PUB.count_and_get(
707 p_count => x_msg_count
708 ,p_data => x_msg_data);
709 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710 ROLLBACK TO ins_class_cats_validate;
711 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
712 x_msg_count := l_msg_count ;
713 x_msg_data := l_msg_data ;
714 FND_MSG_PUB.count_and_get(
715 p_count => x_msg_count
716 ,p_data => x_msg_data);
717 WHEN OTHERS THEN
718 ROLLBACK TO ins_class_cats_validate;
719 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720 x_msg_count := l_msg_count ;
721 x_msg_data := l_msg_data ;
722 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLASS_CATS_PUB','validate_ins_class_cats');
723 FND_MSG_PUB.count_and_get(
724 p_count => x_msg_count
725 ,p_data => x_msg_data);
726 END validate_ins_class_cats;
727
728 PROCEDURE validate_ins_class_cats(
729 p_api_version IN NUMBER,
730 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
731 x_return_status OUT NOCOPY VARCHAR2,
732 x_msg_count OUT NOCOPY NUMBER,
733 x_msg_data OUT NOCOPY VARCHAR2,
734 p_icgv_tbl IN icgv_tbl_type) IS
735 l_api_version NUMBER ;
736 l_init_msg_list VARCHAR2(1) ;
737 l_msg_data VARCHAR2(2000);
738 l_msg_count NUMBER ;
739 lp_icgv_tbl icgv_tbl_type;
740 lx_icgv_tbl icgv_tbl_type;
741 l_return_status VARCHAR2(1);
742
743 BEGIN
744
745 SAVEPOINT ins_class_cats_validate;
746
747
748 l_api_version := p_api_version ;
749 l_init_msg_list := p_init_msg_list ;
750 l_msg_data := x_msg_data;
751 l_msg_count := x_msg_count ;
752 lp_icgv_tbl := p_icgv_tbl;
753 lx_icgv_tbl := p_icgv_tbl;
754
755
756
757 okl_icg_pvt.validate_row(
758 p_api_version
759 ,p_init_msg_list
760 ,x_return_status
761 ,x_msg_count
762 ,x_msg_data
763 ,lp_icgv_tbl);
764
765 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
766 RAISE FND_API.G_EXC_ERROR;
767 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
768 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769 END IF;
770
771 --Copy value of OUT variable in the IN record type
772 lp_icgv_tbl := lx_icgv_tbl;
773
774
775
776
777
778 --Assign value to OUT variables
779 x_msg_count := l_msg_count ;
780 x_msg_data := l_msg_data ;
781
782 x_return_status := l_return_status ;
783
784 EXCEPTION
785
786 WHEN FND_API.G_EXC_ERROR THEN
787 ROLLBACK TO ins_class_cats_validate;
788 x_return_status := FND_API.G_RET_STS_ERROR;
789 x_msg_count := l_msg_count ;
790 x_msg_data := l_msg_data ;
791 FND_MSG_PUB.count_and_get(
792 p_count => x_msg_count
793 ,p_data => x_msg_data);
794 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
795 ROLLBACK TO ins_class_cats_validate;
796 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
797 x_msg_count := l_msg_count ;
798 x_msg_data := l_msg_data ;
799 FND_MSG_PUB.count_and_get(
800 p_count => x_msg_count
801 ,p_data => x_msg_data);
802 WHEN OTHERS THEN
803 ROLLBACK TO ins_class_cats_validate;
804 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805 x_msg_count := l_msg_count ;
806 x_msg_data := l_msg_data ;
807 FND_MSG_PUB.ADD_EXC_MSG('OKL_INS_CLASS_CATS_PUB','validate_ins_class_cats');
808 FND_MSG_PUB.count_and_get(
809 p_count => x_msg_count
810 ,p_data => x_msg_data);
811 END validate_ins_class_cats;
812
813 END OKL_INS_CLASS_CATS_PUB;