[Home] [Help]
471: l_header_upfront_tax okc_rules_v.rule_information1%TYPE;
472:
473: BEGIN
474:
475: x_return_status := OKL_API.G_RET_STS_SUCCESS;
476:
477: l_chr_id := p_chr_id;
478: l_cle_id := p_cle_id;
479:
482: END IF;
483:
484: -- call START_ACTIVITY to create savepoint, check compatibility
485: -- and initialize message list
486: x_return_status := OKL_API.START_ACTIVITY (
487: l_api_name
488: ,p_init_msg_list
489: ,g_api_type
490: ,x_return_status);
489: ,g_api_type
490: ,x_return_status);
491:
492: -- check if activity started successfully
493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
495: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_ERROR;
497: END IF;
490: ,x_return_status);
491:
492: -- check if activity started successfully
493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
495: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_ERROR;
497: END IF;
498:
491:
492: -- check if activity started successfully
493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
495: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_ERROR;
497: END IF;
498:
499: OPEN l_hdr_upfront_tax(p_chr_id);
492: -- check if activity started successfully
493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
495: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
496: RAISE OKL_API.G_EXCEPTION_ERROR;
497: END IF;
498:
499: OPEN l_hdr_upfront_tax(p_chr_id);
500: FETCH l_hdr_upfront_tax into l_header_upfront_tax;
545: p_rgpv_rec => l_rgpv_rec,
546: x_rgpv_rec => lx_rgpv_rec);
547: l_rgp_id := lx_rgpv_rec.id;
548:
549: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
551: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
552: RAISE OKL_API.G_EXCEPTION_ERROR;
553: END IF;
546: x_rgpv_rec => lx_rgpv_rec);
547: l_rgp_id := lx_rgpv_rec.id;
548:
549: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
551: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
552: RAISE OKL_API.G_EXCEPTION_ERROR;
553: END IF;
554: END IF;
547: l_rgp_id := lx_rgpv_rec.id;
548:
549: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
551: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
552: RAISE OKL_API.G_EXCEPTION_ERROR;
553: END IF;
554: END IF;
555:
548:
549: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
551: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
552: RAISE OKL_API.G_EXCEPTION_ERROR;
553: END IF;
554: END IF;
555:
556: -- Create the sales Tax rule
603: x_msg_data => x_msg_data,
604: p_rulv_rec => l_rulv_rec,
605: x_rulv_rec => lx_rulv_rec);
606:
607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
604: p_rulv_rec => l_rulv_rec,
605: x_rulv_rec => lx_rulv_rec);
606:
607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
612:
605: x_rulv_rec => lx_rulv_rec);
606:
607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
612:
613: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
606:
607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
612:
613: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
614: x_msg_data => x_msg_data);
609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_ERROR;
611: END IF;
612:
613: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
614: x_msg_data => x_msg_data);
615: EXCEPTION
616: WHEN OKL_API.G_EXCEPTION_ERROR THEN
617: IF get_contract_sales_tax_info%ISOPEN THEN
612:
613: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
614: x_msg_data => x_msg_data);
615: EXCEPTION
616: WHEN OKL_API.G_EXCEPTION_ERROR THEN
617: IF get_contract_sales_tax_info%ISOPEN THEN
618: CLOSE get_contract_sales_tax_info;
619: END IF;
620: IF l_hdr_upfront_tax%ISOPEN THEN
624: CLOSE l_asset_tax_rule_group;
625: END IF;
626:
627:
628: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
629: p_api_name => l_api_name,
630: p_pkg_name => g_pkg_name,
631: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
632: x_msg_count => x_msg_count,
632: x_msg_count => x_msg_count,
633: x_msg_data => x_msg_data,
634: p_api_type => g_api_type);
635:
636: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
637: IF get_contract_sales_tax_info%ISOPEN THEN
638: CLOSE get_contract_sales_tax_info;
639: END IF;
640: IF l_hdr_upfront_tax%ISOPEN THEN
642: END IF;
643: IF l_asset_tax_rule_group%ISOPEN THEN
644: CLOSE l_asset_tax_rule_group;
645: END IF;
646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
647: p_api_name => l_api_name,
648: p_pkg_name => g_pkg_name,
649: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
650: x_msg_count => x_msg_count,
657: END IF;
658: IF l_asset_tax_rule_group%ISOPEN THEN
659: CLOSE l_asset_tax_rule_group;
660: END IF;
661: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
662: p_api_name => l_api_name,
663: p_pkg_name => g_pkg_name,
664: p_exc_name => 'OTHERS',
665: x_msg_count => x_msg_count,
772: IF (G_DEBUG_ENABLED = 'Y') THEN
773: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
774: END IF;
775:
776: x_return_status := OKL_API.G_RET_STS_SUCCESS;
777:
778: -- Bug 5129446
779: /*
780: l_upfront_tax_yn := 'N';
789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sync here1');
790: END IF;
791: -- call START_ACTIVITY to create savepoint, check compatibility
792: -- and initialize message list
793: x_return_status := OKL_API.START_ACTIVITY (
794: l_api_name
795: ,p_init_msg_list
796: ,g_api_type
797: ,x_return_status);
796: ,g_api_type
797: ,x_return_status);
798:
799: -- check if activity started successfully
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
797: ,x_return_status);
798:
799: -- check if activity started successfully
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
798:
799: -- check if activity started successfully
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
806: -- Bug 5129446
799: -- check if activity started successfully
800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
806: -- Bug 5129446
807: /*
813: CLOSE get_sales_tax_prc_info;
814: l_header_upfront_tax := lv_k_rule_information1;
815:
816: If((l_upfront_tax_yn = 'Y') AND l_header_upfront_tax is null) Then
817: x_return_status := OKL_API.G_RET_STS_ERROR;
818: OKL_API.set_message(
819: p_app_name => G_APP_NAME,
820: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
821: raise OKL_API.G_EXCEPTION_ERROR;
814: l_header_upfront_tax := lv_k_rule_information1;
815:
816: If((l_upfront_tax_yn = 'Y') AND l_header_upfront_tax is null) Then
817: x_return_status := OKL_API.G_RET_STS_ERROR;
818: OKL_API.set_message(
819: p_app_name => G_APP_NAME,
820: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
821: raise OKL_API.G_EXCEPTION_ERROR;
822: End If;
817: x_return_status := OKL_API.G_RET_STS_ERROR;
818: OKL_API.set_message(
819: p_app_name => G_APP_NAME,
820: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
821: raise OKL_API.G_EXCEPTION_ERROR;
822: End If;
823:
824: --If(lv_k_rule_information1 = G_BILLED and (lv_k_rule_information2 is null or lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
825: If((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information2 is null) or (lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
820: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
821: raise OKL_API.G_EXCEPTION_ERROR;
822: End If;
823:
824: --If(lv_k_rule_information1 = G_BILLED and (lv_k_rule_information2 is null or lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
825: If((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information2 is null) or (lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
826:
827: OPEN get_segment_prompt('RULE_INFORMATION2');
828: FETCH get_segment_prompt into l_ak_prompt;
821: raise OKL_API.G_EXCEPTION_ERROR;
822: End If;
823:
824: --If(lv_k_rule_information1 = G_BILLED and (lv_k_rule_information2 is null or lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
825: If((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information2 is null) or (lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
826:
827: OPEN get_segment_prompt('RULE_INFORMATION2');
828: FETCH get_segment_prompt into l_ak_prompt;
829: CLOSE get_segment_prompt;
827: OPEN get_segment_prompt('RULE_INFORMATION2');
828: FETCH get_segment_prompt into l_ak_prompt;
829: CLOSE get_segment_prompt;
830:
831: x_return_status := OKL_API.g_ret_sts_error;
832: OKL_API.SET_MESSAGE( p_app_name => g_app_name
833: , p_msg_name => 'OKL_REQUIRED_VALUE'
834: , p_token1 => 'COL_NAME'
835: , p_token1_value => l_ak_prompt
828: FETCH get_segment_prompt into l_ak_prompt;
829: CLOSE get_segment_prompt;
830:
831: x_return_status := OKL_API.g_ret_sts_error;
832: OKL_API.SET_MESSAGE( p_app_name => g_app_name
833: , p_msg_name => 'OKL_REQUIRED_VALUE'
834: , p_token1 => 'COL_NAME'
835: , p_token1_value => l_ak_prompt
836: );
833: , p_msg_name => 'OKL_REQUIRED_VALUE'
834: , p_token1 => 'COL_NAME'
835: , p_token1_value => l_ak_prompt
836: );
837: raise OKL_API.G_EXCEPTION_ERROR;
838:
839: --ElsIf(lv_k_rule_information1 = G_FINANCED and (lv_k_rule_information3 is null or lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
840: ElsIf((l_upfront_tax_yn) = 'Y' AND (lv_k_rule_information3 is null) or (lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
841:
835: , p_token1_value => l_ak_prompt
836: );
837: raise OKL_API.G_EXCEPTION_ERROR;
838:
839: --ElsIf(lv_k_rule_information1 = G_FINANCED and (lv_k_rule_information3 is null or lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
840: ElsIf((l_upfront_tax_yn) = 'Y' AND (lv_k_rule_information3 is null) or (lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
841:
842: OPEN get_segment_prompt('RULE_INFORMATION3');
843: FETCH get_segment_prompt into l_ak_prompt;
836: );
837: raise OKL_API.G_EXCEPTION_ERROR;
838:
839: --ElsIf(lv_k_rule_information1 = G_FINANCED and (lv_k_rule_information3 is null or lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
840: ElsIf((l_upfront_tax_yn) = 'Y' AND (lv_k_rule_information3 is null) or (lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
841:
842: OPEN get_segment_prompt('RULE_INFORMATION3');
843: FETCH get_segment_prompt into l_ak_prompt;
844: CLOSE get_segment_prompt;
842: OPEN get_segment_prompt('RULE_INFORMATION3');
843: FETCH get_segment_prompt into l_ak_prompt;
844: CLOSE get_segment_prompt;
845:
846: x_return_status := OKL_API.g_ret_sts_error;
847: OKL_API.SET_MESSAGE( p_app_name => g_app_name
848: , p_msg_name => 'OKL_REQUIRED_VALUE'
849: , p_token1 => 'COL_NAME'
850: , p_token1_value => l_ak_prompt
843: FETCH get_segment_prompt into l_ak_prompt;
844: CLOSE get_segment_prompt;
845:
846: x_return_status := OKL_API.g_ret_sts_error;
847: OKL_API.SET_MESSAGE( p_app_name => g_app_name
848: , p_msg_name => 'OKL_REQUIRED_VALUE'
849: , p_token1 => 'COL_NAME'
850: , p_token1_value => l_ak_prompt
851: );
848: , p_msg_name => 'OKL_REQUIRED_VALUE'
849: , p_token1 => 'COL_NAME'
850: , p_token1_value => l_ak_prompt
851: );
852: raise OKL_API.G_EXCEPTION_ERROR;
853:
854: --ElsIf(lv_k_rule_information1 = G_CAPITALIZED and (lv_k_rule_information4 is null or lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
855: ElsIf((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information4 is null) or (lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
856:
850: , p_token1_value => l_ak_prompt
851: );
852: raise OKL_API.G_EXCEPTION_ERROR;
853:
854: --ElsIf(lv_k_rule_information1 = G_CAPITALIZED and (lv_k_rule_information4 is null or lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
855: ElsIf((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information4 is null) or (lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
856:
857: OPEN get_segment_prompt('RULE_INFORMATION4');
858: FETCH get_segment_prompt into l_ak_prompt;
851: );
852: raise OKL_API.G_EXCEPTION_ERROR;
853:
854: --ElsIf(lv_k_rule_information1 = G_CAPITALIZED and (lv_k_rule_information4 is null or lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
855: ElsIf((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information4 is null) or (lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
856:
857: OPEN get_segment_prompt('RULE_INFORMATION4');
858: FETCH get_segment_prompt into l_ak_prompt;
859: CLOSE get_segment_prompt;
857: OPEN get_segment_prompt('RULE_INFORMATION4');
858: FETCH get_segment_prompt into l_ak_prompt;
859: CLOSE get_segment_prompt;
860:
861: x_return_status := OKL_API.g_ret_sts_error;
862: OKL_API.SET_MESSAGE( p_app_name => g_app_name
863: , p_msg_name => 'OKL_REQUIRED_VALUE'
864: , p_token1 => 'COL_NAME'
865: , p_token1_value => l_ak_prompt
858: FETCH get_segment_prompt into l_ak_prompt;
859: CLOSE get_segment_prompt;
860:
861: x_return_status := OKL_API.g_ret_sts_error;
862: OKL_API.SET_MESSAGE( p_app_name => g_app_name
863: , p_msg_name => 'OKL_REQUIRED_VALUE'
864: , p_token1 => 'COL_NAME'
865: , p_token1_value => l_ak_prompt
866: );
863: , p_msg_name => 'OKL_REQUIRED_VALUE'
864: , p_token1 => 'COL_NAME'
865: , p_token1_value => l_ak_prompt
866: );
867: raise OKL_API.G_EXCEPTION_ERROR;
868:
869: End If;
870: */
871:
885: END IF;
886: CLOSE get_contract_sales_tax_info;
887:
888: IF(NOT(nvl(lv_k_rule_information1,'N') = 'Y')) THEN
889: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
890: x_msg_data => x_msg_data);
891: RETURN;
892: END IF;
893:
929: x_msg_data => x_msg_data,
930: p_rulv_rec => l_rulv_rec,
931: x_rulv_rec => lx_rulv_rec);
932:
933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
936: RAISE OKL_API.G_EXCEPTION_ERROR;
937: END IF;
930: p_rulv_rec => l_rulv_rec,
931: x_rulv_rec => lx_rulv_rec);
932:
933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
936: RAISE OKL_API.G_EXCEPTION_ERROR;
937: END IF;
938:
931: x_rulv_rec => lx_rulv_rec);
932:
933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
936: RAISE OKL_API.G_EXCEPTION_ERROR;
937: END IF;
938:
939: END IF;
932:
933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
936: RAISE OKL_API.G_EXCEPTION_ERROR;
937: END IF;
938:
939: END IF;
940:
941: END IF; -- close of rebook check
942:
943: END LOOP;
944:
945: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
946: x_msg_data => x_msg_data);
947: EXCEPTION
948: WHEN OKL_API.G_EXCEPTION_ERROR THEN
949: IF get_contract_sales_tax_info%ISOPEN THEN
944:
945: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
946: x_msg_data => x_msg_data);
947: EXCEPTION
948: WHEN OKL_API.G_EXCEPTION_ERROR THEN
949: IF get_contract_sales_tax_info%ISOPEN THEN
950: CLOSE get_contract_sales_tax_info;
951: END IF;
952: IF get_contract_lines%ISOPEN THEN
954: END IF;
955: IF get_asset_sales_tax_info%ISOPEN THEN
956: CLOSE get_asset_sales_tax_info;
957: END IF;
958: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
959: l_api_name,
960: g_pkg_name,
961: 'OKL_API.G_RET_STS_ERROR',
962: x_msg_count,
957: END IF;
958: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
959: l_api_name,
960: g_pkg_name,
961: 'OKL_API.G_RET_STS_ERROR',
962: x_msg_count,
963: x_msg_data,
964: g_api_type);
965: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
961: 'OKL_API.G_RET_STS_ERROR',
962: x_msg_count,
963: x_msg_data,
964: g_api_type);
965: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
966: IF get_contract_sales_tax_info%ISOPEN THEN
967: CLOSE get_contract_sales_tax_info;
968: END IF;
969: IF get_contract_lines%ISOPEN THEN
974: END IF;
975: IF l_tax_system_info%ISOPEN THEN
976: CLOSE l_tax_system_info;
977: END IF;
978: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
979: l_api_name,
980: g_pkg_name,
981: 'OKL_API.G_RET_STS_UNEXP_ERROR',
982: x_msg_count,
977: END IF;
978: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
979: l_api_name,
980: g_pkg_name,
981: 'OKL_API.G_RET_STS_UNEXP_ERROR',
982: x_msg_count,
983: x_msg_data,
984: g_api_type);
985: WHEN OTHERS THEN
994: END IF;
995: IF l_tax_system_info%ISOPEN THEN
996: CLOSE l_tax_system_info;
997: END IF;
998: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
999: l_api_name,
1000: g_pkg_name,
1001: 'OTHERS',
1002: x_msg_count,
1008: -- Procedure create/update transaction records for pre-booking
1009: -- and pre-rebooking processes
1010: Procedure populate_transaction(
1011: p_api_version IN NUMBER,
1012: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1013: p_contract_id IN okc_k_headers_all_b.id%TYPE,
1014: p_transaction_type IN okl_trx_types_tl.name%TYPE,
1015: p_transaction_id IN okl_trx_contracts_all.id%TYPE DEFAULT NULL,
1016: p_source_trx_id IN okl_trx_contracts_all.source_trx_id%TYPE DEFAULT NULL,
1029:
1030: -- Define variables
1031: l_sysdate DATE;
1032: l_sysdate_trunc DATE;
1033: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1034: l_post_to_gl_yn VARCHAR2(1);
1035:
1036: CURSOR Transaction_Type_csr (p_transaction_type IN okl_trx_types_v.name%TYPE )
1037: IS
1051: AND txh.tcn_type = tcntype;
1052:
1053: i NUMBER;
1054: l_amount NUMBER;
1055: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1056: l_msg_count NUMBER;
1057: l_msg_data VARCHAR2(2000);
1058: l_currency_code okl_txl_cntrct_lns.currency_code%TYPE;
1059: l_fnd_profile VARCHAR2(256);
1115: IF (G_DEBUG_ENABLED = 'Y') THEN
1116: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1117: END IF;
1118:
1119: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1120: l_sysdate := SYSDATE;
1121: l_sysdate_trunc := trunc(SYSDATE);
1122: i := 0;
1123:
1131: -- Get product_id
1132: OPEN Product_csr (p_contract_id);
1133: FETCH Product_csr INTO g_Product_rec;
1134: IF Product_csr%NOTFOUND THEN
1135: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
1136: CLOSE Product_csr;
1137: RAISE Okl_Api.G_EXCEPTION_ERROR;
1138: END IF;
1139: CLOSE Product_csr;
1133: FETCH Product_csr INTO g_Product_rec;
1134: IF Product_csr%NOTFOUND THEN
1135: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
1136: CLOSE Product_csr;
1137: RAISE Okl_Api.G_EXCEPTION_ERROR;
1138: END IF;
1139: CLOSE Product_csr;
1140:
1141: l_chr_curr_code := g_Product_rec.CURRENCY_CODE;
1181: FETCH Product_Params_csr INTO g_Product_Params_rec;
1182:
1183: IF Product_Params_csr%NOTFOUND THEN
1184:
1185: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Product');
1186: CLOSE Product_Params_csr;
1187: RAISE Okl_Api.G_EXCEPTION_ERROR;
1188:
1189: END IF;
1183: IF Product_Params_csr%NOTFOUND THEN
1184:
1185: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Product');
1186: CLOSE Product_Params_csr;
1187: RAISE Okl_Api.G_EXCEPTION_ERROR;
1188:
1189: END IF;
1190:
1191: CLOSE Product_Params_csr;
1193:
1194:
1195:
1196: -- Validate passed parameters
1197: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
1198: OR ( p_contract_id IS NULL ) THEN
1199: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
1200: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1201: RAISE pop_trx_failed;
1195:
1196: -- Validate passed parameters
1197: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
1198: OR ( p_contract_id IS NULL ) THEN
1199: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
1200: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1201: RAISE pop_trx_failed;
1202: END IF;
1203:
1196: -- Validate passed parameters
1197: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
1198: OR ( p_contract_id IS NULL ) THEN
1199: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
1200: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1201: RAISE pop_trx_failed;
1202: END IF;
1203:
1204: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1200: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1201: RAISE pop_trx_failed;
1202: END IF;
1203:
1204: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1205: OR ( p_transaction_type IS NULL ) THEN
1206: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
1207: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_TRX_TYPE_ERROR');
1208: RAISE pop_trx_failed;
1202: END IF;
1203:
1204: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1205: OR ( p_transaction_type IS NULL ) THEN
1206: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
1207: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_TRX_TYPE_ERROR');
1208: RAISE pop_trx_failed;
1209: END IF;
1210:
1203:
1204: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1205: OR ( p_transaction_type IS NULL ) THEN
1206: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
1207: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_TRX_TYPE_ERROR');
1208: RAISE pop_trx_failed;
1209: END IF;
1210:
1211: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1214: -- Check Transaction_Type
1215: OPEN Transaction_Type_csr(l_transaction_type);
1216: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
1217: IF Transaction_Type_csr%NOTFOUND THEN
1218: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,'TRANSACTION_TYPE', l_transaction_type);
1219: /*OKL_API.SET_MESSAGE(
1220: p_app_name => G_APP_NAME,
1221: p_msg_name => G_INVALID_VALUE,
1222: p_token1 => 'COL_NAME',
1215: OPEN Transaction_Type_csr(l_transaction_type);
1216: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
1217: IF Transaction_Type_csr%NOTFOUND THEN
1218: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,'TRANSACTION_TYPE', l_transaction_type);
1219: /*OKL_API.SET_MESSAGE(
1220: p_app_name => G_APP_NAME,
1221: p_msg_name => G_INVALID_VALUE,
1222: p_token1 => 'COL_NAME',
1223: p_token1_value => 'TRANSACTION_TYPE');*/
1236: OPEN fnd_lookups_csr('OKL_TCN_TYPE', l_transaction_type);
1237: FETCH fnd_lookups_csr INTO l_fnd_rec;
1238:
1239: IF fnd_lookups_csr%NOTFOUND THEN
1240: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,'TRANSACTION_TYPE', l_transaction_type);
1241: CLOSE fnd_lookups_csr;
1242: RAISE pop_trx_failed;
1243: END IF;
1244: CLOSE fnd_lookups_csr;
1257: IF (l_transaction_type <> 'Upfront Tax') THEN
1258: OPEN trx_csr(p_contract_id,l_fnd_rec.lookup_code);
1259: FETCH trx_csr INTO l_trx_rec;
1260: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
1261: l_has_trans := OKL_API.G_FALSE;
1262: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1263: Else
1264: l_has_trans := OKL_API.G_TRUE;
1265: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1260: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
1261: l_has_trans := OKL_API.G_FALSE;
1262: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1263: Else
1264: l_has_trans := OKL_API.G_TRUE;
1265: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1266: END IF;
1267: CLOSE trx_csr;
1268: ELSE
1265: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1266: END IF;
1267: CLOSE trx_csr;
1268: ELSE
1269: l_has_trans := OKL_API.G_FALSE;
1270: END IF;
1271: -- gboomina Bug 6487183 - End
1272:
1273: l_trxH_in_rec.khr_id := p_contract_id;
1297: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1298: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1299: END IF;
1300:
1301: If ( l_has_trans = OKL_API.G_FALSE ) Then
1302:
1303: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1304: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1305: END IF;
1313: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1314: END IF;
1315: FETCH fnd_lookups_csr INTO l_fnd_rec;
1316: IF fnd_lookups_csr%NOTFOUND THEN
1317: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1318: CLOSE fnd_lookups_csr;
1319: RAISE pop_trx_failed;
1320: END IF;
1321: CLOSE fnd_lookups_csr;
1335: -- get the contract number
1336: OPEN contract_num_csr(p_contract_id);
1337: FETCH contract_num_csr INTO l_cntrct_number;
1338: CLOSE contract_num_csr;
1339: Okl_Api.set_message(p_app_name => g_app_name,
1340: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1341: p_token1 => 'CONTRACT_NUMBER',
1342: p_token1_value => l_cntrct_number);
1343: RAISE OKL_API.G_EXCEPTION_ERROR;
1339: Okl_Api.set_message(p_app_name => g_app_name,
1340: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1341: p_token1 => 'CONTRACT_NUMBER',
1342: p_token1_value => l_cntrct_number);
1343: RAISE OKL_API.G_EXCEPTION_ERROR;
1344: END IF;
1345: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1346: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
1347: , G_MODULE
1359: ,x_tcnv_rec => l_trxH_out_rec);
1360:
1361: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1362:
1363: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1364: RAISE pop_trx_failed;
1365: END IF;
1366:
1367: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1363: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1364: RAISE pop_trx_failed;
1365: END IF;
1366:
1367: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1368: (l_trxH_out_rec.id IS NULL) ) THEN
1369: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1370: --OKL_API.set_message(G_APP_NAME, 'Header Transaction Id is null or invalid');
1371: RAISE pop_trx_failed;
1365: END IF;
1366:
1367: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1368: (l_trxH_out_rec.id IS NULL) ) THEN
1369: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1370: --OKL_API.set_message(G_APP_NAME, 'Header Transaction Id is null or invalid');
1371: RAISE pop_trx_failed;
1372: END IF;
1373:
1366:
1367: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1368: (l_trxH_out_rec.id IS NULL) ) THEN
1369: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1370: --OKL_API.set_message(G_APP_NAME, 'Header Transaction Id is null or invalid');
1371: RAISE pop_trx_failed;
1372: END IF;
1373:
1374: l_fnd_rec := null;
1407:
1408: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1409: FETCH fnd_lookups_csr INTO l_fnd_rec;
1410: IF fnd_lookups_csr%NOTFOUND THEN
1411: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1412: --Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot Find Transaction Status');
1413: CLOSE fnd_lookups_csr;
1414: RAISE pop_trx_failed;
1415: END IF;
1408: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1409: FETCH fnd_lookups_csr INTO l_fnd_rec;
1410: IF fnd_lookups_csr%NOTFOUND THEN
1411: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1412: --Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot Find Transaction Status');
1413: CLOSE fnd_lookups_csr;
1414: RAISE pop_trx_failed;
1415: END IF;
1416: CLOSE fnd_lookups_csr;
1429: ,x_msg_data => x_msg_data
1430: ,p_tcnv_rec => l_upd_trxH_rec
1431: ,x_tcnv_rec => lx_upd_trxH_rec);
1432:
1433: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1434: RAISE pop_trx_failed;
1435: END IF;
1436:
1437: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1433: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1434: RAISE pop_trx_failed;
1435: END IF;
1436:
1437: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1438: (lx_upd_trxH_rec.id IS NULL) ) THEN
1439: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1440: --OKL_API.set_message(G_APP_NAME, 'TRANSACTION_ID Missing');
1441: RAISE pop_trx_failed;
1435: END IF;
1436:
1437: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1438: (lx_upd_trxH_rec.id IS NULL) ) THEN
1439: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1440: --OKL_API.set_message(G_APP_NAME, 'TRANSACTION_ID Missing');
1441: RAISE pop_trx_failed;
1442: END IF;
1443:
1436:
1437: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1438: (lx_upd_trxH_rec.id IS NULL) ) THEN
1439: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1440: --OKL_API.set_message(G_APP_NAME, 'TRANSACTION_ID Missing');
1441: RAISE pop_trx_failed;
1442: END IF;
1443:
1444: -- outbound transaction id
1463: okl_debug_pub.logmessage('OKL: POP TRX : END');
1464:
1465: Exception
1466: when pop_trx_failed then
1467: x_return_status := OKL_API.G_RET_STS_ERROR;
1468:
1469: END populate_transaction;
1470:
1471:
1611: END get_upfront_tax;
1612:
1613: PROCEDURE update_fee(
1614: p_api_version IN NUMBER,
1615: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1616: p_contract_id IN NUMBER,
1617: p_transaction_id IN NUMBER,
1618: p_fee_line_id IN NUMBER,
1619: p_required_feetype IN VARCHAR2,
1860: IF (G_DEBUG_ENABLED = 'Y') THEN
1861: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1862: END IF;
1863:
1864: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1865:
1866: -- If upfront tax is 'FINANCED'
1867: IF (p_required_feetype = 'FINANCE') THEN
1868: l_upfront_tax_fee_amount := get_financed_tax (p_contract_id, p_default_feetype);
1906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: after OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '||x_return_status);
1907: END IF;
1908:
1909: -- Check if the call was successful
1910: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1911: RAISE update_fee_exception;
1912: END IF;
1913: END IF;
1914:
1958: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: after OKL_MAINTAIN_FEE_PVT.update_fee_type: x_return_status '||x_return_status);
1959: END IF;
1960:
1961: -- Check if the call was successful
1962: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1963: RAISE update_fee_exception;
1964: END IF;
1965: END IF;
1966:
1978: OPEN get_asset_tax_amt_csr(j.id);
1979: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
1980: IF get_asset_tax_amt_csr%NOTFOUND THEN
1981:
1982: OKL_API.set_message(G_APP_NAME, 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
1983: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1984: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
1985: END IF;
1986: CLOSE get_asset_tax_amt_csr;
2068: -- get asset tax amount
2069: OPEN get_asset_tax_amt_csr(j.id);
2070: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2071: IF get_asset_tax_amt_csr%NOTFOUND THEN
2072: OKL_API.set_message( p_app_name => G_APP_NAME,
2073: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2076: END IF;
2160: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2161: END IF;
2162:
2163: -- Check if the call was successful
2164: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2165: RAISE update_fee_exception;
2166: End If;
2167: END IF;
2168:
2185: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2186: END IF;
2187:
2188: -- Check if the call was successful
2189: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2190: RAISE update_fee_exception;
2191: End If;
2192: END IF;
2193:
2209: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2210: END IF;
2211:
2212: -- Check if the call was successful
2213: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2214: RAISE update_fee_exception;
2215: End If;
2216: END IF;
2217:
2246: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2247: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2248: END IF;
2249:
2250: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2251: RAISE update_fee_exception;
2252: End If;
2253: END IF;
2254: END IF;
2254: END IF;
2255:
2256: EXCEPTION
2257: when update_fee_exception then
2258: x_return_status := OKL_API.G_RET_STS_ERROR;
2259:
2260: END update_fee;
2261:
2262: PROCEDURE process_tax_override(
2260: END update_fee;
2261:
2262: PROCEDURE process_tax_override(
2263: p_api_version IN NUMBER,
2264: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2265: p_chr_id IN NUMBER,
2266: p_transaction_id IN NUMBER,
2267: x_return_status OUT NOCOPY VARCHAR2,
2268: x_msg_count OUT NOCOPY NUMBER,
2297: IF (G_DEBUG_ENABLED = 'Y') THEN
2298: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2299: END IF;
2300:
2301: x_return_status := OKL_API.START_ACTIVITY(
2302: p_api_name => l_api_name,
2303: p_pkg_name => g_pkg_name,
2304: p_init_msg_list => p_init_msg_list,
2305: l_api_version => l_api_version,
2307: p_api_type => G_API_TYPE,
2308: x_return_status => x_return_status);
2309:
2310: -- check if activity started successfully
2311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2314: RAISE OKL_API.G_EXCEPTION_ERROR;
2315: END IF;
2308: x_return_status => x_return_status);
2309:
2310: -- check if activity started successfully
2311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2314: RAISE OKL_API.G_EXCEPTION_ERROR;
2315: END IF;
2316:
2309:
2310: -- check if activity started successfully
2311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2314: RAISE OKL_API.G_EXCEPTION_ERROR;
2315: END IF;
2316:
2317: OPEN rule_info_csr(p_contract_id => p_chr_id);
2310: -- check if activity started successfully
2311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2314: RAISE OKL_API.G_EXCEPTION_ERROR;
2315: END IF;
2316:
2317: OPEN rule_info_csr(p_contract_id => p_chr_id);
2318: FETCH rule_info_csr INTO l_rule_info_rec;
2316:
2317: OPEN rule_info_csr(p_contract_id => p_chr_id);
2318: FETCH rule_info_csr INTO l_rule_info_rec;
2319: IF rule_info_csr%NOTFOUND THEN
2320: OKL_API.set_message( p_app_name => G_APP_NAME,
2321: p_msg_name => 'OKL_QA_ST_MISSING');
2322: CLOSE rule_info_csr;
2323: RAISE OKL_API.G_EXCEPTION_ERROR;
2324: END IF;
2319: IF rule_info_csr%NOTFOUND THEN
2320: OKL_API.set_message( p_app_name => G_APP_NAME,
2321: p_msg_name => 'OKL_QA_ST_MISSING');
2322: CLOSE rule_info_csr;
2323: RAISE OKL_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: CLOSE rule_info_csr;
2326:
2327: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2358: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2359: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: After OKL_LA_SALES_TAX_PVT.update_fee: x_return_status '||x_return_status);
2360: END IF;
2361:
2362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2359: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: After OKL_LA_SALES_TAX_PVT.update_fee: x_return_status '||x_return_status);
2360: END IF;
2361:
2362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2367:
2360: END IF;
2361:
2362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2367:
2368: OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee(
2361:
2362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_ERROR;
2366: END IF;
2367:
2368: OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee(
2369: p_api_version => p_api_version,
2376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: After OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee: x_return_status '||x_return_status);
2378: END IF;
2379:
2380: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2381: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR;
2382: ELSE
2383: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
2384: END IF;
2392: p_khr_id => p_chr_id ,
2393: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX ,
2394: p_progress_status => l_upfront_tax_prog_sts);
2395:
2396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2399: RAISE OKL_API.G_EXCEPTION_ERROR;
2400: END IF;
2393: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX ,
2394: p_progress_status => l_upfront_tax_prog_sts);
2395:
2396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2399: RAISE OKL_API.G_EXCEPTION_ERROR;
2400: END IF;
2401: END IF;
2394: p_progress_status => l_upfront_tax_prog_sts);
2395:
2396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2399: RAISE OKL_API.G_EXCEPTION_ERROR;
2400: END IF;
2401: END IF;
2402:
2395:
2396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2399: RAISE OKL_API.G_EXCEPTION_ERROR;
2400: END IF;
2401: END IF;
2402:
2403: --Update Contract Status to Passed
2409: x_msg_data => x_msg_data,
2410: p_khr_status => 'PASSED',
2411: p_chr_id => p_chr_id);
2412:
2413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2410: p_khr_status => 'PASSED',
2411: p_chr_id => p_chr_id);
2412:
2413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2411: p_chr_id => p_chr_id);
2412:
2413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2419: --call to cascade status on to lines
2412:
2413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2416: RAISE OKL_API.G_EXCEPTION_ERROR;
2417: END IF;
2418:
2419: --call to cascade status on to lines
2420: OKL_CONTRACT_STATUS_PUB.cascade_lease_status
2424: x_msg_count => x_msg_count,
2425: x_msg_data => x_msg_data,
2426: p_chr_id => p_chr_id);
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2425: x_msg_data => x_msg_data,
2426: p_chr_id => p_chr_id);
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433:
2426: p_chr_id => p_chr_id);
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433:
2434: --Update status of Price Contract process to Pending
2427:
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433:
2434: --Update status of Price Contract process to Pending
2435: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
2441: p_khr_id => p_chr_id ,
2442: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
2443: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2444:
2445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2448: RAISE OKL_API.G_EXCEPTION_ERROR;
2449: END IF;
2442: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
2443: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2444:
2445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2448: RAISE OKL_API.G_EXCEPTION_ERROR;
2449: END IF;
2450:
2443: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2444:
2445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2448: RAISE OKL_API.G_EXCEPTION_ERROR;
2449: END IF;
2450:
2451: --Update status of Submit Contract process to Pending
2444:
2445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2448: RAISE OKL_API.G_EXCEPTION_ERROR;
2449: END IF;
2450:
2451: --Update status of Submit Contract process to Pending
2452: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
2458: p_khr_id => p_chr_id ,
2459: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
2460: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2461:
2462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2465: RAISE OKL_API.G_EXCEPTION_ERROR;
2466: END IF;
2459: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
2460: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2461:
2462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2465: RAISE OKL_API.G_EXCEPTION_ERROR;
2466: END IF;
2467:
2460: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2461:
2462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2465: RAISE OKL_API.G_EXCEPTION_ERROR;
2466: END IF;
2467:
2468: EXCEPTION
2461:
2462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2465: RAISE OKL_API.G_EXCEPTION_ERROR;
2466: END IF;
2467:
2468: EXCEPTION
2469:
2466: END IF;
2467:
2468: EXCEPTION
2469:
2470: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2471: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2472: p_api_name => l_api_name,
2473: p_pkg_name => g_pkg_name,
2474: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2467:
2468: EXCEPTION
2469:
2470: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2471: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2472: p_api_name => l_api_name,
2473: p_pkg_name => g_pkg_name,
2474: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2475: x_msg_count => x_msg_count,
2470: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2471: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2472: p_api_name => l_api_name,
2473: p_pkg_name => g_pkg_name,
2474: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2475: x_msg_count => x_msg_count,
2476: x_msg_data => x_msg_data,
2477: p_api_type => g_api_type);
2478:
2475: x_msg_count => x_msg_count,
2476: x_msg_data => x_msg_data,
2477: p_api_type => g_api_type);
2478:
2479: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2480: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2481: p_api_name => l_api_name,
2482: p_pkg_name => g_pkg_name,
2483: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2476: x_msg_data => x_msg_data,
2477: p_api_type => g_api_type);
2478:
2479: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2480: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2481: p_api_name => l_api_name,
2482: p_pkg_name => g_pkg_name,
2483: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2484: x_msg_count => x_msg_count,
2479: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2480: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2481: p_api_name => l_api_name,
2482: p_pkg_name => g_pkg_name,
2483: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2484: x_msg_count => x_msg_count,
2485: x_msg_data => x_msg_data,
2486: p_api_type => g_api_type);
2487:
2485: x_msg_data => x_msg_data,
2486: p_api_type => g_api_type);
2487:
2488: WHEN OTHERS THEN
2489: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2490: p_api_name => l_api_name,
2491: p_pkg_name => g_pkg_name,
2492: p_exc_name => 'OTHERS',
2493: x_msg_count => x_msg_count,
2499:
2500: -- Procedure to create Financed fee
2501: Procedure create_fee(
2502: p_api_version IN NUMBER,
2503: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2504: p_contract_id IN NUMBER,
2505: p_transaction_id IN NUMBER,
2506: p_default_feetype IN VARCHAR2,
2507: p_required_feetype IN VARCHAR2,
2640: IF (G_DEBUG_ENABLED = 'Y') THEN
2641: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2642: END IF;
2643:
2644: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2645:
2646: -- If upfront tax is 'FINANCED'
2647: If (p_required_feetype = 'FINANCE') THEN
2648:
2664: FETCH check_fee_csr INTO l_fee_line_id;
2665: -- R12B Authoring OA Migration
2666:
2667: IF check_fee_csr%NOTFOUND THEN
2668: l_finance_fee_exists := OKL_API.G_FALSE;
2669: Else
2670: l_finance_fee_exists := OKL_API.G_TRUE;
2671: END IF;
2672: CLOSE check_fee_csr;
2666:
2667: IF check_fee_csr%NOTFOUND THEN
2668: l_finance_fee_exists := OKL_API.G_FALSE;
2669: Else
2670: l_finance_fee_exists := OKL_API.G_TRUE;
2671: END IF;
2672: CLOSE check_fee_csr;
2673:
2674: -- Create Fee only if the amount is > 0 and Sale Tax Fee does not
2676: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: FINANCE segment: before IF condition');
2678: END IF;
2679: If ((l_financed_amount > 0) AND
2680: (l_finance_fee_exists = OKL_API.G_FALSE)) THEN
2681:
2682: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2683: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before stream_csr ');
2684: END IF;
2685: -- get item_id1 value
2686: OPEN stream_csr(p_stream_id);
2687: FETCH stream_csr INTO l_item_name;
2688: IF stream_csr%NOTFOUND THEN
2689: OKL_API.set_message(
2690: p_app_name => G_APP_NAME,
2691: p_msg_name => 'OKL_LA_ST_STREAM_ERROR',
2692: p_token1 => 'FEE_TYPE',
2693: p_token1_value => p_required_feetype);
2703: -- get contract dates for fee effective date
2704: OPEN contract_dates_csr;
2705: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2706: IF contract_dates_csr%NOTFOUND THEN
2707: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
2708: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
2709: CLOSE contract_dates_csr;
2710: RAISE create_fee_exception;
2711: END IF;
2704: OPEN contract_dates_csr;
2705: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2706: IF contract_dates_csr%NOTFOUND THEN
2707: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
2708: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
2709: CLOSE contract_dates_csr;
2710: RAISE create_fee_exception;
2711: END IF;
2712: CLOSE contract_dates_csr;
2733: p_fee_types_rec => l_fee_types_rec,
2734: x_fee_types_rec => lx_fee_types_rec
2735: );
2736: -- Check if the call was successful
2737: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2738: RAISE create_fee_exception;
2739: End If;
2740:
2741:
2750: -- get asset tax amount
2751: OPEN get_asset_tax_amt_csr(j.id);
2752: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2753: IF get_asset_tax_amt_csr%NOTFOUND THEN
2754: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset Tax Amount cannot be derived');
2755: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
2756: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2757: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
2758: END IF;
2751: OPEN get_asset_tax_amt_csr(j.id);
2752: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2753: IF get_asset_tax_amt_csr%NOTFOUND THEN
2754: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset Tax Amount cannot be derived');
2755: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
2756: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2757: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
2758: END IF;
2759: CLOSE get_asset_tax_amt_csr;
2788: -- get asset tax amount
2789: OPEN get_asset_tax_amt_csr(j.id);
2790: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2791: IF get_asset_tax_amt_csr%NOTFOUND THEN
2792: OKL_API.set_message( p_app_name => G_APP_NAME,
2793: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2794: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2795: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2796: END IF;
2844: END IF;
2845: END LOOP;
2846:
2847: -- Check if the call was successful
2848: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2849: RAISE create_fee_exception;
2850: End If;
2851:
2852: -- Following Segment is for creating Expense Item for Financed Fee
2870: x_msg_data => x_msg_data,
2871: p_rgpv_rec => l_rgpv_rec,
2872: x_rgpv_rec => lx_rgpv_rec);
2873:
2874: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2875: RAISE create_fee_exception;
2876: End If;
2877:
2878: -- Populate Rule Values for Expenses
2906: x_msg_data => x_msg_data,
2907: p_rulv_tbl => l_rulv_tbl,
2908: x_rulv_tbl => lx_rulv_tbl);
2909:
2910: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2911: RAISE create_fee_exception;
2912: End If;
2913:
2914: -- R12B Authoring OA Migration
2911: RAISE create_fee_exception;
2912: End If;
2913:
2914: -- R12B Authoring OA Migration
2915: Elsif (l_finance_fee_exists = OKL_API.G_TRUE) Then
2916:
2917: OKL_LA_SALES_TAX_PVT.update_fee
2918: (p_api_version => p_api_version,
2919: p_init_msg_list => p_init_msg_list,
2925: x_return_status => x_return_status,
2926: x_msg_count => x_msg_count,
2927: x_msg_data => x_msg_data);
2928:
2929: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2930: RAISE create_fee_exception;
2931: End If;
2932: -- R12B Authoring OA Migration
2933:
2958: -- R12B Authoring OA Migration
2959: FETCH check_fee_csr INTO l_fee_line_id;
2960: -- R12B Authoring OA Migration
2961: IF check_fee_csr%NOTFOUND THEN
2962: l_capitalized_fee_exists := OKL_API.G_FALSE;
2963: Else
2964: l_capitalized_fee_exists := OKL_API.G_TRUE;
2965: END IF;
2966: CLOSE check_fee_csr;
2960: -- R12B Authoring OA Migration
2961: IF check_fee_csr%NOTFOUND THEN
2962: l_capitalized_fee_exists := OKL_API.G_FALSE;
2963: Else
2964: l_capitalized_fee_exists := OKL_API.G_TRUE;
2965: END IF;
2966: CLOSE check_fee_csr;
2967:
2968: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2969: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before IF condition');
2970: END IF;
2971: -- Create Fee only if the amount is > 0 and fee does not exist
2972: If ((l_capitalized_amount > 0) AND
2973: (l_capitalized_fee_exists = OKL_API.G_FALSE)) THEN
2974:
2975: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2976: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before stream_csr ');
2977: END IF;
2979: OPEN stream_csr(p_stream_id);
2980: FETCH stream_csr INTO l_item_name;
2981:
2982: IF stream_csr%NOTFOUND THEN
2983: OKL_API.set_message(
2984: p_app_name => G_APP_NAME,
2985: p_msg_name => 'OKL_LA_ST_STREAM_ERROR',
2986: p_token1 => 'FEE_TYPE',
2987: p_token1_value => p_required_feetype);
2996: -- get contract dates for fee effective date
2997: OPEN contract_dates_csr;
2998: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2999: IF contract_dates_csr%NOTFOUND THEN
3000: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
3001: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
3002: CLOSE contract_dates_csr;
3003: RAISE create_fee_exception;
3004: END IF;
2997: OPEN contract_dates_csr;
2998: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2999: IF contract_dates_csr%NOTFOUND THEN
3000: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
3001: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
3002: CLOSE contract_dates_csr;
3003: RAISE create_fee_exception;
3004: END IF;
3005: CLOSE contract_dates_csr;
3026: p_fee_types_rec => l_fee_types_rec,
3027: x_fee_types_rec => lx_fee_types_rec
3028: );
3029: -- Check if the call was successful
3030: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
3031: RAISE create_fee_exception;
3032: End If;
3033:
3034: IF (p_default_feetype = 'CAPITALIZE') THEN
3041: END IF;
3042: OPEN get_asset_tax_amt_csr(j.id);
3043: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
3044: IF get_asset_tax_amt_csr%NOTFOUND THEN
3045: OKL_API.set_message( p_app_name => G_APP_NAME,
3046: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
3047: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3048: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
3049: END IF;
3080: -- get asset tax amount
3081: OPEN get_asset_tax_amt_csr(j.id);
3082: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
3083: IF get_asset_tax_amt_csr%NOTFOUND THEN
3084: OKL_API.set_message( p_app_name => G_APP_NAME,
3085: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
3086: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
3087: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
3088: END IF;
3122: p_line_item_tbl => l_line_item_tbl,
3123: x_line_item_tbl => lx_line_item_tbl);
3124:
3125: -- Check if the call was successful
3126: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
3127: RAISE create_fee_exception;
3128: End If;
3129:
3130: -- R12B Authoring OA Migration
3127: RAISE create_fee_exception;
3128: End If;
3129:
3130: -- R12B Authoring OA Migration
3131: Elsif (l_capitalized_fee_exists = OKL_API.G_TRUE) Then
3132:
3133: OKL_LA_SALES_TAX_PVT.update_fee
3134: (p_api_version => p_api_version,
3135: p_init_msg_list => p_init_msg_list,
3141: x_return_status => x_return_status,
3142: x_msg_count => x_msg_count,
3143: x_msg_data => x_msg_data);
3144:
3145: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
3146: RAISE create_fee_exception;
3147: End If;
3148: -- R12B Authoring OA Migration
3149:
3152: End If;
3153:
3154: Exception
3155: when create_fee_exception then
3156: x_return_status := OKL_API.G_RET_STS_ERROR;
3157:
3158: END create_fee;
3159:
3160: -- R12 - START
3249: BEGIN
3250:
3251: okl_debug_pub.logmessage('OKL: populate_account_data : START');
3252:
3253: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3254:
3255: l_acc_gen_primary_key_tbl(1).source_table := 'FINANCIALS_SYSTEM_PARAMETERS';
3256: OPEN fnd_pro_csr;
3257: FETCH fnd_pro_csr INTO fnd_pro_rec;
3308:
3309:
3310: okl_debug_pub.logmessage('OKL: populate_account_data : OKL_SECURITIZATION_PVT : '||x_return_status);
3311:
3312: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3313: THEN
3314: RAISE account_data_exception;
3315: END IF;
3316:
3364:
3365: EXCEPTION
3366: WHEN account_data_exception
3367: THEN
3368: x_return_status := OKL_API.G_RET_STS_ERROR;
3369:
3370: END populate_account_data;
3371:
3372:
3775: BEGIN
3776:
3777: okl_debug_pub.logmessage('OKL: UPF A/C : START');
3778:
3779: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3780:
3781: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3782: THEN
3783: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3789: FETCH acct_opt_csr INTO l_acct_opt;
3790:
3791: IF acct_opt_csr%NOTFOUND
3792: THEN
3793: OKL_API.set_message( p_app_name => G_APP_NAME,
3794: p_msg_name => 'OKL_LA_ST_ACCT_ERROR');
3795: CLOSE acct_opt_csr;
3796: RAISE upfront_tax_acct_exception;
3797: END IF;
3806: END IF;
3807:
3808: IF (l_acct_opt IS NULL)
3809: THEN
3810: OKL_API.set_message( p_app_name => G_APP_NAME,
3811: p_msg_name => 'OKL_LA_ST_ACCT_ERROR');
3812: RAISE upfront_tax_acct_exception;
3813: END IF;
3814:
3833: FETCH fnd_lookups_csr INTO l_fnd_rec;
3834:
3835: IF fnd_lookups_csr%NOTFOUND
3836: THEN
3837: Okl_Api.SET_MESSAGE( G_APP_NAME
3838: ,G_INVALID_VALUE
3839: ,'TRANSACTION_TYPE'
3840: ,'Upfront Tax');
3841: CLOSE fnd_lookups_csr;
3862: x_primary_sty_id => l_financed_sty_id);
3863:
3864: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_FINANCED : '||l_financed_sty_id);
3865:
3866: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3867: THEN
3868: RAISE upfront_tax_acct_exception;
3869: End If;
3870:
3882: x_primary_sty_id => l_capitalized_sty_id);
3883:
3884: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_CAPITALIZED : '||l_capitalized_sty_id);
3885:
3886: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3887: RAISE upfront_tax_acct_exception;
3888: End If;
3889:
3890: --Bug# 6619311
3902: x_primary_sty_id => l_billed_sty_id);
3903:
3904: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_BILLED : '||l_billed_sty_id);
3905:
3906: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3907: RAISE upfront_tax_acct_exception;
3908: End If;
3909: --End Bug# 6619311
3910:
4032: x_msg_data => x_msg_data);
4033:
4034: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
4035: -- check transaction creation was successful
4036: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4037: THEN
4038: RAISE upfront_tax_acct_exception;
4039: End If;
4040:
4092:
4093: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
4094:
4095: -- check transaction line creation was successful
4096: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4097: THEN
4098: RAISE upfront_tax_acct_exception;
4099: END IF;
4100:
4113:
4114: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
4115:
4116: -- check transaction line creation was successful
4117: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4118: THEN
4119: RAISE upfront_tax_acct_exception;
4120: END IF;
4121:
4139: x_template_tbl => l_template_out_tbl,
4140: x_amount_tbl => l_amount_tbl,
4141: p_trx_header_id => l_trxh_out_rec.id);
4142:
4143: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4144: THEN
4145: RAISE upfront_tax_acct_exception;
4146: END IF;
4147:
4155: ,P_TCLV_TBL => x_tclv_tbl
4156: ,p_ctxt_val_tbl => l_ctxt_tbl
4157: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4158:
4159: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4162: RAISE Okl_Api.G_EXCEPTION_ERROR;
4163: END IF;
4156: ,p_ctxt_val_tbl => l_ctxt_tbl
4157: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4158:
4159: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4162: RAISE Okl_Api.G_EXCEPTION_ERROR;
4163: END IF;
4164:
4157: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4158:
4159: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4162: RAISE Okl_Api.G_EXCEPTION_ERROR;
4163: END IF;
4164:
4165: END IF;
4158:
4159: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4160: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4161: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4162: RAISE Okl_Api.G_EXCEPTION_ERROR;
4163: END IF;
4164:
4165: END IF;
4166: --Bug# 7506009
4273:
4274: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
4275:
4276: -- check transaction creation was successful
4277: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4278: THEN
4279: RAISE upfront_tax_acct_exception;
4280: END IF;
4281:
4330:
4331: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
4332:
4333: -- check transaction line creation was successful
4334: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4335: THEN
4336: RAISE upfront_tax_acct_exception;
4337: END IF;
4338:
4351:
4352: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
4353:
4354: -- check transaction line creation was successful
4355: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4356: THEN
4357: RAISE upfront_tax_acct_exception;
4358: END IF;
4359:
4382: p_trx_header_id => l_trxh_out_rec.id);
4383:
4384: okl_debug_pub.logmessage('OKL: UPF A/C : after calling okl_account_dist_pvt : '|| x_return_status);
4385:
4386: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4387: THEN
4388: RAISE upfront_tax_acct_exception;
4389: END IF;
4390:
4398: ,P_TCLV_TBL => x_tclv_tbl
4399: ,p_ctxt_val_tbl => l_ctxt_tbl
4400: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4401:
4402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4405: RAISE Okl_Api.G_EXCEPTION_ERROR;
4406: END IF;
4399: ,p_ctxt_val_tbl => l_ctxt_tbl
4400: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4401:
4402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4405: RAISE Okl_Api.G_EXCEPTION_ERROR;
4406: END IF;
4407:
4400: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4401:
4402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4405: RAISE Okl_Api.G_EXCEPTION_ERROR;
4406: END IF;
4407:
4408: END IF;
4401:
4402: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4403: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4405: RAISE Okl_Api.G_EXCEPTION_ERROR;
4406: END IF;
4407:
4408: END IF;
4409: --Bug# 7506009
4414:
4415: EXCEPTION
4416: WHEN upfront_tax_acct_exception
4417: THEN
4418: x_return_status := OKL_API.G_RET_STS_ERROR;
4419:
4420: END create_upfront_tax_accounting;
4421:
4422: -- R12 - END
4424:
4425: -- Process to process pre booking tax lines
4426: Procedure process_prebook_tax(
4427: p_api_version IN NUMBER,
4428: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
4429: p_contract_id IN NUMBER,
4430: p_transaction_id IN NUMBER,
4431: p_transaction_type IN VARCHAR2,
4432: x_return_status OUT NOCOPY VARCHAR2,
4439: l_asset_count NUMBER := 0;
4440: l_stream_id NUMBER := 0;
4441: l_fee_type OKC_RULES_B.rule_information1%TYPE;
4442: l_prev_fee_type OKC_RULES_B.rule_information1%TYPE;
4443: l_multiple_fee_type VARCHAR2(1) := Okl_Api.G_FALSE;
4444: pre_book_exception exception;
4445:
4446: -- Cursor to check if sales tax fee exists
4447: -- Bug# 6512668: Exclude fee line in Abandoned status
4464: IF (G_DEBUG_ENABLED = 'Y') THEN
4465: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4466: END IF;
4467:
4468: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4469: -- Get rule value to identify upfront tax type
4470:
4471: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4472: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: START ');
4474:
4475: OPEN rule_info_csr(p_contract_id);
4476: FETCH rule_info_csr INTO rule_info_csr_rec;
4477: IF rule_info_csr%NOTFOUND THEN
4478: OKL_API.set_message( p_app_name => G_APP_NAME,
4479: p_msg_name => 'OKL_QA_ST_MISSING');
4480: CLOSE rule_info_csr;
4481: RAISE pre_book_exception;
4482: END IF;
4507: x_return_status => x_return_status,
4508: x_msg_count => x_msg_count,
4509: x_msg_data => x_msg_data);
4510: -- Check if the call was successful
4511: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
4512: RAISE pre_book_exception;
4513: End If;
4514:
4515: -- R12B Authoring OA Migration
4545: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4546: END IF;
4547:
4548: -- Check if the call was successful
4549: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4550: RAISE pre_book_exception;
4551: END IF;
4552: END IF;
4553: -- R12B Authoring OA Migration
4571: x_return_status => x_return_status,
4572: x_msg_count => x_msg_count,
4573: x_msg_data => x_msg_data);
4574: -- Check if the call was successful
4575: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
4576: RAISE pre_book_exception;
4577: End If;
4578:
4579: -- R12B Authoring OA Migration
4609: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4610: END IF;
4611:
4612: -- Check if the call was successful
4613: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4614: RAISE pre_book_exception;
4615: END IF;
4616: END IF;
4617: -- R12B Authoring OA Migration
4619:
4620: -- If upfront tax is 'BILLED'
4621: IF (rule_info_csr_rec.rule_information1 = 'BILLED') THEN
4622:
4623: l_multiple_fee_type := Okl_Api.G_FALSE;
4624: l_fee_type := NULL;
4625:
4626: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4627: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: verifying if multiple fee treatments are selected ');
4629: FOR i in check_feetype_csr (p_contract_id)
4630: LOOP
4631: l_fee_type := i.feetype;
4632: IF (l_fee_type <> l_prev_fee_type) THEN
4633: l_multiple_fee_type := Okl_Api.G_TRUE;
4634: EXIT;
4635: END IF;
4636: l_prev_fee_type := i.feetype;
4637: END LOOP;
4635: END IF;
4636: l_prev_fee_type := i.feetype;
4637: END LOOP;
4638:
4639: IF (l_multiple_fee_type = Okl_Api.G_FALSE AND l_fee_type IS NOT NULL)
4640: THEN
4641: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4642: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: if multiple fee treatments are NOT selected');
4643: END IF;
4668: l_fee_type
4669: || ' in BILLED if return status '|| x_return_status );
4670: END IF;
4671: -- Check if the call was successful
4672: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
4673: RAISE pre_book_exception;
4674: End If;
4675:
4676: -- R12B Authoring OA Migration
4711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4712: END IF;
4713:
4714: -- Check if the call was successful
4715: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4716: RAISE pre_book_exception;
4717: END IF;
4718: END IF;
4719: -- R12B Authoring OA Migration
4756: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: after calling OKL_MAINTAIN_FEE_PVT.delete_fee_type: x_return_status '|| x_return_status );
4757: END IF;
4758:
4759: -- Check if the call was successful
4760: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4761: RAISE pre_book_exception;
4762: END IF;
4763: END IF;
4764: END IF;
4769: END IF;
4770:
4771: Exception
4772: when pre_book_exception then
4773: x_return_status := OKL_API.G_RET_STS_ERROR;
4774:
4775: END process_prebook_tax;
4776:
4777: -- Procedure to process Booking
4776:
4777: -- Procedure to process Booking
4778: Procedure process_booking_tax(
4779: p_api_version IN NUMBER,
4780: p_init_msg_list IN VARCHAR2 DEFAULT okl_Api.G_FALSE,
4781: p_contract_id IN NUMBER,
4782: p_transaction_id IN NUMBER,
4783: p_transaction_type IN VARCHAR2,
4784: x_return_status OUT NOCOPY VARCHAR2,
4803: l_contract_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
4804: l_source_table VARCHAR2(30) := 'OKL_TRX_CONTRACTS';
4805: l_billed_assets NUMBER :=0;
4806: l_asset_count NUMBER :=0;
4807: l_multiple_fee_type VARCHAR2(1) := Okl_Api.G_FALSE;
4808: l_fee_type OKC_RULES_B.rule_information1%TYPE;
4809: l_prev_fee_type OKC_RULES_B.rule_information1%TYPE;
4810: l_contract_bill_tax NUMBER :=0;
4811: booking_exception exception;
4819: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE
4820: , FND_LOG.LEVEL_STATEMENT);
4821: END IF;
4822:
4823: x_return_status := okl_Api.G_RET_STS_SUCCESS;
4824:
4825: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4826: THEN
4827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4843: FETCH rule_info_csr INTO rule_info_csr_rec;
4844:
4845: IF rule_info_csr%NOTFOUND
4846: THEN
4847: OKL_API.set_message( p_app_name => G_APP_NAME,
4848: p_msg_name => 'OKL_QA_ST_MISSING');
4849: CLOSE rule_info_csr;
4850: RAISE booking_exception;
4851: END IF;
4873:
4874: okl_debug_pub.logmessage('OKL: process_booking_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
4875:
4876: -- Check if the tax call was successful
4877: IF (x_return_status <> okl_Api.G_RET_STS_SUCCESS)
4878: THEN
4879: RAISE booking_exception;
4880: END IF;
4881:
4898: x_msg_count => x_msg_count,
4899: x_msg_data => x_msg_data
4900: );
4901:
4902: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4903: RAISE booking_exception;
4904: END IF;
4905:
4906: -- This segment will be executed when user selected Financed or Capitalized
4939: FETCH contract_csr INTO l_contract_start_date;
4940:
4941: IF contract_csr%NOTFOUND
4942: THEN
4943: OKL_API.set_message( p_app_name => G_APP_NAME,
4944: p_msg_name => 'OKL_LA_ST_K_DATE_ERROR');
4945: CLOSE contract_csr;
4946: RAISE booking_exception;
4947: END IF;
4957: x_return_status => x_return_status,
4958: x_msg_count => x_msg_count,
4959: x_msg_data => x_msg_data);
4960:
4961: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4962: RAISE booking_exception;
4963: END IF;
4964:
4965: END IF;
4971: THEN
4972:
4973: -- Check if any of the assets is financed or capitalized and
4974: -- check tax pre-book and booking tax amounts
4975: l_multiple_fee_type := Okl_Api.G_FALSE;
4976: l_fee_type := NULL;
4977:
4978: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4979: THEN
4987: l_fee_type := i.feetype;
4988:
4989: IF (l_fee_type <> l_prev_fee_type)
4990: THEN
4991: l_multiple_fee_type := okl_Api.G_TRUE;
4992: EXIT;
4993: END IF;
4994:
4995: l_prev_fee_type := i.feetype;
4995: l_prev_fee_type := i.feetype;
4996: END LOOP;
4997:
4998: -- User cannot create both Financed and Capitalized sales tax fee lines
4999: IF (l_multiple_fee_type = okl_Api.G_TRUE)
5000: THEN
5001: OKL_API.set_message( p_app_name => G_APP_NAME,
5002: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
5003: RAISE booking_exception;
4997:
4998: -- User cannot create both Financed and Capitalized sales tax fee lines
4999: IF (l_multiple_fee_type = okl_Api.G_TRUE)
5000: THEN
5001: OKL_API.set_message( p_app_name => G_APP_NAME,
5002: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
5003: RAISE booking_exception;
5004: END IF;
5005:
5026: END IF;
5027: OPEN contract_csr;
5028: FETCH contract_csr INTO l_contract_start_date;
5029: IF contract_csr%NOTFOUND THEN
5030: OKL_API.set_message( p_app_name => G_APP_NAME,
5031: p_msg_name => 'OKL_LA_ST_K_DATE_ERROR');
5032: CLOSE contract_csr;
5033: RAISE booking_exception;
5034: END IF;
5047: x_return_status => x_return_status,
5048: x_msg_count => x_msg_count,
5049: x_msg_data => x_msg_data);
5050:
5051: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5052: RAISE booking_exception;
5053: END IF;
5054: END IF;
5055: END IF;
5064: okl_debug_pub.logmessage('OKL: process_booking_tax : END' );
5065:
5066: Exception
5067: when booking_exception then
5068: x_return_status := OKL_API.G_RET_STS_ERROR;
5069:
5070: END process_booking_tax;
5071:
5072:
5072:
5073: -- Procedure to process Booking
5074: Procedure process_rebook_tax(
5075: p_api_version IN NUMBER,
5076: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5077: p_contract_id IN NUMBER,
5078: p_transaction_id IN NUMBER,
5079: p_transaction_type IN VARCHAR2,
5080: p_transaction_date IN DATE,
5096: l_contract_bill_tax NUMBER :=0;
5097: rule_info_csr_rec rule_info_csr%ROWTYPE;
5098: l_asset_count NUMBER;
5099: l_billed_assets NUMBER :=0;
5100: l_multiple_fee_type VARCHAR2(1) := Okl_Api.G_FALSE;
5101: l_fee_type OKC_RULES_B.rule_information1%TYPE;
5102: l_prev_fee_type OKC_RULES_B.rule_information1%TYPE;
5103: rebook_exception EXCEPTION;
5104:
5105: BEGIN
5106:
5107: okl_debug_pub.logmessage('OKL: process_rebook_tax : START' );
5108:
5109: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5110:
5111: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5112: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5113: ,G_MODULE
5118: FETCH rule_info_csr INTO rule_info_csr_rec;
5119:
5120: IF rule_info_csr%NOTFOUND
5121: THEN
5122: OKL_API.set_message( p_app_name => G_APP_NAME,
5123: p_msg_name => 'OKL_QA_ST_MISSING');
5124: CLOSE rule_info_csr;
5125: RAISE rebook_exception;
5126: END IF;
5145:
5146: okl_debug_pub.logmessage('OKL: process_rebook_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
5147:
5148: -- Check if the tax call was successful
5149: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
5150: THEN
5151: RAISE rebook_exception;
5152: END IF;
5153:
5170: x_msg_count => x_msg_count,
5171: x_msg_data => x_msg_data
5172: );
5173:
5174: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5175: RAISE rebook_exception;
5176: END IF;
5177:
5178: -- This segment will be executed when user selected Financed or Capitalized
5208: x_return_status => x_return_status,
5209: x_msg_count => x_msg_count,
5210: x_msg_data => x_msg_data);
5211:
5212: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5213: RAISE rebook_exception;
5214: END IF;
5215:
5216: END IF;
5223: THEN
5224:
5225: -- Check if any of the assets is financed or capitalized and
5226: -- check tax pre-book and booking tax amounts
5227: l_multiple_fee_type := Okl_Api.G_FALSE;
5228: l_fee_type := NULL;
5229:
5230: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5231: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5235: FOR i in check_feetype_csr (p_contract_id)
5236: LOOP
5237: l_fee_type := i.feetype;
5238: IF (l_fee_type <> l_prev_fee_type) THEN
5239: l_multiple_fee_type := Okl_Api.G_TRUE;
5240: EXIT;
5241: END IF;
5242: l_prev_fee_type := i.feetype;
5243: END LOOP;
5242: l_prev_fee_type := i.feetype;
5243: END LOOP;
5244:
5245: -- User cannot create both Financed and Capitalized sales tax fee lines
5246: IF (l_multiple_fee_type = Okl_Api.G_TRUE) THEN
5247: OKL_API.set_message( p_app_name => G_APP_NAME,
5248: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
5249: RAISE rebook_exception;
5250: END IF;
5243: END LOOP;
5244:
5245: -- User cannot create both Financed and Capitalized sales tax fee lines
5246: IF (l_multiple_fee_type = Okl_Api.G_TRUE) THEN
5247: OKL_API.set_message( p_app_name => G_APP_NAME,
5248: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
5249: RAISE rebook_exception;
5250: END IF;
5251:
5278: x_return_status => x_return_status,
5279: x_msg_count => x_msg_count,
5280: x_msg_data => x_msg_data);
5281:
5282: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5283: RAISE rebook_exception;
5284: END IF;
5285:
5286: END IF;
5297: okl_debug_pub.logmessage('OKL: process_rebook_tax : END' );
5298:
5299: Exception
5300: when rebook_exception then
5301: x_return_status := OKL_API.G_RET_STS_ERROR;
5302:
5303: END process_rebook_tax;
5304:
5305:
5309: -- processes to process upfront sales tax
5310:
5311: Procedure process_sales_tax(
5312: p_api_version IN NUMBER,
5313: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5314: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5315: p_contract_id IN NUMBER,
5316: p_transaction_type IN VARCHAR2,
5317: p_transaction_id IN NUMBER DEFAULT NULL,
5310:
5311: Procedure process_sales_tax(
5312: p_api_version IN NUMBER,
5313: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5314: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5315: p_contract_id IN NUMBER,
5316: p_transaction_type IN VARCHAR2,
5317: p_transaction_id IN NUMBER DEFAULT NULL,
5318: p_transaction_date IN DATE DEFAULT NULL,
5327: l_trxH_out_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
5328: l_trxL_out_rec Okl_Trx_Contracts_Pvt.tclv_rec_type;
5329:
5330: -- Define variables
5331: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
5332: l_transaction_id NUMBER;
5333: l_has_trans VARCHAR2(1);
5334: -- Bug 4769822 - START
5335: l_contract_id NUMBER;
5420: /* IF (G_DEBUG_ENABLED = 'Y') THEN
5421: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5422: END IF;
5423: */
5424: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5425:
5426: x_return_status := OKL_API.START_ACTIVITY(
5427: p_api_name => l_api_name,
5428: p_pkg_name => g_pkg_name,
5422: END IF;
5423: */
5424: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5425:
5426: x_return_status := OKL_API.START_ACTIVITY(
5427: p_api_name => l_api_name,
5428: p_pkg_name => g_pkg_name,
5429: p_init_msg_list => p_init_msg_list,
5430: l_api_version => p_api_version,
5437: END IF;
5438:
5439:
5440: -- check if activity started successfully
5441: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5442: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5444: raise OKL_API.G_EXCEPTION_ERROR;
5445: End If;
5438:
5439:
5440: -- check if activity started successfully
5441: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5442: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5444: raise OKL_API.G_EXCEPTION_ERROR;
5445: End If;
5446:
5439:
5440: -- check if activity started successfully
5441: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5442: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5444: raise OKL_API.G_EXCEPTION_ERROR;
5445: End If;
5446:
5447: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5440: -- check if activity started successfully
5441: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5442: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5444: raise OKL_API.G_EXCEPTION_ERROR;
5445: End If;
5446:
5447: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '1..');
5461:
5462: OPEN sys_param_csr;
5463: FETCH sys_param_csr INTO l_tax_upfront_yn;
5464: IF sys_param_csr%NOTFOUND THEN
5465: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_OU_UPFRONT_TAX_ERROR');
5466: CLOSE sys_param_csr;
5467: RAISE Okl_Api.G_EXCEPTION_ERROR;
5468: END IF;
5469: CLOSE sys_param_csr;
5463: FETCH sys_param_csr INTO l_tax_upfront_yn;
5464: IF sys_param_csr%NOTFOUND THEN
5465: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_OU_UPFRONT_TAX_ERROR');
5466: CLOSE sys_param_csr;
5467: RAISE Okl_Api.G_EXCEPTION_ERROR;
5468: END IF;
5469: CLOSE sys_param_csr;
5470:
5471: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5564:
5565: -- okl_debug_pub.logmessage('OKL: process_sales_tax : populate_transaction : '|| x_return_status );
5566:
5567: -- check transaction creation was successful
5568: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572: End If;
5565: -- okl_debug_pub.logmessage('OKL: process_sales_tax : populate_transaction : '|| x_return_status );
5566:
5567: -- check transaction creation was successful
5568: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572: End If;
5573:
5566:
5567: -- check transaction creation was successful
5568: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572: End If;
5573:
5574: -- R12 Change - END
5567: -- check transaction creation was successful
5568: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5569: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5570: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5571: raise OKL_API.G_EXCEPTION_ERROR;
5572: End If;
5573:
5574: -- R12 Change - END
5575: End If;
5638: 'OKL: Process Sales Tax...3'|| x_return_status);
5639: END IF;
5640: */
5641: -- Check if the tax call was successful
5642: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5645: raise OKL_API.G_EXCEPTION_ERROR;
5646: End If;
5639: END IF;
5640: */
5641: -- Check if the tax call was successful
5642: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5645: raise OKL_API.G_EXCEPTION_ERROR;
5646: End If;
5647:
5640: */
5641: -- Check if the tax call was successful
5642: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5645: raise OKL_API.G_EXCEPTION_ERROR;
5646: End If;
5647:
5648: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5641: -- Check if the tax call was successful
5642: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5643: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5644: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5645: raise OKL_API.G_EXCEPTION_ERROR;
5646: End If;
5647:
5648: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5649: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5682: */
5683: -- Check if the call was successful
5684: -- Following code enabled for bug 5005269
5685:
5686: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5689: raise OKL_API.G_EXCEPTION_ERROR;
5690: End If;
5683: -- Check if the call was successful
5684: -- Following code enabled for bug 5005269
5685:
5686: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5689: raise OKL_API.G_EXCEPTION_ERROR;
5690: End If;
5691:
5684: -- Following code enabled for bug 5005269
5685:
5686: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5689: raise OKL_API.G_EXCEPTION_ERROR;
5690: End If;
5691:
5692: END IF; -- ER# 9327076
5685:
5686: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5687: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5688: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5689: raise OKL_API.G_EXCEPTION_ERROR;
5690: End If;
5691:
5692: END IF; -- ER# 9327076
5693:
5724:
5725: -- okl_debug_pub.logmessage('OKL: process_sales_tax : process_booking_tax : '|| x_return_status );
5726: -- Check if the call was successful
5727: -- Bug 5002042
5728: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5729: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5730: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5731: raise OKL_API.G_EXCEPTION_ERROR;
5732: End If;
5725: -- okl_debug_pub.logmessage('OKL: process_sales_tax : process_booking_tax : '|| x_return_status );
5726: -- Check if the call was successful
5727: -- Bug 5002042
5728: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5729: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5730: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5731: raise OKL_API.G_EXCEPTION_ERROR;
5732: End If;
5733:
5726: -- Check if the call was successful
5727: -- Bug 5002042
5728: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5729: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5730: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5731: raise OKL_API.G_EXCEPTION_ERROR;
5732: End If;
5733:
5734: End If; -- Booking
5727: -- Bug 5002042
5728: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5729: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5730: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5731: raise OKL_API.G_EXCEPTION_ERROR;
5732: End If;
5733:
5734: End If; -- Booking
5735:
5808: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'okl_la_sales_tax_pvt.process_sales_tax.', '20..');
5809: END IF;
5810:
5811: -- R12B Authoring OA Migration - Corrected error message
5812: OKL_API.set_message( p_app_name => G_APP_NAME,
5813: p_msg_name => 'OKL_QA_ST_MISSING');
5814: CLOSE rule_info_csr;
5815: RAISE Okl_Api.G_EXCEPTION_ERROR;
5816: END IF;
5811: -- R12B Authoring OA Migration - Corrected error message
5812: OKL_API.set_message( p_app_name => G_APP_NAME,
5813: p_msg_name => 'OKL_QA_ST_MISSING');
5814: CLOSE rule_info_csr;
5815: RAISE Okl_Api.G_EXCEPTION_ERROR;
5816: END IF;
5817: CLOSE rule_info_csr;
5818:
5819: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5908: G_MODULE,
5909: 'OKL: Process Sales Tax : after creating trx requests: status-> '|| x_return_status);
5910: END IF;
5911: */
5912: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5915: raise OKL_API.G_EXCEPTION_ERROR;
5916: End If;
5909: 'OKL: Process Sales Tax : after creating trx requests: status-> '|| x_return_status);
5910: END IF;
5911: */
5912: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5915: raise OKL_API.G_EXCEPTION_ERROR;
5916: End If;
5917:
5910: END IF;
5911: */
5912: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5915: raise OKL_API.G_EXCEPTION_ERROR;
5916: End If;
5917:
5918: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5911: */
5912: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5913: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5915: raise OKL_API.G_EXCEPTION_ERROR;
5916: End If;
5917:
5918: /* IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5919: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5947: G_MODULE,'OKL: Process Sales Tax : after OKL_PROCESS_SALES_TAX_PUB: status-> '|| x_return_status);
5948: END IF;
5949: */
5950: -- Check if the tax call was successful
5951: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5953: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5954: raise OKL_API.G_EXCEPTION_ERROR;
5955: End If;
5948: END IF;
5949: */
5950: -- Check if the tax call was successful
5951: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5953: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5954: raise OKL_API.G_EXCEPTION_ERROR;
5955: End If;
5956:
5949: */
5950: -- Check if the tax call was successful
5951: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5953: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5954: raise OKL_API.G_EXCEPTION_ERROR;
5955: End If;
5956:
5957: -- R12 Change - Code segment to update transaction records to 'Processed'
5950: -- Check if the tax call was successful
5951: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5952: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5953: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5954: raise OKL_API.G_EXCEPTION_ERROR;
5955: End If;
5956:
5957: -- R12 Change - Code segment to update transaction records to 'Processed'
5958: -- is removed from this location. It is not required as per IA.
5986:
5987: -- okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5988:
5989: Exception
5990: when OKL_API.G_EXCEPTION_ERROR then
5991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5992: p_api_name => l_api_name,
5993: p_pkg_name => g_pkg_name,
5994: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5987: -- okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5988:
5989: Exception
5990: when OKL_API.G_EXCEPTION_ERROR then
5991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5992: p_api_name => l_api_name,
5993: p_pkg_name => g_pkg_name,
5994: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5995: x_msg_count => x_msg_count,
5990: when OKL_API.G_EXCEPTION_ERROR then
5991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5992: p_api_name => l_api_name,
5993: p_pkg_name => g_pkg_name,
5994: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5995: x_msg_count => x_msg_count,
5996: x_msg_data => x_msg_data,
5997: p_api_type => g_api_type);
5998:
5995: x_msg_count => x_msg_count,
5996: x_msg_data => x_msg_data,
5997: p_api_type => g_api_type);
5998:
5999: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6000: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6001: p_api_name => l_api_name,
6002: p_pkg_name => g_pkg_name,
6003: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5996: x_msg_data => x_msg_data,
5997: p_api_type => g_api_type);
5998:
5999: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6000: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6001: p_api_name => l_api_name,
6002: p_pkg_name => g_pkg_name,
6003: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6004: x_msg_count => x_msg_count,
5999: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6000: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6001: p_api_name => l_api_name,
6002: p_pkg_name => g_pkg_name,
6003: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6004: x_msg_count => x_msg_count,
6005: x_msg_data => x_msg_data,
6006: p_api_type => g_api_type);
6007:
6005: x_msg_data => x_msg_data,
6006: p_api_type => g_api_type);
6007:
6008: when OTHERS then
6009: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6010: p_api_name => l_api_name,
6011: p_pkg_name => g_pkg_name,
6012: p_exc_name => 'OTHERS',
6013: x_msg_count => x_msg_count,
6297: BEGIN
6298: IF (G_DEBUG_ENABLED = 'Y') THEN
6299: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6300: END IF;
6301: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6302:
6303: --OPEN l_hdr_csr;
6304: --FETCH l_hdr_csr INTO l_authoring_org_id;
6305: --CLOSE l_hdr_csr;
6372: IF (l_chk_line_upfront_tax='!' OR (l_exists AND (l_hdrrl_rec.RULE_INFORMATION1 IS NOT NULL
6373: OR l_hdrrl_rec.RULE_INFORMATION2 IS NOT NULL
6374: OR l_hdrrl_rec.RULE_INFORMATION3 IS NOT NULL
6375: OR l_hdrrl_rec.RULE_INFORMATION4 IS NOT NULL))) THEN
6376: OKL_API.set_message(
6377: p_app_name => G_APP_NAME,
6378: p_msg_name => 'OKL_UPFRONT_TAX_SYSOP_CHK'); -- Please remove the terms and conditions for upfront tax as upfront tax calculation has not been enabled.
6379: x_return_status := OKL_API.G_RET_STS_ERROR;
6380: RAISE G_EXCEPTION_HALT_VALIDATION;
6375: OR l_hdrrl_rec.RULE_INFORMATION4 IS NOT NULL))) THEN
6376: OKL_API.set_message(
6377: p_app_name => G_APP_NAME,
6378: p_msg_name => 'OKL_UPFRONT_TAX_SYSOP_CHK'); -- Please remove the terms and conditions for upfront tax as upfront tax calculation has not been enabled.
6379: x_return_status := OKL_API.G_RET_STS_ERROR;
6380: RAISE G_EXCEPTION_HALT_VALIDATION;
6381: END IF;
6382: END IF;
6383:
6380: RAISE G_EXCEPTION_HALT_VALIDATION;
6381: END IF;
6382: END IF;
6383:
6384: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6385: return;
6386: END IF;
6387:
6388: OPEN l_hdrrl_csr('LAHDTX','LASTPR', p_chr_id);
6404: IF ((l_chk_rbk <> '!' AND l_chk_mass_rbk <> '!')
6405: OR check_prior_upfront_tax(p_chr_id)
6406: OR check_rel_mxd_ctr(p_chr_id))THEN -- ER# 9327076 -- 16522428 14/03/13 - additional condition
6407: IF (l_tax_header IS NULL ) THEN
6408: OKL_API.set_message(
6409: p_app_name => G_APP_NAME,
6410: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
6411: x_return_status := OKL_API.G_RET_STS_ERROR;
6412: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6407: IF (l_tax_header IS NULL ) THEN
6408: OKL_API.set_message(
6409: p_app_name => G_APP_NAME,
6410: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
6411: x_return_status := OKL_API.G_RET_STS_ERROR;
6412: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_HEADER_TAX The Upfront Sales Tax at Contract header can not be null.');
6414: END IF;
6415: END IF;
6423: END IF;
6424:
6425: --IF (NOT l_exists OR l_tax_treatment IS NULL) THEN
6426: IF (NOT l_exists ) THEN
6427: OKL_API.set_message(
6428: p_app_name => G_APP_NAME,
6429: p_msg_name => 'OKL_QA_ST_MISSING');
6430: x_return_status := OKL_API.G_RET_STS_ERROR;
6431: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6426: IF (NOT l_exists ) THEN
6427: OKL_API.set_message(
6428: p_app_name => G_APP_NAME,
6429: p_msg_name => 'OKL_QA_ST_MISSING');
6430: x_return_status := OKL_API.G_RET_STS_ERROR;
6431: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6432: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_MISSING');
6433: END IF;
6434: END IF;
6438: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX','BILLED');
6439: FETCH fnd_csr INTO l_fnd_rec;
6440: l_fnd_meaning := l_fnd_rec.meaning;
6441: CLOSE fnd_csr;
6442: OKL_API.set_message(
6443: p_app_name => G_APP_NAME,
6444: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
6445: p_token1 => 'UPFRONT_TAX',
6446: p_token1_value => l_fnd_meaning);
6443: p_app_name => G_APP_NAME,
6444: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
6445: p_token1 => 'UPFRONT_TAX',
6446: p_token1_value => l_fnd_meaning);
6447: x_return_status := OKL_API.G_RET_STS_ERROR;
6448: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6449: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
6450: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
6451: ||' terms and condition for the contract.');
6455: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX','FINANCE');
6456: FETCH fnd_csr INTO l_fnd_rec;
6457: l_fnd_meaning := l_fnd_rec.meaning;
6458: CLOSE fnd_csr;
6459: OKL_API.set_message(
6460: p_app_name => G_APP_NAME,
6461: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
6462: p_token1 => 'UPFRONT_TAX',
6463: p_token1_value => l_fnd_meaning);
6460: p_app_name => G_APP_NAME,
6461: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
6462: p_token1 => 'UPFRONT_TAX',
6463: p_token1_value => l_fnd_meaning);
6464: x_return_status := OKL_API.G_RET_STS_ERROR;
6465: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6466: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
6467: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
6468: ||' terms and condition for the contract.');
6472: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX','CAPITALIZE');
6473: FETCH fnd_csr INTO l_fnd_rec;
6474: l_fnd_meaning := l_fnd_rec.meaning;
6475: CLOSE fnd_csr;
6476: OKL_API.set_message(
6477: p_app_name => G_APP_NAME,
6478: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
6479: p_token1 => 'UPFRONT_TAX',
6480: p_token1_value => l_fnd_meaning);
6477: p_app_name => G_APP_NAME,
6478: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
6479: p_token1 => 'UPFRONT_TAX',
6480: p_token1_value => l_fnd_meaning);
6481: x_return_status := OKL_API.G_RET_STS_ERROR;
6482: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
6484: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
6485: ||' terms and condition for the contract.');
6486: END IF;
6487: END IF;
6488: END IF; -- ER# 9327076
6489:
6490: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6491: RAISE G_EXCEPTION_HALT_VALIDATION;
6492: END IF;
6493:
6494: -- R12B Authoring OA Migration
6509: END IF;
6510: l_fee_amount := l_st_fee_rec.amount;
6511:
6512: IF ( l_st_fee_rec.amount = 0 ) THEN
6513: OKL_API.set_message(
6514: p_app_name => G_APP_NAME,
6515: p_msg_name => 'OKL_QA_ST_FEE_ZERO',
6516: p_token1 => 'FEE_TYPE',
6517: p_token1_value => l_fee_type_meaning);
6514: p_app_name => G_APP_NAME,
6515: p_msg_name => 'OKL_QA_ST_FEE_ZERO',
6516: p_token1 => 'FEE_TYPE',
6517: p_token1_value => l_fee_type_meaning);
6518: x_return_status := OKL_API.G_RET_STS_ERROR;
6519: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_ZERO '||'The sales tax fee line (type='
6521: ||l_fee_type_meaning||') amount can not be zero or negative.');
6522: END IF;
6538: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6539: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_st_fee_rec.amount || ':' || l_amt_link_asset);
6540: END IF;
6541: IF (l_st_fee_rec.amount <> l_amt_link_asset) THEN
6542: OKL_API.set_message(
6543: p_app_name => G_APP_NAME,
6544: p_msg_name => 'OKL_QA_ST_FEE_ASSET_AMT',
6545: p_token1 => 'LINE_TYPE',
6546: p_token1_value => l_fee_type_meaning);
6543: p_app_name => G_APP_NAME,
6544: p_msg_name => 'OKL_QA_ST_FEE_ASSET_AMT',
6545: p_token1 => 'LINE_TYPE',
6546: p_token1_value => l_fee_type_meaning);
6547: x_return_status := OKL_API.G_RET_STS_ERROR;
6548: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6549: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_AMT '||'The sales tax Fee line ('
6550: ||l_fee_type_meaning||') amount must be equal to the total amount on corresponding linked Fee asset(s).');
6551: END IF;
6561: CLOSE st_fee_count_csr;
6562:
6563: --IF ( (l_tax_treatment IN ('FINANCE','CAPITALIZE') ) AND l_count > 1 ) THEN
6564: IF ( l_count > 1 ) THEN
6565: OKL_API.set_message(
6566: p_app_name => G_APP_NAME,
6567: p_msg_name => 'OKL_QA_ST_FEE_GT1');
6568: x_return_status := OKL_API.G_RET_STS_ERROR;
6569: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6564: IF ( l_count > 1 ) THEN
6565: OKL_API.set_message(
6566: p_app_name => G_APP_NAME,
6567: p_msg_name => 'OKL_QA_ST_FEE_GT1');
6568: x_return_status := OKL_API.G_RET_STS_ERROR;
6569: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_GT1 ' || 'The contract can not have more than one Sales Tax Fee line defined.');
6571: END IF;
6572: END IF;
6572: END IF;
6573:
6574:
6575: --raise exception as we want to halt validation at this.
6576: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6577: RAISE G_EXCEPTION_HALT_VALIDATION;
6578: END IF;
6579:
6580: l_line_asset_upfront_tax := 'XXX';
6614: END IF;
6615: IF (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE')
6616: AND l_line_asset_upfront_tax <> l_prev_line_asset_upfront_tax) THEN
6617: IF (l_prev_line_asset_upfront_tax <> 'XXX') THEN
6618: OKL_API.set_message(
6619: p_app_name => G_APP_NAME,
6620: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6621: x_return_status := OKL_API.G_RET_STS_ERROR;
6622: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6617: IF (l_prev_line_asset_upfront_tax <> 'XXX') THEN
6618: OKL_API.set_message(
6619: p_app_name => G_APP_NAME,
6620: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6621: x_return_status := OKL_API.G_RET_STS_ERROR;
6622: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_ALL_CAP_OR_FIN All asset lines must have sales upfront tax as either Financed or Capitalized.');
6624: END IF;
6625: EXIT;
6639: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX',l_line_asset_upfront_tax);
6640: FETCH fnd_csr INTO l_line_fnd_rec;
6641: l_line_fnd_meaning := l_line_fnd_rec.meaning;
6642: CLOSE fnd_csr;
6643: OKL_API.set_message(
6644: p_app_name => G_APP_NAME,
6645: p_msg_name => 'OKL_QA_ST_CAP_FIN_MIX',
6646: p_token1 => 'UPFRONT_TAX',
6647: p_token1_value => l_hdr_fnd_meaning,
6648: p_token2 => 'UPFRONT_LN_TAX',
6649: p_token2_value => l_line_fnd_meaning,
6650: p_token3 => 'ASSET_NUMBER',
6651: p_token3_value => l_asset_rec.name);
6652: x_return_status := OKL_API.G_RET_STS_ERROR;
6653: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6654: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_CAP_FIN_MIX The upfront tax for the asset line ' ||
6655: l_asset_rec.name||' is different from asset upfront tax at Contract header.' );
6656: END IF;
6685: OPEN fnd_csr('OKL_FEE_TYPES','BILLED');
6686: FETCH fnd_csr INTO l_fnd_rec;
6687: CLOSE fnd_csr;
6688: l_tax_fee_meaning := l_fnd_rec.meaning;
6689: OKL_API.set_message(
6690: p_app_name => G_APP_NAME,
6691: p_msg_name => 'OKL_QA_ST_FEE_ASSET_ERROR',
6692: p_token1 => 'FEE_TYPE',
6693: p_token1_value => l_tax_fee_meaning,
6692: p_token1 => 'FEE_TYPE',
6693: p_token1_value => l_tax_fee_meaning,
6694: p_token2 => 'ASSET_NUMBER',
6695: p_token2_value => l_asset_rec.name);
6696: x_return_status := OKL_API.G_RET_STS_ERROR;
6697: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6698: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_ASSET_ERROR '||'The "Bill Upfront Tax" is selected for the asset = '
6699: ||l_asset_rec.name||'. Please remove this asset association from Sales Tax Fee line ('||l_tax_fee_meaning||').');
6700: END IF;
6702: END IF;
6703: END LOOP;
6704:
6705: --raise exception as we want to halt validation at this.
6706: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6707: RAISE G_EXCEPTION_HALT_VALIDATION;
6708: END IF;
6709:
6710: IF ( (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE') ) AND (NOT l_linked_asset_exists ) AND l_fee_line_found)THEN
6714: OPEN fnd_csr('OKL_FEE_TYPES',l_st_fee_code);
6715: FETCH fnd_csr INTO l_fnd_rec;
6716: CLOSE fnd_csr;
6717: l_tax_fee_meaning := l_fnd_rec.meaning;
6718: OKL_API.set_message(
6719: p_app_name => G_APP_NAME,
6720: p_msg_name => 'OKL_QA_ST_FEE_ASSET_MISSING',
6721: p_token1 => 'ASSET_NUMBER',
6722: p_token1_value => l_asset_rec.name,
6721: p_token1 => 'ASSET_NUMBER',
6722: p_token1_value => l_asset_rec.name,
6723: p_token2 => 'LINE_TYPE',
6724: p_token2_value => l_tax_fee_meaning );
6725: x_return_status := OKL_API.G_RET_STS_ERROR;
6726: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6727: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_MISSING '||'The sales tax Fee line ('
6728: ||l_tax_fee_meaning ||') does not have corresponding linked asset('||l_asset_rec.name||') defined.');
6729: END IF;
6744: FETCH l_tax_amt_csr INTO l_tax_amount;
6745: CLOSE l_tax_amt_csr;
6746:
6747: IF ( (l_tax_amount <> 0) AND NOT l_fee_line_found AND l_found_asset_not_billed) THEN
6748: OKL_API.set_message(
6749: p_app_name => G_APP_NAME,
6750: p_msg_name => 'OKL_QA_ST_NO_FEE');
6751: x_return_status := OKL_API.G_RET_STS_ERROR;
6752: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6747: IF ( (l_tax_amount <> 0) AND NOT l_fee_line_found AND l_found_asset_not_billed) THEN
6748: OKL_API.set_message(
6749: p_app_name => G_APP_NAME,
6750: p_msg_name => 'OKL_QA_ST_NO_FEE');
6751: x_return_status := OKL_API.G_RET_STS_ERROR;
6752: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6753: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_NO_FEE '||'The sales tax Fee line must be present for the Contract');
6754: END IF;
6755: END IF;
6779: CLOSE fnd_csr;
6780: l_tax_fee_meaning := l_fnd_rec.meaning;
6781:
6782: IF (l_tax_amount <> l_fee_amount) THEN
6783: OKL_API.set_message(
6784: p_app_name => G_APP_NAME,
6785: p_msg_name => 'OKL_QA_ST_FEE_AMT',
6786: p_token1 => 'FEE_TYPE',
6787: p_token1_value => l_tax_fee_meaning,
6786: p_token1 => 'FEE_TYPE',
6787: p_token1_value => l_tax_fee_meaning,
6788: p_token2 => 'UPFRONT_TAX',
6789: p_token2_value => l_tax_fee_meaning);
6790: x_return_status := OKL_API.G_RET_STS_ERROR;
6791: END IF;
6792: */
6793: -- R12B Authoring OA Migration
6794:
6835: END IF;
6836: NULL;
6837: WHEN OTHERS THEN
6838: -- store SQL error message on message stack
6839: OKL_API.SET_MESSAGE(
6840: p_app_name => G_APP_NAME,
6841: p_msg_name => G_UNEXPECTED_ERROR,
6842: p_token1 => G_SQLCODE_TOKEN,
6843: p_token1_value => SQLCODE,
6842: p_token1 => G_SQLCODE_TOKEN,
6843: p_token1_value => SQLCODE,
6844: p_token2 => G_SQLERRM_TOKEN,
6845: p_token2_value => SQLERRM);
6846: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6847: IF st_fee_csr%ISOPEN THEN
6848: CLOSE st_fee_csr;
6849: END IF;
6850: IF l_hdrrl_csr%ISOPEN THEN
6923: AND cle.id = rgp.cle_id
6924: AND cle.sts_code <> 'ABANDONED';
6925:
6926: BEGIN
6927: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6928:
6929: l_upfront_tax_yn := 'N';
6930: OPEN l_tax_system_info;
6931: FETCH l_tax_system_info INTO l_upfront_tax_yn;
6931: FETCH l_tax_system_info INTO l_upfront_tax_yn;
6932: CLOSE l_tax_system_info;
6933:
6934: IF (nvl(l_upfront_tax_yn,'N') <> 'Y') THEN
6935: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6936: return;
6937: END IF;
6938:
6939: --Murthy
6949: l_exists := l_upfront_tax_other_assets%FOUND;
6950: CLOSE l_upfront_tax_other_assets;
6951: END IF;
6952: IF (l_exists) THEN
6953: OKL_API.set_message(
6954: p_app_name => G_APP_NAME,
6955: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6956: x_return_status := OKL_API.G_RET_STS_ERROR;
6957: END IF;
6952: IF (l_exists) THEN
6953: OKL_API.set_message(
6954: p_app_name => G_APP_NAME,
6955: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6956: x_return_status := OKL_API.G_RET_STS_ERROR;
6957: END IF;
6958:
6959: EXCEPTION
6960: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6972: IF l_tax_system_info%ISOPEN THEN
6973: CLOSE l_tax_system_info;
6974: END IF;
6975: -- store SQL error message on message stack
6976: OKL_API.SET_MESSAGE(
6977: p_app_name => G_APP_NAME,
6978: p_msg_name => G_UNEXPECTED_ERROR,
6979: p_token1 => G_SQLCODE_TOKEN,
6980: p_token1_value => SQLCODE,
6979: p_token1 => G_SQLCODE_TOKEN,
6980: p_token1_value => SQLCODE,
6981: p_token2 => G_SQLERRM_TOKEN,
6982: p_token2_value => SQLERRM);
6983: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6984:
6985: END check_sales_tax_asset_rules;
6986:
6987: -----------------------------------------------------------------------------
6999: -- End of comments
7000:
7001: PROCEDURE validate_upfront_tax_fee(
7002: p_api_version IN NUMBER,
7003: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7004: x_return_status OUT NOCOPY VARCHAR2,
7005: x_msg_count OUT NOCOPY NUMBER,
7006: x_msg_data OUT NOCOPY VARCHAR2,
7007: p_chr_id IN VARCHAR2) IS
7143: --Bug# 6609598
7144: l_tot_pmnt NUMBER;
7145:
7146: --Bug# 12807203
7147: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7148:
7149: BEGIN
7150:
7151: x_return_status := OKL_API.START_ACTIVITY(
7147: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7148:
7149: BEGIN
7150:
7151: x_return_status := OKL_API.START_ACTIVITY(
7152: p_api_name => l_api_name,
7153: p_pkg_name => g_pkg_name,
7154: p_init_msg_list => p_init_msg_list,
7155: l_api_version => l_api_version,
7157: p_api_type => G_API_TYPE,
7158: x_return_status => x_return_status);
7159:
7160: -- check if activity started successfully
7161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7164: RAISE OKL_API.G_EXCEPTION_ERROR;
7165: END IF;
7158: x_return_status => x_return_status);
7159:
7160: -- check if activity started successfully
7161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7164: RAISE OKL_API.G_EXCEPTION_ERROR;
7165: END IF;
7166:
7159:
7160: -- check if activity started successfully
7161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7164: RAISE OKL_API.G_EXCEPTION_ERROR;
7165: END IF;
7166:
7167: OPEN l_fn_top_fee_ln_csr(p_chr_id => p_chr_id);
7160: -- check if activity started successfully
7161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7163: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7164: RAISE OKL_API.G_EXCEPTION_ERROR;
7165: END IF;
7166:
7167: OPEN l_fn_top_fee_ln_csr(p_chr_id => p_chr_id);
7168: FETCH l_fn_top_fee_ln_csr INTO l_fn_top_fee_ln_rec;
7177: x_return_status => l_return_status,
7178: p_chr_id => p_chr_id,
7179: p_upfront_tax_fee_yn => 'Y');
7180:
7181: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
7182: x_return_status := l_return_status;
7183: END IF;
7184: END IF;
7185:
7198: l_top_ln_pmt_exist := TRUE;
7199: END LOOP;
7200:
7201: IF ( l_tot_pmnt > 1 ) THEN
7202: x_return_status := Okl_Api.G_RET_STS_ERROR;
7203: OKL_API.set_message(
7204: p_app_name => G_APP_NAME,
7205: p_msg_name => 'OKL_QA_ONLY_1PAY',
7206: p_token1 => 'line',
7199: END LOOP;
7200:
7201: IF ( l_tot_pmnt > 1 ) THEN
7202: x_return_status := Okl_Api.G_RET_STS_ERROR;
7203: OKL_API.set_message(
7204: p_app_name => G_APP_NAME,
7205: p_msg_name => 'OKL_QA_ONLY_1PAY',
7206: p_token1 => 'line',
7207: p_token1_value => l_fn_top_fee_ln_rec.name
7228: FOR l_fn_fee_pmtH IN l_fn_fee_pmtH_csr (p_chr_id => p_chr_id,
7229: p_fee_line_id => l_fn_sub_ln_fee_rec.id )
7230: LOOP
7231: IF (l_top_ln_pmt_exist) THEN
7232: x_return_status := Okl_Api.G_RET_STS_ERROR;
7233: OKL_API.set_message(
7234: p_app_name => G_APP_NAME,
7235: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
7236: p_token1 => 'FEE_LINE',
7229: p_fee_line_id => l_fn_sub_ln_fee_rec.id )
7230: LOOP
7231: IF (l_top_ln_pmt_exist) THEN
7232: x_return_status := Okl_Api.G_RET_STS_ERROR;
7233: OKL_API.set_message(
7234: p_app_name => G_APP_NAME,
7235: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
7236: p_token1 => 'FEE_LINE',
7237: p_token1_value => l_fn_top_fee_ln_rec.name);
7248: fee sub-line's end date, if not error out. */
7249:
7250: IF ( TRUNC(l_fn_fee_pmt_rec.start_date) < TRUNC(l_fn_sub_ln_fee_rec.start_date) ) THEN
7251:
7252: x_return_status := Okl_Api.G_RET_STS_ERROR;
7253: OKL_API.set_message(
7254: p_app_name => G_APP_NAME,
7255: p_msg_name => 'OKL_QA_FN_SLN_PMT_SD',
7256: p_token1 => 'FEE_LINE',
7249:
7250: IF ( TRUNC(l_fn_fee_pmt_rec.start_date) < TRUNC(l_fn_sub_ln_fee_rec.start_date) ) THEN
7251:
7252: x_return_status := Okl_Api.G_RET_STS_ERROR;
7253: OKL_API.set_message(
7254: p_app_name => G_APP_NAME,
7255: p_msg_name => 'OKL_QA_FN_SLN_PMT_SD',
7256: p_token1 => 'FEE_LINE',
7257: p_token1_value => l_fn_top_fee_ln_rec.name);
7257: p_token1_value => l_fn_top_fee_ln_rec.name);
7258: END IF;
7259:
7260: IF ( TRUNC(l_fn_fee_pmt_rec.end_date) > TRUNC(l_fn_sub_ln_fee_rec.end_date) ) THEN
7261: x_return_status := Okl_Api.G_RET_STS_ERROR;
7262: OKL_API.set_message(
7263: p_app_name => G_APP_NAME,
7264: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
7265: p_token1 => 'FEE_LINE',
7258: END IF;
7259:
7260: IF ( TRUNC(l_fn_fee_pmt_rec.end_date) > TRUNC(l_fn_sub_ln_fee_rec.end_date) ) THEN
7261: x_return_status := Okl_Api.G_RET_STS_ERROR;
7262: OKL_API.set_message(
7263: p_app_name => G_APP_NAME,
7264: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
7265: p_token1 => 'FEE_LINE',
7266: p_token1_value => l_fn_top_fee_ln_rec.name);
7272: /* Check if a financed top line fee amount is not equal to sub-line fee amount,
7273: if exists, if not error out. */
7274:
7275: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_fee_ln_rec.amount <> l_fn_sub_ln_fee_amt)) THEN
7276: x_return_status := Okl_Api.G_RET_STS_ERROR;
7277: OKL_API.set_message(
7278: p_app_name => G_APP_NAME,
7279: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
7280: p_token1 => 'FEE_LINE',
7273: if exists, if not error out. */
7274:
7275: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_fee_ln_rec.amount <> l_fn_sub_ln_fee_amt)) THEN
7276: x_return_status := Okl_Api.G_RET_STS_ERROR;
7277: OKL_API.set_message(
7278: p_app_name => G_APP_NAME,
7279: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
7280: p_token1 => 'FEE_LINE',
7281: p_token1_value => l_fn_top_fee_ln_rec.name);
7283:
7284: /* If no payments are defiend for the fee line then error out. */
7285:
7286: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
7287: x_return_status := Okl_Api.G_RET_STS_ERROR;
7288: OKL_API.set_message(
7289: p_app_name => G_APP_NAME,
7290: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
7291: p_token1 => 'FEE_LINE',
7284: /* If no payments are defiend for the fee line then error out. */
7285:
7286: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
7287: x_return_status := Okl_Api.G_RET_STS_ERROR;
7288: OKL_API.set_message(
7289: p_app_name => G_APP_NAME,
7290: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
7291: p_token1 => 'FEE_LINE',
7292: p_token1_value => l_fn_top_fee_ln_rec.name);
7296: if not error out. If there are multiple payments defiend for a financed
7297: fee sub-line HEADER error out. */
7298:
7299: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
7300: x_return_status := Okl_Api.G_RET_STS_ERROR;
7301: OKL_API.set_message(
7302: p_app_name => G_APP_NAME,
7303: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
7304: p_token1 => 'FEE_LINE',
7297: fee sub-line HEADER error out. */
7298:
7299: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
7300: x_return_status := Okl_Api.G_RET_STS_ERROR;
7301: OKL_API.set_message(
7302: p_app_name => G_APP_NAME,
7303: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
7304: p_token1 => 'FEE_LINE',
7305: p_token1_value => l_fn_top_fee_ln_rec.name);
7303: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
7304: p_token1 => 'FEE_LINE',
7305: p_token1_value => l_fn_top_fee_ln_rec.name);
7306: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
7307: x_return_status := Okl_Api.G_RET_STS_ERROR;
7308: OKL_API.set_message(
7309: p_app_name => G_APP_NAME,
7310: p_msg_name => 'OKL_QA_FN_MUL_SLN_PMTS',
7311: p_token1 => 'FEE_LINE',
7304: p_token1 => 'FEE_LINE',
7305: p_token1_value => l_fn_top_fee_ln_rec.name);
7306: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
7307: x_return_status := Okl_Api.G_RET_STS_ERROR;
7308: OKL_API.set_message(
7309: p_app_name => G_APP_NAME,
7310: p_msg_name => 'OKL_QA_FN_MUL_SLN_PMTS',
7311: p_token1 => 'FEE_LINE',
7312: p_token1_value => l_fn_top_fee_ln_rec.name);
7325: ELSE
7326: -- Check payment amount here
7327: IF (l_prev_pmnt = TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'))) THEN
7328: -- Error
7329: Okl_Api.set_message(
7330: G_APP_NAME,
7331: 'OKL_QA_INVALID_PMNT',
7332: 'LINE_TYPE',
7333: l_fn_top_fee_ln_rec.line_type,
7333: l_fn_top_fee_ln_rec.line_type,
7334: 'PMNT_TYPE',
7335: l_strm_slh_rec.stream_type
7336: );
7337: x_return_status := Okl_Api.G_RET_STS_ERROR;
7338: ELSE
7339: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
7340: END IF; --check
7341:
7351: x_return_status => l_return_status,
7352: p_chr_id => p_chr_id,
7353: p_upfront_tax_fee_yn => 'Y');
7354:
7355: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
7356: x_return_status := l_return_status;
7357: END IF;
7358:
7359: END IF;
7357: END IF;
7358:
7359: END IF;
7360:
7361: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7362:
7363: EXCEPTION
7364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7360:
7361: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7362:
7363: EXCEPTION
7364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7366: p_api_name => l_api_name,
7367: p_pkg_name => g_pkg_name,
7368: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7361: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7362:
7363: EXCEPTION
7364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7366: p_api_name => l_api_name,
7367: p_pkg_name => g_pkg_name,
7368: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7369: x_msg_count => x_msg_count,
7364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7366: p_api_name => l_api_name,
7367: p_pkg_name => g_pkg_name,
7368: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7369: x_msg_count => x_msg_count,
7370: x_msg_data => x_msg_data,
7371: p_api_type => g_api_type);
7372:
7369: x_msg_count => x_msg_count,
7370: x_msg_data => x_msg_data,
7371: p_api_type => g_api_type);
7372:
7373: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7374: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7375: p_api_name => l_api_name,
7376: p_pkg_name => g_pkg_name,
7377: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7370: x_msg_data => x_msg_data,
7371: p_api_type => g_api_type);
7372:
7373: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7374: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7375: p_api_name => l_api_name,
7376: p_pkg_name => g_pkg_name,
7377: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7378: x_msg_count => x_msg_count,
7373: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7374: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7375: p_api_name => l_api_name,
7376: p_pkg_name => g_pkg_name,
7377: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7378: x_msg_count => x_msg_count,
7379: x_msg_data => x_msg_data,
7380: p_api_type => g_api_type);
7381:
7379: x_msg_data => x_msg_data,
7380: p_api_type => g_api_type);
7381:
7382: WHEN OTHERS THEN
7383: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7384: p_api_name => l_api_name,
7385: p_pkg_name => g_pkg_name,
7386: p_exc_name => 'OTHERS',
7387: x_msg_count => x_msg_count,