4: ---------------------------------------------------------------------------
5: -- PROCEDURE load_error_tbl
6: ---------------------------------------------------------------------------
7: PROCEDURE load_error_tbl (
8: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
9: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
10:
11: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
12: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
5: -- PROCEDURE load_error_tbl
6: ---------------------------------------------------------------------------
7: PROCEDURE load_error_tbl (
8: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
9: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
10:
11: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
12: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
13: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
37: ---------------------------------------------------------------------------
38: -- FUNCTION find_highest_exception
39: ---------------------------------------------------------------------------
40: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
41: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
42: FUNCTION find_highest_exception(
43: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
44: ) RETURN VARCHAR2 IS
45: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
39: ---------------------------------------------------------------------------
40: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
41: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
42: FUNCTION find_highest_exception(
43: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
44: ) RETURN VARCHAR2 IS
45: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
46: i INTEGER := 1;
47: BEGIN
41: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
42: FUNCTION find_highest_exception(
43: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
44: ) RETURN VARCHAR2 IS
45: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
46: i INTEGER := 1;
47: BEGIN
48: IF (p_error_tbl.COUNT > 0) THEN
49: i := p_error_tbl.FIRST;
47: BEGIN
48: IF (p_error_tbl.COUNT > 0) THEN
49: i := p_error_tbl.FIRST;
50: LOOP
51: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
52: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
53: l_return_status := p_error_tbl(i).error_type;
54: END IF;
55: END IF;
48: IF (p_error_tbl.COUNT > 0) THEN
49: i := p_error_tbl.FIRST;
50: LOOP
51: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
52: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
53: l_return_status := p_error_tbl(i).error_type;
54: END IF;
55: END IF;
56: EXIT WHEN (i = p_error_tbl.LAST);
368: ) RETURN rxhv_rec_type IS
369: l_rxhv_rec rxhv_rec_type;
370: l_row_notfound BOOLEAN := TRUE;
371: BEGIN
372: x_return_status := OKL_API.G_RET_STS_SUCCESS;
373: l_rxhv_rec := get_rec(p_rxhv_rec, l_row_notfound);
374: IF (l_row_notfound) THEN
375: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
376: x_return_status := OKL_API.G_RET_STS_ERROR;
371: BEGIN
372: x_return_status := OKL_API.G_RET_STS_SUCCESS;
373: l_rxhv_rec := get_rec(p_rxhv_rec, l_row_notfound);
374: IF (l_row_notfound) THEN
375: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
376: x_return_status := OKL_API.G_RET_STS_ERROR;
377: END IF;
378: RETURN(l_rxhv_rec);
379: END get_rec;
372: x_return_status := OKL_API.G_RET_STS_SUCCESS;
373: l_rxhv_rec := get_rec(p_rxhv_rec, l_row_notfound);
374: IF (l_row_notfound) THEN
375: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
376: x_return_status := OKL_API.G_RET_STS_ERROR;
377: END IF;
378: RETURN(l_rxhv_rec);
379: END get_rec;
380: -----------------------------------------------------------
575: ) RETURN rxh_rec_type IS
576: l_rxh_rec rxh_rec_type;
577: l_row_notfound BOOLEAN := TRUE;
578: BEGIN
579: x_return_status := OKL_API.G_RET_STS_SUCCESS;
580: l_rxh_rec := get_rec(p_rxh_rec, l_row_notfound);
581: IF (l_row_notfound) THEN
582: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
583: x_return_status := OKL_API.G_RET_STS_ERROR;
578: BEGIN
579: x_return_status := OKL_API.G_RET_STS_SUCCESS;
580: l_rxh_rec := get_rec(p_rxh_rec, l_row_notfound);
581: IF (l_row_notfound) THEN
582: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
583: x_return_status := OKL_API.G_RET_STS_ERROR;
584: END IF;
585: RETURN(l_rxh_rec);
586: END get_rec;
579: x_return_status := OKL_API.G_RET_STS_SUCCESS;
580: l_rxh_rec := get_rec(p_rxh_rec, l_row_notfound);
581: IF (l_row_notfound) THEN
582: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
583: x_return_status := OKL_API.G_RET_STS_ERROR;
584: END IF;
585: RETURN(l_rxh_rec);
586: END get_rec;
587: -----------------------------------------------------------
653: ) RETURN rxhl_rec_type IS
654: l_rxhl_rec rxhl_rec_type;
655: l_row_notfound BOOLEAN := TRUE;
656: BEGIN
657: x_return_status := OKL_API.G_RET_STS_SUCCESS;
658: l_rxhl_rec := get_rec(p_rxhl_rec, l_row_notfound);
659: IF (l_row_notfound) THEN
660: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
661: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
656: BEGIN
657: x_return_status := OKL_API.G_RET_STS_SUCCESS;
658: l_rxhl_rec := get_rec(p_rxhl_rec, l_row_notfound);
659: IF (l_row_notfound) THEN
660: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
661: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
662: x_return_status := OKL_API.G_RET_STS_ERROR;
663: END IF;
664: RETURN(l_rxhl_rec);
657: x_return_status := OKL_API.G_RET_STS_SUCCESS;
658: l_rxhl_rec := get_rec(p_rxhl_rec, l_row_notfound);
659: IF (l_row_notfound) THEN
660: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
661: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
662: x_return_status := OKL_API.G_RET_STS_ERROR;
663: END IF;
664: RETURN(l_rxhl_rec);
665: END get_rec;
658: l_rxhl_rec := get_rec(p_rxhl_rec, l_row_notfound);
659: IF (l_row_notfound) THEN
660: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
661: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
662: x_return_status := OKL_API.G_RET_STS_ERROR;
663: END IF;
664: RETURN(l_rxhl_rec);
665: END get_rec;
666: -----------------------------------------------------------
680: p_rxhv_rec IN rxhv_rec_type
681: ) RETURN rxhv_rec_type IS
682: l_rxhv_rec rxhv_rec_type := p_rxhv_rec;
683: BEGIN
684: IF (l_rxhv_rec.header_extension_id = OKL_API.G_MISS_NUM ) THEN
685: l_rxhv_rec.header_extension_id := NULL;
686: END IF;
687: IF (l_rxhv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
688: l_rxhv_rec.source_id := NULL;
683: BEGIN
684: IF (l_rxhv_rec.header_extension_id = OKL_API.G_MISS_NUM ) THEN
685: l_rxhv_rec.header_extension_id := NULL;
686: END IF;
687: IF (l_rxhv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
688: l_rxhv_rec.source_id := NULL;
689: END IF;
690: IF (l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
691: l_rxhv_rec.source_table := NULL;
686: END IF;
687: IF (l_rxhv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
688: l_rxhv_rec.source_id := NULL;
689: END IF;
690: IF (l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
691: l_rxhv_rec.source_table := NULL;
692: END IF;
693: IF (l_rxhv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
694: l_rxhv_rec.object_version_number := NULL;
689: END IF;
690: IF (l_rxhv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
691: l_rxhv_rec.source_table := NULL;
692: END IF;
693: IF (l_rxhv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
694: l_rxhv_rec.object_version_number := NULL;
695: END IF;
696: IF (l_rxhv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
697: l_rxhv_rec.khr_id := NULL;
692: END IF;
693: IF (l_rxhv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
694: l_rxhv_rec.object_version_number := NULL;
695: END IF;
696: IF (l_rxhv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
697: l_rxhv_rec.khr_id := NULL;
698: END IF;
699: IF (l_rxhv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
700: l_rxhv_rec.try_id := NULL;
695: END IF;
696: IF (l_rxhv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
697: l_rxhv_rec.khr_id := NULL;
698: END IF;
699: IF (l_rxhv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
700: l_rxhv_rec.try_id := NULL;
701: END IF;
702: IF (l_rxhv_rec.trans_number = OKL_API.G_MISS_CHAR ) THEN
703: l_rxhv_rec.trans_number := NULL;
698: END IF;
699: IF (l_rxhv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
700: l_rxhv_rec.try_id := NULL;
701: END IF;
702: IF (l_rxhv_rec.trans_number = OKL_API.G_MISS_CHAR ) THEN
703: l_rxhv_rec.trans_number := NULL;
704: END IF;
705: IF (l_rxhv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
706: l_rxhv_rec.contract_number := NULL;
701: END IF;
702: IF (l_rxhv_rec.trans_number = OKL_API.G_MISS_CHAR ) THEN
703: l_rxhv_rec.trans_number := NULL;
704: END IF;
705: IF (l_rxhv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
706: l_rxhv_rec.contract_number := NULL;
707: END IF;
708: IF (l_rxhv_rec.product_name = OKL_API.G_MISS_CHAR ) THEN
709: l_rxhv_rec.product_name := NULL;
704: END IF;
705: IF (l_rxhv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
706: l_rxhv_rec.contract_number := NULL;
707: END IF;
708: IF (l_rxhv_rec.product_name = OKL_API.G_MISS_CHAR ) THEN
709: l_rxhv_rec.product_name := NULL;
710: END IF;
711: IF (l_rxhv_rec.book_classification_code = OKL_API.G_MISS_CHAR ) THEN
712: l_rxhv_rec.book_classification_code := NULL;
707: END IF;
708: IF (l_rxhv_rec.product_name = OKL_API.G_MISS_CHAR ) THEN
709: l_rxhv_rec.product_name := NULL;
710: END IF;
711: IF (l_rxhv_rec.book_classification_code = OKL_API.G_MISS_CHAR ) THEN
712: l_rxhv_rec.book_classification_code := NULL;
713: END IF;
714: IF (l_rxhv_rec.tax_owner_code = OKL_API.G_MISS_CHAR ) THEN
715: l_rxhv_rec.tax_owner_code := NULL;
710: END IF;
711: IF (l_rxhv_rec.book_classification_code = OKL_API.G_MISS_CHAR ) THEN
712: l_rxhv_rec.book_classification_code := NULL;
713: END IF;
714: IF (l_rxhv_rec.tax_owner_code = OKL_API.G_MISS_CHAR ) THEN
715: l_rxhv_rec.tax_owner_code := NULL;
716: END IF;
717: IF (l_rxhv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
718: l_rxhv_rec.int_calc_method_code := NULL;
713: END IF;
714: IF (l_rxhv_rec.tax_owner_code = OKL_API.G_MISS_CHAR ) THEN
715: l_rxhv_rec.tax_owner_code := NULL;
716: END IF;
717: IF (l_rxhv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
718: l_rxhv_rec.int_calc_method_code := NULL;
719: END IF;
720: IF (l_rxhv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
721: l_rxhv_rec.rev_rec_method_code := NULL;
716: END IF;
717: IF (l_rxhv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
718: l_rxhv_rec.int_calc_method_code := NULL;
719: END IF;
720: IF (l_rxhv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
721: l_rxhv_rec.rev_rec_method_code := NULL;
722: END IF;
723: IF (l_rxhv_rec.scs_code = OKL_API.G_MISS_CHAR ) THEN
724: l_rxhv_rec.scs_code := NULL;
719: END IF;
720: IF (l_rxhv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
721: l_rxhv_rec.rev_rec_method_code := NULL;
722: END IF;
723: IF (l_rxhv_rec.scs_code = OKL_API.G_MISS_CHAR ) THEN
724: l_rxhv_rec.scs_code := NULL;
725: END IF;
726: IF (l_rxhv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
727: l_rxhv_rec.converted_number := NULL;
722: END IF;
723: IF (l_rxhv_rec.scs_code = OKL_API.G_MISS_CHAR ) THEN
724: l_rxhv_rec.scs_code := NULL;
725: END IF;
726: IF (l_rxhv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
727: l_rxhv_rec.converted_number := NULL;
728: END IF;
729: IF (l_rxhv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
730: l_rxhv_rec.contract_effective_from := NULL;
725: END IF;
726: IF (l_rxhv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
727: l_rxhv_rec.converted_number := NULL;
728: END IF;
729: IF (l_rxhv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
730: l_rxhv_rec.contract_effective_from := NULL;
731: END IF;
732: IF (l_rxhv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
733: l_rxhv_rec.contract_currency_code := NULL;
728: END IF;
729: IF (l_rxhv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
730: l_rxhv_rec.contract_effective_from := NULL;
731: END IF;
732: IF (l_rxhv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
733: l_rxhv_rec.contract_currency_code := NULL;
734: END IF;
735: IF (l_rxhv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
736: l_rxhv_rec.sales_rep_name := NULL;
731: END IF;
732: IF (l_rxhv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
733: l_rxhv_rec.contract_currency_code := NULL;
734: END IF;
735: IF (l_rxhv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
736: l_rxhv_rec.sales_rep_name := NULL;
737: END IF;
738: IF (l_rxhv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
739: l_rxhv_rec.po_order_number := NULL;
734: END IF;
735: IF (l_rxhv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
736: l_rxhv_rec.sales_rep_name := NULL;
737: END IF;
738: IF (l_rxhv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
739: l_rxhv_rec.po_order_number := NULL;
740: END IF;
741: IF (l_rxhv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
742: l_rxhv_rec.vendor_program_number := NULL;
737: END IF;
738: IF (l_rxhv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
739: l_rxhv_rec.po_order_number := NULL;
740: END IF;
741: IF (l_rxhv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
742: l_rxhv_rec.vendor_program_number := NULL;
743: END IF;
744: IF (l_rxhv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
745: l_rxhv_rec.assignable_flag := NULL;
740: END IF;
741: IF (l_rxhv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
742: l_rxhv_rec.vendor_program_number := NULL;
743: END IF;
744: IF (l_rxhv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
745: l_rxhv_rec.assignable_flag := NULL;
746: END IF;
747: IF (l_rxhv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
748: l_rxhv_rec.converted_account_flag := NULL;
743: END IF;
744: IF (l_rxhv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
745: l_rxhv_rec.assignable_flag := NULL;
746: END IF;
747: IF (l_rxhv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
748: l_rxhv_rec.converted_account_flag := NULL;
749: END IF;
750: IF (l_rxhv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
751: l_rxhv_rec.accrual_override_flag := NULL;
746: END IF;
747: IF (l_rxhv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
748: l_rxhv_rec.converted_account_flag := NULL;
749: END IF;
750: IF (l_rxhv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
751: l_rxhv_rec.accrual_override_flag := NULL;
752: END IF;
753: IF (l_rxhv_rec.term_quote_accept_date = OKL_API.G_MISS_DATE ) THEN
754: l_rxhv_rec.term_quote_accept_date := NULL;
749: END IF;
750: IF (l_rxhv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
751: l_rxhv_rec.accrual_override_flag := NULL;
752: END IF;
753: IF (l_rxhv_rec.term_quote_accept_date = OKL_API.G_MISS_DATE ) THEN
754: l_rxhv_rec.term_quote_accept_date := NULL;
755: END IF;
756: IF (l_rxhv_rec.term_quote_num = OKL_API.G_MISS_NUM ) THEN
757: l_rxhv_rec.term_quote_num := NULL;
752: END IF;
753: IF (l_rxhv_rec.term_quote_accept_date = OKL_API.G_MISS_DATE ) THEN
754: l_rxhv_rec.term_quote_accept_date := NULL;
755: END IF;
756: IF (l_rxhv_rec.term_quote_num = OKL_API.G_MISS_NUM ) THEN
757: l_rxhv_rec.term_quote_num := NULL;
758: END IF;
759: IF (l_rxhv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
760: l_rxhv_rec.term_quote_type_code := NULL;
755: END IF;
756: IF (l_rxhv_rec.term_quote_num = OKL_API.G_MISS_NUM ) THEN
757: l_rxhv_rec.term_quote_num := NULL;
758: END IF;
759: IF (l_rxhv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
760: l_rxhv_rec.term_quote_type_code := NULL;
761: END IF;
762: IF (l_rxhv_rec.khr_attribute_category = OKL_API.G_MISS_CHAR ) THEN
763: l_rxhv_rec.khr_attribute_category := NULL;
758: END IF;
759: IF (l_rxhv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
760: l_rxhv_rec.term_quote_type_code := NULL;
761: END IF;
762: IF (l_rxhv_rec.khr_attribute_category = OKL_API.G_MISS_CHAR ) THEN
763: l_rxhv_rec.khr_attribute_category := NULL;
764: END IF;
765: IF (l_rxhv_rec.khr_attribute1 = OKL_API.G_MISS_CHAR ) THEN
766: l_rxhv_rec.khr_attribute1 := NULL;
761: END IF;
762: IF (l_rxhv_rec.khr_attribute_category = OKL_API.G_MISS_CHAR ) THEN
763: l_rxhv_rec.khr_attribute_category := NULL;
764: END IF;
765: IF (l_rxhv_rec.khr_attribute1 = OKL_API.G_MISS_CHAR ) THEN
766: l_rxhv_rec.khr_attribute1 := NULL;
767: END IF;
768: IF (l_rxhv_rec.khr_attribute2 = OKL_API.G_MISS_CHAR ) THEN
769: l_rxhv_rec.khr_attribute2 := NULL;
764: END IF;
765: IF (l_rxhv_rec.khr_attribute1 = OKL_API.G_MISS_CHAR ) THEN
766: l_rxhv_rec.khr_attribute1 := NULL;
767: END IF;
768: IF (l_rxhv_rec.khr_attribute2 = OKL_API.G_MISS_CHAR ) THEN
769: l_rxhv_rec.khr_attribute2 := NULL;
770: END IF;
771: IF (l_rxhv_rec.khr_attribute3 = OKL_API.G_MISS_CHAR ) THEN
772: l_rxhv_rec.khr_attribute3 := NULL;
767: END IF;
768: IF (l_rxhv_rec.khr_attribute2 = OKL_API.G_MISS_CHAR ) THEN
769: l_rxhv_rec.khr_attribute2 := NULL;
770: END IF;
771: IF (l_rxhv_rec.khr_attribute3 = OKL_API.G_MISS_CHAR ) THEN
772: l_rxhv_rec.khr_attribute3 := NULL;
773: END IF;
774: IF (l_rxhv_rec.khr_attribute4 = OKL_API.G_MISS_CHAR ) THEN
775: l_rxhv_rec.khr_attribute4 := NULL;
770: END IF;
771: IF (l_rxhv_rec.khr_attribute3 = OKL_API.G_MISS_CHAR ) THEN
772: l_rxhv_rec.khr_attribute3 := NULL;
773: END IF;
774: IF (l_rxhv_rec.khr_attribute4 = OKL_API.G_MISS_CHAR ) THEN
775: l_rxhv_rec.khr_attribute4 := NULL;
776: END IF;
777: IF (l_rxhv_rec.khr_attribute5 = OKL_API.G_MISS_CHAR ) THEN
778: l_rxhv_rec.khr_attribute5 := NULL;
773: END IF;
774: IF (l_rxhv_rec.khr_attribute4 = OKL_API.G_MISS_CHAR ) THEN
775: l_rxhv_rec.khr_attribute4 := NULL;
776: END IF;
777: IF (l_rxhv_rec.khr_attribute5 = OKL_API.G_MISS_CHAR ) THEN
778: l_rxhv_rec.khr_attribute5 := NULL;
779: END IF;
780: IF (l_rxhv_rec.khr_attribute6 = OKL_API.G_MISS_CHAR ) THEN
781: l_rxhv_rec.khr_attribute6 := NULL;
776: END IF;
777: IF (l_rxhv_rec.khr_attribute5 = OKL_API.G_MISS_CHAR ) THEN
778: l_rxhv_rec.khr_attribute5 := NULL;
779: END IF;
780: IF (l_rxhv_rec.khr_attribute6 = OKL_API.G_MISS_CHAR ) THEN
781: l_rxhv_rec.khr_attribute6 := NULL;
782: END IF;
783: IF (l_rxhv_rec.khr_attribute7 = OKL_API.G_MISS_CHAR ) THEN
784: l_rxhv_rec.khr_attribute7 := NULL;
779: END IF;
780: IF (l_rxhv_rec.khr_attribute6 = OKL_API.G_MISS_CHAR ) THEN
781: l_rxhv_rec.khr_attribute6 := NULL;
782: END IF;
783: IF (l_rxhv_rec.khr_attribute7 = OKL_API.G_MISS_CHAR ) THEN
784: l_rxhv_rec.khr_attribute7 := NULL;
785: END IF;
786: IF (l_rxhv_rec.khr_attribute8 = OKL_API.G_MISS_CHAR ) THEN
787: l_rxhv_rec.khr_attribute8 := NULL;
782: END IF;
783: IF (l_rxhv_rec.khr_attribute7 = OKL_API.G_MISS_CHAR ) THEN
784: l_rxhv_rec.khr_attribute7 := NULL;
785: END IF;
786: IF (l_rxhv_rec.khr_attribute8 = OKL_API.G_MISS_CHAR ) THEN
787: l_rxhv_rec.khr_attribute8 := NULL;
788: END IF;
789: IF (l_rxhv_rec.khr_attribute9 = OKL_API.G_MISS_CHAR ) THEN
790: l_rxhv_rec.khr_attribute9 := NULL;
785: END IF;
786: IF (l_rxhv_rec.khr_attribute8 = OKL_API.G_MISS_CHAR ) THEN
787: l_rxhv_rec.khr_attribute8 := NULL;
788: END IF;
789: IF (l_rxhv_rec.khr_attribute9 = OKL_API.G_MISS_CHAR ) THEN
790: l_rxhv_rec.khr_attribute9 := NULL;
791: END IF;
792: IF (l_rxhv_rec.khr_attribute10 = OKL_API.G_MISS_CHAR ) THEN
793: l_rxhv_rec.khr_attribute10 := NULL;
788: END IF;
789: IF (l_rxhv_rec.khr_attribute9 = OKL_API.G_MISS_CHAR ) THEN
790: l_rxhv_rec.khr_attribute9 := NULL;
791: END IF;
792: IF (l_rxhv_rec.khr_attribute10 = OKL_API.G_MISS_CHAR ) THEN
793: l_rxhv_rec.khr_attribute10 := NULL;
794: END IF;
795: IF (l_rxhv_rec.khr_attribute11 = OKL_API.G_MISS_CHAR ) THEN
796: l_rxhv_rec.khr_attribute11 := NULL;
791: END IF;
792: IF (l_rxhv_rec.khr_attribute10 = OKL_API.G_MISS_CHAR ) THEN
793: l_rxhv_rec.khr_attribute10 := NULL;
794: END IF;
795: IF (l_rxhv_rec.khr_attribute11 = OKL_API.G_MISS_CHAR ) THEN
796: l_rxhv_rec.khr_attribute11 := NULL;
797: END IF;
798: IF (l_rxhv_rec.khr_attribute12 = OKL_API.G_MISS_CHAR ) THEN
799: l_rxhv_rec.khr_attribute12 := NULL;
794: END IF;
795: IF (l_rxhv_rec.khr_attribute11 = OKL_API.G_MISS_CHAR ) THEN
796: l_rxhv_rec.khr_attribute11 := NULL;
797: END IF;
798: IF (l_rxhv_rec.khr_attribute12 = OKL_API.G_MISS_CHAR ) THEN
799: l_rxhv_rec.khr_attribute12 := NULL;
800: END IF;
801: IF (l_rxhv_rec.khr_attribute13 = OKL_API.G_MISS_CHAR ) THEN
802: l_rxhv_rec.khr_attribute13 := NULL;
797: END IF;
798: IF (l_rxhv_rec.khr_attribute12 = OKL_API.G_MISS_CHAR ) THEN
799: l_rxhv_rec.khr_attribute12 := NULL;
800: END IF;
801: IF (l_rxhv_rec.khr_attribute13 = OKL_API.G_MISS_CHAR ) THEN
802: l_rxhv_rec.khr_attribute13 := NULL;
803: END IF;
804: IF (l_rxhv_rec.khr_attribute14 = OKL_API.G_MISS_CHAR ) THEN
805: l_rxhv_rec.khr_attribute14 := NULL;
800: END IF;
801: IF (l_rxhv_rec.khr_attribute13 = OKL_API.G_MISS_CHAR ) THEN
802: l_rxhv_rec.khr_attribute13 := NULL;
803: END IF;
804: IF (l_rxhv_rec.khr_attribute14 = OKL_API.G_MISS_CHAR ) THEN
805: l_rxhv_rec.khr_attribute14 := NULL;
806: END IF;
807: IF (l_rxhv_rec.khr_attribute15 = OKL_API.G_MISS_CHAR ) THEN
808: l_rxhv_rec.khr_attribute15 := NULL;
803: END IF;
804: IF (l_rxhv_rec.khr_attribute14 = OKL_API.G_MISS_CHAR ) THEN
805: l_rxhv_rec.khr_attribute14 := NULL;
806: END IF;
807: IF (l_rxhv_rec.khr_attribute15 = OKL_API.G_MISS_CHAR ) THEN
808: l_rxhv_rec.khr_attribute15 := NULL;
809: END IF;
810: IF (l_rxhv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
811: l_rxhv_rec.cust_attribute_category := NULL;
806: END IF;
807: IF (l_rxhv_rec.khr_attribute15 = OKL_API.G_MISS_CHAR ) THEN
808: l_rxhv_rec.khr_attribute15 := NULL;
809: END IF;
810: IF (l_rxhv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
811: l_rxhv_rec.cust_attribute_category := NULL;
812: END IF;
813: IF (l_rxhv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
814: l_rxhv_rec.cust_attribute1 := NULL;
809: END IF;
810: IF (l_rxhv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
811: l_rxhv_rec.cust_attribute_category := NULL;
812: END IF;
813: IF (l_rxhv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
814: l_rxhv_rec.cust_attribute1 := NULL;
815: END IF;
816: IF (l_rxhv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
817: l_rxhv_rec.cust_attribute2 := NULL;
812: END IF;
813: IF (l_rxhv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
814: l_rxhv_rec.cust_attribute1 := NULL;
815: END IF;
816: IF (l_rxhv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
817: l_rxhv_rec.cust_attribute2 := NULL;
818: END IF;
819: IF (l_rxhv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
820: l_rxhv_rec.cust_attribute3 := NULL;
815: END IF;
816: IF (l_rxhv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
817: l_rxhv_rec.cust_attribute2 := NULL;
818: END IF;
819: IF (l_rxhv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
820: l_rxhv_rec.cust_attribute3 := NULL;
821: END IF;
822: IF (l_rxhv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
823: l_rxhv_rec.cust_attribute4 := NULL;
818: END IF;
819: IF (l_rxhv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
820: l_rxhv_rec.cust_attribute3 := NULL;
821: END IF;
822: IF (l_rxhv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
823: l_rxhv_rec.cust_attribute4 := NULL;
824: END IF;
825: IF (l_rxhv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
826: l_rxhv_rec.cust_attribute5 := NULL;
821: END IF;
822: IF (l_rxhv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
823: l_rxhv_rec.cust_attribute4 := NULL;
824: END IF;
825: IF (l_rxhv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
826: l_rxhv_rec.cust_attribute5 := NULL;
827: END IF;
828: IF (l_rxhv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
829: l_rxhv_rec.cust_attribute6 := NULL;
824: END IF;
825: IF (l_rxhv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
826: l_rxhv_rec.cust_attribute5 := NULL;
827: END IF;
828: IF (l_rxhv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
829: l_rxhv_rec.cust_attribute6 := NULL;
830: END IF;
831: IF (l_rxhv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
832: l_rxhv_rec.cust_attribute7 := NULL;
827: END IF;
828: IF (l_rxhv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
829: l_rxhv_rec.cust_attribute6 := NULL;
830: END IF;
831: IF (l_rxhv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
832: l_rxhv_rec.cust_attribute7 := NULL;
833: END IF;
834: IF (l_rxhv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
835: l_rxhv_rec.cust_attribute8 := NULL;
830: END IF;
831: IF (l_rxhv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
832: l_rxhv_rec.cust_attribute7 := NULL;
833: END IF;
834: IF (l_rxhv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
835: l_rxhv_rec.cust_attribute8 := NULL;
836: END IF;
837: IF (l_rxhv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
838: l_rxhv_rec.cust_attribute9 := NULL;
833: END IF;
834: IF (l_rxhv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
835: l_rxhv_rec.cust_attribute8 := NULL;
836: END IF;
837: IF (l_rxhv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
838: l_rxhv_rec.cust_attribute9 := NULL;
839: END IF;
840: IF (l_rxhv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
841: l_rxhv_rec.cust_attribute10 := NULL;
836: END IF;
837: IF (l_rxhv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
838: l_rxhv_rec.cust_attribute9 := NULL;
839: END IF;
840: IF (l_rxhv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
841: l_rxhv_rec.cust_attribute10 := NULL;
842: END IF;
843: IF (l_rxhv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
844: l_rxhv_rec.cust_attribute11 := NULL;
839: END IF;
840: IF (l_rxhv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
841: l_rxhv_rec.cust_attribute10 := NULL;
842: END IF;
843: IF (l_rxhv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
844: l_rxhv_rec.cust_attribute11 := NULL;
845: END IF;
846: IF (l_rxhv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
847: l_rxhv_rec.cust_attribute12 := NULL;
842: END IF;
843: IF (l_rxhv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
844: l_rxhv_rec.cust_attribute11 := NULL;
845: END IF;
846: IF (l_rxhv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
847: l_rxhv_rec.cust_attribute12 := NULL;
848: END IF;
849: IF (l_rxhv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
850: l_rxhv_rec.cust_attribute13 := NULL;
845: END IF;
846: IF (l_rxhv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
847: l_rxhv_rec.cust_attribute12 := NULL;
848: END IF;
849: IF (l_rxhv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
850: l_rxhv_rec.cust_attribute13 := NULL;
851: END IF;
852: IF (l_rxhv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
853: l_rxhv_rec.cust_attribute14 := NULL;
848: END IF;
849: IF (l_rxhv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
850: l_rxhv_rec.cust_attribute13 := NULL;
851: END IF;
852: IF (l_rxhv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
853: l_rxhv_rec.cust_attribute14 := NULL;
854: END IF;
855: IF (l_rxhv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
856: l_rxhv_rec.cust_attribute15 := NULL;
851: END IF;
852: IF (l_rxhv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
853: l_rxhv_rec.cust_attribute14 := NULL;
854: END IF;
855: IF (l_rxhv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
856: l_rxhv_rec.cust_attribute15 := NULL;
857: END IF;
858: IF (l_rxhv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
859: l_rxhv_rec.rent_ia_contract_number := NULL;
854: END IF;
855: IF (l_rxhv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
856: l_rxhv_rec.cust_attribute15 := NULL;
857: END IF;
858: IF (l_rxhv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
859: l_rxhv_rec.rent_ia_contract_number := NULL;
860: END IF;
861: IF (l_rxhv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
862: l_rxhv_rec.rent_ia_product_name := NULL;
857: END IF;
858: IF (l_rxhv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
859: l_rxhv_rec.rent_ia_contract_number := NULL;
860: END IF;
861: IF (l_rxhv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
862: l_rxhv_rec.rent_ia_product_name := NULL;
863: END IF;
864: IF (l_rxhv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
865: l_rxhv_rec.rent_ia_accounting_code := NULL;
860: END IF;
861: IF (l_rxhv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
862: l_rxhv_rec.rent_ia_product_name := NULL;
863: END IF;
864: IF (l_rxhv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
865: l_rxhv_rec.rent_ia_accounting_code := NULL;
866: END IF;
867: IF (l_rxhv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
868: l_rxhv_rec.res_ia_contract_number := NULL;
863: END IF;
864: IF (l_rxhv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
865: l_rxhv_rec.rent_ia_accounting_code := NULL;
866: END IF;
867: IF (l_rxhv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
868: l_rxhv_rec.res_ia_contract_number := NULL;
869: END IF;
870: IF (l_rxhv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
871: l_rxhv_rec.res_ia_product_name := NULL;
866: END IF;
867: IF (l_rxhv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
868: l_rxhv_rec.res_ia_contract_number := NULL;
869: END IF;
870: IF (l_rxhv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
871: l_rxhv_rec.res_ia_product_name := NULL;
872: END IF;
873: IF (l_rxhv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
874: l_rxhv_rec.res_ia_accounting_code := NULL;
869: END IF;
870: IF (l_rxhv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
871: l_rxhv_rec.res_ia_product_name := NULL;
872: END IF;
873: IF (l_rxhv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
874: l_rxhv_rec.res_ia_accounting_code := NULL;
875: END IF;
876: IF (l_rxhv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
877: l_rxhv_rec.inv_agrmnt_number := NULL;
872: END IF;
873: IF (l_rxhv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
874: l_rxhv_rec.res_ia_accounting_code := NULL;
875: END IF;
876: IF (l_rxhv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
877: l_rxhv_rec.inv_agrmnt_number := NULL;
878: END IF;
879: IF (l_rxhv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
880: l_rxhv_rec.inv_agrmnt_effective_from := NULL;
875: END IF;
876: IF (l_rxhv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
877: l_rxhv_rec.inv_agrmnt_number := NULL;
878: END IF;
879: IF (l_rxhv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
880: l_rxhv_rec.inv_agrmnt_effective_from := NULL;
881: END IF;
882: IF (l_rxhv_rec.inv_agrmnt_product_name = OKL_API.G_MISS_CHAR ) THEN
883: l_rxhv_rec.inv_agrmnt_product_name := NULL;
878: END IF;
879: IF (l_rxhv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
880: l_rxhv_rec.inv_agrmnt_effective_from := NULL;
881: END IF;
882: IF (l_rxhv_rec.inv_agrmnt_product_name = OKL_API.G_MISS_CHAR ) THEN
883: l_rxhv_rec.inv_agrmnt_product_name := NULL;
884: END IF;
885: IF (l_rxhv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
886: l_rxhv_rec.inv_agrmnt_currency_code := NULL;
881: END IF;
882: IF (l_rxhv_rec.inv_agrmnt_product_name = OKL_API.G_MISS_CHAR ) THEN
883: l_rxhv_rec.inv_agrmnt_product_name := NULL;
884: END IF;
885: IF (l_rxhv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
886: l_rxhv_rec.inv_agrmnt_currency_code := NULL;
887: END IF;
888: IF (l_rxhv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
889: l_rxhv_rec.inv_agrmnt_synd_code := NULL;
884: END IF;
885: IF (l_rxhv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
886: l_rxhv_rec.inv_agrmnt_currency_code := NULL;
887: END IF;
888: IF (l_rxhv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
889: l_rxhv_rec.inv_agrmnt_synd_code := NULL;
890: END IF;
891: IF (l_rxhv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
892: l_rxhv_rec.inv_agrmnt_pool_number := NULL;
887: END IF;
888: IF (l_rxhv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
889: l_rxhv_rec.inv_agrmnt_synd_code := NULL;
890: END IF;
891: IF (l_rxhv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
892: l_rxhv_rec.inv_agrmnt_pool_number := NULL;
893: END IF;
894: IF (l_rxhv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
895: l_rxhv_rec.contract_status_code := NULL;
890: END IF;
891: IF (l_rxhv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
892: l_rxhv_rec.inv_agrmnt_pool_number := NULL;
893: END IF;
894: IF (l_rxhv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
895: l_rxhv_rec.contract_status_code := NULL;
896: END IF;
897: IF (l_rxhv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
898: l_rxhv_rec.inv_agrmnt_status_code := NULL;
893: END IF;
894: IF (l_rxhv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
895: l_rxhv_rec.contract_status_code := NULL;
896: END IF;
897: IF (l_rxhv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
898: l_rxhv_rec.inv_agrmnt_status_code := NULL;
899: END IF;
900: IF (l_rxhv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
901: l_rxhv_rec.trx_type_class_code := NULL;
896: END IF;
897: IF (l_rxhv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
898: l_rxhv_rec.inv_agrmnt_status_code := NULL;
899: END IF;
900: IF (l_rxhv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
901: l_rxhv_rec.trx_type_class_code := NULL;
902: END IF;
903: IF (l_rxhv_rec.language = OKL_API.G_MISS_CHAR ) THEN
904: l_rxhv_rec.language := NULL;
899: END IF;
900: IF (l_rxhv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
901: l_rxhv_rec.trx_type_class_code := NULL;
902: END IF;
903: IF (l_rxhv_rec.language = OKL_API.G_MISS_CHAR ) THEN
904: l_rxhv_rec.language := NULL;
905: END IF;
906: IF (l_rxhv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
907: l_rxhv_rec.contract_status := NULL;
902: END IF;
903: IF (l_rxhv_rec.language = OKL_API.G_MISS_CHAR ) THEN
904: l_rxhv_rec.language := NULL;
905: END IF;
906: IF (l_rxhv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
907: l_rxhv_rec.contract_status := NULL;
908: END IF;
909: IF (l_rxhv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
910: l_rxhv_rec.inv_agrmnt_status := NULL;
905: END IF;
906: IF (l_rxhv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
907: l_rxhv_rec.contract_status := NULL;
908: END IF;
909: IF (l_rxhv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
910: l_rxhv_rec.inv_agrmnt_status := NULL;
911: END IF;
912: IF (l_rxhv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
913: l_rxhv_rec.transaction_type_name := NULL;
908: END IF;
909: IF (l_rxhv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
910: l_rxhv_rec.inv_agrmnt_status := NULL;
911: END IF;
912: IF (l_rxhv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
913: l_rxhv_rec.transaction_type_name := NULL;
914: END IF;
915: IF (l_rxhv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
916: l_rxhv_rec.created_by := NULL;
911: END IF;
912: IF (l_rxhv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
913: l_rxhv_rec.transaction_type_name := NULL;
914: END IF;
915: IF (l_rxhv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
916: l_rxhv_rec.created_by := NULL;
917: END IF;
918: IF (l_rxhv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
919: l_rxhv_rec.creation_date := NULL;
914: END IF;
915: IF (l_rxhv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
916: l_rxhv_rec.created_by := NULL;
917: END IF;
918: IF (l_rxhv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
919: l_rxhv_rec.creation_date := NULL;
920: END IF;
921: IF (l_rxhv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
922: l_rxhv_rec.last_updated_by := NULL;
917: END IF;
918: IF (l_rxhv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
919: l_rxhv_rec.creation_date := NULL;
920: END IF;
921: IF (l_rxhv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
922: l_rxhv_rec.last_updated_by := NULL;
923: END IF;
924: IF (l_rxhv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
925: l_rxhv_rec.last_update_date := NULL;
920: END IF;
921: IF (l_rxhv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
922: l_rxhv_rec.last_updated_by := NULL;
923: END IF;
924: IF (l_rxhv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
925: l_rxhv_rec.last_update_date := NULL;
926: END IF;
927: IF (l_rxhv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
928: l_rxhv_rec.last_update_login := NULL;
923: END IF;
924: IF (l_rxhv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
925: l_rxhv_rec.last_update_date := NULL;
926: END IF;
927: IF (l_rxhv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
928: l_rxhv_rec.last_update_login := NULL;
929: END IF;
930: RETURN(l_rxhv_rec);
931: END null_out_defaults;
935: PROCEDURE validate_header_extension_id(
936: x_return_status OUT NOCOPY VARCHAR2,
937: p_header_extension_id IN NUMBER) IS
938: BEGIN
939: x_return_status := OKL_API.G_RET_STS_SUCCESS;
940: IF (p_header_extension_id IS NULL) THEN
941: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
942: x_return_status := OKL_API.G_RET_STS_ERROR;
943: RAISE G_EXCEPTION_HALT_VALIDATION;
937: p_header_extension_id IN NUMBER) IS
938: BEGIN
939: x_return_status := OKL_API.G_RET_STS_SUCCESS;
940: IF (p_header_extension_id IS NULL) THEN
941: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
942: x_return_status := OKL_API.G_RET_STS_ERROR;
943: RAISE G_EXCEPTION_HALT_VALIDATION;
944: END IF;
945: EXCEPTION
938: BEGIN
939: x_return_status := OKL_API.G_RET_STS_SUCCESS;
940: IF (p_header_extension_id IS NULL) THEN
941: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
942: x_return_status := OKL_API.G_RET_STS_ERROR;
943: RAISE G_EXCEPTION_HALT_VALIDATION;
944: END IF;
945: EXCEPTION
946: WHEN G_EXCEPTION_HALT_VALIDATION THEN
945: EXCEPTION
946: WHEN G_EXCEPTION_HALT_VALIDATION THEN
947: null;
948: WHEN OTHERS THEN
949: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
950: ,p_msg_name => G_UNEXPECTED_ERROR
951: ,p_token1 => G_SQLCODE_TOKEN
952: ,p_token1_value => SQLCODE
953: ,p_token2 => G_SQLERRM_TOKEN
951: ,p_token1 => G_SQLCODE_TOKEN
952: ,p_token1_value => SQLCODE
953: ,p_token2 => G_SQLERRM_TOKEN
954: ,p_token2_value => SQLERRM);
955: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
956: END validate_header_extension_id;
957: ----------------------------------------
958: -- Validate_Attributes for: SOURCE_ID --
959: ----------------------------------------
960: PROCEDURE validate_source_id(
961: x_return_status OUT NOCOPY VARCHAR2,
962: p_source_id IN NUMBER) IS
963: BEGIN
964: x_return_status := OKL_API.G_RET_STS_SUCCESS;
965: IF (p_source_id IS NULL) THEN
966: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
967: x_return_status := OKL_API.G_RET_STS_ERROR;
968: RAISE G_EXCEPTION_HALT_VALIDATION;
962: p_source_id IN NUMBER) IS
963: BEGIN
964: x_return_status := OKL_API.G_RET_STS_SUCCESS;
965: IF (p_source_id IS NULL) THEN
966: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
967: x_return_status := OKL_API.G_RET_STS_ERROR;
968: RAISE G_EXCEPTION_HALT_VALIDATION;
969: END IF;
970: EXCEPTION
963: BEGIN
964: x_return_status := OKL_API.G_RET_STS_SUCCESS;
965: IF (p_source_id IS NULL) THEN
966: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
967: x_return_status := OKL_API.G_RET_STS_ERROR;
968: RAISE G_EXCEPTION_HALT_VALIDATION;
969: END IF;
970: EXCEPTION
971: WHEN G_EXCEPTION_HALT_VALIDATION THEN
970: EXCEPTION
971: WHEN G_EXCEPTION_HALT_VALIDATION THEN
972: null;
973: WHEN OTHERS THEN
974: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
975: ,p_msg_name => G_UNEXPECTED_ERROR
976: ,p_token1 => G_SQLCODE_TOKEN
977: ,p_token1_value => SQLCODE
978: ,p_token2 => G_SQLERRM_TOKEN
976: ,p_token1 => G_SQLCODE_TOKEN
977: ,p_token1_value => SQLCODE
978: ,p_token2 => G_SQLERRM_TOKEN
979: ,p_token2_value => SQLERRM);
980: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
981: END validate_source_id;
982: -------------------------------------------
983: -- Validate_Attributes for: SOURCE_TABLE --
984: -------------------------------------------
985: PROCEDURE validate_source_table(
986: x_return_status OUT NOCOPY VARCHAR2,
987: p_source_table IN VARCHAR2) IS
988: BEGIN
989: x_return_status := OKL_API.G_RET_STS_SUCCESS;
990: IF (p_source_table IS NULL) THEN
991: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
992: x_return_status := OKL_API.G_RET_STS_ERROR;
993: RAISE G_EXCEPTION_HALT_VALIDATION;
987: p_source_table IN VARCHAR2) IS
988: BEGIN
989: x_return_status := OKL_API.G_RET_STS_SUCCESS;
990: IF (p_source_table IS NULL) THEN
991: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
992: x_return_status := OKL_API.G_RET_STS_ERROR;
993: RAISE G_EXCEPTION_HALT_VALIDATION;
994: END IF;
995: EXCEPTION
988: BEGIN
989: x_return_status := OKL_API.G_RET_STS_SUCCESS;
990: IF (p_source_table IS NULL) THEN
991: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
992: x_return_status := OKL_API.G_RET_STS_ERROR;
993: RAISE G_EXCEPTION_HALT_VALIDATION;
994: END IF;
995: EXCEPTION
996: WHEN G_EXCEPTION_HALT_VALIDATION THEN
995: EXCEPTION
996: WHEN G_EXCEPTION_HALT_VALIDATION THEN
997: null;
998: WHEN OTHERS THEN
999: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1000: ,p_msg_name => G_UNEXPECTED_ERROR
1001: ,p_token1 => G_SQLCODE_TOKEN
1002: ,p_token1_value => SQLCODE
1003: ,p_token2 => G_SQLERRM_TOKEN
1001: ,p_token1 => G_SQLCODE_TOKEN
1002: ,p_token1_value => SQLCODE
1003: ,p_token2 => G_SQLERRM_TOKEN
1004: ,p_token2_value => SQLERRM);
1005: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1006: END validate_source_table;
1007: ----------------------------------------------------
1008: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
1009: ----------------------------------------------------
1010: PROCEDURE validate_object_version_number(
1011: x_return_status OUT NOCOPY VARCHAR2,
1012: p_object_version_number IN NUMBER) IS
1013: BEGIN
1014: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1015: IF (p_object_version_number IS NULL) THEN
1016: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1017: x_return_status := OKL_API.G_RET_STS_ERROR;
1018: RAISE G_EXCEPTION_HALT_VALIDATION;
1012: p_object_version_number IN NUMBER) IS
1013: BEGIN
1014: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1015: IF (p_object_version_number IS NULL) THEN
1016: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1017: x_return_status := OKL_API.G_RET_STS_ERROR;
1018: RAISE G_EXCEPTION_HALT_VALIDATION;
1019: END IF;
1020: EXCEPTION
1013: BEGIN
1014: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1015: IF (p_object_version_number IS NULL) THEN
1016: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1017: x_return_status := OKL_API.G_RET_STS_ERROR;
1018: RAISE G_EXCEPTION_HALT_VALIDATION;
1019: END IF;
1020: EXCEPTION
1021: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1020: EXCEPTION
1021: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1022: null;
1023: WHEN OTHERS THEN
1024: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1025: ,p_msg_name => G_UNEXPECTED_ERROR
1026: ,p_token1 => G_SQLCODE_TOKEN
1027: ,p_token1_value => SQLCODE
1028: ,p_token2 => G_SQLERRM_TOKEN
1026: ,p_token1 => G_SQLCODE_TOKEN
1027: ,p_token1_value => SQLCODE
1028: ,p_token2 => G_SQLERRM_TOKEN
1029: ,p_token2_value => SQLERRM);
1030: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1031: END validate_object_version_number;
1032: -------------------------------------
1033: -- Validate_Attributes for: KHR_ID --
1034: -------------------------------------
1035: PROCEDURE validate_khr_id(
1036: x_return_status OUT NOCOPY VARCHAR2,
1037: p_khr_id IN NUMBER) IS
1038: BEGIN
1039: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1040: IF (p_khr_id IS NULL) THEN
1041: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
1042: x_return_status := OKL_API.G_RET_STS_ERROR;
1043: RAISE G_EXCEPTION_HALT_VALIDATION;
1037: p_khr_id IN NUMBER) IS
1038: BEGIN
1039: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1040: IF (p_khr_id IS NULL) THEN
1041: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
1042: x_return_status := OKL_API.G_RET_STS_ERROR;
1043: RAISE G_EXCEPTION_HALT_VALIDATION;
1044: END IF;
1045: EXCEPTION
1038: BEGIN
1039: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1040: IF (p_khr_id IS NULL) THEN
1041: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
1042: x_return_status := OKL_API.G_RET_STS_ERROR;
1043: RAISE G_EXCEPTION_HALT_VALIDATION;
1044: END IF;
1045: EXCEPTION
1046: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1045: EXCEPTION
1046: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1047: null;
1048: WHEN OTHERS THEN
1049: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1050: ,p_msg_name => G_UNEXPECTED_ERROR
1051: ,p_token1 => G_SQLCODE_TOKEN
1052: ,p_token1_value => SQLCODE
1053: ,p_token2 => G_SQLERRM_TOKEN
1051: ,p_token1 => G_SQLCODE_TOKEN
1052: ,p_token1_value => SQLCODE
1053: ,p_token2 => G_SQLERRM_TOKEN
1054: ,p_token2_value => SQLERRM);
1055: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1056: END validate_khr_id;
1057: -------------------------------------
1058: -- Validate_Attributes for: TRY_ID --
1059: -------------------------------------
1060: PROCEDURE validate_try_id(
1061: x_return_status OUT NOCOPY VARCHAR2,
1062: p_try_id IN NUMBER) IS
1063: BEGIN
1064: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1065: IF (p_try_id IS NULL) THEN
1066: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
1067: x_return_status := OKL_API.G_RET_STS_ERROR;
1068: RAISE G_EXCEPTION_HALT_VALIDATION;
1062: p_try_id IN NUMBER) IS
1063: BEGIN
1064: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1065: IF (p_try_id IS NULL) THEN
1066: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
1067: x_return_status := OKL_API.G_RET_STS_ERROR;
1068: RAISE G_EXCEPTION_HALT_VALIDATION;
1069: END IF;
1070: EXCEPTION
1063: BEGIN
1064: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1065: IF (p_try_id IS NULL) THEN
1066: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
1067: x_return_status := OKL_API.G_RET_STS_ERROR;
1068: RAISE G_EXCEPTION_HALT_VALIDATION;
1069: END IF;
1070: EXCEPTION
1071: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1070: EXCEPTION
1071: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1072: null;
1073: WHEN OTHERS THEN
1074: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1075: ,p_msg_name => G_UNEXPECTED_ERROR
1076: ,p_token1 => G_SQLCODE_TOKEN
1077: ,p_token1_value => SQLCODE
1078: ,p_token2 => G_SQLERRM_TOKEN
1076: ,p_token1 => G_SQLCODE_TOKEN
1077: ,p_token1_value => SQLCODE
1078: ,p_token2 => G_SQLERRM_TOKEN
1079: ,p_token2_value => SQLERRM);
1080: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1081: END validate_try_id;
1082:
1083: ---------------------------------------
1084: -- Validate_Attributes for: LANGUAGE --
1086: PROCEDURE validate_language(
1087: x_return_status OUT NOCOPY VARCHAR2,
1088: p_language IN VARCHAR2) IS
1089: BEGIN
1090: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1091: IF (p_language IS NULL) THEN
1092: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
1093: x_return_status := OKL_API.G_RET_STS_ERROR;
1094: RAISE G_EXCEPTION_HALT_VALIDATION;
1088: p_language IN VARCHAR2) IS
1089: BEGIN
1090: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1091: IF (p_language IS NULL) THEN
1092: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
1093: x_return_status := OKL_API.G_RET_STS_ERROR;
1094: RAISE G_EXCEPTION_HALT_VALIDATION;
1095: END IF;
1096: EXCEPTION
1089: BEGIN
1090: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1091: IF (p_language IS NULL) THEN
1092: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
1093: x_return_status := OKL_API.G_RET_STS_ERROR;
1094: RAISE G_EXCEPTION_HALT_VALIDATION;
1095: END IF;
1096: EXCEPTION
1097: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1096: EXCEPTION
1097: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1098: null;
1099: WHEN OTHERS THEN
1100: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1101: ,p_msg_name => G_UNEXPECTED_ERROR
1102: ,p_token1 => G_SQLCODE_TOKEN
1103: ,p_token1_value => SQLCODE
1104: ,p_token2 => G_SQLERRM_TOKEN
1102: ,p_token1 => G_SQLCODE_TOKEN
1103: ,p_token1_value => SQLCODE
1104: ,p_token2 => G_SQLERRM_TOKEN
1105: ,p_token2_value => SQLERRM);
1106: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1107: END validate_language;
1108: ---------------------------------------------------------------------------
1109: -- FUNCTION Validate_Attributes
1110: ---------------------------------------------------------------------------
1113: ---------------------------------------------------------
1114: FUNCTION Validate_Attributes (
1115: p_rxhv_rec IN rxhv_rec_type
1116: ) RETURN VARCHAR2 IS
1117: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1118: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1119: BEGIN
1120: -----------------------------
1121: -- Column Level Validation --
1114: FUNCTION Validate_Attributes (
1115: p_rxhv_rec IN rxhv_rec_type
1116: ) RETURN VARCHAR2 IS
1117: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1118: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1119: BEGIN
1120: -----------------------------
1121: -- Column Level Validation --
1122: -----------------------------
1123: -- ***
1124: -- header_extension_id
1125: -- ***
1126: validate_header_extension_id(x_return_status, p_rxhv_rec.header_extension_id);
1127: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1128: l_return_status := x_return_status;
1129: RAISE G_EXCEPTION_HALT_VALIDATION;
1130: END IF;
1131:
1132: -- ***
1133: -- source_id
1134: -- ***
1135: validate_source_id(x_return_status, p_rxhv_rec.source_id);
1136: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1137: l_return_status := x_return_status;
1138: RAISE G_EXCEPTION_HALT_VALIDATION;
1139: END IF;
1140:
1141: -- ***
1142: -- source_table
1143: -- ***
1144: validate_source_table(x_return_status, p_rxhv_rec.source_table);
1145: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1146: l_return_status := x_return_status;
1147: RAISE G_EXCEPTION_HALT_VALIDATION;
1148: END IF;
1149:
1150: -- ***
1151: -- object_version_number
1152: -- ***
1153: validate_object_version_number(x_return_status, p_rxhv_rec.object_version_number);
1154: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1155: l_return_status := x_return_status;
1156: RAISE G_EXCEPTION_HALT_VALIDATION;
1157: END IF;
1158:
1159: -- ***
1160: -- khr_id
1161: -- ***
1162: validate_khr_id(x_return_status, p_rxhv_rec.khr_id);
1163: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1164: l_return_status := x_return_status;
1165: RAISE G_EXCEPTION_HALT_VALIDATION;
1166: END IF;
1167:
1168: -- ***
1169: -- try_id
1170: -- ***
1171: validate_try_id(x_return_status, p_rxhv_rec.try_id);
1172: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1173: l_return_status := x_return_status;
1174: RAISE G_EXCEPTION_HALT_VALIDATION;
1175: END IF;
1176:
1177: -- ***
1178: -- language
1179: -- ***
1180: validate_language(x_return_status, p_rxhv_rec.language);
1181: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1182: l_return_status := x_return_status;
1183: RAISE G_EXCEPTION_HALT_VALIDATION;
1184: END IF;
1185: RETURN(l_return_status);
1186: EXCEPTION
1187: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1188: RETURN(l_return_status);
1189: WHEN OTHERS THEN
1190: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1191: ,p_msg_name => G_UNEXPECTED_ERROR
1192: ,p_token1 => G_SQLCODE_TOKEN
1193: ,p_token1_value => SQLCODE
1194: ,p_token2 => G_SQLERRM_TOKEN
1192: ,p_token1 => G_SQLCODE_TOKEN
1193: ,p_token1_value => SQLCODE
1194: ,p_token2 => G_SQLERRM_TOKEN
1195: ,p_token2_value => SQLERRM);
1196: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1197: RETURN(l_return_status);
1198: END Validate_Attributes;
1199: ---------------------------------------------------------------------------
1200: -- PROCEDURE Validate_Record
1205: FUNCTION Validate_Record (
1206: p_rxhv_rec IN rxhv_rec_type,
1207: p_db_rxhv_rec IN rxhv_rec_type
1208: ) RETURN VARCHAR2 IS
1209: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1210: BEGIN
1211: RETURN (l_return_status);
1212: END Validate_Record;
1213: FUNCTION Validate_Record (
1212: END Validate_Record;
1213: FUNCTION Validate_Record (
1214: p_rxhv_rec IN rxhv_rec_type
1215: ) RETURN VARCHAR2 IS
1216: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1217: l_db_rxhv_rec rxhv_rec_type := get_rec(p_rxhv_rec);
1218: BEGIN
1219: l_return_status := Validate_Record(p_rxhv_rec => p_rxhv_rec,
1220: p_db_rxhv_rec => l_db_rxhv_rec);
1431: -- validate_row for:OKL_EXT_AR_HEADER_SOURCES_V --
1432: --------------------------------------------------
1433: PROCEDURE validate_row(
1434: p_api_version IN NUMBER,
1435: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1436: x_return_status OUT NOCOPY VARCHAR2,
1437: x_msg_count OUT NOCOPY NUMBER,
1438: x_msg_data OUT NOCOPY VARCHAR2,
1439: p_rxhv_rec IN rxhv_rec_type) IS
1439: p_rxhv_rec IN rxhv_rec_type) IS
1440:
1441: l_api_version CONSTANT NUMBER := 1;
1442: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1443: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1444: l_rxhv_rec rxhv_rec_type := p_rxhv_rec;
1445: l_rxh_rec rxh_rec_type;
1446: l_rxhl_rec rxhl_rec_type;
1447: BEGIN
1444: l_rxhv_rec rxhv_rec_type := p_rxhv_rec;
1445: l_rxh_rec rxh_rec_type;
1446: l_rxhl_rec rxhl_rec_type;
1447: BEGIN
1448: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1449: G_PKG_NAME,
1450: p_init_msg_list,
1451: l_api_version,
1452: p_api_version,
1451: l_api_version,
1452: p_api_version,
1453: '_PVT',
1454: x_return_status);
1455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1458: RAISE OKL_API.G_EXCEPTION_ERROR;
1459: END IF;
1452: p_api_version,
1453: '_PVT',
1454: x_return_status);
1455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1458: RAISE OKL_API.G_EXCEPTION_ERROR;
1459: END IF;
1460: --- Validate all non-missing attributes (Item Level Validation)
1453: '_PVT',
1454: x_return_status);
1455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1458: RAISE OKL_API.G_EXCEPTION_ERROR;
1459: END IF;
1460: --- Validate all non-missing attributes (Item Level Validation)
1461: l_return_status := Validate_Attributes(l_rxhv_rec);
1454: x_return_status);
1455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1458: RAISE OKL_API.G_EXCEPTION_ERROR;
1459: END IF;
1460: --- Validate all non-missing attributes (Item Level Validation)
1461: l_return_status := Validate_Attributes(l_rxhv_rec);
1462: --- If any errors happen abort API
1459: END IF;
1460: --- Validate all non-missing attributes (Item Level Validation)
1461: l_return_status := Validate_Attributes(l_rxhv_rec);
1462: --- If any errors happen abort API
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1460: --- Validate all non-missing attributes (Item Level Validation)
1461: l_return_status := Validate_Attributes(l_rxhv_rec);
1462: --- If any errors happen abort API
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468: l_return_status := Validate_Record(l_rxhv_rec);
1461: l_return_status := Validate_Attributes(l_rxhv_rec);
1462: --- If any errors happen abort API
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468: l_return_status := Validate_Record(l_rxhv_rec);
1469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1462: --- If any errors happen abort API
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468: l_return_status := Validate_Record(l_rxhv_rec);
1469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468: l_return_status := Validate_Record(l_rxhv_rec);
1469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468: l_return_status := Validate_Record(l_rxhv_rec);
1469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: x_return_status := l_return_status;
1467: END IF;
1468: l_return_status := Validate_Record(l_rxhv_rec);
1469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: x_return_status := l_return_status;
1475: EXCEPTION
1468: l_return_status := Validate_Record(l_rxhv_rec);
1469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: x_return_status := l_return_status;
1475: EXCEPTION
1476: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1472: RAISE OKL_API.G_EXCEPTION_ERROR;
1473: END IF;
1474: x_return_status := l_return_status;
1475: EXCEPTION
1476: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1477: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1478: (
1479: l_api_name,
1480: G_PKG_NAME,
1473: END IF;
1474: x_return_status := l_return_status;
1475: EXCEPTION
1476: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1477: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1478: (
1479: l_api_name,
1480: G_PKG_NAME,
1481: 'OKL_API.G_RET_STS_ERROR',
1477: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1478: (
1479: l_api_name,
1480: G_PKG_NAME,
1481: 'OKL_API.G_RET_STS_ERROR',
1482: x_msg_count,
1483: x_msg_data,
1484: '_PVT'
1485: );
1482: x_msg_count,
1483: x_msg_data,
1484: '_PVT'
1485: );
1486: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1487: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1488: (
1489: l_api_name,
1490: G_PKG_NAME,
1483: x_msg_data,
1484: '_PVT'
1485: );
1486: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1487: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1488: (
1489: l_api_name,
1490: G_PKG_NAME,
1491: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1487: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1488: (
1489: l_api_name,
1490: G_PKG_NAME,
1491: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1492: x_msg_count,
1493: x_msg_data,
1494: '_PVT'
1495: );
1493: x_msg_data,
1494: '_PVT'
1495: );
1496: WHEN OTHERS THEN
1497: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1498: (
1499: l_api_name,
1500: G_PKG_NAME,
1501: 'OTHERS',
1508: -- PL/SQL TBL validate_row for:OKL_EXT_AR_HEADER_SOURCES_V --
1509: -------------------------------------------------------------
1510: PROCEDURE validate_row(
1511: p_api_version IN NUMBER,
1512: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1513: x_return_status OUT NOCOPY VARCHAR2,
1514: x_msg_count OUT NOCOPY NUMBER,
1515: x_msg_data OUT NOCOPY VARCHAR2,
1516: p_rxhv_tbl IN rxhv_tbl_type,
1513: x_return_status OUT NOCOPY VARCHAR2,
1514: x_msg_count OUT NOCOPY NUMBER,
1515: x_msg_data OUT NOCOPY VARCHAR2,
1516: p_rxhv_tbl IN rxhv_tbl_type,
1517: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1518:
1519: l_api_version CONSTANT NUMBER := 1;
1520: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1521: i NUMBER := 0;
1519: l_api_version CONSTANT NUMBER := 1;
1520: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1521: i NUMBER := 0;
1522: BEGIN
1523: OKL_API.init_msg_list(p_init_msg_list);
1524: -- Make sure PL/SQL table has records in it before passing
1525: IF (p_rxhv_tbl.COUNT > 0) THEN
1526: i := p_rxhv_tbl.FIRST;
1527: LOOP
1525: IF (p_rxhv_tbl.COUNT > 0) THEN
1526: i := p_rxhv_tbl.FIRST;
1527: LOOP
1528: DECLARE
1529: l_error_rec OKL_API.ERROR_REC_TYPE;
1530: BEGIN
1531: l_error_rec.api_name := l_api_name;
1532: l_error_rec.api_package := G_PKG_NAME;
1533: l_error_rec.idx := i;
1532: l_error_rec.api_package := G_PKG_NAME;
1533: l_error_rec.idx := i;
1534: validate_row (
1535: p_api_version => p_api_version,
1536: p_init_msg_list => OKL_API.G_FALSE,
1537: x_return_status => l_error_rec.error_type,
1538: x_msg_count => l_error_rec.msg_count,
1539: x_msg_data => l_error_rec.msg_data,
1540: p_rxhv_rec => p_rxhv_tbl(i));
1537: x_return_status => l_error_rec.error_type,
1538: x_msg_count => l_error_rec.msg_count,
1539: x_msg_data => l_error_rec.msg_data,
1540: p_rxhv_rec => p_rxhv_tbl(i));
1541: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1542: l_error_rec.sqlcode := SQLCODE;
1543: load_error_tbl(l_error_rec, px_error_tbl);
1544: ELSE
1545: x_msg_count := l_error_rec.msg_count;
1545: x_msg_count := l_error_rec.msg_count;
1546: x_msg_data := l_error_rec.msg_data;
1547: END IF;
1548: EXCEPTION
1549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1551: l_error_rec.sqlcode := SQLCODE;
1552: load_error_tbl(l_error_rec, px_error_tbl);
1553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1546: x_msg_data := l_error_rec.msg_data;
1547: END IF;
1548: EXCEPTION
1549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1551: l_error_rec.sqlcode := SQLCODE;
1552: load_error_tbl(l_error_rec, px_error_tbl);
1553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1554: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1551: l_error_rec.sqlcode := SQLCODE;
1552: load_error_tbl(l_error_rec, px_error_tbl);
1553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1554: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1555: l_error_rec.sqlcode := SQLCODE;
1556: load_error_tbl(l_error_rec, px_error_tbl);
1557: WHEN OTHERS THEN
1550: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1551: l_error_rec.sqlcode := SQLCODE;
1552: load_error_tbl(l_error_rec, px_error_tbl);
1553: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1554: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1555: l_error_rec.sqlcode := SQLCODE;
1556: load_error_tbl(l_error_rec, px_error_tbl);
1557: WHEN OTHERS THEN
1558: l_error_rec.error_type := 'OTHERS';
1565: END IF;
1566: -- Loop through the error_tbl to find the error with the highest severity
1567: -- and return it.
1568: x_return_status := find_highest_exception(px_error_tbl);
1569: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1570: EXCEPTION
1571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1573: (
1567: -- and return it.
1568: x_return_status := find_highest_exception(px_error_tbl);
1569: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1570: EXCEPTION
1571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1573: (
1574: l_api_name,
1575: G_PKG_NAME,
1568: x_return_status := find_highest_exception(px_error_tbl);
1569: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1570: EXCEPTION
1571: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1573: (
1574: l_api_name,
1575: G_PKG_NAME,
1576: 'OKL_API.G_RET_STS_ERROR',
1572: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1573: (
1574: l_api_name,
1575: G_PKG_NAME,
1576: 'OKL_API.G_RET_STS_ERROR',
1577: x_msg_count,
1578: x_msg_data,
1579: '_PVT'
1580: );
1577: x_msg_count,
1578: x_msg_data,
1579: '_PVT'
1580: );
1581: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1583: (
1584: l_api_name,
1585: G_PKG_NAME,
1578: x_msg_data,
1579: '_PVT'
1580: );
1581: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1583: (
1584: l_api_name,
1585: G_PKG_NAME,
1586: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1583: (
1584: l_api_name,
1585: G_PKG_NAME,
1586: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1587: x_msg_count,
1588: x_msg_data,
1589: '_PVT'
1590: );
1588: x_msg_data,
1589: '_PVT'
1590: );
1591: WHEN OTHERS THEN
1592: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1593: (
1594: l_api_name,
1595: G_PKG_NAME,
1596: 'OTHERS',
1604: -- PL/SQL TBL validate_row for:OKL_EXT_AR_HEADER_SOURCES_V --
1605: -------------------------------------------------------------
1606: PROCEDURE validate_row(
1607: p_api_version IN NUMBER,
1608: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1609: x_return_status OUT NOCOPY VARCHAR2,
1610: x_msg_count OUT NOCOPY NUMBER,
1611: x_msg_data OUT NOCOPY VARCHAR2,
1612: p_rxhv_tbl IN rxhv_tbl_type) IS
1612: p_rxhv_tbl IN rxhv_tbl_type) IS
1613:
1614: l_api_version CONSTANT NUMBER := 1;
1615: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1616: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1617: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1618: BEGIN
1619: OKL_API.init_msg_list(p_init_msg_list);
1620: -- Make sure PL/SQL table has records in it before passing
1613:
1614: l_api_version CONSTANT NUMBER := 1;
1615: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1616: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1617: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1618: BEGIN
1619: OKL_API.init_msg_list(p_init_msg_list);
1620: -- Make sure PL/SQL table has records in it before passing
1621: IF (p_rxhv_tbl.COUNT > 0) THEN
1615: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1616: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1617: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1618: BEGIN
1619: OKL_API.init_msg_list(p_init_msg_list);
1620: -- Make sure PL/SQL table has records in it before passing
1621: IF (p_rxhv_tbl.COUNT > 0) THEN
1622: validate_row (
1623: p_api_version => p_api_version,
1620: -- Make sure PL/SQL table has records in it before passing
1621: IF (p_rxhv_tbl.COUNT > 0) THEN
1622: validate_row (
1623: p_api_version => p_api_version,
1624: p_init_msg_list => OKL_API.G_FALSE,
1625: x_return_status => x_return_status,
1626: x_msg_count => x_msg_count,
1627: x_msg_data => x_msg_data,
1628: p_rxhv_tbl => p_rxhv_tbl,
1627: x_msg_data => x_msg_data,
1628: p_rxhv_tbl => p_rxhv_tbl,
1629: px_error_tbl => l_error_tbl);
1630: END IF;
1631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1632: EXCEPTION
1633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1635: (
1629: px_error_tbl => l_error_tbl);
1630: END IF;
1631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1632: EXCEPTION
1633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1635: (
1636: l_api_name,
1637: G_PKG_NAME,
1630: END IF;
1631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1632: EXCEPTION
1633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1635: (
1636: l_api_name,
1637: G_PKG_NAME,
1638: 'OKL_API.G_RET_STS_ERROR',
1634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1635: (
1636: l_api_name,
1637: G_PKG_NAME,
1638: 'OKL_API.G_RET_STS_ERROR',
1639: x_msg_count,
1640: x_msg_data,
1641: '_PVT'
1642: );
1639: x_msg_count,
1640: x_msg_data,
1641: '_PVT'
1642: );
1643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1645: (
1646: l_api_name,
1647: G_PKG_NAME,
1640: x_msg_data,
1641: '_PVT'
1642: );
1643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1645: (
1646: l_api_name,
1647: G_PKG_NAME,
1648: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1645: (
1646: l_api_name,
1647: G_PKG_NAME,
1648: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1649: x_msg_count,
1650: x_msg_data,
1651: '_PVT'
1652: );
1650: x_msg_data,
1651: '_PVT'
1652: );
1653: WHEN OTHERS THEN
1654: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1655: (
1656: l_api_name,
1657: G_PKG_NAME,
1658: 'OTHERS',
1668: ------------------------------------------------
1669: -- insert_row for:OKL_EXT_AR_HEADER_SOURCES_B --
1670: ------------------------------------------------
1671: PROCEDURE insert_row(
1672: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1673: x_return_status OUT NOCOPY VARCHAR2,
1674: x_msg_count OUT NOCOPY NUMBER,
1675: x_msg_data OUT NOCOPY VARCHAR2,
1676: p_rxh_rec IN rxh_rec_type,
1677: x_rxh_rec OUT NOCOPY rxh_rec_type) IS
1678:
1679: l_api_version CONSTANT NUMBER := 1;
1680: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1681: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1682: l_rxh_rec rxh_rec_type := p_rxh_rec;
1683: l_def_rxh_rec rxh_rec_type;
1684: ----------------------------------------------------
1685: -- Set_Attributes for:OKL_EXT_AR_HEADER_SOURCES_B --
1687: FUNCTION Set_Attributes (
1688: p_rxh_rec IN rxh_rec_type,
1689: x_rxh_rec OUT NOCOPY rxh_rec_type
1690: ) RETURN VARCHAR2 IS
1691: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1692: BEGIN
1693: x_rxh_rec := p_rxh_rec;
1694: RETURN(l_return_status);
1695: END Set_Attributes;
1693: x_rxh_rec := p_rxh_rec;
1694: RETURN(l_return_status);
1695: END Set_Attributes;
1696: BEGIN
1697: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1698: p_init_msg_list,
1699: '_PVT',
1700: x_return_status);
1701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1697: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1698: p_init_msg_list,
1699: '_PVT',
1700: x_return_status);
1701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_ERROR;
1705: END IF;
1698: p_init_msg_list,
1699: '_PVT',
1700: x_return_status);
1701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_ERROR;
1705: END IF;
1706: --- Setting item atributes
1699: '_PVT',
1700: x_return_status);
1701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_ERROR;
1705: END IF;
1706: --- Setting item atributes
1707: l_return_status := Set_Attributes(
1700: x_return_status);
1701: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1704: RAISE OKL_API.G_EXCEPTION_ERROR;
1705: END IF;
1706: --- Setting item atributes
1707: l_return_status := Set_Attributes(
1708: l_rxh_rec, -- IN
1707: l_return_status := Set_Attributes(
1708: l_rxh_rec, -- IN
1709: l_def_rxh_rec); -- OUT
1710: --- If any errors happen abort API
1711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1708: l_rxh_rec, -- IN
1709: l_def_rxh_rec); -- OUT
1710: --- If any errors happen abort API
1711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716: INSERT INTO OKL_EXT_AR_HEADER_SOURCES_B(
1709: l_def_rxh_rec); -- OUT
1710: --- If any errors happen abort API
1711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716: INSERT INTO OKL_EXT_AR_HEADER_SOURCES_B(
1717: header_extension_id,
1710: --- If any errors happen abort API
1711: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1714: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: END IF;
1716: INSERT INTO OKL_EXT_AR_HEADER_SOURCES_B(
1717: header_extension_id,
1718: source_id,
1873: l_def_rxh_rec.last_update_login);
1874: -- Set OUT values
1875: x_rxh_rec := l_def_rxh_rec;
1876: x_return_status := l_return_status;
1877: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1878: EXCEPTION
1879: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1880: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1881: (
1875: x_rxh_rec := l_def_rxh_rec;
1876: x_return_status := l_return_status;
1877: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1878: EXCEPTION
1879: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1880: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1881: (
1882: l_api_name,
1883: G_PKG_NAME,
1876: x_return_status := l_return_status;
1877: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1878: EXCEPTION
1879: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1880: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1881: (
1882: l_api_name,
1883: G_PKG_NAME,
1884: 'OKL_API.G_RET_STS_ERROR',
1880: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1881: (
1882: l_api_name,
1883: G_PKG_NAME,
1884: 'OKL_API.G_RET_STS_ERROR',
1885: x_msg_count,
1886: x_msg_data,
1887: '_PVT'
1888: );
1885: x_msg_count,
1886: x_msg_data,
1887: '_PVT'
1888: );
1889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1890: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1886: x_msg_data,
1887: '_PVT'
1888: );
1889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1890: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1894: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1890: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1894: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1895: x_msg_count,
1896: x_msg_data,
1897: '_PVT'
1898: );
1896: x_msg_data,
1897: '_PVT'
1898: );
1899: WHEN OTHERS THEN
1900: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1901: (
1902: l_api_name,
1903: G_PKG_NAME,
1904: 'OTHERS',
1910: -------------------------------------------------
1911: -- insert_row for:OKL_EXT_AR_HEADER_SOURCES_TL --
1912: -------------------------------------------------
1913: PROCEDURE insert_row(
1914: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1915: x_return_status OUT NOCOPY VARCHAR2,
1916: x_msg_count OUT NOCOPY NUMBER,
1917: x_msg_data OUT NOCOPY VARCHAR2,
1918: p_rxhl_rec IN rxhl_rec_type,
1919: x_rxhl_rec OUT NOCOPY rxhl_rec_type) IS
1920:
1921: l_api_version CONSTANT NUMBER := 1;
1922: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1923: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1924: l_rxhl_rec rxhl_rec_type := p_rxhl_rec;
1925: l_def_rxhl_rec rxhl_rec_type;
1926: /*
1927: CURSOR get_languages IS
1935: FUNCTION Set_Attributes (
1936: p_rxhl_rec IN rxhl_rec_type,
1937: x_rxhl_rec OUT NOCOPY rxhl_rec_type
1938: ) RETURN VARCHAR2 IS
1939: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1940: BEGIN
1941: x_rxhl_rec := p_rxhl_rec;
1942: x_rxhl_rec.SOURCE_LANG := USERENV('LANG');
1943: x_rxhl_rec.SFWT_FLAG := 'N';
1943: x_rxhl_rec.SFWT_FLAG := 'N';
1944: RETURN(l_return_status);
1945: END Set_Attributes;
1946: BEGIN
1947: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1948: p_init_msg_list,
1949: '_PVT',
1950: x_return_status);
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1947: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1948: p_init_msg_list,
1949: '_PVT',
1950: x_return_status);
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1948: p_init_msg_list,
1949: '_PVT',
1950: x_return_status);
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956: --- Setting item attributes
1949: '_PVT',
1950: x_return_status);
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956: --- Setting item attributes
1957: l_return_status := Set_Attributes(
1950: x_return_status);
1951: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1953: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1954: RAISE OKL_API.G_EXCEPTION_ERROR;
1955: END IF;
1956: --- Setting item attributes
1957: l_return_status := Set_Attributes(
1958: p_rxhl_rec, -- IN
1957: l_return_status := Set_Attributes(
1958: p_rxhl_rec, -- IN
1959: l_rxhl_rec); -- OUT
1960: --- If any errors happen abort API
1961: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1963: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1964: RAISE OKL_API.G_EXCEPTION_ERROR;
1965: END IF;
1958: p_rxhl_rec, -- IN
1959: l_rxhl_rec); -- OUT
1960: --- If any errors happen abort API
1961: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1963: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1964: RAISE OKL_API.G_EXCEPTION_ERROR;
1965: END IF;
1966:
1959: l_rxhl_rec); -- OUT
1960: --- If any errors happen abort API
1961: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1963: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1964: RAISE OKL_API.G_EXCEPTION_ERROR;
1965: END IF;
1966:
1967: INSERT INTO OKL_EXT_AR_HEADER_SOURCES_TL(
1960: --- If any errors happen abort API
1961: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1963: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1964: RAISE OKL_API.G_EXCEPTION_ERROR;
1965: END IF;
1966:
1967: INSERT INTO OKL_EXT_AR_HEADER_SOURCES_TL(
1968: header_extension_id,
1992: l_rxhl_rec.last_update_login);
1993: -- Set OUT values
1994: x_rxhl_rec := l_rxhl_rec;
1995: x_return_status := l_return_status;
1996: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1997: EXCEPTION
1998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1999: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2000: (
1994: x_rxhl_rec := l_rxhl_rec;
1995: x_return_status := l_return_status;
1996: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1997: EXCEPTION
1998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1999: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2000: (
2001: l_api_name,
2002: G_PKG_NAME,
1995: x_return_status := l_return_status;
1996: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1997: EXCEPTION
1998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1999: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2000: (
2001: l_api_name,
2002: G_PKG_NAME,
2003: 'OKL_API.G_RET_STS_ERROR',
1999: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2000: (
2001: l_api_name,
2002: G_PKG_NAME,
2003: 'OKL_API.G_RET_STS_ERROR',
2004: x_msg_count,
2005: x_msg_data,
2006: '_PVT'
2007: );
2004: x_msg_count,
2005: x_msg_data,
2006: '_PVT'
2007: );
2008: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2009: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2005: x_msg_data,
2006: '_PVT'
2007: );
2008: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2009: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2013: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2009: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2010: (
2011: l_api_name,
2012: G_PKG_NAME,
2013: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2014: x_msg_count,
2015: x_msg_data,
2016: '_PVT'
2017: );
2015: x_msg_data,
2016: '_PVT'
2017: );
2018: WHEN OTHERS THEN
2019: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2020: (
2021: l_api_name,
2022: G_PKG_NAME,
2023: 'OTHERS',
2030: -- insert_row for :OKL_EXT_AR_HEADER_SOURCES_B --
2031: -------------------------------------------------
2032: PROCEDURE insert_row(
2033: p_api_version IN NUMBER,
2034: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2035: x_return_status OUT NOCOPY VARCHAR2,
2036: x_msg_count OUT NOCOPY NUMBER,
2037: x_msg_data OUT NOCOPY VARCHAR2,
2038: p_rxhv_rec IN rxhv_rec_type,
2039: x_rxhv_rec OUT NOCOPY rxhv_rec_type) IS
2040:
2041: l_api_version CONSTANT NUMBER := 1;
2042: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2043: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2044: l_rxhv_rec rxhv_rec_type := p_rxhv_rec;
2045: l_def_rxhv_rec rxhv_rec_type;
2046: l_rxh_rec rxh_rec_type;
2047: lx_rxh_rec rxh_rec_type;
2068: FUNCTION Set_Attributes (
2069: p_rxhv_rec IN rxhv_rec_type,
2070: x_rxhv_rec OUT NOCOPY rxhv_rec_type
2071: ) RETURN VARCHAR2 IS
2072: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2073: BEGIN
2074: x_rxhv_rec := p_rxhv_rec;
2075: x_rxhv_rec.OBJECT_VERSION_NUMBER := 1;
2076: RETURN(l_return_status);
2075: x_rxhv_rec.OBJECT_VERSION_NUMBER := 1;
2076: RETURN(l_return_status);
2077: END Set_Attributes;
2078: BEGIN
2079: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2080: G_PKG_NAME,
2081: p_init_msg_list,
2082: l_api_version,
2083: p_api_version,
2082: l_api_version,
2083: p_api_version,
2084: '_PVT',
2085: x_return_status);
2086: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2088: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2089: RAISE OKL_API.G_EXCEPTION_ERROR;
2090: END IF;
2083: p_api_version,
2084: '_PVT',
2085: x_return_status);
2086: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2088: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2089: RAISE OKL_API.G_EXCEPTION_ERROR;
2090: END IF;
2091: l_rxhv_rec := null_out_defaults(p_rxhv_rec);
2084: '_PVT',
2085: x_return_status);
2086: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2088: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2089: RAISE OKL_API.G_EXCEPTION_ERROR;
2090: END IF;
2091: l_rxhv_rec := null_out_defaults(p_rxhv_rec);
2092: -- Set primary key value
2085: x_return_status);
2086: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2088: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2089: RAISE OKL_API.G_EXCEPTION_ERROR;
2090: END IF;
2091: l_rxhv_rec := null_out_defaults(p_rxhv_rec);
2092: -- Set primary key value
2093: l_rxhv_rec.HEADER_EXTENSION_ID := get_seq_id;
2095: l_return_Status := Set_Attributes(
2096: l_rxhv_rec, -- IN
2097: l_def_rxhv_rec); -- OUT
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2096: l_rxhv_rec, -- IN
2097: l_def_rxhv_rec); -- OUT
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_def_rxhv_rec := fill_who_columns(l_def_rxhv_rec);
2097: l_def_rxhv_rec); -- OUT
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_def_rxhv_rec := fill_who_columns(l_def_rxhv_rec);
2105: --- Validate all non-missing attributes (Item Level Validation)
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_def_rxhv_rec := fill_who_columns(l_def_rxhv_rec);
2105: --- Validate all non-missing attributes (Item Level Validation)
2106: l_return_status := Validate_Attributes(l_def_rxhv_rec);
2104: l_def_rxhv_rec := fill_who_columns(l_def_rxhv_rec);
2105: --- Validate all non-missing attributes (Item Level Validation)
2106: l_return_status := Validate_Attributes(l_def_rxhv_rec);
2107: --- If any errors happen abort API
2108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2105: --- Validate all non-missing attributes (Item Level Validation)
2106: l_return_status := Validate_Attributes(l_def_rxhv_rec);
2107: --- If any errors happen abort API
2108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: l_return_status := Validate_Record(l_def_rxhv_rec);
2106: l_return_status := Validate_Attributes(l_def_rxhv_rec);
2107: --- If any errors happen abort API
2108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: l_return_status := Validate_Record(l_def_rxhv_rec);
2114: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2107: --- If any errors happen abort API
2108: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: l_return_status := Validate_Record(l_def_rxhv_rec);
2114: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: l_return_status := Validate_Record(l_def_rxhv_rec);
2114: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2116: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2117: RAISE OKL_API.G_EXCEPTION_ERROR;
2118: END IF;
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: l_return_status := Validate_Record(l_def_rxhv_rec);
2114: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2116: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2117: RAISE OKL_API.G_EXCEPTION_ERROR;
2118: END IF;
2119: -----------------------------------------
2112: END IF;
2113: l_return_status := Validate_Record(l_def_rxhv_rec);
2114: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2116: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2117: RAISE OKL_API.G_EXCEPTION_ERROR;
2118: END IF;
2119: -----------------------------------------
2120: -- Move VIEW record to "Child" records --
2113: l_return_status := Validate_Record(l_def_rxhv_rec);
2114: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2116: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2117: RAISE OKL_API.G_EXCEPTION_ERROR;
2118: END IF;
2119: -----------------------------------------
2120: -- Move VIEW record to "Child" records --
2121: -----------------------------------------
2131: x_msg_data,
2132: l_rxh_rec,
2133: lx_rxh_rec
2134: );
2135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2132: l_rxh_rec,
2133: lx_rxh_rec
2134: );
2135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2140: migrate(lx_rxh_rec, l_def_rxhv_rec);
2133: lx_rxh_rec
2134: );
2135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2140: migrate(lx_rxh_rec, l_def_rxhv_rec);
2141: insert_row(
2134: );
2135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_ERROR;
2139: END IF;
2140: migrate(lx_rxh_rec, l_def_rxhv_rec);
2141: insert_row(
2142: p_init_msg_list,
2145: x_msg_data,
2146: l_rxhl_rec,
2147: lx_rxhl_rec
2148: );
2149: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2146: l_rxhl_rec,
2147: lx_rxhl_rec
2148: );
2149: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2154: migrate(lx_rxhl_rec, l_def_rxhv_rec);
2147: lx_rxhl_rec
2148: );
2149: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2154: migrate(lx_rxhl_rec, l_def_rxhv_rec);
2155: -- Set OUT values
2148: );
2149: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2151: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2152: RAISE OKL_API.G_EXCEPTION_ERROR;
2153: END IF;
2154: migrate(lx_rxhl_rec, l_def_rxhv_rec);
2155: -- Set OUT values
2156: x_rxhv_rec := l_def_rxhv_rec;
2154: migrate(lx_rxhl_rec, l_def_rxhv_rec);
2155: -- Set OUT values
2156: x_rxhv_rec := l_def_rxhv_rec;
2157: x_return_status := l_return_status;
2158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2159: EXCEPTION
2160: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2162: (
2156: x_rxhv_rec := l_def_rxhv_rec;
2157: x_return_status := l_return_status;
2158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2159: EXCEPTION
2160: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2162: (
2163: l_api_name,
2164: G_PKG_NAME,
2157: x_return_status := l_return_status;
2158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2159: EXCEPTION
2160: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2162: (
2163: l_api_name,
2164: G_PKG_NAME,
2165: 'OKL_API.G_RET_STS_ERROR',
2161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2162: (
2163: l_api_name,
2164: G_PKG_NAME,
2165: 'OKL_API.G_RET_STS_ERROR',
2166: x_msg_count,
2167: x_msg_data,
2168: '_PVT'
2169: );
2166: x_msg_count,
2167: x_msg_data,
2168: '_PVT'
2169: );
2170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2172: (
2173: l_api_name,
2174: G_PKG_NAME,
2167: x_msg_data,
2168: '_PVT'
2169: );
2170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2172: (
2173: l_api_name,
2174: G_PKG_NAME,
2175: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2172: (
2173: l_api_name,
2174: G_PKG_NAME,
2175: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2176: x_msg_count,
2177: x_msg_data,
2178: '_PVT'
2179: );
2177: x_msg_data,
2178: '_PVT'
2179: );
2180: WHEN OTHERS THEN
2181: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2182: (
2183: l_api_name,
2184: G_PKG_NAME,
2185: 'OTHERS',
2192: -- PL/SQL TBL insert_row for:RXHV_TBL --
2193: ----------------------------------------
2194: PROCEDURE insert_row(
2195: p_api_version IN NUMBER,
2196: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2197: x_return_status OUT NOCOPY VARCHAR2,
2198: x_msg_count OUT NOCOPY NUMBER,
2199: x_msg_data OUT NOCOPY VARCHAR2,
2200: p_rxhv_tbl IN rxhv_tbl_type,
2198: x_msg_count OUT NOCOPY NUMBER,
2199: x_msg_data OUT NOCOPY VARCHAR2,
2200: p_rxhv_tbl IN rxhv_tbl_type,
2201: x_rxhv_tbl OUT NOCOPY rxhv_tbl_type,
2202: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2203:
2204: l_api_version CONSTANT NUMBER := 1;
2205: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
2206: i NUMBER := 0;
2204: l_api_version CONSTANT NUMBER := 1;
2205: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
2206: i NUMBER := 0;
2207: BEGIN
2208: OKL_API.init_msg_list(p_init_msg_list);
2209: -- Make sure PL/SQL table has records in it before passing
2210: IF (p_rxhv_tbl.COUNT > 0) THEN
2211: i := p_rxhv_tbl.FIRST;
2212: LOOP
2210: IF (p_rxhv_tbl.COUNT > 0) THEN
2211: i := p_rxhv_tbl.FIRST;
2212: LOOP
2213: DECLARE
2214: l_error_rec OKL_API.ERROR_REC_TYPE;
2215: BEGIN
2216: l_error_rec.api_name := l_api_name;
2217: l_error_rec.api_package := G_PKG_NAME;
2218: l_error_rec.idx := i;
2217: l_error_rec.api_package := G_PKG_NAME;
2218: l_error_rec.idx := i;
2219: insert_row (
2220: p_api_version => p_api_version,
2221: p_init_msg_list => OKL_API.G_FALSE,
2222: x_return_status => l_error_rec.error_type,
2223: x_msg_count => l_error_rec.msg_count,
2224: x_msg_data => l_error_rec.msg_data,
2225: p_rxhv_rec => p_rxhv_tbl(i),
2223: x_msg_count => l_error_rec.msg_count,
2224: x_msg_data => l_error_rec.msg_data,
2225: p_rxhv_rec => p_rxhv_tbl(i),
2226: x_rxhv_rec => x_rxhv_tbl(i));
2227: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2228: l_error_rec.sqlcode := SQLCODE;
2229: load_error_tbl(l_error_rec, px_error_tbl);
2230: ELSE
2231: x_msg_count := l_error_rec.msg_count;
2231: x_msg_count := l_error_rec.msg_count;
2232: x_msg_data := l_error_rec.msg_data;
2233: END IF;
2234: EXCEPTION
2235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2236: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2237: l_error_rec.sqlcode := SQLCODE;
2238: load_error_tbl(l_error_rec, px_error_tbl);
2239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2232: x_msg_data := l_error_rec.msg_data;
2233: END IF;
2234: EXCEPTION
2235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2236: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2237: l_error_rec.sqlcode := SQLCODE;
2238: load_error_tbl(l_error_rec, px_error_tbl);
2239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2235: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2236: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2237: l_error_rec.sqlcode := SQLCODE;
2238: load_error_tbl(l_error_rec, px_error_tbl);
2239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2241: l_error_rec.sqlcode := SQLCODE;
2242: load_error_tbl(l_error_rec, px_error_tbl);
2243: WHEN OTHERS THEN
2236: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2237: l_error_rec.sqlcode := SQLCODE;
2238: load_error_tbl(l_error_rec, px_error_tbl);
2239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2241: l_error_rec.sqlcode := SQLCODE;
2242: load_error_tbl(l_error_rec, px_error_tbl);
2243: WHEN OTHERS THEN
2244: l_error_rec.error_type := 'OTHERS';
2251: END IF;
2252: -- Loop through the error_tbl to find the error with the highest severity
2253: -- and return it.
2254: x_return_status := find_highest_exception(px_error_tbl);
2255: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2256: EXCEPTION
2257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2258: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2259: (
2253: -- and return it.
2254: x_return_status := find_highest_exception(px_error_tbl);
2255: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2256: EXCEPTION
2257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2258: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2259: (
2260: l_api_name,
2261: G_PKG_NAME,
2254: x_return_status := find_highest_exception(px_error_tbl);
2255: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2256: EXCEPTION
2257: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2258: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2259: (
2260: l_api_name,
2261: G_PKG_NAME,
2262: 'OKL_API.G_RET_STS_ERROR',
2258: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2259: (
2260: l_api_name,
2261: G_PKG_NAME,
2262: 'OKL_API.G_RET_STS_ERROR',
2263: x_msg_count,
2264: x_msg_data,
2265: '_PVT'
2266: );
2263: x_msg_count,
2264: x_msg_data,
2265: '_PVT'
2266: );
2267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2268: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2269: (
2270: l_api_name,
2271: G_PKG_NAME,
2264: x_msg_data,
2265: '_PVT'
2266: );
2267: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2268: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2269: (
2270: l_api_name,
2271: G_PKG_NAME,
2272: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2268: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2269: (
2270: l_api_name,
2271: G_PKG_NAME,
2272: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2273: x_msg_count,
2274: x_msg_data,
2275: '_PVT'
2276: );
2274: x_msg_data,
2275: '_PVT'
2276: );
2277: WHEN OTHERS THEN
2278: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2279: (
2280: l_api_name,
2281: G_PKG_NAME,
2282: 'OTHERS',
2290: -- PL/SQL TBL insert_row for:RXHV_TBL --
2291: ----------------------------------------
2292: PROCEDURE insert_row(
2293: p_api_version IN NUMBER,
2294: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2295: x_return_status OUT NOCOPY VARCHAR2,
2296: x_msg_count OUT NOCOPY NUMBER,
2297: x_msg_data OUT NOCOPY VARCHAR2,
2298: p_rxhv_tbl IN rxhv_tbl_type,
2299: x_rxhv_tbl OUT NOCOPY rxhv_tbl_type) IS
2300:
2301: l_api_version CONSTANT NUMBER := 1;
2302: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2303: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2304: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2305: BEGIN
2306: OKL_API.init_msg_list(p_init_msg_list);
2307: -- Make sure PL/SQL table has records in it before passing
2300:
2301: l_api_version CONSTANT NUMBER := 1;
2302: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2303: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2304: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2305: BEGIN
2306: OKL_API.init_msg_list(p_init_msg_list);
2307: -- Make sure PL/SQL table has records in it before passing
2308: IF (p_rxhv_tbl.COUNT > 0) THEN
2302: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2303: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2304: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2305: BEGIN
2306: OKL_API.init_msg_list(p_init_msg_list);
2307: -- Make sure PL/SQL table has records in it before passing
2308: IF (p_rxhv_tbl.COUNT > 0) THEN
2309: insert_row (
2310: p_api_version => p_api_version,
2307: -- Make sure PL/SQL table has records in it before passing
2308: IF (p_rxhv_tbl.COUNT > 0) THEN
2309: insert_row (
2310: p_api_version => p_api_version,
2311: p_init_msg_list => OKL_API.G_FALSE,
2312: x_return_status => x_return_status,
2313: x_msg_count => x_msg_count,
2314: x_msg_data => x_msg_data,
2315: p_rxhv_tbl => p_rxhv_tbl,
2315: p_rxhv_tbl => p_rxhv_tbl,
2316: x_rxhv_tbl => x_rxhv_tbl,
2317: px_error_tbl => l_error_tbl);
2318: END IF;
2319: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2320: EXCEPTION
2321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2323: (
2317: px_error_tbl => l_error_tbl);
2318: END IF;
2319: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2320: EXCEPTION
2321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2323: (
2324: l_api_name,
2325: G_PKG_NAME,
2318: END IF;
2319: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2320: EXCEPTION
2321: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2323: (
2324: l_api_name,
2325: G_PKG_NAME,
2326: 'OKL_API.G_RET_STS_ERROR',
2322: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2323: (
2324: l_api_name,
2325: G_PKG_NAME,
2326: 'OKL_API.G_RET_STS_ERROR',
2327: x_msg_count,
2328: x_msg_data,
2329: '_PVT'
2330: );
2327: x_msg_count,
2328: x_msg_data,
2329: '_PVT'
2330: );
2331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2332: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2333: (
2334: l_api_name,
2335: G_PKG_NAME,
2328: x_msg_data,
2329: '_PVT'
2330: );
2331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2332: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2333: (
2334: l_api_name,
2335: G_PKG_NAME,
2336: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2332: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2333: (
2334: l_api_name,
2335: G_PKG_NAME,
2336: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2337: x_msg_count,
2338: x_msg_data,
2339: '_PVT'
2340: );
2338: x_msg_data,
2339: '_PVT'
2340: );
2341: WHEN OTHERS THEN
2342: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2343: (
2344: l_api_name,
2345: G_PKG_NAME,
2346: 'OTHERS',
2356: ----------------------------------------------
2357: -- lock_row for:OKL_EXT_AR_HEADER_SOURCES_B --
2358: ----------------------------------------------
2359: PROCEDURE lock_row(
2360: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2361: x_return_status OUT NOCOPY VARCHAR2,
2362: x_msg_count OUT NOCOPY NUMBER,
2363: x_msg_data OUT NOCOPY VARCHAR2,
2364: p_rxh_rec IN rxh_rec_type) IS
2377: FROM OKL_EXT_AR_HEADER_SOURCES_B
2378: WHERE HEADER_EXTENSION_ID = p_rxh_rec.header_extension_id;
2379: l_api_version CONSTANT NUMBER := 1;
2380: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2381: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2382: l_object_version_number OKL_EXT_AR_HEADER_SOURCES_B.OBJECT_VERSION_NUMBER%TYPE;
2383: lc_object_version_number OKL_EXT_AR_HEADER_SOURCES_B.OBJECT_VERSION_NUMBER%TYPE;
2384: l_row_notfound BOOLEAN := FALSE;
2385: lc_row_notfound BOOLEAN := FALSE;
2383: lc_object_version_number OKL_EXT_AR_HEADER_SOURCES_B.OBJECT_VERSION_NUMBER%TYPE;
2384: l_row_notfound BOOLEAN := FALSE;
2385: lc_row_notfound BOOLEAN := FALSE;
2386: BEGIN
2387: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2388: p_init_msg_list,
2389: '_PVT',
2390: x_return_status);
2391: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2387: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2388: p_init_msg_list,
2389: '_PVT',
2390: x_return_status);
2391: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2393: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2394: RAISE OKL_API.G_EXCEPTION_ERROR;
2395: END IF;
2388: p_init_msg_list,
2389: '_PVT',
2390: x_return_status);
2391: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2393: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2394: RAISE OKL_API.G_EXCEPTION_ERROR;
2395: END IF;
2396: BEGIN
2389: '_PVT',
2390: x_return_status);
2391: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2393: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2394: RAISE OKL_API.G_EXCEPTION_ERROR;
2395: END IF;
2396: BEGIN
2397: OPEN lock_csr(p_rxh_rec);
2390: x_return_status);
2391: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2393: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2394: RAISE OKL_API.G_EXCEPTION_ERROR;
2395: END IF;
2396: BEGIN
2397: OPEN lock_csr(p_rxh_rec);
2398: FETCH lock_csr INTO l_object_version_number;
2402: WHEN E_Resource_Busy THEN
2403: IF (lock_csr%ISOPEN) THEN
2404: CLOSE lock_csr;
2405: END IF;
2406: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2407: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2408: END;
2409:
2410: IF ( l_row_notfound ) THEN
2413: lc_row_notfound := lchk_csr%NOTFOUND;
2414: CLOSE lchk_csr;
2415: END IF;
2416: IF (lc_row_notfound) THEN
2417: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2418: RAISE OKL_API.G_EXCEPTION_ERROR;
2419: ELSIF lc_object_version_number > p_rxh_rec.object_version_number THEN
2420: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2414: CLOSE lchk_csr;
2415: END IF;
2416: IF (lc_row_notfound) THEN
2417: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2418: RAISE OKL_API.G_EXCEPTION_ERROR;
2419: ELSIF lc_object_version_number > p_rxh_rec.object_version_number THEN
2420: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2422: ELSIF lc_object_version_number <> p_rxh_rec.object_version_number THEN
2416: IF (lc_row_notfound) THEN
2417: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2418: RAISE OKL_API.G_EXCEPTION_ERROR;
2419: ELSIF lc_object_version_number > p_rxh_rec.object_version_number THEN
2420: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2422: ELSIF lc_object_version_number <> p_rxh_rec.object_version_number THEN
2423: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2418: RAISE OKL_API.G_EXCEPTION_ERROR;
2419: ELSIF lc_object_version_number > p_rxh_rec.object_version_number THEN
2420: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2422: ELSIF lc_object_version_number <> p_rxh_rec.object_version_number THEN
2423: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: ELSIF lc_object_version_number = -1 THEN
2419: ELSIF lc_object_version_number > p_rxh_rec.object_version_number THEN
2420: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2422: ELSIF lc_object_version_number <> p_rxh_rec.object_version_number THEN
2423: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: ELSIF lc_object_version_number = -1 THEN
2426: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2420: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2421: RAISE OKL_API.G_EXCEPTION_ERROR;
2422: ELSIF lc_object_version_number <> p_rxh_rec.object_version_number THEN
2423: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: ELSIF lc_object_version_number = -1 THEN
2426: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2422: ELSIF lc_object_version_number <> p_rxh_rec.object_version_number THEN
2423: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: ELSIF lc_object_version_number = -1 THEN
2426: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2429: x_return_status := l_return_status;
2430: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2423: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: ELSIF lc_object_version_number = -1 THEN
2426: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2429: x_return_status := l_return_status;
2430: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2431: EXCEPTION
2426: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2427: RAISE OKL_API.G_EXCEPTION_ERROR;
2428: END IF;
2429: x_return_status := l_return_status;
2430: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2431: EXCEPTION
2432: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2433: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2434: (
2428: END IF;
2429: x_return_status := l_return_status;
2430: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2431: EXCEPTION
2432: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2433: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2434: (
2435: l_api_name,
2436: G_PKG_NAME,
2429: x_return_status := l_return_status;
2430: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2431: EXCEPTION
2432: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2433: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2434: (
2435: l_api_name,
2436: G_PKG_NAME,
2437: 'OKL_API.G_RET_STS_ERROR',
2433: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2434: (
2435: l_api_name,
2436: G_PKG_NAME,
2437: 'OKL_API.G_RET_STS_ERROR',
2438: x_msg_count,
2439: x_msg_data,
2440: '_PVT'
2441: );
2438: x_msg_count,
2439: x_msg_data,
2440: '_PVT'
2441: );
2442: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2443: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2444: (
2445: l_api_name,
2446: G_PKG_NAME,
2439: x_msg_data,
2440: '_PVT'
2441: );
2442: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2443: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2444: (
2445: l_api_name,
2446: G_PKG_NAME,
2447: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2443: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2444: (
2445: l_api_name,
2446: G_PKG_NAME,
2447: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2448: x_msg_count,
2449: x_msg_data,
2450: '_PVT'
2451: );
2449: x_msg_data,
2450: '_PVT'
2451: );
2452: WHEN OTHERS THEN
2453: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2454: (
2455: l_api_name,
2456: G_PKG_NAME,
2457: 'OTHERS',
2463: -----------------------------------------------
2464: -- lock_row for:OKL_EXT_AR_HEADER_SOURCES_TL --
2465: -----------------------------------------------
2466: PROCEDURE lock_row(
2467: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2468: x_return_status OUT NOCOPY VARCHAR2,
2469: x_msg_count OUT NOCOPY NUMBER,
2470: x_msg_data OUT NOCOPY VARCHAR2,
2471: p_rxhl_rec IN rxhl_rec_type) IS
2479: FOR UPDATE NOWAIT;
2480:
2481: l_api_version CONSTANT NUMBER := 1;
2482: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2483: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2484: l_lock_var lock_csr%ROWTYPE;
2485: l_row_notfound BOOLEAN := FALSE;
2486: lc_row_notfound BOOLEAN := FALSE;
2487: BEGIN
2484: l_lock_var lock_csr%ROWTYPE;
2485: l_row_notfound BOOLEAN := FALSE;
2486: lc_row_notfound BOOLEAN := FALSE;
2487: BEGIN
2488: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2489: p_init_msg_list,
2490: '_PVT',
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2488: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2489: p_init_msg_list,
2490: '_PVT',
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2489: p_init_msg_list,
2490: '_PVT',
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2497: BEGIN
2490: '_PVT',
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2497: BEGIN
2498: OPEN lock_csr(p_rxhl_rec);
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2497: BEGIN
2498: OPEN lock_csr(p_rxhl_rec);
2499: FETCH lock_csr INTO l_lock_var;
2503: WHEN E_Resource_Busy THEN
2504: IF (lock_csr%ISOPEN) THEN
2505: CLOSE lock_csr;
2506: END IF;
2507: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2508: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2509: END;
2510:
2511: IF ( l_row_notfound ) THEN
2508: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2509: END;
2510:
2511: IF ( l_row_notfound ) THEN
2512: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: x_return_status := l_return_status;
2516: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2509: END;
2510:
2511: IF ( l_row_notfound ) THEN
2512: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: x_return_status := l_return_status;
2516: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2517: EXCEPTION
2512: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: x_return_status := l_return_status;
2516: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2517: EXCEPTION
2518: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2520: (
2514: END IF;
2515: x_return_status := l_return_status;
2516: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2517: EXCEPTION
2518: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2520: (
2521: l_api_name,
2522: G_PKG_NAME,
2515: x_return_status := l_return_status;
2516: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2517: EXCEPTION
2518: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2520: (
2521: l_api_name,
2522: G_PKG_NAME,
2523: 'OKL_API.G_RET_STS_ERROR',
2519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2520: (
2521: l_api_name,
2522: G_PKG_NAME,
2523: 'OKL_API.G_RET_STS_ERROR',
2524: x_msg_count,
2525: x_msg_data,
2526: '_PVT'
2527: );
2524: x_msg_count,
2525: x_msg_data,
2526: '_PVT'
2527: );
2528: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2529: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2530: (
2531: l_api_name,
2532: G_PKG_NAME,
2525: x_msg_data,
2526: '_PVT'
2527: );
2528: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2529: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2530: (
2531: l_api_name,
2532: G_PKG_NAME,
2533: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2529: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2530: (
2531: l_api_name,
2532: G_PKG_NAME,
2533: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2534: x_msg_count,
2535: x_msg_data,
2536: '_PVT'
2537: );
2535: x_msg_data,
2536: '_PVT'
2537: );
2538: WHEN OTHERS THEN
2539: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2540: (
2541: l_api_name,
2542: G_PKG_NAME,
2543: 'OTHERS',
2550: -- lock_row for: OKL_EXT_AR_HEADER_SOURCES_V --
2551: -----------------------------------------------
2552: PROCEDURE lock_row(
2553: p_api_version IN NUMBER,
2554: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2555: x_return_status OUT NOCOPY VARCHAR2,
2556: x_msg_count OUT NOCOPY NUMBER,
2557: x_msg_data OUT NOCOPY VARCHAR2,
2558: p_rxhv_rec IN rxhv_rec_type) IS
2558: p_rxhv_rec IN rxhv_rec_type) IS
2559:
2560: l_api_version CONSTANT NUMBER := 1;
2561: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2562: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2563: l_rxh_rec rxh_rec_type;
2564: l_rxhl_rec rxhl_rec_type;
2565: BEGIN
2566: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2562: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2563: l_rxh_rec rxh_rec_type;
2564: l_rxhl_rec rxhl_rec_type;
2565: BEGIN
2566: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2567: G_PKG_NAME,
2568: p_init_msg_list,
2569: l_api_version,
2570: p_api_version,
2569: l_api_version,
2570: p_api_version,
2571: '_PVT',
2572: x_return_status);
2573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2576: RAISE OKL_API.G_EXCEPTION_ERROR;
2577: END IF;
2570: p_api_version,
2571: '_PVT',
2572: x_return_status);
2573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2576: RAISE OKL_API.G_EXCEPTION_ERROR;
2577: END IF;
2578: -----------------------------------------
2571: '_PVT',
2572: x_return_status);
2573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2576: RAISE OKL_API.G_EXCEPTION_ERROR;
2577: END IF;
2578: -----------------------------------------
2579: -- Move VIEW record to "Child" records --
2572: x_return_status);
2573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2576: RAISE OKL_API.G_EXCEPTION_ERROR;
2577: END IF;
2578: -----------------------------------------
2579: -- Move VIEW record to "Child" records --
2580: -----------------------------------------
2589: x_msg_count,
2590: x_msg_data,
2591: l_rxh_rec
2592: );
2593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2596: RAISE OKL_API.G_EXCEPTION_ERROR;
2597: END IF;
2590: x_msg_data,
2591: l_rxh_rec
2592: );
2593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2596: RAISE OKL_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: lock_row(
2591: l_rxh_rec
2592: );
2593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2596: RAISE OKL_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: lock_row(
2599: p_init_msg_list,
2592: );
2593: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2595: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2596: RAISE OKL_API.G_EXCEPTION_ERROR;
2597: END IF;
2598: lock_row(
2599: p_init_msg_list,
2600: l_return_status,
2601: x_msg_count,
2602: x_msg_data,
2603: l_rxhl_rec
2604: );
2605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2608: RAISE OKL_API.G_EXCEPTION_ERROR;
2609: END IF;
2602: x_msg_data,
2603: l_rxhl_rec
2604: );
2605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2608: RAISE OKL_API.G_EXCEPTION_ERROR;
2609: END IF;
2610: x_return_status := l_return_status;
2603: l_rxhl_rec
2604: );
2605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2608: RAISE OKL_API.G_EXCEPTION_ERROR;
2609: END IF;
2610: x_return_status := l_return_status;
2611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2604: );
2605: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2608: RAISE OKL_API.G_EXCEPTION_ERROR;
2609: END IF;
2610: x_return_status := l_return_status;
2611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2612: EXCEPTION
2607: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2608: RAISE OKL_API.G_EXCEPTION_ERROR;
2609: END IF;
2610: x_return_status := l_return_status;
2611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2612: EXCEPTION
2613: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2615: (
2609: END IF;
2610: x_return_status := l_return_status;
2611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2612: EXCEPTION
2613: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2615: (
2616: l_api_name,
2617: G_PKG_NAME,
2610: x_return_status := l_return_status;
2611: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2612: EXCEPTION
2613: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2615: (
2616: l_api_name,
2617: G_PKG_NAME,
2618: 'OKL_API.G_RET_STS_ERROR',
2614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2615: (
2616: l_api_name,
2617: G_PKG_NAME,
2618: 'OKL_API.G_RET_STS_ERROR',
2619: x_msg_count,
2620: x_msg_data,
2621: '_PVT'
2622: );
2619: x_msg_count,
2620: x_msg_data,
2621: '_PVT'
2622: );
2623: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2624: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2625: (
2626: l_api_name,
2627: G_PKG_NAME,
2620: x_msg_data,
2621: '_PVT'
2622: );
2623: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2624: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2625: (
2626: l_api_name,
2627: G_PKG_NAME,
2628: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2624: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2625: (
2626: l_api_name,
2627: G_PKG_NAME,
2628: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2629: x_msg_count,
2630: x_msg_data,
2631: '_PVT'
2632: );
2630: x_msg_data,
2631: '_PVT'
2632: );
2633: WHEN OTHERS THEN
2634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2635: (
2636: l_api_name,
2637: G_PKG_NAME,
2638: 'OTHERS',
2645: -- PL/SQL TBL lock_row for:RXHV_TBL --
2646: --------------------------------------
2647: PROCEDURE lock_row(
2648: p_api_version IN NUMBER,
2649: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2650: x_return_status OUT NOCOPY VARCHAR2,
2651: x_msg_count OUT NOCOPY NUMBER,
2652: x_msg_data OUT NOCOPY VARCHAR2,
2653: p_rxhv_tbl IN rxhv_tbl_type,
2650: x_return_status OUT NOCOPY VARCHAR2,
2651: x_msg_count OUT NOCOPY NUMBER,
2652: x_msg_data OUT NOCOPY VARCHAR2,
2653: p_rxhv_tbl IN rxhv_tbl_type,
2654: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2655:
2656: l_api_version CONSTANT NUMBER := 1;
2657: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2658: i NUMBER := 0;
2656: l_api_version CONSTANT NUMBER := 1;
2657: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2658: i NUMBER := 0;
2659: BEGIN
2660: OKL_API.init_msg_list(p_init_msg_list);
2661: -- Make sure PL/SQL table has recrods in it before passing
2662: IF (p_rxhv_tbl.COUNT > 0) THEN
2663: i := p_rxhv_tbl.FIRST;
2664: LOOP
2662: IF (p_rxhv_tbl.COUNT > 0) THEN
2663: i := p_rxhv_tbl.FIRST;
2664: LOOP
2665: DECLARE
2666: l_error_rec OKL_API.ERROR_REC_TYPE;
2667: BEGIN
2668: l_error_rec.api_name := l_api_name;
2669: l_error_rec.api_package := G_PKG_NAME;
2670: l_error_rec.idx := i;
2669: l_error_rec.api_package := G_PKG_NAME;
2670: l_error_rec.idx := i;
2671: lock_row(
2672: p_api_version => p_api_version,
2673: p_init_msg_list => OKL_API.G_FALSE,
2674: x_return_status => l_error_rec.error_type,
2675: x_msg_count => l_error_rec.msg_count,
2676: x_msg_data => l_error_rec.msg_data,
2677: p_rxhv_rec => p_rxhv_tbl(i));
2674: x_return_status => l_error_rec.error_type,
2675: x_msg_count => l_error_rec.msg_count,
2676: x_msg_data => l_error_rec.msg_data,
2677: p_rxhv_rec => p_rxhv_tbl(i));
2678: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2679: l_error_rec.sqlcode := SQLCODE;
2680: load_error_tbl(l_error_rec, px_error_tbl);
2681: ELSE
2682: x_msg_count := l_error_rec.msg_count;
2682: x_msg_count := l_error_rec.msg_count;
2683: x_msg_data := l_error_rec.msg_data;
2684: END IF;
2685: EXCEPTION
2686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2687: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2688: l_error_rec.sqlcode := SQLCODE;
2689: load_error_tbl(l_error_rec, px_error_tbl);
2690: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2683: x_msg_data := l_error_rec.msg_data;
2684: END IF;
2685: EXCEPTION
2686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2687: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2688: l_error_rec.sqlcode := SQLCODE;
2689: load_error_tbl(l_error_rec, px_error_tbl);
2690: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2687: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2688: l_error_rec.sqlcode := SQLCODE;
2689: load_error_tbl(l_error_rec, px_error_tbl);
2690: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2692: l_error_rec.sqlcode := SQLCODE;
2693: load_error_tbl(l_error_rec, px_error_tbl);
2694: WHEN OTHERS THEN
2687: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2688: l_error_rec.sqlcode := SQLCODE;
2689: load_error_tbl(l_error_rec, px_error_tbl);
2690: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2692: l_error_rec.sqlcode := SQLCODE;
2693: load_error_tbl(l_error_rec, px_error_tbl);
2694: WHEN OTHERS THEN
2695: l_error_rec.error_type := 'OTHERS';
2702: END IF;
2703: -- Loop through the error_tbl to find the error with the highest severity
2704: -- and return it.
2705: x_return_status := find_highest_exception(px_error_tbl);
2706: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2707: EXCEPTION
2708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2709: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2710: (
2704: -- and return it.
2705: x_return_status := find_highest_exception(px_error_tbl);
2706: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2707: EXCEPTION
2708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2709: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2710: (
2711: l_api_name,
2712: G_PKG_NAME,
2705: x_return_status := find_highest_exception(px_error_tbl);
2706: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2707: EXCEPTION
2708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2709: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2710: (
2711: l_api_name,
2712: G_PKG_NAME,
2713: 'OKL_API.G_RET_STS_ERROR',
2709: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2710: (
2711: l_api_name,
2712: G_PKG_NAME,
2713: 'OKL_API.G_RET_STS_ERROR',
2714: x_msg_count,
2715: x_msg_data,
2716: '_PVT'
2717: );
2714: x_msg_count,
2715: x_msg_data,
2716: '_PVT'
2717: );
2718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2719: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2720: (
2721: l_api_name,
2722: G_PKG_NAME,
2715: x_msg_data,
2716: '_PVT'
2717: );
2718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2719: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2720: (
2721: l_api_name,
2722: G_PKG_NAME,
2723: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2719: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2720: (
2721: l_api_name,
2722: G_PKG_NAME,
2723: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2724: x_msg_count,
2725: x_msg_data,
2726: '_PVT'
2727: );
2725: x_msg_data,
2726: '_PVT'
2727: );
2728: WHEN OTHERS THEN
2729: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2730: (
2731: l_api_name,
2732: G_PKG_NAME,
2733: 'OTHERS',
2740: -- PL/SQL TBL lock_row for:RXHV_TBL --
2741: --------------------------------------
2742: PROCEDURE lock_row(
2743: p_api_version IN NUMBER,
2744: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2745: x_return_status OUT NOCOPY VARCHAR2,
2746: x_msg_count OUT NOCOPY NUMBER,
2747: x_msg_data OUT NOCOPY VARCHAR2,
2748: p_rxhv_tbl IN rxhv_tbl_type) IS
2748: p_rxhv_tbl IN rxhv_tbl_type) IS
2749:
2750: l_api_version CONSTANT NUMBER := 1;
2751: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2752: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2753: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2754: BEGIN
2755: OKL_API.init_msg_list(p_init_msg_list);
2756: -- Make sure PL/SQL table has recrods in it before passing
2749:
2750: l_api_version CONSTANT NUMBER := 1;
2751: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2752: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2753: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2754: BEGIN
2755: OKL_API.init_msg_list(p_init_msg_list);
2756: -- Make sure PL/SQL table has recrods in it before passing
2757: IF (p_rxhv_tbl.COUNT > 0) THEN
2751: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2752: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2753: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2754: BEGIN
2755: OKL_API.init_msg_list(p_init_msg_list);
2756: -- Make sure PL/SQL table has recrods in it before passing
2757: IF (p_rxhv_tbl.COUNT > 0) THEN
2758: lock_row(
2759: p_api_version => p_api_version,
2756: -- Make sure PL/SQL table has recrods in it before passing
2757: IF (p_rxhv_tbl.COUNT > 0) THEN
2758: lock_row(
2759: p_api_version => p_api_version,
2760: p_init_msg_list => OKL_API.G_FALSE,
2761: x_return_status => x_return_status,
2762: x_msg_count => x_msg_count,
2763: x_msg_data => x_msg_data,
2764: p_rxhv_tbl => p_rxhv_tbl,
2763: x_msg_data => x_msg_data,
2764: p_rxhv_tbl => p_rxhv_tbl,
2765: px_error_tbl => l_error_tbl);
2766: END IF;
2767: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2768: EXCEPTION
2769: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2770: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2771: (
2765: px_error_tbl => l_error_tbl);
2766: END IF;
2767: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2768: EXCEPTION
2769: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2770: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2771: (
2772: l_api_name,
2773: G_PKG_NAME,
2766: END IF;
2767: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2768: EXCEPTION
2769: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2770: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2771: (
2772: l_api_name,
2773: G_PKG_NAME,
2774: 'OKL_API.G_RET_STS_ERROR',
2770: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2771: (
2772: l_api_name,
2773: G_PKG_NAME,
2774: 'OKL_API.G_RET_STS_ERROR',
2775: x_msg_count,
2776: x_msg_data,
2777: '_PVT'
2778: );
2775: x_msg_count,
2776: x_msg_data,
2777: '_PVT'
2778: );
2779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2780: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2781: (
2782: l_api_name,
2783: G_PKG_NAME,
2776: x_msg_data,
2777: '_PVT'
2778: );
2779: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2780: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2781: (
2782: l_api_name,
2783: G_PKG_NAME,
2784: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2780: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2781: (
2782: l_api_name,
2783: G_PKG_NAME,
2784: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2785: x_msg_count,
2786: x_msg_data,
2787: '_PVT'
2788: );
2786: x_msg_data,
2787: '_PVT'
2788: );
2789: WHEN OTHERS THEN
2790: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2791: (
2792: l_api_name,
2793: G_PKG_NAME,
2794: 'OTHERS',
2803: ------------------------------------------------
2804: -- update_row for:OKL_EXT_AR_HEADER_SOURCES_B --
2805: ------------------------------------------------
2806: PROCEDURE update_row(
2807: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2808: x_return_status OUT NOCOPY VARCHAR2,
2809: x_msg_count OUT NOCOPY NUMBER,
2810: x_msg_data OUT NOCOPY VARCHAR2,
2811: p_rxh_rec IN rxh_rec_type,
2812: x_rxh_rec OUT NOCOPY rxh_rec_type) IS
2813:
2814: l_api_version CONSTANT NUMBER := 1;
2815: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2816: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2817: l_rxh_rec rxh_rec_type := p_rxh_rec;
2818: l_def_rxh_rec rxh_rec_type;
2819: l_row_notfound BOOLEAN := TRUE;
2820: ----------------------------------
2825: x_rxh_rec OUT NOCOPY rxh_rec_type
2826: ) RETURN VARCHAR2 IS
2827: l_rxh_rec rxh_rec_type;
2828: l_row_notfound BOOLEAN := TRUE;
2829: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2830: BEGIN
2831: x_rxh_rec := p_rxh_rec;
2832: -- Get current database values
2833: l_rxh_rec := get_rec(p_rxh_rec, l_return_status);
2830: BEGIN
2831: x_rxh_rec := p_rxh_rec;
2832: -- Get current database values
2833: l_rxh_rec := get_rec(p_rxh_rec, l_return_status);
2834: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2835: IF x_rxh_rec.header_extension_id IS NULL THEN
2836: x_rxh_rec.header_extension_id := l_rxh_rec.header_extension_id;
2837: END IF;
2838: IF x_rxh_rec.source_id IS NULL THEN
3075: FUNCTION Set_Attributes (
3076: p_rxh_rec IN rxh_rec_type,
3077: x_rxh_rec OUT NOCOPY rxh_rec_type
3078: ) RETURN VARCHAR2 IS
3079: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3080: BEGIN
3081: x_rxh_rec := p_rxh_rec;
3082: x_rxh_rec.OBJECT_VERSION_NUMBER := p_rxh_rec.OBJECT_VERSION_NUMBER + 1;
3083: RETURN(l_return_status);
3082: x_rxh_rec.OBJECT_VERSION_NUMBER := p_rxh_rec.OBJECT_VERSION_NUMBER + 1;
3083: RETURN(l_return_status);
3084: END Set_Attributes;
3085: BEGIN
3086: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3087: p_init_msg_list,
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3086: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3087: p_init_msg_list,
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3093: RAISE OKL_API.G_EXCEPTION_ERROR;
3094: END IF;
3087: p_init_msg_list,
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3093: RAISE OKL_API.G_EXCEPTION_ERROR;
3094: END IF;
3095: --- Setting item attributes
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3093: RAISE OKL_API.G_EXCEPTION_ERROR;
3094: END IF;
3095: --- Setting item attributes
3096: l_return_status := Set_Attributes(
3089: x_return_status);
3090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3093: RAISE OKL_API.G_EXCEPTION_ERROR;
3094: END IF;
3095: --- Setting item attributes
3096: l_return_status := Set_Attributes(
3097: p_rxh_rec, -- IN
3096: l_return_status := Set_Attributes(
3097: p_rxh_rec, -- IN
3098: l_rxh_rec); -- OUT
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: END IF;
3097: p_rxh_rec, -- IN
3098: l_rxh_rec); -- OUT
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: l_return_status := populate_new_record(l_rxh_rec, l_def_rxh_rec);
3098: l_rxh_rec); -- OUT
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: l_return_status := populate_new_record(l_rxh_rec, l_def_rxh_rec);
3106: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: l_return_status := populate_new_record(l_rxh_rec, l_def_rxh_rec);
3106: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: l_return_status := populate_new_record(l_rxh_rec, l_def_rxh_rec);
3106: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3109: RAISE OKL_API.G_EXCEPTION_ERROR;
3110: END IF;
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: l_return_status := populate_new_record(l_rxh_rec, l_def_rxh_rec);
3106: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3109: RAISE OKL_API.G_EXCEPTION_ERROR;
3110: END IF;
3111: UPDATE OKL_EXT_AR_HEADER_SOURCES_B
3104: END IF;
3105: l_return_status := populate_new_record(l_rxh_rec, l_def_rxh_rec);
3106: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3109: RAISE OKL_API.G_EXCEPTION_ERROR;
3110: END IF;
3111: UPDATE OKL_EXT_AR_HEADER_SOURCES_B
3112: SET SOURCE_ID = l_def_rxh_rec.source_id,
3105: l_return_status := populate_new_record(l_rxh_rec, l_def_rxh_rec);
3106: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3108: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3109: RAISE OKL_API.G_EXCEPTION_ERROR;
3110: END IF;
3111: UPDATE OKL_EXT_AR_HEADER_SOURCES_B
3112: SET SOURCE_ID = l_def_rxh_rec.source_id,
3113: SOURCE_TABLE = l_def_rxh_rec.source_table,
3189: WHERE HEADER_EXTENSION_ID = l_def_rxh_rec.header_extension_id;
3190:
3191: x_rxh_rec := l_rxh_rec;
3192: x_return_status := l_return_status;
3193: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3194: EXCEPTION
3195: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3196: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3197: (
3191: x_rxh_rec := l_rxh_rec;
3192: x_return_status := l_return_status;
3193: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3194: EXCEPTION
3195: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3196: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3197: (
3198: l_api_name,
3199: G_PKG_NAME,
3192: x_return_status := l_return_status;
3193: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3194: EXCEPTION
3195: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3196: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3197: (
3198: l_api_name,
3199: G_PKG_NAME,
3200: 'OKL_API.G_RET_STS_ERROR',
3196: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3197: (
3198: l_api_name,
3199: G_PKG_NAME,
3200: 'OKL_API.G_RET_STS_ERROR',
3201: x_msg_count,
3202: x_msg_data,
3203: '_PVT'
3204: );
3201: x_msg_count,
3202: x_msg_data,
3203: '_PVT'
3204: );
3205: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3206: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3207: (
3208: l_api_name,
3209: G_PKG_NAME,
3202: x_msg_data,
3203: '_PVT'
3204: );
3205: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3206: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3207: (
3208: l_api_name,
3209: G_PKG_NAME,
3210: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3206: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3207: (
3208: l_api_name,
3209: G_PKG_NAME,
3210: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3211: x_msg_count,
3212: x_msg_data,
3213: '_PVT'
3214: );
3212: x_msg_data,
3213: '_PVT'
3214: );
3215: WHEN OTHERS THEN
3216: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3217: (
3218: l_api_name,
3219: G_PKG_NAME,
3220: 'OTHERS',
3226: -------------------------------------------------
3227: -- update_row for:OKL_EXT_AR_HEADER_SOURCES_TL --
3228: -------------------------------------------------
3229: PROCEDURE update_row(
3230: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3231: x_return_status OUT NOCOPY VARCHAR2,
3232: x_msg_count OUT NOCOPY NUMBER,
3233: x_msg_data OUT NOCOPY VARCHAR2,
3234: p_rxhl_rec IN rxhl_rec_type,
3235: x_rxhl_rec OUT NOCOPY rxhl_rec_type) IS
3236:
3237: l_api_version CONSTANT NUMBER := 1;
3238: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3239: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3240: l_rxhl_rec rxhl_rec_type := p_rxhl_rec;
3241: l_def_rxhl_rec rxhl_rec_type;
3242: l_row_notfound BOOLEAN := TRUE;
3243: ----------------------------------
3248: x_rxhl_rec OUT NOCOPY rxhl_rec_type
3249: ) RETURN VARCHAR2 IS
3250: l_rxhl_rec rxhl_rec_type;
3251: l_row_notfound BOOLEAN := TRUE;
3252: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3253: BEGIN
3254: x_rxhl_rec := p_rxhl_rec;
3255: -- Get current database values
3256: l_rxhl_rec := get_rec(p_rxhl_rec, l_return_status);
3253: BEGIN
3254: x_rxhl_rec := p_rxhl_rec;
3255: -- Get current database values
3256: l_rxhl_rec := get_rec(p_rxhl_rec, l_return_status);
3257: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3258: IF x_rxhl_rec.header_extension_id IS NULL THEN
3259: x_rxhl_rec.header_extension_id := l_rxhl_rec.header_extension_id;
3260: END IF;
3261: IF x_rxhl_rec.language IS NULL THEN
3300: FUNCTION Set_Attributes (
3301: p_rxhl_rec IN rxhl_rec_type,
3302: x_rxhl_rec OUT NOCOPY rxhl_rec_type
3303: ) RETURN VARCHAR2 IS
3304: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3305: BEGIN
3306: x_rxhl_rec := p_rxhl_rec;
3307: x_rxhl_rec.LANGUAGE := USERENV('LANG');
3308: x_rxhl_rec.LANGUAGE := USERENV('LANG');
3308: x_rxhl_rec.LANGUAGE := USERENV('LANG');
3309: RETURN(l_return_status);
3310: END Set_Attributes;
3311: BEGIN
3312: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3313: p_init_msg_list,
3314: '_PVT',
3315: x_return_status);
3316: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3312: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3313: p_init_msg_list,
3314: '_PVT',
3315: x_return_status);
3316: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_ERROR;
3320: END IF;
3313: p_init_msg_list,
3314: '_PVT',
3315: x_return_status);
3316: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_ERROR;
3320: END IF;
3321: --- Setting item attributes
3314: '_PVT',
3315: x_return_status);
3316: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_ERROR;
3320: END IF;
3321: --- Setting item attributes
3322: l_return_status := Set_Attributes(
3315: x_return_status);
3316: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3318: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3319: RAISE OKL_API.G_EXCEPTION_ERROR;
3320: END IF;
3321: --- Setting item attributes
3322: l_return_status := Set_Attributes(
3323: p_rxhl_rec, -- IN
3322: l_return_status := Set_Attributes(
3323: p_rxhl_rec, -- IN
3324: l_rxhl_rec); -- OUT
3325: --- If any errors happen abort API
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3323: p_rxhl_rec, -- IN
3324: l_rxhl_rec); -- OUT
3325: --- If any errors happen abort API
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331: l_return_status := populate_new_record(l_rxhl_rec, l_def_rxhl_rec);
3324: l_rxhl_rec); -- OUT
3325: --- If any errors happen abort API
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331: l_return_status := populate_new_record(l_rxhl_rec, l_def_rxhl_rec);
3332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: --- If any errors happen abort API
3326: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331: l_return_status := populate_new_record(l_rxhl_rec, l_def_rxhl_rec);
3332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3328: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331: l_return_status := populate_new_record(l_rxhl_rec, l_def_rxhl_rec);
3332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: END IF;
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: END IF;
3331: l_return_status := populate_new_record(l_rxhl_rec, l_def_rxhl_rec);
3332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: END IF;
3337: UPDATE OKL_EXT_AR_HEADER_SOURCES_TL
3330: END IF;
3331: l_return_status := populate_new_record(l_rxhl_rec, l_def_rxhl_rec);
3332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: END IF;
3337: UPDATE OKL_EXT_AR_HEADER_SOURCES_TL
3338: SET CONTRACT_STATUS = l_def_rxhl_rec.contract_status,
3331: l_return_status := populate_new_record(l_rxhl_rec, l_def_rxhl_rec);
3332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: END IF;
3337: UPDATE OKL_EXT_AR_HEADER_SOURCES_TL
3338: SET CONTRACT_STATUS = l_def_rxhl_rec.contract_status,
3339: INV_AGRMNT_STATUS = l_def_rxhl_rec.inv_agrmnt_status,
3352: AND SOURCE_LANG <> USERENV('LANG');
3353:
3354: x_rxhl_rec := l_rxhl_rec;
3355: x_return_status := l_return_status;
3356: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3357: EXCEPTION
3358: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3359: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3360: (
3354: x_rxhl_rec := l_rxhl_rec;
3355: x_return_status := l_return_status;
3356: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3357: EXCEPTION
3358: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3359: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3360: (
3361: l_api_name,
3362: G_PKG_NAME,
3355: x_return_status := l_return_status;
3356: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3357: EXCEPTION
3358: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3359: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3360: (
3361: l_api_name,
3362: G_PKG_NAME,
3363: 'OKL_API.G_RET_STS_ERROR',
3359: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3360: (
3361: l_api_name,
3362: G_PKG_NAME,
3363: 'OKL_API.G_RET_STS_ERROR',
3364: x_msg_count,
3365: x_msg_data,
3366: '_PVT'
3367: );
3364: x_msg_count,
3365: x_msg_data,
3366: '_PVT'
3367: );
3368: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3369: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3370: (
3371: l_api_name,
3372: G_PKG_NAME,
3365: x_msg_data,
3366: '_PVT'
3367: );
3368: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3369: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3370: (
3371: l_api_name,
3372: G_PKG_NAME,
3373: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3369: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3370: (
3371: l_api_name,
3372: G_PKG_NAME,
3373: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3374: x_msg_count,
3375: x_msg_data,
3376: '_PVT'
3377: );
3375: x_msg_data,
3376: '_PVT'
3377: );
3378: WHEN OTHERS THEN
3379: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3380: (
3381: l_api_name,
3382: G_PKG_NAME,
3383: 'OTHERS',
3390: -- update_row for:OKL_EXT_AR_HEADER_SOURCES_V --
3391: ------------------------------------------------
3392: PROCEDURE update_row(
3393: p_api_version IN NUMBER,
3394: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3395: x_return_status OUT NOCOPY VARCHAR2,
3396: x_msg_count OUT NOCOPY NUMBER,
3397: x_msg_data OUT NOCOPY VARCHAR2,
3398: p_rxhv_rec IN rxhv_rec_type,
3399: x_rxhv_rec OUT NOCOPY rxhv_rec_type) IS
3400:
3401: l_api_version CONSTANT NUMBER := 1;
3402: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3403: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3404: l_rxhv_rec rxhv_rec_type := p_rxhv_rec;
3405: l_def_rxhv_rec rxhv_rec_type;
3406: l_db_rxhv_rec rxhv_rec_type;
3407: l_rxh_rec rxh_rec_type;
3428: p_rxhv_rec IN rxhv_rec_type,
3429: x_rxhv_rec OUT NOCOPY rxhv_rec_type
3430: ) RETURN VARCHAR2 IS
3431: l_row_notfound BOOLEAN := TRUE;
3432: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3433: BEGIN
3434: x_rxhv_rec := p_rxhv_rec;
3435: -- Get current database values
3436: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3435: -- Get current database values
3436: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3437: -- so it may be verified through LOCK_ROW.
3438: l_db_rxhv_rec := get_rec(p_rxhv_rec, l_return_status);
3439: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3440: IF x_rxhv_rec.header_extension_id IS NULL THEN
3441: x_rxhv_rec.header_extension_id := l_db_rxhv_rec.header_extension_id;
3442: END IF;
3443: IF x_rxhv_rec.source_id IS NULL THEN
3689: FUNCTION Set_Attributes (
3690: p_rxhv_rec IN rxhv_rec_type,
3691: x_rxhv_rec OUT NOCOPY rxhv_rec_type
3692: ) RETURN VARCHAR2 IS
3693: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3694: BEGIN
3695: x_rxhv_rec := p_rxhv_rec;
3696: RETURN(l_return_status);
3697: END Set_Attributes;
3695: x_rxhv_rec := p_rxhv_rec;
3696: RETURN(l_return_status);
3697: END Set_Attributes;
3698: BEGIN
3699: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3700: G_PKG_NAME,
3701: p_init_msg_list,
3702: l_api_version,
3703: p_api_version,
3702: l_api_version,
3703: p_api_version,
3704: '_PVT',
3705: x_return_status);
3706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_ERROR;
3710: END IF;
3703: p_api_version,
3704: '_PVT',
3705: x_return_status);
3706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_ERROR;
3710: END IF;
3711: --- Setting item attributes
3704: '_PVT',
3705: x_return_status);
3706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_ERROR;
3710: END IF;
3711: --- Setting item attributes
3712: l_return_status := Set_Attributes(
3705: x_return_status);
3706: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3708: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3709: RAISE OKL_API.G_EXCEPTION_ERROR;
3710: END IF;
3711: --- Setting item attributes
3712: l_return_status := Set_Attributes(
3713: p_rxhv_rec, -- IN
3712: l_return_status := Set_Attributes(
3713: p_rxhv_rec, -- IN
3714: x_rxhv_rec); -- OUT
3715: --- If any errors happen abort API
3716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3713: p_rxhv_rec, -- IN
3714: x_rxhv_rec); -- OUT
3715: --- If any errors happen abort API
3716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721: l_return_status := populate_new_record(l_rxhv_rec, l_def_rxhv_rec);
3714: x_rxhv_rec); -- OUT
3715: --- If any errors happen abort API
3716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721: l_return_status := populate_new_record(l_rxhv_rec, l_def_rxhv_rec);
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3715: --- If any errors happen abort API
3716: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721: l_return_status := populate_new_record(l_rxhv_rec, l_def_rxhv_rec);
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721: l_return_status := populate_new_record(l_rxhv_rec, l_def_rxhv_rec);
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3725: RAISE OKL_API.G_EXCEPTION_ERROR;
3726: END IF;
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721: l_return_status := populate_new_record(l_rxhv_rec, l_def_rxhv_rec);
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3725: RAISE OKL_API.G_EXCEPTION_ERROR;
3726: END IF;
3727: l_def_rxhv_rec := null_out_defaults(l_def_rxhv_rec);
3720: END IF;
3721: l_return_status := populate_new_record(l_rxhv_rec, l_def_rxhv_rec);
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3725: RAISE OKL_API.G_EXCEPTION_ERROR;
3726: END IF;
3727: l_def_rxhv_rec := null_out_defaults(l_def_rxhv_rec);
3728: l_def_rxhv_rec := fill_who_columns(l_def_rxhv_rec);
3721: l_return_status := populate_new_record(l_rxhv_rec, l_def_rxhv_rec);
3722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3724: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3725: RAISE OKL_API.G_EXCEPTION_ERROR;
3726: END IF;
3727: l_def_rxhv_rec := null_out_defaults(l_def_rxhv_rec);
3728: l_def_rxhv_rec := fill_who_columns(l_def_rxhv_rec);
3729: --- Validate all non-missing attributes (Item Level Validation)
3728: l_def_rxhv_rec := fill_who_columns(l_def_rxhv_rec);
3729: --- Validate all non-missing attributes (Item Level Validation)
3730: l_return_status := Validate_Attributes(l_def_rxhv_rec);
3731: --- If any errors happen abort API
3732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3729: --- Validate all non-missing attributes (Item Level Validation)
3730: l_return_status := Validate_Attributes(l_def_rxhv_rec);
3731: --- If any errors happen abort API
3732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737: l_return_status := Validate_Record(l_def_rxhv_rec, l_db_rxhv_rec);
3730: l_return_status := Validate_Attributes(l_def_rxhv_rec);
3731: --- If any errors happen abort API
3732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737: l_return_status := Validate_Record(l_def_rxhv_rec, l_db_rxhv_rec);
3738: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3731: --- If any errors happen abort API
3732: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737: l_return_status := Validate_Record(l_def_rxhv_rec, l_db_rxhv_rec);
3738: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737: l_return_status := Validate_Record(l_def_rxhv_rec, l_db_rxhv_rec);
3738: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3741: RAISE OKL_API.G_EXCEPTION_ERROR;
3742: END IF;
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737: l_return_status := Validate_Record(l_def_rxhv_rec, l_db_rxhv_rec);
3738: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3741: RAISE OKL_API.G_EXCEPTION_ERROR;
3742: END IF;
3743:
3736: END IF;
3737: l_return_status := Validate_Record(l_def_rxhv_rec, l_db_rxhv_rec);
3738: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3741: RAISE OKL_API.G_EXCEPTION_ERROR;
3742: END IF;
3743:
3744: -- Lock the Record
3737: l_return_status := Validate_Record(l_def_rxhv_rec, l_db_rxhv_rec);
3738: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3740: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3741: RAISE OKL_API.G_EXCEPTION_ERROR;
3742: END IF;
3743:
3744: -- Lock the Record
3745: lock_row(
3748: x_return_status => l_return_status,
3749: x_msg_count => x_msg_count,
3750: x_msg_data => x_msg_data,
3751: p_rxhv_rec => p_rxhv_rec);
3752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3755: RAISE OKL_API.G_EXCEPTION_ERROR;
3756: END IF;
3749: x_msg_count => x_msg_count,
3750: x_msg_data => x_msg_data,
3751: p_rxhv_rec => p_rxhv_rec);
3752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3755: RAISE OKL_API.G_EXCEPTION_ERROR;
3756: END IF;
3757:
3750: x_msg_data => x_msg_data,
3751: p_rxhv_rec => p_rxhv_rec);
3752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3755: RAISE OKL_API.G_EXCEPTION_ERROR;
3756: END IF;
3757:
3758: -----------------------------------------
3751: p_rxhv_rec => p_rxhv_rec);
3752: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3755: RAISE OKL_API.G_EXCEPTION_ERROR;
3756: END IF;
3757:
3758: -----------------------------------------
3759: -- Move VIEW record to "Child" records --
3770: x_msg_data,
3771: l_rxh_rec,
3772: lx_rxh_rec
3773: );
3774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_ERROR;
3778: END IF;
3771: l_rxh_rec,
3772: lx_rxh_rec
3773: );
3774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_ERROR;
3778: END IF;
3779: migrate(lx_rxh_rec, l_def_rxhv_rec);
3772: lx_rxh_rec
3773: );
3774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_ERROR;
3778: END IF;
3779: migrate(lx_rxh_rec, l_def_rxhv_rec);
3780: update_row(
3773: );
3774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_ERROR;
3778: END IF;
3779: migrate(lx_rxh_rec, l_def_rxhv_rec);
3780: update_row(
3781: p_init_msg_list,
3784: x_msg_data,
3785: l_rxhl_rec,
3786: lx_rxhl_rec
3787: );
3788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3791: RAISE OKL_API.G_EXCEPTION_ERROR;
3792: END IF;
3785: l_rxhl_rec,
3786: lx_rxhl_rec
3787: );
3788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3791: RAISE OKL_API.G_EXCEPTION_ERROR;
3792: END IF;
3793: migrate(lx_rxhl_rec, l_def_rxhv_rec);
3786: lx_rxhl_rec
3787: );
3788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3791: RAISE OKL_API.G_EXCEPTION_ERROR;
3792: END IF;
3793: migrate(lx_rxhl_rec, l_def_rxhv_rec);
3794: x_rxhv_rec := l_def_rxhv_rec;
3787: );
3788: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3790: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3791: RAISE OKL_API.G_EXCEPTION_ERROR;
3792: END IF;
3793: migrate(lx_rxhl_rec, l_def_rxhv_rec);
3794: x_rxhv_rec := l_def_rxhv_rec;
3795: x_return_status := l_return_status;
3792: END IF;
3793: migrate(lx_rxhl_rec, l_def_rxhv_rec);
3794: x_rxhv_rec := l_def_rxhv_rec;
3795: x_return_status := l_return_status;
3796: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3797: EXCEPTION
3798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3800: (
3794: x_rxhv_rec := l_def_rxhv_rec;
3795: x_return_status := l_return_status;
3796: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3797: EXCEPTION
3798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3800: (
3801: l_api_name,
3802: G_PKG_NAME,
3795: x_return_status := l_return_status;
3796: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3797: EXCEPTION
3798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3800: (
3801: l_api_name,
3802: G_PKG_NAME,
3803: 'OKL_API.G_RET_STS_ERROR',
3799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3800: (
3801: l_api_name,
3802: G_PKG_NAME,
3803: 'OKL_API.G_RET_STS_ERROR',
3804: x_msg_count,
3805: x_msg_data,
3806: '_PVT'
3807: );
3804: x_msg_count,
3805: x_msg_data,
3806: '_PVT'
3807: );
3808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3809: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3810: (
3811: l_api_name,
3812: G_PKG_NAME,
3805: x_msg_data,
3806: '_PVT'
3807: );
3808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3809: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3810: (
3811: l_api_name,
3812: G_PKG_NAME,
3813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3809: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3810: (
3811: l_api_name,
3812: G_PKG_NAME,
3813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3814: x_msg_count,
3815: x_msg_data,
3816: '_PVT'
3817: );
3815: x_msg_data,
3816: '_PVT'
3817: );
3818: WHEN OTHERS THEN
3819: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3820: (
3821: l_api_name,
3822: G_PKG_NAME,
3823: 'OTHERS',
3830: -- PL/SQL TBL update_row for:rxhv_tbl --
3831: ----------------------------------------
3832: PROCEDURE update_row(
3833: p_api_version IN NUMBER,
3834: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3835: x_return_status OUT NOCOPY VARCHAR2,
3836: x_msg_count OUT NOCOPY NUMBER,
3837: x_msg_data OUT NOCOPY VARCHAR2,
3838: p_rxhv_tbl IN rxhv_tbl_type,
3836: x_msg_count OUT NOCOPY NUMBER,
3837: x_msg_data OUT NOCOPY VARCHAR2,
3838: p_rxhv_tbl IN rxhv_tbl_type,
3839: x_rxhv_tbl OUT NOCOPY rxhv_tbl_type,
3840: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3841:
3842: l_api_version CONSTANT NUMBER := 1;
3843: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3844: i NUMBER := 0;
3842: l_api_version CONSTANT NUMBER := 1;
3843: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3844: i NUMBER := 0;
3845: BEGIN
3846: OKL_API.init_msg_list(p_init_msg_list);
3847: -- Make sure PL/SQL table has records in it before passing
3848: IF (p_rxhv_tbl.COUNT > 0) THEN
3849: i := p_rxhv_tbl.FIRST;
3850: LOOP
3848: IF (p_rxhv_tbl.COUNT > 0) THEN
3849: i := p_rxhv_tbl.FIRST;
3850: LOOP
3851: DECLARE
3852: l_error_rec OKL_API.ERROR_REC_TYPE;
3853: BEGIN
3854: l_error_rec.api_name := l_api_name;
3855: l_error_rec.api_package := G_PKG_NAME;
3856: l_error_rec.idx := i;
3855: l_error_rec.api_package := G_PKG_NAME;
3856: l_error_rec.idx := i;
3857: update_row (
3858: p_api_version => p_api_version,
3859: p_init_msg_list => OKL_API.G_FALSE,
3860: x_return_status => l_error_rec.error_type,
3861: x_msg_count => l_error_rec.msg_count,
3862: x_msg_data => l_error_rec.msg_data,
3863: p_rxhv_rec => p_rxhv_tbl(i),
3861: x_msg_count => l_error_rec.msg_count,
3862: x_msg_data => l_error_rec.msg_data,
3863: p_rxhv_rec => p_rxhv_tbl(i),
3864: x_rxhv_rec => x_rxhv_tbl(i));
3865: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3866: l_error_rec.sqlcode := SQLCODE;
3867: load_error_tbl(l_error_rec, px_error_tbl);
3868: ELSE
3869: x_msg_count := l_error_rec.msg_count;
3869: x_msg_count := l_error_rec.msg_count;
3870: x_msg_data := l_error_rec.msg_data;
3871: END IF;
3872: EXCEPTION
3873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3874: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3875: l_error_rec.sqlcode := SQLCODE;
3876: load_error_tbl(l_error_rec, px_error_tbl);
3877: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3870: x_msg_data := l_error_rec.msg_data;
3871: END IF;
3872: EXCEPTION
3873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3874: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3875: l_error_rec.sqlcode := SQLCODE;
3876: load_error_tbl(l_error_rec, px_error_tbl);
3877: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3878: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3874: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3875: l_error_rec.sqlcode := SQLCODE;
3876: load_error_tbl(l_error_rec, px_error_tbl);
3877: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3878: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3879: l_error_rec.sqlcode := SQLCODE;
3880: load_error_tbl(l_error_rec, px_error_tbl);
3881: WHEN OTHERS THEN
3874: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3875: l_error_rec.sqlcode := SQLCODE;
3876: load_error_tbl(l_error_rec, px_error_tbl);
3877: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3878: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3879: l_error_rec.sqlcode := SQLCODE;
3880: load_error_tbl(l_error_rec, px_error_tbl);
3881: WHEN OTHERS THEN
3882: l_error_rec.error_type := 'OTHERS';
3889: END IF;
3890: -- Loop through the error_tbl to find the error with the highest severity
3891: -- and return it.
3892: x_return_status := find_highest_exception(px_error_tbl);
3893: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3894: EXCEPTION
3895: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3896: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3897: (
3891: -- and return it.
3892: x_return_status := find_highest_exception(px_error_tbl);
3893: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3894: EXCEPTION
3895: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3896: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3897: (
3898: l_api_name,
3899: G_PKG_NAME,
3892: x_return_status := find_highest_exception(px_error_tbl);
3893: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3894: EXCEPTION
3895: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3896: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3897: (
3898: l_api_name,
3899: G_PKG_NAME,
3900: 'OKL_API.G_RET_STS_ERROR',
3896: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3897: (
3898: l_api_name,
3899: G_PKG_NAME,
3900: 'OKL_API.G_RET_STS_ERROR',
3901: x_msg_count,
3902: x_msg_data,
3903: '_PVT'
3904: );
3901: x_msg_count,
3902: x_msg_data,
3903: '_PVT'
3904: );
3905: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3906: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3907: (
3908: l_api_name,
3909: G_PKG_NAME,
3902: x_msg_data,
3903: '_PVT'
3904: );
3905: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3906: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3907: (
3908: l_api_name,
3909: G_PKG_NAME,
3910: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3906: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3907: (
3908: l_api_name,
3909: G_PKG_NAME,
3910: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3911: x_msg_count,
3912: x_msg_data,
3913: '_PVT'
3914: );
3912: x_msg_data,
3913: '_PVT'
3914: );
3915: WHEN OTHERS THEN
3916: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3917: (
3918: l_api_name,
3919: G_PKG_NAME,
3920: 'OTHERS',
3928: -- PL/SQL TBL update_row for:RXHV_TBL --
3929: ----------------------------------------
3930: PROCEDURE update_row(
3931: p_api_version IN NUMBER,
3932: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3933: x_return_status OUT NOCOPY VARCHAR2,
3934: x_msg_count OUT NOCOPY NUMBER,
3935: x_msg_data OUT NOCOPY VARCHAR2,
3936: p_rxhv_tbl IN rxhv_tbl_type,
3937: x_rxhv_tbl OUT NOCOPY rxhv_tbl_type) IS
3938:
3939: l_api_version CONSTANT NUMBER := 1;
3940: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3941: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3942: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3943: BEGIN
3944: OKL_API.init_msg_list(p_init_msg_list);
3945: -- Make sure PL/SQL table has records in it before passing
3938:
3939: l_api_version CONSTANT NUMBER := 1;
3940: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3941: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3942: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3943: BEGIN
3944: OKL_API.init_msg_list(p_init_msg_list);
3945: -- Make sure PL/SQL table has records in it before passing
3946: IF (p_rxhv_tbl.COUNT > 0) THEN
3940: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3941: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3942: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3943: BEGIN
3944: OKL_API.init_msg_list(p_init_msg_list);
3945: -- Make sure PL/SQL table has records in it before passing
3946: IF (p_rxhv_tbl.COUNT > 0) THEN
3947: update_row (
3948: p_api_version => p_api_version,
3945: -- Make sure PL/SQL table has records in it before passing
3946: IF (p_rxhv_tbl.COUNT > 0) THEN
3947: update_row (
3948: p_api_version => p_api_version,
3949: p_init_msg_list => OKL_API.G_FALSE,
3950: x_return_status => x_return_status,
3951: x_msg_count => x_msg_count,
3952: x_msg_data => x_msg_data,
3953: p_rxhv_tbl => p_rxhv_tbl,
3953: p_rxhv_tbl => p_rxhv_tbl,
3954: x_rxhv_tbl => x_rxhv_tbl,
3955: px_error_tbl => l_error_tbl);
3956: END IF;
3957: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3958: EXCEPTION
3959: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3961: (
3955: px_error_tbl => l_error_tbl);
3956: END IF;
3957: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3958: EXCEPTION
3959: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3961: (
3962: l_api_name,
3963: G_PKG_NAME,
3956: END IF;
3957: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3958: EXCEPTION
3959: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3961: (
3962: l_api_name,
3963: G_PKG_NAME,
3964: 'OKL_API.G_RET_STS_ERROR',
3960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3961: (
3962: l_api_name,
3963: G_PKG_NAME,
3964: 'OKL_API.G_RET_STS_ERROR',
3965: x_msg_count,
3966: x_msg_data,
3967: '_PVT'
3968: );
3965: x_msg_count,
3966: x_msg_data,
3967: '_PVT'
3968: );
3969: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3970: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3971: (
3972: l_api_name,
3973: G_PKG_NAME,
3966: x_msg_data,
3967: '_PVT'
3968: );
3969: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3970: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3971: (
3972: l_api_name,
3973: G_PKG_NAME,
3974: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3970: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3971: (
3972: l_api_name,
3973: G_PKG_NAME,
3974: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3975: x_msg_count,
3976: x_msg_data,
3977: '_PVT'
3978: );
3976: x_msg_data,
3977: '_PVT'
3978: );
3979: WHEN OTHERS THEN
3980: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3981: (
3982: l_api_name,
3983: G_PKG_NAME,
3984: 'OTHERS',
3994: ------------------------------------------------
3995: -- delete_row for:OKL_EXT_AR_HEADER_SOURCES_B --
3996: ------------------------------------------------
3997: PROCEDURE delete_row(
3998: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3999: x_return_status OUT NOCOPY VARCHAR2,
4000: x_msg_count OUT NOCOPY NUMBER,
4001: x_msg_data OUT NOCOPY VARCHAR2,
4002: p_rxh_rec IN rxh_rec_type) IS
4002: p_rxh_rec IN rxh_rec_type) IS
4003:
4004: l_api_version CONSTANT NUMBER := 1;
4005: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
4006: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4007: l_rxh_rec rxh_rec_type := p_rxh_rec;
4008: l_row_notfound BOOLEAN := TRUE;
4009: BEGIN
4010: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4006: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4007: l_rxh_rec rxh_rec_type := p_rxh_rec;
4008: l_row_notfound BOOLEAN := TRUE;
4009: BEGIN
4010: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4011: p_init_msg_list,
4012: '_PVT',
4013: x_return_status);
4014: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4010: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4011: p_init_msg_list,
4012: '_PVT',
4013: x_return_status);
4014: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4016: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4017: RAISE OKL_API.G_EXCEPTION_ERROR;
4018: END IF;
4011: p_init_msg_list,
4012: '_PVT',
4013: x_return_status);
4014: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4016: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4017: RAISE OKL_API.G_EXCEPTION_ERROR;
4018: END IF;
4019:
4012: '_PVT',
4013: x_return_status);
4014: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4016: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4017: RAISE OKL_API.G_EXCEPTION_ERROR;
4018: END IF;
4019:
4020: DELETE FROM OKL_EXT_AR_HEADER_SOURCES_B
4013: x_return_status);
4014: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4016: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4017: RAISE OKL_API.G_EXCEPTION_ERROR;
4018: END IF;
4019:
4020: DELETE FROM OKL_EXT_AR_HEADER_SOURCES_B
4021: WHERE HEADER_EXTENSION_ID = p_rxh_rec.header_extension_id;
4020: DELETE FROM OKL_EXT_AR_HEADER_SOURCES_B
4021: WHERE HEADER_EXTENSION_ID = p_rxh_rec.header_extension_id;
4022:
4023: x_return_status := l_return_status;
4024: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4025: EXCEPTION
4026: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4027: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4028: (
4022:
4023: x_return_status := l_return_status;
4024: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4025: EXCEPTION
4026: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4027: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4028: (
4029: l_api_name,
4030: G_PKG_NAME,
4023: x_return_status := l_return_status;
4024: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4025: EXCEPTION
4026: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4027: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4028: (
4029: l_api_name,
4030: G_PKG_NAME,
4031: 'OKL_API.G_RET_STS_ERROR',
4027: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4028: (
4029: l_api_name,
4030: G_PKG_NAME,
4031: 'OKL_API.G_RET_STS_ERROR',
4032: x_msg_count,
4033: x_msg_data,
4034: '_PVT'
4035: );
4032: x_msg_count,
4033: x_msg_data,
4034: '_PVT'
4035: );
4036: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4037: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4038: (
4039: l_api_name,
4040: G_PKG_NAME,
4033: x_msg_data,
4034: '_PVT'
4035: );
4036: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4037: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4038: (
4039: l_api_name,
4040: G_PKG_NAME,
4041: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4037: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4038: (
4039: l_api_name,
4040: G_PKG_NAME,
4041: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4042: x_msg_count,
4043: x_msg_data,
4044: '_PVT'
4045: );
4043: x_msg_data,
4044: '_PVT'
4045: );
4046: WHEN OTHERS THEN
4047: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4048: (
4049: l_api_name,
4050: G_PKG_NAME,
4051: 'OTHERS',
4057: -------------------------------------------------
4058: -- delete_row for:OKL_EXT_AR_HEADER_SOURCES_TL --
4059: -------------------------------------------------
4060: PROCEDURE delete_row(
4061: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4062: x_return_status OUT NOCOPY VARCHAR2,
4063: x_msg_count OUT NOCOPY NUMBER,
4064: x_msg_data OUT NOCOPY VARCHAR2,
4065: p_rxhl_rec IN rxhl_rec_type) IS
4065: p_rxhl_rec IN rxhl_rec_type) IS
4066:
4067: l_api_version CONSTANT NUMBER := 1;
4068: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4069: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4070: l_rxhl_rec rxhl_rec_type := p_rxhl_rec;
4071: l_row_notfound BOOLEAN := TRUE;
4072: BEGIN
4073: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4069: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4070: l_rxhl_rec rxhl_rec_type := p_rxhl_rec;
4071: l_row_notfound BOOLEAN := TRUE;
4072: BEGIN
4073: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4074: p_init_msg_list,
4075: '_PVT',
4076: x_return_status);
4077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4073: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4074: p_init_msg_list,
4075: '_PVT',
4076: x_return_status);
4077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_ERROR;
4081: END IF;
4074: p_init_msg_list,
4075: '_PVT',
4076: x_return_status);
4077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_ERROR;
4081: END IF;
4082:
4075: '_PVT',
4076: x_return_status);
4077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_ERROR;
4081: END IF;
4082:
4083: DELETE FROM OKL_EXT_AR_HEADER_SOURCES_TL
4076: x_return_status);
4077: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4078: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4079: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4080: RAISE OKL_API.G_EXCEPTION_ERROR;
4081: END IF;
4082:
4083: DELETE FROM OKL_EXT_AR_HEADER_SOURCES_TL
4084: WHERE HEADER_EXTENSION_ID = p_rxhl_rec.header_extension_id;
4083: DELETE FROM OKL_EXT_AR_HEADER_SOURCES_TL
4084: WHERE HEADER_EXTENSION_ID = p_rxhl_rec.header_extension_id;
4085:
4086: x_return_status := l_return_status;
4087: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4088: EXCEPTION
4089: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4090: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4091: (
4085:
4086: x_return_status := l_return_status;
4087: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4088: EXCEPTION
4089: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4090: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4091: (
4092: l_api_name,
4093: G_PKG_NAME,
4086: x_return_status := l_return_status;
4087: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4088: EXCEPTION
4089: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4090: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4091: (
4092: l_api_name,
4093: G_PKG_NAME,
4094: 'OKL_API.G_RET_STS_ERROR',
4090: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4091: (
4092: l_api_name,
4093: G_PKG_NAME,
4094: 'OKL_API.G_RET_STS_ERROR',
4095: x_msg_count,
4096: x_msg_data,
4097: '_PVT'
4098: );
4095: x_msg_count,
4096: x_msg_data,
4097: '_PVT'
4098: );
4099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4101: (
4102: l_api_name,
4103: G_PKG_NAME,
4096: x_msg_data,
4097: '_PVT'
4098: );
4099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4101: (
4102: l_api_name,
4103: G_PKG_NAME,
4104: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4100: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4101: (
4102: l_api_name,
4103: G_PKG_NAME,
4104: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4105: x_msg_count,
4106: x_msg_data,
4107: '_PVT'
4108: );
4106: x_msg_data,
4107: '_PVT'
4108: );
4109: WHEN OTHERS THEN
4110: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4111: (
4112: l_api_name,
4113: G_PKG_NAME,
4114: 'OTHERS',
4121: -- delete_row for:OKL_EXT_AR_HEADER_SOURCES_V --
4122: ------------------------------------------------
4123: PROCEDURE delete_row(
4124: p_api_version IN NUMBER,
4125: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4126: x_return_status OUT NOCOPY VARCHAR2,
4127: x_msg_count OUT NOCOPY NUMBER,
4128: x_msg_data OUT NOCOPY VARCHAR2,
4129: p_rxhv_rec IN rxhv_rec_type) IS
4129: p_rxhv_rec IN rxhv_rec_type) IS
4130:
4131: l_api_version CONSTANT NUMBER := 1;
4132: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4133: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4134: l_rxhv_rec rxhv_rec_type := p_rxhv_rec;
4135: l_rxhl_rec rxhl_rec_type;
4136: l_rxh_rec rxh_rec_type;
4137: BEGIN
4134: l_rxhv_rec rxhv_rec_type := p_rxhv_rec;
4135: l_rxhl_rec rxhl_rec_type;
4136: l_rxh_rec rxh_rec_type;
4137: BEGIN
4138: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4139: G_PKG_NAME,
4140: p_init_msg_list,
4141: l_api_version,
4142: p_api_version,
4141: l_api_version,
4142: p_api_version,
4143: '_PVT',
4144: x_return_status);
4145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_ERROR;
4149: END IF;
4142: p_api_version,
4143: '_PVT',
4144: x_return_status);
4145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_ERROR;
4149: END IF;
4150: -----------------------------------------
4143: '_PVT',
4144: x_return_status);
4145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_ERROR;
4149: END IF;
4150: -----------------------------------------
4151: -- Move VIEW record to "Child" records --
4144: x_return_status);
4145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_ERROR;
4149: END IF;
4150: -----------------------------------------
4151: -- Move VIEW record to "Child" records --
4152: -----------------------------------------
4161: x_msg_count,
4162: x_msg_data,
4163: l_rxhl_rec
4164: );
4165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4168: RAISE OKL_API.G_EXCEPTION_ERROR;
4169: END IF;
4162: x_msg_data,
4163: l_rxhl_rec
4164: );
4165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4168: RAISE OKL_API.G_EXCEPTION_ERROR;
4169: END IF;
4170: delete_row(
4163: l_rxhl_rec
4164: );
4165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4168: RAISE OKL_API.G_EXCEPTION_ERROR;
4169: END IF;
4170: delete_row(
4171: p_init_msg_list,
4164: );
4165: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4168: RAISE OKL_API.G_EXCEPTION_ERROR;
4169: END IF;
4170: delete_row(
4171: p_init_msg_list,
4172: l_return_status,
4173: x_msg_count,
4174: x_msg_data,
4175: l_rxh_rec
4176: );
4177: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4180: RAISE OKL_API.G_EXCEPTION_ERROR;
4181: END IF;
4174: x_msg_data,
4175: l_rxh_rec
4176: );
4177: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4180: RAISE OKL_API.G_EXCEPTION_ERROR;
4181: END IF;
4182: x_return_status := l_return_status;
4175: l_rxh_rec
4176: );
4177: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4180: RAISE OKL_API.G_EXCEPTION_ERROR;
4181: END IF;
4182: x_return_status := l_return_status;
4183: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4176: );
4177: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4180: RAISE OKL_API.G_EXCEPTION_ERROR;
4181: END IF;
4182: x_return_status := l_return_status;
4183: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4184: EXCEPTION
4179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4180: RAISE OKL_API.G_EXCEPTION_ERROR;
4181: END IF;
4182: x_return_status := l_return_status;
4183: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4184: EXCEPTION
4185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4186: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4187: (
4181: END IF;
4182: x_return_status := l_return_status;
4183: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4184: EXCEPTION
4185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4186: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4187: (
4188: l_api_name,
4189: G_PKG_NAME,
4182: x_return_status := l_return_status;
4183: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4184: EXCEPTION
4185: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4186: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4187: (
4188: l_api_name,
4189: G_PKG_NAME,
4190: 'OKL_API.G_RET_STS_ERROR',
4186: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4187: (
4188: l_api_name,
4189: G_PKG_NAME,
4190: 'OKL_API.G_RET_STS_ERROR',
4191: x_msg_count,
4192: x_msg_data,
4193: '_PVT'
4194: );
4191: x_msg_count,
4192: x_msg_data,
4193: '_PVT'
4194: );
4195: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4196: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4197: (
4198: l_api_name,
4199: G_PKG_NAME,
4192: x_msg_data,
4193: '_PVT'
4194: );
4195: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4196: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4197: (
4198: l_api_name,
4199: G_PKG_NAME,
4200: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4196: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4197: (
4198: l_api_name,
4199: G_PKG_NAME,
4200: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4201: x_msg_count,
4202: x_msg_data,
4203: '_PVT'
4204: );
4202: x_msg_data,
4203: '_PVT'
4204: );
4205: WHEN OTHERS THEN
4206: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4207: (
4208: l_api_name,
4209: G_PKG_NAME,
4210: 'OTHERS',
4217: -- PL/SQL TBL delete_row for:OKL_EXT_AR_HEADER_SOURCES_V --
4218: -----------------------------------------------------------
4219: PROCEDURE delete_row(
4220: p_api_version IN NUMBER,
4221: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4222: x_return_status OUT NOCOPY VARCHAR2,
4223: x_msg_count OUT NOCOPY NUMBER,
4224: x_msg_data OUT NOCOPY VARCHAR2,
4225: p_rxhv_tbl IN rxhv_tbl_type,
4222: x_return_status OUT NOCOPY VARCHAR2,
4223: x_msg_count OUT NOCOPY NUMBER,
4224: x_msg_data OUT NOCOPY VARCHAR2,
4225: p_rxhv_tbl IN rxhv_tbl_type,
4226: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4227:
4228: l_api_version CONSTANT NUMBER := 1;
4229: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4230: i NUMBER := 0;
4228: l_api_version CONSTANT NUMBER := 1;
4229: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4230: i NUMBER := 0;
4231: BEGIN
4232: OKL_API.init_msg_list(p_init_msg_list);
4233: -- Make sure PL/SQL table has records in it before passing
4234: IF (p_rxhv_tbl.COUNT > 0) THEN
4235: i := p_rxhv_tbl.FIRST;
4236: LOOP
4234: IF (p_rxhv_tbl.COUNT > 0) THEN
4235: i := p_rxhv_tbl.FIRST;
4236: LOOP
4237: DECLARE
4238: l_error_rec OKL_API.ERROR_REC_TYPE;
4239: BEGIN
4240: l_error_rec.api_name := l_api_name;
4241: l_error_rec.api_package := G_PKG_NAME;
4242: l_error_rec.idx := i;
4241: l_error_rec.api_package := G_PKG_NAME;
4242: l_error_rec.idx := i;
4243: delete_row (
4244: p_api_version => p_api_version,
4245: p_init_msg_list => OKL_API.G_FALSE,
4246: x_return_status => l_error_rec.error_type,
4247: x_msg_count => l_error_rec.msg_count,
4248: x_msg_data => l_error_rec.msg_data,
4249: p_rxhv_rec => p_rxhv_tbl(i));
4246: x_return_status => l_error_rec.error_type,
4247: x_msg_count => l_error_rec.msg_count,
4248: x_msg_data => l_error_rec.msg_data,
4249: p_rxhv_rec => p_rxhv_tbl(i));
4250: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4251: l_error_rec.sqlcode := SQLCODE;
4252: load_error_tbl(l_error_rec, px_error_tbl);
4253: ELSE
4254: x_msg_count := l_error_rec.msg_count;
4254: x_msg_count := l_error_rec.msg_count;
4255: x_msg_data := l_error_rec.msg_data;
4256: END IF;
4257: EXCEPTION
4258: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4259: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4260: l_error_rec.sqlcode := SQLCODE;
4261: load_error_tbl(l_error_rec, px_error_tbl);
4262: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4255: x_msg_data := l_error_rec.msg_data;
4256: END IF;
4257: EXCEPTION
4258: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4259: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4260: l_error_rec.sqlcode := SQLCODE;
4261: load_error_tbl(l_error_rec, px_error_tbl);
4262: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4263: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4258: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4259: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4260: l_error_rec.sqlcode := SQLCODE;
4261: load_error_tbl(l_error_rec, px_error_tbl);
4262: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4263: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4264: l_error_rec.sqlcode := SQLCODE;
4265: load_error_tbl(l_error_rec, px_error_tbl);
4266: WHEN OTHERS THEN
4259: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4260: l_error_rec.sqlcode := SQLCODE;
4261: load_error_tbl(l_error_rec, px_error_tbl);
4262: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4263: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4264: l_error_rec.sqlcode := SQLCODE;
4265: load_error_tbl(l_error_rec, px_error_tbl);
4266: WHEN OTHERS THEN
4267: l_error_rec.error_type := 'OTHERS';
4274: END IF;
4275: -- Loop through the error_tbl to find the error with the highest severity
4276: -- and return it.
4277: x_return_status := find_highest_exception(px_error_tbl);
4278: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4279: EXCEPTION
4280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4281: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4282: (
4276: -- and return it.
4277: x_return_status := find_highest_exception(px_error_tbl);
4278: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4279: EXCEPTION
4280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4281: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4282: (
4283: l_api_name,
4284: G_PKG_NAME,
4277: x_return_status := find_highest_exception(px_error_tbl);
4278: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4279: EXCEPTION
4280: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4281: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4282: (
4283: l_api_name,
4284: G_PKG_NAME,
4285: 'OKL_API.G_RET_STS_ERROR',
4281: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4282: (
4283: l_api_name,
4284: G_PKG_NAME,
4285: 'OKL_API.G_RET_STS_ERROR',
4286: x_msg_count,
4287: x_msg_data,
4288: '_PVT'
4289: );
4286: x_msg_count,
4287: x_msg_data,
4288: '_PVT'
4289: );
4290: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4291: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4292: (
4293: l_api_name,
4294: G_PKG_NAME,
4287: x_msg_data,
4288: '_PVT'
4289: );
4290: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4291: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4292: (
4293: l_api_name,
4294: G_PKG_NAME,
4295: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4291: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4292: (
4293: l_api_name,
4294: G_PKG_NAME,
4295: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4296: x_msg_count,
4297: x_msg_data,
4298: '_PVT'
4299: );
4297: x_msg_data,
4298: '_PVT'
4299: );
4300: WHEN OTHERS THEN
4301: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4302: (
4303: l_api_name,
4304: G_PKG_NAME,
4305: 'OTHERS',
4313: -- PL/SQL TBL delete_row for:OKL_EXT_AR_HEADER_SOURCES_V --
4314: -----------------------------------------------------------
4315: PROCEDURE delete_row(
4316: p_api_version IN NUMBER,
4317: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4318: x_return_status OUT NOCOPY VARCHAR2,
4319: x_msg_count OUT NOCOPY NUMBER,
4320: x_msg_data OUT NOCOPY VARCHAR2,
4321: p_rxhv_tbl IN rxhv_tbl_type) IS
4321: p_rxhv_tbl IN rxhv_tbl_type) IS
4322:
4323: l_api_version CONSTANT NUMBER := 1;
4324: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4325: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4326: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4327: BEGIN
4328: OKL_API.init_msg_list(p_init_msg_list);
4329: -- Make sure PL/SQL table has records in it before passing
4322:
4323: l_api_version CONSTANT NUMBER := 1;
4324: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4325: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4326: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4327: BEGIN
4328: OKL_API.init_msg_list(p_init_msg_list);
4329: -- Make sure PL/SQL table has records in it before passing
4330: IF (p_rxhv_tbl.COUNT > 0) THEN
4324: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4325: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4326: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4327: BEGIN
4328: OKL_API.init_msg_list(p_init_msg_list);
4329: -- Make sure PL/SQL table has records in it before passing
4330: IF (p_rxhv_tbl.COUNT > 0) THEN
4331: delete_row (
4332: p_api_version => p_api_version,
4329: -- Make sure PL/SQL table has records in it before passing
4330: IF (p_rxhv_tbl.COUNT > 0) THEN
4331: delete_row (
4332: p_api_version => p_api_version,
4333: p_init_msg_list => OKL_API.G_FALSE,
4334: x_return_status => x_return_status,
4335: x_msg_count => x_msg_count,
4336: x_msg_data => x_msg_data,
4337: p_rxhv_tbl => p_rxhv_tbl,
4336: x_msg_data => x_msg_data,
4337: p_rxhv_tbl => p_rxhv_tbl,
4338: px_error_tbl => l_error_tbl);
4339: END IF;
4340: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4341: EXCEPTION
4342: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4338: px_error_tbl => l_error_tbl);
4339: END IF;
4340: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4341: EXCEPTION
4342: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4345: l_api_name,
4346: G_PKG_NAME,
4339: END IF;
4340: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4341: EXCEPTION
4342: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4345: l_api_name,
4346: G_PKG_NAME,
4347: 'OKL_API.G_RET_STS_ERROR',
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4345: l_api_name,
4346: G_PKG_NAME,
4347: 'OKL_API.G_RET_STS_ERROR',
4348: x_msg_count,
4349: x_msg_data,
4350: '_PVT'
4351: );
4348: x_msg_count,
4349: x_msg_data,
4350: '_PVT'
4351: );
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4353: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4354: (
4355: l_api_name,
4356: G_PKG_NAME,
4349: x_msg_data,
4350: '_PVT'
4351: );
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4353: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4354: (
4355: l_api_name,
4356: G_PKG_NAME,
4357: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4353: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4354: (
4355: l_api_name,
4356: G_PKG_NAME,
4357: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4358: x_msg_count,
4359: x_msg_data,
4360: '_PVT'
4361: );
4359: x_msg_data,
4360: '_PVT'
4361: );
4362: WHEN OTHERS THEN
4363: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4364: (
4365: l_api_name,
4366: G_PKG_NAME,
4367: 'OTHERS',
4380: -- insert_row for:OKL_EXT_AR_HEADER_SOURCES_TL --
4381: -------------------------------------------------
4382: PROCEDURE insert_row(
4383: p_api_version IN NUMBER,
4384: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4385: x_return_status OUT NOCOPY VARCHAR2,
4386: x_msg_count OUT NOCOPY NUMBER,
4387: x_msg_data OUT NOCOPY VARCHAR2,
4388: p_rxh_rec IN rxh_rec_type,
4391: x_rxhl_tbl OUT NOCOPY rxhl_tbl_type) IS
4392:
4393: l_api_version CONSTANT NUMBER := 1;
4394: l_api_name CONSTANT VARCHAR2(30) := 'B_TL_insert_row';
4395: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4396:
4397: l_rxh_rec rxh_rec_type := p_rxh_rec;
4398: l_def_rxh_rec rxh_rec_type;
4399: lx_rxh_rec rxh_rec_type;
4423: FUNCTION Set_Attributes (
4424: p_rxh_rec IN rxh_rec_type,
4425: x_rxh_rec OUT NOCOPY rxh_rec_type
4426: ) RETURN VARCHAR2 IS
4427: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4428: BEGIN
4429: x_rxh_rec := p_rxh_rec;
4430: x_rxh_rec.OBJECT_VERSION_NUMBER := 1;
4431: RETURN(l_return_status);
4430: x_rxh_rec.OBJECT_VERSION_NUMBER := 1;
4431: RETURN(l_return_status);
4432: END Set_Attributes;
4433: BEGIN
4434: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4435: G_PKG_NAME,
4436: p_init_msg_list,
4437: l_api_version,
4438: p_api_version,
4437: l_api_version,
4438: p_api_version,
4439: '_PVT',
4440: x_return_status);
4441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4438: p_api_version,
4439: '_PVT',
4440: x_return_status);
4441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4446: -- Set primary key value
4439: '_PVT',
4440: x_return_status);
4441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4446: -- Set primary key value
4447: l_rxh_rec.HEADER_EXTENSION_ID := get_seq_id;
4440: x_return_status);
4441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4444: RAISE OKL_API.G_EXCEPTION_ERROR;
4445: END IF;
4446: -- Set primary key value
4447: l_rxh_rec.HEADER_EXTENSION_ID := get_seq_id;
4448: -- Setting item attributes
4449: l_return_Status := Set_Attributes(
4450: l_rxh_rec, -- IN
4451: l_def_rxh_rec); -- OUT
4452: --- If any errors happen abort API
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4450: l_rxh_rec, -- IN
4451: l_def_rxh_rec); -- OUT
4452: --- If any errors happen abort API
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_def_rxh_rec := fill_who_columns(l_def_rxh_rec);
4451: l_def_rxh_rec); -- OUT
4452: --- If any errors happen abort API
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_def_rxh_rec := fill_who_columns(l_def_rxh_rec);
4459: l_rxh_rec := l_def_rxh_rec;
4452: --- If any errors happen abort API
4453: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4456: RAISE OKL_API.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_def_rxh_rec := fill_who_columns(l_def_rxh_rec);
4459: l_rxh_rec := l_def_rxh_rec;
4460: -----------------------------------------------
4467: x_msg_data,
4468: l_rxh_rec,
4469: lx_rxh_rec
4470: );
4471: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4473: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4474: RAISE OKL_API.G_EXCEPTION_ERROR;
4475: END IF;
4468: l_rxh_rec,
4469: lx_rxh_rec
4470: );
4471: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4473: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4474: RAISE OKL_API.G_EXCEPTION_ERROR;
4475: END IF;
4476: -- Looping header translatable sources for insert
4469: lx_rxh_rec
4470: );
4471: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4473: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4474: RAISE OKL_API.G_EXCEPTION_ERROR;
4475: END IF;
4476: -- Looping header translatable sources for insert
4477: FOR idx in p_rxhl_tbl.FIRST .. p_rxhl_tbl.LAST
4470: );
4471: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4473: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4474: RAISE OKL_API.G_EXCEPTION_ERROR;
4475: END IF;
4476: -- Looping header translatable sources for insert
4477: FOR idx in p_rxhl_tbl.FIRST .. p_rxhl_tbl.LAST
4478: LOOP
4492: l_rxhl_tbl(idx),
4493: lx_rxhl_tbl(idx)
4494: );
4495: END LOOP;
4496: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: END IF;
4493: lx_rxhl_tbl(idx)
4494: );
4495: END LOOP;
4496: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: END IF;
4501: -- Set OUT values
4494: );
4495: END LOOP;
4496: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: END IF;
4501: -- Set OUT values
4502: x_rxh_rec := lx_rxh_rec;
4495: END LOOP;
4496: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_ERROR;
4500: END IF;
4501: -- Set OUT values
4502: x_rxh_rec := lx_rxh_rec;
4503: x_rxhl_tbl := lx_rxhl_tbl;
4501: -- Set OUT values
4502: x_rxh_rec := lx_rxh_rec;
4503: x_rxhl_tbl := lx_rxhl_tbl;
4504: x_return_status := l_return_status;
4505: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4506: EXCEPTION
4507: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4508: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4509: (
4503: x_rxhl_tbl := lx_rxhl_tbl;
4504: x_return_status := l_return_status;
4505: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4506: EXCEPTION
4507: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4508: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4509: (
4510: l_api_name,
4511: G_PKG_NAME,
4504: x_return_status := l_return_status;
4505: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4506: EXCEPTION
4507: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4508: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4509: (
4510: l_api_name,
4511: G_PKG_NAME,
4512: 'OKL_API.G_RET_STS_ERROR',
4508: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4509: (
4510: l_api_name,
4511: G_PKG_NAME,
4512: 'OKL_API.G_RET_STS_ERROR',
4513: x_msg_count,
4514: x_msg_data,
4515: '_PVT'
4516: );
4513: x_msg_count,
4514: x_msg_data,
4515: '_PVT'
4516: );
4517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4519: (
4520: l_api_name,
4521: G_PKG_NAME,
4514: x_msg_data,
4515: '_PVT'
4516: );
4517: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4519: (
4520: l_api_name,
4521: G_PKG_NAME,
4522: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4518: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4519: (
4520: l_api_name,
4521: G_PKG_NAME,
4522: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4523: x_msg_count,
4524: x_msg_data,
4525: '_PVT'
4526: );
4524: x_msg_data,
4525: '_PVT'
4526: );
4527: WHEN OTHERS THEN
4528: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4529: (
4530: l_api_name,
4531: G_PKG_NAME,
4532: 'OTHERS',