[Home] [Help]
3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
266: ) RETURN ttdv_rec_type IS
267: l_ttdv_rec ttdv_rec_type;
268: l_row_notfound BOOLEAN := TRUE;
269: BEGIN
270: x_return_status := OKL_API.G_RET_STS_SUCCESS;
271: l_ttdv_rec := get_rec(p_ttdv_rec, l_row_notfound);
272: IF (l_row_notfound) THEN
273: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
274: x_return_status := OKL_API.G_RET_STS_ERROR;
269: BEGIN
270: x_return_status := OKL_API.G_RET_STS_SUCCESS;
271: l_ttdv_rec := get_rec(p_ttdv_rec, l_row_notfound);
272: IF (l_row_notfound) THEN
273: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
274: x_return_status := OKL_API.G_RET_STS_ERROR;
275: END IF;
276: RETURN(l_ttdv_rec);
277: END get_rec;
270: x_return_status := OKL_API.G_RET_STS_SUCCESS;
271: l_ttdv_rec := get_rec(p_ttdv_rec, l_row_notfound);
272: IF (l_row_notfound) THEN
273: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
274: x_return_status := OKL_API.G_RET_STS_ERROR;
275: END IF;
276: RETURN(l_ttdv_rec);
277: END get_rec;
278: -----------------------------------------------------------
462: ) RETURN ttd_rec_type IS
463: l_ttd_rec ttd_rec_type;
464: l_row_notfound BOOLEAN := TRUE;
465: BEGIN
466: x_return_status := OKL_API.G_RET_STS_SUCCESS;
467: l_ttd_rec := get_rec(p_ttd_rec, l_row_notfound);
468: IF (l_row_notfound) THEN
469: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
470: x_return_status := OKL_API.G_RET_STS_ERROR;
465: BEGIN
466: x_return_status := OKL_API.G_RET_STS_SUCCESS;
467: l_ttd_rec := get_rec(p_ttd_rec, l_row_notfound);
468: IF (l_row_notfound) THEN
469: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
470: x_return_status := OKL_API.G_RET_STS_ERROR;
471: END IF;
472: RETURN(l_ttd_rec);
473: END get_rec;
466: x_return_status := OKL_API.G_RET_STS_SUCCESS;
467: l_ttd_rec := get_rec(p_ttd_rec, l_row_notfound);
468: IF (l_row_notfound) THEN
469: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
470: x_return_status := OKL_API.G_RET_STS_ERROR;
471: END IF;
472: RETURN(l_ttd_rec);
473: END get_rec;
474: -----------------------------------------------------------
488: p_ttdv_rec IN ttdv_rec_type
489: ) RETURN ttdv_rec_type IS
490: l_ttdv_rec ttdv_rec_type := p_ttdv_rec;
491: BEGIN
492: IF (l_ttdv_rec.id = OKL_API.G_MISS_NUM ) THEN
493: l_ttdv_rec.id := NULL;
494: END IF;
495: IF (l_ttdv_rec.txs_id = OKL_API.G_MISS_NUM ) THEN
496: l_ttdv_rec.txs_id := NULL;
491: BEGIN
492: IF (l_ttdv_rec.id = OKL_API.G_MISS_NUM ) THEN
493: l_ttdv_rec.id := NULL;
494: END IF;
495: IF (l_ttdv_rec.txs_id = OKL_API.G_MISS_NUM ) THEN
496: l_ttdv_rec.txs_id := NULL;
497: END IF;
498: IF (l_ttdv_rec.tax_determine_date = OKL_API.G_MISS_DATE ) THEN
499: l_ttdv_rec.tax_determine_date := NULL;
494: END IF;
495: IF (l_ttdv_rec.txs_id = OKL_API.G_MISS_NUM ) THEN
496: l_ttdv_rec.txs_id := NULL;
497: END IF;
498: IF (l_ttdv_rec.tax_determine_date = OKL_API.G_MISS_DATE ) THEN
499: l_ttdv_rec.tax_determine_date := NULL;
500: END IF;
501: IF (l_ttdv_rec.tax_rate_id = OKL_API.G_MISS_NUM ) THEN
502: l_ttdv_rec.tax_rate_id := NULL;
497: END IF;
498: IF (l_ttdv_rec.tax_determine_date = OKL_API.G_MISS_DATE ) THEN
499: l_ttdv_rec.tax_determine_date := NULL;
500: END IF;
501: IF (l_ttdv_rec.tax_rate_id = OKL_API.G_MISS_NUM ) THEN
502: l_ttdv_rec.tax_rate_id := NULL;
503: END IF;
504: IF (l_ttdv_rec.tax_rate_code = OKL_API.G_MISS_CHAR ) THEN
505: l_ttdv_rec.tax_rate_code := NULL;
500: END IF;
501: IF (l_ttdv_rec.tax_rate_id = OKL_API.G_MISS_NUM ) THEN
502: l_ttdv_rec.tax_rate_id := NULL;
503: END IF;
504: IF (l_ttdv_rec.tax_rate_code = OKL_API.G_MISS_CHAR ) THEN
505: l_ttdv_rec.tax_rate_code := NULL;
506: END IF;
507: IF (l_ttdv_rec.taxable_amt = OKL_API.G_MISS_NUM ) THEN
508: l_ttdv_rec.taxable_amt := NULL;
503: END IF;
504: IF (l_ttdv_rec.tax_rate_code = OKL_API.G_MISS_CHAR ) THEN
505: l_ttdv_rec.tax_rate_code := NULL;
506: END IF;
507: IF (l_ttdv_rec.taxable_amt = OKL_API.G_MISS_NUM ) THEN
508: l_ttdv_rec.taxable_amt := NULL;
509: END IF;
510: IF (l_ttdv_rec.tax_exemption_id = OKL_API.G_MISS_NUM ) THEN
511: l_ttdv_rec.tax_exemption_id := NULL;
506: END IF;
507: IF (l_ttdv_rec.taxable_amt = OKL_API.G_MISS_NUM ) THEN
508: l_ttdv_rec.taxable_amt := NULL;
509: END IF;
510: IF (l_ttdv_rec.tax_exemption_id = OKL_API.G_MISS_NUM ) THEN
511: l_ttdv_rec.tax_exemption_id := NULL;
512: END IF;
513: IF (l_ttdv_rec.tax_rate = OKL_API.G_MISS_NUM ) THEN
514: l_ttdv_rec.tax_rate := NULL;
509: END IF;
510: IF (l_ttdv_rec.tax_exemption_id = OKL_API.G_MISS_NUM ) THEN
511: l_ttdv_rec.tax_exemption_id := NULL;
512: END IF;
513: IF (l_ttdv_rec.tax_rate = OKL_API.G_MISS_NUM ) THEN
514: l_ttdv_rec.tax_rate := NULL;
515: END IF;
516: IF (l_ttdv_rec.tax_amt = OKL_API.G_MISS_NUM ) THEN
517: l_ttdv_rec.tax_amt := NULL;
512: END IF;
513: IF (l_ttdv_rec.tax_rate = OKL_API.G_MISS_NUM ) THEN
514: l_ttdv_rec.tax_rate := NULL;
515: END IF;
516: IF (l_ttdv_rec.tax_amt = OKL_API.G_MISS_NUM ) THEN
517: l_ttdv_rec.tax_amt := NULL;
518: END IF;
519: IF (l_ttdv_rec.billed_yn = OKL_API.G_MISS_CHAR ) THEN
520: l_ttdv_rec.billed_yn := NULL;
515: END IF;
516: IF (l_ttdv_rec.tax_amt = OKL_API.G_MISS_NUM ) THEN
517: l_ttdv_rec.tax_amt := NULL;
518: END IF;
519: IF (l_ttdv_rec.billed_yn = OKL_API.G_MISS_CHAR ) THEN
520: l_ttdv_rec.billed_yn := NULL;
521: END IF;
522: IF (l_ttdv_rec.tax_call_type_code = OKL_API.G_MISS_CHAR ) THEN
523: l_ttdv_rec.tax_call_type_code := NULL;
518: END IF;
519: IF (l_ttdv_rec.billed_yn = OKL_API.G_MISS_CHAR ) THEN
520: l_ttdv_rec.billed_yn := NULL;
521: END IF;
522: IF (l_ttdv_rec.tax_call_type_code = OKL_API.G_MISS_CHAR ) THEN
523: l_ttdv_rec.tax_call_type_code := NULL;
524: END IF;
525: IF (l_ttdv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
526: l_ttdv_rec.program_id := NULL;
521: END IF;
522: IF (l_ttdv_rec.tax_call_type_code = OKL_API.G_MISS_CHAR ) THEN
523: l_ttdv_rec.tax_call_type_code := NULL;
524: END IF;
525: IF (l_ttdv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
526: l_ttdv_rec.program_id := NULL;
527: END IF;
528: IF (l_ttdv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
529: l_ttdv_rec.request_id := NULL;
524: END IF;
525: IF (l_ttdv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
526: l_ttdv_rec.program_id := NULL;
527: END IF;
528: IF (l_ttdv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
529: l_ttdv_rec.request_id := NULL;
530: END IF;
531: IF (l_ttdv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
532: l_ttdv_rec.program_application_id := NULL;
527: END IF;
528: IF (l_ttdv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
529: l_ttdv_rec.request_id := NULL;
530: END IF;
531: IF (l_ttdv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
532: l_ttdv_rec.program_application_id := NULL;
533: END IF;
534: IF (l_ttdv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
535: l_ttdv_rec.program_update_date := NULL;
530: END IF;
531: IF (l_ttdv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
532: l_ttdv_rec.program_application_id := NULL;
533: END IF;
534: IF (l_ttdv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
535: l_ttdv_rec.program_update_date := NULL;
536: END IF;
537: IF (l_ttdv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
538: l_ttdv_rec.attribute_category := NULL;
533: END IF;
534: IF (l_ttdv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
535: l_ttdv_rec.program_update_date := NULL;
536: END IF;
537: IF (l_ttdv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
538: l_ttdv_rec.attribute_category := NULL;
539: END IF;
540: IF (l_ttdv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
541: l_ttdv_rec.attribute1 := NULL;
536: END IF;
537: IF (l_ttdv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
538: l_ttdv_rec.attribute_category := NULL;
539: END IF;
540: IF (l_ttdv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
541: l_ttdv_rec.attribute1 := NULL;
542: END IF;
543: IF (l_ttdv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
544: l_ttdv_rec.attribute2 := NULL;
539: END IF;
540: IF (l_ttdv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
541: l_ttdv_rec.attribute1 := NULL;
542: END IF;
543: IF (l_ttdv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
544: l_ttdv_rec.attribute2 := NULL;
545: END IF;
546: IF (l_ttdv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
547: l_ttdv_rec.attribute3 := NULL;
542: END IF;
543: IF (l_ttdv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
544: l_ttdv_rec.attribute2 := NULL;
545: END IF;
546: IF (l_ttdv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
547: l_ttdv_rec.attribute3 := NULL;
548: END IF;
549: IF (l_ttdv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
550: l_ttdv_rec.attribute4 := NULL;
545: END IF;
546: IF (l_ttdv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
547: l_ttdv_rec.attribute3 := NULL;
548: END IF;
549: IF (l_ttdv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
550: l_ttdv_rec.attribute4 := NULL;
551: END IF;
552: IF (l_ttdv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
553: l_ttdv_rec.attribute5 := NULL;
548: END IF;
549: IF (l_ttdv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
550: l_ttdv_rec.attribute4 := NULL;
551: END IF;
552: IF (l_ttdv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
553: l_ttdv_rec.attribute5 := NULL;
554: END IF;
555: IF (l_ttdv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
556: l_ttdv_rec.attribute6 := NULL;
551: END IF;
552: IF (l_ttdv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
553: l_ttdv_rec.attribute5 := NULL;
554: END IF;
555: IF (l_ttdv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
556: l_ttdv_rec.attribute6 := NULL;
557: END IF;
558: IF (l_ttdv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
559: l_ttdv_rec.attribute7 := NULL;
554: END IF;
555: IF (l_ttdv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
556: l_ttdv_rec.attribute6 := NULL;
557: END IF;
558: IF (l_ttdv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
559: l_ttdv_rec.attribute7 := NULL;
560: END IF;
561: IF (l_ttdv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
562: l_ttdv_rec.attribute8 := NULL;
557: END IF;
558: IF (l_ttdv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
559: l_ttdv_rec.attribute7 := NULL;
560: END IF;
561: IF (l_ttdv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
562: l_ttdv_rec.attribute8 := NULL;
563: END IF;
564: IF (l_ttdv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
565: l_ttdv_rec.attribute9 := NULL;
560: END IF;
561: IF (l_ttdv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
562: l_ttdv_rec.attribute8 := NULL;
563: END IF;
564: IF (l_ttdv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
565: l_ttdv_rec.attribute9 := NULL;
566: END IF;
567: IF (l_ttdv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
568: l_ttdv_rec.attribute10 := NULL;
563: END IF;
564: IF (l_ttdv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
565: l_ttdv_rec.attribute9 := NULL;
566: END IF;
567: IF (l_ttdv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
568: l_ttdv_rec.attribute10 := NULL;
569: END IF;
570: IF (l_ttdv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
571: l_ttdv_rec.attribute11 := NULL;
566: END IF;
567: IF (l_ttdv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
568: l_ttdv_rec.attribute10 := NULL;
569: END IF;
570: IF (l_ttdv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
571: l_ttdv_rec.attribute11 := NULL;
572: END IF;
573: IF (l_ttdv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
574: l_ttdv_rec.attribute12 := NULL;
569: END IF;
570: IF (l_ttdv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
571: l_ttdv_rec.attribute11 := NULL;
572: END IF;
573: IF (l_ttdv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
574: l_ttdv_rec.attribute12 := NULL;
575: END IF;
576: IF (l_ttdv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
577: l_ttdv_rec.attribute13 := NULL;
572: END IF;
573: IF (l_ttdv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
574: l_ttdv_rec.attribute12 := NULL;
575: END IF;
576: IF (l_ttdv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
577: l_ttdv_rec.attribute13 := NULL;
578: END IF;
579: IF (l_ttdv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
580: l_ttdv_rec.attribute14 := NULL;
575: END IF;
576: IF (l_ttdv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
577: l_ttdv_rec.attribute13 := NULL;
578: END IF;
579: IF (l_ttdv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
580: l_ttdv_rec.attribute14 := NULL;
581: END IF;
582: IF (l_ttdv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
583: l_ttdv_rec.attribute15 := NULL;
578: END IF;
579: IF (l_ttdv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
580: l_ttdv_rec.attribute14 := NULL;
581: END IF;
582: IF (l_ttdv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
583: l_ttdv_rec.attribute15 := NULL;
584: END IF;
585: IF (l_ttdv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
586: l_ttdv_rec.created_by := NULL;
581: END IF;
582: IF (l_ttdv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
583: l_ttdv_rec.attribute15 := NULL;
584: END IF;
585: IF (l_ttdv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
586: l_ttdv_rec.created_by := NULL;
587: END IF;
588: IF (l_ttdv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
589: l_ttdv_rec.creation_date := NULL;
584: END IF;
585: IF (l_ttdv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
586: l_ttdv_rec.created_by := NULL;
587: END IF;
588: IF (l_ttdv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
589: l_ttdv_rec.creation_date := NULL;
590: END IF;
591: IF (l_ttdv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
592: l_ttdv_rec.last_updated_by := NULL;
587: END IF;
588: IF (l_ttdv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
589: l_ttdv_rec.creation_date := NULL;
590: END IF;
591: IF (l_ttdv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
592: l_ttdv_rec.last_updated_by := NULL;
593: END IF;
594: IF (l_ttdv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
595: l_ttdv_rec.last_update_date := NULL;
590: END IF;
591: IF (l_ttdv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
592: l_ttdv_rec.last_updated_by := NULL;
593: END IF;
594: IF (l_ttdv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
595: l_ttdv_rec.last_update_date := NULL;
596: END IF;
597: IF (l_ttdv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
598: l_ttdv_rec.last_update_login := NULL;
593: END IF;
594: IF (l_ttdv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
595: l_ttdv_rec.last_update_date := NULL;
596: END IF;
597: IF (l_ttdv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
598: l_ttdv_rec.last_update_login := NULL;
599: END IF;
600: IF (l_ttdv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
601: l_ttdv_rec.object_version_number := NULL;
596: END IF;
597: IF (l_ttdv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
598: l_ttdv_rec.last_update_login := NULL;
599: END IF;
600: IF (l_ttdv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
601: l_ttdv_rec.object_version_number := NULL;
602: END IF;
603:
604: -- Modified by dcshanmu for eBTax - modification starts
603:
604: -- Modified by dcshanmu for eBTax - modification starts
605: -- Added default null out for newly added columns in the table
606:
607: IF (l_ttdv_rec.tax_date = OKL_API.G_MISS_DATE ) THEN
608: l_ttdv_rec.tax_date := NULL;
609: END IF;
610: IF (l_ttdv_rec.line_amt = OKL_API.G_MISS_NUM ) THEN
611: l_ttdv_rec.line_amt := NULL;
606:
607: IF (l_ttdv_rec.tax_date = OKL_API.G_MISS_DATE ) THEN
608: l_ttdv_rec.tax_date := NULL;
609: END IF;
610: IF (l_ttdv_rec.line_amt = OKL_API.G_MISS_NUM ) THEN
611: l_ttdv_rec.line_amt := NULL;
612: END IF;
613: IF (l_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM ) THEN
614: l_ttdv_rec.internal_organization_id := NULL;
609: END IF;
610: IF (l_ttdv_rec.line_amt = OKL_API.G_MISS_NUM ) THEN
611: l_ttdv_rec.line_amt := NULL;
612: END IF;
613: IF (l_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM ) THEN
614: l_ttdv_rec.internal_organization_id := NULL;
615: END IF;
616: IF (l_ttdv_rec.application_id = OKL_API.G_MISS_NUM ) THEN
617: l_ttdv_rec.application_id := NULL;
612: END IF;
613: IF (l_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM ) THEN
614: l_ttdv_rec.internal_organization_id := NULL;
615: END IF;
616: IF (l_ttdv_rec.application_id = OKL_API.G_MISS_NUM ) THEN
617: l_ttdv_rec.application_id := NULL;
618: END IF;
619: IF (l_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR ) THEN
620: l_ttdv_rec.entity_code := NULL;
615: END IF;
616: IF (l_ttdv_rec.application_id = OKL_API.G_MISS_NUM ) THEN
617: l_ttdv_rec.application_id := NULL;
618: END IF;
619: IF (l_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR ) THEN
620: l_ttdv_rec.entity_code := NULL;
621: END IF;
622: IF (l_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR ) THEN
623: l_ttdv_rec.event_class_code := NULL;
618: END IF;
619: IF (l_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR ) THEN
620: l_ttdv_rec.entity_code := NULL;
621: END IF;
622: IF (l_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR ) THEN
623: l_ttdv_rec.event_class_code := NULL;
624: END IF;
625: IF (l_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR ) THEN
626: l_ttdv_rec.event_type_code := NULL;
621: END IF;
622: IF (l_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR ) THEN
623: l_ttdv_rec.event_class_code := NULL;
624: END IF;
625: IF (l_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR ) THEN
626: l_ttdv_rec.event_type_code := NULL;
627: END IF;
628: IF (l_ttdv_rec.trx_id = OKL_API.G_MISS_NUM ) THEN
629: l_ttdv_rec.trx_id := NULL;
624: END IF;
625: IF (l_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR ) THEN
626: l_ttdv_rec.event_type_code := NULL;
627: END IF;
628: IF (l_ttdv_rec.trx_id = OKL_API.G_MISS_NUM ) THEN
629: l_ttdv_rec.trx_id := NULL;
630: END IF;
631: IF (l_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM ) THEN
632: l_ttdv_rec.trx_line_id := NULL;
627: END IF;
628: IF (l_ttdv_rec.trx_id = OKL_API.G_MISS_NUM ) THEN
629: l_ttdv_rec.trx_id := NULL;
630: END IF;
631: IF (l_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM ) THEN
632: l_ttdv_rec.trx_line_id := NULL;
633: END IF;
634: IF (l_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR ) THEN
635: l_ttdv_rec.trx_level_type := NULL;
630: END IF;
631: IF (l_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM ) THEN
632: l_ttdv_rec.trx_line_id := NULL;
633: END IF;
634: IF (l_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR ) THEN
635: l_ttdv_rec.trx_level_type := NULL;
636: END IF;
637: IF (l_ttdv_rec.trx_line_number = OKL_API.G_MISS_NUM ) THEN
638: l_ttdv_rec.trx_line_number := NULL;
633: END IF;
634: IF (l_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR ) THEN
635: l_ttdv_rec.trx_level_type := NULL;
636: END IF;
637: IF (l_ttdv_rec.trx_line_number = OKL_API.G_MISS_NUM ) THEN
638: l_ttdv_rec.trx_line_number := NULL;
639: END IF;
640: IF (l_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM ) THEN
641: l_ttdv_rec.tax_line_number := NULL;
636: END IF;
637: IF (l_ttdv_rec.trx_line_number = OKL_API.G_MISS_NUM ) THEN
638: l_ttdv_rec.trx_line_number := NULL;
639: END IF;
640: IF (l_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM ) THEN
641: l_ttdv_rec.tax_line_number := NULL;
642: END IF;
643: IF (l_ttdv_rec.tax_regime_id = OKL_API.G_MISS_NUM ) THEN
644: l_ttdv_rec.tax_regime_id := NULL;
639: END IF;
640: IF (l_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM ) THEN
641: l_ttdv_rec.tax_line_number := NULL;
642: END IF;
643: IF (l_ttdv_rec.tax_regime_id = OKL_API.G_MISS_NUM ) THEN
644: l_ttdv_rec.tax_regime_id := NULL;
645: END IF;
646: IF (l_ttdv_rec.tax_regime_code = OKL_API.G_MISS_CHAR ) THEN
647: l_ttdv_rec.tax_regime_code := NULL;
642: END IF;
643: IF (l_ttdv_rec.tax_regime_id = OKL_API.G_MISS_NUM ) THEN
644: l_ttdv_rec.tax_regime_id := NULL;
645: END IF;
646: IF (l_ttdv_rec.tax_regime_code = OKL_API.G_MISS_CHAR ) THEN
647: l_ttdv_rec.tax_regime_code := NULL;
648: END IF;
649: IF (l_ttdv_rec.tax_id = OKL_API.G_MISS_NUM ) THEN
650: l_ttdv_rec.tax_id := NULL;
645: END IF;
646: IF (l_ttdv_rec.tax_regime_code = OKL_API.G_MISS_CHAR ) THEN
647: l_ttdv_rec.tax_regime_code := NULL;
648: END IF;
649: IF (l_ttdv_rec.tax_id = OKL_API.G_MISS_NUM ) THEN
650: l_ttdv_rec.tax_id := NULL;
651: END IF;
652: IF (l_ttdv_rec.tax = OKL_API.G_MISS_CHAR ) THEN
653: l_ttdv_rec.tax := NULL;
648: END IF;
649: IF (l_ttdv_rec.tax_id = OKL_API.G_MISS_NUM ) THEN
650: l_ttdv_rec.tax_id := NULL;
651: END IF;
652: IF (l_ttdv_rec.tax = OKL_API.G_MISS_CHAR ) THEN
653: l_ttdv_rec.tax := NULL;
654: END IF;
655: IF (l_ttdv_rec.tax_status_id = OKL_API.G_MISS_NUM ) THEN
656: l_ttdv_rec.tax_status_id := NULL;
651: END IF;
652: IF (l_ttdv_rec.tax = OKL_API.G_MISS_CHAR ) THEN
653: l_ttdv_rec.tax := NULL;
654: END IF;
655: IF (l_ttdv_rec.tax_status_id = OKL_API.G_MISS_NUM ) THEN
656: l_ttdv_rec.tax_status_id := NULL;
657: END IF;
658: IF (l_ttdv_rec.tax_status_code = OKL_API.G_MISS_CHAR ) THEN
659: l_ttdv_rec.tax_status_code := NULL;
654: END IF;
655: IF (l_ttdv_rec.tax_status_id = OKL_API.G_MISS_NUM ) THEN
656: l_ttdv_rec.tax_status_id := NULL;
657: END IF;
658: IF (l_ttdv_rec.tax_status_code = OKL_API.G_MISS_CHAR ) THEN
659: l_ttdv_rec.tax_status_code := NULL;
660: END IF;
661: IF (l_ttdv_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM ) THEN
662: l_ttdv_rec.tax_apportionment_line_number := NULL;
657: END IF;
658: IF (l_ttdv_rec.tax_status_code = OKL_API.G_MISS_CHAR ) THEN
659: l_ttdv_rec.tax_status_code := NULL;
660: END IF;
661: IF (l_ttdv_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM ) THEN
662: l_ttdv_rec.tax_apportionment_line_number := NULL;
663: END IF;
664: IF (l_ttdv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
665: l_ttdv_rec.legal_entity_id := NULL;
660: END IF;
661: IF (l_ttdv_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM ) THEN
662: l_ttdv_rec.tax_apportionment_line_number := NULL;
663: END IF;
664: IF (l_ttdv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
665: l_ttdv_rec.legal_entity_id := NULL;
666: END IF;
667: IF (l_ttdv_rec.trx_number = OKL_API.G_MISS_CHAR ) THEN
668: l_ttdv_rec.trx_number := NULL;
663: END IF;
664: IF (l_ttdv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
665: l_ttdv_rec.legal_entity_id := NULL;
666: END IF;
667: IF (l_ttdv_rec.trx_number = OKL_API.G_MISS_CHAR ) THEN
668: l_ttdv_rec.trx_number := NULL;
669: END IF;
670: IF (l_ttdv_rec.trx_date = OKL_API.G_MISS_DATE ) THEN
671: l_ttdv_rec.trx_date := NULL;
666: END IF;
667: IF (l_ttdv_rec.trx_number = OKL_API.G_MISS_CHAR ) THEN
668: l_ttdv_rec.trx_number := NULL;
669: END IF;
670: IF (l_ttdv_rec.trx_date = OKL_API.G_MISS_DATE ) THEN
671: l_ttdv_rec.trx_date := NULL;
672: END IF;
673: IF (l_ttdv_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM ) THEN
674: l_ttdv_rec.tax_jurisdiction_id := NULL;
669: END IF;
670: IF (l_ttdv_rec.trx_date = OKL_API.G_MISS_DATE ) THEN
671: l_ttdv_rec.trx_date := NULL;
672: END IF;
673: IF (l_ttdv_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM ) THEN
674: l_ttdv_rec.tax_jurisdiction_id := NULL;
675: END IF;
676: IF (l_ttdv_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR ) THEN
677: l_ttdv_rec.tax_jurisdiction_code := NULL;
672: END IF;
673: IF (l_ttdv_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM ) THEN
674: l_ttdv_rec.tax_jurisdiction_id := NULL;
675: END IF;
676: IF (l_ttdv_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR ) THEN
677: l_ttdv_rec.tax_jurisdiction_code := NULL;
678: END IF;
679: IF (l_ttdv_rec.tax_type_code = OKL_API.G_MISS_CHAR ) THEN
680: l_ttdv_rec.tax_type_code := NULL;
675: END IF;
676: IF (l_ttdv_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR ) THEN
677: l_ttdv_rec.tax_jurisdiction_code := NULL;
678: END IF;
679: IF (l_ttdv_rec.tax_type_code = OKL_API.G_MISS_CHAR ) THEN
680: l_ttdv_rec.tax_type_code := NULL;
681: END IF;
682: IF (l_ttdv_rec.tax_currency_code = OKL_API.G_MISS_CHAR ) THEN
683: l_ttdv_rec.tax_currency_code := NULL;
678: END IF;
679: IF (l_ttdv_rec.tax_type_code = OKL_API.G_MISS_CHAR ) THEN
680: l_ttdv_rec.tax_type_code := NULL;
681: END IF;
682: IF (l_ttdv_rec.tax_currency_code = OKL_API.G_MISS_CHAR ) THEN
683: l_ttdv_rec.tax_currency_code := NULL;
684: END IF;
685: IF (l_ttdv_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM ) THEN
686: l_ttdv_rec.taxable_amt_tax_curr := NULL;
681: END IF;
682: IF (l_ttdv_rec.tax_currency_code = OKL_API.G_MISS_CHAR ) THEN
683: l_ttdv_rec.tax_currency_code := NULL;
684: END IF;
685: IF (l_ttdv_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM ) THEN
686: l_ttdv_rec.taxable_amt_tax_curr := NULL;
687: END IF;
688: IF (l_ttdv_rec.trx_currency_code = OKL_API.G_MISS_CHAR ) THEN
689: l_ttdv_rec.trx_currency_code := NULL;
684: END IF;
685: IF (l_ttdv_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM ) THEN
686: l_ttdv_rec.taxable_amt_tax_curr := NULL;
687: END IF;
688: IF (l_ttdv_rec.trx_currency_code = OKL_API.G_MISS_CHAR ) THEN
689: l_ttdv_rec.trx_currency_code := NULL;
690: END IF;
691: IF (l_ttdv_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM ) THEN
692: l_ttdv_rec.minimum_accountable_unit := NULL;
687: END IF;
688: IF (l_ttdv_rec.trx_currency_code = OKL_API.G_MISS_CHAR ) THEN
689: l_ttdv_rec.trx_currency_code := NULL;
690: END IF;
691: IF (l_ttdv_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM ) THEN
692: l_ttdv_rec.minimum_accountable_unit := NULL;
693: END IF;
694: IF (l_ttdv_rec.precision = OKL_API.G_MISS_NUM ) THEN
695: l_ttdv_rec.precision := NULL;
690: END IF;
691: IF (l_ttdv_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM ) THEN
692: l_ttdv_rec.minimum_accountable_unit := NULL;
693: END IF;
694: IF (l_ttdv_rec.precision = OKL_API.G_MISS_NUM ) THEN
695: l_ttdv_rec.precision := NULL;
696: END IF;
697: IF (l_ttdv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR ) THEN
698: l_ttdv_rec.currency_conversion_type := NULL;
693: END IF;
694: IF (l_ttdv_rec.precision = OKL_API.G_MISS_NUM ) THEN
695: l_ttdv_rec.precision := NULL;
696: END IF;
697: IF (l_ttdv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR ) THEN
698: l_ttdv_rec.currency_conversion_type := NULL;
699: END IF;
700: IF (l_ttdv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM ) THEN
701: l_ttdv_rec.currency_conversion_rate := NULL;
696: END IF;
697: IF (l_ttdv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR ) THEN
698: l_ttdv_rec.currency_conversion_type := NULL;
699: END IF;
700: IF (l_ttdv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM ) THEN
701: l_ttdv_rec.currency_conversion_rate := NULL;
702: END IF;
703: IF (l_ttdv_rec.currency_conversion_date = OKL_API.G_MISS_DATE ) THEN
704: l_ttdv_rec.currency_conversion_date := NULL;
699: END IF;
700: IF (l_ttdv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM ) THEN
701: l_ttdv_rec.currency_conversion_rate := NULL;
702: END IF;
703: IF (l_ttdv_rec.currency_conversion_date = OKL_API.G_MISS_DATE ) THEN
704: l_ttdv_rec.currency_conversion_date := NULL;
705: END IF;
706: -- Modified by dcshanmu for eBTax - modification end
707:
715: p_ttdv_rec IN ttdv_rec_type) IS
716: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
717: BEGIN
718:
719: IF (p_ttdv_rec.id = OKL_API.G_MISS_NUM OR p_ttdv_rec.id IS NULL)
720: THEN
721: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
722: l_return_status := OKL_API.G_RET_STS_ERROR;
723:
718:
719: IF (p_ttdv_rec.id = OKL_API.G_MISS_NUM OR p_ttdv_rec.id IS NULL)
720: THEN
721: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
722: l_return_status := OKL_API.G_RET_STS_ERROR;
723:
724: END IF;
725: x_return_status := l_return_status;
726: EXCEPTION
731: ,p_token1 => G_SQLCODE_TOKEN
732: ,p_token1_value => SQLCODE
733: ,p_token2 => G_SQLERRM_TOKEN
734: ,p_token2_value => SQLERRM);
735: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
736: END validate_id;
737: -------------------------------------
738: -- Validate_Attributes for: TXS_ID --
739: -------------------------------------
749: FROM Okl_tax_sources
750: WHERE id = p_id;
751: BEGIN
752:
753: IF (p_ttdv_rec.txs_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.txs_id IS NULL)
754: THEN
755: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'txs_id');
756: l_return_status := OKL_API.G_RET_STS_ERROR;
757: ELSE
752:
753: IF (p_ttdv_rec.txs_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.txs_id IS NULL)
754: THEN
755: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'txs_id');
756: l_return_status := OKL_API.G_RET_STS_ERROR;
757: ELSE
758: OPEN okl_ttdv_txs_id_fk_csr(p_ttdv_rec.txs_id) ;
759: FETCH okl_ttdv_txs_id_fk_csr into l_dummy_var ;
760: CLOSE okl_ttdv_txs_id_fk_csr ;
781: ,p_token1 => G_SQLCODE_TOKEN
782: ,p_token1_value => SQLCODE
783: ,p_token2 => G_SQLERRM_TOKEN
784: ,p_token2_value => SQLERRM);
785: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
786: END validate_txs_id;
787: -------------------------------------------------
788: -- Validate_Attributes for: TAX_CALL_TYPE_CODE --
789: -------------------------------------------------
800: WHERE fnd_lookup_values.lookup_code = p_lookup_code
801: AND fnd_lookup_values.lookup_type = p_lookup_type;
802: BEGIN
803:
804: IF (p_ttdv_rec.tax_call_type_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_call_type_code IS NOT NULL)
805: THEN
806: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
807: --l_return_status := OKL_API.G_RET_STS_ERROR;
808: OPEN okl_ttdv_tctc_fk_csr(p_ttdv_rec.tax_call_type_code, 'OKL_TAX_CALL_TYPE') ;
803:
804: IF (p_ttdv_rec.tax_call_type_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_call_type_code IS NOT NULL)
805: THEN
806: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
807: --l_return_status := OKL_API.G_RET_STS_ERROR;
808: OPEN okl_ttdv_tctc_fk_csr(p_ttdv_rec.tax_call_type_code, 'OKL_TAX_CALL_TYPE') ;
809: FETCH okl_ttdv_tctc_fk_csr into l_dummy_var ;
810: CLOSE okl_ttdv_tctc_fk_csr ;
811: -- still set to default means data was not found
833: ,p_token1 => G_SQLCODE_TOKEN
834: ,p_token1_value => SQLCODE
835: ,p_token2 => G_SQLERRM_TOKEN
836: ,p_token2_value => SQLERRM);
837: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
838: END validate_tax_call_type_code;
839:
840: -- Modified by dcshanmu for eBTax - modification starts
841: -- added validation methods for newly added columns
854: FROM zx_rates_b
855: WHERE zx_rates_b.tax_rate_id = p_id;
856: BEGIN
857:
858: IF (p_ttdv_rec.tax_rate_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_rate_id IS NOT NULL)
859: THEN
860: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
861: --l_return_status := OKL_API.G_RET_STS_ERROR;
862: OPEN okl_ttdv_tri_fk_csr(p_ttdv_rec.tax_rate_id) ;
857:
858: IF (p_ttdv_rec.tax_rate_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_rate_id IS NOT NULL)
859: THEN
860: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
861: --l_return_status := OKL_API.G_RET_STS_ERROR;
862: OPEN okl_ttdv_tri_fk_csr(p_ttdv_rec.tax_rate_id) ;
863: FETCH okl_ttdv_tri_fk_csr into l_dummy_var ;
864: CLOSE okl_ttdv_tri_fk_csr ;
865: -- still set to default means data was not found
887: ,p_token1 => G_SQLCODE_TOKEN
888: ,p_token1_value => SQLCODE
889: ,p_token2 => G_SQLERRM_TOKEN
890: ,p_token2_value => SQLERRM);
891: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
892: END validate_tax_rate_id;
893: -------------------------------------------------
894: -- Validate_Attributes for: TAX_RATE_CODE --
895: -------------------------------------------------
905: FROM zx_rates_b
906: WHERE zx_rates_b.tax_rate_code = p_code;
907: BEGIN
908:
909: IF (p_ttdv_rec.tax_rate_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_rate_code IS NOT NULL)
910: THEN
911: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
912: --l_return_status := OKL_API.G_RET_STS_ERROR;
913: OPEN okl_ttdv_trc_fk_csr(p_ttdv_rec.tax_rate_code) ;
908:
909: IF (p_ttdv_rec.tax_rate_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_rate_code IS NOT NULL)
910: THEN
911: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
912: --l_return_status := OKL_API.G_RET_STS_ERROR;
913: OPEN okl_ttdv_trc_fk_csr(p_ttdv_rec.tax_rate_code) ;
914: FETCH okl_ttdv_trc_fk_csr into l_dummy_var ;
915: CLOSE okl_ttdv_trc_fk_csr ;
916: -- still set to default means data was not found
938: ,p_token1 => G_SQLCODE_TOKEN
939: ,p_token1_value => SQLCODE
940: ,p_token2 => G_SQLERRM_TOKEN
941: ,p_token2_value => SQLERRM);
942: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
943: END validate_tax_rate_code;
944: -------------------------------------------------
945: -- Validate_Attributes for: TAX_EXEMPTION_ID --
946: -------------------------------------------------
956: FROM zx_exemptions
957: WHERE zx_exemptions.tax_exemption_id = p_id;
958: BEGIN
959:
960: IF (p_ttdv_rec.tax_exemption_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_exemption_id IS NOT NULL)
961: THEN
962: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
963: --l_return_status := OKL_API.G_RET_STS_ERROR;
964: OPEN okl_ttdv_tei_fk_csr(p_ttdv_rec.tax_exemption_id) ;
959:
960: IF (p_ttdv_rec.tax_exemption_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_exemption_id IS NOT NULL)
961: THEN
962: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
963: --l_return_status := OKL_API.G_RET_STS_ERROR;
964: OPEN okl_ttdv_tei_fk_csr(p_ttdv_rec.tax_exemption_id) ;
965: FETCH okl_ttdv_tei_fk_csr into l_dummy_var ;
966: CLOSE okl_ttdv_tei_fk_csr ;
967: -- still set to default means data was not found
989: ,p_token1 => G_SQLCODE_TOKEN
990: ,p_token1_value => SQLCODE
991: ,p_token2 => G_SQLERRM_TOKEN
992: ,p_token2_value => SQLERRM);
993: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
994: END validate_tax_exemption_id;
995: -------------------------------------------------
996: -- Validate_Attributes for: INTERNAL_ORGANIZATION_ID --
997: -------------------------------------------------
1007: FROM hr_all_organization_units
1008: WHERE hr_all_organization_units.organization_id = p_id;
1009: BEGIN
1010:
1011: IF (p_ttdv_rec.internal_organization_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.internal_organization_id IS NOT NULL)
1012: THEN
1013: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
1014: --l_return_status := OKL_API.G_RET_STS_ERROR;
1015: OPEN okl_ttdv_ioi_fk_csr(p_ttdv_rec.internal_organization_id) ;
1010:
1011: IF (p_ttdv_rec.internal_organization_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.internal_organization_id IS NOT NULL)
1012: THEN
1013: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
1014: --l_return_status := OKL_API.G_RET_STS_ERROR;
1015: OPEN okl_ttdv_ioi_fk_csr(p_ttdv_rec.internal_organization_id) ;
1016: FETCH okl_ttdv_ioi_fk_csr into l_dummy_var ;
1017: CLOSE okl_ttdv_ioi_fk_csr ;
1018: -- still set to default means data was not found
1028: 'HR_ALL_ORGANIZATION_UNITS');
1029: l_return_status := OKC_API.G_RET_STS_ERROR;
1030:
1031: END IF;
1032: ELSIF (p_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.internal_organization_id IS NULL)
1033: THEN
1034: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'internal_organization_id');
1035: l_return_status := OKL_API.G_RET_STS_ERROR;
1036:
1031: END IF;
1032: ELSIF (p_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.internal_organization_id IS NULL)
1033: THEN
1034: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'internal_organization_id');
1035: l_return_status := OKL_API.G_RET_STS_ERROR;
1036:
1037: END IF;
1038: x_return_status := l_return_status;
1039: EXCEPTION
1044: ,p_token1 => G_SQLCODE_TOKEN
1045: ,p_token1_value => SQLCODE
1046: ,p_token2 => G_SQLERRM_TOKEN
1047: ,p_token2_value => SQLERRM);
1048: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1049: END validate_int_org_id;
1050: -------------------------------------------------
1051: -- Validate_Attributes for: APPLICATION_ID --
1052: -------------------------------------------------
1062: FROM fnd_application
1063: WHERE fnd_application.application_id = p_id;
1064: BEGIN
1065:
1066: IF (p_ttdv_rec.application_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.application_id IS NOT NULL)
1067: THEN
1068: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
1069: --l_return_status := OKL_API.G_RET_STS_ERROR;
1070: OPEN okl_ttdv_app_id_fk_csr(p_ttdv_rec.application_id) ;
1065:
1066: IF (p_ttdv_rec.application_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.application_id IS NOT NULL)
1067: THEN
1068: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
1069: --l_return_status := OKL_API.G_RET_STS_ERROR;
1070: OPEN okl_ttdv_app_id_fk_csr(p_ttdv_rec.application_id) ;
1071: FETCH okl_ttdv_app_id_fk_csr into l_dummy_var ;
1072: CLOSE okl_ttdv_app_id_fk_csr ;
1073: -- still set to default means data was not found
1083: 'FND_APPLICATION');
1084: l_return_status := OKC_API.G_RET_STS_ERROR;
1085:
1086: END IF;
1087: ELSIF (p_ttdv_rec.application_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.application_id IS NULL)
1088: THEN
1089: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'application_id');
1090: l_return_status := OKL_API.G_RET_STS_ERROR;
1091:
1086: END IF;
1087: ELSIF (p_ttdv_rec.application_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.application_id IS NULL)
1088: THEN
1089: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'application_id');
1090: l_return_status := OKL_API.G_RET_STS_ERROR;
1091:
1092: END IF;
1093: x_return_status := l_return_status;
1094: EXCEPTION
1099: ,p_token1 => G_SQLCODE_TOKEN
1100: ,p_token1_value => SQLCODE
1101: ,p_token2 => G_SQLERRM_TOKEN
1102: ,p_token2_value => SQLERRM);
1103: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1104: END validate_application_id;
1105: -------------------------------------------------
1106: -- Validate_Attributes for: ENTITY_CODE --
1107: -------------------------------------------------
1110: p_ttdv_rec IN ttdv_rec_type) IS
1111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1112: BEGIN
1113:
1114: IF (p_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.entity_code IS NULL)
1115: THEN
1116: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'entity_code');
1117: l_return_status := OKL_API.G_RET_STS_ERROR;
1118: END IF;
1113:
1114: IF (p_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.entity_code IS NULL)
1115: THEN
1116: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'entity_code');
1117: l_return_status := OKL_API.G_RET_STS_ERROR;
1118: END IF;
1119: x_return_status := l_return_status;
1120: EXCEPTION
1121:
1125: ,p_token1 => G_SQLCODE_TOKEN
1126: ,p_token1_value => SQLCODE
1127: ,p_token2 => G_SQLERRM_TOKEN
1128: ,p_token2_value => SQLERRM);
1129: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1130: END validate_entity_code;
1131: -------------------------------------------------
1132: -- Validate_Attributes for: EVENT_CLASS_CODE --
1133: -------------------------------------------------
1136: p_ttdv_rec IN ttdv_rec_type) IS
1137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1138: BEGIN
1139:
1140: IF (p_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_class_code IS NULL)
1141: THEN
1142: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'event_class_code');
1143: l_return_status := OKL_API.G_RET_STS_ERROR;
1144: END IF;
1139:
1140: IF (p_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_class_code IS NULL)
1141: THEN
1142: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'event_class_code');
1143: l_return_status := OKL_API.G_RET_STS_ERROR;
1144: END IF;
1145: x_return_status := l_return_status;
1146: EXCEPTION
1147:
1151: ,p_token1 => G_SQLCODE_TOKEN
1152: ,p_token1_value => SQLCODE
1153: ,p_token2 => G_SQLERRM_TOKEN
1154: ,p_token2_value => SQLERRM);
1155: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1156: END validate_event_class_code;
1157: -------------------------------------------------
1158: -- Validate_Attributes for: EVENT_TYPE_CODE --
1159: -------------------------------------------------
1162: p_ttdv_rec IN ttdv_rec_type) IS
1163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1164: BEGIN
1165:
1166: IF (p_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_type_code IS NULL)
1167: THEN
1168: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'event_type_code');
1169: l_return_status := OKL_API.G_RET_STS_ERROR;
1170: END IF;
1165:
1166: IF (p_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_type_code IS NULL)
1167: THEN
1168: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'event_type_code');
1169: l_return_status := OKL_API.G_RET_STS_ERROR;
1170: END IF;
1171: x_return_status := l_return_status;
1172: EXCEPTION
1173:
1177: ,p_token1 => G_SQLCODE_TOKEN
1178: ,p_token1_value => SQLCODE
1179: ,p_token2 => G_SQLERRM_TOKEN
1180: ,p_token2_value => SQLERRM);
1181: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1182: END validate_event_type_code;
1183: -------------------------------------------------
1184: -- Validate_Attributes for: TRX_ID --
1185: -------------------------------------------------
1188: p_ttdv_rec IN ttdv_rec_type) IS
1189: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1190: BEGIN
1191:
1192: IF (p_ttdv_rec.trx_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_id IS NULL)
1193: THEN
1194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_id');
1195: l_return_status := OKL_API.G_RET_STS_ERROR;
1196: END IF;
1191:
1192: IF (p_ttdv_rec.trx_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_id IS NULL)
1193: THEN
1194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_id');
1195: l_return_status := OKL_API.G_RET_STS_ERROR;
1196: END IF;
1197: x_return_status := l_return_status;
1198: EXCEPTION
1199:
1203: ,p_token1 => G_SQLCODE_TOKEN
1204: ,p_token1_value => SQLCODE
1205: ,p_token2 => G_SQLERRM_TOKEN
1206: ,p_token2_value => SQLERRM);
1207: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1208: END validate_trx_id;
1209: -------------------------------------------------
1210: -- Validate_Attributes for: TRX_LINE_ID --
1211: -------------------------------------------------
1214: p_ttdv_rec IN ttdv_rec_type) IS
1215: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1216: BEGIN
1217:
1218: IF (p_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_line_id IS NULL)
1219: THEN
1220: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_line_id');
1221: l_return_status := OKL_API.G_RET_STS_ERROR;
1222: END IF;
1217:
1218: IF (p_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_line_id IS NULL)
1219: THEN
1220: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_line_id');
1221: l_return_status := OKL_API.G_RET_STS_ERROR;
1222: END IF;
1223: x_return_status := l_return_status;
1224: EXCEPTION
1225:
1229: ,p_token1 => G_SQLCODE_TOKEN
1230: ,p_token1_value => SQLCODE
1231: ,p_token2 => G_SQLERRM_TOKEN
1232: ,p_token2_value => SQLERRM);
1233: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1234: END validate_trx_line_id;
1235: -------------------------------------------------
1236: -- Validate_Attributes for: TRX_LEVEL_TYPE --
1237: -------------------------------------------------
1240: p_ttdv_rec IN ttdv_rec_type) IS
1241: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1242: BEGIN
1243:
1244: IF (p_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR OR p_ttdv_rec.trx_level_type IS NULL)
1245: THEN
1246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_level_type');
1247: l_return_status := OKL_API.G_RET_STS_ERROR;
1248: END IF;
1243:
1244: IF (p_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR OR p_ttdv_rec.trx_level_type IS NULL)
1245: THEN
1246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_level_type');
1247: l_return_status := OKL_API.G_RET_STS_ERROR;
1248: END IF;
1249: x_return_status := l_return_status;
1250: EXCEPTION
1251:
1255: ,p_token1 => G_SQLCODE_TOKEN
1256: ,p_token1_value => SQLCODE
1257: ,p_token2 => G_SQLERRM_TOKEN
1258: ,p_token2_value => SQLERRM);
1259: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1260: END validate_trx_level_type;
1261: -------------------------------------------------
1262: -- Validate_Attributes for: TAX_LINE_NUMBER --
1263: -------------------------------------------------
1266: p_ttdv_rec IN ttdv_rec_type) IS
1267: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1268: BEGIN
1269:
1270: IF (p_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM OR p_ttdv_rec.tax_line_number IS NULL)
1271: THEN
1272: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_line_number');
1273: l_return_status := OKL_API.G_RET_STS_ERROR;
1274: END IF;
1269:
1270: IF (p_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM OR p_ttdv_rec.tax_line_number IS NULL)
1271: THEN
1272: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_line_number');
1273: l_return_status := OKL_API.G_RET_STS_ERROR;
1274: END IF;
1275: x_return_status := l_return_status;
1276: EXCEPTION
1277:
1281: ,p_token1 => G_SQLCODE_TOKEN
1282: ,p_token1_value => SQLCODE
1283: ,p_token2 => G_SQLERRM_TOKEN
1284: ,p_token2_value => SQLERRM);
1285: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1286: END validate_tax_line_number;
1287: -------------------------------------------------
1288: -- Validate_Attributes for: TAX_REGIME_ID --
1289: -------------------------------------------------
1299: FROM zx_regimes_b
1300: WHERE zx_regimes_b.tax_regime_id = p_id;
1301: BEGIN
1302:
1303: IF (p_ttdv_rec.tax_regime_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_regime_id IS NOT NULL)
1304: THEN
1305: OPEN okl_ttdv_tx_reg_id_fk_csr(p_ttdv_rec.tax_regime_id) ;
1306: FETCH okl_ttdv_tx_reg_id_fk_csr into l_dummy_var ;
1307: CLOSE okl_ttdv_tx_reg_id_fk_csr ;
1329: ,p_token1 => G_SQLCODE_TOKEN
1330: ,p_token1_value => SQLCODE
1331: ,p_token2 => G_SQLERRM_TOKEN
1332: ,p_token2_value => SQLERRM);
1333: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1334: END validate_tax_regime_id;
1335: -------------------------------------------------
1336: -- Validate_Attributes for: TAX_REGIME_CODE --
1337: -------------------------------------------------
1347: FROM zx_regimes_b
1348: WHERE zx_regimes_b.tax_regime_code = p_code;
1349: BEGIN
1350:
1351: IF (p_ttdv_rec.tax_regime_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_regime_code IS NOT NULL)
1352: THEN
1353: OPEN okl_ttdv_tx_reg_cd_fk_csr(p_ttdv_rec.tax_regime_code) ;
1354: FETCH okl_ttdv_tx_reg_cd_fk_csr into l_dummy_var ;
1355: CLOSE okl_ttdv_tx_reg_cd_fk_csr ;
1377: ,p_token1 => G_SQLCODE_TOKEN
1378: ,p_token1_value => SQLCODE
1379: ,p_token2 => G_SQLERRM_TOKEN
1380: ,p_token2_value => SQLERRM);
1381: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1382: END validate_tax_regime_code;
1383: -------------------------------------------------
1384: -- Validate_Attributes for: TAX_ID --
1385: -------------------------------------------------
1395: FROM zx_taxes_b
1396: WHERE zx_taxes_b.tax_id = p_id;
1397: BEGIN
1398:
1399: IF (p_ttdv_rec.tax_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_id IS NOT NULL)
1400: THEN
1401: OPEN okl_ttdv_tx_id_fk_csr(p_ttdv_rec.tax_id) ;
1402: FETCH okl_ttdv_tx_id_fk_csr into l_dummy_var ;
1403: CLOSE okl_ttdv_tx_id_fk_csr ;
1425: ,p_token1 => G_SQLCODE_TOKEN
1426: ,p_token1_value => SQLCODE
1427: ,p_token2 => G_SQLERRM_TOKEN
1428: ,p_token2_value => SQLERRM);
1429: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1430: END validate_tax_id;
1431: -------------------------------------------------
1432: -- Validate_Attributes for: TAX_STATUS_ID --
1433: -------------------------------------------------
1443: FROM zx_status_b
1444: WHERE zx_status_b.tax_status_id = p_id;
1445: BEGIN
1446:
1447: IF (p_ttdv_rec.tax_status_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_status_id IS NOT NULL)
1448: THEN
1449: OPEN okl_ttdv_tx_st_id_fk_csr(p_ttdv_rec.tax_status_id) ;
1450: FETCH okl_ttdv_tx_st_id_fk_csr into l_dummy_var ;
1451: CLOSE okl_ttdv_tx_st_id_fk_csr ;
1473: ,p_token1 => G_SQLCODE_TOKEN
1474: ,p_token1_value => SQLCODE
1475: ,p_token2 => G_SQLERRM_TOKEN
1476: ,p_token2_value => SQLERRM);
1477: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1478: END validate_tax_status_id;
1479: -------------------------------------------------
1480: -- Validate_Attributes for: TAX_JURISDICTION_ID --
1481: -------------------------------------------------
1491: FROM zx_jurisdictions_b
1492: WHERE zx_jurisdictions_b.tax_jurisdiction_id = p_id;
1493: BEGIN
1494:
1495: IF (p_ttdv_rec.tax_jurisdiction_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_jurisdiction_id IS NOT NULL)
1496: THEN
1497: OPEN okl_ttdv_tx_jur_id_fk_csr(p_ttdv_rec.tax_jurisdiction_id) ;
1498: FETCH okl_ttdv_tx_jur_id_fk_csr into l_dummy_var ;
1499: CLOSE okl_ttdv_tx_jur_id_fk_csr ;
1521: ,p_token1 => G_SQLCODE_TOKEN
1522: ,p_token1_value => SQLCODE
1523: ,p_token2 => G_SQLERRM_TOKEN
1524: ,p_token2_value => SQLERRM);
1525: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1526: END validate_tax_juris_id;
1527: -------------------------------------------------
1528: -- Validate_Attributes for: TAX_CURRENCY_CODE --
1529: -------------------------------------------------
1539: FROM fnd_currencies
1540: WHERE fnd_currencies.currency_code = p_code;
1541: BEGIN
1542:
1543: IF (p_ttdv_rec.tax_currency_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_currency_code IS NOT NULL)
1544: THEN
1545: OPEN okl_ttdv_tx_cur_cd_fk_csr(p_ttdv_rec.tax_currency_code) ;
1546: FETCH okl_ttdv_tx_cur_cd_fk_csr into l_dummy_var ;
1547: CLOSE okl_ttdv_tx_cur_cd_fk_csr ;
1569: ,p_token1 => G_SQLCODE_TOKEN
1570: ,p_token1_value => SQLCODE
1571: ,p_token2 => G_SQLERRM_TOKEN
1572: ,p_token2_value => SQLERRM);
1573: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1574: END validate_tax_curr_code;
1575: -------------------------------------------------
1576: -- Validate_Attributes for: TRX_CURRENCY_CODE --
1577: -------------------------------------------------
1587: FROM fnd_currencies
1588: WHERE fnd_currencies.currency_code = p_code;
1589: BEGIN
1590:
1591: IF (p_ttdv_rec.trx_currency_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.trx_currency_code IS NOT NULL)
1592: THEN
1593: OPEN okl_ttdv_trx_cur_cd_fk_csr(p_ttdv_rec.trx_currency_code) ;
1594: FETCH okl_ttdv_trx_cur_cd_fk_csr into l_dummy_var ;
1595: CLOSE okl_ttdv_trx_cur_cd_fk_csr ;
1617: ,p_token1 => G_SQLCODE_TOKEN
1618: ,p_token1_value => SQLCODE
1619: ,p_token2 => G_SQLERRM_TOKEN
1620: ,p_token2_value => SQLERRM);
1621: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1622: END validate_trx_curr_code;
1623:
1624: -- Modified by dcshanmu for eBTax - modification end
1625:
1631: ---------------------------------------------------
1632: FUNCTION Validate_Attributes (
1633: p_ttdv_rec IN ttdv_rec_type
1634: ) RETURN VARCHAR2 IS
1635: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1636: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1637: BEGIN
1638: -----------------------------
1639: -- Column Level Validation --
1632: FUNCTION Validate_Attributes (
1633: p_ttdv_rec IN ttdv_rec_type
1634: ) RETURN VARCHAR2 IS
1635: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1636: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1637: BEGIN
1638: -----------------------------
1639: -- Column Level Validation --
1640: -----------------------------
1931: EXCEPTION
1932: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1933: RETURN(x_return_status);
1934: WHEN OTHERS THEN
1935: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1936: ,p_msg_name => G_UNEXPECTED_ERROR
1937: ,p_token1 => G_SQLCODE_TOKEN
1938: ,p_token1_value => SQLCODE
1939: ,p_token2 => G_SQLERRM_TOKEN
1937: ,p_token1 => G_SQLCODE_TOKEN
1938: ,p_token1_value => SQLCODE
1939: ,p_token2 => G_SQLERRM_TOKEN
1940: ,p_token2_value => SQLERRM);
1941: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1942: RETURN(x_return_status);
1943: END Validate_Attributes;
1944: ---------------------------------------------------------------------------
1945: -- PROCEDURE Validate_Record
1950: FUNCTION Validate_Record (
1951: p_ttdv_rec IN ttdv_rec_type,
1952: p_db_okl_tax_trx_details_v_rec IN ttdv_rec_type
1953: ) RETURN VARCHAR2 IS
1954: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1955: ------------------------------------
1956: -- FUNCTION validate_foreign_keys --
1957: ------------------------------------
1958: FUNCTION validate_foreign_keys (
2045: WHERE fnd_currencies.currency_code = p_code;
2046: l_okl_ttdv_trx_cur_cd_fk_csr okl_ttdv_trx_cur_cd_fk_csr%ROWTYPE;
2047:
2048:
2049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2050: l_row_notfound BOOLEAN := TRUE;
2051: BEGIN
2052:
2053: IF ((p_ttdv_rec.TXS_ID IS NOT NULL)
2058: FETCH okl_ttdv_txs_id_csr INTO l_okl_ttdv_txs_id;
2059: l_row_notfound := okl_ttdv_txs_id_csr%NOTFOUND;
2060: CLOSE okl_ttdv_txs_id_csr;
2061: IF (l_row_notfound) THEN
2062: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TXS_ID');
2063: RAISE item_not_found_error;
2064: END IF;
2065: END IF;
2066:
2072: FETCH okl_ttdv_tax_call_t1 INTO l_okl_ttdv_tax_call_type_code;
2073: l_row_notfound := okl_ttdv_tax_call_t1%NOTFOUND;
2074: CLOSE okl_ttdv_tax_call_t1;
2075: IF (l_row_notfound) THEN
2076: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_CALL_TYPE_CODE');
2077: RAISE item_not_found_error;
2078: END IF;
2079: END IF;
2080:
2086: FETCH okl_ttdv_tri_fk_csr INTO l_okl_ttdv_tri;
2087: l_row_notfound := okl_ttdv_tri_fk_csr%NOTFOUND;
2088: CLOSE okl_ttdv_tri_fk_csr;
2089: IF (l_row_notfound) THEN
2090: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_RATE_ID');
2091: RAISE item_not_found_error;
2092: END IF;
2093: END IF;
2094:
2100: FETCH okl_ttdv_trc_fk_csr INTO l_okl_ttdv_trc;
2101: l_row_notfound := okl_ttdv_trc_fk_csr%NOTFOUND;
2102: CLOSE okl_ttdv_trc_fk_csr;
2103: IF (l_row_notfound) THEN
2104: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_RATE_CODE');
2105: RAISE item_not_found_error;
2106: END IF;
2107: END IF;
2108:
2114: FETCH okl_ttdv_tei_fk_csr INTO l_okl_ttdv_tei;
2115: l_row_notfound := okl_ttdv_tei_fk_csr%NOTFOUND;
2116: CLOSE okl_ttdv_tei_fk_csr;
2117: IF (l_row_notfound) THEN
2118: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_EXEMPTION_ID');
2119: RAISE item_not_found_error;
2120: END IF;
2121: END IF;
2122:
2128: FETCH okl_ttdv_ioi_fk_csr INTO l_okl_ttdv_ioi;
2129: l_row_notfound := okl_ttdv_ioi_fk_csr%NOTFOUND;
2130: CLOSE okl_ttdv_ioi_fk_csr;
2131: IF (l_row_notfound) THEN
2132: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'INTERNAL_ORGANIZATION_ID');
2133: RAISE item_not_found_error;
2134: END IF;
2135: END IF;
2136:
2142: FETCH okl_ttdv_app_id_fk_csr INTO l_okl_ttdv_app_id;
2143: l_row_notfound := okl_ttdv_app_id_fk_csr%NOTFOUND;
2144: CLOSE okl_ttdv_app_id_fk_csr;
2145: IF (l_row_notfound) THEN
2146: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'APPLICATION_ID');
2147: RAISE item_not_found_error;
2148: END IF;
2149: END IF;
2150:
2156: FETCH okl_ttdv_tx_reg_id_fk_csr INTO l_okl_ttdv_tx_reg_id;
2157: l_row_notfound := okl_ttdv_tx_reg_id_fk_csr%NOTFOUND;
2158: CLOSE okl_ttdv_tx_reg_id_fk_csr;
2159: IF (l_row_notfound) THEN
2160: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_REGIME_ID');
2161: RAISE item_not_found_error;
2162: END IF;
2163: END IF;
2164:
2170: FETCH okl_ttdv_tx_reg_cd_fk_csr INTO l_okl_ttdv_tx_reg_cd;
2171: l_row_notfound := okl_ttdv_tx_reg_cd_fk_csr%NOTFOUND;
2172: CLOSE okl_ttdv_tx_reg_cd_fk_csr;
2173: IF (l_row_notfound) THEN
2174: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_REGIME_CODE');
2175: RAISE item_not_found_error;
2176: END IF;
2177: END IF;
2178:
2184: FETCH okl_ttdv_tx_id_fk_csr INTO l_okl_ttdv_tx_id;
2185: l_row_notfound := okl_ttdv_tx_id_fk_csr%NOTFOUND;
2186: CLOSE okl_ttdv_tx_id_fk_csr;
2187: IF (l_row_notfound) THEN
2188: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_ID');
2189: RAISE item_not_found_error;
2190: END IF;
2191: END IF;
2192:
2198: FETCH okl_ttdv_tx_st_id_fk_csr INTO l_okl_ttdv_tx_st_id;
2199: l_row_notfound := okl_ttdv_tx_st_id_fk_csr%NOTFOUND;
2200: CLOSE okl_ttdv_tx_st_id_fk_csr;
2201: IF (l_row_notfound) THEN
2202: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_STATUS_ID');
2203: RAISE item_not_found_error;
2204: END IF;
2205: END IF;
2206:
2212: FETCH okl_ttdv_tx_jur_id_fk_csr INTO l_okl_ttdv_tx_jur_id;
2213: l_row_notfound := okl_ttdv_tx_jur_id_fk_csr%NOTFOUND;
2214: CLOSE okl_ttdv_tx_jur_id_fk_csr;
2215: IF (l_row_notfound) THEN
2216: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_JURISDICTION_ID');
2217: RAISE item_not_found_error;
2218: END IF;
2219: END IF;
2220:
2226: FETCH okl_ttdv_tx_cur_cd_fk_csr INTO l_okl_ttdv_tx_cur_cd;
2227: l_row_notfound := okl_ttdv_tx_cur_cd_fk_csr%NOTFOUND;
2228: CLOSE okl_ttdv_tx_cur_cd_fk_csr;
2229: IF (l_row_notfound) THEN
2230: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_CURRENCY_CODE');
2231: RAISE item_not_found_error;
2232: END IF;
2233: END IF;
2234:
2240: FETCH okl_ttdv_trx_cur_cd_fk_csr INTO l_okl_ttdv_trx_cur_cd;
2241: l_row_notfound := okl_ttdv_trx_cur_cd_fk_csr%NOTFOUND;
2242: CLOSE okl_ttdv_trx_cur_cd_fk_csr;
2243: IF (l_row_notfound) THEN
2244: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TRX_CURRENCY_CODE');
2245: RAISE item_not_found_error;
2246: END IF;
2247: END IF;
2248:
2248:
2249: RETURN (l_return_status);
2250: EXCEPTION
2251: WHEN item_not_found_error THEN
2252: l_return_status := OKL_API.G_RET_STS_ERROR;
2253: RETURN (l_return_status);
2254: END validate_foreign_keys;
2255: BEGIN
2256: l_return_status := validate_foreign_keys(p_ttdv_rec, p_db_okl_tax_trx_details_v_rec);
2258: END Validate_Record;
2259: FUNCTION Validate_Record (
2260: p_ttdv_rec IN ttdv_rec_type
2261: ) RETURN VARCHAR2 IS
2262: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2263: l_db_okl_tax_trx_details_v_rec ttdv_rec_type := get_rec(p_ttdv_rec);
2264: BEGIN
2265: l_return_status := Validate_Record(p_ttdv_rec => p_ttdv_rec,
2266: p_db_okl_tax_trx_details_v_rec => l_db_okl_tax_trx_details_v_rec);
2443: p_ttdv_rec IN ttdv_rec_type) IS
2444:
2445: l_api_version CONSTANT NUMBER := 1;
2446: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2447: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2448: l_ttdv_rec ttdv_rec_type := p_ttdv_rec;
2449: l_ttd_rec ttd_rec_type;
2450: l_ttd_rec ttd_rec_type;
2451: BEGIN
2448: l_ttdv_rec ttdv_rec_type := p_ttdv_rec;
2449: l_ttd_rec ttd_rec_type;
2450: l_ttd_rec ttd_rec_type;
2451: BEGIN
2452: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2453: G_PKG_NAME,
2454: p_init_msg_list,
2455: l_api_version,
2456: p_api_version,
2455: l_api_version,
2456: p_api_version,
2457: '_PVT',
2458: x_return_status);
2459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_ERROR;
2463: END IF;
2456: p_api_version,
2457: '_PVT',
2458: x_return_status);
2459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_ERROR;
2463: END IF;
2464: --- Validate all non-missing attributes (Item Level Validation)
2457: '_PVT',
2458: x_return_status);
2459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_ERROR;
2463: END IF;
2464: --- Validate all non-missing attributes (Item Level Validation)
2465: l_return_status := Validate_Attributes(l_ttdv_rec);
2458: x_return_status);
2459: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2461: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2462: RAISE OKL_API.G_EXCEPTION_ERROR;
2463: END IF;
2464: --- Validate all non-missing attributes (Item Level Validation)
2465: l_return_status := Validate_Attributes(l_ttdv_rec);
2466: --- If any errors happen abort API
2463: END IF;
2464: --- Validate all non-missing attributes (Item Level Validation)
2465: l_return_status := Validate_Attributes(l_ttdv_rec);
2466: --- If any errors happen abort API
2467: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_ERROR;
2471: END IF;
2464: --- Validate all non-missing attributes (Item Level Validation)
2465: l_return_status := Validate_Attributes(l_ttdv_rec);
2466: --- If any errors happen abort API
2467: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_ERROR;
2471: END IF;
2472:
2465: l_return_status := Validate_Attributes(l_ttdv_rec);
2466: --- If any errors happen abort API
2467: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_ERROR;
2471: END IF;
2472:
2473: /*l_return_status := Validate_Record(l_ttdv_rec);
2466: --- If any errors happen abort API
2467: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2469: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_ERROR;
2471: END IF;
2472:
2473: /*l_return_status := Validate_Record(l_ttdv_rec);
2474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_ERROR;
2471: END IF;
2472:
2473: /*l_return_status := Validate_Record(l_ttdv_rec);
2474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2471: END IF;
2472:
2473: /*l_return_status := Validate_Record(l_ttdv_rec);
2474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: */
2472:
2473: /*l_return_status := Validate_Record(l_ttdv_rec);
2474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: */
2480:
2473: /*l_return_status := Validate_Record(l_ttdv_rec);
2474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2477: RAISE OKL_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: */
2480:
2481: x_return_status := l_return_status;
2479: */
2480:
2481: x_return_status := l_return_status;
2482: EXCEPTION
2483: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2484: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2485: (
2486: l_api_name,
2487: G_PKG_NAME,
2480:
2481: x_return_status := l_return_status;
2482: EXCEPTION
2483: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2484: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2485: (
2486: l_api_name,
2487: G_PKG_NAME,
2488: 'OKL_API.G_RET_STS_ERROR',
2484: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2485: (
2486: l_api_name,
2487: G_PKG_NAME,
2488: 'OKL_API.G_RET_STS_ERROR',
2489: x_msg_count,
2490: x_msg_data,
2491: '_PVT'
2492: );
2489: x_msg_count,
2490: x_msg_data,
2491: '_PVT'
2492: );
2493: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2494: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2495: (
2496: l_api_name,
2497: G_PKG_NAME,
2490: x_msg_data,
2491: '_PVT'
2492: );
2493: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2494: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2495: (
2496: l_api_name,
2497: G_PKG_NAME,
2498: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2494: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2495: (
2496: l_api_name,
2497: G_PKG_NAME,
2498: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2499: x_msg_count,
2500: x_msg_data,
2501: '_PVT'
2502: );
2500: x_msg_data,
2501: '_PVT'
2502: );
2503: WHEN OTHERS THEN
2504: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2505: (
2506: l_api_name,
2507: G_PKG_NAME,
2508: 'OTHERS',
2520: x_return_status OUT NOCOPY VARCHAR2,
2521: x_msg_count OUT NOCOPY NUMBER,
2522: x_msg_data OUT NOCOPY VARCHAR2,
2523: p_ttdv_tbl IN ttdv_tbl_type,
2524: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2525:
2526: l_api_version CONSTANT NUMBER := 1;
2527: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
2528: i NUMBER := 0;
2526: l_api_version CONSTANT NUMBER := 1;
2527: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
2528: i NUMBER := 0;
2529: BEGIN
2530: OKL_API.init_msg_list(p_init_msg_list);
2531: -- Make sure PL/SQL table has records in it before passing
2532: IF (p_ttdv_tbl.COUNT > 0) THEN
2533: i := p_ttdv_tbl.FIRST;
2534: LOOP
2532: IF (p_ttdv_tbl.COUNT > 0) THEN
2533: i := p_ttdv_tbl.FIRST;
2534: LOOP
2535: DECLARE
2536: l_error_rec OKL_API.ERROR_REC_TYPE;
2537: BEGIN
2538: l_error_rec.api_name := l_api_name;
2539: l_error_rec.api_package := G_PKG_NAME;
2540: l_error_rec.idx := i;
2539: l_error_rec.api_package := G_PKG_NAME;
2540: l_error_rec.idx := i;
2541: validate_row (
2542: p_api_version => p_api_version,
2543: p_init_msg_list => OKL_API.G_FALSE,
2544: x_return_status => l_error_rec.error_type,
2545: x_msg_count => l_error_rec.msg_count,
2546: x_msg_data => l_error_rec.msg_data,
2547: p_ttdv_rec => p_ttdv_tbl(i));
2544: x_return_status => l_error_rec.error_type,
2545: x_msg_count => l_error_rec.msg_count,
2546: x_msg_data => l_error_rec.msg_data,
2547: p_ttdv_rec => p_ttdv_tbl(i));
2548: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2549: l_error_rec.sqlcode := SQLCODE;
2550: load_error_tbl(l_error_rec, px_error_tbl);
2551: ELSE
2552: x_msg_count := l_error_rec.msg_count;
2552: x_msg_count := l_error_rec.msg_count;
2553: x_msg_data := l_error_rec.msg_data;
2554: END IF;
2555: EXCEPTION
2556: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2557: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2558: l_error_rec.sqlcode := SQLCODE;
2559: load_error_tbl(l_error_rec, px_error_tbl);
2560: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2553: x_msg_data := l_error_rec.msg_data;
2554: END IF;
2555: EXCEPTION
2556: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2557: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2558: l_error_rec.sqlcode := SQLCODE;
2559: load_error_tbl(l_error_rec, px_error_tbl);
2560: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2561: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2556: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2557: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2558: l_error_rec.sqlcode := SQLCODE;
2559: load_error_tbl(l_error_rec, px_error_tbl);
2560: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2561: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2562: l_error_rec.sqlcode := SQLCODE;
2563: load_error_tbl(l_error_rec, px_error_tbl);
2564: WHEN OTHERS THEN
2557: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2558: l_error_rec.sqlcode := SQLCODE;
2559: load_error_tbl(l_error_rec, px_error_tbl);
2560: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2561: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2562: l_error_rec.sqlcode := SQLCODE;
2563: load_error_tbl(l_error_rec, px_error_tbl);
2564: WHEN OTHERS THEN
2565: l_error_rec.error_type := 'OTHERS';
2572: END IF;
2573: -- Loop through the error_tbl to find the error with the highest severity
2574: -- and return it.
2575: x_return_status := find_highest_exception(px_error_tbl);
2576: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2577: EXCEPTION
2578: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2579: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2580: (
2574: -- and return it.
2575: x_return_status := find_highest_exception(px_error_tbl);
2576: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2577: EXCEPTION
2578: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2579: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2580: (
2581: l_api_name,
2582: G_PKG_NAME,
2575: x_return_status := find_highest_exception(px_error_tbl);
2576: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2577: EXCEPTION
2578: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2579: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2580: (
2581: l_api_name,
2582: G_PKG_NAME,
2583: 'OKL_API.G_RET_STS_ERROR',
2579: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2580: (
2581: l_api_name,
2582: G_PKG_NAME,
2583: 'OKL_API.G_RET_STS_ERROR',
2584: x_msg_count,
2585: x_msg_data,
2586: '_PVT'
2587: );
2584: x_msg_count,
2585: x_msg_data,
2586: '_PVT'
2587: );
2588: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2589: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2590: (
2591: l_api_name,
2592: G_PKG_NAME,
2585: x_msg_data,
2586: '_PVT'
2587: );
2588: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2589: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2590: (
2591: l_api_name,
2592: G_PKG_NAME,
2593: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2589: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2590: (
2591: l_api_name,
2592: G_PKG_NAME,
2593: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2594: x_msg_count,
2595: x_msg_data,
2596: '_PVT'
2597: );
2595: x_msg_data,
2596: '_PVT'
2597: );
2598: WHEN OTHERS THEN
2599: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2600: (
2601: l_api_name,
2602: G_PKG_NAME,
2603: 'OTHERS',
2619: p_ttdv_tbl IN ttdv_tbl_type) IS
2620:
2621: l_api_version CONSTANT NUMBER := 1;
2622: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2623: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2624: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2625: BEGIN
2626: OKL_API.init_msg_list(p_init_msg_list);
2627: -- Make sure PL/SQL table has records in it before passing
2620:
2621: l_api_version CONSTANT NUMBER := 1;
2622: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2623: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2624: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2625: BEGIN
2626: OKL_API.init_msg_list(p_init_msg_list);
2627: -- Make sure PL/SQL table has records in it before passing
2628: IF (p_ttdv_tbl.COUNT > 0) THEN
2622: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2623: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2624: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2625: BEGIN
2626: OKL_API.init_msg_list(p_init_msg_list);
2627: -- Make sure PL/SQL table has records in it before passing
2628: IF (p_ttdv_tbl.COUNT > 0) THEN
2629: validate_row (
2630: p_api_version => p_api_version,
2627: -- Make sure PL/SQL table has records in it before passing
2628: IF (p_ttdv_tbl.COUNT > 0) THEN
2629: validate_row (
2630: p_api_version => p_api_version,
2631: p_init_msg_list => OKL_API.G_FALSE,
2632: x_return_status => x_return_status,
2633: x_msg_count => x_msg_count,
2634: x_msg_data => x_msg_data,
2635: p_ttdv_tbl => p_ttdv_tbl,
2634: x_msg_data => x_msg_data,
2635: p_ttdv_tbl => p_ttdv_tbl,
2636: px_error_tbl => l_error_tbl);
2637: END IF;
2638: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2639: EXCEPTION
2640: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2641: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2642: (
2636: px_error_tbl => l_error_tbl);
2637: END IF;
2638: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2639: EXCEPTION
2640: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2641: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2642: (
2643: l_api_name,
2644: G_PKG_NAME,
2637: END IF;
2638: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2639: EXCEPTION
2640: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2641: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2642: (
2643: l_api_name,
2644: G_PKG_NAME,
2645: 'OKL_API.G_RET_STS_ERROR',
2641: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2642: (
2643: l_api_name,
2644: G_PKG_NAME,
2645: 'OKL_API.G_RET_STS_ERROR',
2646: x_msg_count,
2647: x_msg_data,
2648: '_PVT'
2649: );
2646: x_msg_count,
2647: x_msg_data,
2648: '_PVT'
2649: );
2650: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652: (
2653: l_api_name,
2654: G_PKG_NAME,
2647: x_msg_data,
2648: '_PVT'
2649: );
2650: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652: (
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652: (
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2656: x_msg_count,
2657: x_msg_data,
2658: '_PVT'
2659: );
2657: x_msg_data,
2658: '_PVT'
2659: );
2660: WHEN OTHERS THEN
2661: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2662: (
2663: l_api_name,
2664: G_PKG_NAME,
2665: 'OTHERS',
2684: x_ttd_rec OUT NOCOPY ttd_rec_type) IS
2685:
2686: l_api_version CONSTANT NUMBER := 1;
2687: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
2688: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2689: l_ttd_rec ttd_rec_type := p_ttd_rec;
2690: l_def_ttd_rec ttd_rec_type;
2691: --------------------------------------------
2692: -- Set_Attributes for:OKL_TAX_TRX_DETAILS --
2694: FUNCTION Set_Attributes (
2695: p_ttd_rec IN ttd_rec_type,
2696: x_ttd_rec OUT NOCOPY ttd_rec_type
2697: ) RETURN VARCHAR2 IS
2698: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2699: BEGIN
2700: x_ttd_rec := p_ttd_rec;
2701: RETURN(l_return_status);
2702: END Set_Attributes;
2700: x_ttd_rec := p_ttd_rec;
2701: RETURN(l_return_status);
2702: END Set_Attributes;
2703: BEGIN
2704: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2705: p_init_msg_list,
2706: '_PVT',
2707: x_return_status);
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2704: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2705: p_init_msg_list,
2706: '_PVT',
2707: x_return_status);
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2705: p_init_msg_list,
2706: '_PVT',
2707: x_return_status);
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713: --- Setting item atributes
2706: '_PVT',
2707: x_return_status);
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713: --- Setting item atributes
2714: l_return_status := Set_Attributes(
2707: x_return_status);
2708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713: --- Setting item atributes
2714: l_return_status := Set_Attributes(
2715: p_ttd_rec, -- IN
2714: l_return_status := Set_Attributes(
2715: p_ttd_rec, -- IN
2716: l_ttd_rec); -- OUT
2717: --- If any errors happen abort API
2718: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2721: RAISE OKL_API.G_EXCEPTION_ERROR;
2722: END IF;
2715: p_ttd_rec, -- IN
2716: l_ttd_rec); -- OUT
2717: --- If any errors happen abort API
2718: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2721: RAISE OKL_API.G_EXCEPTION_ERROR;
2722: END IF;
2723: INSERT INTO OKL_TAX_TRX_DETAILS(
2716: l_ttd_rec); -- OUT
2717: --- If any errors happen abort API
2718: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2721: RAISE OKL_API.G_EXCEPTION_ERROR;
2722: END IF;
2723: INSERT INTO OKL_TAX_TRX_DETAILS(
2724: id,
2717: --- If any errors happen abort API
2718: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2720: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2721: RAISE OKL_API.G_EXCEPTION_ERROR;
2722: END IF;
2723: INSERT INTO OKL_TAX_TRX_DETAILS(
2724: id,
2725: txs_id,
2868: -- Modified by dcshanmu for eBTax - modification end
2869: -- Set OUT values
2870: x_ttd_rec := l_ttd_rec;
2871: x_return_status := l_return_status;
2872: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2873: EXCEPTION
2874: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2875: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2876: (
2870: x_ttd_rec := l_ttd_rec;
2871: x_return_status := l_return_status;
2872: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2873: EXCEPTION
2874: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2875: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2876: (
2877: l_api_name,
2878: G_PKG_NAME,
2871: x_return_status := l_return_status;
2872: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2873: EXCEPTION
2874: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2875: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2876: (
2877: l_api_name,
2878: G_PKG_NAME,
2879: 'OKL_API.G_RET_STS_ERROR',
2875: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2876: (
2877: l_api_name,
2878: G_PKG_NAME,
2879: 'OKL_API.G_RET_STS_ERROR',
2880: x_msg_count,
2881: x_msg_data,
2882: '_PVT'
2883: );
2880: x_msg_count,
2881: x_msg_data,
2882: '_PVT'
2883: );
2884: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2885: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2886: (
2887: l_api_name,
2888: G_PKG_NAME,
2881: x_msg_data,
2882: '_PVT'
2883: );
2884: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2885: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2886: (
2887: l_api_name,
2888: G_PKG_NAME,
2889: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2885: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2886: (
2887: l_api_name,
2888: G_PKG_NAME,
2889: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2890: x_msg_count,
2891: x_msg_data,
2892: '_PVT'
2893: );
2891: x_msg_data,
2892: '_PVT'
2893: );
2894: WHEN OTHERS THEN
2895: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2896: (
2897: l_api_name,
2898: G_PKG_NAME,
2899: 'OTHERS',
2915: x_ttdv_rec OUT NOCOPY ttdv_rec_type) IS
2916:
2917: l_api_version CONSTANT NUMBER := 1;
2918: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2919: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2920: l_ttdv_rec ttdv_rec_type := p_ttdv_rec;
2921: LDefOklTaxTrxDetailsVRec ttdv_rec_type;
2922: l_ttd_rec ttd_rec_type;
2923: lx_ttd_rec ttd_rec_type;
2942: FUNCTION Set_Attributes (
2943: p_ttdv_rec IN ttdv_rec_type,
2944: x_ttdv_rec OUT NOCOPY ttdv_rec_type
2945: ) RETURN VARCHAR2 IS
2946: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2947: BEGIN
2948: x_ttdv_rec := p_ttdv_rec;
2949: x_ttdv_rec.OBJECT_VERSION_NUMBER := 1;
2950: RETURN(l_return_status);
2949: x_ttdv_rec.OBJECT_VERSION_NUMBER := 1;
2950: RETURN(l_return_status);
2951: END Set_Attributes;
2952: BEGIN
2953: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2954: G_PKG_NAME,
2955: p_init_msg_list,
2956: l_api_version,
2957: p_api_version,
2956: l_api_version,
2957: p_api_version,
2958: '_PVT',
2959: x_return_status);
2960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2963: RAISE OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2957: p_api_version,
2958: '_PVT',
2959: x_return_status);
2960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2963: RAISE OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2965: l_ttdv_rec := null_out_defaults(p_ttdv_rec);
2958: '_PVT',
2959: x_return_status);
2960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2963: RAISE OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2965: l_ttdv_rec := null_out_defaults(p_ttdv_rec);
2966: -- Set primary key value
2959: x_return_status);
2960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2963: RAISE OKL_API.G_EXCEPTION_ERROR;
2964: END IF;
2965: l_ttdv_rec := null_out_defaults(p_ttdv_rec);
2966: -- Set primary key value
2967: l_ttdv_rec.ID := get_seq_id;
2969: l_return_Status := Set_Attributes(
2970: l_ttdv_rec, -- IN
2971: LDefOklTaxTrxDetailsVRec); -- OUT
2972: --- If any errors happen abort API
2973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_ERROR;
2977: END IF;
2970: l_ttdv_rec, -- IN
2971: LDefOklTaxTrxDetailsVRec); -- OUT
2972: --- If any errors happen abort API
2973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_ERROR;
2977: END IF;
2978: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
2971: LDefOklTaxTrxDetailsVRec); -- OUT
2972: --- If any errors happen abort API
2973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_ERROR;
2977: END IF;
2978: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
2979: --- Validate all non-missing attributes (Item Level Validation)
2972: --- If any errors happen abort API
2973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2976: RAISE OKL_API.G_EXCEPTION_ERROR;
2977: END IF;
2978: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
2979: --- Validate all non-missing attributes (Item Level Validation)
2980: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
2978: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
2979: --- Validate all non-missing attributes (Item Level Validation)
2980: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
2981: --- If any errors happen abort API
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2979: --- Validate all non-missing attributes (Item Level Validation)
2980: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
2981: --- If any errors happen abort API
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2987: /*
2980: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
2981: --- If any errors happen abort API
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2987: /*
2988: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec);
2981: --- If any errors happen abort API
2982: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2987: /*
2988: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec);
2989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2985: RAISE OKL_API.G_EXCEPTION_ERROR;
2986: END IF;
2987: /*
2988: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec);
2989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2992: RAISE OKL_API.G_EXCEPTION_ERROR;
2993: END IF;
2986: END IF;
2987: /*
2988: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec);
2989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2992: RAISE OKL_API.G_EXCEPTION_ERROR;
2993: END IF;
2994: */
2987: /*
2988: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec);
2989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2992: RAISE OKL_API.G_EXCEPTION_ERROR;
2993: END IF;
2994: */
2995: -----------------------------------------
2988: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec);
2989: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2991: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2992: RAISE OKL_API.G_EXCEPTION_ERROR;
2993: END IF;
2994: */
2995: -----------------------------------------
2996: -- Move VIEW record to "Child" records --
3006: x_msg_data,
3007: l_ttd_rec,
3008: lx_ttd_rec
3009: );
3010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_ERROR;
3014: END IF;
3007: l_ttd_rec,
3008: lx_ttd_rec
3009: );
3010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
3008: lx_ttd_rec
3009: );
3010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
3016: -- Set OUT values
3009: );
3010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
3016: -- Set OUT values
3017: x_ttdv_rec := LDefOklTaxTrxDetailsVRec;
3015: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
3016: -- Set OUT values
3017: x_ttdv_rec := LDefOklTaxTrxDetailsVRec;
3018: x_return_status := l_return_status;
3019: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3020: EXCEPTION
3021: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3023: (
3017: x_ttdv_rec := LDefOklTaxTrxDetailsVRec;
3018: x_return_status := l_return_status;
3019: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3020: EXCEPTION
3021: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3018: x_return_status := l_return_status;
3019: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3020: EXCEPTION
3021: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3026: 'OKL_API.G_RET_STS_ERROR',
3022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3026: 'OKL_API.G_RET_STS_ERROR',
3027: x_msg_count,
3028: x_msg_data,
3029: '_PVT'
3030: );
3027: x_msg_count,
3028: x_msg_data,
3029: '_PVT'
3030: );
3031: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3032: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3033: (
3034: l_api_name,
3035: G_PKG_NAME,
3028: x_msg_data,
3029: '_PVT'
3030: );
3031: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3032: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3033: (
3034: l_api_name,
3035: G_PKG_NAME,
3036: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3032: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3033: (
3034: l_api_name,
3035: G_PKG_NAME,
3036: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3037: x_msg_count,
3038: x_msg_data,
3039: '_PVT'
3040: );
3038: x_msg_data,
3039: '_PVT'
3040: );
3041: WHEN OTHERS THEN
3042: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3043: (
3044: l_api_name,
3045: G_PKG_NAME,
3046: 'OTHERS',
3059: x_msg_count OUT NOCOPY NUMBER,
3060: x_msg_data OUT NOCOPY VARCHAR2,
3061: p_ttdv_tbl IN ttdv_tbl_type,
3062: x_ttdv_tbl OUT NOCOPY ttdv_tbl_type,
3063: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3064:
3065: l_api_version CONSTANT NUMBER := 1;
3066: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
3067: i NUMBER := 0;
3065: l_api_version CONSTANT NUMBER := 1;
3066: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
3067: i NUMBER := 0;
3068: BEGIN
3069: OKL_API.init_msg_list(p_init_msg_list);
3070: -- Make sure PL/SQL table has records in it before passing
3071: IF (p_ttdv_tbl.COUNT > 0) THEN
3072: i := p_ttdv_tbl.FIRST;
3073: LOOP
3071: IF (p_ttdv_tbl.COUNT > 0) THEN
3072: i := p_ttdv_tbl.FIRST;
3073: LOOP
3074: DECLARE
3075: l_error_rec OKL_API.ERROR_REC_TYPE;
3076: BEGIN
3077: l_error_rec.api_name := l_api_name;
3078: l_error_rec.api_package := G_PKG_NAME;
3079: l_error_rec.idx := i;
3078: l_error_rec.api_package := G_PKG_NAME;
3079: l_error_rec.idx := i;
3080: insert_row (
3081: p_api_version => p_api_version,
3082: p_init_msg_list => OKL_API.G_FALSE,
3083: x_return_status => l_error_rec.error_type,
3084: x_msg_count => l_error_rec.msg_count,
3085: x_msg_data => l_error_rec.msg_data,
3086: p_ttdv_rec => p_ttdv_tbl(i),
3084: x_msg_count => l_error_rec.msg_count,
3085: x_msg_data => l_error_rec.msg_data,
3086: p_ttdv_rec => p_ttdv_tbl(i),
3087: x_ttdv_rec => x_ttdv_tbl(i));
3088: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3089: l_error_rec.sqlcode := SQLCODE;
3090: load_error_tbl(l_error_rec, px_error_tbl);
3091: ELSE
3092: x_msg_count := l_error_rec.msg_count;
3092: x_msg_count := l_error_rec.msg_count;
3093: x_msg_data := l_error_rec.msg_data;
3094: END IF;
3095: EXCEPTION
3096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3097: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3098: l_error_rec.sqlcode := SQLCODE;
3099: load_error_tbl(l_error_rec, px_error_tbl);
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3093: x_msg_data := l_error_rec.msg_data;
3094: END IF;
3095: EXCEPTION
3096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3097: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3098: l_error_rec.sqlcode := SQLCODE;
3099: load_error_tbl(l_error_rec, px_error_tbl);
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3097: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3098: l_error_rec.sqlcode := SQLCODE;
3099: load_error_tbl(l_error_rec, px_error_tbl);
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3102: l_error_rec.sqlcode := SQLCODE;
3103: load_error_tbl(l_error_rec, px_error_tbl);
3104: WHEN OTHERS THEN
3097: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3098: l_error_rec.sqlcode := SQLCODE;
3099: load_error_tbl(l_error_rec, px_error_tbl);
3100: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3101: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3102: l_error_rec.sqlcode := SQLCODE;
3103: load_error_tbl(l_error_rec, px_error_tbl);
3104: WHEN OTHERS THEN
3105: l_error_rec.error_type := 'OTHERS';
3112: END IF;
3113: -- Loop through the error_tbl to find the error with the highest severity
3114: -- and return it.
3115: x_return_status := find_highest_exception(px_error_tbl);
3116: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3117: EXCEPTION
3118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3120: (
3114: -- and return it.
3115: x_return_status := find_highest_exception(px_error_tbl);
3116: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3117: EXCEPTION
3118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3120: (
3121: l_api_name,
3122: G_PKG_NAME,
3115: x_return_status := find_highest_exception(px_error_tbl);
3116: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3117: EXCEPTION
3118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3120: (
3121: l_api_name,
3122: G_PKG_NAME,
3123: 'OKL_API.G_RET_STS_ERROR',
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3120: (
3121: l_api_name,
3122: G_PKG_NAME,
3123: 'OKL_API.G_RET_STS_ERROR',
3124: x_msg_count,
3125: x_msg_data,
3126: '_PVT'
3127: );
3124: x_msg_count,
3125: x_msg_data,
3126: '_PVT'
3127: );
3128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3129: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3130: (
3131: l_api_name,
3132: G_PKG_NAME,
3125: x_msg_data,
3126: '_PVT'
3127: );
3128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3129: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3130: (
3131: l_api_name,
3132: G_PKG_NAME,
3133: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3129: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3130: (
3131: l_api_name,
3132: G_PKG_NAME,
3133: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3134: x_msg_count,
3135: x_msg_data,
3136: '_PVT'
3137: );
3135: x_msg_data,
3136: '_PVT'
3137: );
3138: WHEN OTHERS THEN
3139: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3140: (
3141: l_api_name,
3142: G_PKG_NAME,
3143: 'OTHERS',
3162: x_ttdv_tbl OUT NOCOPY ttdv_tbl_type) IS
3163:
3164: l_api_version CONSTANT NUMBER := 1;
3165: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3166: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3167: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3168: BEGIN
3169: OKL_API.init_msg_list(p_init_msg_list);
3170: -- Make sure PL/SQL table has records in it before passing
3163:
3164: l_api_version CONSTANT NUMBER := 1;
3165: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3166: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3167: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3168: BEGIN
3169: OKL_API.init_msg_list(p_init_msg_list);
3170: -- Make sure PL/SQL table has records in it before passing
3171: IF (p_ttdv_tbl.COUNT > 0) THEN
3165: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3166: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3167: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3168: BEGIN
3169: OKL_API.init_msg_list(p_init_msg_list);
3170: -- Make sure PL/SQL table has records in it before passing
3171: IF (p_ttdv_tbl.COUNT > 0) THEN
3172: insert_row (
3173: p_api_version => p_api_version,
3170: -- Make sure PL/SQL table has records in it before passing
3171: IF (p_ttdv_tbl.COUNT > 0) THEN
3172: insert_row (
3173: p_api_version => p_api_version,
3174: p_init_msg_list => OKL_API.G_FALSE,
3175: x_return_status => x_return_status,
3176: x_msg_count => x_msg_count,
3177: x_msg_data => x_msg_data,
3178: p_ttdv_tbl => p_ttdv_tbl,
3178: p_ttdv_tbl => p_ttdv_tbl,
3179: x_ttdv_tbl => x_ttdv_tbl,
3180: px_error_tbl => l_error_tbl);
3181: END IF;
3182: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3184: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3185: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3186: (
3180: px_error_tbl => l_error_tbl);
3181: END IF;
3182: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3184: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3185: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3186: (
3187: l_api_name,
3188: G_PKG_NAME,
3181: END IF;
3182: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3184: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3185: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3186: (
3187: l_api_name,
3188: G_PKG_NAME,
3189: 'OKL_API.G_RET_STS_ERROR',
3185: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3186: (
3187: l_api_name,
3188: G_PKG_NAME,
3189: 'OKL_API.G_RET_STS_ERROR',
3190: x_msg_count,
3191: x_msg_data,
3192: '_PVT'
3193: );
3190: x_msg_count,
3191: x_msg_data,
3192: '_PVT'
3193: );
3194: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3195: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3196: (
3197: l_api_name,
3198: G_PKG_NAME,
3191: x_msg_data,
3192: '_PVT'
3193: );
3194: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3195: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3196: (
3197: l_api_name,
3198: G_PKG_NAME,
3199: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3195: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3196: (
3197: l_api_name,
3198: G_PKG_NAME,
3199: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3200: x_msg_count,
3201: x_msg_data,
3202: '_PVT'
3203: );
3201: x_msg_data,
3202: '_PVT'
3203: );
3204: WHEN OTHERS THEN
3205: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3206: (
3207: l_api_name,
3208: G_PKG_NAME,
3209: 'OTHERS',
3240: FROM OKL_TAX_TRX_DETAILS
3241: WHERE ID = p_ttd_rec.id;
3242: l_api_version CONSTANT NUMBER := 1;
3243: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
3244: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3245: l_object_version_number OKL_TAX_TRX_DETAILS.OBJECT_VERSION_NUMBER%TYPE;
3246: lc_object_version_number OKL_TAX_TRX_DETAILS.OBJECT_VERSION_NUMBER%TYPE;
3247: l_row_notfound BOOLEAN := FALSE;
3248: lc_row_notfound BOOLEAN := FALSE;
3246: lc_object_version_number OKL_TAX_TRX_DETAILS.OBJECT_VERSION_NUMBER%TYPE;
3247: l_row_notfound BOOLEAN := FALSE;
3248: lc_row_notfound BOOLEAN := FALSE;
3249: BEGIN
3250: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3251: p_init_msg_list,
3252: '_PVT',
3253: x_return_status);
3254: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3250: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3251: p_init_msg_list,
3252: '_PVT',
3253: x_return_status);
3254: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3256: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3257: RAISE OKL_API.G_EXCEPTION_ERROR;
3258: END IF;
3251: p_init_msg_list,
3252: '_PVT',
3253: x_return_status);
3254: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3256: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3257: RAISE OKL_API.G_EXCEPTION_ERROR;
3258: END IF;
3259: BEGIN
3252: '_PVT',
3253: x_return_status);
3254: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3256: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3257: RAISE OKL_API.G_EXCEPTION_ERROR;
3258: END IF;
3259: BEGIN
3260: OPEN lock_csr(p_ttd_rec);
3253: x_return_status);
3254: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3256: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3257: RAISE OKL_API.G_EXCEPTION_ERROR;
3258: END IF;
3259: BEGIN
3260: OPEN lock_csr(p_ttd_rec);
3261: FETCH lock_csr INTO l_object_version_number;
3265: WHEN E_Resource_Busy THEN
3266: IF (lock_csr%ISOPEN) THEN
3267: CLOSE lock_csr;
3268: END IF;
3269: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3270: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3271: END;
3272:
3273: IF ( l_row_notfound ) THEN
3276: lc_row_notfound := lchk_csr%NOTFOUND;
3277: CLOSE lchk_csr;
3278: END IF;
3279: IF (lc_row_notfound) THEN
3280: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: ELSIF lc_object_version_number > p_ttd_rec.object_version_number THEN
3283: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: CLOSE lchk_csr;
3278: END IF;
3279: IF (lc_row_notfound) THEN
3280: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: ELSIF lc_object_version_number > p_ttd_rec.object_version_number THEN
3283: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3285: ELSIF lc_object_version_number <> p_ttd_rec.object_version_number THEN
3279: IF (lc_row_notfound) THEN
3280: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: ELSIF lc_object_version_number > p_ttd_rec.object_version_number THEN
3283: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3285: ELSIF lc_object_version_number <> p_ttd_rec.object_version_number THEN
3286: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3287: RAISE OKL_API.G_EXCEPTION_ERROR;
3280: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3281: RAISE OKL_API.G_EXCEPTION_ERROR;
3282: ELSIF lc_object_version_number > p_ttd_rec.object_version_number THEN
3283: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3285: ELSIF lc_object_version_number <> p_ttd_rec.object_version_number THEN
3286: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3287: RAISE OKL_API.G_EXCEPTION_ERROR;
3288: ELSIF lc_object_version_number = -1 THEN
3282: ELSIF lc_object_version_number > p_ttd_rec.object_version_number THEN
3283: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3285: ELSIF lc_object_version_number <> p_ttd_rec.object_version_number THEN
3286: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3287: RAISE OKL_API.G_EXCEPTION_ERROR;
3288: ELSIF lc_object_version_number = -1 THEN
3289: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3290: RAISE OKL_API.G_EXCEPTION_ERROR;
3283: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3284: RAISE OKL_API.G_EXCEPTION_ERROR;
3285: ELSIF lc_object_version_number <> p_ttd_rec.object_version_number THEN
3286: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3287: RAISE OKL_API.G_EXCEPTION_ERROR;
3288: ELSIF lc_object_version_number = -1 THEN
3289: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3290: RAISE OKL_API.G_EXCEPTION_ERROR;
3291: END IF;
3285: ELSIF lc_object_version_number <> p_ttd_rec.object_version_number THEN
3286: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3287: RAISE OKL_API.G_EXCEPTION_ERROR;
3288: ELSIF lc_object_version_number = -1 THEN
3289: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3290: RAISE OKL_API.G_EXCEPTION_ERROR;
3291: END IF;
3292: x_return_status := l_return_status;
3293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3286: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3287: RAISE OKL_API.G_EXCEPTION_ERROR;
3288: ELSIF lc_object_version_number = -1 THEN
3289: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3290: RAISE OKL_API.G_EXCEPTION_ERROR;
3291: END IF;
3292: x_return_status := l_return_status;
3293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3294: EXCEPTION
3289: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3290: RAISE OKL_API.G_EXCEPTION_ERROR;
3291: END IF;
3292: x_return_status := l_return_status;
3293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3294: EXCEPTION
3295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3297: (
3291: END IF;
3292: x_return_status := l_return_status;
3293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3294: EXCEPTION
3295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3297: (
3298: l_api_name,
3299: G_PKG_NAME,
3292: x_return_status := l_return_status;
3293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3294: EXCEPTION
3295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3297: (
3298: l_api_name,
3299: G_PKG_NAME,
3300: 'OKL_API.G_RET_STS_ERROR',
3296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3297: (
3298: l_api_name,
3299: G_PKG_NAME,
3300: 'OKL_API.G_RET_STS_ERROR',
3301: x_msg_count,
3302: x_msg_data,
3303: '_PVT'
3304: );
3301: x_msg_count,
3302: x_msg_data,
3303: '_PVT'
3304: );
3305: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3307: (
3308: l_api_name,
3309: G_PKG_NAME,
3302: x_msg_data,
3303: '_PVT'
3304: );
3305: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3307: (
3308: l_api_name,
3309: G_PKG_NAME,
3310: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3307: (
3308: l_api_name,
3309: G_PKG_NAME,
3310: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3311: x_msg_count,
3312: x_msg_data,
3313: '_PVT'
3314: );
3312: x_msg_data,
3313: '_PVT'
3314: );
3315: WHEN OTHERS THEN
3316: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3317: (
3318: l_api_name,
3319: G_PKG_NAME,
3320: 'OTHERS',
3335: p_ttdv_rec IN ttdv_rec_type) IS
3336:
3337: l_api_version CONSTANT NUMBER := 1;
3338: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3339: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3340: l_ttd_rec ttd_rec_type;
3341: BEGIN
3342: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3343: G_PKG_NAME,
3338: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3339: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3340: l_ttd_rec ttd_rec_type;
3341: BEGIN
3342: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3343: G_PKG_NAME,
3344: p_init_msg_list,
3345: l_api_version,
3346: p_api_version,
3345: l_api_version,
3346: p_api_version,
3347: '_PVT',
3348: x_return_status);
3349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3353: END IF;
3346: p_api_version,
3347: '_PVT',
3348: x_return_status);
3349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3353: END IF;
3354: -----------------------------------------
3347: '_PVT',
3348: x_return_status);
3349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3353: END IF;
3354: -----------------------------------------
3355: -- Move VIEW record to "Child" records --
3348: x_return_status);
3349: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3351: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3352: RAISE OKL_API.G_EXCEPTION_ERROR;
3353: END IF;
3354: -----------------------------------------
3355: -- Move VIEW record to "Child" records --
3356: -----------------------------------------
3364: x_msg_count,
3365: x_msg_data,
3366: l_ttd_rec
3367: );
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: RAISE OKL_API.G_EXCEPTION_ERROR;
3372: END IF;
3365: x_msg_data,
3366: l_ttd_rec
3367: );
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: RAISE OKL_API.G_EXCEPTION_ERROR;
3372: END IF;
3373: x_return_status := l_return_status;
3366: l_ttd_rec
3367: );
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: RAISE OKL_API.G_EXCEPTION_ERROR;
3372: END IF;
3373: x_return_status := l_return_status;
3374: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3367: );
3368: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: RAISE OKL_API.G_EXCEPTION_ERROR;
3372: END IF;
3373: x_return_status := l_return_status;
3374: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3375: EXCEPTION
3370: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3371: RAISE OKL_API.G_EXCEPTION_ERROR;
3372: END IF;
3373: x_return_status := l_return_status;
3374: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3375: EXCEPTION
3376: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3377: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3378: (
3372: END IF;
3373: x_return_status := l_return_status;
3374: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3375: EXCEPTION
3376: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3377: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3378: (
3379: l_api_name,
3380: G_PKG_NAME,
3373: x_return_status := l_return_status;
3374: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3375: EXCEPTION
3376: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3377: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3378: (
3379: l_api_name,
3380: G_PKG_NAME,
3381: 'OKL_API.G_RET_STS_ERROR',
3377: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3378: (
3379: l_api_name,
3380: G_PKG_NAME,
3381: 'OKL_API.G_RET_STS_ERROR',
3382: x_msg_count,
3383: x_msg_data,
3384: '_PVT'
3385: );
3382: x_msg_count,
3383: x_msg_data,
3384: '_PVT'
3385: );
3386: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3387: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3388: (
3389: l_api_name,
3390: G_PKG_NAME,
3383: x_msg_data,
3384: '_PVT'
3385: );
3386: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3387: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3388: (
3389: l_api_name,
3390: G_PKG_NAME,
3391: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3387: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3388: (
3389: l_api_name,
3390: G_PKG_NAME,
3391: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3392: x_msg_count,
3393: x_msg_data,
3394: '_PVT'
3395: );
3393: x_msg_data,
3394: '_PVT'
3395: );
3396: WHEN OTHERS THEN
3397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3398: (
3399: l_api_name,
3400: G_PKG_NAME,
3401: 'OTHERS',
3413: x_return_status OUT NOCOPY VARCHAR2,
3414: x_msg_count OUT NOCOPY NUMBER,
3415: x_msg_data OUT NOCOPY VARCHAR2,
3416: p_ttdv_tbl IN ttdv_tbl_type,
3417: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3418:
3419: l_api_version CONSTANT NUMBER := 1;
3420: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
3421: i NUMBER := 0;
3419: l_api_version CONSTANT NUMBER := 1;
3420: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
3421: i NUMBER := 0;
3422: BEGIN
3423: OKL_API.init_msg_list(p_init_msg_list);
3424: -- Make sure PL/SQL table has recrods in it before passing
3425: IF (p_ttdv_tbl.COUNT > 0) THEN
3426: i := p_ttdv_tbl.FIRST;
3427: LOOP
3425: IF (p_ttdv_tbl.COUNT > 0) THEN
3426: i := p_ttdv_tbl.FIRST;
3427: LOOP
3428: DECLARE
3429: l_error_rec OKL_API.ERROR_REC_TYPE;
3430: BEGIN
3431: l_error_rec.api_name := l_api_name;
3432: l_error_rec.api_package := G_PKG_NAME;
3433: l_error_rec.idx := i;
3432: l_error_rec.api_package := G_PKG_NAME;
3433: l_error_rec.idx := i;
3434: lock_row(
3435: p_api_version => p_api_version,
3436: p_init_msg_list => OKL_API.G_FALSE,
3437: x_return_status => l_error_rec.error_type,
3438: x_msg_count => l_error_rec.msg_count,
3439: x_msg_data => l_error_rec.msg_data,
3440: p_ttdv_rec => p_ttdv_tbl(i));
3437: x_return_status => l_error_rec.error_type,
3438: x_msg_count => l_error_rec.msg_count,
3439: x_msg_data => l_error_rec.msg_data,
3440: p_ttdv_rec => p_ttdv_tbl(i));
3441: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3442: l_error_rec.sqlcode := SQLCODE;
3443: load_error_tbl(l_error_rec, px_error_tbl);
3444: ELSE
3445: x_msg_count := l_error_rec.msg_count;
3445: x_msg_count := l_error_rec.msg_count;
3446: x_msg_data := l_error_rec.msg_data;
3447: END IF;
3448: EXCEPTION
3449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3450: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3451: l_error_rec.sqlcode := SQLCODE;
3452: load_error_tbl(l_error_rec, px_error_tbl);
3453: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3446: x_msg_data := l_error_rec.msg_data;
3447: END IF;
3448: EXCEPTION
3449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3450: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3451: l_error_rec.sqlcode := SQLCODE;
3452: load_error_tbl(l_error_rec, px_error_tbl);
3453: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3454: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3450: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3451: l_error_rec.sqlcode := SQLCODE;
3452: load_error_tbl(l_error_rec, px_error_tbl);
3453: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3454: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3455: l_error_rec.sqlcode := SQLCODE;
3456: load_error_tbl(l_error_rec, px_error_tbl);
3457: WHEN OTHERS THEN
3450: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3451: l_error_rec.sqlcode := SQLCODE;
3452: load_error_tbl(l_error_rec, px_error_tbl);
3453: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3454: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3455: l_error_rec.sqlcode := SQLCODE;
3456: load_error_tbl(l_error_rec, px_error_tbl);
3457: WHEN OTHERS THEN
3458: l_error_rec.error_type := 'OTHERS';
3465: END IF;
3466: -- Loop through the error_tbl to find the error with the highest severity
3467: -- and return it.
3468: x_return_status := find_highest_exception(px_error_tbl);
3469: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3470: EXCEPTION
3471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3472: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3473: (
3467: -- and return it.
3468: x_return_status := find_highest_exception(px_error_tbl);
3469: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3470: EXCEPTION
3471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3472: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3473: (
3474: l_api_name,
3475: G_PKG_NAME,
3468: x_return_status := find_highest_exception(px_error_tbl);
3469: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3470: EXCEPTION
3471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3472: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3473: (
3474: l_api_name,
3475: G_PKG_NAME,
3476: 'OKL_API.G_RET_STS_ERROR',
3472: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3473: (
3474: l_api_name,
3475: G_PKG_NAME,
3476: 'OKL_API.G_RET_STS_ERROR',
3477: x_msg_count,
3478: x_msg_data,
3479: '_PVT'
3480: );
3477: x_msg_count,
3478: x_msg_data,
3479: '_PVT'
3480: );
3481: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3482: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3483: (
3484: l_api_name,
3485: G_PKG_NAME,
3478: x_msg_data,
3479: '_PVT'
3480: );
3481: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3482: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3483: (
3484: l_api_name,
3485: G_PKG_NAME,
3486: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3482: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3483: (
3484: l_api_name,
3485: G_PKG_NAME,
3486: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3487: x_msg_count,
3488: x_msg_data,
3489: '_PVT'
3490: );
3488: x_msg_data,
3489: '_PVT'
3490: );
3491: WHEN OTHERS THEN
3492: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3493: (
3494: l_api_name,
3495: G_PKG_NAME,
3496: 'OTHERS',
3511: p_ttdv_tbl IN ttdv_tbl_type) IS
3512:
3513: l_api_version CONSTANT NUMBER := 1;
3514: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3515: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3516: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3517: BEGIN
3518: OKL_API.init_msg_list(p_init_msg_list);
3519: -- Make sure PL/SQL table has recrods in it before passing
3512:
3513: l_api_version CONSTANT NUMBER := 1;
3514: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3515: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3516: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3517: BEGIN
3518: OKL_API.init_msg_list(p_init_msg_list);
3519: -- Make sure PL/SQL table has recrods in it before passing
3520: IF (p_ttdv_tbl.COUNT > 0) THEN
3514: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3515: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3516: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3517: BEGIN
3518: OKL_API.init_msg_list(p_init_msg_list);
3519: -- Make sure PL/SQL table has recrods in it before passing
3520: IF (p_ttdv_tbl.COUNT > 0) THEN
3521: lock_row(
3522: p_api_version => p_api_version,
3519: -- Make sure PL/SQL table has recrods in it before passing
3520: IF (p_ttdv_tbl.COUNT > 0) THEN
3521: lock_row(
3522: p_api_version => p_api_version,
3523: p_init_msg_list => OKL_API.G_FALSE,
3524: x_return_status => x_return_status,
3525: x_msg_count => x_msg_count,
3526: x_msg_data => x_msg_data,
3527: p_ttdv_tbl => p_ttdv_tbl,
3526: x_msg_data => x_msg_data,
3527: p_ttdv_tbl => p_ttdv_tbl,
3528: px_error_tbl => l_error_tbl);
3529: END IF;
3530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3531: EXCEPTION
3532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3534: (
3528: px_error_tbl => l_error_tbl);
3529: END IF;
3530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3531: EXCEPTION
3532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3534: (
3535: l_api_name,
3536: G_PKG_NAME,
3529: END IF;
3530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3531: EXCEPTION
3532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3534: (
3535: l_api_name,
3536: G_PKG_NAME,
3537: 'OKL_API.G_RET_STS_ERROR',
3533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3534: (
3535: l_api_name,
3536: G_PKG_NAME,
3537: 'OKL_API.G_RET_STS_ERROR',
3538: x_msg_count,
3539: x_msg_data,
3540: '_PVT'
3541: );
3538: x_msg_count,
3539: x_msg_data,
3540: '_PVT'
3541: );
3542: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3544: (
3545: l_api_name,
3546: G_PKG_NAME,
3539: x_msg_data,
3540: '_PVT'
3541: );
3542: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3544: (
3545: l_api_name,
3546: G_PKG_NAME,
3547: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3544: (
3545: l_api_name,
3546: G_PKG_NAME,
3547: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3548: x_msg_count,
3549: x_msg_data,
3550: '_PVT'
3551: );
3549: x_msg_data,
3550: '_PVT'
3551: );
3552: WHEN OTHERS THEN
3553: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3554: (
3555: l_api_name,
3556: G_PKG_NAME,
3557: 'OTHERS',
3575: x_ttd_rec OUT NOCOPY ttd_rec_type) IS
3576:
3577: l_api_version CONSTANT NUMBER := 1;
3578: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
3579: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3580: l_ttd_rec ttd_rec_type := p_ttd_rec;
3581: l_def_ttd_rec ttd_rec_type;
3582: l_row_notfound BOOLEAN := TRUE;
3583: ----------------------------------
3588: x_ttd_rec OUT NOCOPY ttd_rec_type
3589: ) RETURN VARCHAR2 IS
3590: l_ttd_rec ttd_rec_type;
3591: l_row_notfound BOOLEAN := TRUE;
3592: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3593: BEGIN
3594: x_ttd_rec := p_ttd_rec;
3595: -- Get current database values
3596: l_ttd_rec := get_rec(p_ttd_rec, l_return_status);
3593: BEGIN
3594: x_ttd_rec := p_ttd_rec;
3595: -- Get current database values
3596: l_ttd_rec := get_rec(p_ttd_rec, l_return_status);
3597: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3598: IF (x_ttd_rec.id = OKL_API.G_MISS_NUM)
3599: THEN
3600: x_ttd_rec.id := l_ttd_rec.id;
3601: END IF;
3594: x_ttd_rec := p_ttd_rec;
3595: -- Get current database values
3596: l_ttd_rec := get_rec(p_ttd_rec, l_return_status);
3597: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3598: IF (x_ttd_rec.id = OKL_API.G_MISS_NUM)
3599: THEN
3600: x_ttd_rec.id := l_ttd_rec.id;
3601: END IF;
3602: IF (x_ttd_rec.txs_id = OKL_API.G_MISS_NUM)
3598: IF (x_ttd_rec.id = OKL_API.G_MISS_NUM)
3599: THEN
3600: x_ttd_rec.id := l_ttd_rec.id;
3601: END IF;
3602: IF (x_ttd_rec.txs_id = OKL_API.G_MISS_NUM)
3603: THEN
3604: x_ttd_rec.txs_id := l_ttd_rec.txs_id;
3605: END IF;
3606: IF (x_ttd_rec.tax_determine_date = OKL_API.G_MISS_DATE)
3602: IF (x_ttd_rec.txs_id = OKL_API.G_MISS_NUM)
3603: THEN
3604: x_ttd_rec.txs_id := l_ttd_rec.txs_id;
3605: END IF;
3606: IF (x_ttd_rec.tax_determine_date = OKL_API.G_MISS_DATE)
3607: THEN
3608: x_ttd_rec.tax_determine_date := l_ttd_rec.tax_determine_date;
3609: END IF;
3610: IF (x_ttd_rec.tax_rate_id = OKL_API.G_MISS_NUM)
3606: IF (x_ttd_rec.tax_determine_date = OKL_API.G_MISS_DATE)
3607: THEN
3608: x_ttd_rec.tax_determine_date := l_ttd_rec.tax_determine_date;
3609: END IF;
3610: IF (x_ttd_rec.tax_rate_id = OKL_API.G_MISS_NUM)
3611: THEN
3612: x_ttd_rec.tax_rate_id := l_ttd_rec.tax_rate_id;
3613: END IF;
3614: IF (x_ttd_rec.tax_rate_code = OKL_API.G_MISS_CHAR)
3610: IF (x_ttd_rec.tax_rate_id = OKL_API.G_MISS_NUM)
3611: THEN
3612: x_ttd_rec.tax_rate_id := l_ttd_rec.tax_rate_id;
3613: END IF;
3614: IF (x_ttd_rec.tax_rate_code = OKL_API.G_MISS_CHAR)
3615: THEN
3616: x_ttd_rec.tax_rate_code := l_ttd_rec.tax_rate_code;
3617: END IF;
3618: IF (x_ttd_rec.taxable_amt = OKL_API.G_MISS_NUM)
3614: IF (x_ttd_rec.tax_rate_code = OKL_API.G_MISS_CHAR)
3615: THEN
3616: x_ttd_rec.tax_rate_code := l_ttd_rec.tax_rate_code;
3617: END IF;
3618: IF (x_ttd_rec.taxable_amt = OKL_API.G_MISS_NUM)
3619: THEN
3620: x_ttd_rec.taxable_amt := l_ttd_rec.taxable_amt;
3621: END IF;
3622: IF (x_ttd_rec.tax_exemption_id = OKL_API.G_MISS_NUM)
3618: IF (x_ttd_rec.taxable_amt = OKL_API.G_MISS_NUM)
3619: THEN
3620: x_ttd_rec.taxable_amt := l_ttd_rec.taxable_amt;
3621: END IF;
3622: IF (x_ttd_rec.tax_exemption_id = OKL_API.G_MISS_NUM)
3623: THEN
3624: x_ttd_rec.tax_exemption_id := l_ttd_rec.tax_exemption_id;
3625: END IF;
3626: IF (x_ttd_rec.tax_rate = OKL_API.G_MISS_NUM)
3622: IF (x_ttd_rec.tax_exemption_id = OKL_API.G_MISS_NUM)
3623: THEN
3624: x_ttd_rec.tax_exemption_id := l_ttd_rec.tax_exemption_id;
3625: END IF;
3626: IF (x_ttd_rec.tax_rate = OKL_API.G_MISS_NUM)
3627: THEN
3628: x_ttd_rec.tax_rate := l_ttd_rec.tax_rate;
3629: END IF;
3630: IF (x_ttd_rec.tax_amt = OKL_API.G_MISS_NUM)
3626: IF (x_ttd_rec.tax_rate = OKL_API.G_MISS_NUM)
3627: THEN
3628: x_ttd_rec.tax_rate := l_ttd_rec.tax_rate;
3629: END IF;
3630: IF (x_ttd_rec.tax_amt = OKL_API.G_MISS_NUM)
3631: THEN
3632: x_ttd_rec.tax_amt := l_ttd_rec.tax_amt;
3633: END IF;
3634: IF (x_ttd_rec.billed_yn = OKL_API.G_MISS_CHAR)
3630: IF (x_ttd_rec.tax_amt = OKL_API.G_MISS_NUM)
3631: THEN
3632: x_ttd_rec.tax_amt := l_ttd_rec.tax_amt;
3633: END IF;
3634: IF (x_ttd_rec.billed_yn = OKL_API.G_MISS_CHAR)
3635: THEN
3636: x_ttd_rec.billed_yn := l_ttd_rec.billed_yn;
3637: END IF;
3638: IF (x_ttd_rec.tax_call_type_code = OKL_API.G_MISS_CHAR)
3634: IF (x_ttd_rec.billed_yn = OKL_API.G_MISS_CHAR)
3635: THEN
3636: x_ttd_rec.billed_yn := l_ttd_rec.billed_yn;
3637: END IF;
3638: IF (x_ttd_rec.tax_call_type_code = OKL_API.G_MISS_CHAR)
3639: THEN
3640: x_ttd_rec.tax_call_type_code := l_ttd_rec.tax_call_type_code;
3641: END IF;
3642: IF (x_ttd_rec.program_id = OKL_API.G_MISS_NUM)
3638: IF (x_ttd_rec.tax_call_type_code = OKL_API.G_MISS_CHAR)
3639: THEN
3640: x_ttd_rec.tax_call_type_code := l_ttd_rec.tax_call_type_code;
3641: END IF;
3642: IF (x_ttd_rec.program_id = OKL_API.G_MISS_NUM)
3643: THEN
3644: x_ttd_rec.program_id := l_ttd_rec.program_id;
3645: END IF;
3646: IF (x_ttd_rec.request_id = OKL_API.G_MISS_NUM)
3642: IF (x_ttd_rec.program_id = OKL_API.G_MISS_NUM)
3643: THEN
3644: x_ttd_rec.program_id := l_ttd_rec.program_id;
3645: END IF;
3646: IF (x_ttd_rec.request_id = OKL_API.G_MISS_NUM)
3647: THEN
3648: x_ttd_rec.request_id := l_ttd_rec.request_id;
3649: END IF;
3650: IF (x_ttd_rec.program_application_id = OKL_API.G_MISS_NUM)
3646: IF (x_ttd_rec.request_id = OKL_API.G_MISS_NUM)
3647: THEN
3648: x_ttd_rec.request_id := l_ttd_rec.request_id;
3649: END IF;
3650: IF (x_ttd_rec.program_application_id = OKL_API.G_MISS_NUM)
3651: THEN
3652: x_ttd_rec.program_application_id := l_ttd_rec.program_application_id;
3653: END IF;
3654: IF (x_ttd_rec.program_update_date = OKL_API.G_MISS_DATE)
3650: IF (x_ttd_rec.program_application_id = OKL_API.G_MISS_NUM)
3651: THEN
3652: x_ttd_rec.program_application_id := l_ttd_rec.program_application_id;
3653: END IF;
3654: IF (x_ttd_rec.program_update_date = OKL_API.G_MISS_DATE)
3655: THEN
3656: x_ttd_rec.program_update_date := l_ttd_rec.program_update_date;
3657: END IF;
3658: IF (x_ttd_rec.attribute_category = OKL_API.G_MISS_CHAR)
3654: IF (x_ttd_rec.program_update_date = OKL_API.G_MISS_DATE)
3655: THEN
3656: x_ttd_rec.program_update_date := l_ttd_rec.program_update_date;
3657: END IF;
3658: IF (x_ttd_rec.attribute_category = OKL_API.G_MISS_CHAR)
3659: THEN
3660: x_ttd_rec.attribute_category := l_ttd_rec.attribute_category;
3661: END IF;
3662: IF (x_ttd_rec.attribute1 = OKL_API.G_MISS_CHAR)
3658: IF (x_ttd_rec.attribute_category = OKL_API.G_MISS_CHAR)
3659: THEN
3660: x_ttd_rec.attribute_category := l_ttd_rec.attribute_category;
3661: END IF;
3662: IF (x_ttd_rec.attribute1 = OKL_API.G_MISS_CHAR)
3663: THEN
3664: x_ttd_rec.attribute1 := l_ttd_rec.attribute1;
3665: END IF;
3666: IF (x_ttd_rec.attribute2 = OKL_API.G_MISS_CHAR)
3662: IF (x_ttd_rec.attribute1 = OKL_API.G_MISS_CHAR)
3663: THEN
3664: x_ttd_rec.attribute1 := l_ttd_rec.attribute1;
3665: END IF;
3666: IF (x_ttd_rec.attribute2 = OKL_API.G_MISS_CHAR)
3667: THEN
3668: x_ttd_rec.attribute2 := l_ttd_rec.attribute2;
3669: END IF;
3670: IF (x_ttd_rec.attribute3 = OKL_API.G_MISS_CHAR)
3666: IF (x_ttd_rec.attribute2 = OKL_API.G_MISS_CHAR)
3667: THEN
3668: x_ttd_rec.attribute2 := l_ttd_rec.attribute2;
3669: END IF;
3670: IF (x_ttd_rec.attribute3 = OKL_API.G_MISS_CHAR)
3671: THEN
3672: x_ttd_rec.attribute3 := l_ttd_rec.attribute3;
3673: END IF;
3674: IF (x_ttd_rec.attribute4 = OKL_API.G_MISS_CHAR)
3670: IF (x_ttd_rec.attribute3 = OKL_API.G_MISS_CHAR)
3671: THEN
3672: x_ttd_rec.attribute3 := l_ttd_rec.attribute3;
3673: END IF;
3674: IF (x_ttd_rec.attribute4 = OKL_API.G_MISS_CHAR)
3675: THEN
3676: x_ttd_rec.attribute4 := l_ttd_rec.attribute4;
3677: END IF;
3678: IF (x_ttd_rec.attribute5 = OKL_API.G_MISS_CHAR)
3674: IF (x_ttd_rec.attribute4 = OKL_API.G_MISS_CHAR)
3675: THEN
3676: x_ttd_rec.attribute4 := l_ttd_rec.attribute4;
3677: END IF;
3678: IF (x_ttd_rec.attribute5 = OKL_API.G_MISS_CHAR)
3679: THEN
3680: x_ttd_rec.attribute5 := l_ttd_rec.attribute5;
3681: END IF;
3682: IF (x_ttd_rec.attribute6 = OKL_API.G_MISS_CHAR)
3678: IF (x_ttd_rec.attribute5 = OKL_API.G_MISS_CHAR)
3679: THEN
3680: x_ttd_rec.attribute5 := l_ttd_rec.attribute5;
3681: END IF;
3682: IF (x_ttd_rec.attribute6 = OKL_API.G_MISS_CHAR)
3683: THEN
3684: x_ttd_rec.attribute6 := l_ttd_rec.attribute6;
3685: END IF;
3686: IF (x_ttd_rec.attribute7 = OKL_API.G_MISS_CHAR)
3682: IF (x_ttd_rec.attribute6 = OKL_API.G_MISS_CHAR)
3683: THEN
3684: x_ttd_rec.attribute6 := l_ttd_rec.attribute6;
3685: END IF;
3686: IF (x_ttd_rec.attribute7 = OKL_API.G_MISS_CHAR)
3687: THEN
3688: x_ttd_rec.attribute7 := l_ttd_rec.attribute7;
3689: END IF;
3690: IF (x_ttd_rec.attribute8 = OKL_API.G_MISS_CHAR)
3686: IF (x_ttd_rec.attribute7 = OKL_API.G_MISS_CHAR)
3687: THEN
3688: x_ttd_rec.attribute7 := l_ttd_rec.attribute7;
3689: END IF;
3690: IF (x_ttd_rec.attribute8 = OKL_API.G_MISS_CHAR)
3691: THEN
3692: x_ttd_rec.attribute8 := l_ttd_rec.attribute8;
3693: END IF;
3694: IF (x_ttd_rec.attribute9 = OKL_API.G_MISS_CHAR)
3690: IF (x_ttd_rec.attribute8 = OKL_API.G_MISS_CHAR)
3691: THEN
3692: x_ttd_rec.attribute8 := l_ttd_rec.attribute8;
3693: END IF;
3694: IF (x_ttd_rec.attribute9 = OKL_API.G_MISS_CHAR)
3695: THEN
3696: x_ttd_rec.attribute9 := l_ttd_rec.attribute9;
3697: END IF;
3698: IF (x_ttd_rec.attribute10 = OKL_API.G_MISS_CHAR)
3694: IF (x_ttd_rec.attribute9 = OKL_API.G_MISS_CHAR)
3695: THEN
3696: x_ttd_rec.attribute9 := l_ttd_rec.attribute9;
3697: END IF;
3698: IF (x_ttd_rec.attribute10 = OKL_API.G_MISS_CHAR)
3699: THEN
3700: x_ttd_rec.attribute10 := l_ttd_rec.attribute10;
3701: END IF;
3702: IF (x_ttd_rec.attribute11 = OKL_API.G_MISS_CHAR)
3698: IF (x_ttd_rec.attribute10 = OKL_API.G_MISS_CHAR)
3699: THEN
3700: x_ttd_rec.attribute10 := l_ttd_rec.attribute10;
3701: END IF;
3702: IF (x_ttd_rec.attribute11 = OKL_API.G_MISS_CHAR)
3703: THEN
3704: x_ttd_rec.attribute11 := l_ttd_rec.attribute11;
3705: END IF;
3706: IF (x_ttd_rec.attribute12 = OKL_API.G_MISS_CHAR)
3702: IF (x_ttd_rec.attribute11 = OKL_API.G_MISS_CHAR)
3703: THEN
3704: x_ttd_rec.attribute11 := l_ttd_rec.attribute11;
3705: END IF;
3706: IF (x_ttd_rec.attribute12 = OKL_API.G_MISS_CHAR)
3707: THEN
3708: x_ttd_rec.attribute12 := l_ttd_rec.attribute12;
3709: END IF;
3710: IF (x_ttd_rec.attribute13 = OKL_API.G_MISS_CHAR)
3706: IF (x_ttd_rec.attribute12 = OKL_API.G_MISS_CHAR)
3707: THEN
3708: x_ttd_rec.attribute12 := l_ttd_rec.attribute12;
3709: END IF;
3710: IF (x_ttd_rec.attribute13 = OKL_API.G_MISS_CHAR)
3711: THEN
3712: x_ttd_rec.attribute13 := l_ttd_rec.attribute13;
3713: END IF;
3714: IF (x_ttd_rec.attribute14 = OKL_API.G_MISS_CHAR)
3710: IF (x_ttd_rec.attribute13 = OKL_API.G_MISS_CHAR)
3711: THEN
3712: x_ttd_rec.attribute13 := l_ttd_rec.attribute13;
3713: END IF;
3714: IF (x_ttd_rec.attribute14 = OKL_API.G_MISS_CHAR)
3715: THEN
3716: x_ttd_rec.attribute14 := l_ttd_rec.attribute14;
3717: END IF;
3718: IF (x_ttd_rec.attribute15 = OKL_API.G_MISS_CHAR)
3714: IF (x_ttd_rec.attribute14 = OKL_API.G_MISS_CHAR)
3715: THEN
3716: x_ttd_rec.attribute14 := l_ttd_rec.attribute14;
3717: END IF;
3718: IF (x_ttd_rec.attribute15 = OKL_API.G_MISS_CHAR)
3719: THEN
3720: x_ttd_rec.attribute15 := l_ttd_rec.attribute15;
3721: END IF;
3722: IF (x_ttd_rec.created_by = OKL_API.G_MISS_NUM)
3718: IF (x_ttd_rec.attribute15 = OKL_API.G_MISS_CHAR)
3719: THEN
3720: x_ttd_rec.attribute15 := l_ttd_rec.attribute15;
3721: END IF;
3722: IF (x_ttd_rec.created_by = OKL_API.G_MISS_NUM)
3723: THEN
3724: x_ttd_rec.created_by := l_ttd_rec.created_by;
3725: END IF;
3726: IF (x_ttd_rec.creation_date = OKL_API.G_MISS_DATE)
3722: IF (x_ttd_rec.created_by = OKL_API.G_MISS_NUM)
3723: THEN
3724: x_ttd_rec.created_by := l_ttd_rec.created_by;
3725: END IF;
3726: IF (x_ttd_rec.creation_date = OKL_API.G_MISS_DATE)
3727: THEN
3728: x_ttd_rec.creation_date := l_ttd_rec.creation_date;
3729: END IF;
3730: IF (x_ttd_rec.last_updated_by = OKL_API.G_MISS_NUM)
3726: IF (x_ttd_rec.creation_date = OKL_API.G_MISS_DATE)
3727: THEN
3728: x_ttd_rec.creation_date := l_ttd_rec.creation_date;
3729: END IF;
3730: IF (x_ttd_rec.last_updated_by = OKL_API.G_MISS_NUM)
3731: THEN
3732: x_ttd_rec.last_updated_by := l_ttd_rec.last_updated_by;
3733: END IF;
3734: IF (x_ttd_rec.last_update_date = OKL_API.G_MISS_DATE)
3730: IF (x_ttd_rec.last_updated_by = OKL_API.G_MISS_NUM)
3731: THEN
3732: x_ttd_rec.last_updated_by := l_ttd_rec.last_updated_by;
3733: END IF;
3734: IF (x_ttd_rec.last_update_date = OKL_API.G_MISS_DATE)
3735: THEN
3736: x_ttd_rec.last_update_date := l_ttd_rec.last_update_date;
3737: END IF;
3738: IF (x_ttd_rec.last_update_login = OKL_API.G_MISS_NUM)
3734: IF (x_ttd_rec.last_update_date = OKL_API.G_MISS_DATE)
3735: THEN
3736: x_ttd_rec.last_update_date := l_ttd_rec.last_update_date;
3737: END IF;
3738: IF (x_ttd_rec.last_update_login = OKL_API.G_MISS_NUM)
3739: THEN
3740: x_ttd_rec.last_update_login := l_ttd_rec.last_update_login;
3741: END IF;
3742: IF (x_ttd_rec.object_version_number = OKL_API.G_MISS_NUM)
3738: IF (x_ttd_rec.last_update_login = OKL_API.G_MISS_NUM)
3739: THEN
3740: x_ttd_rec.last_update_login := l_ttd_rec.last_update_login;
3741: END IF;
3742: IF (x_ttd_rec.object_version_number = OKL_API.G_MISS_NUM)
3743: THEN
3744: x_ttd_rec.object_version_number := l_ttd_rec.object_version_number;
3745: END IF;
3746:
3746:
3747: -- Modified by dcshanmu for eBTax - modification starts
3748: -- migrating values for the newly added columns in table
3749:
3750: IF (x_ttd_rec.tax_date = OKL_API.G_MISS_DATE)
3751: THEN
3752: x_ttd_rec.tax_date := l_ttd_rec.tax_date;
3753: END IF;
3754: IF (x_ttd_rec.line_amt = OKL_API.G_MISS_NUM)
3750: IF (x_ttd_rec.tax_date = OKL_API.G_MISS_DATE)
3751: THEN
3752: x_ttd_rec.tax_date := l_ttd_rec.tax_date;
3753: END IF;
3754: IF (x_ttd_rec.line_amt = OKL_API.G_MISS_NUM)
3755: THEN
3756: x_ttd_rec.line_amt := l_ttd_rec.line_amt;
3757: END IF;
3758: IF (x_ttd_rec.internal_organization_id = OKL_API.G_MISS_NUM)
3754: IF (x_ttd_rec.line_amt = OKL_API.G_MISS_NUM)
3755: THEN
3756: x_ttd_rec.line_amt := l_ttd_rec.line_amt;
3757: END IF;
3758: IF (x_ttd_rec.internal_organization_id = OKL_API.G_MISS_NUM)
3759: THEN
3760: x_ttd_rec.internal_organization_id := l_ttd_rec.internal_organization_id;
3761: END IF;
3762: IF (x_ttd_rec.application_id = OKL_API.G_MISS_NUM)
3758: IF (x_ttd_rec.internal_organization_id = OKL_API.G_MISS_NUM)
3759: THEN
3760: x_ttd_rec.internal_organization_id := l_ttd_rec.internal_organization_id;
3761: END IF;
3762: IF (x_ttd_rec.application_id = OKL_API.G_MISS_NUM)
3763: THEN
3764: x_ttd_rec.application_id := l_ttd_rec.application_id;
3765: END IF;
3766: IF (x_ttd_rec.entity_code = OKL_API.G_MISS_CHAR)
3762: IF (x_ttd_rec.application_id = OKL_API.G_MISS_NUM)
3763: THEN
3764: x_ttd_rec.application_id := l_ttd_rec.application_id;
3765: END IF;
3766: IF (x_ttd_rec.entity_code = OKL_API.G_MISS_CHAR)
3767: THEN
3768: x_ttd_rec.entity_code := l_ttd_rec.entity_code;
3769: END IF;
3770: IF (x_ttd_rec.event_class_code = OKL_API.G_MISS_CHAR)
3766: IF (x_ttd_rec.entity_code = OKL_API.G_MISS_CHAR)
3767: THEN
3768: x_ttd_rec.entity_code := l_ttd_rec.entity_code;
3769: END IF;
3770: IF (x_ttd_rec.event_class_code = OKL_API.G_MISS_CHAR)
3771: THEN
3772: x_ttd_rec.event_class_code := l_ttd_rec.event_class_code;
3773: END IF;
3774: IF (x_ttd_rec.event_type_code = OKL_API.G_MISS_CHAR)
3770: IF (x_ttd_rec.event_class_code = OKL_API.G_MISS_CHAR)
3771: THEN
3772: x_ttd_rec.event_class_code := l_ttd_rec.event_class_code;
3773: END IF;
3774: IF (x_ttd_rec.event_type_code = OKL_API.G_MISS_CHAR)
3775: THEN
3776: x_ttd_rec.event_type_code := l_ttd_rec.event_type_code;
3777: END IF;
3778: IF (x_ttd_rec.trx_id = OKL_API.G_MISS_NUM)
3774: IF (x_ttd_rec.event_type_code = OKL_API.G_MISS_CHAR)
3775: THEN
3776: x_ttd_rec.event_type_code := l_ttd_rec.event_type_code;
3777: END IF;
3778: IF (x_ttd_rec.trx_id = OKL_API.G_MISS_NUM)
3779: THEN
3780: x_ttd_rec.trx_id := l_ttd_rec.trx_id;
3781: END IF;
3782: IF (x_ttd_rec.trx_line_id = OKL_API.G_MISS_NUM)
3778: IF (x_ttd_rec.trx_id = OKL_API.G_MISS_NUM)
3779: THEN
3780: x_ttd_rec.trx_id := l_ttd_rec.trx_id;
3781: END IF;
3782: IF (x_ttd_rec.trx_line_id = OKL_API.G_MISS_NUM)
3783: THEN
3784: x_ttd_rec.trx_line_id := l_ttd_rec.trx_line_id;
3785: END IF;
3786: IF (x_ttd_rec.trx_level_type = OKL_API.G_MISS_CHAR)
3782: IF (x_ttd_rec.trx_line_id = OKL_API.G_MISS_NUM)
3783: THEN
3784: x_ttd_rec.trx_line_id := l_ttd_rec.trx_line_id;
3785: END IF;
3786: IF (x_ttd_rec.trx_level_type = OKL_API.G_MISS_CHAR)
3787: THEN
3788: x_ttd_rec.trx_level_type := l_ttd_rec.trx_level_type;
3789: END IF;
3790: IF (x_ttd_rec.trx_line_number = OKL_API.G_MISS_NUM)
3786: IF (x_ttd_rec.trx_level_type = OKL_API.G_MISS_CHAR)
3787: THEN
3788: x_ttd_rec.trx_level_type := l_ttd_rec.trx_level_type;
3789: END IF;
3790: IF (x_ttd_rec.trx_line_number = OKL_API.G_MISS_NUM)
3791: THEN
3792: x_ttd_rec.trx_line_number := l_ttd_rec.trx_line_number;
3793: END IF;
3794: IF (x_ttd_rec.tax_line_number = OKL_API.G_MISS_NUM)
3790: IF (x_ttd_rec.trx_line_number = OKL_API.G_MISS_NUM)
3791: THEN
3792: x_ttd_rec.trx_line_number := l_ttd_rec.trx_line_number;
3793: END IF;
3794: IF (x_ttd_rec.tax_line_number = OKL_API.G_MISS_NUM)
3795: THEN
3796: x_ttd_rec.tax_line_number := l_ttd_rec.tax_line_number;
3797: END IF;
3798: IF (x_ttd_rec.tax_regime_id = OKL_API.G_MISS_NUM)
3794: IF (x_ttd_rec.tax_line_number = OKL_API.G_MISS_NUM)
3795: THEN
3796: x_ttd_rec.tax_line_number := l_ttd_rec.tax_line_number;
3797: END IF;
3798: IF (x_ttd_rec.tax_regime_id = OKL_API.G_MISS_NUM)
3799: THEN
3800: x_ttd_rec.tax_regime_id := l_ttd_rec.tax_regime_id;
3801: END IF;
3802: IF (x_ttd_rec.tax_regime_code = OKL_API.G_MISS_CHAR)
3798: IF (x_ttd_rec.tax_regime_id = OKL_API.G_MISS_NUM)
3799: THEN
3800: x_ttd_rec.tax_regime_id := l_ttd_rec.tax_regime_id;
3801: END IF;
3802: IF (x_ttd_rec.tax_regime_code = OKL_API.G_MISS_CHAR)
3803: THEN
3804: x_ttd_rec.tax_regime_code := l_ttd_rec.tax_regime_code;
3805: END IF;
3806: IF (x_ttd_rec.tax_id = OKL_API.G_MISS_NUM)
3802: IF (x_ttd_rec.tax_regime_code = OKL_API.G_MISS_CHAR)
3803: THEN
3804: x_ttd_rec.tax_regime_code := l_ttd_rec.tax_regime_code;
3805: END IF;
3806: IF (x_ttd_rec.tax_id = OKL_API.G_MISS_NUM)
3807: THEN
3808: x_ttd_rec.tax_id := l_ttd_rec.tax_id;
3809: END IF;
3810: IF (x_ttd_rec.tax = OKL_API.G_MISS_CHAR)
3806: IF (x_ttd_rec.tax_id = OKL_API.G_MISS_NUM)
3807: THEN
3808: x_ttd_rec.tax_id := l_ttd_rec.tax_id;
3809: END IF;
3810: IF (x_ttd_rec.tax = OKL_API.G_MISS_CHAR)
3811: THEN
3812: x_ttd_rec.tax := l_ttd_rec.tax;
3813: END IF;
3814: IF (x_ttd_rec.tax_status_id = OKL_API.G_MISS_NUM)
3810: IF (x_ttd_rec.tax = OKL_API.G_MISS_CHAR)
3811: THEN
3812: x_ttd_rec.tax := l_ttd_rec.tax;
3813: END IF;
3814: IF (x_ttd_rec.tax_status_id = OKL_API.G_MISS_NUM)
3815: THEN
3816: x_ttd_rec.tax_status_id := l_ttd_rec.tax_status_id;
3817: END IF;
3818: IF (x_ttd_rec.tax_status_code = OKL_API.G_MISS_CHAR)
3814: IF (x_ttd_rec.tax_status_id = OKL_API.G_MISS_NUM)
3815: THEN
3816: x_ttd_rec.tax_status_id := l_ttd_rec.tax_status_id;
3817: END IF;
3818: IF (x_ttd_rec.tax_status_code = OKL_API.G_MISS_CHAR)
3819: THEN
3820: x_ttd_rec.tax_status_code := l_ttd_rec.tax_status_code;
3821: END IF;
3822: IF (x_ttd_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM)
3818: IF (x_ttd_rec.tax_status_code = OKL_API.G_MISS_CHAR)
3819: THEN
3820: x_ttd_rec.tax_status_code := l_ttd_rec.tax_status_code;
3821: END IF;
3822: IF (x_ttd_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM)
3823: THEN
3824: x_ttd_rec.tax_apportionment_line_number := l_ttd_rec.tax_apportionment_line_number;
3825: END IF;
3826: IF (x_ttd_rec.legal_entity_id = OKL_API.G_MISS_NUM)
3822: IF (x_ttd_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM)
3823: THEN
3824: x_ttd_rec.tax_apportionment_line_number := l_ttd_rec.tax_apportionment_line_number;
3825: END IF;
3826: IF (x_ttd_rec.legal_entity_id = OKL_API.G_MISS_NUM)
3827: THEN
3828: x_ttd_rec.legal_entity_id := l_ttd_rec.legal_entity_id;
3829: END IF;
3830: IF (x_ttd_rec.trx_number = OKL_API.G_MISS_CHAR)
3826: IF (x_ttd_rec.legal_entity_id = OKL_API.G_MISS_NUM)
3827: THEN
3828: x_ttd_rec.legal_entity_id := l_ttd_rec.legal_entity_id;
3829: END IF;
3830: IF (x_ttd_rec.trx_number = OKL_API.G_MISS_CHAR)
3831: THEN
3832: x_ttd_rec.trx_number := l_ttd_rec.trx_number;
3833: END IF;
3834: IF (x_ttd_rec.trx_date = OKL_API.G_MISS_DATE)
3830: IF (x_ttd_rec.trx_number = OKL_API.G_MISS_CHAR)
3831: THEN
3832: x_ttd_rec.trx_number := l_ttd_rec.trx_number;
3833: END IF;
3834: IF (x_ttd_rec.trx_date = OKL_API.G_MISS_DATE)
3835: THEN
3836: x_ttd_rec.trx_date := l_ttd_rec.trx_date;
3837: END IF;
3838: IF (x_ttd_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM)
3834: IF (x_ttd_rec.trx_date = OKL_API.G_MISS_DATE)
3835: THEN
3836: x_ttd_rec.trx_date := l_ttd_rec.trx_date;
3837: END IF;
3838: IF (x_ttd_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM)
3839: THEN
3840: x_ttd_rec.tax_jurisdiction_id := l_ttd_rec.tax_jurisdiction_id;
3841: END IF;
3842: IF (x_ttd_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR)
3838: IF (x_ttd_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM)
3839: THEN
3840: x_ttd_rec.tax_jurisdiction_id := l_ttd_rec.tax_jurisdiction_id;
3841: END IF;
3842: IF (x_ttd_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR)
3843: THEN
3844: x_ttd_rec.tax_jurisdiction_code := l_ttd_rec.tax_jurisdiction_code;
3845: END IF;
3846: IF (x_ttd_rec.tax_type_code = OKL_API.G_MISS_CHAR)
3842: IF (x_ttd_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR)
3843: THEN
3844: x_ttd_rec.tax_jurisdiction_code := l_ttd_rec.tax_jurisdiction_code;
3845: END IF;
3846: IF (x_ttd_rec.tax_type_code = OKL_API.G_MISS_CHAR)
3847: THEN
3848: x_ttd_rec.tax_type_code := l_ttd_rec.tax_type_code;
3849: END IF;
3850: IF (x_ttd_rec.tax_currency_code = OKL_API.G_MISS_CHAR)
3846: IF (x_ttd_rec.tax_type_code = OKL_API.G_MISS_CHAR)
3847: THEN
3848: x_ttd_rec.tax_type_code := l_ttd_rec.tax_type_code;
3849: END IF;
3850: IF (x_ttd_rec.tax_currency_code = OKL_API.G_MISS_CHAR)
3851: THEN
3852: x_ttd_rec.tax_currency_code := l_ttd_rec.tax_currency_code;
3853: END IF;
3854: IF (x_ttd_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM)
3850: IF (x_ttd_rec.tax_currency_code = OKL_API.G_MISS_CHAR)
3851: THEN
3852: x_ttd_rec.tax_currency_code := l_ttd_rec.tax_currency_code;
3853: END IF;
3854: IF (x_ttd_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM)
3855: THEN
3856: x_ttd_rec.taxable_amt_tax_curr := l_ttd_rec.taxable_amt_tax_curr;
3857: END IF;
3858: IF (x_ttd_rec.trx_currency_code = OKL_API.G_MISS_CHAR)
3854: IF (x_ttd_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM)
3855: THEN
3856: x_ttd_rec.taxable_amt_tax_curr := l_ttd_rec.taxable_amt_tax_curr;
3857: END IF;
3858: IF (x_ttd_rec.trx_currency_code = OKL_API.G_MISS_CHAR)
3859: THEN
3860: x_ttd_rec.trx_currency_code := l_ttd_rec.trx_currency_code;
3861: END IF;
3862: IF (x_ttd_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM)
3858: IF (x_ttd_rec.trx_currency_code = OKL_API.G_MISS_CHAR)
3859: THEN
3860: x_ttd_rec.trx_currency_code := l_ttd_rec.trx_currency_code;
3861: END IF;
3862: IF (x_ttd_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM)
3863: THEN
3864: x_ttd_rec.minimum_accountable_unit := l_ttd_rec.minimum_accountable_unit;
3865: END IF;
3866: IF (x_ttd_rec.precision = OKL_API.G_MISS_NUM)
3862: IF (x_ttd_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM)
3863: THEN
3864: x_ttd_rec.minimum_accountable_unit := l_ttd_rec.minimum_accountable_unit;
3865: END IF;
3866: IF (x_ttd_rec.precision = OKL_API.G_MISS_NUM)
3867: THEN
3868: x_ttd_rec.precision := l_ttd_rec.precision;
3869: END IF;
3870: IF (x_ttd_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
3866: IF (x_ttd_rec.precision = OKL_API.G_MISS_NUM)
3867: THEN
3868: x_ttd_rec.precision := l_ttd_rec.precision;
3869: END IF;
3870: IF (x_ttd_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
3871: THEN
3872: x_ttd_rec.currency_conversion_type := l_ttd_rec.currency_conversion_type;
3873: END IF;
3874: IF (x_ttd_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
3870: IF (x_ttd_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
3871: THEN
3872: x_ttd_rec.currency_conversion_type := l_ttd_rec.currency_conversion_type;
3873: END IF;
3874: IF (x_ttd_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
3875: THEN
3876: x_ttd_rec.currency_conversion_rate := l_ttd_rec.currency_conversion_rate;
3877: END IF;
3878: IF (x_ttd_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
3874: IF (x_ttd_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
3875: THEN
3876: x_ttd_rec.currency_conversion_rate := l_ttd_rec.currency_conversion_rate;
3877: END IF;
3878: IF (x_ttd_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
3879: THEN
3880: x_ttd_rec.currency_conversion_date := l_ttd_rec.currency_conversion_date;
3881: END IF;
3882: -- Modified by dcshanmu for eBTax - modification end
3890: FUNCTION Set_Attributes (
3891: p_ttd_rec IN ttd_rec_type,
3892: x_ttd_rec OUT NOCOPY ttd_rec_type
3893: ) RETURN VARCHAR2 IS
3894: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3895: BEGIN
3896: x_ttd_rec := p_ttd_rec;
3897: x_ttd_rec.OBJECT_VERSION_NUMBER := p_ttd_rec.OBJECT_VERSION_NUMBER + 1;
3898: RETURN(l_return_status);
3897: x_ttd_rec.OBJECT_VERSION_NUMBER := p_ttd_rec.OBJECT_VERSION_NUMBER + 1;
3898: RETURN(l_return_status);
3899: END Set_Attributes;
3900: BEGIN
3901: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3902: p_init_msg_list,
3903: '_PVT',
3904: x_return_status);
3905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3901: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3902: p_init_msg_list,
3903: '_PVT',
3904: x_return_status);
3905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3908: RAISE OKL_API.G_EXCEPTION_ERROR;
3909: END IF;
3902: p_init_msg_list,
3903: '_PVT',
3904: x_return_status);
3905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3908: RAISE OKL_API.G_EXCEPTION_ERROR;
3909: END IF;
3910: --- Setting item attributes
3903: '_PVT',
3904: x_return_status);
3905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3908: RAISE OKL_API.G_EXCEPTION_ERROR;
3909: END IF;
3910: --- Setting item attributes
3911: l_return_status := Set_Attributes(
3904: x_return_status);
3905: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3907: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3908: RAISE OKL_API.G_EXCEPTION_ERROR;
3909: END IF;
3910: --- Setting item attributes
3911: l_return_status := Set_Attributes(
3912: p_ttd_rec, -- IN
3911: l_return_status := Set_Attributes(
3912: p_ttd_rec, -- IN
3913: l_ttd_rec); -- OUT
3914: --- If any errors happen abort API
3915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3918: RAISE OKL_API.G_EXCEPTION_ERROR;
3919: END IF;
3912: p_ttd_rec, -- IN
3913: l_ttd_rec); -- OUT
3914: --- If any errors happen abort API
3915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3918: RAISE OKL_API.G_EXCEPTION_ERROR;
3919: END IF;
3920: l_return_status := populate_new_record(l_ttd_rec, l_def_ttd_rec);
3913: l_ttd_rec); -- OUT
3914: --- If any errors happen abort API
3915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3918: RAISE OKL_API.G_EXCEPTION_ERROR;
3919: END IF;
3920: l_return_status := populate_new_record(l_ttd_rec, l_def_ttd_rec);
3921: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3914: --- If any errors happen abort API
3915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3918: RAISE OKL_API.G_EXCEPTION_ERROR;
3919: END IF;
3920: l_return_status := populate_new_record(l_ttd_rec, l_def_ttd_rec);
3921: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3918: RAISE OKL_API.G_EXCEPTION_ERROR;
3919: END IF;
3920: l_return_status := populate_new_record(l_ttd_rec, l_def_ttd_rec);
3921: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3918: RAISE OKL_API.G_EXCEPTION_ERROR;
3919: END IF;
3920: l_return_status := populate_new_record(l_ttd_rec, l_def_ttd_rec);
3921: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3926: UPDATE OKL_TAX_TRX_DETAILS
3919: END IF;
3920: l_return_status := populate_new_record(l_ttd_rec, l_def_ttd_rec);
3921: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3926: UPDATE OKL_TAX_TRX_DETAILS
3927: SET TXS_ID = l_def_ttd_rec.txs_id,
3920: l_return_status := populate_new_record(l_ttd_rec, l_def_ttd_rec);
3921: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3926: UPDATE OKL_TAX_TRX_DETAILS
3927: SET TXS_ID = l_def_ttd_rec.txs_id,
3928: TAX_DETERMINE_DATE = l_def_ttd_rec.tax_determine_date,
3999: WHERE ID = l_def_ttd_rec.id;
4000:
4001: x_ttd_rec := l_ttd_rec;
4002: x_return_status := l_return_status;
4003: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4004: EXCEPTION
4005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4007: (
4001: x_ttd_rec := l_ttd_rec;
4002: x_return_status := l_return_status;
4003: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4004: EXCEPTION
4005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4007: (
4008: l_api_name,
4009: G_PKG_NAME,
4002: x_return_status := l_return_status;
4003: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4004: EXCEPTION
4005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4007: (
4008: l_api_name,
4009: G_PKG_NAME,
4010: 'OKL_API.G_RET_STS_ERROR',
4006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4007: (
4008: l_api_name,
4009: G_PKG_NAME,
4010: 'OKL_API.G_RET_STS_ERROR',
4011: x_msg_count,
4012: x_msg_data,
4013: '_PVT'
4014: );
4011: x_msg_count,
4012: x_msg_data,
4013: '_PVT'
4014: );
4015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4016: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4017: (
4018: l_api_name,
4019: G_PKG_NAME,
4012: x_msg_data,
4013: '_PVT'
4014: );
4015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4016: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4017: (
4018: l_api_name,
4019: G_PKG_NAME,
4020: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4016: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4017: (
4018: l_api_name,
4019: G_PKG_NAME,
4020: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4021: x_msg_count,
4022: x_msg_data,
4023: '_PVT'
4024: );
4022: x_msg_data,
4023: '_PVT'
4024: );
4025: WHEN OTHERS THEN
4026: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4027: (
4028: l_api_name,
4029: G_PKG_NAME,
4030: 'OTHERS',
4046: x_ttdv_rec OUT NOCOPY ttdv_rec_type) IS
4047:
4048: l_api_version CONSTANT NUMBER := 1;
4049: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
4050: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4051: l_ttdv_rec ttdv_rec_type := p_ttdv_rec;
4052: LDefOklTaxTrxDetailsVRec ttdv_rec_type;
4053: l_db_ttdv_rec ttdv_rec_type;
4054: l_ttd_rec ttd_rec_type;
4073: p_ttdv_rec IN ttdv_rec_type,
4074: x_ttdv_rec OUT NOCOPY ttdv_rec_type
4075: ) RETURN VARCHAR2 IS
4076: l_row_notfound BOOLEAN := TRUE;
4077: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4078: BEGIN
4079: x_ttdv_rec := p_ttdv_rec;
4080: -- Get current database values
4081: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
4080: -- Get current database values
4081: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
4082: -- so it may be verified through LOCK_ROW.
4083: l_db_ttdv_rec := get_rec(p_ttdv_rec, l_return_status);
4084: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4085: IF (x_ttdv_rec.id = OKL_API.G_MISS_NUM)
4086: THEN
4087: x_ttdv_rec.id := l_db_ttdv_rec.id;
4088: END IF;
4081: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
4082: -- so it may be verified through LOCK_ROW.
4083: l_db_ttdv_rec := get_rec(p_ttdv_rec, l_return_status);
4084: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4085: IF (x_ttdv_rec.id = OKL_API.G_MISS_NUM)
4086: THEN
4087: x_ttdv_rec.id := l_db_ttdv_rec.id;
4088: END IF;
4089: IF (x_ttdv_rec.txs_id = OKL_API.G_MISS_NUM)
4085: IF (x_ttdv_rec.id = OKL_API.G_MISS_NUM)
4086: THEN
4087: x_ttdv_rec.id := l_db_ttdv_rec.id;
4088: END IF;
4089: IF (x_ttdv_rec.txs_id = OKL_API.G_MISS_NUM)
4090: THEN
4091: x_ttdv_rec.txs_id := l_db_ttdv_rec.txs_id;
4092: END IF;
4093:
4091: x_ttdv_rec.txs_id := l_db_ttdv_rec.txs_id;
4092: END IF;
4093:
4094: --SECHAWLA : Added code to set Object Version No. because of the locking issue
4095: IF (x_ttdv_rec.object_version_number = OKL_API.G_MISS_NUM)
4096: THEN
4097: x_ttdv_rec.object_version_number := l_db_ttdv_rec.object_version_number;
4098: END IF;
4099:
4097: x_ttdv_rec.object_version_number := l_db_ttdv_rec.object_version_number;
4098: END IF;
4099:
4100:
4101: IF (x_ttdv_rec.tax_determine_date = OKL_API.G_MISS_DATE)
4102: THEN
4103: x_ttdv_rec.tax_determine_date := l_db_ttdv_rec.tax_determine_date;
4104: END IF;
4105: IF (x_ttdv_rec.tax_rate_id = OKL_API.G_MISS_NUM)
4101: IF (x_ttdv_rec.tax_determine_date = OKL_API.G_MISS_DATE)
4102: THEN
4103: x_ttdv_rec.tax_determine_date := l_db_ttdv_rec.tax_determine_date;
4104: END IF;
4105: IF (x_ttdv_rec.tax_rate_id = OKL_API.G_MISS_NUM)
4106: THEN
4107: x_ttdv_rec.tax_rate_id := l_db_ttdv_rec.tax_rate_id;
4108: END IF;
4109: IF (x_ttdv_rec.tax_rate_code = OKL_API.G_MISS_CHAR)
4105: IF (x_ttdv_rec.tax_rate_id = OKL_API.G_MISS_NUM)
4106: THEN
4107: x_ttdv_rec.tax_rate_id := l_db_ttdv_rec.tax_rate_id;
4108: END IF;
4109: IF (x_ttdv_rec.tax_rate_code = OKL_API.G_MISS_CHAR)
4110: THEN
4111: x_ttdv_rec.tax_rate_code := l_db_ttdv_rec.tax_rate_code;
4112: END IF;
4113: IF (x_ttdv_rec.taxable_amt = OKL_API.G_MISS_NUM)
4109: IF (x_ttdv_rec.tax_rate_code = OKL_API.G_MISS_CHAR)
4110: THEN
4111: x_ttdv_rec.tax_rate_code := l_db_ttdv_rec.tax_rate_code;
4112: END IF;
4113: IF (x_ttdv_rec.taxable_amt = OKL_API.G_MISS_NUM)
4114: THEN
4115: x_ttdv_rec.taxable_amt := l_db_ttdv_rec.taxable_amt;
4116: END IF;
4117: IF (x_ttdv_rec.tax_exemption_id = OKL_API.G_MISS_NUM)
4113: IF (x_ttdv_rec.taxable_amt = OKL_API.G_MISS_NUM)
4114: THEN
4115: x_ttdv_rec.taxable_amt := l_db_ttdv_rec.taxable_amt;
4116: END IF;
4117: IF (x_ttdv_rec.tax_exemption_id = OKL_API.G_MISS_NUM)
4118: THEN
4119: x_ttdv_rec.tax_exemption_id := l_db_ttdv_rec.tax_exemption_id;
4120: END IF;
4121: IF (x_ttdv_rec.tax_rate = OKL_API.G_MISS_NUM)
4117: IF (x_ttdv_rec.tax_exemption_id = OKL_API.G_MISS_NUM)
4118: THEN
4119: x_ttdv_rec.tax_exemption_id := l_db_ttdv_rec.tax_exemption_id;
4120: END IF;
4121: IF (x_ttdv_rec.tax_rate = OKL_API.G_MISS_NUM)
4122: THEN
4123: x_ttdv_rec.tax_rate := l_db_ttdv_rec.tax_rate;
4124: END IF;
4125: IF (x_ttdv_rec.tax_amt = OKL_API.G_MISS_NUM)
4121: IF (x_ttdv_rec.tax_rate = OKL_API.G_MISS_NUM)
4122: THEN
4123: x_ttdv_rec.tax_rate := l_db_ttdv_rec.tax_rate;
4124: END IF;
4125: IF (x_ttdv_rec.tax_amt = OKL_API.G_MISS_NUM)
4126: THEN
4127: x_ttdv_rec.tax_amt := l_db_ttdv_rec.tax_amt;
4128: END IF;
4129: IF (x_ttdv_rec.billed_yn = OKL_API.G_MISS_CHAR)
4125: IF (x_ttdv_rec.tax_amt = OKL_API.G_MISS_NUM)
4126: THEN
4127: x_ttdv_rec.tax_amt := l_db_ttdv_rec.tax_amt;
4128: END IF;
4129: IF (x_ttdv_rec.billed_yn = OKL_API.G_MISS_CHAR)
4130: THEN
4131: x_ttdv_rec.billed_yn := l_db_ttdv_rec.billed_yn;
4132: END IF;
4133: IF (x_ttdv_rec.tax_call_type_code = OKL_API.G_MISS_CHAR)
4129: IF (x_ttdv_rec.billed_yn = OKL_API.G_MISS_CHAR)
4130: THEN
4131: x_ttdv_rec.billed_yn := l_db_ttdv_rec.billed_yn;
4132: END IF;
4133: IF (x_ttdv_rec.tax_call_type_code = OKL_API.G_MISS_CHAR)
4134: THEN
4135: x_ttdv_rec.tax_call_type_code := l_db_ttdv_rec.tax_call_type_code;
4136: END IF;
4137: IF (x_ttdv_rec.program_id = OKL_API.G_MISS_NUM)
4133: IF (x_ttdv_rec.tax_call_type_code = OKL_API.G_MISS_CHAR)
4134: THEN
4135: x_ttdv_rec.tax_call_type_code := l_db_ttdv_rec.tax_call_type_code;
4136: END IF;
4137: IF (x_ttdv_rec.program_id = OKL_API.G_MISS_NUM)
4138: THEN
4139: x_ttdv_rec.program_id := l_db_ttdv_rec.program_id;
4140: END IF;
4141: IF (x_ttdv_rec.request_id = OKL_API.G_MISS_NUM)
4137: IF (x_ttdv_rec.program_id = OKL_API.G_MISS_NUM)
4138: THEN
4139: x_ttdv_rec.program_id := l_db_ttdv_rec.program_id;
4140: END IF;
4141: IF (x_ttdv_rec.request_id = OKL_API.G_MISS_NUM)
4142: THEN
4143: x_ttdv_rec.request_id := l_db_ttdv_rec.request_id;
4144: END IF;
4145: IF (x_ttdv_rec.program_application_id = OKL_API.G_MISS_NUM)
4141: IF (x_ttdv_rec.request_id = OKL_API.G_MISS_NUM)
4142: THEN
4143: x_ttdv_rec.request_id := l_db_ttdv_rec.request_id;
4144: END IF;
4145: IF (x_ttdv_rec.program_application_id = OKL_API.G_MISS_NUM)
4146: THEN
4147: x_ttdv_rec.program_application_id := l_db_ttdv_rec.program_application_id;
4148: END IF;
4149: IF (x_ttdv_rec.program_update_date = OKL_API.G_MISS_DATE)
4145: IF (x_ttdv_rec.program_application_id = OKL_API.G_MISS_NUM)
4146: THEN
4147: x_ttdv_rec.program_application_id := l_db_ttdv_rec.program_application_id;
4148: END IF;
4149: IF (x_ttdv_rec.program_update_date = OKL_API.G_MISS_DATE)
4150: THEN
4151: x_ttdv_rec.program_update_date := l_db_ttdv_rec.program_update_date;
4152: END IF;
4153: IF (x_ttdv_rec.attribute_category = OKL_API.G_MISS_CHAR)
4149: IF (x_ttdv_rec.program_update_date = OKL_API.G_MISS_DATE)
4150: THEN
4151: x_ttdv_rec.program_update_date := l_db_ttdv_rec.program_update_date;
4152: END IF;
4153: IF (x_ttdv_rec.attribute_category = OKL_API.G_MISS_CHAR)
4154: THEN
4155: x_ttdv_rec.attribute_category := l_db_ttdv_rec.attribute_category;
4156: END IF;
4157: IF (x_ttdv_rec.attribute1 = OKL_API.G_MISS_CHAR)
4153: IF (x_ttdv_rec.attribute_category = OKL_API.G_MISS_CHAR)
4154: THEN
4155: x_ttdv_rec.attribute_category := l_db_ttdv_rec.attribute_category;
4156: END IF;
4157: IF (x_ttdv_rec.attribute1 = OKL_API.G_MISS_CHAR)
4158: THEN
4159: x_ttdv_rec.attribute1 := l_db_ttdv_rec.attribute1;
4160: END IF;
4161: IF (x_ttdv_rec.attribute2 = OKL_API.G_MISS_CHAR)
4157: IF (x_ttdv_rec.attribute1 = OKL_API.G_MISS_CHAR)
4158: THEN
4159: x_ttdv_rec.attribute1 := l_db_ttdv_rec.attribute1;
4160: END IF;
4161: IF (x_ttdv_rec.attribute2 = OKL_API.G_MISS_CHAR)
4162: THEN
4163: x_ttdv_rec.attribute2 := l_db_ttdv_rec.attribute2;
4164: END IF;
4165: IF (x_ttdv_rec.attribute3 = OKL_API.G_MISS_CHAR)
4161: IF (x_ttdv_rec.attribute2 = OKL_API.G_MISS_CHAR)
4162: THEN
4163: x_ttdv_rec.attribute2 := l_db_ttdv_rec.attribute2;
4164: END IF;
4165: IF (x_ttdv_rec.attribute3 = OKL_API.G_MISS_CHAR)
4166: THEN
4167: x_ttdv_rec.attribute3 := l_db_ttdv_rec.attribute3;
4168: END IF;
4169: IF (x_ttdv_rec.attribute4 = OKL_API.G_MISS_CHAR)
4165: IF (x_ttdv_rec.attribute3 = OKL_API.G_MISS_CHAR)
4166: THEN
4167: x_ttdv_rec.attribute3 := l_db_ttdv_rec.attribute3;
4168: END IF;
4169: IF (x_ttdv_rec.attribute4 = OKL_API.G_MISS_CHAR)
4170: THEN
4171: x_ttdv_rec.attribute4 := l_db_ttdv_rec.attribute4;
4172: END IF;
4173: IF (x_ttdv_rec.attribute5 = OKL_API.G_MISS_CHAR)
4169: IF (x_ttdv_rec.attribute4 = OKL_API.G_MISS_CHAR)
4170: THEN
4171: x_ttdv_rec.attribute4 := l_db_ttdv_rec.attribute4;
4172: END IF;
4173: IF (x_ttdv_rec.attribute5 = OKL_API.G_MISS_CHAR)
4174: THEN
4175: x_ttdv_rec.attribute5 := l_db_ttdv_rec.attribute5;
4176: END IF;
4177: IF (x_ttdv_rec.attribute6 = OKL_API.G_MISS_CHAR)
4173: IF (x_ttdv_rec.attribute5 = OKL_API.G_MISS_CHAR)
4174: THEN
4175: x_ttdv_rec.attribute5 := l_db_ttdv_rec.attribute5;
4176: END IF;
4177: IF (x_ttdv_rec.attribute6 = OKL_API.G_MISS_CHAR)
4178: THEN
4179: x_ttdv_rec.attribute6 := l_db_ttdv_rec.attribute6;
4180: END IF;
4181: IF (x_ttdv_rec.attribute7 = OKL_API.G_MISS_CHAR)
4177: IF (x_ttdv_rec.attribute6 = OKL_API.G_MISS_CHAR)
4178: THEN
4179: x_ttdv_rec.attribute6 := l_db_ttdv_rec.attribute6;
4180: END IF;
4181: IF (x_ttdv_rec.attribute7 = OKL_API.G_MISS_CHAR)
4182: THEN
4183: x_ttdv_rec.attribute7 := l_db_ttdv_rec.attribute7;
4184: END IF;
4185: IF (x_ttdv_rec.attribute8 = OKL_API.G_MISS_CHAR)
4181: IF (x_ttdv_rec.attribute7 = OKL_API.G_MISS_CHAR)
4182: THEN
4183: x_ttdv_rec.attribute7 := l_db_ttdv_rec.attribute7;
4184: END IF;
4185: IF (x_ttdv_rec.attribute8 = OKL_API.G_MISS_CHAR)
4186: THEN
4187: x_ttdv_rec.attribute8 := l_db_ttdv_rec.attribute8;
4188: END IF;
4189: IF (x_ttdv_rec.attribute9 = OKL_API.G_MISS_CHAR)
4185: IF (x_ttdv_rec.attribute8 = OKL_API.G_MISS_CHAR)
4186: THEN
4187: x_ttdv_rec.attribute8 := l_db_ttdv_rec.attribute8;
4188: END IF;
4189: IF (x_ttdv_rec.attribute9 = OKL_API.G_MISS_CHAR)
4190: THEN
4191: x_ttdv_rec.attribute9 := l_db_ttdv_rec.attribute9;
4192: END IF;
4193: IF (x_ttdv_rec.attribute10 = OKL_API.G_MISS_CHAR)
4189: IF (x_ttdv_rec.attribute9 = OKL_API.G_MISS_CHAR)
4190: THEN
4191: x_ttdv_rec.attribute9 := l_db_ttdv_rec.attribute9;
4192: END IF;
4193: IF (x_ttdv_rec.attribute10 = OKL_API.G_MISS_CHAR)
4194: THEN
4195: x_ttdv_rec.attribute10 := l_db_ttdv_rec.attribute10;
4196: END IF;
4197: IF (x_ttdv_rec.attribute11 = OKL_API.G_MISS_CHAR)
4193: IF (x_ttdv_rec.attribute10 = OKL_API.G_MISS_CHAR)
4194: THEN
4195: x_ttdv_rec.attribute10 := l_db_ttdv_rec.attribute10;
4196: END IF;
4197: IF (x_ttdv_rec.attribute11 = OKL_API.G_MISS_CHAR)
4198: THEN
4199: x_ttdv_rec.attribute11 := l_db_ttdv_rec.attribute11;
4200: END IF;
4201: IF (x_ttdv_rec.attribute12 = OKL_API.G_MISS_CHAR)
4197: IF (x_ttdv_rec.attribute11 = OKL_API.G_MISS_CHAR)
4198: THEN
4199: x_ttdv_rec.attribute11 := l_db_ttdv_rec.attribute11;
4200: END IF;
4201: IF (x_ttdv_rec.attribute12 = OKL_API.G_MISS_CHAR)
4202: THEN
4203: x_ttdv_rec.attribute12 := l_db_ttdv_rec.attribute12;
4204: END IF;
4205: IF (x_ttdv_rec.attribute13 = OKL_API.G_MISS_CHAR)
4201: IF (x_ttdv_rec.attribute12 = OKL_API.G_MISS_CHAR)
4202: THEN
4203: x_ttdv_rec.attribute12 := l_db_ttdv_rec.attribute12;
4204: END IF;
4205: IF (x_ttdv_rec.attribute13 = OKL_API.G_MISS_CHAR)
4206: THEN
4207: x_ttdv_rec.attribute13 := l_db_ttdv_rec.attribute13;
4208: END IF;
4209: IF (x_ttdv_rec.attribute14 = OKL_API.G_MISS_CHAR)
4205: IF (x_ttdv_rec.attribute13 = OKL_API.G_MISS_CHAR)
4206: THEN
4207: x_ttdv_rec.attribute13 := l_db_ttdv_rec.attribute13;
4208: END IF;
4209: IF (x_ttdv_rec.attribute14 = OKL_API.G_MISS_CHAR)
4210: THEN
4211: x_ttdv_rec.attribute14 := l_db_ttdv_rec.attribute14;
4212: END IF;
4213: IF (x_ttdv_rec.attribute15 = OKL_API.G_MISS_CHAR)
4209: IF (x_ttdv_rec.attribute14 = OKL_API.G_MISS_CHAR)
4210: THEN
4211: x_ttdv_rec.attribute14 := l_db_ttdv_rec.attribute14;
4212: END IF;
4213: IF (x_ttdv_rec.attribute15 = OKL_API.G_MISS_CHAR)
4214: THEN
4215: x_ttdv_rec.attribute15 := l_db_ttdv_rec.attribute15;
4216: END IF;
4217: IF (x_ttdv_rec.created_by = OKL_API.G_MISS_NUM)
4213: IF (x_ttdv_rec.attribute15 = OKL_API.G_MISS_CHAR)
4214: THEN
4215: x_ttdv_rec.attribute15 := l_db_ttdv_rec.attribute15;
4216: END IF;
4217: IF (x_ttdv_rec.created_by = OKL_API.G_MISS_NUM)
4218: THEN
4219: x_ttdv_rec.created_by := l_db_ttdv_rec.created_by;
4220: END IF;
4221: IF (x_ttdv_rec.creation_date = OKL_API.G_MISS_DATE)
4217: IF (x_ttdv_rec.created_by = OKL_API.G_MISS_NUM)
4218: THEN
4219: x_ttdv_rec.created_by := l_db_ttdv_rec.created_by;
4220: END IF;
4221: IF (x_ttdv_rec.creation_date = OKL_API.G_MISS_DATE)
4222: THEN
4223: x_ttdv_rec.creation_date := l_db_ttdv_rec.creation_date;
4224: END IF;
4225: IF (x_ttdv_rec.last_updated_by = OKL_API.G_MISS_NUM)
4221: IF (x_ttdv_rec.creation_date = OKL_API.G_MISS_DATE)
4222: THEN
4223: x_ttdv_rec.creation_date := l_db_ttdv_rec.creation_date;
4224: END IF;
4225: IF (x_ttdv_rec.last_updated_by = OKL_API.G_MISS_NUM)
4226: THEN
4227: x_ttdv_rec.last_updated_by := l_db_ttdv_rec.last_updated_by;
4228: END IF;
4229: IF (x_ttdv_rec.last_update_date = OKL_API.G_MISS_DATE)
4225: IF (x_ttdv_rec.last_updated_by = OKL_API.G_MISS_NUM)
4226: THEN
4227: x_ttdv_rec.last_updated_by := l_db_ttdv_rec.last_updated_by;
4228: END IF;
4229: IF (x_ttdv_rec.last_update_date = OKL_API.G_MISS_DATE)
4230: THEN
4231: x_ttdv_rec.last_update_date := l_db_ttdv_rec.last_update_date;
4232: END IF;
4233: IF (x_ttdv_rec.last_update_login = OKL_API.G_MISS_NUM)
4229: IF (x_ttdv_rec.last_update_date = OKL_API.G_MISS_DATE)
4230: THEN
4231: x_ttdv_rec.last_update_date := l_db_ttdv_rec.last_update_date;
4232: END IF;
4233: IF (x_ttdv_rec.last_update_login = OKL_API.G_MISS_NUM)
4234: THEN
4235: x_ttdv_rec.last_update_login := l_db_ttdv_rec.last_update_login;
4236: END IF;
4237:
4235: x_ttdv_rec.last_update_login := l_db_ttdv_rec.last_update_login;
4236: END IF;
4237:
4238: -- Modified by dcshanmu for eBTax - modification starts
4239: IF (x_ttdv_rec.tax_date = OKL_API.G_MISS_DATE)
4240: THEN
4241: x_ttdv_rec.tax_date := l_ttdv_rec.tax_date;
4242: END IF;
4243: IF (x_ttdv_rec.line_amt = OKL_API.G_MISS_NUM)
4239: IF (x_ttdv_rec.tax_date = OKL_API.G_MISS_DATE)
4240: THEN
4241: x_ttdv_rec.tax_date := l_ttdv_rec.tax_date;
4242: END IF;
4243: IF (x_ttdv_rec.line_amt = OKL_API.G_MISS_NUM)
4244: THEN
4245: x_ttdv_rec.line_amt := l_ttdv_rec.line_amt;
4246: END IF;
4247: IF (x_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM)
4243: IF (x_ttdv_rec.line_amt = OKL_API.G_MISS_NUM)
4244: THEN
4245: x_ttdv_rec.line_amt := l_ttdv_rec.line_amt;
4246: END IF;
4247: IF (x_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM)
4248: THEN
4249: x_ttdv_rec.internal_organization_id := l_ttdv_rec.internal_organization_id;
4250: END IF;
4251: IF (x_ttdv_rec.application_id = OKL_API.G_MISS_NUM)
4247: IF (x_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM)
4248: THEN
4249: x_ttdv_rec.internal_organization_id := l_ttdv_rec.internal_organization_id;
4250: END IF;
4251: IF (x_ttdv_rec.application_id = OKL_API.G_MISS_NUM)
4252: THEN
4253: x_ttdv_rec.application_id := l_ttdv_rec.application_id;
4254: END IF;
4255: IF (x_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR)
4251: IF (x_ttdv_rec.application_id = OKL_API.G_MISS_NUM)
4252: THEN
4253: x_ttdv_rec.application_id := l_ttdv_rec.application_id;
4254: END IF;
4255: IF (x_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR)
4256: THEN
4257: x_ttdv_rec.entity_code := l_ttdv_rec.entity_code;
4258: END IF;
4259: IF (x_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR)
4255: IF (x_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR)
4256: THEN
4257: x_ttdv_rec.entity_code := l_ttdv_rec.entity_code;
4258: END IF;
4259: IF (x_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR)
4260: THEN
4261: x_ttdv_rec.event_class_code := l_ttdv_rec.event_class_code;
4262: END IF;
4263: IF (x_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR)
4259: IF (x_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR)
4260: THEN
4261: x_ttdv_rec.event_class_code := l_ttdv_rec.event_class_code;
4262: END IF;
4263: IF (x_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR)
4264: THEN
4265: x_ttdv_rec.event_type_code := l_ttdv_rec.event_type_code;
4266: END IF;
4267: IF (x_ttdv_rec.trx_id = OKL_API.G_MISS_NUM)
4263: IF (x_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR)
4264: THEN
4265: x_ttdv_rec.event_type_code := l_ttdv_rec.event_type_code;
4266: END IF;
4267: IF (x_ttdv_rec.trx_id = OKL_API.G_MISS_NUM)
4268: THEN
4269: x_ttdv_rec.trx_id := l_ttdv_rec.trx_id;
4270: END IF;
4271: IF (x_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM)
4267: IF (x_ttdv_rec.trx_id = OKL_API.G_MISS_NUM)
4268: THEN
4269: x_ttdv_rec.trx_id := l_ttdv_rec.trx_id;
4270: END IF;
4271: IF (x_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM)
4272: THEN
4273: x_ttdv_rec.trx_line_id := l_ttdv_rec.trx_line_id;
4274: END IF;
4275: IF (x_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR)
4271: IF (x_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM)
4272: THEN
4273: x_ttdv_rec.trx_line_id := l_ttdv_rec.trx_line_id;
4274: END IF;
4275: IF (x_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR)
4276: THEN
4277: x_ttdv_rec.trx_level_type := l_ttdv_rec.trx_level_type;
4278: END IF;
4279: IF (x_ttdv_rec.trx_line_number = OKL_API.G_MISS_NUM)
4275: IF (x_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR)
4276: THEN
4277: x_ttdv_rec.trx_level_type := l_ttdv_rec.trx_level_type;
4278: END IF;
4279: IF (x_ttdv_rec.trx_line_number = OKL_API.G_MISS_NUM)
4280: THEN
4281: x_ttdv_rec.trx_line_number := l_ttdv_rec.trx_line_number;
4282: END IF;
4283: IF (x_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM)
4279: IF (x_ttdv_rec.trx_line_number = OKL_API.G_MISS_NUM)
4280: THEN
4281: x_ttdv_rec.trx_line_number := l_ttdv_rec.trx_line_number;
4282: END IF;
4283: IF (x_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM)
4284: THEN
4285: x_ttdv_rec.tax_line_number := l_ttdv_rec.tax_line_number;
4286: END IF;
4287: IF (x_ttdv_rec.tax_regime_id = OKL_API.G_MISS_NUM)
4283: IF (x_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM)
4284: THEN
4285: x_ttdv_rec.tax_line_number := l_ttdv_rec.tax_line_number;
4286: END IF;
4287: IF (x_ttdv_rec.tax_regime_id = OKL_API.G_MISS_NUM)
4288: THEN
4289: x_ttdv_rec.tax_regime_id := l_ttdv_rec.tax_regime_id;
4290: END IF;
4291: IF (x_ttdv_rec.tax_regime_code = OKL_API.G_MISS_CHAR)
4287: IF (x_ttdv_rec.tax_regime_id = OKL_API.G_MISS_NUM)
4288: THEN
4289: x_ttdv_rec.tax_regime_id := l_ttdv_rec.tax_regime_id;
4290: END IF;
4291: IF (x_ttdv_rec.tax_regime_code = OKL_API.G_MISS_CHAR)
4292: THEN
4293: x_ttdv_rec.tax_regime_code := l_ttdv_rec.tax_regime_code;
4294: END IF;
4295: IF (x_ttdv_rec.tax_id = OKL_API.G_MISS_NUM)
4291: IF (x_ttdv_rec.tax_regime_code = OKL_API.G_MISS_CHAR)
4292: THEN
4293: x_ttdv_rec.tax_regime_code := l_ttdv_rec.tax_regime_code;
4294: END IF;
4295: IF (x_ttdv_rec.tax_id = OKL_API.G_MISS_NUM)
4296: THEN
4297: x_ttdv_rec.tax_id := l_ttdv_rec.tax_id;
4298: END IF;
4299: IF (x_ttdv_rec.tax = OKL_API.G_MISS_CHAR)
4295: IF (x_ttdv_rec.tax_id = OKL_API.G_MISS_NUM)
4296: THEN
4297: x_ttdv_rec.tax_id := l_ttdv_rec.tax_id;
4298: END IF;
4299: IF (x_ttdv_rec.tax = OKL_API.G_MISS_CHAR)
4300: THEN
4301: x_ttdv_rec.tax := l_ttdv_rec.tax;
4302: END IF;
4303: IF (x_ttdv_rec.tax_status_id = OKL_API.G_MISS_NUM)
4299: IF (x_ttdv_rec.tax = OKL_API.G_MISS_CHAR)
4300: THEN
4301: x_ttdv_rec.tax := l_ttdv_rec.tax;
4302: END IF;
4303: IF (x_ttdv_rec.tax_status_id = OKL_API.G_MISS_NUM)
4304: THEN
4305: x_ttdv_rec.tax_status_id := l_ttdv_rec.tax_status_id;
4306: END IF;
4307: IF (x_ttdv_rec.tax_status_code = OKL_API.G_MISS_CHAR)
4303: IF (x_ttdv_rec.tax_status_id = OKL_API.G_MISS_NUM)
4304: THEN
4305: x_ttdv_rec.tax_status_id := l_ttdv_rec.tax_status_id;
4306: END IF;
4307: IF (x_ttdv_rec.tax_status_code = OKL_API.G_MISS_CHAR)
4308: THEN
4309: x_ttdv_rec.tax_status_code := l_ttdv_rec.tax_status_code;
4310: END IF;
4311: IF (x_ttdv_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM)
4307: IF (x_ttdv_rec.tax_status_code = OKL_API.G_MISS_CHAR)
4308: THEN
4309: x_ttdv_rec.tax_status_code := l_ttdv_rec.tax_status_code;
4310: END IF;
4311: IF (x_ttdv_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM)
4312: THEN
4313: x_ttdv_rec.tax_apportionment_line_number := l_ttdv_rec.tax_apportionment_line_number;
4314: END IF;
4315: IF (x_ttdv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
4311: IF (x_ttdv_rec.tax_apportionment_line_number = OKL_API.G_MISS_NUM)
4312: THEN
4313: x_ttdv_rec.tax_apportionment_line_number := l_ttdv_rec.tax_apportionment_line_number;
4314: END IF;
4315: IF (x_ttdv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
4316: THEN
4317: x_ttdv_rec.legal_entity_id := l_ttdv_rec.legal_entity_id;
4318: END IF;
4319: IF (x_ttdv_rec.trx_number = OKL_API.G_MISS_CHAR)
4315: IF (x_ttdv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
4316: THEN
4317: x_ttdv_rec.legal_entity_id := l_ttdv_rec.legal_entity_id;
4318: END IF;
4319: IF (x_ttdv_rec.trx_number = OKL_API.G_MISS_CHAR)
4320: THEN
4321: x_ttdv_rec.trx_number := l_ttdv_rec.trx_number;
4322: END IF;
4323: IF (x_ttdv_rec.trx_date = OKL_API.G_MISS_DATE)
4319: IF (x_ttdv_rec.trx_number = OKL_API.G_MISS_CHAR)
4320: THEN
4321: x_ttdv_rec.trx_number := l_ttdv_rec.trx_number;
4322: END IF;
4323: IF (x_ttdv_rec.trx_date = OKL_API.G_MISS_DATE)
4324: THEN
4325: x_ttdv_rec.trx_date := l_ttdv_rec.trx_date;
4326: END IF;
4327: IF (x_ttdv_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM)
4323: IF (x_ttdv_rec.trx_date = OKL_API.G_MISS_DATE)
4324: THEN
4325: x_ttdv_rec.trx_date := l_ttdv_rec.trx_date;
4326: END IF;
4327: IF (x_ttdv_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM)
4328: THEN
4329: x_ttdv_rec.tax_jurisdiction_id := l_ttdv_rec.tax_jurisdiction_id;
4330: END IF;
4331: IF (x_ttdv_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR)
4327: IF (x_ttdv_rec.tax_jurisdiction_id = OKL_API.G_MISS_NUM)
4328: THEN
4329: x_ttdv_rec.tax_jurisdiction_id := l_ttdv_rec.tax_jurisdiction_id;
4330: END IF;
4331: IF (x_ttdv_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR)
4332: THEN
4333: x_ttdv_rec.tax_jurisdiction_code := l_ttdv_rec.tax_jurisdiction_code;
4334: END IF;
4335: IF (x_ttdv_rec.tax_type_code = OKL_API.G_MISS_CHAR)
4331: IF (x_ttdv_rec.tax_jurisdiction_code = OKL_API.G_MISS_CHAR)
4332: THEN
4333: x_ttdv_rec.tax_jurisdiction_code := l_ttdv_rec.tax_jurisdiction_code;
4334: END IF;
4335: IF (x_ttdv_rec.tax_type_code = OKL_API.G_MISS_CHAR)
4336: THEN
4337: x_ttdv_rec.tax_type_code := l_ttdv_rec.tax_type_code;
4338: END IF;
4339: IF (x_ttdv_rec.tax_currency_code = OKL_API.G_MISS_CHAR)
4335: IF (x_ttdv_rec.tax_type_code = OKL_API.G_MISS_CHAR)
4336: THEN
4337: x_ttdv_rec.tax_type_code := l_ttdv_rec.tax_type_code;
4338: END IF;
4339: IF (x_ttdv_rec.tax_currency_code = OKL_API.G_MISS_CHAR)
4340: THEN
4341: x_ttdv_rec.tax_currency_code := l_ttdv_rec.tax_currency_code;
4342: END IF;
4343: IF (x_ttdv_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM)
4339: IF (x_ttdv_rec.tax_currency_code = OKL_API.G_MISS_CHAR)
4340: THEN
4341: x_ttdv_rec.tax_currency_code := l_ttdv_rec.tax_currency_code;
4342: END IF;
4343: IF (x_ttdv_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM)
4344: THEN
4345: x_ttdv_rec.taxable_amt_tax_curr := l_ttdv_rec.taxable_amt_tax_curr;
4346: END IF;
4347: IF (x_ttdv_rec.trx_currency_code = OKL_API.G_MISS_CHAR)
4343: IF (x_ttdv_rec.taxable_amt_tax_curr = OKL_API.G_MISS_NUM)
4344: THEN
4345: x_ttdv_rec.taxable_amt_tax_curr := l_ttdv_rec.taxable_amt_tax_curr;
4346: END IF;
4347: IF (x_ttdv_rec.trx_currency_code = OKL_API.G_MISS_CHAR)
4348: THEN
4349: x_ttdv_rec.trx_currency_code := l_ttdv_rec.trx_currency_code;
4350: END IF;
4351: IF (x_ttdv_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM)
4347: IF (x_ttdv_rec.trx_currency_code = OKL_API.G_MISS_CHAR)
4348: THEN
4349: x_ttdv_rec.trx_currency_code := l_ttdv_rec.trx_currency_code;
4350: END IF;
4351: IF (x_ttdv_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM)
4352: THEN
4353: x_ttdv_rec.minimum_accountable_unit := l_ttdv_rec.minimum_accountable_unit;
4354: END IF;
4355: IF (x_ttdv_rec.precision = OKL_API.G_MISS_NUM)
4351: IF (x_ttdv_rec.minimum_accountable_unit = OKL_API.G_MISS_NUM)
4352: THEN
4353: x_ttdv_rec.minimum_accountable_unit := l_ttdv_rec.minimum_accountable_unit;
4354: END IF;
4355: IF (x_ttdv_rec.precision = OKL_API.G_MISS_NUM)
4356: THEN
4357: x_ttdv_rec.precision := l_ttdv_rec.precision;
4358: END IF;
4359: IF (x_ttdv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
4355: IF (x_ttdv_rec.precision = OKL_API.G_MISS_NUM)
4356: THEN
4357: x_ttdv_rec.precision := l_ttdv_rec.precision;
4358: END IF;
4359: IF (x_ttdv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
4360: THEN
4361: x_ttdv_rec.currency_conversion_type := l_ttdv_rec.currency_conversion_type;
4362: END IF;
4363: IF (x_ttdv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
4359: IF (x_ttdv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
4360: THEN
4361: x_ttdv_rec.currency_conversion_type := l_ttdv_rec.currency_conversion_type;
4362: END IF;
4363: IF (x_ttdv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
4364: THEN
4365: x_ttdv_rec.currency_conversion_rate := l_ttdv_rec.currency_conversion_rate;
4366: END IF;
4367: IF (x_ttdv_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
4363: IF (x_ttdv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
4364: THEN
4365: x_ttdv_rec.currency_conversion_rate := l_ttdv_rec.currency_conversion_rate;
4366: END IF;
4367: IF (x_ttdv_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
4368: THEN
4369: x_ttdv_rec.currency_conversion_date := l_ttdv_rec.currency_conversion_date;
4370: END IF;
4371: -- Modified by dcshanmu for eBTax - modification end
4379: FUNCTION Set_Attributes (
4380: p_ttdv_rec IN ttdv_rec_type,
4381: x_ttdv_rec OUT NOCOPY ttdv_rec_type
4382: ) RETURN VARCHAR2 IS
4383: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4384: BEGIN
4385: x_ttdv_rec := p_ttdv_rec;
4386: RETURN(l_return_status);
4387: END Set_Attributes;
4385: x_ttdv_rec := p_ttdv_rec;
4386: RETURN(l_return_status);
4387: END Set_Attributes;
4388: BEGIN
4389: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4390: G_PKG_NAME,
4391: p_init_msg_list,
4392: l_api_version,
4393: p_api_version,
4392: l_api_version,
4393: p_api_version,
4394: '_PVT',
4395: x_return_status);
4396: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4398: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_ERROR;
4400: END IF;
4393: p_api_version,
4394: '_PVT',
4395: x_return_status);
4396: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4398: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_ERROR;
4400: END IF;
4401: --- Setting item attributes
4394: '_PVT',
4395: x_return_status);
4396: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4398: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_ERROR;
4400: END IF;
4401: --- Setting item attributes
4402: l_return_status := Set_Attributes(
4395: x_return_status);
4396: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4398: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4399: RAISE OKL_API.G_EXCEPTION_ERROR;
4400: END IF;
4401: --- Setting item attributes
4402: l_return_status := Set_Attributes(
4403: p_ttdv_rec, -- IN
4402: l_return_status := Set_Attributes(
4403: p_ttdv_rec, -- IN
4404: x_ttdv_rec); -- OUT
4405: --- If any errors happen abort API
4406: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4403: p_ttdv_rec, -- IN
4404: x_ttdv_rec); -- OUT
4405: --- If any errors happen abort API
4406: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4411: l_return_status := populate_new_record(l_ttdv_rec, LDefOklTaxTrxDetailsVRec);
4404: x_ttdv_rec); -- OUT
4405: --- If any errors happen abort API
4406: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4411: l_return_status := populate_new_record(l_ttdv_rec, LDefOklTaxTrxDetailsVRec);
4412: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4405: --- If any errors happen abort API
4406: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4411: l_return_status := populate_new_record(l_ttdv_rec, LDefOklTaxTrxDetailsVRec);
4412: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4411: l_return_status := populate_new_record(l_ttdv_rec, LDefOklTaxTrxDetailsVRec);
4412: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4415: RAISE OKL_API.G_EXCEPTION_ERROR;
4416: END IF;
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4411: l_return_status := populate_new_record(l_ttdv_rec, LDefOklTaxTrxDetailsVRec);
4412: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4415: RAISE OKL_API.G_EXCEPTION_ERROR;
4416: END IF;
4417: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
4410: END IF;
4411: l_return_status := populate_new_record(l_ttdv_rec, LDefOklTaxTrxDetailsVRec);
4412: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4415: RAISE OKL_API.G_EXCEPTION_ERROR;
4416: END IF;
4417: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
4418: --- Validate all non-missing attributes (Item Level Validation)
4411: l_return_status := populate_new_record(l_ttdv_rec, LDefOklTaxTrxDetailsVRec);
4412: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4415: RAISE OKL_API.G_EXCEPTION_ERROR;
4416: END IF;
4417: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
4418: --- Validate all non-missing attributes (Item Level Validation)
4419: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
4417: LDefOklTaxTrxDetailsVRec := fill_who_columns(LDefOklTaxTrxDetailsVRec);
4418: --- Validate all non-missing attributes (Item Level Validation)
4419: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
4420: --- If any errors happen abort API
4421: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4425: END IF;
4418: --- Validate all non-missing attributes (Item Level Validation)
4419: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
4420: --- If any errors happen abort API
4421: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4425: END IF;
4426: /*
4419: l_return_status := Validate_Attributes(LDefOklTaxTrxDetailsVRec);
4420: --- If any errors happen abort API
4421: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4425: END IF;
4426: /*
4427: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec, l_db_ttdv_rec);
4420: --- If any errors happen abort API
4421: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4423: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4425: END IF;
4426: /*
4427: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec, l_db_ttdv_rec);
4428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4424: RAISE OKL_API.G_EXCEPTION_ERROR;
4425: END IF;
4426: /*
4427: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec, l_db_ttdv_rec);
4428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4425: END IF;
4426: /*
4427: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec, l_db_ttdv_rec);
4428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4433: */
4426: /*
4427: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec, l_db_ttdv_rec);
4428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4433: */
4434:
4427: l_return_status := Validate_Record(LDefOklTaxTrxDetailsVRec, l_db_ttdv_rec);
4428: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4433: */
4434:
4435: -- Lock the Record
4439: x_return_status => l_return_status,
4440: x_msg_count => x_msg_count,
4441: x_msg_data => x_msg_data,
4442: p_ttdv_rec => LDefOklTaxTrxDetailsVRec); --p_ttdv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4446: RAISE OKL_API.G_EXCEPTION_ERROR;
4447: END IF;
4440: x_msg_count => x_msg_count,
4441: x_msg_data => x_msg_data,
4442: p_ttdv_rec => LDefOklTaxTrxDetailsVRec); --p_ttdv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4446: RAISE OKL_API.G_EXCEPTION_ERROR;
4447: END IF;
4448:
4441: x_msg_data => x_msg_data,
4442: p_ttdv_rec => LDefOklTaxTrxDetailsVRec); --p_ttdv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4446: RAISE OKL_API.G_EXCEPTION_ERROR;
4447: END IF;
4448:
4449: -----------------------------------------
4442: p_ttdv_rec => LDefOklTaxTrxDetailsVRec); --p_ttdv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4443: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4445: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4446: RAISE OKL_API.G_EXCEPTION_ERROR;
4447: END IF;
4448:
4449: -----------------------------------------
4450: -- Move VIEW record to "Child" records --
4460: x_msg_data,
4461: l_ttd_rec,
4462: lx_ttd_rec
4463: );
4464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4467: RAISE OKL_API.G_EXCEPTION_ERROR;
4468: END IF;
4461: l_ttd_rec,
4462: lx_ttd_rec
4463: );
4464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4467: RAISE OKL_API.G_EXCEPTION_ERROR;
4468: END IF;
4469: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
4462: lx_ttd_rec
4463: );
4464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4467: RAISE OKL_API.G_EXCEPTION_ERROR;
4468: END IF;
4469: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
4470: x_ttdv_rec := LDefOklTaxTrxDetailsVRec;
4463: );
4464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4467: RAISE OKL_API.G_EXCEPTION_ERROR;
4468: END IF;
4469: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
4470: x_ttdv_rec := LDefOklTaxTrxDetailsVRec;
4471: x_return_status := l_return_status;
4468: END IF;
4469: migrate(lx_ttd_rec, LDefOklTaxTrxDetailsVRec);
4470: x_ttdv_rec := LDefOklTaxTrxDetailsVRec;
4471: x_return_status := l_return_status;
4472: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4473: EXCEPTION
4474: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4475: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4476: (
4470: x_ttdv_rec := LDefOklTaxTrxDetailsVRec;
4471: x_return_status := l_return_status;
4472: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4473: EXCEPTION
4474: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4475: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4476: (
4477: l_api_name,
4478: G_PKG_NAME,
4471: x_return_status := l_return_status;
4472: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4473: EXCEPTION
4474: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4475: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4476: (
4477: l_api_name,
4478: G_PKG_NAME,
4479: 'OKL_API.G_RET_STS_ERROR',
4475: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4476: (
4477: l_api_name,
4478: G_PKG_NAME,
4479: 'OKL_API.G_RET_STS_ERROR',
4480: x_msg_count,
4481: x_msg_data,
4482: '_PVT'
4483: );
4480: x_msg_count,
4481: x_msg_data,
4482: '_PVT'
4483: );
4484: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4485: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4486: (
4487: l_api_name,
4488: G_PKG_NAME,
4481: x_msg_data,
4482: '_PVT'
4483: );
4484: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4485: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4486: (
4487: l_api_name,
4488: G_PKG_NAME,
4489: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4485: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4486: (
4487: l_api_name,
4488: G_PKG_NAME,
4489: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4490: x_msg_count,
4491: x_msg_data,
4492: '_PVT'
4493: );
4491: x_msg_data,
4492: '_PVT'
4493: );
4494: WHEN OTHERS THEN
4495: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4496: (
4497: l_api_name,
4498: G_PKG_NAME,
4499: 'OTHERS',
4512: x_msg_count OUT NOCOPY NUMBER,
4513: x_msg_data OUT NOCOPY VARCHAR2,
4514: p_ttdv_tbl IN ttdv_tbl_type,
4515: x_ttdv_tbl OUT NOCOPY ttdv_tbl_type,
4516: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4517:
4518: l_api_version CONSTANT NUMBER := 1;
4519: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
4520: i NUMBER := 0;
4518: l_api_version CONSTANT NUMBER := 1;
4519: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
4520: i NUMBER := 0;
4521: BEGIN
4522: OKL_API.init_msg_list(p_init_msg_list);
4523: -- Make sure PL/SQL table has records in it before passing
4524: IF (p_ttdv_tbl.COUNT > 0) THEN
4525: i := p_ttdv_tbl.FIRST;
4526: LOOP
4524: IF (p_ttdv_tbl.COUNT > 0) THEN
4525: i := p_ttdv_tbl.FIRST;
4526: LOOP
4527: DECLARE
4528: l_error_rec OKL_API.ERROR_REC_TYPE;
4529: BEGIN
4530: l_error_rec.api_name := l_api_name;
4531: l_error_rec.api_package := G_PKG_NAME;
4532: l_error_rec.idx := i;
4531: l_error_rec.api_package := G_PKG_NAME;
4532: l_error_rec.idx := i;
4533: update_row (
4534: p_api_version => p_api_version,
4535: p_init_msg_list => OKL_API.G_FALSE,
4536: x_return_status => l_error_rec.error_type,
4537: x_msg_count => l_error_rec.msg_count,
4538: x_msg_data => l_error_rec.msg_data,
4539: p_ttdv_rec => p_ttdv_tbl(i),
4537: x_msg_count => l_error_rec.msg_count,
4538: x_msg_data => l_error_rec.msg_data,
4539: p_ttdv_rec => p_ttdv_tbl(i),
4540: x_ttdv_rec => x_ttdv_tbl(i));
4541: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4542: l_error_rec.sqlcode := SQLCODE;
4543: load_error_tbl(l_error_rec, px_error_tbl);
4544: ELSE
4545: x_msg_count := l_error_rec.msg_count;
4545: x_msg_count := l_error_rec.msg_count;
4546: x_msg_data := l_error_rec.msg_data;
4547: END IF;
4548: EXCEPTION
4549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4551: l_error_rec.sqlcode := SQLCODE;
4552: load_error_tbl(l_error_rec, px_error_tbl);
4553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4546: x_msg_data := l_error_rec.msg_data;
4547: END IF;
4548: EXCEPTION
4549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4551: l_error_rec.sqlcode := SQLCODE;
4552: load_error_tbl(l_error_rec, px_error_tbl);
4553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4554: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4551: l_error_rec.sqlcode := SQLCODE;
4552: load_error_tbl(l_error_rec, px_error_tbl);
4553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4554: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4555: l_error_rec.sqlcode := SQLCODE;
4556: load_error_tbl(l_error_rec, px_error_tbl);
4557: WHEN OTHERS THEN
4550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4551: l_error_rec.sqlcode := SQLCODE;
4552: load_error_tbl(l_error_rec, px_error_tbl);
4553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4554: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4555: l_error_rec.sqlcode := SQLCODE;
4556: load_error_tbl(l_error_rec, px_error_tbl);
4557: WHEN OTHERS THEN
4558: l_error_rec.error_type := 'OTHERS';
4565: END IF;
4566: -- Loop through the error_tbl to find the error with the highest severity
4567: -- and return it.
4568: x_return_status := find_highest_exception(px_error_tbl);
4569: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4570: EXCEPTION
4571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4573: (
4567: -- and return it.
4568: x_return_status := find_highest_exception(px_error_tbl);
4569: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4570: EXCEPTION
4571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4573: (
4574: l_api_name,
4575: G_PKG_NAME,
4568: x_return_status := find_highest_exception(px_error_tbl);
4569: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4570: EXCEPTION
4571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4573: (
4574: l_api_name,
4575: G_PKG_NAME,
4576: 'OKL_API.G_RET_STS_ERROR',
4572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4573: (
4574: l_api_name,
4575: G_PKG_NAME,
4576: 'OKL_API.G_RET_STS_ERROR',
4577: x_msg_count,
4578: x_msg_data,
4579: '_PVT'
4580: );
4577: x_msg_count,
4578: x_msg_data,
4579: '_PVT'
4580: );
4581: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4583: (
4584: l_api_name,
4585: G_PKG_NAME,
4578: x_msg_data,
4579: '_PVT'
4580: );
4581: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4583: (
4584: l_api_name,
4585: G_PKG_NAME,
4586: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4583: (
4584: l_api_name,
4585: G_PKG_NAME,
4586: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4587: x_msg_count,
4588: x_msg_data,
4589: '_PVT'
4590: );
4588: x_msg_data,
4589: '_PVT'
4590: );
4591: WHEN OTHERS THEN
4592: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4593: (
4594: l_api_name,
4595: G_PKG_NAME,
4596: 'OTHERS',
4615: x_ttdv_tbl OUT NOCOPY ttdv_tbl_type) IS
4616:
4617: l_api_version CONSTANT NUMBER := 1;
4618: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4619: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4620: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4621: BEGIN
4622: OKL_API.init_msg_list(p_init_msg_list);
4623: -- Make sure PL/SQL table has records in it before passing
4616:
4617: l_api_version CONSTANT NUMBER := 1;
4618: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4619: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4620: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4621: BEGIN
4622: OKL_API.init_msg_list(p_init_msg_list);
4623: -- Make sure PL/SQL table has records in it before passing
4624: IF (p_ttdv_tbl.COUNT > 0) THEN
4618: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4619: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4620: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4621: BEGIN
4622: OKL_API.init_msg_list(p_init_msg_list);
4623: -- Make sure PL/SQL table has records in it before passing
4624: IF (p_ttdv_tbl.COUNT > 0) THEN
4625: update_row (
4626: p_api_version => p_api_version,
4623: -- Make sure PL/SQL table has records in it before passing
4624: IF (p_ttdv_tbl.COUNT > 0) THEN
4625: update_row (
4626: p_api_version => p_api_version,
4627: p_init_msg_list => OKL_API.G_FALSE,
4628: x_return_status => x_return_status,
4629: x_msg_count => x_msg_count,
4630: x_msg_data => x_msg_data,
4631: p_ttdv_tbl => p_ttdv_tbl,
4631: p_ttdv_tbl => p_ttdv_tbl,
4632: x_ttdv_tbl => x_ttdv_tbl,
4633: px_error_tbl => l_error_tbl);
4634: END IF;
4635: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4636: EXCEPTION
4637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4638: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4639: (
4633: px_error_tbl => l_error_tbl);
4634: END IF;
4635: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4636: EXCEPTION
4637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4638: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4639: (
4640: l_api_name,
4641: G_PKG_NAME,
4634: END IF;
4635: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4636: EXCEPTION
4637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4638: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4639: (
4640: l_api_name,
4641: G_PKG_NAME,
4642: 'OKL_API.G_RET_STS_ERROR',
4638: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4639: (
4640: l_api_name,
4641: G_PKG_NAME,
4642: 'OKL_API.G_RET_STS_ERROR',
4643: x_msg_count,
4644: x_msg_data,
4645: '_PVT'
4646: );
4643: x_msg_count,
4644: x_msg_data,
4645: '_PVT'
4646: );
4647: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4648: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4649: (
4650: l_api_name,
4651: G_PKG_NAME,
4644: x_msg_data,
4645: '_PVT'
4646: );
4647: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4648: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4649: (
4650: l_api_name,
4651: G_PKG_NAME,
4652: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4648: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4649: (
4650: l_api_name,
4651: G_PKG_NAME,
4652: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4653: x_msg_count,
4654: x_msg_data,
4655: '_PVT'
4656: );
4654: x_msg_data,
4655: '_PVT'
4656: );
4657: WHEN OTHERS THEN
4658: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4659: (
4660: l_api_name,
4661: G_PKG_NAME,
4662: 'OTHERS',
4680: p_ttd_rec IN ttd_rec_type) IS
4681:
4682: l_api_version CONSTANT NUMBER := 1;
4683: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
4684: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4685: l_ttd_rec ttd_rec_type := p_ttd_rec;
4686: l_row_notfound BOOLEAN := TRUE;
4687: BEGIN
4688: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4684: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4685: l_ttd_rec ttd_rec_type := p_ttd_rec;
4686: l_row_notfound BOOLEAN := TRUE;
4687: BEGIN
4688: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4689: p_init_msg_list,
4690: '_PVT',
4691: x_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4689: p_init_msg_list,
4690: '_PVT',
4691: x_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4689: p_init_msg_list,
4690: '_PVT',
4691: x_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4697:
4690: '_PVT',
4691: x_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4697:
4698: DELETE FROM OKL_TAX_TRX_DETAILS
4691: x_return_status);
4692: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4693: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4694: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4695: RAISE OKL_API.G_EXCEPTION_ERROR;
4696: END IF;
4697:
4698: DELETE FROM OKL_TAX_TRX_DETAILS
4699: WHERE ID = p_ttd_rec.id;
4698: DELETE FROM OKL_TAX_TRX_DETAILS
4699: WHERE ID = p_ttd_rec.id;
4700:
4701: x_return_status := l_return_status;
4702: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4703: EXCEPTION
4704: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4705: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4706: (
4700:
4701: x_return_status := l_return_status;
4702: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4703: EXCEPTION
4704: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4705: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4706: (
4707: l_api_name,
4708: G_PKG_NAME,
4701: x_return_status := l_return_status;
4702: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4703: EXCEPTION
4704: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4705: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4706: (
4707: l_api_name,
4708: G_PKG_NAME,
4709: 'OKL_API.G_RET_STS_ERROR',
4705: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4706: (
4707: l_api_name,
4708: G_PKG_NAME,
4709: 'OKL_API.G_RET_STS_ERROR',
4710: x_msg_count,
4711: x_msg_data,
4712: '_PVT'
4713: );
4710: x_msg_count,
4711: x_msg_data,
4712: '_PVT'
4713: );
4714: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4715: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4716: (
4717: l_api_name,
4718: G_PKG_NAME,
4711: x_msg_data,
4712: '_PVT'
4713: );
4714: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4715: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4716: (
4717: l_api_name,
4718: G_PKG_NAME,
4719: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4715: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4716: (
4717: l_api_name,
4718: G_PKG_NAME,
4719: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4720: x_msg_count,
4721: x_msg_data,
4722: '_PVT'
4723: );
4721: x_msg_data,
4722: '_PVT'
4723: );
4724: WHEN OTHERS THEN
4725: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4726: (
4727: l_api_name,
4728: G_PKG_NAME,
4729: 'OTHERS',
4744: p_ttdv_rec IN ttdv_rec_type) IS
4745:
4746: l_api_version CONSTANT NUMBER := 1;
4747: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4748: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4749: l_ttdv_rec ttdv_rec_type := p_ttdv_rec;
4750: l_ttd_rec ttd_rec_type;
4751: BEGIN
4752: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4748: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4749: l_ttdv_rec ttdv_rec_type := p_ttdv_rec;
4750: l_ttd_rec ttd_rec_type;
4751: BEGIN
4752: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4753: G_PKG_NAME,
4754: p_init_msg_list,
4755: l_api_version,
4756: p_api_version,
4755: l_api_version,
4756: p_api_version,
4757: '_PVT',
4758: x_return_status);
4759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4756: p_api_version,
4757: '_PVT',
4758: x_return_status);
4759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4764: -----------------------------------------
4757: '_PVT',
4758: x_return_status);
4759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4764: -----------------------------------------
4765: -- Move VIEW record to "Child" records --
4758: x_return_status);
4759: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4764: -----------------------------------------
4765: -- Move VIEW record to "Child" records --
4766: -----------------------------------------
4774: x_msg_count,
4775: x_msg_data,
4776: l_ttd_rec
4777: );
4778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4781: RAISE OKL_API.G_EXCEPTION_ERROR;
4782: END IF;
4775: x_msg_data,
4776: l_ttd_rec
4777: );
4778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4781: RAISE OKL_API.G_EXCEPTION_ERROR;
4782: END IF;
4783: x_return_status := l_return_status;
4776: l_ttd_rec
4777: );
4778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4781: RAISE OKL_API.G_EXCEPTION_ERROR;
4782: END IF;
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4777: );
4778: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4781: RAISE OKL_API.G_EXCEPTION_ERROR;
4782: END IF;
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4785: EXCEPTION
4780: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4781: RAISE OKL_API.G_EXCEPTION_ERROR;
4782: END IF;
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4785: EXCEPTION
4786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (
4782: END IF;
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4785: EXCEPTION
4786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (
4789: l_api_name,
4790: G_PKG_NAME,
4783: x_return_status := l_return_status;
4784: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4785: EXCEPTION
4786: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (
4789: l_api_name,
4790: G_PKG_NAME,
4791: 'OKL_API.G_RET_STS_ERROR',
4787: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4788: (
4789: l_api_name,
4790: G_PKG_NAME,
4791: 'OKL_API.G_RET_STS_ERROR',
4792: x_msg_count,
4793: x_msg_data,
4794: '_PVT'
4795: );
4792: x_msg_count,
4793: x_msg_data,
4794: '_PVT'
4795: );
4796: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4797: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4798: (
4799: l_api_name,
4800: G_PKG_NAME,
4793: x_msg_data,
4794: '_PVT'
4795: );
4796: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4797: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4798: (
4799: l_api_name,
4800: G_PKG_NAME,
4801: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4797: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4798: (
4799: l_api_name,
4800: G_PKG_NAME,
4801: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4802: x_msg_count,
4803: x_msg_data,
4804: '_PVT'
4805: );
4803: x_msg_data,
4804: '_PVT'
4805: );
4806: WHEN OTHERS THEN
4807: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4808: (
4809: l_api_name,
4810: G_PKG_NAME,
4811: 'OTHERS',
4823: x_return_status OUT NOCOPY VARCHAR2,
4824: x_msg_count OUT NOCOPY NUMBER,
4825: x_msg_data OUT NOCOPY VARCHAR2,
4826: p_ttdv_tbl IN ttdv_tbl_type,
4827: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4828:
4829: l_api_version CONSTANT NUMBER := 1;
4830: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4831: i NUMBER := 0;
4829: l_api_version CONSTANT NUMBER := 1;
4830: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4831: i NUMBER := 0;
4832: BEGIN
4833: OKL_API.init_msg_list(p_init_msg_list);
4834: -- Make sure PL/SQL table has records in it before passing
4835: IF (p_ttdv_tbl.COUNT > 0) THEN
4836: i := p_ttdv_tbl.FIRST;
4837: LOOP
4835: IF (p_ttdv_tbl.COUNT > 0) THEN
4836: i := p_ttdv_tbl.FIRST;
4837: LOOP
4838: DECLARE
4839: l_error_rec OKL_API.ERROR_REC_TYPE;
4840: BEGIN
4841: l_error_rec.api_name := l_api_name;
4842: l_error_rec.api_package := G_PKG_NAME;
4843: l_error_rec.idx := i;
4842: l_error_rec.api_package := G_PKG_NAME;
4843: l_error_rec.idx := i;
4844: delete_row (
4845: p_api_version => p_api_version,
4846: p_init_msg_list => OKL_API.G_FALSE,
4847: x_return_status => l_error_rec.error_type,
4848: x_msg_count => l_error_rec.msg_count,
4849: x_msg_data => l_error_rec.msg_data,
4850: p_ttdv_rec => p_ttdv_tbl(i));
4847: x_return_status => l_error_rec.error_type,
4848: x_msg_count => l_error_rec.msg_count,
4849: x_msg_data => l_error_rec.msg_data,
4850: p_ttdv_rec => p_ttdv_tbl(i));
4851: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4852: l_error_rec.sqlcode := SQLCODE;
4853: load_error_tbl(l_error_rec, px_error_tbl);
4854: ELSE
4855: x_msg_count := l_error_rec.msg_count;
4855: x_msg_count := l_error_rec.msg_count;
4856: x_msg_data := l_error_rec.msg_data;
4857: END IF;
4858: EXCEPTION
4859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4860: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4861: l_error_rec.sqlcode := SQLCODE;
4862: load_error_tbl(l_error_rec, px_error_tbl);
4863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4856: x_msg_data := l_error_rec.msg_data;
4857: END IF;
4858: EXCEPTION
4859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4860: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4861: l_error_rec.sqlcode := SQLCODE;
4862: load_error_tbl(l_error_rec, px_error_tbl);
4863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4864: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4860: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4861: l_error_rec.sqlcode := SQLCODE;
4862: load_error_tbl(l_error_rec, px_error_tbl);
4863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4864: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4865: l_error_rec.sqlcode := SQLCODE;
4866: load_error_tbl(l_error_rec, px_error_tbl);
4867: WHEN OTHERS THEN
4860: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4861: l_error_rec.sqlcode := SQLCODE;
4862: load_error_tbl(l_error_rec, px_error_tbl);
4863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4864: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4865: l_error_rec.sqlcode := SQLCODE;
4866: load_error_tbl(l_error_rec, px_error_tbl);
4867: WHEN OTHERS THEN
4868: l_error_rec.error_type := 'OTHERS';
4875: END IF;
4876: -- Loop through the error_tbl to find the error with the highest severity
4877: -- and return it.
4878: x_return_status := find_highest_exception(px_error_tbl);
4879: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4880: EXCEPTION
4881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4882: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4883: (
4877: -- and return it.
4878: x_return_status := find_highest_exception(px_error_tbl);
4879: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4880: EXCEPTION
4881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4882: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4883: (
4884: l_api_name,
4885: G_PKG_NAME,
4878: x_return_status := find_highest_exception(px_error_tbl);
4879: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4880: EXCEPTION
4881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4882: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4883: (
4884: l_api_name,
4885: G_PKG_NAME,
4886: 'OKL_API.G_RET_STS_ERROR',
4882: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4883: (
4884: l_api_name,
4885: G_PKG_NAME,
4886: 'OKL_API.G_RET_STS_ERROR',
4887: x_msg_count,
4888: x_msg_data,
4889: '_PVT'
4890: );
4887: x_msg_count,
4888: x_msg_data,
4889: '_PVT'
4890: );
4891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4892: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4893: (
4894: l_api_name,
4895: G_PKG_NAME,
4888: x_msg_data,
4889: '_PVT'
4890: );
4891: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4892: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4893: (
4894: l_api_name,
4895: G_PKG_NAME,
4896: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4892: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4893: (
4894: l_api_name,
4895: G_PKG_NAME,
4896: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4897: x_msg_count,
4898: x_msg_data,
4899: '_PVT'
4900: );
4898: x_msg_data,
4899: '_PVT'
4900: );
4901: WHEN OTHERS THEN
4902: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4903: (
4904: l_api_name,
4905: G_PKG_NAME,
4906: 'OTHERS',
4922: p_ttdv_tbl IN ttdv_tbl_type) IS
4923:
4924: l_api_version CONSTANT NUMBER := 1;
4925: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4926: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4927: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4928: BEGIN
4929: OKL_API.init_msg_list(p_init_msg_list);
4930: -- Make sure PL/SQL table has records in it before passing
4923:
4924: l_api_version CONSTANT NUMBER := 1;
4925: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4926: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4927: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4928: BEGIN
4929: OKL_API.init_msg_list(p_init_msg_list);
4930: -- Make sure PL/SQL table has records in it before passing
4931: IF (p_ttdv_tbl.COUNT > 0) THEN
4925: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4926: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4927: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4928: BEGIN
4929: OKL_API.init_msg_list(p_init_msg_list);
4930: -- Make sure PL/SQL table has records in it before passing
4931: IF (p_ttdv_tbl.COUNT > 0) THEN
4932: delete_row (
4933: p_api_version => p_api_version,
4930: -- Make sure PL/SQL table has records in it before passing
4931: IF (p_ttdv_tbl.COUNT > 0) THEN
4932: delete_row (
4933: p_api_version => p_api_version,
4934: p_init_msg_list => OKL_API.G_FALSE,
4935: x_return_status => x_return_status,
4936: x_msg_count => x_msg_count,
4937: x_msg_data => x_msg_data,
4938: p_ttdv_tbl => p_ttdv_tbl,
4937: x_msg_data => x_msg_data,
4938: p_ttdv_tbl => p_ttdv_tbl,
4939: px_error_tbl => l_error_tbl);
4940: END IF;
4941: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4942: EXCEPTION
4943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4945: (
4939: px_error_tbl => l_error_tbl);
4940: END IF;
4941: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4942: EXCEPTION
4943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4945: (
4946: l_api_name,
4947: G_PKG_NAME,
4940: END IF;
4941: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4942: EXCEPTION
4943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4945: (
4946: l_api_name,
4947: G_PKG_NAME,
4948: 'OKL_API.G_RET_STS_ERROR',
4944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4945: (
4946: l_api_name,
4947: G_PKG_NAME,
4948: 'OKL_API.G_RET_STS_ERROR',
4949: x_msg_count,
4950: x_msg_data,
4951: '_PVT'
4952: );
4949: x_msg_count,
4950: x_msg_data,
4951: '_PVT'
4952: );
4953: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4954: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4955: (
4956: l_api_name,
4957: G_PKG_NAME,
4950: x_msg_data,
4951: '_PVT'
4952: );
4953: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4954: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4955: (
4956: l_api_name,
4957: G_PKG_NAME,
4958: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4954: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4955: (
4956: l_api_name,
4957: G_PKG_NAME,
4958: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4959: x_msg_count,
4960: x_msg_data,
4961: '_PVT'
4962: );
4960: x_msg_data,
4961: '_PVT'
4962: );
4963: WHEN OTHERS THEN
4964: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4965: (
4966: l_api_name,
4967: G_PKG_NAME,
4968: 'OTHERS',