7: G_EXCEPTION_STOP_VALIDATION EXCEPTION;
8:
9:
10: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_LLA_UTIL_PVT';
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
13: l_api_name VARCHAR2(35) := 'LLA_UTIL';
14:
15: FUNCTION get_number
104: x_amount := OKL_ACCOUNTING_UTIL.cc_round_format_amount(p_amount => TO_NUMBER(get_number(p_amount)),
105: p_currency_code => p_currency_code);
106:
107:
108: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
109: x_msg_data => x_msg_data);
110:
111: EXCEPTION
112: WHEN OKC_API.G_EXCEPTION_ERROR THEN
180: x_amount := OKL_ACCOUNTING_UTIL.cc_round_format_amount(p_amount => TO_NUMBER(get_number(p_amount)),
181: p_currency_code => p_currency_code);
182:
183:
184: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
185: x_msg_data => x_msg_data);
186:
187: EXCEPTION
188: WHEN OKC_API.G_EXCEPTION_ERROR THEN
256: p_amount => TO_NUMBER(get_number(p_amount)),
257: p_currency_code => p_currency_code);
258:
259:
260: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
261: x_msg_data => x_msg_data);
262:
263: EXCEPTION
264: WHEN OKC_API.G_EXCEPTION_ERROR THEN
333: p_amount => TO_NUMBER(get_number(p_amount)),
334: p_currency_code => p_currency_code);
335:
336:
337: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
338: x_msg_data => x_msg_data);
339:
340: EXCEPTION
341: WHEN OKC_API.G_EXCEPTION_ERROR THEN
425: END IF;
426: RETURN p_date_out;
427: EXCEPTION
428: WHEN OTHERS THEN
429: RETURN(OKL_API.G_FALSE);
430: END;
431:
432:
433: FUNCTION get_display_date
520: WHERE rbk_khr.khr_id = chrb.id
521: AND rbk_khr.status <> 'PROCESSED');
522:
523:
524: l_ret_value VARCHAR2(1) := OKL_API.G_FALSE;
525:
526: BEGIN
527:
528: FOR l_chk_mass_rbk_rec IN l_chk_mass_rbk_csr
526: BEGIN
527:
528: FOR l_chk_mass_rbk_rec IN l_chk_mass_rbk_csr
529: LOOP
530: l_ret_value := OKL_API.G_TRUE;
531: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
532: END LOOP;
533:
534: RETURN l_ret_value;
527:
528: FOR l_chk_mass_rbk_rec IN l_chk_mass_rbk_csr
529: LOOP
530: l_ret_value := OKL_API.G_TRUE;
531: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
532: END LOOP;
533:
534: RETURN l_ret_value;
535:
558: --
559: AND chrb.id = p_chr_id
560: AND chrb.orig_system_source_codE = 'OKL_REBOOK';
561:
562: l_ret_value VARCHAR2(1) := OKL_API.G_FALSE;
563:
564: BEGIN
565:
566: FOR l_chk_rbk_rec IN l_chk_rbk_csr
564: BEGIN
565:
566: FOR l_chk_rbk_rec IN l_chk_rbk_csr
567: LOOP
568: l_ret_value := OKL_API.G_TRUE;
569: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
570: END LOOP;
571:
572: RETURN l_ret_value;
565:
566: FOR l_chk_rbk_rec IN l_chk_rbk_csr
567: LOOP
568: l_ret_value := OKL_API.G_TRUE;
569: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
570: END LOOP;
571:
572: RETURN l_ret_value;
573:
588: FROM okc_k_headers_b chrb
589: WHERE chrb.id = p_chr_id
590: AND NVL(chrb.orig_system_source_code,'XXXX') = 'OKL_RELEASE';
591:
592: l_ret_value VARCHAR2(1) := OKL_API.G_FALSE;
593:
594: BEGIN
595:
596: FOR l_chk_rel_khr_rec IN l_chk_rel_khr_csr
594: BEGIN
595:
596: FOR l_chk_rel_khr_rec IN l_chk_rel_khr_csr
597: LOOP
598: l_ret_value := OKL_API.G_TRUE;
599: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
600: END LOOP;
601:
602: RETURN l_ret_value;
595:
596: FOR l_chk_rel_khr_rec IN l_chk_rel_khr_csr
597: LOOP
598: l_ret_value := OKL_API.G_TRUE;
599: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
600: END LOOP;
601:
602: RETURN l_ret_value;
603:
623: AND rul.rule_information_category = 'LARLES'
624: AND NVL(rule_information1,'N') = 'Y');
625:
626:
627: l_ret_value VARCHAR2(1) := OKL_API.G_FALSE;
628:
629: BEGIN
630:
631: FOR l_chk_rel_ast_rec IN l_chk_rel_ast_csr
629: BEGIN
630:
631: FOR l_chk_rel_ast_rec IN l_chk_rel_ast_csr
632: LOOP
633: l_ret_value := OKL_API.G_TRUE;
634: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
635: END LOOP;
636:
637: RETURN l_ret_value;
630:
631: FOR l_chk_rel_ast_rec IN l_chk_rel_ast_csr
632: LOOP
633: l_ret_value := OKL_API.G_TRUE;
634: EXIT WHEN l_ret_value = OKL_API.G_TRUE;
635: END LOOP;
636:
637: RETURN l_ret_value;
638:
647: AS
648: l_ret_value VARCHAR2(1) DEFAULT '0';
649: BEGIN
650: -- NEED TO CODE LATER ??
651: RETURN OKL_API.G_FALSE;
652: EXCEPTION
653: WHEN OTHERS THEN
654: RETURN(NULL);
655: END check_split_contract;
661: l_ret_value VARCHAR2(1) DEFAULT '0';
662: BEGIN
663:
664: l_ret_value := check_mass_rebook_contract(p_chr_id);
665: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
666: RETURN OKL_API.G_FALSE;
667: -- not a mass rebook
668: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
669: l_ret_value := check_rebook_contract(p_chr_id);
662: BEGIN
663:
664: l_ret_value := check_mass_rebook_contract(p_chr_id);
665: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
666: RETURN OKL_API.G_FALSE;
667: -- not a mass rebook
668: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
669: l_ret_value := check_rebook_contract(p_chr_id);
670: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
664: l_ret_value := check_mass_rebook_contract(p_chr_id);
665: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
666: RETURN OKL_API.G_FALSE;
667: -- not a mass rebook
668: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
669: l_ret_value := check_rebook_contract(p_chr_id);
670: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
671: RETURN OKL_API.G_FALSE;
672: -- not a rebook
666: RETURN OKL_API.G_FALSE;
667: -- not a mass rebook
668: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
669: l_ret_value := check_rebook_contract(p_chr_id);
670: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
671: RETURN OKL_API.G_FALSE;
672: -- not a rebook
673: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
674: l_ret_value := check_release_contract(p_chr_id);
667: -- not a mass rebook
668: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
669: l_ret_value := check_rebook_contract(p_chr_id);
670: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
671: RETURN OKL_API.G_FALSE;
672: -- not a rebook
673: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
674: l_ret_value := check_release_contract(p_chr_id);
675: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
669: l_ret_value := check_rebook_contract(p_chr_id);
670: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
671: RETURN OKL_API.G_FALSE;
672: -- not a rebook
673: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
674: l_ret_value := check_release_contract(p_chr_id);
675: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
676: RETURN OKL_API.G_FALSE;
677: -- not a release contract
671: RETURN OKL_API.G_FALSE;
672: -- not a rebook
673: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
674: l_ret_value := check_release_contract(p_chr_id);
675: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
676: RETURN OKL_API.G_FALSE;
677: -- not a release contract
678: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
679: l_ret_value := check_release_assets(p_chr_id);
672: -- not a rebook
673: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
674: l_ret_value := check_release_contract(p_chr_id);
675: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
676: RETURN OKL_API.G_FALSE;
677: -- not a release contract
678: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
679: l_ret_value := check_release_assets(p_chr_id);
680: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
674: l_ret_value := check_release_contract(p_chr_id);
675: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
676: RETURN OKL_API.G_FALSE;
677: -- not a release contract
678: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
679: l_ret_value := check_release_assets(p_chr_id);
680: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
681: RETURN OKL_API.G_FALSE;
682: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
676: RETURN OKL_API.G_FALSE;
677: -- not a release contract
678: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
679: l_ret_value := check_release_assets(p_chr_id);
680: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
681: RETURN OKL_API.G_FALSE;
682: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
683: l_ret_value := check_split_contract(p_chr_id);
684: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
677: -- not a release contract
678: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
679: l_ret_value := check_release_assets(p_chr_id);
680: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
681: RETURN OKL_API.G_FALSE;
682: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
683: l_ret_value := check_split_contract(p_chr_id);
684: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
685: RETURN OKL_API.G_FALSE;
678: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
679: l_ret_value := check_release_assets(p_chr_id);
680: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
681: RETURN OKL_API.G_FALSE;
682: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
683: l_ret_value := check_split_contract(p_chr_id);
684: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
685: RETURN OKL_API.G_FALSE;
686: ELSE
680: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
681: RETURN OKL_API.G_FALSE;
682: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
683: l_ret_value := check_split_contract(p_chr_id);
684: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
685: RETURN OKL_API.G_FALSE;
686: ELSE
687: -- not a release asset contract
688: RETURN OKL_API.G_TRUE;
681: RETURN OKL_API.G_FALSE;
682: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
683: l_ret_value := check_split_contract(p_chr_id);
684: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
685: RETURN OKL_API.G_FALSE;
686: ELSE
687: -- not a release asset contract
688: RETURN OKL_API.G_TRUE;
689: END IF;
684: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
685: RETURN OKL_API.G_FALSE;
686: ELSE
687: -- not a release asset contract
688: RETURN OKL_API.G_TRUE;
689: END IF;
690: END IF;
691: END IF;
692: END IF;
706:
707: BEGIN
708:
709: l_ret_value := check_mass_rebook_contract(p_chr_id);
710: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
711: RETURN G_KHR_PROCESS_MASS_REBOOK;
712: -- not a mass rebook
713: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
714: l_ret_value := check_rebook_contract(p_chr_id);
709: l_ret_value := check_mass_rebook_contract(p_chr_id);
710: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
711: RETURN G_KHR_PROCESS_MASS_REBOOK;
712: -- not a mass rebook
713: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
714: l_ret_value := check_rebook_contract(p_chr_id);
715: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
716: RETURN G_KHR_PROCESS_REBOOK;
717: -- not a rebook
711: RETURN G_KHR_PROCESS_MASS_REBOOK;
712: -- not a mass rebook
713: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
714: l_ret_value := check_rebook_contract(p_chr_id);
715: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
716: RETURN G_KHR_PROCESS_REBOOK;
717: -- not a rebook
718: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
719: l_ret_value := check_release_contract(p_chr_id);
714: l_ret_value := check_rebook_contract(p_chr_id);
715: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
716: RETURN G_KHR_PROCESS_REBOOK;
717: -- not a rebook
718: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
719: l_ret_value := check_release_contract(p_chr_id);
720: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
721: RETURN G_KHR_PROCESS_RELEASE_CONTRACT;
722: -- not a release contract
716: RETURN G_KHR_PROCESS_REBOOK;
717: -- not a rebook
718: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
719: l_ret_value := check_release_contract(p_chr_id);
720: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
721: RETURN G_KHR_PROCESS_RELEASE_CONTRACT;
722: -- not a release contract
723: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
724: l_ret_value := check_release_assets(p_chr_id);
719: l_ret_value := check_release_contract(p_chr_id);
720: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
721: RETURN G_KHR_PROCESS_RELEASE_CONTRACT;
722: -- not a release contract
723: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
724: l_ret_value := check_release_assets(p_chr_id);
725: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
726: RETURN G_KHR_PROCESS_RELEASE_ASSETS;
727: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
721: RETURN G_KHR_PROCESS_RELEASE_CONTRACT;
722: -- not a release contract
723: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
724: l_ret_value := check_release_assets(p_chr_id);
725: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
726: RETURN G_KHR_PROCESS_RELEASE_ASSETS;
727: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
728: l_ret_value := check_split_contract(p_chr_id);
729: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
723: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
724: l_ret_value := check_release_assets(p_chr_id);
725: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
726: RETURN G_KHR_PROCESS_RELEASE_ASSETS;
727: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
728: l_ret_value := check_split_contract(p_chr_id);
729: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
730: RETURN G_KHR_PROCESS_SPLIT_CONTRACT;
731: ELSE
725: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
726: RETURN G_KHR_PROCESS_RELEASE_ASSETS;
727: ELSIF (l_ret_value=OKL_API.G_FALSE) THEN
728: l_ret_value := check_split_contract(p_chr_id);
729: IF (l_ret_value IS NOT NULL) AND (l_ret_value = OKL_API.G_TRUE) THEN
730: RETURN G_KHR_PROCESS_SPLIT_CONTRACT;
731: ELSE
732: -- not a release asset contract
733: RETURN G_KHR_PROCESS_NEW;
752: FROM okc_k_headers_b
753: WHERE id = p_chr_id;
754:
755: l_scs_code okc_k_headers_b.scs_code%TYPE := NULL;
756: l_return_value VARCHAR2(1):= OKL_API.G_FALSE;
757: BEGIN
758: FOR l_okl_chr_scs_rec IN l_okl_chr_scs_csr
759: LOOP
760: IF (l_okl_chr_scs_rec.scs_code IS NOT NULL AND l_okl_chr_scs_rec.scs_code = 'LEASE') THEN
757: BEGIN
758: FOR l_okl_chr_scs_rec IN l_okl_chr_scs_csr
759: LOOP
760: IF (l_okl_chr_scs_rec.scs_code IS NOT NULL AND l_okl_chr_scs_rec.scs_code = 'LEASE') THEN
761: l_return_value := OKL_API.G_TRUE;
762: END IF;
763: END LOOP;
764:
765: RETURN l_return_value;
817: p_months_after => p_months,
818: x_date => l_end_date,
819: x_return_status => l_return_status);
820:
821: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
823: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_ERROR;
825: END IF;
818: x_date => l_end_date,
819: x_return_status => l_return_status);
820:
821: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
823: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_ERROR;
825: END IF;
826: --end Bug 6007644
819: x_return_status => l_return_status);
820:
821: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
823: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_ERROR;
825: END IF;
826: --end Bug 6007644
827:
820:
821: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
823: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
824: RAISE OKL_API.G_EXCEPTION_ERROR;
825: END IF;
826: --end Bug 6007644
827:
828: IF p_start_day IS NOT NULL THEN
873: x_msg_count OUT NOCOPY NUMBER,
874: x_msg_data OUT NOCOPY VARCHAR2,
875: p_cle_id IN NUMBER) IS
876:
877: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
878: l_api_name CONSTANT VARCHAR2(30) := 'CHECK_LINE_UPDATE_ALLOWED';
879: l_api_version CONSTANT NUMBER := 1.0;
880:
881: --cursor to check line status
889: l_cle_rec l_cle_csr%ROWTYPE;
890: l_chk_rebook_chr VARCHAR2(1);
891:
892: BEGIN
893: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
894: -- Call start_activity to create savepoint, check compatibility
895: -- and initialize message list
896: l_return_status := Okl_Api.START_ACTIVITY(
897: p_api_name => l_api_name,
892: BEGIN
893: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
894: -- Call start_activity to create savepoint, check compatibility
895: -- and initialize message list
896: l_return_status := Okl_Api.START_ACTIVITY(
897: p_api_name => l_api_name,
898: p_pkg_name => g_pkg_name,
899: p_init_msg_list => p_init_msg_list,
900: l_api_version => l_api_version,
901: p_api_version => p_api_version,
902: p_api_type => '_PVT',
903: x_return_status => x_return_status);
904: -- Check if activity started successfully
905: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
908: RAISE Okl_Api.G_EXCEPTION_ERROR;
909: END IF;
902: p_api_type => '_PVT',
903: x_return_status => x_return_status);
904: -- Check if activity started successfully
905: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
908: RAISE Okl_Api.G_EXCEPTION_ERROR;
909: END IF;
910:
903: x_return_status => x_return_status);
904: -- Check if activity started successfully
905: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
908: RAISE Okl_Api.G_EXCEPTION_ERROR;
909: END IF;
910:
911: OPEN l_cle_csr(p_cle_id => p_cle_id);
904: -- Check if activity started successfully
905: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
907: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
908: RAISE Okl_Api.G_EXCEPTION_ERROR;
909: END IF;
910:
911: OPEN l_cle_csr(p_cle_id => p_cle_id);
912: FETCH l_cle_csr INTO l_cle_rec;
913: CLOSE l_cle_csr;
914:
915: l_chk_rebook_chr := OKL_LLA_UTIL_PVT.check_rebook_contract(p_chr_id => l_cle_rec.dnz_chr_id);
916:
917: IF (l_chk_rebook_chr = OKL_API.G_TRUE AND l_cle_rec.sts_code = 'TERMINATED') THEN
918: OKL_API.set_message(p_app_name => G_APP_NAME,
919: p_msg_name => 'OKL_LA_RBK_TER_LINE_UPDATE');
920: RAISE OKL_API.G_EXCEPTION_ERROR;
921: END IF;
914:
915: l_chk_rebook_chr := OKL_LLA_UTIL_PVT.check_rebook_contract(p_chr_id => l_cle_rec.dnz_chr_id);
916:
917: IF (l_chk_rebook_chr = OKL_API.G_TRUE AND l_cle_rec.sts_code = 'TERMINATED') THEN
918: OKL_API.set_message(p_app_name => G_APP_NAME,
919: p_msg_name => 'OKL_LA_RBK_TER_LINE_UPDATE');
920: RAISE OKL_API.G_EXCEPTION_ERROR;
921: END IF;
922:
916:
917: IF (l_chk_rebook_chr = OKL_API.G_TRUE AND l_cle_rec.sts_code = 'TERMINATED') THEN
918: OKL_API.set_message(p_app_name => G_APP_NAME,
919: p_msg_name => 'OKL_LA_RBK_TER_LINE_UPDATE');
920: RAISE OKL_API.G_EXCEPTION_ERROR;
921: END IF;
922:
923: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
924: x_msg_data => x_msg_data);
919: p_msg_name => 'OKL_LA_RBK_TER_LINE_UPDATE');
920: RAISE OKL_API.G_EXCEPTION_ERROR;
921: END IF;
922:
923: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
924: x_msg_data => x_msg_data);
925:
926: EXCEPTION
927: when OKL_API.G_EXCEPTION_ERROR then
923: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
924: x_msg_data => x_msg_data);
925:
926: EXCEPTION
927: when OKL_API.G_EXCEPTION_ERROR then
928:
929: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
930: p_api_name => l_api_name,
931: p_pkg_name => G_PKG_NAME,
925:
926: EXCEPTION
927: when OKL_API.G_EXCEPTION_ERROR then
928:
929: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
930: p_api_name => l_api_name,
931: p_pkg_name => G_PKG_NAME,
932: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
933: x_msg_count => x_msg_count,
928:
929: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
930: p_api_name => l_api_name,
931: p_pkg_name => G_PKG_NAME,
932: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
933: x_msg_count => x_msg_count,
934: x_msg_data => x_msg_data,
935: p_api_type => G_API_TYPE);
936:
933: x_msg_count => x_msg_count,
934: x_msg_data => x_msg_data,
935: p_api_type => G_API_TYPE);
936:
937: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
938:
939: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
940: p_api_name => l_api_name,
941: p_pkg_name => G_PKG_NAME,
935: p_api_type => G_API_TYPE);
936:
937: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
938:
939: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
940: p_api_name => l_api_name,
941: p_pkg_name => G_PKG_NAME,
942: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
943: x_msg_count => x_msg_count,
938:
939: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
940: p_api_name => l_api_name,
941: p_pkg_name => G_PKG_NAME,
942: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
943: x_msg_count => x_msg_count,
944: x_msg_data => x_msg_data,
945: p_api_type => G_API_TYPE);
946:
945: p_api_type => G_API_TYPE);
946:
947: when OTHERS then
948:
949: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
950: p_api_name => l_api_name,
951: p_pkg_name => G_PKG_NAME,
952: p_exc_name => 'OTHERS',
953: x_msg_count => x_msg_count,
1263: l_party_site_id NUMBER;
1264: l_location_id NUMBER;
1265: l_vendor_id NUMBER;
1266: l_party_site_number VARCHAR2(30);
1267: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1268: l_msg_count NUMBER;
1269: l_msg_data VARCHAR2(200);
1270: l_address_line1 VARCHAR2(240);
1271: l_city VARCHAR2(60);
1326: and party_site_id = p_party_site_id
1327: and hzps.location_id = hzl.location_id;
1328:
1329: BEGIN
1330: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1331: -- call START_ACTIVITY to create savepoint, check compatibility
1332: -- and initialize message list
1333: x_return_status := OKL_API.START_ACTIVITY(
1334: p_api_name => l_api_name,
1329: BEGIN
1330: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1331: -- call START_ACTIVITY to create savepoint, check compatibility
1332: -- and initialize message list
1333: x_return_status := OKL_API.START_ACTIVITY(
1334: p_api_name => l_api_name,
1335: p_pkg_name => G_PKG_NAME,
1336: p_init_msg_list => p_init_msg_list,
1337: l_api_version => l_api_version,
1339: p_api_type => G_API_TYPE,
1340: x_return_status => l_return_status);
1341:
1342: -- check if activity started successfully
1343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1340: x_return_status => l_return_status);
1341:
1342: -- check if activity started successfully
1343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1341:
1342: -- check if activity started successfully
1343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1349: IF(party_site_id IS NOT NULL AND party_site_id <> OKL_API.G_MISS_NUM) THEN
1342: -- check if activity started successfully
1343: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1349: IF(party_site_id IS NOT NULL AND party_site_id <> OKL_API.G_MISS_NUM) THEN
1350: l_party_site_id := party_site_id;
1345: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE OKL_API.G_EXCEPTION_ERROR;
1347: END IF;
1348:
1349: IF(party_site_id IS NOT NULL AND party_site_id <> OKL_API.G_MISS_NUM) THEN
1350: l_party_site_id := party_site_id;
1351: OPEN get_location_id(l_party_site_id);
1352: FETCH get_location_id
1353: INTO l_location_id, l_party_site_number, l_vendor_id, l_address_line1,
1380: x_vendor_site_id => l_vendor_site_id,
1381: x_party_site_id => l_party_site_id,
1382: x_location_id => l_location_id
1383: );
1384: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1387: RAISE OKL_API.G_EXCEPTION_ERROR;
1388: END IF;
1381: x_party_site_id => l_party_site_id,
1382: x_location_id => l_location_id
1383: );
1384: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1387: RAISE OKL_API.G_EXCEPTION_ERROR;
1388: END IF;
1389:
1382: x_location_id => l_location_id
1383: );
1384: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1387: RAISE OKL_API.G_EXCEPTION_ERROR;
1388: END IF;
1389:
1390: l_vendor_site_rec_upd.vendor_site_id := l_vendor_site_id;
1383: );
1384: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1387: RAISE OKL_API.G_EXCEPTION_ERROR;
1388: END IF;
1389:
1390: l_vendor_site_rec_upd.vendor_site_id := l_vendor_site_id;
1391: l_vendor_site_rec_upd.party_site_id := l_party_site_id;
1406: x_msg_count => l_msg_count,
1407: x_msg_data => l_msg_data
1408: );
1409:
1410: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1407: x_msg_data => l_msg_data
1408: );
1409:
1410: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1415:
1408: );
1409:
1410: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1415:
1416:
1409:
1410: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1415:
1416:
1417: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1413: RAISE OKL_API.G_EXCEPTION_ERROR;
1414: END IF;
1415:
1416:
1417: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1418: x_msg_data => x_msg_data);
1419: EXCEPTION
1420: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1421: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1416:
1417: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1418: x_msg_data => x_msg_data);
1419: EXCEPTION
1420: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1421: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1422: p_api_name => l_api_name,
1423: p_pkg_name => G_PKG_NAME,
1424: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1417: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1418: x_msg_data => x_msg_data);
1419: EXCEPTION
1420: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1421: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1422: p_api_name => l_api_name,
1423: p_pkg_name => G_PKG_NAME,
1424: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1425: x_msg_count => x_msg_count,
1420: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1421: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1422: p_api_name => l_api_name,
1423: p_pkg_name => G_PKG_NAME,
1424: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1425: x_msg_count => x_msg_count,
1426: x_msg_data => x_msg_data,
1427: p_api_type => G_API_TYPE);
1428:
1425: x_msg_count => x_msg_count,
1426: x_msg_data => x_msg_data,
1427: p_api_type => G_API_TYPE);
1428:
1429: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1430: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1431: p_api_name => l_api_name,
1432: p_pkg_name => G_PKG_NAME,
1433: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1426: x_msg_data => x_msg_data,
1427: p_api_type => G_API_TYPE);
1428:
1429: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1430: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1431: p_api_name => l_api_name,
1432: p_pkg_name => G_PKG_NAME,
1433: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1434: x_msg_count => x_msg_count,
1429: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1430: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1431: p_api_name => l_api_name,
1432: p_pkg_name => G_PKG_NAME,
1433: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1434: x_msg_count => x_msg_count,
1435: x_msg_data => x_msg_data,
1436: p_api_type => G_API_TYPE);
1437:
1435: x_msg_data => x_msg_data,
1436: p_api_type => G_API_TYPE);
1437:
1438: WHEN OTHERS THEN
1439: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1440: p_api_name => l_api_name,
1441: p_pkg_name => G_PKG_NAME,
1442: p_exc_name => 'OTHERS',
1443: x_msg_count => x_msg_count,
1466: l_vendor_id NUMBER;
1467: l_party_id NUMBER;
1468: l_party_site_id NUMBER;
1469: l_org_id NUMBER;
1470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1471: l_init_msg_list VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
1472: l_msg_count NUMBER;
1473: l_msg_data VARCHAR2(200);
1474:
1467: l_party_id NUMBER;
1468: l_party_site_id NUMBER;
1469: l_org_id NUMBER;
1470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1471: l_init_msg_list VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
1472: l_msg_count NUMBER;
1473: l_msg_data VARCHAR2(200);
1474:
1475:
1473: l_msg_data VARCHAR2(200);
1474:
1475:
1476: BEGIN
1477: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1478: -- call START_ACTIVITY to create savepoint, check compatibility
1479: -- and initialize message list
1480: x_return_status := OKL_API.START_ACTIVITY(
1481: p_api_name => l_api_name,
1476: BEGIN
1477: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1478: -- call START_ACTIVITY to create savepoint, check compatibility
1479: -- and initialize message list
1480: x_return_status := OKL_API.START_ACTIVITY(
1481: p_api_name => l_api_name,
1482: p_pkg_name => G_PKG_NAME,
1483: p_init_msg_list => p_init_msg_list,
1484: l_api_version => l_api_version,
1486: p_api_type => G_API_TYPE,
1487: x_return_status => x_return_status);
1488:
1489: -- check if activity started successfully
1490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1493: RAISE OKL_API.G_EXCEPTION_ERROR;
1494: END IF;
1487: x_return_status => x_return_status);
1488:
1489: -- check if activity started successfully
1490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1493: RAISE OKL_API.G_EXCEPTION_ERROR;
1494: END IF;
1495:
1488:
1489: -- check if activity started successfully
1490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1493: RAISE OKL_API.G_EXCEPTION_ERROR;
1494: END IF;
1495:
1496: l_party_site_id := party_site_id;
1489: -- check if activity started successfully
1490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1493: RAISE OKL_API.G_EXCEPTION_ERROR;
1494: END IF;
1495:
1496: l_party_site_id := party_site_id;
1497: l_org_id := p_org_id;
1504: x_msg_data => l_msg_data ,
1505: x_vendor_id => l_vendor_id,
1506: x_party_id => l_party_id);
1507:
1508: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1511: RAISE OKL_API.G_EXCEPTION_ERROR;
1512: END IF;
1505: x_vendor_id => l_vendor_id,
1506: x_party_id => l_party_id);
1507:
1508: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1511: RAISE OKL_API.G_EXCEPTION_ERROR;
1512: END IF;
1513:
1506: x_party_id => l_party_id);
1507:
1508: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1511: RAISE OKL_API.G_EXCEPTION_ERROR;
1512: END IF;
1513:
1514: create_pay_site(
1507:
1508: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1509: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1510: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1511: RAISE OKL_API.G_EXCEPTION_ERROR;
1512: END IF;
1513:
1514: create_pay_site(
1515: party_id => l_party_id,
1521: x_msg_count => l_msg_count,
1522: x_msg_data => l_msg_data
1523: );
1524:
1525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1522: x_msg_data => l_msg_data
1523: );
1524:
1525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1530:
1523: );
1524:
1525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1530:
1531: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1524:
1525: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1530:
1531: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1532: x_msg_data => x_msg_data);
1527: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1528: RAISE OKL_API.G_EXCEPTION_ERROR;
1529: END IF;
1530:
1531: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1532: x_msg_data => x_msg_data);
1533:
1534:
1535:
1533:
1534:
1535:
1536: EXCEPTION
1537: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1539: p_api_name => l_api_name,
1540: p_pkg_name => G_PKG_NAME,
1541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1534:
1535:
1536: EXCEPTION
1537: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1539: p_api_name => l_api_name,
1540: p_pkg_name => G_PKG_NAME,
1541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1542: x_msg_count => x_msg_count,
1537: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1539: p_api_name => l_api_name,
1540: p_pkg_name => G_PKG_NAME,
1541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1542: x_msg_count => x_msg_count,
1543: x_msg_data => x_msg_data,
1544: p_api_type => G_API_TYPE);
1545:
1542: x_msg_count => x_msg_count,
1543: x_msg_data => x_msg_data,
1544: p_api_type => G_API_TYPE);
1545:
1546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1548: p_api_name => l_api_name,
1549: p_pkg_name => G_PKG_NAME,
1550: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1543: x_msg_data => x_msg_data,
1544: p_api_type => G_API_TYPE);
1545:
1546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1548: p_api_name => l_api_name,
1549: p_pkg_name => G_PKG_NAME,
1550: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1551: x_msg_count => x_msg_count,
1546: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1548: p_api_name => l_api_name,
1549: p_pkg_name => G_PKG_NAME,
1550: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1551: x_msg_count => x_msg_count,
1552: x_msg_data => x_msg_data,
1553: p_api_type => G_API_TYPE);
1554:
1552: x_msg_data => x_msg_data,
1553: p_api_type => G_API_TYPE);
1554:
1555: WHEN OTHERS THEN
1556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1557: p_api_name => l_api_name,
1558: p_pkg_name => G_PKG_NAME,
1559: p_exc_name => 'OTHERS',
1560: x_msg_count => x_msg_count,