[Home] [Help]
3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_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 OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_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 OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_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 <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_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 <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_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);
298: ) RETURN khrv_rec_type IS
299: l_khrv_rec khrv_rec_type;
300: l_row_notfound BOOLEAN := TRUE;
301: BEGIN
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: l_khrv_rec := get_rec(p_khrv_rec, l_row_notfound);
304: IF (l_row_notfound) THEN
305: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ID');
306: x_return_status := OKC_API.G_RET_STS_ERROR;
301: BEGIN
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: l_khrv_rec := get_rec(p_khrv_rec, l_row_notfound);
304: IF (l_row_notfound) THEN
305: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ID');
306: x_return_status := OKC_API.G_RET_STS_ERROR;
307: END IF;
308: RETURN(l_khrv_rec);
309: END get_rec;
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: l_khrv_rec := get_rec(p_khrv_rec, l_row_notfound);
304: IF (l_row_notfound) THEN
305: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ID');
306: x_return_status := OKC_API.G_RET_STS_ERROR;
307: END IF;
308: RETURN(l_khrv_rec);
309: END get_rec;
310: -----------------------------------------------------------
523: ) RETURN khr_rec_type IS
524: l_khr_rec khr_rec_type;
525: l_row_notfound BOOLEAN := TRUE;
526: BEGIN
527: x_return_status := OKC_API.G_RET_STS_SUCCESS;
528: l_khr_rec := get_rec(p_khr_rec, l_row_notfound);
529: IF (l_row_notfound) THEN
530: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ID');
531: x_return_status := OKC_API.G_RET_STS_ERROR;
526: BEGIN
527: x_return_status := OKC_API.G_RET_STS_SUCCESS;
528: l_khr_rec := get_rec(p_khr_rec, l_row_notfound);
529: IF (l_row_notfound) THEN
530: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ID');
531: x_return_status := OKC_API.G_RET_STS_ERROR;
532: END IF;
533: RETURN(l_khr_rec);
534: END get_rec;
527: x_return_status := OKC_API.G_RET_STS_SUCCESS;
528: l_khr_rec := get_rec(p_khr_rec, l_row_notfound);
529: IF (l_row_notfound) THEN
530: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ID');
531: x_return_status := OKC_API.G_RET_STS_ERROR;
532: END IF;
533: RETURN(l_khr_rec);
534: END get_rec;
535: -----------------------------------------------------------
549: p_khrv_rec IN khrv_rec_type
550: ) RETURN khrv_rec_type IS
551: l_khrv_rec khrv_rec_type := p_khrv_rec;
552: BEGIN
553: IF (l_khrv_rec.id = OKC_API.G_MISS_NUM ) THEN
554: l_khrv_rec.id := NULL;
555: END IF;
556: IF (l_khrv_rec.chr_id = OKC_API.G_MISS_NUM ) THEN
557: l_khrv_rec.chr_id := NULL;
552: BEGIN
553: IF (l_khrv_rec.id = OKC_API.G_MISS_NUM ) THEN
554: l_khrv_rec.id := NULL;
555: END IF;
556: IF (l_khrv_rec.chr_id = OKC_API.G_MISS_NUM ) THEN
557: l_khrv_rec.chr_id := NULL;
558: END IF;
559: IF (l_khrv_rec.acct_rule_id = OKC_API.G_MISS_NUM ) THEN
560: l_khrv_rec.acct_rule_id := NULL;
555: END IF;
556: IF (l_khrv_rec.chr_id = OKC_API.G_MISS_NUM ) THEN
557: l_khrv_rec.chr_id := NULL;
558: END IF;
559: IF (l_khrv_rec.acct_rule_id = OKC_API.G_MISS_NUM ) THEN
560: l_khrv_rec.acct_rule_id := NULL;
561: END IF;
562: IF (l_khrv_rec.payment_type = OKC_API.G_MISS_CHAR ) THEN
563: l_khrv_rec.payment_type := NULL;
558: END IF;
559: IF (l_khrv_rec.acct_rule_id = OKC_API.G_MISS_NUM ) THEN
560: l_khrv_rec.acct_rule_id := NULL;
561: END IF;
562: IF (l_khrv_rec.payment_type = OKC_API.G_MISS_CHAR ) THEN
563: l_khrv_rec.payment_type := NULL;
564: END IF;
565: IF (l_khrv_rec.cc_no = OKC_API.G_MISS_CHAR ) THEN
566: l_khrv_rec.cc_no := NULL;
561: END IF;
562: IF (l_khrv_rec.payment_type = OKC_API.G_MISS_CHAR ) THEN
563: l_khrv_rec.payment_type := NULL;
564: END IF;
565: IF (l_khrv_rec.cc_no = OKC_API.G_MISS_CHAR ) THEN
566: l_khrv_rec.cc_no := NULL;
567: END IF;
568: IF (l_khrv_rec.cc_expiry_date = OKC_API.G_MISS_DATE ) THEN
569: l_khrv_rec.cc_expiry_date := NULL;
564: END IF;
565: IF (l_khrv_rec.cc_no = OKC_API.G_MISS_CHAR ) THEN
566: l_khrv_rec.cc_no := NULL;
567: END IF;
568: IF (l_khrv_rec.cc_expiry_date = OKC_API.G_MISS_DATE ) THEN
569: l_khrv_rec.cc_expiry_date := NULL;
570: END IF;
571: IF (l_khrv_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM ) THEN
572: l_khrv_rec.cc_bank_acct_id := NULL;
567: END IF;
568: IF (l_khrv_rec.cc_expiry_date = OKC_API.G_MISS_DATE ) THEN
569: l_khrv_rec.cc_expiry_date := NULL;
570: END IF;
571: IF (l_khrv_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM ) THEN
572: l_khrv_rec.cc_bank_acct_id := NULL;
573: END IF;
574: IF (l_khrv_rec.cc_auth_code = OKC_API.G_MISS_CHAR ) THEN
575: l_khrv_rec.cc_auth_code := NULL;
570: END IF;
571: IF (l_khrv_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM ) THEN
572: l_khrv_rec.cc_bank_acct_id := NULL;
573: END IF;
574: IF (l_khrv_rec.cc_auth_code = OKC_API.G_MISS_CHAR ) THEN
575: l_khrv_rec.cc_auth_code := NULL;
576: END IF;
577: IF (l_khrv_rec.commitment_id = OKC_API.G_MISS_NUM ) THEN
578: l_khrv_rec.commitment_id := NULL;
573: END IF;
574: IF (l_khrv_rec.cc_auth_code = OKC_API.G_MISS_CHAR ) THEN
575: l_khrv_rec.cc_auth_code := NULL;
576: END IF;
577: IF (l_khrv_rec.commitment_id = OKC_API.G_MISS_NUM ) THEN
578: l_khrv_rec.commitment_id := NULL;
579: END IF;
580: IF (l_khrv_rec.grace_duration = OKC_API.G_MISS_NUM ) THEN
581: l_khrv_rec.grace_duration := NULL;
576: END IF;
577: IF (l_khrv_rec.commitment_id = OKC_API.G_MISS_NUM ) THEN
578: l_khrv_rec.commitment_id := NULL;
579: END IF;
580: IF (l_khrv_rec.grace_duration = OKC_API.G_MISS_NUM ) THEN
581: l_khrv_rec.grace_duration := NULL;
582: END IF;
583: IF (l_khrv_rec.grace_period = OKC_API.G_MISS_CHAR ) THEN
584: l_khrv_rec.grace_period := NULL;
579: END IF;
580: IF (l_khrv_rec.grace_duration = OKC_API.G_MISS_NUM ) THEN
581: l_khrv_rec.grace_duration := NULL;
582: END IF;
583: IF (l_khrv_rec.grace_period = OKC_API.G_MISS_CHAR ) THEN
584: l_khrv_rec.grace_period := NULL;
585: END IF;
586: IF (l_khrv_rec.est_rev_percent = OKC_API.G_MISS_NUM ) THEN
587: l_khrv_rec.est_rev_percent := NULL;
582: END IF;
583: IF (l_khrv_rec.grace_period = OKC_API.G_MISS_CHAR ) THEN
584: l_khrv_rec.grace_period := NULL;
585: END IF;
586: IF (l_khrv_rec.est_rev_percent = OKC_API.G_MISS_NUM ) THEN
587: l_khrv_rec.est_rev_percent := NULL;
588: END IF;
589: IF (l_khrv_rec.est_rev_date = OKC_API.G_MISS_DATE ) THEN
590: l_khrv_rec.est_rev_date := NULL;
585: END IF;
586: IF (l_khrv_rec.est_rev_percent = OKC_API.G_MISS_NUM ) THEN
587: l_khrv_rec.est_rev_percent := NULL;
588: END IF;
589: IF (l_khrv_rec.est_rev_date = OKC_API.G_MISS_DATE ) THEN
590: l_khrv_rec.est_rev_date := NULL;
591: END IF;
592: IF (l_khrv_rec.tax_amount = OKC_API.G_MISS_NUM ) THEN
593: l_khrv_rec.tax_amount := NULL;
588: END IF;
589: IF (l_khrv_rec.est_rev_date = OKC_API.G_MISS_DATE ) THEN
590: l_khrv_rec.est_rev_date := NULL;
591: END IF;
592: IF (l_khrv_rec.tax_amount = OKC_API.G_MISS_NUM ) THEN
593: l_khrv_rec.tax_amount := NULL;
594: END IF;
595: IF (l_khrv_rec.tax_status = OKC_API.G_MISS_CHAR ) THEN
596: l_khrv_rec.tax_status := NULL;
591: END IF;
592: IF (l_khrv_rec.tax_amount = OKC_API.G_MISS_NUM ) THEN
593: l_khrv_rec.tax_amount := NULL;
594: END IF;
595: IF (l_khrv_rec.tax_status = OKC_API.G_MISS_CHAR ) THEN
596: l_khrv_rec.tax_status := NULL;
597: END IF;
598: IF (l_khrv_rec.tax_code = OKC_API.G_MISS_NUM ) THEN
599: l_khrv_rec.tax_code := NULL;
594: END IF;
595: IF (l_khrv_rec.tax_status = OKC_API.G_MISS_CHAR ) THEN
596: l_khrv_rec.tax_status := NULL;
597: END IF;
598: IF (l_khrv_rec.tax_code = OKC_API.G_MISS_NUM ) THEN
599: l_khrv_rec.tax_code := NULL;
600: END IF;
601: IF (l_khrv_rec.tax_exemption_id = OKC_API.G_MISS_NUM ) THEN
602: l_khrv_rec.tax_exemption_id := NULL;
597: END IF;
598: IF (l_khrv_rec.tax_code = OKC_API.G_MISS_NUM ) THEN
599: l_khrv_rec.tax_code := NULL;
600: END IF;
601: IF (l_khrv_rec.tax_exemption_id = OKC_API.G_MISS_NUM ) THEN
602: l_khrv_rec.tax_exemption_id := NULL;
603: END IF;
604: IF (l_khrv_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
605: l_khrv_rec.billing_profile_id := NULL;
600: END IF;
601: IF (l_khrv_rec.tax_exemption_id = OKC_API.G_MISS_NUM ) THEN
602: l_khrv_rec.tax_exemption_id := NULL;
603: END IF;
604: IF (l_khrv_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
605: l_khrv_rec.billing_profile_id := NULL;
606: END IF;
607: IF (l_khrv_rec.renewal_status = OKC_API.G_MISS_CHAR ) THEN
608: l_khrv_rec.renewal_status := NULL;
603: END IF;
604: IF (l_khrv_rec.billing_profile_id = OKC_API.G_MISS_NUM ) THEN
605: l_khrv_rec.billing_profile_id := NULL;
606: END IF;
607: IF (l_khrv_rec.renewal_status = OKC_API.G_MISS_CHAR ) THEN
608: l_khrv_rec.renewal_status := NULL;
609: END IF;
610: IF (l_khrv_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR ) THEN
611: l_khrv_rec.electronic_renewal_flag := NULL;
606: END IF;
607: IF (l_khrv_rec.renewal_status = OKC_API.G_MISS_CHAR ) THEN
608: l_khrv_rec.renewal_status := NULL;
609: END IF;
610: IF (l_khrv_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR ) THEN
611: l_khrv_rec.electronic_renewal_flag := NULL;
612: END IF;
613: IF (l_khrv_rec.quote_to_contact_id = OKC_API.G_MISS_NUM ) THEN
614: l_khrv_rec.quote_to_contact_id := NULL;
609: END IF;
610: IF (l_khrv_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR ) THEN
611: l_khrv_rec.electronic_renewal_flag := NULL;
612: END IF;
613: IF (l_khrv_rec.quote_to_contact_id = OKC_API.G_MISS_NUM ) THEN
614: l_khrv_rec.quote_to_contact_id := NULL;
615: END IF;
616: IF (l_khrv_rec.quote_to_site_id = OKC_API.G_MISS_NUM ) THEN
617: l_khrv_rec.quote_to_site_id := NULL;
612: END IF;
613: IF (l_khrv_rec.quote_to_contact_id = OKC_API.G_MISS_NUM ) THEN
614: l_khrv_rec.quote_to_contact_id := NULL;
615: END IF;
616: IF (l_khrv_rec.quote_to_site_id = OKC_API.G_MISS_NUM ) THEN
617: l_khrv_rec.quote_to_site_id := NULL;
618: END IF;
619: IF (l_khrv_rec.quote_to_email_id = OKC_API.G_MISS_NUM ) THEN
620: l_khrv_rec.quote_to_email_id := NULL;
615: END IF;
616: IF (l_khrv_rec.quote_to_site_id = OKC_API.G_MISS_NUM ) THEN
617: l_khrv_rec.quote_to_site_id := NULL;
618: END IF;
619: IF (l_khrv_rec.quote_to_email_id = OKC_API.G_MISS_NUM ) THEN
620: l_khrv_rec.quote_to_email_id := NULL;
621: END IF;
622: IF (l_khrv_rec.quote_to_phone_id = OKC_API.G_MISS_NUM ) THEN
623: l_khrv_rec.quote_to_phone_id := NULL;
618: END IF;
619: IF (l_khrv_rec.quote_to_email_id = OKC_API.G_MISS_NUM ) THEN
620: l_khrv_rec.quote_to_email_id := NULL;
621: END IF;
622: IF (l_khrv_rec.quote_to_phone_id = OKC_API.G_MISS_NUM ) THEN
623: l_khrv_rec.quote_to_phone_id := NULL;
624: END IF;
625: IF (l_khrv_rec.quote_to_fax_id = OKC_API.G_MISS_NUM ) THEN
626: l_khrv_rec.quote_to_fax_id := NULL;
621: END IF;
622: IF (l_khrv_rec.quote_to_phone_id = OKC_API.G_MISS_NUM ) THEN
623: l_khrv_rec.quote_to_phone_id := NULL;
624: END IF;
625: IF (l_khrv_rec.quote_to_fax_id = OKC_API.G_MISS_NUM ) THEN
626: l_khrv_rec.quote_to_fax_id := NULL;
627: END IF;
628: IF (l_khrv_rec.renewal_po_required = OKC_API.G_MISS_CHAR ) THEN
629: l_khrv_rec.renewal_po_required := NULL;
624: END IF;
625: IF (l_khrv_rec.quote_to_fax_id = OKC_API.G_MISS_NUM ) THEN
626: l_khrv_rec.quote_to_fax_id := NULL;
627: END IF;
628: IF (l_khrv_rec.renewal_po_required = OKC_API.G_MISS_CHAR ) THEN
629: l_khrv_rec.renewal_po_required := NULL;
630: END IF;
631: IF (l_khrv_rec.renewal_po_number = OKC_API.G_MISS_CHAR ) THEN
632: l_khrv_rec.renewal_po_number := NULL;
627: END IF;
628: IF (l_khrv_rec.renewal_po_required = OKC_API.G_MISS_CHAR ) THEN
629: l_khrv_rec.renewal_po_required := NULL;
630: END IF;
631: IF (l_khrv_rec.renewal_po_number = OKC_API.G_MISS_CHAR ) THEN
632: l_khrv_rec.renewal_po_number := NULL;
633: END IF;
634: IF (l_khrv_rec.renewal_price_list = OKC_API.G_MISS_NUM ) THEN
635: l_khrv_rec.renewal_price_list := NULL;
630: END IF;
631: IF (l_khrv_rec.renewal_po_number = OKC_API.G_MISS_CHAR ) THEN
632: l_khrv_rec.renewal_po_number := NULL;
633: END IF;
634: IF (l_khrv_rec.renewal_price_list = OKC_API.G_MISS_NUM ) THEN
635: l_khrv_rec.renewal_price_list := NULL;
636: END IF;
637: IF (l_khrv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR ) THEN
638: l_khrv_rec.renewal_pricing_type := NULL;
633: END IF;
634: IF (l_khrv_rec.renewal_price_list = OKC_API.G_MISS_NUM ) THEN
635: l_khrv_rec.renewal_price_list := NULL;
636: END IF;
637: IF (l_khrv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR ) THEN
638: l_khrv_rec.renewal_pricing_type := NULL;
639: END IF;
640: IF (l_khrv_rec.renewal_markup_percent = OKC_API.G_MISS_NUM ) THEN
641: l_khrv_rec.renewal_markup_percent := NULL;
636: END IF;
637: IF (l_khrv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR ) THEN
638: l_khrv_rec.renewal_pricing_type := NULL;
639: END IF;
640: IF (l_khrv_rec.renewal_markup_percent = OKC_API.G_MISS_NUM ) THEN
641: l_khrv_rec.renewal_markup_percent := NULL;
642: END IF;
643: IF (l_khrv_rec.renewal_grace_duration = OKC_API.G_MISS_NUM ) THEN
644: l_khrv_rec.renewal_grace_duration := NULL;
639: END IF;
640: IF (l_khrv_rec.renewal_markup_percent = OKC_API.G_MISS_NUM ) THEN
641: l_khrv_rec.renewal_markup_percent := NULL;
642: END IF;
643: IF (l_khrv_rec.renewal_grace_duration = OKC_API.G_MISS_NUM ) THEN
644: l_khrv_rec.renewal_grace_duration := NULL;
645: END IF;
646: IF (l_khrv_rec.renewal_grace_period = OKC_API.G_MISS_CHAR ) THEN
647: l_khrv_rec.renewal_grace_period := NULL;
642: END IF;
643: IF (l_khrv_rec.renewal_grace_duration = OKC_API.G_MISS_NUM ) THEN
644: l_khrv_rec.renewal_grace_duration := NULL;
645: END IF;
646: IF (l_khrv_rec.renewal_grace_period = OKC_API.G_MISS_CHAR ) THEN
647: l_khrv_rec.renewal_grace_period := NULL;
648: END IF;
649: IF (l_khrv_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM ) THEN
650: l_khrv_rec.renewal_est_rev_percent := NULL;
645: END IF;
646: IF (l_khrv_rec.renewal_grace_period = OKC_API.G_MISS_CHAR ) THEN
647: l_khrv_rec.renewal_grace_period := NULL;
648: END IF;
649: IF (l_khrv_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM ) THEN
650: l_khrv_rec.renewal_est_rev_percent := NULL;
651: END IF;
652: IF (l_khrv_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM ) THEN
653: l_khrv_rec.renewal_est_rev_duration := NULL;
648: END IF;
649: IF (l_khrv_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM ) THEN
650: l_khrv_rec.renewal_est_rev_percent := NULL;
651: END IF;
652: IF (l_khrv_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM ) THEN
653: l_khrv_rec.renewal_est_rev_duration := NULL;
654: END IF;
655: IF (l_khrv_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR ) THEN
656: l_khrv_rec.renewal_est_rev_period := NULL;
651: END IF;
652: IF (l_khrv_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM ) THEN
653: l_khrv_rec.renewal_est_rev_duration := NULL;
654: END IF;
655: IF (l_khrv_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR ) THEN
656: l_khrv_rec.renewal_est_rev_period := NULL;
657: END IF;
658: IF (l_khrv_rec.renewal_price_list_used = OKC_API.G_MISS_NUM ) THEN
659: l_khrv_rec.renewal_price_list_used := NULL;
654: END IF;
655: IF (l_khrv_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR ) THEN
656: l_khrv_rec.renewal_est_rev_period := NULL;
657: END IF;
658: IF (l_khrv_rec.renewal_price_list_used = OKC_API.G_MISS_NUM ) THEN
659: l_khrv_rec.renewal_price_list_used := NULL;
660: END IF;
661: IF (l_khrv_rec.renewal_type_used = OKC_API.G_MISS_CHAR ) THEN
662: l_khrv_rec.renewal_type_used := NULL;
657: END IF;
658: IF (l_khrv_rec.renewal_price_list_used = OKC_API.G_MISS_NUM ) THEN
659: l_khrv_rec.renewal_price_list_used := NULL;
660: END IF;
661: IF (l_khrv_rec.renewal_type_used = OKC_API.G_MISS_CHAR ) THEN
662: l_khrv_rec.renewal_type_used := NULL;
663: END IF;
664: IF (l_khrv_rec.renewal_notification_to = OKC_API.G_MISS_NUM ) THEN
665: l_khrv_rec.renewal_notification_to := NULL;
660: END IF;
661: IF (l_khrv_rec.renewal_type_used = OKC_API.G_MISS_CHAR ) THEN
662: l_khrv_rec.renewal_type_used := NULL;
663: END IF;
664: IF (l_khrv_rec.renewal_notification_to = OKC_API.G_MISS_NUM ) THEN
665: l_khrv_rec.renewal_notification_to := NULL;
666: END IF;
667: IF (l_khrv_rec.renewal_po_used = OKC_API.G_MISS_CHAR ) THEN
668: l_khrv_rec.renewal_po_used := NULL;
663: END IF;
664: IF (l_khrv_rec.renewal_notification_to = OKC_API.G_MISS_NUM ) THEN
665: l_khrv_rec.renewal_notification_to := NULL;
666: END IF;
667: IF (l_khrv_rec.renewal_po_used = OKC_API.G_MISS_CHAR ) THEN
668: l_khrv_rec.renewal_po_used := NULL;
669: END IF;
670: IF (l_khrv_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR ) THEN
671: l_khrv_rec.renewal_pricing_type_used := NULL;
666: END IF;
667: IF (l_khrv_rec.renewal_po_used = OKC_API.G_MISS_CHAR ) THEN
668: l_khrv_rec.renewal_po_used := NULL;
669: END IF;
670: IF (l_khrv_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR ) THEN
671: l_khrv_rec.renewal_pricing_type_used := NULL;
672: END IF;
673: IF (l_khrv_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM ) THEN
674: l_khrv_rec.renewal_markup_percent_used := NULL;
669: END IF;
670: IF (l_khrv_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR ) THEN
671: l_khrv_rec.renewal_pricing_type_used := NULL;
672: END IF;
673: IF (l_khrv_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM ) THEN
674: l_khrv_rec.renewal_markup_percent_used := NULL;
675: END IF;
676: IF (l_khrv_rec.rev_est_percent_used = OKC_API.G_MISS_NUM ) THEN
677: l_khrv_rec.rev_est_percent_used := NULL;
672: END IF;
673: IF (l_khrv_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM ) THEN
674: l_khrv_rec.renewal_markup_percent_used := NULL;
675: END IF;
676: IF (l_khrv_rec.rev_est_percent_used = OKC_API.G_MISS_NUM ) THEN
677: l_khrv_rec.rev_est_percent_used := NULL;
678: END IF;
679: IF (l_khrv_rec.rev_est_duration_used = OKC_API.G_MISS_NUM ) THEN
680: l_khrv_rec.rev_est_duration_used := NULL;
675: END IF;
676: IF (l_khrv_rec.rev_est_percent_used = OKC_API.G_MISS_NUM ) THEN
677: l_khrv_rec.rev_est_percent_used := NULL;
678: END IF;
679: IF (l_khrv_rec.rev_est_duration_used = OKC_API.G_MISS_NUM ) THEN
680: l_khrv_rec.rev_est_duration_used := NULL;
681: END IF;
682: IF (l_khrv_rec.rev_est_period_used = OKC_API.G_MISS_CHAR ) THEN
683: l_khrv_rec.rev_est_period_used := NULL;
678: END IF;
679: IF (l_khrv_rec.rev_est_duration_used = OKC_API.G_MISS_NUM ) THEN
680: l_khrv_rec.rev_est_duration_used := NULL;
681: END IF;
682: IF (l_khrv_rec.rev_est_period_used = OKC_API.G_MISS_CHAR ) THEN
683: l_khrv_rec.rev_est_period_used := NULL;
684: END IF;
685: IF (l_khrv_rec.billing_profile_used = OKC_API.G_MISS_NUM ) THEN
686: l_khrv_rec.billing_profile_used := NULL;
681: END IF;
682: IF (l_khrv_rec.rev_est_period_used = OKC_API.G_MISS_CHAR ) THEN
683: l_khrv_rec.rev_est_period_used := NULL;
684: END IF;
685: IF (l_khrv_rec.billing_profile_used = OKC_API.G_MISS_NUM ) THEN
686: l_khrv_rec.billing_profile_used := NULL;
687: END IF;
688: IF (l_khrv_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR ) THEN
689: l_khrv_rec.ern_flag_used_yn := NULL;
684: END IF;
685: IF (l_khrv_rec.billing_profile_used = OKC_API.G_MISS_NUM ) THEN
686: l_khrv_rec.billing_profile_used := NULL;
687: END IF;
688: IF (l_khrv_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR ) THEN
689: l_khrv_rec.ern_flag_used_yn := NULL;
690: END IF;
691: IF (l_khrv_rec.evn_threshold_amt = OKC_API.G_MISS_NUM ) THEN
692: l_khrv_rec.evn_threshold_amt := NULL;
687: END IF;
688: IF (l_khrv_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR ) THEN
689: l_khrv_rec.ern_flag_used_yn := NULL;
690: END IF;
691: IF (l_khrv_rec.evn_threshold_amt = OKC_API.G_MISS_NUM ) THEN
692: l_khrv_rec.evn_threshold_amt := NULL;
693: END IF;
694: IF (l_khrv_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR ) THEN
695: l_khrv_rec.evn_threshold_cur := NULL;
690: END IF;
691: IF (l_khrv_rec.evn_threshold_amt = OKC_API.G_MISS_NUM ) THEN
692: l_khrv_rec.evn_threshold_amt := NULL;
693: END IF;
694: IF (l_khrv_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR ) THEN
695: l_khrv_rec.evn_threshold_cur := NULL;
696: END IF;
697: IF (l_khrv_rec.ern_threshold_amt = OKC_API.G_MISS_NUM ) THEN
698: l_khrv_rec.ern_threshold_amt := NULL;
693: END IF;
694: IF (l_khrv_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR ) THEN
695: l_khrv_rec.evn_threshold_cur := NULL;
696: END IF;
697: IF (l_khrv_rec.ern_threshold_amt = OKC_API.G_MISS_NUM ) THEN
698: l_khrv_rec.ern_threshold_amt := NULL;
699: END IF;
700: IF (l_khrv_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR ) THEN
701: l_khrv_rec.ern_threshold_cur := NULL;
696: END IF;
697: IF (l_khrv_rec.ern_threshold_amt = OKC_API.G_MISS_NUM ) THEN
698: l_khrv_rec.ern_threshold_amt := NULL;
699: END IF;
700: IF (l_khrv_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR ) THEN
701: l_khrv_rec.ern_threshold_cur := NULL;
702: END IF;
703: IF (l_khrv_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM ) THEN
704: l_khrv_rec.renewal_grace_duration_used := NULL;
699: END IF;
700: IF (l_khrv_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR ) THEN
701: l_khrv_rec.ern_threshold_cur := NULL;
702: END IF;
703: IF (l_khrv_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM ) THEN
704: l_khrv_rec.renewal_grace_duration_used := NULL;
705: END IF;
706: IF (l_khrv_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR ) THEN
707: l_khrv_rec.renewal_grace_period_used := NULL;
702: END IF;
703: IF (l_khrv_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM ) THEN
704: l_khrv_rec.renewal_grace_duration_used := NULL;
705: END IF;
706: IF (l_khrv_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR ) THEN
707: l_khrv_rec.renewal_grace_period_used := NULL;
708: END IF;
709: IF (l_khrv_rec.inv_trx_type = OKC_API.G_MISS_CHAR ) THEN
710: l_khrv_rec.inv_trx_type := NULL;
705: END IF;
706: IF (l_khrv_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR ) THEN
707: l_khrv_rec.renewal_grace_period_used := NULL;
708: END IF;
709: IF (l_khrv_rec.inv_trx_type = OKC_API.G_MISS_CHAR ) THEN
710: l_khrv_rec.inv_trx_type := NULL;
711: END IF;
712: IF (l_khrv_rec.inv_print_profile = OKC_API.G_MISS_CHAR ) THEN
713: l_khrv_rec.inv_print_profile := NULL;
708: END IF;
709: IF (l_khrv_rec.inv_trx_type = OKC_API.G_MISS_CHAR ) THEN
710: l_khrv_rec.inv_trx_type := NULL;
711: END IF;
712: IF (l_khrv_rec.inv_print_profile = OKC_API.G_MISS_CHAR ) THEN
713: l_khrv_rec.inv_print_profile := NULL;
714: END IF;
715: IF (l_khrv_rec.ar_interface_yn = OKC_API.G_MISS_CHAR ) THEN
716: l_khrv_rec.ar_interface_yn := NULL;
711: END IF;
712: IF (l_khrv_rec.inv_print_profile = OKC_API.G_MISS_CHAR ) THEN
713: l_khrv_rec.inv_print_profile := NULL;
714: END IF;
715: IF (l_khrv_rec.ar_interface_yn = OKC_API.G_MISS_CHAR ) THEN
716: l_khrv_rec.ar_interface_yn := NULL;
717: END IF;
718: IF (l_khrv_rec.hold_billing = OKC_API.G_MISS_CHAR ) THEN
719: l_khrv_rec.hold_billing := NULL;
714: END IF;
715: IF (l_khrv_rec.ar_interface_yn = OKC_API.G_MISS_CHAR ) THEN
716: l_khrv_rec.ar_interface_yn := NULL;
717: END IF;
718: IF (l_khrv_rec.hold_billing = OKC_API.G_MISS_CHAR ) THEN
719: l_khrv_rec.hold_billing := NULL;
720: END IF;
721: IF (l_khrv_rec.summary_trx_yn = OKC_API.G_MISS_CHAR ) THEN
722: l_khrv_rec.summary_trx_yn := NULL;
717: END IF;
718: IF (l_khrv_rec.hold_billing = OKC_API.G_MISS_CHAR ) THEN
719: l_khrv_rec.hold_billing := NULL;
720: END IF;
721: IF (l_khrv_rec.summary_trx_yn = OKC_API.G_MISS_CHAR ) THEN
722: l_khrv_rec.summary_trx_yn := NULL;
723: END IF;
724: IF (l_khrv_rec.service_po_number = OKC_API.G_MISS_CHAR ) THEN
725: l_khrv_rec.service_po_number := NULL;
720: END IF;
721: IF (l_khrv_rec.summary_trx_yn = OKC_API.G_MISS_CHAR ) THEN
722: l_khrv_rec.summary_trx_yn := NULL;
723: END IF;
724: IF (l_khrv_rec.service_po_number = OKC_API.G_MISS_CHAR ) THEN
725: l_khrv_rec.service_po_number := NULL;
726: END IF;
727: IF (l_khrv_rec.service_po_required = OKC_API.G_MISS_CHAR ) THEN
728: l_khrv_rec.service_po_required := NULL;
723: END IF;
724: IF (l_khrv_rec.service_po_number = OKC_API.G_MISS_CHAR ) THEN
725: l_khrv_rec.service_po_number := NULL;
726: END IF;
727: IF (l_khrv_rec.service_po_required = OKC_API.G_MISS_CHAR ) THEN
728: l_khrv_rec.service_po_required := NULL;
729: END IF;
730: IF (l_khrv_rec.billing_schedule_type = OKC_API.G_MISS_CHAR ) THEN
731: l_khrv_rec.billing_schedule_type := NULL;
726: END IF;
727: IF (l_khrv_rec.service_po_required = OKC_API.G_MISS_CHAR ) THEN
728: l_khrv_rec.service_po_required := NULL;
729: END IF;
730: IF (l_khrv_rec.billing_schedule_type = OKC_API.G_MISS_CHAR ) THEN
731: l_khrv_rec.billing_schedule_type := NULL;
732: END IF;
733: IF (l_khrv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
734: l_khrv_rec.object_version_number := NULL;
729: END IF;
730: IF (l_khrv_rec.billing_schedule_type = OKC_API.G_MISS_CHAR ) THEN
731: l_khrv_rec.billing_schedule_type := NULL;
732: END IF;
733: IF (l_khrv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
734: l_khrv_rec.object_version_number := NULL;
735: END IF;
736: IF (l_khrv_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
737: l_khrv_rec.security_group_id := NULL;
732: END IF;
733: IF (l_khrv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
734: l_khrv_rec.object_version_number := NULL;
735: END IF;
736: IF (l_khrv_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
737: l_khrv_rec.security_group_id := NULL;
738: END IF;
739: IF (l_khrv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
740: l_khrv_rec.request_id := NULL;
735: END IF;
736: IF (l_khrv_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
737: l_khrv_rec.security_group_id := NULL;
738: END IF;
739: IF (l_khrv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
740: l_khrv_rec.request_id := NULL;
741: END IF;
742: IF (l_khrv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
743: l_khrv_rec.created_by := NULL;
738: END IF;
739: IF (l_khrv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
740: l_khrv_rec.request_id := NULL;
741: END IF;
742: IF (l_khrv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
743: l_khrv_rec.created_by := NULL;
744: END IF;
745: IF (l_khrv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
746: l_khrv_rec.creation_date := NULL;
741: END IF;
742: IF (l_khrv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
743: l_khrv_rec.created_by := NULL;
744: END IF;
745: IF (l_khrv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
746: l_khrv_rec.creation_date := NULL;
747: END IF;
748: IF (l_khrv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
749: l_khrv_rec.last_updated_by := NULL;
744: END IF;
745: IF (l_khrv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
746: l_khrv_rec.creation_date := NULL;
747: END IF;
748: IF (l_khrv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
749: l_khrv_rec.last_updated_by := NULL;
750: END IF;
751: IF (l_khrv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
752: l_khrv_rec.last_update_date := NULL;
747: END IF;
748: IF (l_khrv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
749: l_khrv_rec.last_updated_by := NULL;
750: END IF;
751: IF (l_khrv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
752: l_khrv_rec.last_update_date := NULL;
753: END IF;
754: IF (l_khrv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
755: l_khrv_rec.last_update_login := NULL;
750: END IF;
751: IF (l_khrv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
752: l_khrv_rec.last_update_date := NULL;
753: END IF;
754: IF (l_khrv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
755: l_khrv_rec.last_update_login := NULL;
756: END IF;
757: IF (l_khrv_rec.period_type = OKC_API.G_MISS_CHAR ) THEN
758: l_khrv_rec.period_type := NULL;
753: END IF;
754: IF (l_khrv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
755: l_khrv_rec.last_update_login := NULL;
756: END IF;
757: IF (l_khrv_rec.period_type = OKC_API.G_MISS_CHAR ) THEN
758: l_khrv_rec.period_type := NULL;
759: END IF;
760: IF (l_khrv_rec.period_start = OKC_API.G_MISS_CHAR ) THEN
761: l_khrv_rec.period_start := NULL;
756: END IF;
757: IF (l_khrv_rec.period_type = OKC_API.G_MISS_CHAR ) THEN
758: l_khrv_rec.period_type := NULL;
759: END IF;
760: IF (l_khrv_rec.period_start = OKC_API.G_MISS_CHAR ) THEN
761: l_khrv_rec.period_start := NULL;
762: END IF;
763: IF (l_khrv_rec.price_uom = OKC_API.G_MISS_CHAR ) THEN
764: l_khrv_rec.price_uom := NULL;
759: END IF;
760: IF (l_khrv_rec.period_start = OKC_API.G_MISS_CHAR ) THEN
761: l_khrv_rec.period_start := NULL;
762: END IF;
763: IF (l_khrv_rec.price_uom = OKC_API.G_MISS_CHAR ) THEN
764: l_khrv_rec.price_uom := NULL;
765: END IF;
766: IF (l_khrv_rec.follow_up_action = OKC_API.G_MISS_CHAR ) THEN
767: l_khrv_rec.follow_up_action := NULL;
762: END IF;
763: IF (l_khrv_rec.price_uom = OKC_API.G_MISS_CHAR ) THEN
764: l_khrv_rec.price_uom := NULL;
765: END IF;
766: IF (l_khrv_rec.follow_up_action = OKC_API.G_MISS_CHAR ) THEN
767: l_khrv_rec.follow_up_action := NULL;
768: END IF;
769: IF (l_khrv_rec.follow_up_date = OKC_API.G_MISS_DATE ) THEN
770: l_khrv_rec.follow_up_date := NULL;
765: END IF;
766: IF (l_khrv_rec.follow_up_action = OKC_API.G_MISS_CHAR ) THEN
767: l_khrv_rec.follow_up_action := NULL;
768: END IF;
769: IF (l_khrv_rec.follow_up_date = OKC_API.G_MISS_DATE ) THEN
770: l_khrv_rec.follow_up_date := NULL;
771: END IF;
772: IF (l_khrv_rec.trxn_extension_id = OKC_API.G_MISS_NUM ) THEN
773: l_khrv_rec.trxn_extension_id := NULL;
768: END IF;
769: IF (l_khrv_rec.follow_up_date = OKC_API.G_MISS_DATE ) THEN
770: l_khrv_rec.follow_up_date := NULL;
771: END IF;
772: IF (l_khrv_rec.trxn_extension_id = OKC_API.G_MISS_NUM ) THEN
773: l_khrv_rec.trxn_extension_id := NULL;
774: END IF;
775: IF (l_khrv_rec.date_accepted = OKC_API.G_MISS_DATE ) THEN
776: l_khrv_rec.date_accepted := NULL;
771: END IF;
772: IF (l_khrv_rec.trxn_extension_id = OKC_API.G_MISS_NUM ) THEN
773: l_khrv_rec.trxn_extension_id := NULL;
774: END IF;
775: IF (l_khrv_rec.date_accepted = OKC_API.G_MISS_DATE ) THEN
776: l_khrv_rec.date_accepted := NULL;
777: END IF;
778: IF (l_khrv_rec.accepted_by = OKC_API.G_MISS_NUM ) THEN
779: l_khrv_rec.accepted_by := NULL;
774: END IF;
775: IF (l_khrv_rec.date_accepted = OKC_API.G_MISS_DATE ) THEN
776: l_khrv_rec.date_accepted := NULL;
777: END IF;
778: IF (l_khrv_rec.accepted_by = OKC_API.G_MISS_NUM ) THEN
779: l_khrv_rec.accepted_by := NULL;
780: END IF;
781: IF (l_khrv_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR ) THEN
782: l_khrv_rec.rmndr_suppress_flag := NULL;
777: END IF;
778: IF (l_khrv_rec.accepted_by = OKC_API.G_MISS_NUM ) THEN
779: l_khrv_rec.accepted_by := NULL;
780: END IF;
781: IF (l_khrv_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR ) THEN
782: l_khrv_rec.rmndr_suppress_flag := NULL;
783: END IF;
784: IF (l_khrv_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR ) THEN
785: l_khrv_rec.rmndr_sent_flag := NULL;
780: END IF;
781: IF (l_khrv_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR ) THEN
782: l_khrv_rec.rmndr_suppress_flag := NULL;
783: END IF;
784: IF (l_khrv_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR ) THEN
785: l_khrv_rec.rmndr_sent_flag := NULL;
786: END IF;
787: IF (l_khrv_rec.quote_sent_flag = OKC_API.G_MISS_CHAR ) THEN
788: l_khrv_rec.quote_sent_flag := NULL;
783: END IF;
784: IF (l_khrv_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR ) THEN
785: l_khrv_rec.rmndr_sent_flag := NULL;
786: END IF;
787: IF (l_khrv_rec.quote_sent_flag = OKC_API.G_MISS_CHAR ) THEN
788: l_khrv_rec.quote_sent_flag := NULL;
789: END IF;
790: IF (l_khrv_rec.process_request_id = OKC_API.G_MISS_NUM ) THEN
791: l_khrv_rec.process_request_id := NULL;
786: END IF;
787: IF (l_khrv_rec.quote_sent_flag = OKC_API.G_MISS_CHAR ) THEN
788: l_khrv_rec.quote_sent_flag := NULL;
789: END IF;
790: IF (l_khrv_rec.process_request_id = OKC_API.G_MISS_NUM ) THEN
791: l_khrv_rec.process_request_id := NULL;
792: END IF;
793: IF (l_khrv_rec.wf_item_key = OKC_API.G_MISS_CHAR ) THEN
794: l_khrv_rec.wf_item_key := NULL;
789: END IF;
790: IF (l_khrv_rec.process_request_id = OKC_API.G_MISS_NUM ) THEN
791: l_khrv_rec.process_request_id := NULL;
792: END IF;
793: IF (l_khrv_rec.wf_item_key = OKC_API.G_MISS_CHAR ) THEN
794: l_khrv_rec.wf_item_key := NULL;
795: END IF;
796: IF (l_khrv_rec.person_party_id = OKC_API.G_MISS_NUM ) THEN
797: l_khrv_rec.person_party_id := NULL;
792: END IF;
793: IF (l_khrv_rec.wf_item_key = OKC_API.G_MISS_CHAR ) THEN
794: l_khrv_rec.wf_item_key := NULL;
795: END IF;
796: IF (l_khrv_rec.person_party_id = OKC_API.G_MISS_NUM ) THEN
797: l_khrv_rec.person_party_id := NULL;
798: END IF;
799: IF (l_khrv_rec.tax_classification_code = OKC_API.G_MISS_CHAR ) THEN
800: l_khrv_rec.tax_classification_code := NULL;
795: END IF;
796: IF (l_khrv_rec.person_party_id = OKC_API.G_MISS_NUM ) THEN
797: l_khrv_rec.person_party_id := NULL;
798: END IF;
799: IF (l_khrv_rec.tax_classification_code = OKC_API.G_MISS_CHAR ) THEN
800: l_khrv_rec.tax_classification_code := NULL;
801: END IF;
802: IF (l_khrv_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR ) THEN
803: l_khrv_rec.exempt_certificate_number := NULL;
798: END IF;
799: IF (l_khrv_rec.tax_classification_code = OKC_API.G_MISS_CHAR ) THEN
800: l_khrv_rec.tax_classification_code := NULL;
801: END IF;
802: IF (l_khrv_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR ) THEN
803: l_khrv_rec.exempt_certificate_number := NULL;
804: END IF;
805: IF (l_khrv_rec.exempt_reason_code = OKC_API.G_MISS_CHAR ) THEN
806: l_khrv_rec.exempt_reason_code := NULL;
801: END IF;
802: IF (l_khrv_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR ) THEN
803: l_khrv_rec.exempt_certificate_number := NULL;
804: END IF;
805: IF (l_khrv_rec.exempt_reason_code = OKC_API.G_MISS_CHAR ) THEN
806: l_khrv_rec.exempt_reason_code := NULL;
807: END IF;
808: IF (l_khrv_rec.approval_type_used = OKC_API.G_MISS_CHAR ) THEN
809: l_khrv_rec.approval_type_used := NULL;
804: END IF;
805: IF (l_khrv_rec.exempt_reason_code = OKC_API.G_MISS_CHAR ) THEN
806: l_khrv_rec.exempt_reason_code := NULL;
807: END IF;
808: IF (l_khrv_rec.approval_type_used = OKC_API.G_MISS_CHAR ) THEN
809: l_khrv_rec.approval_type_used := NULL;
810: END IF;
811: IF (l_khrv_rec.renewal_comment = OKC_API.G_MISS_CHAR ) THEN
812: l_khrv_rec.renewal_comment := NULL;
807: END IF;
808: IF (l_khrv_rec.approval_type_used = OKC_API.G_MISS_CHAR ) THEN
809: l_khrv_rec.approval_type_used := NULL;
810: END IF;
811: IF (l_khrv_rec.renewal_comment = OKC_API.G_MISS_CHAR ) THEN
812: l_khrv_rec.renewal_comment := NULL;
813: END IF;
814: /*Added for ER 13869562*/
815: IF (l_khrv_rec.cc_email_address = OKC_API.G_MISS_CHAR ) THEN
811: IF (l_khrv_rec.renewal_comment = OKC_API.G_MISS_CHAR ) THEN
812: l_khrv_rec.renewal_comment := NULL;
813: END IF;
814: /*Added for ER 13869562*/
815: IF (l_khrv_rec.cc_email_address = OKC_API.G_MISS_CHAR ) THEN
816: l_khrv_rec.cc_email_address := NULL;
817: END IF;
818: /*Added for ER 13869562*/
819: RETURN(l_khrv_rec);
824: PROCEDURE validate_id(
825: x_return_status OUT NOCOPY VARCHAR2,
826: p_id IN NUMBER) IS
827: BEGIN
828: x_return_status := OKC_API.G_RET_STS_SUCCESS;
829: IF (p_id = OKC_API.G_MISS_NUM OR
830: p_id IS NULL)
831: THEN
832: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
825: x_return_status OUT NOCOPY VARCHAR2,
826: p_id IN NUMBER) IS
827: BEGIN
828: x_return_status := OKC_API.G_RET_STS_SUCCESS;
829: IF (p_id = OKC_API.G_MISS_NUM OR
830: p_id IS NULL)
831: THEN
832: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
833: x_return_status := OKC_API.G_RET_STS_ERROR;
828: x_return_status := OKC_API.G_RET_STS_SUCCESS;
829: IF (p_id = OKC_API.G_MISS_NUM OR
830: p_id IS NULL)
831: THEN
832: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
833: x_return_status := OKC_API.G_RET_STS_ERROR;
834: RAISE G_EXCEPTION_HALT_VALIDATION;
835: END IF;
836: EXCEPTION
829: IF (p_id = OKC_API.G_MISS_NUM OR
830: p_id IS NULL)
831: THEN
832: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
833: x_return_status := OKC_API.G_RET_STS_ERROR;
834: RAISE G_EXCEPTION_HALT_VALIDATION;
835: END IF;
836: EXCEPTION
837: WHEN G_EXCEPTION_HALT_VALIDATION THEN
836: EXCEPTION
837: WHEN G_EXCEPTION_HALT_VALIDATION THEN
838: NULL;
839: WHEN OTHERS THEN
840: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME
841: , p_msg_name => G_UNEXPECTED_ERROR
842: , p_token1 => G_SQLCODE_TOKEN
843: , p_token1_value => SQLCODE
844: , p_token2 => G_SQLERRM_TOKEN
842: , p_token1 => G_SQLCODE_TOKEN
843: , p_token1_value => SQLCODE
844: , p_token2 => G_SQLERRM_TOKEN
845: , p_token2_value => SQLERRM);
846: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
847: END validate_id;
848: -------------------------------------
849: -- Validate_Attributes for: CHR_ID --
850: -------------------------------------
851: PROCEDURE validate_chr_id(
852: x_return_status OUT NOCOPY VARCHAR2,
853: p_chr_id IN NUMBER) IS
854: BEGIN
855: x_return_status := OKC_API.G_RET_STS_SUCCESS;
856: IF (p_chr_id = OKC_API.G_MISS_NUM OR
857: p_chr_id IS NULL)
858: THEN
859: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'chr_id');
852: x_return_status OUT NOCOPY VARCHAR2,
853: p_chr_id IN NUMBER) IS
854: BEGIN
855: x_return_status := OKC_API.G_RET_STS_SUCCESS;
856: IF (p_chr_id = OKC_API.G_MISS_NUM OR
857: p_chr_id IS NULL)
858: THEN
859: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'chr_id');
860: x_return_status := OKC_API.G_RET_STS_ERROR;
855: x_return_status := OKC_API.G_RET_STS_SUCCESS;
856: IF (p_chr_id = OKC_API.G_MISS_NUM OR
857: p_chr_id IS NULL)
858: THEN
859: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'chr_id');
860: x_return_status := OKC_API.G_RET_STS_ERROR;
861: RAISE G_EXCEPTION_HALT_VALIDATION;
862: END IF;
863: EXCEPTION
856: IF (p_chr_id = OKC_API.G_MISS_NUM OR
857: p_chr_id IS NULL)
858: THEN
859: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'chr_id');
860: x_return_status := OKC_API.G_RET_STS_ERROR;
861: RAISE G_EXCEPTION_HALT_VALIDATION;
862: END IF;
863: EXCEPTION
864: WHEN G_EXCEPTION_HALT_VALIDATION THEN
863: EXCEPTION
864: WHEN G_EXCEPTION_HALT_VALIDATION THEN
865: NULL;
866: WHEN OTHERS THEN
867: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME
868: , p_msg_name => G_UNEXPECTED_ERROR
869: , p_token1 => G_SQLCODE_TOKEN
870: , p_token1_value => SQLCODE
871: , p_token2 => G_SQLERRM_TOKEN
869: , p_token1 => G_SQLCODE_TOKEN
870: , p_token1_value => SQLCODE
871: , p_token2 => G_SQLERRM_TOKEN
872: , p_token2_value => SQLERRM);
873: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
874: END validate_chr_id;
875: ----------------------------------------------------
876: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
877: ----------------------------------------------------
878: PROCEDURE validate_object_version_number(
879: x_return_status OUT NOCOPY VARCHAR2,
880: p_object_version_number IN NUMBER) IS
881: BEGIN
882: x_return_status := OKC_API.G_RET_STS_SUCCESS;
883: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
884: p_object_version_number IS NULL)
885: THEN
886: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
879: x_return_status OUT NOCOPY VARCHAR2,
880: p_object_version_number IN NUMBER) IS
881: BEGIN
882: x_return_status := OKC_API.G_RET_STS_SUCCESS;
883: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
884: p_object_version_number IS NULL)
885: THEN
886: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
887: x_return_status := OKC_API.G_RET_STS_ERROR;
882: x_return_status := OKC_API.G_RET_STS_SUCCESS;
883: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
884: p_object_version_number IS NULL)
885: THEN
886: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
887: x_return_status := OKC_API.G_RET_STS_ERROR;
888: RAISE G_EXCEPTION_HALT_VALIDATION;
889: END IF;
890: EXCEPTION
883: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
884: p_object_version_number IS NULL)
885: THEN
886: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
887: x_return_status := OKC_API.G_RET_STS_ERROR;
888: RAISE G_EXCEPTION_HALT_VALIDATION;
889: END IF;
890: EXCEPTION
891: WHEN G_EXCEPTION_HALT_VALIDATION THEN
890: EXCEPTION
891: WHEN G_EXCEPTION_HALT_VALIDATION THEN
892: NULL;
893: WHEN OTHERS THEN
894: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME
895: , p_msg_name => G_UNEXPECTED_ERROR
896: , p_token1 => G_SQLCODE_TOKEN
897: , p_token1_value => SQLCODE
898: , p_token2 => G_SQLERRM_TOKEN
896: , p_token1 => G_SQLCODE_TOKEN
897: , p_token1_value => SQLCODE
898: , p_token2 => G_SQLERRM_TOKEN
899: , p_token2_value => SQLERRM);
900: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
901: END validate_object_version_number;
902: ---------------------------------------------------------------------------
903: -- FUNCTION Validate_Attributes
904: ---------------------------------------------------------------------------
907: ---------------------------------------------
908: FUNCTION Validate_Attributes (
909: p_khrv_rec IN khrv_rec_type
910: ) RETURN VARCHAR2 IS
911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
912: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
913: BEGIN
914: -----------------------------
915: -- Column Level Validation --
908: FUNCTION Validate_Attributes (
909: p_khrv_rec IN khrv_rec_type
910: ) RETURN VARCHAR2 IS
911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
912: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
913: BEGIN
914: -----------------------------
915: -- Column Level Validation --
916: -----------------------------
917: -- ***
918: -- id
919: -- ***
920: validate_id(x_return_status, p_khrv_rec.id);
921: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
922: l_return_status := x_return_status;
923: RAISE G_EXCEPTION_HALT_VALIDATION;
924: END IF;
925:
926: -- ***
927: -- chr_id
928: -- ***
929: validate_chr_id(x_return_status, p_khrv_rec.chr_id);
930: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
931: l_return_status := x_return_status;
932: RAISE G_EXCEPTION_HALT_VALIDATION;
933: END IF;
934:
935: -- ***
936: -- object_version_number
937: -- ***
938: validate_object_version_number(x_return_status, p_khrv_rec.object_version_number);
939: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
940: l_return_status := x_return_status;
941: RAISE G_EXCEPTION_HALT_VALIDATION;
942: END IF;
943:
945: EXCEPTION
946: WHEN G_EXCEPTION_HALT_VALIDATION THEN
947: RETURN(l_return_status);
948: WHEN OTHERS THEN
949: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME
950: , p_msg_name => G_UNEXPECTED_ERROR
951: , p_token1 => G_SQLCODE_TOKEN
952: , p_token1_value => SQLCODE
953: , p_token2 => G_SQLERRM_TOKEN
951: , p_token1 => G_SQLCODE_TOKEN
952: , p_token1_value => SQLCODE
953: , p_token2 => G_SQLERRM_TOKEN
954: , p_token2_value => SQLERRM);
955: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
956: RETURN(l_return_status);
957: END Validate_Attributes;
958: ---------------------------------------------------------------------------
959: -- PROCEDURE Validate_Record
964: FUNCTION Validate_Record (
965: p_khrv_rec IN khrv_rec_type,
966: p_db_khrv_rec IN khrv_rec_type
967: ) RETURN VARCHAR2 IS
968: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
969: ------------------------------------
970: -- FUNCTION validate_foreign_keys --
971: ------------------------------------
972: FUNCTION validate_foreign_keys (
979: FROM Okc_K_Headers_V
980: WHERE okc_k_headers_v.id = p_id;
981: l_oks_khrv_chrv_fk1 oks_khrv_chrv_fk1_csr%ROWTYPE;
982:
983: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
984: l_row_notfound BOOLEAN := TRUE;
985: BEGIN
986: IF ((p_khrv_rec.CHR_ID IS NOT NULL)
987: AND
991: FETCH oks_khrv_chrv_fk1_csr INTO l_oks_khrv_chrv_fk1;
992: l_row_notfound := oks_khrv_chrv_fk1_csr%NOTFOUND;
993: CLOSE oks_khrv_chrv_fk1_csr;
994: IF (l_row_notfound) THEN
995: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CHR_ID');
996: RAISE item_not_found_error;
997: END IF;
998: END IF;
999: RETURN (l_return_status);
998: END IF;
999: RETURN (l_return_status);
1000: EXCEPTION
1001: WHEN item_not_found_error THEN
1002: l_return_status := OKC_API.G_RET_STS_ERROR;
1003: RETURN (l_return_status);
1004: END validate_foreign_keys;
1005: BEGIN
1006: l_return_status := validate_foreign_keys(p_khrv_rec, p_db_khrv_rec);
1008: END Validate_Record;
1009: FUNCTION Validate_Record (
1010: p_khrv_rec IN khrv_rec_type
1011: ) RETURN VARCHAR2 IS
1012: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1013: l_db_khrv_rec khrv_rec_type := get_rec(p_khrv_rec);
1014: BEGIN
1015: l_return_status := Validate_Record(p_khrv_rec => p_khrv_rec,
1016: p_db_khrv_rec => l_db_khrv_rec);
1225: p_khrv_rec IN khrv_rec_type) IS
1226:
1227: l_api_version CONSTANT NUMBER := 1;
1228: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1229: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1230: l_khrv_rec khrv_rec_type := p_khrv_rec;
1231: l_khr_rec khr_rec_type;
1232: l_khr_rec khr_rec_type;
1233: BEGIN
1230: l_khrv_rec khrv_rec_type := p_khrv_rec;
1231: l_khr_rec khr_rec_type;
1232: l_khr_rec khr_rec_type;
1233: BEGIN
1234: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1235: G_PKG_NAME,
1236: p_init_msg_list,
1237: l_api_version,
1238: p_api_version,
1237: l_api_version,
1238: p_api_version,
1239: '_PVT',
1240: x_return_status);
1241: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1244: RAISE OKC_API.G_EXCEPTION_ERROR;
1245: END IF;
1238: p_api_version,
1239: '_PVT',
1240: x_return_status);
1241: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1244: RAISE OKC_API.G_EXCEPTION_ERROR;
1245: END IF;
1246: --- Validate all non-missing attributes (Item Level Validation)
1239: '_PVT',
1240: x_return_status);
1241: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1244: RAISE OKC_API.G_EXCEPTION_ERROR;
1245: END IF;
1246: --- Validate all non-missing attributes (Item Level Validation)
1247: l_return_status := Validate_Attributes(l_khrv_rec);
1240: x_return_status);
1241: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1244: RAISE OKC_API.G_EXCEPTION_ERROR;
1245: END IF;
1246: --- Validate all non-missing attributes (Item Level Validation)
1247: l_return_status := Validate_Attributes(l_khrv_rec);
1248: --- If any errors happen abort API
1245: END IF;
1246: --- Validate all non-missing attributes (Item Level Validation)
1247: l_return_status := Validate_Attributes(l_khrv_rec);
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1246: --- Validate all non-missing attributes (Item Level Validation)
1247: l_return_status := Validate_Attributes(l_khrv_rec);
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: l_return_status := Validate_Record(l_khrv_rec);
1247: l_return_status := Validate_Attributes(l_khrv_rec);
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: l_return_status := Validate_Record(l_khrv_rec);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: l_return_status := Validate_Record(l_khrv_rec);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: l_return_status := Validate_Record(l_khrv_rec);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: l_return_status := Validate_Record(l_khrv_rec);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1260: x_return_status := l_return_status;
1253: END IF;
1254: l_return_status := Validate_Record(l_khrv_rec);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1260: x_return_status := l_return_status;
1261: EXCEPTION
1254: l_return_status := Validate_Record(l_khrv_rec);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1260: x_return_status := l_return_status;
1261: EXCEPTION
1262: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1260: x_return_status := l_return_status;
1261: EXCEPTION
1262: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1263: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1264: (
1265: l_api_name,
1266: G_PKG_NAME,
1259: END IF;
1260: x_return_status := l_return_status;
1261: EXCEPTION
1262: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1263: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1264: (
1265: l_api_name,
1266: G_PKG_NAME,
1267: 'OKC_API.G_RET_STS_ERROR',
1263: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1264: (
1265: l_api_name,
1266: G_PKG_NAME,
1267: 'OKC_API.G_RET_STS_ERROR',
1268: x_msg_count,
1269: x_msg_data,
1270: '_PVT'
1271: );
1268: x_msg_count,
1269: x_msg_data,
1270: '_PVT'
1271: );
1272: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274: (
1275: l_api_name,
1276: G_PKG_NAME,
1269: x_msg_data,
1270: '_PVT'
1271: );
1272: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274: (
1275: l_api_name,
1276: G_PKG_NAME,
1277: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274: (
1275: l_api_name,
1276: G_PKG_NAME,
1277: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1278: x_msg_count,
1279: x_msg_data,
1280: '_PVT'
1281: );
1279: x_msg_data,
1280: '_PVT'
1281: );
1282: WHEN OTHERS THEN
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1285: l_api_name,
1286: G_PKG_NAME,
1287: 'OTHERS',
1299: x_return_status OUT NOCOPY VARCHAR2,
1300: x_msg_count OUT NOCOPY NUMBER,
1301: x_msg_data OUT NOCOPY VARCHAR2,
1302: p_khrv_tbl IN khrv_tbl_type,
1303: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1304:
1305: l_api_version CONSTANT NUMBER := 1;
1306: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1307: i NUMBER := 0;
1305: l_api_version CONSTANT NUMBER := 1;
1306: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1307: i NUMBER := 0;
1308: BEGIN
1309: OKC_API.init_msg_list(p_init_msg_list);
1310: -- Make sure PL/SQL table has records in it before passing
1311: IF (p_khrv_tbl.COUNT > 0) THEN
1312: i := p_khrv_tbl.FIRST;
1313: LOOP
1311: IF (p_khrv_tbl.COUNT > 0) THEN
1312: i := p_khrv_tbl.FIRST;
1313: LOOP
1314: DECLARE
1315: l_error_rec OKC_API.ERROR_REC_TYPE;
1316: BEGIN
1317: l_error_rec.api_name := l_api_name;
1318: l_error_rec.api_package := G_PKG_NAME;
1319: l_error_rec.idx := i;
1318: l_error_rec.api_package := G_PKG_NAME;
1319: l_error_rec.idx := i;
1320: validate_row (
1321: p_api_version => p_api_version,
1322: p_init_msg_list => OKC_API.G_FALSE,
1323: x_return_status => l_error_rec.error_type,
1324: x_msg_count => l_error_rec.msg_count,
1325: x_msg_data => l_error_rec.msg_data,
1326: p_khrv_rec => p_khrv_tbl(i));
1323: x_return_status => l_error_rec.error_type,
1324: x_msg_count => l_error_rec.msg_count,
1325: x_msg_data => l_error_rec.msg_data,
1326: p_khrv_rec => p_khrv_tbl(i));
1327: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1328: l_error_rec.SQLCODE := SQLCODE;
1329: load_error_tbl(l_error_rec, px_error_tbl);
1330: ELSE
1331: x_msg_count := l_error_rec.msg_count;
1331: x_msg_count := l_error_rec.msg_count;
1332: x_msg_data := l_error_rec.msg_data;
1333: END IF;
1334: EXCEPTION
1335: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1336: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1337: l_error_rec.SQLCODE := SQLCODE;
1338: load_error_tbl(l_error_rec, px_error_tbl);
1339: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1332: x_msg_data := l_error_rec.msg_data;
1333: END IF;
1334: EXCEPTION
1335: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1336: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1337: l_error_rec.SQLCODE := SQLCODE;
1338: load_error_tbl(l_error_rec, px_error_tbl);
1339: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1340: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1335: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1336: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1337: l_error_rec.SQLCODE := SQLCODE;
1338: load_error_tbl(l_error_rec, px_error_tbl);
1339: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1340: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1341: l_error_rec.SQLCODE := SQLCODE;
1342: load_error_tbl(l_error_rec, px_error_tbl);
1343: WHEN OTHERS THEN
1336: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1337: l_error_rec.SQLCODE := SQLCODE;
1338: load_error_tbl(l_error_rec, px_error_tbl);
1339: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1340: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1341: l_error_rec.SQLCODE := SQLCODE;
1342: load_error_tbl(l_error_rec, px_error_tbl);
1343: WHEN OTHERS THEN
1344: l_error_rec.error_type := 'OTHERS';
1351: END IF;
1352: -- Loop through the error_tbl to find the error with the highest severity
1353: -- and return it.
1354: x_return_status := find_highest_exception(px_error_tbl);
1355: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1356: EXCEPTION
1357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1359: (
1353: -- and return it.
1354: x_return_status := find_highest_exception(px_error_tbl);
1355: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1356: EXCEPTION
1357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1354: x_return_status := find_highest_exception(px_error_tbl);
1355: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1356: EXCEPTION
1357: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1362: 'OKC_API.G_RET_STS_ERROR',
1358: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1362: 'OKC_API.G_RET_STS_ERROR',
1363: x_msg_count,
1364: x_msg_data,
1365: '_PVT'
1366: );
1363: x_msg_count,
1364: x_msg_data,
1365: '_PVT'
1366: );
1367: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1368: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1364: x_msg_data,
1365: '_PVT'
1366: );
1367: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1368: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1372: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1368: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1372: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1373: x_msg_count,
1374: x_msg_data,
1375: '_PVT'
1376: );
1374: x_msg_data,
1375: '_PVT'
1376: );
1377: WHEN OTHERS THEN
1378: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1379: (
1380: l_api_name,
1381: G_PKG_NAME,
1382: 'OTHERS',
1398: p_khrv_tbl IN khrv_tbl_type) IS
1399:
1400: l_api_version CONSTANT NUMBER := 1;
1401: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1402: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1403: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1404: BEGIN
1405: OKC_API.init_msg_list(p_init_msg_list);
1406: -- Make sure PL/SQL table has records in it before passing
1399:
1400: l_api_version CONSTANT NUMBER := 1;
1401: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1402: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1403: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1404: BEGIN
1405: OKC_API.init_msg_list(p_init_msg_list);
1406: -- Make sure PL/SQL table has records in it before passing
1407: IF (p_khrv_tbl.COUNT > 0) THEN
1401: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1402: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1403: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1404: BEGIN
1405: OKC_API.init_msg_list(p_init_msg_list);
1406: -- Make sure PL/SQL table has records in it before passing
1407: IF (p_khrv_tbl.COUNT > 0) THEN
1408: validate_row (
1409: p_api_version => p_api_version,
1406: -- Make sure PL/SQL table has records in it before passing
1407: IF (p_khrv_tbl.COUNT > 0) THEN
1408: validate_row (
1409: p_api_version => p_api_version,
1410: p_init_msg_list => OKC_API.G_FALSE,
1411: x_return_status => x_return_status,
1412: x_msg_count => x_msg_count,
1413: x_msg_data => x_msg_data,
1414: p_khrv_tbl => p_khrv_tbl,
1413: x_msg_data => x_msg_data,
1414: p_khrv_tbl => p_khrv_tbl,
1415: px_error_tbl => l_error_tbl);
1416: END IF;
1417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1418: EXCEPTION
1419: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1421: (
1415: px_error_tbl => l_error_tbl);
1416: END IF;
1417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1418: EXCEPTION
1419: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1421: (
1422: l_api_name,
1423: G_PKG_NAME,
1416: END IF;
1417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1418: EXCEPTION
1419: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1421: (
1422: l_api_name,
1423: G_PKG_NAME,
1424: 'OKC_API.G_RET_STS_ERROR',
1420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1421: (
1422: l_api_name,
1423: G_PKG_NAME,
1424: 'OKC_API.G_RET_STS_ERROR',
1425: x_msg_count,
1426: x_msg_data,
1427: '_PVT'
1428: );
1425: x_msg_count,
1426: x_msg_data,
1427: '_PVT'
1428: );
1429: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1430: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1431: (
1432: l_api_name,
1433: G_PKG_NAME,
1426: x_msg_data,
1427: '_PVT'
1428: );
1429: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1430: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1431: (
1432: l_api_name,
1433: G_PKG_NAME,
1434: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1430: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1431: (
1432: l_api_name,
1433: G_PKG_NAME,
1434: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1435: x_msg_count,
1436: x_msg_data,
1437: '_PVT'
1438: );
1436: x_msg_data,
1437: '_PVT'
1438: );
1439: WHEN OTHERS THEN
1440: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1441: (
1442: l_api_name,
1443: G_PKG_NAME,
1444: 'OTHERS',
1463: x_khr_rec OUT NOCOPY khr_rec_type) IS
1464:
1465: l_api_version CONSTANT NUMBER := 1;
1466: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1467: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1468: l_khr_rec khr_rec_type := p_khr_rec;
1469: l_def_khr_rec khr_rec_type;
1470: l_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
1471: l_contract_number_modifier OKC_K_HEADERS_B.CONTRACT_NUMBER_MODIFIER%TYPE;
1511: FUNCTION Set_Attributes (
1512: p_khr_rec IN khr_rec_type,
1513: x_khr_rec OUT NOCOPY khr_rec_type
1514: ) RETURN VARCHAR2 IS
1515: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1516: BEGIN
1517: x_khr_rec := p_khr_rec;
1518: RETURN(l_return_status);
1519: END Set_Attributes;
1517: x_khr_rec := p_khr_rec;
1518: RETURN(l_return_status);
1519: END Set_Attributes;
1520: BEGIN
1521: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1522: p_init_msg_list,
1523: '_PVT',
1524: x_return_status);
1525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1521: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1522: p_init_msg_list,
1523: '_PVT',
1524: x_return_status);
1525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_ERROR;
1529: END IF;
1522: p_init_msg_list,
1523: '_PVT',
1524: x_return_status);
1525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_ERROR;
1529: END IF;
1530: --- Setting item atributes
1523: '_PVT',
1524: x_return_status);
1525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_ERROR;
1529: END IF;
1530: --- Setting item atributes
1531: l_return_status := Set_Attributes(
1524: x_return_status);
1525: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_ERROR;
1529: END IF;
1530: --- Setting item atributes
1531: l_return_status := Set_Attributes(
1532: p_khr_rec, -- IN
1531: l_return_status := Set_Attributes(
1532: p_khr_rec, -- IN
1533: l_khr_rec); -- OUT
1534: --- If any errors happen abort API
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1532: p_khr_rec, -- IN
1533: l_khr_rec); -- OUT
1534: --- If any errors happen abort API
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540:
1533: l_khr_rec); -- OUT
1534: --- If any errors happen abort API
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540:
1541: -- HANDCODE:Launching WF and Certain WF related design attributes are needed to be populated only for entered K.
1534: --- If any errors happen abort API
1535: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540:
1541: -- HANDCODE:Launching WF and Certain WF related design attributes are needed to be populated only for entered K.
1542: -- Also we do not want to launch the workflow if the creation of contract has happened becuase of copy API invoked
1566: CLOSE csr_quote_to_person;
1567: IF l_personfound THEN
1568: l_khr_rec.person_party_id := l_person_party_id;
1569: ELSE
1570: OKC_API.set_message(G_APP_NAME, 'OKS_INV_PERSON_PARTY_ID');
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: END IF;
1574: END IF;
1567: IF l_personfound THEN
1568: l_khr_rec.person_party_id := l_person_party_id;
1569: ELSE
1570: OKC_API.set_message(G_APP_NAME, 'OKS_INV_PERSON_PARTY_ID');
1571: RAISE OKC_API.G_EXCEPTION_ERROR;
1572: END IF;
1573: END IF;
1574: END IF;
1575:
1774: x_return_status => l_return_status,
1775: x_msg_count => x_msg_count,
1776: x_msg_data => x_msg_data
1777: ) ;
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1775: x_msg_count => x_msg_count,
1776: x_msg_data => x_msg_data
1777: ) ;
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: END IF;
1776: x_msg_data => x_msg_data
1777: ) ;
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: END IF;
1784: -- Set OUT values
1777: ) ;
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: END IF;
1784: -- Set OUT values
1785: x_khr_rec := l_khr_rec;
1783: END IF;
1784: -- Set OUT values
1785: x_khr_rec := l_khr_rec;
1786: x_return_status := l_return_status;
1787: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1788: EXCEPTION
1789: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1790: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1791: (
1785: x_khr_rec := l_khr_rec;
1786: x_return_status := l_return_status;
1787: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1788: EXCEPTION
1789: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1790: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1791: (
1792: l_api_name,
1793: G_PKG_NAME,
1786: x_return_status := l_return_status;
1787: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1788: EXCEPTION
1789: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1790: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1791: (
1792: l_api_name,
1793: G_PKG_NAME,
1794: 'OKC_API.G_RET_STS_ERROR',
1790: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1791: (
1792: l_api_name,
1793: G_PKG_NAME,
1794: 'OKC_API.G_RET_STS_ERROR',
1795: x_msg_count,
1796: x_msg_data,
1797: '_PVT'
1798: );
1795: x_msg_count,
1796: x_msg_data,
1797: '_PVT'
1798: );
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1800: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1801: (
1802: l_api_name,
1803: G_PKG_NAME,
1796: x_msg_data,
1797: '_PVT'
1798: );
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1800: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1801: (
1802: l_api_name,
1803: G_PKG_NAME,
1804: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1800: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1801: (
1802: l_api_name,
1803: G_PKG_NAME,
1804: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1805: x_msg_count,
1806: x_msg_data,
1807: '_PVT'
1808: );
1806: x_msg_data,
1807: '_PVT'
1808: );
1809: WHEN OTHERS THEN
1810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1811: (
1812: l_api_name,
1813: G_PKG_NAME,
1814: 'OTHERS',
1830: x_khrv_rec OUT NOCOPY khrv_rec_type) IS
1831:
1832: l_api_version CONSTANT NUMBER := 1;
1833: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1834: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1835: l_khrv_rec khrv_rec_type := p_khrv_rec;
1836: l_def_khrv_rec khrv_rec_type;
1837: l_khr_rec khr_rec_type;
1838: lx_khr_rec khr_rec_type;
1859: FUNCTION Set_Attributes (
1860: p_khrv_rec IN khrv_rec_type,
1861: x_khrv_rec OUT NOCOPY khrv_rec_type
1862: ) RETURN VARCHAR2 IS
1863: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1864: BEGIN
1865: x_khrv_rec := p_khrv_rec;
1866: x_khrv_rec.OBJECT_VERSION_NUMBER := 1;
1867: RETURN(l_return_status);
1866: x_khrv_rec.OBJECT_VERSION_NUMBER := 1;
1867: RETURN(l_return_status);
1868: END Set_Attributes;
1869: BEGIN
1870: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1871: G_PKG_NAME,
1872: p_init_msg_list,
1873: l_api_version,
1874: p_api_version,
1873: l_api_version,
1874: p_api_version,
1875: '_PVT',
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1874: p_api_version,
1875: '_PVT',
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: l_khrv_rec := null_out_defaults(p_khrv_rec);
1875: '_PVT',
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: l_khrv_rec := null_out_defaults(p_khrv_rec);
1883: -- Set primary key value
1876: x_return_status);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: l_khrv_rec := null_out_defaults(p_khrv_rec);
1883: -- Set primary key value
1884: l_khrv_rec.ID := get_seq_id;
1886: l_return_Status := Set_Attributes(
1887: l_khrv_rec, -- IN
1888: l_def_khrv_rec); -- OUT
1889: --- If any errors happen abort API
1890: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1887: l_khrv_rec, -- IN
1888: l_def_khrv_rec); -- OUT
1889: --- If any errors happen abort API
1890: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
1888: l_def_khrv_rec); -- OUT
1889: --- If any errors happen abort API
1890: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
1896: --- Validate all non-missing attributes (Item Level Validation)
1889: --- If any errors happen abort API
1890: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
1896: --- Validate all non-missing attributes (Item Level Validation)
1897: l_return_status := Validate_Attributes(l_def_khrv_rec);
1895: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
1896: --- Validate all non-missing attributes (Item Level Validation)
1897: l_return_status := Validate_Attributes(l_def_khrv_rec);
1898: --- If any errors happen abort API
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1896: --- Validate all non-missing attributes (Item Level Validation)
1897: l_return_status := Validate_Attributes(l_def_khrv_rec);
1898: --- If any errors happen abort API
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_return_status := Validate_Record(l_def_khrv_rec);
1897: l_return_status := Validate_Attributes(l_def_khrv_rec);
1898: --- If any errors happen abort API
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_return_status := Validate_Record(l_def_khrv_rec);
1905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1898: --- If any errors happen abort API
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_return_status := Validate_Record(l_def_khrv_rec);
1905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_return_status := Validate_Record(l_def_khrv_rec);
1905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_ERROR;
1909: END IF;
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_return_status := Validate_Record(l_def_khrv_rec);
1905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_ERROR;
1909: END IF;
1910: -----------------------------------------
1903: END IF;
1904: l_return_status := Validate_Record(l_def_khrv_rec);
1905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_ERROR;
1909: END IF;
1910: -----------------------------------------
1911: -- Move VIEW record to "Child" records --
1904: l_return_status := Validate_Record(l_def_khrv_rec);
1905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1907: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1908: RAISE OKC_API.G_EXCEPTION_ERROR;
1909: END IF;
1910: -----------------------------------------
1911: -- Move VIEW record to "Child" records --
1912: -----------------------------------------
1921: x_msg_data,
1922: l_khr_rec,
1923: lx_khr_rec
1924: );
1925: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_ERROR;
1929: END IF;
1922: l_khr_rec,
1923: lx_khr_rec
1924: );
1925: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_ERROR;
1929: END IF;
1930: migrate(lx_khr_rec, l_def_khrv_rec);
1923: lx_khr_rec
1924: );
1925: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_ERROR;
1929: END IF;
1930: migrate(lx_khr_rec, l_def_khrv_rec);
1931: -- Set OUT values
1924: );
1925: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_ERROR;
1929: END IF;
1930: migrate(lx_khr_rec, l_def_khrv_rec);
1931: -- Set OUT values
1932: x_khrv_rec := l_def_khrv_rec;
1930: migrate(lx_khr_rec, l_def_khrv_rec);
1931: -- Set OUT values
1932: x_khrv_rec := l_def_khrv_rec;
1933: x_return_status := l_return_status;
1934: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1935: EXCEPTION
1936: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1938: (
1932: x_khrv_rec := l_def_khrv_rec;
1933: x_return_status := l_return_status;
1934: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1935: EXCEPTION
1936: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1938: (
1939: l_api_name,
1940: G_PKG_NAME,
1933: x_return_status := l_return_status;
1934: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1935: EXCEPTION
1936: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1938: (
1939: l_api_name,
1940: G_PKG_NAME,
1941: 'OKC_API.G_RET_STS_ERROR',
1937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1938: (
1939: l_api_name,
1940: G_PKG_NAME,
1941: 'OKC_API.G_RET_STS_ERROR',
1942: x_msg_count,
1943: x_msg_data,
1944: '_PVT'
1945: );
1942: x_msg_count,
1943: x_msg_data,
1944: '_PVT'
1945: );
1946: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1948: (
1949: l_api_name,
1950: G_PKG_NAME,
1943: x_msg_data,
1944: '_PVT'
1945: );
1946: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1948: (
1949: l_api_name,
1950: G_PKG_NAME,
1951: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1948: (
1949: l_api_name,
1950: G_PKG_NAME,
1951: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1952: x_msg_count,
1953: x_msg_data,
1954: '_PVT'
1955: );
1953: x_msg_data,
1954: '_PVT'
1955: );
1956: WHEN OTHERS THEN
1957: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1958: (
1959: l_api_name,
1960: G_PKG_NAME,
1961: 'OTHERS',
1974: x_msg_count OUT NOCOPY NUMBER,
1975: x_msg_data OUT NOCOPY VARCHAR2,
1976: p_khrv_tbl IN khrv_tbl_type,
1977: x_khrv_tbl OUT NOCOPY khrv_tbl_type,
1978: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1979:
1980: l_api_version CONSTANT NUMBER := 1;
1981: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1982: i NUMBER := 0;
1980: l_api_version CONSTANT NUMBER := 1;
1981: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1982: i NUMBER := 0;
1983: BEGIN
1984: OKC_API.init_msg_list(p_init_msg_list);
1985: -- Make sure PL/SQL table has records in it before passing
1986: IF (p_khrv_tbl.COUNT > 0) THEN
1987: i := p_khrv_tbl.FIRST;
1988: LOOP
1986: IF (p_khrv_tbl.COUNT > 0) THEN
1987: i := p_khrv_tbl.FIRST;
1988: LOOP
1989: DECLARE
1990: l_error_rec OKC_API.ERROR_REC_TYPE;
1991: BEGIN
1992: l_error_rec.api_name := l_api_name;
1993: l_error_rec.api_package := G_PKG_NAME;
1994: l_error_rec.idx := i;
1993: l_error_rec.api_package := G_PKG_NAME;
1994: l_error_rec.idx := i;
1995: insert_row (
1996: p_api_version => p_api_version,
1997: p_init_msg_list => OKC_API.G_FALSE,
1998: x_return_status => l_error_rec.error_type,
1999: x_msg_count => l_error_rec.msg_count,
2000: x_msg_data => l_error_rec.msg_data,
2001: p_khrv_rec => p_khrv_tbl(i),
1999: x_msg_count => l_error_rec.msg_count,
2000: x_msg_data => l_error_rec.msg_data,
2001: p_khrv_rec => p_khrv_tbl(i),
2002: x_khrv_rec => x_khrv_tbl(i));
2003: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2004: l_error_rec.SQLCODE := SQLCODE;
2005: load_error_tbl(l_error_rec, px_error_tbl);
2006: ELSE
2007: x_msg_count := l_error_rec.msg_count;
2007: x_msg_count := l_error_rec.msg_count;
2008: x_msg_data := l_error_rec.msg_data;
2009: END IF;
2010: EXCEPTION
2011: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2012: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2013: l_error_rec.SQLCODE := SQLCODE;
2014: load_error_tbl(l_error_rec, px_error_tbl);
2015: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2008: x_msg_data := l_error_rec.msg_data;
2009: END IF;
2010: EXCEPTION
2011: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2012: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2013: l_error_rec.SQLCODE := SQLCODE;
2014: load_error_tbl(l_error_rec, px_error_tbl);
2015: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2016: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2011: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2012: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2013: l_error_rec.SQLCODE := SQLCODE;
2014: load_error_tbl(l_error_rec, px_error_tbl);
2015: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2016: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2017: l_error_rec.SQLCODE := SQLCODE;
2018: load_error_tbl(l_error_rec, px_error_tbl);
2019: WHEN OTHERS THEN
2012: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2013: l_error_rec.SQLCODE := SQLCODE;
2014: load_error_tbl(l_error_rec, px_error_tbl);
2015: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2016: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2017: l_error_rec.SQLCODE := SQLCODE;
2018: load_error_tbl(l_error_rec, px_error_tbl);
2019: WHEN OTHERS THEN
2020: l_error_rec.error_type := 'OTHERS';
2027: END IF;
2028: -- Loop through the error_tbl to find the error with the highest severity
2029: -- and return it.
2030: x_return_status := find_highest_exception(px_error_tbl);
2031: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2032: EXCEPTION
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2035: (
2029: -- and return it.
2030: x_return_status := find_highest_exception(px_error_tbl);
2031: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2032: EXCEPTION
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2035: (
2036: l_api_name,
2037: G_PKG_NAME,
2030: x_return_status := find_highest_exception(px_error_tbl);
2031: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2032: EXCEPTION
2033: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2035: (
2036: l_api_name,
2037: G_PKG_NAME,
2038: 'OKC_API.G_RET_STS_ERROR',
2034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2035: (
2036: l_api_name,
2037: G_PKG_NAME,
2038: 'OKC_API.G_RET_STS_ERROR',
2039: x_msg_count,
2040: x_msg_data,
2041: '_PVT'
2042: );
2039: x_msg_count,
2040: x_msg_data,
2041: '_PVT'
2042: );
2043: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2044: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2045: (
2046: l_api_name,
2047: G_PKG_NAME,
2040: x_msg_data,
2041: '_PVT'
2042: );
2043: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2044: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2045: (
2046: l_api_name,
2047: G_PKG_NAME,
2048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2044: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2045: (
2046: l_api_name,
2047: G_PKG_NAME,
2048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2049: x_msg_count,
2050: x_msg_data,
2051: '_PVT'
2052: );
2050: x_msg_data,
2051: '_PVT'
2052: );
2053: WHEN OTHERS THEN
2054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2055: (
2056: l_api_name,
2057: G_PKG_NAME,
2058: 'OTHERS',
2077: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
2078:
2079: l_api_version CONSTANT NUMBER := 1;
2080: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2081: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2082: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2083: BEGIN
2084: OKC_API.init_msg_list(p_init_msg_list);
2085: -- Make sure PL/SQL table has records in it before passing
2078:
2079: l_api_version CONSTANT NUMBER := 1;
2080: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2081: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2082: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2083: BEGIN
2084: OKC_API.init_msg_list(p_init_msg_list);
2085: -- Make sure PL/SQL table has records in it before passing
2086: IF (p_khrv_tbl.COUNT > 0) THEN
2080: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2081: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2082: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2083: BEGIN
2084: OKC_API.init_msg_list(p_init_msg_list);
2085: -- Make sure PL/SQL table has records in it before passing
2086: IF (p_khrv_tbl.COUNT > 0) THEN
2087: insert_row (
2088: p_api_version => p_api_version,
2085: -- Make sure PL/SQL table has records in it before passing
2086: IF (p_khrv_tbl.COUNT > 0) THEN
2087: insert_row (
2088: p_api_version => p_api_version,
2089: p_init_msg_list => OKC_API.G_FALSE,
2090: x_return_status => x_return_status,
2091: x_msg_count => x_msg_count,
2092: x_msg_data => x_msg_data,
2093: p_khrv_tbl => p_khrv_tbl,
2093: p_khrv_tbl => p_khrv_tbl,
2094: x_khrv_tbl => x_khrv_tbl,
2095: px_error_tbl => l_error_tbl);
2096: END IF;
2097: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2098: EXCEPTION
2099: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2101: (
2095: px_error_tbl => l_error_tbl);
2096: END IF;
2097: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2098: EXCEPTION
2099: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2101: (
2102: l_api_name,
2103: G_PKG_NAME,
2096: END IF;
2097: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2098: EXCEPTION
2099: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2101: (
2102: l_api_name,
2103: G_PKG_NAME,
2104: 'OKC_API.G_RET_STS_ERROR',
2100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2101: (
2102: l_api_name,
2103: G_PKG_NAME,
2104: 'OKC_API.G_RET_STS_ERROR',
2105: x_msg_count,
2106: x_msg_data,
2107: '_PVT'
2108: );
2105: x_msg_count,
2106: x_msg_data,
2107: '_PVT'
2108: );
2109: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2111: (
2112: l_api_name,
2113: G_PKG_NAME,
2106: x_msg_data,
2107: '_PVT'
2108: );
2109: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2111: (
2112: l_api_name,
2113: G_PKG_NAME,
2114: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2111: (
2112: l_api_name,
2113: G_PKG_NAME,
2114: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2115: x_msg_count,
2116: x_msg_data,
2117: '_PVT'
2118: );
2116: x_msg_data,
2117: '_PVT'
2118: );
2119: WHEN OTHERS THEN
2120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2121: (
2122: l_api_name,
2123: G_PKG_NAME,
2124: 'OTHERS',
2155: FROM OKS_K_HEADERS_B
2156: WHERE ID = p_khr_rec.id;
2157: l_api_version CONSTANT NUMBER := 1;
2158: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2159: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2160: l_object_version_number OKS_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
2161: lc_object_version_number OKS_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
2162: l_row_notfound BOOLEAN := FALSE;
2163: lc_row_notfound BOOLEAN := FALSE;
2161: lc_object_version_number OKS_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
2162: l_row_notfound BOOLEAN := FALSE;
2163: lc_row_notfound BOOLEAN := FALSE;
2164: BEGIN
2165: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2166: p_init_msg_list,
2167: '_PVT',
2168: x_return_status);
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2165: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2166: p_init_msg_list,
2167: '_PVT',
2168: x_return_status);
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2166: p_init_msg_list,
2167: '_PVT',
2168: x_return_status);
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: BEGIN
2167: '_PVT',
2168: x_return_status);
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: BEGIN
2175: OPEN lock_csr(p_khr_rec);
2168: x_return_status);
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: BEGIN
2175: OPEN lock_csr(p_khr_rec);
2176: FETCH lock_csr INTO l_object_version_number;
2180: WHEN E_Resource_Busy THEN
2181: IF (lock_csr%ISOPEN) THEN
2182: CLOSE lock_csr;
2183: END IF;
2184: OKC_API.set_message(G_FND_APP, G_FORM_UNABLE_TO_RESERVE_REC);
2185: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2186: END;
2187:
2188: IF (l_row_notfound ) THEN
2191: lc_row_notfound := lchk_csr%NOTFOUND;
2192: CLOSE lchk_csr;
2193: END IF;
2194: IF (lc_row_notfound) THEN
2195: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_DELETED);
2196: RAISE OKC_API.G_EXCEPTION_ERROR;
2197: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
2198: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2192: CLOSE lchk_csr;
2193: END IF;
2194: IF (lc_row_notfound) THEN
2195: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_DELETED);
2196: RAISE OKC_API.G_EXCEPTION_ERROR;
2197: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
2198: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
2194: IF (lc_row_notfound) THEN
2195: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_DELETED);
2196: RAISE OKC_API.G_EXCEPTION_ERROR;
2197: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
2198: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
2201: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2202: RAISE OKC_API.G_EXCEPTION_ERROR;
2195: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_DELETED);
2196: RAISE OKC_API.G_EXCEPTION_ERROR;
2197: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
2198: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
2201: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2202: RAISE OKC_API.G_EXCEPTION_ERROR;
2203: ELSIF lc_object_version_number = - 1 THEN
2197: ELSIF lc_object_version_number > p_khr_rec.object_version_number THEN
2198: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
2201: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2202: RAISE OKC_API.G_EXCEPTION_ERROR;
2203: ELSIF lc_object_version_number = - 1 THEN
2204: OKC_API.set_message(G_APP_NAME, G_RECORD_LOGICALLY_DELETED);
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2198: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2199: RAISE OKC_API.G_EXCEPTION_ERROR;
2200: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
2201: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2202: RAISE OKC_API.G_EXCEPTION_ERROR;
2203: ELSIF lc_object_version_number = - 1 THEN
2204: OKC_API.set_message(G_APP_NAME, G_RECORD_LOGICALLY_DELETED);
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2200: ELSIF lc_object_version_number <> p_khr_rec.object_version_number THEN
2201: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2202: RAISE OKC_API.G_EXCEPTION_ERROR;
2203: ELSIF lc_object_version_number = - 1 THEN
2204: OKC_API.set_message(G_APP_NAME, G_RECORD_LOGICALLY_DELETED);
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207: x_return_status := l_return_status;
2208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2201: OKC_API.set_message(G_FND_APP, G_FORM_RECORD_CHANGED);
2202: RAISE OKC_API.G_EXCEPTION_ERROR;
2203: ELSIF lc_object_version_number = - 1 THEN
2204: OKC_API.set_message(G_APP_NAME, G_RECORD_LOGICALLY_DELETED);
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207: x_return_status := l_return_status;
2208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2209: EXCEPTION
2204: OKC_API.set_message(G_APP_NAME, G_RECORD_LOGICALLY_DELETED);
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207: x_return_status := l_return_status;
2208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2209: EXCEPTION
2210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2212: (
2206: END IF;
2207: x_return_status := l_return_status;
2208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2209: EXCEPTION
2210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2212: (
2213: l_api_name,
2214: G_PKG_NAME,
2207: x_return_status := l_return_status;
2208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2209: EXCEPTION
2210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2212: (
2213: l_api_name,
2214: G_PKG_NAME,
2215: 'OKC_API.G_RET_STS_ERROR',
2211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2212: (
2213: l_api_name,
2214: G_PKG_NAME,
2215: 'OKC_API.G_RET_STS_ERROR',
2216: x_msg_count,
2217: x_msg_data,
2218: '_PVT'
2219: );
2216: x_msg_count,
2217: x_msg_data,
2218: '_PVT'
2219: );
2220: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2222: (
2223: l_api_name,
2224: G_PKG_NAME,
2217: x_msg_data,
2218: '_PVT'
2219: );
2220: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2222: (
2223: l_api_name,
2224: G_PKG_NAME,
2225: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2222: (
2223: l_api_name,
2224: G_PKG_NAME,
2225: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2226: x_msg_count,
2227: x_msg_data,
2228: '_PVT'
2229: );
2227: x_msg_data,
2228: '_PVT'
2229: );
2230: WHEN OTHERS THEN
2231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OTHERS',
2250: p_khrv_rec IN khrv_rec_type) IS
2251:
2252: l_api_version CONSTANT NUMBER := 1;
2253: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2254: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2255: l_khr_rec khr_rec_type;
2256: BEGIN
2257: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2258: G_PKG_NAME,
2253: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2254: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2255: l_khr_rec khr_rec_type;
2256: BEGIN
2257: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2258: G_PKG_NAME,
2259: p_init_msg_list,
2260: l_api_version,
2261: p_api_version,
2260: l_api_version,
2261: p_api_version,
2262: '_PVT',
2263: x_return_status);
2264: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2266: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_ERROR;
2268: END IF;
2261: p_api_version,
2262: '_PVT',
2263: x_return_status);
2264: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2266: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_ERROR;
2268: END IF;
2269: -----------------------------------------
2262: '_PVT',
2263: x_return_status);
2264: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2266: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_ERROR;
2268: END IF;
2269: -----------------------------------------
2270: -- Move VIEW record to "Child" records --
2263: x_return_status);
2264: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2266: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2267: RAISE OKC_API.G_EXCEPTION_ERROR;
2268: END IF;
2269: -----------------------------------------
2270: -- Move VIEW record to "Child" records --
2271: -----------------------------------------
2279: x_msg_count,
2280: x_msg_data,
2281: l_khr_rec
2282: );
2283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2286: RAISE OKC_API.G_EXCEPTION_ERROR;
2287: END IF;
2280: x_msg_data,
2281: l_khr_rec
2282: );
2283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2286: RAISE OKC_API.G_EXCEPTION_ERROR;
2287: END IF;
2288: x_return_status := l_return_status;
2281: l_khr_rec
2282: );
2283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2286: RAISE OKC_API.G_EXCEPTION_ERROR;
2287: END IF;
2288: x_return_status := l_return_status;
2289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2282: );
2283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2286: RAISE OKC_API.G_EXCEPTION_ERROR;
2287: END IF;
2288: x_return_status := l_return_status;
2289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2290: EXCEPTION
2285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2286: RAISE OKC_API.G_EXCEPTION_ERROR;
2287: END IF;
2288: x_return_status := l_return_status;
2289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2290: EXCEPTION
2291: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2293: (
2287: END IF;
2288: x_return_status := l_return_status;
2289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2290: EXCEPTION
2291: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2293: (
2294: l_api_name,
2295: G_PKG_NAME,
2288: x_return_status := l_return_status;
2289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2290: EXCEPTION
2291: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2293: (
2294: l_api_name,
2295: G_PKG_NAME,
2296: 'OKC_API.G_RET_STS_ERROR',
2292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2293: (
2294: l_api_name,
2295: G_PKG_NAME,
2296: 'OKC_API.G_RET_STS_ERROR',
2297: x_msg_count,
2298: x_msg_data,
2299: '_PVT'
2300: );
2297: x_msg_count,
2298: x_msg_data,
2299: '_PVT'
2300: );
2301: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2303: (
2304: l_api_name,
2305: G_PKG_NAME,
2298: x_msg_data,
2299: '_PVT'
2300: );
2301: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2303: (
2304: l_api_name,
2305: G_PKG_NAME,
2306: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2303: (
2304: l_api_name,
2305: G_PKG_NAME,
2306: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2307: x_msg_count,
2308: x_msg_data,
2309: '_PVT'
2310: );
2308: x_msg_data,
2309: '_PVT'
2310: );
2311: WHEN OTHERS THEN
2312: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2313: (
2314: l_api_name,
2315: G_PKG_NAME,
2316: 'OTHERS',
2328: x_return_status OUT NOCOPY VARCHAR2,
2329: x_msg_count OUT NOCOPY NUMBER,
2330: x_msg_data OUT NOCOPY VARCHAR2,
2331: p_khrv_tbl IN khrv_tbl_type,
2332: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2333:
2334: l_api_version CONSTANT NUMBER := 1;
2335: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2336: i NUMBER := 0;
2334: l_api_version CONSTANT NUMBER := 1;
2335: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2336: i NUMBER := 0;
2337: BEGIN
2338: OKC_API.init_msg_list(p_init_msg_list);
2339: -- Make sure PL/SQL table has recrods in it before passing
2340: IF (p_khrv_tbl.COUNT > 0) THEN
2341: i := p_khrv_tbl.FIRST;
2342: LOOP
2340: IF (p_khrv_tbl.COUNT > 0) THEN
2341: i := p_khrv_tbl.FIRST;
2342: LOOP
2343: DECLARE
2344: l_error_rec OKC_API.ERROR_REC_TYPE;
2345: BEGIN
2346: l_error_rec.api_name := l_api_name;
2347: l_error_rec.api_package := G_PKG_NAME;
2348: l_error_rec.idx := i;
2347: l_error_rec.api_package := G_PKG_NAME;
2348: l_error_rec.idx := i;
2349: lock_row(
2350: p_api_version => p_api_version,
2351: p_init_msg_list => OKC_API.G_FALSE,
2352: x_return_status => l_error_rec.error_type,
2353: x_msg_count => l_error_rec.msg_count,
2354: x_msg_data => l_error_rec.msg_data,
2355: p_khrv_rec => p_khrv_tbl(i));
2352: x_return_status => l_error_rec.error_type,
2353: x_msg_count => l_error_rec.msg_count,
2354: x_msg_data => l_error_rec.msg_data,
2355: p_khrv_rec => p_khrv_tbl(i));
2356: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2357: l_error_rec.SQLCODE := SQLCODE;
2358: load_error_tbl(l_error_rec, px_error_tbl);
2359: ELSE
2360: x_msg_count := l_error_rec.msg_count;
2360: x_msg_count := l_error_rec.msg_count;
2361: x_msg_data := l_error_rec.msg_data;
2362: END IF;
2363: EXCEPTION
2364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2365: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2366: l_error_rec.SQLCODE := SQLCODE;
2367: load_error_tbl(l_error_rec, px_error_tbl);
2368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2361: x_msg_data := l_error_rec.msg_data;
2362: END IF;
2363: EXCEPTION
2364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2365: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2366: l_error_rec.SQLCODE := SQLCODE;
2367: load_error_tbl(l_error_rec, px_error_tbl);
2368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2369: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2365: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2366: l_error_rec.SQLCODE := SQLCODE;
2367: load_error_tbl(l_error_rec, px_error_tbl);
2368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2369: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2370: l_error_rec.SQLCODE := SQLCODE;
2371: load_error_tbl(l_error_rec, px_error_tbl);
2372: WHEN OTHERS THEN
2365: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2366: l_error_rec.SQLCODE := SQLCODE;
2367: load_error_tbl(l_error_rec, px_error_tbl);
2368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2369: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2370: l_error_rec.SQLCODE := SQLCODE;
2371: load_error_tbl(l_error_rec, px_error_tbl);
2372: WHEN OTHERS THEN
2373: l_error_rec.error_type := 'OTHERS';
2380: END IF;
2381: -- Loop through the error_tbl to find the error with the highest severity
2382: -- and return it.
2383: x_return_status := find_highest_exception(px_error_tbl);
2384: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2385: EXCEPTION
2386: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2387: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2388: (
2382: -- and return it.
2383: x_return_status := find_highest_exception(px_error_tbl);
2384: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2385: EXCEPTION
2386: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2387: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2388: (
2389: l_api_name,
2390: G_PKG_NAME,
2383: x_return_status := find_highest_exception(px_error_tbl);
2384: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2385: EXCEPTION
2386: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2387: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2388: (
2389: l_api_name,
2390: G_PKG_NAME,
2391: 'OKC_API.G_RET_STS_ERROR',
2387: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2388: (
2389: l_api_name,
2390: G_PKG_NAME,
2391: 'OKC_API.G_RET_STS_ERROR',
2392: x_msg_count,
2393: x_msg_data,
2394: '_PVT'
2395: );
2392: x_msg_count,
2393: x_msg_data,
2394: '_PVT'
2395: );
2396: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2398: (
2399: l_api_name,
2400: G_PKG_NAME,
2393: x_msg_data,
2394: '_PVT'
2395: );
2396: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2398: (
2399: l_api_name,
2400: G_PKG_NAME,
2401: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2398: (
2399: l_api_name,
2400: G_PKG_NAME,
2401: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2402: x_msg_count,
2403: x_msg_data,
2404: '_PVT'
2405: );
2403: x_msg_data,
2404: '_PVT'
2405: );
2406: WHEN OTHERS THEN
2407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2408: (
2409: l_api_name,
2410: G_PKG_NAME,
2411: 'OTHERS',
2426: p_khrv_tbl IN khrv_tbl_type) IS
2427:
2428: l_api_version CONSTANT NUMBER := 1;
2429: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2432: BEGIN
2433: OKC_API.init_msg_list(p_init_msg_list);
2434: -- Make sure PL/SQL table has recrods in it before passing
2427:
2428: l_api_version CONSTANT NUMBER := 1;
2429: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2432: BEGIN
2433: OKC_API.init_msg_list(p_init_msg_list);
2434: -- Make sure PL/SQL table has recrods in it before passing
2435: IF (p_khrv_tbl.COUNT > 0) THEN
2429: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2432: BEGIN
2433: OKC_API.init_msg_list(p_init_msg_list);
2434: -- Make sure PL/SQL table has recrods in it before passing
2435: IF (p_khrv_tbl.COUNT > 0) THEN
2436: lock_row(
2437: p_api_version => p_api_version,
2434: -- Make sure PL/SQL table has recrods in it before passing
2435: IF (p_khrv_tbl.COUNT > 0) THEN
2436: lock_row(
2437: p_api_version => p_api_version,
2438: p_init_msg_list => OKC_API.G_FALSE,
2439: x_return_status => x_return_status,
2440: x_msg_count => x_msg_count,
2441: x_msg_data => x_msg_data,
2442: p_khrv_tbl => p_khrv_tbl,
2441: x_msg_data => x_msg_data,
2442: p_khrv_tbl => p_khrv_tbl,
2443: px_error_tbl => l_error_tbl);
2444: END IF;
2445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2446: EXCEPTION
2447: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2448: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2449: (
2443: px_error_tbl => l_error_tbl);
2444: END IF;
2445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2446: EXCEPTION
2447: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2448: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2449: (
2450: l_api_name,
2451: G_PKG_NAME,
2444: END IF;
2445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2446: EXCEPTION
2447: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2448: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2449: (
2450: l_api_name,
2451: G_PKG_NAME,
2452: 'OKC_API.G_RET_STS_ERROR',
2448: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2449: (
2450: l_api_name,
2451: G_PKG_NAME,
2452: 'OKC_API.G_RET_STS_ERROR',
2453: x_msg_count,
2454: x_msg_data,
2455: '_PVT'
2456: );
2453: x_msg_count,
2454: x_msg_data,
2455: '_PVT'
2456: );
2457: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2458: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2459: (
2460: l_api_name,
2461: G_PKG_NAME,
2454: x_msg_data,
2455: '_PVT'
2456: );
2457: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2458: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2459: (
2460: l_api_name,
2461: G_PKG_NAME,
2462: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2458: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2459: (
2460: l_api_name,
2461: G_PKG_NAME,
2462: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2463: x_msg_count,
2464: x_msg_data,
2465: '_PVT'
2466: );
2464: x_msg_data,
2465: '_PVT'
2466: );
2467: WHEN OTHERS THEN
2468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2469: (
2470: l_api_name,
2471: G_PKG_NAME,
2472: 'OTHERS',
2490: x_khr_rec OUT NOCOPY khr_rec_type) IS
2491:
2492: l_api_version CONSTANT NUMBER := 1;
2493: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2494: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2495: l_khr_rec khr_rec_type := p_khr_rec;
2496: l_def_khr_rec khr_rec_type;
2497: l_row_notfound BOOLEAN := TRUE;
2498:
2544: x_credit_card_changed OUT NOCOPY VARCHAR2
2545: ) RETURN VARCHAR2 IS
2546: l_khr_rec khr_rec_type;
2547: l_row_notfound BOOLEAN := TRUE;
2548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2549: BEGIN
2550: x_khr_rec := p_khr_rec;
2551: x_quote_changed := 'N';
2552: -- Get current database values
2550: x_khr_rec := p_khr_rec;
2551: x_quote_changed := 'N';
2552: -- Get current database values
2553: l_khr_rec := get_rec(p_khr_rec, l_return_status);
2554: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2555: IF (x_khr_rec.id = OKC_API.G_MISS_NUM)
2556: THEN
2557: x_khr_rec.id := l_khr_rec.id;
2558: END IF;
2551: x_quote_changed := 'N';
2552: -- Get current database values
2553: l_khr_rec := get_rec(p_khr_rec, l_return_status);
2554: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2555: IF (x_khr_rec.id = OKC_API.G_MISS_NUM)
2556: THEN
2557: x_khr_rec.id := l_khr_rec.id;
2558: END IF;
2559: IF (x_khr_rec.chr_id = OKC_API.G_MISS_NUM)
2555: IF (x_khr_rec.id = OKC_API.G_MISS_NUM)
2556: THEN
2557: x_khr_rec.id := l_khr_rec.id;
2558: END IF;
2559: IF (x_khr_rec.chr_id = OKC_API.G_MISS_NUM)
2560: THEN
2561: x_khr_rec.chr_id := l_khr_rec.chr_id;
2562: END IF;
2563: IF (x_khr_rec.acct_rule_id = OKC_API.G_MISS_NUM)
2559: IF (x_khr_rec.chr_id = OKC_API.G_MISS_NUM)
2560: THEN
2561: x_khr_rec.chr_id := l_khr_rec.chr_id;
2562: END IF;
2563: IF (x_khr_rec.acct_rule_id = OKC_API.G_MISS_NUM)
2564: THEN
2565: x_khr_rec.acct_rule_id := l_khr_rec.acct_rule_id;
2566: END IF;
2567: IF (x_khr_rec.payment_type = OKC_API.G_MISS_CHAR)
2563: IF (x_khr_rec.acct_rule_id = OKC_API.G_MISS_NUM)
2564: THEN
2565: x_khr_rec.acct_rule_id := l_khr_rec.acct_rule_id;
2566: END IF;
2567: IF (x_khr_rec.payment_type = OKC_API.G_MISS_CHAR)
2568: THEN
2569: x_khr_rec.payment_type := l_khr_rec.payment_type;
2570: END IF;
2571: IF (x_khr_rec.cc_no = OKC_API.G_MISS_CHAR)
2567: IF (x_khr_rec.payment_type = OKC_API.G_MISS_CHAR)
2568: THEN
2569: x_khr_rec.payment_type := l_khr_rec.payment_type;
2570: END IF;
2571: IF (x_khr_rec.cc_no = OKC_API.G_MISS_CHAR)
2572: THEN
2573: x_khr_rec.cc_no := l_khr_rec.cc_no;
2574: END IF;
2575: IF (x_khr_rec.cc_expiry_date = OKC_API.G_MISS_DATE)
2571: IF (x_khr_rec.cc_no = OKC_API.G_MISS_CHAR)
2572: THEN
2573: x_khr_rec.cc_no := l_khr_rec.cc_no;
2574: END IF;
2575: IF (x_khr_rec.cc_expiry_date = OKC_API.G_MISS_DATE)
2576: THEN
2577: x_khr_rec.cc_expiry_date := l_khr_rec.cc_expiry_date;
2578: END IF;
2579: IF (x_khr_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM)
2575: IF (x_khr_rec.cc_expiry_date = OKC_API.G_MISS_DATE)
2576: THEN
2577: x_khr_rec.cc_expiry_date := l_khr_rec.cc_expiry_date;
2578: END IF;
2579: IF (x_khr_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM)
2580: THEN
2581: x_khr_rec.cc_bank_acct_id := l_khr_rec.cc_bank_acct_id;
2582: END IF;
2583: IF (x_khr_rec.cc_auth_code = OKC_API.G_MISS_CHAR)
2579: IF (x_khr_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM)
2580: THEN
2581: x_khr_rec.cc_bank_acct_id := l_khr_rec.cc_bank_acct_id;
2582: END IF;
2583: IF (x_khr_rec.cc_auth_code = OKC_API.G_MISS_CHAR)
2584: THEN
2585: x_khr_rec.cc_auth_code := l_khr_rec.cc_auth_code;
2586: END IF;
2587: IF (x_khr_rec.commitment_id = OKC_API.G_MISS_NUM)
2583: IF (x_khr_rec.cc_auth_code = OKC_API.G_MISS_CHAR)
2584: THEN
2585: x_khr_rec.cc_auth_code := l_khr_rec.cc_auth_code;
2586: END IF;
2587: IF (x_khr_rec.commitment_id = OKC_API.G_MISS_NUM)
2588: THEN
2589: x_khr_rec.commitment_id := l_khr_rec.commitment_id;
2590: END IF;
2591: IF (x_khr_rec.grace_duration = OKC_API.G_MISS_NUM)
2587: IF (x_khr_rec.commitment_id = OKC_API.G_MISS_NUM)
2588: THEN
2589: x_khr_rec.commitment_id := l_khr_rec.commitment_id;
2590: END IF;
2591: IF (x_khr_rec.grace_duration = OKC_API.G_MISS_NUM)
2592: THEN
2593: x_khr_rec.grace_duration := l_khr_rec.grace_duration;
2594: END IF;
2595: IF (x_khr_rec.grace_period = OKC_API.G_MISS_CHAR)
2591: IF (x_khr_rec.grace_duration = OKC_API.G_MISS_NUM)
2592: THEN
2593: x_khr_rec.grace_duration := l_khr_rec.grace_duration;
2594: END IF;
2595: IF (x_khr_rec.grace_period = OKC_API.G_MISS_CHAR)
2596: THEN
2597: x_khr_rec.grace_period := l_khr_rec.grace_period;
2598: END IF;
2599: IF (x_khr_rec.est_rev_percent = OKC_API.G_MISS_NUM)
2595: IF (x_khr_rec.grace_period = OKC_API.G_MISS_CHAR)
2596: THEN
2597: x_khr_rec.grace_period := l_khr_rec.grace_period;
2598: END IF;
2599: IF (x_khr_rec.est_rev_percent = OKC_API.G_MISS_NUM)
2600: THEN
2601: x_khr_rec.est_rev_percent := l_khr_rec.est_rev_percent;
2602: END IF;
2603: IF (x_khr_rec.est_rev_date = OKC_API.G_MISS_DATE)
2599: IF (x_khr_rec.est_rev_percent = OKC_API.G_MISS_NUM)
2600: THEN
2601: x_khr_rec.est_rev_percent := l_khr_rec.est_rev_percent;
2602: END IF;
2603: IF (x_khr_rec.est_rev_date = OKC_API.G_MISS_DATE)
2604: THEN
2605: x_khr_rec.est_rev_date := l_khr_rec.est_rev_date;
2606: END IF;
2607: IF (x_khr_rec.tax_amount = OKC_API.G_MISS_NUM)
2603: IF (x_khr_rec.est_rev_date = OKC_API.G_MISS_DATE)
2604: THEN
2605: x_khr_rec.est_rev_date := l_khr_rec.est_rev_date;
2606: END IF;
2607: IF (x_khr_rec.tax_amount = OKC_API.G_MISS_NUM)
2608: THEN
2609: x_khr_rec.tax_amount := l_khr_rec.tax_amount;
2610: END IF;
2611: IF (x_khr_rec.tax_status = OKC_API.G_MISS_CHAR)
2607: IF (x_khr_rec.tax_amount = OKC_API.G_MISS_NUM)
2608: THEN
2609: x_khr_rec.tax_amount := l_khr_rec.tax_amount;
2610: END IF;
2611: IF (x_khr_rec.tax_status = OKC_API.G_MISS_CHAR)
2612: THEN
2613: x_khr_rec.tax_status := l_khr_rec.tax_status;
2614: END IF;
2615: IF (x_khr_rec.tax_code = OKC_API.G_MISS_NUM)
2611: IF (x_khr_rec.tax_status = OKC_API.G_MISS_CHAR)
2612: THEN
2613: x_khr_rec.tax_status := l_khr_rec.tax_status;
2614: END IF;
2615: IF (x_khr_rec.tax_code = OKC_API.G_MISS_NUM)
2616: THEN
2617: x_khr_rec.tax_code := l_khr_rec.tax_code;
2618: END IF;
2619: IF (x_khr_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2615: IF (x_khr_rec.tax_code = OKC_API.G_MISS_NUM)
2616: THEN
2617: x_khr_rec.tax_code := l_khr_rec.tax_code;
2618: END IF;
2619: IF (x_khr_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2620: THEN
2621: x_khr_rec.tax_exemption_id := l_khr_rec.tax_exemption_id;
2622: END IF;
2623: IF (x_khr_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2619: IF (x_khr_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2620: THEN
2621: x_khr_rec.tax_exemption_id := l_khr_rec.tax_exemption_id;
2622: END IF;
2623: IF (x_khr_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2624: THEN
2625: x_khr_rec.billing_profile_id := l_khr_rec.billing_profile_id;
2626: END IF;
2627: IF (x_khr_rec.renewal_status = OKC_API.G_MISS_CHAR)
2623: IF (x_khr_rec.billing_profile_id = OKC_API.G_MISS_NUM)
2624: THEN
2625: x_khr_rec.billing_profile_id := l_khr_rec.billing_profile_id;
2626: END IF;
2627: IF (x_khr_rec.renewal_status = OKC_API.G_MISS_CHAR)
2628: THEN
2629: x_khr_rec.renewal_status := l_khr_rec.renewal_status;
2630: END IF;
2631: IF (x_khr_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR)
2627: IF (x_khr_rec.renewal_status = OKC_API.G_MISS_CHAR)
2628: THEN
2629: x_khr_rec.renewal_status := l_khr_rec.renewal_status;
2630: END IF;
2631: IF (x_khr_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR)
2632: THEN
2633: x_khr_rec.electronic_renewal_flag := l_khr_rec.electronic_renewal_flag;
2634: END IF;
2635:
2634: END IF;
2635:
2636: -- HANDCODE: Check if quote to contact has changed
2637:
2638: IF (x_khr_rec.quote_to_contact_id = OKC_API.G_MISS_NUM)
2639: THEN
2640: x_khr_rec.quote_to_contact_id := l_khr_rec.quote_to_contact_id;
2641:
2642: x_quote_changed := 'N';
2647: ELSE
2648: x_quote_changed := 'N';
2649: END IF;
2650:
2651: IF (x_khr_rec.quote_to_site_id = OKC_API.G_MISS_NUM)
2652: THEN
2653: x_khr_rec.quote_to_site_id := l_khr_rec.quote_to_site_id;
2654: END IF;
2655: IF (x_khr_rec.quote_to_email_id = OKC_API.G_MISS_NUM)
2651: IF (x_khr_rec.quote_to_site_id = OKC_API.G_MISS_NUM)
2652: THEN
2653: x_khr_rec.quote_to_site_id := l_khr_rec.quote_to_site_id;
2654: END IF;
2655: IF (x_khr_rec.quote_to_email_id = OKC_API.G_MISS_NUM)
2656: THEN
2657: x_khr_rec.quote_to_email_id := l_khr_rec.quote_to_email_id;
2658: END IF;
2659: IF (x_khr_rec.quote_to_phone_id = OKC_API.G_MISS_NUM)
2655: IF (x_khr_rec.quote_to_email_id = OKC_API.G_MISS_NUM)
2656: THEN
2657: x_khr_rec.quote_to_email_id := l_khr_rec.quote_to_email_id;
2658: END IF;
2659: IF (x_khr_rec.quote_to_phone_id = OKC_API.G_MISS_NUM)
2660: THEN
2661: x_khr_rec.quote_to_phone_id := l_khr_rec.quote_to_phone_id;
2662: END IF;
2663: IF (x_khr_rec.quote_to_fax_id = OKC_API.G_MISS_NUM)
2659: IF (x_khr_rec.quote_to_phone_id = OKC_API.G_MISS_NUM)
2660: THEN
2661: x_khr_rec.quote_to_phone_id := l_khr_rec.quote_to_phone_id;
2662: END IF;
2663: IF (x_khr_rec.quote_to_fax_id = OKC_API.G_MISS_NUM)
2664: THEN
2665: x_khr_rec.quote_to_fax_id := l_khr_rec.quote_to_fax_id;
2666: END IF;
2667: IF (x_khr_rec.renewal_po_required = OKC_API.G_MISS_CHAR)
2663: IF (x_khr_rec.quote_to_fax_id = OKC_API.G_MISS_NUM)
2664: THEN
2665: x_khr_rec.quote_to_fax_id := l_khr_rec.quote_to_fax_id;
2666: END IF;
2667: IF (x_khr_rec.renewal_po_required = OKC_API.G_MISS_CHAR)
2668: THEN
2669: x_khr_rec.renewal_po_required := l_khr_rec.renewal_po_required;
2670: END IF;
2671: IF (x_khr_rec.renewal_po_number = OKC_API.G_MISS_CHAR)
2667: IF (x_khr_rec.renewal_po_required = OKC_API.G_MISS_CHAR)
2668: THEN
2669: x_khr_rec.renewal_po_required := l_khr_rec.renewal_po_required;
2670: END IF;
2671: IF (x_khr_rec.renewal_po_number = OKC_API.G_MISS_CHAR)
2672: THEN
2673: x_khr_rec.renewal_po_number := l_khr_rec.renewal_po_number;
2674: END IF;
2675: IF (x_khr_rec.renewal_price_list = OKC_API.G_MISS_NUM)
2671: IF (x_khr_rec.renewal_po_number = OKC_API.G_MISS_CHAR)
2672: THEN
2673: x_khr_rec.renewal_po_number := l_khr_rec.renewal_po_number;
2674: END IF;
2675: IF (x_khr_rec.renewal_price_list = OKC_API.G_MISS_NUM)
2676: THEN
2677: x_khr_rec.renewal_price_list := l_khr_rec.renewal_price_list;
2678: END IF;
2679: IF (x_khr_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2675: IF (x_khr_rec.renewal_price_list = OKC_API.G_MISS_NUM)
2676: THEN
2677: x_khr_rec.renewal_price_list := l_khr_rec.renewal_price_list;
2678: END IF;
2679: IF (x_khr_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2680: THEN
2681: x_khr_rec.renewal_pricing_type := l_khr_rec.renewal_pricing_type;
2682: END IF;
2683: IF (x_khr_rec.renewal_markup_percent = OKC_API.G_MISS_NUM)
2679: IF (x_khr_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
2680: THEN
2681: x_khr_rec.renewal_pricing_type := l_khr_rec.renewal_pricing_type;
2682: END IF;
2683: IF (x_khr_rec.renewal_markup_percent = OKC_API.G_MISS_NUM)
2684: THEN
2685: x_khr_rec.renewal_markup_percent := l_khr_rec.renewal_markup_percent;
2686: END IF;
2687: IF (x_khr_rec.renewal_grace_duration = OKC_API.G_MISS_NUM)
2683: IF (x_khr_rec.renewal_markup_percent = OKC_API.G_MISS_NUM)
2684: THEN
2685: x_khr_rec.renewal_markup_percent := l_khr_rec.renewal_markup_percent;
2686: END IF;
2687: IF (x_khr_rec.renewal_grace_duration = OKC_API.G_MISS_NUM)
2688: THEN
2689: x_khr_rec.renewal_grace_duration := l_khr_rec.renewal_grace_duration;
2690: END IF;
2691: IF (x_khr_rec.renewal_grace_period = OKC_API.G_MISS_CHAR)
2687: IF (x_khr_rec.renewal_grace_duration = OKC_API.G_MISS_NUM)
2688: THEN
2689: x_khr_rec.renewal_grace_duration := l_khr_rec.renewal_grace_duration;
2690: END IF;
2691: IF (x_khr_rec.renewal_grace_period = OKC_API.G_MISS_CHAR)
2692: THEN
2693: x_khr_rec.renewal_grace_period := l_khr_rec.renewal_grace_period;
2694: END IF;
2695: IF (x_khr_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM)
2691: IF (x_khr_rec.renewal_grace_period = OKC_API.G_MISS_CHAR)
2692: THEN
2693: x_khr_rec.renewal_grace_period := l_khr_rec.renewal_grace_period;
2694: END IF;
2695: IF (x_khr_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM)
2696: THEN
2697: x_khr_rec.renewal_est_rev_percent := l_khr_rec.renewal_est_rev_percent;
2698: END IF;
2699: IF (x_khr_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM)
2695: IF (x_khr_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM)
2696: THEN
2697: x_khr_rec.renewal_est_rev_percent := l_khr_rec.renewal_est_rev_percent;
2698: END IF;
2699: IF (x_khr_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM)
2700: THEN
2701: x_khr_rec.renewal_est_rev_duration := l_khr_rec.renewal_est_rev_duration;
2702: END IF;
2703: IF (x_khr_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR)
2699: IF (x_khr_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM)
2700: THEN
2701: x_khr_rec.renewal_est_rev_duration := l_khr_rec.renewal_est_rev_duration;
2702: END IF;
2703: IF (x_khr_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR)
2704: THEN
2705: x_khr_rec.renewal_est_rev_period := l_khr_rec.renewal_est_rev_period;
2706: END IF;
2707: IF (x_khr_rec.renewal_price_list_used = OKC_API.G_MISS_NUM)
2703: IF (x_khr_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR)
2704: THEN
2705: x_khr_rec.renewal_est_rev_period := l_khr_rec.renewal_est_rev_period;
2706: END IF;
2707: IF (x_khr_rec.renewal_price_list_used = OKC_API.G_MISS_NUM)
2708: THEN
2709: x_khr_rec.renewal_price_list_used := l_khr_rec.renewal_price_list_used;
2710: END IF;
2711: IF (x_khr_rec.renewal_type_used = OKC_API.G_MISS_CHAR)
2707: IF (x_khr_rec.renewal_price_list_used = OKC_API.G_MISS_NUM)
2708: THEN
2709: x_khr_rec.renewal_price_list_used := l_khr_rec.renewal_price_list_used;
2710: END IF;
2711: IF (x_khr_rec.renewal_type_used = OKC_API.G_MISS_CHAR)
2712: THEN
2713: x_khr_rec.renewal_type_used := l_khr_rec.renewal_type_used;
2714: END IF;
2715: IF (x_khr_rec.renewal_notification_to = OKC_API.G_MISS_NUM)
2711: IF (x_khr_rec.renewal_type_used = OKC_API.G_MISS_CHAR)
2712: THEN
2713: x_khr_rec.renewal_type_used := l_khr_rec.renewal_type_used;
2714: END IF;
2715: IF (x_khr_rec.renewal_notification_to = OKC_API.G_MISS_NUM)
2716: THEN
2717: x_khr_rec.renewal_notification_to := l_khr_rec.renewal_notification_to;
2718: END IF;
2719: IF (x_khr_rec.renewal_po_used = OKC_API.G_MISS_CHAR)
2715: IF (x_khr_rec.renewal_notification_to = OKC_API.G_MISS_NUM)
2716: THEN
2717: x_khr_rec.renewal_notification_to := l_khr_rec.renewal_notification_to;
2718: END IF;
2719: IF (x_khr_rec.renewal_po_used = OKC_API.G_MISS_CHAR)
2720: THEN
2721: x_khr_rec.renewal_po_used := l_khr_rec.renewal_po_used;
2722: END IF;
2723: IF (x_khr_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR)
2719: IF (x_khr_rec.renewal_po_used = OKC_API.G_MISS_CHAR)
2720: THEN
2721: x_khr_rec.renewal_po_used := l_khr_rec.renewal_po_used;
2722: END IF;
2723: IF (x_khr_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR)
2724: THEN
2725: x_khr_rec.renewal_pricing_type_used := l_khr_rec.renewal_pricing_type_used;
2726: END IF;
2727: IF (x_khr_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM)
2723: IF (x_khr_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR)
2724: THEN
2725: x_khr_rec.renewal_pricing_type_used := l_khr_rec.renewal_pricing_type_used;
2726: END IF;
2727: IF (x_khr_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM)
2728: THEN
2729: x_khr_rec.renewal_markup_percent_used := l_khr_rec.renewal_markup_percent_used;
2730: END IF;
2731: IF (x_khr_rec.rev_est_percent_used = OKC_API.G_MISS_NUM)
2727: IF (x_khr_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM)
2728: THEN
2729: x_khr_rec.renewal_markup_percent_used := l_khr_rec.renewal_markup_percent_used;
2730: END IF;
2731: IF (x_khr_rec.rev_est_percent_used = OKC_API.G_MISS_NUM)
2732: THEN
2733: x_khr_rec.rev_est_percent_used := l_khr_rec.rev_est_percent_used;
2734: END IF;
2735: IF (x_khr_rec.rev_est_duration_used = OKC_API.G_MISS_NUM)
2731: IF (x_khr_rec.rev_est_percent_used = OKC_API.G_MISS_NUM)
2732: THEN
2733: x_khr_rec.rev_est_percent_used := l_khr_rec.rev_est_percent_used;
2734: END IF;
2735: IF (x_khr_rec.rev_est_duration_used = OKC_API.G_MISS_NUM)
2736: THEN
2737: x_khr_rec.rev_est_duration_used := l_khr_rec.rev_est_duration_used;
2738: END IF;
2739: IF (x_khr_rec.rev_est_period_used = OKC_API.G_MISS_CHAR)
2735: IF (x_khr_rec.rev_est_duration_used = OKC_API.G_MISS_NUM)
2736: THEN
2737: x_khr_rec.rev_est_duration_used := l_khr_rec.rev_est_duration_used;
2738: END IF;
2739: IF (x_khr_rec.rev_est_period_used = OKC_API.G_MISS_CHAR)
2740: THEN
2741: x_khr_rec.rev_est_period_used := l_khr_rec.rev_est_period_used;
2742: END IF;
2743: IF (x_khr_rec.billing_profile_used = OKC_API.G_MISS_NUM)
2739: IF (x_khr_rec.rev_est_period_used = OKC_API.G_MISS_CHAR)
2740: THEN
2741: x_khr_rec.rev_est_period_used := l_khr_rec.rev_est_period_used;
2742: END IF;
2743: IF (x_khr_rec.billing_profile_used = OKC_API.G_MISS_NUM)
2744: THEN
2745: x_khr_rec.billing_profile_used := l_khr_rec.billing_profile_used;
2746: END IF;
2747: IF (x_khr_rec.evn_threshold_amt = OKC_API.G_MISS_NUM)
2743: IF (x_khr_rec.billing_profile_used = OKC_API.G_MISS_NUM)
2744: THEN
2745: x_khr_rec.billing_profile_used := l_khr_rec.billing_profile_used;
2746: END IF;
2747: IF (x_khr_rec.evn_threshold_amt = OKC_API.G_MISS_NUM)
2748: THEN
2749: x_khr_rec.evn_threshold_amt := l_khr_rec.evn_threshold_amt;
2750: END IF;
2751: IF (x_khr_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR)
2747: IF (x_khr_rec.evn_threshold_amt = OKC_API.G_MISS_NUM)
2748: THEN
2749: x_khr_rec.evn_threshold_amt := l_khr_rec.evn_threshold_amt;
2750: END IF;
2751: IF (x_khr_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR)
2752: THEN
2753: x_khr_rec.evn_threshold_cur := l_khr_rec.evn_threshold_cur;
2754: END IF;
2755: IF (x_khr_rec.ern_threshold_amt = OKC_API.G_MISS_NUM)
2751: IF (x_khr_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR)
2752: THEN
2753: x_khr_rec.evn_threshold_cur := l_khr_rec.evn_threshold_cur;
2754: END IF;
2755: IF (x_khr_rec.ern_threshold_amt = OKC_API.G_MISS_NUM)
2756: THEN
2757: x_khr_rec.ern_threshold_amt := l_khr_rec.ern_threshold_amt;
2758: END IF;
2759: IF (x_khr_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR)
2755: IF (x_khr_rec.ern_threshold_amt = OKC_API.G_MISS_NUM)
2756: THEN
2757: x_khr_rec.ern_threshold_amt := l_khr_rec.ern_threshold_amt;
2758: END IF;
2759: IF (x_khr_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR)
2760: THEN
2761: x_khr_rec.ern_threshold_cur := l_khr_rec.ern_threshold_cur;
2762: END IF;
2763: IF (x_khr_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM)
2759: IF (x_khr_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR)
2760: THEN
2761: x_khr_rec.ern_threshold_cur := l_khr_rec.ern_threshold_cur;
2762: END IF;
2763: IF (x_khr_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM)
2764: THEN
2765: x_khr_rec.renewal_grace_duration_used := l_khr_rec.renewal_grace_duration_used;
2766: END IF;
2767: IF (x_khr_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR)
2763: IF (x_khr_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM)
2764: THEN
2765: x_khr_rec.renewal_grace_duration_used := l_khr_rec.renewal_grace_duration_used;
2766: END IF;
2767: IF (x_khr_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR)
2768: THEN
2769: x_khr_rec.renewal_grace_period_used := l_khr_rec.renewal_grace_period_used;
2770: END IF;
2771: IF (x_khr_rec.inv_trx_type = OKC_API.G_MISS_CHAR)
2767: IF (x_khr_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR)
2768: THEN
2769: x_khr_rec.renewal_grace_period_used := l_khr_rec.renewal_grace_period_used;
2770: END IF;
2771: IF (x_khr_rec.inv_trx_type = OKC_API.G_MISS_CHAR)
2772: THEN
2773: x_khr_rec.inv_trx_type := l_khr_rec.inv_trx_type;
2774: END IF;
2775: IF (x_khr_rec.inv_print_profile = OKC_API.G_MISS_CHAR)
2771: IF (x_khr_rec.inv_trx_type = OKC_API.G_MISS_CHAR)
2772: THEN
2773: x_khr_rec.inv_trx_type := l_khr_rec.inv_trx_type;
2774: END IF;
2775: IF (x_khr_rec.inv_print_profile = OKC_API.G_MISS_CHAR)
2776: THEN
2777: x_khr_rec.inv_print_profile := l_khr_rec.inv_print_profile;
2778: END IF;
2779: IF (x_khr_rec.ar_interface_yn = OKC_API.G_MISS_CHAR)
2775: IF (x_khr_rec.inv_print_profile = OKC_API.G_MISS_CHAR)
2776: THEN
2777: x_khr_rec.inv_print_profile := l_khr_rec.inv_print_profile;
2778: END IF;
2779: IF (x_khr_rec.ar_interface_yn = OKC_API.G_MISS_CHAR)
2780: THEN
2781: x_khr_rec.ar_interface_yn := l_khr_rec.ar_interface_yn;
2782: END IF;
2783: IF (x_khr_rec.hold_billing = OKC_API.G_MISS_CHAR)
2779: IF (x_khr_rec.ar_interface_yn = OKC_API.G_MISS_CHAR)
2780: THEN
2781: x_khr_rec.ar_interface_yn := l_khr_rec.ar_interface_yn;
2782: END IF;
2783: IF (x_khr_rec.hold_billing = OKC_API.G_MISS_CHAR)
2784: THEN
2785: x_khr_rec.hold_billing := l_khr_rec.hold_billing;
2786: END IF;
2787: IF (x_khr_rec.summary_trx_yn = OKC_API.G_MISS_CHAR)
2783: IF (x_khr_rec.hold_billing = OKC_API.G_MISS_CHAR)
2784: THEN
2785: x_khr_rec.hold_billing := l_khr_rec.hold_billing;
2786: END IF;
2787: IF (x_khr_rec.summary_trx_yn = OKC_API.G_MISS_CHAR)
2788: THEN
2789: x_khr_rec.summary_trx_yn := l_khr_rec.summary_trx_yn;
2790: END IF;
2791: IF (x_khr_rec.service_po_number = OKC_API.G_MISS_CHAR)
2787: IF (x_khr_rec.summary_trx_yn = OKC_API.G_MISS_CHAR)
2788: THEN
2789: x_khr_rec.summary_trx_yn := l_khr_rec.summary_trx_yn;
2790: END IF;
2791: IF (x_khr_rec.service_po_number = OKC_API.G_MISS_CHAR)
2792: THEN
2793: x_khr_rec.service_po_number := l_khr_rec.service_po_number;
2794: END IF;
2795: IF (x_khr_rec.service_po_required = OKC_API.G_MISS_CHAR)
2791: IF (x_khr_rec.service_po_number = OKC_API.G_MISS_CHAR)
2792: THEN
2793: x_khr_rec.service_po_number := l_khr_rec.service_po_number;
2794: END IF;
2795: IF (x_khr_rec.service_po_required = OKC_API.G_MISS_CHAR)
2796: THEN
2797: x_khr_rec.service_po_required := l_khr_rec.service_po_required;
2798: END IF;
2799: IF (x_khr_rec.billing_schedule_type = OKC_API.G_MISS_CHAR)
2795: IF (x_khr_rec.service_po_required = OKC_API.G_MISS_CHAR)
2796: THEN
2797: x_khr_rec.service_po_required := l_khr_rec.service_po_required;
2798: END IF;
2799: IF (x_khr_rec.billing_schedule_type = OKC_API.G_MISS_CHAR)
2800: THEN
2801: x_khr_rec.billing_schedule_type := l_khr_rec.billing_schedule_type;
2802: END IF;
2803: IF (x_khr_rec.object_version_number = OKC_API.G_MISS_NUM)
2799: IF (x_khr_rec.billing_schedule_type = OKC_API.G_MISS_CHAR)
2800: THEN
2801: x_khr_rec.billing_schedule_type := l_khr_rec.billing_schedule_type;
2802: END IF;
2803: IF (x_khr_rec.object_version_number = OKC_API.G_MISS_NUM)
2804: THEN
2805: x_khr_rec.object_version_number := l_khr_rec.object_version_number;
2806: END IF;
2807: IF (x_khr_rec.request_id = OKC_API.G_MISS_NUM)
2803: IF (x_khr_rec.object_version_number = OKC_API.G_MISS_NUM)
2804: THEN
2805: x_khr_rec.object_version_number := l_khr_rec.object_version_number;
2806: END IF;
2807: IF (x_khr_rec.request_id = OKC_API.G_MISS_NUM)
2808: THEN
2809: x_khr_rec.request_id := l_khr_rec.request_id;
2810: END IF;
2811: IF (x_khr_rec.created_by = OKC_API.G_MISS_NUM)
2807: IF (x_khr_rec.request_id = OKC_API.G_MISS_NUM)
2808: THEN
2809: x_khr_rec.request_id := l_khr_rec.request_id;
2810: END IF;
2811: IF (x_khr_rec.created_by = OKC_API.G_MISS_NUM)
2812: THEN
2813: x_khr_rec.created_by := l_khr_rec.created_by;
2814: END IF;
2815: IF (x_khr_rec.creation_date = OKC_API.G_MISS_DATE)
2811: IF (x_khr_rec.created_by = OKC_API.G_MISS_NUM)
2812: THEN
2813: x_khr_rec.created_by := l_khr_rec.created_by;
2814: END IF;
2815: IF (x_khr_rec.creation_date = OKC_API.G_MISS_DATE)
2816: THEN
2817: x_khr_rec.creation_date := l_khr_rec.creation_date;
2818: END IF;
2819: IF (x_khr_rec.last_updated_by = OKC_API.G_MISS_NUM)
2815: IF (x_khr_rec.creation_date = OKC_API.G_MISS_DATE)
2816: THEN
2817: x_khr_rec.creation_date := l_khr_rec.creation_date;
2818: END IF;
2819: IF (x_khr_rec.last_updated_by = OKC_API.G_MISS_NUM)
2820: THEN
2821: x_khr_rec.last_updated_by := l_khr_rec.last_updated_by;
2822: END IF;
2823: IF (x_khr_rec.last_update_date = OKC_API.G_MISS_DATE)
2819: IF (x_khr_rec.last_updated_by = OKC_API.G_MISS_NUM)
2820: THEN
2821: x_khr_rec.last_updated_by := l_khr_rec.last_updated_by;
2822: END IF;
2823: IF (x_khr_rec.last_update_date = OKC_API.G_MISS_DATE)
2824: THEN
2825: x_khr_rec.last_update_date := l_khr_rec.last_update_date;
2826: END IF;
2827: IF (x_khr_rec.last_update_login = OKC_API.G_MISS_NUM)
2823: IF (x_khr_rec.last_update_date = OKC_API.G_MISS_DATE)
2824: THEN
2825: x_khr_rec.last_update_date := l_khr_rec.last_update_date;
2826: END IF;
2827: IF (x_khr_rec.last_update_login = OKC_API.G_MISS_NUM)
2828: THEN
2829: x_khr_rec.last_update_login := l_khr_rec.last_update_login;
2830: END IF;
2831: IF (x_khr_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR)
2827: IF (x_khr_rec.last_update_login = OKC_API.G_MISS_NUM)
2828: THEN
2829: x_khr_rec.last_update_login := l_khr_rec.last_update_login;
2830: END IF;
2831: IF (x_khr_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR)
2832: THEN
2833: x_khr_rec.ern_flag_used_yn := l_khr_rec.ern_flag_used_yn;
2834: END IF;
2835: IF (x_khr_rec.follow_up_action = OKC_API.G_MISS_CHAR)
2831: IF (x_khr_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR)
2832: THEN
2833: x_khr_rec.ern_flag_used_yn := l_khr_rec.ern_flag_used_yn;
2834: END IF;
2835: IF (x_khr_rec.follow_up_action = OKC_API.G_MISS_CHAR)
2836: THEN
2837: x_khr_rec.follow_up_action := l_khr_rec.follow_up_action;
2838: END IF;
2839: IF (x_khr_rec.follow_up_date = OKC_API.G_MISS_DATE)
2835: IF (x_khr_rec.follow_up_action = OKC_API.G_MISS_CHAR)
2836: THEN
2837: x_khr_rec.follow_up_action := l_khr_rec.follow_up_action;
2838: END IF;
2839: IF (x_khr_rec.follow_up_date = OKC_API.G_MISS_DATE)
2840: THEN
2841: x_khr_rec.follow_up_date := l_khr_rec.follow_up_date;
2842: END IF;
2843: /**
2840: THEN
2841: x_khr_rec.follow_up_date := l_khr_rec.follow_up_date;
2842: END IF;
2843: /**
2844: IF (x_khr_rec.trxn_extension_id = OKC_API.G_MISS_NUM)
2845: THEN
2846: x_khr_rec.trxn_extension_id := l_khr_rec.trxn_extension_id;
2847: END IF;
2848: **/
2847: END IF;
2848: **/
2849:
2850: --bug 4656532 (QA updates cc_auth_code after authorization which we need to null out if credit card changes
2851: IF (x_khr_rec.trxn_extension_id = OKC_API.G_MISS_NUM)
2852: THEN
2853: x_khr_rec.trxn_extension_id := l_khr_rec.trxn_extension_id;
2854:
2855: x_credit_card_changed := 'N';
2860: ELSE
2861: x_credit_card_changed := 'N';
2862: END IF;
2863:
2864: IF (x_khr_rec.date_accepted = OKC_API.G_MISS_DATE)
2865: THEN
2866: x_khr_rec.date_accepted := l_khr_rec.date_accepted;
2867: END IF;
2868:
2865: THEN
2866: x_khr_rec.date_accepted := l_khr_rec.date_accepted;
2867: END IF;
2868:
2869: IF (x_khr_rec.accepted_by = OKC_API.G_MISS_NUM)
2870: THEN
2871: x_khr_rec.accepted_by := l_khr_rec.accepted_by;
2872: END IF;
2873: IF (x_khr_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR)
2869: IF (x_khr_rec.accepted_by = OKC_API.G_MISS_NUM)
2870: THEN
2871: x_khr_rec.accepted_by := l_khr_rec.accepted_by;
2872: END IF;
2873: IF (x_khr_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR)
2874: THEN
2875: x_khr_rec.rmndr_suppress_flag := l_khr_rec.rmndr_suppress_flag;
2876: END IF;
2877: IF (x_khr_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR)
2873: IF (x_khr_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR)
2874: THEN
2875: x_khr_rec.rmndr_suppress_flag := l_khr_rec.rmndr_suppress_flag;
2876: END IF;
2877: IF (x_khr_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR)
2878: THEN
2879: x_khr_rec.rmndr_sent_flag := l_khr_rec.rmndr_sent_flag;
2880: END IF;
2881: IF (x_khr_rec.quote_sent_flag = OKC_API.G_MISS_CHAR)
2877: IF (x_khr_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR)
2878: THEN
2879: x_khr_rec.rmndr_sent_flag := l_khr_rec.rmndr_sent_flag;
2880: END IF;
2881: IF (x_khr_rec.quote_sent_flag = OKC_API.G_MISS_CHAR)
2882: THEN
2883: x_khr_rec.quote_sent_flag := l_khr_rec.quote_sent_flag;
2884: END IF;
2885: IF (x_khr_rec.process_request_id = OKC_API.G_MISS_NUM)
2881: IF (x_khr_rec.quote_sent_flag = OKC_API.G_MISS_CHAR)
2882: THEN
2883: x_khr_rec.quote_sent_flag := l_khr_rec.quote_sent_flag;
2884: END IF;
2885: IF (x_khr_rec.process_request_id = OKC_API.G_MISS_NUM)
2886: THEN
2887: x_khr_rec.process_request_id := l_khr_rec.process_request_id;
2888: END IF;
2889: IF (x_khr_rec.wf_item_key = OKC_API.G_MISS_CHAR)
2885: IF (x_khr_rec.process_request_id = OKC_API.G_MISS_NUM)
2886: THEN
2887: x_khr_rec.process_request_id := l_khr_rec.process_request_id;
2888: END IF;
2889: IF (x_khr_rec.wf_item_key = OKC_API.G_MISS_CHAR)
2890: THEN
2891: x_khr_rec.wf_item_key := l_khr_rec.wf_item_key;
2892: END IF;
2893: IF (x_khr_rec.period_start = OKC_API.G_MISS_CHAR)
2889: IF (x_khr_rec.wf_item_key = OKC_API.G_MISS_CHAR)
2890: THEN
2891: x_khr_rec.wf_item_key := l_khr_rec.wf_item_key;
2892: END IF;
2893: IF (x_khr_rec.period_start = OKC_API.G_MISS_CHAR)
2894: THEN
2895: x_khr_rec.period_start := l_khr_rec.period_start;
2896: END IF;
2897: IF (x_khr_rec.period_type = OKC_API.G_MISS_CHAR)
2893: IF (x_khr_rec.period_start = OKC_API.G_MISS_CHAR)
2894: THEN
2895: x_khr_rec.period_start := l_khr_rec.period_start;
2896: END IF;
2897: IF (x_khr_rec.period_type = OKC_API.G_MISS_CHAR)
2898: THEN
2899: x_khr_rec.period_type := l_khr_rec.period_type;
2900: END IF;
2901: IF (x_khr_rec.price_uom = OKC_API.G_MISS_CHAR)
2897: IF (x_khr_rec.period_type = OKC_API.G_MISS_CHAR)
2898: THEN
2899: x_khr_rec.period_type := l_khr_rec.period_type;
2900: END IF;
2901: IF (x_khr_rec.price_uom = OKC_API.G_MISS_CHAR)
2902: THEN
2903: x_khr_rec.price_uom := l_khr_rec.price_uom;
2904: END IF;
2905: IF (x_khr_rec.person_party_id = OKC_API.G_MISS_NUM)
2901: IF (x_khr_rec.price_uom = OKC_API.G_MISS_CHAR)
2902: THEN
2903: x_khr_rec.price_uom := l_khr_rec.price_uom;
2904: END IF;
2905: IF (x_khr_rec.person_party_id = OKC_API.G_MISS_NUM)
2906: THEN
2907: x_khr_rec.person_party_id := l_khr_rec.person_party_id;
2908: END IF;
2909: IF (x_khr_rec.tax_classification_code = OKC_API.G_MISS_CHAR)
2905: IF (x_khr_rec.person_party_id = OKC_API.G_MISS_NUM)
2906: THEN
2907: x_khr_rec.person_party_id := l_khr_rec.person_party_id;
2908: END IF;
2909: IF (x_khr_rec.tax_classification_code = OKC_API.G_MISS_CHAR)
2910: THEN
2911: x_khr_rec.tax_classification_code := l_khr_rec.tax_classification_code;
2912: END IF;
2913: IF (x_khr_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR)
2909: IF (x_khr_rec.tax_classification_code = OKC_API.G_MISS_CHAR)
2910: THEN
2911: x_khr_rec.tax_classification_code := l_khr_rec.tax_classification_code;
2912: END IF;
2913: IF (x_khr_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR)
2914: THEN
2915: x_khr_rec.exempt_certificate_number := l_khr_rec.exempt_certificate_number;
2916: END IF;
2917: IF (x_khr_rec.exempt_reason_code = OKC_API.G_MISS_CHAR)
2913: IF (x_khr_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR)
2914: THEN
2915: x_khr_rec.exempt_certificate_number := l_khr_rec.exempt_certificate_number;
2916: END IF;
2917: IF (x_khr_rec.exempt_reason_code = OKC_API.G_MISS_CHAR)
2918: THEN
2919: x_khr_rec.exempt_reason_code := l_khr_rec.exempt_reason_code;
2920: END IF;
2921: IF (x_khr_rec.approval_type_used = OKC_API.G_MISS_CHAR)
2917: IF (x_khr_rec.exempt_reason_code = OKC_API.G_MISS_CHAR)
2918: THEN
2919: x_khr_rec.exempt_reason_code := l_khr_rec.exempt_reason_code;
2920: END IF;
2921: IF (x_khr_rec.approval_type_used = OKC_API.G_MISS_CHAR)
2922: THEN
2923: x_khr_rec.approval_type_used := l_khr_rec.approval_type_used;
2924: END IF;
2925: IF (x_khr_rec.renewal_comment = OKC_API.G_MISS_CHAR)
2921: IF (x_khr_rec.approval_type_used = OKC_API.G_MISS_CHAR)
2922: THEN
2923: x_khr_rec.approval_type_used := l_khr_rec.approval_type_used;
2924: END IF;
2925: IF (x_khr_rec.renewal_comment = OKC_API.G_MISS_CHAR)
2926: THEN
2927: x_khr_rec.renewal_comment := l_khr_rec.renewal_comment;
2928: END IF;
2929: /*Added for ER 13869562 */
2926: THEN
2927: x_khr_rec.renewal_comment := l_khr_rec.renewal_comment;
2928: END IF;
2929: /*Added for ER 13869562 */
2930: IF (x_khr_rec.cc_email_address = OKC_API.G_MISS_CHAR)
2931: THEN
2932: x_khr_rec.cc_email_address := l_khr_rec.cc_email_address;
2933: END IF;
2934: /*Added for ER 13869562 */
2941: FUNCTION Set_Attributes (
2942: p_khr_rec IN khr_rec_type,
2943: x_khr_rec OUT NOCOPY khr_rec_type
2944: ) RETURN VARCHAR2 IS
2945: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2946:
2947:
2948: BEGIN
2949: x_khr_rec := p_khr_rec;
2951: RETURN(l_return_status);
2952: END Set_Attributes;
2953:
2954: BEGIN
2955: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2956: p_init_msg_list,
2957: '_PVT',
2958: x_return_status);
2959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2955: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2956: p_init_msg_list,
2957: '_PVT',
2958: x_return_status);
2959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2962: RAISE OKC_API.G_EXCEPTION_ERROR;
2963: END IF;
2956: p_init_msg_list,
2957: '_PVT',
2958: x_return_status);
2959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2962: RAISE OKC_API.G_EXCEPTION_ERROR;
2963: END IF;
2964: --- Setting item attributes
2957: '_PVT',
2958: x_return_status);
2959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2962: RAISE OKC_API.G_EXCEPTION_ERROR;
2963: END IF;
2964: --- Setting item attributes
2965: l_return_status := Set_Attributes(
2958: x_return_status);
2959: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2960: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2961: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2962: RAISE OKC_API.G_EXCEPTION_ERROR;
2963: END IF;
2964: --- Setting item attributes
2965: l_return_status := Set_Attributes(
2966: p_khr_rec, -- IN
2965: l_return_status := Set_Attributes(
2966: p_khr_rec, -- IN
2967: l_khr_rec); -- OUT
2968: --- If any errors happen abort API
2969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2966: p_khr_rec, -- IN
2967: l_khr_rec); -- OUT
2968: --- If any errors happen abort API
2969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974:
2967: l_khr_rec); -- OUT
2968: --- If any errors happen abort API
2969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974:
2975: -- HANDCODED to check for quote changed and update person party id
2968: --- If any errors happen abort API
2969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2972: RAISE OKC_API.G_EXCEPTION_ERROR;
2973: END IF;
2974:
2975: -- HANDCODED to check for quote changed and update person party id
2976:
2975: -- HANDCODED to check for quote changed and update person party id
2976:
2977: --l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec, l_quote_changed);
2978: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec, l_quote_changed, l_credit_card_changed);
2979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2982: RAISE OKC_API.G_EXCEPTION_ERROR;
2983: END IF;
2976:
2977: --l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec, l_quote_changed);
2978: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec, l_quote_changed, l_credit_card_changed);
2979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2982: RAISE OKC_API.G_EXCEPTION_ERROR;
2983: END IF;
2984:
2977: --l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec, l_quote_changed);
2978: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec, l_quote_changed, l_credit_card_changed);
2979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2982: RAISE OKC_API.G_EXCEPTION_ERROR;
2983: END IF;
2984:
2985: IF l_quote_changed = 'Y' THEN
2978: l_return_status := populate_new_record(l_khr_rec, l_def_khr_rec, l_quote_changed, l_credit_card_changed);
2979: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2980: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2981: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2982: RAISE OKC_API.G_EXCEPTION_ERROR;
2983: END IF;
2984:
2985: IF l_quote_changed = 'Y' THEN
2986: OPEN csr_check_entered (l_def_khr_rec.chr_id);
2999: CLOSE csr_quote_to_person;
3000: IF l_rowfound THEN
3001: l_def_khr_rec.person_party_id := l_person_party_id;
3002: ELSE
3003: OKC_API.set_message(G_APP_NAME, 'OKS_INV_PERSON_PARTY_ID');
3004: END IF;
3005: END IF;
3006: END IF;
3007:
3116: x_return_status => l_return_status,
3117: x_msg_data => x_msg_data,
3118: x_msg_count => x_msg_count
3119: ) ;
3120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3123: RAISE OKC_API.G_EXCEPTION_ERROR;
3124: END IF;
3117: x_msg_data => x_msg_data,
3118: x_msg_count => x_msg_count
3119: ) ;
3120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3123: RAISE OKC_API.G_EXCEPTION_ERROR;
3124: END IF;
3125: END IF;
3118: x_msg_count => x_msg_count
3119: ) ;
3120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3123: RAISE OKC_API.G_EXCEPTION_ERROR;
3124: END IF;
3125: END IF;
3126: x_khr_rec := l_khr_rec;
3119: ) ;
3120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3123: RAISE OKC_API.G_EXCEPTION_ERROR;
3124: END IF;
3125: END IF;
3126: x_khr_rec := l_khr_rec;
3127: x_return_status := l_return_status;
3124: END IF;
3125: END IF;
3126: x_khr_rec := l_khr_rec;
3127: x_return_status := l_return_status;
3128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3129: EXCEPTION
3130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3132: (
3126: x_khr_rec := l_khr_rec;
3127: x_return_status := l_return_status;
3128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3129: EXCEPTION
3130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3132: (
3133: l_api_name,
3134: G_PKG_NAME,
3127: x_return_status := l_return_status;
3128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3129: EXCEPTION
3130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3132: (
3133: l_api_name,
3134: G_PKG_NAME,
3135: 'OKC_API.G_RET_STS_ERROR',
3131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3132: (
3133: l_api_name,
3134: G_PKG_NAME,
3135: 'OKC_API.G_RET_STS_ERROR',
3136: x_msg_count,
3137: x_msg_data,
3138: '_PVT'
3139: );
3136: x_msg_count,
3137: x_msg_data,
3138: '_PVT'
3139: );
3140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3137: x_msg_data,
3138: '_PVT'
3139: );
3140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3146: x_msg_count,
3147: x_msg_data,
3148: '_PVT'
3149: );
3147: x_msg_data,
3148: '_PVT'
3149: );
3150: WHEN OTHERS THEN
3151: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3152: (
3153: l_api_name,
3154: G_PKG_NAME,
3155: 'OTHERS',
3171: x_khrv_rec OUT NOCOPY khrv_rec_type) IS
3172:
3173: l_api_version CONSTANT NUMBER := 1;
3174: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3175: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3176: l_khrv_rec khrv_rec_type := p_khrv_rec;
3177: l_def_khrv_rec khrv_rec_type;
3178: l_db_khrv_rec khrv_rec_type;
3179: l_khr_rec khr_rec_type;
3198: p_khrv_rec IN khrv_rec_type,
3199: x_khrv_rec OUT NOCOPY khrv_rec_type
3200: ) RETURN VARCHAR2 IS
3201: l_row_notfound BOOLEAN := TRUE;
3202: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3203: BEGIN
3204: x_khrv_rec := p_khrv_rec;
3205: -- Get current database values
3206: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3205: -- Get current database values
3206: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3207: -- so it may be verified through LOCK_ROW.
3208: l_db_khrv_rec := get_rec(p_khrv_rec, l_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3210: IF (x_khrv_rec.id = OKC_API.G_MISS_NUM)
3211: THEN
3212: x_khrv_rec.id := l_db_khrv_rec.id;
3213: END IF;
3206: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
3207: -- so it may be verified through LOCK_ROW.
3208: l_db_khrv_rec := get_rec(p_khrv_rec, l_return_status);
3209: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
3210: IF (x_khrv_rec.id = OKC_API.G_MISS_NUM)
3211: THEN
3212: x_khrv_rec.id := l_db_khrv_rec.id;
3213: END IF;
3214: IF (x_khrv_rec.chr_id = OKC_API.G_MISS_NUM)
3210: IF (x_khrv_rec.id = OKC_API.G_MISS_NUM)
3211: THEN
3212: x_khrv_rec.id := l_db_khrv_rec.id;
3213: END IF;
3214: IF (x_khrv_rec.chr_id = OKC_API.G_MISS_NUM)
3215: THEN
3216: x_khrv_rec.chr_id := l_db_khrv_rec.chr_id;
3217: END IF;
3218: IF (x_khrv_rec.acct_rule_id = OKC_API.G_MISS_NUM)
3214: IF (x_khrv_rec.chr_id = OKC_API.G_MISS_NUM)
3215: THEN
3216: x_khrv_rec.chr_id := l_db_khrv_rec.chr_id;
3217: END IF;
3218: IF (x_khrv_rec.acct_rule_id = OKC_API.G_MISS_NUM)
3219: THEN
3220: x_khrv_rec.acct_rule_id := l_db_khrv_rec.acct_rule_id;
3221: END IF;
3222: IF (x_khrv_rec.payment_type = OKC_API.G_MISS_CHAR)
3218: IF (x_khrv_rec.acct_rule_id = OKC_API.G_MISS_NUM)
3219: THEN
3220: x_khrv_rec.acct_rule_id := l_db_khrv_rec.acct_rule_id;
3221: END IF;
3222: IF (x_khrv_rec.payment_type = OKC_API.G_MISS_CHAR)
3223: THEN
3224: x_khrv_rec.payment_type := l_db_khrv_rec.payment_type;
3225: END IF;
3226: IF (x_khrv_rec.cc_no = OKC_API.G_MISS_CHAR)
3222: IF (x_khrv_rec.payment_type = OKC_API.G_MISS_CHAR)
3223: THEN
3224: x_khrv_rec.payment_type := l_db_khrv_rec.payment_type;
3225: END IF;
3226: IF (x_khrv_rec.cc_no = OKC_API.G_MISS_CHAR)
3227: THEN
3228: x_khrv_rec.cc_no := l_db_khrv_rec.cc_no;
3229: END IF;
3230: IF (x_khrv_rec.cc_expiry_date = OKC_API.G_MISS_DATE)
3226: IF (x_khrv_rec.cc_no = OKC_API.G_MISS_CHAR)
3227: THEN
3228: x_khrv_rec.cc_no := l_db_khrv_rec.cc_no;
3229: END IF;
3230: IF (x_khrv_rec.cc_expiry_date = OKC_API.G_MISS_DATE)
3231: THEN
3232: x_khrv_rec.cc_expiry_date := l_db_khrv_rec.cc_expiry_date;
3233: END IF;
3234: IF (x_khrv_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM)
3230: IF (x_khrv_rec.cc_expiry_date = OKC_API.G_MISS_DATE)
3231: THEN
3232: x_khrv_rec.cc_expiry_date := l_db_khrv_rec.cc_expiry_date;
3233: END IF;
3234: IF (x_khrv_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM)
3235: THEN
3236: x_khrv_rec.cc_bank_acct_id := l_db_khrv_rec.cc_bank_acct_id;
3237: END IF;
3238: IF (x_khrv_rec.cc_auth_code = OKC_API.G_MISS_CHAR)
3234: IF (x_khrv_rec.cc_bank_acct_id = OKC_API.G_MISS_NUM)
3235: THEN
3236: x_khrv_rec.cc_bank_acct_id := l_db_khrv_rec.cc_bank_acct_id;
3237: END IF;
3238: IF (x_khrv_rec.cc_auth_code = OKC_API.G_MISS_CHAR)
3239: THEN
3240: x_khrv_rec.cc_auth_code := l_db_khrv_rec.cc_auth_code;
3241: END IF;
3242: IF (x_khrv_rec.commitment_id = OKC_API.G_MISS_NUM)
3238: IF (x_khrv_rec.cc_auth_code = OKC_API.G_MISS_CHAR)
3239: THEN
3240: x_khrv_rec.cc_auth_code := l_db_khrv_rec.cc_auth_code;
3241: END IF;
3242: IF (x_khrv_rec.commitment_id = OKC_API.G_MISS_NUM)
3243: THEN
3244: x_khrv_rec.commitment_id := l_db_khrv_rec.commitment_id;
3245: END IF;
3246: IF (x_khrv_rec.grace_duration = OKC_API.G_MISS_NUM)
3242: IF (x_khrv_rec.commitment_id = OKC_API.G_MISS_NUM)
3243: THEN
3244: x_khrv_rec.commitment_id := l_db_khrv_rec.commitment_id;
3245: END IF;
3246: IF (x_khrv_rec.grace_duration = OKC_API.G_MISS_NUM)
3247: THEN
3248: x_khrv_rec.grace_duration := l_db_khrv_rec.grace_duration;
3249: END IF;
3250: IF (x_khrv_rec.grace_period = OKC_API.G_MISS_CHAR)
3246: IF (x_khrv_rec.grace_duration = OKC_API.G_MISS_NUM)
3247: THEN
3248: x_khrv_rec.grace_duration := l_db_khrv_rec.grace_duration;
3249: END IF;
3250: IF (x_khrv_rec.grace_period = OKC_API.G_MISS_CHAR)
3251: THEN
3252: x_khrv_rec.grace_period := l_db_khrv_rec.grace_period;
3253: END IF;
3254: IF (x_khrv_rec.est_rev_percent = OKC_API.G_MISS_NUM)
3250: IF (x_khrv_rec.grace_period = OKC_API.G_MISS_CHAR)
3251: THEN
3252: x_khrv_rec.grace_period := l_db_khrv_rec.grace_period;
3253: END IF;
3254: IF (x_khrv_rec.est_rev_percent = OKC_API.G_MISS_NUM)
3255: THEN
3256: x_khrv_rec.est_rev_percent := l_db_khrv_rec.est_rev_percent;
3257: END IF;
3258: IF (x_khrv_rec.est_rev_date = OKC_API.G_MISS_DATE)
3254: IF (x_khrv_rec.est_rev_percent = OKC_API.G_MISS_NUM)
3255: THEN
3256: x_khrv_rec.est_rev_percent := l_db_khrv_rec.est_rev_percent;
3257: END IF;
3258: IF (x_khrv_rec.est_rev_date = OKC_API.G_MISS_DATE)
3259: THEN
3260: x_khrv_rec.est_rev_date := l_db_khrv_rec.est_rev_date;
3261: END IF;
3262: IF (x_khrv_rec.tax_amount = OKC_API.G_MISS_NUM)
3258: IF (x_khrv_rec.est_rev_date = OKC_API.G_MISS_DATE)
3259: THEN
3260: x_khrv_rec.est_rev_date := l_db_khrv_rec.est_rev_date;
3261: END IF;
3262: IF (x_khrv_rec.tax_amount = OKC_API.G_MISS_NUM)
3263: THEN
3264: x_khrv_rec.tax_amount := l_db_khrv_rec.tax_amount;
3265: END IF;
3266: IF (x_khrv_rec.tax_status = OKC_API.G_MISS_CHAR)
3262: IF (x_khrv_rec.tax_amount = OKC_API.G_MISS_NUM)
3263: THEN
3264: x_khrv_rec.tax_amount := l_db_khrv_rec.tax_amount;
3265: END IF;
3266: IF (x_khrv_rec.tax_status = OKC_API.G_MISS_CHAR)
3267: THEN
3268: x_khrv_rec.tax_status := l_db_khrv_rec.tax_status;
3269: END IF;
3270: IF (x_khrv_rec.tax_code = OKC_API.G_MISS_NUM)
3266: IF (x_khrv_rec.tax_status = OKC_API.G_MISS_CHAR)
3267: THEN
3268: x_khrv_rec.tax_status := l_db_khrv_rec.tax_status;
3269: END IF;
3270: IF (x_khrv_rec.tax_code = OKC_API.G_MISS_NUM)
3271: THEN
3272: x_khrv_rec.tax_code := l_db_khrv_rec.tax_code;
3273: END IF;
3274: IF (x_khrv_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
3270: IF (x_khrv_rec.tax_code = OKC_API.G_MISS_NUM)
3271: THEN
3272: x_khrv_rec.tax_code := l_db_khrv_rec.tax_code;
3273: END IF;
3274: IF (x_khrv_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
3275: THEN
3276: x_khrv_rec.tax_exemption_id := l_db_khrv_rec.tax_exemption_id;
3277: END IF;
3278: IF (x_khrv_rec.billing_profile_id = OKC_API.G_MISS_NUM)
3274: IF (x_khrv_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
3275: THEN
3276: x_khrv_rec.tax_exemption_id := l_db_khrv_rec.tax_exemption_id;
3277: END IF;
3278: IF (x_khrv_rec.billing_profile_id = OKC_API.G_MISS_NUM)
3279: THEN
3280: x_khrv_rec.billing_profile_id := l_db_khrv_rec.billing_profile_id;
3281: END IF;
3282: IF (x_khrv_rec.renewal_status = OKC_API.G_MISS_CHAR)
3278: IF (x_khrv_rec.billing_profile_id = OKC_API.G_MISS_NUM)
3279: THEN
3280: x_khrv_rec.billing_profile_id := l_db_khrv_rec.billing_profile_id;
3281: END IF;
3282: IF (x_khrv_rec.renewal_status = OKC_API.G_MISS_CHAR)
3283: THEN
3284: x_khrv_rec.renewal_status := l_db_khrv_rec.renewal_status;
3285: END IF;
3286: IF (x_khrv_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR)
3282: IF (x_khrv_rec.renewal_status = OKC_API.G_MISS_CHAR)
3283: THEN
3284: x_khrv_rec.renewal_status := l_db_khrv_rec.renewal_status;
3285: END IF;
3286: IF (x_khrv_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR)
3287: THEN
3288: x_khrv_rec.electronic_renewal_flag := l_db_khrv_rec.electronic_renewal_flag;
3289: END IF;
3290: IF (x_khrv_rec.quote_to_contact_id = OKC_API.G_MISS_NUM)
3286: IF (x_khrv_rec.electronic_renewal_flag = OKC_API.G_MISS_CHAR)
3287: THEN
3288: x_khrv_rec.electronic_renewal_flag := l_db_khrv_rec.electronic_renewal_flag;
3289: END IF;
3290: IF (x_khrv_rec.quote_to_contact_id = OKC_API.G_MISS_NUM)
3291: THEN
3292: x_khrv_rec.quote_to_contact_id := l_db_khrv_rec.quote_to_contact_id;
3293: END IF;
3294: IF (x_khrv_rec.quote_to_site_id = OKC_API.G_MISS_NUM)
3290: IF (x_khrv_rec.quote_to_contact_id = OKC_API.G_MISS_NUM)
3291: THEN
3292: x_khrv_rec.quote_to_contact_id := l_db_khrv_rec.quote_to_contact_id;
3293: END IF;
3294: IF (x_khrv_rec.quote_to_site_id = OKC_API.G_MISS_NUM)
3295: THEN
3296: x_khrv_rec.quote_to_site_id := l_db_khrv_rec.quote_to_site_id;
3297: END IF;
3298: IF (x_khrv_rec.quote_to_email_id = OKC_API.G_MISS_NUM)
3294: IF (x_khrv_rec.quote_to_site_id = OKC_API.G_MISS_NUM)
3295: THEN
3296: x_khrv_rec.quote_to_site_id := l_db_khrv_rec.quote_to_site_id;
3297: END IF;
3298: IF (x_khrv_rec.quote_to_email_id = OKC_API.G_MISS_NUM)
3299: THEN
3300: x_khrv_rec.quote_to_email_id := l_db_khrv_rec.quote_to_email_id;
3301: END IF;
3302: IF (x_khrv_rec.quote_to_phone_id = OKC_API.G_MISS_NUM)
3298: IF (x_khrv_rec.quote_to_email_id = OKC_API.G_MISS_NUM)
3299: THEN
3300: x_khrv_rec.quote_to_email_id := l_db_khrv_rec.quote_to_email_id;
3301: END IF;
3302: IF (x_khrv_rec.quote_to_phone_id = OKC_API.G_MISS_NUM)
3303: THEN
3304: x_khrv_rec.quote_to_phone_id := l_db_khrv_rec.quote_to_phone_id;
3305: END IF;
3306: IF (x_khrv_rec.quote_to_fax_id = OKC_API.G_MISS_NUM)
3302: IF (x_khrv_rec.quote_to_phone_id = OKC_API.G_MISS_NUM)
3303: THEN
3304: x_khrv_rec.quote_to_phone_id := l_db_khrv_rec.quote_to_phone_id;
3305: END IF;
3306: IF (x_khrv_rec.quote_to_fax_id = OKC_API.G_MISS_NUM)
3307: THEN
3308: x_khrv_rec.quote_to_fax_id := l_db_khrv_rec.quote_to_fax_id;
3309: END IF;
3310: IF (x_khrv_rec.renewal_po_required = OKC_API.G_MISS_CHAR)
3306: IF (x_khrv_rec.quote_to_fax_id = OKC_API.G_MISS_NUM)
3307: THEN
3308: x_khrv_rec.quote_to_fax_id := l_db_khrv_rec.quote_to_fax_id;
3309: END IF;
3310: IF (x_khrv_rec.renewal_po_required = OKC_API.G_MISS_CHAR)
3311: THEN
3312: x_khrv_rec.renewal_po_required := l_db_khrv_rec.renewal_po_required;
3313: END IF;
3314: IF (x_khrv_rec.renewal_po_number = OKC_API.G_MISS_CHAR)
3310: IF (x_khrv_rec.renewal_po_required = OKC_API.G_MISS_CHAR)
3311: THEN
3312: x_khrv_rec.renewal_po_required := l_db_khrv_rec.renewal_po_required;
3313: END IF;
3314: IF (x_khrv_rec.renewal_po_number = OKC_API.G_MISS_CHAR)
3315: THEN
3316: x_khrv_rec.renewal_po_number := l_db_khrv_rec.renewal_po_number;
3317: END IF;
3318: IF (x_khrv_rec.renewal_price_list = OKC_API.G_MISS_NUM)
3314: IF (x_khrv_rec.renewal_po_number = OKC_API.G_MISS_CHAR)
3315: THEN
3316: x_khrv_rec.renewal_po_number := l_db_khrv_rec.renewal_po_number;
3317: END IF;
3318: IF (x_khrv_rec.renewal_price_list = OKC_API.G_MISS_NUM)
3319: THEN
3320: x_khrv_rec.renewal_price_list := l_db_khrv_rec.renewal_price_list;
3321: END IF;
3322: IF (x_khrv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
3318: IF (x_khrv_rec.renewal_price_list = OKC_API.G_MISS_NUM)
3319: THEN
3320: x_khrv_rec.renewal_price_list := l_db_khrv_rec.renewal_price_list;
3321: END IF;
3322: IF (x_khrv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
3323: THEN
3324: x_khrv_rec.renewal_pricing_type := l_db_khrv_rec.renewal_pricing_type;
3325: END IF;
3326: IF (x_khrv_rec.renewal_markup_percent = OKC_API.G_MISS_NUM)
3322: IF (x_khrv_rec.renewal_pricing_type = OKC_API.G_MISS_CHAR)
3323: THEN
3324: x_khrv_rec.renewal_pricing_type := l_db_khrv_rec.renewal_pricing_type;
3325: END IF;
3326: IF (x_khrv_rec.renewal_markup_percent = OKC_API.G_MISS_NUM)
3327: THEN
3328: x_khrv_rec.renewal_markup_percent := l_db_khrv_rec.renewal_markup_percent;
3329: END IF;
3330: IF (x_khrv_rec.renewal_grace_duration = OKC_API.G_MISS_NUM)
3326: IF (x_khrv_rec.renewal_markup_percent = OKC_API.G_MISS_NUM)
3327: THEN
3328: x_khrv_rec.renewal_markup_percent := l_db_khrv_rec.renewal_markup_percent;
3329: END IF;
3330: IF (x_khrv_rec.renewal_grace_duration = OKC_API.G_MISS_NUM)
3331: THEN
3332: x_khrv_rec.renewal_grace_duration := l_db_khrv_rec.renewal_grace_duration;
3333: END IF;
3334: IF (x_khrv_rec.renewal_grace_period = OKC_API.G_MISS_CHAR)
3330: IF (x_khrv_rec.renewal_grace_duration = OKC_API.G_MISS_NUM)
3331: THEN
3332: x_khrv_rec.renewal_grace_duration := l_db_khrv_rec.renewal_grace_duration;
3333: END IF;
3334: IF (x_khrv_rec.renewal_grace_period = OKC_API.G_MISS_CHAR)
3335: THEN
3336: x_khrv_rec.renewal_grace_period := l_db_khrv_rec.renewal_grace_period;
3337: END IF;
3338: IF (x_khrv_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM)
3334: IF (x_khrv_rec.renewal_grace_period = OKC_API.G_MISS_CHAR)
3335: THEN
3336: x_khrv_rec.renewal_grace_period := l_db_khrv_rec.renewal_grace_period;
3337: END IF;
3338: IF (x_khrv_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM)
3339: THEN
3340: x_khrv_rec.renewal_est_rev_percent := l_db_khrv_rec.renewal_est_rev_percent;
3341: END IF;
3342: IF (x_khrv_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM)
3338: IF (x_khrv_rec.renewal_est_rev_percent = OKC_API.G_MISS_NUM)
3339: THEN
3340: x_khrv_rec.renewal_est_rev_percent := l_db_khrv_rec.renewal_est_rev_percent;
3341: END IF;
3342: IF (x_khrv_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM)
3343: THEN
3344: x_khrv_rec.renewal_est_rev_duration := l_db_khrv_rec.renewal_est_rev_duration;
3345: END IF;
3346: IF (x_khrv_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR)
3342: IF (x_khrv_rec.renewal_est_rev_duration = OKC_API.G_MISS_NUM)
3343: THEN
3344: x_khrv_rec.renewal_est_rev_duration := l_db_khrv_rec.renewal_est_rev_duration;
3345: END IF;
3346: IF (x_khrv_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR)
3347: THEN
3348: x_khrv_rec.renewal_est_rev_period := l_db_khrv_rec.renewal_est_rev_period;
3349: END IF;
3350: IF (x_khrv_rec.renewal_price_list_used = OKC_API.G_MISS_NUM)
3346: IF (x_khrv_rec.renewal_est_rev_period = OKC_API.G_MISS_CHAR)
3347: THEN
3348: x_khrv_rec.renewal_est_rev_period := l_db_khrv_rec.renewal_est_rev_period;
3349: END IF;
3350: IF (x_khrv_rec.renewal_price_list_used = OKC_API.G_MISS_NUM)
3351: THEN
3352: x_khrv_rec.renewal_price_list_used := l_db_khrv_rec.renewal_price_list_used;
3353: END IF;
3354: IF (x_khrv_rec.renewal_type_used = OKC_API.G_MISS_CHAR)
3350: IF (x_khrv_rec.renewal_price_list_used = OKC_API.G_MISS_NUM)
3351: THEN
3352: x_khrv_rec.renewal_price_list_used := l_db_khrv_rec.renewal_price_list_used;
3353: END IF;
3354: IF (x_khrv_rec.renewal_type_used = OKC_API.G_MISS_CHAR)
3355: THEN
3356: x_khrv_rec.renewal_type_used := l_db_khrv_rec.renewal_type_used;
3357: END IF;
3358: IF (x_khrv_rec.renewal_notification_to = OKC_API.G_MISS_NUM)
3354: IF (x_khrv_rec.renewal_type_used = OKC_API.G_MISS_CHAR)
3355: THEN
3356: x_khrv_rec.renewal_type_used := l_db_khrv_rec.renewal_type_used;
3357: END IF;
3358: IF (x_khrv_rec.renewal_notification_to = OKC_API.G_MISS_NUM)
3359: THEN
3360: x_khrv_rec.renewal_notification_to := l_db_khrv_rec.renewal_notification_to;
3361: END IF;
3362: IF (x_khrv_rec.renewal_po_used = OKC_API.G_MISS_CHAR)
3358: IF (x_khrv_rec.renewal_notification_to = OKC_API.G_MISS_NUM)
3359: THEN
3360: x_khrv_rec.renewal_notification_to := l_db_khrv_rec.renewal_notification_to;
3361: END IF;
3362: IF (x_khrv_rec.renewal_po_used = OKC_API.G_MISS_CHAR)
3363: THEN
3364: x_khrv_rec.renewal_po_used := l_db_khrv_rec.renewal_po_used;
3365: END IF;
3366: IF (x_khrv_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR)
3362: IF (x_khrv_rec.renewal_po_used = OKC_API.G_MISS_CHAR)
3363: THEN
3364: x_khrv_rec.renewal_po_used := l_db_khrv_rec.renewal_po_used;
3365: END IF;
3366: IF (x_khrv_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR)
3367: THEN
3368: x_khrv_rec.renewal_pricing_type_used := l_db_khrv_rec.renewal_pricing_type_used;
3369: END IF;
3370: IF (x_khrv_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM)
3366: IF (x_khrv_rec.renewal_pricing_type_used = OKC_API.G_MISS_CHAR)
3367: THEN
3368: x_khrv_rec.renewal_pricing_type_used := l_db_khrv_rec.renewal_pricing_type_used;
3369: END IF;
3370: IF (x_khrv_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM)
3371: THEN
3372: x_khrv_rec.renewal_markup_percent_used := l_db_khrv_rec.renewal_markup_percent_used;
3373: END IF;
3374: IF (x_khrv_rec.rev_est_percent_used = OKC_API.G_MISS_NUM)
3370: IF (x_khrv_rec.renewal_markup_percent_used = OKC_API.G_MISS_NUM)
3371: THEN
3372: x_khrv_rec.renewal_markup_percent_used := l_db_khrv_rec.renewal_markup_percent_used;
3373: END IF;
3374: IF (x_khrv_rec.rev_est_percent_used = OKC_API.G_MISS_NUM)
3375: THEN
3376: x_khrv_rec.rev_est_percent_used := l_db_khrv_rec.rev_est_percent_used;
3377: END IF;
3378: IF (x_khrv_rec.rev_est_duration_used = OKC_API.G_MISS_NUM)
3374: IF (x_khrv_rec.rev_est_percent_used = OKC_API.G_MISS_NUM)
3375: THEN
3376: x_khrv_rec.rev_est_percent_used := l_db_khrv_rec.rev_est_percent_used;
3377: END IF;
3378: IF (x_khrv_rec.rev_est_duration_used = OKC_API.G_MISS_NUM)
3379: THEN
3380: x_khrv_rec.rev_est_duration_used := l_db_khrv_rec.rev_est_duration_used;
3381: END IF;
3382: IF (x_khrv_rec.rev_est_period_used = OKC_API.G_MISS_CHAR)
3378: IF (x_khrv_rec.rev_est_duration_used = OKC_API.G_MISS_NUM)
3379: THEN
3380: x_khrv_rec.rev_est_duration_used := l_db_khrv_rec.rev_est_duration_used;
3381: END IF;
3382: IF (x_khrv_rec.rev_est_period_used = OKC_API.G_MISS_CHAR)
3383: THEN
3384: x_khrv_rec.rev_est_period_used := l_db_khrv_rec.rev_est_period_used;
3385: END IF;
3386: IF (x_khrv_rec.billing_profile_used = OKC_API.G_MISS_NUM)
3382: IF (x_khrv_rec.rev_est_period_used = OKC_API.G_MISS_CHAR)
3383: THEN
3384: x_khrv_rec.rev_est_period_used := l_db_khrv_rec.rev_est_period_used;
3385: END IF;
3386: IF (x_khrv_rec.billing_profile_used = OKC_API.G_MISS_NUM)
3387: THEN
3388: x_khrv_rec.billing_profile_used := l_db_khrv_rec.billing_profile_used;
3389: END IF;
3390: IF (x_khrv_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR)
3386: IF (x_khrv_rec.billing_profile_used = OKC_API.G_MISS_NUM)
3387: THEN
3388: x_khrv_rec.billing_profile_used := l_db_khrv_rec.billing_profile_used;
3389: END IF;
3390: IF (x_khrv_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR)
3391: THEN
3392: x_khrv_rec.ern_flag_used_yn := l_db_khrv_rec.ern_flag_used_yn;
3393: END IF;
3394: IF (x_khrv_rec.evn_threshold_amt = OKC_API.G_MISS_NUM)
3390: IF (x_khrv_rec.ern_flag_used_yn = OKC_API.G_MISS_CHAR)
3391: THEN
3392: x_khrv_rec.ern_flag_used_yn := l_db_khrv_rec.ern_flag_used_yn;
3393: END IF;
3394: IF (x_khrv_rec.evn_threshold_amt = OKC_API.G_MISS_NUM)
3395: THEN
3396: x_khrv_rec.evn_threshold_amt := l_db_khrv_rec.evn_threshold_amt;
3397: END IF;
3398: IF (x_khrv_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR)
3394: IF (x_khrv_rec.evn_threshold_amt = OKC_API.G_MISS_NUM)
3395: THEN
3396: x_khrv_rec.evn_threshold_amt := l_db_khrv_rec.evn_threshold_amt;
3397: END IF;
3398: IF (x_khrv_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR)
3399: THEN
3400: x_khrv_rec.evn_threshold_cur := l_db_khrv_rec.evn_threshold_cur;
3401: END IF;
3402: IF (x_khrv_rec.ern_threshold_amt = OKC_API.G_MISS_NUM)
3398: IF (x_khrv_rec.evn_threshold_cur = OKC_API.G_MISS_CHAR)
3399: THEN
3400: x_khrv_rec.evn_threshold_cur := l_db_khrv_rec.evn_threshold_cur;
3401: END IF;
3402: IF (x_khrv_rec.ern_threshold_amt = OKC_API.G_MISS_NUM)
3403: THEN
3404: x_khrv_rec.ern_threshold_amt := l_db_khrv_rec.ern_threshold_amt;
3405: END IF;
3406: IF (x_khrv_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR)
3402: IF (x_khrv_rec.ern_threshold_amt = OKC_API.G_MISS_NUM)
3403: THEN
3404: x_khrv_rec.ern_threshold_amt := l_db_khrv_rec.ern_threshold_amt;
3405: END IF;
3406: IF (x_khrv_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR)
3407: THEN
3408: x_khrv_rec.ern_threshold_cur := l_db_khrv_rec.ern_threshold_cur;
3409: END IF;
3410: IF (x_khrv_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM)
3406: IF (x_khrv_rec.ern_threshold_cur = OKC_API.G_MISS_CHAR)
3407: THEN
3408: x_khrv_rec.ern_threshold_cur := l_db_khrv_rec.ern_threshold_cur;
3409: END IF;
3410: IF (x_khrv_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM)
3411: THEN
3412: x_khrv_rec.renewal_grace_duration_used := l_db_khrv_rec.renewal_grace_duration_used;
3413: END IF;
3414: IF (x_khrv_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR)
3410: IF (x_khrv_rec.renewal_grace_duration_used = OKC_API.G_MISS_NUM)
3411: THEN
3412: x_khrv_rec.renewal_grace_duration_used := l_db_khrv_rec.renewal_grace_duration_used;
3413: END IF;
3414: IF (x_khrv_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR)
3415: THEN
3416: x_khrv_rec.renewal_grace_period_used := l_db_khrv_rec.renewal_grace_period_used;
3417: END IF;
3418: IF (x_khrv_rec.inv_trx_type = OKC_API.G_MISS_CHAR)
3414: IF (x_khrv_rec.renewal_grace_period_used = OKC_API.G_MISS_CHAR)
3415: THEN
3416: x_khrv_rec.renewal_grace_period_used := l_db_khrv_rec.renewal_grace_period_used;
3417: END IF;
3418: IF (x_khrv_rec.inv_trx_type = OKC_API.G_MISS_CHAR)
3419: THEN
3420: x_khrv_rec.inv_trx_type := l_db_khrv_rec.inv_trx_type;
3421: END IF;
3422: IF (x_khrv_rec.inv_print_profile = OKC_API.G_MISS_CHAR)
3418: IF (x_khrv_rec.inv_trx_type = OKC_API.G_MISS_CHAR)
3419: THEN
3420: x_khrv_rec.inv_trx_type := l_db_khrv_rec.inv_trx_type;
3421: END IF;
3422: IF (x_khrv_rec.inv_print_profile = OKC_API.G_MISS_CHAR)
3423: THEN
3424: x_khrv_rec.inv_print_profile := l_db_khrv_rec.inv_print_profile;
3425: END IF;
3426: IF (x_khrv_rec.ar_interface_yn = OKC_API.G_MISS_CHAR)
3422: IF (x_khrv_rec.inv_print_profile = OKC_API.G_MISS_CHAR)
3423: THEN
3424: x_khrv_rec.inv_print_profile := l_db_khrv_rec.inv_print_profile;
3425: END IF;
3426: IF (x_khrv_rec.ar_interface_yn = OKC_API.G_MISS_CHAR)
3427: THEN
3428: x_khrv_rec.ar_interface_yn := l_db_khrv_rec.ar_interface_yn;
3429: END IF;
3430: IF (x_khrv_rec.hold_billing = OKC_API.G_MISS_CHAR)
3426: IF (x_khrv_rec.ar_interface_yn = OKC_API.G_MISS_CHAR)
3427: THEN
3428: x_khrv_rec.ar_interface_yn := l_db_khrv_rec.ar_interface_yn;
3429: END IF;
3430: IF (x_khrv_rec.hold_billing = OKC_API.G_MISS_CHAR)
3431: THEN
3432: x_khrv_rec.hold_billing := l_db_khrv_rec.hold_billing;
3433: END IF;
3434: IF (x_khrv_rec.summary_trx_yn = OKC_API.G_MISS_CHAR)
3430: IF (x_khrv_rec.hold_billing = OKC_API.G_MISS_CHAR)
3431: THEN
3432: x_khrv_rec.hold_billing := l_db_khrv_rec.hold_billing;
3433: END IF;
3434: IF (x_khrv_rec.summary_trx_yn = OKC_API.G_MISS_CHAR)
3435: THEN
3436: x_khrv_rec.summary_trx_yn := l_db_khrv_rec.summary_trx_yn;
3437: END IF;
3438: IF (x_khrv_rec.service_po_number = OKC_API.G_MISS_CHAR)
3434: IF (x_khrv_rec.summary_trx_yn = OKC_API.G_MISS_CHAR)
3435: THEN
3436: x_khrv_rec.summary_trx_yn := l_db_khrv_rec.summary_trx_yn;
3437: END IF;
3438: IF (x_khrv_rec.service_po_number = OKC_API.G_MISS_CHAR)
3439: THEN
3440: x_khrv_rec.service_po_number := l_db_khrv_rec.service_po_number;
3441: END IF;
3442: IF (x_khrv_rec.service_po_required = OKC_API.G_MISS_CHAR)
3438: IF (x_khrv_rec.service_po_number = OKC_API.G_MISS_CHAR)
3439: THEN
3440: x_khrv_rec.service_po_number := l_db_khrv_rec.service_po_number;
3441: END IF;
3442: IF (x_khrv_rec.service_po_required = OKC_API.G_MISS_CHAR)
3443: THEN
3444: x_khrv_rec.service_po_required := l_db_khrv_rec.service_po_required;
3445: END IF;
3446: IF (x_khrv_rec.billing_schedule_type = OKC_API.G_MISS_CHAR)
3442: IF (x_khrv_rec.service_po_required = OKC_API.G_MISS_CHAR)
3443: THEN
3444: x_khrv_rec.service_po_required := l_db_khrv_rec.service_po_required;
3445: END IF;
3446: IF (x_khrv_rec.billing_schedule_type = OKC_API.G_MISS_CHAR)
3447: THEN
3448: x_khrv_rec.billing_schedule_type := l_db_khrv_rec.billing_schedule_type;
3449: END IF;
3450: IF (x_khrv_rec.security_group_id = OKC_API.G_MISS_NUM)
3446: IF (x_khrv_rec.billing_schedule_type = OKC_API.G_MISS_CHAR)
3447: THEN
3448: x_khrv_rec.billing_schedule_type := l_db_khrv_rec.billing_schedule_type;
3449: END IF;
3450: IF (x_khrv_rec.security_group_id = OKC_API.G_MISS_NUM)
3451: THEN
3452: x_khrv_rec.security_group_id := l_db_khrv_rec.security_group_id;
3453: END IF;
3454: IF (x_khrv_rec.request_id = OKC_API.G_MISS_NUM)
3450: IF (x_khrv_rec.security_group_id = OKC_API.G_MISS_NUM)
3451: THEN
3452: x_khrv_rec.security_group_id := l_db_khrv_rec.security_group_id;
3453: END IF;
3454: IF (x_khrv_rec.request_id = OKC_API.G_MISS_NUM)
3455: THEN
3456: x_khrv_rec.request_id := l_db_khrv_rec.request_id;
3457: END IF;
3458: IF (x_khrv_rec.created_by = OKC_API.G_MISS_NUM)
3454: IF (x_khrv_rec.request_id = OKC_API.G_MISS_NUM)
3455: THEN
3456: x_khrv_rec.request_id := l_db_khrv_rec.request_id;
3457: END IF;
3458: IF (x_khrv_rec.created_by = OKC_API.G_MISS_NUM)
3459: THEN
3460: x_khrv_rec.created_by := l_db_khrv_rec.created_by;
3461: END IF;
3462: IF (x_khrv_rec.creation_date = OKC_API.G_MISS_DATE)
3458: IF (x_khrv_rec.created_by = OKC_API.G_MISS_NUM)
3459: THEN
3460: x_khrv_rec.created_by := l_db_khrv_rec.created_by;
3461: END IF;
3462: IF (x_khrv_rec.creation_date = OKC_API.G_MISS_DATE)
3463: THEN
3464: x_khrv_rec.creation_date := l_db_khrv_rec.creation_date;
3465: END IF;
3466: IF (x_khrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3462: IF (x_khrv_rec.creation_date = OKC_API.G_MISS_DATE)
3463: THEN
3464: x_khrv_rec.creation_date := l_db_khrv_rec.creation_date;
3465: END IF;
3466: IF (x_khrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3467: THEN
3468: x_khrv_rec.last_updated_by := l_db_khrv_rec.last_updated_by;
3469: END IF;
3470: IF (x_khrv_rec.last_update_date = OKC_API.G_MISS_DATE)
3466: IF (x_khrv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3467: THEN
3468: x_khrv_rec.last_updated_by := l_db_khrv_rec.last_updated_by;
3469: END IF;
3470: IF (x_khrv_rec.last_update_date = OKC_API.G_MISS_DATE)
3471: THEN
3472: x_khrv_rec.last_update_date := l_db_khrv_rec.last_update_date;
3473: END IF;
3474: IF (x_khrv_rec.last_update_login = OKC_API.G_MISS_NUM)
3470: IF (x_khrv_rec.last_update_date = OKC_API.G_MISS_DATE)
3471: THEN
3472: x_khrv_rec.last_update_date := l_db_khrv_rec.last_update_date;
3473: END IF;
3474: IF (x_khrv_rec.last_update_login = OKC_API.G_MISS_NUM)
3475: THEN
3476: x_khrv_rec.last_update_login := l_db_khrv_rec.last_update_login;
3477: END IF;
3478: IF (x_khrv_rec.period_type = OKC_API.G_MISS_CHAR)
3474: IF (x_khrv_rec.last_update_login = OKC_API.G_MISS_NUM)
3475: THEN
3476: x_khrv_rec.last_update_login := l_db_khrv_rec.last_update_login;
3477: END IF;
3478: IF (x_khrv_rec.period_type = OKC_API.G_MISS_CHAR)
3479: THEN
3480: x_khrv_rec.period_type := l_db_khrv_rec.period_type;
3481: END IF;
3482: IF (x_khrv_rec.period_start = OKC_API.G_MISS_CHAR)
3478: IF (x_khrv_rec.period_type = OKC_API.G_MISS_CHAR)
3479: THEN
3480: x_khrv_rec.period_type := l_db_khrv_rec.period_type;
3481: END IF;
3482: IF (x_khrv_rec.period_start = OKC_API.G_MISS_CHAR)
3483: THEN
3484: x_khrv_rec.period_start := l_db_khrv_rec.period_start;
3485: END IF;
3486: IF (x_khrv_rec.price_uom = OKC_API.G_MISS_CHAR)
3482: IF (x_khrv_rec.period_start = OKC_API.G_MISS_CHAR)
3483: THEN
3484: x_khrv_rec.period_start := l_db_khrv_rec.period_start;
3485: END IF;
3486: IF (x_khrv_rec.price_uom = OKC_API.G_MISS_CHAR)
3487: THEN
3488: x_khrv_rec.price_uom := l_db_khrv_rec.price_uom;
3489: END IF;
3490: IF (x_khrv_rec.follow_up_action = OKC_API.G_MISS_CHAR)
3486: IF (x_khrv_rec.price_uom = OKC_API.G_MISS_CHAR)
3487: THEN
3488: x_khrv_rec.price_uom := l_db_khrv_rec.price_uom;
3489: END IF;
3490: IF (x_khrv_rec.follow_up_action = OKC_API.G_MISS_CHAR)
3491: THEN
3492: x_khrv_rec.follow_up_action := l_db_khrv_rec.follow_up_action;
3493: END IF;
3494: IF (x_khrv_rec.follow_up_date = OKC_API.G_MISS_DATE)
3490: IF (x_khrv_rec.follow_up_action = OKC_API.G_MISS_CHAR)
3491: THEN
3492: x_khrv_rec.follow_up_action := l_db_khrv_rec.follow_up_action;
3493: END IF;
3494: IF (x_khrv_rec.follow_up_date = OKC_API.G_MISS_DATE)
3495: THEN
3496: x_khrv_rec.follow_up_date := l_db_khrv_rec.follow_up_date;
3497: END IF;
3498: IF (x_khrv_rec.trxn_extension_id = OKC_API.G_MISS_NUM)
3494: IF (x_khrv_rec.follow_up_date = OKC_API.G_MISS_DATE)
3495: THEN
3496: x_khrv_rec.follow_up_date := l_db_khrv_rec.follow_up_date;
3497: END IF;
3498: IF (x_khrv_rec.trxn_extension_id = OKC_API.G_MISS_NUM)
3499: THEN
3500: x_khrv_rec.trxn_extension_id := l_db_khrv_rec.trxn_extension_id;
3501: END IF;
3502: IF (x_khrv_rec.date_accepted = OKC_API.G_MISS_DATE)
3498: IF (x_khrv_rec.trxn_extension_id = OKC_API.G_MISS_NUM)
3499: THEN
3500: x_khrv_rec.trxn_extension_id := l_db_khrv_rec.trxn_extension_id;
3501: END IF;
3502: IF (x_khrv_rec.date_accepted = OKC_API.G_MISS_DATE)
3503: THEN
3504: x_khrv_rec.date_accepted := l_db_khrv_rec.date_accepted;
3505: END IF;
3506: IF (x_khrv_rec.accepted_by = OKC_API.G_MISS_NUM)
3502: IF (x_khrv_rec.date_accepted = OKC_API.G_MISS_DATE)
3503: THEN
3504: x_khrv_rec.date_accepted := l_db_khrv_rec.date_accepted;
3505: END IF;
3506: IF (x_khrv_rec.accepted_by = OKC_API.G_MISS_NUM)
3507: THEN
3508: x_khrv_rec.accepted_by := l_db_khrv_rec.accepted_by;
3509: END IF;
3510: IF (x_khrv_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR)
3506: IF (x_khrv_rec.accepted_by = OKC_API.G_MISS_NUM)
3507: THEN
3508: x_khrv_rec.accepted_by := l_db_khrv_rec.accepted_by;
3509: END IF;
3510: IF (x_khrv_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR)
3511: THEN
3512: x_khrv_rec.rmndr_suppress_flag := l_db_khrv_rec.rmndr_suppress_flag;
3513: END IF;
3514: IF (x_khrv_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR)
3510: IF (x_khrv_rec.rmndr_suppress_flag = OKC_API.G_MISS_CHAR)
3511: THEN
3512: x_khrv_rec.rmndr_suppress_flag := l_db_khrv_rec.rmndr_suppress_flag;
3513: END IF;
3514: IF (x_khrv_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR)
3515: THEN
3516: x_khrv_rec.rmndr_sent_flag := l_db_khrv_rec.rmndr_sent_flag;
3517: END IF;
3518: IF (x_khrv_rec.quote_sent_flag = OKC_API.G_MISS_CHAR)
3514: IF (x_khrv_rec.rmndr_sent_flag = OKC_API.G_MISS_CHAR)
3515: THEN
3516: x_khrv_rec.rmndr_sent_flag := l_db_khrv_rec.rmndr_sent_flag;
3517: END IF;
3518: IF (x_khrv_rec.quote_sent_flag = OKC_API.G_MISS_CHAR)
3519: THEN
3520: x_khrv_rec.quote_sent_flag := l_db_khrv_rec.quote_sent_flag;
3521: END IF;
3522: IF (x_khrv_rec.process_request_id = OKC_API.G_MISS_NUM)
3518: IF (x_khrv_rec.quote_sent_flag = OKC_API.G_MISS_CHAR)
3519: THEN
3520: x_khrv_rec.quote_sent_flag := l_db_khrv_rec.quote_sent_flag;
3521: END IF;
3522: IF (x_khrv_rec.process_request_id = OKC_API.G_MISS_NUM)
3523: THEN
3524: x_khrv_rec.process_request_id := l_db_khrv_rec.process_request_id;
3525: END IF;
3526: IF (x_khrv_rec.wf_item_key = OKC_API.G_MISS_CHAR)
3522: IF (x_khrv_rec.process_request_id = OKC_API.G_MISS_NUM)
3523: THEN
3524: x_khrv_rec.process_request_id := l_db_khrv_rec.process_request_id;
3525: END IF;
3526: IF (x_khrv_rec.wf_item_key = OKC_API.G_MISS_CHAR)
3527: THEN
3528: x_khrv_rec.wf_item_key := l_db_khrv_rec.wf_item_key;
3529: END IF;
3530: IF (x_khrv_rec.person_party_id = OKC_API.G_MISS_NUM)
3526: IF (x_khrv_rec.wf_item_key = OKC_API.G_MISS_CHAR)
3527: THEN
3528: x_khrv_rec.wf_item_key := l_db_khrv_rec.wf_item_key;
3529: END IF;
3530: IF (x_khrv_rec.person_party_id = OKC_API.G_MISS_NUM)
3531: THEN
3532: x_khrv_rec.person_party_id := l_db_khrv_rec.person_party_id;
3533: END IF;
3534: IF (x_khrv_rec.tax_classification_code = OKC_API.G_MISS_CHAR)
3530: IF (x_khrv_rec.person_party_id = OKC_API.G_MISS_NUM)
3531: THEN
3532: x_khrv_rec.person_party_id := l_db_khrv_rec.person_party_id;
3533: END IF;
3534: IF (x_khrv_rec.tax_classification_code = OKC_API.G_MISS_CHAR)
3535: THEN
3536: x_khrv_rec.tax_classification_code := l_db_khrv_rec.tax_classification_code;
3537: END IF;
3538: IF (x_khrv_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR)
3534: IF (x_khrv_rec.tax_classification_code = OKC_API.G_MISS_CHAR)
3535: THEN
3536: x_khrv_rec.tax_classification_code := l_db_khrv_rec.tax_classification_code;
3537: END IF;
3538: IF (x_khrv_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR)
3539: THEN
3540: x_khrv_rec.exempt_certificate_number := l_db_khrv_rec.exempt_certificate_number;
3541: END IF;
3542: IF (x_khrv_rec.exempt_reason_code = OKC_API.G_MISS_CHAR)
3538: IF (x_khrv_rec.exempt_certificate_number = OKC_API.G_MISS_CHAR)
3539: THEN
3540: x_khrv_rec.exempt_certificate_number := l_db_khrv_rec.exempt_certificate_number;
3541: END IF;
3542: IF (x_khrv_rec.exempt_reason_code = OKC_API.G_MISS_CHAR)
3543: THEN
3544: x_khrv_rec.exempt_reason_code := l_db_khrv_rec.exempt_reason_code;
3545: END IF;
3546: IF (x_khrv_rec.approval_type_used = OKC_API.G_MISS_CHAR)
3542: IF (x_khrv_rec.exempt_reason_code = OKC_API.G_MISS_CHAR)
3543: THEN
3544: x_khrv_rec.exempt_reason_code := l_db_khrv_rec.exempt_reason_code;
3545: END IF;
3546: IF (x_khrv_rec.approval_type_used = OKC_API.G_MISS_CHAR)
3547: THEN
3548: x_khrv_rec.approval_type_used := l_db_khrv_rec.approval_type_used;
3549: END IF;
3550: IF (x_khrv_rec. renewal_comment = OKC_API.G_MISS_CHAR)
3546: IF (x_khrv_rec.approval_type_used = OKC_API.G_MISS_CHAR)
3547: THEN
3548: x_khrv_rec.approval_type_used := l_db_khrv_rec.approval_type_used;
3549: END IF;
3550: IF (x_khrv_rec. renewal_comment = OKC_API.G_MISS_CHAR)
3551: THEN
3552: x_khrv_rec.renewal_comment := l_db_khrv_rec.renewal_comment;
3553: END IF;
3554: /*Added for ER 13869562 */
3551: THEN
3552: x_khrv_rec.renewal_comment := l_db_khrv_rec.renewal_comment;
3553: END IF;
3554: /*Added for ER 13869562 */
3555: IF (x_khrv_rec. cc_email_address = OKC_API.G_MISS_CHAR)
3556: THEN
3557: x_khrv_rec.cc_email_address := l_db_khrv_rec.cc_email_address;
3558: END IF;
3559: /*Added for ER 13869562 */
3566: FUNCTION Set_Attributes (
3567: p_khrv_rec IN khrv_rec_type,
3568: x_khrv_rec OUT NOCOPY khrv_rec_type
3569: ) RETURN VARCHAR2 IS
3570: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3571: BEGIN
3572: x_khrv_rec := p_khrv_rec;
3573: RETURN(l_return_status);
3574: END Set_Attributes;
3572: x_khrv_rec := p_khrv_rec;
3573: RETURN(l_return_status);
3574: END Set_Attributes;
3575: BEGIN
3576: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3577: G_PKG_NAME,
3578: p_init_msg_list,
3579: l_api_version,
3580: p_api_version,
3579: l_api_version,
3580: p_api_version,
3581: '_PVT',
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3580: p_api_version,
3581: '_PVT',
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: --- Setting item attributes
3581: '_PVT',
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: --- Setting item attributes
3589: l_return_status := Set_Attributes(
3582: x_return_status);
3583: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3584: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3585: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: --- Setting item attributes
3589: l_return_status := Set_Attributes(
3590: p_khrv_rec, -- IN
3589: l_return_status := Set_Attributes(
3590: p_khrv_rec, -- IN
3591: x_khrv_rec); -- OUT
3592: --- If any errors happen abort API
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3590: p_khrv_rec, -- IN
3591: x_khrv_rec); -- OUT
3592: --- If any errors happen abort API
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
3591: x_khrv_rec); -- OUT
3592: --- If any errors happen abort API
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3592: --- If any errors happen abort API
3593: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3594: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3595: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3596: RAISE OKC_API.G_EXCEPTION_ERROR;
3597: END IF;
3598: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
3597: END IF;
3598: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
3605: --- Validate all non-missing attributes (Item Level Validation)
3598: l_return_status := populate_new_record(l_khrv_rec, l_def_khrv_rec);
3599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3602: RAISE OKC_API.G_EXCEPTION_ERROR;
3603: END IF;
3604: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
3605: --- Validate all non-missing attributes (Item Level Validation)
3606: l_return_status := Validate_Attributes(l_def_khrv_rec);
3604: l_def_khrv_rec := fill_who_columns(l_def_khrv_rec);
3605: --- Validate all non-missing attributes (Item Level Validation)
3606: l_return_status := Validate_Attributes(l_def_khrv_rec);
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3605: --- Validate all non-missing attributes (Item Level Validation)
3606: l_return_status := Validate_Attributes(l_def_khrv_rec);
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_return_status := Validate_Record(l_def_khrv_rec, l_db_khrv_rec);
3606: l_return_status := Validate_Attributes(l_def_khrv_rec);
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_return_status := Validate_Record(l_def_khrv_rec, l_db_khrv_rec);
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3607: --- If any errors happen abort API
3608: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_return_status := Validate_Record(l_def_khrv_rec, l_db_khrv_rec);
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_return_status := Validate_Record(l_def_khrv_rec, l_db_khrv_rec);
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3611: RAISE OKC_API.G_EXCEPTION_ERROR;
3612: END IF;
3613: l_return_status := Validate_Record(l_def_khrv_rec, l_db_khrv_rec);
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619:
3612: END IF;
3613: l_return_status := Validate_Record(l_def_khrv_rec, l_db_khrv_rec);
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619:
3620: -- Lock the Record
3613: l_return_status := Validate_Record(l_def_khrv_rec, l_db_khrv_rec);
3614: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3617: RAISE OKC_API.G_EXCEPTION_ERROR;
3618: END IF;
3619:
3620: -- Lock the Record
3621: lock_row(
3624: x_return_status => l_return_status,
3625: x_msg_count => x_msg_count,
3626: x_msg_data => x_msg_data,
3627: p_khrv_rec => p_khrv_rec);
3628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3625: x_msg_count => x_msg_count,
3626: x_msg_data => x_msg_data,
3627: p_khrv_rec => p_khrv_rec);
3628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3626: x_msg_data => x_msg_data,
3627: p_khrv_rec => p_khrv_rec);
3628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: -----------------------------------------
3627: p_khrv_rec => p_khrv_rec);
3628: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: -----------------------------------------
3635: -- Move VIEW record to "Child" records --
3645: x_msg_data,
3646: l_khr_rec,
3647: lx_khr_rec
3648: );
3649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3652: RAISE OKC_API.G_EXCEPTION_ERROR;
3653: END IF;
3646: l_khr_rec,
3647: lx_khr_rec
3648: );
3649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3652: RAISE OKC_API.G_EXCEPTION_ERROR;
3653: END IF;
3654: migrate(lx_khr_rec, l_def_khrv_rec);
3647: lx_khr_rec
3648: );
3649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3652: RAISE OKC_API.G_EXCEPTION_ERROR;
3653: END IF;
3654: migrate(lx_khr_rec, l_def_khrv_rec);
3655: x_khrv_rec := l_def_khrv_rec;
3648: );
3649: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3652: RAISE OKC_API.G_EXCEPTION_ERROR;
3653: END IF;
3654: migrate(lx_khr_rec, l_def_khrv_rec);
3655: x_khrv_rec := l_def_khrv_rec;
3656: x_return_status := l_return_status;
3653: END IF;
3654: migrate(lx_khr_rec, l_def_khrv_rec);
3655: x_khrv_rec := l_def_khrv_rec;
3656: x_return_status := l_return_status;
3657: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3658: EXCEPTION
3659: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3660: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3661: (
3655: x_khrv_rec := l_def_khrv_rec;
3656: x_return_status := l_return_status;
3657: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3658: EXCEPTION
3659: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3660: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3661: (
3662: l_api_name,
3663: G_PKG_NAME,
3656: x_return_status := l_return_status;
3657: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3658: EXCEPTION
3659: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3660: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3661: (
3662: l_api_name,
3663: G_PKG_NAME,
3664: 'OKC_API.G_RET_STS_ERROR',
3660: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3661: (
3662: l_api_name,
3663: G_PKG_NAME,
3664: 'OKC_API.G_RET_STS_ERROR',
3665: x_msg_count,
3666: x_msg_data,
3667: '_PVT'
3668: );
3665: x_msg_count,
3666: x_msg_data,
3667: '_PVT'
3668: );
3669: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3670: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3671: (
3672: l_api_name,
3673: G_PKG_NAME,
3666: x_msg_data,
3667: '_PVT'
3668: );
3669: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3670: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3671: (
3672: l_api_name,
3673: G_PKG_NAME,
3674: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3670: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3671: (
3672: l_api_name,
3673: G_PKG_NAME,
3674: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3675: x_msg_count,
3676: x_msg_data,
3677: '_PVT'
3678: );
3676: x_msg_data,
3677: '_PVT'
3678: );
3679: WHEN OTHERS THEN
3680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3681: (
3682: l_api_name,
3683: G_PKG_NAME,
3684: 'OTHERS',
3697: x_msg_count OUT NOCOPY NUMBER,
3698: x_msg_data OUT NOCOPY VARCHAR2,
3699: p_khrv_tbl IN khrv_tbl_type,
3700: x_khrv_tbl OUT NOCOPY khrv_tbl_type,
3701: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
3702:
3703: l_api_version CONSTANT NUMBER := 1;
3704: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3705: i NUMBER := 0;
3703: l_api_version CONSTANT NUMBER := 1;
3704: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3705: i NUMBER := 0;
3706: BEGIN
3707: OKC_API.init_msg_list(p_init_msg_list);
3708: -- Make sure PL/SQL table has records in it before passing
3709: IF (p_khrv_tbl.COUNT > 0) THEN
3710: i := p_khrv_tbl.FIRST;
3711: LOOP
3709: IF (p_khrv_tbl.COUNT > 0) THEN
3710: i := p_khrv_tbl.FIRST;
3711: LOOP
3712: DECLARE
3713: l_error_rec OKC_API.ERROR_REC_TYPE;
3714: BEGIN
3715: l_error_rec.api_name := l_api_name;
3716: l_error_rec.api_package := G_PKG_NAME;
3717: l_error_rec.idx := i;
3716: l_error_rec.api_package := G_PKG_NAME;
3717: l_error_rec.idx := i;
3718: update_row (
3719: p_api_version => p_api_version,
3720: p_init_msg_list => OKC_API.G_FALSE,
3721: x_return_status => l_error_rec.error_type,
3722: x_msg_count => l_error_rec.msg_count,
3723: x_msg_data => l_error_rec.msg_data,
3724: p_khrv_rec => p_khrv_tbl(i),
3722: x_msg_count => l_error_rec.msg_count,
3723: x_msg_data => l_error_rec.msg_data,
3724: p_khrv_rec => p_khrv_tbl(i),
3725: x_khrv_rec => x_khrv_tbl(i));
3726: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
3727: l_error_rec.SQLCODE := SQLCODE;
3728: load_error_tbl(l_error_rec, px_error_tbl);
3729: ELSE
3730: x_msg_count := l_error_rec.msg_count;
3730: x_msg_count := l_error_rec.msg_count;
3731: x_msg_data := l_error_rec.msg_data;
3732: END IF;
3733: EXCEPTION
3734: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3736: l_error_rec.SQLCODE := SQLCODE;
3737: load_error_tbl(l_error_rec, px_error_tbl);
3738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3731: x_msg_data := l_error_rec.msg_data;
3732: END IF;
3733: EXCEPTION
3734: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3736: l_error_rec.SQLCODE := SQLCODE;
3737: load_error_tbl(l_error_rec, px_error_tbl);
3738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3739: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3734: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3736: l_error_rec.SQLCODE := SQLCODE;
3737: load_error_tbl(l_error_rec, px_error_tbl);
3738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3739: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3740: l_error_rec.SQLCODE := SQLCODE;
3741: load_error_tbl(l_error_rec, px_error_tbl);
3742: WHEN OTHERS THEN
3735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3736: l_error_rec.SQLCODE := SQLCODE;
3737: load_error_tbl(l_error_rec, px_error_tbl);
3738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3739: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3740: l_error_rec.SQLCODE := SQLCODE;
3741: load_error_tbl(l_error_rec, px_error_tbl);
3742: WHEN OTHERS THEN
3743: l_error_rec.error_type := 'OTHERS';
3750: END IF;
3751: -- Loop through the error_tbl to find the error with the highest severity
3752: -- and return it.
3753: x_return_status := find_highest_exception(px_error_tbl);
3754: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3755: EXCEPTION
3756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3758: (
3752: -- and return it.
3753: x_return_status := find_highest_exception(px_error_tbl);
3754: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3755: EXCEPTION
3756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3758: (
3759: l_api_name,
3760: G_PKG_NAME,
3753: x_return_status := find_highest_exception(px_error_tbl);
3754: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3755: EXCEPTION
3756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3758: (
3759: l_api_name,
3760: G_PKG_NAME,
3761: 'OKC_API.G_RET_STS_ERROR',
3757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3758: (
3759: l_api_name,
3760: G_PKG_NAME,
3761: 'OKC_API.G_RET_STS_ERROR',
3762: x_msg_count,
3763: x_msg_data,
3764: '_PVT'
3765: );
3762: x_msg_count,
3763: x_msg_data,
3764: '_PVT'
3765: );
3766: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3768: (
3769: l_api_name,
3770: G_PKG_NAME,
3763: x_msg_data,
3764: '_PVT'
3765: );
3766: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3768: (
3769: l_api_name,
3770: G_PKG_NAME,
3771: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3768: (
3769: l_api_name,
3770: G_PKG_NAME,
3771: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3772: x_msg_count,
3773: x_msg_data,
3774: '_PVT'
3775: );
3773: x_msg_data,
3774: '_PVT'
3775: );
3776: WHEN OTHERS THEN
3777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3778: (
3779: l_api_name,
3780: G_PKG_NAME,
3781: 'OTHERS',
3800: x_khrv_tbl OUT NOCOPY khrv_tbl_type) IS
3801:
3802: l_api_version CONSTANT NUMBER := 1;
3803: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3804: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3805: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3806: BEGIN
3807: OKC_API.init_msg_list(p_init_msg_list);
3808: -- Make sure PL/SQL table has records in it before passing
3801:
3802: l_api_version CONSTANT NUMBER := 1;
3803: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3804: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3805: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3806: BEGIN
3807: OKC_API.init_msg_list(p_init_msg_list);
3808: -- Make sure PL/SQL table has records in it before passing
3809: IF (p_khrv_tbl.COUNT > 0) THEN
3803: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3804: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3805: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3806: BEGIN
3807: OKC_API.init_msg_list(p_init_msg_list);
3808: -- Make sure PL/SQL table has records in it before passing
3809: IF (p_khrv_tbl.COUNT > 0) THEN
3810: update_row (
3811: p_api_version => p_api_version,
3808: -- Make sure PL/SQL table has records in it before passing
3809: IF (p_khrv_tbl.COUNT > 0) THEN
3810: update_row (
3811: p_api_version => p_api_version,
3812: p_init_msg_list => OKC_API.G_FALSE,
3813: x_return_status => x_return_status,
3814: x_msg_count => x_msg_count,
3815: x_msg_data => x_msg_data,
3816: p_khrv_tbl => p_khrv_tbl,
3816: p_khrv_tbl => p_khrv_tbl,
3817: x_khrv_tbl => x_khrv_tbl,
3818: px_error_tbl => l_error_tbl);
3819: END IF;
3820: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3821: EXCEPTION
3822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3824: (
3818: px_error_tbl => l_error_tbl);
3819: END IF;
3820: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3821: EXCEPTION
3822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3824: (
3825: l_api_name,
3826: G_PKG_NAME,
3819: END IF;
3820: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3821: EXCEPTION
3822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3824: (
3825: l_api_name,
3826: G_PKG_NAME,
3827: 'OKC_API.G_RET_STS_ERROR',
3823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3824: (
3825: l_api_name,
3826: G_PKG_NAME,
3827: 'OKC_API.G_RET_STS_ERROR',
3828: x_msg_count,
3829: x_msg_data,
3830: '_PVT'
3831: );
3828: x_msg_count,
3829: x_msg_data,
3830: '_PVT'
3831: );
3832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3834: (
3835: l_api_name,
3836: G_PKG_NAME,
3829: x_msg_data,
3830: '_PVT'
3831: );
3832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3834: (
3835: l_api_name,
3836: G_PKG_NAME,
3837: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3833: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3834: (
3835: l_api_name,
3836: G_PKG_NAME,
3837: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3838: x_msg_count,
3839: x_msg_data,
3840: '_PVT'
3841: );
3839: x_msg_data,
3840: '_PVT'
3841: );
3842: WHEN OTHERS THEN
3843: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3844: (
3845: l_api_name,
3846: G_PKG_NAME,
3847: 'OTHERS',
3865: p_khr_rec IN khr_rec_type) IS
3866:
3867: l_api_version CONSTANT NUMBER := 1;
3868: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3869: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3870: l_khr_rec khr_rec_type := p_khr_rec;
3871: l_row_notfound BOOLEAN := TRUE;
3872: l_chr_id NUMBER := NULL;
3873: l_wf_item_key VARCHAR2(240) := NULL;
3876: FROM OKS_K_HEADERS_B oksk
3877: WHERE oksk.id = p_id;
3878:
3879: BEGIN
3880: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3881: p_init_msg_list,
3882: '_PVT',
3883: x_return_status);
3884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3880: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3881: p_init_msg_list,
3882: '_PVT',
3883: x_return_status);
3884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3887: RAISE OKC_API.G_EXCEPTION_ERROR;
3888: END IF;
3881: p_init_msg_list,
3882: '_PVT',
3883: x_return_status);
3884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3887: RAISE OKC_API.G_EXCEPTION_ERROR;
3888: END IF;
3889:
3882: '_PVT',
3883: x_return_status);
3884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3887: RAISE OKC_API.G_EXCEPTION_ERROR;
3888: END IF;
3889:
3890: -- HANDCODE FOR WORKFLOW ABORT
3883: x_return_status);
3884: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3886: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3887: RAISE OKC_API.G_EXCEPTION_ERROR;
3888: END IF;
3889:
3890: -- HANDCODE FOR WORKFLOW ABORT
3891: -- Unfortunately only id is passed so we will have to get chr_id and wf_item_key with sql access
3909: x_msg_data => x_msg_data,
3910: x_msg_count => x_msg_count
3911: ) ;
3912:
3913: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3916: RAISE OKC_API.G_EXCEPTION_ERROR;
3917: END IF;
3910: x_msg_count => x_msg_count
3911: ) ;
3912:
3913: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3916: RAISE OKC_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: END IF;
3911: ) ;
3912:
3913: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3916: RAISE OKC_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: END IF;
3919:
3912:
3913: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3916: RAISE OKC_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: END IF;
3919:
3920: DELETE FROM OKS_K_HEADERS_B
3920: DELETE FROM OKS_K_HEADERS_B
3921: WHERE ID = p_khr_rec.id;
3922:
3923: x_return_status := l_return_status;
3924: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3925: EXCEPTION
3926: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3927: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3928: (
3922:
3923: x_return_status := l_return_status;
3924: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3925: EXCEPTION
3926: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3927: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3928: (
3929: l_api_name,
3930: G_PKG_NAME,
3923: x_return_status := l_return_status;
3924: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3925: EXCEPTION
3926: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3927: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3928: (
3929: l_api_name,
3930: G_PKG_NAME,
3931: 'OKC_API.G_RET_STS_ERROR',
3927: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3928: (
3929: l_api_name,
3930: G_PKG_NAME,
3931: 'OKC_API.G_RET_STS_ERROR',
3932: x_msg_count,
3933: x_msg_data,
3934: '_PVT'
3935: );
3932: x_msg_count,
3933: x_msg_data,
3934: '_PVT'
3935: );
3936: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3938: (
3939: l_api_name,
3940: G_PKG_NAME,
3933: x_msg_data,
3934: '_PVT'
3935: );
3936: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3938: (
3939: l_api_name,
3940: G_PKG_NAME,
3941: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3938: (
3939: l_api_name,
3940: G_PKG_NAME,
3941: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3942: x_msg_count,
3943: x_msg_data,
3944: '_PVT'
3945: );
3943: x_msg_data,
3944: '_PVT'
3945: );
3946: WHEN OTHERS THEN
3947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3948: (
3949: l_api_name,
3950: G_PKG_NAME,
3951: 'OTHERS',
3966: p_khrv_rec IN khrv_rec_type) IS
3967:
3968: l_api_version CONSTANT NUMBER := 1;
3969: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3970: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3971: l_khrv_rec khrv_rec_type := p_khrv_rec;
3972: l_khr_rec khr_rec_type;
3973: BEGIN
3974: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3970: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3971: l_khrv_rec khrv_rec_type := p_khrv_rec;
3972: l_khr_rec khr_rec_type;
3973: BEGIN
3974: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3975: G_PKG_NAME,
3976: p_init_msg_list,
3977: l_api_version,
3978: p_api_version,
3977: l_api_version,
3978: p_api_version,
3979: '_PVT',
3980: x_return_status);
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3978: p_api_version,
3979: '_PVT',
3980: x_return_status);
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3986: -----------------------------------------
3979: '_PVT',
3980: x_return_status);
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3986: -----------------------------------------
3987: -- Move VIEW record to "Child" records --
3980: x_return_status);
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3986: -----------------------------------------
3987: -- Move VIEW record to "Child" records --
3988: -----------------------------------------
3996: x_msg_count,
3997: x_msg_data,
3998: l_khr_rec
3999: );
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
3997: x_msg_data,
3998: l_khr_rec
3999: );
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: x_return_status := l_return_status;
3998: l_khr_rec
3999: );
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: x_return_status := l_return_status;
4006: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3999: );
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: x_return_status := l_return_status;
4006: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4007: EXCEPTION
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: x_return_status := l_return_status;
4006: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4007: EXCEPTION
4008: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4010: (
4004: END IF;
4005: x_return_status := l_return_status;
4006: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4007: EXCEPTION
4008: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4010: (
4011: l_api_name,
4012: G_PKG_NAME,
4005: x_return_status := l_return_status;
4006: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4007: EXCEPTION
4008: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4010: (
4011: l_api_name,
4012: G_PKG_NAME,
4013: 'OKC_API.G_RET_STS_ERROR',
4009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4010: (
4011: l_api_name,
4012: G_PKG_NAME,
4013: 'OKC_API.G_RET_STS_ERROR',
4014: x_msg_count,
4015: x_msg_data,
4016: '_PVT'
4017: );
4014: x_msg_count,
4015: x_msg_data,
4016: '_PVT'
4017: );
4018: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4020: (
4021: l_api_name,
4022: G_PKG_NAME,
4015: x_msg_data,
4016: '_PVT'
4017: );
4018: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4020: (
4021: l_api_name,
4022: G_PKG_NAME,
4023: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4020: (
4021: l_api_name,
4022: G_PKG_NAME,
4023: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4024: x_msg_count,
4025: x_msg_data,
4026: '_PVT'
4027: );
4025: x_msg_data,
4026: '_PVT'
4027: );
4028: WHEN OTHERS THEN
4029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4030: (
4031: l_api_name,
4032: G_PKG_NAME,
4033: 'OTHERS',
4045: x_return_status OUT NOCOPY VARCHAR2,
4046: x_msg_count OUT NOCOPY NUMBER,
4047: x_msg_data OUT NOCOPY VARCHAR2,
4048: p_khrv_tbl IN khrv_tbl_type,
4049: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
4050:
4051: l_api_version CONSTANT NUMBER := 1;
4052: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4053: i NUMBER := 0;
4051: l_api_version CONSTANT NUMBER := 1;
4052: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4053: i NUMBER := 0;
4054: BEGIN
4055: OKC_API.init_msg_list(p_init_msg_list);
4056: -- Make sure PL/SQL table has records in it before passing
4057: IF (p_khrv_tbl.COUNT > 0) THEN
4058: i := p_khrv_tbl.FIRST;
4059: LOOP
4057: IF (p_khrv_tbl.COUNT > 0) THEN
4058: i := p_khrv_tbl.FIRST;
4059: LOOP
4060: DECLARE
4061: l_error_rec OKC_API.ERROR_REC_TYPE;
4062: BEGIN
4063: l_error_rec.api_name := l_api_name;
4064: l_error_rec.api_package := G_PKG_NAME;
4065: l_error_rec.idx := i;
4064: l_error_rec.api_package := G_PKG_NAME;
4065: l_error_rec.idx := i;
4066: delete_row (
4067: p_api_version => p_api_version,
4068: p_init_msg_list => OKC_API.G_FALSE,
4069: x_return_status => l_error_rec.error_type,
4070: x_msg_count => l_error_rec.msg_count,
4071: x_msg_data => l_error_rec.msg_data,
4072: p_khrv_rec => p_khrv_tbl(i));
4069: x_return_status => l_error_rec.error_type,
4070: x_msg_count => l_error_rec.msg_count,
4071: x_msg_data => l_error_rec.msg_data,
4072: p_khrv_rec => p_khrv_tbl(i));
4073: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
4074: l_error_rec.SQLCODE := SQLCODE;
4075: load_error_tbl(l_error_rec, px_error_tbl);
4076: ELSE
4077: x_msg_count := l_error_rec.msg_count;
4077: x_msg_count := l_error_rec.msg_count;
4078: x_msg_data := l_error_rec.msg_data;
4079: END IF;
4080: EXCEPTION
4081: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4082: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4083: l_error_rec.SQLCODE := SQLCODE;
4084: load_error_tbl(l_error_rec, px_error_tbl);
4085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4078: x_msg_data := l_error_rec.msg_data;
4079: END IF;
4080: EXCEPTION
4081: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4082: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4083: l_error_rec.SQLCODE := SQLCODE;
4084: load_error_tbl(l_error_rec, px_error_tbl);
4085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4086: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
4081: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4082: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4083: l_error_rec.SQLCODE := SQLCODE;
4084: load_error_tbl(l_error_rec, px_error_tbl);
4085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4086: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
4087: l_error_rec.SQLCODE := SQLCODE;
4088: load_error_tbl(l_error_rec, px_error_tbl);
4089: WHEN OTHERS THEN
4082: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
4083: l_error_rec.SQLCODE := SQLCODE;
4084: load_error_tbl(l_error_rec, px_error_tbl);
4085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4086: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
4087: l_error_rec.SQLCODE := SQLCODE;
4088: load_error_tbl(l_error_rec, px_error_tbl);
4089: WHEN OTHERS THEN
4090: l_error_rec.error_type := 'OTHERS';
4097: END IF;
4098: -- Loop through the error_tbl to find the error with the highest severity
4099: -- and return it.
4100: x_return_status := find_highest_exception(px_error_tbl);
4101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4102: EXCEPTION
4103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4105: (
4099: -- and return it.
4100: x_return_status := find_highest_exception(px_error_tbl);
4101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4102: EXCEPTION
4103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4105: (
4106: l_api_name,
4107: G_PKG_NAME,
4100: x_return_status := find_highest_exception(px_error_tbl);
4101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4102: EXCEPTION
4103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4105: (
4106: l_api_name,
4107: G_PKG_NAME,
4108: 'OKC_API.G_RET_STS_ERROR',
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4105: (
4106: l_api_name,
4107: G_PKG_NAME,
4108: 'OKC_API.G_RET_STS_ERROR',
4109: x_msg_count,
4110: x_msg_data,
4111: '_PVT'
4112: );
4109: x_msg_count,
4110: x_msg_data,
4111: '_PVT'
4112: );
4113: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4115: (
4116: l_api_name,
4117: G_PKG_NAME,
4110: x_msg_data,
4111: '_PVT'
4112: );
4113: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4115: (
4116: l_api_name,
4117: G_PKG_NAME,
4118: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4115: (
4116: l_api_name,
4117: G_PKG_NAME,
4118: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4119: x_msg_count,
4120: x_msg_data,
4121: '_PVT'
4122: );
4120: x_msg_data,
4121: '_PVT'
4122: );
4123: WHEN OTHERS THEN
4124: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4125: (
4126: l_api_name,
4127: G_PKG_NAME,
4128: 'OTHERS',
4144: p_khrv_tbl IN khrv_tbl_type) IS
4145:
4146: l_api_version CONSTANT NUMBER := 1;
4147: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4148: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4149: l_error_tbl OKC_API.ERROR_TBL_TYPE;
4150: BEGIN
4151: OKC_API.init_msg_list(p_init_msg_list);
4152: -- Make sure PL/SQL table has records in it before passing
4145:
4146: l_api_version CONSTANT NUMBER := 1;
4147: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4148: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4149: l_error_tbl OKC_API.ERROR_TBL_TYPE;
4150: BEGIN
4151: OKC_API.init_msg_list(p_init_msg_list);
4152: -- Make sure PL/SQL table has records in it before passing
4153: IF (p_khrv_tbl.COUNT > 0) THEN
4147: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4148: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4149: l_error_tbl OKC_API.ERROR_TBL_TYPE;
4150: BEGIN
4151: OKC_API.init_msg_list(p_init_msg_list);
4152: -- Make sure PL/SQL table has records in it before passing
4153: IF (p_khrv_tbl.COUNT > 0) THEN
4154: delete_row (
4155: p_api_version => p_api_version,
4152: -- Make sure PL/SQL table has records in it before passing
4153: IF (p_khrv_tbl.COUNT > 0) THEN
4154: delete_row (
4155: p_api_version => p_api_version,
4156: p_init_msg_list => OKC_API.G_FALSE,
4157: x_return_status => x_return_status,
4158: x_msg_count => x_msg_count,
4159: x_msg_data => x_msg_data,
4160: p_khrv_tbl => p_khrv_tbl,
4159: x_msg_data => x_msg_data,
4160: p_khrv_tbl => p_khrv_tbl,
4161: px_error_tbl => l_error_tbl);
4162: END IF;
4163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4164: EXCEPTION
4165: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4167: (
4161: px_error_tbl => l_error_tbl);
4162: END IF;
4163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4164: EXCEPTION
4165: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4167: (
4168: l_api_name,
4169: G_PKG_NAME,
4162: END IF;
4163: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4164: EXCEPTION
4165: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4167: (
4168: l_api_name,
4169: G_PKG_NAME,
4170: 'OKC_API.G_RET_STS_ERROR',
4166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4167: (
4168: l_api_name,
4169: G_PKG_NAME,
4170: 'OKC_API.G_RET_STS_ERROR',
4171: x_msg_count,
4172: x_msg_data,
4173: '_PVT'
4174: );
4171: x_msg_count,
4172: x_msg_data,
4173: '_PVT'
4174: );
4175: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4177: (
4178: l_api_name,
4179: G_PKG_NAME,
4172: x_msg_data,
4173: '_PVT'
4174: );
4175: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4177: (
4178: l_api_name,
4179: G_PKG_NAME,
4180: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4177: (
4178: l_api_name,
4179: G_PKG_NAME,
4180: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4181: x_msg_count,
4182: x_msg_data,
4183: '_PVT'
4184: );
4182: x_msg_data,
4183: '_PVT'
4184: );
4185: WHEN OTHERS THEN
4186: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4187: (
4188: l_api_name,
4189: G_PKG_NAME,
4190: 'OTHERS',