[Home] [Help]
3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
349: ) RETURN tehv_rec_type IS
350: l_tehv_rec tehv_rec_type;
351: l_row_notfound BOOLEAN := TRUE;
352: BEGIN
353: x_return_status := OKL_API.G_RET_STS_SUCCESS;
354: l_tehv_rec := get_rec(p_tehv_rec, l_row_notfound);
355: IF (l_row_notfound) THEN
356: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
357: x_return_status := OKL_API.G_RET_STS_ERROR;
352: BEGIN
353: x_return_status := OKL_API.G_RET_STS_SUCCESS;
354: l_tehv_rec := get_rec(p_tehv_rec, l_row_notfound);
355: IF (l_row_notfound) THEN
356: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
357: x_return_status := OKL_API.G_RET_STS_ERROR;
358: END IF;
359: RETURN(l_tehv_rec);
360: END get_rec;
353: x_return_status := OKL_API.G_RET_STS_SUCCESS;
354: l_tehv_rec := get_rec(p_tehv_rec, l_row_notfound);
355: IF (l_row_notfound) THEN
356: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
357: x_return_status := OKL_API.G_RET_STS_ERROR;
358: END IF;
359: RETURN(l_tehv_rec);
360: END get_rec;
361: -----------------------------------------------------------
530: ) RETURN teh_rec_type IS
531: l_teh_rec teh_rec_type;
532: l_row_notfound BOOLEAN := TRUE;
533: BEGIN
534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
535: l_teh_rec := get_rec(p_teh_rec, l_row_notfound);
536: IF (l_row_notfound) THEN
537: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
538: x_return_status := OKL_API.G_RET_STS_ERROR;
533: BEGIN
534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
535: l_teh_rec := get_rec(p_teh_rec, l_row_notfound);
536: IF (l_row_notfound) THEN
537: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
538: x_return_status := OKL_API.G_RET_STS_ERROR;
539: END IF;
540: RETURN(l_teh_rec);
541: END get_rec;
534: x_return_status := OKL_API.G_RET_STS_SUCCESS;
535: l_teh_rec := get_rec(p_teh_rec, l_row_notfound);
536: IF (l_row_notfound) THEN
537: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
538: x_return_status := OKL_API.G_RET_STS_ERROR;
539: END IF;
540: RETURN(l_teh_rec);
541: END get_rec;
542: -----------------------------------------------------------
610: ) RETURN tehl_rec_type IS
611: l_tehl_rec tehl_rec_type;
612: l_row_notfound BOOLEAN := TRUE;
613: BEGIN
614: x_return_status := OKL_API.G_RET_STS_SUCCESS;
615: l_tehl_rec := get_rec(p_tehl_rec, l_row_notfound);
616: IF (l_row_notfound) THEN
617: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
618: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
613: BEGIN
614: x_return_status := OKL_API.G_RET_STS_SUCCESS;
615: l_tehl_rec := get_rec(p_tehl_rec, l_row_notfound);
616: IF (l_row_notfound) THEN
617: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
618: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
619: x_return_status := OKL_API.G_RET_STS_ERROR;
620: END IF;
621: RETURN(l_tehl_rec);
614: x_return_status := OKL_API.G_RET_STS_SUCCESS;
615: l_tehl_rec := get_rec(p_tehl_rec, l_row_notfound);
616: IF (l_row_notfound) THEN
617: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
618: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
619: x_return_status := OKL_API.G_RET_STS_ERROR;
620: END IF;
621: RETURN(l_tehl_rec);
622: END get_rec;
615: l_tehl_rec := get_rec(p_tehl_rec, l_row_notfound);
616: IF (l_row_notfound) THEN
617: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'HEADER_EXTENSION_ID');
618: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
619: x_return_status := OKL_API.G_RET_STS_ERROR;
620: END IF;
621: RETURN(l_tehl_rec);
622: END get_rec;
623: -----------------------------------------------------------
637: p_tehv_rec IN tehv_rec_type
638: ) RETURN tehv_rec_type IS
639: l_tehv_rec tehv_rec_type := p_tehv_rec;
640: BEGIN
641: IF (l_tehv_rec.header_extension_id = OKL_API.G_MISS_NUM ) THEN
642: l_tehv_rec.header_extension_id := NULL;
643: END IF;
644: IF (l_tehv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
645: l_tehv_rec.source_id := NULL;
640: BEGIN
641: IF (l_tehv_rec.header_extension_id = OKL_API.G_MISS_NUM ) THEN
642: l_tehv_rec.header_extension_id := NULL;
643: END IF;
644: IF (l_tehv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
645: l_tehv_rec.source_id := NULL;
646: END IF;
647: IF (l_tehv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
648: l_tehv_rec.source_table := NULL;
643: END IF;
644: IF (l_tehv_rec.source_id = OKL_API.G_MISS_NUM ) THEN
645: l_tehv_rec.source_id := NULL;
646: END IF;
647: IF (l_tehv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
648: l_tehv_rec.source_table := NULL;
649: END IF;
650: IF (l_tehv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
651: l_tehv_rec.object_version_number := NULL;
646: END IF;
647: IF (l_tehv_rec.source_table = OKL_API.G_MISS_CHAR ) THEN
648: l_tehv_rec.source_table := NULL;
649: END IF;
650: IF (l_tehv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
651: l_tehv_rec.object_version_number := NULL;
652: END IF;
653: IF (l_tehv_rec.language = OKL_API.G_MISS_CHAR ) THEN
654: l_tehv_rec.language := NULL;
649: END IF;
650: IF (l_tehv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
651: l_tehv_rec.object_version_number := NULL;
652: END IF;
653: IF (l_tehv_rec.language = OKL_API.G_MISS_CHAR ) THEN
654: l_tehv_rec.language := NULL;
655: END IF;
656: IF (l_tehv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
657: l_tehv_rec.contract_number := NULL;
652: END IF;
653: IF (l_tehv_rec.language = OKL_API.G_MISS_CHAR ) THEN
654: l_tehv_rec.language := NULL;
655: END IF;
656: IF (l_tehv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
657: l_tehv_rec.contract_number := NULL;
658: END IF;
659: IF (l_tehv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
660: l_tehv_rec.inv_agrmnt_number := NULL;
655: END IF;
656: IF (l_tehv_rec.contract_number = OKL_API.G_MISS_CHAR ) THEN
657: l_tehv_rec.contract_number := NULL;
658: END IF;
659: IF (l_tehv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
660: l_tehv_rec.inv_agrmnt_number := NULL;
661: END IF;
662: IF (l_tehv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
663: l_tehv_rec.contract_currency_code := NULL;
658: END IF;
659: IF (l_tehv_rec.inv_agrmnt_number = OKL_API.G_MISS_CHAR ) THEN
660: l_tehv_rec.inv_agrmnt_number := NULL;
661: END IF;
662: IF (l_tehv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
663: l_tehv_rec.contract_currency_code := NULL;
664: END IF;
665: IF (l_tehv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
666: l_tehv_rec.inv_agrmnt_currency_code := NULL;
661: END IF;
662: IF (l_tehv_rec.contract_currency_code = OKL_API.G_MISS_CHAR ) THEN
663: l_tehv_rec.contract_currency_code := NULL;
664: END IF;
665: IF (l_tehv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
666: l_tehv_rec.inv_agrmnt_currency_code := NULL;
667: END IF;
668: IF (l_tehv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
669: l_tehv_rec.contract_effective_from := NULL;
664: END IF;
665: IF (l_tehv_rec.inv_agrmnt_currency_code = OKL_API.G_MISS_CHAR ) THEN
666: l_tehv_rec.inv_agrmnt_currency_code := NULL;
667: END IF;
668: IF (l_tehv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
669: l_tehv_rec.contract_effective_from := NULL;
670: END IF;
671: IF (l_tehv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
672: l_tehv_rec.inv_agrmnt_effective_from := NULL;
667: END IF;
668: IF (l_tehv_rec.contract_effective_from = OKL_API.G_MISS_DATE ) THEN
669: l_tehv_rec.contract_effective_from := NULL;
670: END IF;
671: IF (l_tehv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
672: l_tehv_rec.inv_agrmnt_effective_from := NULL;
673: END IF;
674: IF (l_tehv_rec.customer_name = OKL_API.G_MISS_CHAR ) THEN
675: l_tehv_rec.customer_name := NULL;
670: END IF;
671: IF (l_tehv_rec.inv_agrmnt_effective_from = OKL_API.G_MISS_DATE ) THEN
672: l_tehv_rec.inv_agrmnt_effective_from := NULL;
673: END IF;
674: IF (l_tehv_rec.customer_name = OKL_API.G_MISS_CHAR ) THEN
675: l_tehv_rec.customer_name := NULL;
676: END IF;
677: IF (l_tehv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
678: l_tehv_rec.sales_rep_name := NULL;
673: END IF;
674: IF (l_tehv_rec.customer_name = OKL_API.G_MISS_CHAR ) THEN
675: l_tehv_rec.customer_name := NULL;
676: END IF;
677: IF (l_tehv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
678: l_tehv_rec.sales_rep_name := NULL;
679: END IF;
680: IF (l_tehv_rec.customer_account_number = OKL_API.G_MISS_CHAR ) THEN
681: l_tehv_rec.customer_account_number := NULL;
676: END IF;
677: IF (l_tehv_rec.sales_rep_name = OKL_API.G_MISS_CHAR ) THEN
678: l_tehv_rec.sales_rep_name := NULL;
679: END IF;
680: IF (l_tehv_rec.customer_account_number = OKL_API.G_MISS_CHAR ) THEN
681: l_tehv_rec.customer_account_number := NULL;
682: END IF;
683: IF (l_tehv_rec.bill_to_address_num = OKL_API.G_MISS_NUM ) THEN
684: l_tehv_rec.bill_to_address_num := NULL;
679: END IF;
680: IF (l_tehv_rec.customer_account_number = OKL_API.G_MISS_CHAR ) THEN
681: l_tehv_rec.customer_account_number := NULL;
682: END IF;
683: IF (l_tehv_rec.bill_to_address_num = OKL_API.G_MISS_NUM ) THEN
684: l_tehv_rec.bill_to_address_num := NULL;
685: END IF;
686: IF (l_tehv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
687: l_tehv_rec.int_calc_method_code := NULL;
682: END IF;
683: IF (l_tehv_rec.bill_to_address_num = OKL_API.G_MISS_NUM ) THEN
684: l_tehv_rec.bill_to_address_num := NULL;
685: END IF;
686: IF (l_tehv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
687: l_tehv_rec.int_calc_method_code := NULL;
688: END IF;
689: IF (l_tehv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
690: l_tehv_rec.rev_rec_method_code := NULL;
685: END IF;
686: IF (l_tehv_rec.int_calc_method_code = OKL_API.G_MISS_CHAR ) THEN
687: l_tehv_rec.int_calc_method_code := NULL;
688: END IF;
689: IF (l_tehv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
690: l_tehv_rec.rev_rec_method_code := NULL;
691: END IF;
692: IF (l_tehv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
693: l_tehv_rec.converted_number := NULL;
688: END IF;
689: IF (l_tehv_rec.rev_rec_method_code = OKL_API.G_MISS_CHAR ) THEN
690: l_tehv_rec.rev_rec_method_code := NULL;
691: END IF;
692: IF (l_tehv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
693: l_tehv_rec.converted_number := NULL;
694: END IF;
695: IF (l_tehv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
696: l_tehv_rec.assignable_flag := NULL;
691: END IF;
692: IF (l_tehv_rec.converted_number = OKL_API.G_MISS_CHAR ) THEN
693: l_tehv_rec.converted_number := NULL;
694: END IF;
695: IF (l_tehv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
696: l_tehv_rec.assignable_flag := NULL;
697: END IF;
698: IF (l_tehv_rec.credit_line_number = OKL_API.G_MISS_CHAR ) THEN
699: l_tehv_rec.credit_line_number := NULL;
694: END IF;
695: IF (l_tehv_rec.assignable_flag = OKL_API.G_MISS_CHAR ) THEN
696: l_tehv_rec.assignable_flag := NULL;
697: END IF;
698: IF (l_tehv_rec.credit_line_number = OKL_API.G_MISS_CHAR ) THEN
699: l_tehv_rec.credit_line_number := NULL;
700: END IF;
701: IF (l_tehv_rec.master_lease_number = OKL_API.G_MISS_CHAR ) THEN
702: l_tehv_rec.master_lease_number := NULL;
697: END IF;
698: IF (l_tehv_rec.credit_line_number = OKL_API.G_MISS_CHAR ) THEN
699: l_tehv_rec.credit_line_number := NULL;
700: END IF;
701: IF (l_tehv_rec.master_lease_number = OKL_API.G_MISS_CHAR ) THEN
702: l_tehv_rec.master_lease_number := NULL;
703: END IF;
704: IF (l_tehv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
705: l_tehv_rec.po_order_number := NULL;
700: END IF;
701: IF (l_tehv_rec.master_lease_number = OKL_API.G_MISS_CHAR ) THEN
702: l_tehv_rec.master_lease_number := NULL;
703: END IF;
704: IF (l_tehv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
705: l_tehv_rec.po_order_number := NULL;
706: END IF;
707: IF (l_tehv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
708: l_tehv_rec.vendor_program_number := NULL;
703: END IF;
704: IF (l_tehv_rec.po_order_number = OKL_API.G_MISS_CHAR ) THEN
705: l_tehv_rec.po_order_number := NULL;
706: END IF;
707: IF (l_tehv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
708: l_tehv_rec.vendor_program_number := NULL;
709: END IF;
710: IF (l_tehv_rec.ins_policy_type_code = OKL_API.G_MISS_CHAR ) THEN
711: l_tehv_rec.ins_policy_type_code := NULL;
706: END IF;
707: IF (l_tehv_rec.vendor_program_number = OKL_API.G_MISS_CHAR ) THEN
708: l_tehv_rec.vendor_program_number := NULL;
709: END IF;
710: IF (l_tehv_rec.ins_policy_type_code = OKL_API.G_MISS_CHAR ) THEN
711: l_tehv_rec.ins_policy_type_code := NULL;
712: END IF;
713: IF (l_tehv_rec.ins_policy_number = OKL_API.G_MISS_CHAR ) THEN
714: l_tehv_rec.ins_policy_number := NULL;
709: END IF;
710: IF (l_tehv_rec.ins_policy_type_code = OKL_API.G_MISS_CHAR ) THEN
711: l_tehv_rec.ins_policy_type_code := NULL;
712: END IF;
713: IF (l_tehv_rec.ins_policy_number = OKL_API.G_MISS_CHAR ) THEN
714: l_tehv_rec.ins_policy_number := NULL;
715: END IF;
716: IF (l_tehv_rec.term_quote_accept_date = OKL_API.G_MISS_DATE ) THEN
717: l_tehv_rec.term_quote_accept_date := NULL;
712: END IF;
713: IF (l_tehv_rec.ins_policy_number = OKL_API.G_MISS_CHAR ) THEN
714: l_tehv_rec.ins_policy_number := NULL;
715: END IF;
716: IF (l_tehv_rec.term_quote_accept_date = OKL_API.G_MISS_DATE ) THEN
717: l_tehv_rec.term_quote_accept_date := NULL;
718: END IF;
719: IF (l_tehv_rec.term_quote_num = OKL_API.G_MISS_NUM ) THEN
720: l_tehv_rec.term_quote_num := NULL;
715: END IF;
716: IF (l_tehv_rec.term_quote_accept_date = OKL_API.G_MISS_DATE ) THEN
717: l_tehv_rec.term_quote_accept_date := NULL;
718: END IF;
719: IF (l_tehv_rec.term_quote_num = OKL_API.G_MISS_NUM ) THEN
720: l_tehv_rec.term_quote_num := NULL;
721: END IF;
722: IF (l_tehv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
723: l_tehv_rec.term_quote_type_code := NULL;
718: END IF;
719: IF (l_tehv_rec.term_quote_num = OKL_API.G_MISS_NUM ) THEN
720: l_tehv_rec.term_quote_num := NULL;
721: END IF;
722: IF (l_tehv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
723: l_tehv_rec.term_quote_type_code := NULL;
724: END IF;
725: IF (l_tehv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
726: l_tehv_rec.converted_account_flag := NULL;
721: END IF;
722: IF (l_tehv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
723: l_tehv_rec.term_quote_type_code := NULL;
724: END IF;
725: IF (l_tehv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
726: l_tehv_rec.converted_account_flag := NULL;
727: END IF;
728: IF (l_tehv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
729: l_tehv_rec.accrual_override_flag := NULL;
724: END IF;
725: IF (l_tehv_rec.converted_account_flag = OKL_API.G_MISS_CHAR ) THEN
726: l_tehv_rec.converted_account_flag := NULL;
727: END IF;
728: IF (l_tehv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
729: l_tehv_rec.accrual_override_flag := NULL;
730: END IF;
731: IF (l_tehv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
732: l_tehv_rec.cust_attribute_category := NULL;
727: END IF;
728: IF (l_tehv_rec.accrual_override_flag = OKL_API.G_MISS_CHAR ) THEN
729: l_tehv_rec.accrual_override_flag := NULL;
730: END IF;
731: IF (l_tehv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
732: l_tehv_rec.cust_attribute_category := NULL;
733: END IF;
734: IF (l_tehv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
735: l_tehv_rec.cust_attribute1 := NULL;
730: END IF;
731: IF (l_tehv_rec.cust_attribute_category = OKL_API.G_MISS_CHAR ) THEN
732: l_tehv_rec.cust_attribute_category := NULL;
733: END IF;
734: IF (l_tehv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
735: l_tehv_rec.cust_attribute1 := NULL;
736: END IF;
737: IF (l_tehv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
738: l_tehv_rec.cust_attribute2 := NULL;
733: END IF;
734: IF (l_tehv_rec.cust_attribute1 = OKL_API.G_MISS_CHAR ) THEN
735: l_tehv_rec.cust_attribute1 := NULL;
736: END IF;
737: IF (l_tehv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
738: l_tehv_rec.cust_attribute2 := NULL;
739: END IF;
740: IF (l_tehv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
741: l_tehv_rec.cust_attribute3 := NULL;
736: END IF;
737: IF (l_tehv_rec.cust_attribute2 = OKL_API.G_MISS_CHAR ) THEN
738: l_tehv_rec.cust_attribute2 := NULL;
739: END IF;
740: IF (l_tehv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
741: l_tehv_rec.cust_attribute3 := NULL;
742: END IF;
743: IF (l_tehv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
744: l_tehv_rec.cust_attribute4 := NULL;
739: END IF;
740: IF (l_tehv_rec.cust_attribute3 = OKL_API.G_MISS_CHAR ) THEN
741: l_tehv_rec.cust_attribute3 := NULL;
742: END IF;
743: IF (l_tehv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
744: l_tehv_rec.cust_attribute4 := NULL;
745: END IF;
746: IF (l_tehv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
747: l_tehv_rec.cust_attribute5 := NULL;
742: END IF;
743: IF (l_tehv_rec.cust_attribute4 = OKL_API.G_MISS_CHAR ) THEN
744: l_tehv_rec.cust_attribute4 := NULL;
745: END IF;
746: IF (l_tehv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
747: l_tehv_rec.cust_attribute5 := NULL;
748: END IF;
749: IF (l_tehv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
750: l_tehv_rec.cust_attribute6 := NULL;
745: END IF;
746: IF (l_tehv_rec.cust_attribute5 = OKL_API.G_MISS_CHAR ) THEN
747: l_tehv_rec.cust_attribute5 := NULL;
748: END IF;
749: IF (l_tehv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
750: l_tehv_rec.cust_attribute6 := NULL;
751: END IF;
752: IF (l_tehv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
753: l_tehv_rec.cust_attribute7 := NULL;
748: END IF;
749: IF (l_tehv_rec.cust_attribute6 = OKL_API.G_MISS_CHAR ) THEN
750: l_tehv_rec.cust_attribute6 := NULL;
751: END IF;
752: IF (l_tehv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
753: l_tehv_rec.cust_attribute7 := NULL;
754: END IF;
755: IF (l_tehv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
756: l_tehv_rec.cust_attribute8 := NULL;
751: END IF;
752: IF (l_tehv_rec.cust_attribute7 = OKL_API.G_MISS_CHAR ) THEN
753: l_tehv_rec.cust_attribute7 := NULL;
754: END IF;
755: IF (l_tehv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
756: l_tehv_rec.cust_attribute8 := NULL;
757: END IF;
758: IF (l_tehv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
759: l_tehv_rec.cust_attribute9 := NULL;
754: END IF;
755: IF (l_tehv_rec.cust_attribute8 = OKL_API.G_MISS_CHAR ) THEN
756: l_tehv_rec.cust_attribute8 := NULL;
757: END IF;
758: IF (l_tehv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
759: l_tehv_rec.cust_attribute9 := NULL;
760: END IF;
761: IF (l_tehv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
762: l_tehv_rec.cust_attribute10 := NULL;
757: END IF;
758: IF (l_tehv_rec.cust_attribute9 = OKL_API.G_MISS_CHAR ) THEN
759: l_tehv_rec.cust_attribute9 := NULL;
760: END IF;
761: IF (l_tehv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
762: l_tehv_rec.cust_attribute10 := NULL;
763: END IF;
764: IF (l_tehv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
765: l_tehv_rec.cust_attribute11 := NULL;
760: END IF;
761: IF (l_tehv_rec.cust_attribute10 = OKL_API.G_MISS_CHAR ) THEN
762: l_tehv_rec.cust_attribute10 := NULL;
763: END IF;
764: IF (l_tehv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
765: l_tehv_rec.cust_attribute11 := NULL;
766: END IF;
767: IF (l_tehv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
768: l_tehv_rec.cust_attribute12 := NULL;
763: END IF;
764: IF (l_tehv_rec.cust_attribute11 = OKL_API.G_MISS_CHAR ) THEN
765: l_tehv_rec.cust_attribute11 := NULL;
766: END IF;
767: IF (l_tehv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
768: l_tehv_rec.cust_attribute12 := NULL;
769: END IF;
770: IF (l_tehv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
771: l_tehv_rec.cust_attribute13 := NULL;
766: END IF;
767: IF (l_tehv_rec.cust_attribute12 = OKL_API.G_MISS_CHAR ) THEN
768: l_tehv_rec.cust_attribute12 := NULL;
769: END IF;
770: IF (l_tehv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
771: l_tehv_rec.cust_attribute13 := NULL;
772: END IF;
773: IF (l_tehv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
774: l_tehv_rec.cust_attribute14 := NULL;
769: END IF;
770: IF (l_tehv_rec.cust_attribute13 = OKL_API.G_MISS_CHAR ) THEN
771: l_tehv_rec.cust_attribute13 := NULL;
772: END IF;
773: IF (l_tehv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
774: l_tehv_rec.cust_attribute14 := NULL;
775: END IF;
776: IF (l_tehv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
777: l_tehv_rec.cust_attribute15 := NULL;
772: END IF;
773: IF (l_tehv_rec.cust_attribute14 = OKL_API.G_MISS_CHAR ) THEN
774: l_tehv_rec.cust_attribute14 := NULL;
775: END IF;
776: IF (l_tehv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
777: l_tehv_rec.cust_attribute15 := NULL;
778: END IF;
779: IF (l_tehv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
780: l_tehv_rec.rent_ia_contract_number := NULL;
775: END IF;
776: IF (l_tehv_rec.cust_attribute15 = OKL_API.G_MISS_CHAR ) THEN
777: l_tehv_rec.cust_attribute15 := NULL;
778: END IF;
779: IF (l_tehv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
780: l_tehv_rec.rent_ia_contract_number := NULL;
781: END IF;
782: IF (l_tehv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
783: l_tehv_rec.res_ia_contract_number := NULL;
778: END IF;
779: IF (l_tehv_rec.rent_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
780: l_tehv_rec.rent_ia_contract_number := NULL;
781: END IF;
782: IF (l_tehv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
783: l_tehv_rec.res_ia_contract_number := NULL;
784: END IF;
785: IF (l_tehv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
786: l_tehv_rec.inv_agrmnt_pool_number := NULL;
781: END IF;
782: IF (l_tehv_rec.res_ia_contract_number = OKL_API.G_MISS_CHAR ) THEN
783: l_tehv_rec.res_ia_contract_number := NULL;
784: END IF;
785: IF (l_tehv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
786: l_tehv_rec.inv_agrmnt_pool_number := NULL;
787: END IF;
788: IF (l_tehv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
789: l_tehv_rec.rent_ia_product_name := NULL;
784: END IF;
785: IF (l_tehv_rec.inv_agrmnt_pool_number = OKL_API.G_MISS_CHAR ) THEN
786: l_tehv_rec.inv_agrmnt_pool_number := NULL;
787: END IF;
788: IF (l_tehv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
789: l_tehv_rec.rent_ia_product_name := NULL;
790: END IF;
791: IF (l_tehv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
792: l_tehv_rec.res_ia_product_name := NULL;
787: END IF;
788: IF (l_tehv_rec.rent_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
789: l_tehv_rec.rent_ia_product_name := NULL;
790: END IF;
791: IF (l_tehv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
792: l_tehv_rec.res_ia_product_name := NULL;
793: END IF;
794: IF (l_tehv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
795: l_tehv_rec.rent_ia_accounting_code := NULL;
790: END IF;
791: IF (l_tehv_rec.res_ia_product_name = OKL_API.G_MISS_CHAR ) THEN
792: l_tehv_rec.res_ia_product_name := NULL;
793: END IF;
794: IF (l_tehv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
795: l_tehv_rec.rent_ia_accounting_code := NULL;
796: END IF;
797: IF (l_tehv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
798: l_tehv_rec.res_ia_accounting_code := NULL;
793: END IF;
794: IF (l_tehv_rec.rent_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
795: l_tehv_rec.rent_ia_accounting_code := NULL;
796: END IF;
797: IF (l_tehv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
798: l_tehv_rec.res_ia_accounting_code := NULL;
799: END IF;
800: IF (l_tehv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
801: l_tehv_rec.inv_agrmnt_synd_code := NULL;
796: END IF;
797: IF (l_tehv_rec.res_ia_accounting_code = OKL_API.G_MISS_CHAR ) THEN
798: l_tehv_rec.res_ia_accounting_code := NULL;
799: END IF;
800: IF (l_tehv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
801: l_tehv_rec.inv_agrmnt_synd_code := NULL;
802: END IF;
803: IF (l_tehv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
804: l_tehv_rec.created_by := NULL;
799: END IF;
800: IF (l_tehv_rec.inv_agrmnt_synd_code = OKL_API.G_MISS_CHAR ) THEN
801: l_tehv_rec.inv_agrmnt_synd_code := NULL;
802: END IF;
803: IF (l_tehv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
804: l_tehv_rec.created_by := NULL;
805: END IF;
806: IF (l_tehv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
807: l_tehv_rec.creation_date := NULL;
802: END IF;
803: IF (l_tehv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
804: l_tehv_rec.created_by := NULL;
805: END IF;
806: IF (l_tehv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
807: l_tehv_rec.creation_date := NULL;
808: END IF;
809: IF (l_tehv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
810: l_tehv_rec.last_updated_by := NULL;
805: END IF;
806: IF (l_tehv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
807: l_tehv_rec.creation_date := NULL;
808: END IF;
809: IF (l_tehv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
810: l_tehv_rec.last_updated_by := NULL;
811: END IF;
812: IF (l_tehv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
813: l_tehv_rec.last_update_date := NULL;
808: END IF;
809: IF (l_tehv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
810: l_tehv_rec.last_updated_by := NULL;
811: END IF;
812: IF (l_tehv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
813: l_tehv_rec.last_update_date := NULL;
814: END IF;
815: IF (l_tehv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
816: l_tehv_rec.last_update_login := NULL;
811: END IF;
812: IF (l_tehv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
813: l_tehv_rec.last_update_date := NULL;
814: END IF;
815: IF (l_tehv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
816: l_tehv_rec.last_update_login := NULL;
817: END IF;
818: IF (l_tehv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
819: l_tehv_rec.contract_status := NULL;
814: END IF;
815: IF (l_tehv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
816: l_tehv_rec.last_update_login := NULL;
817: END IF;
818: IF (l_tehv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
819: l_tehv_rec.contract_status := NULL;
820: END IF;
821: IF (l_tehv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
822: l_tehv_rec.inv_agrmnt_status := NULL;
817: END IF;
818: IF (l_tehv_rec.contract_status = OKL_API.G_MISS_CHAR ) THEN
819: l_tehv_rec.contract_status := NULL;
820: END IF;
821: IF (l_tehv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
822: l_tehv_rec.inv_agrmnt_status := NULL;
823: END IF;
824: IF (l_tehv_rec.chr_operating_unit_name = OKL_API.G_MISS_CHAR ) THEN
825: l_tehv_rec.chr_operating_unit_name := NULL;
820: END IF;
821: IF (l_tehv_rec.inv_agrmnt_status = OKL_API.G_MISS_CHAR ) THEN
822: l_tehv_rec.inv_agrmnt_status := NULL;
823: END IF;
824: IF (l_tehv_rec.chr_operating_unit_name = OKL_API.G_MISS_CHAR ) THEN
825: l_tehv_rec.chr_operating_unit_name := NULL;
826: END IF;
827: IF (l_tehv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
828: l_tehv_rec.transaction_type_name := NULL;
823: END IF;
824: IF (l_tehv_rec.chr_operating_unit_name = OKL_API.G_MISS_CHAR ) THEN
825: l_tehv_rec.chr_operating_unit_name := NULL;
826: END IF;
827: IF (l_tehv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
828: l_tehv_rec.transaction_type_name := NULL;
829: END IF;
830: IF (l_tehv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
831: l_tehv_rec.contract_status_code := NULL;
826: END IF;
827: IF (l_tehv_rec.transaction_type_name = OKL_API.G_MISS_CHAR ) THEN
828: l_tehv_rec.transaction_type_name := NULL;
829: END IF;
830: IF (l_tehv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
831: l_tehv_rec.contract_status_code := NULL;
832: END IF;
833: IF (l_tehv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
834: l_tehv_rec.inv_agrmnt_status_code := NULL;
829: END IF;
830: IF (l_tehv_rec.contract_status_code = OKL_API.G_MISS_CHAR ) THEN
831: l_tehv_rec.contract_status_code := NULL;
832: END IF;
833: IF (l_tehv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
834: l_tehv_rec.inv_agrmnt_status_code := NULL;
835: END IF;
836: IF (l_tehv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
837: l_tehv_rec.trx_type_class_code := NULL;
832: END IF;
833: IF (l_tehv_rec.inv_agrmnt_status_code = OKL_API.G_MISS_CHAR ) THEN
834: l_tehv_rec.inv_agrmnt_status_code := NULL;
835: END IF;
836: IF (l_tehv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
837: l_tehv_rec.trx_type_class_code := NULL;
838: END IF;
839: IF (l_tehv_rec.chr_operating_unit_code = OKL_API.G_MISS_CHAR ) THEN
840: l_tehv_rec.chr_operating_unit_code := NULL;
835: END IF;
836: IF (l_tehv_rec.trx_type_class_code = OKL_API.G_MISS_CHAR ) THEN
837: l_tehv_rec.trx_type_class_code := NULL;
838: END IF;
839: IF (l_tehv_rec.chr_operating_unit_code = OKL_API.G_MISS_CHAR ) THEN
840: l_tehv_rec.chr_operating_unit_code := NULL;
841: END IF;
842: IF (l_tehv_rec.party_id = OKL_API.G_MISS_NUM ) THEN
843: l_tehv_rec.party_id:= NULL;
838: END IF;
839: IF (l_tehv_rec.chr_operating_unit_code = OKL_API.G_MISS_CHAR ) THEN
840: l_tehv_rec.chr_operating_unit_code := NULL;
841: END IF;
842: IF (l_tehv_rec.party_id = OKL_API.G_MISS_NUM ) THEN
843: l_tehv_rec.party_id:= NULL;
844: END IF;
845: IF (l_tehv_rec.cust_account_id = OKL_API.G_MISS_NUM ) THEN
846: l_tehv_rec.cust_account_id := NULL;
841: END IF;
842: IF (l_tehv_rec.party_id = OKL_API.G_MISS_NUM ) THEN
843: l_tehv_rec.party_id:= NULL;
844: END IF;
845: IF (l_tehv_rec.cust_account_id = OKL_API.G_MISS_NUM ) THEN
846: l_tehv_rec.cust_account_id := NULL;
847: END IF;
848: IF (l_tehv_rec.cust_site_use_id = OKL_API.G_MISS_NUM ) THEN
849: l_tehv_rec.cust_site_use_id := NULL;
844: END IF;
845: IF (l_tehv_rec.cust_account_id = OKL_API.G_MISS_NUM ) THEN
846: l_tehv_rec.cust_account_id := NULL;
847: END IF;
848: IF (l_tehv_rec.cust_site_use_id = OKL_API.G_MISS_NUM ) THEN
849: l_tehv_rec.cust_site_use_id := NULL;
850: END IF;
851: RETURN(l_tehv_rec);
852: END null_out_defaults;
856: PROCEDURE validate_header_extension_id(
857: x_return_status OUT NOCOPY VARCHAR2,
858: p_header_extension_id IN NUMBER) IS
859: BEGIN
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
861: IF (p_header_extension_id IS NULL) THEN
862: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
863: x_return_status := OKL_API.G_RET_STS_ERROR;
864: RAISE G_EXCEPTION_HALT_VALIDATION;
858: p_header_extension_id IN NUMBER) IS
859: BEGIN
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
861: IF (p_header_extension_id IS NULL) THEN
862: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
863: x_return_status := OKL_API.G_RET_STS_ERROR;
864: RAISE G_EXCEPTION_HALT_VALIDATION;
865: END IF;
866: EXCEPTION
859: BEGIN
860: x_return_status := OKL_API.G_RET_STS_SUCCESS;
861: IF (p_header_extension_id IS NULL) THEN
862: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'header_extension_id');
863: x_return_status := OKL_API.G_RET_STS_ERROR;
864: RAISE G_EXCEPTION_HALT_VALIDATION;
865: END IF;
866: EXCEPTION
867: WHEN G_EXCEPTION_HALT_VALIDATION THEN
866: EXCEPTION
867: WHEN G_EXCEPTION_HALT_VALIDATION THEN
868: null;
869: WHEN OTHERS THEN
870: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
871: ,p_msg_name => G_UNEXPECTED_ERROR
872: ,p_token1 => G_SQLCODE_TOKEN
873: ,p_token1_value => SQLCODE
874: ,p_token2 => G_SQLERRM_TOKEN
872: ,p_token1 => G_SQLCODE_TOKEN
873: ,p_token1_value => SQLCODE
874: ,p_token2 => G_SQLERRM_TOKEN
875: ,p_token2_value => SQLERRM);
876: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
877: END validate_header_extension_id;
878: ----------------------------------------
879: -- Validate_Attributes for: SOURCE_ID --
880: ----------------------------------------
881: PROCEDURE validate_source_id(
882: x_return_status OUT NOCOPY VARCHAR2,
883: p_source_id IN NUMBER) IS
884: BEGIN
885: x_return_status := OKL_API.G_RET_STS_SUCCESS;
886: IF (p_source_id IS NULL) THEN
887: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
888: x_return_status := OKL_API.G_RET_STS_ERROR;
889: RAISE G_EXCEPTION_HALT_VALIDATION;
883: p_source_id IN NUMBER) IS
884: BEGIN
885: x_return_status := OKL_API.G_RET_STS_SUCCESS;
886: IF (p_source_id IS NULL) THEN
887: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
888: x_return_status := OKL_API.G_RET_STS_ERROR;
889: RAISE G_EXCEPTION_HALT_VALIDATION;
890: END IF;
891: EXCEPTION
884: BEGIN
885: x_return_status := OKL_API.G_RET_STS_SUCCESS;
886: IF (p_source_id IS NULL) THEN
887: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'source_id');
888: x_return_status := OKL_API.G_RET_STS_ERROR;
889: RAISE G_EXCEPTION_HALT_VALIDATION;
890: END IF;
891: EXCEPTION
892: WHEN G_EXCEPTION_HALT_VALIDATION THEN
891: EXCEPTION
892: WHEN G_EXCEPTION_HALT_VALIDATION THEN
893: null;
894: WHEN OTHERS THEN
895: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
896: ,p_msg_name => G_UNEXPECTED_ERROR
897: ,p_token1 => G_SQLCODE_TOKEN
898: ,p_token1_value => SQLCODE
899: ,p_token2 => G_SQLERRM_TOKEN
897: ,p_token1 => G_SQLCODE_TOKEN
898: ,p_token1_value => SQLCODE
899: ,p_token2 => G_SQLERRM_TOKEN
900: ,p_token2_value => SQLERRM);
901: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
902: END validate_source_id;
903: ----------------------------------------------------
904: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
905: ----------------------------------------------------
906: PROCEDURE validate_object_version_number(
907: x_return_status OUT NOCOPY VARCHAR2,
908: p_object_version_number IN NUMBER) IS
909: BEGIN
910: x_return_status := OKL_API.G_RET_STS_SUCCESS;
911: IF (p_object_version_number IS NULL) THEN
912: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
913: x_return_status := OKL_API.G_RET_STS_ERROR;
914: RAISE G_EXCEPTION_HALT_VALIDATION;
908: p_object_version_number IN NUMBER) IS
909: BEGIN
910: x_return_status := OKL_API.G_RET_STS_SUCCESS;
911: IF (p_object_version_number IS NULL) THEN
912: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
913: x_return_status := OKL_API.G_RET_STS_ERROR;
914: RAISE G_EXCEPTION_HALT_VALIDATION;
915: END IF;
916: EXCEPTION
909: BEGIN
910: x_return_status := OKL_API.G_RET_STS_SUCCESS;
911: IF (p_object_version_number IS NULL) THEN
912: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
913: x_return_status := OKL_API.G_RET_STS_ERROR;
914: RAISE G_EXCEPTION_HALT_VALIDATION;
915: END IF;
916: EXCEPTION
917: WHEN G_EXCEPTION_HALT_VALIDATION THEN
916: EXCEPTION
917: WHEN G_EXCEPTION_HALT_VALIDATION THEN
918: null;
919: WHEN OTHERS THEN
920: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
921: ,p_msg_name => G_UNEXPECTED_ERROR
922: ,p_token1 => G_SQLCODE_TOKEN
923: ,p_token1_value => SQLCODE
924: ,p_token2 => G_SQLERRM_TOKEN
922: ,p_token1 => G_SQLCODE_TOKEN
923: ,p_token1_value => SQLCODE
924: ,p_token2 => G_SQLERRM_TOKEN
925: ,p_token2_value => SQLERRM);
926: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
927: END validate_object_version_number;
928: ---------------------------------------
929: -- Validate_Attributes for: LANGUAGE --
930: ---------------------------------------
931: PROCEDURE validate_language(
932: x_return_status OUT NOCOPY VARCHAR2,
933: p_language IN VARCHAR2) IS
934: BEGIN
935: x_return_status := OKL_API.G_RET_STS_SUCCESS;
936: IF (p_language IS NULL) THEN
937: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
938: x_return_status := OKL_API.G_RET_STS_ERROR;
939: RAISE G_EXCEPTION_HALT_VALIDATION;
933: p_language IN VARCHAR2) IS
934: BEGIN
935: x_return_status := OKL_API.G_RET_STS_SUCCESS;
936: IF (p_language IS NULL) THEN
937: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
938: x_return_status := OKL_API.G_RET_STS_ERROR;
939: RAISE G_EXCEPTION_HALT_VALIDATION;
940: END IF;
941: EXCEPTION
934: BEGIN
935: x_return_status := OKL_API.G_RET_STS_SUCCESS;
936: IF (p_language IS NULL) THEN
937: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'language');
938: x_return_status := OKL_API.G_RET_STS_ERROR;
939: RAISE G_EXCEPTION_HALT_VALIDATION;
940: END IF;
941: EXCEPTION
942: WHEN G_EXCEPTION_HALT_VALIDATION THEN
941: EXCEPTION
942: WHEN G_EXCEPTION_HALT_VALIDATION THEN
943: null;
944: WHEN OTHERS THEN
945: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
946: ,p_msg_name => G_UNEXPECTED_ERROR
947: ,p_token1 => G_SQLCODE_TOKEN
948: ,p_token1_value => SQLCODE
949: ,p_token2 => G_SQLERRM_TOKEN
947: ,p_token1 => G_SQLCODE_TOKEN
948: ,p_token1_value => SQLCODE
949: ,p_token2 => G_SQLERRM_TOKEN
950: ,p_token2_value => SQLERRM);
951: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
952: END validate_language;
953: ----------------------------------------------------
954: -- Validate_Attributes for: party_id --
955: ----------------------------------------------------
1095: -------------------------------------------------
1096: FUNCTION Validate_Attributes (
1097: p_tehv_rec IN tehv_rec_type
1098: ) RETURN VARCHAR2 IS
1099: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1100: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1101: BEGIN
1102: -----------------------------
1103: -- Column Level Validation --
1096: FUNCTION Validate_Attributes (
1097: p_tehv_rec IN tehv_rec_type
1098: ) RETURN VARCHAR2 IS
1099: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1100: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1101: BEGIN
1102: -----------------------------
1103: -- Column Level Validation --
1104: -----------------------------
1105: -- ***
1106: -- header_extension_id
1107: -- ***
1108: validate_header_extension_id(x_return_status, p_tehv_rec.header_extension_id);
1109: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1110: l_return_status := x_return_status;
1111: RAISE G_EXCEPTION_HALT_VALIDATION;
1112: END IF;
1113:
1114: -- ***
1115: -- source_id
1116: -- ***
1117: validate_source_id(x_return_status, p_tehv_rec.source_id);
1118: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1119: l_return_status := x_return_status;
1120: RAISE G_EXCEPTION_HALT_VALIDATION;
1121: END IF;
1122:
1123: -- ***
1124: -- object_version_number
1125: -- ***
1126: validate_object_version_number(x_return_status, p_tehv_rec.object_version_number);
1127: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1128: l_return_status := x_return_status;
1129: RAISE G_EXCEPTION_HALT_VALIDATION;
1130: END IF;
1131:
1132: -- ***
1133: -- language
1134: -- ***
1135: validate_party(x_return_status, p_tehv_rec.party_id);
1136: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1137: l_return_status := x_return_status;
1138: RAISE G_EXCEPTION_HALT_VALIDATION;
1139: END IF;
1140: validate_cust_account(x_return_status, p_tehv_rec.cust_account_id);
1137: l_return_status := x_return_status;
1138: RAISE G_EXCEPTION_HALT_VALIDATION;
1139: END IF;
1140: validate_cust_account(x_return_status, p_tehv_rec.cust_account_id);
1141: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1142: l_return_status := x_return_status;
1143: RAISE G_EXCEPTION_HALT_VALIDATION;
1144: END IF;
1145: validate_cust_site_use(x_return_status, p_tehv_rec.cust_site_use_id);
1142: l_return_status := x_return_status;
1143: RAISE G_EXCEPTION_HALT_VALIDATION;
1144: END IF;
1145: validate_cust_site_use(x_return_status, p_tehv_rec.cust_site_use_id);
1146: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1147: l_return_status := x_return_status;
1148: RAISE G_EXCEPTION_HALT_VALIDATION;
1149: END IF;
1150:
1152: EXCEPTION
1153: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1154: RETURN(l_return_status);
1155: WHEN OTHERS THEN
1156: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1157: ,p_msg_name => G_UNEXPECTED_ERROR
1158: ,p_token1 => G_SQLCODE_TOKEN
1159: ,p_token1_value => SQLCODE
1160: ,p_token2 => G_SQLERRM_TOKEN
1158: ,p_token1 => G_SQLCODE_TOKEN
1159: ,p_token1_value => SQLCODE
1160: ,p_token2 => G_SQLERRM_TOKEN
1161: ,p_token2_value => SQLERRM);
1162: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1163: RETURN(l_return_status);
1164: END Validate_Attributes;
1165: ---------------------------------------------------------------------------
1166: -- PROCEDURE Validate_Record
1171: FUNCTION Validate_Record (
1172: p_tehv_rec IN tehv_rec_type,
1173: p_db_tehv_rec IN tehv_rec_type
1174: ) RETURN VARCHAR2 IS
1175: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1176: BEGIN
1177: RETURN (l_return_status);
1178: END Validate_Record;
1179: FUNCTION Validate_Record (
1178: END Validate_Record;
1179: FUNCTION Validate_Record (
1180: p_tehv_rec IN tehv_rec_type
1181: ) RETURN VARCHAR2 IS
1182: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1183: l_db_tehv_rec tehv_rec_type := get_rec(p_tehv_rec);
1184: BEGIN
1185: l_return_status := Validate_Record(p_tehv_rec => p_tehv_rec,
1186: p_db_tehv_rec => l_db_tehv_rec);
1373: -- validate_row for:OKL_TRX_EXTENSION_V --
1374: ------------------------------------------
1375: PROCEDURE validate_row(
1376: p_api_version IN NUMBER,
1377: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1378: x_return_status OUT NOCOPY VARCHAR2,
1379: x_msg_count OUT NOCOPY NUMBER,
1380: x_msg_data OUT NOCOPY VARCHAR2,
1381: p_tehv_rec IN tehv_rec_type) IS
1381: p_tehv_rec IN tehv_rec_type) IS
1382:
1383: l_api_version CONSTANT NUMBER := 1;
1384: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1385: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1386: l_tehv_rec tehv_rec_type := p_tehv_rec;
1387: l_teh_rec teh_rec_type;
1388: l_tehl_rec tehl_rec_type;
1389: BEGIN
1386: l_tehv_rec tehv_rec_type := p_tehv_rec;
1387: l_teh_rec teh_rec_type;
1388: l_tehl_rec tehl_rec_type;
1389: BEGIN
1390: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1391: G_PKG_NAME,
1392: p_init_msg_list,
1393: l_api_version,
1394: p_api_version,
1393: l_api_version,
1394: p_api_version,
1395: '_PVT',
1396: x_return_status);
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1400: RAISE OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1394: p_api_version,
1395: '_PVT',
1396: x_return_status);
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1400: RAISE OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: --- Validate all non-missing attributes (Item Level Validation)
1395: '_PVT',
1396: x_return_status);
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1400: RAISE OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: --- Validate all non-missing attributes (Item Level Validation)
1403: l_return_status := Validate_Attributes(l_tehv_rec);
1396: x_return_status);
1397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1400: RAISE OKL_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: --- Validate all non-missing attributes (Item Level Validation)
1403: l_return_status := Validate_Attributes(l_tehv_rec);
1404: --- If any errors happen abort API
1401: END IF;
1402: --- Validate all non-missing attributes (Item Level Validation)
1403: l_return_status := Validate_Attributes(l_tehv_rec);
1404: --- If any errors happen abort API
1405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1408: RAISE OKL_API.G_EXCEPTION_ERROR;
1409: END IF;
1402: --- Validate all non-missing attributes (Item Level Validation)
1403: l_return_status := Validate_Attributes(l_tehv_rec);
1404: --- If any errors happen abort API
1405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1408: RAISE OKL_API.G_EXCEPTION_ERROR;
1409: END IF;
1410: l_return_status := Validate_Record(l_tehv_rec);
1403: l_return_status := Validate_Attributes(l_tehv_rec);
1404: --- If any errors happen abort API
1405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1408: RAISE OKL_API.G_EXCEPTION_ERROR;
1409: END IF;
1410: l_return_status := Validate_Record(l_tehv_rec);
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1404: --- If any errors happen abort API
1405: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1408: RAISE OKL_API.G_EXCEPTION_ERROR;
1409: END IF;
1410: l_return_status := Validate_Record(l_tehv_rec);
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1407: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1408: RAISE OKL_API.G_EXCEPTION_ERROR;
1409: END IF;
1410: l_return_status := Validate_Record(l_tehv_rec);
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1408: RAISE OKL_API.G_EXCEPTION_ERROR;
1409: END IF;
1410: l_return_status := Validate_Record(l_tehv_rec);
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416: x_return_status := l_return_status;
1409: END IF;
1410: l_return_status := Validate_Record(l_tehv_rec);
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416: x_return_status := l_return_status;
1417: EXCEPTION
1410: l_return_status := Validate_Record(l_tehv_rec);
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416: x_return_status := l_return_status;
1417: EXCEPTION
1418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416: x_return_status := l_return_status;
1417: EXCEPTION
1418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1419: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1420: (
1421: l_api_name,
1422: G_PKG_NAME,
1415: END IF;
1416: x_return_status := l_return_status;
1417: EXCEPTION
1418: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1419: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1420: (
1421: l_api_name,
1422: G_PKG_NAME,
1423: 'OKL_API.G_RET_STS_ERROR',
1419: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1420: (
1421: l_api_name,
1422: G_PKG_NAME,
1423: 'OKL_API.G_RET_STS_ERROR',
1424: x_msg_count,
1425: x_msg_data,
1426: '_PVT'
1427: );
1424: x_msg_count,
1425: x_msg_data,
1426: '_PVT'
1427: );
1428: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1429: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1430: (
1431: l_api_name,
1432: G_PKG_NAME,
1425: x_msg_data,
1426: '_PVT'
1427: );
1428: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1429: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1430: (
1431: l_api_name,
1432: G_PKG_NAME,
1433: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1429: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1430: (
1431: l_api_name,
1432: G_PKG_NAME,
1433: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1434: x_msg_count,
1435: x_msg_data,
1436: '_PVT'
1437: );
1435: x_msg_data,
1436: '_PVT'
1437: );
1438: WHEN OTHERS THEN
1439: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1440: (
1441: l_api_name,
1442: G_PKG_NAME,
1443: 'OTHERS',
1450: -- PL/SQL TBL validate_row for:OKL_TRX_EXTENSION_V --
1451: -----------------------------------------------------
1452: PROCEDURE validate_row(
1453: p_api_version IN NUMBER,
1454: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1455: x_return_status OUT NOCOPY VARCHAR2,
1456: x_msg_count OUT NOCOPY NUMBER,
1457: x_msg_data OUT NOCOPY VARCHAR2,
1458: p_tehv_tbl IN tehv_tbl_type,
1455: x_return_status OUT NOCOPY VARCHAR2,
1456: x_msg_count OUT NOCOPY NUMBER,
1457: x_msg_data OUT NOCOPY VARCHAR2,
1458: p_tehv_tbl IN tehv_tbl_type,
1459: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1460:
1461: l_api_version CONSTANT NUMBER := 1;
1462: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1463: i NUMBER := 0;
1461: l_api_version CONSTANT NUMBER := 1;
1462: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1463: i NUMBER := 0;
1464: BEGIN
1465: OKL_API.init_msg_list(p_init_msg_list);
1466: -- Make sure PL/SQL table has records in it before passing
1467: IF (p_tehv_tbl.COUNT > 0) THEN
1468: i := p_tehv_tbl.FIRST;
1469: LOOP
1467: IF (p_tehv_tbl.COUNT > 0) THEN
1468: i := p_tehv_tbl.FIRST;
1469: LOOP
1470: DECLARE
1471: l_error_rec OKL_API.ERROR_REC_TYPE;
1472: BEGIN
1473: l_error_rec.api_name := l_api_name;
1474: l_error_rec.api_package := G_PKG_NAME;
1475: l_error_rec.idx := i;
1474: l_error_rec.api_package := G_PKG_NAME;
1475: l_error_rec.idx := i;
1476: validate_row (
1477: p_api_version => p_api_version,
1478: p_init_msg_list => OKL_API.G_FALSE,
1479: x_return_status => l_error_rec.error_type,
1480: x_msg_count => l_error_rec.msg_count,
1481: x_msg_data => l_error_rec.msg_data,
1482: p_tehv_rec => p_tehv_tbl(i));
1479: x_return_status => l_error_rec.error_type,
1480: x_msg_count => l_error_rec.msg_count,
1481: x_msg_data => l_error_rec.msg_data,
1482: p_tehv_rec => p_tehv_tbl(i));
1483: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1484: l_error_rec.sqlcode := SQLCODE;
1485: load_error_tbl(l_error_rec, px_error_tbl);
1486: ELSE
1487: x_msg_count := l_error_rec.msg_count;
1487: x_msg_count := l_error_rec.msg_count;
1488: x_msg_data := l_error_rec.msg_data;
1489: END IF;
1490: EXCEPTION
1491: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1492: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1493: l_error_rec.sqlcode := SQLCODE;
1494: load_error_tbl(l_error_rec, px_error_tbl);
1495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: x_msg_data := l_error_rec.msg_data;
1489: END IF;
1490: EXCEPTION
1491: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1492: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1493: l_error_rec.sqlcode := SQLCODE;
1494: load_error_tbl(l_error_rec, px_error_tbl);
1495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1496: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1491: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1492: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1493: l_error_rec.sqlcode := SQLCODE;
1494: load_error_tbl(l_error_rec, px_error_tbl);
1495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1496: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1497: l_error_rec.sqlcode := SQLCODE;
1498: load_error_tbl(l_error_rec, px_error_tbl);
1499: WHEN OTHERS THEN
1492: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1493: l_error_rec.sqlcode := SQLCODE;
1494: load_error_tbl(l_error_rec, px_error_tbl);
1495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1496: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1497: l_error_rec.sqlcode := SQLCODE;
1498: load_error_tbl(l_error_rec, px_error_tbl);
1499: WHEN OTHERS THEN
1500: l_error_rec.error_type := 'OTHERS';
1507: END IF;
1508: -- Loop through the error_tbl to find the error with the highest severity
1509: -- and return it.
1510: x_return_status := find_highest_exception(px_error_tbl);
1511: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1512: EXCEPTION
1513: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1515: (
1509: -- and return it.
1510: x_return_status := find_highest_exception(px_error_tbl);
1511: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1512: EXCEPTION
1513: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1515: (
1516: l_api_name,
1517: G_PKG_NAME,
1510: x_return_status := find_highest_exception(px_error_tbl);
1511: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1512: EXCEPTION
1513: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1515: (
1516: l_api_name,
1517: G_PKG_NAME,
1518: 'OKL_API.G_RET_STS_ERROR',
1514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1515: (
1516: l_api_name,
1517: G_PKG_NAME,
1518: 'OKL_API.G_RET_STS_ERROR',
1519: x_msg_count,
1520: x_msg_data,
1521: '_PVT'
1522: );
1519: x_msg_count,
1520: x_msg_data,
1521: '_PVT'
1522: );
1523: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1524: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1525: (
1526: l_api_name,
1527: G_PKG_NAME,
1520: x_msg_data,
1521: '_PVT'
1522: );
1523: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1524: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1525: (
1526: l_api_name,
1527: G_PKG_NAME,
1528: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1524: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1525: (
1526: l_api_name,
1527: G_PKG_NAME,
1528: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1529: x_msg_count,
1530: x_msg_data,
1531: '_PVT'
1532: );
1530: x_msg_data,
1531: '_PVT'
1532: );
1533: WHEN OTHERS THEN
1534: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1535: (
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OTHERS',
1546: -- PL/SQL TBL validate_row for:OKL_TRX_EXTENSION_V --
1547: -----------------------------------------------------
1548: PROCEDURE validate_row(
1549: p_api_version IN NUMBER,
1550: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1551: x_return_status OUT NOCOPY VARCHAR2,
1552: x_msg_count OUT NOCOPY NUMBER,
1553: x_msg_data OUT NOCOPY VARCHAR2,
1554: p_tehv_tbl IN tehv_tbl_type) IS
1554: p_tehv_tbl IN tehv_tbl_type) IS
1555:
1556: l_api_version CONSTANT NUMBER := 1;
1557: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1558: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1559: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1560: BEGIN
1561: OKL_API.init_msg_list(p_init_msg_list);
1562: -- Make sure PL/SQL table has records in it before passing
1555:
1556: l_api_version CONSTANT NUMBER := 1;
1557: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1558: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1559: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1560: BEGIN
1561: OKL_API.init_msg_list(p_init_msg_list);
1562: -- Make sure PL/SQL table has records in it before passing
1563: IF (p_tehv_tbl.COUNT > 0) THEN
1557: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1558: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1559: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1560: BEGIN
1561: OKL_API.init_msg_list(p_init_msg_list);
1562: -- Make sure PL/SQL table has records in it before passing
1563: IF (p_tehv_tbl.COUNT > 0) THEN
1564: validate_row (
1565: p_api_version => p_api_version,
1562: -- Make sure PL/SQL table has records in it before passing
1563: IF (p_tehv_tbl.COUNT > 0) THEN
1564: validate_row (
1565: p_api_version => p_api_version,
1566: p_init_msg_list => OKL_API.G_FALSE,
1567: x_return_status => x_return_status,
1568: x_msg_count => x_msg_count,
1569: x_msg_data => x_msg_data,
1570: p_tehv_tbl => p_tehv_tbl,
1569: x_msg_data => x_msg_data,
1570: p_tehv_tbl => p_tehv_tbl,
1571: px_error_tbl => l_error_tbl);
1572: END IF;
1573: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1574: EXCEPTION
1575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1577: (
1571: px_error_tbl => l_error_tbl);
1572: END IF;
1573: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1574: EXCEPTION
1575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1577: (
1578: l_api_name,
1579: G_PKG_NAME,
1572: END IF;
1573: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1574: EXCEPTION
1575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1577: (
1578: l_api_name,
1579: G_PKG_NAME,
1580: 'OKL_API.G_RET_STS_ERROR',
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1577: (
1578: l_api_name,
1579: G_PKG_NAME,
1580: 'OKL_API.G_RET_STS_ERROR',
1581: x_msg_count,
1582: x_msg_data,
1583: '_PVT'
1584: );
1581: x_msg_count,
1582: x_msg_data,
1583: '_PVT'
1584: );
1585: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1586: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1587: (
1588: l_api_name,
1589: G_PKG_NAME,
1582: x_msg_data,
1583: '_PVT'
1584: );
1585: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1586: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1587: (
1588: l_api_name,
1589: G_PKG_NAME,
1590: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1586: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1587: (
1588: l_api_name,
1589: G_PKG_NAME,
1590: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1591: x_msg_count,
1592: x_msg_data,
1593: '_PVT'
1594: );
1592: x_msg_data,
1593: '_PVT'
1594: );
1595: WHEN OTHERS THEN
1596: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1597: (
1598: l_api_name,
1599: G_PKG_NAME,
1600: 'OTHERS',
1610: ----------------------------------------
1611: -- insert_row for:OKL_TRX_EXTENSION_B --
1612: ----------------------------------------
1613: PROCEDURE insert_row(
1614: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1615: x_return_status OUT NOCOPY VARCHAR2,
1616: x_msg_count OUT NOCOPY NUMBER,
1617: x_msg_data OUT NOCOPY VARCHAR2,
1618: p_teh_rec IN teh_rec_type,
1619: x_teh_rec OUT NOCOPY teh_rec_type) IS
1620:
1621: l_api_version CONSTANT NUMBER := 1;
1622: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1623: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1624: l_teh_rec teh_rec_type := p_teh_rec;
1625: l_def_teh_rec teh_rec_type;
1626: --------------------------------------------
1627: -- Set_Attributes for:OKL_TRX_EXTENSION_B --
1629: FUNCTION Set_Attributes (
1630: p_teh_rec IN teh_rec_type,
1631: x_teh_rec OUT NOCOPY teh_rec_type
1632: ) RETURN VARCHAR2 IS
1633: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1634: BEGIN
1635: x_teh_rec := p_teh_rec;
1636: RETURN(l_return_status);
1637: END Set_Attributes;
1635: x_teh_rec := p_teh_rec;
1636: RETURN(l_return_status);
1637: END Set_Attributes;
1638: BEGIN
1639: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1640: p_init_msg_list,
1641: '_PVT',
1642: x_return_status);
1643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1639: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1640: p_init_msg_list,
1641: '_PVT',
1642: x_return_status);
1643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1646: RAISE OKL_API.G_EXCEPTION_ERROR;
1647: END IF;
1640: p_init_msg_list,
1641: '_PVT',
1642: x_return_status);
1643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1646: RAISE OKL_API.G_EXCEPTION_ERROR;
1647: END IF;
1648: --- Setting item atributes
1641: '_PVT',
1642: x_return_status);
1643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1646: RAISE OKL_API.G_EXCEPTION_ERROR;
1647: END IF;
1648: --- Setting item atributes
1649: l_return_status := Set_Attributes(
1642: x_return_status);
1643: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1646: RAISE OKL_API.G_EXCEPTION_ERROR;
1647: END IF;
1648: --- Setting item atributes
1649: l_return_status := Set_Attributes(
1650: l_teh_rec, -- IN
1649: l_return_status := Set_Attributes(
1650: l_teh_rec, -- IN
1651: l_def_teh_rec); -- OUT
1652: --- If any errors happen abort API
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1650: l_teh_rec, -- IN
1651: l_def_teh_rec); -- OUT
1652: --- If any errors happen abort API
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: INSERT INTO OKL_TRX_EXTENSION_B(
1651: l_def_teh_rec); -- OUT
1652: --- If any errors happen abort API
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: INSERT INTO OKL_TRX_EXTENSION_B(
1659: header_extension_id,
1652: --- If any errors happen abort API
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: INSERT INTO OKL_TRX_EXTENSION_B(
1659: header_extension_id,
1660: source_id,
1789: l_def_teh_rec.cust_site_use_id);
1790: -- Set OUT values
1791: x_teh_rec := l_def_teh_rec;
1792: x_return_status := l_return_status;
1793: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1794: EXCEPTION
1795: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1796: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1797: (
1791: x_teh_rec := l_def_teh_rec;
1792: x_return_status := l_return_status;
1793: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1794: EXCEPTION
1795: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1796: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1797: (
1798: l_api_name,
1799: G_PKG_NAME,
1792: x_return_status := l_return_status;
1793: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1794: EXCEPTION
1795: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1796: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1797: (
1798: l_api_name,
1799: G_PKG_NAME,
1800: 'OKL_API.G_RET_STS_ERROR',
1796: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1797: (
1798: l_api_name,
1799: G_PKG_NAME,
1800: 'OKL_API.G_RET_STS_ERROR',
1801: x_msg_count,
1802: x_msg_data,
1803: '_PVT'
1804: );
1801: x_msg_count,
1802: x_msg_data,
1803: '_PVT'
1804: );
1805: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1806: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1807: (
1808: l_api_name,
1809: G_PKG_NAME,
1802: x_msg_data,
1803: '_PVT'
1804: );
1805: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1806: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1807: (
1808: l_api_name,
1809: G_PKG_NAME,
1810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1806: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1807: (
1808: l_api_name,
1809: G_PKG_NAME,
1810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1811: x_msg_count,
1812: x_msg_data,
1813: '_PVT'
1814: );
1812: x_msg_data,
1813: '_PVT'
1814: );
1815: WHEN OTHERS THEN
1816: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1817: (
1818: l_api_name,
1819: G_PKG_NAME,
1820: 'OTHERS',
1826: -----------------------------------------
1827: -- insert_row for:OKL_TRX_EXTENSION_TL --
1828: -----------------------------------------
1829: PROCEDURE insert_row(
1830: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1831: x_return_status OUT NOCOPY VARCHAR2,
1832: x_msg_count OUT NOCOPY NUMBER,
1833: x_msg_data OUT NOCOPY VARCHAR2,
1834: p_tehl_rec IN tehl_rec_type,
1835: x_tehl_rec OUT NOCOPY tehl_rec_type) IS
1836:
1837: l_api_version CONSTANT NUMBER := 1;
1838: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1839: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1840: l_tehl_rec tehl_rec_type := p_tehl_rec;
1841: l_def_tehl_rec tehl_rec_type;
1842: /*CURSOR get_languages IS
1843: SELECT *
1849: FUNCTION Set_Attributes (
1850: p_tehl_rec IN tehl_rec_type,
1851: x_tehl_rec OUT NOCOPY tehl_rec_type
1852: ) RETURN VARCHAR2 IS
1853: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1854: BEGIN
1855: x_tehl_rec := p_tehl_rec;
1856: --x_tehl_rec.LANGUAGE := USERENV('LANG');
1857: x_tehl_rec.SOURCE_LANG := USERENV('LANG');
1858: x_tehl_rec.SFWT_FLAG := 'N';
1859: RETURN(l_return_status);
1860: END Set_Attributes;
1861: BEGIN
1862: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1863: p_init_msg_list,
1864: '_PVT',
1865: x_return_status);
1866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1862: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1863: p_init_msg_list,
1864: '_PVT',
1865: x_return_status);
1866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1869: RAISE OKL_API.G_EXCEPTION_ERROR;
1870: END IF;
1863: p_init_msg_list,
1864: '_PVT',
1865: x_return_status);
1866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1869: RAISE OKL_API.G_EXCEPTION_ERROR;
1870: END IF;
1871: --- Setting item attributes
1864: '_PVT',
1865: x_return_status);
1866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1869: RAISE OKL_API.G_EXCEPTION_ERROR;
1870: END IF;
1871: --- Setting item attributes
1872: l_return_status := Set_Attributes(
1865: x_return_status);
1866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1869: RAISE OKL_API.G_EXCEPTION_ERROR;
1870: END IF;
1871: --- Setting item attributes
1872: l_return_status := Set_Attributes(
1873: p_tehl_rec, -- IN
1872: l_return_status := Set_Attributes(
1873: p_tehl_rec, -- IN
1874: l_tehl_rec); -- OUT
1875: --- If any errors happen abort API
1876: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1878: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1879: RAISE OKL_API.G_EXCEPTION_ERROR;
1880: END IF;
1873: p_tehl_rec, -- IN
1874: l_tehl_rec); -- OUT
1875: --- If any errors happen abort API
1876: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1878: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1879: RAISE OKL_API.G_EXCEPTION_ERROR;
1880: END IF;
1881: /*FOR l_lang_rec IN get_languages LOOP
1874: l_tehl_rec); -- OUT
1875: --- If any errors happen abort API
1876: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1878: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1879: RAISE OKL_API.G_EXCEPTION_ERROR;
1880: END IF;
1881: /*FOR l_lang_rec IN get_languages LOOP
1882: l_tehl_rec.language := l_lang_rec.language_code;*/
1875: --- If any errors happen abort API
1876: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1878: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1879: RAISE OKL_API.G_EXCEPTION_ERROR;
1880: END IF;
1881: /*FOR l_lang_rec IN get_languages LOOP
1882: l_tehl_rec.language := l_lang_rec.language_code;*/
1883: INSERT INTO OKL_TRX_EXTENSION_TL(
1911: --END LOOP;
1912: -- Set OUT values
1913: x_tehl_rec := l_tehl_rec;
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1916: EXCEPTION
1917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1913: x_tehl_rec := l_tehl_rec;
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1916: EXCEPTION
1917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1920: l_api_name,
1921: G_PKG_NAME,
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1916: EXCEPTION
1917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1920: l_api_name,
1921: G_PKG_NAME,
1922: 'OKL_API.G_RET_STS_ERROR',
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1920: l_api_name,
1921: G_PKG_NAME,
1922: 'OKL_API.G_RET_STS_ERROR',
1923: x_msg_count,
1924: x_msg_data,
1925: '_PVT'
1926: );
1923: x_msg_count,
1924: x_msg_data,
1925: '_PVT'
1926: );
1927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1929: (
1930: l_api_name,
1931: G_PKG_NAME,
1924: x_msg_data,
1925: '_PVT'
1926: );
1927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1929: (
1930: l_api_name,
1931: G_PKG_NAME,
1932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1929: (
1930: l_api_name,
1931: G_PKG_NAME,
1932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1933: x_msg_count,
1934: x_msg_data,
1935: '_PVT'
1936: );
1934: x_msg_data,
1935: '_PVT'
1936: );
1937: WHEN OTHERS THEN
1938: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1939: (
1940: l_api_name,
1941: G_PKG_NAME,
1942: 'OTHERS',
1949: -- insert_row for :OKL_TRX_EXTENSION_B --
1950: -----------------------------------------
1951: PROCEDURE insert_row(
1952: p_api_version IN NUMBER,
1953: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1954: x_return_status OUT NOCOPY VARCHAR2,
1955: x_msg_count OUT NOCOPY NUMBER,
1956: x_msg_data OUT NOCOPY VARCHAR2,
1957: p_tehv_rec IN tehv_rec_type,
1958: x_tehv_rec OUT NOCOPY tehv_rec_type) IS
1959:
1960: l_api_version CONSTANT NUMBER := 1;
1961: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1962: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1963: l_tehv_rec tehv_rec_type := p_tehv_rec;
1964: l_def_tehv_rec tehv_rec_type;
1965: l_teh_rec teh_rec_type;
1966: lx_teh_rec teh_rec_type;
1987: FUNCTION Set_Attributes (
1988: p_tehv_rec IN tehv_rec_type,
1989: x_tehv_rec OUT NOCOPY tehv_rec_type
1990: ) RETURN VARCHAR2 IS
1991: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1992: BEGIN
1993: x_tehv_rec := p_tehv_rec;
1994: x_tehv_rec.OBJECT_VERSION_NUMBER := 1;
1995: RETURN(l_return_status);
1994: x_tehv_rec.OBJECT_VERSION_NUMBER := 1;
1995: RETURN(l_return_status);
1996: END Set_Attributes;
1997: BEGIN
1998: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1999: G_PKG_NAME,
2000: p_init_msg_list,
2001: l_api_version,
2002: p_api_version,
2001: l_api_version,
2002: p_api_version,
2003: '_PVT',
2004: x_return_status);
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2002: p_api_version,
2003: '_PVT',
2004: x_return_status);
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: l_tehv_rec := null_out_defaults(p_tehv_rec);
2003: '_PVT',
2004: x_return_status);
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: l_tehv_rec := null_out_defaults(p_tehv_rec);
2011: -- Set primary key value
2004: x_return_status);
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: l_tehv_rec := null_out_defaults(p_tehv_rec);
2011: -- Set primary key value
2012: l_tehv_rec.HEADER_EXTENSION_ID := get_seq_id;
2014: l_return_Status := Set_Attributes(
2015: l_tehv_rec, -- IN
2016: l_def_tehv_rec); -- OUT
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2021: RAISE OKL_API.G_EXCEPTION_ERROR;
2022: END IF;
2015: l_tehv_rec, -- IN
2016: l_def_tehv_rec); -- OUT
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2021: RAISE OKL_API.G_EXCEPTION_ERROR;
2022: END IF;
2023: l_def_tehv_rec := fill_who_columns(l_def_tehv_rec);
2016: l_def_tehv_rec); -- OUT
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2021: RAISE OKL_API.G_EXCEPTION_ERROR;
2022: END IF;
2023: l_def_tehv_rec := fill_who_columns(l_def_tehv_rec);
2024: --- Validate all non-missing attributes (Item Level Validation)
2017: --- If any errors happen abort API
2018: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2021: RAISE OKL_API.G_EXCEPTION_ERROR;
2022: END IF;
2023: l_def_tehv_rec := fill_who_columns(l_def_tehv_rec);
2024: --- Validate all non-missing attributes (Item Level Validation)
2025: l_return_status := Validate_Attributes(l_def_tehv_rec);
2023: l_def_tehv_rec := fill_who_columns(l_def_tehv_rec);
2024: --- Validate all non-missing attributes (Item Level Validation)
2025: l_return_status := Validate_Attributes(l_def_tehv_rec);
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2024: --- Validate all non-missing attributes (Item Level Validation)
2025: l_return_status := Validate_Attributes(l_def_tehv_rec);
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_tehv_rec);
2025: l_return_status := Validate_Attributes(l_def_tehv_rec);
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_tehv_rec);
2033: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2026: --- If any errors happen abort API
2027: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_tehv_rec);
2033: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_tehv_rec);
2033: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2030: RAISE OKL_API.G_EXCEPTION_ERROR;
2031: END IF;
2032: l_return_status := Validate_Record(l_def_tehv_rec);
2033: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2038: -----------------------------------------
2031: END IF;
2032: l_return_status := Validate_Record(l_def_tehv_rec);
2033: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2038: -----------------------------------------
2039: -- Move VIEW record to "Child" records --
2032: l_return_status := Validate_Record(l_def_tehv_rec);
2033: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2035: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2036: RAISE OKL_API.G_EXCEPTION_ERROR;
2037: END IF;
2038: -----------------------------------------
2039: -- Move VIEW record to "Child" records --
2040: -----------------------------------------
2050: x_msg_data,
2051: l_teh_rec,
2052: lx_teh_rec
2053: );
2054: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2057: RAISE OKL_API.G_EXCEPTION_ERROR;
2058: END IF;
2051: l_teh_rec,
2052: lx_teh_rec
2053: );
2054: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2057: RAISE OKL_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: migrate(lx_teh_rec, l_def_tehv_rec);
2052: lx_teh_rec
2053: );
2054: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2057: RAISE OKL_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: migrate(lx_teh_rec, l_def_tehv_rec);
2060: insert_row(
2053: );
2054: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2056: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2057: RAISE OKL_API.G_EXCEPTION_ERROR;
2058: END IF;
2059: migrate(lx_teh_rec, l_def_tehv_rec);
2060: insert_row(
2061: p_init_msg_list,
2064: x_msg_data,
2065: l_tehl_rec,
2066: lx_tehl_rec
2067: );
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2065: l_tehl_rec,
2066: lx_tehl_rec
2067: );
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2073: migrate(lx_tehl_rec, l_def_tehv_rec);
2066: lx_tehl_rec
2067: );
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2073: migrate(lx_tehl_rec, l_def_tehv_rec);
2074: -- Set OUT values
2067: );
2068: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2070: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2073: migrate(lx_tehl_rec, l_def_tehv_rec);
2074: -- Set OUT values
2075: x_tehv_rec := l_def_tehv_rec;
2073: migrate(lx_tehl_rec, l_def_tehv_rec);
2074: -- Set OUT values
2075: x_tehv_rec := l_def_tehv_rec;
2076: x_return_status := l_return_status;
2077: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2078: EXCEPTION
2079: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2080: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2081: (
2075: x_tehv_rec := l_def_tehv_rec;
2076: x_return_status := l_return_status;
2077: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2078: EXCEPTION
2079: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2080: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2076: x_return_status := l_return_status;
2077: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2078: EXCEPTION
2079: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2080: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKL_API.G_RET_STS_ERROR',
2080: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKL_API.G_RET_STS_ERROR',
2085: x_msg_count,
2086: x_msg_data,
2087: '_PVT'
2088: );
2085: x_msg_count,
2086: x_msg_data,
2087: '_PVT'
2088: );
2089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2090: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2086: x_msg_data,
2087: '_PVT'
2088: );
2089: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2090: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2090: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2094: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2095: x_msg_count,
2096: x_msg_data,
2097: '_PVT'
2098: );
2096: x_msg_data,
2097: '_PVT'
2098: );
2099: WHEN OTHERS THEN
2100: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2101: (
2102: l_api_name,
2103: G_PKG_NAME,
2104: 'OTHERS',
2111: -- PL/SQL TBL insert_row for:TEHV_TBL --
2112: ----------------------------------------
2113: PROCEDURE insert_row(
2114: p_api_version IN NUMBER,
2115: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2116: x_return_status OUT NOCOPY VARCHAR2,
2117: x_msg_count OUT NOCOPY NUMBER,
2118: x_msg_data OUT NOCOPY VARCHAR2,
2119: p_tehv_tbl IN tehv_tbl_type,
2117: x_msg_count OUT NOCOPY NUMBER,
2118: x_msg_data OUT NOCOPY VARCHAR2,
2119: p_tehv_tbl IN tehv_tbl_type,
2120: x_tehv_tbl OUT NOCOPY tehv_tbl_type,
2121: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2122:
2123: l_api_version CONSTANT NUMBER := 1;
2124: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
2125: i NUMBER := 0;
2123: l_api_version CONSTANT NUMBER := 1;
2124: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
2125: i NUMBER := 0;
2126: BEGIN
2127: OKL_API.init_msg_list(p_init_msg_list);
2128: -- Make sure PL/SQL table has records in it before passing
2129: IF (p_tehv_tbl.COUNT > 0) THEN
2130: i := p_tehv_tbl.FIRST;
2131: LOOP
2129: IF (p_tehv_tbl.COUNT > 0) THEN
2130: i := p_tehv_tbl.FIRST;
2131: LOOP
2132: DECLARE
2133: l_error_rec OKL_API.ERROR_REC_TYPE;
2134: BEGIN
2135: l_error_rec.api_name := l_api_name;
2136: l_error_rec.api_package := G_PKG_NAME;
2137: l_error_rec.idx := i;
2136: l_error_rec.api_package := G_PKG_NAME;
2137: l_error_rec.idx := i;
2138: insert_row (
2139: p_api_version => p_api_version,
2140: p_init_msg_list => OKL_API.G_FALSE,
2141: x_return_status => l_error_rec.error_type,
2142: x_msg_count => l_error_rec.msg_count,
2143: x_msg_data => l_error_rec.msg_data,
2144: p_tehv_rec => p_tehv_tbl(i),
2142: x_msg_count => l_error_rec.msg_count,
2143: x_msg_data => l_error_rec.msg_data,
2144: p_tehv_rec => p_tehv_tbl(i),
2145: x_tehv_rec => x_tehv_tbl(i));
2146: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2147: l_error_rec.sqlcode := SQLCODE;
2148: load_error_tbl(l_error_rec, px_error_tbl);
2149: ELSE
2150: x_msg_count := l_error_rec.msg_count;
2150: x_msg_count := l_error_rec.msg_count;
2151: x_msg_data := l_error_rec.msg_data;
2152: END IF;
2153: EXCEPTION
2154: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2155: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2156: l_error_rec.sqlcode := SQLCODE;
2157: load_error_tbl(l_error_rec, px_error_tbl);
2158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2151: x_msg_data := l_error_rec.msg_data;
2152: END IF;
2153: EXCEPTION
2154: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2155: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2156: l_error_rec.sqlcode := SQLCODE;
2157: load_error_tbl(l_error_rec, px_error_tbl);
2158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2159: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2154: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2155: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2156: l_error_rec.sqlcode := SQLCODE;
2157: load_error_tbl(l_error_rec, px_error_tbl);
2158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2159: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2160: l_error_rec.sqlcode := SQLCODE;
2161: load_error_tbl(l_error_rec, px_error_tbl);
2162: WHEN OTHERS THEN
2155: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2156: l_error_rec.sqlcode := SQLCODE;
2157: load_error_tbl(l_error_rec, px_error_tbl);
2158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2159: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2160: l_error_rec.sqlcode := SQLCODE;
2161: load_error_tbl(l_error_rec, px_error_tbl);
2162: WHEN OTHERS THEN
2163: l_error_rec.error_type := 'OTHERS';
2170: END IF;
2171: -- Loop through the error_tbl to find the error with the highest severity
2172: -- and return it.
2173: x_return_status := find_highest_exception(px_error_tbl);
2174: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2175: EXCEPTION
2176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2177: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2178: (
2172: -- and return it.
2173: x_return_status := find_highest_exception(px_error_tbl);
2174: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2175: EXCEPTION
2176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2177: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2178: (
2179: l_api_name,
2180: G_PKG_NAME,
2173: x_return_status := find_highest_exception(px_error_tbl);
2174: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2175: EXCEPTION
2176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2177: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2178: (
2179: l_api_name,
2180: G_PKG_NAME,
2181: 'OKL_API.G_RET_STS_ERROR',
2177: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2178: (
2179: l_api_name,
2180: G_PKG_NAME,
2181: 'OKL_API.G_RET_STS_ERROR',
2182: x_msg_count,
2183: x_msg_data,
2184: '_PVT'
2185: );
2182: x_msg_count,
2183: x_msg_data,
2184: '_PVT'
2185: );
2186: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2187: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2188: (
2189: l_api_name,
2190: G_PKG_NAME,
2183: x_msg_data,
2184: '_PVT'
2185: );
2186: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2187: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2188: (
2189: l_api_name,
2190: G_PKG_NAME,
2191: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2187: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2188: (
2189: l_api_name,
2190: G_PKG_NAME,
2191: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2192: x_msg_count,
2193: x_msg_data,
2194: '_PVT'
2195: );
2193: x_msg_data,
2194: '_PVT'
2195: );
2196: WHEN OTHERS THEN
2197: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2198: (
2199: l_api_name,
2200: G_PKG_NAME,
2201: 'OTHERS',
2209: -- PL/SQL TBL insert_row for:TEHV_TBL --
2210: ----------------------------------------
2211: PROCEDURE insert_row(
2212: p_api_version IN NUMBER,
2213: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2214: x_return_status OUT NOCOPY VARCHAR2,
2215: x_msg_count OUT NOCOPY NUMBER,
2216: x_msg_data OUT NOCOPY VARCHAR2,
2217: p_tehv_tbl IN tehv_tbl_type,
2218: x_tehv_tbl OUT NOCOPY tehv_tbl_type) IS
2219:
2220: l_api_version CONSTANT NUMBER := 1;
2221: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2222: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2223: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2224: BEGIN
2225: OKL_API.init_msg_list(p_init_msg_list);
2226: -- Make sure PL/SQL table has records in it before passing
2219:
2220: l_api_version CONSTANT NUMBER := 1;
2221: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2222: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2223: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2224: BEGIN
2225: OKL_API.init_msg_list(p_init_msg_list);
2226: -- Make sure PL/SQL table has records in it before passing
2227: IF (p_tehv_tbl.COUNT > 0) THEN
2221: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2222: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2223: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2224: BEGIN
2225: OKL_API.init_msg_list(p_init_msg_list);
2226: -- Make sure PL/SQL table has records in it before passing
2227: IF (p_tehv_tbl.COUNT > 0) THEN
2228: insert_row (
2229: p_api_version => p_api_version,
2226: -- Make sure PL/SQL table has records in it before passing
2227: IF (p_tehv_tbl.COUNT > 0) THEN
2228: insert_row (
2229: p_api_version => p_api_version,
2230: p_init_msg_list => OKL_API.G_FALSE,
2231: x_return_status => x_return_status,
2232: x_msg_count => x_msg_count,
2233: x_msg_data => x_msg_data,
2234: p_tehv_tbl => p_tehv_tbl,
2234: p_tehv_tbl => p_tehv_tbl,
2235: x_tehv_tbl => x_tehv_tbl,
2236: px_error_tbl => l_error_tbl);
2237: END IF;
2238: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2239: EXCEPTION
2240: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2242: (
2236: px_error_tbl => l_error_tbl);
2237: END IF;
2238: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2239: EXCEPTION
2240: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2242: (
2243: l_api_name,
2244: G_PKG_NAME,
2237: END IF;
2238: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2239: EXCEPTION
2240: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2242: (
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OKL_API.G_RET_STS_ERROR',
2241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2242: (
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OKL_API.G_RET_STS_ERROR',
2246: x_msg_count,
2247: x_msg_data,
2248: '_PVT'
2249: );
2246: x_msg_count,
2247: x_msg_data,
2248: '_PVT'
2249: );
2250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2251: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2247: x_msg_data,
2248: '_PVT'
2249: );
2250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2251: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2251: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2256: x_msg_count,
2257: x_msg_data,
2258: '_PVT'
2259: );
2257: x_msg_data,
2258: '_PVT'
2259: );
2260: WHEN OTHERS THEN
2261: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2262: (
2263: l_api_name,
2264: G_PKG_NAME,
2265: 'OTHERS',
2275: --------------------------------------
2276: -- lock_row for:OKL_TRX_EXTENSION_B --
2277: --------------------------------------
2278: PROCEDURE lock_row(
2279: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2280: x_return_status OUT NOCOPY VARCHAR2,
2281: x_msg_count OUT NOCOPY NUMBER,
2282: x_msg_data OUT NOCOPY VARCHAR2,
2283: p_teh_rec IN teh_rec_type) IS
2296: FROM OKL_TRX_EXTENSION_B
2297: WHERE HEADER_EXTENSION_ID = p_teh_rec.header_extension_id;
2298: l_api_version CONSTANT NUMBER := 1;
2299: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2300: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2301: l_object_version_number OKL_TRX_EXTENSION_B.OBJECT_VERSION_NUMBER%TYPE;
2302: lc_object_version_number OKL_TRX_EXTENSION_B.OBJECT_VERSION_NUMBER%TYPE;
2303: l_row_notfound BOOLEAN := FALSE;
2304: lc_row_notfound BOOLEAN := FALSE;
2302: lc_object_version_number OKL_TRX_EXTENSION_B.OBJECT_VERSION_NUMBER%TYPE;
2303: l_row_notfound BOOLEAN := FALSE;
2304: lc_row_notfound BOOLEAN := FALSE;
2305: BEGIN
2306: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2307: p_init_msg_list,
2308: '_PVT',
2309: x_return_status);
2310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2306: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2307: p_init_msg_list,
2308: '_PVT',
2309: x_return_status);
2310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2307: p_init_msg_list,
2308: '_PVT',
2309: x_return_status);
2310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2315: BEGIN
2308: '_PVT',
2309: x_return_status);
2310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2315: BEGIN
2316: OPEN lock_csr(p_teh_rec);
2309: x_return_status);
2310: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2312: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2313: RAISE OKL_API.G_EXCEPTION_ERROR;
2314: END IF;
2315: BEGIN
2316: OPEN lock_csr(p_teh_rec);
2317: FETCH lock_csr INTO l_object_version_number;
2321: WHEN E_Resource_Busy THEN
2322: IF (lock_csr%ISOPEN) THEN
2323: CLOSE lock_csr;
2324: END IF;
2325: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2326: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2327: END;
2328:
2329: IF ( l_row_notfound ) THEN
2332: lc_row_notfound := lchk_csr%NOTFOUND;
2333: CLOSE lchk_csr;
2334: END IF;
2335: IF (lc_row_notfound) THEN
2336: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2337: RAISE OKL_API.G_EXCEPTION_ERROR;
2338: ELSIF lc_object_version_number > p_teh_rec.object_version_number THEN
2339: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2333: CLOSE lchk_csr;
2334: END IF;
2335: IF (lc_row_notfound) THEN
2336: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2337: RAISE OKL_API.G_EXCEPTION_ERROR;
2338: ELSIF lc_object_version_number > p_teh_rec.object_version_number THEN
2339: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: ELSIF lc_object_version_number <> p_teh_rec.object_version_number THEN
2335: IF (lc_row_notfound) THEN
2336: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2337: RAISE OKL_API.G_EXCEPTION_ERROR;
2338: ELSIF lc_object_version_number > p_teh_rec.object_version_number THEN
2339: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: ELSIF lc_object_version_number <> p_teh_rec.object_version_number THEN
2342: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2336: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2337: RAISE OKL_API.G_EXCEPTION_ERROR;
2338: ELSIF lc_object_version_number > p_teh_rec.object_version_number THEN
2339: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: ELSIF lc_object_version_number <> p_teh_rec.object_version_number THEN
2342: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: ELSIF lc_object_version_number = -1 THEN
2338: ELSIF lc_object_version_number > p_teh_rec.object_version_number THEN
2339: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: ELSIF lc_object_version_number <> p_teh_rec.object_version_number THEN
2342: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: ELSIF lc_object_version_number = -1 THEN
2345: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2346: RAISE OKL_API.G_EXCEPTION_ERROR;
2339: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2340: RAISE OKL_API.G_EXCEPTION_ERROR;
2341: ELSIF lc_object_version_number <> p_teh_rec.object_version_number THEN
2342: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: ELSIF lc_object_version_number = -1 THEN
2345: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2346: RAISE OKL_API.G_EXCEPTION_ERROR;
2347: END IF;
2341: ELSIF lc_object_version_number <> p_teh_rec.object_version_number THEN
2342: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: ELSIF lc_object_version_number = -1 THEN
2345: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2346: RAISE OKL_API.G_EXCEPTION_ERROR;
2347: END IF;
2348: x_return_status := l_return_status;
2349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2342: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: ELSIF lc_object_version_number = -1 THEN
2345: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2346: RAISE OKL_API.G_EXCEPTION_ERROR;
2347: END IF;
2348: x_return_status := l_return_status;
2349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2350: EXCEPTION
2345: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2346: RAISE OKL_API.G_EXCEPTION_ERROR;
2347: END IF;
2348: x_return_status := l_return_status;
2349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2350: EXCEPTION
2351: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2352: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2353: (
2347: END IF;
2348: x_return_status := l_return_status;
2349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2350: EXCEPTION
2351: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2352: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2353: (
2354: l_api_name,
2355: G_PKG_NAME,
2348: x_return_status := l_return_status;
2349: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2350: EXCEPTION
2351: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2352: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2353: (
2354: l_api_name,
2355: G_PKG_NAME,
2356: 'OKL_API.G_RET_STS_ERROR',
2352: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2353: (
2354: l_api_name,
2355: G_PKG_NAME,
2356: 'OKL_API.G_RET_STS_ERROR',
2357: x_msg_count,
2358: x_msg_data,
2359: '_PVT'
2360: );
2357: x_msg_count,
2358: x_msg_data,
2359: '_PVT'
2360: );
2361: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2362: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2363: (
2364: l_api_name,
2365: G_PKG_NAME,
2358: x_msg_data,
2359: '_PVT'
2360: );
2361: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2362: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2363: (
2364: l_api_name,
2365: G_PKG_NAME,
2366: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2362: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2363: (
2364: l_api_name,
2365: G_PKG_NAME,
2366: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2367: x_msg_count,
2368: x_msg_data,
2369: '_PVT'
2370: );
2368: x_msg_data,
2369: '_PVT'
2370: );
2371: WHEN OTHERS THEN
2372: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2373: (
2374: l_api_name,
2375: G_PKG_NAME,
2376: 'OTHERS',
2382: ---------------------------------------
2383: -- lock_row for:OKL_TRX_EXTENSION_TL --
2384: ---------------------------------------
2385: PROCEDURE lock_row(
2386: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2387: x_return_status OUT NOCOPY VARCHAR2,
2388: x_msg_count OUT NOCOPY NUMBER,
2389: x_msg_data OUT NOCOPY VARCHAR2,
2390: p_tehl_rec IN tehl_rec_type) IS
2398: FOR UPDATE NOWAIT;
2399:
2400: l_api_version CONSTANT NUMBER := 1;
2401: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2402: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2403: l_lock_var lock_csr%ROWTYPE;
2404: l_row_notfound BOOLEAN := FALSE;
2405: lc_row_notfound BOOLEAN := FALSE;
2406: BEGIN
2403: l_lock_var lock_csr%ROWTYPE;
2404: l_row_notfound BOOLEAN := FALSE;
2405: lc_row_notfound BOOLEAN := FALSE;
2406: BEGIN
2407: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2408: p_init_msg_list,
2409: '_PVT',
2410: x_return_status);
2411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2407: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2408: p_init_msg_list,
2409: '_PVT',
2410: x_return_status);
2411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;
2408: p_init_msg_list,
2409: '_PVT',
2410: x_return_status);
2411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;
2416: BEGIN
2409: '_PVT',
2410: x_return_status);
2411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;
2416: BEGIN
2417: OPEN lock_csr(p_tehl_rec);
2410: x_return_status);
2411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_ERROR;
2415: END IF;
2416: BEGIN
2417: OPEN lock_csr(p_tehl_rec);
2418: FETCH lock_csr INTO l_lock_var;
2422: WHEN E_Resource_Busy THEN
2423: IF (lock_csr%ISOPEN) THEN
2424: CLOSE lock_csr;
2425: END IF;
2426: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2427: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2428: END;
2429:
2430: IF ( l_row_notfound ) THEN
2427: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2428: END;
2429:
2430: IF ( l_row_notfound ) THEN
2431: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434: x_return_status := l_return_status;
2435: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2428: END;
2429:
2430: IF ( l_row_notfound ) THEN
2431: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434: x_return_status := l_return_status;
2435: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2436: EXCEPTION
2431: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2432: RAISE OKL_API.G_EXCEPTION_ERROR;
2433: END IF;
2434: x_return_status := l_return_status;
2435: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2436: EXCEPTION
2437: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2438: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2439: (
2433: END IF;
2434: x_return_status := l_return_status;
2435: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2436: EXCEPTION
2437: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2438: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2439: (
2440: l_api_name,
2441: G_PKG_NAME,
2434: x_return_status := l_return_status;
2435: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2436: EXCEPTION
2437: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2438: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2439: (
2440: l_api_name,
2441: G_PKG_NAME,
2442: 'OKL_API.G_RET_STS_ERROR',
2438: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2439: (
2440: l_api_name,
2441: G_PKG_NAME,
2442: 'OKL_API.G_RET_STS_ERROR',
2443: x_msg_count,
2444: x_msg_data,
2445: '_PVT'
2446: );
2443: x_msg_count,
2444: x_msg_data,
2445: '_PVT'
2446: );
2447: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2448: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2449: (
2450: l_api_name,
2451: G_PKG_NAME,
2444: x_msg_data,
2445: '_PVT'
2446: );
2447: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2448: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2449: (
2450: l_api_name,
2451: G_PKG_NAME,
2452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2448: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2449: (
2450: l_api_name,
2451: G_PKG_NAME,
2452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2453: x_msg_count,
2454: x_msg_data,
2455: '_PVT'
2456: );
2454: x_msg_data,
2455: '_PVT'
2456: );
2457: WHEN OTHERS THEN
2458: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2459: (
2460: l_api_name,
2461: G_PKG_NAME,
2462: 'OTHERS',
2469: -- lock_row for: OKL_TRX_EXTENSION_V --
2470: ---------------------------------------
2471: PROCEDURE lock_row(
2472: p_api_version IN NUMBER,
2473: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2474: x_return_status OUT NOCOPY VARCHAR2,
2475: x_msg_count OUT NOCOPY NUMBER,
2476: x_msg_data OUT NOCOPY VARCHAR2,
2477: p_tehv_rec IN tehv_rec_type) IS
2477: p_tehv_rec IN tehv_rec_type) IS
2478:
2479: l_api_version CONSTANT NUMBER := 1;
2480: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2481: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2482: l_teh_rec teh_rec_type;
2483: l_tehl_rec tehl_rec_type;
2484: BEGIN
2485: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2481: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2482: l_teh_rec teh_rec_type;
2483: l_tehl_rec tehl_rec_type;
2484: BEGIN
2485: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2486: G_PKG_NAME,
2487: p_init_msg_list,
2488: l_api_version,
2489: p_api_version,
2488: l_api_version,
2489: p_api_version,
2490: '_PVT',
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2489: p_api_version,
2490: '_PVT',
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2497: -----------------------------------------
2490: '_PVT',
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2497: -----------------------------------------
2498: -- Move VIEW record to "Child" records --
2491: x_return_status);
2492: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2494: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_ERROR;
2496: END IF;
2497: -----------------------------------------
2498: -- Move VIEW record to "Child" records --
2499: -----------------------------------------
2508: x_msg_count,
2509: x_msg_data,
2510: l_teh_rec
2511: );
2512: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2515: RAISE OKL_API.G_EXCEPTION_ERROR;
2516: END IF;
2509: x_msg_data,
2510: l_teh_rec
2511: );
2512: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2515: RAISE OKL_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: lock_row(
2510: l_teh_rec
2511: );
2512: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2515: RAISE OKL_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: lock_row(
2518: p_init_msg_list,
2511: );
2512: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2515: RAISE OKL_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: lock_row(
2518: p_init_msg_list,
2519: l_return_status,
2520: x_msg_count,
2521: x_msg_data,
2522: l_tehl_rec
2523: );
2524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2521: x_msg_data,
2522: l_tehl_rec
2523: );
2524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2522: l_tehl_rec
2523: );
2524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2523: );
2524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2534: (
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2534: (
2535: l_api_name,
2536: G_PKG_NAME,
2529: x_return_status := l_return_status;
2530: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2534: (
2535: l_api_name,
2536: G_PKG_NAME,
2537: 'OKL_API.G_RET_STS_ERROR',
2533: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2534: (
2535: l_api_name,
2536: G_PKG_NAME,
2537: 'OKL_API.G_RET_STS_ERROR',
2538: x_msg_count,
2539: x_msg_data,
2540: '_PVT'
2541: );
2538: x_msg_count,
2539: x_msg_data,
2540: '_PVT'
2541: );
2542: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2539: x_msg_data,
2540: '_PVT'
2541: );
2542: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2547: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2547: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2548: x_msg_count,
2549: x_msg_data,
2550: '_PVT'
2551: );
2549: x_msg_data,
2550: '_PVT'
2551: );
2552: WHEN OTHERS THEN
2553: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2554: (
2555: l_api_name,
2556: G_PKG_NAME,
2557: 'OTHERS',
2564: -- PL/SQL TBL lock_row for:TEHV_TBL --
2565: --------------------------------------
2566: PROCEDURE lock_row(
2567: p_api_version IN NUMBER,
2568: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2569: x_return_status OUT NOCOPY VARCHAR2,
2570: x_msg_count OUT NOCOPY NUMBER,
2571: x_msg_data OUT NOCOPY VARCHAR2,
2572: p_tehv_tbl IN tehv_tbl_type,
2569: x_return_status OUT NOCOPY VARCHAR2,
2570: x_msg_count OUT NOCOPY NUMBER,
2571: x_msg_data OUT NOCOPY VARCHAR2,
2572: p_tehv_tbl IN tehv_tbl_type,
2573: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2574:
2575: l_api_version CONSTANT NUMBER := 1;
2576: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2577: i NUMBER := 0;
2575: l_api_version CONSTANT NUMBER := 1;
2576: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2577: i NUMBER := 0;
2578: BEGIN
2579: OKL_API.init_msg_list(p_init_msg_list);
2580: -- Make sure PL/SQL table has recrods in it before passing
2581: IF (p_tehv_tbl.COUNT > 0) THEN
2582: i := p_tehv_tbl.FIRST;
2583: LOOP
2581: IF (p_tehv_tbl.COUNT > 0) THEN
2582: i := p_tehv_tbl.FIRST;
2583: LOOP
2584: DECLARE
2585: l_error_rec OKL_API.ERROR_REC_TYPE;
2586: BEGIN
2587: l_error_rec.api_name := l_api_name;
2588: l_error_rec.api_package := G_PKG_NAME;
2589: l_error_rec.idx := i;
2588: l_error_rec.api_package := G_PKG_NAME;
2589: l_error_rec.idx := i;
2590: lock_row(
2591: p_api_version => p_api_version,
2592: p_init_msg_list => OKL_API.G_FALSE,
2593: x_return_status => l_error_rec.error_type,
2594: x_msg_count => l_error_rec.msg_count,
2595: x_msg_data => l_error_rec.msg_data,
2596: p_tehv_rec => p_tehv_tbl(i));
2593: x_return_status => l_error_rec.error_type,
2594: x_msg_count => l_error_rec.msg_count,
2595: x_msg_data => l_error_rec.msg_data,
2596: p_tehv_rec => p_tehv_tbl(i));
2597: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2598: l_error_rec.sqlcode := SQLCODE;
2599: load_error_tbl(l_error_rec, px_error_tbl);
2600: ELSE
2601: x_msg_count := l_error_rec.msg_count;
2601: x_msg_count := l_error_rec.msg_count;
2602: x_msg_data := l_error_rec.msg_data;
2603: END IF;
2604: EXCEPTION
2605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2606: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2602: x_msg_data := l_error_rec.msg_data;
2603: END IF;
2604: EXCEPTION
2605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2606: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2610: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2606: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2610: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2611: l_error_rec.sqlcode := SQLCODE;
2612: load_error_tbl(l_error_rec, px_error_tbl);
2613: WHEN OTHERS THEN
2606: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2610: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2611: l_error_rec.sqlcode := SQLCODE;
2612: load_error_tbl(l_error_rec, px_error_tbl);
2613: WHEN OTHERS THEN
2614: l_error_rec.error_type := 'OTHERS';
2621: END IF;
2622: -- Loop through the error_tbl to find the error with the highest severity
2623: -- and return it.
2624: x_return_status := find_highest_exception(px_error_tbl);
2625: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2629: (
2623: -- and return it.
2624: x_return_status := find_highest_exception(px_error_tbl);
2625: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2624: x_return_status := find_highest_exception(px_error_tbl);
2625: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2632: 'OKL_API.G_RET_STS_ERROR',
2628: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2632: 'OKL_API.G_RET_STS_ERROR',
2633: x_msg_count,
2634: x_msg_data,
2635: '_PVT'
2636: );
2633: x_msg_count,
2634: x_msg_data,
2635: '_PVT'
2636: );
2637: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2638: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2634: x_msg_data,
2635: '_PVT'
2636: );
2637: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2638: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2638: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2643: x_msg_count,
2644: x_msg_data,
2645: '_PVT'
2646: );
2644: x_msg_data,
2645: '_PVT'
2646: );
2647: WHEN OTHERS THEN
2648: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2649: (
2650: l_api_name,
2651: G_PKG_NAME,
2652: 'OTHERS',
2659: -- PL/SQL TBL lock_row for:TEHV_TBL --
2660: --------------------------------------
2661: PROCEDURE lock_row(
2662: p_api_version IN NUMBER,
2663: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2664: x_return_status OUT NOCOPY VARCHAR2,
2665: x_msg_count OUT NOCOPY NUMBER,
2666: x_msg_data OUT NOCOPY VARCHAR2,
2667: p_tehv_tbl IN tehv_tbl_type) IS
2667: p_tehv_tbl IN tehv_tbl_type) IS
2668:
2669: l_api_version CONSTANT NUMBER := 1;
2670: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2671: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2672: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2673: BEGIN
2674: OKL_API.init_msg_list(p_init_msg_list);
2675: -- Make sure PL/SQL table has recrods in it before passing
2668:
2669: l_api_version CONSTANT NUMBER := 1;
2670: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2671: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2672: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2673: BEGIN
2674: OKL_API.init_msg_list(p_init_msg_list);
2675: -- Make sure PL/SQL table has recrods in it before passing
2676: IF (p_tehv_tbl.COUNT > 0) THEN
2670: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2671: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2672: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2673: BEGIN
2674: OKL_API.init_msg_list(p_init_msg_list);
2675: -- Make sure PL/SQL table has recrods in it before passing
2676: IF (p_tehv_tbl.COUNT > 0) THEN
2677: lock_row(
2678: p_api_version => p_api_version,
2675: -- Make sure PL/SQL table has recrods in it before passing
2676: IF (p_tehv_tbl.COUNT > 0) THEN
2677: lock_row(
2678: p_api_version => p_api_version,
2679: p_init_msg_list => OKL_API.G_FALSE,
2680: x_return_status => x_return_status,
2681: x_msg_count => x_msg_count,
2682: x_msg_data => x_msg_data,
2683: p_tehv_tbl => p_tehv_tbl,
2682: x_msg_data => x_msg_data,
2683: p_tehv_tbl => p_tehv_tbl,
2684: px_error_tbl => l_error_tbl);
2685: END IF;
2686: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2687: EXCEPTION
2688: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2689: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2690: (
2684: px_error_tbl => l_error_tbl);
2685: END IF;
2686: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2687: EXCEPTION
2688: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2689: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2690: (
2691: l_api_name,
2692: G_PKG_NAME,
2685: END IF;
2686: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2687: EXCEPTION
2688: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2689: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2690: (
2691: l_api_name,
2692: G_PKG_NAME,
2693: 'OKL_API.G_RET_STS_ERROR',
2689: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2690: (
2691: l_api_name,
2692: G_PKG_NAME,
2693: 'OKL_API.G_RET_STS_ERROR',
2694: x_msg_count,
2695: x_msg_data,
2696: '_PVT'
2697: );
2694: x_msg_count,
2695: x_msg_data,
2696: '_PVT'
2697: );
2698: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2699: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2695: x_msg_data,
2696: '_PVT'
2697: );
2698: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2699: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2703: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2699: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2700: (
2701: l_api_name,
2702: G_PKG_NAME,
2703: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2704: x_msg_count,
2705: x_msg_data,
2706: '_PVT'
2707: );
2705: x_msg_data,
2706: '_PVT'
2707: );
2708: WHEN OTHERS THEN
2709: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2710: (
2711: l_api_name,
2712: G_PKG_NAME,
2713: 'OTHERS',
2722: ----------------------------------------
2723: -- update_row for:OKL_TRX_EXTENSION_B --
2724: ----------------------------------------
2725: PROCEDURE update_row(
2726: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2727: x_return_status OUT NOCOPY VARCHAR2,
2728: x_msg_count OUT NOCOPY NUMBER,
2729: x_msg_data OUT NOCOPY VARCHAR2,
2730: p_teh_rec IN teh_rec_type,
2731: x_teh_rec OUT NOCOPY teh_rec_type) IS
2732:
2733: l_api_version CONSTANT NUMBER := 1;
2734: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2735: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2736: l_teh_rec teh_rec_type := p_teh_rec;
2737: l_def_teh_rec teh_rec_type;
2738: l_row_notfound BOOLEAN := TRUE;
2739: ----------------------------------
2744: x_teh_rec OUT NOCOPY teh_rec_type
2745: ) RETURN VARCHAR2 IS
2746: l_teh_rec teh_rec_type;
2747: l_row_notfound BOOLEAN := TRUE;
2748: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2749: BEGIN
2750: x_teh_rec := p_teh_rec;
2751: -- Get current database values
2752: l_teh_rec := get_rec(p_teh_rec, l_return_status);
2749: BEGIN
2750: x_teh_rec := p_teh_rec;
2751: -- Get current database values
2752: l_teh_rec := get_rec(p_teh_rec, l_return_status);
2753: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2754: IF x_teh_rec.header_extension_id IS NULL THEN
2755: x_teh_rec.header_extension_id := l_teh_rec.header_extension_id;
2756: END IF;
2757: IF x_teh_rec.source_id IS NULL THEN
2955: FUNCTION Set_Attributes (
2956: p_teh_rec IN teh_rec_type,
2957: x_teh_rec OUT NOCOPY teh_rec_type
2958: ) RETURN VARCHAR2 IS
2959: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2960: BEGIN
2961: x_teh_rec := p_teh_rec;
2962: x_teh_rec.OBJECT_VERSION_NUMBER := p_teh_rec.OBJECT_VERSION_NUMBER + 1;
2963: RETURN(l_return_status);
2962: x_teh_rec.OBJECT_VERSION_NUMBER := p_teh_rec.OBJECT_VERSION_NUMBER + 1;
2963: RETURN(l_return_status);
2964: END Set_Attributes;
2965: BEGIN
2966: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2967: p_init_msg_list,
2968: '_PVT',
2969: x_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2966: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2967: p_init_msg_list,
2968: '_PVT',
2969: x_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2967: p_init_msg_list,
2968: '_PVT',
2969: x_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: --- Setting item attributes
2968: '_PVT',
2969: x_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: --- Setting item attributes
2976: l_return_status := Set_Attributes(
2969: x_return_status);
2970: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975: --- Setting item attributes
2976: l_return_status := Set_Attributes(
2977: p_teh_rec, -- IN
2976: l_return_status := Set_Attributes(
2977: p_teh_rec, -- IN
2978: l_teh_rec); -- OUT
2979: --- If any errors happen abort API
2980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_ERROR;
2984: END IF;
2977: p_teh_rec, -- IN
2978: l_teh_rec); -- OUT
2979: --- If any errors happen abort API
2980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_ERROR;
2984: END IF;
2985: l_return_status := populate_new_record(l_teh_rec, l_def_teh_rec);
2978: l_teh_rec); -- OUT
2979: --- If any errors happen abort API
2980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_ERROR;
2984: END IF;
2985: l_return_status := populate_new_record(l_teh_rec, l_def_teh_rec);
2986: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2979: --- If any errors happen abort API
2980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_ERROR;
2984: END IF;
2985: l_return_status := populate_new_record(l_teh_rec, l_def_teh_rec);
2986: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2983: RAISE OKL_API.G_EXCEPTION_ERROR;
2984: END IF;
2985: l_return_status := populate_new_record(l_teh_rec, l_def_teh_rec);
2986: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2989: RAISE OKL_API.G_EXCEPTION_ERROR;
2990: END IF;
2983: RAISE OKL_API.G_EXCEPTION_ERROR;
2984: END IF;
2985: l_return_status := populate_new_record(l_teh_rec, l_def_teh_rec);
2986: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2989: RAISE OKL_API.G_EXCEPTION_ERROR;
2990: END IF;
2991: UPDATE OKL_TRX_EXTENSION_B
2984: END IF;
2985: l_return_status := populate_new_record(l_teh_rec, l_def_teh_rec);
2986: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2989: RAISE OKL_API.G_EXCEPTION_ERROR;
2990: END IF;
2991: UPDATE OKL_TRX_EXTENSION_B
2992: SET SOURCE_ID = l_def_teh_rec.source_id,
2985: l_return_status := populate_new_record(l_teh_rec, l_def_teh_rec);
2986: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2988: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2989: RAISE OKL_API.G_EXCEPTION_ERROR;
2990: END IF;
2991: UPDATE OKL_TRX_EXTENSION_B
2992: SET SOURCE_ID = l_def_teh_rec.source_id,
2993: SOURCE_TABLE = l_def_teh_rec.source_table,
3056: WHERE HEADER_EXTENSION_ID = l_def_teh_rec.header_extension_id;
3057:
3058: x_teh_rec := l_teh_rec;
3059: x_return_status := l_return_status;
3060: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3063: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3064: (
3058: x_teh_rec := l_teh_rec;
3059: x_return_status := l_return_status;
3060: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3063: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3059: x_return_status := l_return_status;
3060: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3063: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3067: 'OKL_API.G_RET_STS_ERROR',
3063: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3067: 'OKL_API.G_RET_STS_ERROR',
3068: x_msg_count,
3069: x_msg_data,
3070: '_PVT'
3071: );
3068: x_msg_count,
3069: x_msg_data,
3070: '_PVT'
3071: );
3072: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3073: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3069: x_msg_data,
3070: '_PVT'
3071: );
3072: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3073: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3073: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3078: x_msg_count,
3079: x_msg_data,
3080: '_PVT'
3081: );
3079: x_msg_data,
3080: '_PVT'
3081: );
3082: WHEN OTHERS THEN
3083: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3084: (
3085: l_api_name,
3086: G_PKG_NAME,
3087: 'OTHERS',
3093: -----------------------------------------
3094: -- update_row for:OKL_TRX_EXTENSION_TL --
3095: -----------------------------------------
3096: PROCEDURE update_row(
3097: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3098: x_return_status OUT NOCOPY VARCHAR2,
3099: x_msg_count OUT NOCOPY NUMBER,
3100: x_msg_data OUT NOCOPY VARCHAR2,
3101: p_tehl_rec IN tehl_rec_type,
3102: x_tehl_rec OUT NOCOPY tehl_rec_type) IS
3103:
3104: l_api_version CONSTANT NUMBER := 1;
3105: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3106: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3107: l_tehl_rec tehl_rec_type := p_tehl_rec;
3108: l_def_tehl_rec tehl_rec_type;
3109: l_row_notfound BOOLEAN := TRUE;
3110: ----------------------------------
3115: x_tehl_rec OUT NOCOPY tehl_rec_type
3116: ) RETURN VARCHAR2 IS
3117: l_tehl_rec tehl_rec_type;
3118: l_row_notfound BOOLEAN := TRUE;
3119: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3120: BEGIN
3121: x_tehl_rec := p_tehl_rec;
3122: -- Get current database values
3123: l_tehl_rec := get_rec(p_tehl_rec, l_return_status);
3120: BEGIN
3121: x_tehl_rec := p_tehl_rec;
3122: -- Get current database values
3123: l_tehl_rec := get_rec(p_tehl_rec, l_return_status);
3124: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3125: IF x_tehl_rec.header_extension_id IS NULL THEN
3126: x_tehl_rec.header_extension_id := l_tehl_rec.header_extension_id;
3127: END IF;
3128: IF x_tehl_rec.language IS NULL THEN
3170: FUNCTION Set_Attributes (
3171: p_tehl_rec IN tehl_rec_type,
3172: x_tehl_rec OUT NOCOPY tehl_rec_type
3173: ) RETURN VARCHAR2 IS
3174: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3175: BEGIN
3176: x_tehl_rec := p_tehl_rec;
3177: --x_tehl_rec.LANGUAGE := USERENV('LANG');
3178: --x_tehl_rec.LANGUAGE := USERENV('LANG');
3178: --x_tehl_rec.LANGUAGE := USERENV('LANG');
3179: RETURN(l_return_status);
3180: END Set_Attributes;
3181: BEGIN
3182: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3183: p_init_msg_list,
3184: '_PVT',
3185: x_return_status);
3186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3182: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3183: p_init_msg_list,
3184: '_PVT',
3185: x_return_status);
3186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3183: p_init_msg_list,
3184: '_PVT',
3185: x_return_status);
3186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: --- Setting item attributes
3184: '_PVT',
3185: x_return_status);
3186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: --- Setting item attributes
3192: l_return_status := Set_Attributes(
3185: x_return_status);
3186: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3189: RAISE OKL_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: --- Setting item attributes
3192: l_return_status := Set_Attributes(
3193: p_tehl_rec, -- IN
3192: l_return_status := Set_Attributes(
3193: p_tehl_rec, -- IN
3194: l_tehl_rec); -- OUT
3195: --- If any errors happen abort API
3196: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3198: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_ERROR;
3200: END IF;
3193: p_tehl_rec, -- IN
3194: l_tehl_rec); -- OUT
3195: --- If any errors happen abort API
3196: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3198: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_ERROR;
3200: END IF;
3201: l_return_status := populate_new_record(l_tehl_rec, l_def_tehl_rec);
3194: l_tehl_rec); -- OUT
3195: --- If any errors happen abort API
3196: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3198: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_ERROR;
3200: END IF;
3201: l_return_status := populate_new_record(l_tehl_rec, l_def_tehl_rec);
3202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3195: --- If any errors happen abort API
3196: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3198: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_ERROR;
3200: END IF;
3201: l_return_status := populate_new_record(l_tehl_rec, l_def_tehl_rec);
3202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3198: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_ERROR;
3200: END IF;
3201: l_return_status := populate_new_record(l_tehl_rec, l_def_tehl_rec);
3202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_ERROR;
3206: END IF;
3199: RAISE OKL_API.G_EXCEPTION_ERROR;
3200: END IF;
3201: l_return_status := populate_new_record(l_tehl_rec, l_def_tehl_rec);
3202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_ERROR;
3206: END IF;
3207: UPDATE OKL_TRX_EXTENSION_TL
3200: END IF;
3201: l_return_status := populate_new_record(l_tehl_rec, l_def_tehl_rec);
3202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_ERROR;
3206: END IF;
3207: UPDATE OKL_TRX_EXTENSION_TL
3208: SET CONTRACT_STATUS = l_def_tehl_rec.contract_status,
3201: l_return_status := populate_new_record(l_tehl_rec, l_def_tehl_rec);
3202: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3205: RAISE OKL_API.G_EXCEPTION_ERROR;
3206: END IF;
3207: UPDATE OKL_TRX_EXTENSION_TL
3208: SET CONTRACT_STATUS = l_def_tehl_rec.contract_status,
3209: INV_AGRMNT_STATUS = l_def_tehl_rec.inv_agrmnt_status,
3223: AND SOURCE_LANG <> USERENV('LANG');
3224:
3225: x_tehl_rec := l_tehl_rec;
3226: x_return_status := l_return_status;
3227: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3228: EXCEPTION
3229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3231: (
3225: x_tehl_rec := l_tehl_rec;
3226: x_return_status := l_return_status;
3227: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3228: EXCEPTION
3229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3231: (
3232: l_api_name,
3233: G_PKG_NAME,
3226: x_return_status := l_return_status;
3227: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3228: EXCEPTION
3229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3231: (
3232: l_api_name,
3233: G_PKG_NAME,
3234: 'OKL_API.G_RET_STS_ERROR',
3230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3231: (
3232: l_api_name,
3233: G_PKG_NAME,
3234: 'OKL_API.G_RET_STS_ERROR',
3235: x_msg_count,
3236: x_msg_data,
3237: '_PVT'
3238: );
3235: x_msg_count,
3236: x_msg_data,
3237: '_PVT'
3238: );
3239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3241: (
3242: l_api_name,
3243: G_PKG_NAME,
3236: x_msg_data,
3237: '_PVT'
3238: );
3239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3241: (
3242: l_api_name,
3243: G_PKG_NAME,
3244: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3241: (
3242: l_api_name,
3243: G_PKG_NAME,
3244: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3245: x_msg_count,
3246: x_msg_data,
3247: '_PVT'
3248: );
3246: x_msg_data,
3247: '_PVT'
3248: );
3249: WHEN OTHERS THEN
3250: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3251: (
3252: l_api_name,
3253: G_PKG_NAME,
3254: 'OTHERS',
3261: -- update_row for:OKL_TRX_EXTENSION_V --
3262: ----------------------------------------
3263: PROCEDURE update_row(
3264: p_api_version IN NUMBER,
3265: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3266: x_return_status OUT NOCOPY VARCHAR2,
3267: x_msg_count OUT NOCOPY NUMBER,
3268: x_msg_data OUT NOCOPY VARCHAR2,
3269: p_tehv_rec IN tehv_rec_type,
3270: x_tehv_rec OUT NOCOPY tehv_rec_type) IS
3271:
3272: l_api_version CONSTANT NUMBER := 1;
3273: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3274: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3275: l_tehv_rec tehv_rec_type := p_tehv_rec;
3276: l_def_tehv_rec tehv_rec_type;
3277: l_db_tehv_rec tehv_rec_type;
3278: l_teh_rec teh_rec_type;
3299: p_tehv_rec IN tehv_rec_type,
3300: x_tehv_rec OUT NOCOPY tehv_rec_type
3301: ) RETURN VARCHAR2 IS
3302: l_row_notfound BOOLEAN := TRUE;
3303: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3304: BEGIN
3305: x_tehv_rec := p_tehv_rec;
3306: -- Get current database values
3307: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3306: -- Get current database values
3307: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3308: -- so it may be verified through LOCK_ROW.
3309: l_db_tehv_rec := get_rec(p_tehv_rec, l_return_status);
3310: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3311: IF x_tehv_rec.header_extension_id IS NULL THEN
3312: x_tehv_rec.header_extension_id := l_db_tehv_rec.header_extension_id;
3313: END IF;
3314: IF x_tehv_rec.source_id IS NULL THEN
3524: FUNCTION Set_Attributes (
3525: p_tehv_rec IN tehv_rec_type,
3526: x_tehv_rec OUT NOCOPY tehv_rec_type
3527: ) RETURN VARCHAR2 IS
3528: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3529: BEGIN
3530: x_tehv_rec := p_tehv_rec;
3531: RETURN(l_return_status);
3532: END Set_Attributes;
3530: x_tehv_rec := p_tehv_rec;
3531: RETURN(l_return_status);
3532: END Set_Attributes;
3533: BEGIN
3534: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3535: G_PKG_NAME,
3536: p_init_msg_list,
3537: l_api_version,
3538: p_api_version,
3537: l_api_version,
3538: p_api_version,
3539: '_PVT',
3540: x_return_status);
3541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3538: p_api_version,
3539: '_PVT',
3540: x_return_status);
3541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3546: --- Setting item attributes
3539: '_PVT',
3540: x_return_status);
3541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3546: --- Setting item attributes
3547: l_return_status := Set_Attributes(
3540: x_return_status);
3541: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3542: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3543: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3544: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: END IF;
3546: --- Setting item attributes
3547: l_return_status := Set_Attributes(
3548: p_tehv_rec, -- IN
3547: l_return_status := Set_Attributes(
3548: p_tehv_rec, -- IN
3549: x_tehv_rec); -- OUT
3550: --- If any errors happen abort API
3551: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3554: RAISE OKL_API.G_EXCEPTION_ERROR;
3555: END IF;
3548: p_tehv_rec, -- IN
3549: x_tehv_rec); -- OUT
3550: --- If any errors happen abort API
3551: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3554: RAISE OKL_API.G_EXCEPTION_ERROR;
3555: END IF;
3556: l_return_status := populate_new_record(l_tehv_rec, l_def_tehv_rec);
3549: x_tehv_rec); -- OUT
3550: --- If any errors happen abort API
3551: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3554: RAISE OKL_API.G_EXCEPTION_ERROR;
3555: END IF;
3556: l_return_status := populate_new_record(l_tehv_rec, l_def_tehv_rec);
3557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3550: --- If any errors happen abort API
3551: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3554: RAISE OKL_API.G_EXCEPTION_ERROR;
3555: END IF;
3556: l_return_status := populate_new_record(l_tehv_rec, l_def_tehv_rec);
3557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3554: RAISE OKL_API.G_EXCEPTION_ERROR;
3555: END IF;
3556: l_return_status := populate_new_record(l_tehv_rec, l_def_tehv_rec);
3557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3554: RAISE OKL_API.G_EXCEPTION_ERROR;
3555: END IF;
3556: l_return_status := populate_new_record(l_tehv_rec, l_def_tehv_rec);
3557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3562: l_def_tehv_rec := null_out_defaults(l_def_tehv_rec);
3555: END IF;
3556: l_return_status := populate_new_record(l_tehv_rec, l_def_tehv_rec);
3557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3562: l_def_tehv_rec := null_out_defaults(l_def_tehv_rec);
3563: l_def_tehv_rec := fill_who_columns(l_def_tehv_rec);
3556: l_return_status := populate_new_record(l_tehv_rec, l_def_tehv_rec);
3557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3559: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3560: RAISE OKL_API.G_EXCEPTION_ERROR;
3561: END IF;
3562: l_def_tehv_rec := null_out_defaults(l_def_tehv_rec);
3563: l_def_tehv_rec := fill_who_columns(l_def_tehv_rec);
3564: --- Validate all non-missing attributes (Item Level Validation)
3563: l_def_tehv_rec := fill_who_columns(l_def_tehv_rec);
3564: --- Validate all non-missing attributes (Item Level Validation)
3565: l_return_status := Validate_Attributes(l_def_tehv_rec);
3566: --- If any errors happen abort API
3567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3564: --- Validate all non-missing attributes (Item Level Validation)
3565: l_return_status := Validate_Attributes(l_def_tehv_rec);
3566: --- If any errors happen abort API
3567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3572: l_return_status := Validate_Record(l_def_tehv_rec, l_db_tehv_rec);
3565: l_return_status := Validate_Attributes(l_def_tehv_rec);
3566: --- If any errors happen abort API
3567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3572: l_return_status := Validate_Record(l_def_tehv_rec, l_db_tehv_rec);
3573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3566: --- If any errors happen abort API
3567: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3572: l_return_status := Validate_Record(l_def_tehv_rec, l_db_tehv_rec);
3573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3569: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3572: l_return_status := Validate_Record(l_def_tehv_rec, l_db_tehv_rec);
3573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3576: RAISE OKL_API.G_EXCEPTION_ERROR;
3577: END IF;
3570: RAISE OKL_API.G_EXCEPTION_ERROR;
3571: END IF;
3572: l_return_status := Validate_Record(l_def_tehv_rec, l_db_tehv_rec);
3573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3576: RAISE OKL_API.G_EXCEPTION_ERROR;
3577: END IF;
3578:
3571: END IF;
3572: l_return_status := Validate_Record(l_def_tehv_rec, l_db_tehv_rec);
3573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3576: RAISE OKL_API.G_EXCEPTION_ERROR;
3577: END IF;
3578:
3579: -- Lock the Record
3572: l_return_status := Validate_Record(l_def_tehv_rec, l_db_tehv_rec);
3573: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3575: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3576: RAISE OKL_API.G_EXCEPTION_ERROR;
3577: END IF;
3578:
3579: -- Lock the Record
3580: lock_row(
3583: x_return_status => l_return_status,
3584: x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data,
3586: p_tehv_rec => p_tehv_rec);
3587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3590: RAISE OKL_API.G_EXCEPTION_ERROR;
3591: END IF;
3584: x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data,
3586: p_tehv_rec => p_tehv_rec);
3587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3590: RAISE OKL_API.G_EXCEPTION_ERROR;
3591: END IF;
3592:
3585: x_msg_data => x_msg_data,
3586: p_tehv_rec => p_tehv_rec);
3587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3590: RAISE OKL_API.G_EXCEPTION_ERROR;
3591: END IF;
3592:
3593: -----------------------------------------
3586: p_tehv_rec => p_tehv_rec);
3587: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3590: RAISE OKL_API.G_EXCEPTION_ERROR;
3591: END IF;
3592:
3593: -----------------------------------------
3594: -- Move VIEW record to "Child" records --
3605: x_msg_data,
3606: l_teh_rec,
3607: lx_teh_rec
3608: );
3609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3612: RAISE OKL_API.G_EXCEPTION_ERROR;
3613: END IF;
3606: l_teh_rec,
3607: lx_teh_rec
3608: );
3609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3612: RAISE OKL_API.G_EXCEPTION_ERROR;
3613: END IF;
3614: migrate(lx_teh_rec, l_def_tehv_rec);
3607: lx_teh_rec
3608: );
3609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3612: RAISE OKL_API.G_EXCEPTION_ERROR;
3613: END IF;
3614: migrate(lx_teh_rec, l_def_tehv_rec);
3615: update_row(
3608: );
3609: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3611: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3612: RAISE OKL_API.G_EXCEPTION_ERROR;
3613: END IF;
3614: migrate(lx_teh_rec, l_def_tehv_rec);
3615: update_row(
3616: p_init_msg_list,
3619: x_msg_data,
3620: l_tehl_rec,
3621: lx_tehl_rec
3622: );
3623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3620: l_tehl_rec,
3621: lx_tehl_rec
3622: );
3623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3628: migrate(lx_tehl_rec, l_def_tehv_rec);
3621: lx_tehl_rec
3622: );
3623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3628: migrate(lx_tehl_rec, l_def_tehv_rec);
3629: x_tehv_rec := l_def_tehv_rec;
3622: );
3623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3626: RAISE OKL_API.G_EXCEPTION_ERROR;
3627: END IF;
3628: migrate(lx_tehl_rec, l_def_tehv_rec);
3629: x_tehv_rec := l_def_tehv_rec;
3630: x_return_status := l_return_status;
3627: END IF;
3628: migrate(lx_tehl_rec, l_def_tehv_rec);
3629: x_tehv_rec := l_def_tehv_rec;
3630: x_return_status := l_return_status;
3631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3635: (
3629: x_tehv_rec := l_def_tehv_rec;
3630: x_return_status := l_return_status;
3631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3635: (
3636: l_api_name,
3637: G_PKG_NAME,
3630: x_return_status := l_return_status;
3631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3635: (
3636: l_api_name,
3637: G_PKG_NAME,
3638: 'OKL_API.G_RET_STS_ERROR',
3634: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3635: (
3636: l_api_name,
3637: G_PKG_NAME,
3638: 'OKL_API.G_RET_STS_ERROR',
3639: x_msg_count,
3640: x_msg_data,
3641: '_PVT'
3642: );
3639: x_msg_count,
3640: x_msg_data,
3641: '_PVT'
3642: );
3643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3645: (
3646: l_api_name,
3647: G_PKG_NAME,
3640: x_msg_data,
3641: '_PVT'
3642: );
3643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3645: (
3646: l_api_name,
3647: G_PKG_NAME,
3648: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3644: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3645: (
3646: l_api_name,
3647: G_PKG_NAME,
3648: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3649: x_msg_count,
3650: x_msg_data,
3651: '_PVT'
3652: );
3650: x_msg_data,
3651: '_PVT'
3652: );
3653: WHEN OTHERS THEN
3654: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3655: (
3656: l_api_name,
3657: G_PKG_NAME,
3658: 'OTHERS',
3665: -- PL/SQL TBL update_row for:tehv_tbl --
3666: ----------------------------------------
3667: PROCEDURE update_row(
3668: p_api_version IN NUMBER,
3669: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3670: x_return_status OUT NOCOPY VARCHAR2,
3671: x_msg_count OUT NOCOPY NUMBER,
3672: x_msg_data OUT NOCOPY VARCHAR2,
3673: p_tehv_tbl IN tehv_tbl_type,
3671: x_msg_count OUT NOCOPY NUMBER,
3672: x_msg_data OUT NOCOPY VARCHAR2,
3673: p_tehv_tbl IN tehv_tbl_type,
3674: x_tehv_tbl OUT NOCOPY tehv_tbl_type,
3675: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3676:
3677: l_api_version CONSTANT NUMBER := 1;
3678: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3679: i NUMBER := 0;
3677: l_api_version CONSTANT NUMBER := 1;
3678: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3679: i NUMBER := 0;
3680: BEGIN
3681: OKL_API.init_msg_list(p_init_msg_list);
3682: -- Make sure PL/SQL table has records in it before passing
3683: IF (p_tehv_tbl.COUNT > 0) THEN
3684: i := p_tehv_tbl.FIRST;
3685: LOOP
3683: IF (p_tehv_tbl.COUNT > 0) THEN
3684: i := p_tehv_tbl.FIRST;
3685: LOOP
3686: DECLARE
3687: l_error_rec OKL_API.ERROR_REC_TYPE;
3688: BEGIN
3689: l_error_rec.api_name := l_api_name;
3690: l_error_rec.api_package := G_PKG_NAME;
3691: l_error_rec.idx := i;
3690: l_error_rec.api_package := G_PKG_NAME;
3691: l_error_rec.idx := i;
3692: update_row (
3693: p_api_version => p_api_version,
3694: p_init_msg_list => OKL_API.G_FALSE,
3695: x_return_status => l_error_rec.error_type,
3696: x_msg_count => l_error_rec.msg_count,
3697: x_msg_data => l_error_rec.msg_data,
3698: p_tehv_rec => p_tehv_tbl(i),
3696: x_msg_count => l_error_rec.msg_count,
3697: x_msg_data => l_error_rec.msg_data,
3698: p_tehv_rec => p_tehv_tbl(i),
3699: x_tehv_rec => x_tehv_tbl(i));
3700: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3701: l_error_rec.sqlcode := SQLCODE;
3702: load_error_tbl(l_error_rec, px_error_tbl);
3703: ELSE
3704: x_msg_count := l_error_rec.msg_count;
3704: x_msg_count := l_error_rec.msg_count;
3705: x_msg_data := l_error_rec.msg_data;
3706: END IF;
3707: EXCEPTION
3708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3709: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3710: l_error_rec.sqlcode := SQLCODE;
3711: load_error_tbl(l_error_rec, px_error_tbl);
3712: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3705: x_msg_data := l_error_rec.msg_data;
3706: END IF;
3707: EXCEPTION
3708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3709: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3710: l_error_rec.sqlcode := SQLCODE;
3711: load_error_tbl(l_error_rec, px_error_tbl);
3712: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3713: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3709: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3710: l_error_rec.sqlcode := SQLCODE;
3711: load_error_tbl(l_error_rec, px_error_tbl);
3712: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3713: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3714: l_error_rec.sqlcode := SQLCODE;
3715: load_error_tbl(l_error_rec, px_error_tbl);
3716: WHEN OTHERS THEN
3709: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3710: l_error_rec.sqlcode := SQLCODE;
3711: load_error_tbl(l_error_rec, px_error_tbl);
3712: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3713: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3714: l_error_rec.sqlcode := SQLCODE;
3715: load_error_tbl(l_error_rec, px_error_tbl);
3716: WHEN OTHERS THEN
3717: l_error_rec.error_type := 'OTHERS';
3724: END IF;
3725: -- Loop through the error_tbl to find the error with the highest severity
3726: -- and return it.
3727: x_return_status := find_highest_exception(px_error_tbl);
3728: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3729: EXCEPTION
3730: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3731: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3732: (
3726: -- and return it.
3727: x_return_status := find_highest_exception(px_error_tbl);
3728: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3729: EXCEPTION
3730: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3731: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3732: (
3733: l_api_name,
3734: G_PKG_NAME,
3727: x_return_status := find_highest_exception(px_error_tbl);
3728: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3729: EXCEPTION
3730: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3731: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3732: (
3733: l_api_name,
3734: G_PKG_NAME,
3735: 'OKL_API.G_RET_STS_ERROR',
3731: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3732: (
3733: l_api_name,
3734: G_PKG_NAME,
3735: 'OKL_API.G_RET_STS_ERROR',
3736: x_msg_count,
3737: x_msg_data,
3738: '_PVT'
3739: );
3736: x_msg_count,
3737: x_msg_data,
3738: '_PVT'
3739: );
3740: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3741: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3742: (
3743: l_api_name,
3744: G_PKG_NAME,
3737: x_msg_data,
3738: '_PVT'
3739: );
3740: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3741: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3742: (
3743: l_api_name,
3744: G_PKG_NAME,
3745: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3741: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3742: (
3743: l_api_name,
3744: G_PKG_NAME,
3745: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3746: x_msg_count,
3747: x_msg_data,
3748: '_PVT'
3749: );
3747: x_msg_data,
3748: '_PVT'
3749: );
3750: WHEN OTHERS THEN
3751: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3752: (
3753: l_api_name,
3754: G_PKG_NAME,
3755: 'OTHERS',
3763: -- PL/SQL TBL update_row for:TEHV_TBL --
3764: ----------------------------------------
3765: PROCEDURE update_row(
3766: p_api_version IN NUMBER,
3767: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3768: x_return_status OUT NOCOPY VARCHAR2,
3769: x_msg_count OUT NOCOPY NUMBER,
3770: x_msg_data OUT NOCOPY VARCHAR2,
3771: p_tehv_tbl IN tehv_tbl_type,
3772: x_tehv_tbl OUT NOCOPY tehv_tbl_type) IS
3773:
3774: l_api_version CONSTANT NUMBER := 1;
3775: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3776: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3777: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3778: BEGIN
3779: OKL_API.init_msg_list(p_init_msg_list);
3780: -- Make sure PL/SQL table has records in it before passing
3773:
3774: l_api_version CONSTANT NUMBER := 1;
3775: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3776: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3777: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3778: BEGIN
3779: OKL_API.init_msg_list(p_init_msg_list);
3780: -- Make sure PL/SQL table has records in it before passing
3781: IF (p_tehv_tbl.COUNT > 0) THEN
3775: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3776: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3777: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3778: BEGIN
3779: OKL_API.init_msg_list(p_init_msg_list);
3780: -- Make sure PL/SQL table has records in it before passing
3781: IF (p_tehv_tbl.COUNT > 0) THEN
3782: update_row (
3783: p_api_version => p_api_version,
3780: -- Make sure PL/SQL table has records in it before passing
3781: IF (p_tehv_tbl.COUNT > 0) THEN
3782: update_row (
3783: p_api_version => p_api_version,
3784: p_init_msg_list => OKL_API.G_FALSE,
3785: x_return_status => x_return_status,
3786: x_msg_count => x_msg_count,
3787: x_msg_data => x_msg_data,
3788: p_tehv_tbl => p_tehv_tbl,
3788: p_tehv_tbl => p_tehv_tbl,
3789: x_tehv_tbl => x_tehv_tbl,
3790: px_error_tbl => l_error_tbl);
3791: END IF;
3792: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3793: EXCEPTION
3794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3796: (
3790: px_error_tbl => l_error_tbl);
3791: END IF;
3792: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3793: EXCEPTION
3794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3796: (
3797: l_api_name,
3798: G_PKG_NAME,
3791: END IF;
3792: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3793: EXCEPTION
3794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3796: (
3797: l_api_name,
3798: G_PKG_NAME,
3799: 'OKL_API.G_RET_STS_ERROR',
3795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3796: (
3797: l_api_name,
3798: G_PKG_NAME,
3799: 'OKL_API.G_RET_STS_ERROR',
3800: x_msg_count,
3801: x_msg_data,
3802: '_PVT'
3803: );
3800: x_msg_count,
3801: x_msg_data,
3802: '_PVT'
3803: );
3804: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3805: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3806: (
3807: l_api_name,
3808: G_PKG_NAME,
3801: x_msg_data,
3802: '_PVT'
3803: );
3804: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3805: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3806: (
3807: l_api_name,
3808: G_PKG_NAME,
3809: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3805: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3806: (
3807: l_api_name,
3808: G_PKG_NAME,
3809: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3810: x_msg_count,
3811: x_msg_data,
3812: '_PVT'
3813: );
3811: x_msg_data,
3812: '_PVT'
3813: );
3814: WHEN OTHERS THEN
3815: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3816: (
3817: l_api_name,
3818: G_PKG_NAME,
3819: 'OTHERS',
3829: ----------------------------------------
3830: -- delete_row for:OKL_TRX_EXTENSION_B --
3831: ----------------------------------------
3832: PROCEDURE delete_row(
3833: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3834: x_return_status OUT NOCOPY VARCHAR2,
3835: x_msg_count OUT NOCOPY NUMBER,
3836: x_msg_data OUT NOCOPY VARCHAR2,
3837: p_teh_rec IN teh_rec_type) IS
3837: p_teh_rec IN teh_rec_type) IS
3838:
3839: l_api_version CONSTANT NUMBER := 1;
3840: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3841: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3842: l_teh_rec teh_rec_type := p_teh_rec;
3843: l_row_notfound BOOLEAN := TRUE;
3844: BEGIN
3845: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3841: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3842: l_teh_rec teh_rec_type := p_teh_rec;
3843: l_row_notfound BOOLEAN := TRUE;
3844: BEGIN
3845: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3846: p_init_msg_list,
3847: '_PVT',
3848: x_return_status);
3849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3845: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3846: p_init_msg_list,
3847: '_PVT',
3848: x_return_status);
3849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3853: END IF;
3846: p_init_msg_list,
3847: '_PVT',
3848: x_return_status);
3849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3853: END IF;
3854:
3847: '_PVT',
3848: x_return_status);
3849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3853: END IF;
3854:
3855: DELETE FROM OKL_TRX_EXTENSION_B
3848: x_return_status);
3849: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3851: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3852: RAISE OKL_API.G_EXCEPTION_ERROR;
3853: END IF;
3854:
3855: DELETE FROM OKL_TRX_EXTENSION_B
3856: WHERE HEADER_EXTENSION_ID = p_teh_rec.header_extension_id;
3855: DELETE FROM OKL_TRX_EXTENSION_B
3856: WHERE HEADER_EXTENSION_ID = p_teh_rec.header_extension_id;
3857:
3858: x_return_status := l_return_status;
3859: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3860: EXCEPTION
3861: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3862: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3863: (
3857:
3858: x_return_status := l_return_status;
3859: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3860: EXCEPTION
3861: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3862: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3863: (
3864: l_api_name,
3865: G_PKG_NAME,
3858: x_return_status := l_return_status;
3859: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3860: EXCEPTION
3861: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3862: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3863: (
3864: l_api_name,
3865: G_PKG_NAME,
3866: 'OKL_API.G_RET_STS_ERROR',
3862: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3863: (
3864: l_api_name,
3865: G_PKG_NAME,
3866: 'OKL_API.G_RET_STS_ERROR',
3867: x_msg_count,
3868: x_msg_data,
3869: '_PVT'
3870: );
3867: x_msg_count,
3868: x_msg_data,
3869: '_PVT'
3870: );
3871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3872: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3873: (
3874: l_api_name,
3875: G_PKG_NAME,
3868: x_msg_data,
3869: '_PVT'
3870: );
3871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3872: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3873: (
3874: l_api_name,
3875: G_PKG_NAME,
3876: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3872: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3873: (
3874: l_api_name,
3875: G_PKG_NAME,
3876: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3877: x_msg_count,
3878: x_msg_data,
3879: '_PVT'
3880: );
3878: x_msg_data,
3879: '_PVT'
3880: );
3881: WHEN OTHERS THEN
3882: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3883: (
3884: l_api_name,
3885: G_PKG_NAME,
3886: 'OTHERS',
3892: -----------------------------------------
3893: -- delete_row for:OKL_TRX_EXTENSION_TL --
3894: -----------------------------------------
3895: PROCEDURE delete_row(
3896: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3897: x_return_status OUT NOCOPY VARCHAR2,
3898: x_msg_count OUT NOCOPY NUMBER,
3899: x_msg_data OUT NOCOPY VARCHAR2,
3900: p_tehl_rec IN tehl_rec_type) IS
3900: p_tehl_rec IN tehl_rec_type) IS
3901:
3902: l_api_version CONSTANT NUMBER := 1;
3903: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3904: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3905: l_tehl_rec tehl_rec_type := p_tehl_rec;
3906: l_row_notfound BOOLEAN := TRUE;
3907: BEGIN
3908: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3904: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3905: l_tehl_rec tehl_rec_type := p_tehl_rec;
3906: l_row_notfound BOOLEAN := TRUE;
3907: BEGIN
3908: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3909: p_init_msg_list,
3910: '_PVT',
3911: x_return_status);
3912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3908: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3909: p_init_msg_list,
3910: '_PVT',
3911: x_return_status);
3912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3915: RAISE OKL_API.G_EXCEPTION_ERROR;
3916: END IF;
3909: p_init_msg_list,
3910: '_PVT',
3911: x_return_status);
3912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3915: RAISE OKL_API.G_EXCEPTION_ERROR;
3916: END IF;
3917:
3910: '_PVT',
3911: x_return_status);
3912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3915: RAISE OKL_API.G_EXCEPTION_ERROR;
3916: END IF;
3917:
3918: DELETE FROM OKL_TRX_EXTENSION_TL
3911: x_return_status);
3912: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3914: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3915: RAISE OKL_API.G_EXCEPTION_ERROR;
3916: END IF;
3917:
3918: DELETE FROM OKL_TRX_EXTENSION_TL
3919: WHERE HEADER_EXTENSION_ID = p_tehl_rec.header_extension_id;
3918: DELETE FROM OKL_TRX_EXTENSION_TL
3919: WHERE HEADER_EXTENSION_ID = p_tehl_rec.header_extension_id;
3920:
3921: x_return_status := l_return_status;
3922: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3923: EXCEPTION
3924: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3925: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3926: (
3920:
3921: x_return_status := l_return_status;
3922: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3923: EXCEPTION
3924: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3925: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3926: (
3927: l_api_name,
3928: G_PKG_NAME,
3921: x_return_status := l_return_status;
3922: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3923: EXCEPTION
3924: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3925: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3926: (
3927: l_api_name,
3928: G_PKG_NAME,
3929: 'OKL_API.G_RET_STS_ERROR',
3925: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3926: (
3927: l_api_name,
3928: G_PKG_NAME,
3929: 'OKL_API.G_RET_STS_ERROR',
3930: x_msg_count,
3931: x_msg_data,
3932: '_PVT'
3933: );
3930: x_msg_count,
3931: x_msg_data,
3932: '_PVT'
3933: );
3934: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3935: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3936: (
3937: l_api_name,
3938: G_PKG_NAME,
3931: x_msg_data,
3932: '_PVT'
3933: );
3934: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3935: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3936: (
3937: l_api_name,
3938: G_PKG_NAME,
3939: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3935: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3936: (
3937: l_api_name,
3938: G_PKG_NAME,
3939: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3940: x_msg_count,
3941: x_msg_data,
3942: '_PVT'
3943: );
3941: x_msg_data,
3942: '_PVT'
3943: );
3944: WHEN OTHERS THEN
3945: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3946: (
3947: l_api_name,
3948: G_PKG_NAME,
3949: 'OTHERS',
3956: -- delete_row for:OKL_TRX_EXTENSION_V --
3957: ----------------------------------------
3958: PROCEDURE delete_row(
3959: p_api_version IN NUMBER,
3960: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3961: x_return_status OUT NOCOPY VARCHAR2,
3962: x_msg_count OUT NOCOPY NUMBER,
3963: x_msg_data OUT NOCOPY VARCHAR2,
3964: p_tehv_rec IN tehv_rec_type) IS
3964: p_tehv_rec IN tehv_rec_type) IS
3965:
3966: l_api_version CONSTANT NUMBER := 1;
3967: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3968: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3969: l_tehv_rec tehv_rec_type := p_tehv_rec;
3970: l_tehl_rec tehl_rec_type;
3971: l_teh_rec teh_rec_type;
3972: BEGIN
3969: l_tehv_rec tehv_rec_type := p_tehv_rec;
3970: l_tehl_rec tehl_rec_type;
3971: l_teh_rec teh_rec_type;
3972: BEGIN
3973: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3974: G_PKG_NAME,
3975: p_init_msg_list,
3976: l_api_version,
3977: p_api_version,
3976: l_api_version,
3977: p_api_version,
3978: '_PVT',
3979: x_return_status);
3980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3983: RAISE OKL_API.G_EXCEPTION_ERROR;
3984: END IF;
3977: p_api_version,
3978: '_PVT',
3979: x_return_status);
3980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3983: RAISE OKL_API.G_EXCEPTION_ERROR;
3984: END IF;
3985: -----------------------------------------
3978: '_PVT',
3979: x_return_status);
3980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3983: RAISE OKL_API.G_EXCEPTION_ERROR;
3984: END IF;
3985: -----------------------------------------
3986: -- Move VIEW record to "Child" records --
3979: x_return_status);
3980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3982: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3983: RAISE OKL_API.G_EXCEPTION_ERROR;
3984: END IF;
3985: -----------------------------------------
3986: -- Move VIEW record to "Child" records --
3987: -----------------------------------------
3996: x_msg_count,
3997: x_msg_data,
3998: l_tehl_rec
3999: );
4000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_ERROR;
4004: END IF;
3997: x_msg_data,
3998: l_tehl_rec
3999: );
4000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: delete_row(
3998: l_tehl_rec
3999: );
4000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: delete_row(
4006: p_init_msg_list,
3999: );
4000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: delete_row(
4006: p_init_msg_list,
4007: l_return_status,
4008: x_msg_count,
4009: x_msg_data,
4010: l_teh_rec
4011: );
4012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_ERROR;
4016: END IF;
4009: x_msg_data,
4010: l_teh_rec
4011: );
4012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_ERROR;
4016: END IF;
4017: x_return_status := l_return_status;
4010: l_teh_rec
4011: );
4012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_ERROR;
4016: END IF;
4017: x_return_status := l_return_status;
4018: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4011: );
4012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_ERROR;
4016: END IF;
4017: x_return_status := l_return_status;
4018: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4019: EXCEPTION
4014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4015: RAISE OKL_API.G_EXCEPTION_ERROR;
4016: END IF;
4017: x_return_status := l_return_status;
4018: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4019: EXCEPTION
4020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4021: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4022: (
4016: END IF;
4017: x_return_status := l_return_status;
4018: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4019: EXCEPTION
4020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4021: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4022: (
4023: l_api_name,
4024: G_PKG_NAME,
4017: x_return_status := l_return_status;
4018: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4019: EXCEPTION
4020: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4021: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4022: (
4023: l_api_name,
4024: G_PKG_NAME,
4025: 'OKL_API.G_RET_STS_ERROR',
4021: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4022: (
4023: l_api_name,
4024: G_PKG_NAME,
4025: 'OKL_API.G_RET_STS_ERROR',
4026: x_msg_count,
4027: x_msg_data,
4028: '_PVT'
4029: );
4026: x_msg_count,
4027: x_msg_data,
4028: '_PVT'
4029: );
4030: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4031: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4032: (
4033: l_api_name,
4034: G_PKG_NAME,
4027: x_msg_data,
4028: '_PVT'
4029: );
4030: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4031: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4032: (
4033: l_api_name,
4034: G_PKG_NAME,
4035: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4031: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4032: (
4033: l_api_name,
4034: G_PKG_NAME,
4035: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4036: x_msg_count,
4037: x_msg_data,
4038: '_PVT'
4039: );
4037: x_msg_data,
4038: '_PVT'
4039: );
4040: WHEN OTHERS THEN
4041: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4042: (
4043: l_api_name,
4044: G_PKG_NAME,
4045: 'OTHERS',
4052: -- PL/SQL TBL delete_row for:OKL_TRX_EXTENSION_V --
4053: ---------------------------------------------------
4054: PROCEDURE delete_row(
4055: p_api_version IN NUMBER,
4056: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4057: x_return_status OUT NOCOPY VARCHAR2,
4058: x_msg_count OUT NOCOPY NUMBER,
4059: x_msg_data OUT NOCOPY VARCHAR2,
4060: p_tehv_tbl IN tehv_tbl_type,
4057: x_return_status OUT NOCOPY VARCHAR2,
4058: x_msg_count OUT NOCOPY NUMBER,
4059: x_msg_data OUT NOCOPY VARCHAR2,
4060: p_tehv_tbl IN tehv_tbl_type,
4061: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4062:
4063: l_api_version CONSTANT NUMBER := 1;
4064: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4065: i NUMBER := 0;
4063: l_api_version CONSTANT NUMBER := 1;
4064: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4065: i NUMBER := 0;
4066: BEGIN
4067: OKL_API.init_msg_list(p_init_msg_list);
4068: -- Make sure PL/SQL table has records in it before passing
4069: IF (p_tehv_tbl.COUNT > 0) THEN
4070: i := p_tehv_tbl.FIRST;
4071: LOOP
4069: IF (p_tehv_tbl.COUNT > 0) THEN
4070: i := p_tehv_tbl.FIRST;
4071: LOOP
4072: DECLARE
4073: l_error_rec OKL_API.ERROR_REC_TYPE;
4074: BEGIN
4075: l_error_rec.api_name := l_api_name;
4076: l_error_rec.api_package := G_PKG_NAME;
4077: l_error_rec.idx := i;
4076: l_error_rec.api_package := G_PKG_NAME;
4077: l_error_rec.idx := i;
4078: delete_row (
4079: p_api_version => p_api_version,
4080: p_init_msg_list => OKL_API.G_FALSE,
4081: x_return_status => l_error_rec.error_type,
4082: x_msg_count => l_error_rec.msg_count,
4083: x_msg_data => l_error_rec.msg_data,
4084: p_tehv_rec => p_tehv_tbl(i));
4081: x_return_status => l_error_rec.error_type,
4082: x_msg_count => l_error_rec.msg_count,
4083: x_msg_data => l_error_rec.msg_data,
4084: p_tehv_rec => p_tehv_tbl(i));
4085: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4086: l_error_rec.sqlcode := SQLCODE;
4087: load_error_tbl(l_error_rec, px_error_tbl);
4088: ELSE
4089: x_msg_count := l_error_rec.msg_count;
4089: x_msg_count := l_error_rec.msg_count;
4090: x_msg_data := l_error_rec.msg_data;
4091: END IF;
4092: EXCEPTION
4093: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4094: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4095: l_error_rec.sqlcode := SQLCODE;
4096: load_error_tbl(l_error_rec, px_error_tbl);
4097: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4090: x_msg_data := l_error_rec.msg_data;
4091: END IF;
4092: EXCEPTION
4093: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4094: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4095: l_error_rec.sqlcode := SQLCODE;
4096: load_error_tbl(l_error_rec, px_error_tbl);
4097: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4098: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4093: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4094: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4095: l_error_rec.sqlcode := SQLCODE;
4096: load_error_tbl(l_error_rec, px_error_tbl);
4097: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4098: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4099: l_error_rec.sqlcode := SQLCODE;
4100: load_error_tbl(l_error_rec, px_error_tbl);
4101: WHEN OTHERS THEN
4094: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4095: l_error_rec.sqlcode := SQLCODE;
4096: load_error_tbl(l_error_rec, px_error_tbl);
4097: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4098: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4099: l_error_rec.sqlcode := SQLCODE;
4100: load_error_tbl(l_error_rec, px_error_tbl);
4101: WHEN OTHERS THEN
4102: l_error_rec.error_type := 'OTHERS';
4109: END IF;
4110: -- Loop through the error_tbl to find the error with the highest severity
4111: -- and return it.
4112: x_return_status := find_highest_exception(px_error_tbl);
4113: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4114: EXCEPTION
4115: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4116: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4117: (
4111: -- and return it.
4112: x_return_status := find_highest_exception(px_error_tbl);
4113: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4114: EXCEPTION
4115: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4116: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4117: (
4118: l_api_name,
4119: G_PKG_NAME,
4112: x_return_status := find_highest_exception(px_error_tbl);
4113: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4114: EXCEPTION
4115: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4116: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4117: (
4118: l_api_name,
4119: G_PKG_NAME,
4120: 'OKL_API.G_RET_STS_ERROR',
4116: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4117: (
4118: l_api_name,
4119: G_PKG_NAME,
4120: 'OKL_API.G_RET_STS_ERROR',
4121: x_msg_count,
4122: x_msg_data,
4123: '_PVT'
4124: );
4121: x_msg_count,
4122: x_msg_data,
4123: '_PVT'
4124: );
4125: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4126: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4127: (
4128: l_api_name,
4129: G_PKG_NAME,
4122: x_msg_data,
4123: '_PVT'
4124: );
4125: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4126: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4127: (
4128: l_api_name,
4129: G_PKG_NAME,
4130: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4126: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4127: (
4128: l_api_name,
4129: G_PKG_NAME,
4130: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4131: x_msg_count,
4132: x_msg_data,
4133: '_PVT'
4134: );
4132: x_msg_data,
4133: '_PVT'
4134: );
4135: WHEN OTHERS THEN
4136: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4137: (
4138: l_api_name,
4139: G_PKG_NAME,
4140: 'OTHERS',
4148: -- PL/SQL TBL delete_row for:OKL_TRX_EXTENSION_V --
4149: ---------------------------------------------------
4150: PROCEDURE delete_row(
4151: p_api_version IN NUMBER,
4152: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4153: x_return_status OUT NOCOPY VARCHAR2,
4154: x_msg_count OUT NOCOPY NUMBER,
4155: x_msg_data OUT NOCOPY VARCHAR2,
4156: p_tehv_tbl IN tehv_tbl_type) IS
4156: p_tehv_tbl IN tehv_tbl_type) IS
4157:
4158: l_api_version CONSTANT NUMBER := 1;
4159: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4160: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4161: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4162: BEGIN
4163: OKL_API.init_msg_list(p_init_msg_list);
4164: -- Make sure PL/SQL table has records in it before passing
4157:
4158: l_api_version CONSTANT NUMBER := 1;
4159: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4160: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4161: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4162: BEGIN
4163: OKL_API.init_msg_list(p_init_msg_list);
4164: -- Make sure PL/SQL table has records in it before passing
4165: IF (p_tehv_tbl.COUNT > 0) THEN
4159: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4160: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4161: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4162: BEGIN
4163: OKL_API.init_msg_list(p_init_msg_list);
4164: -- Make sure PL/SQL table has records in it before passing
4165: IF (p_tehv_tbl.COUNT > 0) THEN
4166: delete_row (
4167: p_api_version => p_api_version,
4164: -- Make sure PL/SQL table has records in it before passing
4165: IF (p_tehv_tbl.COUNT > 0) THEN
4166: delete_row (
4167: p_api_version => p_api_version,
4168: p_init_msg_list => OKL_API.G_FALSE,
4169: x_return_status => x_return_status,
4170: x_msg_count => x_msg_count,
4171: x_msg_data => x_msg_data,
4172: p_tehv_tbl => p_tehv_tbl,
4171: x_msg_data => x_msg_data,
4172: p_tehv_tbl => p_tehv_tbl,
4173: px_error_tbl => l_error_tbl);
4174: END IF;
4175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4176: EXCEPTION
4177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4179: (
4173: px_error_tbl => l_error_tbl);
4174: END IF;
4175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4176: EXCEPTION
4177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4179: (
4180: l_api_name,
4181: G_PKG_NAME,
4174: END IF;
4175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4176: EXCEPTION
4177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4179: (
4180: l_api_name,
4181: G_PKG_NAME,
4182: 'OKL_API.G_RET_STS_ERROR',
4178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4179: (
4180: l_api_name,
4181: G_PKG_NAME,
4182: 'OKL_API.G_RET_STS_ERROR',
4183: x_msg_count,
4184: x_msg_data,
4185: '_PVT'
4186: );
4183: x_msg_count,
4184: x_msg_data,
4185: '_PVT'
4186: );
4187: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4188: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4189: (
4190: l_api_name,
4191: G_PKG_NAME,
4184: x_msg_data,
4185: '_PVT'
4186: );
4187: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4188: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4189: (
4190: l_api_name,
4191: G_PKG_NAME,
4192: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4188: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4189: (
4190: l_api_name,
4191: G_PKG_NAME,
4192: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4193: x_msg_count,
4194: x_msg_data,
4195: '_PVT'
4196: );
4194: x_msg_data,
4195: '_PVT'
4196: );
4197: WHEN OTHERS THEN
4198: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4199: (
4200: l_api_name,
4201: G_PKG_NAME,
4202: 'OTHERS',
4214: -- insert_row for:OKL_TRX_EXTENSION_B/OKL_TRX_EXTENSION_TL ----------------
4215: ---------------------------------------------------------------------------
4216: PROCEDURE insert_row(
4217: p_api_version IN NUMBER,
4218: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4219: x_return_status OUT NOCOPY VARCHAR2,
4220: x_msg_count OUT NOCOPY NUMBER,
4221: x_msg_data OUT NOCOPY VARCHAR2,
4222: p_teh_rec IN teh_rec_type,
4225: x_tehl_tbl OUT NOCOPY tehl_tbl_type) IS
4226:
4227: l_api_version CONSTANT NUMBER := 1;
4228: l_api_name CONSTANT VARCHAR2(30) := 'B_TL_insert_row';
4229: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4230:
4231: l_teh_rec teh_rec_type := p_teh_rec;
4232: l_def_teh_rec teh_rec_type;
4233: lx_teh_rec teh_rec_type;
4257: FUNCTION Set_Attributes (
4258: p_teh_rec IN teh_rec_type,
4259: x_teh_rec OUT NOCOPY teh_rec_type
4260: ) RETURN VARCHAR2 IS
4261: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4262: BEGIN
4263: x_teh_rec := p_teh_rec;
4264: x_teh_rec.OBJECT_VERSION_NUMBER := 1;
4265: RETURN(l_return_status);
4264: x_teh_rec.OBJECT_VERSION_NUMBER := 1;
4265: RETURN(l_return_status);
4266: END Set_Attributes;
4267: BEGIN
4268: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4269: G_PKG_NAME,
4270: p_init_msg_list,
4271: l_api_version,
4272: p_api_version,
4271: l_api_version,
4272: p_api_version,
4273: '_PVT',
4274: x_return_status);
4275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4278: RAISE OKL_API.G_EXCEPTION_ERROR;
4279: END IF;
4272: p_api_version,
4273: '_PVT',
4274: x_return_status);
4275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4278: RAISE OKL_API.G_EXCEPTION_ERROR;
4279: END IF;
4280: -- Set primary key value
4273: '_PVT',
4274: x_return_status);
4275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4278: RAISE OKL_API.G_EXCEPTION_ERROR;
4279: END IF;
4280: -- Set primary key value
4281: l_teh_rec.HEADER_EXTENSION_ID := get_seq_id;
4274: x_return_status);
4275: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4277: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4278: RAISE OKL_API.G_EXCEPTION_ERROR;
4279: END IF;
4280: -- Set primary key value
4281: l_teh_rec.HEADER_EXTENSION_ID := get_seq_id;
4282: -- Setting item attributes
4283: l_return_Status := Set_Attributes(
4284: l_teh_rec, -- IN
4285: l_def_teh_rec); -- OUT
4286: --- If any errors happen abort API
4287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: RAISE OKL_API.G_EXCEPTION_ERROR;
4291: END IF;
4284: l_teh_rec, -- IN
4285: l_def_teh_rec); -- OUT
4286: --- If any errors happen abort API
4287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: RAISE OKL_API.G_EXCEPTION_ERROR;
4291: END IF;
4292: l_def_teh_rec := fill_who_columns(l_def_teh_rec);
4285: l_def_teh_rec); -- OUT
4286: --- If any errors happen abort API
4287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: RAISE OKL_API.G_EXCEPTION_ERROR;
4291: END IF;
4292: l_def_teh_rec := fill_who_columns(l_def_teh_rec);
4293: l_teh_rec := l_def_teh_rec;
4286: --- If any errors happen abort API
4287: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4289: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: RAISE OKL_API.G_EXCEPTION_ERROR;
4291: END IF;
4292: l_def_teh_rec := fill_who_columns(l_def_teh_rec);
4293: l_teh_rec := l_def_teh_rec;
4294: -----------------------------------------------
4301: x_msg_data,
4302: l_teh_rec,
4303: lx_teh_rec
4304: );
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4302: l_teh_rec,
4303: lx_teh_rec
4304: );
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310:
4303: lx_teh_rec
4304: );
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310:
4311: FOR idx in p_tehl_tbl.FIRST .. p_tehl_tbl.LAST
4304: );
4305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_ERROR;
4309: END IF;
4310:
4311: FOR idx in p_tehl_tbl.FIRST .. p_tehl_tbl.LAST
4312: LOOP
4324: l_tehl_tbl(idx),
4325: lx_tehl_tbl(idx)
4326: );
4327: END LOOP;
4328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4331: RAISE OKL_API.G_EXCEPTION_ERROR;
4332: END IF;
4325: lx_tehl_tbl(idx)
4326: );
4327: END LOOP;
4328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4331: RAISE OKL_API.G_EXCEPTION_ERROR;
4332: END IF;
4333: -- Set OUT values
4326: );
4327: END LOOP;
4328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4331: RAISE OKL_API.G_EXCEPTION_ERROR;
4332: END IF;
4333: -- Set OUT values
4334: x_teh_rec := lx_teh_rec;
4327: END LOOP;
4328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4330: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4331: RAISE OKL_API.G_EXCEPTION_ERROR;
4332: END IF;
4333: -- Set OUT values
4334: x_teh_rec := lx_teh_rec;
4335: x_tehl_tbl := lx_tehl_tbl;
4333: -- Set OUT values
4334: x_teh_rec := lx_teh_rec;
4335: x_tehl_tbl := lx_tehl_tbl;
4336: x_return_status := l_return_status;
4337: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4338: EXCEPTION
4339: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4340: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4341: (
4335: x_tehl_tbl := lx_tehl_tbl;
4336: x_return_status := l_return_status;
4337: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4338: EXCEPTION
4339: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4340: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4341: (
4342: l_api_name,
4343: G_PKG_NAME,
4336: x_return_status := l_return_status;
4337: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4338: EXCEPTION
4339: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4340: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4341: (
4342: l_api_name,
4343: G_PKG_NAME,
4344: 'OKL_API.G_RET_STS_ERROR',
4340: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4341: (
4342: l_api_name,
4343: G_PKG_NAME,
4344: 'OKL_API.G_RET_STS_ERROR',
4345: x_msg_count,
4346: x_msg_data,
4347: '_PVT'
4348: );
4345: x_msg_count,
4346: x_msg_data,
4347: '_PVT'
4348: );
4349: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4350: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4351: (
4352: l_api_name,
4353: G_PKG_NAME,
4346: x_msg_data,
4347: '_PVT'
4348: );
4349: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4350: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4351: (
4352: l_api_name,
4353: G_PKG_NAME,
4354: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4350: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4351: (
4352: l_api_name,
4353: G_PKG_NAME,
4354: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4355: x_msg_count,
4356: x_msg_data,
4357: '_PVT'
4358: );
4356: x_msg_data,
4357: '_PVT'
4358: );
4359: WHEN OTHERS THEN
4360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4361: (
4362: l_api_name,
4363: G_PKG_NAME,
4364: 'OTHERS',