229: END Validate_Record;
230:
231: PROCEDURE insert_tbc_definition(
232: p_api_version IN NUMBER,
233: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
234: x_return_status OUT NOCOPY VARCHAR2,
235: x_msg_count OUT NOCOPY NUMBER,
236: x_msg_data OUT NOCOPY VARCHAR2,
237: p_tbcv_rec IN tbcv_rec_type,
272: ,l_msg_data
273: ,lp_tbcv_rec
274: ,lx_tbcv_rec);
275:
276: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
277: RAISE FND_API.G_EXC_ERROR;
278: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
273: ,lp_tbcv_rec
274: ,lx_tbcv_rec);
275:
276: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
277: RAISE FND_API.G_EXC_ERROR;
278: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281:
274: ,lx_tbcv_rec);
275:
276: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
277: RAISE FND_API.G_EXC_ERROR;
278: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281:
282: --Copy value of OUT variable in the IN record type
275:
276: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
277: RAISE FND_API.G_EXC_ERROR;
278: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281:
282: --Copy value of OUT variable in the IN record type
283: lp_tbcv_rec := lx_tbcv_rec;
293: x_msg_data := l_msg_data ;
294:
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298: ROLLBACK TO tbc_insert;
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: x_msg_count := l_msg_count ;
301: x_msg_data := l_msg_data ;
295: EXCEPTION
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298: ROLLBACK TO tbc_insert;
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: x_msg_count := l_msg_count ;
301: x_msg_data := l_msg_data ;
302: FND_MSG_PUB.count_and_get(
303: p_count => x_msg_count
301: x_msg_data := l_msg_data ;
302: FND_MSG_PUB.count_and_get(
303: p_count => x_msg_count
304: ,p_data => x_msg_data);
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: ROLLBACK TO tbc_insert;
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: x_msg_count := l_msg_count ;
309: x_msg_data := l_msg_data ;
303: p_count => x_msg_count
304: ,p_data => x_msg_data);
305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
306: ROLLBACK TO tbc_insert;
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: x_msg_count := l_msg_count ;
309: x_msg_data := l_msg_data ;
310: FND_MSG_PUB.count_and_get(
311: p_count => x_msg_count
311: p_count => x_msg_count
312: ,p_data => x_msg_data);
313: WHEN OTHERS THEN
314: ROLLBACK TO tbc_insert;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
316: x_msg_count := l_msg_count ;
317: x_msg_data := l_msg_data ;
318: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','insert_tbc_definition');
319: FND_MSG_PUB.count_and_get(
354: FOR i IN lp_tbcv_tbl.FIRST..lp_tbcv_tbl.LAST LOOP
355: IF lp_tbcv_tbl.EXISTS(i) THEN
356: l_return_status := validate_record (lp_tbcv_tbl(i), i);
357:
358: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
359: RAISE FND_API.G_EXC_ERROR;
360: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
362: END IF;
355: IF lp_tbcv_tbl.EXISTS(i) THEN
356: l_return_status := validate_record (lp_tbcv_tbl(i), i);
357:
358: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
359: RAISE FND_API.G_EXC_ERROR;
360: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
362: END IF;
363:
356: l_return_status := validate_record (lp_tbcv_tbl(i), i);
357:
358: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
359: RAISE FND_API.G_EXC_ERROR;
360: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
362: END IF;
363:
364: okl_tbc_pvt.insert_row(
357:
358: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
359: RAISE FND_API.G_EXC_ERROR;
360: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
362: END IF;
363:
364: okl_tbc_pvt.insert_row(
365: l_api_version
370: ,lp_tbcv_tbl(i)
371: ,lx_tbcv_rec);
372: lx_tbcv_tbl(i) := lx_tbcv_rec;
373:
374: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
375: RAISE FND_API.G_EXC_ERROR;
376: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: END IF;
371: ,lx_tbcv_rec);
372: lx_tbcv_tbl(i) := lx_tbcv_rec;
373:
374: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
375: RAISE FND_API.G_EXC_ERROR;
376: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: END IF;
379:
372: lx_tbcv_tbl(i) := lx_tbcv_rec;
373:
374: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
375: RAISE FND_API.G_EXC_ERROR;
376: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: END IF;
379:
380: END IF;
373:
374: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
375: RAISE FND_API.G_EXC_ERROR;
376: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378: END IF;
379:
380: END IF;
381:
389:
390:
391: EXCEPTION
392:
393: WHEN FND_API.G_EXC_ERROR THEN
394: ROLLBACK TO tbc_insert;
395: x_return_status := FND_API.G_RET_STS_ERROR;
396: x_msg_count := l_msg_count ;
397: x_msg_data := l_msg_data ;
391: EXCEPTION
392:
393: WHEN FND_API.G_EXC_ERROR THEN
394: ROLLBACK TO tbc_insert;
395: x_return_status := FND_API.G_RET_STS_ERROR;
396: x_msg_count := l_msg_count ;
397: x_msg_data := l_msg_data ;
398: FND_MSG_PUB.count_and_get(
399: p_count => x_msg_count
397: x_msg_data := l_msg_data ;
398: FND_MSG_PUB.count_and_get(
399: p_count => x_msg_count
400: ,p_data => x_msg_data);
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: ROLLBACK TO tbc_insert;
403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404: x_msg_count := l_msg_count ;
405: x_msg_data := l_msg_data ;
399: p_count => x_msg_count
400: ,p_data => x_msg_data);
401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
402: ROLLBACK TO tbc_insert;
403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404: x_msg_count := l_msg_count ;
405: x_msg_data := l_msg_data ;
406: FND_MSG_PUB.count_and_get(
407: p_count => x_msg_count
407: p_count => x_msg_count
408: ,p_data => x_msg_data);
409: WHEN OTHERS THEN
410: ROLLBACK TO tbc_insert;
411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
412: x_msg_count := l_msg_count ;
413: x_msg_data := l_msg_data ;
414: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','insert_tbc_definition');
415: FND_MSG_PUB.count_and_get(
433: x_msg_count,
434: x_msg_data,
435: p_tbcv_rec);
436:
437: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
438: RAISE FND_API.G_EXC_ERROR;
439: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
434: x_msg_data,
435: p_tbcv_rec);
436:
437: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
438: RAISE FND_API.G_EXC_ERROR;
439: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
442:
435: p_tbcv_rec);
436:
437: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
438: RAISE FND_API.G_EXC_ERROR;
439: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
442:
443:
436:
437: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
438: RAISE FND_API.G_EXC_ERROR;
439: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
442:
443:
444: EXCEPTION
442:
443:
444: EXCEPTION
445:
446: WHEN FND_API.G_EXC_ERROR THEN
447: FND_MSG_PUB.count_and_get(
448: p_count => x_msg_count
449: ,p_data => x_msg_data);
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
446: WHEN FND_API.G_EXC_ERROR THEN
447: FND_MSG_PUB.count_and_get(
448: p_count => x_msg_count
449: ,p_data => x_msg_data);
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451: FND_MSG_PUB.count_and_get(
452: p_count => x_msg_count
453: ,p_data => x_msg_data);
454: WHEN OTHERS THEN
451: FND_MSG_PUB.count_and_get(
452: p_count => x_msg_count
453: ,p_data => x_msg_data);
454: WHEN OTHERS THEN
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','lock_tbc_definition');
457: FND_MSG_PUB.count_and_get(
458: p_count => x_msg_count
459: ,p_data => x_msg_data);
476: x_msg_count,
477: x_msg_data,
478: p_tbcv_tbl);
479:
480: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
481: RAISE FND_API.G_EXC_ERROR;
482: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
484: END IF;
477: x_msg_data,
478: p_tbcv_tbl);
479:
480: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
481: RAISE FND_API.G_EXC_ERROR;
482: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
484: END IF;
485:
478: p_tbcv_tbl);
479:
480: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
481: RAISE FND_API.G_EXC_ERROR;
482: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
484: END IF;
485:
486:
479:
480: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
481: RAISE FND_API.G_EXC_ERROR;
482: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
484: END IF;
485:
486:
487: EXCEPTION
485:
486:
487: EXCEPTION
488:
489: WHEN FND_API.G_EXC_ERROR THEN
490: FND_MSG_PUB.count_and_get(
491: p_count => x_msg_count
492: ,p_data => x_msg_data);
493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
489: WHEN FND_API.G_EXC_ERROR THEN
490: FND_MSG_PUB.count_and_get(
491: p_count => x_msg_count
492: ,p_data => x_msg_data);
493: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
494: FND_MSG_PUB.count_and_get(
495: p_count => x_msg_count
496: ,p_data => x_msg_data);
497: WHEN OTHERS THEN
494: FND_MSG_PUB.count_and_get(
495: p_count => x_msg_count
496: ,p_data => x_msg_data);
497: WHEN OTHERS THEN
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','lock_tbc_definition');
500: FND_MSG_PUB.count_and_get(
501: p_count => x_msg_count
502: ,p_data => x_msg_data);
545: ,l_msg_data
546: ,lp_tbcv_rec
547: ,lx_tbcv_rec);
548:
549: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
546: ,lp_tbcv_rec
547: ,lx_tbcv_rec);
548:
549: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554:
547: ,lx_tbcv_rec);
548:
549: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554:
555: --Copy value of OUT variable in the IN record type
548:
549: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
550: RAISE FND_API.G_EXC_ERROR;
551: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554:
555: --Copy value of OUT variable in the IN record type
556: lp_tbcv_rec := lx_tbcv_rec;
566:
567:
568: EXCEPTION
569:
570: WHEN FND_API.G_EXC_ERROR THEN
571: ROLLBACK TO tbc_update;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: x_msg_count := l_msg_count ;
574: x_msg_data := l_msg_data ;
568: EXCEPTION
569:
570: WHEN FND_API.G_EXC_ERROR THEN
571: ROLLBACK TO tbc_update;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: x_msg_count := l_msg_count ;
574: x_msg_data := l_msg_data ;
575: FND_MSG_PUB.count_and_get(
576: p_count => x_msg_count
574: x_msg_data := l_msg_data ;
575: FND_MSG_PUB.count_and_get(
576: p_count => x_msg_count
577: ,p_data => x_msg_data);
578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
579: ROLLBACK TO tbc_update;
580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
581: x_msg_count := l_msg_count ;
582: x_msg_data := l_msg_data ;
576: p_count => x_msg_count
577: ,p_data => x_msg_data);
578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
579: ROLLBACK TO tbc_update;
580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
581: x_msg_count := l_msg_count ;
582: x_msg_data := l_msg_data ;
583: FND_MSG_PUB.count_and_get(
584: p_count => x_msg_count
584: p_count => x_msg_count
585: ,p_data => x_msg_data);
586: WHEN OTHERS THEN
587: ROLLBACK TO tbc_update;
588: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
589: x_msg_count := l_msg_count ;
590: x_msg_data := l_msg_data ;
591: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','update_tbc_definition');
592: FND_MSG_PUB.count_and_get(
635: ,l_msg_data
636: ,lp_tbcv_tbl
637: ,lx_tbcv_tbl);
638:
639: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
640: RAISE FND_API.G_EXC_ERROR;
641: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: END IF;
636: ,lp_tbcv_tbl
637: ,lx_tbcv_tbl);
638:
639: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
640: RAISE FND_API.G_EXC_ERROR;
641: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: END IF;
644:
637: ,lx_tbcv_tbl);
638:
639: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
640: RAISE FND_API.G_EXC_ERROR;
641: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: END IF;
644:
645: --Copy value of OUT variable in the IN record type
638:
639: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
640: RAISE FND_API.G_EXC_ERROR;
641: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: END IF;
644:
645: --Copy value of OUT variable in the IN record type
646: lp_tbcv_tbl := lx_tbcv_tbl;
655:
656:
657: EXCEPTION
658:
659: WHEN FND_API.G_EXC_ERROR THEN
660: ROLLBACK TO tbc_update;
661: x_return_status := FND_API.G_RET_STS_ERROR;
662: x_msg_count := l_msg_count ;
663: x_msg_data := l_msg_data ;
657: EXCEPTION
658:
659: WHEN FND_API.G_EXC_ERROR THEN
660: ROLLBACK TO tbc_update;
661: x_return_status := FND_API.G_RET_STS_ERROR;
662: x_msg_count := l_msg_count ;
663: x_msg_data := l_msg_data ;
664: FND_MSG_PUB.count_and_get(
665: p_count => x_msg_count
663: x_msg_data := l_msg_data ;
664: FND_MSG_PUB.count_and_get(
665: p_count => x_msg_count
666: ,p_data => x_msg_data);
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
668: ROLLBACK TO tbc_update;
669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
670: x_msg_count := l_msg_count ;
671: x_msg_data := l_msg_data ;
665: p_count => x_msg_count
666: ,p_data => x_msg_data);
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
668: ROLLBACK TO tbc_update;
669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
670: x_msg_count := l_msg_count ;
671: x_msg_data := l_msg_data ;
672: FND_MSG_PUB.count_and_get(
673: p_count => x_msg_count
673: p_count => x_msg_count
674: ,p_data => x_msg_data);
675: WHEN OTHERS THEN
676: ROLLBACK TO tbc_update;
677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
678: x_msg_count := l_msg_count ;
679: x_msg_data := l_msg_data ;
680: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','update_tbc_definition');
681: FND_MSG_PUB.count_and_get(
724: ,l_msg_count
725: ,l_msg_data
726: ,lp_tbcv_rec);
727:
728: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
729: RAISE FND_API.G_EXC_ERROR;
730: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732: END IF;
725: ,l_msg_data
726: ,lp_tbcv_rec);
727:
728: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
729: RAISE FND_API.G_EXC_ERROR;
730: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732: END IF;
733:
726: ,lp_tbcv_rec);
727:
728: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
729: RAISE FND_API.G_EXC_ERROR;
730: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732: END IF;
733:
734:
727:
728: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
729: RAISE FND_API.G_EXC_ERROR;
730: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732: END IF;
733:
734:
735:
741: x_return_status := l_return_status ;
742:
743: EXCEPTION
744:
745: WHEN FND_API.G_EXC_ERROR THEN
746: ROLLBACK TO tbc_delete;
747: x_return_status := FND_API.G_RET_STS_ERROR;
748: x_msg_count := l_msg_count ;
749: x_msg_data := l_msg_data ;
743: EXCEPTION
744:
745: WHEN FND_API.G_EXC_ERROR THEN
746: ROLLBACK TO tbc_delete;
747: x_return_status := FND_API.G_RET_STS_ERROR;
748: x_msg_count := l_msg_count ;
749: x_msg_data := l_msg_data ;
750: FND_MSG_PUB.count_and_get(
751: p_count => x_msg_count
749: x_msg_data := l_msg_data ;
750: FND_MSG_PUB.count_and_get(
751: p_count => x_msg_count
752: ,p_data => x_msg_data);
753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754: ROLLBACK TO tbc_delete;
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756: x_msg_count := l_msg_count ;
757: x_msg_data := l_msg_data ;
751: p_count => x_msg_count
752: ,p_data => x_msg_data);
753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754: ROLLBACK TO tbc_delete;
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756: x_msg_count := l_msg_count ;
757: x_msg_data := l_msg_data ;
758: FND_MSG_PUB.count_and_get(
759: p_count => x_msg_count
759: p_count => x_msg_count
760: ,p_data => x_msg_data);
761: WHEN OTHERS THEN
762: ROLLBACK TO tbc_delete;
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: x_msg_count := l_msg_count ;
765: x_msg_data := l_msg_data ;
766: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','delete_tbc_definition');
767: FND_MSG_PUB.count_and_get(
810: ,l_msg_count
811: ,l_msg_data
812: ,lp_tbcv_tbl);
813:
814: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
818: END IF;
811: ,l_msg_data
812: ,lp_tbcv_tbl);
813:
814: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
818: END IF;
819:
812: ,lp_tbcv_tbl);
813:
814: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
818: END IF;
819:
820:
813:
814: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
815: RAISE FND_API.G_EXC_ERROR;
816: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
818: END IF;
819:
820:
821:
826: x_msg_data := l_msg_data ;
827: x_return_status := l_return_status ;
828: EXCEPTION
829:
830: WHEN FND_API.G_EXC_ERROR THEN
831: ROLLBACK TO tbc_delete;
832: x_return_status := FND_API.G_RET_STS_ERROR;
833: x_msg_count := l_msg_count ;
834: x_msg_data := l_msg_data ;
828: EXCEPTION
829:
830: WHEN FND_API.G_EXC_ERROR THEN
831: ROLLBACK TO tbc_delete;
832: x_return_status := FND_API.G_RET_STS_ERROR;
833: x_msg_count := l_msg_count ;
834: x_msg_data := l_msg_data ;
835: FND_MSG_PUB.count_and_get(
836: p_count => x_msg_count
834: x_msg_data := l_msg_data ;
835: FND_MSG_PUB.count_and_get(
836: p_count => x_msg_count
837: ,p_data => x_msg_data);
838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
839: ROLLBACK TO tbc_delete;
840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841: x_msg_count := l_msg_count ;
842: x_msg_data := l_msg_data ;
836: p_count => x_msg_count
837: ,p_data => x_msg_data);
838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
839: ROLLBACK TO tbc_delete;
840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841: x_msg_count := l_msg_count ;
842: x_msg_data := l_msg_data ;
843: FND_MSG_PUB.count_and_get(
844: p_count => x_msg_count
844: p_count => x_msg_count
845: ,p_data => x_msg_data);
846: WHEN OTHERS THEN
847: ROLLBACK TO tbc_delete;
848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
849: x_msg_count := l_msg_count ;
850: x_msg_data := l_msg_data ;
851: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','delete_tbc_definition');
852: FND_MSG_PUB.count_and_get(
894: ,l_msg_count
895: ,l_msg_data
896: ,lp_tbcv_rec);
897:
898: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
899: RAISE FND_API.G_EXC_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
902: END IF;
895: ,l_msg_data
896: ,lp_tbcv_rec);
897:
898: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
899: RAISE FND_API.G_EXC_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
902: END IF;
903:
896: ,lp_tbcv_rec);
897:
898: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
899: RAISE FND_API.G_EXC_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
902: END IF;
903:
904: --Copy value of OUT variable in the IN record type
897:
898: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
899: RAISE FND_API.G_EXC_ERROR;
900: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
902: END IF;
903:
904: --Copy value of OUT variable in the IN record type
905: lp_tbcv_rec := lx_tbcv_rec;
918: x_return_status := l_return_status ;
919:
920: EXCEPTION
921:
922: WHEN FND_API.G_EXC_ERROR THEN
923: ROLLBACK TO tbc_validate;
924: x_return_status := FND_API.G_RET_STS_ERROR;
925: x_msg_count := l_msg_count ;
926: x_msg_data := l_msg_data ;
920: EXCEPTION
921:
922: WHEN FND_API.G_EXC_ERROR THEN
923: ROLLBACK TO tbc_validate;
924: x_return_status := FND_API.G_RET_STS_ERROR;
925: x_msg_count := l_msg_count ;
926: x_msg_data := l_msg_data ;
927: FND_MSG_PUB.count_and_get(
928: p_count => x_msg_count
926: x_msg_data := l_msg_data ;
927: FND_MSG_PUB.count_and_get(
928: p_count => x_msg_count
929: ,p_data => x_msg_data);
930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
931: ROLLBACK TO tbc_validate;
932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
933: x_msg_count := l_msg_count ;
934: x_msg_data := l_msg_data ;
928: p_count => x_msg_count
929: ,p_data => x_msg_data);
930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
931: ROLLBACK TO tbc_validate;
932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
933: x_msg_count := l_msg_count ;
934: x_msg_data := l_msg_data ;
935: FND_MSG_PUB.count_and_get(
936: p_count => x_msg_count
936: p_count => x_msg_count
937: ,p_data => x_msg_data);
938: WHEN OTHERS THEN
939: ROLLBACK TO tbc_validate;
940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
941: x_msg_count := l_msg_count ;
942: x_msg_data := l_msg_data ;
943: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','validate_tbc_definition');
944: FND_MSG_PUB.count_and_get(
983: ,x_msg_count
984: ,x_msg_data
985: ,lp_tbcv_tbl);
986:
987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
988: RAISE FND_API.G_EXC_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
984: ,x_msg_data
985: ,lp_tbcv_tbl);
986:
987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
988: RAISE FND_API.G_EXC_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992:
985: ,lp_tbcv_tbl);
986:
987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
988: RAISE FND_API.G_EXC_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992:
993: --Copy value of OUT variable in the IN record type
986:
987: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
988: RAISE FND_API.G_EXC_ERROR;
989: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
991: END IF;
992:
993: --Copy value of OUT variable in the IN record type
994: lp_tbcv_tbl := lx_tbcv_tbl;
1004: x_return_status := l_return_status ;
1005:
1006: EXCEPTION
1007:
1008: WHEN FND_API.G_EXC_ERROR THEN
1009: ROLLBACK TO tbc_validate;
1010: x_return_status := FND_API.G_RET_STS_ERROR;
1011: x_msg_count := l_msg_count ;
1012: x_msg_data := l_msg_data ;
1006: EXCEPTION
1007:
1008: WHEN FND_API.G_EXC_ERROR THEN
1009: ROLLBACK TO tbc_validate;
1010: x_return_status := FND_API.G_RET_STS_ERROR;
1011: x_msg_count := l_msg_count ;
1012: x_msg_data := l_msg_data ;
1013: FND_MSG_PUB.count_and_get(
1014: p_count => x_msg_count
1012: x_msg_data := l_msg_data ;
1013: FND_MSG_PUB.count_and_get(
1014: p_count => x_msg_count
1015: ,p_data => x_msg_data);
1016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1017: ROLLBACK TO tbc_validate;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: x_msg_count := l_msg_count ;
1020: x_msg_data := l_msg_data ;
1014: p_count => x_msg_count
1015: ,p_data => x_msg_data);
1016: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1017: ROLLBACK TO tbc_validate;
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: x_msg_count := l_msg_count ;
1020: x_msg_data := l_msg_data ;
1021: FND_MSG_PUB.count_and_get(
1022: p_count => x_msg_count
1022: p_count => x_msg_count
1023: ,p_data => x_msg_data);
1024: WHEN OTHERS THEN
1025: ROLLBACK TO tbc_validate;
1026: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1027: x_msg_count := l_msg_count ;
1028: x_msg_data := l_msg_data ;
1029: FND_MSG_PUB.ADD_EXC_MSG('OKL_TBC_DEFINITIONS_PUB','validate_tbc_definition');
1030: FND_MSG_PUB.count_and_get(