[Home] [Help]
313: l_header_upfront_tax okc_rules_v.rule_information1%TYPE;
314:
315: BEGIN
316:
317: x_return_status := OKL_API.G_RET_STS_SUCCESS;
318:
319: l_chr_id := p_chr_id;
320: l_cle_id := p_cle_id;
321:
324: END IF;
325:
326: -- call START_ACTIVITY to create savepoint, check compatibility
327: -- and initialize message list
328: x_return_status := OKL_API.START_ACTIVITY (
329: l_api_name
330: ,p_init_msg_list
331: ,g_api_type
332: ,x_return_status);
331: ,g_api_type
332: ,x_return_status);
333:
334: -- check if activity started successfully
335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
338: RAISE OKL_API.G_EXCEPTION_ERROR;
339: END IF;
332: ,x_return_status);
333:
334: -- check if activity started successfully
335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
338: RAISE OKL_API.G_EXCEPTION_ERROR;
339: END IF;
340:
333:
334: -- check if activity started successfully
335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
338: RAISE OKL_API.G_EXCEPTION_ERROR;
339: END IF;
340:
341: OPEN l_hdr_upfront_tax(p_chr_id);
334: -- check if activity started successfully
335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
338: RAISE OKL_API.G_EXCEPTION_ERROR;
339: END IF;
340:
341: OPEN l_hdr_upfront_tax(p_chr_id);
342: FETCH l_hdr_upfront_tax into l_header_upfront_tax;
387: p_rgpv_rec => l_rgpv_rec,
388: x_rgpv_rec => lx_rgpv_rec);
389: l_rgp_id := lx_rgpv_rec.id;
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
388: x_rgpv_rec => lx_rgpv_rec);
389: l_rgp_id := lx_rgpv_rec.id;
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
396: END IF;
389: l_rgp_id := lx_rgpv_rec.id;
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
396: END IF;
397:
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
396: END IF;
397:
398: -- Create the sales Tax rule
445: x_msg_data => x_msg_data,
446: p_rulv_rec => l_rulv_rec,
447: x_rulv_rec => lx_rulv_rec);
448:
449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_ERROR;
453: END IF;
446: p_rulv_rec => l_rulv_rec,
447: x_rulv_rec => lx_rulv_rec);
448:
449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_ERROR;
453: END IF;
454:
447: x_rulv_rec => lx_rulv_rec);
448:
449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_ERROR;
453: END IF;
454:
455: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
448:
449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_ERROR;
453: END IF;
454:
455: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
456: x_msg_data => x_msg_data);
451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_ERROR;
453: END IF;
454:
455: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
456: x_msg_data => x_msg_data);
457: EXCEPTION
458: WHEN OKL_API.G_EXCEPTION_ERROR THEN
459: IF get_contract_sales_tax_info%ISOPEN THEN
454:
455: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
456: x_msg_data => x_msg_data);
457: EXCEPTION
458: WHEN OKL_API.G_EXCEPTION_ERROR THEN
459: IF get_contract_sales_tax_info%ISOPEN THEN
460: CLOSE get_contract_sales_tax_info;
461: END IF;
462: IF l_hdr_upfront_tax%ISOPEN THEN
466: CLOSE l_asset_tax_rule_group;
467: END IF;
468:
469:
470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
471: p_api_name => l_api_name,
472: p_pkg_name => g_pkg_name,
473: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
474: x_msg_count => x_msg_count,
474: x_msg_count => x_msg_count,
475: x_msg_data => x_msg_data,
476: p_api_type => g_api_type);
477:
478: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
479: IF get_contract_sales_tax_info%ISOPEN THEN
480: CLOSE get_contract_sales_tax_info;
481: END IF;
482: IF l_hdr_upfront_tax%ISOPEN THEN
484: END IF;
485: IF l_asset_tax_rule_group%ISOPEN THEN
486: CLOSE l_asset_tax_rule_group;
487: END IF;
488: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
489: p_api_name => l_api_name,
490: p_pkg_name => g_pkg_name,
491: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
492: x_msg_count => x_msg_count,
499: END IF;
500: IF l_asset_tax_rule_group%ISOPEN THEN
501: CLOSE l_asset_tax_rule_group;
502: END IF;
503: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
504: p_api_name => l_api_name,
505: p_pkg_name => g_pkg_name,
506: p_exc_name => 'OTHERS',
507: x_msg_count => x_msg_count,
614: IF (G_DEBUG_ENABLED = 'Y') THEN
615: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
616: END IF;
617:
618: x_return_status := OKL_API.G_RET_STS_SUCCESS;
619:
620: -- Bug 5129446
621: /*
622: l_upfront_tax_yn := 'N';
631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'sync here1');
632: END IF;
633: -- call START_ACTIVITY to create savepoint, check compatibility
634: -- and initialize message list
635: x_return_status := OKL_API.START_ACTIVITY (
636: l_api_name
637: ,p_init_msg_list
638: ,g_api_type
639: ,x_return_status);
638: ,g_api_type
639: ,x_return_status);
640:
641: -- check if activity started successfully
642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_ERROR;
646: END IF;
639: ,x_return_status);
640:
641: -- check if activity started successfully
642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_ERROR;
646: END IF;
647:
640:
641: -- check if activity started successfully
642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_ERROR;
646: END IF;
647:
648: -- Bug 5129446
641: -- check if activity started successfully
642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
645: RAISE OKL_API.G_EXCEPTION_ERROR;
646: END IF;
647:
648: -- Bug 5129446
649: /*
655: CLOSE get_sales_tax_prc_info;
656: l_header_upfront_tax := lv_k_rule_information1;
657:
658: If((l_upfront_tax_yn = 'Y') AND l_header_upfront_tax is null) Then
659: x_return_status := OKL_API.G_RET_STS_ERROR;
660: OKL_API.set_message(
661: p_app_name => G_APP_NAME,
662: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
663: raise OKL_API.G_EXCEPTION_ERROR;
656: l_header_upfront_tax := lv_k_rule_information1;
657:
658: If((l_upfront_tax_yn = 'Y') AND l_header_upfront_tax is null) Then
659: x_return_status := OKL_API.G_RET_STS_ERROR;
660: OKL_API.set_message(
661: p_app_name => G_APP_NAME,
662: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
663: raise OKL_API.G_EXCEPTION_ERROR;
664: End If;
659: x_return_status := OKL_API.G_RET_STS_ERROR;
660: OKL_API.set_message(
661: p_app_name => G_APP_NAME,
662: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
663: raise OKL_API.G_EXCEPTION_ERROR;
664: End If;
665:
666: --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
667: If((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information2 is null) or (lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
662: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
663: raise OKL_API.G_EXCEPTION_ERROR;
664: End If;
665:
666: --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
667: If((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information2 is null) or (lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
668:
669: OPEN get_segment_prompt('RULE_INFORMATION2');
670: FETCH get_segment_prompt into l_ak_prompt;
663: raise OKL_API.G_EXCEPTION_ERROR;
664: End If;
665:
666: --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
667: If((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information2 is null) or (lv_k_rule_information2 = OKL_API.G_MISS_CHAR)) Then
668:
669: OPEN get_segment_prompt('RULE_INFORMATION2');
670: FETCH get_segment_prompt into l_ak_prompt;
671: CLOSE get_segment_prompt;
669: OPEN get_segment_prompt('RULE_INFORMATION2');
670: FETCH get_segment_prompt into l_ak_prompt;
671: CLOSE get_segment_prompt;
672:
673: x_return_status := OKL_API.g_ret_sts_error;
674: OKL_API.SET_MESSAGE( p_app_name => g_app_name
675: , p_msg_name => 'OKL_REQUIRED_VALUE'
676: , p_token1 => 'COL_NAME'
677: , p_token1_value => l_ak_prompt
670: FETCH get_segment_prompt into l_ak_prompt;
671: CLOSE get_segment_prompt;
672:
673: x_return_status := OKL_API.g_ret_sts_error;
674: OKL_API.SET_MESSAGE( p_app_name => g_app_name
675: , p_msg_name => 'OKL_REQUIRED_VALUE'
676: , p_token1 => 'COL_NAME'
677: , p_token1_value => l_ak_prompt
678: );
675: , p_msg_name => 'OKL_REQUIRED_VALUE'
676: , p_token1 => 'COL_NAME'
677: , p_token1_value => l_ak_prompt
678: );
679: raise OKL_API.G_EXCEPTION_ERROR;
680:
681: --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
682: ElsIf((l_upfront_tax_yn) = 'Y' AND (lv_k_rule_information3 is null) or (lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
683:
677: , p_token1_value => l_ak_prompt
678: );
679: raise OKL_API.G_EXCEPTION_ERROR;
680:
681: --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
682: ElsIf((l_upfront_tax_yn) = 'Y' AND (lv_k_rule_information3 is null) or (lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
683:
684: OPEN get_segment_prompt('RULE_INFORMATION3');
685: FETCH get_segment_prompt into l_ak_prompt;
678: );
679: raise OKL_API.G_EXCEPTION_ERROR;
680:
681: --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
682: ElsIf((l_upfront_tax_yn) = 'Y' AND (lv_k_rule_information3 is null) or (lv_k_rule_information3 = OKL_API.G_MISS_CHAR)) Then
683:
684: OPEN get_segment_prompt('RULE_INFORMATION3');
685: FETCH get_segment_prompt into l_ak_prompt;
686: CLOSE get_segment_prompt;
684: OPEN get_segment_prompt('RULE_INFORMATION3');
685: FETCH get_segment_prompt into l_ak_prompt;
686: CLOSE get_segment_prompt;
687:
688: x_return_status := OKL_API.g_ret_sts_error;
689: OKL_API.SET_MESSAGE( p_app_name => g_app_name
690: , p_msg_name => 'OKL_REQUIRED_VALUE'
691: , p_token1 => 'COL_NAME'
692: , p_token1_value => l_ak_prompt
685: FETCH get_segment_prompt into l_ak_prompt;
686: CLOSE get_segment_prompt;
687:
688: x_return_status := OKL_API.g_ret_sts_error;
689: OKL_API.SET_MESSAGE( p_app_name => g_app_name
690: , p_msg_name => 'OKL_REQUIRED_VALUE'
691: , p_token1 => 'COL_NAME'
692: , p_token1_value => l_ak_prompt
693: );
690: , p_msg_name => 'OKL_REQUIRED_VALUE'
691: , p_token1 => 'COL_NAME'
692: , p_token1_value => l_ak_prompt
693: );
694: raise OKL_API.G_EXCEPTION_ERROR;
695:
696: --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
697: ElsIf((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information4 is null) or (lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
698:
692: , p_token1_value => l_ak_prompt
693: );
694: raise OKL_API.G_EXCEPTION_ERROR;
695:
696: --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
697: ElsIf((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information4 is null) or (lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
698:
699: OPEN get_segment_prompt('RULE_INFORMATION4');
700: FETCH get_segment_prompt into l_ak_prompt;
693: );
694: raise OKL_API.G_EXCEPTION_ERROR;
695:
696: --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
697: ElsIf((l_upfront_tax_yn = 'Y') AND (lv_k_rule_information4 is null) or (lv_k_rule_information4 = OKL_API.G_MISS_CHAR)) Then
698:
699: OPEN get_segment_prompt('RULE_INFORMATION4');
700: FETCH get_segment_prompt into l_ak_prompt;
701: CLOSE get_segment_prompt;
699: OPEN get_segment_prompt('RULE_INFORMATION4');
700: FETCH get_segment_prompt into l_ak_prompt;
701: CLOSE get_segment_prompt;
702:
703: x_return_status := OKL_API.g_ret_sts_error;
704: OKL_API.SET_MESSAGE( p_app_name => g_app_name
705: , p_msg_name => 'OKL_REQUIRED_VALUE'
706: , p_token1 => 'COL_NAME'
707: , p_token1_value => l_ak_prompt
700: FETCH get_segment_prompt into l_ak_prompt;
701: CLOSE get_segment_prompt;
702:
703: x_return_status := OKL_API.g_ret_sts_error;
704: OKL_API.SET_MESSAGE( p_app_name => g_app_name
705: , p_msg_name => 'OKL_REQUIRED_VALUE'
706: , p_token1 => 'COL_NAME'
707: , p_token1_value => l_ak_prompt
708: );
705: , p_msg_name => 'OKL_REQUIRED_VALUE'
706: , p_token1 => 'COL_NAME'
707: , p_token1_value => l_ak_prompt
708: );
709: raise OKL_API.G_EXCEPTION_ERROR;
710:
711: End If;
712: */
713:
727: END IF;
728: CLOSE get_contract_sales_tax_info;
729:
730: IF(NOT(nvl(lv_k_rule_information1,'N') = 'Y')) THEN
731: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
732: x_msg_data => x_msg_data);
733: RETURN;
734: END IF;
735:
771: x_msg_data => x_msg_data,
772: p_rulv_rec => l_rulv_rec,
773: x_rulv_rec => lx_rulv_rec);
774:
775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
772: p_rulv_rec => l_rulv_rec,
773: x_rulv_rec => lx_rulv_rec);
774:
775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780:
773: x_rulv_rec => lx_rulv_rec);
774:
775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780:
781: END IF;
774:
775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780:
781: END IF;
782:
783: END IF; -- close of rebook check
784:
785: END LOOP;
786:
787: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
788: x_msg_data => x_msg_data);
789: EXCEPTION
790: WHEN OKL_API.G_EXCEPTION_ERROR THEN
791: IF get_contract_sales_tax_info%ISOPEN THEN
786:
787: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
788: x_msg_data => x_msg_data);
789: EXCEPTION
790: WHEN OKL_API.G_EXCEPTION_ERROR THEN
791: IF get_contract_sales_tax_info%ISOPEN THEN
792: CLOSE get_contract_sales_tax_info;
793: END IF;
794: IF get_contract_lines%ISOPEN THEN
796: END IF;
797: IF get_asset_sales_tax_info%ISOPEN THEN
798: CLOSE get_asset_sales_tax_info;
799: END IF;
800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
801: l_api_name,
802: g_pkg_name,
803: 'OKL_API.G_RET_STS_ERROR',
804: x_msg_count,
799: END IF;
800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
801: l_api_name,
802: g_pkg_name,
803: 'OKL_API.G_RET_STS_ERROR',
804: x_msg_count,
805: x_msg_data,
806: g_api_type);
807: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
803: 'OKL_API.G_RET_STS_ERROR',
804: x_msg_count,
805: x_msg_data,
806: g_api_type);
807: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
808: IF get_contract_sales_tax_info%ISOPEN THEN
809: CLOSE get_contract_sales_tax_info;
810: END IF;
811: IF get_contract_lines%ISOPEN THEN
816: END IF;
817: IF l_tax_system_info%ISOPEN THEN
818: CLOSE l_tax_system_info;
819: END IF;
820: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
821: l_api_name,
822: g_pkg_name,
823: 'OKL_API.G_RET_STS_UNEXP_ERROR',
824: x_msg_count,
819: END IF;
820: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
821: l_api_name,
822: g_pkg_name,
823: 'OKL_API.G_RET_STS_UNEXP_ERROR',
824: x_msg_count,
825: x_msg_data,
826: g_api_type);
827: WHEN OTHERS THEN
836: END IF;
837: IF l_tax_system_info%ISOPEN THEN
838: CLOSE l_tax_system_info;
839: END IF;
840: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
841: l_api_name,
842: g_pkg_name,
843: 'OTHERS',
844: x_msg_count,
850: -- Procedure create/update transaction records for pre-booking
851: -- and pre-rebooking processes
852: Procedure populate_transaction(
853: p_api_version IN NUMBER,
854: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
855: p_contract_id IN okc_k_headers_all_b.id%TYPE,
856: p_transaction_type IN okl_trx_types_tl.name%TYPE,
857: p_transaction_id IN okl_trx_contracts_all.id%TYPE DEFAULT NULL,
858: p_source_trx_id IN okl_trx_contracts_all.source_trx_id%TYPE DEFAULT NULL,
871:
872: -- Define variables
873: l_sysdate DATE;
874: l_sysdate_trunc DATE;
875: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
876: l_post_to_gl_yn VARCHAR2(1);
877:
878: CURSOR Transaction_Type_csr (p_transaction_type IN okl_trx_types_v.name%TYPE )
879: IS
893: AND txh.tcn_type = tcntype;
894:
895: i NUMBER;
896: l_amount NUMBER;
897: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
898: l_msg_count NUMBER;
899: l_msg_data VARCHAR2(2000);
900: l_currency_code okl_txl_cntrct_lns.currency_code%TYPE;
901: l_fnd_profile VARCHAR2(256);
957: IF (G_DEBUG_ENABLED = 'Y') THEN
958: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
959: END IF;
960:
961: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
962: l_sysdate := SYSDATE;
963: l_sysdate_trunc := trunc(SYSDATE);
964: i := 0;
965:
973: -- Get product_id
974: OPEN Product_csr (p_contract_id);
975: FETCH Product_csr INTO g_Product_rec;
976: IF Product_csr%NOTFOUND THEN
977: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
978: CLOSE Product_csr;
979: RAISE Okl_Api.G_EXCEPTION_ERROR;
980: END IF;
981: CLOSE Product_csr;
975: FETCH Product_csr INTO g_Product_rec;
976: IF Product_csr%NOTFOUND THEN
977: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
978: CLOSE Product_csr;
979: RAISE Okl_Api.G_EXCEPTION_ERROR;
980: END IF;
981: CLOSE Product_csr;
982:
983: l_chr_curr_code := g_Product_rec.CURRENCY_CODE;
1018:
1019:
1020:
1021: -- Validate passed parameters
1022: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
1023: OR ( p_contract_id IS NULL ) THEN
1024: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
1025: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1026: RAISE pop_trx_failed;
1020:
1021: -- Validate passed parameters
1022: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
1023: OR ( p_contract_id IS NULL ) THEN
1024: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
1025: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1026: RAISE pop_trx_failed;
1027: END IF;
1028:
1021: -- Validate passed parameters
1022: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
1023: OR ( p_contract_id IS NULL ) THEN
1024: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
1025: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1026: RAISE pop_trx_failed;
1027: END IF;
1028:
1029: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1025: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
1026: RAISE pop_trx_failed;
1027: END IF;
1028:
1029: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1030: OR ( p_transaction_type IS NULL ) THEN
1031: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
1032: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_TRX_TYPE_ERROR');
1033: RAISE pop_trx_failed;
1027: END IF;
1028:
1029: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1030: OR ( p_transaction_type IS NULL ) THEN
1031: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
1032: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_TRX_TYPE_ERROR');
1033: RAISE pop_trx_failed;
1034: END IF;
1035:
1028:
1029: IF ( p_transaction_type = Okl_Api.G_MISS_CHAR )
1030: OR ( p_transaction_type IS NULL ) THEN
1031: --Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
1032: Okl_Api.Set_Message(G_APP_NAME, 'OKL_LA_ST_TRX_TYPE_ERROR');
1033: RAISE pop_trx_failed;
1034: END IF;
1035:
1036: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1039: -- Check Transaction_Type
1040: OPEN Transaction_Type_csr(l_transaction_type);
1041: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
1042: IF Transaction_Type_csr%NOTFOUND THEN
1043: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,'TRANSACTION_TYPE', l_transaction_type);
1044: /*OKL_API.SET_MESSAGE(
1045: p_app_name => G_APP_NAME,
1046: p_msg_name => G_INVALID_VALUE,
1047: p_token1 => 'COL_NAME',
1040: OPEN Transaction_Type_csr(l_transaction_type);
1041: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
1042: IF Transaction_Type_csr%NOTFOUND THEN
1043: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,'TRANSACTION_TYPE', l_transaction_type);
1044: /*OKL_API.SET_MESSAGE(
1045: p_app_name => G_APP_NAME,
1046: p_msg_name => G_INVALID_VALUE,
1047: p_token1 => 'COL_NAME',
1048: p_token1_value => 'TRANSACTION_TYPE');*/
1061: OPEN fnd_lookups_csr('OKL_TCN_TYPE', l_transaction_type);
1062: FETCH fnd_lookups_csr INTO l_fnd_rec;
1063:
1064: IF fnd_lookups_csr%NOTFOUND THEN
1065: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,'TRANSACTION_TYPE', l_transaction_type);
1066: CLOSE fnd_lookups_csr;
1067: RAISE pop_trx_failed;
1068: END IF;
1069: CLOSE fnd_lookups_csr;
1082: IF (l_transaction_type <> 'Upfront Tax') THEN
1083: OPEN trx_csr(p_contract_id,l_fnd_rec.lookup_code);
1084: FETCH trx_csr INTO l_trx_rec;
1085: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
1086: l_has_trans := OKL_API.G_FALSE;
1087: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1088: Else
1089: l_has_trans := OKL_API.G_TRUE;
1090: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1085: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
1086: l_has_trans := OKL_API.G_FALSE;
1087: okl_debug_pub.logmessage('OKL: POP TRX : No Existing TRX: '||l_fnd_rec.lookup_code);
1088: Else
1089: l_has_trans := OKL_API.G_TRUE;
1090: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1091: END IF;
1092: CLOSE trx_csr;
1093: ELSE
1090: okl_debug_pub.logmessage('OKL: POP TRX : TRX Exists: '|| l_fnd_rec.lookup_code);
1091: END IF;
1092: CLOSE trx_csr;
1093: ELSE
1094: l_has_trans := OKL_API.G_FALSE;
1095: END IF;
1096: -- gboomina Bug 6487183 - End
1097:
1098: l_trxH_in_rec.khr_id := p_contract_id;
1122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : tcn_type '||l_trxH_in_rec.tcn_type);
1123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : l_has_trans '||l_has_trans);
1124: END IF;
1125:
1126: If ( l_has_trans = OKL_API.G_FALSE ) Then
1127:
1128: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Populate Trx Procedure : before fnd_lookups_csr ');
1130: END IF;
1138: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1139: END IF;
1140: FETCH fnd_lookups_csr INTO l_fnd_rec;
1141: IF fnd_lookups_csr%NOTFOUND THEN
1142: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1143: CLOSE fnd_lookups_csr;
1144: RAISE pop_trx_failed;
1145: END IF;
1146: CLOSE fnd_lookups_csr;
1160: -- get the contract number
1161: OPEN contract_num_csr(p_contract_id);
1162: FETCH contract_num_csr INTO l_cntrct_number;
1163: CLOSE contract_num_csr;
1164: Okl_Api.set_message(p_app_name => g_app_name,
1165: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1166: p_token1 => 'CONTRACT_NUMBER',
1167: p_token1_value => l_cntrct_number);
1168: RAISE OKL_API.G_EXCEPTION_ERROR;
1164: Okl_Api.set_message(p_app_name => g_app_name,
1165: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1166: p_token1 => 'CONTRACT_NUMBER',
1167: p_token1_value => l_cntrct_number);
1168: RAISE OKL_API.G_EXCEPTION_ERROR;
1169: END IF;
1170: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
1171: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
1172: , G_MODULE
1184: ,x_tcnv_rec => l_trxH_out_rec);
1185:
1186: okl_debug_pub.logmessage('OKL: POP TRX : return status '||x_return_status);
1187:
1188: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1189: RAISE pop_trx_failed;
1190: END IF;
1191:
1192: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1188: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1189: RAISE pop_trx_failed;
1190: END IF;
1191:
1192: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1193: (l_trxH_out_rec.id IS NULL) ) THEN
1194: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1195: --OKL_API.set_message(G_APP_NAME, 'Header Transaction Id is null or invalid');
1196: RAISE pop_trx_failed;
1190: END IF;
1191:
1192: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1193: (l_trxH_out_rec.id IS NULL) ) THEN
1194: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1195: --OKL_API.set_message(G_APP_NAME, 'Header Transaction Id is null or invalid');
1196: RAISE pop_trx_failed;
1197: END IF;
1198:
1191:
1192: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1193: (l_trxH_out_rec.id IS NULL) ) THEN
1194: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1195: --OKL_API.set_message(G_APP_NAME, 'Header Transaction Id is null or invalid');
1196: RAISE pop_trx_failed;
1197: END IF;
1198:
1199: l_fnd_rec := null;
1221:
1222: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1223: FETCH fnd_lookups_csr INTO l_fnd_rec;
1224: IF fnd_lookups_csr%NOTFOUND THEN
1225: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1226: --Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot Find Transaction Status');
1227: CLOSE fnd_lookups_csr;
1228: RAISE pop_trx_failed;
1229: END IF;
1222: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Entered');
1223: FETCH fnd_lookups_csr INTO l_fnd_rec;
1224: IF fnd_lookups_csr%NOTFOUND THEN
1225: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1226: --Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot Find Transaction Status');
1227: CLOSE fnd_lookups_csr;
1228: RAISE pop_trx_failed;
1229: END IF;
1230: CLOSE fnd_lookups_csr;
1243: ,x_msg_data => x_msg_data
1244: ,p_tcnv_rec => l_upd_trxH_rec
1245: ,x_tcnv_rec => lx_upd_trxH_rec);
1246:
1247: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1248: RAISE pop_trx_failed;
1249: END IF;
1250:
1251: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1247: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1248: RAISE pop_trx_failed;
1249: END IF;
1250:
1251: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1252: (lx_upd_trxH_rec.id IS NULL) ) THEN
1253: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1254: --OKL_API.set_message(G_APP_NAME, 'TRANSACTION_ID Missing');
1255: RAISE pop_trx_failed;
1249: END IF;
1250:
1251: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1252: (lx_upd_trxH_rec.id IS NULL) ) THEN
1253: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1254: --OKL_API.set_message(G_APP_NAME, 'TRANSACTION_ID Missing');
1255: RAISE pop_trx_failed;
1256: END IF;
1257:
1250:
1251: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
1252: (lx_upd_trxH_rec.id IS NULL) ) THEN
1253: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
1254: --OKL_API.set_message(G_APP_NAME, 'TRANSACTION_ID Missing');
1255: RAISE pop_trx_failed;
1256: END IF;
1257:
1258: -- outbound transaction id
1277: okl_debug_pub.logmessage('OKL: POP TRX : END');
1278:
1279: Exception
1280: when pop_trx_failed then
1281: x_return_status := OKL_API.G_RET_STS_ERROR;
1282:
1283: END populate_transaction;
1284:
1285:
1425: END get_upfront_tax;
1426:
1427: PROCEDURE update_fee(
1428: p_api_version IN NUMBER,
1429: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1430: p_contract_id IN NUMBER,
1431: p_transaction_id IN NUMBER,
1432: p_fee_line_id IN NUMBER,
1433: p_required_feetype IN VARCHAR2,
1665: IF (G_DEBUG_ENABLED = 'Y') THEN
1666: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1667: END IF;
1668:
1669: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1670:
1671: -- If upfront tax is 'FINANCED'
1672: IF (p_required_feetype = 'FINANCE') THEN
1673: l_upfront_tax_fee_amount := get_financed_tax (p_contract_id, p_default_feetype);
1711: 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);
1712: END IF;
1713:
1714: -- Check if the call was successful
1715: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1716: RAISE update_fee_exception;
1717: END IF;
1718: END IF;
1719:
1755: 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);
1756: END IF;
1757:
1758: -- Check if the call was successful
1759: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1760: RAISE update_fee_exception;
1761: END IF;
1762: END IF;
1763:
1775: OPEN get_asset_tax_amt_csr(j.id);
1776: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
1777: IF get_asset_tax_amt_csr%NOTFOUND THEN
1778:
1779: OKL_API.set_message(G_APP_NAME, 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
1780: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1781: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
1782: END IF;
1783: CLOSE get_asset_tax_amt_csr;
1865: -- get asset tax amount
1866: OPEN get_asset_tax_amt_csr(j.id);
1867: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
1868: IF get_asset_tax_amt_csr%NOTFOUND THEN
1869: OKL_API.set_message( p_app_name => G_APP_NAME,
1870: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
1871: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1872: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
1873: END IF;
1957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
1958: END IF;
1959:
1960: -- Check if the call was successful
1961: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
1962: RAISE update_fee_exception;
1963: End If;
1964: END IF;
1965:
1982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
1983: END IF;
1984:
1985: -- Check if the call was successful
1986: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
1987: RAISE update_fee_exception;
1988: End If;
1989: END IF;
1990:
2006: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2007: END IF;
2008:
2009: -- Check if the call was successful
2010: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2011: RAISE update_fee_exception;
2012: End If;
2013: END IF;
2014:
2043: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2044: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Update Fee Procedure: x_return_status '||x_return_status);
2045: END IF;
2046:
2047: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2048: RAISE update_fee_exception;
2049: End If;
2050: END IF;
2051: END IF;
2051: END IF;
2052:
2053: EXCEPTION
2054: when update_fee_exception then
2055: x_return_status := OKL_API.G_RET_STS_ERROR;
2056:
2057: END update_fee;
2058:
2059: PROCEDURE process_tax_override(
2057: END update_fee;
2058:
2059: PROCEDURE process_tax_override(
2060: p_api_version IN NUMBER,
2061: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2062: p_chr_id IN NUMBER,
2063: p_transaction_id IN NUMBER,
2064: x_return_status OUT NOCOPY VARCHAR2,
2065: x_msg_count OUT NOCOPY NUMBER,
2094: IF (G_DEBUG_ENABLED = 'Y') THEN
2095: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2096: END IF;
2097:
2098: x_return_status := OKL_API.START_ACTIVITY(
2099: p_api_name => l_api_name,
2100: p_pkg_name => g_pkg_name,
2101: p_init_msg_list => p_init_msg_list,
2102: l_api_version => l_api_version,
2104: p_api_type => G_API_TYPE,
2105: x_return_status => x_return_status);
2106:
2107: -- check if activity started successfully
2108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2105: x_return_status => x_return_status);
2106:
2107: -- check if activity started successfully
2108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113:
2106:
2107: -- check if activity started successfully
2108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113:
2114: OPEN rule_info_csr(p_contract_id => p_chr_id);
2107: -- check if activity started successfully
2108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2111: RAISE OKL_API.G_EXCEPTION_ERROR;
2112: END IF;
2113:
2114: OPEN rule_info_csr(p_contract_id => p_chr_id);
2115: FETCH rule_info_csr INTO l_rule_info_rec;
2113:
2114: OPEN rule_info_csr(p_contract_id => p_chr_id);
2115: FETCH rule_info_csr INTO l_rule_info_rec;
2116: IF rule_info_csr%NOTFOUND THEN
2117: OKL_API.set_message( p_app_name => G_APP_NAME,
2118: p_msg_name => 'OKL_QA_ST_MISSING');
2119: CLOSE rule_info_csr;
2120: RAISE OKL_API.G_EXCEPTION_ERROR;
2121: END IF;
2116: IF rule_info_csr%NOTFOUND THEN
2117: OKL_API.set_message( p_app_name => G_APP_NAME,
2118: p_msg_name => 'OKL_QA_ST_MISSING');
2119: CLOSE rule_info_csr;
2120: RAISE OKL_API.G_EXCEPTION_ERROR;
2121: END IF;
2122: CLOSE rule_info_csr;
2123:
2124: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2155: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2156: 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);
2157: END IF;
2158:
2159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_ERROR;
2163: END IF;
2156: 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);
2157: END IF;
2158:
2159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_ERROR;
2163: END IF;
2164:
2157: END IF;
2158:
2159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_ERROR;
2163: END IF;
2164:
2165: OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee(
2158:
2159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2162: RAISE OKL_API.G_EXCEPTION_ERROR;
2163: END IF;
2164:
2165: OKL_LA_SALES_TAX_PVT.validate_upfront_tax_fee(
2166: p_api_version => p_api_version,
2173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2174: 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);
2175: END IF;
2176:
2177: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2178: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR;
2179: ELSE
2180: l_upfront_tax_prog_sts := OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE;
2181: END IF;
2189: p_khr_id => p_chr_id ,
2190: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX ,
2191: p_progress_status => l_upfront_tax_prog_sts);
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2190: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_CALC_UPFRONT_TAX ,
2191: p_progress_status => l_upfront_tax_prog_sts);
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2198: END IF;
2191: p_progress_status => l_upfront_tax_prog_sts);
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2198: END IF;
2199:
2192:
2193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2198: END IF;
2199:
2200: --Update Contract Status to Passed
2206: x_msg_data => x_msg_data,
2207: p_khr_status => 'PASSED',
2208: p_chr_id => p_chr_id);
2209:
2210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_ERROR;
2214: END IF;
2207: p_khr_status => 'PASSED',
2208: p_chr_id => p_chr_id);
2209:
2210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_ERROR;
2214: END IF;
2215:
2208: p_chr_id => p_chr_id);
2209:
2210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_ERROR;
2214: END IF;
2215:
2216: --call to cascade status on to lines
2209:
2210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_ERROR;
2214: END IF;
2215:
2216: --call to cascade status on to lines
2217: OKL_CONTRACT_STATUS_PUB.cascade_lease_status
2221: x_msg_count => x_msg_count,
2222: x_msg_data => x_msg_data,
2223: p_chr_id => p_chr_id);
2224:
2225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2228: RAISE OKL_API.G_EXCEPTION_ERROR;
2229: END IF;
2222: x_msg_data => x_msg_data,
2223: p_chr_id => p_chr_id);
2224:
2225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2228: RAISE OKL_API.G_EXCEPTION_ERROR;
2229: END IF;
2230:
2223: p_chr_id => p_chr_id);
2224:
2225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2228: RAISE OKL_API.G_EXCEPTION_ERROR;
2229: END IF;
2230:
2231: --Update status of Price Contract process to Pending
2224:
2225: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2228: RAISE OKL_API.G_EXCEPTION_ERROR;
2229: END IF;
2230:
2231: --Update status of Price Contract process to Pending
2232: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
2238: p_khr_id => p_chr_id ,
2239: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
2240: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2239: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
2240: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2247:
2240: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2247:
2248: --Update status of Submit Contract process to Pending
2241:
2242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2245: RAISE OKL_API.G_EXCEPTION_ERROR;
2246: END IF;
2247:
2248: --Update status of Submit Contract process to Pending
2249: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
2255: p_khr_id => p_chr_id ,
2256: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
2257: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2258:
2259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2262: RAISE OKL_API.G_EXCEPTION_ERROR;
2263: END IF;
2256: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
2257: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2258:
2259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2262: RAISE OKL_API.G_EXCEPTION_ERROR;
2263: END IF;
2264:
2257: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_PENDING);
2258:
2259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2262: RAISE OKL_API.G_EXCEPTION_ERROR;
2263: END IF;
2264:
2265: EXCEPTION
2258:
2259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2262: RAISE OKL_API.G_EXCEPTION_ERROR;
2263: END IF;
2264:
2265: EXCEPTION
2266:
2263: END IF;
2264:
2265: EXCEPTION
2266:
2267: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2268: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2269: p_api_name => l_api_name,
2270: p_pkg_name => g_pkg_name,
2271: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2264:
2265: EXCEPTION
2266:
2267: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2268: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2269: p_api_name => l_api_name,
2270: p_pkg_name => g_pkg_name,
2271: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2272: x_msg_count => x_msg_count,
2267: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2268: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2269: p_api_name => l_api_name,
2270: p_pkg_name => g_pkg_name,
2271: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2272: x_msg_count => x_msg_count,
2273: x_msg_data => x_msg_data,
2274: p_api_type => g_api_type);
2275:
2272: x_msg_count => x_msg_count,
2273: x_msg_data => x_msg_data,
2274: p_api_type => g_api_type);
2275:
2276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2278: p_api_name => l_api_name,
2279: p_pkg_name => g_pkg_name,
2280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2273: x_msg_data => x_msg_data,
2274: p_api_type => g_api_type);
2275:
2276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2278: p_api_name => l_api_name,
2279: p_pkg_name => g_pkg_name,
2280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2281: x_msg_count => x_msg_count,
2276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2277: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2278: p_api_name => l_api_name,
2279: p_pkg_name => g_pkg_name,
2280: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2281: x_msg_count => x_msg_count,
2282: x_msg_data => x_msg_data,
2283: p_api_type => g_api_type);
2284:
2282: x_msg_data => x_msg_data,
2283: p_api_type => g_api_type);
2284:
2285: WHEN OTHERS THEN
2286: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2287: p_api_name => l_api_name,
2288: p_pkg_name => g_pkg_name,
2289: p_exc_name => 'OTHERS',
2290: x_msg_count => x_msg_count,
2296:
2297: -- Procedure to create Financed fee
2298: Procedure create_fee(
2299: p_api_version IN NUMBER,
2300: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
2301: p_contract_id IN NUMBER,
2302: p_transaction_id IN NUMBER,
2303: p_default_feetype IN VARCHAR2,
2304: p_required_feetype IN VARCHAR2,
2436: IF (G_DEBUG_ENABLED = 'Y') THEN
2437: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2438: END IF;
2439:
2440: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2441:
2442: -- If upfront tax is 'FINANCED'
2443: If (p_required_feetype = 'FINANCE') THEN
2444:
2460: FETCH check_fee_csr INTO l_fee_line_id;
2461: -- R12B Authoring OA Migration
2462:
2463: IF check_fee_csr%NOTFOUND THEN
2464: l_finance_fee_exists := OKL_API.G_FALSE;
2465: Else
2466: l_finance_fee_exists := OKL_API.G_TRUE;
2467: END IF;
2468: CLOSE check_fee_csr;
2462:
2463: IF check_fee_csr%NOTFOUND THEN
2464: l_finance_fee_exists := OKL_API.G_FALSE;
2465: Else
2466: l_finance_fee_exists := OKL_API.G_TRUE;
2467: END IF;
2468: CLOSE check_fee_csr;
2469:
2470: -- Create Fee only if the amount is > 0 and Sale Tax Fee does not
2472: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2473: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: FINANCE segment: before IF condition');
2474: END IF;
2475: If ((l_financed_amount > 0) AND
2476: (l_finance_fee_exists = OKL_API.G_FALSE)) THEN
2477:
2478: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2479: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Create Fee Procedure: FINANCE segment: before stream_csr ');
2480: END IF;
2481: -- get item_id1 value
2482: OPEN stream_csr(p_stream_id);
2483: FETCH stream_csr INTO l_item_name;
2484: IF stream_csr%NOTFOUND THEN
2485: OKL_API.set_message(
2486: p_app_name => G_APP_NAME,
2487: p_msg_name => 'OKL_LA_ST_STREAM_ERROR',
2488: p_token1 => 'FEE_TYPE',
2489: p_token1_value => p_required_feetype);
2499: -- get contract dates for fee effective date
2500: OPEN contract_dates_csr;
2501: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2502: IF contract_dates_csr%NOTFOUND THEN
2503: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
2504: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
2505: CLOSE contract_dates_csr;
2506: RAISE create_fee_exception;
2507: END IF;
2500: OPEN contract_dates_csr;
2501: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2502: IF contract_dates_csr%NOTFOUND THEN
2503: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
2504: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
2505: CLOSE contract_dates_csr;
2506: RAISE create_fee_exception;
2507: END IF;
2508: CLOSE contract_dates_csr;
2529: p_fee_types_rec => l_fee_types_rec,
2530: x_fee_types_rec => lx_fee_types_rec
2531: );
2532: -- Check if the call was successful
2533: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2534: RAISE create_fee_exception;
2535: End If;
2536:
2537:
2546: -- get asset tax amount
2547: OPEN get_asset_tax_amt_csr(j.id);
2548: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2549: IF get_asset_tax_amt_csr%NOTFOUND THEN
2550: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset Tax Amount cannot be derived');
2551: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
2552: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2553: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
2554: END IF;
2547: OPEN get_asset_tax_amt_csr(j.id);
2548: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2549: IF get_asset_tax_amt_csr%NOTFOUND THEN
2550: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Asset Tax Amount cannot be derived');
2551: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_K_ID_ERROR');
2552: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2553: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount for ID'|| j.id);
2554: END IF;
2555: CLOSE get_asset_tax_amt_csr;
2584: -- get asset tax amount
2585: OPEN get_asset_tax_amt_csr(j.id);
2586: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2587: IF get_asset_tax_amt_csr%NOTFOUND THEN
2588: OKL_API.set_message( p_app_name => G_APP_NAME,
2589: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2590: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2592: END IF;
2640: END IF;
2641: END LOOP;
2642:
2643: -- Check if the call was successful
2644: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2645: RAISE create_fee_exception;
2646: End If;
2647:
2648: -- Following Segment is for creating Expense Item for Financed Fee
2666: x_msg_data => x_msg_data,
2667: p_rgpv_rec => l_rgpv_rec,
2668: x_rgpv_rec => lx_rgpv_rec);
2669:
2670: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2671: RAISE create_fee_exception;
2672: End If;
2673:
2674: -- Populate Rule Values for Expenses
2702: x_msg_data => x_msg_data,
2703: p_rulv_tbl => l_rulv_tbl,
2704: x_rulv_tbl => lx_rulv_tbl);
2705:
2706: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2707: RAISE create_fee_exception;
2708: End If;
2709:
2710: -- R12B Authoring OA Migration
2707: RAISE create_fee_exception;
2708: End If;
2709:
2710: -- R12B Authoring OA Migration
2711: Elsif (l_finance_fee_exists = OKL_API.G_TRUE) Then
2712:
2713: OKL_LA_SALES_TAX_PVT.update_fee
2714: (p_api_version => p_api_version,
2715: p_init_msg_list => p_init_msg_list,
2721: x_return_status => x_return_status,
2722: x_msg_count => x_msg_count,
2723: x_msg_data => x_msg_data);
2724:
2725: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2726: RAISE create_fee_exception;
2727: End If;
2728: -- R12B Authoring OA Migration
2729:
2754: -- R12B Authoring OA Migration
2755: FETCH check_fee_csr INTO l_fee_line_id;
2756: -- R12B Authoring OA Migration
2757: IF check_fee_csr%NOTFOUND THEN
2758: l_capitalized_fee_exists := OKL_API.G_FALSE;
2759: Else
2760: l_capitalized_fee_exists := OKL_API.G_TRUE;
2761: END IF;
2762: CLOSE check_fee_csr;
2756: -- R12B Authoring OA Migration
2757: IF check_fee_csr%NOTFOUND THEN
2758: l_capitalized_fee_exists := OKL_API.G_FALSE;
2759: Else
2760: l_capitalized_fee_exists := OKL_API.G_TRUE;
2761: END IF;
2762: CLOSE check_fee_csr;
2763:
2764: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2765: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before IF condition');
2766: END IF;
2767: -- Create Fee only if the amount is > 0 and fee does not exist
2768: If ((l_capitalized_amount > 0) AND
2769: (l_capitalized_fee_exists = OKL_API.G_FALSE)) THEN
2770:
2771: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2772: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: Pre Book Procedure: CAPITALIZE segment: before stream_csr ');
2773: END IF;
2775: OPEN stream_csr(p_stream_id);
2776: FETCH stream_csr INTO l_item_name;
2777:
2778: IF stream_csr%NOTFOUND THEN
2779: OKL_API.set_message(
2780: p_app_name => G_APP_NAME,
2781: p_msg_name => 'OKL_LA_ST_STREAM_ERROR',
2782: p_token1 => 'FEE_TYPE',
2783: p_token1_value => p_required_feetype);
2792: -- get contract dates for fee effective date
2793: OPEN contract_dates_csr;
2794: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2795: IF contract_dates_csr%NOTFOUND THEN
2796: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
2797: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
2798: CLOSE contract_dates_csr;
2799: RAISE create_fee_exception;
2800: END IF;
2793: OPEN contract_dates_csr;
2794: FETCH contract_dates_csr INTO contract_dates_csr_rec;
2795: IF contract_dates_csr%NOTFOUND THEN
2796: --Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Fee Effective dates cannot be derived');
2797: Okl_Api.SET_MESSAGE(G_APP_NAME, 'Cannot find contract effective dates for sales tax fee creation.');
2798: CLOSE contract_dates_csr;
2799: RAISE create_fee_exception;
2800: END IF;
2801: CLOSE contract_dates_csr;
2822: p_fee_types_rec => l_fee_types_rec,
2823: x_fee_types_rec => lx_fee_types_rec
2824: );
2825: -- Check if the call was successful
2826: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2827: RAISE create_fee_exception;
2828: End If;
2829:
2830: IF (p_default_feetype = 'CAPITALIZE') THEN
2837: END IF;
2838: OPEN get_asset_tax_amt_csr(j.id);
2839: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2840: IF get_asset_tax_amt_csr%NOTFOUND THEN
2841: OKL_API.set_message( p_app_name => G_APP_NAME,
2842: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2843: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2844: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2845: END IF;
2876: -- get asset tax amount
2877: OPEN get_asset_tax_amt_csr(j.id);
2878: FETCH get_asset_tax_amt_csr INTO l_asset_tax_amt;
2879: IF get_asset_tax_amt_csr%NOTFOUND THEN
2880: OKL_API.set_message( p_app_name => G_APP_NAME,
2881: p_msg_name => 'OKL_LA_ST_ASSET_TAX_AMT_ERROR');
2882: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
2883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cannot derive asset tax amount. for ID'|| j.id);
2884: END IF;
2918: p_line_item_tbl => l_line_item_tbl,
2919: x_line_item_tbl => lx_line_item_tbl);
2920:
2921: -- Check if the call was successful
2922: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2923: RAISE create_fee_exception;
2924: End If;
2925:
2926: -- R12B Authoring OA Migration
2923: RAISE create_fee_exception;
2924: End If;
2925:
2926: -- R12B Authoring OA Migration
2927: Elsif (l_capitalized_fee_exists = OKL_API.G_TRUE) Then
2928:
2929: OKL_LA_SALES_TAX_PVT.update_fee
2930: (p_api_version => p_api_version,
2931: p_init_msg_list => p_init_msg_list,
2937: x_return_status => x_return_status,
2938: x_msg_count => x_msg_count,
2939: x_msg_data => x_msg_data);
2940:
2941: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
2942: RAISE create_fee_exception;
2943: End If;
2944: -- R12B Authoring OA Migration
2945:
2948: End If;
2949:
2950: Exception
2951: when create_fee_exception then
2952: x_return_status := OKL_API.G_RET_STS_ERROR;
2953:
2954: END create_fee;
2955:
2956: -- R12 - START
3045: BEGIN
3046:
3047: okl_debug_pub.logmessage('OKL: populate_account_data : START');
3048:
3049: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3050:
3051: l_acc_gen_primary_key_tbl(1).source_table := 'FINANCIALS_SYSTEM_PARAMETERS';
3052: OPEN fnd_pro_csr;
3053: FETCH fnd_pro_csr INTO fnd_pro_rec;
3104:
3105:
3106: okl_debug_pub.logmessage('OKL: populate_account_data : OKL_SECURITIZATION_PVT : '||x_return_status);
3107:
3108: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3109: THEN
3110: RAISE account_data_exception;
3111: END IF;
3112:
3160:
3161: EXCEPTION
3162: WHEN account_data_exception
3163: THEN
3164: x_return_status := OKL_API.G_RET_STS_ERROR;
3165:
3166: END populate_account_data;
3167:
3168:
3571: BEGIN
3572:
3573: okl_debug_pub.logmessage('OKL: UPF A/C : START');
3574:
3575: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3576:
3577: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
3578: THEN
3579: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
3585: FETCH acct_opt_csr INTO l_acct_opt;
3586:
3587: IF acct_opt_csr%NOTFOUND
3588: THEN
3589: OKL_API.set_message( p_app_name => G_APP_NAME,
3590: p_msg_name => 'OKL_LA_ST_ACCT_ERROR');
3591: CLOSE acct_opt_csr;
3592: RAISE upfront_tax_acct_exception;
3593: END IF;
3602: END IF;
3603:
3604: IF (l_acct_opt IS NULL)
3605: THEN
3606: OKL_API.set_message( p_app_name => G_APP_NAME,
3607: p_msg_name => 'OKL_LA_ST_ACCT_ERROR');
3608: RAISE upfront_tax_acct_exception;
3609: END IF;
3610:
3629: FETCH fnd_lookups_csr INTO l_fnd_rec;
3630:
3631: IF fnd_lookups_csr%NOTFOUND
3632: THEN
3633: Okl_Api.SET_MESSAGE( G_APP_NAME
3634: ,G_INVALID_VALUE
3635: ,'TRANSACTION_TYPE'
3636: ,'Upfront Tax');
3637: CLOSE fnd_lookups_csr;
3658: x_primary_sty_id => l_financed_sty_id);
3659:
3660: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_FINANCED : '||l_financed_sty_id);
3661:
3662: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3663: THEN
3664: RAISE upfront_tax_acct_exception;
3665: End If;
3666:
3678: x_primary_sty_id => l_capitalized_sty_id);
3679:
3680: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_CAPITALIZED : '||l_capitalized_sty_id);
3681:
3682: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3683: RAISE upfront_tax_acct_exception;
3684: End If;
3685:
3686: --Bug# 6619311
3698: x_primary_sty_id => l_billed_sty_id);
3699:
3700: okl_debug_pub.logmessage('OKL: UPF A/C : UPFRONT_TAX_BILLED : '||l_billed_sty_id);
3701:
3702: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
3703: RAISE upfront_tax_acct_exception;
3704: End If;
3705: --End Bug# 6619311
3706:
3828: x_msg_data => x_msg_data);
3829:
3830: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
3831: -- check transaction creation was successful
3832: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3833: THEN
3834: RAISE upfront_tax_acct_exception;
3835: End If;
3836:
3888:
3889: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
3890:
3891: -- check transaction line creation was successful
3892: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3893: THEN
3894: RAISE upfront_tax_acct_exception;
3895: END IF;
3896:
3909:
3910: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
3911:
3912: -- check transaction line creation was successful
3913: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3914: THEN
3915: RAISE upfront_tax_acct_exception;
3916: END IF;
3917:
3935: x_template_tbl => l_template_out_tbl,
3936: x_amount_tbl => l_amount_tbl,
3937: p_trx_header_id => l_trxh_out_rec.id);
3938:
3939: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
3940: THEN
3941: RAISE upfront_tax_acct_exception;
3942: END IF;
3943:
3951: ,P_TCLV_TBL => x_tclv_tbl
3952: ,p_ctxt_val_tbl => l_ctxt_tbl
3953: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
3954:
3955: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3956: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3957: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3958: RAISE Okl_Api.G_EXCEPTION_ERROR;
3959: END IF;
3952: ,p_ctxt_val_tbl => l_ctxt_tbl
3953: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
3954:
3955: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3956: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3957: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3958: RAISE Okl_Api.G_EXCEPTION_ERROR;
3959: END IF;
3960:
3953: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
3954:
3955: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3956: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3957: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3958: RAISE Okl_Api.G_EXCEPTION_ERROR;
3959: END IF;
3960:
3961: END IF;
3954:
3955: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3956: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3957: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3958: RAISE Okl_Api.G_EXCEPTION_ERROR;
3959: END IF;
3960:
3961: END IF;
3962: --Bug# 7506009
4069:
4070: okl_debug_pub.logmessage('OKL: UPF A/C : populate_transaction : return status '||x_return_status);
4071:
4072: -- check transaction creation was successful
4073: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4074: THEN
4075: RAISE upfront_tax_acct_exception;
4076: END IF;
4077:
4126:
4127: okl_debug_pub.logmessage('OKL: UPF A/C : create_trx_cntrct_lines : '||x_return_status);
4128:
4129: -- check transaction line creation was successful
4130: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4131: THEN
4132: RAISE upfront_tax_acct_exception;
4133: END IF;
4134:
4147:
4148: okl_debug_pub.logmessage('OKL: UPF A/C : populate_account_data : '||x_return_status);
4149:
4150: -- check transaction line creation was successful
4151: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4152: THEN
4153: RAISE upfront_tax_acct_exception;
4154: END IF;
4155:
4178: p_trx_header_id => l_trxh_out_rec.id);
4179:
4180: okl_debug_pub.logmessage('OKL: UPF A/C : after calling okl_account_dist_pvt : '|| x_return_status);
4181:
4182: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4183: THEN
4184: RAISE upfront_tax_acct_exception;
4185: END IF;
4186:
4194: ,P_TCLV_TBL => x_tclv_tbl
4195: ,p_ctxt_val_tbl => l_ctxt_tbl
4196: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4197:
4198: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4199: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4200: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4201: RAISE Okl_Api.G_EXCEPTION_ERROR;
4202: END IF;
4195: ,p_ctxt_val_tbl => l_ctxt_tbl
4196: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4197:
4198: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4199: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4200: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4201: RAISE Okl_Api.G_EXCEPTION_ERROR;
4202: END IF;
4203:
4196: ,p_acc_gen_primary_key_tbl => l_acc_gen_tbl(1).acc_gen_key_tbl);
4197:
4198: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4199: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4200: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4201: RAISE Okl_Api.G_EXCEPTION_ERROR;
4202: END IF;
4203:
4204: END IF;
4197:
4198: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4199: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4200: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4201: RAISE Okl_Api.G_EXCEPTION_ERROR;
4202: END IF;
4203:
4204: END IF;
4205: --Bug# 7506009
4210:
4211: EXCEPTION
4212: WHEN upfront_tax_acct_exception
4213: THEN
4214: x_return_status := OKL_API.G_RET_STS_ERROR;
4215:
4216: END create_upfront_tax_accounting;
4217:
4218: -- R12 - END
4220:
4221: -- Process to process pre booking tax lines
4222: Procedure process_prebook_tax(
4223: p_api_version IN NUMBER,
4224: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
4225: p_contract_id IN NUMBER,
4226: p_transaction_id IN NUMBER,
4227: p_transaction_type IN VARCHAR2,
4228: x_return_status OUT NOCOPY VARCHAR2,
4235: l_asset_count NUMBER := 0;
4236: l_stream_id NUMBER := 0;
4237: l_fee_type OKC_RULES_B.rule_information1%TYPE;
4238: l_prev_fee_type OKC_RULES_B.rule_information1%TYPE;
4239: l_multiple_fee_type VARCHAR2(1) := Okl_Api.G_FALSE;
4240: pre_book_exception exception;
4241:
4242: -- Cursor to check if sales tax fee exists
4243: -- Bug# 6512668: Exclude fee line in Abandoned status
4260: IF (G_DEBUG_ENABLED = 'Y') THEN
4261: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4262: END IF;
4263:
4264: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4265: -- Get rule value to identify upfront tax type
4266:
4267: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4268: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: START ');
4270:
4271: OPEN rule_info_csr(p_contract_id);
4272: FETCH rule_info_csr INTO rule_info_csr_rec;
4273: IF rule_info_csr%NOTFOUND THEN
4274: OKL_API.set_message( p_app_name => G_APP_NAME,
4275: p_msg_name => 'OKL_QA_ST_MISSING');
4276: CLOSE rule_info_csr;
4277: RAISE pre_book_exception;
4278: END IF;
4303: x_return_status => x_return_status,
4304: x_msg_count => x_msg_count,
4305: x_msg_data => x_msg_data);
4306: -- Check if the call was successful
4307: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
4308: RAISE pre_book_exception;
4309: End If;
4310:
4311: -- R12B Authoring OA Migration
4341: 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 );
4342: END IF;
4343:
4344: -- Check if the call was successful
4345: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4346: RAISE pre_book_exception;
4347: END IF;
4348: END IF;
4349: -- R12B Authoring OA Migration
4367: x_return_status => x_return_status,
4368: x_msg_count => x_msg_count,
4369: x_msg_data => x_msg_data);
4370: -- Check if the call was successful
4371: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
4372: RAISE pre_book_exception;
4373: End If;
4374:
4375: -- R12B Authoring OA Migration
4405: 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 );
4406: END IF;
4407:
4408: -- Check if the call was successful
4409: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4410: RAISE pre_book_exception;
4411: END IF;
4412: END IF;
4413: -- R12B Authoring OA Migration
4415:
4416: -- If upfront tax is 'BILLED'
4417: IF (rule_info_csr_rec.rule_information1 = 'BILLED') THEN
4418:
4419: l_multiple_fee_type := Okl_Api.G_FALSE;
4420: l_fee_type := NULL;
4421:
4422: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4423: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: verifying if multiple fee treatments are selected ');
4425: FOR i in check_feetype_csr (p_contract_id)
4426: LOOP
4427: l_fee_type := i.feetype;
4428: IF (l_fee_type <> l_prev_fee_type) THEN
4429: l_multiple_fee_type := Okl_Api.G_TRUE;
4430: EXIT;
4431: END IF;
4432: l_prev_fee_type := i.feetype;
4433: END LOOP;
4431: END IF;
4432: l_prev_fee_type := i.feetype;
4433: END LOOP;
4434:
4435: IF (l_multiple_fee_type = Okl_Api.G_FALSE AND l_fee_type IS NOT NULL)
4436: THEN
4437: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4438: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL: '||p_transaction_type||' Procedure: if multiple fee treatments are NOT selected');
4439: END IF;
4464: l_fee_type
4465: || ' in BILLED if return status '|| x_return_status );
4466: END IF;
4467: -- Check if the call was successful
4468: If (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) then
4469: RAISE pre_book_exception;
4470: End If;
4471:
4472: -- R12B Authoring OA Migration
4507: 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 );
4508: END IF;
4509:
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: END IF;
4515: -- R12B Authoring OA Migration
4552: 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 );
4553: END IF;
4554:
4555: -- Check if the call was successful
4556: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4557: RAISE pre_book_exception;
4558: END IF;
4559: END IF;
4560: END IF;
4565: END IF;
4566:
4567: Exception
4568: when pre_book_exception then
4569: x_return_status := OKL_API.G_RET_STS_ERROR;
4570:
4571: END process_prebook_tax;
4572:
4573: -- Procedure to process Booking
4572:
4573: -- Procedure to process Booking
4574: Procedure process_booking_tax(
4575: p_api_version IN NUMBER,
4576: p_init_msg_list IN VARCHAR2 DEFAULT okl_Api.G_FALSE,
4577: p_contract_id IN NUMBER,
4578: p_transaction_id IN NUMBER,
4579: p_transaction_type IN VARCHAR2,
4580: x_return_status OUT NOCOPY VARCHAR2,
4599: l_contract_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
4600: l_source_table VARCHAR2(30) := 'OKL_TRX_CONTRACTS';
4601: l_billed_assets NUMBER :=0;
4602: l_asset_count NUMBER :=0;
4603: l_multiple_fee_type VARCHAR2(1) := Okl_Api.G_FALSE;
4604: l_fee_type OKC_RULES_B.rule_information1%TYPE;
4605: l_prev_fee_type OKC_RULES_B.rule_information1%TYPE;
4606: l_contract_bill_tax NUMBER :=0;
4607: booking_exception exception;
4615: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE
4616: , FND_LOG.LEVEL_STATEMENT);
4617: END IF;
4618:
4619: x_return_status := okl_Api.G_RET_STS_SUCCESS;
4620:
4621: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4622: THEN
4623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4639: FETCH rule_info_csr INTO rule_info_csr_rec;
4640:
4641: IF rule_info_csr%NOTFOUND
4642: THEN
4643: OKL_API.set_message( p_app_name => G_APP_NAME,
4644: p_msg_name => 'OKL_QA_ST_MISSING');
4645: CLOSE rule_info_csr;
4646: RAISE booking_exception;
4647: END IF;
4669:
4670: okl_debug_pub.logmessage('OKL: process_booking_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
4671:
4672: -- Check if the tax call was successful
4673: IF (x_return_status <> okl_Api.G_RET_STS_SUCCESS)
4674: THEN
4675: RAISE booking_exception;
4676: END IF;
4677:
4694: x_msg_count => x_msg_count,
4695: x_msg_data => x_msg_data
4696: );
4697:
4698: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4699: RAISE booking_exception;
4700: END IF;
4701:
4702: -- This segment will be executed when user selected Financed or Capitalized
4735: FETCH contract_csr INTO l_contract_start_date;
4736:
4737: IF contract_csr%NOTFOUND
4738: THEN
4739: OKL_API.set_message( p_app_name => G_APP_NAME,
4740: p_msg_name => 'OKL_LA_ST_K_DATE_ERROR');
4741: CLOSE contract_csr;
4742: RAISE booking_exception;
4743: END IF;
4753: x_return_status => x_return_status,
4754: x_msg_count => x_msg_count,
4755: x_msg_data => x_msg_data);
4756:
4757: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4758: RAISE booking_exception;
4759: END IF;
4760:
4761: END IF;
4767: THEN
4768:
4769: -- Check if any of the assets is financed or capitalized and
4770: -- check tax pre-book and booking tax amounts
4771: l_multiple_fee_type := Okl_Api.G_FALSE;
4772: l_fee_type := NULL;
4773:
4774: IF (G_IS_DEBUG_STATEMENT_ON = TRUE)
4775: THEN
4783: l_fee_type := i.feetype;
4784:
4785: IF (l_fee_type <> l_prev_fee_type)
4786: THEN
4787: l_multiple_fee_type := okl_Api.G_TRUE;
4788: EXIT;
4789: END IF;
4790:
4791: l_prev_fee_type := i.feetype;
4791: l_prev_fee_type := i.feetype;
4792: END LOOP;
4793:
4794: -- User cannot create both Financed and Capitalized sales tax fee lines
4795: IF (l_multiple_fee_type = okl_Api.G_TRUE)
4796: THEN
4797: OKL_API.set_message( p_app_name => G_APP_NAME,
4798: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
4799: RAISE booking_exception;
4793:
4794: -- User cannot create both Financed and Capitalized sales tax fee lines
4795: IF (l_multiple_fee_type = okl_Api.G_TRUE)
4796: THEN
4797: OKL_API.set_message( p_app_name => G_APP_NAME,
4798: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
4799: RAISE booking_exception;
4800: END IF;
4801:
4822: END IF;
4823: OPEN contract_csr;
4824: FETCH contract_csr INTO l_contract_start_date;
4825: IF contract_csr%NOTFOUND THEN
4826: OKL_API.set_message( p_app_name => G_APP_NAME,
4827: p_msg_name => 'OKL_LA_ST_K_DATE_ERROR');
4828: CLOSE contract_csr;
4829: RAISE booking_exception;
4830: END IF;
4843: x_return_status => x_return_status,
4844: x_msg_count => x_msg_count,
4845: x_msg_data => x_msg_data);
4846:
4847: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4848: RAISE booking_exception;
4849: END IF;
4850: END IF;
4851: END IF;
4860: okl_debug_pub.logmessage('OKL: process_booking_tax : END' );
4861:
4862: Exception
4863: when booking_exception then
4864: x_return_status := OKL_API.G_RET_STS_ERROR;
4865:
4866: END process_booking_tax;
4867:
4868:
4868:
4869: -- Procedure to process Booking
4870: Procedure process_rebook_tax(
4871: p_api_version IN NUMBER,
4872: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
4873: p_contract_id IN NUMBER,
4874: p_transaction_id IN NUMBER,
4875: p_transaction_type IN VARCHAR2,
4876: p_transaction_date IN DATE,
4892: l_contract_bill_tax NUMBER :=0;
4893: rule_info_csr_rec rule_info_csr%ROWTYPE;
4894: l_asset_count NUMBER;
4895: l_billed_assets NUMBER :=0;
4896: l_multiple_fee_type VARCHAR2(1) := Okl_Api.G_FALSE;
4897: l_fee_type OKC_RULES_B.rule_information1%TYPE;
4898: l_prev_fee_type OKC_RULES_B.rule_information1%TYPE;
4899: rebook_exception EXCEPTION;
4900:
4901: BEGIN
4902:
4903: okl_debug_pub.logmessage('OKL: process_rebook_tax : START' );
4904:
4905: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4906:
4907: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
4908: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
4909: ,G_MODULE
4914: FETCH rule_info_csr INTO rule_info_csr_rec;
4915:
4916: IF rule_info_csr%NOTFOUND
4917: THEN
4918: OKL_API.set_message( p_app_name => G_APP_NAME,
4919: p_msg_name => 'OKL_QA_ST_MISSING');
4920: CLOSE rule_info_csr;
4921: RAISE rebook_exception;
4922: END IF;
4941:
4942: okl_debug_pub.logmessage('OKL: process_rebook_tax : OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax: ACTUAL : '|| x_return_status );
4943:
4944: -- Check if the tax call was successful
4945: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS)
4946: THEN
4947: RAISE rebook_exception;
4948: END IF;
4949:
4966: x_msg_count => x_msg_count,
4967: x_msg_data => x_msg_data
4968: );
4969:
4970: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
4971: RAISE rebook_exception;
4972: END IF;
4973:
4974: -- This segment will be executed when user selected Financed or Capitalized
5004: x_return_status => x_return_status,
5005: x_msg_count => x_msg_count,
5006: x_msg_data => x_msg_data);
5007:
5008: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5009: RAISE rebook_exception;
5010: END IF;
5011:
5012: END IF;
5019: THEN
5020:
5021: -- Check if any of the assets is financed or capitalized and
5022: -- check tax pre-book and booking tax amounts
5023: l_multiple_fee_type := Okl_Api.G_FALSE;
5024: l_fee_type := NULL;
5025:
5026: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5027: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT
5031: FOR i in check_feetype_csr (p_contract_id)
5032: LOOP
5033: l_fee_type := i.feetype;
5034: IF (l_fee_type <> l_prev_fee_type) THEN
5035: l_multiple_fee_type := Okl_Api.G_TRUE;
5036: EXIT;
5037: END IF;
5038: l_prev_fee_type := i.feetype;
5039: END LOOP;
5038: l_prev_fee_type := i.feetype;
5039: END LOOP;
5040:
5041: -- User cannot create both Financed and Capitalized sales tax fee lines
5042: IF (l_multiple_fee_type = Okl_Api.G_TRUE) THEN
5043: OKL_API.set_message( p_app_name => G_APP_NAME,
5044: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
5045: RAISE rebook_exception;
5046: END IF;
5039: END LOOP;
5040:
5041: -- User cannot create both Financed and Capitalized sales tax fee lines
5042: IF (l_multiple_fee_type = Okl_Api.G_TRUE) THEN
5043: OKL_API.set_message( p_app_name => G_APP_NAME,
5044: p_msg_name => 'OKL_LA_ST_MIX_FEE_ERROR');
5045: RAISE rebook_exception;
5046: END IF;
5047:
5074: x_return_status => x_return_status,
5075: x_msg_count => x_msg_count,
5076: x_msg_data => x_msg_data);
5077:
5078: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5079: RAISE rebook_exception;
5080: END IF;
5081:
5082: END IF;
5093: okl_debug_pub.logmessage('OKL: process_rebook_tax : END' );
5094:
5095: Exception
5096: when rebook_exception then
5097: x_return_status := OKL_API.G_RET_STS_ERROR;
5098:
5099: END process_rebook_tax;
5100:
5101:
5105: -- processes to process upfront sales tax
5106:
5107: Procedure process_sales_tax(
5108: p_api_version IN NUMBER,
5109: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5110: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5111: p_contract_id IN NUMBER,
5112: p_transaction_type IN VARCHAR2,
5113: p_transaction_id IN NUMBER DEFAULT NULL,
5106:
5107: Procedure process_sales_tax(
5108: p_api_version IN NUMBER,
5109: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5110: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
5111: p_contract_id IN NUMBER,
5112: p_transaction_type IN VARCHAR2,
5113: p_transaction_id IN NUMBER DEFAULT NULL,
5114: p_transaction_date IN DATE DEFAULT NULL,
5123: l_trxH_out_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
5124: l_trxL_out_rec Okl_Trx_Contracts_Pvt.tclv_rec_type;
5125:
5126: -- Define variables
5127: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
5128: l_transaction_id NUMBER;
5129: l_has_trans VARCHAR2(1);
5130: -- Bug 4769822 - START
5131: l_contract_id NUMBER;
5192: IF (G_DEBUG_ENABLED = 'Y') THEN
5193: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5194: END IF;
5195:
5196: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5197:
5198: x_return_status := OKL_API.START_ACTIVITY(
5199: p_api_name => l_api_name,
5200: p_pkg_name => g_pkg_name,
5194: END IF;
5195:
5196: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5197:
5198: x_return_status := OKL_API.START_ACTIVITY(
5199: p_api_name => l_api_name,
5200: p_pkg_name => g_pkg_name,
5201: p_init_msg_list => p_init_msg_list,
5202: l_api_version => p_api_version,
5204: p_api_type => G_API_TYPE,
5205: x_return_status => x_return_status);
5206:
5207: -- check if activity started successfully
5208: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5211: raise OKL_API.G_EXCEPTION_ERROR;
5212: End If;
5205: x_return_status => x_return_status);
5206:
5207: -- check if activity started successfully
5208: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5211: raise OKL_API.G_EXCEPTION_ERROR;
5212: End If;
5213:
5206:
5207: -- check if activity started successfully
5208: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5211: raise OKL_API.G_EXCEPTION_ERROR;
5212: End If;
5213:
5214: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5207: -- check if activity started successfully
5208: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5209: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5211: raise OKL_API.G_EXCEPTION_ERROR;
5212: End If;
5213:
5214: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5215: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5219:
5220: OPEN sys_param_csr;
5221: FETCH sys_param_csr INTO l_tax_upfront_yn;
5222: IF sys_param_csr%NOTFOUND THEN
5223: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_OU_UPFRONT_TAX_ERROR');
5224: CLOSE sys_param_csr;
5225: RAISE Okl_Api.G_EXCEPTION_ERROR;
5226: END IF;
5227: CLOSE sys_param_csr;
5221: FETCH sys_param_csr INTO l_tax_upfront_yn;
5222: IF sys_param_csr%NOTFOUND THEN
5223: Okl_Api.SET_MESSAGE(G_APP_NAME, 'OKL_LA_ST_OU_UPFRONT_TAX_ERROR');
5224: CLOSE sys_param_csr;
5225: RAISE Okl_Api.G_EXCEPTION_ERROR;
5226: END IF;
5227: CLOSE sys_param_csr;
5228:
5229:
5280:
5281: okl_debug_pub.logmessage('OKL: process_sales_tax : populate_transaction : '|| x_return_status );
5282:
5283: -- check transaction creation was successful
5284: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5285: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5286: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5287: raise OKL_API.G_EXCEPTION_ERROR;
5288: End If;
5281: okl_debug_pub.logmessage('OKL: process_sales_tax : populate_transaction : '|| x_return_status );
5282:
5283: -- check transaction creation was successful
5284: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5285: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5286: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5287: raise OKL_API.G_EXCEPTION_ERROR;
5288: End If;
5289:
5282:
5283: -- check transaction creation was successful
5284: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5285: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5286: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5287: raise OKL_API.G_EXCEPTION_ERROR;
5288: End If;
5289:
5290: -- R12 Change - END
5283: -- check transaction creation was successful
5284: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5285: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5286: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5287: raise OKL_API.G_EXCEPTION_ERROR;
5288: End If;
5289:
5290: -- R12 Change - END
5291: End If;
5336: G_MODULE,
5337: 'OKL: Process Sales Tax...3'|| x_return_status);
5338: END IF;
5339: -- Check if the tax call was successful
5340: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5343: raise OKL_API.G_EXCEPTION_ERROR;
5344: End If;
5337: 'OKL: Process Sales Tax...3'|| x_return_status);
5338: END IF;
5339: -- Check if the tax call was successful
5340: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5343: raise OKL_API.G_EXCEPTION_ERROR;
5344: End If;
5345:
5338: END IF;
5339: -- Check if the tax call was successful
5340: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5343: raise OKL_API.G_EXCEPTION_ERROR;
5344: End If;
5345:
5346: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5339: -- Check if the tax call was successful
5340: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5343: raise OKL_API.G_EXCEPTION_ERROR;
5344: End If;
5345:
5346: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5347: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5372:
5373: -- Check if the call was successful
5374: -- Following code enabled for bug 5005269
5375:
5376: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5378: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5379: raise OKL_API.G_EXCEPTION_ERROR;
5380: End If;
5373: -- Check if the call was successful
5374: -- Following code enabled for bug 5005269
5375:
5376: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5378: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5379: raise OKL_API.G_EXCEPTION_ERROR;
5380: End If;
5381:
5374: -- Following code enabled for bug 5005269
5375:
5376: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5378: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5379: raise OKL_API.G_EXCEPTION_ERROR;
5380: End If;
5381:
5382: End If; -- Prebook
5375:
5376: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5377: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5378: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5379: raise OKL_API.G_EXCEPTION_ERROR;
5380: End If;
5381:
5382: End If; -- Prebook
5383:
5400:
5401: okl_debug_pub.logmessage('OKL: process_sales_tax : process_booking_tax : '|| x_return_status );
5402: -- Check if the call was successful
5403: -- Bug 5002042
5404: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5407: raise OKL_API.G_EXCEPTION_ERROR;
5408: End If;
5401: okl_debug_pub.logmessage('OKL: process_sales_tax : process_booking_tax : '|| x_return_status );
5402: -- Check if the call was successful
5403: -- Bug 5002042
5404: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5407: raise OKL_API.G_EXCEPTION_ERROR;
5408: End If;
5409:
5402: -- Check if the call was successful
5403: -- Bug 5002042
5404: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5407: raise OKL_API.G_EXCEPTION_ERROR;
5408: End If;
5409:
5410: End If; -- Booking
5403: -- Bug 5002042
5404: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5405: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5406: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5407: raise OKL_API.G_EXCEPTION_ERROR;
5408: End If;
5409:
5410: End If; -- Booking
5411:
5456: OPEN rule_info_csr(p_contract_id);
5457: FETCH rule_info_csr INTO rule_info_csr_rec;
5458: IF rule_info_csr%NOTFOUND THEN
5459: -- R12B Authoring OA Migration - Corrected error message
5460: OKL_API.set_message( p_app_name => G_APP_NAME,
5461: p_msg_name => 'OKL_QA_ST_MISSING');
5462: CLOSE rule_info_csr;
5463: RAISE Okl_Api.G_EXCEPTION_ERROR;
5464: END IF;
5459: -- R12B Authoring OA Migration - Corrected error message
5460: OKL_API.set_message( p_app_name => G_APP_NAME,
5461: p_msg_name => 'OKL_QA_ST_MISSING');
5462: CLOSE rule_info_csr;
5463: RAISE Okl_Api.G_EXCEPTION_ERROR;
5464: END IF;
5465: CLOSE rule_info_csr;
5466:
5467: -- R12 Change - End
5532: G_MODULE,
5533: 'OKL: Process Sales Tax : after creating trx requests: status-> '|| x_return_status);
5534: END IF;
5535:
5536: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5537: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5539: raise OKL_API.G_EXCEPTION_ERROR;
5540: End If;
5533: 'OKL: Process Sales Tax : after creating trx requests: status-> '|| x_return_status);
5534: END IF;
5535:
5536: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5537: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5539: raise OKL_API.G_EXCEPTION_ERROR;
5540: End If;
5541:
5534: END IF;
5535:
5536: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5537: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5539: raise OKL_API.G_EXCEPTION_ERROR;
5540: End If;
5541:
5542: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5535:
5536: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5537: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5539: raise OKL_API.G_EXCEPTION_ERROR;
5540: End If;
5541:
5542: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5543: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT,
5563: G_MODULE,'OKL: Process Sales Tax : after OKL_PROCESS_SALES_TAX_PUB: status-> '|| x_return_status);
5564: END IF;
5565:
5566: -- Check if the tax call was successful
5567: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5570: raise OKL_API.G_EXCEPTION_ERROR;
5571: End If;
5564: END IF;
5565:
5566: -- Check if the tax call was successful
5567: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5570: raise OKL_API.G_EXCEPTION_ERROR;
5571: End If;
5572:
5565:
5566: -- Check if the tax call was successful
5567: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5570: raise OKL_API.G_EXCEPTION_ERROR;
5571: End If;
5572:
5573: -- R12 Change - Code segment to update transaction records to 'Processed'
5566: -- Check if the tax call was successful
5567: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5568: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5570: raise OKL_API.G_EXCEPTION_ERROR;
5571: End If;
5572:
5573: -- R12 Change - Code segment to update transaction records to 'Processed'
5574: -- is removed from this location. It is not required as per IA.
5593:
5594: okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5595:
5596: Exception
5597: when OKL_API.G_EXCEPTION_ERROR then
5598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5599: p_api_name => l_api_name,
5600: p_pkg_name => g_pkg_name,
5601: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5594: okl_debug_pub.logmessage('OKL: process_sales_tax : END');
5595:
5596: Exception
5597: when OKL_API.G_EXCEPTION_ERROR then
5598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5599: p_api_name => l_api_name,
5600: p_pkg_name => g_pkg_name,
5601: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5602: x_msg_count => x_msg_count,
5597: when OKL_API.G_EXCEPTION_ERROR then
5598: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5599: p_api_name => l_api_name,
5600: p_pkg_name => g_pkg_name,
5601: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5602: x_msg_count => x_msg_count,
5603: x_msg_data => x_msg_data,
5604: p_api_type => g_api_type);
5605:
5602: x_msg_count => x_msg_count,
5603: x_msg_data => x_msg_data,
5604: p_api_type => g_api_type);
5605:
5606: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5607: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5608: p_api_name => l_api_name,
5609: p_pkg_name => g_pkg_name,
5610: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5603: x_msg_data => x_msg_data,
5604: p_api_type => g_api_type);
5605:
5606: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5607: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5608: p_api_name => l_api_name,
5609: p_pkg_name => g_pkg_name,
5610: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5611: x_msg_count => x_msg_count,
5606: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5607: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5608: p_api_name => l_api_name,
5609: p_pkg_name => g_pkg_name,
5610: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5611: x_msg_count => x_msg_count,
5612: x_msg_data => x_msg_data,
5613: p_api_type => g_api_type);
5614:
5612: x_msg_data => x_msg_data,
5613: p_api_type => g_api_type);
5614:
5615: when OTHERS then
5616: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5617: p_api_name => l_api_name,
5618: p_pkg_name => g_pkg_name,
5619: p_exc_name => 'OTHERS',
5620: x_msg_count => x_msg_count,
5852: BEGIN
5853: IF (G_DEBUG_ENABLED = 'Y') THEN
5854: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5855: END IF;
5856: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5857:
5858: --OPEN l_hdr_csr;
5859: --FETCH l_hdr_csr INTO l_authoring_org_id;
5860: --CLOSE l_hdr_csr;
5866: FETCH l_tax_system_info INTO l_upfront_tax_yn;
5867: CLOSE l_tax_system_info;
5868:
5869: IF (nvl(l_upfront_tax_yn,'N') <> 'Y') THEN
5870: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5871: return;
5872: END IF;
5873:
5874: OPEN l_hdrrl_csr('LAHDTX','LASTPR', p_chr_id);
5878: l_tax_header := l_hdrrl_rec.RULE_INFORMATION1;
5879: l_bill_strm_type := l_hdrrl_rec.RULE_INFORMATION2;
5880:
5881: IF (l_tax_header IS NULL) THEN
5882: OKL_API.set_message(
5883: p_app_name => G_APP_NAME,
5884: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
5885: x_return_status := OKL_API.G_RET_STS_ERROR;
5886: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5881: IF (l_tax_header IS NULL) THEN
5882: OKL_API.set_message(
5883: p_app_name => G_APP_NAME,
5884: p_msg_name => 'OKL_QA_ST_HEADER_TAX');
5885: x_return_status := OKL_API.G_RET_STS_ERROR;
5886: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5887: 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.');
5888: END IF;
5889: END IF;
5897: END IF;
5898:
5899: --IF (NOT l_exists OR l_tax_treatment IS NULL) THEN
5900: IF (NOT l_exists) THEN
5901: OKL_API.set_message(
5902: p_app_name => G_APP_NAME,
5903: p_msg_name => 'OKL_QA_ST_MISSING');
5904: x_return_status := OKL_API.G_RET_STS_ERROR;
5905: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5900: IF (NOT l_exists) THEN
5901: OKL_API.set_message(
5902: p_app_name => G_APP_NAME,
5903: p_msg_name => 'OKL_QA_ST_MISSING');
5904: x_return_status := OKL_API.G_RET_STS_ERROR;
5905: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_MISSING');
5907: END IF;
5908: END IF;
5912: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX','BILLED');
5913: FETCH fnd_csr INTO l_fnd_rec;
5914: l_fnd_meaning := l_fnd_rec.meaning;
5915: CLOSE fnd_csr;
5916: OKL_API.set_message(
5917: p_app_name => G_APP_NAME,
5918: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
5919: p_token1 => 'UPFRONT_TAX',
5920: p_token1_value => l_fnd_meaning);
5917: p_app_name => G_APP_NAME,
5918: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
5919: p_token1 => 'UPFRONT_TAX',
5920: p_token1_value => l_fnd_meaning);
5921: x_return_status := OKL_API.G_RET_STS_ERROR;
5922: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5923: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
5924: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
5925: ||' terms and condition for the contract.');
5929: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX','FINANCE');
5930: FETCH fnd_csr INTO l_fnd_rec;
5931: l_fnd_meaning := l_fnd_rec.meaning;
5932: CLOSE fnd_csr;
5933: OKL_API.set_message(
5934: p_app_name => G_APP_NAME,
5935: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
5936: p_token1 => 'UPFRONT_TAX',
5937: p_token1_value => l_fnd_meaning);
5934: p_app_name => G_APP_NAME,
5935: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
5936: p_token1 => 'UPFRONT_TAX',
5937: p_token1_value => l_fnd_meaning);
5938: x_return_status := OKL_API.G_RET_STS_ERROR;
5939: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5940: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
5941: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
5942: ||' terms and condition for the contract.');
5946: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX','CAPITALIZE');
5947: FETCH fnd_csr INTO l_fnd_rec;
5948: l_fnd_meaning := l_fnd_rec.meaning;
5949: CLOSE fnd_csr;
5950: OKL_API.set_message(
5951: p_app_name => G_APP_NAME,
5952: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
5953: p_token1 => 'UPFRONT_TAX',
5954: p_token1_value => l_fnd_meaning);
5951: p_app_name => G_APP_NAME,
5952: p_msg_name => 'OKL_QA_ST_STREAM_MISSING',
5953: p_token1 => 'UPFRONT_TAX',
5954: p_token1_value => l_fnd_meaning);
5955: x_return_status := OKL_API.G_RET_STS_ERROR;
5956: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5957: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_STREAM_MISSING '||'Please enter '
5958: ||l_fnd_meaning ||' stream type on Taxes (Sales Tax Processing)'
5959: ||' terms and condition for the contract.');
5959: ||' terms and condition for the contract.');
5960: END IF;
5961: END IF;
5962:
5963: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5964: RAISE G_EXCEPTION_HALT_VALIDATION;
5965: END IF;
5966:
5967: -- R12B Authoring OA Migration
5982: END IF;
5983: l_fee_amount := l_st_fee_rec.amount;
5984:
5985: IF ( l_st_fee_rec.amount = 0 ) THEN
5986: OKL_API.set_message(
5987: p_app_name => G_APP_NAME,
5988: p_msg_name => 'OKL_QA_ST_FEE_ZERO',
5989: p_token1 => 'FEE_TYPE',
5990: p_token1_value => l_fee_type_meaning);
5987: p_app_name => G_APP_NAME,
5988: p_msg_name => 'OKL_QA_ST_FEE_ZERO',
5989: p_token1 => 'FEE_TYPE',
5990: p_token1_value => l_fee_type_meaning);
5991: x_return_status := OKL_API.G_RET_STS_ERROR;
5992: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
5993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||'OKL_QA_ST_FEE_ZERO '||'The sales tax fee line (type='
5994: ||l_fee_type_meaning||') amount can not be zero or negative.');
5995: END IF;
6011: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6012: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_st_fee_rec.amount || ':' || l_amt_link_asset);
6013: END IF;
6014: IF (l_st_fee_rec.amount <> l_amt_link_asset) THEN
6015: OKL_API.set_message(
6016: p_app_name => G_APP_NAME,
6017: p_msg_name => 'OKL_QA_ST_FEE_ASSET_AMT',
6018: p_token1 => 'LINE_TYPE',
6019: p_token1_value => l_fee_type_meaning);
6016: p_app_name => G_APP_NAME,
6017: p_msg_name => 'OKL_QA_ST_FEE_ASSET_AMT',
6018: p_token1 => 'LINE_TYPE',
6019: p_token1_value => l_fee_type_meaning);
6020: x_return_status := OKL_API.G_RET_STS_ERROR;
6021: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_AMT '||'The sales tax Fee line ('
6023: ||l_fee_type_meaning||') amount must be equal to the total amount on corresponding linked Fee asset(s).');
6024: END IF;
6034: CLOSE st_fee_count_csr;
6035:
6036: --IF ( (l_tax_treatment IN ('FINANCE','CAPITALIZE') ) AND l_count > 1 ) THEN
6037: IF ( l_count > 1 ) THEN
6038: OKL_API.set_message(
6039: p_app_name => G_APP_NAME,
6040: p_msg_name => 'OKL_QA_ST_FEE_GT1');
6041: x_return_status := OKL_API.G_RET_STS_ERROR;
6042: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6037: IF ( l_count > 1 ) THEN
6038: OKL_API.set_message(
6039: p_app_name => G_APP_NAME,
6040: p_msg_name => 'OKL_QA_ST_FEE_GT1');
6041: x_return_status := OKL_API.G_RET_STS_ERROR;
6042: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6043: 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.');
6044: END IF;
6045: END IF;
6045: END IF;
6046:
6047:
6048: --raise exception as we want to halt validation at this.
6049: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6050: RAISE G_EXCEPTION_HALT_VALIDATION;
6051: END IF;
6052:
6053: l_line_asset_upfront_tax := 'XXX';
6075: END IF;
6076: IF (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE')
6077: AND l_line_asset_upfront_tax <> l_prev_line_asset_upfront_tax) THEN
6078: IF (l_prev_line_asset_upfront_tax <> 'XXX') THEN
6079: OKL_API.set_message(
6080: p_app_name => G_APP_NAME,
6081: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6082: x_return_status := OKL_API.G_RET_STS_ERROR;
6083: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6078: IF (l_prev_line_asset_upfront_tax <> 'XXX') THEN
6079: OKL_API.set_message(
6080: p_app_name => G_APP_NAME,
6081: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6082: x_return_status := OKL_API.G_RET_STS_ERROR;
6083: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6084: 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.');
6085: END IF;
6086: EXIT;
6100: OPEN fnd_csr('OKL_ASSET_UPFRONT_TAX',l_line_asset_upfront_tax);
6101: FETCH fnd_csr INTO l_line_fnd_rec;
6102: l_line_fnd_meaning := l_line_fnd_rec.meaning;
6103: CLOSE fnd_csr;
6104: OKL_API.set_message(
6105: p_app_name => G_APP_NAME,
6106: p_msg_name => 'OKL_QA_ST_CAP_FIN_MIX',
6107: p_token1 => 'UPFRONT_TAX',
6108: p_token1_value => l_hdr_fnd_meaning,
6109: p_token2 => 'UPFRONT_LN_TAX',
6110: p_token2_value => l_line_fnd_meaning,
6111: p_token3 => 'ASSET_NUMBER',
6112: p_token3_value => l_asset_rec.name);
6113: x_return_status := OKL_API.G_RET_STS_ERROR;
6114: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6115: 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 ' ||
6116: l_asset_rec.name||' is different from asset upfront tax at Contract header.' );
6117: END IF;
6146: OPEN fnd_csr('OKL_FEE_TYPES','BILLED');
6147: FETCH fnd_csr INTO l_fnd_rec;
6148: CLOSE fnd_csr;
6149: l_tax_fee_meaning := l_fnd_rec.meaning;
6150: OKL_API.set_message(
6151: p_app_name => G_APP_NAME,
6152: p_msg_name => 'OKL_QA_ST_FEE_ASSET_ERROR',
6153: p_token1 => 'FEE_TYPE',
6154: p_token1_value => l_tax_fee_meaning,
6153: p_token1 => 'FEE_TYPE',
6154: p_token1_value => l_tax_fee_meaning,
6155: p_token2 => 'ASSET_NUMBER',
6156: p_token2_value => l_asset_rec.name);
6157: x_return_status := OKL_API.G_RET_STS_ERROR;
6158: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6159: 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 = '
6160: ||l_asset_rec.name||'. Please remove this asset association from Sales Tax Fee line ('||l_tax_fee_meaning||').');
6161: END IF;
6163: END IF;
6164: END LOOP;
6165:
6166: --raise exception as we want to halt validation at this.
6167: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6168: RAISE G_EXCEPTION_HALT_VALIDATION;
6169: END IF;
6170:
6171: IF ( (l_line_asset_upfront_tax IN ('FINANCE','CAPITALIZE') ) AND (NOT l_linked_asset_exists ) AND l_fee_line_found)THEN
6175: OPEN fnd_csr('OKL_FEE_TYPES',l_st_fee_code);
6176: FETCH fnd_csr INTO l_fnd_rec;
6177: CLOSE fnd_csr;
6178: l_tax_fee_meaning := l_fnd_rec.meaning;
6179: OKL_API.set_message(
6180: p_app_name => G_APP_NAME,
6181: p_msg_name => 'OKL_QA_ST_FEE_ASSET_MISSING',
6182: p_token1 => 'ASSET_NUMBER',
6183: p_token1_value => l_asset_rec.name,
6182: p_token1 => 'ASSET_NUMBER',
6183: p_token1_value => l_asset_rec.name,
6184: p_token2 => 'LINE_TYPE',
6185: p_token2_value => l_tax_fee_meaning );
6186: x_return_status := OKL_API.G_RET_STS_ERROR;
6187: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6188: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: OKL_QA_ST_FEE_ASSET_MISSING '||'The sales tax Fee line ('
6189: ||l_tax_fee_meaning ||') does not have corresponding linked asset('||l_asset_rec.name||') defined.');
6190: END IF;
6202: FETCH l_tax_amt_csr INTO l_tax_amount;
6203: CLOSE l_tax_amt_csr;
6204:
6205: IF ( (l_tax_amount <> 0) AND NOT l_fee_line_found AND l_found_asset_not_billed) THEN
6206: OKL_API.set_message(
6207: p_app_name => G_APP_NAME,
6208: p_msg_name => 'OKL_QA_ST_NO_FEE');
6209: x_return_status := OKL_API.G_RET_STS_ERROR;
6210: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6205: IF ( (l_tax_amount <> 0) AND NOT l_fee_line_found AND l_found_asset_not_billed) THEN
6206: OKL_API.set_message(
6207: p_app_name => G_APP_NAME,
6208: p_msg_name => 'OKL_QA_ST_NO_FEE');
6209: x_return_status := OKL_API.G_RET_STS_ERROR;
6210: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
6211: 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');
6212: END IF;
6213: END IF;
6237: CLOSE fnd_csr;
6238: l_tax_fee_meaning := l_fnd_rec.meaning;
6239:
6240: IF (l_tax_amount <> l_fee_amount) THEN
6241: OKL_API.set_message(
6242: p_app_name => G_APP_NAME,
6243: p_msg_name => 'OKL_QA_ST_FEE_AMT',
6244: p_token1 => 'FEE_TYPE',
6245: p_token1_value => l_tax_fee_meaning,
6244: p_token1 => 'FEE_TYPE',
6245: p_token1_value => l_tax_fee_meaning,
6246: p_token2 => 'UPFRONT_TAX',
6247: p_token2_value => l_tax_fee_meaning);
6248: x_return_status := OKL_API.G_RET_STS_ERROR;
6249: END IF;
6250: */
6251: -- R12B Authoring OA Migration
6252:
6291: END IF;
6292: NULL;
6293: WHEN OTHERS THEN
6294: -- store SQL error message on message stack
6295: OKL_API.SET_MESSAGE(
6296: p_app_name => G_APP_NAME,
6297: p_msg_name => G_UNEXPECTED_ERROR,
6298: p_token1 => G_SQLCODE_TOKEN,
6299: p_token1_value => SQLCODE,
6298: p_token1 => G_SQLCODE_TOKEN,
6299: p_token1_value => SQLCODE,
6300: p_token2 => G_SQLERRM_TOKEN,
6301: p_token2_value => SQLERRM);
6302: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6303: IF st_fee_csr%ISOPEN THEN
6304: CLOSE st_fee_csr;
6305: END IF;
6306: IF l_hdrrl_csr%ISOPEN THEN
6379: AND cle.id = rgp.cle_id
6380: AND cle.sts_code <> 'ABANDONED';
6381:
6382: BEGIN
6383: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6384:
6385: l_upfront_tax_yn := 'N';
6386: OPEN l_tax_system_info;
6387: FETCH l_tax_system_info INTO l_upfront_tax_yn;
6387: FETCH l_tax_system_info INTO l_upfront_tax_yn;
6388: CLOSE l_tax_system_info;
6389:
6390: IF (nvl(l_upfront_tax_yn,'N') <> 'Y') THEN
6391: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6392: return;
6393: END IF;
6394:
6395: --Murthy
6405: l_exists := l_upfront_tax_other_assets%FOUND;
6406: CLOSE l_upfront_tax_other_assets;
6407: END IF;
6408: IF (l_exists) THEN
6409: OKL_API.set_message(
6410: p_app_name => G_APP_NAME,
6411: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6412: x_return_status := OKL_API.G_RET_STS_ERROR;
6413: END IF;
6408: IF (l_exists) THEN
6409: OKL_API.set_message(
6410: p_app_name => G_APP_NAME,
6411: p_msg_name => 'OKL_QA_ST_ALL_CAP_OR_FIN');
6412: x_return_status := OKL_API.G_RET_STS_ERROR;
6413: END IF;
6414:
6415: EXCEPTION
6416: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6428: IF l_tax_system_info%ISOPEN THEN
6429: CLOSE l_tax_system_info;
6430: END IF;
6431: -- store SQL error message on message stack
6432: OKL_API.SET_MESSAGE(
6433: p_app_name => G_APP_NAME,
6434: p_msg_name => G_UNEXPECTED_ERROR,
6435: p_token1 => G_SQLCODE_TOKEN,
6436: p_token1_value => SQLCODE,
6435: p_token1 => G_SQLCODE_TOKEN,
6436: p_token1_value => SQLCODE,
6437: p_token2 => G_SQLERRM_TOKEN,
6438: p_token2_value => SQLERRM);
6439: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6440:
6441: END check_sales_tax_asset_rules;
6442:
6443: -----------------------------------------------------------------------------
6455: -- End of comments
6456:
6457: PROCEDURE validate_upfront_tax_fee(
6458: p_api_version IN NUMBER,
6459: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6460: x_return_status OUT NOCOPY VARCHAR2,
6461: x_msg_count OUT NOCOPY NUMBER,
6462: x_msg_data OUT NOCOPY VARCHAR2,
6463: p_chr_id IN VARCHAR2) IS
6597: l_tot_pmnt NUMBER;
6598:
6599: BEGIN
6600:
6601: x_return_status := OKL_API.START_ACTIVITY(
6602: p_api_name => l_api_name,
6603: p_pkg_name => g_pkg_name,
6604: p_init_msg_list => p_init_msg_list,
6605: l_api_version => l_api_version,
6607: p_api_type => G_API_TYPE,
6608: x_return_status => x_return_status);
6609:
6610: -- check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6608: x_return_status => x_return_status);
6609:
6610: -- check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6609:
6610: -- check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6617: OPEN l_fn_top_fee_ln_csr(p_chr_id => p_chr_id);
6610: -- check if activity started successfully
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6617: OPEN l_fn_top_fee_ln_csr(p_chr_id => p_chr_id);
6618: FETCH l_fn_top_fee_ln_csr INTO l_fn_top_fee_ln_rec;
6632: l_top_ln_pmt_exist := TRUE;
6633: END LOOP;
6634:
6635: IF ( l_tot_pmnt > 1 ) THEN
6636: x_return_status := Okl_Api.G_RET_STS_ERROR;
6637: OKL_API.set_message(
6638: p_app_name => G_APP_NAME,
6639: p_msg_name => 'OKL_QA_ONLY_1PAY',
6640: p_token1 => 'line',
6633: END LOOP;
6634:
6635: IF ( l_tot_pmnt > 1 ) THEN
6636: x_return_status := Okl_Api.G_RET_STS_ERROR;
6637: OKL_API.set_message(
6638: p_app_name => G_APP_NAME,
6639: p_msg_name => 'OKL_QA_ONLY_1PAY',
6640: p_token1 => 'line',
6641: p_token1_value => l_fn_top_fee_ln_rec.name
6662: FOR l_fn_fee_pmtH IN l_fn_fee_pmtH_csr (p_chr_id => p_chr_id,
6663: p_fee_line_id => l_fn_sub_ln_fee_rec.id )
6664: LOOP
6665: IF (l_top_ln_pmt_exist) THEN
6666: x_return_status := Okl_Api.G_RET_STS_ERROR;
6667: OKL_API.set_message(
6668: p_app_name => G_APP_NAME,
6669: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
6670: p_token1 => 'FEE_LINE',
6663: p_fee_line_id => l_fn_sub_ln_fee_rec.id )
6664: LOOP
6665: IF (l_top_ln_pmt_exist) THEN
6666: x_return_status := Okl_Api.G_RET_STS_ERROR;
6667: OKL_API.set_message(
6668: p_app_name => G_APP_NAME,
6669: p_msg_name => 'OKL_QA_FN_PMTS_TOP_SUB_EXIST',
6670: p_token1 => 'FEE_LINE',
6671: p_token1_value => l_fn_top_fee_ln_rec.name);
6682: fee sub-line's end date, if not error out. */
6683:
6684: IF ( TRUNC(l_fn_fee_pmt_rec.start_date) < TRUNC(l_fn_sub_ln_fee_rec.start_date) ) THEN
6685:
6686: x_return_status := Okl_Api.G_RET_STS_ERROR;
6687: OKL_API.set_message(
6688: p_app_name => G_APP_NAME,
6689: p_msg_name => 'OKL_QA_FN_SLN_PMT_SD',
6690: p_token1 => 'FEE_LINE',
6683:
6684: IF ( TRUNC(l_fn_fee_pmt_rec.start_date) < TRUNC(l_fn_sub_ln_fee_rec.start_date) ) THEN
6685:
6686: x_return_status := Okl_Api.G_RET_STS_ERROR;
6687: OKL_API.set_message(
6688: p_app_name => G_APP_NAME,
6689: p_msg_name => 'OKL_QA_FN_SLN_PMT_SD',
6690: p_token1 => 'FEE_LINE',
6691: p_token1_value => l_fn_top_fee_ln_rec.name);
6691: p_token1_value => l_fn_top_fee_ln_rec.name);
6692: END IF;
6693:
6694: IF ( TRUNC(l_fn_fee_pmt_rec.end_date) > TRUNC(l_fn_sub_ln_fee_rec.end_date) ) THEN
6695: x_return_status := Okl_Api.G_RET_STS_ERROR;
6696: OKL_API.set_message(
6697: p_app_name => G_APP_NAME,
6698: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
6699: p_token1 => 'FEE_LINE',
6692: END IF;
6693:
6694: IF ( TRUNC(l_fn_fee_pmt_rec.end_date) > TRUNC(l_fn_sub_ln_fee_rec.end_date) ) THEN
6695: x_return_status := Okl_Api.G_RET_STS_ERROR;
6696: OKL_API.set_message(
6697: p_app_name => G_APP_NAME,
6698: p_msg_name => 'OKL_QA_FN_SLN_PMT_ED',
6699: p_token1 => 'FEE_LINE',
6700: p_token1_value => l_fn_top_fee_ln_rec.name);
6706: /* Check if a financed top line fee amount is not equal to sub-line fee amount,
6707: if exists, if not error out. */
6708:
6709: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_fee_ln_rec.amount <> l_fn_sub_ln_fee_amt)) THEN
6710: x_return_status := Okl_Api.G_RET_STS_ERROR;
6711: OKL_API.set_message(
6712: p_app_name => G_APP_NAME,
6713: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
6714: p_token1 => 'FEE_LINE',
6707: if exists, if not error out. */
6708:
6709: IF ( (l_fn_sln_fee_amt_chk) AND (l_fn_top_fee_ln_rec.amount <> l_fn_sub_ln_fee_amt)) THEN
6710: x_return_status := Okl_Api.G_RET_STS_ERROR;
6711: OKL_API.set_message(
6712: p_app_name => G_APP_NAME,
6713: p_msg_name => 'OKL_QA_FN_FEE_AMT_NEQ',
6714: p_token1 => 'FEE_LINE',
6715: p_token1_value => l_fn_top_fee_ln_rec.name);
6717:
6718: /* If no payments are defiend for the fee line then error out. */
6719:
6720: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
6721: x_return_status := Okl_Api.G_RET_STS_ERROR;
6722: OKL_API.set_message(
6723: p_app_name => G_APP_NAME,
6724: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6725: p_token1 => 'FEE_LINE',
6718: /* If no payments are defiend for the fee line then error out. */
6719:
6720: IF ((NOT l_top_ln_pmt_exist) AND (NOT l_fn_sln_fee_amt_chk)) THEN
6721: x_return_status := Okl_Api.G_RET_STS_ERROR;
6722: OKL_API.set_message(
6723: p_app_name => G_APP_NAME,
6724: p_msg_name => 'OKL_QA_RQ_NO_PMTS',
6725: p_token1 => 'FEE_LINE',
6726: p_token1_value => l_fn_top_fee_ln_rec.name);
6730: if not error out. If there are multiple payments defiend for a financed
6731: fee sub-line HEADER error out. */
6732:
6733: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6734: x_return_status := Okl_Api.G_RET_STS_ERROR;
6735: OKL_API.set_message(
6736: p_app_name => G_APP_NAME,
6737: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6738: p_token1 => 'FEE_LINE',
6731: fee sub-line HEADER error out. */
6732:
6733: IF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt > l_payment_sub_ln_cnt)) THEN
6734: x_return_status := Okl_Api.G_RET_STS_ERROR;
6735: OKL_API.set_message(
6736: p_app_name => G_APP_NAME,
6737: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6738: p_token1 => 'FEE_LINE',
6739: p_token1_value => l_fn_top_fee_ln_rec.name);
6737: p_msg_name => 'OKL_QA_FN_PMTS_MISS_SLN',
6738: p_token1 => 'FEE_LINE',
6739: p_token1_value => l_fn_top_fee_ln_rec.name);
6740: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6741: x_return_status := Okl_Api.G_RET_STS_ERROR;
6742: OKL_API.set_message(
6743: p_app_name => G_APP_NAME,
6744: p_msg_name => 'OKL_QA_FN_MUL_SLN_PMTS',
6745: p_token1 => 'FEE_LINE',
6738: p_token1 => 'FEE_LINE',
6739: p_token1_value => l_fn_top_fee_ln_rec.name);
6740: ELSIF ((NOT l_top_ln_pmt_exist) AND (l_fn_sub_ln_fee_cnt < l_payment_sub_ln_cnt)) THEN
6741: x_return_status := Okl_Api.G_RET_STS_ERROR;
6742: OKL_API.set_message(
6743: p_app_name => G_APP_NAME,
6744: p_msg_name => 'OKL_QA_FN_MUL_SLN_PMTS',
6745: p_token1 => 'FEE_LINE',
6746: p_token1_value => l_fn_top_fee_ln_rec.name);
6759: ELSE
6760: -- Check payment amount here
6761: IF (l_prev_pmnt = TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'))) THEN
6762: -- Error
6763: Okl_Api.set_message(
6764: G_APP_NAME,
6765: 'OKL_QA_INVALID_PMNT',
6766: 'LINE_TYPE',
6767: l_fn_top_fee_ln_rec.line_type,
6767: l_fn_top_fee_ln_rec.line_type,
6768: 'PMNT_TYPE',
6769: l_strm_slh_rec.stream_type
6770: );
6771: x_return_status := Okl_Api.G_RET_STS_ERROR;
6772: ELSE
6773: l_prev_pmnt := TO_NUMBER(NVL(l_strm_sll_rec.amt,'0'));
6774: END IF; --check
6775:
6778: END LOOP; --l_strm_slh_csr
6779:
6780: END IF;
6781:
6782: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6783:
6784: EXCEPTION
6785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6781:
6782: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6783:
6784: EXCEPTION
6785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6787: p_api_name => l_api_name,
6788: p_pkg_name => g_pkg_name,
6789: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6782: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6783:
6784: EXCEPTION
6785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6787: p_api_name => l_api_name,
6788: p_pkg_name => g_pkg_name,
6789: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6790: x_msg_count => x_msg_count,
6785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6786: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6787: p_api_name => l_api_name,
6788: p_pkg_name => g_pkg_name,
6789: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6790: x_msg_count => x_msg_count,
6791: x_msg_data => x_msg_data,
6792: p_api_type => g_api_type);
6793:
6790: x_msg_count => x_msg_count,
6791: x_msg_data => x_msg_data,
6792: p_api_type => g_api_type);
6793:
6794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6796: p_api_name => l_api_name,
6797: p_pkg_name => g_pkg_name,
6798: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6791: x_msg_data => x_msg_data,
6792: p_api_type => g_api_type);
6793:
6794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6796: p_api_name => l_api_name,
6797: p_pkg_name => g_pkg_name,
6798: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6799: x_msg_count => x_msg_count,
6794: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6796: p_api_name => l_api_name,
6797: p_pkg_name => g_pkg_name,
6798: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6799: x_msg_count => x_msg_count,
6800: x_msg_data => x_msg_data,
6801: p_api_type => g_api_type);
6802:
6800: x_msg_data => x_msg_data,
6801: p_api_type => g_api_type);
6802:
6803: WHEN OTHERS THEN
6804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6805: p_api_name => l_api_name,
6806: p_pkg_name => g_pkg_name,
6807: p_exc_name => 'OTHERS',
6808: x_msg_count => x_msg_count,