3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
372: ) RETURN pxhv_rec_type IS
373: l_pxhv_rec pxhv_rec_type;
374: l_row_notfound BOOLEAN := TRUE;
375: BEGIN
376: x_return_status := OKL_API.G_RET_STS_SUCCESS;
377: l_pxhv_rec := get_rec(p_pxhv_rec, l_row_notfound);
378: IF (l_row_notfound) THEN
379: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
380: x_return_status := OKL_API.G_RET_STS_ERROR;
375: BEGIN
376: x_return_status := OKL_API.G_RET_STS_SUCCESS;
377: l_pxhv_rec := get_rec(p_pxhv_rec, l_row_notfound);
378: IF (l_row_notfound) THEN
379: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
380: x_return_status := OKL_API.G_RET_STS_ERROR;
381: END IF;
382: RETURN(l_pxhv_rec);
383: END get_rec;
376: x_return_status := OKL_API.G_RET_STS_SUCCESS;
377: l_pxhv_rec := get_rec(p_pxhv_rec, l_row_notfound);
378: IF (l_row_notfound) THEN
379: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
380: x_return_status := OKL_API.G_RET_STS_ERROR;
381: END IF;
382: RETURN(l_pxhv_rec);
383: END get_rec;
384: -----------------------------------------------------------
586: ) RETURN pxh_rec_type IS
587: l_pxh_rec pxh_rec_type;
588: l_row_notfound BOOLEAN := TRUE;
589: BEGIN
590: x_return_status := OKL_API.G_RET_STS_SUCCESS;
591: l_pxh_rec := get_rec(p_pxh_rec, l_row_notfound);
592: IF (l_row_notfound) THEN
593: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
594: x_return_status := OKL_API.G_RET_STS_ERROR;
589: BEGIN
590: x_return_status := OKL_API.G_RET_STS_SUCCESS;
591: l_pxh_rec := get_rec(p_pxh_rec, l_row_notfound);
592: IF (l_row_notfound) THEN
593: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
594: x_return_status := OKL_API.G_RET_STS_ERROR;
595: END IF;
596: RETURN(l_pxh_rec);
597: END get_rec;
590: x_return_status := OKL_API.G_RET_STS_SUCCESS;
591: l_pxh_rec := get_rec(p_pxh_rec, l_row_notfound);
592: IF (l_row_notfound) THEN
593: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
594: x_return_status := OKL_API.G_RET_STS_ERROR;
595: END IF;
596: RETURN(l_pxh_rec);
597: END get_rec;
598: -----------------------------------------------------------
664: ) RETURN pxhl_rec_type IS
665: l_pxhl_rec pxhl_rec_type;
666: l_row_notfound BOOLEAN := TRUE;
667: BEGIN
668: x_return_status := OKL_API.G_RET_STS_SUCCESS;
669: l_pxhl_rec := get_rec(p_pxhl_rec, l_row_notfound);
670: IF (l_row_notfound) THEN
671: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
672: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
667: BEGIN
668: x_return_status := OKL_API.G_RET_STS_SUCCESS;
669: l_pxhl_rec := get_rec(p_pxhl_rec, l_row_notfound);
670: IF (l_row_notfound) THEN
671: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
672: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674: END IF;
675: RETURN(l_pxhl_rec);
668: x_return_status := OKL_API.G_RET_STS_SUCCESS;
669: l_pxhl_rec := get_rec(p_pxhl_rec, l_row_notfound);
670: IF (l_row_notfound) THEN
671: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
672: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674: END IF;
675: RETURN(l_pxhl_rec);
676: END get_rec;
669: l_pxhl_rec := get_rec(p_pxhl_rec, l_row_notfound);
670: IF (l_row_notfound) THEN
671: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
672: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674: END IF;
675: RETURN(l_pxhl_rec);
676: END get_rec;
677: -----------------------------------------------------------
691: p_pxhv_rec IN pxhv_rec_type
692: ) RETURN pxhv_rec_type IS
693: l_pxhv_rec pxhv_rec_type := p_pxhv_rec;
694: BEGIN
695: IF (l_pxhv_rec.header_extension_id = OKL_API.G_MISS_NUM ) THEN
696: l_pxhv_rec.header_extension_id := NULL;
697: END IF;
698: IF (l_pxhv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
699: l_pxhv_rec.source_id := NULL;
694: BEGIN
695: IF (l_pxhv_rec.header_extension_id = OKL_API.G_MISS_NUM ) THEN
696: l_pxhv_rec.header_extension_id := NULL;
697: END IF;
698: IF (l_pxhv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
699: l_pxhv_rec.source_id := NULL;
700: END IF;
701: IF (l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
702: l_pxhv_rec.source_table := NULL;
697: END IF;
698: IF (l_pxhv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
699: l_pxhv_rec.source_id := NULL;
700: END IF;
701: IF (l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
702: l_pxhv_rec.source_table := NULL;
703: END IF;
704: IF (l_pxhv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
705: l_pxhv_rec.object_version_number := NULL;
700: END IF;
701: IF (l_pxhv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
702: l_pxhv_rec.source_table := NULL;
703: END IF;
704: IF (l_pxhv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
705: l_pxhv_rec.object_version_number := NULL;
706: END IF;
707: IF (l_pxhv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
708: l_pxhv_rec.khr_id := NULL;
703: END IF;
704: IF (l_pxhv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
705: l_pxhv_rec.object_version_number := NULL;
706: END IF;
707: IF (l_pxhv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
708: l_pxhv_rec.khr_id := NULL;
709: END IF;
710: IF (l_pxhv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
711: l_pxhv_rec.try_id := NULL;
706: END IF;
707: IF (l_pxhv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
708: l_pxhv_rec.khr_id := NULL;
709: END IF;
710: IF (l_pxhv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
711: l_pxhv_rec.try_id := NULL;
712: END IF;
713: IF (l_pxhv_rec.trans_number = OKL_API.G_MISS_CHAR ) THEN
714: l_pxhv_rec.trans_number := NULL;
709: END IF;
710: IF (l_pxhv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
711: l_pxhv_rec.try_id := NULL;
712: END IF;
713: IF (l_pxhv_rec.trans_number = OKL_API.G_MISS_CHAR ) THEN
714: l_pxhv_rec.trans_number := NULL;
715: END IF;
716: IF (l_pxhv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
717: l_pxhv_rec.contract_number := NULL;
712: END IF;
713: IF (l_pxhv_rec.trans_number = OKL_API.G_MISS_CHAR ) THEN
714: l_pxhv_rec.trans_number := NULL;
715: END IF;
716: IF (l_pxhv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
717: l_pxhv_rec.contract_number := NULL;
718: END IF;
719: IF (l_pxhv_rec.customer_name = OKL_API.G_MISS_CHAR ) THEN
720: l_pxhv_rec.customer_name := NULL;
715: END IF;
716: IF (l_pxhv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
717: l_pxhv_rec.contract_number := NULL;
718: END IF;
719: IF (l_pxhv_rec.customer_name = OKL_API.G_MISS_CHAR ) THEN
720: l_pxhv_rec.customer_name := NULL;
721: END IF;
722: IF (l_pxhv_rec.cust_account_number = OKL_API.G_MISS_CHAR ) THEN
723: l_pxhv_rec.cust_account_number := NULL;
718: END IF;
719: IF (l_pxhv_rec.customer_name = OKL_API.G_MISS_CHAR ) THEN
720: l_pxhv_rec.customer_name := NULL;
721: END IF;
722: IF (l_pxhv_rec.cust_account_number = OKL_API.G_MISS_CHAR ) THEN
723: l_pxhv_rec.cust_account_number := NULL;
724: END IF;
725: IF (l_pxhv_rec.product_name = OKL_API.G_MISS_CHAR ) THEN
726: l_pxhv_rec.product_name := NULL;
721: END IF;
722: IF (l_pxhv_rec.cust_account_number = OKL_API.G_MISS_CHAR ) THEN
723: l_pxhv_rec.cust_account_number := NULL;
724: END IF;
725: IF (l_pxhv_rec.product_name = OKL_API.G_MISS_CHAR ) THEN
726: l_pxhv_rec.product_name := NULL;
727: END IF;
728: IF (l_pxhv_rec.book_classification_code = OKL_API.G_MISS_CHAR ) THEN
729: l_pxhv_rec.book_classification_code := NULL;
724: END IF;
725: IF (l_pxhv_rec.product_name = OKL_API.G_MISS_CHAR ) THEN
726: l_pxhv_rec.product_name := NULL;
727: END IF;
728: IF (l_pxhv_rec.book_classification_code = OKL_API.G_MISS_CHAR ) THEN
729: l_pxhv_rec.book_classification_code := NULL;
730: END IF;
731: IF (l_pxhv_rec.tax_owner_code = OKL_API.G_MISS_CHAR ) THEN
732: l_pxhv_rec.tax_owner_code := NULL;
727: END IF;
728: IF (l_pxhv_rec.book_classification_code = OKL_API.G_MISS_CHAR ) THEN
729: l_pxhv_rec.book_classification_code := NULL;
730: END IF;
731: IF (l_pxhv_rec.tax_owner_code = OKL_API.G_MISS_CHAR ) THEN
732: l_pxhv_rec.tax_owner_code := NULL;
733: END IF;
734: IF (l_pxhv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
735: l_pxhv_rec.int_calc_method_code := NULL;
730: END IF;
731: IF (l_pxhv_rec.tax_owner_code = OKL_API.G_MISS_CHAR ) THEN
732: l_pxhv_rec.tax_owner_code := NULL;
733: END IF;
734: IF (l_pxhv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
735: l_pxhv_rec.int_calc_method_code := NULL;
736: END IF;
737: IF (l_pxhv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
738: l_pxhv_rec.rev_rec_method_code := NULL;
733: END IF;
734: IF (l_pxhv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
735: l_pxhv_rec.int_calc_method_code := NULL;
736: END IF;
737: IF (l_pxhv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
738: l_pxhv_rec.rev_rec_method_code := NULL;
739: END IF;
740: IF (l_pxhv_rec.scs_code = OKL_API.G_MISS_CHAR ) THEN
741: l_pxhv_rec.scs_code := NULL;
736: END IF;
737: IF (l_pxhv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
738: l_pxhv_rec.rev_rec_method_code := NULL;
739: END IF;
740: IF (l_pxhv_rec.scs_code = OKL_API.G_MISS_CHAR ) THEN
741: l_pxhv_rec.scs_code := NULL;
742: END IF;
743: IF (l_pxhv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
744: l_pxhv_rec.converted_number := NULL;
739: END IF;
740: IF (l_pxhv_rec.scs_code = OKL_API.G_MISS_CHAR ) THEN
741: l_pxhv_rec.scs_code := NULL;
742: END IF;
743: IF (l_pxhv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
744: l_pxhv_rec.converted_number := NULL;
745: END IF;
746: IF (l_pxhv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
747: l_pxhv_rec.contract_effective_from := NULL;
742: END IF;
743: IF (l_pxhv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
744: l_pxhv_rec.converted_number := NULL;
745: END IF;
746: IF (l_pxhv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
747: l_pxhv_rec.contract_effective_from := NULL;
748: END IF;
749: IF (l_pxhv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
750: l_pxhv_rec.contract_currency_code := NULL;
745: END IF;
746: IF (l_pxhv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
747: l_pxhv_rec.contract_effective_from := NULL;
748: END IF;
749: IF (l_pxhv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
750: l_pxhv_rec.contract_currency_code := NULL;
751: END IF;
752: IF (l_pxhv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
753: l_pxhv_rec.sales_rep_name := NULL;
748: END IF;
749: IF (l_pxhv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
750: l_pxhv_rec.contract_currency_code := NULL;
751: END IF;
752: IF (l_pxhv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
753: l_pxhv_rec.sales_rep_name := NULL;
754: END IF;
755: IF (l_pxhv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
756: l_pxhv_rec.po_order_number := NULL;
751: END IF;
752: IF (l_pxhv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
753: l_pxhv_rec.sales_rep_name := NULL;
754: END IF;
755: IF (l_pxhv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
756: l_pxhv_rec.po_order_number := NULL;
757: END IF;
758: IF (l_pxhv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
759: l_pxhv_rec.vendor_program_number := NULL;
754: END IF;
755: IF (l_pxhv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
756: l_pxhv_rec.po_order_number := NULL;
757: END IF;
758: IF (l_pxhv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
759: l_pxhv_rec.vendor_program_number := NULL;
760: END IF;
761: IF (l_pxhv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
762: l_pxhv_rec.assignable_flag := NULL;
757: END IF;
758: IF (l_pxhv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
759: l_pxhv_rec.vendor_program_number := NULL;
760: END IF;
761: IF (l_pxhv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
762: l_pxhv_rec.assignable_flag := NULL;
763: END IF;
764: IF (l_pxhv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
765: l_pxhv_rec.converted_account_flag := NULL;
760: END IF;
761: IF (l_pxhv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
762: l_pxhv_rec.assignable_flag := NULL;
763: END IF;
764: IF (l_pxhv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
765: l_pxhv_rec.converted_account_flag := NULL;
766: END IF;
767: IF (l_pxhv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
768: l_pxhv_rec.accrual_override_flag := NULL;
763: END IF;
764: IF (l_pxhv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
765: l_pxhv_rec.converted_account_flag := NULL;
766: END IF;
767: IF (l_pxhv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
768: l_pxhv_rec.accrual_override_flag := NULL;
769: END IF;
770: IF (l_pxhv_rec.khr_attribute_category = OKL_API.G_MISS_CHAR ) THEN
771: l_pxhv_rec.khr_attribute_category := NULL;
766: END IF;
767: IF (l_pxhv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
768: l_pxhv_rec.accrual_override_flag := NULL;
769: END IF;
770: IF (l_pxhv_rec.khr_attribute_category = OKL_API.G_MISS_CHAR ) THEN
771: l_pxhv_rec.khr_attribute_category := NULL;
772: END IF;
773: IF (l_pxhv_rec.khr_attribute1 = OKL_API.G_MISS_CHAR ) THEN
774: l_pxhv_rec.khr_attribute1 := NULL;
769: END IF;
770: IF (l_pxhv_rec.khr_attribute_category = OKL_API.G_MISS_CHAR ) THEN
771: l_pxhv_rec.khr_attribute_category := NULL;
772: END IF;
773: IF (l_pxhv_rec.khr_attribute1 = OKL_API.G_MISS_CHAR ) THEN
774: l_pxhv_rec.khr_attribute1 := NULL;
775: END IF;
776: IF (l_pxhv_rec.khr_attribute2 = OKL_API.G_MISS_CHAR ) THEN
777: l_pxhv_rec.khr_attribute2 := NULL;
772: END IF;
773: IF (l_pxhv_rec.khr_attribute1 = OKL_API.G_MISS_CHAR ) THEN
774: l_pxhv_rec.khr_attribute1 := NULL;
775: END IF;
776: IF (l_pxhv_rec.khr_attribute2 = OKL_API.G_MISS_CHAR ) THEN
777: l_pxhv_rec.khr_attribute2 := NULL;
778: END IF;
779: IF (l_pxhv_rec.khr_attribute3 = OKL_API.G_MISS_CHAR ) THEN
780: l_pxhv_rec.khr_attribute3 := NULL;
775: END IF;
776: IF (l_pxhv_rec.khr_attribute2 = OKL_API.G_MISS_CHAR ) THEN
777: l_pxhv_rec.khr_attribute2 := NULL;
778: END IF;
779: IF (l_pxhv_rec.khr_attribute3 = OKL_API.G_MISS_CHAR ) THEN
780: l_pxhv_rec.khr_attribute3 := NULL;
781: END IF;
782: IF (l_pxhv_rec.khr_attribute4 = OKL_API.G_MISS_CHAR ) THEN
783: l_pxhv_rec.khr_attribute4 := NULL;
778: END IF;
779: IF (l_pxhv_rec.khr_attribute3 = OKL_API.G_MISS_CHAR ) THEN
780: l_pxhv_rec.khr_attribute3 := NULL;
781: END IF;
782: IF (l_pxhv_rec.khr_attribute4 = OKL_API.G_MISS_CHAR ) THEN
783: l_pxhv_rec.khr_attribute4 := NULL;
784: END IF;
785: IF (l_pxhv_rec.khr_attribute5 = OKL_API.G_MISS_CHAR ) THEN
786: l_pxhv_rec.khr_attribute5 := NULL;
781: END IF;
782: IF (l_pxhv_rec.khr_attribute4 = OKL_API.G_MISS_CHAR ) THEN
783: l_pxhv_rec.khr_attribute4 := NULL;
784: END IF;
785: IF (l_pxhv_rec.khr_attribute5 = OKL_API.G_MISS_CHAR ) THEN
786: l_pxhv_rec.khr_attribute5 := NULL;
787: END IF;
788: IF (l_pxhv_rec.khr_attribute6 = OKL_API.G_MISS_CHAR ) THEN
789: l_pxhv_rec.khr_attribute6 := NULL;
784: END IF;
785: IF (l_pxhv_rec.khr_attribute5 = OKL_API.G_MISS_CHAR ) THEN
786: l_pxhv_rec.khr_attribute5 := NULL;
787: END IF;
788: IF (l_pxhv_rec.khr_attribute6 = OKL_API.G_MISS_CHAR ) THEN
789: l_pxhv_rec.khr_attribute6 := NULL;
790: END IF;
791: IF (l_pxhv_rec.khr_attribute7 = OKL_API.G_MISS_CHAR ) THEN
792: l_pxhv_rec.khr_attribute7 := NULL;
787: END IF;
788: IF (l_pxhv_rec.khr_attribute6 = OKL_API.G_MISS_CHAR ) THEN
789: l_pxhv_rec.khr_attribute6 := NULL;
790: END IF;
791: IF (l_pxhv_rec.khr_attribute7 = OKL_API.G_MISS_CHAR ) THEN
792: l_pxhv_rec.khr_attribute7 := NULL;
793: END IF;
794: IF (l_pxhv_rec.khr_attribute8 = OKL_API.G_MISS_CHAR ) THEN
795: l_pxhv_rec.khr_attribute8 := NULL;
790: END IF;
791: IF (l_pxhv_rec.khr_attribute7 = OKL_API.G_MISS_CHAR ) THEN
792: l_pxhv_rec.khr_attribute7 := NULL;
793: END IF;
794: IF (l_pxhv_rec.khr_attribute8 = OKL_API.G_MISS_CHAR ) THEN
795: l_pxhv_rec.khr_attribute8 := NULL;
796: END IF;
797: IF (l_pxhv_rec.khr_attribute9 = OKL_API.G_MISS_CHAR ) THEN
798: l_pxhv_rec.khr_attribute9 := NULL;
793: END IF;
794: IF (l_pxhv_rec.khr_attribute8 = OKL_API.G_MISS_CHAR ) THEN
795: l_pxhv_rec.khr_attribute8 := NULL;
796: END IF;
797: IF (l_pxhv_rec.khr_attribute9 = OKL_API.G_MISS_CHAR ) THEN
798: l_pxhv_rec.khr_attribute9 := NULL;
799: END IF;
800: IF (l_pxhv_rec.khr_attribute10 = OKL_API.G_MISS_CHAR ) THEN
801: l_pxhv_rec.khr_attribute10 := NULL;
796: END IF;
797: IF (l_pxhv_rec.khr_attribute9 = OKL_API.G_MISS_CHAR ) THEN
798: l_pxhv_rec.khr_attribute9 := NULL;
799: END IF;
800: IF (l_pxhv_rec.khr_attribute10 = OKL_API.G_MISS_CHAR ) THEN
801: l_pxhv_rec.khr_attribute10 := NULL;
802: END IF;
803: IF (l_pxhv_rec.khr_attribute11 = OKL_API.G_MISS_CHAR ) THEN
804: l_pxhv_rec.khr_attribute11 := NULL;
799: END IF;
800: IF (l_pxhv_rec.khr_attribute10 = OKL_API.G_MISS_CHAR ) THEN
801: l_pxhv_rec.khr_attribute10 := NULL;
802: END IF;
803: IF (l_pxhv_rec.khr_attribute11 = OKL_API.G_MISS_CHAR ) THEN
804: l_pxhv_rec.khr_attribute11 := NULL;
805: END IF;
806: IF (l_pxhv_rec.khr_attribute12 = OKL_API.G_MISS_CHAR ) THEN
807: l_pxhv_rec.khr_attribute12 := NULL;
802: END IF;
803: IF (l_pxhv_rec.khr_attribute11 = OKL_API.G_MISS_CHAR ) THEN
804: l_pxhv_rec.khr_attribute11 := NULL;
805: END IF;
806: IF (l_pxhv_rec.khr_attribute12 = OKL_API.G_MISS_CHAR ) THEN
807: l_pxhv_rec.khr_attribute12 := NULL;
808: END IF;
809: IF (l_pxhv_rec.khr_attribute13 = OKL_API.G_MISS_CHAR ) THEN
810: l_pxhv_rec.khr_attribute13 := NULL;
805: END IF;
806: IF (l_pxhv_rec.khr_attribute12 = OKL_API.G_MISS_CHAR ) THEN
807: l_pxhv_rec.khr_attribute12 := NULL;
808: END IF;
809: IF (l_pxhv_rec.khr_attribute13 = OKL_API.G_MISS_CHAR ) THEN
810: l_pxhv_rec.khr_attribute13 := NULL;
811: END IF;
812: IF (l_pxhv_rec.khr_attribute14 = OKL_API.G_MISS_CHAR ) THEN
813: l_pxhv_rec.khr_attribute14 := NULL;
808: END IF;
809: IF (l_pxhv_rec.khr_attribute13 = OKL_API.G_MISS_CHAR ) THEN
810: l_pxhv_rec.khr_attribute13 := NULL;
811: END IF;
812: IF (l_pxhv_rec.khr_attribute14 = OKL_API.G_MISS_CHAR ) THEN
813: l_pxhv_rec.khr_attribute14 := NULL;
814: END IF;
815: IF (l_pxhv_rec.khr_attribute15 = OKL_API.G_MISS_CHAR ) THEN
816: l_pxhv_rec.khr_attribute15 := NULL;
811: END IF;
812: IF (l_pxhv_rec.khr_attribute14 = OKL_API.G_MISS_CHAR ) THEN
813: l_pxhv_rec.khr_attribute14 := NULL;
814: END IF;
815: IF (l_pxhv_rec.khr_attribute15 = OKL_API.G_MISS_CHAR ) THEN
816: l_pxhv_rec.khr_attribute15 := NULL;
817: END IF;
818: IF (l_pxhv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
819: l_pxhv_rec.cust_attribute_category := NULL;
814: END IF;
815: IF (l_pxhv_rec.khr_attribute15 = OKL_API.G_MISS_CHAR ) THEN
816: l_pxhv_rec.khr_attribute15 := NULL;
817: END IF;
818: IF (l_pxhv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
819: l_pxhv_rec.cust_attribute_category := NULL;
820: END IF;
821: IF (l_pxhv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
822: l_pxhv_rec.cust_attribute1 := NULL;
817: END IF;
818: IF (l_pxhv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
819: l_pxhv_rec.cust_attribute_category := NULL;
820: END IF;
821: IF (l_pxhv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
822: l_pxhv_rec.cust_attribute1 := NULL;
823: END IF;
824: IF (l_pxhv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
825: l_pxhv_rec.cust_attribute2 := NULL;
820: END IF;
821: IF (l_pxhv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
822: l_pxhv_rec.cust_attribute1 := NULL;
823: END IF;
824: IF (l_pxhv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
825: l_pxhv_rec.cust_attribute2 := NULL;
826: END IF;
827: IF (l_pxhv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
828: l_pxhv_rec.cust_attribute3 := NULL;
823: END IF;
824: IF (l_pxhv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
825: l_pxhv_rec.cust_attribute2 := NULL;
826: END IF;
827: IF (l_pxhv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
828: l_pxhv_rec.cust_attribute3 := NULL;
829: END IF;
830: IF (l_pxhv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
831: l_pxhv_rec.cust_attribute4 := NULL;
826: END IF;
827: IF (l_pxhv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
828: l_pxhv_rec.cust_attribute3 := NULL;
829: END IF;
830: IF (l_pxhv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
831: l_pxhv_rec.cust_attribute4 := NULL;
832: END IF;
833: IF (l_pxhv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
834: l_pxhv_rec.cust_attribute5 := NULL;
829: END IF;
830: IF (l_pxhv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
831: l_pxhv_rec.cust_attribute4 := NULL;
832: END IF;
833: IF (l_pxhv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
834: l_pxhv_rec.cust_attribute5 := NULL;
835: END IF;
836: IF (l_pxhv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
837: l_pxhv_rec.cust_attribute6 := NULL;
832: END IF;
833: IF (l_pxhv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
834: l_pxhv_rec.cust_attribute5 := NULL;
835: END IF;
836: IF (l_pxhv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
837: l_pxhv_rec.cust_attribute6 := NULL;
838: END IF;
839: IF (l_pxhv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
840: l_pxhv_rec.cust_attribute7 := NULL;
835: END IF;
836: IF (l_pxhv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
837: l_pxhv_rec.cust_attribute6 := NULL;
838: END IF;
839: IF (l_pxhv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
840: l_pxhv_rec.cust_attribute7 := NULL;
841: END IF;
842: IF (l_pxhv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
843: l_pxhv_rec.cust_attribute8 := NULL;
838: END IF;
839: IF (l_pxhv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
840: l_pxhv_rec.cust_attribute7 := NULL;
841: END IF;
842: IF (l_pxhv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
843: l_pxhv_rec.cust_attribute8 := NULL;
844: END IF;
845: IF (l_pxhv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
846: l_pxhv_rec.cust_attribute9 := NULL;
841: END IF;
842: IF (l_pxhv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
843: l_pxhv_rec.cust_attribute8 := NULL;
844: END IF;
845: IF (l_pxhv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
846: l_pxhv_rec.cust_attribute9 := NULL;
847: END IF;
848: IF (l_pxhv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
849: l_pxhv_rec.cust_attribute10 := NULL;
844: END IF;
845: IF (l_pxhv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
846: l_pxhv_rec.cust_attribute9 := NULL;
847: END IF;
848: IF (l_pxhv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
849: l_pxhv_rec.cust_attribute10 := NULL;
850: END IF;
851: IF (l_pxhv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
852: l_pxhv_rec.cust_attribute11 := NULL;
847: END IF;
848: IF (l_pxhv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
849: l_pxhv_rec.cust_attribute10 := NULL;
850: END IF;
851: IF (l_pxhv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
852: l_pxhv_rec.cust_attribute11 := NULL;
853: END IF;
854: IF (l_pxhv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
855: l_pxhv_rec.cust_attribute12 := NULL;
850: END IF;
851: IF (l_pxhv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
852: l_pxhv_rec.cust_attribute11 := NULL;
853: END IF;
854: IF (l_pxhv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
855: l_pxhv_rec.cust_attribute12 := NULL;
856: END IF;
857: IF (l_pxhv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
858: l_pxhv_rec.cust_attribute13 := NULL;
853: END IF;
854: IF (l_pxhv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
855: l_pxhv_rec.cust_attribute12 := NULL;
856: END IF;
857: IF (l_pxhv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
858: l_pxhv_rec.cust_attribute13 := NULL;
859: END IF;
860: IF (l_pxhv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
861: l_pxhv_rec.cust_attribute14 := NULL;
856: END IF;
857: IF (l_pxhv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
858: l_pxhv_rec.cust_attribute13 := NULL;
859: END IF;
860: IF (l_pxhv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
861: l_pxhv_rec.cust_attribute14 := NULL;
862: END IF;
863: IF (l_pxhv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
864: l_pxhv_rec.cust_attribute15 := NULL;
859: END IF;
860: IF (l_pxhv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
861: l_pxhv_rec.cust_attribute14 := NULL;
862: END IF;
863: IF (l_pxhv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
864: l_pxhv_rec.cust_attribute15 := NULL;
865: END IF;
866: IF (l_pxhv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
867: l_pxhv_rec.rent_ia_contract_number := NULL;
862: END IF;
863: IF (l_pxhv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
864: l_pxhv_rec.cust_attribute15 := NULL;
865: END IF;
866: IF (l_pxhv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
867: l_pxhv_rec.rent_ia_contract_number := NULL;
868: END IF;
869: IF (l_pxhv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
870: l_pxhv_rec.rent_ia_product_name := NULL;
865: END IF;
866: IF (l_pxhv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
867: l_pxhv_rec.rent_ia_contract_number := NULL;
868: END IF;
869: IF (l_pxhv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
870: l_pxhv_rec.rent_ia_product_name := NULL;
871: END IF;
872: IF (l_pxhv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
873: l_pxhv_rec.rent_ia_accounting_code := NULL;
868: END IF;
869: IF (l_pxhv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
870: l_pxhv_rec.rent_ia_product_name := NULL;
871: END IF;
872: IF (l_pxhv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
873: l_pxhv_rec.rent_ia_accounting_code := NULL;
874: END IF;
875: IF (l_pxhv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
876: l_pxhv_rec.res_ia_contract_number := NULL;
871: END IF;
872: IF (l_pxhv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
873: l_pxhv_rec.rent_ia_accounting_code := NULL;
874: END IF;
875: IF (l_pxhv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
876: l_pxhv_rec.res_ia_contract_number := NULL;
877: END IF;
878: IF (l_pxhv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
879: l_pxhv_rec.res_ia_product_name := NULL;
874: END IF;
875: IF (l_pxhv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
876: l_pxhv_rec.res_ia_contract_number := NULL;
877: END IF;
878: IF (l_pxhv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
879: l_pxhv_rec.res_ia_product_name := NULL;
880: END IF;
881: IF (l_pxhv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
882: l_pxhv_rec.res_ia_accounting_code := NULL;
877: END IF;
878: IF (l_pxhv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
879: l_pxhv_rec.res_ia_product_name := NULL;
880: END IF;
881: IF (l_pxhv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
882: l_pxhv_rec.res_ia_accounting_code := NULL;
883: END IF;
884: IF (l_pxhv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
885: l_pxhv_rec.inv_agrmnt_number := NULL;
880: END IF;
881: IF (l_pxhv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
882: l_pxhv_rec.res_ia_accounting_code := NULL;
883: END IF;
884: IF (l_pxhv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
885: l_pxhv_rec.inv_agrmnt_number := NULL;
886: END IF;
887: IF (l_pxhv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
888: l_pxhv_rec.inv_agrmnt_effective_from := NULL;
883: END IF;
884: IF (l_pxhv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
885: l_pxhv_rec.inv_agrmnt_number := NULL;
886: END IF;
887: IF (l_pxhv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
888: l_pxhv_rec.inv_agrmnt_effective_from := NULL;
889: END IF;
890: IF (l_pxhv_rec.inv_agrmnt_product_name = OKL_API.G_MISS_CHAR ) THEN
891: l_pxhv_rec.inv_agrmnt_product_name := NULL;
886: END IF;
887: IF (l_pxhv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
888: l_pxhv_rec.inv_agrmnt_effective_from := NULL;
889: END IF;
890: IF (l_pxhv_rec.inv_agrmnt_product_name = OKL_API.G_MISS_CHAR ) THEN
891: l_pxhv_rec.inv_agrmnt_product_name := NULL;
892: END IF;
893: IF (l_pxhv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
894: l_pxhv_rec.inv_agrmnt_currency_code := NULL;
889: END IF;
890: IF (l_pxhv_rec.inv_agrmnt_product_name = OKL_API.G_MISS_CHAR ) THEN
891: l_pxhv_rec.inv_agrmnt_product_name := NULL;
892: END IF;
893: IF (l_pxhv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
894: l_pxhv_rec.inv_agrmnt_currency_code := NULL;
895: END IF;
896: IF (l_pxhv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
897: l_pxhv_rec.inv_agrmnt_synd_code := NULL;
892: END IF;
893: IF (l_pxhv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
894: l_pxhv_rec.inv_agrmnt_currency_code := NULL;
895: END IF;
896: IF (l_pxhv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
897: l_pxhv_rec.inv_agrmnt_synd_code := NULL;
898: END IF;
899: IF (l_pxhv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
900: l_pxhv_rec.inv_agrmnt_pool_number := NULL;
895: END IF;
896: IF (l_pxhv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
897: l_pxhv_rec.inv_agrmnt_synd_code := NULL;
898: END IF;
899: IF (l_pxhv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
900: l_pxhv_rec.inv_agrmnt_pool_number := NULL;
901: END IF;
902: IF (l_pxhv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
903: l_pxhv_rec.contract_status_code := NULL;
898: END IF;
899: IF (l_pxhv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
900: l_pxhv_rec.inv_agrmnt_pool_number := NULL;
901: END IF;
902: IF (l_pxhv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
903: l_pxhv_rec.contract_status_code := NULL;
904: END IF;
905: IF (l_pxhv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
906: l_pxhv_rec.inv_agrmnt_status_code := NULL;
901: END IF;
902: IF (l_pxhv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
903: l_pxhv_rec.contract_status_code := NULL;
904: END IF;
905: IF (l_pxhv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
906: l_pxhv_rec.inv_agrmnt_status_code := NULL;
907: END IF;
908: IF (l_pxhv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
909: l_pxhv_rec.trx_type_class_code := NULL;
904: END IF;
905: IF (l_pxhv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
906: l_pxhv_rec.inv_agrmnt_status_code := NULL;
907: END IF;
908: IF (l_pxhv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
909: l_pxhv_rec.trx_type_class_code := NULL;
910: END IF;
911: IF (l_pxhv_rec.language = OKL_API.G_MISS_CHAR ) THEN
912: l_pxhv_rec.language := NULL;
907: END IF;
908: IF (l_pxhv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
909: l_pxhv_rec.trx_type_class_code := NULL;
910: END IF;
911: IF (l_pxhv_rec.language = OKL_API.G_MISS_CHAR ) THEN
912: l_pxhv_rec.language := NULL;
913: END IF;
914: IF (l_pxhv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
915: l_pxhv_rec.contract_status := NULL;
910: END IF;
911: IF (l_pxhv_rec.language = OKL_API.G_MISS_CHAR ) THEN
912: l_pxhv_rec.language := NULL;
913: END IF;
914: IF (l_pxhv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
915: l_pxhv_rec.contract_status := NULL;
916: END IF;
917: IF (l_pxhv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
918: l_pxhv_rec.inv_agrmnt_status := NULL;
913: END IF;
914: IF (l_pxhv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
915: l_pxhv_rec.contract_status := NULL;
916: END IF;
917: IF (l_pxhv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
918: l_pxhv_rec.inv_agrmnt_status := NULL;
919: END IF;
920: IF (l_pxhv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
921: l_pxhv_rec.transaction_type_name := NULL;
916: END IF;
917: IF (l_pxhv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
918: l_pxhv_rec.inv_agrmnt_status := NULL;
919: END IF;
920: IF (l_pxhv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
921: l_pxhv_rec.transaction_type_name := NULL;
922: END IF;
923: IF (l_pxhv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
924: l_pxhv_rec.created_by := NULL;
919: END IF;
920: IF (l_pxhv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
921: l_pxhv_rec.transaction_type_name := NULL;
922: END IF;
923: IF (l_pxhv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
924: l_pxhv_rec.created_by := NULL;
925: END IF;
926: IF (l_pxhv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
927: l_pxhv_rec.creation_date := NULL;
922: END IF;
923: IF (l_pxhv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
924: l_pxhv_rec.created_by := NULL;
925: END IF;
926: IF (l_pxhv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
927: l_pxhv_rec.creation_date := NULL;
928: END IF;
929: IF (l_pxhv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
930: l_pxhv_rec.last_updated_by := NULL;
925: END IF;
926: IF (l_pxhv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
927: l_pxhv_rec.creation_date := NULL;
928: END IF;
929: IF (l_pxhv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
930: l_pxhv_rec.last_updated_by := NULL;
931: END IF;
932: IF (l_pxhv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
933: l_pxhv_rec.last_update_date := NULL;
928: END IF;
929: IF (l_pxhv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
930: l_pxhv_rec.last_updated_by := NULL;
931: END IF;
932: IF (l_pxhv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
933: l_pxhv_rec.last_update_date := NULL;
934: END IF;
935: IF (l_pxhv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
936: l_pxhv_rec.last_update_login := NULL;
931: END IF;
932: IF (l_pxhv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
933: l_pxhv_rec.last_update_date := NULL;
934: END IF;
935: IF (l_pxhv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
936: l_pxhv_rec.last_update_login := NULL;
937: END IF;
938: -- added by zrehman Bug#6707320 for Party Merge impact on Accounting sources tables start
939: IF (l_pxhv_rec.party_id = OKL_API.G_MISS_NUM ) THEN
935: IF (l_pxhv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
936: l_pxhv_rec.last_update_login := NULL;
937: END IF;
938: -- added by zrehman Bug#6707320 for Party Merge impact on Accounting sources tables start
939: IF (l_pxhv_rec.party_id = OKL_API.G_MISS_NUM ) THEN
940: l_pxhv_rec.party_id := NULL;
941: END IF;
942: IF (l_pxhv_rec.cust_account_id = OKL_API.G_MISS_NUM ) THEN
943: l_pxhv_rec.cust_account_id := NULL;
938: -- added by zrehman Bug#6707320 for Party Merge impact on Accounting sources tables start
939: IF (l_pxhv_rec.party_id = OKL_API.G_MISS_NUM ) THEN
940: l_pxhv_rec.party_id := NULL;
941: END IF;
942: IF (l_pxhv_rec.cust_account_id = OKL_API.G_MISS_NUM ) THEN
943: l_pxhv_rec.cust_account_id := NULL;
944: END IF;
945: -- added by zrehman Bug#6707320 for Party Merge impact on Accounting sources tables end
946: RETURN(l_pxhv_rec);
951: PROCEDURE validate_header_extension_id(
952: x_return_status OUT NOCOPY VARCHAR2,
953: p_header_extension_id IN NUMBER) IS
954: BEGIN
955: x_return_status := OKL_API.G_RET_STS_SUCCESS;
956: IF (p_header_extension_id IS NULL) THEN
957: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
958: x_return_status := OKL_API.G_RET_STS_ERROR;
959: RAISE G_EXCEPTION_HALT_VALIDATION;
953: p_header_extension_id IN NUMBER) IS
954: BEGIN
955: x_return_status := OKL_API.G_RET_STS_SUCCESS;
956: IF (p_header_extension_id IS NULL) THEN
957: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
958: x_return_status := OKL_API.G_RET_STS_ERROR;
959: RAISE G_EXCEPTION_HALT_VALIDATION;
960: END IF;
961: EXCEPTION
954: BEGIN
955: x_return_status := OKL_API.G_RET_STS_SUCCESS;
956: IF (p_header_extension_id IS NULL) THEN
957: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
958: x_return_status := OKL_API.G_RET_STS_ERROR;
959: RAISE G_EXCEPTION_HALT_VALIDATION;
960: END IF;
961: EXCEPTION
962: WHEN G_EXCEPTION_HALT_VALIDATION THEN
961: EXCEPTION
962: WHEN G_EXCEPTION_HALT_VALIDATION THEN
963: null;
964: WHEN OTHERS THEN
965: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
966: ,p_msg_name => G_UNEXPECTED_ERROR
967: ,p_token1 => G_SQLCODE_TOKEN
968: ,p_token1_value => SQLCODE
969: ,p_token2 => G_SQLERRM_TOKEN
967: ,p_token1 => G_SQLCODE_TOKEN
968: ,p_token1_value => SQLCODE
969: ,p_token2 => G_SQLERRM_TOKEN
970: ,p_token2_value => SQLERRM);
971: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
972: END validate_header_extension_id;
973: ----------------------------------------
974: -- Validate_Attributes for: SOURCE_ID --
975: ----------------------------------------
976: PROCEDURE validate_source_id(
977: x_return_status OUT NOCOPY VARCHAR2,
978: p_source_id IN NUMBER) IS
979: BEGIN
980: x_return_status := OKL_API.G_RET_STS_SUCCESS;
981: IF (p_source_id IS NULL) THEN
982: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
983: x_return_status := OKL_API.G_RET_STS_ERROR;
984: RAISE G_EXCEPTION_HALT_VALIDATION;
978: p_source_id IN NUMBER) IS
979: BEGIN
980: x_return_status := OKL_API.G_RET_STS_SUCCESS;
981: IF (p_source_id IS NULL) THEN
982: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
983: x_return_status := OKL_API.G_RET_STS_ERROR;
984: RAISE G_EXCEPTION_HALT_VALIDATION;
985: END IF;
986: EXCEPTION
979: BEGIN
980: x_return_status := OKL_API.G_RET_STS_SUCCESS;
981: IF (p_source_id IS NULL) THEN
982: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
983: x_return_status := OKL_API.G_RET_STS_ERROR;
984: RAISE G_EXCEPTION_HALT_VALIDATION;
985: END IF;
986: EXCEPTION
987: WHEN G_EXCEPTION_HALT_VALIDATION THEN
986: EXCEPTION
987: WHEN G_EXCEPTION_HALT_VALIDATION THEN
988: null;
989: WHEN OTHERS THEN
990: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
991: ,p_msg_name => G_UNEXPECTED_ERROR
992: ,p_token1 => G_SQLCODE_TOKEN
993: ,p_token1_value => SQLCODE
994: ,p_token2 => G_SQLERRM_TOKEN
992: ,p_token1 => G_SQLCODE_TOKEN
993: ,p_token1_value => SQLCODE
994: ,p_token2 => G_SQLERRM_TOKEN
995: ,p_token2_value => SQLERRM);
996: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
997: END validate_source_id;
998: -------------------------------------------
999: -- Validate_Attributes for: SOURCE_TABLE --
1000: -------------------------------------------
1001: PROCEDURE validate_source_table(
1002: x_return_status OUT NOCOPY VARCHAR2,
1003: p_source_table IN VARCHAR2) IS
1004: BEGIN
1005: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1006: IF (p_source_table IS NULL) THEN
1007: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
1008: x_return_status := OKL_API.G_RET_STS_ERROR;
1009: RAISE G_EXCEPTION_HALT_VALIDATION;
1003: p_source_table IN VARCHAR2) IS
1004: BEGIN
1005: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1006: IF (p_source_table IS NULL) THEN
1007: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
1008: x_return_status := OKL_API.G_RET_STS_ERROR;
1009: RAISE G_EXCEPTION_HALT_VALIDATION;
1010: END IF;
1011: EXCEPTION
1004: BEGIN
1005: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1006: IF (p_source_table IS NULL) THEN
1007: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_table');
1008: x_return_status := OKL_API.G_RET_STS_ERROR;
1009: RAISE G_EXCEPTION_HALT_VALIDATION;
1010: END IF;
1011: EXCEPTION
1012: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1011: EXCEPTION
1012: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1013: null;
1014: WHEN OTHERS THEN
1015: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1016: ,p_msg_name => G_UNEXPECTED_ERROR
1017: ,p_token1 => G_SQLCODE_TOKEN
1018: ,p_token1_value => SQLCODE
1019: ,p_token2 => G_SQLERRM_TOKEN
1017: ,p_token1 => G_SQLCODE_TOKEN
1018: ,p_token1_value => SQLCODE
1019: ,p_token2 => G_SQLERRM_TOKEN
1020: ,p_token2_value => SQLERRM);
1021: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1022: END validate_source_table;
1023: ----------------------------------------------------
1024: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
1025: ----------------------------------------------------
1026: PROCEDURE validate_object_version_number(
1027: x_return_status OUT NOCOPY VARCHAR2,
1028: p_object_version_number IN NUMBER) IS
1029: BEGIN
1030: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1031: IF (p_object_version_number IS NULL) THEN
1032: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1033: x_return_status := OKL_API.G_RET_STS_ERROR;
1034: RAISE G_EXCEPTION_HALT_VALIDATION;
1028: p_object_version_number IN NUMBER) IS
1029: BEGIN
1030: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1031: IF (p_object_version_number IS NULL) THEN
1032: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1033: x_return_status := OKL_API.G_RET_STS_ERROR;
1034: RAISE G_EXCEPTION_HALT_VALIDATION;
1035: END IF;
1036: EXCEPTION
1029: BEGIN
1030: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1031: IF (p_object_version_number IS NULL) THEN
1032: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1033: x_return_status := OKL_API.G_RET_STS_ERROR;
1034: RAISE G_EXCEPTION_HALT_VALIDATION;
1035: END IF;
1036: EXCEPTION
1037: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1036: EXCEPTION
1037: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1038: null;
1039: WHEN OTHERS THEN
1040: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1041: ,p_msg_name => G_UNEXPECTED_ERROR
1042: ,p_token1 => G_SQLCODE_TOKEN
1043: ,p_token1_value => SQLCODE
1044: ,p_token2 => G_SQLERRM_TOKEN
1042: ,p_token1 => G_SQLCODE_TOKEN
1043: ,p_token1_value => SQLCODE
1044: ,p_token2 => G_SQLERRM_TOKEN
1045: ,p_token2_value => SQLERRM);
1046: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1047: END validate_object_version_number;
1048: -------------------------------------
1049: -- Validate_Attributes for: KHR_ID --
1050: -------------------------------------
1051: PROCEDURE validate_khr_id(
1052: x_return_status OUT NOCOPY VARCHAR2,
1053: p_khr_id IN NUMBER) IS
1054: BEGIN
1055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1056: IF (p_khr_id IS NULL) THEN
1057: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
1058: x_return_status := OKL_API.G_RET_STS_ERROR;
1059: RAISE G_EXCEPTION_HALT_VALIDATION;
1053: p_khr_id IN NUMBER) IS
1054: BEGIN
1055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1056: IF (p_khr_id IS NULL) THEN
1057: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
1058: x_return_status := OKL_API.G_RET_STS_ERROR;
1059: RAISE G_EXCEPTION_HALT_VALIDATION;
1060: END IF;
1061: EXCEPTION
1054: BEGIN
1055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1056: IF (p_khr_id IS NULL) THEN
1057: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
1058: x_return_status := OKL_API.G_RET_STS_ERROR;
1059: RAISE G_EXCEPTION_HALT_VALIDATION;
1060: END IF;
1061: EXCEPTION
1062: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1061: EXCEPTION
1062: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1063: null;
1064: WHEN OTHERS THEN
1065: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1066: ,p_msg_name => G_UNEXPECTED_ERROR
1067: ,p_token1 => G_SQLCODE_TOKEN
1068: ,p_token1_value => SQLCODE
1069: ,p_token2 => G_SQLERRM_TOKEN
1067: ,p_token1 => G_SQLCODE_TOKEN
1068: ,p_token1_value => SQLCODE
1069: ,p_token2 => G_SQLERRM_TOKEN
1070: ,p_token2_value => SQLERRM);
1071: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1072: END validate_khr_id;
1073: -------------------------------------
1074: -- Validate_Attributes for: TRY_ID --
1075: -------------------------------------
1076: PROCEDURE validate_try_id(
1077: x_return_status OUT NOCOPY VARCHAR2,
1078: p_try_id IN NUMBER) IS
1079: BEGIN
1080: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1081: IF (p_try_id IS NULL) THEN
1082: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
1083: x_return_status := OKL_API.G_RET_STS_ERROR;
1084: RAISE G_EXCEPTION_HALT_VALIDATION;
1078: p_try_id IN NUMBER) IS
1079: BEGIN
1080: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1081: IF (p_try_id IS NULL) THEN
1082: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
1083: x_return_status := OKL_API.G_RET_STS_ERROR;
1084: RAISE G_EXCEPTION_HALT_VALIDATION;
1085: END IF;
1086: EXCEPTION
1079: BEGIN
1080: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1081: IF (p_try_id IS NULL) THEN
1082: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
1083: x_return_status := OKL_API.G_RET_STS_ERROR;
1084: RAISE G_EXCEPTION_HALT_VALIDATION;
1085: END IF;
1086: EXCEPTION
1087: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1086: EXCEPTION
1087: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1088: null;
1089: WHEN OTHERS THEN
1090: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1091: ,p_msg_name => G_UNEXPECTED_ERROR
1092: ,p_token1 => G_SQLCODE_TOKEN
1093: ,p_token1_value => SQLCODE
1094: ,p_token2 => G_SQLERRM_TOKEN
1092: ,p_token1 => G_SQLCODE_TOKEN
1093: ,p_token1_value => SQLCODE
1094: ,p_token2 => G_SQLERRM_TOKEN
1095: ,p_token2_value => SQLERRM);
1096: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1097: END validate_try_id;
1098: ---------------------------------------
1099: -- Validate_Attributes for: LANGUAGE --
1100: ---------------------------------------
1101: PROCEDURE validate_language(
1102: x_return_status OUT NOCOPY VARCHAR2,
1103: p_language IN VARCHAR2) IS
1104: BEGIN
1105: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1106: IF (p_language IS NULL) THEN
1107: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
1108: x_return_status := OKL_API.G_RET_STS_ERROR;
1109: RAISE G_EXCEPTION_HALT_VALIDATION;
1103: p_language IN VARCHAR2) IS
1104: BEGIN
1105: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1106: IF (p_language IS NULL) THEN
1107: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
1108: x_return_status := OKL_API.G_RET_STS_ERROR;
1109: RAISE G_EXCEPTION_HALT_VALIDATION;
1110: END IF;
1111: EXCEPTION
1104: BEGIN
1105: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1106: IF (p_language IS NULL) THEN
1107: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
1108: x_return_status := OKL_API.G_RET_STS_ERROR;
1109: RAISE G_EXCEPTION_HALT_VALIDATION;
1110: END IF;
1111: EXCEPTION
1112: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1111: EXCEPTION
1112: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1113: null;
1114: WHEN OTHERS THEN
1115: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1116: ,p_msg_name => G_UNEXPECTED_ERROR
1117: ,p_token1 => G_SQLCODE_TOKEN
1118: ,p_token1_value => SQLCODE
1119: ,p_token2 => G_SQLERRM_TOKEN
1117: ,p_token1 => G_SQLCODE_TOKEN
1118: ,p_token1_value => SQLCODE
1119: ,p_token2 => G_SQLERRM_TOKEN
1120: ,p_token2_value => SQLERRM);
1121: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1122: END validate_language;
1123: -------------------------------------
1124: -- Validate_Attributes for: PARTY_ID --
1125: -------------------------------------
1215: ---------------------------------------------------------
1216: FUNCTION Validate_Attributes (
1217: p_pxhv_rec IN pxhv_rec_type
1218: ) RETURN VARCHAR2 IS
1219: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1220: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1221: BEGIN
1222: -----------------------------
1223: -- Column Level Validation --
1216: FUNCTION Validate_Attributes (
1217: p_pxhv_rec IN pxhv_rec_type
1218: ) RETURN VARCHAR2 IS
1219: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1220: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1221: BEGIN
1222: -----------------------------
1223: -- Column Level Validation --
1224: -----------------------------
1225: -- ***
1226: -- header_extension_id
1227: -- ***
1228: validate_header_extension_id(x_return_status, p_pxhv_rec.header_extension_id);
1229: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1230: l_return_status := x_return_status;
1231: RAISE G_EXCEPTION_HALT_VALIDATION;
1232: END IF;
1233:
1234: -- ***
1235: -- source_id
1236: -- ***
1237: validate_source_id(x_return_status, p_pxhv_rec.source_id);
1238: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1239: l_return_status := x_return_status;
1240: RAISE G_EXCEPTION_HALT_VALIDATION;
1241: END IF;
1242:
1243: -- ***
1244: -- source_table
1245: -- ***
1246: validate_source_table(x_return_status, p_pxhv_rec.source_table);
1247: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1248: l_return_status := x_return_status;
1249: RAISE G_EXCEPTION_HALT_VALIDATION;
1250: END IF;
1251:
1252: -- ***
1253: -- object_version_number
1254: -- ***
1255: validate_object_version_number(x_return_status, p_pxhv_rec.object_version_number);
1256: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1257: l_return_status := x_return_status;
1258: RAISE G_EXCEPTION_HALT_VALIDATION;
1259: END IF;
1260:
1261: -- ***
1262: -- khr_id
1263: -- ***
1264: validate_khr_id(x_return_status, p_pxhv_rec.khr_id);
1265: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1266: l_return_status := x_return_status;
1267: RAISE G_EXCEPTION_HALT_VALIDATION;
1268: END IF;
1269:
1270: -- ***
1271: -- try_id
1272: -- ***
1273: validate_try_id(x_return_status, p_pxhv_rec.try_id);
1274: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1275: l_return_status := x_return_status;
1276: RAISE G_EXCEPTION_HALT_VALIDATION;
1277: END IF;
1278:
1279: -- ***
1280: -- language
1281: -- ***
1282: validate_language(x_return_status, p_pxhv_rec.language);
1283: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1284: l_return_status := x_return_status;
1285: RAISE G_EXCEPTION_HALT_VALIDATION;
1286: END IF;
1287:
1289: -- ***
1290: -- party_id
1291: -- ***
1292: validate_party_id(x_return_status, p_pxhv_rec.party_id);
1293: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1294: l_return_status := x_return_status;
1295: RAISE G_EXCEPTION_HALT_VALIDATION;
1296: END IF;
1297:
1298: -- ***
1299: -- cust_account_id
1300: -- ***
1301: validate_cust_account_id(x_return_status, p_pxhv_rec.cust_account_id);
1302: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1303: l_return_status := x_return_status;
1304: RAISE G_EXCEPTION_HALT_VALIDATION;
1305: END IF;
1306:
1309: EXCEPTION
1310: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1311: RETURN(l_return_status);
1312: WHEN OTHERS THEN
1313: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1314: ,p_msg_name => G_UNEXPECTED_ERROR
1315: ,p_token1 => G_SQLCODE_TOKEN
1316: ,p_token1_value => SQLCODE
1317: ,p_token2 => G_SQLERRM_TOKEN
1315: ,p_token1 => G_SQLCODE_TOKEN
1316: ,p_token1_value => SQLCODE
1317: ,p_token2 => G_SQLERRM_TOKEN
1318: ,p_token2_value => SQLERRM);
1319: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1320: RETURN(l_return_status);
1321: END Validate_Attributes;
1322: ---------------------------------------------------------------------------
1323: -- PROCEDURE Validate_Record
1328: FUNCTION Validate_Record (
1329: p_pxhv_rec IN pxhv_rec_type,
1330: p_db_pxhv_rec IN pxhv_rec_type
1331: ) RETURN VARCHAR2 IS
1332: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1333: BEGIN
1334: RETURN (l_return_status);
1335: END Validate_Record;
1336: FUNCTION Validate_Record (
1335: END Validate_Record;
1336: FUNCTION Validate_Record (
1337: p_pxhv_rec IN pxhv_rec_type
1338: ) RETURN VARCHAR2 IS
1339: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1340: l_db_pxhv_rec pxhv_rec_type := get_rec(p_pxhv_rec);
1341: BEGIN
1342: l_return_status := Validate_Record(p_pxhv_rec => p_pxhv_rec,
1343: p_db_pxhv_rec => l_db_pxhv_rec);
1560: -- validate_row for:OKL_EXT_AP_HEADER_SOURCES_V --
1561: --------------------------------------------------
1562: PROCEDURE validate_row(
1563: p_api_version IN NUMBER,
1564: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1565: x_return_status OUT NOCOPY VARCHAR2,
1566: x_msg_count OUT NOCOPY NUMBER,
1567: x_msg_data OUT NOCOPY VARCHAR2,
1568: p_pxhv_rec IN pxhv_rec_type) IS
1568: p_pxhv_rec IN pxhv_rec_type) IS
1569:
1570: l_api_version CONSTANT NUMBER := 1;
1571: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1572: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1573: l_pxhv_rec pxhv_rec_type := p_pxhv_rec;
1574: l_pxh_rec pxh_rec_type;
1575: l_pxhl_rec pxhl_rec_type;
1576: BEGIN
1573: l_pxhv_rec pxhv_rec_type := p_pxhv_rec;
1574: l_pxh_rec pxh_rec_type;
1575: l_pxhl_rec pxhl_rec_type;
1576: BEGIN
1577: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1578: G_PKG_NAME,
1579: p_init_msg_list,
1580: l_api_version,
1581: p_api_version,
1580: l_api_version,
1581: p_api_version,
1582: '_PVT',
1583: x_return_status);
1584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1587: RAISE OKL_API.G_EXCEPTION_ERROR;
1588: END IF;
1581: p_api_version,
1582: '_PVT',
1583: x_return_status);
1584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1587: RAISE OKL_API.G_EXCEPTION_ERROR;
1588: END IF;
1589: --- Validate all non-missing attributes (Item Level Validation)
1582: '_PVT',
1583: x_return_status);
1584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1587: RAISE OKL_API.G_EXCEPTION_ERROR;
1588: END IF;
1589: --- Validate all non-missing attributes (Item Level Validation)
1590: l_return_status := Validate_Attributes(l_pxhv_rec);
1583: x_return_status);
1584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1587: RAISE OKL_API.G_EXCEPTION_ERROR;
1588: END IF;
1589: --- Validate all non-missing attributes (Item Level Validation)
1590: l_return_status := Validate_Attributes(l_pxhv_rec);
1591: --- If any errors happen abort API
1588: END IF;
1589: --- Validate all non-missing attributes (Item Level Validation)
1590: l_return_status := Validate_Attributes(l_pxhv_rec);
1591: --- If any errors happen abort API
1592: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1594: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1595: RAISE OKL_API.G_EXCEPTION_ERROR;
1596: END IF;
1589: --- Validate all non-missing attributes (Item Level Validation)
1590: l_return_status := Validate_Attributes(l_pxhv_rec);
1591: --- If any errors happen abort API
1592: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1594: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1595: RAISE OKL_API.G_EXCEPTION_ERROR;
1596: END IF;
1597: l_return_status := Validate_Record(l_pxhv_rec);
1590: l_return_status := Validate_Attributes(l_pxhv_rec);
1591: --- If any errors happen abort API
1592: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1594: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1595: RAISE OKL_API.G_EXCEPTION_ERROR;
1596: END IF;
1597: l_return_status := Validate_Record(l_pxhv_rec);
1598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1591: --- If any errors happen abort API
1592: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1594: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1595: RAISE OKL_API.G_EXCEPTION_ERROR;
1596: END IF;
1597: l_return_status := Validate_Record(l_pxhv_rec);
1598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1594: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1595: RAISE OKL_API.G_EXCEPTION_ERROR;
1596: END IF;
1597: l_return_status := Validate_Record(l_pxhv_rec);
1598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1601: RAISE OKL_API.G_EXCEPTION_ERROR;
1602: END IF;
1595: RAISE OKL_API.G_EXCEPTION_ERROR;
1596: END IF;
1597: l_return_status := Validate_Record(l_pxhv_rec);
1598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1601: RAISE OKL_API.G_EXCEPTION_ERROR;
1602: END IF;
1603: x_return_status := l_return_status;
1596: END IF;
1597: l_return_status := Validate_Record(l_pxhv_rec);
1598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1601: RAISE OKL_API.G_EXCEPTION_ERROR;
1602: END IF;
1603: x_return_status := l_return_status;
1604: EXCEPTION
1597: l_return_status := Validate_Record(l_pxhv_rec);
1598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1601: RAISE OKL_API.G_EXCEPTION_ERROR;
1602: END IF;
1603: x_return_status := l_return_status;
1604: EXCEPTION
1605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1601: RAISE OKL_API.G_EXCEPTION_ERROR;
1602: END IF;
1603: x_return_status := l_return_status;
1604: EXCEPTION
1605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1606: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1607: (
1608: l_api_name,
1609: G_PKG_NAME,
1602: END IF;
1603: x_return_status := l_return_status;
1604: EXCEPTION
1605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1606: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1607: (
1608: l_api_name,
1609: G_PKG_NAME,
1610: 'OKL_API.G_RET_STS_ERROR',
1606: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1607: (
1608: l_api_name,
1609: G_PKG_NAME,
1610: 'OKL_API.G_RET_STS_ERROR',
1611: x_msg_count,
1612: x_msg_data,
1613: '_PVT'
1614: );
1611: x_msg_count,
1612: x_msg_data,
1613: '_PVT'
1614: );
1615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1616: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1617: (
1618: l_api_name,
1619: G_PKG_NAME,
1612: x_msg_data,
1613: '_PVT'
1614: );
1615: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1616: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1617: (
1618: l_api_name,
1619: G_PKG_NAME,
1620: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1616: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1617: (
1618: l_api_name,
1619: G_PKG_NAME,
1620: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1621: x_msg_count,
1622: x_msg_data,
1623: '_PVT'
1624: );
1622: x_msg_data,
1623: '_PVT'
1624: );
1625: WHEN OTHERS THEN
1626: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1627: (
1628: l_api_name,
1629: G_PKG_NAME,
1630: 'OTHERS',
1637: -- PL/SQL TBL validate_row for:OKL_EXT_AP_HEADER_SOURCES_V --
1638: -------------------------------------------------------------
1639: PROCEDURE validate_row(
1640: p_api_version IN NUMBER,
1641: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1642: x_return_status OUT NOCOPY VARCHAR2,
1643: x_msg_count OUT NOCOPY NUMBER,
1644: x_msg_data OUT NOCOPY VARCHAR2,
1645: p_pxhv_tbl IN pxhv_tbl_type,
1642: x_return_status OUT NOCOPY VARCHAR2,
1643: x_msg_count OUT NOCOPY NUMBER,
1644: x_msg_data OUT NOCOPY VARCHAR2,
1645: p_pxhv_tbl IN pxhv_tbl_type,
1646: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1647:
1648: l_api_version CONSTANT NUMBER := 1;
1649: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1650: i NUMBER := 0;
1648: l_api_version CONSTANT NUMBER := 1;
1649: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1650: i NUMBER := 0;
1651: BEGIN
1652: OKL_API.init_msg_list(p_init_msg_list);
1653: -- Make sure PL/SQL table has records in it before passing
1654: IF (p_pxhv_tbl.COUNT > 0) THEN
1655: i := p_pxhv_tbl.FIRST;
1656: LOOP
1654: IF (p_pxhv_tbl.COUNT > 0) THEN
1655: i := p_pxhv_tbl.FIRST;
1656: LOOP
1657: DECLARE
1658: l_error_rec OKL_API.ERROR_REC_TYPE;
1659: BEGIN
1660: l_error_rec.api_name := l_api_name;
1661: l_error_rec.api_package := G_PKG_NAME;
1662: l_error_rec.idx := i;
1661: l_error_rec.api_package := G_PKG_NAME;
1662: l_error_rec.idx := i;
1663: validate_row (
1664: p_api_version => p_api_version,
1665: p_init_msg_list => OKL_API.G_FALSE,
1666: x_return_status => l_error_rec.error_type,
1667: x_msg_count => l_error_rec.msg_count,
1668: x_msg_data => l_error_rec.msg_data,
1669: p_pxhv_rec => p_pxhv_tbl(i));
1666: x_return_status => l_error_rec.error_type,
1667: x_msg_count => l_error_rec.msg_count,
1668: x_msg_data => l_error_rec.msg_data,
1669: p_pxhv_rec => p_pxhv_tbl(i));
1670: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1671: l_error_rec.sqlcode := SQLCODE;
1672: load_error_tbl(l_error_rec, px_error_tbl);
1673: ELSE
1674: x_msg_count := l_error_rec.msg_count;
1674: x_msg_count := l_error_rec.msg_count;
1675: x_msg_data := l_error_rec.msg_data;
1676: END IF;
1677: EXCEPTION
1678: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1679: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1680: l_error_rec.sqlcode := SQLCODE;
1681: load_error_tbl(l_error_rec, px_error_tbl);
1682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1675: x_msg_data := l_error_rec.msg_data;
1676: END IF;
1677: EXCEPTION
1678: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1679: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1680: l_error_rec.sqlcode := SQLCODE;
1681: load_error_tbl(l_error_rec, px_error_tbl);
1682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1683: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1678: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1679: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1680: l_error_rec.sqlcode := SQLCODE;
1681: load_error_tbl(l_error_rec, px_error_tbl);
1682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1683: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1684: l_error_rec.sqlcode := SQLCODE;
1685: load_error_tbl(l_error_rec, px_error_tbl);
1686: WHEN OTHERS THEN
1679: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1680: l_error_rec.sqlcode := SQLCODE;
1681: load_error_tbl(l_error_rec, px_error_tbl);
1682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1683: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1684: l_error_rec.sqlcode := SQLCODE;
1685: load_error_tbl(l_error_rec, px_error_tbl);
1686: WHEN OTHERS THEN
1687: l_error_rec.error_type := 'OTHERS';
1694: END IF;
1695: -- Loop through the error_tbl to find the error with the highest severity
1696: -- and return it.
1697: x_return_status := find_highest_exception(px_error_tbl);
1698: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1699: EXCEPTION
1700: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1701: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1702: (
1696: -- and return it.
1697: x_return_status := find_highest_exception(px_error_tbl);
1698: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1699: EXCEPTION
1700: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1701: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1702: (
1703: l_api_name,
1704: G_PKG_NAME,
1697: x_return_status := find_highest_exception(px_error_tbl);
1698: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1699: EXCEPTION
1700: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1701: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1702: (
1703: l_api_name,
1704: G_PKG_NAME,
1705: 'OKL_API.G_RET_STS_ERROR',
1701: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1702: (
1703: l_api_name,
1704: G_PKG_NAME,
1705: 'OKL_API.G_RET_STS_ERROR',
1706: x_msg_count,
1707: x_msg_data,
1708: '_PVT'
1709: );
1706: x_msg_count,
1707: x_msg_data,
1708: '_PVT'
1709: );
1710: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1711: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1712: (
1713: l_api_name,
1714: G_PKG_NAME,
1707: x_msg_data,
1708: '_PVT'
1709: );
1710: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1711: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1712: (
1713: l_api_name,
1714: G_PKG_NAME,
1715: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1711: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1712: (
1713: l_api_name,
1714: G_PKG_NAME,
1715: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1716: x_msg_count,
1717: x_msg_data,
1718: '_PVT'
1719: );
1717: x_msg_data,
1718: '_PVT'
1719: );
1720: WHEN OTHERS THEN
1721: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1722: (
1723: l_api_name,
1724: G_PKG_NAME,
1725: 'OTHERS',
1733: -- PL/SQL TBL validate_row for:OKL_EXT_AP_HEADER_SOURCES_V --
1734: -------------------------------------------------------------
1735: PROCEDURE validate_row(
1736: p_api_version IN NUMBER,
1737: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1738: x_return_status OUT NOCOPY VARCHAR2,
1739: x_msg_count OUT NOCOPY NUMBER,
1740: x_msg_data OUT NOCOPY VARCHAR2,
1741: p_pxhv_tbl IN pxhv_tbl_type) IS
1741: p_pxhv_tbl IN pxhv_tbl_type) IS
1742:
1743: l_api_version CONSTANT NUMBER := 1;
1744: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1745: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1746: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1747: BEGIN
1748: OKL_API.init_msg_list(p_init_msg_list);
1749: -- Make sure PL/SQL table has records in it before passing
1742:
1743: l_api_version CONSTANT NUMBER := 1;
1744: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1745: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1746: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1747: BEGIN
1748: OKL_API.init_msg_list(p_init_msg_list);
1749: -- Make sure PL/SQL table has records in it before passing
1750: IF (p_pxhv_tbl.COUNT > 0) THEN
1744: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1745: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1746: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1747: BEGIN
1748: OKL_API.init_msg_list(p_init_msg_list);
1749: -- Make sure PL/SQL table has records in it before passing
1750: IF (p_pxhv_tbl.COUNT > 0) THEN
1751: validate_row (
1752: p_api_version => p_api_version,
1749: -- Make sure PL/SQL table has records in it before passing
1750: IF (p_pxhv_tbl.COUNT > 0) THEN
1751: validate_row (
1752: p_api_version => p_api_version,
1753: p_init_msg_list => OKL_API.G_FALSE,
1754: x_return_status => x_return_status,
1755: x_msg_count => x_msg_count,
1756: x_msg_data => x_msg_data,
1757: p_pxhv_tbl => p_pxhv_tbl,
1756: x_msg_data => x_msg_data,
1757: p_pxhv_tbl => p_pxhv_tbl,
1758: px_error_tbl => l_error_tbl);
1759: END IF;
1760: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1761: EXCEPTION
1762: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1763: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1764: (
1758: px_error_tbl => l_error_tbl);
1759: END IF;
1760: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1761: EXCEPTION
1762: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1763: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1764: (
1765: l_api_name,
1766: G_PKG_NAME,
1759: END IF;
1760: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1761: EXCEPTION
1762: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1763: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1764: (
1765: l_api_name,
1766: G_PKG_NAME,
1767: 'OKL_API.G_RET_STS_ERROR',
1763: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1764: (
1765: l_api_name,
1766: G_PKG_NAME,
1767: 'OKL_API.G_RET_STS_ERROR',
1768: x_msg_count,
1769: x_msg_data,
1770: '_PVT'
1771: );
1768: x_msg_count,
1769: x_msg_data,
1770: '_PVT'
1771: );
1772: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1773: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1774: (
1775: l_api_name,
1776: G_PKG_NAME,
1769: x_msg_data,
1770: '_PVT'
1771: );
1772: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1773: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1774: (
1775: l_api_name,
1776: G_PKG_NAME,
1777: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1773: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1774: (
1775: l_api_name,
1776: G_PKG_NAME,
1777: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1778: x_msg_count,
1779: x_msg_data,
1780: '_PVT'
1781: );
1779: x_msg_data,
1780: '_PVT'
1781: );
1782: WHEN OTHERS THEN
1783: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1784: (
1785: l_api_name,
1786: G_PKG_NAME,
1787: 'OTHERS',
1797: ------------------------------------------------
1798: -- insert_row for:OKL_EXT_AP_HEADER_SOURCES_B --
1799: ------------------------------------------------
1800: PROCEDURE insert_row(
1801: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1802: x_return_status OUT NOCOPY VARCHAR2,
1803: x_msg_count OUT NOCOPY NUMBER,
1804: x_msg_data OUT NOCOPY VARCHAR2,
1805: p_pxh_rec IN pxh_rec_type,
1806: x_pxh_rec OUT NOCOPY pxh_rec_type) IS
1807:
1808: l_api_version CONSTANT NUMBER := 1;
1809: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1810: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1811: l_pxh_rec pxh_rec_type := p_pxh_rec;
1812: l_def_pxh_rec pxh_rec_type;
1813: ----------------------------------------------------
1814: -- Set_Attributes for:OKL_EXT_AP_HEADER_SOURCES_B --
1816: FUNCTION Set_Attributes (
1817: p_pxh_rec IN pxh_rec_type,
1818: x_pxh_rec OUT NOCOPY pxh_rec_type
1819: ) RETURN VARCHAR2 IS
1820: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1821: BEGIN
1822: x_pxh_rec := p_pxh_rec;
1823: RETURN(l_return_status);
1824: END Set_Attributes;
1822: x_pxh_rec := p_pxh_rec;
1823: RETURN(l_return_status);
1824: END Set_Attributes;
1825: BEGIN
1826: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1827: p_init_msg_list,
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1826: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1827: p_init_msg_list,
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1827: p_init_msg_list,
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: --- Setting item atributes
1828: '_PVT',
1829: x_return_status);
1830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: --- Setting item atributes
1836: l_return_status := Set_Attributes(
1829: x_return_status);
1830: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1833: RAISE OKL_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: --- Setting item atributes
1836: l_return_status := Set_Attributes(
1837: l_pxh_rec, -- IN
1836: l_return_status := Set_Attributes(
1837: l_pxh_rec, -- IN
1838: l_def_pxh_rec); -- OUT
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1843: RAISE OKL_API.G_EXCEPTION_ERROR;
1844: END IF;
1837: l_pxh_rec, -- IN
1838: l_def_pxh_rec); -- OUT
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1843: RAISE OKL_API.G_EXCEPTION_ERROR;
1844: END IF;
1845: INSERT INTO OKL_EXT_AP_HEADER_SOURCES_B(
1838: l_def_pxh_rec); -- OUT
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1843: RAISE OKL_API.G_EXCEPTION_ERROR;
1844: END IF;
1845: INSERT INTO OKL_EXT_AP_HEADER_SOURCES_B(
1846: header_extension_id,
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1843: RAISE OKL_API.G_EXCEPTION_ERROR;
1844: END IF;
1845: INSERT INTO OKL_EXT_AP_HEADER_SOURCES_B(
1846: header_extension_id,
1847: source_id,
2008: );
2009: -- Set OUT values
2010: x_pxh_rec := l_def_pxh_rec;
2011: x_return_status := l_return_status;
2012: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2013: EXCEPTION
2014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2015: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2016: (
2010: x_pxh_rec := l_def_pxh_rec;
2011: x_return_status := l_return_status;
2012: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2013: EXCEPTION
2014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2015: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2016: (
2017: l_api_name,
2018: G_PKG_NAME,
2011: x_return_status := l_return_status;
2012: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2013: EXCEPTION
2014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2015: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2016: (
2017: l_api_name,
2018: G_PKG_NAME,
2019: 'OKL_API.G_RET_STS_ERROR',
2015: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2016: (
2017: l_api_name,
2018: G_PKG_NAME,
2019: 'OKL_API.G_RET_STS_ERROR',
2020: x_msg_count,
2021: x_msg_data,
2022: '_PVT'
2023: );
2020: x_msg_count,
2021: x_msg_data,
2022: '_PVT'
2023: );
2024: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2025: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2026: (
2027: l_api_name,
2028: G_PKG_NAME,
2021: x_msg_data,
2022: '_PVT'
2023: );
2024: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2025: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2026: (
2027: l_api_name,
2028: G_PKG_NAME,
2029: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2025: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2026: (
2027: l_api_name,
2028: G_PKG_NAME,
2029: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2030: x_msg_count,
2031: x_msg_data,
2032: '_PVT'
2033: );
2031: x_msg_data,
2032: '_PVT'
2033: );
2034: WHEN OTHERS THEN
2035: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2036: (
2037: l_api_name,
2038: G_PKG_NAME,
2039: 'OTHERS',
2045: -------------------------------------------------
2046: -- insert_row for:OKL_EXT_AP_HEADER_SOURCES_TL --
2047: -------------------------------------------------
2048: PROCEDURE insert_row(
2049: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2050: x_return_status OUT NOCOPY VARCHAR2,
2051: x_msg_count OUT NOCOPY NUMBER,
2052: x_msg_data OUT NOCOPY VARCHAR2,
2053: p_pxhl_rec IN pxhl_rec_type,
2054: x_pxhl_rec OUT NOCOPY pxhl_rec_type) IS
2055:
2056: l_api_version CONSTANT NUMBER := 1;
2057: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2059: l_pxhl_rec pxhl_rec_type := p_pxhl_rec;
2060: l_def_pxhl_rec pxhl_rec_type;
2061: CURSOR get_languages IS
2062: SELECT *
2068: FUNCTION Set_Attributes (
2069: p_pxhl_rec IN pxhl_rec_type,
2070: x_pxhl_rec OUT NOCOPY pxhl_rec_type
2071: ) RETURN VARCHAR2 IS
2072: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2073: BEGIN
2074: x_pxhl_rec := p_pxhl_rec;
2075: x_pxhl_rec.SFWT_FLAG := 'N';
2076: x_pxhl_rec.SOURCE_LANG := USERENV('LANG');
2076: x_pxhl_rec.SOURCE_LANG := USERENV('LANG');
2077: RETURN(l_return_status);
2078: END Set_Attributes;
2079: BEGIN
2080: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2081: p_init_msg_list,
2082: '_PVT',
2083: x_return_status);
2084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2080: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2081: p_init_msg_list,
2082: '_PVT',
2083: x_return_status);
2084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2081: p_init_msg_list,
2082: '_PVT',
2083: x_return_status);
2084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: --- Setting item attributes
2082: '_PVT',
2083: x_return_status);
2084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: --- Setting item attributes
2090: l_return_status := Set_Attributes(
2083: x_return_status);
2084: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: --- Setting item attributes
2090: l_return_status := Set_Attributes(
2091: p_pxhl_rec, -- IN
2090: l_return_status := Set_Attributes(
2091: p_pxhl_rec, -- IN
2092: l_pxhl_rec); -- OUT
2093: --- If any errors happen abort API
2094: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2091: p_pxhl_rec, -- IN
2092: l_pxhl_rec); -- OUT
2093: --- If any errors happen abort API
2094: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2099: INSERT INTO OKL_EXT_AP_HEADER_SOURCES_TL(
2092: l_pxhl_rec); -- OUT
2093: --- If any errors happen abort API
2094: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2099: INSERT INTO OKL_EXT_AP_HEADER_SOURCES_TL(
2100: header_extension_id,
2093: --- If any errors happen abort API
2094: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2096: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2097: RAISE OKL_API.G_EXCEPTION_ERROR;
2098: END IF;
2099: INSERT INTO OKL_EXT_AP_HEADER_SOURCES_TL(
2100: header_extension_id,
2101: language,
2124: l_pxhl_rec.last_update_login);
2125: -- Set OUT values
2126: x_pxhl_rec := l_pxhl_rec;
2127: x_return_status := l_return_status;
2128: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2132: (
2126: x_pxhl_rec := l_pxhl_rec;
2127: x_return_status := l_return_status;
2128: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2127: x_return_status := l_return_status;
2128: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKL_API.G_RET_STS_ERROR',
2131: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKL_API.G_RET_STS_ERROR',
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2141: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2146: x_msg_count,
2147: x_msg_data,
2148: '_PVT'
2149: );
2147: x_msg_data,
2148: '_PVT'
2149: );
2150: WHEN OTHERS THEN
2151: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OTHERS',
2162: -- insert_row for :OKL_EXT_AP_HEADER_SOURCES_B --
2163: -------------------------------------------------
2164: PROCEDURE insert_row(
2165: p_api_version IN NUMBER,
2166: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2167: x_return_status OUT NOCOPY VARCHAR2,
2168: x_msg_count OUT NOCOPY NUMBER,
2169: x_msg_data OUT NOCOPY VARCHAR2,
2170: p_pxhv_rec IN pxhv_rec_type,
2171: x_pxhv_rec OUT NOCOPY pxhv_rec_type) IS
2172:
2173: l_api_version CONSTANT NUMBER := 1;
2174: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2175: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2176: l_pxhv_rec pxhv_rec_type := p_pxhv_rec;
2177: l_def_pxhv_rec pxhv_rec_type;
2178: l_pxh_rec pxh_rec_type;
2179: lx_pxh_rec pxh_rec_type;
2200: FUNCTION Set_Attributes (
2201: p_pxhv_rec IN pxhv_rec_type,
2202: x_pxhv_rec OUT NOCOPY pxhv_rec_type
2203: ) RETURN VARCHAR2 IS
2204: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2205: BEGIN
2206: x_pxhv_rec := p_pxhv_rec;
2207: x_pxhv_rec.OBJECT_VERSION_NUMBER := 1;
2208: RETURN(l_return_status);
2207: x_pxhv_rec.OBJECT_VERSION_NUMBER := 1;
2208: RETURN(l_return_status);
2209: END Set_Attributes;
2210: BEGIN
2211: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2212: G_PKG_NAME,
2213: p_init_msg_list,
2214: l_api_version,
2215: p_api_version,
2214: l_api_version,
2215: p_api_version,
2216: '_PVT',
2217: x_return_status);
2218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2215: p_api_version,
2216: '_PVT',
2217: x_return_status);
2218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2223: l_pxhv_rec := null_out_defaults(p_pxhv_rec);
2216: '_PVT',
2217: x_return_status);
2218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2223: l_pxhv_rec := null_out_defaults(p_pxhv_rec);
2224: -- Set primary key value
2217: x_return_status);
2218: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2220: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2221: RAISE OKL_API.G_EXCEPTION_ERROR;
2222: END IF;
2223: l_pxhv_rec := null_out_defaults(p_pxhv_rec);
2224: -- Set primary key value
2225: l_pxhv_rec.HEADER_EXTENSION_ID := get_seq_id;
2227: l_return_Status := Set_Attributes(
2228: l_pxhv_rec, -- IN
2229: l_def_pxhv_rec); -- OUT
2230: --- If any errors happen abort API
2231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_ERROR;
2235: END IF;
2228: l_pxhv_rec, -- IN
2229: l_def_pxhv_rec); -- OUT
2230: --- If any errors happen abort API
2231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: l_def_pxhv_rec := fill_who_columns(l_def_pxhv_rec);
2229: l_def_pxhv_rec); -- OUT
2230: --- If any errors happen abort API
2231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: l_def_pxhv_rec := fill_who_columns(l_def_pxhv_rec);
2237: --- Validate all non-missing attributes (Item Level Validation)
2230: --- If any errors happen abort API
2231: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2233: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_ERROR;
2235: END IF;
2236: l_def_pxhv_rec := fill_who_columns(l_def_pxhv_rec);
2237: --- Validate all non-missing attributes (Item Level Validation)
2238: l_return_status := Validate_Attributes(l_def_pxhv_rec);
2236: l_def_pxhv_rec := fill_who_columns(l_def_pxhv_rec);
2237: --- Validate all non-missing attributes (Item Level Validation)
2238: l_return_status := Validate_Attributes(l_def_pxhv_rec);
2239: --- If any errors happen abort API
2240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_ERROR;
2244: END IF;
2237: --- Validate all non-missing attributes (Item Level Validation)
2238: l_return_status := Validate_Attributes(l_def_pxhv_rec);
2239: --- If any errors happen abort API
2240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_ERROR;
2244: END IF;
2245: l_return_status := Validate_Record(l_def_pxhv_rec);
2238: l_return_status := Validate_Attributes(l_def_pxhv_rec);
2239: --- If any errors happen abort API
2240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_ERROR;
2244: END IF;
2245: l_return_status := Validate_Record(l_def_pxhv_rec);
2246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2239: --- If any errors happen abort API
2240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_ERROR;
2244: END IF;
2245: l_return_status := Validate_Record(l_def_pxhv_rec);
2246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_ERROR;
2244: END IF;
2245: l_return_status := Validate_Record(l_def_pxhv_rec);
2246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_ERROR;
2250: END IF;
2243: RAISE OKL_API.G_EXCEPTION_ERROR;
2244: END IF;
2245: l_return_status := Validate_Record(l_def_pxhv_rec);
2246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_ERROR;
2250: END IF;
2251: -----------------------------------------
2244: END IF;
2245: l_return_status := Validate_Record(l_def_pxhv_rec);
2246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_ERROR;
2250: END IF;
2251: -----------------------------------------
2252: -- Move VIEW record to "Child" records --
2245: l_return_status := Validate_Record(l_def_pxhv_rec);
2246: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2248: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_ERROR;
2250: END IF;
2251: -----------------------------------------
2252: -- Move VIEW record to "Child" records --
2253: -----------------------------------------
2263: x_msg_data,
2264: l_pxh_rec,
2265: lx_pxh_rec
2266: );
2267: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271: END IF;
2264: l_pxh_rec,
2265: lx_pxh_rec
2266: );
2267: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271: END IF;
2272: migrate(lx_pxh_rec, l_def_pxhv_rec);
2265: lx_pxh_rec
2266: );
2267: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271: END IF;
2272: migrate(lx_pxh_rec, l_def_pxhv_rec);
2273: insert_row(
2266: );
2267: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2269: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271: END IF;
2272: migrate(lx_pxh_rec, l_def_pxhv_rec);
2273: insert_row(
2274: p_init_msg_list,
2277: x_msg_data,
2278: l_pxhl_rec,
2279: lx_pxhl_rec
2280: );
2281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2284: RAISE OKL_API.G_EXCEPTION_ERROR;
2285: END IF;
2278: l_pxhl_rec,
2279: lx_pxhl_rec
2280: );
2281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2284: RAISE OKL_API.G_EXCEPTION_ERROR;
2285: END IF;
2286: migrate(lx_pxhl_rec, l_def_pxhv_rec);
2279: lx_pxhl_rec
2280: );
2281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2284: RAISE OKL_API.G_EXCEPTION_ERROR;
2285: END IF;
2286: migrate(lx_pxhl_rec, l_def_pxhv_rec);
2287: -- Set OUT values
2280: );
2281: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2283: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2284: RAISE OKL_API.G_EXCEPTION_ERROR;
2285: END IF;
2286: migrate(lx_pxhl_rec, l_def_pxhv_rec);
2287: -- Set OUT values
2288: x_pxhv_rec := l_def_pxhv_rec;
2286: migrate(lx_pxhl_rec, l_def_pxhv_rec);
2287: -- Set OUT values
2288: x_pxhv_rec := l_def_pxhv_rec;
2289: x_return_status := l_return_status;
2290: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2291: EXCEPTION
2292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2293: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2294: (
2288: x_pxhv_rec := l_def_pxhv_rec;
2289: x_return_status := l_return_status;
2290: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2291: EXCEPTION
2292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2293: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2294: (
2295: l_api_name,
2296: G_PKG_NAME,
2289: x_return_status := l_return_status;
2290: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2291: EXCEPTION
2292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2293: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2294: (
2295: l_api_name,
2296: G_PKG_NAME,
2297: 'OKL_API.G_RET_STS_ERROR',
2293: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2294: (
2295: l_api_name,
2296: G_PKG_NAME,
2297: 'OKL_API.G_RET_STS_ERROR',
2298: x_msg_count,
2299: x_msg_data,
2300: '_PVT'
2301: );
2298: x_msg_count,
2299: x_msg_data,
2300: '_PVT'
2301: );
2302: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2303: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2304: (
2305: l_api_name,
2306: G_PKG_NAME,
2299: x_msg_data,
2300: '_PVT'
2301: );
2302: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2303: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2304: (
2305: l_api_name,
2306: G_PKG_NAME,
2307: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2303: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2304: (
2305: l_api_name,
2306: G_PKG_NAME,
2307: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2308: x_msg_count,
2309: x_msg_data,
2310: '_PVT'
2311: );
2309: x_msg_data,
2310: '_PVT'
2311: );
2312: WHEN OTHERS THEN
2313: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2314: (
2315: l_api_name,
2316: G_PKG_NAME,
2317: 'OTHERS',
2324: -- PL/SQL TBL insert_row for:PXHV_TBL --
2325: ----------------------------------------
2326: PROCEDURE insert_row(
2327: p_api_version IN NUMBER,
2328: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2329: x_return_status OUT NOCOPY VARCHAR2,
2330: x_msg_count OUT NOCOPY NUMBER,
2331: x_msg_data OUT NOCOPY VARCHAR2,
2332: p_pxhv_tbl IN pxhv_tbl_type,
2330: x_msg_count OUT NOCOPY NUMBER,
2331: x_msg_data OUT NOCOPY VARCHAR2,
2332: p_pxhv_tbl IN pxhv_tbl_type,
2333: x_pxhv_tbl OUT NOCOPY pxhv_tbl_type,
2334: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2335:
2336: l_api_version CONSTANT NUMBER := 1;
2337: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
2338: i NUMBER := 0;
2336: l_api_version CONSTANT NUMBER := 1;
2337: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
2338: i NUMBER := 0;
2339: BEGIN
2340: OKL_API.init_msg_list(p_init_msg_list);
2341: -- Make sure PL/SQL table has records in it before passing
2342: IF (p_pxhv_tbl.COUNT > 0) THEN
2343: i := p_pxhv_tbl.FIRST;
2344: LOOP
2342: IF (p_pxhv_tbl.COUNT > 0) THEN
2343: i := p_pxhv_tbl.FIRST;
2344: LOOP
2345: DECLARE
2346: l_error_rec OKL_API.ERROR_REC_TYPE;
2347: BEGIN
2348: l_error_rec.api_name := l_api_name;
2349: l_error_rec.api_package := G_PKG_NAME;
2350: l_error_rec.idx := i;
2349: l_error_rec.api_package := G_PKG_NAME;
2350: l_error_rec.idx := i;
2351: insert_row (
2352: p_api_version => p_api_version,
2353: p_init_msg_list => OKL_API.G_FALSE,
2354: x_return_status => l_error_rec.error_type,
2355: x_msg_count => l_error_rec.msg_count,
2356: x_msg_data => l_error_rec.msg_data,
2357: p_pxhv_rec => p_pxhv_tbl(i),
2355: x_msg_count => l_error_rec.msg_count,
2356: x_msg_data => l_error_rec.msg_data,
2357: p_pxhv_rec => p_pxhv_tbl(i),
2358: x_pxhv_rec => x_pxhv_tbl(i));
2359: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2360: l_error_rec.sqlcode := SQLCODE;
2361: load_error_tbl(l_error_rec, px_error_tbl);
2362: ELSE
2363: x_msg_count := l_error_rec.msg_count;
2363: x_msg_count := l_error_rec.msg_count;
2364: x_msg_data := l_error_rec.msg_data;
2365: END IF;
2366: EXCEPTION
2367: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2368: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2369: l_error_rec.sqlcode := SQLCODE;
2370: load_error_tbl(l_error_rec, px_error_tbl);
2371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2364: x_msg_data := l_error_rec.msg_data;
2365: END IF;
2366: EXCEPTION
2367: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2368: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2369: l_error_rec.sqlcode := SQLCODE;
2370: load_error_tbl(l_error_rec, px_error_tbl);
2371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2372: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2367: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2368: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2369: l_error_rec.sqlcode := SQLCODE;
2370: load_error_tbl(l_error_rec, px_error_tbl);
2371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2372: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2373: l_error_rec.sqlcode := SQLCODE;
2374: load_error_tbl(l_error_rec, px_error_tbl);
2375: WHEN OTHERS THEN
2368: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2369: l_error_rec.sqlcode := SQLCODE;
2370: load_error_tbl(l_error_rec, px_error_tbl);
2371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2372: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2373: l_error_rec.sqlcode := SQLCODE;
2374: load_error_tbl(l_error_rec, px_error_tbl);
2375: WHEN OTHERS THEN
2376: l_error_rec.error_type := 'OTHERS';
2383: END IF;
2384: -- Loop through the error_tbl to find the error with the highest severity
2385: -- and return it.
2386: x_return_status := find_highest_exception(px_error_tbl);
2387: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2388: EXCEPTION
2389: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2390: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2391: (
2385: -- and return it.
2386: x_return_status := find_highest_exception(px_error_tbl);
2387: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2388: EXCEPTION
2389: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2390: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2391: (
2392: l_api_name,
2393: G_PKG_NAME,
2386: x_return_status := find_highest_exception(px_error_tbl);
2387: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2388: EXCEPTION
2389: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2390: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2391: (
2392: l_api_name,
2393: G_PKG_NAME,
2394: 'OKL_API.G_RET_STS_ERROR',
2390: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2391: (
2392: l_api_name,
2393: G_PKG_NAME,
2394: 'OKL_API.G_RET_STS_ERROR',
2395: x_msg_count,
2396: x_msg_data,
2397: '_PVT'
2398: );
2395: x_msg_count,
2396: x_msg_data,
2397: '_PVT'
2398: );
2399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2400: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2401: (
2402: l_api_name,
2403: G_PKG_NAME,
2396: x_msg_data,
2397: '_PVT'
2398: );
2399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2400: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2401: (
2402: l_api_name,
2403: G_PKG_NAME,
2404: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2400: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2401: (
2402: l_api_name,
2403: G_PKG_NAME,
2404: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2405: x_msg_count,
2406: x_msg_data,
2407: '_PVT'
2408: );
2406: x_msg_data,
2407: '_PVT'
2408: );
2409: WHEN OTHERS THEN
2410: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2411: (
2412: l_api_name,
2413: G_PKG_NAME,
2414: 'OTHERS',
2422: -- PL/SQL TBL insert_row for:PXHV_TBL --
2423: ----------------------------------------
2424: PROCEDURE insert_row(
2425: p_api_version IN NUMBER,
2426: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2427: x_return_status OUT NOCOPY VARCHAR2,
2428: x_msg_count OUT NOCOPY NUMBER,
2429: x_msg_data OUT NOCOPY VARCHAR2,
2430: p_pxhv_tbl IN pxhv_tbl_type,
2431: x_pxhv_tbl OUT NOCOPY pxhv_tbl_type) IS
2432:
2433: l_api_version CONSTANT NUMBER := 1;
2434: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2435: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2436: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2437: BEGIN
2438: OKL_API.init_msg_list(p_init_msg_list);
2439: -- Make sure PL/SQL table has records in it before passing
2432:
2433: l_api_version CONSTANT NUMBER := 1;
2434: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2435: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2436: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2437: BEGIN
2438: OKL_API.init_msg_list(p_init_msg_list);
2439: -- Make sure PL/SQL table has records in it before passing
2440: IF (p_pxhv_tbl.COUNT > 0) THEN
2434: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2435: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2436: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2437: BEGIN
2438: OKL_API.init_msg_list(p_init_msg_list);
2439: -- Make sure PL/SQL table has records in it before passing
2440: IF (p_pxhv_tbl.COUNT > 0) THEN
2441: insert_row (
2442: p_api_version => p_api_version,
2439: -- Make sure PL/SQL table has records in it before passing
2440: IF (p_pxhv_tbl.COUNT > 0) THEN
2441: insert_row (
2442: p_api_version => p_api_version,
2443: p_init_msg_list => OKL_API.G_FALSE,
2444: x_return_status => x_return_status,
2445: x_msg_count => x_msg_count,
2446: x_msg_data => x_msg_data,
2447: p_pxhv_tbl => p_pxhv_tbl,
2447: p_pxhv_tbl => p_pxhv_tbl,
2448: x_pxhv_tbl => x_pxhv_tbl,
2449: px_error_tbl => l_error_tbl);
2450: END IF;
2451: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2452: EXCEPTION
2453: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2454: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2455: (
2449: px_error_tbl => l_error_tbl);
2450: END IF;
2451: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2452: EXCEPTION
2453: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2454: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2455: (
2456: l_api_name,
2457: G_PKG_NAME,
2450: END IF;
2451: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2452: EXCEPTION
2453: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2454: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2455: (
2456: l_api_name,
2457: G_PKG_NAME,
2458: 'OKL_API.G_RET_STS_ERROR',
2454: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2455: (
2456: l_api_name,
2457: G_PKG_NAME,
2458: 'OKL_API.G_RET_STS_ERROR',
2459: x_msg_count,
2460: x_msg_data,
2461: '_PVT'
2462: );
2459: x_msg_count,
2460: x_msg_data,
2461: '_PVT'
2462: );
2463: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2464: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2465: (
2466: l_api_name,
2467: G_PKG_NAME,
2460: x_msg_data,
2461: '_PVT'
2462: );
2463: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2464: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2465: (
2466: l_api_name,
2467: G_PKG_NAME,
2468: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2464: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2465: (
2466: l_api_name,
2467: G_PKG_NAME,
2468: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2469: x_msg_count,
2470: x_msg_data,
2471: '_PVT'
2472: );
2470: x_msg_data,
2471: '_PVT'
2472: );
2473: WHEN OTHERS THEN
2474: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2475: (
2476: l_api_name,
2477: G_PKG_NAME,
2478: 'OTHERS',
2488: ----------------------------------------------
2489: -- lock_row for:OKL_EXT_AP_HEADER_SOURCES_B --
2490: ----------------------------------------------
2491: PROCEDURE lock_row(
2492: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2493: x_return_status OUT NOCOPY VARCHAR2,
2494: x_msg_count OUT NOCOPY NUMBER,
2495: x_msg_data OUT NOCOPY VARCHAR2,
2496: p_pxh_rec IN pxh_rec_type) IS
2509: FROM OKL_EXT_AP_HEADER_SOURCES_B
2510: WHERE HEADER_EXTENSION_ID = p_pxh_rec.header_extension_id;
2511: l_api_version CONSTANT NUMBER := 1;
2512: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2513: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2514: l_object_version_number OKL_EXT_AP_HEADER_SOURCES_B.OBJECT_VERSION_NUMBER%TYPE;
2515: lc_object_version_number OKL_EXT_AP_HEADER_SOURCES_B.OBJECT_VERSION_NUMBER%TYPE;
2516: l_row_notfound BOOLEAN := FALSE;
2517: lc_row_notfound BOOLEAN := FALSE;
2515: lc_object_version_number OKL_EXT_AP_HEADER_SOURCES_B.OBJECT_VERSION_NUMBER%TYPE;
2516: l_row_notfound BOOLEAN := FALSE;
2517: lc_row_notfound BOOLEAN := FALSE;
2518: BEGIN
2519: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2520: p_init_msg_list,
2521: '_PVT',
2522: x_return_status);
2523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2519: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2520: p_init_msg_list,
2521: '_PVT',
2522: x_return_status);
2523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2526: RAISE OKL_API.G_EXCEPTION_ERROR;
2527: END IF;
2520: p_init_msg_list,
2521: '_PVT',
2522: x_return_status);
2523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2526: RAISE OKL_API.G_EXCEPTION_ERROR;
2527: END IF;
2528: BEGIN
2521: '_PVT',
2522: x_return_status);
2523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2526: RAISE OKL_API.G_EXCEPTION_ERROR;
2527: END IF;
2528: BEGIN
2529: OPEN lock_csr(p_pxh_rec);
2522: x_return_status);
2523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2526: RAISE OKL_API.G_EXCEPTION_ERROR;
2527: END IF;
2528: BEGIN
2529: OPEN lock_csr(p_pxh_rec);
2530: FETCH lock_csr INTO l_object_version_number;
2534: WHEN E_Resource_Busy THEN
2535: IF (lock_csr%ISOPEN) THEN
2536: CLOSE lock_csr;
2537: END IF;
2538: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2539: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2540: END;
2541:
2542: IF ( l_row_notfound ) THEN
2545: lc_row_notfound := lchk_csr%NOTFOUND;
2546: CLOSE lchk_csr;
2547: END IF;
2548: IF (lc_row_notfound) THEN
2549: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2550: RAISE OKL_API.G_EXCEPTION_ERROR;
2551: ELSIF lc_object_version_number > p_pxh_rec.object_version_number THEN
2552: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2553: RAISE OKL_API.G_EXCEPTION_ERROR;
2546: CLOSE lchk_csr;
2547: END IF;
2548: IF (lc_row_notfound) THEN
2549: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2550: RAISE OKL_API.G_EXCEPTION_ERROR;
2551: ELSIF lc_object_version_number > p_pxh_rec.object_version_number THEN
2552: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2553: RAISE OKL_API.G_EXCEPTION_ERROR;
2554: ELSIF lc_object_version_number <> p_pxh_rec.object_version_number THEN
2548: IF (lc_row_notfound) THEN
2549: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2550: RAISE OKL_API.G_EXCEPTION_ERROR;
2551: ELSIF lc_object_version_number > p_pxh_rec.object_version_number THEN
2552: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2553: RAISE OKL_API.G_EXCEPTION_ERROR;
2554: ELSIF lc_object_version_number <> p_pxh_rec.object_version_number THEN
2555: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2549: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2550: RAISE OKL_API.G_EXCEPTION_ERROR;
2551: ELSIF lc_object_version_number > p_pxh_rec.object_version_number THEN
2552: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2553: RAISE OKL_API.G_EXCEPTION_ERROR;
2554: ELSIF lc_object_version_number <> p_pxh_rec.object_version_number THEN
2555: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2557: ELSIF lc_object_version_number = -1 THEN
2551: ELSIF lc_object_version_number > p_pxh_rec.object_version_number THEN
2552: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2553: RAISE OKL_API.G_EXCEPTION_ERROR;
2554: ELSIF lc_object_version_number <> p_pxh_rec.object_version_number THEN
2555: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2557: ELSIF lc_object_version_number = -1 THEN
2558: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2552: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2553: RAISE OKL_API.G_EXCEPTION_ERROR;
2554: ELSIF lc_object_version_number <> p_pxh_rec.object_version_number THEN
2555: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2557: ELSIF lc_object_version_number = -1 THEN
2558: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2554: ELSIF lc_object_version_number <> p_pxh_rec.object_version_number THEN
2555: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2557: ELSIF lc_object_version_number = -1 THEN
2558: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2561: x_return_status := l_return_status;
2562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2555: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2556: RAISE OKL_API.G_EXCEPTION_ERROR;
2557: ELSIF lc_object_version_number = -1 THEN
2558: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2561: x_return_status := l_return_status;
2562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2563: EXCEPTION
2558: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2561: x_return_status := l_return_status;
2562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2563: EXCEPTION
2564: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2566: (
2560: END IF;
2561: x_return_status := l_return_status;
2562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2563: EXCEPTION
2564: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2566: (
2567: l_api_name,
2568: G_PKG_NAME,
2561: x_return_status := l_return_status;
2562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2563: EXCEPTION
2564: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2566: (
2567: l_api_name,
2568: G_PKG_NAME,
2569: 'OKL_API.G_RET_STS_ERROR',
2565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2566: (
2567: l_api_name,
2568: G_PKG_NAME,
2569: 'OKL_API.G_RET_STS_ERROR',
2570: x_msg_count,
2571: x_msg_data,
2572: '_PVT'
2573: );
2570: x_msg_count,
2571: x_msg_data,
2572: '_PVT'
2573: );
2574: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2575: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2576: (
2577: l_api_name,
2578: G_PKG_NAME,
2571: x_msg_data,
2572: '_PVT'
2573: );
2574: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2575: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2576: (
2577: l_api_name,
2578: G_PKG_NAME,
2579: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2575: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2576: (
2577: l_api_name,
2578: G_PKG_NAME,
2579: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2580: x_msg_count,
2581: x_msg_data,
2582: '_PVT'
2583: );
2581: x_msg_data,
2582: '_PVT'
2583: );
2584: WHEN OTHERS THEN
2585: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2586: (
2587: l_api_name,
2588: G_PKG_NAME,
2589: 'OTHERS',
2595: -----------------------------------------------
2596: -- lock_row for:OKL_EXT_AP_HEADER_SOURCES_TL --
2597: -----------------------------------------------
2598: PROCEDURE lock_row(
2599: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2600: x_return_status OUT NOCOPY VARCHAR2,
2601: x_msg_count OUT NOCOPY NUMBER,
2602: x_msg_data OUT NOCOPY VARCHAR2,
2603: p_pxhl_rec IN pxhl_rec_type) IS
2611: FOR UPDATE NOWAIT;
2612:
2613: l_api_version CONSTANT NUMBER := 1;
2614: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2615: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2616: l_lock_var lock_csr%ROWTYPE;
2617: l_row_notfound BOOLEAN := FALSE;
2618: lc_row_notfound BOOLEAN := FALSE;
2619: BEGIN
2616: l_lock_var lock_csr%ROWTYPE;
2617: l_row_notfound BOOLEAN := FALSE;
2618: lc_row_notfound BOOLEAN := FALSE;
2619: BEGIN
2620: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2621: p_init_msg_list,
2622: '_PVT',
2623: x_return_status);
2624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2620: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2621: p_init_msg_list,
2622: '_PVT',
2623: x_return_status);
2624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2627: RAISE OKL_API.G_EXCEPTION_ERROR;
2628: END IF;
2621: p_init_msg_list,
2622: '_PVT',
2623: x_return_status);
2624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2627: RAISE OKL_API.G_EXCEPTION_ERROR;
2628: END IF;
2629: BEGIN
2622: '_PVT',
2623: x_return_status);
2624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2627: RAISE OKL_API.G_EXCEPTION_ERROR;
2628: END IF;
2629: BEGIN
2630: OPEN lock_csr(p_pxhl_rec);
2623: x_return_status);
2624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2627: RAISE OKL_API.G_EXCEPTION_ERROR;
2628: END IF;
2629: BEGIN
2630: OPEN lock_csr(p_pxhl_rec);
2631: FETCH lock_csr INTO l_lock_var;
2635: WHEN E_Resource_Busy THEN
2636: IF (lock_csr%ISOPEN) THEN
2637: CLOSE lock_csr;
2638: END IF;
2639: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2640: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2641: END;
2642:
2643: IF ( l_row_notfound ) THEN
2640: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2641: END;
2642:
2643: IF ( l_row_notfound ) THEN
2644: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647: x_return_status := l_return_status;
2648: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2641: END;
2642:
2643: IF ( l_row_notfound ) THEN
2644: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647: x_return_status := l_return_status;
2648: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2649: EXCEPTION
2644: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647: x_return_status := l_return_status;
2648: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2649: EXCEPTION
2650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652: (
2646: END IF;
2647: x_return_status := l_return_status;
2648: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2649: EXCEPTION
2650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652: (
2653: l_api_name,
2654: G_PKG_NAME,
2647: x_return_status := l_return_status;
2648: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2649: EXCEPTION
2650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652: (
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OKL_API.G_RET_STS_ERROR',
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652: (
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OKL_API.G_RET_STS_ERROR',
2656: x_msg_count,
2657: x_msg_data,
2658: '_PVT'
2659: );
2656: x_msg_count,
2657: x_msg_data,
2658: '_PVT'
2659: );
2660: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2661: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2662: (
2663: l_api_name,
2664: G_PKG_NAME,
2657: x_msg_data,
2658: '_PVT'
2659: );
2660: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2661: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2662: (
2663: l_api_name,
2664: G_PKG_NAME,
2665: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2661: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2662: (
2663: l_api_name,
2664: G_PKG_NAME,
2665: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2666: x_msg_count,
2667: x_msg_data,
2668: '_PVT'
2669: );
2667: x_msg_data,
2668: '_PVT'
2669: );
2670: WHEN OTHERS THEN
2671: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2672: (
2673: l_api_name,
2674: G_PKG_NAME,
2675: 'OTHERS',
2682: -- lock_row for: OKL_EXT_AP_HEADER_SOURCES_V --
2683: -----------------------------------------------
2684: PROCEDURE lock_row(
2685: p_api_version IN NUMBER,
2686: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2687: x_return_status OUT NOCOPY VARCHAR2,
2688: x_msg_count OUT NOCOPY NUMBER,
2689: x_msg_data OUT NOCOPY VARCHAR2,
2690: p_pxhv_rec IN pxhv_rec_type) IS
2690: p_pxhv_rec IN pxhv_rec_type) IS
2691:
2692: l_api_version CONSTANT NUMBER := 1;
2693: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2694: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2695: l_pxh_rec pxh_rec_type;
2696: l_pxhl_rec pxhl_rec_type;
2697: BEGIN
2698: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2694: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2695: l_pxh_rec pxh_rec_type;
2696: l_pxhl_rec pxhl_rec_type;
2697: BEGIN
2698: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2699: G_PKG_NAME,
2700: p_init_msg_list,
2701: l_api_version,
2702: p_api_version,
2701: l_api_version,
2702: p_api_version,
2703: '_PVT',
2704: x_return_status);
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2702: p_api_version,
2703: '_PVT',
2704: x_return_status);
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710: -----------------------------------------
2703: '_PVT',
2704: x_return_status);
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710: -----------------------------------------
2711: -- Move VIEW record to "Child" records --
2704: x_return_status);
2705: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: RAISE OKL_API.G_EXCEPTION_ERROR;
2709: END IF;
2710: -----------------------------------------
2711: -- Move VIEW record to "Child" records --
2712: -----------------------------------------
2721: x_msg_count,
2722: x_msg_data,
2723: l_pxh_rec
2724: );
2725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2722: x_msg_data,
2723: l_pxh_rec
2724: );
2725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2730: lock_row(
2723: l_pxh_rec
2724: );
2725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2730: lock_row(
2731: p_init_msg_list,
2724: );
2725: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2730: lock_row(
2731: p_init_msg_list,
2732: l_return_status,
2733: x_msg_count,
2734: x_msg_data,
2735: l_pxhl_rec
2736: );
2737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2740: RAISE OKL_API.G_EXCEPTION_ERROR;
2741: END IF;
2734: x_msg_data,
2735: l_pxhl_rec
2736: );
2737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2740: RAISE OKL_API.G_EXCEPTION_ERROR;
2741: END IF;
2742: x_return_status := l_return_status;
2735: l_pxhl_rec
2736: );
2737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2740: RAISE OKL_API.G_EXCEPTION_ERROR;
2741: END IF;
2742: x_return_status := l_return_status;
2743: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2736: );
2737: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2740: RAISE OKL_API.G_EXCEPTION_ERROR;
2741: END IF;
2742: x_return_status := l_return_status;
2743: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2744: EXCEPTION
2739: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2740: RAISE OKL_API.G_EXCEPTION_ERROR;
2741: END IF;
2742: x_return_status := l_return_status;
2743: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2744: EXCEPTION
2745: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2747: (
2741: END IF;
2742: x_return_status := l_return_status;
2743: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2744: EXCEPTION
2745: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2747: (
2748: l_api_name,
2749: G_PKG_NAME,
2742: x_return_status := l_return_status;
2743: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2744: EXCEPTION
2745: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2747: (
2748: l_api_name,
2749: G_PKG_NAME,
2750: 'OKL_API.G_RET_STS_ERROR',
2746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2747: (
2748: l_api_name,
2749: G_PKG_NAME,
2750: 'OKL_API.G_RET_STS_ERROR',
2751: x_msg_count,
2752: x_msg_data,
2753: '_PVT'
2754: );
2751: x_msg_count,
2752: x_msg_data,
2753: '_PVT'
2754: );
2755: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2756: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2757: (
2758: l_api_name,
2759: G_PKG_NAME,
2752: x_msg_data,
2753: '_PVT'
2754: );
2755: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2756: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2757: (
2758: l_api_name,
2759: G_PKG_NAME,
2760: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2756: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2757: (
2758: l_api_name,
2759: G_PKG_NAME,
2760: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2761: x_msg_count,
2762: x_msg_data,
2763: '_PVT'
2764: );
2762: x_msg_data,
2763: '_PVT'
2764: );
2765: WHEN OTHERS THEN
2766: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2767: (
2768: l_api_name,
2769: G_PKG_NAME,
2770: 'OTHERS',
2777: -- PL/SQL TBL lock_row for:PXHV_TBL --
2778: --------------------------------------
2779: PROCEDURE lock_row(
2780: p_api_version IN NUMBER,
2781: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2782: x_return_status OUT NOCOPY VARCHAR2,
2783: x_msg_count OUT NOCOPY NUMBER,
2784: x_msg_data OUT NOCOPY VARCHAR2,
2785: p_pxhv_tbl IN pxhv_tbl_type,
2782: x_return_status OUT NOCOPY VARCHAR2,
2783: x_msg_count OUT NOCOPY NUMBER,
2784: x_msg_data OUT NOCOPY VARCHAR2,
2785: p_pxhv_tbl IN pxhv_tbl_type,
2786: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2787:
2788: l_api_version CONSTANT NUMBER := 1;
2789: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2790: i NUMBER := 0;
2788: l_api_version CONSTANT NUMBER := 1;
2789: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2790: i NUMBER := 0;
2791: BEGIN
2792: OKL_API.init_msg_list(p_init_msg_list);
2793: -- Make sure PL/SQL table has recrods in it before passing
2794: IF (p_pxhv_tbl.COUNT > 0) THEN
2795: i := p_pxhv_tbl.FIRST;
2796: LOOP
2794: IF (p_pxhv_tbl.COUNT > 0) THEN
2795: i := p_pxhv_tbl.FIRST;
2796: LOOP
2797: DECLARE
2798: l_error_rec OKL_API.ERROR_REC_TYPE;
2799: BEGIN
2800: l_error_rec.api_name := l_api_name;
2801: l_error_rec.api_package := G_PKG_NAME;
2802: l_error_rec.idx := i;
2801: l_error_rec.api_package := G_PKG_NAME;
2802: l_error_rec.idx := i;
2803: lock_row(
2804: p_api_version => p_api_version,
2805: p_init_msg_list => OKL_API.G_FALSE,
2806: x_return_status => l_error_rec.error_type,
2807: x_msg_count => l_error_rec.msg_count,
2808: x_msg_data => l_error_rec.msg_data,
2809: p_pxhv_rec => p_pxhv_tbl(i));
2806: x_return_status => l_error_rec.error_type,
2807: x_msg_count => l_error_rec.msg_count,
2808: x_msg_data => l_error_rec.msg_data,
2809: p_pxhv_rec => p_pxhv_tbl(i));
2810: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2811: l_error_rec.sqlcode := SQLCODE;
2812: load_error_tbl(l_error_rec, px_error_tbl);
2813: ELSE
2814: x_msg_count := l_error_rec.msg_count;
2814: x_msg_count := l_error_rec.msg_count;
2815: x_msg_data := l_error_rec.msg_data;
2816: END IF;
2817: EXCEPTION
2818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2819: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2820: l_error_rec.sqlcode := SQLCODE;
2821: load_error_tbl(l_error_rec, px_error_tbl);
2822: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2815: x_msg_data := l_error_rec.msg_data;
2816: END IF;
2817: EXCEPTION
2818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2819: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2820: l_error_rec.sqlcode := SQLCODE;
2821: load_error_tbl(l_error_rec, px_error_tbl);
2822: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2823: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2819: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2820: l_error_rec.sqlcode := SQLCODE;
2821: load_error_tbl(l_error_rec, px_error_tbl);
2822: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2823: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2824: l_error_rec.sqlcode := SQLCODE;
2825: load_error_tbl(l_error_rec, px_error_tbl);
2826: WHEN OTHERS THEN
2819: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2820: l_error_rec.sqlcode := SQLCODE;
2821: load_error_tbl(l_error_rec, px_error_tbl);
2822: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2823: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2824: l_error_rec.sqlcode := SQLCODE;
2825: load_error_tbl(l_error_rec, px_error_tbl);
2826: WHEN OTHERS THEN
2827: l_error_rec.error_type := 'OTHERS';
2834: END IF;
2835: -- Loop through the error_tbl to find the error with the highest severity
2836: -- and return it.
2837: x_return_status := find_highest_exception(px_error_tbl);
2838: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2839: EXCEPTION
2840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2841: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2842: (
2836: -- and return it.
2837: x_return_status := find_highest_exception(px_error_tbl);
2838: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2839: EXCEPTION
2840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2841: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2842: (
2843: l_api_name,
2844: G_PKG_NAME,
2837: x_return_status := find_highest_exception(px_error_tbl);
2838: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2839: EXCEPTION
2840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2841: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2842: (
2843: l_api_name,
2844: G_PKG_NAME,
2845: 'OKL_API.G_RET_STS_ERROR',
2841: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2842: (
2843: l_api_name,
2844: G_PKG_NAME,
2845: 'OKL_API.G_RET_STS_ERROR',
2846: x_msg_count,
2847: x_msg_data,
2848: '_PVT'
2849: );
2846: x_msg_count,
2847: x_msg_data,
2848: '_PVT'
2849: );
2850: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2847: x_msg_data,
2848: '_PVT'
2849: );
2850: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2856: x_msg_count,
2857: x_msg_data,
2858: '_PVT'
2859: );
2857: x_msg_data,
2858: '_PVT'
2859: );
2860: WHEN OTHERS THEN
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2865: 'OTHERS',
2872: -- PL/SQL TBL lock_row for:PXHV_TBL --
2873: --------------------------------------
2874: PROCEDURE lock_row(
2875: p_api_version IN NUMBER,
2876: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2877: x_return_status OUT NOCOPY VARCHAR2,
2878: x_msg_count OUT NOCOPY NUMBER,
2879: x_msg_data OUT NOCOPY VARCHAR2,
2880: p_pxhv_tbl IN pxhv_tbl_type) IS
2880: p_pxhv_tbl IN pxhv_tbl_type) IS
2881:
2882: l_api_version CONSTANT NUMBER := 1;
2883: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2884: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2885: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2886: BEGIN
2887: OKL_API.init_msg_list(p_init_msg_list);
2888: -- Make sure PL/SQL table has recrods in it before passing
2881:
2882: l_api_version CONSTANT NUMBER := 1;
2883: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2884: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2885: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2886: BEGIN
2887: OKL_API.init_msg_list(p_init_msg_list);
2888: -- Make sure PL/SQL table has recrods in it before passing
2889: IF (p_pxhv_tbl.COUNT > 0) THEN
2883: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2884: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2885: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2886: BEGIN
2887: OKL_API.init_msg_list(p_init_msg_list);
2888: -- Make sure PL/SQL table has recrods in it before passing
2889: IF (p_pxhv_tbl.COUNT > 0) THEN
2890: lock_row(
2891: p_api_version => p_api_version,
2888: -- Make sure PL/SQL table has recrods in it before passing
2889: IF (p_pxhv_tbl.COUNT > 0) THEN
2890: lock_row(
2891: p_api_version => p_api_version,
2892: p_init_msg_list => OKL_API.G_FALSE,
2893: x_return_status => x_return_status,
2894: x_msg_count => x_msg_count,
2895: x_msg_data => x_msg_data,
2896: p_pxhv_tbl => p_pxhv_tbl,
2895: x_msg_data => x_msg_data,
2896: p_pxhv_tbl => p_pxhv_tbl,
2897: px_error_tbl => l_error_tbl);
2898: END IF;
2899: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2900: EXCEPTION
2901: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2902: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2903: (
2897: px_error_tbl => l_error_tbl);
2898: END IF;
2899: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2900: EXCEPTION
2901: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2902: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2903: (
2904: l_api_name,
2905: G_PKG_NAME,
2898: END IF;
2899: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2900: EXCEPTION
2901: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2902: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2903: (
2904: l_api_name,
2905: G_PKG_NAME,
2906: 'OKL_API.G_RET_STS_ERROR',
2902: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2903: (
2904: l_api_name,
2905: G_PKG_NAME,
2906: 'OKL_API.G_RET_STS_ERROR',
2907: x_msg_count,
2908: x_msg_data,
2909: '_PVT'
2910: );
2907: x_msg_count,
2908: x_msg_data,
2909: '_PVT'
2910: );
2911: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2912: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2913: (
2914: l_api_name,
2915: G_PKG_NAME,
2908: x_msg_data,
2909: '_PVT'
2910: );
2911: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2912: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2913: (
2914: l_api_name,
2915: G_PKG_NAME,
2916: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2912: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2913: (
2914: l_api_name,
2915: G_PKG_NAME,
2916: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2917: x_msg_count,
2918: x_msg_data,
2919: '_PVT'
2920: );
2918: x_msg_data,
2919: '_PVT'
2920: );
2921: WHEN OTHERS THEN
2922: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2923: (
2924: l_api_name,
2925: G_PKG_NAME,
2926: 'OTHERS',
2935: ------------------------------------------------
2936: -- update_row for:OKL_EXT_AP_HEADER_SOURCES_B --
2937: ------------------------------------------------
2938: PROCEDURE update_row(
2939: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2940: x_return_status OUT NOCOPY VARCHAR2,
2941: x_msg_count OUT NOCOPY NUMBER,
2942: x_msg_data OUT NOCOPY VARCHAR2,
2943: p_pxh_rec IN pxh_rec_type,
2944: x_pxh_rec OUT NOCOPY pxh_rec_type) IS
2945:
2946: l_api_version CONSTANT NUMBER := 1;
2947: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2948: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2949: l_pxh_rec pxh_rec_type := p_pxh_rec;
2950: l_def_pxh_rec pxh_rec_type;
2951: l_row_notfound BOOLEAN := TRUE;
2952: ----------------------------------
2957: x_pxh_rec OUT NOCOPY pxh_rec_type
2958: ) RETURN VARCHAR2 IS
2959: l_pxh_rec pxh_rec_type;
2960: l_row_notfound BOOLEAN := TRUE;
2961: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2962: BEGIN
2963: x_pxh_rec := p_pxh_rec;
2964: -- Get current database values
2965: l_pxh_rec := get_rec(p_pxh_rec, l_return_status);
2962: BEGIN
2963: x_pxh_rec := p_pxh_rec;
2964: -- Get current database values
2965: l_pxh_rec := get_rec(p_pxh_rec, l_return_status);
2966: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2967: IF x_pxh_rec.header_extension_id IS NULL THEN
2968: x_pxh_rec.header_extension_id := l_pxh_rec.header_extension_id;
2969: END IF;
2970: IF x_pxh_rec.source_id IS NULL THEN
3212: FUNCTION Set_Attributes (
3213: p_pxh_rec IN pxh_rec_type,
3214: x_pxh_rec OUT NOCOPY pxh_rec_type
3215: ) RETURN VARCHAR2 IS
3216: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3217: BEGIN
3218: x_pxh_rec := p_pxh_rec;
3219: x_pxh_rec.OBJECT_VERSION_NUMBER := p_pxh_rec.OBJECT_VERSION_NUMBER + 1;
3220: RETURN(l_return_status);
3219: x_pxh_rec.OBJECT_VERSION_NUMBER := p_pxh_rec.OBJECT_VERSION_NUMBER + 1;
3220: RETURN(l_return_status);
3221: END Set_Attributes;
3222: BEGIN
3223: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3224: p_init_msg_list,
3225: '_PVT',
3226: x_return_status);
3227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3223: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3224: p_init_msg_list,
3225: '_PVT',
3226: x_return_status);
3227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3230: RAISE OKL_API.G_EXCEPTION_ERROR;
3231: END IF;
3224: p_init_msg_list,
3225: '_PVT',
3226: x_return_status);
3227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3230: RAISE OKL_API.G_EXCEPTION_ERROR;
3231: END IF;
3232: --- Setting item attributes
3225: '_PVT',
3226: x_return_status);
3227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3230: RAISE OKL_API.G_EXCEPTION_ERROR;
3231: END IF;
3232: --- Setting item attributes
3233: l_return_status := Set_Attributes(
3226: x_return_status);
3227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3230: RAISE OKL_API.G_EXCEPTION_ERROR;
3231: END IF;
3232: --- Setting item attributes
3233: l_return_status := Set_Attributes(
3234: p_pxh_rec, -- IN
3233: l_return_status := Set_Attributes(
3234: p_pxh_rec, -- IN
3235: l_pxh_rec); -- OUT
3236: --- If any errors happen abort API
3237: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3234: p_pxh_rec, -- IN
3235: l_pxh_rec); -- OUT
3236: --- If any errors happen abort API
3237: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242: l_return_status := populate_new_record(l_pxh_rec, l_def_pxh_rec);
3235: l_pxh_rec); -- OUT
3236: --- If any errors happen abort API
3237: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242: l_return_status := populate_new_record(l_pxh_rec, l_def_pxh_rec);
3243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: --- If any errors happen abort API
3237: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242: l_return_status := populate_new_record(l_pxh_rec, l_def_pxh_rec);
3243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242: l_return_status := populate_new_record(l_pxh_rec, l_def_pxh_rec);
3243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3246: RAISE OKL_API.G_EXCEPTION_ERROR;
3247: END IF;
3240: RAISE OKL_API.G_EXCEPTION_ERROR;
3241: END IF;
3242: l_return_status := populate_new_record(l_pxh_rec, l_def_pxh_rec);
3243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3246: RAISE OKL_API.G_EXCEPTION_ERROR;
3247: END IF;
3248: UPDATE OKL_EXT_AP_HEADER_SOURCES_B
3241: END IF;
3242: l_return_status := populate_new_record(l_pxh_rec, l_def_pxh_rec);
3243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3246: RAISE OKL_API.G_EXCEPTION_ERROR;
3247: END IF;
3248: UPDATE OKL_EXT_AP_HEADER_SOURCES_B
3249: SET SOURCE_ID = l_def_pxh_rec.source_id,
3242: l_return_status := populate_new_record(l_pxh_rec, l_def_pxh_rec);
3243: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3245: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3246: RAISE OKL_API.G_EXCEPTION_ERROR;
3247: END IF;
3248: UPDATE OKL_EXT_AP_HEADER_SOURCES_B
3249: SET SOURCE_ID = l_def_pxh_rec.source_id,
3250: SOURCE_TABLE = l_def_pxh_rec.source_table,
3329: WHERE HEADER_EXTENSION_ID = l_def_pxh_rec.header_extension_id;
3330:
3331: x_pxh_rec := l_pxh_rec;
3332: x_return_status := l_return_status;
3333: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3334: EXCEPTION
3335: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3336: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3337: (
3331: x_pxh_rec := l_pxh_rec;
3332: x_return_status := l_return_status;
3333: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3334: EXCEPTION
3335: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3336: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3337: (
3338: l_api_name,
3339: G_PKG_NAME,
3332: x_return_status := l_return_status;
3333: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3334: EXCEPTION
3335: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3336: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3337: (
3338: l_api_name,
3339: G_PKG_NAME,
3340: 'OKL_API.G_RET_STS_ERROR',
3336: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3337: (
3338: l_api_name,
3339: G_PKG_NAME,
3340: 'OKL_API.G_RET_STS_ERROR',
3341: x_msg_count,
3342: x_msg_data,
3343: '_PVT'
3344: );
3341: x_msg_count,
3342: x_msg_data,
3343: '_PVT'
3344: );
3345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3347: (
3348: l_api_name,
3349: G_PKG_NAME,
3342: x_msg_data,
3343: '_PVT'
3344: );
3345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3347: (
3348: l_api_name,
3349: G_PKG_NAME,
3350: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3347: (
3348: l_api_name,
3349: G_PKG_NAME,
3350: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3351: x_msg_count,
3352: x_msg_data,
3353: '_PVT'
3354: );
3352: x_msg_data,
3353: '_PVT'
3354: );
3355: WHEN OTHERS THEN
3356: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3357: (
3358: l_api_name,
3359: G_PKG_NAME,
3360: 'OTHERS',
3366: -------------------------------------------------
3367: -- update_row for:OKL_EXT_AP_HEADER_SOURCES_TL --
3368: -------------------------------------------------
3369: PROCEDURE update_row(
3370: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3371: x_return_status OUT NOCOPY VARCHAR2,
3372: x_msg_count OUT NOCOPY NUMBER,
3373: x_msg_data OUT NOCOPY VARCHAR2,
3374: p_pxhl_rec IN pxhl_rec_type,
3375: x_pxhl_rec OUT NOCOPY pxhl_rec_type) IS
3376:
3377: l_api_version CONSTANT NUMBER := 1;
3378: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3379: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3380: l_pxhl_rec pxhl_rec_type := p_pxhl_rec;
3381: l_def_pxhl_rec pxhl_rec_type;
3382: l_row_notfound BOOLEAN := TRUE;
3383: ----------------------------------
3388: x_pxhl_rec OUT NOCOPY pxhl_rec_type
3389: ) RETURN VARCHAR2 IS
3390: l_pxhl_rec pxhl_rec_type;
3391: l_row_notfound BOOLEAN := TRUE;
3392: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3393: BEGIN
3394: x_pxhl_rec := p_pxhl_rec;
3395: -- Get current database values
3396: l_pxhl_rec := get_rec(p_pxhl_rec, l_return_status);
3393: BEGIN
3394: x_pxhl_rec := p_pxhl_rec;
3395: -- Get current database values
3396: l_pxhl_rec := get_rec(p_pxhl_rec, l_return_status);
3397: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3398: IF x_pxhl_rec.header_extension_id IS NULL THEN
3399: x_pxhl_rec.header_extension_id := l_pxhl_rec.header_extension_id;
3400: END IF;
3401: IF x_pxhl_rec.language IS NULL THEN
3440: FUNCTION Set_Attributes (
3441: p_pxhl_rec IN pxhl_rec_type,
3442: x_pxhl_rec OUT NOCOPY pxhl_rec_type
3443: ) RETURN VARCHAR2 IS
3444: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3445: BEGIN
3446: x_pxhl_rec := p_pxhl_rec;
3447: x_pxhl_rec.LANGUAGE := USERENV('LANG');
3448: x_pxhl_rec.LANGUAGE := USERENV('LANG');
3448: x_pxhl_rec.LANGUAGE := USERENV('LANG');
3449: RETURN(l_return_status);
3450: END Set_Attributes;
3451: BEGIN
3452: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3453: p_init_msg_list,
3454: '_PVT',
3455: x_return_status);
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3452: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3453: p_init_msg_list,
3454: '_PVT',
3455: x_return_status);
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_ERROR;
3460: END IF;
3453: p_init_msg_list,
3454: '_PVT',
3455: x_return_status);
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_ERROR;
3460: END IF;
3461: --- Setting item attributes
3454: '_PVT',
3455: x_return_status);
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_ERROR;
3460: END IF;
3461: --- Setting item attributes
3462: l_return_status := Set_Attributes(
3455: x_return_status);
3456: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3458: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3459: RAISE OKL_API.G_EXCEPTION_ERROR;
3460: END IF;
3461: --- Setting item attributes
3462: l_return_status := Set_Attributes(
3463: p_pxhl_rec, -- IN
3462: l_return_status := Set_Attributes(
3463: p_pxhl_rec, -- IN
3464: l_pxhl_rec); -- OUT
3465: --- If any errors happen abort API
3466: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3468: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3469: RAISE OKL_API.G_EXCEPTION_ERROR;
3470: END IF;
3463: p_pxhl_rec, -- IN
3464: l_pxhl_rec); -- OUT
3465: --- If any errors happen abort API
3466: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3468: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3469: RAISE OKL_API.G_EXCEPTION_ERROR;
3470: END IF;
3471: l_return_status := populate_new_record(l_pxhl_rec, l_def_pxhl_rec);
3464: l_pxhl_rec); -- OUT
3465: --- If any errors happen abort API
3466: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3468: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3469: RAISE OKL_API.G_EXCEPTION_ERROR;
3470: END IF;
3471: l_return_status := populate_new_record(l_pxhl_rec, l_def_pxhl_rec);
3472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3465: --- If any errors happen abort API
3466: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3468: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3469: RAISE OKL_API.G_EXCEPTION_ERROR;
3470: END IF;
3471: l_return_status := populate_new_record(l_pxhl_rec, l_def_pxhl_rec);
3472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3468: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3469: RAISE OKL_API.G_EXCEPTION_ERROR;
3470: END IF;
3471: l_return_status := populate_new_record(l_pxhl_rec, l_def_pxhl_rec);
3472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3474: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3475: RAISE OKL_API.G_EXCEPTION_ERROR;
3476: END IF;
3469: RAISE OKL_API.G_EXCEPTION_ERROR;
3470: END IF;
3471: l_return_status := populate_new_record(l_pxhl_rec, l_def_pxhl_rec);
3472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3474: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3475: RAISE OKL_API.G_EXCEPTION_ERROR;
3476: END IF;
3477: UPDATE OKL_EXT_AP_HEADER_SOURCES_TL
3470: END IF;
3471: l_return_status := populate_new_record(l_pxhl_rec, l_def_pxhl_rec);
3472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3474: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3475: RAISE OKL_API.G_EXCEPTION_ERROR;
3476: END IF;
3477: UPDATE OKL_EXT_AP_HEADER_SOURCES_TL
3478: SET CONTRACT_STATUS = l_def_pxhl_rec.contract_status,
3471: l_return_status := populate_new_record(l_pxhl_rec, l_def_pxhl_rec);
3472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3474: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3475: RAISE OKL_API.G_EXCEPTION_ERROR;
3476: END IF;
3477: UPDATE OKL_EXT_AP_HEADER_SOURCES_TL
3478: SET CONTRACT_STATUS = l_def_pxhl_rec.contract_status,
3479: INV_AGRMNT_STATUS = l_def_pxhl_rec.inv_agrmnt_status,
3492: AND SOURCE_LANG <> USERENV('LANG');
3493:
3494: x_pxhl_rec := l_pxhl_rec;
3495: x_return_status := l_return_status;
3496: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3497: EXCEPTION
3498: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3499: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3500: (
3494: x_pxhl_rec := l_pxhl_rec;
3495: x_return_status := l_return_status;
3496: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3497: EXCEPTION
3498: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3499: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3500: (
3501: l_api_name,
3502: G_PKG_NAME,
3495: x_return_status := l_return_status;
3496: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3497: EXCEPTION
3498: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3499: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3500: (
3501: l_api_name,
3502: G_PKG_NAME,
3503: 'OKL_API.G_RET_STS_ERROR',
3499: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3500: (
3501: l_api_name,
3502: G_PKG_NAME,
3503: 'OKL_API.G_RET_STS_ERROR',
3504: x_msg_count,
3505: x_msg_data,
3506: '_PVT'
3507: );
3504: x_msg_count,
3505: x_msg_data,
3506: '_PVT'
3507: );
3508: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3510: (
3511: l_api_name,
3512: G_PKG_NAME,
3505: x_msg_data,
3506: '_PVT'
3507: );
3508: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3510: (
3511: l_api_name,
3512: G_PKG_NAME,
3513: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3510: (
3511: l_api_name,
3512: G_PKG_NAME,
3513: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3514: x_msg_count,
3515: x_msg_data,
3516: '_PVT'
3517: );
3515: x_msg_data,
3516: '_PVT'
3517: );
3518: WHEN OTHERS THEN
3519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3520: (
3521: l_api_name,
3522: G_PKG_NAME,
3523: 'OTHERS',
3530: -- update_row for:OKL_EXT_AP_HEADER_SOURCES_V --
3531: ------------------------------------------------
3532: PROCEDURE update_row(
3533: p_api_version IN NUMBER,
3534: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3535: x_return_status OUT NOCOPY VARCHAR2,
3536: x_msg_count OUT NOCOPY NUMBER,
3537: x_msg_data OUT NOCOPY VARCHAR2,
3538: p_pxhv_rec IN pxhv_rec_type,
3539: x_pxhv_rec OUT NOCOPY pxhv_rec_type) IS
3540:
3541: l_api_version CONSTANT NUMBER := 1;
3542: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3543: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3544: l_pxhv_rec pxhv_rec_type := p_pxhv_rec;
3545: l_def_pxhv_rec pxhv_rec_type;
3546: l_db_pxhv_rec pxhv_rec_type;
3547: l_pxh_rec pxh_rec_type;
3568: p_pxhv_rec IN pxhv_rec_type,
3569: x_pxhv_rec OUT NOCOPY pxhv_rec_type
3570: ) RETURN VARCHAR2 IS
3571: l_row_notfound BOOLEAN := TRUE;
3572: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3573: BEGIN
3574: x_pxhv_rec := p_pxhv_rec;
3575: -- Get current database values
3576: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3575: -- Get current database values
3576: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3577: -- so it may be verified through LOCK_ROW.
3578: l_db_pxhv_rec := get_rec(p_pxhv_rec, l_return_status);
3579: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3580: IF x_pxhv_rec.header_extension_id IS NULL THEN
3581: x_pxhv_rec.header_extension_id := l_db_pxhv_rec.header_extension_id;
3582: END IF;
3583: IF x_pxhv_rec.source_id IS NULL THEN
3834: FUNCTION Set_Attributes (
3835: p_pxhv_rec IN pxhv_rec_type,
3836: x_pxhv_rec OUT NOCOPY pxhv_rec_type
3837: ) RETURN VARCHAR2 IS
3838: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3839: BEGIN
3840: x_pxhv_rec := p_pxhv_rec;
3841: RETURN(l_return_status);
3842: END Set_Attributes;
3840: x_pxhv_rec := p_pxhv_rec;
3841: RETURN(l_return_status);
3842: END Set_Attributes;
3843: BEGIN
3844: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3845: G_PKG_NAME,
3846: p_init_msg_list,
3847: l_api_version,
3848: p_api_version,
3847: l_api_version,
3848: p_api_version,
3849: '_PVT',
3850: x_return_status);
3851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3854: RAISE OKL_API.G_EXCEPTION_ERROR;
3855: END IF;
3848: p_api_version,
3849: '_PVT',
3850: x_return_status);
3851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3854: RAISE OKL_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: --- Setting item attributes
3849: '_PVT',
3850: x_return_status);
3851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3854: RAISE OKL_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: --- Setting item attributes
3857: l_return_status := Set_Attributes(
3850: x_return_status);
3851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3854: RAISE OKL_API.G_EXCEPTION_ERROR;
3855: END IF;
3856: --- Setting item attributes
3857: l_return_status := Set_Attributes(
3858: p_pxhv_rec, -- IN
3857: l_return_status := Set_Attributes(
3858: p_pxhv_rec, -- IN
3859: x_pxhv_rec); -- OUT
3860: --- If any errors happen abort API
3861: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3858: p_pxhv_rec, -- IN
3859: x_pxhv_rec); -- OUT
3860: --- If any errors happen abort API
3861: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: l_return_status := populate_new_record(l_pxhv_rec, l_def_pxhv_rec);
3859: x_pxhv_rec); -- OUT
3860: --- If any errors happen abort API
3861: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: l_return_status := populate_new_record(l_pxhv_rec, l_def_pxhv_rec);
3867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3860: --- If any errors happen abort API
3861: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: l_return_status := populate_new_record(l_pxhv_rec, l_def_pxhv_rec);
3867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: l_return_status := populate_new_record(l_pxhv_rec, l_def_pxhv_rec);
3867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3870: RAISE OKL_API.G_EXCEPTION_ERROR;
3871: END IF;
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: l_return_status := populate_new_record(l_pxhv_rec, l_def_pxhv_rec);
3867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3870: RAISE OKL_API.G_EXCEPTION_ERROR;
3871: END IF;
3872: l_def_pxhv_rec := null_out_defaults(l_def_pxhv_rec);
3865: END IF;
3866: l_return_status := populate_new_record(l_pxhv_rec, l_def_pxhv_rec);
3867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3870: RAISE OKL_API.G_EXCEPTION_ERROR;
3871: END IF;
3872: l_def_pxhv_rec := null_out_defaults(l_def_pxhv_rec);
3873: l_def_pxhv_rec := fill_who_columns(l_def_pxhv_rec);
3866: l_return_status := populate_new_record(l_pxhv_rec, l_def_pxhv_rec);
3867: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3869: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3870: RAISE OKL_API.G_EXCEPTION_ERROR;
3871: END IF;
3872: l_def_pxhv_rec := null_out_defaults(l_def_pxhv_rec);
3873: l_def_pxhv_rec := fill_who_columns(l_def_pxhv_rec);
3874: --- Validate all non-missing attributes (Item Level Validation)
3873: l_def_pxhv_rec := fill_who_columns(l_def_pxhv_rec);
3874: --- Validate all non-missing attributes (Item Level Validation)
3875: l_return_status := Validate_Attributes(l_def_pxhv_rec);
3876: --- If any errors happen abort API
3877: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_ERROR;
3881: END IF;
3874: --- Validate all non-missing attributes (Item Level Validation)
3875: l_return_status := Validate_Attributes(l_def_pxhv_rec);
3876: --- If any errors happen abort API
3877: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: l_return_status := Validate_Record(l_def_pxhv_rec, l_db_pxhv_rec);
3875: l_return_status := Validate_Attributes(l_def_pxhv_rec);
3876: --- If any errors happen abort API
3877: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: l_return_status := Validate_Record(l_def_pxhv_rec, l_db_pxhv_rec);
3883: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3876: --- If any errors happen abort API
3877: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: l_return_status := Validate_Record(l_def_pxhv_rec, l_db_pxhv_rec);
3883: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3879: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: l_return_status := Validate_Record(l_def_pxhv_rec, l_db_pxhv_rec);
3883: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3885: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_ERROR;
3887: END IF;
3880: RAISE OKL_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: l_return_status := Validate_Record(l_def_pxhv_rec, l_db_pxhv_rec);
3883: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3885: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_ERROR;
3887: END IF;
3888:
3881: END IF;
3882: l_return_status := Validate_Record(l_def_pxhv_rec, l_db_pxhv_rec);
3883: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3885: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_ERROR;
3887: END IF;
3888:
3889: -- Lock the Record
3882: l_return_status := Validate_Record(l_def_pxhv_rec, l_db_pxhv_rec);
3883: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3885: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3886: RAISE OKL_API.G_EXCEPTION_ERROR;
3887: END IF;
3888:
3889: -- Lock the Record
3890: lock_row(
3893: x_return_status => l_return_status,
3894: x_msg_count => x_msg_count,
3895: x_msg_data => x_msg_data,
3896: p_pxhv_rec => p_pxhv_rec);
3897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3900: RAISE OKL_API.G_EXCEPTION_ERROR;
3901: END IF;
3894: x_msg_count => x_msg_count,
3895: x_msg_data => x_msg_data,
3896: p_pxhv_rec => p_pxhv_rec);
3897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3900: RAISE OKL_API.G_EXCEPTION_ERROR;
3901: END IF;
3902:
3895: x_msg_data => x_msg_data,
3896: p_pxhv_rec => p_pxhv_rec);
3897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3900: RAISE OKL_API.G_EXCEPTION_ERROR;
3901: END IF;
3902:
3903: -----------------------------------------
3896: p_pxhv_rec => p_pxhv_rec);
3897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3900: RAISE OKL_API.G_EXCEPTION_ERROR;
3901: END IF;
3902:
3903: -----------------------------------------
3904: -- Move VIEW record to "Child" records --
3915: x_msg_data,
3916: l_pxh_rec,
3917: lx_pxh_rec
3918: );
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3916: l_pxh_rec,
3917: lx_pxh_rec
3918: );
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3924: migrate(lx_pxh_rec, l_def_pxhv_rec);
3917: lx_pxh_rec
3918: );
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3924: migrate(lx_pxh_rec, l_def_pxhv_rec);
3925: update_row(
3918: );
3919: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3921: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3922: RAISE OKL_API.G_EXCEPTION_ERROR;
3923: END IF;
3924: migrate(lx_pxh_rec, l_def_pxhv_rec);
3925: update_row(
3926: p_init_msg_list,
3929: x_msg_data,
3930: l_pxhl_rec,
3931: lx_pxhl_rec
3932: );
3933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3936: RAISE OKL_API.G_EXCEPTION_ERROR;
3937: END IF;
3930: l_pxhl_rec,
3931: lx_pxhl_rec
3932: );
3933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3936: RAISE OKL_API.G_EXCEPTION_ERROR;
3937: END IF;
3938: migrate(lx_pxhl_rec, l_def_pxhv_rec);
3931: lx_pxhl_rec
3932: );
3933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3936: RAISE OKL_API.G_EXCEPTION_ERROR;
3937: END IF;
3938: migrate(lx_pxhl_rec, l_def_pxhv_rec);
3939: x_pxhv_rec := l_def_pxhv_rec;
3932: );
3933: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3935: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3936: RAISE OKL_API.G_EXCEPTION_ERROR;
3937: END IF;
3938: migrate(lx_pxhl_rec, l_def_pxhv_rec);
3939: x_pxhv_rec := l_def_pxhv_rec;
3940: x_return_status := l_return_status;
3937: END IF;
3938: migrate(lx_pxhl_rec, l_def_pxhv_rec);
3939: x_pxhv_rec := l_def_pxhv_rec;
3940: x_return_status := l_return_status;
3941: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3942: EXCEPTION
3943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3945: (
3939: x_pxhv_rec := l_def_pxhv_rec;
3940: x_return_status := l_return_status;
3941: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3942: EXCEPTION
3943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3945: (
3946: l_api_name,
3947: G_PKG_NAME,
3940: x_return_status := l_return_status;
3941: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3942: EXCEPTION
3943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3945: (
3946: l_api_name,
3947: G_PKG_NAME,
3948: 'OKL_API.G_RET_STS_ERROR',
3944: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3945: (
3946: l_api_name,
3947: G_PKG_NAME,
3948: 'OKL_API.G_RET_STS_ERROR',
3949: x_msg_count,
3950: x_msg_data,
3951: '_PVT'
3952: );
3949: x_msg_count,
3950: x_msg_data,
3951: '_PVT'
3952: );
3953: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3954: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3955: (
3956: l_api_name,
3957: G_PKG_NAME,
3950: x_msg_data,
3951: '_PVT'
3952: );
3953: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3954: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3955: (
3956: l_api_name,
3957: G_PKG_NAME,
3958: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3954: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3955: (
3956: l_api_name,
3957: G_PKG_NAME,
3958: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3959: x_msg_count,
3960: x_msg_data,
3961: '_PVT'
3962: );
3960: x_msg_data,
3961: '_PVT'
3962: );
3963: WHEN OTHERS THEN
3964: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3965: (
3966: l_api_name,
3967: G_PKG_NAME,
3968: 'OTHERS',
3975: -- PL/SQL TBL update_row for:pxhv_tbl --
3976: ----------------------------------------
3977: PROCEDURE update_row(
3978: p_api_version IN NUMBER,
3979: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3980: x_return_status OUT NOCOPY VARCHAR2,
3981: x_msg_count OUT NOCOPY NUMBER,
3982: x_msg_data OUT NOCOPY VARCHAR2,
3983: p_pxhv_tbl IN pxhv_tbl_type,
3981: x_msg_count OUT NOCOPY NUMBER,
3982: x_msg_data OUT NOCOPY VARCHAR2,
3983: p_pxhv_tbl IN pxhv_tbl_type,
3984: x_pxhv_tbl OUT NOCOPY pxhv_tbl_type,
3985: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3986:
3987: l_api_version CONSTANT NUMBER := 1;
3988: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3989: i NUMBER := 0;
3987: l_api_version CONSTANT NUMBER := 1;
3988: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3989: i NUMBER := 0;
3990: BEGIN
3991: OKL_API.init_msg_list(p_init_msg_list);
3992: -- Make sure PL/SQL table has records in it before passing
3993: IF (p_pxhv_tbl.COUNT > 0) THEN
3994: i := p_pxhv_tbl.FIRST;
3995: LOOP
3993: IF (p_pxhv_tbl.COUNT > 0) THEN
3994: i := p_pxhv_tbl.FIRST;
3995: LOOP
3996: DECLARE
3997: l_error_rec OKL_API.ERROR_REC_TYPE;
3998: BEGIN
3999: l_error_rec.api_name := l_api_name;
4000: l_error_rec.api_package := G_PKG_NAME;
4001: l_error_rec.idx := i;
4000: l_error_rec.api_package := G_PKG_NAME;
4001: l_error_rec.idx := i;
4002: update_row (
4003: p_api_version => p_api_version,
4004: p_init_msg_list => OKL_API.G_FALSE,
4005: x_return_status => l_error_rec.error_type,
4006: x_msg_count => l_error_rec.msg_count,
4007: x_msg_data => l_error_rec.msg_data,
4008: p_pxhv_rec => p_pxhv_tbl(i),
4006: x_msg_count => l_error_rec.msg_count,
4007: x_msg_data => l_error_rec.msg_data,
4008: p_pxhv_rec => p_pxhv_tbl(i),
4009: x_pxhv_rec => x_pxhv_tbl(i));
4010: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4011: l_error_rec.sqlcode := SQLCODE;
4012: load_error_tbl(l_error_rec, px_error_tbl);
4013: ELSE
4014: x_msg_count := l_error_rec.msg_count;
4014: x_msg_count := l_error_rec.msg_count;
4015: x_msg_data := l_error_rec.msg_data;
4016: END IF;
4017: EXCEPTION
4018: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4019: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4020: l_error_rec.sqlcode := SQLCODE;
4021: load_error_tbl(l_error_rec, px_error_tbl);
4022: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4015: x_msg_data := l_error_rec.msg_data;
4016: END IF;
4017: EXCEPTION
4018: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4019: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4020: l_error_rec.sqlcode := SQLCODE;
4021: load_error_tbl(l_error_rec, px_error_tbl);
4022: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4023: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4018: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4019: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4020: l_error_rec.sqlcode := SQLCODE;
4021: load_error_tbl(l_error_rec, px_error_tbl);
4022: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4023: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4024: l_error_rec.sqlcode := SQLCODE;
4025: load_error_tbl(l_error_rec, px_error_tbl);
4026: WHEN OTHERS THEN
4019: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4020: l_error_rec.sqlcode := SQLCODE;
4021: load_error_tbl(l_error_rec, px_error_tbl);
4022: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4023: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4024: l_error_rec.sqlcode := SQLCODE;
4025: load_error_tbl(l_error_rec, px_error_tbl);
4026: WHEN OTHERS THEN
4027: l_error_rec.error_type := 'OTHERS';
4034: END IF;
4035: -- Loop through the error_tbl to find the error with the highest severity
4036: -- and return it.
4037: x_return_status := find_highest_exception(px_error_tbl);
4038: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4039: EXCEPTION
4040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (
4036: -- and return it.
4037: x_return_status := find_highest_exception(px_error_tbl);
4038: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4039: EXCEPTION
4040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (
4043: l_api_name,
4044: G_PKG_NAME,
4037: x_return_status := find_highest_exception(px_error_tbl);
4038: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4039: EXCEPTION
4040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (
4043: l_api_name,
4044: G_PKG_NAME,
4045: 'OKL_API.G_RET_STS_ERROR',
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (
4043: l_api_name,
4044: G_PKG_NAME,
4045: 'OKL_API.G_RET_STS_ERROR',
4046: x_msg_count,
4047: x_msg_data,
4048: '_PVT'
4049: );
4046: x_msg_count,
4047: x_msg_data,
4048: '_PVT'
4049: );
4050: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4051: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4052: (
4053: l_api_name,
4054: G_PKG_NAME,
4047: x_msg_data,
4048: '_PVT'
4049: );
4050: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4051: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4052: (
4053: l_api_name,
4054: G_PKG_NAME,
4055: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4051: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4052: (
4053: l_api_name,
4054: G_PKG_NAME,
4055: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4056: x_msg_count,
4057: x_msg_data,
4058: '_PVT'
4059: );
4057: x_msg_data,
4058: '_PVT'
4059: );
4060: WHEN OTHERS THEN
4061: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4062: (
4063: l_api_name,
4064: G_PKG_NAME,
4065: 'OTHERS',
4073: -- PL/SQL TBL update_row for:PXHV_TBL --
4074: ----------------------------------------
4075: PROCEDURE update_row(
4076: p_api_version IN NUMBER,
4077: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4078: x_return_status OUT NOCOPY VARCHAR2,
4079: x_msg_count OUT NOCOPY NUMBER,
4080: x_msg_data OUT NOCOPY VARCHAR2,
4081: p_pxhv_tbl IN pxhv_tbl_type,
4082: x_pxhv_tbl OUT NOCOPY pxhv_tbl_type) IS
4083:
4084: l_api_version CONSTANT NUMBER := 1;
4085: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4086: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4087: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4088: BEGIN
4089: OKL_API.init_msg_list(p_init_msg_list);
4090: -- Make sure PL/SQL table has records in it before passing
4083:
4084: l_api_version CONSTANT NUMBER := 1;
4085: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4086: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4087: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4088: BEGIN
4089: OKL_API.init_msg_list(p_init_msg_list);
4090: -- Make sure PL/SQL table has records in it before passing
4091: IF (p_pxhv_tbl.COUNT > 0) THEN
4085: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4086: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4087: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4088: BEGIN
4089: OKL_API.init_msg_list(p_init_msg_list);
4090: -- Make sure PL/SQL table has records in it before passing
4091: IF (p_pxhv_tbl.COUNT > 0) THEN
4092: update_row (
4093: p_api_version => p_api_version,
4090: -- Make sure PL/SQL table has records in it before passing
4091: IF (p_pxhv_tbl.COUNT > 0) THEN
4092: update_row (
4093: p_api_version => p_api_version,
4094: p_init_msg_list => OKL_API.G_FALSE,
4095: x_return_status => x_return_status,
4096: x_msg_count => x_msg_count,
4097: x_msg_data => x_msg_data,
4098: p_pxhv_tbl => p_pxhv_tbl,
4098: p_pxhv_tbl => p_pxhv_tbl,
4099: x_pxhv_tbl => x_pxhv_tbl,
4100: px_error_tbl => l_error_tbl);
4101: END IF;
4102: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4103: EXCEPTION
4104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4106: (
4100: px_error_tbl => l_error_tbl);
4101: END IF;
4102: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4103: EXCEPTION
4104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4106: (
4107: l_api_name,
4108: G_PKG_NAME,
4101: END IF;
4102: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4103: EXCEPTION
4104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4106: (
4107: l_api_name,
4108: G_PKG_NAME,
4109: 'OKL_API.G_RET_STS_ERROR',
4105: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4106: (
4107: l_api_name,
4108: G_PKG_NAME,
4109: 'OKL_API.G_RET_STS_ERROR',
4110: x_msg_count,
4111: x_msg_data,
4112: '_PVT'
4113: );
4110: x_msg_count,
4111: x_msg_data,
4112: '_PVT'
4113: );
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4116: (
4117: l_api_name,
4118: G_PKG_NAME,
4111: x_msg_data,
4112: '_PVT'
4113: );
4114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4116: (
4117: l_api_name,
4118: G_PKG_NAME,
4119: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4115: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4116: (
4117: l_api_name,
4118: G_PKG_NAME,
4119: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4120: x_msg_count,
4121: x_msg_data,
4122: '_PVT'
4123: );
4121: x_msg_data,
4122: '_PVT'
4123: );
4124: WHEN OTHERS THEN
4125: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4126: (
4127: l_api_name,
4128: G_PKG_NAME,
4129: 'OTHERS',
4139: ------------------------------------------------
4140: -- delete_row for:OKL_EXT_AP_HEADER_SOURCES_B --
4141: ------------------------------------------------
4142: PROCEDURE delete_row(
4143: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4144: x_return_status OUT NOCOPY VARCHAR2,
4145: x_msg_count OUT NOCOPY NUMBER,
4146: x_msg_data OUT NOCOPY VARCHAR2,
4147: p_pxh_rec IN pxh_rec_type) IS
4147: p_pxh_rec IN pxh_rec_type) IS
4148:
4149: l_api_version CONSTANT NUMBER := 1;
4150: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
4151: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4152: l_pxh_rec pxh_rec_type := p_pxh_rec;
4153: l_row_notfound BOOLEAN := TRUE;
4154: BEGIN
4155: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4151: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4152: l_pxh_rec pxh_rec_type := p_pxh_rec;
4153: l_row_notfound BOOLEAN := TRUE;
4154: BEGIN
4155: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4156: p_init_msg_list,
4157: '_PVT',
4158: x_return_status);
4159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4155: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4156: p_init_msg_list,
4157: '_PVT',
4158: x_return_status);
4159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: RAISE OKL_API.G_EXCEPTION_ERROR;
4163: END IF;
4156: p_init_msg_list,
4157: '_PVT',
4158: x_return_status);
4159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: RAISE OKL_API.G_EXCEPTION_ERROR;
4163: END IF;
4164:
4157: '_PVT',
4158: x_return_status);
4159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: RAISE OKL_API.G_EXCEPTION_ERROR;
4163: END IF;
4164:
4165: DELETE FROM OKL_EXT_AP_HEADER_SOURCES_B
4158: x_return_status);
4159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: RAISE OKL_API.G_EXCEPTION_ERROR;
4163: END IF;
4164:
4165: DELETE FROM OKL_EXT_AP_HEADER_SOURCES_B
4166: WHERE HEADER_EXTENSION_ID = p_pxh_rec.header_extension_id;
4165: DELETE FROM OKL_EXT_AP_HEADER_SOURCES_B
4166: WHERE HEADER_EXTENSION_ID = p_pxh_rec.header_extension_id;
4167:
4168: x_return_status := l_return_status;
4169: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4170: EXCEPTION
4171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4173: (
4167:
4168: x_return_status := l_return_status;
4169: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4170: EXCEPTION
4171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4173: (
4174: l_api_name,
4175: G_PKG_NAME,
4168: x_return_status := l_return_status;
4169: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4170: EXCEPTION
4171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4173: (
4174: l_api_name,
4175: G_PKG_NAME,
4176: 'OKL_API.G_RET_STS_ERROR',
4172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4173: (
4174: l_api_name,
4175: G_PKG_NAME,
4176: 'OKL_API.G_RET_STS_ERROR',
4177: x_msg_count,
4178: x_msg_data,
4179: '_PVT'
4180: );
4177: x_msg_count,
4178: x_msg_data,
4179: '_PVT'
4180: );
4181: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4178: x_msg_data,
4179: '_PVT'
4180: );
4181: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4183: (
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4187: x_msg_count,
4188: x_msg_data,
4189: '_PVT'
4190: );
4188: x_msg_data,
4189: '_PVT'
4190: );
4191: WHEN OTHERS THEN
4192: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4193: (
4194: l_api_name,
4195: G_PKG_NAME,
4196: 'OTHERS',
4202: -------------------------------------------------
4203: -- delete_row for:OKL_EXT_AP_HEADER_SOURCES_TL --
4204: -------------------------------------------------
4205: PROCEDURE delete_row(
4206: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4207: x_return_status OUT NOCOPY VARCHAR2,
4208: x_msg_count OUT NOCOPY NUMBER,
4209: x_msg_data OUT NOCOPY VARCHAR2,
4210: p_pxhl_rec IN pxhl_rec_type) IS
4210: p_pxhl_rec IN pxhl_rec_type) IS
4211:
4212: l_api_version CONSTANT NUMBER := 1;
4213: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4214: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4215: l_pxhl_rec pxhl_rec_type := p_pxhl_rec;
4216: l_row_notfound BOOLEAN := TRUE;
4217: BEGIN
4218: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4214: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4215: l_pxhl_rec pxhl_rec_type := p_pxhl_rec;
4216: l_row_notfound BOOLEAN := TRUE;
4217: BEGIN
4218: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4219: p_init_msg_list,
4220: '_PVT',
4221: x_return_status);
4222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4218: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4219: p_init_msg_list,
4220: '_PVT',
4221: x_return_status);
4222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_ERROR;
4226: END IF;
4219: p_init_msg_list,
4220: '_PVT',
4221: x_return_status);
4222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_ERROR;
4226: END IF;
4227:
4220: '_PVT',
4221: x_return_status);
4222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_ERROR;
4226: END IF;
4227:
4228: DELETE FROM OKL_EXT_AP_HEADER_SOURCES_TL
4221: x_return_status);
4222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4225: RAISE OKL_API.G_EXCEPTION_ERROR;
4226: END IF;
4227:
4228: DELETE FROM OKL_EXT_AP_HEADER_SOURCES_TL
4229: WHERE HEADER_EXTENSION_ID = p_pxhl_rec.header_extension_id;
4228: DELETE FROM OKL_EXT_AP_HEADER_SOURCES_TL
4229: WHERE HEADER_EXTENSION_ID = p_pxhl_rec.header_extension_id;
4230:
4231: x_return_status := l_return_status;
4232: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4233: EXCEPTION
4234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4235: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4236: (
4230:
4231: x_return_status := l_return_status;
4232: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4233: EXCEPTION
4234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4235: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4236: (
4237: l_api_name,
4238: G_PKG_NAME,
4231: x_return_status := l_return_status;
4232: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4233: EXCEPTION
4234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4235: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4236: (
4237: l_api_name,
4238: G_PKG_NAME,
4239: 'OKL_API.G_RET_STS_ERROR',
4235: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4236: (
4237: l_api_name,
4238: G_PKG_NAME,
4239: 'OKL_API.G_RET_STS_ERROR',
4240: x_msg_count,
4241: x_msg_data,
4242: '_PVT'
4243: );
4240: x_msg_count,
4241: x_msg_data,
4242: '_PVT'
4243: );
4244: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4245: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4246: (
4247: l_api_name,
4248: G_PKG_NAME,
4241: x_msg_data,
4242: '_PVT'
4243: );
4244: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4245: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4246: (
4247: l_api_name,
4248: G_PKG_NAME,
4249: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4245: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4246: (
4247: l_api_name,
4248: G_PKG_NAME,
4249: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4250: x_msg_count,
4251: x_msg_data,
4252: '_PVT'
4253: );
4251: x_msg_data,
4252: '_PVT'
4253: );
4254: WHEN OTHERS THEN
4255: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4256: (
4257: l_api_name,
4258: G_PKG_NAME,
4259: 'OTHERS',
4266: -- delete_row for:OKL_EXT_AP_HEADER_SOURCES_V --
4267: ------------------------------------------------
4268: PROCEDURE delete_row(
4269: p_api_version IN NUMBER,
4270: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4271: x_return_status OUT NOCOPY VARCHAR2,
4272: x_msg_count OUT NOCOPY NUMBER,
4273: x_msg_data OUT NOCOPY VARCHAR2,
4274: p_pxhv_rec IN pxhv_rec_type) IS
4274: p_pxhv_rec IN pxhv_rec_type) IS
4275:
4276: l_api_version CONSTANT NUMBER := 1;
4277: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4278: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4279: l_pxhv_rec pxhv_rec_type := p_pxhv_rec;
4280: l_pxhl_rec pxhl_rec_type;
4281: l_pxh_rec pxh_rec_type;
4282: BEGIN
4279: l_pxhv_rec pxhv_rec_type := p_pxhv_rec;
4280: l_pxhl_rec pxhl_rec_type;
4281: l_pxh_rec pxh_rec_type;
4282: BEGIN
4283: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4284: G_PKG_NAME,
4285: p_init_msg_list,
4286: l_api_version,
4287: p_api_version,
4286: l_api_version,
4287: p_api_version,
4288: '_PVT',
4289: x_return_status);
4290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4293: RAISE OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4287: p_api_version,
4288: '_PVT',
4289: x_return_status);
4290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4293: RAISE OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4295: -----------------------------------------
4288: '_PVT',
4289: x_return_status);
4290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4293: RAISE OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4295: -----------------------------------------
4296: -- Move VIEW record to "Child" records --
4289: x_return_status);
4290: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4292: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4293: RAISE OKL_API.G_EXCEPTION_ERROR;
4294: END IF;
4295: -----------------------------------------
4296: -- Move VIEW record to "Child" records --
4297: -----------------------------------------
4306: x_msg_count,
4307: x_msg_data,
4308: l_pxhl_rec
4309: );
4310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4313: RAISE OKL_API.G_EXCEPTION_ERROR;
4314: END IF;
4307: x_msg_data,
4308: l_pxhl_rec
4309: );
4310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4313: RAISE OKL_API.G_EXCEPTION_ERROR;
4314: END IF;
4315: delete_row(
4308: l_pxhl_rec
4309: );
4310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4313: RAISE OKL_API.G_EXCEPTION_ERROR;
4314: END IF;
4315: delete_row(
4316: p_init_msg_list,
4309: );
4310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4313: RAISE OKL_API.G_EXCEPTION_ERROR;
4314: END IF;
4315: delete_row(
4316: p_init_msg_list,
4317: l_return_status,
4318: x_msg_count,
4319: x_msg_data,
4320: l_pxh_rec
4321: );
4322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_ERROR;
4326: END IF;
4319: x_msg_data,
4320: l_pxh_rec
4321: );
4322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_ERROR;
4326: END IF;
4327: x_return_status := l_return_status;
4320: l_pxh_rec
4321: );
4322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_ERROR;
4326: END IF;
4327: x_return_status := l_return_status;
4328: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4321: );
4322: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_ERROR;
4326: END IF;
4327: x_return_status := l_return_status;
4328: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4329: EXCEPTION
4324: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4325: RAISE OKL_API.G_EXCEPTION_ERROR;
4326: END IF;
4327: x_return_status := l_return_status;
4328: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4329: EXCEPTION
4330: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4331: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4332: (
4326: END IF;
4327: x_return_status := l_return_status;
4328: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4329: EXCEPTION
4330: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4331: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4332: (
4333: l_api_name,
4334: G_PKG_NAME,
4327: x_return_status := l_return_status;
4328: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4329: EXCEPTION
4330: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4331: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4332: (
4333: l_api_name,
4334: G_PKG_NAME,
4335: 'OKL_API.G_RET_STS_ERROR',
4331: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4332: (
4333: l_api_name,
4334: G_PKG_NAME,
4335: 'OKL_API.G_RET_STS_ERROR',
4336: x_msg_count,
4337: x_msg_data,
4338: '_PVT'
4339: );
4336: x_msg_count,
4337: x_msg_data,
4338: '_PVT'
4339: );
4340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4341: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4342: (
4343: l_api_name,
4344: G_PKG_NAME,
4337: x_msg_data,
4338: '_PVT'
4339: );
4340: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4341: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4342: (
4343: l_api_name,
4344: G_PKG_NAME,
4345: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4341: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4342: (
4343: l_api_name,
4344: G_PKG_NAME,
4345: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4346: x_msg_count,
4347: x_msg_data,
4348: '_PVT'
4349: );
4347: x_msg_data,
4348: '_PVT'
4349: );
4350: WHEN OTHERS THEN
4351: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4352: (
4353: l_api_name,
4354: G_PKG_NAME,
4355: 'OTHERS',
4362: -- PL/SQL TBL delete_row for:OKL_EXT_AP_HEADER_SOURCES_V --
4363: -----------------------------------------------------------
4364: PROCEDURE delete_row(
4365: p_api_version IN NUMBER,
4366: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4367: x_return_status OUT NOCOPY VARCHAR2,
4368: x_msg_count OUT NOCOPY NUMBER,
4369: x_msg_data OUT NOCOPY VARCHAR2,
4370: p_pxhv_tbl IN pxhv_tbl_type,
4367: x_return_status OUT NOCOPY VARCHAR2,
4368: x_msg_count OUT NOCOPY NUMBER,
4369: x_msg_data OUT NOCOPY VARCHAR2,
4370: p_pxhv_tbl IN pxhv_tbl_type,
4371: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4372:
4373: l_api_version CONSTANT NUMBER := 1;
4374: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4375: i NUMBER := 0;
4373: l_api_version CONSTANT NUMBER := 1;
4374: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4375: i NUMBER := 0;
4376: BEGIN
4377: OKL_API.init_msg_list(p_init_msg_list);
4378: -- Make sure PL/SQL table has records in it before passing
4379: IF (p_pxhv_tbl.COUNT > 0) THEN
4380: i := p_pxhv_tbl.FIRST;
4381: LOOP
4379: IF (p_pxhv_tbl.COUNT > 0) THEN
4380: i := p_pxhv_tbl.FIRST;
4381: LOOP
4382: DECLARE
4383: l_error_rec OKL_API.ERROR_REC_TYPE;
4384: BEGIN
4385: l_error_rec.api_name := l_api_name;
4386: l_error_rec.api_package := G_PKG_NAME;
4387: l_error_rec.idx := i;
4386: l_error_rec.api_package := G_PKG_NAME;
4387: l_error_rec.idx := i;
4388: delete_row (
4389: p_api_version => p_api_version,
4390: p_init_msg_list => OKL_API.G_FALSE,
4391: x_return_status => l_error_rec.error_type,
4392: x_msg_count => l_error_rec.msg_count,
4393: x_msg_data => l_error_rec.msg_data,
4394: p_pxhv_rec => p_pxhv_tbl(i));
4391: x_return_status => l_error_rec.error_type,
4392: x_msg_count => l_error_rec.msg_count,
4393: x_msg_data => l_error_rec.msg_data,
4394: p_pxhv_rec => p_pxhv_tbl(i));
4395: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4396: l_error_rec.sqlcode := SQLCODE;
4397: load_error_tbl(l_error_rec, px_error_tbl);
4398: ELSE
4399: x_msg_count := l_error_rec.msg_count;
4399: x_msg_count := l_error_rec.msg_count;
4400: x_msg_data := l_error_rec.msg_data;
4401: END IF;
4402: EXCEPTION
4403: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4404: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4405: l_error_rec.sqlcode := SQLCODE;
4406: load_error_tbl(l_error_rec, px_error_tbl);
4407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4400: x_msg_data := l_error_rec.msg_data;
4401: END IF;
4402: EXCEPTION
4403: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4404: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4405: l_error_rec.sqlcode := SQLCODE;
4406: load_error_tbl(l_error_rec, px_error_tbl);
4407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4408: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4403: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4404: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4405: l_error_rec.sqlcode := SQLCODE;
4406: load_error_tbl(l_error_rec, px_error_tbl);
4407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4408: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4409: l_error_rec.sqlcode := SQLCODE;
4410: load_error_tbl(l_error_rec, px_error_tbl);
4411: WHEN OTHERS THEN
4404: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4405: l_error_rec.sqlcode := SQLCODE;
4406: load_error_tbl(l_error_rec, px_error_tbl);
4407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4408: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4409: l_error_rec.sqlcode := SQLCODE;
4410: load_error_tbl(l_error_rec, px_error_tbl);
4411: WHEN OTHERS THEN
4412: l_error_rec.error_type := 'OTHERS';
4419: END IF;
4420: -- Loop through the error_tbl to find the error with the highest severity
4421: -- and return it.
4422: x_return_status := find_highest_exception(px_error_tbl);
4423: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4424: EXCEPTION
4425: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4426: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4427: (
4421: -- and return it.
4422: x_return_status := find_highest_exception(px_error_tbl);
4423: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4424: EXCEPTION
4425: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4426: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4427: (
4428: l_api_name,
4429: G_PKG_NAME,
4422: x_return_status := find_highest_exception(px_error_tbl);
4423: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4424: EXCEPTION
4425: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4426: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4427: (
4428: l_api_name,
4429: G_PKG_NAME,
4430: 'OKL_API.G_RET_STS_ERROR',
4426: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4427: (
4428: l_api_name,
4429: G_PKG_NAME,
4430: 'OKL_API.G_RET_STS_ERROR',
4431: x_msg_count,
4432: x_msg_data,
4433: '_PVT'
4434: );
4431: x_msg_count,
4432: x_msg_data,
4433: '_PVT'
4434: );
4435: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4436: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4437: (
4438: l_api_name,
4439: G_PKG_NAME,
4432: x_msg_data,
4433: '_PVT'
4434: );
4435: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4436: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4437: (
4438: l_api_name,
4439: G_PKG_NAME,
4440: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4436: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4437: (
4438: l_api_name,
4439: G_PKG_NAME,
4440: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4441: x_msg_count,
4442: x_msg_data,
4443: '_PVT'
4444: );
4442: x_msg_data,
4443: '_PVT'
4444: );
4445: WHEN OTHERS THEN
4446: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4450: 'OTHERS',
4458: -- PL/SQL TBL delete_row for:OKL_EXT_AP_HEADER_SOURCES_V --
4459: -----------------------------------------------------------
4460: PROCEDURE delete_row(
4461: p_api_version IN NUMBER,
4462: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4463: x_return_status OUT NOCOPY VARCHAR2,
4464: x_msg_count OUT NOCOPY NUMBER,
4465: x_msg_data OUT NOCOPY VARCHAR2,
4466: p_pxhv_tbl IN pxhv_tbl_type) IS
4466: p_pxhv_tbl IN pxhv_tbl_type) IS
4467:
4468: l_api_version CONSTANT NUMBER := 1;
4469: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4471: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4472: BEGIN
4473: OKL_API.init_msg_list(p_init_msg_list);
4474: -- Make sure PL/SQL table has records in it before passing
4467:
4468: l_api_version CONSTANT NUMBER := 1;
4469: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4471: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4472: BEGIN
4473: OKL_API.init_msg_list(p_init_msg_list);
4474: -- Make sure PL/SQL table has records in it before passing
4475: IF (p_pxhv_tbl.COUNT > 0) THEN
4469: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4471: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4472: BEGIN
4473: OKL_API.init_msg_list(p_init_msg_list);
4474: -- Make sure PL/SQL table has records in it before passing
4475: IF (p_pxhv_tbl.COUNT > 0) THEN
4476: delete_row (
4477: p_api_version => p_api_version,
4474: -- Make sure PL/SQL table has records in it before passing
4475: IF (p_pxhv_tbl.COUNT > 0) THEN
4476: delete_row (
4477: p_api_version => p_api_version,
4478: p_init_msg_list => OKL_API.G_FALSE,
4479: x_return_status => x_return_status,
4480: x_msg_count => x_msg_count,
4481: x_msg_data => x_msg_data,
4482: p_pxhv_tbl => p_pxhv_tbl,
4481: x_msg_data => x_msg_data,
4482: p_pxhv_tbl => p_pxhv_tbl,
4483: px_error_tbl => l_error_tbl);
4484: END IF;
4485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4486: EXCEPTION
4487: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4488: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4489: (
4483: px_error_tbl => l_error_tbl);
4484: END IF;
4485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4486: EXCEPTION
4487: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4488: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4489: (
4490: l_api_name,
4491: G_PKG_NAME,
4484: END IF;
4485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4486: EXCEPTION
4487: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4488: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4489: (
4490: l_api_name,
4491: G_PKG_NAME,
4492: 'OKL_API.G_RET_STS_ERROR',
4488: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4489: (
4490: l_api_name,
4491: G_PKG_NAME,
4492: 'OKL_API.G_RET_STS_ERROR',
4493: x_msg_count,
4494: x_msg_data,
4495: '_PVT'
4496: );
4493: x_msg_count,
4494: x_msg_data,
4495: '_PVT'
4496: );
4497: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4498: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4499: (
4500: l_api_name,
4501: G_PKG_NAME,
4494: x_msg_data,
4495: '_PVT'
4496: );
4497: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4498: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4499: (
4500: l_api_name,
4501: G_PKG_NAME,
4502: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4498: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4499: (
4500: l_api_name,
4501: G_PKG_NAME,
4502: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4503: x_msg_count,
4504: x_msg_data,
4505: '_PVT'
4506: );
4504: x_msg_data,
4505: '_PVT'
4506: );
4507: WHEN OTHERS THEN
4508: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4509: (
4510: l_api_name,
4511: G_PKG_NAME,
4512: 'OTHERS',
4525: -- insert_row for:OKL_EXT_AP_HEADER_SOURCES_TL --
4526: -------------------------------------------------
4527: PROCEDURE insert_row(
4528: p_api_version IN NUMBER,
4529: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4530: x_return_status OUT NOCOPY VARCHAR2,
4531: x_msg_count OUT NOCOPY NUMBER,
4532: x_msg_data OUT NOCOPY VARCHAR2,
4533: p_pxh_rec IN pxh_rec_type,
4536: x_pxhl_tbl OUT NOCOPY pxhl_tbl_type) IS
4537:
4538: l_api_version CONSTANT NUMBER := 1;
4539: l_api_name CONSTANT VARCHAR2(30) := 'B_TL_insert_row';
4540: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4541:
4542: l_pxh_rec pxh_rec_type := p_pxh_rec;
4543: l_def_pxh_rec pxh_rec_type;
4544: lx_pxh_rec pxh_rec_type;
4568: FUNCTION Set_Attributes (
4569: p_pxh_rec IN pxh_rec_type,
4570: x_pxh_rec OUT NOCOPY pxh_rec_type
4571: ) RETURN VARCHAR2 IS
4572: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4573: BEGIN
4574: x_pxh_rec := p_pxh_rec;
4575: x_pxh_rec.OBJECT_VERSION_NUMBER := 1;
4576: RETURN(l_return_status);
4575: x_pxh_rec.OBJECT_VERSION_NUMBER := 1;
4576: RETURN(l_return_status);
4577: END Set_Attributes;
4578: BEGIN
4579: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4580: G_PKG_NAME,
4581: p_init_msg_list,
4582: l_api_version,
4583: p_api_version,
4582: l_api_version,
4583: p_api_version,
4584: '_PVT',
4585: x_return_status);
4586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4589: RAISE OKL_API.G_EXCEPTION_ERROR;
4590: END IF;
4583: p_api_version,
4584: '_PVT',
4585: x_return_status);
4586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4589: RAISE OKL_API.G_EXCEPTION_ERROR;
4590: END IF;
4591: -- Set primary key value
4584: '_PVT',
4585: x_return_status);
4586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4589: RAISE OKL_API.G_EXCEPTION_ERROR;
4590: END IF;
4591: -- Set primary key value
4592: l_pxh_rec.HEADER_EXTENSION_ID := get_seq_id;
4585: x_return_status);
4586: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4588: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4589: RAISE OKL_API.G_EXCEPTION_ERROR;
4590: END IF;
4591: -- Set primary key value
4592: l_pxh_rec.HEADER_EXTENSION_ID := get_seq_id;
4593: -- Setting item attributes
4594: l_return_Status := Set_Attributes(
4595: l_pxh_rec, -- IN
4596: l_def_pxh_rec); -- OUT
4597: --- If any errors happen abort API
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4595: l_pxh_rec, -- IN
4596: l_def_pxh_rec); -- OUT
4597: --- If any errors happen abort API
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: l_def_pxh_rec := fill_who_columns(l_def_pxh_rec);
4596: l_def_pxh_rec); -- OUT
4597: --- If any errors happen abort API
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: l_def_pxh_rec := fill_who_columns(l_def_pxh_rec);
4604: l_pxh_rec := l_def_pxh_rec;
4597: --- If any errors happen abort API
4598: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4601: RAISE OKL_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: l_def_pxh_rec := fill_who_columns(l_def_pxh_rec);
4604: l_pxh_rec := l_def_pxh_rec;
4605: -----------------------------------------------
4612: x_msg_data,
4613: l_pxh_rec,
4614: lx_pxh_rec
4615: );
4616: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4613: l_pxh_rec,
4614: lx_pxh_rec
4615: );
4616: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4621: -- Looping header translatable sources for insert
4614: lx_pxh_rec
4615: );
4616: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4621: -- Looping header translatable sources for insert
4622: FOR idx in p_pxhl_tbl.FIRST .. p_pxhl_tbl.LAST
4615: );
4616: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4618: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4619: RAISE OKL_API.G_EXCEPTION_ERROR;
4620: END IF;
4621: -- Looping header translatable sources for insert
4622: FOR idx in p_pxhl_tbl.FIRST .. p_pxhl_tbl.LAST
4623: LOOP
4637: l_pxhl_tbl(idx),
4638: lx_pxhl_tbl(idx)
4639: );
4640: END LOOP;
4641: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4644: RAISE OKL_API.G_EXCEPTION_ERROR;
4645: END IF;
4638: lx_pxhl_tbl(idx)
4639: );
4640: END LOOP;
4641: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4644: RAISE OKL_API.G_EXCEPTION_ERROR;
4645: END IF;
4646: -- Set OUT values
4639: );
4640: END LOOP;
4641: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4644: RAISE OKL_API.G_EXCEPTION_ERROR;
4645: END IF;
4646: -- Set OUT values
4647: x_pxh_rec := lx_pxh_rec;
4640: END LOOP;
4641: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4643: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4644: RAISE OKL_API.G_EXCEPTION_ERROR;
4645: END IF;
4646: -- Set OUT values
4647: x_pxh_rec := lx_pxh_rec;
4648: x_pxhl_tbl := lx_pxhl_tbl;
4646: -- Set OUT values
4647: x_pxh_rec := lx_pxh_rec;
4648: x_pxhl_tbl := lx_pxhl_tbl;
4649: x_return_status := l_return_status;
4650: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4651: EXCEPTION
4652: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4653: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4654: (
4648: x_pxhl_tbl := lx_pxhl_tbl;
4649: x_return_status := l_return_status;
4650: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4651: EXCEPTION
4652: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4653: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4654: (
4655: l_api_name,
4656: G_PKG_NAME,
4649: x_return_status := l_return_status;
4650: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4651: EXCEPTION
4652: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4653: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4654: (
4655: l_api_name,
4656: G_PKG_NAME,
4657: 'OKL_API.G_RET_STS_ERROR',
4653: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4654: (
4655: l_api_name,
4656: G_PKG_NAME,
4657: 'OKL_API.G_RET_STS_ERROR',
4658: x_msg_count,
4659: x_msg_data,
4660: '_PVT'
4661: );
4658: x_msg_count,
4659: x_msg_data,
4660: '_PVT'
4661: );
4662: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4663: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4664: (
4665: l_api_name,
4666: G_PKG_NAME,
4659: x_msg_data,
4660: '_PVT'
4661: );
4662: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4663: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4664: (
4665: l_api_name,
4666: G_PKG_NAME,
4667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4663: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4664: (
4665: l_api_name,
4666: G_PKG_NAME,
4667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4668: x_msg_count,
4669: x_msg_data,
4670: '_PVT'
4671: );
4669: x_msg_data,
4670: '_PVT'
4671: );
4672: WHEN OTHERS THEN
4673: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4674: (
4675: l_api_name,
4676: G_PKG_NAME,
4677: 'OTHERS',