[Home] [Help]
288:
289:
290:
291: Procedure Get_Rule_Jtot_Metadata (p_api_version IN NUMBER,
292: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
293: x_return_status OUT NOCOPY VARCHAR2,
294: x_msg_count OUT NOCOPY NUMBER,
295: x_msg_data OUT NOCOPY VARCHAR2,
296: p_chr_id IN NUMBER,
360: x_select_clause := jtf_rule_rec.select_clause;
361: x_from_clause := jtf_rule_rec.from_clause;
362: x_where_clause := jtf_rule_rec.where_clause;
363: x_order_by_clause := jtf_rule_rec.order_by_clause;
364: If ( p_name is not null and p_name <> OKC_API.G_MISS_CHAR) then
365: select x_where_clause || decode(x_where_clause,null,null,' AND ')||
366: ' DESCRIPTION like :name'
367: into l_where_clause
368: from dual;
368: from dual;
369: x_where_clause := l_where_clause;
370: End If;
371:
372: If p_id1 is not null and p_id1 <> OKC_API.G_MISS_CHAR
373: and p_id2 is not null and p_id2 <> OKC_API.G_MISS_CHAR then
374: select x_where_clause || decode(x_where_clause,null,null,' AND ')||
375: ' ID1 = '||''''||p_id1||''''||' AND '||' ID2 = '||''''||p_id2||''''
376: into l_where_clause
369: x_where_clause := l_where_clause;
370: End If;
371:
372: If p_id1 is not null and p_id1 <> OKC_API.G_MISS_CHAR
373: and p_id2 is not null and p_id2 <> OKC_API.G_MISS_CHAR then
374: select x_where_clause || decode(x_where_clause,null,null,' AND ')||
375: ' ID1 = '||''''||p_id1||''''||' AND '||' ID2 = '||''''||p_id2||''''
376: into l_where_clause
377: from dual;
389: -- attached to a contract
390: --End of Comments
391:
392: Procedure Validate_Rule (p_api_version IN NUMBER,
393: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
394: x_return_status OUT NOCOPY VARCHAR2,
395: x_msg_count OUT NOCOPY NUMBER,
396: x_msg_data OUT NOCOPY VARCHAR2,
397: p_chr_id IN NUMBER,
441: l_api_version CONSTANT NUMBER := 1.0;
442:
443:
444:
445: --x_return_status := OKC_API.G_RET_STS_SUCCESS;
446:
447:
448:
449: ERR_MSG VARCHAR2(50) := 'DEFAULT';
489: -- call START_ACTIVITY to create savepoint, check compatibility
490:
491: -- and initialize message list
492:
493: x_return_status := OKC_API.START_ACTIVITY(
494: p_api_name => l_api_name,
495: p_pkg_name => g_pkg_name,
496: p_init_msg_list => p_init_msg_list,
497: l_api_version => l_api_version,
500: x_return_status => x_return_status);
501:
502:
503:
504: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
505: Then
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
502:
503:
504: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
505: Then
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
509: Then
510: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
503:
504: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
505: Then
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
509: Then
510: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
511: raise OKC_API.G_EXCEPTION_ERROR;
504: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
505: Then
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
509: Then
510: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
511: raise OKC_API.G_EXCEPTION_ERROR;
512:
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
509: Then
510: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
511: raise OKC_API.G_EXCEPTION_ERROR;
512:
513: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
514: Then
507: raise OKC_API.G_EXCEPTION_ERROR;
508: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
509: Then
510: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
511: raise OKC_API.G_EXCEPTION_ERROR;
512:
513: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
514: Then
515: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
509: Then
510: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
511: raise OKC_API.G_EXCEPTION_ERROR;
512:
513: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
514: Then
515: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
516: raise OKC_API.G_EXCEPTION_ERROR;
517: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
511: raise OKC_API.G_EXCEPTION_ERROR;
512:
513: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
514: Then
515: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
516: raise OKC_API.G_EXCEPTION_ERROR;
517: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
518: Then
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
512:
513: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
514: Then
515: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
516: raise OKC_API.G_EXCEPTION_ERROR;
517: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
518: Then
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
520: raise OKC_API.G_EXCEPTION_ERROR;
513: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
514: Then
515: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
516: raise OKC_API.G_EXCEPTION_ERROR;
517: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
518: Then
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
520: raise OKC_API.G_EXCEPTION_ERROR;
521: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
515: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
516: raise OKC_API.G_EXCEPTION_ERROR;
517: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
518: Then
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
520: raise OKC_API.G_EXCEPTION_ERROR;
521: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
522: End If;
523:
516: raise OKC_API.G_EXCEPTION_ERROR;
517: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
518: Then
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
520: raise OKC_API.G_EXCEPTION_ERROR;
521: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
522: End If;
523:
524: Get_Rule_Jtot_Metadata ( p_api_version => p_api_version ,
517: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
518: Then
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
520: raise OKC_API.G_EXCEPTION_ERROR;
521: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
522: End If;
523:
524: Get_Rule_Jtot_Metadata ( p_api_version => p_api_version ,
525: p_init_msg_list => p_init_msg_list ,
553:
554: Fetch rule_curs into l_id1,l_id2,l_name,l_description;
555: If rule_curs%NotFound Then
556:
557: x_return_status := OKC_API.g_ret_sts_error;
558: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
559: OKC_API.SET_MESSAGE( p_app_name => g_app_name
560: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
561: , p_token1 => 'COL_NAME'
555: If rule_curs%NotFound Then
556:
557: x_return_status := OKC_API.g_ret_sts_error;
558: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
559: OKC_API.SET_MESSAGE( p_app_name => g_app_name
560: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
561: , p_token1 => 'COL_NAME'
562: , p_token1_value => l_ak_prompt
563: );
561: , p_token1 => 'COL_NAME'
562: , p_token1_value => l_ak_prompt
563: );
564:
565: raise OKC_API.G_EXCEPTION_ERROR;
566:
567: End If;
568:
569:
572:
573: Fetch rule_curs into l_id1,l_id2,l_name,l_description;
574:
575: If rule_curs%Found Then
576: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
577: x_return_status := OKC_API.g_ret_sts_error;
578: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
579: OKC_API.SET_MESSAGE( p_app_name => g_app_name
580: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
573: Fetch rule_curs into l_id1,l_id2,l_name,l_description;
574:
575: If rule_curs%Found Then
576: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
577: x_return_status := OKC_API.g_ret_sts_error;
578: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
579: OKC_API.SET_MESSAGE( p_app_name => g_app_name
580: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
581: , p_token1 => 'COL_NAME'
575: If rule_curs%Found Then
576: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
577: x_return_status := OKC_API.g_ret_sts_error;
578: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
579: OKC_API.SET_MESSAGE( p_app_name => g_app_name
580: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
581: , p_token1 => 'COL_NAME'
582: , p_token1_value => l_ak_prompt
583: );
580: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
581: , p_token1 => 'COL_NAME'
582: , p_token1_value => l_ak_prompt
583: );
584: raise OKC_API.G_EXCEPTION_ERROR;
585: End If;
586:
587: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
588: x_return_status := OKC_API.g_ret_sts_error;
583: );
584: raise OKC_API.G_EXCEPTION_ERROR;
585: End If;
586:
587: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
588: x_return_status := OKC_API.g_ret_sts_error;
589: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
590: OKC_API.SET_MESSAGE( p_app_name => g_app_name
591: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
584: raise OKC_API.G_EXCEPTION_ERROR;
585: End If;
586:
587: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
588: x_return_status := OKC_API.g_ret_sts_error;
589: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
590: OKC_API.SET_MESSAGE( p_app_name => g_app_name
591: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
592: , p_token1 => 'COL_NAME'
586:
587: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
588: x_return_status := OKC_API.g_ret_sts_error;
589: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
590: OKC_API.SET_MESSAGE( p_app_name => g_app_name
591: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
592: , p_token1 => 'COL_NAME'
593: , p_token1_value => l_ak_prompt
594: );
592: , p_token1 => 'COL_NAME'
593: , p_token1_value => l_ak_prompt
594: );
595:
596: raise OKC_API.G_EXCEPTION_ERROR;
597:
598: End If;
599:
600:
619: End If;
620:
621: If row_count <> 1 Then
622:
623: x_return_status := OKC_API.g_ret_sts_error;
624:
625: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
626:
627: OKC_API.SET_MESSAGE( p_app_name => g_app_name
623: x_return_status := OKC_API.g_ret_sts_error;
624:
625: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
626:
627: OKC_API.SET_MESSAGE( p_app_name => g_app_name
628:
629: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
630:
631: , p_token1 => 'COL_NAME'
633: , p_token1_value => l_ak_prompt
634:
635: );
636:
637: raise OKC_API.G_EXCEPTION_ERROR;
638:
639: End If;
640:
641:
653: Close rule_curs;
654:
655: /*
656:
657: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
658:
659:
660:
661: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
657: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
658:
659:
660:
661: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
662:
663: OPEN check_rule_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
664:
665: FETCH check_rule_csr INTO row_count;
667: CLOSE check_rule_csr;
668:
669: If row_count = 1 Then
670:
671: x_return_status := OKC_API.g_ret_sts_error;
672:
673: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
674:
675: raise OKC_API.G_EXCEPTION_ERROR;
669: If row_count = 1 Then
670:
671: x_return_status := OKC_API.g_ret_sts_error;
672:
673: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
674:
675: raise OKC_API.G_EXCEPTION_ERROR;
676:
677: End If;
671: x_return_status := OKC_API.g_ret_sts_error;
672:
673: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
674:
675: raise OKC_API.G_EXCEPTION_ERROR;
676:
677: End If;
678:
679: Else
695: CLOSE check_rule_csr;
696:
697: If row_count = 1 Then
698:
699: x_return_status := OKC_API.g_ret_sts_error;
700:
701: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
702:
703: raise OKC_API.G_EXCEPTION_ERROR;
697: If row_count = 1 Then
698:
699: x_return_status := OKC_API.g_ret_sts_error;
700:
701: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
702:
703: raise OKC_API.G_EXCEPTION_ERROR;
704:
705: End If;
699: x_return_status := OKC_API.g_ret_sts_error;
700:
701: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
702:
703: raise OKC_API.G_EXCEPTION_ERROR;
704:
705: End If;
706:
707: End If;
713: End If;
714:
715: */
716:
717: x_return_status := OKC_API.G_RET_STS_SUCCESS;
718: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
719:
720:
721: EXCEPTION
714:
715: */
716:
717: x_return_status := OKC_API.G_RET_STS_SUCCESS;
718: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
719:
720:
721: EXCEPTION
722:
719:
720:
721: EXCEPTION
722:
723: when OKC_API.G_EXCEPTION_ERROR then
724: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
725: p_api_name => l_api_name,
726: p_pkg_name => g_pkg_name,
727: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
720:
721: EXCEPTION
722:
723: when OKC_API.G_EXCEPTION_ERROR then
724: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
725: p_api_name => l_api_name,
726: p_pkg_name => g_pkg_name,
727: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
728: x_msg_count => x_msg_count,
723: when OKC_API.G_EXCEPTION_ERROR then
724: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
725: p_api_name => l_api_name,
726: p_pkg_name => g_pkg_name,
727: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
728: x_msg_count => x_msg_count,
729: x_msg_data => x_msg_data,
730: p_api_type => g_api_type);
731:
732: IF rule_curs%ISOPEN THEN
733: CLOSE rule_curs;
734: END IF;
735:
736: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
737:
738: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
739: p_api_name => l_api_name,
740: p_pkg_name => g_pkg_name,
734: END IF;
735:
736: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
737:
738: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
739: p_api_name => l_api_name,
740: p_pkg_name => g_pkg_name,
741: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
742: x_msg_count => x_msg_count,
737:
738: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
739: p_api_name => l_api_name,
740: p_pkg_name => g_pkg_name,
741: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
742: x_msg_count => x_msg_count,
743: x_msg_data => x_msg_data,
744: p_api_type => g_api_type);
745:
744: p_api_type => g_api_type);
745:
746: when OTHERS then
747:
748: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
749: p_api_name => l_api_name,
750: p_pkg_name => g_pkg_name,
751: p_exc_name => 'OTHERS',
752: x_msg_count => x_msg_count,
798:
799: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_chrv_rec.legal_entity_id) ;
800:
801: IF (l_exists<>1) THEN
802: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LEGAL_ENTITY_ID');
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
806: IF p_mode = 'UPD'
852:
853: --End of Comments
854:
855: Procedure Validate_Contact (p_api_version IN NUMBER,
856: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
857: x_return_status OUT NOCOPY VARCHAR2,
858: x_msg_count OUT NOCOPY NUMBER,
859: x_msg_data OUT NOCOPY VARCHAR2,
860: p_chr_id IN NUMBER,
908: l_api_version CONSTANT NUMBER := 1.0;
909:
910:
911:
912: --x_return_status := OKC_API.G_RET_STS_SUCCESS;
913:
914:
915:
916: ERR_MSG VARCHAR2(50) := 'DEFAULT';
968: -- call START_ACTIVITY to create savepoint, check compatibility
969:
970: -- and initialize message list
971:
972: x_return_status := OKC_API.START_ACTIVITY(
973:
974: p_api_name => l_api_name,
975:
976: p_pkg_name => g_pkg_name,
986: x_return_status => x_return_status);
987:
988:
989:
990: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
991:
992: Then
993:
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
990: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
991:
992: Then
993:
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
995:
996: raise OKC_API.G_EXCEPTION_ERROR;
997:
998: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
992: Then
993:
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
995:
996: raise OKC_API.G_EXCEPTION_ERROR;
997:
998: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
999:
1000: Then
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
995:
996: raise OKC_API.G_EXCEPTION_ERROR;
997:
998: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
999:
1000: Then
1001:
1002: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
998: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
999:
1000: Then
1001:
1002: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1003:
1004: raise OKC_API.G_EXCEPTION_ERROR;
1005:
1006: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
1000: Then
1001:
1002: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1003:
1004: raise OKC_API.G_EXCEPTION_ERROR;
1005:
1006: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
1007:
1008: Then
1002: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1003:
1004: raise OKC_API.G_EXCEPTION_ERROR;
1005:
1006: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
1007:
1008: Then
1009:
1010: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
1006: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
1007:
1008: Then
1009:
1010: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
1011:
1012: raise OKC_API.G_EXCEPTION_ERROR;
1013:
1014: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1008: Then
1009:
1010: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
1011:
1012: raise OKC_API.G_EXCEPTION_ERROR;
1013:
1014: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1015:
1016: Then
1010: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
1011:
1012: raise OKC_API.G_EXCEPTION_ERROR;
1013:
1014: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1015:
1016: Then
1017:
1018: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1014: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1015:
1016: Then
1017:
1018: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1019:
1020: raise OKC_API.G_EXCEPTION_ERROR;
1021:
1022: End If;
1016: Then
1017:
1018: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1019:
1020: raise OKC_API.G_EXCEPTION_ERROR;
1021:
1022: End If;
1023:
1024:
1040: Fetch okx_salepers_csr into l_id1,l_id2,l_name,l_description;
1041:
1042: If okx_salepers_csr%NotFound Then
1043:
1044: x_return_status := OKC_API.g_ret_sts_error;
1045:
1046: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1047:
1048: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1044: x_return_status := OKC_API.g_ret_sts_error;
1045:
1046: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1047:
1048: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1049:
1050: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1051:
1052: , p_token1 => 'COL_NAME'
1056:
1057:
1058: );
1059:
1060: raise OKC_API.G_EXCEPTION_ERROR;
1061:
1062: End If;
1063:
1064: l_id11 := l_id1;
1069: Fetch okx_salepers_csr into l_id1,l_id2,l_name,l_description;
1070:
1071: If okx_salepers_csr%Found Then
1072:
1073: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1074:
1075: x_return_status := OKC_API.g_ret_sts_error;
1076:
1077: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1071: If okx_salepers_csr%Found Then
1072:
1073: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1074:
1075: x_return_status := OKC_API.g_ret_sts_error;
1076:
1077: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1078:
1079: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1075: x_return_status := OKC_API.g_ret_sts_error;
1076:
1077: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1078:
1079: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1080:
1081: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1082:
1083: , p_token1 => 'COL_NAME'
1085: , p_token1_value => l_ak_prompt
1086:
1087: );
1088:
1089: raise OKC_API.G_EXCEPTION_ERROR;
1090:
1091: End If;
1092:
1093: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1089: raise OKC_API.G_EXCEPTION_ERROR;
1090:
1091: End If;
1092:
1093: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1094:
1095: x_return_status := OKC_API.g_ret_sts_error;
1096:
1097: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1091: End If;
1092:
1093: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1094:
1095: x_return_status := OKC_API.g_ret_sts_error;
1096:
1097: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1098:
1099: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1095: x_return_status := OKC_API.g_ret_sts_error;
1096:
1097: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1098:
1099: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1100:
1101: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1102:
1103: , p_token1 => 'COL_NAME'
1105: , p_token1_value => l_ak_prompt
1106:
1107: );
1108:
1109: raise OKC_API.G_EXCEPTION_ERROR;
1110:
1111: End If;
1112:
1113: If (l_id11 = p_id1 and l_id22 = p_id2) Then
1138: End If;
1139:
1140: If row_count <> 1 Then
1141:
1142: x_return_status := OKC_API.g_ret_sts_error;
1143:
1144: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1145:
1146: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1142: x_return_status := OKC_API.g_ret_sts_error;
1143:
1144: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1145:
1146: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1147:
1148: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1149:
1150: , p_token1 => 'COL_NAME'
1152: , p_token1_value => l_ak_prompt
1153:
1154: );
1155:
1156: raise OKC_API.G_EXCEPTION_ERROR;
1157:
1158: End If;
1159:
1160: End If;
1173: Fetch okx_pcontact_csr into l_id1,l_id2,l_name,l_description;
1174:
1175: If okx_pcontact_csr%NotFound Then
1176:
1177: x_return_status := OKC_API.g_ret_sts_error;
1178:
1179: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1180:
1181: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1177: x_return_status := OKC_API.g_ret_sts_error;
1178:
1179: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1180:
1181: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1182:
1183: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1184:
1185: , p_token1 => 'COL_NAME'
1189:
1190:
1191: );
1192:
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194:
1195: End If;
1196:
1197: l_id11 := l_id1;
1201: Fetch okx_pcontact_csr into l_id1,l_id2,l_name,l_description;
1202:
1203: If okx_pcontact_csr%Found Then
1204:
1205: If ( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1206:
1207: x_return_status := OKC_API.g_ret_sts_error;
1208:
1209: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1203: If okx_pcontact_csr%Found Then
1204:
1205: If ( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1206:
1207: x_return_status := OKC_API.g_ret_sts_error;
1208:
1209: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1210:
1211: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1207: x_return_status := OKC_API.g_ret_sts_error;
1208:
1209: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1210:
1211: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1212:
1213: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1214:
1215: , p_token1 => 'COL_NAME'
1217: , p_token1_value => l_ak_prompt
1218:
1219: );
1220:
1221: raise OKC_API.G_EXCEPTION_ERROR;
1222:
1223: End If;
1224:
1225: If (p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1221: raise OKC_API.G_EXCEPTION_ERROR;
1222:
1223: End If;
1224:
1225: If (p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1226:
1227: x_return_status := OKC_API.g_ret_sts_error;
1228:
1229: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1223: End If;
1224:
1225: If (p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1226:
1227: x_return_status := OKC_API.g_ret_sts_error;
1228:
1229: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1230:
1231: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1227: x_return_status := OKC_API.g_ret_sts_error;
1228:
1229: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1230:
1231: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1232:
1233: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1234:
1235: , p_token1 => 'COL_NAME'
1237: , p_token1_value => l_ak_prompt
1238:
1239: );
1240:
1241: raise OKC_API.G_EXCEPTION_ERROR;
1242:
1243: End If;
1244:
1245: If (l_id11 = p_id1 and l_id22 = p_id2) Then
1272:
1273:
1274: If row_count <> 1 Then
1275:
1276: x_return_status := OKC_API.g_ret_sts_error;
1277:
1278: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1279:
1280: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1276: x_return_status := OKC_API.g_ret_sts_error;
1277:
1278: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1279:
1280: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1281:
1282: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1283:
1284: , p_token1 => 'COL_NAME'
1286: , p_token1_value => l_ak_prompt
1287:
1288: );
1289:
1290: raise OKC_API.G_EXCEPTION_ERROR;
1291:
1292: End If;
1293:
1294: End If;
1301:
1302: END IF;
1303:
1304:
1305: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1306:
1307: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1308:
1309:
1303:
1304:
1305: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1306:
1307: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1308:
1309:
1310:
1311: EXCEPTION
1309:
1310:
1311: EXCEPTION
1312:
1313: when OKC_API.G_EXCEPTION_ERROR then
1314:
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1316:
1317: p_api_name => l_api_name,
1311: EXCEPTION
1312:
1313: when OKC_API.G_EXCEPTION_ERROR then
1314:
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1316:
1317: p_api_name => l_api_name,
1318:
1319: p_pkg_name => g_pkg_name,
1317: p_api_name => l_api_name,
1318:
1319: p_pkg_name => g_pkg_name,
1320:
1321: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1322:
1323: x_msg_count => x_msg_count,
1324:
1325: x_msg_data => x_msg_data,
1336:
1337: END IF;
1338:
1339:
1340: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1341:
1342: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1343:
1344: p_api_name => l_api_name,
1338:
1339:
1340: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1341:
1342: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1343:
1344: p_api_name => l_api_name,
1345:
1346: p_pkg_name => g_pkg_name,
1344: p_api_name => l_api_name,
1345:
1346: p_pkg_name => g_pkg_name,
1347:
1348: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1349:
1350: x_msg_count => x_msg_count,
1351:
1352: x_msg_data => x_msg_data,
1365:
1366:
1367: When OTHERS then
1368:
1369: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1370:
1371: p_api_name => l_api_name,
1372:
1373: p_pkg_name => g_pkg_name,
1406:
1407: --End of Comments
1408:
1409: Procedure Validate_Party (p_api_version IN NUMBER,
1410: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
1411: x_return_status OUT NOCOPY VARCHAR2,
1412: x_msg_count OUT NOCOPY NUMBER,
1413: x_msg_data OUT NOCOPY VARCHAR2,
1414: p_chr_id IN NUMBER,
1460: l_api_name CONSTANT VARCHAR2(30) := 'okl_la_jtot_extract';
1461: l_api_version CONSTANT NUMBER := 1.0;
1462:
1463:
1464: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
1465:
1466:
1467:
1468: ERR_MSG VARCHAR2(50) := 'DEFAULT';
1500:
1501: -- call START_ACTIVITY to create savepoint, check compatibility
1502: -- and initialize message list
1503:
1504: x_return_status := OKC_API.START_ACTIVITY(
1505: p_api_name => l_api_name,
1506: p_pkg_name => g_pkg_name,
1507: p_init_msg_list => p_init_msg_list,
1508: l_api_version => l_api_version,
1511: x_return_status => x_return_status);
1512:
1513:
1514:
1515: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1516: Then
1517: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1513:
1514:
1515: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1516: Then
1517: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1520: Then
1521: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1514:
1515: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1516: Then
1517: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1520: Then
1521: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1522: raise OKC_API.G_EXCEPTION_ERROR;
1515: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1516: Then
1517: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1520: Then
1521: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1517: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1520: Then
1521: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1524: Then
1525: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1520: Then
1521: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1524: Then
1525: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1526: raise OKC_API.G_EXCEPTION_ERROR;
1519: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1520: Then
1521: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1524: Then
1525: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1526: raise OKC_API.G_EXCEPTION_ERROR;
1527: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1524: Then
1525: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1526: raise OKC_API.G_EXCEPTION_ERROR;
1527: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: End If;
1529:
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1524: Then
1525: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1526: raise OKC_API.G_EXCEPTION_ERROR;
1527: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: End If;
1529:
1530:
1523: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1524: Then
1525: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1526: raise OKC_API.G_EXCEPTION_ERROR;
1527: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: End If;
1529:
1530:
1531:
1548:
1549: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1550:
1551: If okx_party_csr%NotFound Then
1552: x_return_status := OKC_API.g_ret_sts_error;
1553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1554: raise OKC_API.G_EXCEPTION_ERROR;
1555: End If;
1556:
1549: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1550:
1551: If okx_party_csr%NotFound Then
1552: x_return_status := OKC_API.g_ret_sts_error;
1553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1554: raise OKC_API.G_EXCEPTION_ERROR;
1555: End If;
1556:
1557: l_id11 := l_id1;
1550:
1551: If okx_party_csr%NotFound Then
1552: x_return_status := OKC_API.g_ret_sts_error;
1553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1554: raise OKC_API.G_EXCEPTION_ERROR;
1555: End If;
1556:
1557: l_id11 := l_id1;
1558: l_id22 := l_id2;
1564:
1565: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1566: If okx_party_csr%Found Then
1567:
1568: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1569: x_return_status := OKC_API.g_ret_sts_error;
1570: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1571: raise OKC_API.G_EXCEPTION_ERROR;
1572:
1565: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1566: If okx_party_csr%Found Then
1567:
1568: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1569: x_return_status := OKC_API.g_ret_sts_error;
1570: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1571: raise OKC_API.G_EXCEPTION_ERROR;
1572:
1573: End If;
1566: If okx_party_csr%Found Then
1567:
1568: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1569: x_return_status := OKC_API.g_ret_sts_error;
1570: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1571: raise OKC_API.G_EXCEPTION_ERROR;
1572:
1573: End If;
1574:
1567:
1568: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1569: x_return_status := OKC_API.g_ret_sts_error;
1570: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1571: raise OKC_API.G_EXCEPTION_ERROR;
1572:
1573: End If;
1574:
1575: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1571: raise OKC_API.G_EXCEPTION_ERROR;
1572:
1573: End If;
1574:
1575: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1576: x_return_status := OKC_API.g_ret_sts_error;
1577: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1578: raise OKC_API.G_EXCEPTION_ERROR;
1579: End If;
1572:
1573: End If;
1574:
1575: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1576: x_return_status := OKC_API.g_ret_sts_error;
1577: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1578: raise OKC_API.G_EXCEPTION_ERROR;
1579: End If;
1580:
1573: End If;
1574:
1575: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1576: x_return_status := OKC_API.g_ret_sts_error;
1577: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1578: raise OKC_API.G_EXCEPTION_ERROR;
1579: End If;
1580:
1581: Loop
1574:
1575: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1576: x_return_status := OKC_API.g_ret_sts_error;
1577: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1578: raise OKC_API.G_EXCEPTION_ERROR;
1579: End If;
1580:
1581: Loop
1582:
1590: Exit When okx_party_csr%NotFound;
1591: End Loop;
1592:
1593: If row_count <> 1 Then
1594: x_return_status := OKC_API.g_ret_sts_error;
1595: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1596: raise OKC_API.G_EXCEPTION_ERROR;
1597: End If;
1598:
1591: End Loop;
1592:
1593: If row_count <> 1 Then
1594: x_return_status := OKC_API.g_ret_sts_error;
1595: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1596: raise OKC_API.G_EXCEPTION_ERROR;
1597: End If;
1598:
1599: End If;
1592:
1593: If row_count <> 1 Then
1594: x_return_status := OKC_API.g_ret_sts_error;
1595: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1596: raise OKC_API.G_EXCEPTION_ERROR;
1597: End If;
1598:
1599: End If;
1600:
1623:
1624: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1625:
1626: If okx_operunit_csr%NotFound Then
1627: x_return_status := OKC_API.g_ret_sts_error;
1628: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1629: raise OKC_API.G_EXCEPTION_ERROR;
1630: End If;
1631:
1624: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1625:
1626: If okx_operunit_csr%NotFound Then
1627: x_return_status := OKC_API.g_ret_sts_error;
1628: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1629: raise OKC_API.G_EXCEPTION_ERROR;
1630: End If;
1631:
1632:
1625:
1626: If okx_operunit_csr%NotFound Then
1627: x_return_status := OKC_API.g_ret_sts_error;
1628: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1629: raise OKC_API.G_EXCEPTION_ERROR;
1630: End If;
1631:
1632:
1633: l_id11 := l_id1;
1637: null;
1638: Else
1639: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1640: If okx_operunit_csr%Found Then
1641: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1642: x_return_status := OKC_API.g_ret_sts_error;
1643: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1644: raise OKC_API.G_EXCEPTION_ERROR;
1645: End If;
1638: Else
1639: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1640: If okx_operunit_csr%Found Then
1641: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1642: x_return_status := OKC_API.g_ret_sts_error;
1643: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1644: raise OKC_API.G_EXCEPTION_ERROR;
1645: End If;
1646: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1639: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1640: If okx_operunit_csr%Found Then
1641: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1642: x_return_status := OKC_API.g_ret_sts_error;
1643: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1644: raise OKC_API.G_EXCEPTION_ERROR;
1645: End If;
1646: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1647: x_return_status := OKC_API.g_ret_sts_error;
1640: If okx_operunit_csr%Found Then
1641: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1642: x_return_status := OKC_API.g_ret_sts_error;
1643: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1644: raise OKC_API.G_EXCEPTION_ERROR;
1645: End If;
1646: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1647: x_return_status := OKC_API.g_ret_sts_error;
1648: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1642: x_return_status := OKC_API.g_ret_sts_error;
1643: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1644: raise OKC_API.G_EXCEPTION_ERROR;
1645: End If;
1646: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1647: x_return_status := OKC_API.g_ret_sts_error;
1648: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1649: raise OKC_API.G_EXCEPTION_ERROR;
1650: End If;
1643: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1644: raise OKC_API.G_EXCEPTION_ERROR;
1645: End If;
1646: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1647: x_return_status := OKC_API.g_ret_sts_error;
1648: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1649: raise OKC_API.G_EXCEPTION_ERROR;
1650: End If;
1651: Loop
1644: raise OKC_API.G_EXCEPTION_ERROR;
1645: End If;
1646: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1647: x_return_status := OKC_API.g_ret_sts_error;
1648: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1649: raise OKC_API.G_EXCEPTION_ERROR;
1650: End If;
1651: Loop
1652: If(l_id1 = p_id1 and l_id2 = p_id2) Then
1645: End If;
1646: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1647: x_return_status := OKC_API.g_ret_sts_error;
1648: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1649: raise OKC_API.G_EXCEPTION_ERROR;
1650: End If;
1651: Loop
1652: If(l_id1 = p_id1 and l_id2 = p_id2) Then
1653: l_id11 := l_id1;
1659: Exit When okx_operunit_csr%NotFound;
1660: End Loop;
1661:
1662: If row_count <> 1 Then
1663: x_return_status := OKC_API.g_ret_sts_error;
1664: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1665: raise OKC_API.G_EXCEPTION_ERROR;
1666: End If;
1667:
1660: End Loop;
1661:
1662: If row_count <> 1 Then
1663: x_return_status := OKC_API.g_ret_sts_error;
1664: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1665: raise OKC_API.G_EXCEPTION_ERROR;
1666: End If;
1667:
1668: End If;
1661:
1662: If row_count <> 1 Then
1663: x_return_status := OKC_API.g_ret_sts_error;
1664: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1665: raise OKC_API.G_EXCEPTION_ERROR;
1666: End If;
1667:
1668: End If;
1669:
1692:
1693: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1694:
1695: If okx_vendor_csr%NotFound Then
1696: x_return_status := OKC_API.g_ret_sts_error;
1697: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: End If;
1700:
1693: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1694:
1695: If okx_vendor_csr%NotFound Then
1696: x_return_status := OKC_API.g_ret_sts_error;
1697: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: End If;
1700:
1701: l_id11 := l_id1;
1694:
1695: If okx_vendor_csr%NotFound Then
1696: x_return_status := OKC_API.g_ret_sts_error;
1697: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: End If;
1700:
1701: l_id11 := l_id1;
1702: l_id22 := l_id2;
1705: null;
1706: Else
1707: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1708: If okx_vendor_csr%Found Then
1709: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1710: x_return_status := OKC_API.g_ret_sts_error;
1711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1712: raise OKC_API.G_EXCEPTION_ERROR;
1713: End If;
1706: Else
1707: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1708: If okx_vendor_csr%Found Then
1709: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1710: x_return_status := OKC_API.g_ret_sts_error;
1711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1712: raise OKC_API.G_EXCEPTION_ERROR;
1713: End If;
1714:
1707: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1708: If okx_vendor_csr%Found Then
1709: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1710: x_return_status := OKC_API.g_ret_sts_error;
1711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1712: raise OKC_API.G_EXCEPTION_ERROR;
1713: End If;
1714:
1715: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1708: If okx_vendor_csr%Found Then
1709: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1710: x_return_status := OKC_API.g_ret_sts_error;
1711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1712: raise OKC_API.G_EXCEPTION_ERROR;
1713: End If;
1714:
1715: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1716: x_return_status := OKC_API.g_ret_sts_error;
1711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1712: raise OKC_API.G_EXCEPTION_ERROR;
1713: End If;
1714:
1715: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1716: x_return_status := OKC_API.g_ret_sts_error;
1717: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1718: raise OKC_API.G_EXCEPTION_ERROR;
1719: End If;
1712: raise OKC_API.G_EXCEPTION_ERROR;
1713: End If;
1714:
1715: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1716: x_return_status := OKC_API.g_ret_sts_error;
1717: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1718: raise OKC_API.G_EXCEPTION_ERROR;
1719: End If;
1720:
1713: End If;
1714:
1715: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1716: x_return_status := OKC_API.g_ret_sts_error;
1717: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1718: raise OKC_API.G_EXCEPTION_ERROR;
1719: End If;
1720:
1721: Loop
1714:
1715: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1716: x_return_status := OKC_API.g_ret_sts_error;
1717: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1718: raise OKC_API.G_EXCEPTION_ERROR;
1719: End If;
1720:
1721: Loop
1722:
1731: Exit When okx_vendor_csr%NotFound;
1732: End Loop;
1733:
1734: If row_count <> 1 Then
1735: x_return_status := OKC_API.g_ret_sts_error;
1736: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1737: raise OKC_API.G_EXCEPTION_ERROR;
1738: End If;
1739:
1732: End Loop;
1733:
1734: If row_count <> 1 Then
1735: x_return_status := OKC_API.g_ret_sts_error;
1736: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1737: raise OKC_API.G_EXCEPTION_ERROR;
1738: End If;
1739:
1740: End If;
1733:
1734: If row_count <> 1 Then
1735: x_return_status := OKC_API.g_ret_sts_error;
1736: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1737: raise OKC_API.G_EXCEPTION_ERROR;
1738: End If;
1739:
1740: End If;
1741:
1747: Close okx_vendor_csr;
1748:
1749: END IF;
1750:
1751: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
1752: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
1753: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
1754: FETCH check_party_csr INTO row_count;
1755: CLOSE check_party_csr;
1748:
1749: END IF;
1750:
1751: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
1752: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
1753: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
1754: FETCH check_party_csr INTO row_count;
1755: CLOSE check_party_csr;
1756:
1754: FETCH check_party_csr INTO row_count;
1755: CLOSE check_party_csr;
1756:
1757: If row_count = 1 Then
1758: x_return_status := OKC_API.g_ret_sts_error;
1759: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1760: raise OKC_API.G_EXCEPTION_ERROR;
1761: End If;
1762:
1755: CLOSE check_party_csr;
1756:
1757: If row_count = 1 Then
1758: x_return_status := OKC_API.g_ret_sts_error;
1759: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1760: raise OKC_API.G_EXCEPTION_ERROR;
1761: End If;
1762:
1763: Else
1756:
1757: If row_count = 1 Then
1758: x_return_status := OKC_API.g_ret_sts_error;
1759: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1760: raise OKC_API.G_EXCEPTION_ERROR;
1761: End If;
1762:
1763: Else
1764:
1771: FETCH check_party_csr INTO row_count;
1772: CLOSE check_party_csr;
1773:
1774: If row_count = 1 Then
1775: x_return_status := OKC_API.g_ret_sts_error;
1776: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1777: raise OKC_API.G_EXCEPTION_ERROR;
1778: End If;
1779: End If;
1772: CLOSE check_party_csr;
1773:
1774: If row_count = 1 Then
1775: x_return_status := OKC_API.g_ret_sts_error;
1776: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1777: raise OKC_API.G_EXCEPTION_ERROR;
1778: End If;
1779: End If;
1780:
1773:
1774: If row_count = 1 Then
1775: x_return_status := OKC_API.g_ret_sts_error;
1776: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1777: raise OKC_API.G_EXCEPTION_ERROR;
1778: End If;
1779: End If;
1780:
1781: End If;
1782: End If;
1783:
1784: --p_object_code := l_object_code ;
1785:
1786: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1787:
1788: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1789:
1790: EXCEPTION
1784: --p_object_code := l_object_code ;
1785:
1786: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1787:
1788: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1789:
1790: EXCEPTION
1791:
1792: WHEN OKC_API.G_EXCEPTION_ERROR then
1788: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1789:
1790: EXCEPTION
1791:
1792: WHEN OKC_API.G_EXCEPTION_ERROR then
1793:
1794: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1795: p_api_name => l_api_name,
1796: p_pkg_name => g_pkg_name,
1790: EXCEPTION
1791:
1792: WHEN OKC_API.G_EXCEPTION_ERROR then
1793:
1794: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1795: p_api_name => l_api_name,
1796: p_pkg_name => g_pkg_name,
1797: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1798: x_msg_count => x_msg_count,
1793:
1794: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1795: p_api_name => l_api_name,
1796: p_pkg_name => g_pkg_name,
1797: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1798: x_msg_count => x_msg_count,
1799: x_msg_data => x_msg_data,
1800: p_api_type => g_api_type);
1801:
1811: CLOSE okx_vendor_csr;
1812: END IF;
1813:
1814:
1815: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1816: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1817: p_api_name => l_api_name,
1818: p_pkg_name => g_pkg_name,
1819: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1812: END IF;
1813:
1814:
1815: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1816: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1817: p_api_name => l_api_name,
1818: p_pkg_name => g_pkg_name,
1819: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1820: x_msg_count => x_msg_count,
1815: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1816: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1817: p_api_name => l_api_name,
1818: p_pkg_name => g_pkg_name,
1819: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1820: x_msg_count => x_msg_count,
1821: x_msg_data => x_msg_data,
1822: p_api_type => g_api_type);
1823:
1834: END IF;
1835:
1836:
1837: WHEN OTHERS then
1838: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1839: p_api_name => l_api_name,
1840: p_pkg_name => g_pkg_name,
1841: p_exc_name => 'OTHERS',
1842: x_msg_count => x_msg_count,
1873:
1874: --End of Comments
1875:
1876: Procedure Get_Party_Jtot_data (p_api_version IN NUMBER,
1877: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
1878: x_return_status OUT NOCOPY VARCHAR2,
1879: x_msg_count OUT NOCOPY NUMBER,
1880: x_msg_data OUT NOCOPY VARCHAR2,
1881: p_scs_code IN VARCHAR2,
1916:
1917: l_api_name CONSTANT VARCHAR2(30) := 'Get_Party_Jtot_data';
1918: l_api_version CONSTANT NUMBER := 1.0;
1919:
1920: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
1921:
1922: ERR_MSG VARCHAR2(50) := 'DEFAULT';
1923:
1924: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
1926: Begin
1927:
1928: -- call START_ACTIVITY to create savepoint, check compatibility
1929: -- and initialize message list
1930: x_return_status := OKC_API.START_ACTIVITY(
1931: p_api_name => l_api_name,
1932: p_pkg_name => g_pkg_name,
1933: p_init_msg_list => p_init_msg_list,
1934: l_api_version => l_api_version,
1935: p_api_version => p_api_version,
1936: p_api_type => g_api_type,
1937: x_return_status => x_return_status);
1938:
1939: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1940: Then
1941: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1937: x_return_status => x_return_status);
1938:
1939: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1940: Then
1941: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1944: Then
1945: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1938:
1939: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1940: Then
1941: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1944: Then
1945: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1946: raise OKC_API.G_EXCEPTION_ERROR;
1939: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1940: Then
1941: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1944: Then
1945: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1946: raise OKC_API.G_EXCEPTION_ERROR;
1947: End If;
1941: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1944: Then
1945: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1946: raise OKC_API.G_EXCEPTION_ERROR;
1947: End If;
1948:
1949: -- Added by kthiruva 23-Sep-2003 Bug No.3156265
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1944: Then
1945: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1946: raise OKC_API.G_EXCEPTION_ERROR;
1947: End If;
1948:
1949: -- Added by kthiruva 23-Sep-2003 Bug No.3156265
1950:
1968:
1969: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1970:
1971: If okx_party_csr%NotFound Then
1972: x_return_status := OKC_API.g_ret_sts_error;
1973: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1974: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1975: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1976: , p_token1 => 'COL_NAME'
1970:
1971: If okx_party_csr%NotFound Then
1972: x_return_status := OKC_API.g_ret_sts_error;
1973: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1974: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1975: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1976: , p_token1 => 'COL_NAME'
1977: , p_token1_value => l_ak_prompt
1978: );
1976: , p_token1 => 'COL_NAME'
1977: , p_token1_value => l_ak_prompt
1978: );
1979:
1980: raise OKC_API.G_EXCEPTION_ERROR;
1981: End If;
1982:
1983:
1984: l_id11 := l_id1;
1989: null;
1990: ELSE
1991: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1992: IF okx_party_csr%Found Then
1993: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1994: x_return_status := OKC_API.g_ret_sts_error;
1995: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1996: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1997: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1990: ELSE
1991: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1992: IF okx_party_csr%Found Then
1993: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1994: x_return_status := OKC_API.g_ret_sts_error;
1995: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1996: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1997: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1998: , p_token1 => 'COL_NAME'
1992: IF okx_party_csr%Found Then
1993: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1994: x_return_status := OKC_API.g_ret_sts_error;
1995: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1996: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1997: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1998: , p_token1 => 'COL_NAME'
1999: , p_token1_value => l_ak_prompt
2000: );
1998: , p_token1 => 'COL_NAME'
1999: , p_token1_value => l_ak_prompt
2000: );
2001:
2002: raise OKC_API.G_EXCEPTION_ERROR;
2003: End If;
2004:
2005: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2006: x_return_status := OKC_API.g_ret_sts_error;
2001:
2002: raise OKC_API.G_EXCEPTION_ERROR;
2003: End If;
2004:
2005: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2006: x_return_status := OKC_API.g_ret_sts_error;
2007: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2008: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2009: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2002: raise OKC_API.G_EXCEPTION_ERROR;
2003: End If;
2004:
2005: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2006: x_return_status := OKC_API.g_ret_sts_error;
2007: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2008: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2009: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2010: , p_token1 => 'COL_NAME'
2004:
2005: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2006: x_return_status := OKC_API.g_ret_sts_error;
2007: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2008: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2009: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2010: , p_token1 => 'COL_NAME'
2011: , p_token1_value => l_ak_prompt
2012: );
2010: , p_token1 => 'COL_NAME'
2011: , p_token1_value => l_ak_prompt
2012: );
2013:
2014: raise OKC_API.G_EXCEPTION_ERROR;
2015:
2016: End If;
2017:
2018: If(l_id11 = p_id1 and l_id22 = p_id2) Then
2030: End Loop;
2031: End If;
2032:
2033: If row_count <> 1 Then
2034: x_return_status := OKC_API.g_ret_sts_error;
2035: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2036: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2037: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2038: , p_token1 => 'COL_NAME'
2032:
2033: If row_count <> 1 Then
2034: x_return_status := OKC_API.g_ret_sts_error;
2035: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2036: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2037: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2038: , p_token1 => 'COL_NAME'
2039: , p_token1_value => l_ak_prompt
2040: );
2038: , p_token1 => 'COL_NAME'
2039: , p_token1_value => l_ak_prompt
2040: );
2041:
2042: raise OKC_API.G_EXCEPTION_ERROR;
2043: End If;
2044:
2045: End If;
2046:
2071:
2072: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
2073:
2074: If okx_operunit_csr%NotFound Then
2075: x_return_status := OKC_API.g_ret_sts_error;
2076: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2077: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2078: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2079: , p_token1 => 'COL_NAME'
2073:
2074: If okx_operunit_csr%NotFound Then
2075: x_return_status := OKC_API.g_ret_sts_error;
2076: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2077: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2078: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2079: , p_token1 => 'COL_NAME'
2080: , p_token1_value => l_ak_prompt
2081: );
2079: , p_token1 => 'COL_NAME'
2080: , p_token1_value => l_ak_prompt
2081: );
2082:
2083: raise OKC_API.G_EXCEPTION_ERROR;
2084: End If;
2085:
2086: l_id11 := l_id1;
2087: l_id22 := l_id2;
2090: null;
2091: Else
2092: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
2093: If okx_operunit_csr%Found Then
2094: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2095: x_return_status := OKC_API.g_ret_sts_error;
2096: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2097: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2098: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2091: Else
2092: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
2093: If okx_operunit_csr%Found Then
2094: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2095: x_return_status := OKC_API.g_ret_sts_error;
2096: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2097: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2098: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2099: , p_token1 => 'COL_NAME'
2093: If okx_operunit_csr%Found Then
2094: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2095: x_return_status := OKC_API.g_ret_sts_error;
2096: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2097: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2098: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2099: , p_token1 => 'COL_NAME'
2100: , p_token1_value => l_ak_prompt );
2101:
2098: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2099: , p_token1 => 'COL_NAME'
2100: , p_token1_value => l_ak_prompt );
2101:
2102: raise OKC_API.G_EXCEPTION_ERROR;
2103:
2104: End If;
2105:
2106: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2102: raise OKC_API.G_EXCEPTION_ERROR;
2103:
2104: End If;
2105:
2106: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2107: x_return_status := OKC_API.g_ret_sts_error;
2108: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2109: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2110: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2103:
2104: End If;
2105:
2106: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2107: x_return_status := OKC_API.g_ret_sts_error;
2108: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2109: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2110: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2111: , p_token1 => 'COL_NAME'
2105:
2106: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2107: x_return_status := OKC_API.g_ret_sts_error;
2108: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2109: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2110: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2111: , p_token1 => 'COL_NAME'
2112: , p_token1_value => l_ak_prompt );
2113:
2110: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2111: , p_token1 => 'COL_NAME'
2112: , p_token1_value => l_ak_prompt );
2113:
2114: raise OKC_API.G_EXCEPTION_ERROR;
2115:
2116: End If;
2117:
2118: If(l_id11 = p_id1 and l_id22 = p_id2) Then
2130: End Loop;
2131: End If;
2132:
2133: If row_count <> 1 Then
2134: x_return_status := OKC_API.g_ret_sts_error;
2135: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2136: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2137: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2138: , p_token1 => 'COL_NAME'
2132:
2133: If row_count <> 1 Then
2134: x_return_status := OKC_API.g_ret_sts_error;
2135: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2136: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2137: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2138: , p_token1 => 'COL_NAME'
2139: , p_token1_value => l_ak_prompt);
2140:
2137: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2138: , p_token1 => 'COL_NAME'
2139: , p_token1_value => l_ak_prompt);
2140:
2141: raise OKC_API.G_EXCEPTION_ERROR;
2142:
2143: End If;
2144:
2145: End If;
2170:
2171: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
2172:
2173: If okx_vendor_csr%NotFound Then
2174: x_return_status := OKC_API.g_ret_sts_error;
2175: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2176: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2177: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2178: , p_token1 => 'COL_NAME'
2172:
2173: If okx_vendor_csr%NotFound Then
2174: x_return_status := OKC_API.g_ret_sts_error;
2175: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2176: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2177: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2178: , p_token1 => 'COL_NAME'
2179: , p_token1_value => l_ak_prompt
2180: );
2178: , p_token1 => 'COL_NAME'
2179: , p_token1_value => l_ak_prompt
2180: );
2181:
2182: raise OKC_API.G_EXCEPTION_ERROR;
2183: End If;
2184:
2185: l_id11 := l_id1;
2186: l_id22 := l_id2;
2189: null;
2190: Else
2191: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
2192: If okx_vendor_csr%Found Then
2193: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2194: x_return_status := OKC_API.g_ret_sts_error;
2195: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2196: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2197: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2190: Else
2191: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
2192: If okx_vendor_csr%Found Then
2193: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2194: x_return_status := OKC_API.g_ret_sts_error;
2195: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2196: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2197: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2198: , p_token1 => 'COL_NAME'
2192: If okx_vendor_csr%Found Then
2193: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2194: x_return_status := OKC_API.g_ret_sts_error;
2195: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2196: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2197: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2198: , p_token1 => 'COL_NAME'
2199: , p_token1_value => l_ak_prompt
2200: );
2198: , p_token1 => 'COL_NAME'
2199: , p_token1_value => l_ak_prompt
2200: );
2201:
2202: raise OKC_API.G_EXCEPTION_ERROR;
2203:
2204: End If;
2205:
2206: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2202: raise OKC_API.G_EXCEPTION_ERROR;
2203:
2204: End If;
2205:
2206: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2207: x_return_status := OKC_API.g_ret_sts_error;
2208: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2209: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2210: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2203:
2204: End If;
2205:
2206: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2207: x_return_status := OKC_API.g_ret_sts_error;
2208: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2209: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2210: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2211: , p_token1 => 'COL_NAME'
2205:
2206: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2207: x_return_status := OKC_API.g_ret_sts_error;
2208: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2209: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2210: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2211: , p_token1 => 'COL_NAME'
2212: , p_token1_value => l_ak_prompt);
2213:
2210: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2211: , p_token1 => 'COL_NAME'
2212: , p_token1_value => l_ak_prompt);
2213:
2214: raise OKC_API.G_EXCEPTION_ERROR;
2215:
2216: End If;
2217:
2218: If(l_id11 = p_id1 and l_id22 = p_id2) Then
2231: End Loop;
2232: End If;
2233:
2234: If row_count <> 1 Then
2235: x_return_status := OKC_API.g_ret_sts_error;
2236: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2237: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2238: ,p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2239: ,p_token1 => 'COL_NAME'
2233:
2234: If row_count <> 1 Then
2235: x_return_status := OKC_API.g_ret_sts_error;
2236: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2237: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2238: ,p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2239: ,p_token1 => 'COL_NAME'
2240: , p_token1_value => l_ak_prompt);
2241:
2238: ,p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2239: ,p_token1 => 'COL_NAME'
2240: , p_token1_value => l_ak_prompt);
2241:
2242: raise OKC_API.G_EXCEPTION_ERROR;
2243:
2244: End If;
2245:
2246: End If;
2255: END IF;
2256:
2257: p_object_code := l_object_code;
2258:
2259: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2260:
2261: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2262:
2263: EXCEPTION
2257: p_object_code := l_object_code;
2258:
2259: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2260:
2261: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2262:
2263: EXCEPTION
2264:
2265: when OKC_API.G_EXCEPTION_ERROR then
2261: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2262:
2263: EXCEPTION
2264:
2265: when OKC_API.G_EXCEPTION_ERROR then
2266: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2267: p_api_name => l_api_name,
2268: p_pkg_name => g_pkg_name,
2269: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2262:
2263: EXCEPTION
2264:
2265: when OKC_API.G_EXCEPTION_ERROR then
2266: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2267: p_api_name => l_api_name,
2268: p_pkg_name => g_pkg_name,
2269: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2270: x_msg_count => x_msg_count,
2265: when OKC_API.G_EXCEPTION_ERROR then
2266: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2267: p_api_name => l_api_name,
2268: p_pkg_name => g_pkg_name,
2269: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2270: x_msg_count => x_msg_count,
2271: x_msg_data => x_msg_data,
2272: p_api_type => g_api_type);
2273:
2282: IF okx_vendor_csr%ISOPEN THEN
2283: CLOSE okx_vendor_csr;
2284: END IF;
2285:
2286: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2287: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2288: p_api_name => l_api_name,
2289: p_pkg_name => g_pkg_name,
2290: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2283: CLOSE okx_vendor_csr;
2284: END IF;
2285:
2286: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2287: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2288: p_api_name => l_api_name,
2289: p_pkg_name => g_pkg_name,
2290: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2291: x_msg_count => x_msg_count,
2286: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2287: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2288: p_api_name => l_api_name,
2289: p_pkg_name => g_pkg_name,
2290: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2291: x_msg_count => x_msg_count,
2292: x_msg_data => x_msg_data,
2293: p_api_type => g_api_type);
2294:
2305: END IF;
2306:
2307:
2308: when OTHERS then
2309: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2310: p_api_name => l_api_name,
2311: p_pkg_name => g_pkg_name,
2312: p_exc_name => 'OTHERS',
2313: x_msg_count => x_msg_count,
2334: -- attached to a contract
2335: --End of Comments
2336:
2337: Procedure Validate_Link_Asset (p_api_version IN NUMBER,
2338: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
2339: x_return_status OUT NOCOPY VARCHAR2,
2340: x_msg_count OUT NOCOPY NUMBER,
2341: x_msg_data OUT NOCOPY VARCHAR2,
2342: p_chr_id IN NUMBER,
2382:
2383:
2384: l_api_name CONSTANT VARCHAR2(30) := 'okl_la_jtot_extract';
2385: l_api_version CONSTANT NUMBER := 1.0;
2386: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2387:
2388: -- Cursor to fetch the lty_code
2389: CURSOR get_lty_code_csr(p_chr_id NUMBER,
2390: p_cle_id NUMBER) IS
2412: -- call START_ACTIVITY to create savepoint, check compatibility
2413:
2414: -- and initialize message list
2415:
2416: l_return_status := OKC_API.START_ACTIVITY(
2417: p_api_name => l_api_name,
2418: p_pkg_name => g_pkg_name,
2419: p_init_msg_list => p_init_msg_list,
2420: l_api_version => l_api_version,
2423: x_return_status => x_return_status);
2424:
2425:
2426:
2427: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
2428: Then
2429: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2430: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2425:
2426:
2427: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
2428: Then
2429: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2430: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432:
2433: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2427: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
2428: Then
2429: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2430: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432:
2433: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2434: Then
2435: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2429: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2430: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432:
2433: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2434: Then
2435: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2436: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2437: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432:
2433: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2434: Then
2435: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2436: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2437: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438:
2439: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2433: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2434: Then
2435: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2436: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2437: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438:
2439: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2440: Then
2441: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2435: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2436: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2437: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438:
2439: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2440: Then
2441: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2442: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2443: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438:
2439: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2440: Then
2441: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2442: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2443: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: End If;
2445:
2439: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2440: Then
2441: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2442: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2443: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: End If;
2445:
2446:
2447: --Added by kthiruva 23-Sep-2003 Bug No.3156265
2450: OPEN get_lty_code_csr(p_chr_id ,
2451: p_parent_cle_id );
2452: FETCH get_lty_code_csr INTO l_lty_code;
2453: If get_lty_code_csr%NotFound Then
2454: x_return_status := OKC_API.g_ret_sts_error;
2455: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2456: raise OKC_API.G_EXCEPTION_ERROR;
2457: End If;
2458: CLOSE get_lty_code_csr;
2451: p_parent_cle_id );
2452: FETCH get_lty_code_csr INTO l_lty_code;
2453: If get_lty_code_csr%NotFound Then
2454: x_return_status := OKC_API.g_ret_sts_error;
2455: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2456: raise OKC_API.G_EXCEPTION_ERROR;
2457: End If;
2458: CLOSE get_lty_code_csr;
2459:
2452: FETCH get_lty_code_csr INTO l_lty_code;
2453: If get_lty_code_csr%NotFound Then
2454: x_return_status := OKC_API.g_ret_sts_error;
2455: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2456: raise OKC_API.G_EXCEPTION_ERROR;
2457: End If;
2458: CLOSE get_lty_code_csr;
2459:
2460:
2472:
2473: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2474:
2475: IF okl_strmtyp_csr%NotFound THEN
2476: x_return_status := OKC_API.g_ret_sts_error;
2477: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2478: raise OKC_API.G_EXCEPTION_ERROR;
2479: END IF;
2480:
2473: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2474:
2475: IF okl_strmtyp_csr%NotFound THEN
2476: x_return_status := OKC_API.g_ret_sts_error;
2477: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2478: raise OKC_API.G_EXCEPTION_ERROR;
2479: END IF;
2480:
2481: l_id11 := l_id1;
2474:
2475: IF okl_strmtyp_csr%NotFound THEN
2476: x_return_status := OKC_API.g_ret_sts_error;
2477: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2478: raise OKC_API.G_EXCEPTION_ERROR;
2479: END IF;
2480:
2481: l_id11 := l_id1;
2482: l_id22 := l_id2;
2482: l_id22 := l_id2;
2483:
2484: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2485: If okl_strmtyp_csr%Found Then
2486: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2487: x_return_status := OKC_API.g_ret_sts_error;
2488: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2489: raise OKC_API.G_EXCEPTION_ERROR;
2490: End If;
2483:
2484: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2485: If okl_strmtyp_csr%Found Then
2486: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2487: x_return_status := OKC_API.g_ret_sts_error;
2488: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2489: raise OKC_API.G_EXCEPTION_ERROR;
2490: End If;
2491:
2484: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2485: If okl_strmtyp_csr%Found Then
2486: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2487: x_return_status := OKC_API.g_ret_sts_error;
2488: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2489: raise OKC_API.G_EXCEPTION_ERROR;
2490: End If;
2491:
2492: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2485: If okl_strmtyp_csr%Found Then
2486: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2487: x_return_status := OKC_API.g_ret_sts_error;
2488: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2489: raise OKC_API.G_EXCEPTION_ERROR;
2490: End If;
2491:
2492: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2493: x_return_status := OKC_API.g_ret_sts_error;
2488: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2489: raise OKC_API.G_EXCEPTION_ERROR;
2490: End If;
2491:
2492: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2493: x_return_status := OKC_API.g_ret_sts_error;
2494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2495: raise OKC_API.G_EXCEPTION_ERROR;
2496: End If;
2489: raise OKC_API.G_EXCEPTION_ERROR;
2490: End If;
2491:
2492: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2493: x_return_status := OKC_API.g_ret_sts_error;
2494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2495: raise OKC_API.G_EXCEPTION_ERROR;
2496: End If;
2497:
2490: End If;
2491:
2492: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2493: x_return_status := OKC_API.g_ret_sts_error;
2494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2495: raise OKC_API.G_EXCEPTION_ERROR;
2496: End If;
2497:
2498: Loop
2491:
2492: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2493: x_return_status := OKC_API.g_ret_sts_error;
2494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2495: raise OKC_API.G_EXCEPTION_ERROR;
2496: End If;
2497:
2498: Loop
2499:
2509:
2510: End Loop;
2511:
2512: If row_count <> 1 Then
2513: x_return_status := OKC_API.g_ret_sts_error;
2514: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2515: raise OKC_API.G_EXCEPTION_ERROR;
2516: End If;
2517: End If;
2510: End Loop;
2511:
2512: If row_count <> 1 Then
2513: x_return_status := OKC_API.g_ret_sts_error;
2514: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2515: raise OKC_API.G_EXCEPTION_ERROR;
2516: End If;
2517: End If;
2518:
2511:
2512: If row_count <> 1 Then
2513: x_return_status := OKC_API.g_ret_sts_error;
2514: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2515: raise OKC_API.G_EXCEPTION_ERROR;
2516: End If;
2517: End If;
2518:
2519: p_id1 := l_id11;
2537:
2538: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2539:
2540: IF okl_usage_csr%NotFound THEN
2541: x_return_status := OKC_API.g_ret_sts_error;
2542: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2543: raise OKC_API.G_EXCEPTION_ERROR;
2544: END IF;
2545:
2538: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2539:
2540: IF okl_usage_csr%NotFound THEN
2541: x_return_status := OKC_API.g_ret_sts_error;
2542: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2543: raise OKC_API.G_EXCEPTION_ERROR;
2544: END IF;
2545:
2546: l_id11 := l_id1;
2539:
2540: IF okl_usage_csr%NotFound THEN
2541: x_return_status := OKC_API.g_ret_sts_error;
2542: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2543: raise OKC_API.G_EXCEPTION_ERROR;
2544: END IF;
2545:
2546: l_id11 := l_id1;
2547: l_id22 := l_id2;
2547: l_id22 := l_id2;
2548:
2549: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2550: If okl_usage_csr%Found Then
2551: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2552: x_return_status := OKC_API.g_ret_sts_error;
2553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2554: raise OKC_API.G_EXCEPTION_ERROR;
2555: End If;
2548:
2549: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2550: If okl_usage_csr%Found Then
2551: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2552: x_return_status := OKC_API.g_ret_sts_error;
2553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2554: raise OKC_API.G_EXCEPTION_ERROR;
2555: End If;
2556:
2549: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2550: If okl_usage_csr%Found Then
2551: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2552: x_return_status := OKC_API.g_ret_sts_error;
2553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2554: raise OKC_API.G_EXCEPTION_ERROR;
2555: End If;
2556:
2557: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2550: If okl_usage_csr%Found Then
2551: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2552: x_return_status := OKC_API.g_ret_sts_error;
2553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2554: raise OKC_API.G_EXCEPTION_ERROR;
2555: End If;
2556:
2557: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2558: x_return_status := OKC_API.g_ret_sts_error;
2553: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2554: raise OKC_API.G_EXCEPTION_ERROR;
2555: End If;
2556:
2557: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2558: x_return_status := OKC_API.g_ret_sts_error;
2559: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2554: raise OKC_API.G_EXCEPTION_ERROR;
2555: End If;
2556:
2557: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2558: x_return_status := OKC_API.g_ret_sts_error;
2559: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2562:
2555: End If;
2556:
2557: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2558: x_return_status := OKC_API.g_ret_sts_error;
2559: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2562:
2563: Loop
2556:
2557: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2558: x_return_status := OKC_API.g_ret_sts_error;
2559: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2562:
2563: Loop
2564:
2574:
2575: End Loop;
2576:
2577: If row_count <> 1 Then
2578: x_return_status := OKC_API.g_ret_sts_error;
2579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2580: raise OKC_API.G_EXCEPTION_ERROR;
2581: End If;
2582: End If;
2575: End Loop;
2576:
2577: If row_count <> 1 Then
2578: x_return_status := OKC_API.g_ret_sts_error;
2579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2580: raise OKC_API.G_EXCEPTION_ERROR;
2581: End If;
2582: End If;
2583:
2576:
2577: If row_count <> 1 Then
2578: x_return_status := OKC_API.g_ret_sts_error;
2579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2580: raise OKC_API.G_EXCEPTION_ERROR;
2581: End If;
2582: End If;
2583:
2584: p_id1 := l_id11;
2612:
2613:
2614: IF okx_asset_csr%NotFound THEN
2615:
2616: x_return_status := OKC_API.g_ret_sts_error;
2617:
2618: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2619:
2620: raise OKC_API.G_EXCEPTION_ERROR;
2614: IF okx_asset_csr%NotFound THEN
2615:
2616: x_return_status := OKC_API.g_ret_sts_error;
2617:
2618: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2619:
2620: raise OKC_API.G_EXCEPTION_ERROR;
2621:
2622:
2616: x_return_status := OKC_API.g_ret_sts_error;
2617:
2618: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2619:
2620: raise OKC_API.G_EXCEPTION_ERROR;
2621:
2622:
2623: END IF;
2624:
2634: If okx_asset_csr%Found Then
2635:
2636:
2637:
2638: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2639:
2640: x_return_status := OKC_API.g_ret_sts_error;
2641:
2642: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2636:
2637:
2638: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2639:
2640: x_return_status := OKC_API.g_ret_sts_error;
2641:
2642: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2643:
2644: raise OKC_API.G_EXCEPTION_ERROR;
2638: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2639:
2640: x_return_status := OKC_API.g_ret_sts_error;
2641:
2642: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2643:
2644: raise OKC_API.G_EXCEPTION_ERROR;
2645:
2646: End If;
2640: x_return_status := OKC_API.g_ret_sts_error;
2641:
2642: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2643:
2644: raise OKC_API.G_EXCEPTION_ERROR;
2645:
2646: End If;
2647:
2648: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2644: raise OKC_API.G_EXCEPTION_ERROR;
2645:
2646: End If;
2647:
2648: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2649:
2650: x_return_status := OKC_API.g_ret_sts_error;
2651:
2652: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2646: End If;
2647:
2648: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2649:
2650: x_return_status := OKC_API.g_ret_sts_error;
2651:
2652: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2653:
2654: raise OKC_API.G_EXCEPTION_ERROR;
2648: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2649:
2650: x_return_status := OKC_API.g_ret_sts_error;
2651:
2652: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2653:
2654: raise OKC_API.G_EXCEPTION_ERROR;
2655:
2656: End If;
2650: x_return_status := OKC_API.g_ret_sts_error;
2651:
2652: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2653:
2654: raise OKC_API.G_EXCEPTION_ERROR;
2655:
2656: End If;
2657:
2658:
2682:
2683:
2684: If row_count <> 1 Then
2685:
2686: x_return_status := OKC_API.g_ret_sts_error;
2687:
2688: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2689:
2690: raise OKC_API.G_EXCEPTION_ERROR;
2684: If row_count <> 1 Then
2685:
2686: x_return_status := OKC_API.g_ret_sts_error;
2687:
2688: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2689:
2690: raise OKC_API.G_EXCEPTION_ERROR;
2691:
2692: End If;
2686: x_return_status := OKC_API.g_ret_sts_error;
2687:
2688: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2689:
2690: raise OKC_API.G_EXCEPTION_ERROR;
2691:
2692: End If;
2693:
2694:
2730:
2731:
2732: IF okx_covasst_csr%NotFound THEN
2733:
2734: x_return_status := OKC_API.g_ret_sts_error;
2735:
2736: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2737:
2738: raise OKC_API.G_EXCEPTION_ERROR;
2732: IF okx_covasst_csr%NotFound THEN
2733:
2734: x_return_status := OKC_API.g_ret_sts_error;
2735:
2736: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2737:
2738: raise OKC_API.G_EXCEPTION_ERROR;
2739:
2740:
2734: x_return_status := OKC_API.g_ret_sts_error;
2735:
2736: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2737:
2738: raise OKC_API.G_EXCEPTION_ERROR;
2739:
2740:
2741: END IF;
2742:
2752: If okx_covasst_csr%Found Then
2753:
2754:
2755:
2756: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2757:
2758: x_return_status := OKC_API.g_ret_sts_error;
2759:
2760: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2754:
2755:
2756: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2757:
2758: x_return_status := OKC_API.g_ret_sts_error;
2759:
2760: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2761:
2762: raise OKC_API.G_EXCEPTION_ERROR;
2756: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2757:
2758: x_return_status := OKC_API.g_ret_sts_error;
2759:
2760: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2761:
2762: raise OKC_API.G_EXCEPTION_ERROR;
2763:
2764: End If;
2758: x_return_status := OKC_API.g_ret_sts_error;
2759:
2760: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2761:
2762: raise OKC_API.G_EXCEPTION_ERROR;
2763:
2764: End If;
2765:
2766: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2762: raise OKC_API.G_EXCEPTION_ERROR;
2763:
2764: End If;
2765:
2766: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2767:
2768: x_return_status := OKC_API.g_ret_sts_error;
2769:
2770: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2764: End If;
2765:
2766: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2767:
2768: x_return_status := OKC_API.g_ret_sts_error;
2769:
2770: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2771:
2772: raise OKC_API.G_EXCEPTION_ERROR;
2766: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2767:
2768: x_return_status := OKC_API.g_ret_sts_error;
2769:
2770: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2771:
2772: raise OKC_API.G_EXCEPTION_ERROR;
2773:
2774: End If;
2768: x_return_status := OKC_API.g_ret_sts_error;
2769:
2770: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2771:
2772: raise OKC_API.G_EXCEPTION_ERROR;
2773:
2774: End If;
2775:
2776:
2800:
2801:
2802: If row_count <> 1 Then
2803:
2804: x_return_status := OKC_API.g_ret_sts_error;
2805:
2806: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2807:
2808: raise OKC_API.G_EXCEPTION_ERROR;
2802: If row_count <> 1 Then
2803:
2804: x_return_status := OKC_API.g_ret_sts_error;
2805:
2806: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2807:
2808: raise OKC_API.G_EXCEPTION_ERROR;
2809:
2810: End If;
2804: x_return_status := OKC_API.g_ret_sts_error;
2805:
2806: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2807:
2808: raise OKC_API.G_EXCEPTION_ERROR;
2809:
2810: End If;
2811:
2812:
2848:
2849:
2850: IF okx_ib_item_csr%NotFound THEN
2851:
2852: x_return_status := OKC_API.g_ret_sts_error;
2853:
2854: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2855:
2856: raise OKC_API.G_EXCEPTION_ERROR;
2850: IF okx_ib_item_csr%NotFound THEN
2851:
2852: x_return_status := OKC_API.g_ret_sts_error;
2853:
2854: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2855:
2856: raise OKC_API.G_EXCEPTION_ERROR;
2857:
2858:
2852: x_return_status := OKC_API.g_ret_sts_error;
2853:
2854: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2855:
2856: raise OKC_API.G_EXCEPTION_ERROR;
2857:
2858:
2859: END IF;
2860:
2870: If okx_ib_item_csr%Found Then
2871:
2872:
2873:
2874: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2875:
2876: x_return_status := OKC_API.g_ret_sts_error;
2877:
2878: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2872:
2873:
2874: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2875:
2876: x_return_status := OKC_API.g_ret_sts_error;
2877:
2878: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2879:
2880: raise OKC_API.G_EXCEPTION_ERROR;
2874: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2875:
2876: x_return_status := OKC_API.g_ret_sts_error;
2877:
2878: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2879:
2880: raise OKC_API.G_EXCEPTION_ERROR;
2881:
2882: End If;
2876: x_return_status := OKC_API.g_ret_sts_error;
2877:
2878: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2879:
2880: raise OKC_API.G_EXCEPTION_ERROR;
2881:
2882: End If;
2883:
2884: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2880: raise OKC_API.G_EXCEPTION_ERROR;
2881:
2882: End If;
2883:
2884: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2885:
2886: x_return_status := OKC_API.g_ret_sts_error;
2887:
2888: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2882: End If;
2883:
2884: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2885:
2886: x_return_status := OKC_API.g_ret_sts_error;
2887:
2888: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2889:
2890: raise OKC_API.G_EXCEPTION_ERROR;
2884: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2885:
2886: x_return_status := OKC_API.g_ret_sts_error;
2887:
2888: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2889:
2890: raise OKC_API.G_EXCEPTION_ERROR;
2891:
2892: End If;
2886: x_return_status := OKC_API.g_ret_sts_error;
2887:
2888: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2889:
2890: raise OKC_API.G_EXCEPTION_ERROR;
2891:
2892: End If;
2893:
2894:
2918:
2919:
2920: If row_count <> 1 Then
2921:
2922: x_return_status := OKC_API.g_ret_sts_error;
2923:
2924: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2925:
2926: raise OKC_API.G_EXCEPTION_ERROR;
2920: If row_count <> 1 Then
2921:
2922: x_return_status := OKC_API.g_ret_sts_error;
2923:
2924: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2925:
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927:
2928: End If;
2922: x_return_status := OKC_API.g_ret_sts_error;
2923:
2924: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2925:
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927:
2928: End If;
2929:
2930:
2964:
2965:
2966: IF okx_lease_csr%NotFound THEN
2967:
2968: x_return_status := OKC_API.g_ret_sts_error;
2969:
2970: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2971:
2972: raise OKC_API.G_EXCEPTION_ERROR;
2966: IF okx_lease_csr%NotFound THEN
2967:
2968: x_return_status := OKC_API.g_ret_sts_error;
2969:
2970: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2971:
2972: raise OKC_API.G_EXCEPTION_ERROR;
2973:
2974:
2968: x_return_status := OKC_API.g_ret_sts_error;
2969:
2970: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2971:
2972: raise OKC_API.G_EXCEPTION_ERROR;
2973:
2974:
2975: END IF;
2976:
2986: If okx_lease_csr%Found Then
2987:
2988:
2989:
2990: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2991:
2992: x_return_status := OKC_API.g_ret_sts_error;
2993:
2994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2988:
2989:
2990: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2991:
2992: x_return_status := OKC_API.g_ret_sts_error;
2993:
2994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2995:
2996: raise OKC_API.G_EXCEPTION_ERROR;
2990: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2991:
2992: x_return_status := OKC_API.g_ret_sts_error;
2993:
2994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2995:
2996: raise OKC_API.G_EXCEPTION_ERROR;
2997:
2998: End If;
2992: x_return_status := OKC_API.g_ret_sts_error;
2993:
2994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2995:
2996: raise OKC_API.G_EXCEPTION_ERROR;
2997:
2998: End If;
2999:
3000: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2996: raise OKC_API.G_EXCEPTION_ERROR;
2997:
2998: End If;
2999:
3000: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3001:
3002: x_return_status := OKC_API.g_ret_sts_error;
3003:
3004: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2998: End If;
2999:
3000: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3001:
3002: x_return_status := OKC_API.g_ret_sts_error;
3003:
3004: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3005:
3006: raise OKC_API.G_EXCEPTION_ERROR;
3000: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3001:
3002: x_return_status := OKC_API.g_ret_sts_error;
3003:
3004: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3005:
3006: raise OKC_API.G_EXCEPTION_ERROR;
3007:
3008: End If;
3002: x_return_status := OKC_API.g_ret_sts_error;
3003:
3004: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3005:
3006: raise OKC_API.G_EXCEPTION_ERROR;
3007:
3008: End If;
3009:
3010:
3034:
3035:
3036: If row_count <> 1 Then
3037:
3038: x_return_status := OKC_API.g_ret_sts_error;
3039:
3040: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3041:
3042: raise OKC_API.G_EXCEPTION_ERROR;
3036: If row_count <> 1 Then
3037:
3038: x_return_status := OKC_API.g_ret_sts_error;
3039:
3040: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3041:
3042: raise OKC_API.G_EXCEPTION_ERROR;
3043:
3044: End If;
3038: x_return_status := OKC_API.g_ret_sts_error;
3039:
3040: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3041:
3042: raise OKC_API.G_EXCEPTION_ERROR;
3043:
3044: End If;
3045:
3046:
3083:
3084:
3085: IF okx_service_csr%NotFound THEN
3086:
3087: x_return_status := OKC_API.g_ret_sts_error;
3088:
3089: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3090:
3091: raise OKC_API.G_EXCEPTION_ERROR;
3085: IF okx_service_csr%NotFound THEN
3086:
3087: x_return_status := OKC_API.g_ret_sts_error;
3088:
3089: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3090:
3091: raise OKC_API.G_EXCEPTION_ERROR;
3092:
3093:
3087: x_return_status := OKC_API.g_ret_sts_error;
3088:
3089: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3090:
3091: raise OKC_API.G_EXCEPTION_ERROR;
3092:
3093:
3094: END IF;
3095:
3105: If okx_service_csr%Found Then
3106:
3107:
3108:
3109: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3110:
3111: x_return_status := OKC_API.g_ret_sts_error;
3112:
3113: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3107:
3108:
3109: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3110:
3111: x_return_status := OKC_API.g_ret_sts_error;
3112:
3113: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3114:
3115: raise OKC_API.G_EXCEPTION_ERROR;
3109: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3110:
3111: x_return_status := OKC_API.g_ret_sts_error;
3112:
3113: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3114:
3115: raise OKC_API.G_EXCEPTION_ERROR;
3116:
3117: End If;
3111: x_return_status := OKC_API.g_ret_sts_error;
3112:
3113: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3114:
3115: raise OKC_API.G_EXCEPTION_ERROR;
3116:
3117: End If;
3118:
3119: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3115: raise OKC_API.G_EXCEPTION_ERROR;
3116:
3117: End If;
3118:
3119: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3120:
3121: x_return_status := OKC_API.g_ret_sts_error;
3122:
3123: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3117: End If;
3118:
3119: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3120:
3121: x_return_status := OKC_API.g_ret_sts_error;
3122:
3123: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3124:
3125: raise OKC_API.G_EXCEPTION_ERROR;
3119: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3120:
3121: x_return_status := OKC_API.g_ret_sts_error;
3122:
3123: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3124:
3125: raise OKC_API.G_EXCEPTION_ERROR;
3126:
3127: End If;
3121: x_return_status := OKC_API.g_ret_sts_error;
3122:
3123: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3124:
3125: raise OKC_API.G_EXCEPTION_ERROR;
3126:
3127: End If;
3128:
3129:
3153:
3154:
3155: If row_count <> 1 Then
3156:
3157: x_return_status := OKC_API.g_ret_sts_error;
3158:
3159: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3160:
3161: raise OKC_API.G_EXCEPTION_ERROR;
3155: If row_count <> 1 Then
3156:
3157: x_return_status := OKC_API.g_ret_sts_error;
3158:
3159: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3160:
3161: raise OKC_API.G_EXCEPTION_ERROR;
3162:
3163: End If;
3157: x_return_status := OKC_API.g_ret_sts_error;
3158:
3159: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3160:
3161: raise OKC_API.G_EXCEPTION_ERROR;
3162:
3163: End If;
3164:
3165:
3194:
3195: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3196: IF okx_sysitem_csr%NotFound THEN
3197:
3198: x_return_status := OKC_API.g_ret_sts_error;
3199: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3200: raise OKC_API.G_EXCEPTION_ERROR;
3201:
3202: END IF;
3195: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3196: IF okx_sysitem_csr%NotFound THEN
3197:
3198: x_return_status := OKC_API.g_ret_sts_error;
3199: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3200: raise OKC_API.G_EXCEPTION_ERROR;
3201:
3202: END IF;
3203:
3196: IF okx_sysitem_csr%NotFound THEN
3197:
3198: x_return_status := OKC_API.g_ret_sts_error;
3199: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3200: raise OKC_API.G_EXCEPTION_ERROR;
3201:
3202: END IF;
3203:
3204: l_id11 := l_id1;
3206:
3207: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3208:
3209: If okx_sysitem_csr%Found Then
3210: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3211: x_return_status := OKC_API.g_ret_sts_error;
3212: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3213: raise OKC_API.G_EXCEPTION_ERROR;
3214: End If;
3207: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3208:
3209: If okx_sysitem_csr%Found Then
3210: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3211: x_return_status := OKC_API.g_ret_sts_error;
3212: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3213: raise OKC_API.G_EXCEPTION_ERROR;
3214: End If;
3215: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3208:
3209: If okx_sysitem_csr%Found Then
3210: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3211: x_return_status := OKC_API.g_ret_sts_error;
3212: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3213: raise OKC_API.G_EXCEPTION_ERROR;
3214: End If;
3215: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3216: x_return_status := OKC_API.g_ret_sts_error;
3209: If okx_sysitem_csr%Found Then
3210: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3211: x_return_status := OKC_API.g_ret_sts_error;
3212: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3213: raise OKC_API.G_EXCEPTION_ERROR;
3214: End If;
3215: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3216: x_return_status := OKC_API.g_ret_sts_error;
3217: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3211: x_return_status := OKC_API.g_ret_sts_error;
3212: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3213: raise OKC_API.G_EXCEPTION_ERROR;
3214: End If;
3215: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3216: x_return_status := OKC_API.g_ret_sts_error;
3217: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3218: raise OKC_API.G_EXCEPTION_ERROR;
3219: End If;
3212: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3213: raise OKC_API.G_EXCEPTION_ERROR;
3214: End If;
3215: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3216: x_return_status := OKC_API.g_ret_sts_error;
3217: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3218: raise OKC_API.G_EXCEPTION_ERROR;
3219: End If;
3220: Loop
3213: raise OKC_API.G_EXCEPTION_ERROR;
3214: End If;
3215: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3216: x_return_status := OKC_API.g_ret_sts_error;
3217: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3218: raise OKC_API.G_EXCEPTION_ERROR;
3219: End If;
3220: Loop
3221: If(l_id1 = p_id1 and l_id2 = p_id2) Then
3214: End If;
3215: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3216: x_return_status := OKC_API.g_ret_sts_error;
3217: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3218: raise OKC_API.G_EXCEPTION_ERROR;
3219: End If;
3220: Loop
3221: If(l_id1 = p_id1 and l_id2 = p_id2) Then
3222: l_id11 := l_id1;
3229: Exit When okx_sysitem_csr%NotFound;
3230: End Loop;
3231:
3232: If row_count <> 1 Then
3233: x_return_status := OKC_API.g_ret_sts_error;
3234: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3235: raise OKC_API.G_EXCEPTION_ERROR;
3236:
3237: End If;
3230: End Loop;
3231:
3232: If row_count <> 1 Then
3233: x_return_status := OKC_API.g_ret_sts_error;
3234: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3235: raise OKC_API.G_EXCEPTION_ERROR;
3236:
3237: End If;
3238:
3231:
3232: If row_count <> 1 Then
3233: x_return_status := OKC_API.g_ret_sts_error;
3234: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3235: raise OKC_API.G_EXCEPTION_ERROR;
3236:
3237: End If;
3238:
3239: End If;
3244: Close okx_sysitem_csr;
3245:
3246: END IF;
3247:
3248: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3249: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
3250:
3251: EXCEPTION
3252:
3245:
3246: END IF;
3247:
3248: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3249: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
3250:
3251: EXCEPTION
3252:
3253: when OKC_API.G_EXCEPTION_ERROR then
3249: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
3250:
3251: EXCEPTION
3252:
3253: when OKC_API.G_EXCEPTION_ERROR then
3254: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3255: p_api_name => l_api_name,
3256: p_pkg_name => g_pkg_name,
3257: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3250:
3251: EXCEPTION
3252:
3253: when OKC_API.G_EXCEPTION_ERROR then
3254: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3255: p_api_name => l_api_name,
3256: p_pkg_name => g_pkg_name,
3257: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3258: x_msg_count => x_msg_count,
3253: when OKC_API.G_EXCEPTION_ERROR then
3254: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3255: p_api_name => l_api_name,
3256: p_pkg_name => g_pkg_name,
3257: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3258: x_msg_count => x_msg_count,
3259: x_msg_data => x_msg_data,
3260: p_api_type => g_api_type);
3261:
3290: IF okx_sysitem_csr%ISOPEN THEN
3291: CLOSE okx_sysitem_csr;
3292: END IF;
3293:
3294: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3295:
3296: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3297: p_api_name => l_api_name,
3298: p_pkg_name => g_pkg_name,
3292: END IF;
3293:
3294: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3295:
3296: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3297: p_api_name => l_api_name,
3298: p_pkg_name => g_pkg_name,
3299: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3300: x_msg_count => x_msg_count,
3295:
3296: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3297: p_api_name => l_api_name,
3298: p_pkg_name => g_pkg_name,
3299: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3300: x_msg_count => x_msg_count,
3301: x_msg_data => x_msg_data,
3302: p_api_type => g_api_type);
3303: IF okl_strmtyp_csr%ISOPEN THEN
3334:
3335:
3336: when OTHERS then
3337:
3338: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3339: p_api_name => l_api_name,
3340: p_pkg_name => g_pkg_name,
3341: p_exc_name => 'OTHERS',
3342: x_msg_count => x_msg_count,
3395:
3396: --End of Comments
3397:
3398: Procedure Validate_Service (p_api_version IN NUMBER,
3399: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
3400: x_return_status OUT NOCOPY VARCHAR2,
3401: x_msg_count OUT NOCOPY NUMBER,
3402: x_msg_data OUT NOCOPY VARCHAR2,
3403: p_chr_id IN NUMBER,
3463:
3464: l_api_name CONSTANT VARCHAR2(30) := 'validate_service';
3465: l_api_version CONSTANT NUMBER := 1.0;
3466:
3467: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3468:
3469:
3470:
3471: CURSOR check_item_csr(p_chr_id NUMBER, p_lty_code VARCHAR2, p_id1 VARCHAR2, p_id2 VARCHAR2) IS
3516: -- call START_ACTIVITY to create savepoint, check compatibility
3517:
3518: -- and initialize message list
3519:
3520: l_return_status := OKC_API.START_ACTIVITY(
3521: p_api_name => l_api_name,
3522: p_pkg_name => g_pkg_name,
3523: p_init_msg_list => p_init_msg_list,
3524: l_api_version => l_api_version,
3526: p_api_type => g_api_type,
3527: x_return_status => x_return_status);
3528:
3529:
3530: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3531: Then
3532: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3534: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3528:
3529:
3530: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3531: Then
3532: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3534: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3535: Then
3536: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3529:
3530: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3531: Then
3532: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3534: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3535: Then
3536: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3537: p_msg_name => 'Missing_Service_Name');
3530: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3531: Then
3532: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3534: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3535: Then
3536: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3537: p_msg_name => 'Missing_Service_Name');
3538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3532: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3533: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3534: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3535: Then
3536: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3537: p_msg_name => 'Missing_Service_Name');
3538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3539: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3540: Then
3534: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3535: Then
3536: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3537: p_msg_name => 'Missing_Service_Name');
3538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3539: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3540: Then
3541: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3542: p_msg_name => 'Missing_Lty_Code');
3535: Then
3536: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3537: p_msg_name => 'Missing_Service_Name');
3538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3539: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3540: Then
3541: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3542: p_msg_name => 'Missing_Lty_Code');
3543: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3537: p_msg_name => 'Missing_Service_Name');
3538: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3539: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3540: Then
3541: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3542: p_msg_name => 'Missing_Lty_Code');
3543: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3544: End If;
3545:
3539: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3540: Then
3541: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3542: p_msg_name => 'Missing_Lty_Code');
3543: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3544: End If;
3545:
3546: --Added by kthiruva 23-Sep-2003 Bug No.3156265
3547:
3558:
3559: FETCH okl_strmtyp_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3560:
3561: IF okl_strmtyp_csr%NotFound THEN
3562: x_return_status := OKC_API.g_ret_sts_error;
3563:
3564: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3565:
3566: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3560:
3561: IF okl_strmtyp_csr%NotFound THEN
3562: x_return_status := OKC_API.g_ret_sts_error;
3563:
3564: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3565:
3566: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3567: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3568: , p_msg_name => 'OKL_INVALID_VALUE'
3563:
3564: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3565:
3566: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3567: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3568: , p_msg_name => 'OKL_INVALID_VALUE'
3569: , p_token1 => 'COL_NAME'
3570: , p_token1_value => l_fee_ak_prompt
3571: );
3569: , p_token1 => 'COL_NAME'
3570: , p_token1_value => l_fee_ak_prompt
3571: );
3572:
3573: raise OKC_API.G_EXCEPTION_ERROR;
3574:
3575: END IF;
3576: l_item_id11 := l_item_id1;
3577: l_item_id22 := l_item_id2;
3577: l_item_id22 := l_item_id2;
3578:
3579: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3580: If okl_strmtyp_csr%Found Then
3581: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3582: x_return_status := OKC_API.g_ret_sts_error;
3583: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3584: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3585: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3578:
3579: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3580: If okl_strmtyp_csr%Found Then
3581: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3582: x_return_status := OKC_API.g_ret_sts_error;
3583: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3584: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3585: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3586: , p_msg_name => 'OKL_INVALID_VALUE'
3579: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3580: If okl_strmtyp_csr%Found Then
3581: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3582: x_return_status := OKC_API.g_ret_sts_error;
3583: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3584: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3585: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3586: , p_msg_name => 'OKL_INVALID_VALUE'
3587: , p_token1 => 'COL_NAME'
3581: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3582: x_return_status := OKC_API.g_ret_sts_error;
3583: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3584: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3585: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3586: , p_msg_name => 'OKL_INVALID_VALUE'
3587: , p_token1 => 'COL_NAME'
3588: , p_token1_value => l_fee_ak_prompt
3589: );
3587: , p_token1 => 'COL_NAME'
3588: , p_token1_value => l_fee_ak_prompt
3589: );
3590:
3591: raise OKC_API.G_EXCEPTION_ERROR;
3592:
3593: End If;
3594:
3595: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3591: raise OKC_API.G_EXCEPTION_ERROR;
3592:
3593: End If;
3594:
3595: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3596: x_return_status := OKC_API.g_ret_sts_error;
3597: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3598:
3599: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3592:
3593: End If;
3594:
3595: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3596: x_return_status := OKC_API.g_ret_sts_error;
3597: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3598:
3599: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3600: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3593: End If;
3594:
3595: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3596: x_return_status := OKC_API.g_ret_sts_error;
3597: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3598:
3599: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3600: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3601: , p_msg_name => 'OKL_INVALID_VALUE'
3596: x_return_status := OKC_API.g_ret_sts_error;
3597: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3598:
3599: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3600: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3601: , p_msg_name => 'OKL_INVALID_VALUE'
3602: , p_token1 => 'COL_NAME'
3603: , p_token1_value => l_fee_ak_prompt
3604: );
3602: , p_token1 => 'COL_NAME'
3603: , p_token1_value => l_fee_ak_prompt
3604: );
3605:
3606: raise OKC_API.G_EXCEPTION_ERROR;
3607:
3608: End If;
3609:
3610: Loop
3622: End Loop;
3623:
3624: If row_count <> 1 Then
3625:
3626: x_return_status := OKC_API.g_ret_sts_error;
3627:
3628: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3629:
3630: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3624: If row_count <> 1 Then
3625:
3626: x_return_status := OKC_API.g_ret_sts_error;
3627:
3628: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3629:
3630: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3631: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3632: , p_msg_name => 'OKL_INVALID_VALUE'
3627:
3628: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3629:
3630: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3631: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3632: , p_msg_name => 'OKL_INVALID_VALUE'
3633: , p_token1 => 'COL_NAME'
3634: , p_token1_value => l_fee_ak_prompt
3635:
3634: , p_token1_value => l_fee_ak_prompt
3635:
3636: );
3637:
3638: raise OKC_API.G_EXCEPTION_ERROR;
3639:
3640: End If;
3641:
3642: End If;
3662:
3663: FETCH okl_usage_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3664:
3665: IF okl_usage_csr%NotFound THEN
3666: x_return_status := OKC_API.g_ret_sts_error;
3667:
3668: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3669:
3670: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3664:
3665: IF okl_usage_csr%NotFound THEN
3666: x_return_status := OKC_API.g_ret_sts_error;
3667:
3668: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3669:
3670: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3671: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3672: , p_msg_name => 'OKL_INVALID_VALUE'
3667:
3668: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3669:
3670: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3671: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3672: , p_msg_name => 'OKL_INVALID_VALUE'
3673: , p_token1 => 'COL_NAME'
3674: , p_token1_value => l_fee_ak_prompt
3675: );
3673: , p_token1 => 'COL_NAME'
3674: , p_token1_value => l_fee_ak_prompt
3675: );
3676:
3677: raise OKC_API.G_EXCEPTION_ERROR;
3678:
3679: END IF;
3680: l_item_id11 := l_item_id1;
3681: l_item_id22 := l_item_id2;
3682:
3683: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3684:
3685: If okl_usage_csr%Found Then
3686: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3687: x_return_status := OKC_API.g_ret_sts_error;
3688: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3689: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3690: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3683: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3684:
3685: If okl_usage_csr%Found Then
3686: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3687: x_return_status := OKC_API.g_ret_sts_error;
3688: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3689: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3690: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3691: , p_msg_name => 'OKL_INVALID_VALUE'
3684:
3685: If okl_usage_csr%Found Then
3686: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3687: x_return_status := OKC_API.g_ret_sts_error;
3688: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3689: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3690: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3691: , p_msg_name => 'OKL_INVALID_VALUE'
3692: , p_token1 => 'COL_NAME'
3686: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3687: x_return_status := OKC_API.g_ret_sts_error;
3688: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3689: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3690: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3691: , p_msg_name => 'OKL_INVALID_VALUE'
3692: , p_token1 => 'COL_NAME'
3693: , p_token1_value => l_fee_ak_prompt);
3694:
3691: , p_msg_name => 'OKL_INVALID_VALUE'
3692: , p_token1 => 'COL_NAME'
3693: , p_token1_value => l_fee_ak_prompt);
3694:
3695: raise OKC_API.G_EXCEPTION_ERROR;
3696:
3697: End If;
3698:
3699: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3695: raise OKC_API.G_EXCEPTION_ERROR;
3696:
3697: End If;
3698:
3699: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3700: x_return_status := OKC_API.g_ret_sts_error;
3701: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3702: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3703: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3696:
3697: End If;
3698:
3699: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3700: x_return_status := OKC_API.g_ret_sts_error;
3701: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3702: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3703: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3704: , p_msg_name => 'OKL_INVALID_VALUE'
3697: End If;
3698:
3699: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3700: x_return_status := OKC_API.g_ret_sts_error;
3701: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3702: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3703: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3704: , p_msg_name => 'OKL_INVALID_VALUE'
3705: , p_token1 => 'COL_NAME'
3699: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3700: x_return_status := OKC_API.g_ret_sts_error;
3701: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3702: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3703: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3704: , p_msg_name => 'OKL_INVALID_VALUE'
3705: , p_token1 => 'COL_NAME'
3706: , p_token1_value => l_fee_ak_prompt
3707: );
3705: , p_token1 => 'COL_NAME'
3706: , p_token1_value => l_fee_ak_prompt
3707: );
3708:
3709: raise OKC_API.G_EXCEPTION_ERROR;
3710:
3711: End If;
3712:
3713: Loop
3723:
3724: End Loop;
3725:
3726: If row_count <> 1 Then
3727: x_return_status := OKC_API.g_ret_sts_error;
3728: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3729: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3730:
3731: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3724: End Loop;
3725:
3726: If row_count <> 1 Then
3727: x_return_status := OKC_API.g_ret_sts_error;
3728: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3729: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3730:
3731: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3732: , p_msg_name => 'OKL_INVALID_VALUE'
3727: x_return_status := OKC_API.g_ret_sts_error;
3728: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3729: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3730:
3731: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3732: , p_msg_name => 'OKL_INVALID_VALUE'
3733: , p_token1 => 'COL_NAME'
3734: , p_token1_value => l_fee_ak_prompt
3735: );
3733: , p_token1 => 'COL_NAME'
3734: , p_token1_value => l_fee_ak_prompt
3735: );
3736:
3737: raise OKC_API.G_EXCEPTION_ERROR;
3738:
3739: End If;
3740:
3741: End If;
3763:
3764: FETCH okx_asset_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3765:
3766: IF okx_asset_csr%NotFound THEN
3767: x_return_status := OKC_API.g_ret_sts_error;
3768: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3769: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3770: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3771: , p_msg_name => 'OKL_INVALID_VALUE'
3764: FETCH okx_asset_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3765:
3766: IF okx_asset_csr%NotFound THEN
3767: x_return_status := OKC_API.g_ret_sts_error;
3768: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3769: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3770: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3771: , p_msg_name => 'OKL_INVALID_VALUE'
3772: , p_token1 => 'COL_NAME'
3766: IF okx_asset_csr%NotFound THEN
3767: x_return_status := OKC_API.g_ret_sts_error;
3768: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3769: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3770: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3771: , p_msg_name => 'OKL_INVALID_VALUE'
3772: , p_token1 => 'COL_NAME'
3773: , p_token1_value => l_fee_ak_prompt );
3774:
3771: , p_msg_name => 'OKL_INVALID_VALUE'
3772: , p_token1 => 'COL_NAME'
3773: , p_token1_value => l_fee_ak_prompt );
3774:
3775: raise OKC_API.G_EXCEPTION_ERROR;
3776:
3777: END IF;
3778:
3779: l_item_id11 := l_item_id1;
3780: l_item_id22 := l_item_id2;
3781:
3782: Fetch okx_asset_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3783: If okx_asset_csr%Found Then
3784: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3785: x_return_status := OKC_API.g_ret_sts_error;
3786: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3787: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3788: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3781:
3782: Fetch okx_asset_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3783: If okx_asset_csr%Found Then
3784: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3785: x_return_status := OKC_API.g_ret_sts_error;
3786: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3787: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3788: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3789: , p_msg_name => 'OKL_INVALID_VALUE'
3782: Fetch okx_asset_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3783: If okx_asset_csr%Found Then
3784: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3785: x_return_status := OKC_API.g_ret_sts_error;
3786: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3787: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3788: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3789: , p_msg_name => 'OKL_INVALID_VALUE'
3790: , p_token1 => 'COL_NAME'
3784: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3785: x_return_status := OKC_API.g_ret_sts_error;
3786: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3787: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3788: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3789: , p_msg_name => 'OKL_INVALID_VALUE'
3790: , p_token1 => 'COL_NAME'
3791: , p_token1_value => l_fee_ak_prompt
3792: );
3790: , p_token1 => 'COL_NAME'
3791: , p_token1_value => l_fee_ak_prompt
3792: );
3793:
3794: raise OKC_API.G_EXCEPTION_ERROR;
3795:
3796: End If;
3797:
3798: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3794: raise OKC_API.G_EXCEPTION_ERROR;
3795:
3796: End If;
3797:
3798: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3799: x_return_status := OKC_API.g_ret_sts_error;
3800: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3801: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3802: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3795:
3796: End If;
3797:
3798: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3799: x_return_status := OKC_API.g_ret_sts_error;
3800: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3801: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3802: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3803: , p_msg_name => 'OKL_INVALID_VALUE'
3796: End If;
3797:
3798: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3799: x_return_status := OKC_API.g_ret_sts_error;
3800: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3801: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3802: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3803: , p_msg_name => 'OKL_INVALID_VALUE'
3804: , p_token1 => 'COL_NAME'
3798: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3799: x_return_status := OKC_API.g_ret_sts_error;
3800: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3801: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3802: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3803: , p_msg_name => 'OKL_INVALID_VALUE'
3804: , p_token1 => 'COL_NAME'
3805: , p_token1_value => l_fee_ak_prompt );
3806:
3803: , p_msg_name => 'OKL_INVALID_VALUE'
3804: , p_token1 => 'COL_NAME'
3805: , p_token1_value => l_fee_ak_prompt );
3806:
3807: raise OKC_API.G_EXCEPTION_ERROR;
3808:
3809: End If;
3810:
3811: Loop
3823: End Loop;
3824:
3825:
3826: If row_count <> 1 Then
3827: x_return_status := OKC_API.g_ret_sts_error;
3828:
3829: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3830:
3831: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3825:
3826: If row_count <> 1 Then
3827: x_return_status := OKC_API.g_ret_sts_error;
3828:
3829: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3830:
3831: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3832: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3833: , p_msg_name => 'OKL_INVALID_VALUE'
3828:
3829: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3830:
3831: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3832: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3833: , p_msg_name => 'OKL_INVALID_VALUE'
3834: , p_token1 => 'COL_NAME'
3835: , p_token1_value => l_fee_ak_prompt
3836: );
3834: , p_token1 => 'COL_NAME'
3835: , p_token1_value => l_fee_ak_prompt
3836: );
3837:
3838: raise OKC_API.G_EXCEPTION_ERROR;
3839:
3840: End If;
3841:
3842: End If;
3863:
3864: FETCH okx_covasst_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3865:
3866: IF okx_covasst_csr%NotFound THEN
3867: x_return_status := OKC_API.g_ret_sts_error;
3868: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3869:
3870: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3871: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3864: FETCH okx_covasst_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3865:
3866: IF okx_covasst_csr%NotFound THEN
3867: x_return_status := OKC_API.g_ret_sts_error;
3868: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3869:
3870: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3871: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3872: , p_msg_name => 'OKL_INVALID_VALUE'
3867: x_return_status := OKC_API.g_ret_sts_error;
3868: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3869:
3870: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3871: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3872: , p_msg_name => 'OKL_INVALID_VALUE'
3873: , p_token1 => 'COL_NAME'
3874: , p_token1_value => l_fee_ak_prompt
3875: );
3873: , p_token1 => 'COL_NAME'
3874: , p_token1_value => l_fee_ak_prompt
3875: );
3876:
3877: raise OKC_API.G_EXCEPTION_ERROR;
3878:
3879:
3880:
3881: END IF;
3893: If okx_covasst_csr%Found Then
3894:
3895:
3896:
3897: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3898:
3899: x_return_status := OKC_API.g_ret_sts_error;
3900:
3901:
3895:
3896:
3897: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3898:
3899: x_return_status := OKC_API.g_ret_sts_error;
3900:
3901:
3902:
3903: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3899: x_return_status := OKC_API.g_ret_sts_error;
3900:
3901:
3902:
3903: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3904:
3905:
3906:
3907: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3905:
3906:
3907: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3908:
3909: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3910:
3911: , p_msg_name => 'OKL_INVALID_VALUE'
3912:
3913: , p_token1 => 'COL_NAME'
3915: , p_token1_value => l_fee_ak_prompt
3916:
3917: );
3918:
3919: raise OKC_API.G_EXCEPTION_ERROR;
3920:
3921: End If;
3922:
3923: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3919: raise OKC_API.G_EXCEPTION_ERROR;
3920:
3921: End If;
3922:
3923: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3924:
3925: x_return_status := OKC_API.g_ret_sts_error;
3926:
3927:
3921: End If;
3922:
3923: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3924:
3925: x_return_status := OKC_API.g_ret_sts_error;
3926:
3927:
3928:
3929: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3925: x_return_status := OKC_API.g_ret_sts_error;
3926:
3927:
3928:
3929: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3930:
3931:
3932:
3933: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3931:
3932:
3933: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3934:
3935: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3936:
3937: , p_msg_name => 'OKL_INVALID_VALUE'
3938:
3939: , p_token1 => 'COL_NAME'
3941: , p_token1_value => l_fee_ak_prompt
3942:
3943: );
3944:
3945: raise OKC_API.G_EXCEPTION_ERROR;
3946:
3947: End If;
3948:
3949:
3971:
3972:
3973: If row_count <> 1 Then
3974:
3975: x_return_status := OKC_API.g_ret_sts_error;
3976:
3977:
3978:
3979: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3975: x_return_status := OKC_API.g_ret_sts_error;
3976:
3977:
3978:
3979: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3980:
3981:
3982:
3983: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3981:
3982:
3983: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3984:
3985: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3986:
3987: , p_msg_name => 'OKL_INVALID_VALUE'
3988:
3989: , p_token1 => 'COL_NAME'
3991: , p_token1_value => l_fee_ak_prompt
3992:
3993: );
3994:
3995: raise OKC_API.G_EXCEPTION_ERROR;
3996:
3997: End If;
3998:
3999:
4036: IF okx_ib_item_csr%NotFound THEN
4037:
4038:
4039:
4040: x_return_status := OKC_API.g_ret_sts_error;
4041:
4042:
4043:
4044: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4040: x_return_status := OKC_API.g_ret_sts_error;
4041:
4042:
4043:
4044: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4045:
4046:
4047:
4048: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4046:
4047:
4048: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4049:
4050: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4051:
4052: , p_msg_name => 'OKL_INVALID_VALUE'
4053:
4054: , p_token1 => 'COL_NAME'
4056: , p_token1_value => l_fee_ak_prompt
4057:
4058: );
4059:
4060: raise OKC_API.G_EXCEPTION_ERROR;
4061:
4062:
4063:
4064: END IF;
4076: If okx_ib_item_csr%Found Then
4077:
4078:
4079:
4080: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4081:
4082: x_return_status := OKC_API.g_ret_sts_error;
4083:
4084:
4078:
4079:
4080: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4081:
4082: x_return_status := OKC_API.g_ret_sts_error;
4083:
4084:
4085:
4086: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4082: x_return_status := OKC_API.g_ret_sts_error;
4083:
4084:
4085:
4086: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4087:
4088:
4089:
4090: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4088:
4089:
4090: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4091:
4092: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4093:
4094: , p_msg_name => 'OKL_INVALID_VALUE'
4095:
4096: , p_token1 => 'COL_NAME'
4098: , p_token1_value => l_fee_ak_prompt
4099:
4100: );
4101:
4102: raise OKC_API.G_EXCEPTION_ERROR;
4103:
4104: End If;
4105:
4106: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4102: raise OKC_API.G_EXCEPTION_ERROR;
4103:
4104: End If;
4105:
4106: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4107:
4108: x_return_status := OKC_API.g_ret_sts_error;
4109:
4110:
4104: End If;
4105:
4106: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4107:
4108: x_return_status := OKC_API.g_ret_sts_error;
4109:
4110:
4111:
4112: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4108: x_return_status := OKC_API.g_ret_sts_error;
4109:
4110:
4111:
4112: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4113:
4114:
4115:
4116: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4114:
4115:
4116: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4117:
4118: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4119:
4120: , p_msg_name => 'OKL_INVALID_VALUE'
4121:
4122: , p_token1 => 'COL_NAME'
4124: , p_token1_value => l_fee_ak_prompt
4125:
4126: );
4127:
4128: raise OKC_API.G_EXCEPTION_ERROR;
4129:
4130: End If;
4131:
4132:
4154:
4155:
4156: If row_count <> 1 Then
4157:
4158: x_return_status := OKC_API.g_ret_sts_error;
4159:
4160:
4161:
4162: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4158: x_return_status := OKC_API.g_ret_sts_error;
4159:
4160:
4161:
4162: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4163:
4164:
4165:
4166: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4164:
4165:
4166: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4167:
4168: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4169:
4170: , p_msg_name => 'OKL_INVALID_VALUE'
4171:
4172: , p_token1 => 'COL_NAME'
4174: , p_token1_value => l_fee_ak_prompt
4175:
4176: );
4177:
4178: raise OKC_API.G_EXCEPTION_ERROR;
4179:
4180: End If;
4181:
4182:
4219: IF okx_lease_csr%NotFound THEN
4220:
4221:
4222:
4223: x_return_status := OKC_API.g_ret_sts_error;
4224:
4225:
4226:
4227: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4223: x_return_status := OKC_API.g_ret_sts_error;
4224:
4225:
4226:
4227: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4228:
4229:
4230:
4231: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4229:
4230:
4231: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4232:
4233: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4234:
4235: , p_msg_name => 'OKL_INVALID_VALUE'
4236:
4237: , p_token1 => 'COL_NAME'
4239: , p_token1_value => l_fee_ak_prompt
4240:
4241: );
4242:
4243: raise OKC_API.G_EXCEPTION_ERROR;
4244:
4245:
4246:
4247: END IF;
4259: If okx_lease_csr%Found Then
4260:
4261:
4262:
4263: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4264:
4265: x_return_status := OKC_API.g_ret_sts_error;
4266:
4267:
4261:
4262:
4263: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4264:
4265: x_return_status := OKC_API.g_ret_sts_error;
4266:
4267:
4268:
4269: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4265: x_return_status := OKC_API.g_ret_sts_error;
4266:
4267:
4268:
4269: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4270:
4271:
4272:
4273: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4271:
4272:
4273: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4274:
4275: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4276:
4277: , p_msg_name => 'OKL_INVALID_VALUE'
4278:
4279: , p_token1 => 'COL_NAME'
4281: , p_token1_value => l_fee_ak_prompt
4282:
4283: );
4284:
4285: raise OKC_API.G_EXCEPTION_ERROR;
4286:
4287: End If;
4288:
4289: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4285: raise OKC_API.G_EXCEPTION_ERROR;
4286:
4287: End If;
4288:
4289: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4290:
4291: x_return_status := OKC_API.g_ret_sts_error;
4292:
4293:
4287: End If;
4288:
4289: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4290:
4291: x_return_status := OKC_API.g_ret_sts_error;
4292:
4293:
4294:
4295: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4291: x_return_status := OKC_API.g_ret_sts_error;
4292:
4293:
4294:
4295: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4296:
4297:
4298:
4299: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4297:
4298:
4299: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4300:
4301: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4302:
4303: , p_msg_name => 'OKL_INVALID_VALUE'
4304:
4305: , p_token1 => 'COL_NAME'
4307: , p_token1_value => l_fee_ak_prompt
4308:
4309: );
4310:
4311: raise OKC_API.G_EXCEPTION_ERROR;
4312:
4313: End If;
4314:
4315:
4337:
4338:
4339: If row_count <> 1 Then
4340:
4341: x_return_status := OKC_API.g_ret_sts_error;
4342:
4343:
4344:
4345: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4341: x_return_status := OKC_API.g_ret_sts_error;
4342:
4343:
4344:
4345: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4346:
4347:
4348:
4349: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4347:
4348:
4349: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4350:
4351: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4352:
4353: , p_msg_name => 'OKL_INVALID_VALUE'
4354:
4355: , p_token1 => 'COL_NAME'
4357: , p_token1_value => l_fee_ak_prompt
4358:
4359: );
4360:
4361: raise OKC_API.G_EXCEPTION_ERROR;
4362:
4363: End If;
4364:
4365:
4403: IF okx_service_csr%NotFound THEN
4404:
4405:
4406:
4407: x_return_status := OKC_API.g_ret_sts_error;
4408:
4409:
4410:
4411: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4407: x_return_status := OKC_API.g_ret_sts_error;
4408:
4409:
4410:
4411: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4412:
4413:
4414:
4415: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4413:
4414:
4415: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4416:
4417: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4418:
4419: , p_msg_name => 'OKL_INVALID_VALUE'
4420:
4421: , p_token1 => 'COL_NAME'
4423: , p_token1_value => l_fee_ak_prompt
4424:
4425: );
4426:
4427: raise OKC_API.G_EXCEPTION_ERROR;
4428:
4429:
4430:
4431: END IF;
4443: If okx_service_csr%Found Then
4444:
4445:
4446:
4447: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4448:
4449: x_return_status := OKC_API.g_ret_sts_error;
4450:
4451:
4445:
4446:
4447: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4448:
4449: x_return_status := OKC_API.g_ret_sts_error;
4450:
4451:
4452:
4453: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4449: x_return_status := OKC_API.g_ret_sts_error;
4450:
4451:
4452:
4453: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4454:
4455:
4456:
4457: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4455:
4456:
4457: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4458:
4459: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4460:
4461: , p_msg_name => 'OKL_INVALID_VALUE'
4462:
4463: , p_token1 => 'COL_NAME'
4465: , p_token1_value => l_fee_ak_prompt
4466:
4467: );
4468:
4469: raise OKC_API.G_EXCEPTION_ERROR;
4470:
4471: End If;
4472:
4473: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4469: raise OKC_API.G_EXCEPTION_ERROR;
4470:
4471: End If;
4472:
4473: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4474:
4475: x_return_status := OKC_API.g_ret_sts_error;
4476:
4477:
4471: End If;
4472:
4473: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4474:
4475: x_return_status := OKC_API.g_ret_sts_error;
4476:
4477:
4478:
4479: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4475: x_return_status := OKC_API.g_ret_sts_error;
4476:
4477:
4478:
4479: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4480:
4481:
4482:
4483: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4481:
4482:
4483: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4484:
4485: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4486:
4487: , p_msg_name => 'OKL_INVALID_VALUE'
4488:
4489: , p_token1 => 'COL_NAME'
4491: , p_token1_value => l_fee_ak_prompt
4492:
4493: );
4494:
4495: raise OKC_API.G_EXCEPTION_ERROR;
4496:
4497: End If;
4498:
4499:
4521:
4522:
4523: If row_count <> 1 Then
4524:
4525: x_return_status := OKC_API.g_ret_sts_error;
4526:
4527:
4528:
4529: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4525: x_return_status := OKC_API.g_ret_sts_error;
4526:
4527:
4528:
4529: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4530:
4531:
4532:
4533: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4531:
4532:
4533: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4534:
4535: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4536:
4537: , p_msg_name => 'OKL_INVALID_VALUE'
4538:
4539: , p_token1 => 'COL_NAME'
4541: , p_token1_value => l_fee_ak_prompt
4542:
4543: );
4544:
4545: raise OKC_API.G_EXCEPTION_ERROR;
4546:
4547: End If;
4548:
4549:
4586: IF okx_sysitem_csr%NotFound THEN
4587:
4588:
4589:
4590: x_return_status := OKC_API.g_ret_sts_error;
4591:
4592:
4593:
4594: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4590: x_return_status := OKC_API.g_ret_sts_error;
4591:
4592:
4593:
4594: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4595:
4596:
4597:
4598: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4596:
4597:
4598: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4599:
4600: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4601:
4602: , p_msg_name => 'OKL_INVALID_VALUE'
4603:
4604: , p_token1 => 'COL_NAME'
4606: , p_token1_value => l_fee_ak_prompt
4607:
4608: );
4609:
4610: raise OKC_API.G_EXCEPTION_ERROR;
4611:
4612:
4613:
4614: END IF;
4626: If okx_sysitem_csr%Found Then
4627:
4628:
4629:
4630: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4631:
4632: x_return_status := OKC_API.g_ret_sts_error;
4633:
4634:
4628:
4629:
4630: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4631:
4632: x_return_status := OKC_API.g_ret_sts_error;
4633:
4634:
4635:
4636: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4632: x_return_status := OKC_API.g_ret_sts_error;
4633:
4634:
4635:
4636: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4637:
4638:
4639:
4640: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4638:
4639:
4640: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4641:
4642: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4643:
4644: , p_msg_name => 'OKL_INVALID_VALUE'
4645:
4646: , p_token1 => 'COL_NAME'
4648: , p_token1_value => l_fee_ak_prompt
4649:
4650: );
4651:
4652: raise OKC_API.G_EXCEPTION_ERROR;
4653:
4654: End If;
4655:
4656: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4652: raise OKC_API.G_EXCEPTION_ERROR;
4653:
4654: End If;
4655:
4656: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4657:
4658: x_return_status := OKC_API.g_ret_sts_error;
4659:
4660:
4654: End If;
4655:
4656: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4657:
4658: x_return_status := OKC_API.g_ret_sts_error;
4659:
4660:
4661:
4662: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4658: x_return_status := OKC_API.g_ret_sts_error;
4659:
4660:
4661:
4662: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4663:
4664:
4665:
4666: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4664:
4665:
4666: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4667:
4668: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4669:
4670: , p_msg_name => 'OKL_INVALID_VALUE'
4671:
4672: , p_token1 => 'COL_NAME'
4674: , p_token1_value => l_fee_ak_prompt
4675:
4676: );
4677:
4678: raise OKC_API.G_EXCEPTION_ERROR;
4679:
4680: End If;
4681:
4682:
4704:
4705:
4706: If row_count <> 1 Then
4707:
4708: x_return_status := OKC_API.g_ret_sts_error;
4709:
4710:
4711:
4712: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4708: x_return_status := OKC_API.g_ret_sts_error;
4709:
4710:
4711:
4712: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4713:
4714:
4715:
4716: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4714:
4715:
4716: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4717:
4718: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4719:
4720: , p_msg_name => 'OKL_INVALID_VALUE'
4721:
4722: , p_token1 => 'COL_NAME'
4724: , p_token1_value => l_fee_ak_prompt
4725:
4726: );
4727:
4728: raise OKC_API.G_EXCEPTION_ERROR;
4729:
4730: End If;
4731:
4732:
4745: END IF;
4746:
4747:
4748:
4749: If p_cle_id is null or p_cle_id = OKC_API.G_MISS_NUM Then
4750:
4751: OPEN check_item_csr(p_chr_id, p_lty_code, p_item_id1, p_item_id2 );
4752:
4753: FETCH check_item_csr INTO row_count;
4755: CLOSE check_item_csr;
4756:
4757: If row_count = 1 Then
4758:
4759: x_return_status := OKC_API.g_ret_sts_error;
4760:
4761: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4762:
4763: raise OKC_API.G_EXCEPTION_ERROR;
4757: If row_count = 1 Then
4758:
4759: x_return_status := OKC_API.g_ret_sts_error;
4760:
4761: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4762:
4763: raise OKC_API.G_EXCEPTION_ERROR;
4764:
4765: End If;
4759: x_return_status := OKC_API.g_ret_sts_error;
4760:
4761: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4762:
4763: raise OKC_API.G_EXCEPTION_ERROR;
4764:
4765: End If;
4766:
4767: Else
4783: CLOSE check_item_csr;
4784:
4785: If row_count = 1 Then
4786:
4787: x_return_status := OKC_API.g_ret_sts_error;
4788:
4789: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4790:
4791: raise OKC_API.G_EXCEPTION_ERROR;
4785: If row_count = 1 Then
4786:
4787: x_return_status := OKC_API.g_ret_sts_error;
4788:
4789: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4790:
4791: raise OKC_API.G_EXCEPTION_ERROR;
4792:
4793: End If;
4787: x_return_status := OKC_API.g_ret_sts_error;
4788:
4789: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4790:
4791: raise OKC_API.G_EXCEPTION_ERROR;
4792:
4793: End If;
4794:
4795: End If;
4797: End If;
4798:
4799:
4800:
4801: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4802:
4803: Validate_Party ( p_api_version => p_api_version ,
4804: p_init_msg_list => p_init_msg_list ,
4805: x_return_status => x_return_status ,
4814: p_id2 => l_party_id2 ,
4815: p_name => p_party_name ,
4816: p_object_code => p_party_object_code );
4817:
4818: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4819: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4820: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4821: raise OKC_API.G_EXCEPTION_ERROR;
4822: END IF;
4815: p_name => p_party_name ,
4816: p_object_code => p_party_object_code );
4817:
4818: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4819: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4820: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4821: raise OKC_API.G_EXCEPTION_ERROR;
4822: END IF;
4823:
4816: p_object_code => p_party_object_code );
4817:
4818: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4819: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4820: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4821: raise OKC_API.G_EXCEPTION_ERROR;
4822: END IF;
4823:
4824: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4817:
4818: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4819: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4820: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4821: raise OKC_API.G_EXCEPTION_ERROR;
4822: END IF;
4823:
4824: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4825:
4820: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4821: raise OKC_API.G_EXCEPTION_ERROR;
4822: END IF;
4823:
4824: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4825:
4826: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
4827:
4828: EXCEPTION
4822: END IF;
4823:
4824: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4825:
4826: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
4827:
4828: EXCEPTION
4829:
4830: when OKC_API.G_EXCEPTION_ERROR then
4826: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
4827:
4828: EXCEPTION
4829:
4830: when OKC_API.G_EXCEPTION_ERROR then
4831:
4832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4833: p_api_name => l_api_name,
4834: p_pkg_name => g_pkg_name,
4828: EXCEPTION
4829:
4830: when OKC_API.G_EXCEPTION_ERROR then
4831:
4832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4833: p_api_name => l_api_name,
4834: p_pkg_name => g_pkg_name,
4835: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4836: x_msg_count => x_msg_count,
4831:
4832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4833: p_api_name => l_api_name,
4834: p_pkg_name => g_pkg_name,
4835: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4836: x_msg_count => x_msg_count,
4837: x_msg_data => x_msg_data,
4838: p_api_type => g_api_type);
4839:
4869: CLOSE okx_sysitem_csr;
4870: END IF;
4871:
4872:
4873: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4874:
4875: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4876: p_api_name => l_api_name,
4877: p_pkg_name => g_pkg_name,
4871:
4872:
4873: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4874:
4875: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4876: p_api_name => l_api_name,
4877: p_pkg_name => g_pkg_name,
4878: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4879: x_msg_count => x_msg_count,
4874:
4875: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4876: p_api_name => l_api_name,
4877: p_pkg_name => g_pkg_name,
4878: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4879: x_msg_count => x_msg_count,
4880: x_msg_data => x_msg_data,
4881: p_api_type => g_api_type);
4882:
4917:
4918:
4919: when OTHERS then
4920:
4921: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4922:
4923: p_api_name => l_api_name,
4924:
4925: p_pkg_name => g_pkg_name,
4982:
4983: --End of Comments
4984:
4985: Procedure Validate_Fee (p_api_version IN NUMBER,
4986: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
4987: x_return_status OUT NOCOPY VARCHAR2,
4988: x_msg_count OUT NOCOPY NUMBER,
4989: x_msg_data OUT NOCOPY VARCHAR2,
4990: p_chr_id IN NUMBER,
5036:
5037: l_api_name CONSTANT VARCHAR2(30) := 'validate_fee';
5038: l_api_version CONSTANT NUMBER := 1.0;
5039:
5040: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5041:
5042:
5043:
5044: CURSOR check_item_csr(p_chr_id NUMBER, p_lty_code VARCHAR2, p_id1 VARCHAR2, p_id2 VARCHAR2) IS
5091: -- call START_ACTIVITY to create savepoint, check compatibility
5092:
5093: -- and initialize message list
5094:
5095: l_return_status := OKC_API.START_ACTIVITY(
5096: p_api_name => l_api_name,
5097: p_pkg_name => g_pkg_name,
5098: p_init_msg_list => p_init_msg_list,
5099: l_api_version => l_api_version,
5102: x_return_status => x_return_status);
5103:
5104:
5105:
5106: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
5107: Then
5108:
5109: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5105:
5106: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
5107: Then
5108:
5109: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5111:
5112: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5113:
5106: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
5107: Then
5108:
5109: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5111:
5112: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5113:
5114: Then
5108:
5109: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5111:
5112: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5113:
5114: Then
5115: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5111:
5112: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5113:
5114: Then
5115: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117:
5118: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5119: Then
5112: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5113:
5114: Then
5115: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117:
5118: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5119: Then
5120: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5114: Then
5115: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117:
5118: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5119: Then
5120: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5121: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: End If;
5116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5117:
5118: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5119: Then
5120: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5121: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: End If;
5123:
5124:
5117:
5118: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5119: Then
5120: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5121: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5122: End If;
5123:
5124:
5125: --Added by kthiruva 23-Sep-2003 Bug No.3156265
5142: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5143:
5144: If okl_strmtyp_csr%NotFound Then
5145:
5146: x_return_status := OKC_API.g_ret_sts_error;
5147:
5148: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5149: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5150:
5144: If okl_strmtyp_csr%NotFound Then
5145:
5146: x_return_status := OKC_API.g_ret_sts_error;
5147:
5148: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5149: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5150:
5151: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5152: , p_msg_name => 'OKL_INVALID_VALUE'
5147:
5148: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5149: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5150:
5151: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5152: , p_msg_name => 'OKL_INVALID_VALUE'
5153: , p_token1 => 'COL_NAME'
5154: , p_token1_value => l_service_ak_prompt
5155: );
5153: , p_token1 => 'COL_NAME'
5154: , p_token1_value => l_service_ak_prompt
5155: );
5156:
5157: raise OKC_API.G_EXCEPTION_ERROR;
5158:
5159: End If;
5160:
5161:
5174: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5175:
5176: If okl_strmtyp_csr%Found Then
5177:
5178: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5179: x_return_status := OKC_API.g_ret_sts_error;
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5181: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5182: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5175:
5176: If okl_strmtyp_csr%Found Then
5177:
5178: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5179: x_return_status := OKC_API.g_ret_sts_error;
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5181: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5182: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5183: , p_msg_name => 'OKL_INVALID_VALUE'
5176: If okl_strmtyp_csr%Found Then
5177:
5178: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5179: x_return_status := OKC_API.g_ret_sts_error;
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5181: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5182: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5183: , p_msg_name => 'OKL_INVALID_VALUE'
5184: , p_token1 => 'COL_NAME'
5178: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5179: x_return_status := OKC_API.g_ret_sts_error;
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5181: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5182: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5183: , p_msg_name => 'OKL_INVALID_VALUE'
5184: , p_token1 => 'COL_NAME'
5185: , p_token1_value => l_service_ak_prompt
5186: );
5184: , p_token1 => 'COL_NAME'
5185: , p_token1_value => l_service_ak_prompt
5186: );
5187:
5188: raise OKC_API.G_EXCEPTION_ERROR;
5189:
5190: End If;
5191:
5192: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5188: raise OKC_API.G_EXCEPTION_ERROR;
5189:
5190: End If;
5191:
5192: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5193:
5194: x_return_status := OKC_API.g_ret_sts_error;
5195:
5196: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5190: End If;
5191:
5192: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5193:
5194: x_return_status := OKC_API.g_ret_sts_error;
5195:
5196: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5197:
5198: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5192: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5193:
5194: x_return_status := OKC_API.g_ret_sts_error;
5195:
5196: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5197:
5198: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5199: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5200: , p_msg_name => 'OKL_INVALID_VALUE'
5195:
5196: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5197:
5198: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5199: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5200: , p_msg_name => 'OKL_INVALID_VALUE'
5201: , p_token1 => 'COL_NAME'
5202: , p_token1_value => l_service_ak_prompt
5203: );
5201: , p_token1 => 'COL_NAME'
5202: , p_token1_value => l_service_ak_prompt
5203: );
5204:
5205: raise OKC_API.G_EXCEPTION_ERROR;
5206:
5207: End If;
5208:
5209: row_count := 0;
5220: Exit When okl_strmtyp_csr%NotFound;
5221: End Loop;
5222:
5223: If row_count <> 1 Then
5224: x_return_status := OKC_API.g_ret_sts_error;
5225: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5226: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5227: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5228: , p_msg_name => 'OKL_INVALID_VALUE'
5221: End Loop;
5222:
5223: If row_count <> 1 Then
5224: x_return_status := OKC_API.g_ret_sts_error;
5225: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5226: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5227: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5228: , p_msg_name => 'OKL_INVALID_VALUE'
5229: , p_token1 => 'COL_NAME'
5223: If row_count <> 1 Then
5224: x_return_status := OKC_API.g_ret_sts_error;
5225: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5226: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5227: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5228: , p_msg_name => 'OKL_INVALID_VALUE'
5229: , p_token1 => 'COL_NAME'
5230: , p_token1_value => l_service_ak_prompt
5231: );
5229: , p_token1 => 'COL_NAME'
5230: , p_token1_value => l_service_ak_prompt
5231: );
5232:
5233: raise OKC_API.G_EXCEPTION_ERROR;
5234:
5235: End If;
5236: End If;
5237: End If;
5255: l_item_name := Null;
5256: l_item_description := Null;
5257: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5258: If okl_usage_csr%NotFound Then
5259: x_return_status := OKC_API.g_ret_sts_error;
5260: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5261: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5262: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5263: , p_msg_name => 'OKL_INVALID_VALUE'
5256: l_item_description := Null;
5257: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5258: If okl_usage_csr%NotFound Then
5259: x_return_status := OKC_API.g_ret_sts_error;
5260: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5261: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5262: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5263: , p_msg_name => 'OKL_INVALID_VALUE'
5264: , p_token1 => 'COL_NAME'
5258: If okl_usage_csr%NotFound Then
5259: x_return_status := OKC_API.g_ret_sts_error;
5260: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5261: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5262: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5263: , p_msg_name => 'OKL_INVALID_VALUE'
5264: , p_token1 => 'COL_NAME'
5265: , p_token1_value => l_service_ak_prompt
5266: );
5264: , p_token1 => 'COL_NAME'
5265: , p_token1_value => l_service_ak_prompt
5266: );
5267:
5268: raise OKC_API.G_EXCEPTION_ERROR;
5269:
5270: End If;
5271:
5272:
5281: Else
5282: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5283:
5284: If okl_usage_csr%Found Then
5285: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5286: x_return_status := OKC_API.g_ret_sts_error;
5287:
5288: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5289:
5282: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5283:
5284: If okl_usage_csr%Found Then
5285: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5286: x_return_status := OKC_API.g_ret_sts_error;
5287:
5288: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5289:
5290:
5284: If okl_usage_csr%Found Then
5285: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5286: x_return_status := OKC_API.g_ret_sts_error;
5287:
5288: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5289:
5290:
5291:
5292: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5290:
5291:
5292: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5293:
5294: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5295: , p_msg_name => 'OKL_INVALID_VALUE'
5296: , p_token1 => 'COL_NAME'
5297: , p_token1_value => l_service_ak_prompt);
5298:
5295: , p_msg_name => 'OKL_INVALID_VALUE'
5296: , p_token1 => 'COL_NAME'
5297: , p_token1_value => l_service_ak_prompt);
5298:
5299: raise OKC_API.G_EXCEPTION_ERROR;
5300:
5301: End If;
5302:
5303: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5299: raise OKC_API.G_EXCEPTION_ERROR;
5300:
5301: End If;
5302:
5303: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5304: x_return_status := OKC_API.g_ret_sts_error;
5305: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5306: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5307: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5300:
5301: End If;
5302:
5303: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5304: x_return_status := OKC_API.g_ret_sts_error;
5305: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5306: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5307: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5308: , p_msg_name => 'OKL_INVALID_VALUE'
5301: End If;
5302:
5303: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5304: x_return_status := OKC_API.g_ret_sts_error;
5305: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5306: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5307: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5308: , p_msg_name => 'OKL_INVALID_VALUE'
5309: , p_token1 => 'COL_NAME'
5303: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5304: x_return_status := OKC_API.g_ret_sts_error;
5305: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5306: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5307: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5308: , p_msg_name => 'OKL_INVALID_VALUE'
5309: , p_token1 => 'COL_NAME'
5310: , p_token1_value => l_service_ak_prompt
5311:
5310: , p_token1_value => l_service_ak_prompt
5311:
5312: );
5313:
5314: raise OKC_API.G_EXCEPTION_ERROR;
5315:
5316: End If;
5317:
5318:
5346:
5347:
5348: If row_count <> 1 Then
5349:
5350: x_return_status := OKC_API.g_ret_sts_error;
5351:
5352:
5353:
5354: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5350: x_return_status := OKC_API.g_ret_sts_error;
5351:
5352:
5353:
5354: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5355:
5356:
5357:
5358: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5356:
5357:
5358: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5359:
5360: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5361:
5362: , p_msg_name => 'OKL_INVALID_VALUE'
5363:
5364: , p_token1 => 'COL_NAME'
5366: , p_token1_value => l_service_ak_prompt
5367:
5368: );
5369:
5370: raise OKC_API.G_EXCEPTION_ERROR;
5371:
5372: End If;
5373:
5374:
5414:
5415:
5416: If okx_asset_csr%NotFound Then
5417:
5418: x_return_status := OKC_API.g_ret_sts_error;
5419:
5420:
5421:
5422: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5418: x_return_status := OKC_API.g_ret_sts_error;
5419:
5420:
5421:
5422: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5423:
5424:
5425:
5426: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5424:
5425:
5426: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5427:
5428: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5429:
5430: , p_msg_name => 'OKL_INVALID_VALUE'
5431:
5432: , p_token1 => 'COL_NAME'
5434: , p_token1_value => l_service_ak_prompt
5435:
5436: );
5437:
5438: raise OKC_API.G_EXCEPTION_ERROR;
5439:
5440: End If;
5441:
5442:
5464: If okx_asset_csr%Found Then
5465:
5466:
5467:
5468: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5469:
5470: x_return_status := OKC_API.g_ret_sts_error;
5471:
5472:
5466:
5467:
5468: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5469:
5470: x_return_status := OKC_API.g_ret_sts_error;
5471:
5472:
5473:
5474: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5470: x_return_status := OKC_API.g_ret_sts_error;
5471:
5472:
5473:
5474: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5475:
5476:
5477:
5478: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5476:
5477:
5478: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5479:
5480: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5481:
5482: , p_msg_name => 'OKL_INVALID_VALUE'
5483:
5484: , p_token1 => 'COL_NAME'
5486: , p_token1_value => l_service_ak_prompt
5487:
5488: );
5489:
5490: raise OKC_API.G_EXCEPTION_ERROR;
5491:
5492: End If;
5493:
5494: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5490: raise OKC_API.G_EXCEPTION_ERROR;
5491:
5492: End If;
5493:
5494: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5495:
5496: x_return_status := OKC_API.g_ret_sts_error;
5497:
5498:
5492: End If;
5493:
5494: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5495:
5496: x_return_status := OKC_API.g_ret_sts_error;
5497:
5498:
5499:
5500: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5496: x_return_status := OKC_API.g_ret_sts_error;
5497:
5498:
5499:
5500: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5501:
5502:
5503:
5504: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5502:
5503:
5504: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5505:
5506: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5507:
5508: , p_msg_name => 'OKL_INVALID_VALUE'
5509:
5510: , p_token1 => 'COL_NAME'
5512: , p_token1_value => l_service_ak_prompt
5513:
5514: );
5515:
5516: raise OKC_API.G_EXCEPTION_ERROR;
5517:
5518: End If;
5519:
5520:
5548:
5549:
5550: If row_count <> 1 Then
5551:
5552: x_return_status := OKC_API.g_ret_sts_error;
5553:
5554:
5555:
5556: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5552: x_return_status := OKC_API.g_ret_sts_error;
5553:
5554:
5555:
5556: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5557:
5558:
5559:
5560: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5558:
5559:
5560: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5561:
5562: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5563:
5564: , p_msg_name => 'OKL_INVALID_VALUE'
5565:
5566: , p_token1 => 'COL_NAME'
5568: , p_token1_value => l_service_ak_prompt
5569:
5570: );
5571:
5572: raise OKC_API.G_EXCEPTION_ERROR;
5573:
5574: End If;
5575:
5576:
5616:
5617:
5618: If okx_covasst_csr%NotFound Then
5619:
5620: x_return_status := OKC_API.g_ret_sts_error;
5621:
5622:
5623:
5624: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5620: x_return_status := OKC_API.g_ret_sts_error;
5621:
5622:
5623:
5624: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5625:
5626:
5627:
5628: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5626:
5627:
5628: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5629:
5630: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5631:
5632: , p_msg_name => 'OKL_INVALID_VALUE'
5633:
5634: , p_token1 => 'COL_NAME'
5636: , p_token1_value => l_service_ak_prompt
5637:
5638: );
5639:
5640: raise OKC_API.G_EXCEPTION_ERROR;
5641:
5642: End If;
5643:
5644:
5658:
5659:
5660: Fetch okx_covasst_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5661: If okx_covasst_csr%Found Then
5662: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5663: x_return_status := OKC_API.g_ret_sts_error;
5664: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5665: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5666: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5659:
5660: Fetch okx_covasst_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5661: If okx_covasst_csr%Found Then
5662: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5663: x_return_status := OKC_API.g_ret_sts_error;
5664: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5665: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5666: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5667:
5660: Fetch okx_covasst_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5661: If okx_covasst_csr%Found Then
5662: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5663: x_return_status := OKC_API.g_ret_sts_error;
5664: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5665: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5666: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5667:
5668: , p_msg_name => 'OKL_INVALID_VALUE'
5662: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5663: x_return_status := OKC_API.g_ret_sts_error;
5664: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5665: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5666: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5667:
5668: , p_msg_name => 'OKL_INVALID_VALUE'
5669:
5670: , p_token1 => 'COL_NAME'
5672: , p_token1_value => l_service_ak_prompt
5673:
5674: );
5675:
5676: raise OKC_API.G_EXCEPTION_ERROR;
5677:
5678: End If;
5679:
5680: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5676: raise OKC_API.G_EXCEPTION_ERROR;
5677:
5678: End If;
5679:
5680: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5681:
5682: x_return_status := OKC_API.g_ret_sts_error;
5683:
5684:
5678: End If;
5679:
5680: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5681:
5682: x_return_status := OKC_API.g_ret_sts_error;
5683:
5684:
5685:
5686: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5682: x_return_status := OKC_API.g_ret_sts_error;
5683:
5684:
5685:
5686: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5687:
5688:
5689:
5690: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5688:
5689:
5690: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5691:
5692: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5693:
5694: , p_msg_name => 'OKL_INVALID_VALUE'
5695:
5696: , p_token1 => 'COL_NAME'
5698: , p_token1_value => l_service_ak_prompt
5699:
5700: );
5701:
5702: raise OKC_API.G_EXCEPTION_ERROR;
5703:
5704: End If;
5705:
5706: row_count := 0;
5716: End Loop;
5717:
5718:
5719: If row_count <> 1 Then
5720: x_return_status := OKC_API.g_ret_sts_error;
5721:
5722: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5723:
5724: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5718:
5719: If row_count <> 1 Then
5720: x_return_status := OKC_API.g_ret_sts_error;
5721:
5722: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5723:
5724: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5725: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5726:
5721:
5722: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5723:
5724: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5725: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5726:
5727: , p_msg_name => 'OKL_INVALID_VALUE'
5728:
5729: , p_token1 => 'COL_NAME'
5731: , p_token1_value => l_service_ak_prompt
5732:
5733: );
5734:
5735: raise OKC_API.G_EXCEPTION_ERROR;
5736:
5737: End If;
5738:
5739:
5779:
5780:
5781: If okx_ib_item_csr%NotFound Then
5782:
5783: x_return_status := OKC_API.g_ret_sts_error;
5784:
5785:
5786:
5787: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5783: x_return_status := OKC_API.g_ret_sts_error;
5784:
5785:
5786:
5787: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5788:
5789:
5790:
5791: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5789:
5790:
5791: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5792:
5793: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5794:
5795: , p_msg_name => 'OKL_INVALID_VALUE'
5796:
5797: , p_token1 => 'COL_NAME'
5799: , p_token1_value => l_service_ak_prompt
5800:
5801: );
5802:
5803: raise OKC_API.G_EXCEPTION_ERROR;
5804:
5805: End If;
5806:
5807:
5829: If okx_ib_item_csr%Found Then
5830:
5831:
5832:
5833: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5834:
5835: x_return_status := OKC_API.g_ret_sts_error;
5836:
5837:
5831:
5832:
5833: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5834:
5835: x_return_status := OKC_API.g_ret_sts_error;
5836:
5837:
5838:
5839: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5835: x_return_status := OKC_API.g_ret_sts_error;
5836:
5837:
5838:
5839: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5840:
5841:
5842:
5843: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5841:
5842:
5843: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5844:
5845: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5846:
5847: , p_msg_name => 'OKL_INVALID_VALUE'
5848:
5849: , p_token1 => 'COL_NAME'
5851: , p_token1_value => l_service_ak_prompt
5852:
5853: );
5854:
5855: raise OKC_API.G_EXCEPTION_ERROR;
5856:
5857: End If;
5858:
5859: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5855: raise OKC_API.G_EXCEPTION_ERROR;
5856:
5857: End If;
5858:
5859: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5860:
5861: x_return_status := OKC_API.g_ret_sts_error;
5862:
5863:
5857: End If;
5858:
5859: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5860:
5861: x_return_status := OKC_API.g_ret_sts_error;
5862:
5863:
5864:
5865: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5861: x_return_status := OKC_API.g_ret_sts_error;
5862:
5863:
5864:
5865: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5866:
5867:
5868:
5869: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5867:
5868:
5869: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5870:
5871: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5872:
5873: , p_msg_name => 'OKL_INVALID_VALUE'
5874:
5875: , p_token1 => 'COL_NAME'
5877: , p_token1_value => l_service_ak_prompt
5878:
5879: );
5880:
5881: raise OKC_API.G_EXCEPTION_ERROR;
5882:
5883: End If;
5884:
5885:
5913:
5914:
5915: If row_count <> 1 Then
5916:
5917: x_return_status := OKC_API.g_ret_sts_error;
5918:
5919:
5920:
5921: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5917: x_return_status := OKC_API.g_ret_sts_error;
5918:
5919:
5920:
5921: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5922:
5923:
5924:
5925: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5923:
5924:
5925: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5926:
5927: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5928:
5929: , p_msg_name => 'OKL_INVALID_VALUE'
5930:
5931: , p_token1 => 'COL_NAME'
5933: , p_token1_value => l_service_ak_prompt
5934:
5935: );
5936:
5937: raise OKC_API.G_EXCEPTION_ERROR;
5938:
5939: End If;
5940:
5941:
5981:
5982:
5983: If okx_lease_csr%NotFound Then
5984:
5985: x_return_status := OKC_API.g_ret_sts_error;
5986:
5987:
5988:
5989: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5985: x_return_status := OKC_API.g_ret_sts_error;
5986:
5987:
5988:
5989: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5990:
5991:
5992:
5993: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5991:
5992:
5993: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5994:
5995: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5996:
5997: , p_msg_name => 'OKL_INVALID_VALUE'
5998:
5999: , p_token1 => 'COL_NAME'
6001: , p_token1_value => l_service_ak_prompt
6002:
6003: );
6004:
6005: raise OKC_API.G_EXCEPTION_ERROR;
6006:
6007: End If;
6008:
6009:
6031: If okx_lease_csr%Found Then
6032:
6033:
6034:
6035: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6036:
6037: x_return_status := OKC_API.g_ret_sts_error;
6038:
6039:
6033:
6034:
6035: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6036:
6037: x_return_status := OKC_API.g_ret_sts_error;
6038:
6039:
6040:
6041: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6037: x_return_status := OKC_API.g_ret_sts_error;
6038:
6039:
6040:
6041: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6042:
6043:
6044:
6045: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6043:
6044:
6045: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6046:
6047: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6048:
6049: , p_msg_name => 'OKL_INVALID_VALUE'
6050:
6051: , p_token1 => 'COL_NAME'
6053: , p_token1_value => l_service_ak_prompt
6054:
6055: );
6056:
6057: raise OKC_API.G_EXCEPTION_ERROR;
6058:
6059: End If;
6060:
6061: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6057: raise OKC_API.G_EXCEPTION_ERROR;
6058:
6059: End If;
6060:
6061: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6062:
6063: x_return_status := OKC_API.g_ret_sts_error;
6064:
6065:
6059: End If;
6060:
6061: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6062:
6063: x_return_status := OKC_API.g_ret_sts_error;
6064:
6065:
6066:
6067: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6063: x_return_status := OKC_API.g_ret_sts_error;
6064:
6065:
6066:
6067: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6068:
6069:
6070:
6071: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6069:
6070:
6071: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6072:
6073: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6074:
6075: , p_msg_name => 'OKL_INVALID_VALUE'
6076:
6077: , p_token1 => 'COL_NAME'
6079: , p_token1_value => l_service_ak_prompt
6080:
6081: );
6082:
6083: raise OKC_API.G_EXCEPTION_ERROR;
6084:
6085: End If;
6086:
6087:
6115:
6116:
6117: If row_count <> 1 Then
6118:
6119: x_return_status := OKC_API.g_ret_sts_error;
6120:
6121:
6122:
6123: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6119: x_return_status := OKC_API.g_ret_sts_error;
6120:
6121:
6122:
6123: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6124:
6125:
6126:
6127: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6125:
6126:
6127: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6128:
6129: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6130:
6131: , p_msg_name => 'OKL_INVALID_VALUE'
6132:
6133: , p_token1 => 'COL_NAME'
6135: , p_token1_value => l_service_ak_prompt
6136:
6137: );
6138:
6139: raise OKC_API.G_EXCEPTION_ERROR;
6140:
6141: End If;
6142:
6143:
6183:
6184:
6185: If okx_service_csr%NotFound Then
6186:
6187: x_return_status := OKC_API.g_ret_sts_error;
6188:
6189:
6190:
6191: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6187: x_return_status := OKC_API.g_ret_sts_error;
6188:
6189:
6190:
6191: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6192:
6193:
6194:
6195: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6193:
6194:
6195: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6196:
6197: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6198:
6199: , p_msg_name => 'OKL_INVALID_VALUE'
6200:
6201: , p_token1 => 'COL_NAME'
6203: , p_token1_value => l_service_ak_prompt
6204:
6205: );
6206:
6207: raise OKC_API.G_EXCEPTION_ERROR;
6208:
6209: End If;
6210:
6211:
6233: If okx_service_csr%Found Then
6234:
6235:
6236:
6237: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6238:
6239: x_return_status := OKC_API.g_ret_sts_error;
6240:
6241:
6235:
6236:
6237: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6238:
6239: x_return_status := OKC_API.g_ret_sts_error;
6240:
6241:
6242:
6243: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6239: x_return_status := OKC_API.g_ret_sts_error;
6240:
6241:
6242:
6243: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6244:
6245:
6246:
6247: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6245:
6246:
6247: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6248:
6249: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6250:
6251: , p_msg_name => 'OKL_INVALID_VALUE'
6252:
6253: , p_token1 => 'COL_NAME'
6255: , p_token1_value => l_service_ak_prompt
6256:
6257: );
6258:
6259: raise OKC_API.G_EXCEPTION_ERROR;
6260:
6261: End If;
6262:
6263: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6259: raise OKC_API.G_EXCEPTION_ERROR;
6260:
6261: End If;
6262:
6263: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6264:
6265: x_return_status := OKC_API.g_ret_sts_error;
6266:
6267:
6261: End If;
6262:
6263: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6264:
6265: x_return_status := OKC_API.g_ret_sts_error;
6266:
6267:
6268:
6269: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6265: x_return_status := OKC_API.g_ret_sts_error;
6266:
6267:
6268:
6269: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6270:
6271:
6272:
6273: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6271:
6272:
6273: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6274:
6275: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6276:
6277: , p_msg_name => 'OKL_INVALID_VALUE'
6278:
6279: , p_token1 => 'COL_NAME'
6281: , p_token1_value => l_service_ak_prompt
6282:
6283: );
6284:
6285: raise OKC_API.G_EXCEPTION_ERROR;
6286:
6287: End If;
6288:
6289:
6317:
6318:
6319: If row_count <> 1 Then
6320:
6321: x_return_status := OKC_API.g_ret_sts_error;
6322:
6323:
6324:
6325: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6321: x_return_status := OKC_API.g_ret_sts_error;
6322:
6323:
6324:
6325: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6326:
6327:
6328:
6329: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6327:
6328:
6329: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6330:
6331: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6332:
6333: , p_msg_name => 'OKL_INVALID_VALUE'
6334:
6335: , p_token1 => 'COL_NAME'
6337: , p_token1_value => l_service_ak_prompt
6338:
6339: );
6340:
6341: raise OKC_API.G_EXCEPTION_ERROR;
6342:
6343: End If;
6344:
6345:
6385:
6386:
6387: If okx_sysitem_csr%NotFound Then
6388:
6389: x_return_status := OKC_API.g_ret_sts_error;
6390:
6391:
6392:
6393: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6389: x_return_status := OKC_API.g_ret_sts_error;
6390:
6391:
6392:
6393: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6394:
6395:
6396:
6397: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6395:
6396:
6397: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6398:
6399: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6400:
6401: , p_msg_name => 'OKL_INVALID_VALUE'
6402:
6403: , p_token1 => 'COL_NAME'
6405: , p_token1_value => l_service_ak_prompt
6406:
6407: );
6408:
6409: raise OKC_API.G_EXCEPTION_ERROR;
6410:
6411: End If;
6412:
6413:
6435: If okx_sysitem_csr%Found Then
6436:
6437:
6438:
6439: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6440:
6441: x_return_status := OKC_API.g_ret_sts_error;
6442:
6443:
6437:
6438:
6439: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6440:
6441: x_return_status := OKC_API.g_ret_sts_error;
6442:
6443:
6444:
6445: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6441: x_return_status := OKC_API.g_ret_sts_error;
6442:
6443:
6444:
6445: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6446:
6447:
6448:
6449: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6447:
6448:
6449: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6450:
6451: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6452:
6453: , p_msg_name => 'OKL_INVALID_VALUE'
6454:
6455: , p_token1 => 'COL_NAME'
6457: , p_token1_value => l_service_ak_prompt
6458:
6459: );
6460:
6461: raise OKC_API.G_EXCEPTION_ERROR;
6462:
6463: End If;
6464:
6465: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6461: raise OKC_API.G_EXCEPTION_ERROR;
6462:
6463: End If;
6464:
6465: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6466:
6467: x_return_status := OKC_API.g_ret_sts_error;
6468:
6469:
6463: End If;
6464:
6465: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6466:
6467: x_return_status := OKC_API.g_ret_sts_error;
6468:
6469:
6470:
6471: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6467: x_return_status := OKC_API.g_ret_sts_error;
6468:
6469:
6470:
6471: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6472:
6473:
6474:
6475: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6473:
6474:
6475: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6476:
6477: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6478:
6479: , p_msg_name => 'OKL_INVALID_VALUE'
6480:
6481: , p_token1 => 'COL_NAME'
6483: , p_token1_value => l_service_ak_prompt
6484:
6485: );
6486:
6487: raise OKC_API.G_EXCEPTION_ERROR;
6488:
6489: End If;
6490:
6491:
6519:
6520:
6521: If row_count <> 1 Then
6522:
6523: x_return_status := OKC_API.g_ret_sts_error;
6524:
6525:
6526:
6527: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6523: x_return_status := OKC_API.g_ret_sts_error;
6524:
6525:
6526:
6527: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6528:
6529:
6530:
6531: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6529:
6530:
6531: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6532:
6533: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6534:
6535: , p_msg_name => 'OKL_INVALID_VALUE'
6536:
6537: , p_token1 => 'COL_NAME'
6539: , p_token1_value => l_service_ak_prompt
6540:
6541: );
6542:
6543: raise OKC_API.G_EXCEPTION_ERROR;
6544:
6545: End If;
6546:
6547:
6563: END IF;
6564:
6565:
6566:
6567: If p_cle_id is null or p_cle_id = OKC_API.G_MISS_NUM Then
6568:
6569: OPEN check_item_csr(p_chr_id, p_lty_code, p_item_id1, p_item_id2 );
6570:
6571: FETCH check_item_csr INTO row_count;
6573: CLOSE check_item_csr;
6574:
6575: If row_count = 1 Then
6576:
6577: x_return_status := OKC_API.g_ret_sts_error;
6578:
6579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6580:
6581: raise OKC_API.G_EXCEPTION_ERROR;
6575: If row_count = 1 Then
6576:
6577: x_return_status := OKC_API.g_ret_sts_error;
6578:
6579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6580:
6581: raise OKC_API.G_EXCEPTION_ERROR;
6582:
6583: End If;
6577: x_return_status := OKC_API.g_ret_sts_error;
6578:
6579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6580:
6581: raise OKC_API.G_EXCEPTION_ERROR;
6582:
6583: End If;
6584:
6585: Else
6601: CLOSE check_item_csr;
6602:
6603: If row_count = 1 Then
6604:
6605: x_return_status := OKC_API.g_ret_sts_error;
6606:
6607: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6608:
6609: raise OKC_API.G_EXCEPTION_ERROR;
6603: If row_count = 1 Then
6604:
6605: x_return_status := OKC_API.g_ret_sts_error;
6606:
6607: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6608:
6609: raise OKC_API.G_EXCEPTION_ERROR;
6610:
6611: End If;
6605: x_return_status := OKC_API.g_ret_sts_error;
6606:
6607: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6608:
6609: raise OKC_API.G_EXCEPTION_ERROR;
6610:
6611: End If;
6612:
6613: End If;
6615: End If;
6616:
6617:
6618:
6619: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6620:
6621:
6622:
6623: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
6619: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6620:
6621:
6622:
6623: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
6624:
6625:
6626:
6627: EXCEPTION
6625:
6626:
6627: EXCEPTION
6628:
6629: when OKC_API.G_EXCEPTION_ERROR then
6630:
6631: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6632:
6633: p_api_name => l_api_name,
6627: EXCEPTION
6628:
6629: when OKC_API.G_EXCEPTION_ERROR then
6630:
6631: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6632:
6633: p_api_name => l_api_name,
6634:
6635: p_pkg_name => g_pkg_name,
6633: p_api_name => l_api_name,
6634:
6635: p_pkg_name => g_pkg_name,
6636:
6637: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
6638:
6639: x_msg_count => x_msg_count,
6640:
6641: x_msg_data => x_msg_data,
6675: END IF;
6676:
6677:
6678:
6679: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
6680:
6681: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6682:
6683: p_api_name => l_api_name,
6677:
6678:
6679: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
6680:
6681: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6682:
6683: p_api_name => l_api_name,
6684:
6685: p_pkg_name => g_pkg_name,
6683: p_api_name => l_api_name,
6684:
6685: p_pkg_name => g_pkg_name,
6686:
6687: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
6688:
6689: x_msg_count => x_msg_count,
6690:
6691: x_msg_data => x_msg_data,
6727:
6728:
6729: when OTHERS then
6730:
6731: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6732:
6733: p_api_name => l_api_name,
6734:
6735: p_pkg_name => g_pkg_name,
6789: -- Parameters :
6790: -- Version : 1.0
6791: -- End of comments
6792: Procedure Validate_Creditline (p_api_version IN NUMBER,
6793: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
6794: x_return_status OUT NOCOPY VARCHAR2,
6795: x_msg_count OUT NOCOPY NUMBER,
6796: x_msg_data OUT NOCOPY VARCHAR2,
6797: p_chr_id IN NUMBER,
6926: If okl_context.get_okc_org_id is null then
6927: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
6928: End If;
6929:
6930: x_return_status := OKC_API.START_ACTIVITY(
6931: p_api_name => l_api_name,
6932: p_pkg_name => g_pkg_name,
6933: p_init_msg_list => p_init_msg_list,
6934: l_api_version => l_api_version,
6936: p_api_type => g_api_type,
6937: x_return_status => x_return_status);
6938:
6939: -- check if activity started successfully
6940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6943: raise OKC_API.G_EXCEPTION_ERROR;
6944: End If;
6937: x_return_status => x_return_status);
6938:
6939: -- check if activity started successfully
6940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6943: raise OKC_API.G_EXCEPTION_ERROR;
6944: End If;
6945:
6938:
6939: -- check if activity started successfully
6940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6943: raise OKC_API.G_EXCEPTION_ERROR;
6944: End If;
6945:
6946: l_fund_yn := null;
6939: -- check if activity started successfully
6940: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6941: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6942: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6943: raise OKC_API.G_EXCEPTION_ERROR;
6944: End If;
6945:
6946: l_fund_yn := null;
6947: open is_k_fund_aprvd_csr;
6966: If ( l_cl_id is not null and l_fund_yn = 'Y') Then
6967:
6968: If( p_cl_no is null or l_cl_k_no <> p_cl_no) Then
6969:
6970: x_return_status := OKC_API.g_ret_sts_error;
6971: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6972: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6973: , p_msg_name => 'OKL_CL_FUND_STS_CHK'
6974: , p_token1 => 'COL_NAME'
6968: If( p_cl_no is null or l_cl_k_no <> p_cl_no) Then
6969:
6970: x_return_status := OKC_API.g_ret_sts_error;
6971: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6972: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6973: , p_msg_name => 'OKL_CL_FUND_STS_CHK'
6974: , p_token1 => 'COL_NAME'
6975: , p_token1_value => l_cl_k_no
6976: );
6973: , p_msg_name => 'OKL_CL_FUND_STS_CHK'
6974: , p_token1 => 'COL_NAME'
6975: , p_token1_value => l_cl_k_no
6976: );
6977: raise OKC_API.G_EXCEPTION_ERROR;
6978:
6979: End If;
6980:
6981: ElsIf ( p_cl_no is not null and l_cl_k_no is null and l_mla_cl_id is not null and l_fund_yn = 'Y') Then
6979: End If;
6980:
6981: ElsIf ( p_cl_no is not null and l_cl_k_no is null and l_mla_cl_id is not null and l_fund_yn = 'Y') Then
6982:
6983: x_return_status := OKC_API.g_ret_sts_error;
6984: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6985: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6986: , p_msg_name => 'OKL_CL_FUND_STS_CHK1'
6987: );
6981: ElsIf ( p_cl_no is not null and l_cl_k_no is null and l_mla_cl_id is not null and l_fund_yn = 'Y') Then
6982:
6983: x_return_status := OKC_API.g_ret_sts_error;
6984: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6985: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6986: , p_msg_name => 'OKL_CL_FUND_STS_CHK1'
6987: );
6988: raise OKC_API.G_EXCEPTION_ERROR;
6989:
6984: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6985: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6986: , p_msg_name => 'OKL_CL_FUND_STS_CHK1'
6987: );
6988: raise OKC_API.G_EXCEPTION_ERROR;
6989:
6990: End If;
6991:
6992: -- check the mla contract credit line
7000:
7001: -- funding approved, can not change mla
7002: If( p_mla_no is null or l_mla_no <> p_mla_no) Then
7003:
7004: x_return_status := OKC_API.g_ret_sts_error;
7005: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7006: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7007: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD'
7008: , p_token1 => 'COL_NAME'
7002: If( p_mla_no is null or l_mla_no <> p_mla_no) Then
7003:
7004: x_return_status := OKC_API.g_ret_sts_error;
7005: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7006: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7007: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD'
7008: , p_token1 => 'COL_NAME'
7009: , p_token1_value => l_mla_no
7010: );
7007: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD'
7008: , p_token1 => 'COL_NAME'
7009: , p_token1_value => l_mla_no
7010: );
7011: raise OKC_API.G_EXCEPTION_ERROR;
7012:
7013: End If;
7014: -- mla cl not attached
7015: ElsIf ( p_mla_no is not null and l_mla_cl_yn = 'Y' and l_cl_id is not null and l_fund_yn = 'Y') Then
7013: End If;
7014: -- mla cl not attached
7015: ElsIf ( p_mla_no is not null and l_mla_cl_yn = 'Y' and l_cl_id is not null and l_fund_yn = 'Y') Then
7016:
7017: x_return_status := OKC_API.g_ret_sts_error;
7018: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7019: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7020: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD1'
7021: );
7015: ElsIf ( p_mla_no is not null and l_mla_cl_yn = 'Y' and l_cl_id is not null and l_fund_yn = 'Y') Then
7016:
7017: x_return_status := OKC_API.g_ret_sts_error;
7018: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7019: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7020: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD1'
7021: );
7022: raise OKC_API.G_EXCEPTION_ERROR;
7023:
7018: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7019: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7020: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD1'
7021: );
7022: raise OKC_API.G_EXCEPTION_ERROR;
7023:
7024: End If;
7025:
7026: l_cl_rev_yn := null;
7045: If (p_deal_type = 'LOAN-REVOLVING') Then
7046:
7047: If (p_cl_no is not null and (l_cl_rev_yn is null or l_cl_rev_yn = 'N')) Then
7048:
7049: x_return_status := OKC_API.g_ret_sts_error;
7050: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7051: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7052: );
7053: raise OKC_API.G_EXCEPTION_ERROR;
7046:
7047: If (p_cl_no is not null and (l_cl_rev_yn is null or l_cl_rev_yn = 'N')) Then
7048:
7049: x_return_status := OKC_API.g_ret_sts_error;
7050: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7051: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7052: );
7053: raise OKC_API.G_EXCEPTION_ERROR;
7054:
7049: x_return_status := OKC_API.g_ret_sts_error;
7050: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7051: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7052: );
7053: raise OKC_API.G_EXCEPTION_ERROR;
7054:
7055: End If;
7056:
7057: -- if master lease exists and mla cl exists and rev yn is not null and cl rev yn is N
7059: If ( p_mla_no is not null and
7060: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7061: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'N') ) Then
7062:
7063: x_return_status := OKC_API.g_ret_sts_error;
7064: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7065: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7066: );
7067: raise OKC_API.G_EXCEPTION_ERROR;
7060: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7061: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'N') ) Then
7062:
7063: x_return_status := OKC_API.g_ret_sts_error;
7064: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7065: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7066: );
7067: raise OKC_API.G_EXCEPTION_ERROR;
7068:
7063: x_return_status := OKC_API.g_ret_sts_error;
7064: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7065: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7066: );
7067: raise OKC_API.G_EXCEPTION_ERROR;
7068:
7069: End If;
7070:
7071: Else
7071: Else
7072:
7073: If (p_cl_no is not null and l_cl_rev_yn is not null and l_cl_rev_yn = 'Y') Then
7074:
7075: x_return_status := OKC_API.g_ret_sts_error;
7076: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7077: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7078: );
7079: raise OKC_API.G_EXCEPTION_ERROR;
7072:
7073: If (p_cl_no is not null and l_cl_rev_yn is not null and l_cl_rev_yn = 'Y') Then
7074:
7075: x_return_status := OKC_API.g_ret_sts_error;
7076: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7077: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7078: );
7079: raise OKC_API.G_EXCEPTION_ERROR;
7080:
7075: x_return_status := OKC_API.g_ret_sts_error;
7076: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7077: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7078: );
7079: raise OKC_API.G_EXCEPTION_ERROR;
7080:
7081: End If;
7082:
7083: If (p_mla_no is not null and
7083: If (p_mla_no is not null and
7084: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7085: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'Y')) Then
7086:
7087: x_return_status := OKC_API.g_ret_sts_error;
7088: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7089: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7090: );
7091: raise OKC_API.G_EXCEPTION_ERROR;
7084: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7085: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'Y')) Then
7086:
7087: x_return_status := OKC_API.g_ret_sts_error;
7088: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7089: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7090: );
7091: raise OKC_API.G_EXCEPTION_ERROR;
7092:
7087: x_return_status := OKC_API.g_ret_sts_error;
7088: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7089: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7090: );
7091: raise OKC_API.G_EXCEPTION_ERROR;
7092:
7093: End If;
7094:
7095: End If; -- end of loan revolving
7114: p_MLA_id => l_mla_id,
7115: p_creditline_id => l_cl_id
7116: );
7117:
7118: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7121: raise OKC_API.G_EXCEPTION_ERROR;
7122: End If;
7115: p_creditline_id => l_cl_id
7116: );
7117:
7118: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7121: raise OKC_API.G_EXCEPTION_ERROR;
7122: End If;
7123:
7116: );
7117:
7118: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7121: raise OKC_API.G_EXCEPTION_ERROR;
7122: End If;
7123:
7124: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7117:
7118: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7121: raise OKC_API.G_EXCEPTION_ERROR;
7122: End If;
7123:
7124: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7125:
7120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7121: raise OKC_API.G_EXCEPTION_ERROR;
7122: End If;
7123:
7124: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7125:
7126: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7127:
7128: EXCEPTION
7122: End If;
7123:
7124: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7125:
7126: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7127:
7128: EXCEPTION
7129: when OKC_API.G_EXCEPTION_ERROR then
7130: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7125:
7126: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7127:
7128: EXCEPTION
7129: when OKC_API.G_EXCEPTION_ERROR then
7130: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7131: p_api_name => l_api_name,
7132: p_pkg_name => g_pkg_name,
7133: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7126: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7127:
7128: EXCEPTION
7129: when OKC_API.G_EXCEPTION_ERROR then
7130: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7131: p_api_name => l_api_name,
7132: p_pkg_name => g_pkg_name,
7133: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7134: x_msg_count => x_msg_count,
7129: when OKC_API.G_EXCEPTION_ERROR then
7130: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7131: p_api_name => l_api_name,
7132: p_pkg_name => g_pkg_name,
7133: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7134: x_msg_count => x_msg_count,
7135: x_msg_data => x_msg_data,
7136: p_api_type => g_api_type);
7137:
7134: x_msg_count => x_msg_count,
7135: x_msg_data => x_msg_data,
7136: p_api_type => g_api_type);
7137:
7138: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7139: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7140: p_api_name => l_api_name,
7141: p_pkg_name => g_pkg_name,
7142: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7135: x_msg_data => x_msg_data,
7136: p_api_type => g_api_type);
7137:
7138: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7139: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7140: p_api_name => l_api_name,
7141: p_pkg_name => g_pkg_name,
7142: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7143: x_msg_count => x_msg_count,
7138: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7139: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7140: p_api_name => l_api_name,
7141: p_pkg_name => g_pkg_name,
7142: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7143: x_msg_count => x_msg_count,
7144: x_msg_data => x_msg_data,
7145: p_api_type => g_api_type);
7146:
7144: x_msg_data => x_msg_data,
7145: p_api_type => g_api_type);
7146:
7147: when OTHERS then
7148: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7149: p_api_name => l_api_name,
7150: p_pkg_name => g_pkg_name,
7151: p_exc_name => 'OTHERS',
7152: x_msg_count => x_msg_count,
7168: -- End of comments
7169:
7170: PROCEDURE validate_deal(
7171: p_api_version IN NUMBER,
7172: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7173: x_return_status OUT NOCOPY VARCHAR2,
7174: x_msg_count OUT NOCOPY NUMBER,
7175: x_msg_data OUT NOCOPY VARCHAR2,
7176: p_chr_id IN NUMBER,
7318: End If;
7319:
7320:
7321:
7322: x_return_status := OKC_API.START_ACTIVITY(
7323:
7324: p_api_name => l_api_name,
7325:
7326: p_pkg_name => g_pkg_name,
7338:
7339:
7340: -- check if activity started successfully
7341:
7342: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7343:
7344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345:
7346: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7340: -- check if activity started successfully
7341:
7342: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7343:
7344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345:
7346: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7347:
7348: raise OKC_API.G_EXCEPTION_ERROR;
7342: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7343:
7344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345:
7346: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7347:
7348: raise OKC_API.G_EXCEPTION_ERROR;
7349:
7350: End If;
7344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345:
7346: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7347:
7348: raise OKC_API.G_EXCEPTION_ERROR;
7349:
7350: End If;
7351:
7352: -- contract number validation
7352: -- contract number validation
7353:
7354: If(p_contract_number is null) Then
7355:
7356: x_return_status := OKC_API.g_ret_sts_error;
7357:
7358: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
7359:
7360: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7356: x_return_status := OKC_API.g_ret_sts_error;
7357:
7358: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
7359:
7360: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7361:
7362: , p_msg_name => 'OKL_REQUIRED_VALUE'
7363:
7364: , p_token1 => 'COL_NAME'
7366: , p_token1_value => l_ak_prompt
7367:
7368: );
7369:
7370: raise OKC_API.G_EXCEPTION_ERROR;
7371:
7372: End If;
7373:
7374:
7394:
7395:
7396: If p_mla_id is null Then
7397:
7398: x_return_status := OKC_API.g_ret_sts_error;
7399:
7400: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_MASTER_LEASE_NUMBER');
7401:
7402: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7398: x_return_status := OKC_API.g_ret_sts_error;
7399:
7400: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_MASTER_LEASE_NUMBER');
7401:
7402: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7403:
7404: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7405:
7406: , p_token1 => 'COL_NAME'
7408: , p_token1_value => l_ak_prompt
7409:
7410: );
7411:
7412: raise OKC_API.G_EXCEPTION_ERROR;
7413:
7414: End If;
7415:
7416:
7476: );
7477:
7478:
7479:
7480: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7481:
7482: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483:
7484: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7478:
7479:
7480: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7481:
7482: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483:
7484: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7485:
7486: raise OKC_API.G_EXCEPTION_ERROR;
7480: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7481:
7482: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483:
7484: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7485:
7486: raise OKC_API.G_EXCEPTION_ERROR;
7487:
7488: End If;
7482: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483:
7484: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7485:
7486: raise OKC_API.G_EXCEPTION_ERROR;
7487:
7488: End If;
7489:
7490:
7499:
7500:
7501: If(p_customer_name is null) Then
7502:
7503: x_return_status := OKC_API.g_ret_sts_error;
7504:
7505: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
7506:
7507: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7503: x_return_status := OKC_API.g_ret_sts_error;
7504:
7505: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
7506:
7507: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7508:
7509: , p_msg_name => 'OKL_REQUIRED_VALUE'
7510:
7511: , p_token1 => 'COL_NAME'
7513: , p_token1_value => l_ak_prompt
7514:
7515: );
7516:
7517: raise OKC_API.G_EXCEPTION_ERROR;
7518:
7519: End If;
7520:
7521: okl_la_validation_util_pvt.Get_Party_Jtot_data (
7551: );
7552:
7553:
7554:
7555: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7556:
7557: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558:
7559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7553:
7554:
7555: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7556:
7557: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558:
7559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7560:
7561: raise OKC_API.G_EXCEPTION_ERROR;
7555: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7556:
7557: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558:
7559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7560:
7561: raise OKC_API.G_EXCEPTION_ERROR;
7562:
7563: End If;
7557: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7558:
7559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7560:
7561: raise OKC_API.G_EXCEPTION_ERROR;
7562:
7563: End If;
7564:
7565: End If;
7597: );
7598:
7599:
7600:
7601: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7602:
7603: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7604:
7605: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7599:
7600:
7601: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7602:
7603: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7604:
7605: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7606:
7607: raise OKC_API.G_EXCEPTION_ERROR;
7601: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7602:
7603: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7604:
7605: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7606:
7607: raise OKC_API.G_EXCEPTION_ERROR;
7608:
7609: End If; */
7603: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7604:
7605: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7606:
7607: raise OKC_API.G_EXCEPTION_ERROR;
7608:
7609: End If; */
7610:
7611: -- rebook validation
7621: close l_get_cust_csr;
7622:
7623:
7624: If not( p_customer_id1 is not null and l_orig_lse_object1_id1 is not null and l_orig_lse_object1_id1 = p_customer_id1) Then
7625: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7626: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7627: );
7628:
7629: raise OKC_API.G_EXCEPTION_ERROR;
7625: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7626: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7627: );
7628:
7629: raise OKC_API.G_EXCEPTION_ERROR;
7630: End If;
7631:
7632: End If;
7633:
7650:
7651:
7652: If p_chr_cust_acct_id is null Then
7653:
7654: x_return_status := OKC_API.g_ret_sts_error;
7655:
7656: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7657:
7658: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7654: x_return_status := OKC_API.g_ret_sts_error;
7655:
7656: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7657:
7658: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7659:
7660: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7661:
7662: , p_token1 => 'COL_NAME'
7664: , p_token1_value => l_ak_prompt
7665:
7666: );
7667:
7668: raise OKC_API.G_EXCEPTION_ERROR;
7669:
7670: End If;
7671:
7672:
7678: Else
7679:
7680: IF (l_template_type_code <> 'CONTRACT') THEN
7681: If(p_customer_acc_name is null) Then
7682: x_return_status := OKC_API.g_ret_sts_error;
7683: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7684: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7685: , p_msg_name => 'OKL_REQUIRED_VALUE'
7686: , p_token1 => 'COL_NAME'
7680: IF (l_template_type_code <> 'CONTRACT') THEN
7681: If(p_customer_acc_name is null) Then
7682: x_return_status := OKC_API.g_ret_sts_error;
7683: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7684: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7685: , p_msg_name => 'OKL_REQUIRED_VALUE'
7686: , p_token1 => 'COL_NAME'
7687: , p_token1_value => l_ak_prompt
7688: );
7685: , p_msg_name => 'OKL_REQUIRED_VALUE'
7686: , p_token1 => 'COL_NAME'
7687: , p_token1_value => l_ak_prompt
7688: );
7689: raise OKC_API.G_EXCEPTION_ERROR;
7690: End If;
7691: end if;
7692:
7693: p_chr_cust_acct_id := null;
7696: close l_chk_cust_acc_csr;
7697:
7698: IF (l_template_type_code <> 'CONTRACT') THEN
7699: If p_chr_cust_acct_id is null Then
7700: x_return_status := OKC_API.g_ret_sts_error;
7701: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7702: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7703: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7704: , p_token1 => 'COL_NAME'
7698: IF (l_template_type_code <> 'CONTRACT') THEN
7699: If p_chr_cust_acct_id is null Then
7700: x_return_status := OKC_API.g_ret_sts_error;
7701: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7702: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7703: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7704: , p_token1 => 'COL_NAME'
7705: , p_token1_value => l_ak_prompt
7706: );
7703: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7704: , p_token1 => 'COL_NAME'
7705: , p_token1_value => l_ak_prompt
7706: );
7707: raise OKC_API.G_EXCEPTION_ERROR;
7708: End If;
7709: end if;
7710: -- rebook validation
7711:
7711:
7712: If( l_re_book is not null and l_re_book = 'OKL_REBOOK') Then
7713:
7714: If not( p_chr_cust_acct_id is not null and l_orig_cust_acct_id is not null and l_orig_cust_acct_id = p_chr_cust_acct_id) Then
7715: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7716: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7717: );
7718:
7719: raise OKC_API.G_EXCEPTION_ERROR;
7715: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7716: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7717: );
7718:
7719: raise OKC_API.G_EXCEPTION_ERROR;
7720: End If;
7721:
7722: End If;
7723:
7731: fetch l_rollover_fee_csr into l_rollover_yn;
7732: close l_rollover_fee_csr;
7733:
7734: If (l_rollover_yn = 'Y') Then
7735: x_return_status := OKC_API.g_ret_sts_error;
7736: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7737: , p_msg_name => 'OKL_LLA_RQ_NO_K_TMP' -- Rollover Fee attached, cannot create teplate contract
7738: );
7739: raise OKC_API.G_EXCEPTION_ERROR;
7732: close l_rollover_fee_csr;
7733:
7734: If (l_rollover_yn = 'Y') Then
7735: x_return_status := OKC_API.g_ret_sts_error;
7736: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7737: , p_msg_name => 'OKL_LLA_RQ_NO_K_TMP' -- Rollover Fee attached, cannot create teplate contract
7738: );
7739: raise OKC_API.G_EXCEPTION_ERROR;
7740: End If;
7735: x_return_status := OKC_API.g_ret_sts_error;
7736: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7737: , p_msg_name => 'OKL_LLA_RQ_NO_K_TMP' -- Rollover Fee attached, cannot create teplate contract
7738: );
7739: raise OKC_API.G_EXCEPTION_ERROR;
7740: End If;
7741:
7742: End If;
7743:
7754: fetch l_product_csr into p_product_id,p_product_desc;
7755: close l_product_csr;
7756:
7757: If p_product_id is null Then
7758: x_return_status := OKC_API.g_ret_sts_error;
7759: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7760: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7761: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7762: , p_token1 => 'COL_NAME'
7756:
7757: If p_product_id is null Then
7758: x_return_status := OKC_API.g_ret_sts_error;
7759: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7760: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7761: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7762: , p_token1 => 'COL_NAME'
7763: , p_token1_value => l_ak_prompt
7764: );
7761: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7762: , p_token1 => 'COL_NAME'
7763: , p_token1_value => l_ak_prompt
7764: );
7765: raise OKC_API.G_EXCEPTION_ERROR;
7766: End If;
7767:
7768: End If;
7769:
7769:
7770: Else
7771:
7772: If(p_product_name is null) Then
7773: x_return_status := OKC_API.g_ret_sts_error;
7774: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7775: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7776: , p_msg_name => 'OKL_REQUIRED_VALUE'
7777: , p_token1 => 'COL_NAME'
7771:
7772: If(p_product_name is null) Then
7773: x_return_status := OKC_API.g_ret_sts_error;
7774: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7775: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7776: , p_msg_name => 'OKL_REQUIRED_VALUE'
7777: , p_token1 => 'COL_NAME'
7778: , p_token1_value => l_ak_prompt
7779: );
7776: , p_msg_name => 'OKL_REQUIRED_VALUE'
7777: , p_token1 => 'COL_NAME'
7778: , p_token1_value => l_ak_prompt
7779: );
7780: raise OKC_API.G_EXCEPTION_ERROR;
7781: End If;
7782:
7783:
7784: p_product_id := null;
7789: close l_product_csr;
7790:
7791: If p_product_id is null Then
7792:
7793: x_return_status := OKC_API.g_ret_sts_error;
7794: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7795: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7796: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7797: , p_token1 => 'COL_NAME'
7791: If p_product_id is null Then
7792:
7793: x_return_status := OKC_API.g_ret_sts_error;
7794: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7795: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7796: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7797: , p_token1 => 'COL_NAME'
7798: , p_token1_value => l_ak_prompt
7799: );
7796: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7797: , p_token1 => 'COL_NAME'
7798: , p_token1_value => l_ak_prompt
7799: );
7800: raise OKC_API.G_EXCEPTION_ERROR;
7801:
7802: End If;
7803:
7804: End If;
7815: close l_program_csr;
7816:
7817: If p_program_id is null Then
7818:
7819: x_return_status := OKC_API.g_ret_sts_error;
7820: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PROGRAM');
7821: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7822: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7823: , p_token1 => 'COL_NAME'
7817: If p_program_id is null Then
7818:
7819: x_return_status := OKC_API.g_ret_sts_error;
7820: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PROGRAM');
7821: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7822: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7823: , p_token1 => 'COL_NAME'
7824: , p_token1_value => l_ak_prompt
7825: );
7822: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7823: , p_token1 => 'COL_NAME'
7824: , p_token1_value => l_ak_prompt
7825: );
7826: raise OKC_API.G_EXCEPTION_ERROR;
7827:
7828: End If;
7829:
7830: End If;
7834: -- Currency validation
7835:
7836: If(p_currency_code is null) Then
7837:
7838: x_return_status := OKC_API.g_ret_sts_error;
7839: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7840: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7841: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7842: , p_token1 => 'COL_NAME'
7836: If(p_currency_code is null) Then
7837:
7838: x_return_status := OKC_API.g_ret_sts_error;
7839: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7840: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7841: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7842: , p_token1 => 'COL_NAME'
7843: , p_token1_value => l_ak_prompt
7844: );
7842: , p_token1 => 'COL_NAME'
7843: , p_token1_value => l_ak_prompt
7844: );
7845:
7846: raise OKC_API.G_EXCEPTION_ERROR;
7847:
7848: End If;
7849:
7850:
7855: close l_currency_csr;
7856:
7857: If l_currency_code is null Then
7858:
7859: x_return_status := OKC_API.g_ret_sts_error;
7860: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7861: OKC_API.SET_MESSAGE(
7862: p_app_name => g_app_name
7863: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7857: If l_currency_code is null Then
7858:
7859: x_return_status := OKC_API.g_ret_sts_error;
7860: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7861: OKC_API.SET_MESSAGE(
7862: p_app_name => g_app_name
7863: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7864: , p_token1 => 'COL_NAME'
7865: , p_token1_value => l_ak_prompt
7864: , p_token1 => 'COL_NAME'
7865: , p_token1_value => l_ak_prompt
7866: );
7867:
7868: raise OKC_API.G_EXCEPTION_ERROR;
7869:
7870: End If;
7871:
7872: -- creditline validation
7880: fetch l_credit_line_csr into p_credit_line_id,l_revolving_credit_yn;
7881: close l_credit_line_csr;
7882:
7883: If p_credit_line_id is null Then
7884: x_return_status := OKC_API.g_ret_sts_error;
7885: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7886: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7887: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7888: , p_token1 => 'COL_NAME'
7882:
7883: If p_credit_line_id is null Then
7884: x_return_status := OKC_API.g_ret_sts_error;
7885: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7886: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7887: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7888: , p_token1 => 'COL_NAME'
7889: , p_token1_value => l_ak_prompt
7890:
7888: , p_token1 => 'COL_NAME'
7889: , p_token1_value => l_ak_prompt
7890:
7891: );
7892: raise OKC_API.G_EXCEPTION_ERROR;
7893: End If;
7894: End If;
7895:
7896:
7932: );
7933:
7934:
7935:
7936: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7937:
7938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7939:
7940: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7934:
7935:
7936: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7937:
7938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7939:
7940: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7941:
7942: raise OKC_API.G_EXCEPTION_ERROR;
7936: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7937:
7938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7939:
7940: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7941:
7942: raise OKC_API.G_EXCEPTION_ERROR;
7943:
7944: End If;
7938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7939:
7940: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7941:
7942: raise OKC_API.G_EXCEPTION_ERROR;
7943:
7944: End If;
7945:
7946:
7950:
7951:
7952:
7953:
7954: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
7955:
7956: x_msg_data => x_msg_data);
7957:
7958: EXCEPTION
7956: x_msg_data => x_msg_data);
7957:
7958: EXCEPTION
7959:
7960: when OKC_API.G_EXCEPTION_ERROR then
7961:
7962: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7963:
7964: p_api_name => l_api_name,
7958: EXCEPTION
7959:
7960: when OKC_API.G_EXCEPTION_ERROR then
7961:
7962: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7963:
7964: p_api_name => l_api_name,
7965:
7966: p_pkg_name => g_pkg_name,
7964: p_api_name => l_api_name,
7965:
7966: p_pkg_name => g_pkg_name,
7967:
7968: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7969:
7970: x_msg_count => x_msg_count,
7971:
7972: x_msg_data => x_msg_data,
7974: p_api_type => g_api_type);
7975:
7976:
7977:
7978: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7979:
7980: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7981:
7982: p_api_name => l_api_name,
7976:
7977:
7978: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7979:
7980: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7981:
7982: p_api_name => l_api_name,
7983:
7984: p_pkg_name => g_pkg_name,
7982: p_api_name => l_api_name,
7983:
7984: p_pkg_name => g_pkg_name,
7985:
7986: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7987:
7988: x_msg_count => x_msg_count,
7989:
7990: x_msg_data => x_msg_data,
7994:
7995:
7996: when OTHERS then
7997:
7998: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7999:
8000: p_api_name => l_api_name,
8001:
8002: p_pkg_name => g_pkg_name,
8014:
8015:
8016: Procedure Validate_Service (p_api_version IN NUMBER,
8017:
8018: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8019:
8020: x_return_status OUT NOCOPY VARCHAR2,
8021:
8022: x_msg_count OUT NOCOPY NUMBER,
8092: End If;
8093:
8094:
8095:
8096: x_return_status := OKC_API.START_ACTIVITY(
8097:
8098: p_api_name => l_api_name,
8099:
8100: p_pkg_name => g_pkg_name,
8112:
8113:
8114: -- check if activity started successfully
8115:
8116: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8117:
8118: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8119:
8120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8114: -- check if activity started successfully
8115:
8116: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8117:
8118: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8119:
8120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8121:
8122: raise OKC_API.G_EXCEPTION_ERROR;
8116: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8117:
8118: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8119:
8120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8121:
8122: raise OKC_API.G_EXCEPTION_ERROR;
8123:
8124: End If;
8118: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8119:
8120: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8121:
8122: raise OKC_API.G_EXCEPTION_ERROR;
8123:
8124: End If;
8125:
8126:
8124: End If;
8125:
8126:
8127:
8128: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8129:
8130: x_msg_data => x_msg_data);
8131:
8132: EXCEPTION
8130: x_msg_data => x_msg_data);
8131:
8132: EXCEPTION
8133:
8134: when OKC_API.G_EXCEPTION_ERROR then
8135:
8136: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8137:
8138: p_api_name => l_api_name,
8132: EXCEPTION
8133:
8134: when OKC_API.G_EXCEPTION_ERROR then
8135:
8136: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8137:
8138: p_api_name => l_api_name,
8139:
8140: p_pkg_name => g_pkg_name,
8138: p_api_name => l_api_name,
8139:
8140: p_pkg_name => g_pkg_name,
8141:
8142: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8143:
8144: x_msg_count => x_msg_count,
8145:
8146: x_msg_data => x_msg_data,
8148: p_api_type => g_api_type);
8149:
8150:
8151:
8152: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8153:
8154: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8155:
8156: p_api_name => l_api_name,
8150:
8151:
8152: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8153:
8154: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8155:
8156: p_api_name => l_api_name,
8157:
8158: p_pkg_name => g_pkg_name,
8156: p_api_name => l_api_name,
8157:
8158: p_pkg_name => g_pkg_name,
8159:
8160: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8161:
8162: x_msg_count => x_msg_count,
8163:
8164: x_msg_data => x_msg_data,
8168:
8169:
8170: when OTHERS then
8171:
8172: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8173:
8174: p_api_name => l_api_name,
8175:
8176: p_pkg_name => g_pkg_name,
8188:
8189:
8190: Procedure Validate_Fee (p_api_version IN NUMBER,
8191:
8192: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8193:
8194: x_return_status OUT NOCOPY VARCHAR2,
8195:
8196: x_msg_count OUT NOCOPY NUMBER,
8266: End If;
8267:
8268:
8269:
8270: x_return_status := OKC_API.START_ACTIVITY(
8271:
8272: p_api_name => l_api_name,
8273:
8274: p_pkg_name => g_pkg_name,
8286:
8287:
8288: -- check if activity started successfully
8289:
8290: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8291:
8292: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8293:
8294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8288: -- check if activity started successfully
8289:
8290: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8291:
8292: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8293:
8294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8295:
8296: raise OKC_API.G_EXCEPTION_ERROR;
8290: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8291:
8292: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8293:
8294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8295:
8296: raise OKC_API.G_EXCEPTION_ERROR;
8297:
8298: End If;
8292: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8293:
8294: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8295:
8296: raise OKC_API.G_EXCEPTION_ERROR;
8297:
8298: End If;
8299:
8300:
8298: End If;
8299:
8300:
8301:
8302: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8303:
8304: x_msg_data => x_msg_data);
8305:
8306: EXCEPTION
8304: x_msg_data => x_msg_data);
8305:
8306: EXCEPTION
8307:
8308: when OKC_API.G_EXCEPTION_ERROR then
8309:
8310: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8311:
8312: p_api_name => l_api_name,
8306: EXCEPTION
8307:
8308: when OKC_API.G_EXCEPTION_ERROR then
8309:
8310: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8311:
8312: p_api_name => l_api_name,
8313:
8314: p_pkg_name => g_pkg_name,
8312: p_api_name => l_api_name,
8313:
8314: p_pkg_name => g_pkg_name,
8315:
8316: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8317:
8318: x_msg_count => x_msg_count,
8319:
8320: x_msg_data => x_msg_data,
8322: p_api_type => g_api_type);
8323:
8324:
8325:
8326: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8327:
8328: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8329:
8330: p_api_name => l_api_name,
8324:
8325:
8326: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8327:
8328: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8329:
8330: p_api_name => l_api_name,
8331:
8332: p_pkg_name => g_pkg_name,
8330: p_api_name => l_api_name,
8331:
8332: p_pkg_name => g_pkg_name,
8333:
8334: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8335:
8336: x_msg_count => x_msg_count,
8337:
8338: x_msg_data => x_msg_data,
8342:
8343:
8344: when OTHERS then
8345:
8346: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8347:
8348: p_api_name => l_api_name,
8349:
8350: p_pkg_name => g_pkg_name,
8362:
8363:
8364: Procedure Validate_Fee (p_api_version IN NUMBER,
8365:
8366: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8367:
8368: x_return_status OUT NOCOPY VARCHAR2,
8369:
8370: x_msg_count OUT NOCOPY NUMBER,
8408: End If;
8409:
8410:
8411:
8412: x_return_status := OKC_API.START_ACTIVITY(
8413:
8414: p_api_name => l_api_name,
8415:
8416: p_pkg_name => g_pkg_name,
8428:
8429:
8430: -- check if activity started successfully
8431:
8432: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8433:
8434: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8435:
8436: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8430: -- check if activity started successfully
8431:
8432: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8433:
8434: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8435:
8436: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8437:
8438: raise OKC_API.G_EXCEPTION_ERROR;
8432: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8433:
8434: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8435:
8436: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8437:
8438: raise OKC_API.G_EXCEPTION_ERROR;
8439:
8440: End If;
8434: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8435:
8436: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8437:
8438: raise OKC_API.G_EXCEPTION_ERROR;
8439:
8440: End If;
8441:
8442:
8444: IF ( (p_init_direct_cost is not null) and (p_init_direct_cost > p_amount)) THEN
8445:
8446:
8447:
8448: x_return_status := OKC_API.G_RET_STS_ERROR;
8449:
8450: OKC_API.SET_MESSAGE( p_app_name => g_app_name
8451:
8452: , p_msg_name => 'OKL_LLA_IDC_FEE'
8446:
8447:
8448: x_return_status := OKC_API.G_RET_STS_ERROR;
8449:
8450: OKC_API.SET_MESSAGE( p_app_name => g_app_name
8451:
8452: , p_msg_name => 'OKL_LLA_IDC_FEE'
8453:
8454: );
8452: , p_msg_name => 'OKL_LLA_IDC_FEE'
8453:
8454: );
8455:
8456: raise OKC_API.G_EXCEPTION_ERROR;
8457:
8458:
8459:
8460: END IF;
8460: END IF;
8461:
8462:
8463:
8464: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8465:
8466:
8467:
8468: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8464: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8465:
8466:
8467:
8468: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8469:
8470: x_msg_data => x_msg_data);
8471:
8472: EXCEPTION
8470: x_msg_data => x_msg_data);
8471:
8472: EXCEPTION
8473:
8474: when OKC_API.G_EXCEPTION_ERROR then
8475:
8476: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8477:
8478: p_api_name => l_api_name,
8472: EXCEPTION
8473:
8474: when OKC_API.G_EXCEPTION_ERROR then
8475:
8476: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8477:
8478: p_api_name => l_api_name,
8479:
8480: p_pkg_name => g_pkg_name,
8478: p_api_name => l_api_name,
8479:
8480: p_pkg_name => g_pkg_name,
8481:
8482: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8483:
8484: x_msg_count => x_msg_count,
8485:
8486: x_msg_data => x_msg_data,
8488: p_api_type => g_api_type);
8489:
8490:
8491:
8492: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8493:
8494: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8495:
8496: p_api_name => l_api_name,
8490:
8491:
8492: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8493:
8494: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8495:
8496: p_api_name => l_api_name,
8497:
8498: p_pkg_name => g_pkg_name,
8496: p_api_name => l_api_name,
8497:
8498: p_pkg_name => g_pkg_name,
8499:
8500: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8501:
8502: x_msg_count => x_msg_count,
8503:
8504: x_msg_data => x_msg_data,
8508:
8509:
8510: when OTHERS then
8511:
8512: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8513:
8514: p_api_name => l_api_name,
8515:
8516: p_pkg_name => g_pkg_name,
8538:
8539:
8540: PROCEDURE VALIDATE_ROLE_JTOT (p_api_version IN NUMBER,
8541:
8542: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8543:
8544: x_return_status OUT NOCOPY VARCHAR2,
8545:
8546: x_msg_count OUT NOCOPY NUMBER,
8634: BEGIN
8635:
8636:
8637:
8638: x_return_status := OKC_API.START_ACTIVITY(
8639:
8640: p_api_name => l_api_name,
8641:
8642: p_pkg_name => g_pkg_name,
8658:
8659:
8660:
8661:
8662: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8663:
8664: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8665:
8666:
8660:
8661:
8662: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8663:
8664: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8665:
8666:
8667:
8668: IF p_object_name = 'OKX_OPERUNIT' THEN
8690: CLOSE party_csr;
8691:
8692: ELSE
8693:
8694: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8695:
8696: p_msg_name => 'OKL_LLA_INVALID_OBJ',
8697:
8698: p_token1 => 'OBJECT_NAME',
8698: p_token1 => 'OBJECT_NAME',
8699:
8700: p_token1_value => p_object_name);
8701:
8702: RAISE OKC_API.G_EXCEPTION_ERROR;
8703:
8704: END IF;
8705:
8706:
8706:
8707:
8708: IF (l_exist IS NULL) THEN
8709:
8710: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8711:
8712: p_msg_name => 'OKL_LLA_INVALID_IDS',
8713:
8714: p_token1 => 'OBJECT_NAME',
8716: p_token1_value => p_object_name);
8717:
8718:
8719:
8720: RAISE OKC_API.G_EXCEPTION_ERROR;
8721:
8722: END IF;
8723:
8724:
8726: END IF;
8727:
8728:
8729:
8730: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8731:
8732:
8733:
8734: EXCEPTION
8732:
8733:
8734: EXCEPTION
8735:
8736: when OKC_API.G_EXCEPTION_ERROR then
8737:
8738: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8739:
8740: p_api_name => l_api_name,
8734: EXCEPTION
8735:
8736: when OKC_API.G_EXCEPTION_ERROR then
8737:
8738: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8739:
8740: p_api_name => l_api_name,
8741:
8742: p_pkg_name => g_pkg_name,
8740: p_api_name => l_api_name,
8741:
8742: p_pkg_name => g_pkg_name,
8743:
8744: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8745:
8746: x_msg_count => x_msg_count,
8747:
8748: x_msg_data => x_msg_data,
8748: x_msg_data => x_msg_data,
8749:
8750: p_api_type => g_api_type);
8751:
8752: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8753:
8754: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8755:
8756: p_api_name => l_api_name,
8750: p_api_type => g_api_type);
8751:
8752: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8753:
8754: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8755:
8756: p_api_name => l_api_name,
8757:
8758: p_pkg_name => g_pkg_name,
8756: p_api_name => l_api_name,
8757:
8758: p_pkg_name => g_pkg_name,
8759:
8760: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8761:
8762: x_msg_count => x_msg_count,
8763:
8764: x_msg_data => x_msg_data,
8768:
8769:
8770: when OTHERS then
8771:
8772: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8773:
8774: p_api_name => l_api_name,
8775:
8776: p_pkg_name => g_pkg_name,
8804:
8805:
8806: PROCEDURE VALIDATE_CONTACT_JTOT (p_api_version IN NUMBER,
8807:
8808: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8809:
8810: x_return_status OUT NOCOPY VARCHAR2,
8811:
8812: x_msg_count OUT NOCOPY NUMBER,
8882: BEGIN
8883:
8884:
8885:
8886: x_return_status := OKC_API.START_ACTIVITY(
8887:
8888: p_api_name => l_api_name,
8889:
8890: p_pkg_name => g_pkg_name,
8904: ---- Validate Object Name
8905:
8906:
8907:
8908: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8909:
8910: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8911:
8912:
8906:
8907:
8908: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8909:
8910: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8911:
8912:
8913:
8914: IF p_object_name = 'OKX_SALEPERS' THEN
8928: CLOSE pcontact_csr;
8929:
8930: ELSE
8931:
8932: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8933:
8934: p_msg_name => 'OKL_LLA_INVALID_OBJ',
8935:
8936: p_token1 => 'OBJECT_NAME',
8936: p_token1 => 'OBJECT_NAME',
8937:
8938: p_token1_value => p_object_name);
8939:
8940: RAISE OKC_API.G_EXCEPTION_ERROR;
8941:
8942: END IF;
8943:
8944:
8944:
8945:
8946: IF (l_exist IS NULL) THEN
8947:
8948: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8949:
8950: p_msg_name => 'OKL_LLA_INVALID_IDS',
8951:
8952: p_token1 => 'OBJECT_NAME',
8954: p_token1_value => p_object_name);
8955:
8956:
8957:
8958: RAISE OKC_API.G_EXCEPTION_ERROR;
8959:
8960: END IF;
8961:
8962:
8966:
8967:
8968:
8969:
8970: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8971:
8972:
8973:
8974: EXCEPTION
8972:
8973:
8974: EXCEPTION
8975:
8976: when OKC_API.G_EXCEPTION_ERROR then
8977:
8978: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8979:
8980: p_api_name => l_api_name,
8974: EXCEPTION
8975:
8976: when OKC_API.G_EXCEPTION_ERROR then
8977:
8978: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8979:
8980: p_api_name => l_api_name,
8981:
8982: p_pkg_name => g_pkg_name,
8980: p_api_name => l_api_name,
8981:
8982: p_pkg_name => g_pkg_name,
8983:
8984: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8985:
8986: x_msg_count => x_msg_count,
8987:
8988: x_msg_data => x_msg_data,
8988: x_msg_data => x_msg_data,
8989:
8990: p_api_type => g_api_type);
8991:
8992: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8993:
8994: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8995:
8996: p_api_name => l_api_name,
8990: p_api_type => g_api_type);
8991:
8992: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8993:
8994: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8995:
8996: p_api_name => l_api_name,
8997:
8998: p_pkg_name => g_pkg_name,
8996: p_api_name => l_api_name,
8997:
8998: p_pkg_name => g_pkg_name,
8999:
9000: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9001:
9002: x_msg_count => x_msg_count,
9003:
9004: x_msg_data => x_msg_data,
9008:
9009:
9010: when OTHERS then
9011:
9012: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9013:
9014: p_api_name => l_api_name,
9015:
9016: p_pkg_name => g_pkg_name,
9042:
9043:
9044: PROCEDURE VALIDATE_STYLE_JTOT (p_api_version IN NUMBER,
9045:
9046: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
9047:
9048: x_return_status OUT NOCOPY VARCHAR2,
9049:
9050: x_msg_count OUT NOCOPY NUMBER,
9238: BEGIN
9239:
9240:
9241:
9242: x_return_status := OKC_API.START_ACTIVITY(
9243:
9244: p_api_name => l_api_name,
9245:
9246: p_pkg_name => g_pkg_name,
9256: x_return_status => x_return_status);
9257:
9258:
9259:
9260: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
9261:
9262: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
9263:
9264:
9258:
9259:
9260: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
9261:
9262: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
9263:
9264:
9265:
9266: IF p_object_name = 'OKL_STRMTYP' THEN
9336: CLOSE ins_policy_csr;
9337:
9338: ELSE
9339:
9340: OKC_API.Set_Message(p_app_name => G_APP_NAME,
9341:
9342: p_msg_name => 'OKL_LLA_INVALID_OBJ',
9343:
9344: p_token1 => 'OBJECT_NAME',
9344: p_token1 => 'OBJECT_NAME',
9345:
9346: p_token1_value => p_object_name);
9347:
9348: RAISE OKC_API.G_EXCEPTION_ERROR;
9349:
9350: END IF;
9351:
9352:
9352:
9353:
9354: IF (l_exist IS NULL) THEN
9355:
9356: OKC_API.Set_Message(p_app_name => G_APP_NAME,
9357:
9358: p_msg_name => 'OKL_LLA_INVALID_IDS',
9359:
9360: p_token1 => 'OBJECT_NAME',
9362: p_token1_value => p_object_name);
9363:
9364:
9365:
9366: RAISE OKC_API.G_EXCEPTION_ERROR;
9367:
9368: END IF;
9369:
9370:
9372: END IF;
9373:
9374:
9375:
9376: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9377:
9378:
9379:
9380: EXCEPTION
9378:
9379:
9380: EXCEPTION
9381:
9382: when OKC_API.G_EXCEPTION_ERROR then
9383:
9384: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9385:
9386: p_api_name => l_api_name,
9380: EXCEPTION
9381:
9382: when OKC_API.G_EXCEPTION_ERROR then
9383:
9384: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9385:
9386: p_api_name => l_api_name,
9387:
9388: p_pkg_name => g_pkg_name,
9386: p_api_name => l_api_name,
9387:
9388: p_pkg_name => g_pkg_name,
9389:
9390: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9391:
9392: x_msg_count => x_msg_count,
9393:
9394: x_msg_data => x_msg_data,
9394: x_msg_data => x_msg_data,
9395:
9396: p_api_type => g_api_type);
9397:
9398: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9399:
9400: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9401:
9402: p_api_name => l_api_name,
9396: p_api_type => g_api_type);
9397:
9398: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9399:
9400: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9401:
9402: p_api_name => l_api_name,
9403:
9404: p_pkg_name => g_pkg_name,
9402: p_api_name => l_api_name,
9403:
9404: p_pkg_name => g_pkg_name,
9405:
9406: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9407:
9408: x_msg_count => x_msg_count,
9409:
9410: x_msg_data => x_msg_data,
9414:
9415:
9416: when OTHERS then
9417:
9418: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9419:
9420: p_api_name => l_api_name,
9421:
9422: p_pkg_name => g_pkg_name,
9442: -- Parameters :
9443: -- Version : 1.0
9444: -- End of comments
9445: Procedure validate_crdtln_wrng (p_api_version IN NUMBER,
9446: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
9447: x_return_status OUT NOCOPY VARCHAR2,
9448: x_msg_count OUT NOCOPY NUMBER,
9449: x_msg_data OUT NOCOPY VARCHAR2,
9450: p_chr_id IN NUMBER
9495: If okl_context.get_okc_org_id is null then
9496: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
9497: End If;
9498:
9499: x_return_status := OKC_API.START_ACTIVITY(
9500: p_api_name => l_api_name,
9501: p_pkg_name => g_pkg_name,
9502: p_init_msg_list => p_init_msg_list,
9503: l_api_version => l_api_version,
9505: p_api_type => g_api_type,
9506: x_return_status => x_return_status);
9507:
9508: -- check if activity started successfully
9509: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9510: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9512: raise OKC_API.G_EXCEPTION_ERROR;
9513: End If;
9506: x_return_status => x_return_status);
9507:
9508: -- check if activity started successfully
9509: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9510: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9512: raise OKC_API.G_EXCEPTION_ERROR;
9513: End If;
9514:
9507:
9508: -- check if activity started successfully
9509: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9510: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9512: raise OKC_API.G_EXCEPTION_ERROR;
9513: End If;
9514:
9515: -- check the contract master lease cl
9508: -- check if activity started successfully
9509: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9510: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9511: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9512: raise OKC_API.G_EXCEPTION_ERROR;
9513: End If;
9514:
9515: -- check the contract master lease cl
9516: l_mla_cl_gvr_id := null;
9525: close is_k_cl_gvr_exsts_csr;
9526:
9527: --if both exists, warning
9528: If ( l_mla_cl_gvr_id is not null and l_k_cl_gvr_id is not null) Then
9529: x_return_status := OKC_API.g_ret_sts_error;
9530: OKC_API.SET_MESSAGE( p_app_name => g_app_name
9531: , p_msg_name => 'OKL_MLA_CRDTLN'
9532: );
9533: raise OKC_API.G_EXCEPTION_ERROR;
9526:
9527: --if both exists, warning
9528: If ( l_mla_cl_gvr_id is not null and l_k_cl_gvr_id is not null) Then
9529: x_return_status := OKC_API.g_ret_sts_error;
9530: OKC_API.SET_MESSAGE( p_app_name => g_app_name
9531: , p_msg_name => 'OKL_MLA_CRDTLN'
9532: );
9533: raise OKC_API.G_EXCEPTION_ERROR;
9534: End If;
9529: x_return_status := OKC_API.g_ret_sts_error;
9530: OKC_API.SET_MESSAGE( p_app_name => g_app_name
9531: , p_msg_name => 'OKL_MLA_CRDTLN'
9532: );
9533: raise OKC_API.G_EXCEPTION_ERROR;
9534: End If;
9535:
9536: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9537:
9532: );
9533: raise OKC_API.G_EXCEPTION_ERROR;
9534: End If;
9535:
9536: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9537:
9538: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9539: x_msg_data => x_msg_data);
9540: EXCEPTION
9534: End If;
9535:
9536: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9537:
9538: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9539: x_msg_data => x_msg_data);
9540: EXCEPTION
9541: when OKC_API.G_EXCEPTION_ERROR then
9542: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9537:
9538: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9539: x_msg_data => x_msg_data);
9540: EXCEPTION
9541: when OKC_API.G_EXCEPTION_ERROR then
9542: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9543: p_api_name => l_api_name,
9544: p_pkg_name => g_pkg_name,
9545: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9538: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9539: x_msg_data => x_msg_data);
9540: EXCEPTION
9541: when OKC_API.G_EXCEPTION_ERROR then
9542: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9543: p_api_name => l_api_name,
9544: p_pkg_name => g_pkg_name,
9545: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9546: x_msg_count => x_msg_count,
9541: when OKC_API.G_EXCEPTION_ERROR then
9542: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9543: p_api_name => l_api_name,
9544: p_pkg_name => g_pkg_name,
9545: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9546: x_msg_count => x_msg_count,
9547: x_msg_data => x_msg_data,
9548: p_api_type => g_api_type);
9549:
9546: x_msg_count => x_msg_count,
9547: x_msg_data => x_msg_data,
9548: p_api_type => g_api_type);
9549:
9550: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9551: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9552: p_api_name => l_api_name,
9553: p_pkg_name => g_pkg_name,
9554: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9547: x_msg_data => x_msg_data,
9548: p_api_type => g_api_type);
9549:
9550: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9551: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9552: p_api_name => l_api_name,
9553: p_pkg_name => g_pkg_name,
9554: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9555: x_msg_count => x_msg_count,
9550: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9551: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9552: p_api_name => l_api_name,
9553: p_pkg_name => g_pkg_name,
9554: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9555: x_msg_count => x_msg_count,
9556: x_msg_data => x_msg_data,
9557: p_api_type => g_api_type);
9558:
9556: x_msg_data => x_msg_data,
9557: p_api_type => g_api_type);
9558:
9559: when OTHERS then
9560: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9561: p_api_name => l_api_name,
9562: p_pkg_name => g_pkg_name,
9563: p_exc_name => 'OTHERS',
9564: x_msg_count => x_msg_count,
9575: -- Parameters :
9576: -- Version : 1.0
9577: -- End of comments
9578: Procedure validate_crdtln_err (p_api_version IN NUMBER,
9579: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
9580: x_return_status OUT NOCOPY VARCHAR2,
9581: x_msg_count OUT NOCOPY NUMBER,
9582: x_msg_data OUT NOCOPY VARCHAR2,
9583: p_chr_id IN NUMBER
9627: If okl_context.get_okc_org_id is null then
9628: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
9629: End If;
9630:
9631: x_return_status := OKC_API.START_ACTIVITY(
9632: p_api_name => l_api_name,
9633: p_pkg_name => g_pkg_name,
9634: p_init_msg_list => p_init_msg_list,
9635: l_api_version => l_api_version,
9637: p_api_type => g_api_type,
9638: x_return_status => x_return_status);
9639:
9640: -- check if activity started successfully
9641: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9644: raise OKC_API.G_EXCEPTION_ERROR;
9645: End If;
9638: x_return_status => x_return_status);
9639:
9640: -- check if activity started successfully
9641: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9644: raise OKC_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9639:
9640: -- check if activity started successfully
9641: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9644: raise OKC_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9647: -- get contract deal type
9640: -- check if activity started successfully
9641: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9644: raise OKC_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9647: -- get contract deal type
9648: l_deal_type := null;
9673: p_mla_no => l_mla_no,
9674: p_cl_no => l_k_cl_no
9675: );
9676:
9677: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9678: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9679: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9680: raise OKC_API.G_EXCEPTION_ERROR;
9681: End If;
9674: p_cl_no => l_k_cl_no
9675: );
9676:
9677: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9678: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9679: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9680: raise OKC_API.G_EXCEPTION_ERROR;
9681: End If;
9682:
9675: );
9676:
9677: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9678: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9679: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9680: raise OKC_API.G_EXCEPTION_ERROR;
9681: End If;
9682:
9683: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9676:
9677: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9678: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9679: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9680: raise OKC_API.G_EXCEPTION_ERROR;
9681: End If;
9682:
9683: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9684:
9679: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9680: raise OKC_API.G_EXCEPTION_ERROR;
9681: End If;
9682:
9683: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9684:
9685: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9686:
9687: EXCEPTION
9681: End If;
9682:
9683: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9684:
9685: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9686:
9687: EXCEPTION
9688: when OKC_API.G_EXCEPTION_ERROR then
9689: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9684:
9685: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9686:
9687: EXCEPTION
9688: when OKC_API.G_EXCEPTION_ERROR then
9689: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9690: p_api_name => l_api_name,
9691: p_pkg_name => g_pkg_name,
9692: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9685: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9686:
9687: EXCEPTION
9688: when OKC_API.G_EXCEPTION_ERROR then
9689: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9690: p_api_name => l_api_name,
9691: p_pkg_name => g_pkg_name,
9692: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9693: x_msg_count => x_msg_count,
9688: when OKC_API.G_EXCEPTION_ERROR then
9689: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9690: p_api_name => l_api_name,
9691: p_pkg_name => g_pkg_name,
9692: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9693: x_msg_count => x_msg_count,
9694: x_msg_data => x_msg_data,
9695: p_api_type => g_api_type);
9696:
9693: x_msg_count => x_msg_count,
9694: x_msg_data => x_msg_data,
9695: p_api_type => g_api_type);
9696:
9697: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9698: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9699: p_api_name => l_api_name,
9700: p_pkg_name => g_pkg_name,
9701: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9694: x_msg_data => x_msg_data,
9695: p_api_type => g_api_type);
9696:
9697: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9698: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9699: p_api_name => l_api_name,
9700: p_pkg_name => g_pkg_name,
9701: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9702: x_msg_count => x_msg_count,
9697: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9698: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9699: p_api_name => l_api_name,
9700: p_pkg_name => g_pkg_name,
9701: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9702: x_msg_count => x_msg_count,
9703: x_msg_data => x_msg_data,
9704: p_api_type => g_api_type);
9705:
9703: x_msg_data => x_msg_data,
9704: p_api_type => g_api_type);
9705:
9706: when OTHERS then
9707: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9708: p_api_name => l_api_name,
9709: p_pkg_name => g_pkg_name,
9710: p_exc_name => 'OTHERS',
9711: x_msg_count => x_msg_count,