[Home] [Help]
272:
273:
274:
275: Procedure Get_Rule_Jtot_Metadata (p_api_version IN NUMBER,
276: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
277: x_return_status OUT NOCOPY VARCHAR2,
278: x_msg_count OUT NOCOPY NUMBER,
279: x_msg_data OUT NOCOPY VARCHAR2,
280: p_chr_id IN NUMBER,
344: x_select_clause := jtf_rule_rec.select_clause;
345: x_from_clause := jtf_rule_rec.from_clause;
346: x_where_clause := jtf_rule_rec.where_clause;
347: x_order_by_clause := jtf_rule_rec.order_by_clause;
348: If ( p_name is not null and p_name <> OKC_API.G_MISS_CHAR) then
349: select x_where_clause || decode(x_where_clause,null,null,' AND ')||
350: ' DESCRIPTION like :name'
351: into l_where_clause
352: from dual;
352: from dual;
353: x_where_clause := l_where_clause;
354: End If;
355:
356: If p_id1 is not null and p_id1 <> OKC_API.G_MISS_CHAR
357: and p_id2 is not null and p_id2 <> OKC_API.G_MISS_CHAR then
358: select x_where_clause || decode(x_where_clause,null,null,' AND ')||
359: ' ID1 = '||''''||p_id1||''''||' AND '||' ID2 = '||''''||p_id2||''''
360: into l_where_clause
353: x_where_clause := l_where_clause;
354: End If;
355:
356: If p_id1 is not null and p_id1 <> OKC_API.G_MISS_CHAR
357: and p_id2 is not null and p_id2 <> OKC_API.G_MISS_CHAR then
358: select x_where_clause || decode(x_where_clause,null,null,' AND ')||
359: ' ID1 = '||''''||p_id1||''''||' AND '||' ID2 = '||''''||p_id2||''''
360: into l_where_clause
361: from dual;
373: -- attached to a contract
374: --End of Comments
375:
376: Procedure Validate_Rule (p_api_version IN NUMBER,
377: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
378: x_return_status OUT NOCOPY VARCHAR2,
379: x_msg_count OUT NOCOPY NUMBER,
380: x_msg_data OUT NOCOPY VARCHAR2,
381: p_chr_id IN NUMBER,
425: l_api_version CONSTANT NUMBER := 1.0;
426:
427:
428:
429: --x_return_status := OKC_API.G_RET_STS_SUCCESS;
430:
431:
432:
433: ERR_MSG VARCHAR2(50) := 'DEFAULT';
473: -- call START_ACTIVITY to create savepoint, check compatibility
474:
475: -- and initialize message list
476:
477: x_return_status := OKC_API.START_ACTIVITY(
478: p_api_name => l_api_name,
479: p_pkg_name => g_pkg_name,
480: p_init_msg_list => p_init_msg_list,
481: l_api_version => l_api_version,
484: x_return_status => x_return_status);
485:
486:
487:
488: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
489: Then
490: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
491: raise OKC_API.G_EXCEPTION_ERROR;
492: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
486:
487:
488: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
489: Then
490: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
491: raise OKC_API.G_EXCEPTION_ERROR;
492: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
493: Then
494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
487:
488: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
489: Then
490: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
491: raise OKC_API.G_EXCEPTION_ERROR;
492: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
493: Then
494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
495: raise OKC_API.G_EXCEPTION_ERROR;
488: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
489: Then
490: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
491: raise OKC_API.G_EXCEPTION_ERROR;
492: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
493: Then
494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
495: raise OKC_API.G_EXCEPTION_ERROR;
496:
490: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
491: raise OKC_API.G_EXCEPTION_ERROR;
492: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
493: Then
494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
495: raise OKC_API.G_EXCEPTION_ERROR;
496:
497: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
498: Then
491: raise OKC_API.G_EXCEPTION_ERROR;
492: ElsIf ( p_rgd_code is null or p_rgd_code = OKC_API.G_MISS_CHAR)
493: Then
494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
495: raise OKC_API.G_EXCEPTION_ERROR;
496:
497: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
498: Then
499: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
493: Then
494: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rgd_code');
495: raise OKC_API.G_EXCEPTION_ERROR;
496:
497: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
498: Then
499: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
500: raise OKC_API.G_EXCEPTION_ERROR;
501: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
495: raise OKC_API.G_EXCEPTION_ERROR;
496:
497: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
498: Then
499: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
500: raise OKC_API.G_EXCEPTION_ERROR;
501: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
502: Then
503: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
496:
497: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
498: Then
499: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
500: raise OKC_API.G_EXCEPTION_ERROR;
501: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
502: Then
503: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
504: raise OKC_API.G_EXCEPTION_ERROR;
497: ElsIf ( p_rdf_code is null or p_rdf_code = OKC_API.G_MISS_CHAR)
498: Then
499: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
500: raise OKC_API.G_EXCEPTION_ERROR;
501: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
502: Then
503: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
504: raise OKC_API.G_EXCEPTION_ERROR;
505: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
499: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rdf_code');
500: raise OKC_API.G_EXCEPTION_ERROR;
501: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
502: Then
503: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
504: raise OKC_API.G_EXCEPTION_ERROR;
505: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: End If;
507:
500: raise OKC_API.G_EXCEPTION_ERROR;
501: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
502: Then
503: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
504: raise OKC_API.G_EXCEPTION_ERROR;
505: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: End If;
507:
508: Get_Rule_Jtot_Metadata ( p_api_version => p_api_version ,
501: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
502: Then
503: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
504: raise OKC_API.G_EXCEPTION_ERROR;
505: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: End If;
507:
508: Get_Rule_Jtot_Metadata ( p_api_version => p_api_version ,
509: p_init_msg_list => p_init_msg_list ,
537:
538: Fetch rule_curs into l_id1,l_id2,l_name,l_description;
539: If rule_curs%NotFound Then
540:
541: x_return_status := OKC_API.g_ret_sts_error;
542: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
543: OKC_API.SET_MESSAGE( p_app_name => g_app_name
544: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
545: , p_token1 => 'COL_NAME'
539: If rule_curs%NotFound Then
540:
541: x_return_status := OKC_API.g_ret_sts_error;
542: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
543: OKC_API.SET_MESSAGE( p_app_name => g_app_name
544: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
545: , p_token1 => 'COL_NAME'
546: , p_token1_value => l_ak_prompt
547: );
545: , p_token1 => 'COL_NAME'
546: , p_token1_value => l_ak_prompt
547: );
548:
549: raise OKC_API.G_EXCEPTION_ERROR;
550:
551: End If;
552:
553:
556:
557: Fetch rule_curs into l_id1,l_id2,l_name,l_description;
558:
559: If rule_curs%Found Then
560: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
561: x_return_status := OKC_API.g_ret_sts_error;
562: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
563: OKC_API.SET_MESSAGE( p_app_name => g_app_name
564: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
557: Fetch rule_curs into l_id1,l_id2,l_name,l_description;
558:
559: If rule_curs%Found Then
560: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
561: x_return_status := OKC_API.g_ret_sts_error;
562: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
563: OKC_API.SET_MESSAGE( p_app_name => g_app_name
564: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
565: , p_token1 => 'COL_NAME'
559: If rule_curs%Found Then
560: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
561: x_return_status := OKC_API.g_ret_sts_error;
562: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
563: OKC_API.SET_MESSAGE( p_app_name => g_app_name
564: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
565: , p_token1 => 'COL_NAME'
566: , p_token1_value => l_ak_prompt
567: );
564: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
565: , p_token1 => 'COL_NAME'
566: , p_token1_value => l_ak_prompt
567: );
568: raise OKC_API.G_EXCEPTION_ERROR;
569: End If;
570:
571: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
572: x_return_status := OKC_API.g_ret_sts_error;
567: );
568: raise OKC_API.G_EXCEPTION_ERROR;
569: End If;
570:
571: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
572: x_return_status := OKC_API.g_ret_sts_error;
573: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
575: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
568: raise OKC_API.G_EXCEPTION_ERROR;
569: End If;
570:
571: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
572: x_return_status := OKC_API.g_ret_sts_error;
573: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
575: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
576: , p_token1 => 'COL_NAME'
570:
571: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
572: x_return_status := OKC_API.g_ret_sts_error;
573: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
575: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
576: , p_token1 => 'COL_NAME'
577: , p_token1_value => l_ak_prompt
578: );
576: , p_token1 => 'COL_NAME'
577: , p_token1_value => l_ak_prompt
578: );
579:
580: raise OKC_API.G_EXCEPTION_ERROR;
581:
582: End If;
583:
584:
603: End If;
604:
605: If row_count <> 1 Then
606:
607: x_return_status := OKC_API.g_ret_sts_error;
608:
609: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
610:
611: OKC_API.SET_MESSAGE( p_app_name => g_app_name
607: x_return_status := OKC_API.g_ret_sts_error;
608:
609: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
610:
611: OKC_API.SET_MESSAGE( p_app_name => g_app_name
612:
613: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
614:
615: , p_token1 => 'COL_NAME'
617: , p_token1_value => l_ak_prompt
618:
619: );
620:
621: raise OKC_API.G_EXCEPTION_ERROR;
622:
623: End If;
624:
625:
637: Close rule_curs;
638:
639: /*
640:
641: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
642:
643:
644:
645: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
641: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
642:
643:
644:
645: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
646:
647: OPEN check_rule_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
648:
649: FETCH check_rule_csr INTO row_count;
651: CLOSE check_rule_csr;
652:
653: If row_count = 1 Then
654:
655: x_return_status := OKC_API.g_ret_sts_error;
656:
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
658:
659: raise OKC_API.G_EXCEPTION_ERROR;
653: If row_count = 1 Then
654:
655: x_return_status := OKC_API.g_ret_sts_error;
656:
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
658:
659: raise OKC_API.G_EXCEPTION_ERROR;
660:
661: End If;
655: x_return_status := OKC_API.g_ret_sts_error;
656:
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
658:
659: raise OKC_API.G_EXCEPTION_ERROR;
660:
661: End If;
662:
663: Else
679: CLOSE check_rule_csr;
680:
681: If row_count = 1 Then
682:
683: x_return_status := OKC_API.g_ret_sts_error;
684:
685: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
686:
687: raise OKC_API.G_EXCEPTION_ERROR;
681: If row_count = 1 Then
682:
683: x_return_status := OKC_API.g_ret_sts_error;
684:
685: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
686:
687: raise OKC_API.G_EXCEPTION_ERROR;
688:
689: End If;
683: x_return_status := OKC_API.g_ret_sts_error;
684:
685: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
686:
687: raise OKC_API.G_EXCEPTION_ERROR;
688:
689: End If;
690:
691: End If;
697: End If;
698:
699: */
700:
701: x_return_status := OKC_API.G_RET_STS_SUCCESS;
702: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
703:
704:
705: EXCEPTION
698:
699: */
700:
701: x_return_status := OKC_API.G_RET_STS_SUCCESS;
702: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
703:
704:
705: EXCEPTION
706:
703:
704:
705: EXCEPTION
706:
707: when OKC_API.G_EXCEPTION_ERROR then
708: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
709: p_api_name => l_api_name,
710: p_pkg_name => g_pkg_name,
711: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
704:
705: EXCEPTION
706:
707: when OKC_API.G_EXCEPTION_ERROR then
708: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
709: p_api_name => l_api_name,
710: p_pkg_name => g_pkg_name,
711: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
712: x_msg_count => x_msg_count,
707: when OKC_API.G_EXCEPTION_ERROR then
708: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
709: p_api_name => l_api_name,
710: p_pkg_name => g_pkg_name,
711: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
712: x_msg_count => x_msg_count,
713: x_msg_data => x_msg_data,
714: p_api_type => g_api_type);
715:
716: IF rule_curs%ISOPEN THEN
717: CLOSE rule_curs;
718: END IF;
719:
720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
721:
722: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
723: p_api_name => l_api_name,
724: p_pkg_name => g_pkg_name,
718: END IF;
719:
720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
721:
722: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
723: p_api_name => l_api_name,
724: p_pkg_name => g_pkg_name,
725: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
726: x_msg_count => x_msg_count,
721:
722: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
723: p_api_name => l_api_name,
724: p_pkg_name => g_pkg_name,
725: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
726: x_msg_count => x_msg_count,
727: x_msg_data => x_msg_data,
728: p_api_type => g_api_type);
729:
728: p_api_type => g_api_type);
729:
730: when OTHERS then
731:
732: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
733: p_api_name => l_api_name,
734: p_pkg_name => g_pkg_name,
735: p_exc_name => 'OTHERS',
736: x_msg_count => x_msg_count,
782:
783: l_exists := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_chrv_rec.legal_entity_id) ;
784:
785: IF (l_exists<>1) THEN
786: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LEGAL_ENTITY_ID');
787: RAISE OKL_API.G_EXCEPTION_ERROR;
788: END IF;
789:
790: IF p_mode = 'UPD'
836:
837: --End of Comments
838:
839: Procedure Validate_Contact (p_api_version IN NUMBER,
840: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
841: x_return_status OUT NOCOPY VARCHAR2,
842: x_msg_count OUT NOCOPY NUMBER,
843: x_msg_data OUT NOCOPY VARCHAR2,
844: p_chr_id IN NUMBER,
892: l_api_version CONSTANT NUMBER := 1.0;
893:
894:
895:
896: --x_return_status := OKC_API.G_RET_STS_SUCCESS;
897:
898:
899:
900: ERR_MSG VARCHAR2(50) := 'DEFAULT';
952: -- call START_ACTIVITY to create savepoint, check compatibility
953:
954: -- and initialize message list
955:
956: x_return_status := OKC_API.START_ACTIVITY(
957:
958: p_api_name => l_api_name,
959:
960: p_pkg_name => g_pkg_name,
970: x_return_status => x_return_status);
971:
972:
973:
974: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
975:
976: Then
977:
978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
974: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
975:
976: Then
977:
978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
979:
980: raise OKC_API.G_EXCEPTION_ERROR;
981:
982: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
976: Then
977:
978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
979:
980: raise OKC_API.G_EXCEPTION_ERROR;
981:
982: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
983:
984: Then
978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
979:
980: raise OKC_API.G_EXCEPTION_ERROR;
981:
982: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
983:
984: Then
985:
986: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
982: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
983:
984: Then
985:
986: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
987:
988: raise OKC_API.G_EXCEPTION_ERROR;
989:
990: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
984: Then
985:
986: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
987:
988: raise OKC_API.G_EXCEPTION_ERROR;
989:
990: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
991:
992: Then
986: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
987:
988: raise OKC_API.G_EXCEPTION_ERROR;
989:
990: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
991:
992: Then
993:
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
990: ElsIf ( p_cro_code is null or p_cro_code = OKC_API.G_MISS_CHAR)
991:
992: Then
993:
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
995:
996: raise OKC_API.G_EXCEPTION_ERROR;
997:
998: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
992: Then
993:
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
995:
996: raise OKC_API.G_EXCEPTION_ERROR;
997:
998: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
999:
1000: Then
994: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cro_code');
995:
996: raise OKC_API.G_EXCEPTION_ERROR;
997:
998: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
999:
1000: Then
1001:
1002: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
998: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
999:
1000: Then
1001:
1002: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1003:
1004: raise OKC_API.G_EXCEPTION_ERROR;
1005:
1006: End If;
1000: Then
1001:
1002: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1003:
1004: raise OKC_API.G_EXCEPTION_ERROR;
1005:
1006: End If;
1007:
1008:
1024: Fetch okx_salepers_csr into l_id1,l_id2,l_name,l_description;
1025:
1026: If okx_salepers_csr%NotFound Then
1027:
1028: x_return_status := OKC_API.g_ret_sts_error;
1029:
1030: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1031:
1032: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1028: x_return_status := OKC_API.g_ret_sts_error;
1029:
1030: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1031:
1032: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1033:
1034: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1035:
1036: , p_token1 => 'COL_NAME'
1040:
1041:
1042: );
1043:
1044: raise OKC_API.G_EXCEPTION_ERROR;
1045:
1046: End If;
1047:
1048: l_id11 := l_id1;
1053: Fetch okx_salepers_csr into l_id1,l_id2,l_name,l_description;
1054:
1055: If okx_salepers_csr%Found Then
1056:
1057: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1058:
1059: x_return_status := OKC_API.g_ret_sts_error;
1060:
1061: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1055: If okx_salepers_csr%Found Then
1056:
1057: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1058:
1059: x_return_status := OKC_API.g_ret_sts_error;
1060:
1061: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1062:
1063: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1059: x_return_status := OKC_API.g_ret_sts_error;
1060:
1061: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1062:
1063: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1064:
1065: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1066:
1067: , p_token1 => 'COL_NAME'
1069: , p_token1_value => l_ak_prompt
1070:
1071: );
1072:
1073: raise OKC_API.G_EXCEPTION_ERROR;
1074:
1075: End If;
1076:
1077: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1073: raise OKC_API.G_EXCEPTION_ERROR;
1074:
1075: End If;
1076:
1077: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1078:
1079: x_return_status := OKC_API.g_ret_sts_error;
1080:
1081: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1075: End If;
1076:
1077: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1078:
1079: x_return_status := OKC_API.g_ret_sts_error;
1080:
1081: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1082:
1083: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1079: x_return_status := OKC_API.g_ret_sts_error;
1080:
1081: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1082:
1083: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1084:
1085: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1086:
1087: , p_token1 => 'COL_NAME'
1089: , p_token1_value => l_ak_prompt
1090:
1091: );
1092:
1093: raise OKC_API.G_EXCEPTION_ERROR;
1094:
1095: End If;
1096:
1097: If (l_id11 = p_id1 and l_id22 = p_id2) Then
1122: End If;
1123:
1124: If row_count <> 1 Then
1125:
1126: x_return_status := OKC_API.g_ret_sts_error;
1127:
1128: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1129:
1130: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1126: x_return_status := OKC_API.g_ret_sts_error;
1127:
1128: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1129:
1130: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1131:
1132: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1133:
1134: , p_token1 => 'COL_NAME'
1136: , p_token1_value => l_ak_prompt
1137:
1138: );
1139:
1140: raise OKC_API.G_EXCEPTION_ERROR;
1141:
1142: End If;
1143:
1144: End If;
1157: Fetch okx_pcontact_csr into l_id1,l_id2,l_name,l_description;
1158:
1159: If okx_pcontact_csr%NotFound Then
1160:
1161: x_return_status := OKC_API.g_ret_sts_error;
1162:
1163: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1164:
1165: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1161: x_return_status := OKC_API.g_ret_sts_error;
1162:
1163: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1164:
1165: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1166:
1167: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1168:
1169: , p_token1 => 'COL_NAME'
1173:
1174:
1175: );
1176:
1177: raise OKC_API.G_EXCEPTION_ERROR;
1178:
1179: End If;
1180:
1181: l_id11 := l_id1;
1185: Fetch okx_pcontact_csr into l_id1,l_id2,l_name,l_description;
1186:
1187: If okx_pcontact_csr%Found Then
1188:
1189: If ( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1190:
1191: x_return_status := OKC_API.g_ret_sts_error;
1192:
1193: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1187: If okx_pcontact_csr%Found Then
1188:
1189: If ( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1190:
1191: x_return_status := OKC_API.g_ret_sts_error;
1192:
1193: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1194:
1195: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1191: x_return_status := OKC_API.g_ret_sts_error;
1192:
1193: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1194:
1195: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1196:
1197: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1198:
1199: , p_token1 => 'COL_NAME'
1201: , p_token1_value => l_ak_prompt
1202:
1203: );
1204:
1205: raise OKC_API.G_EXCEPTION_ERROR;
1206:
1207: End If;
1208:
1209: If (p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1205: raise OKC_API.G_EXCEPTION_ERROR;
1206:
1207: End If;
1208:
1209: If (p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1210:
1211: x_return_status := OKC_API.g_ret_sts_error;
1212:
1213: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1207: End If;
1208:
1209: If (p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1210:
1211: x_return_status := OKC_API.g_ret_sts_error;
1212:
1213: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1214:
1215: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1211: x_return_status := OKC_API.g_ret_sts_error;
1212:
1213: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1214:
1215: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1216:
1217: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1218:
1219: , p_token1 => 'COL_NAME'
1221: , p_token1_value => l_ak_prompt
1222:
1223: );
1224:
1225: raise OKC_API.G_EXCEPTION_ERROR;
1226:
1227: End If;
1228:
1229: If (l_id11 = p_id1 and l_id22 = p_id2) Then
1256:
1257:
1258: If row_count <> 1 Then
1259:
1260: x_return_status := OKC_API.g_ret_sts_error;
1261:
1262: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1263:
1264: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1260: x_return_status := OKC_API.g_ret_sts_error;
1261:
1262: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1263:
1264: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1265:
1266: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1267:
1268: , p_token1 => 'COL_NAME'
1270: , p_token1_value => l_ak_prompt
1271:
1272: );
1273:
1274: raise OKC_API.G_EXCEPTION_ERROR;
1275:
1276: End If;
1277:
1278: End If;
1285:
1286: END IF;
1287:
1288:
1289: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1290:
1291: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1292:
1293:
1287:
1288:
1289: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1290:
1291: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1292:
1293:
1294:
1295: EXCEPTION
1293:
1294:
1295: EXCEPTION
1296:
1297: when OKC_API.G_EXCEPTION_ERROR then
1298:
1299: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1300:
1301: p_api_name => l_api_name,
1295: EXCEPTION
1296:
1297: when OKC_API.G_EXCEPTION_ERROR then
1298:
1299: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1300:
1301: p_api_name => l_api_name,
1302:
1303: p_pkg_name => g_pkg_name,
1301: p_api_name => l_api_name,
1302:
1303: p_pkg_name => g_pkg_name,
1304:
1305: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1306:
1307: x_msg_count => x_msg_count,
1308:
1309: x_msg_data => x_msg_data,
1320:
1321: END IF;
1322:
1323:
1324: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1325:
1326: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1327:
1328: p_api_name => l_api_name,
1322:
1323:
1324: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1325:
1326: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1327:
1328: p_api_name => l_api_name,
1329:
1330: p_pkg_name => g_pkg_name,
1328: p_api_name => l_api_name,
1329:
1330: p_pkg_name => g_pkg_name,
1331:
1332: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1333:
1334: x_msg_count => x_msg_count,
1335:
1336: x_msg_data => x_msg_data,
1349:
1350:
1351: When OTHERS then
1352:
1353: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1354:
1355: p_api_name => l_api_name,
1356:
1357: p_pkg_name => g_pkg_name,
1390:
1391: --End of Comments
1392:
1393: Procedure Validate_Party (p_api_version IN NUMBER,
1394: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
1395: x_return_status OUT NOCOPY VARCHAR2,
1396: x_msg_count OUT NOCOPY NUMBER,
1397: x_msg_data OUT NOCOPY VARCHAR2,
1398: p_chr_id IN NUMBER,
1444: l_api_name CONSTANT VARCHAR2(30) := 'okl_la_jtot_extract';
1445: l_api_version CONSTANT NUMBER := 1.0;
1446:
1447:
1448: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
1449:
1450:
1451:
1452: ERR_MSG VARCHAR2(50) := 'DEFAULT';
1484:
1485: -- call START_ACTIVITY to create savepoint, check compatibility
1486: -- and initialize message list
1487:
1488: x_return_status := OKC_API.START_ACTIVITY(
1489: p_api_name => l_api_name,
1490: p_pkg_name => g_pkg_name,
1491: p_init_msg_list => p_init_msg_list,
1492: l_api_version => l_api_version,
1495: x_return_status => x_return_status);
1496:
1497:
1498:
1499: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1500: Then
1501: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1497:
1498:
1499: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1500: Then
1501: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1504: Then
1505: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1498:
1499: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1500: Then
1501: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1504: Then
1505: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1506: raise OKC_API.G_EXCEPTION_ERROR;
1499: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1500: Then
1501: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1504: Then
1505: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1501: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1504: Then
1505: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1508: Then
1509: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1504: Then
1505: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1508: Then
1509: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1510: raise OKC_API.G_EXCEPTION_ERROR;
1503: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1504: Then
1505: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1508: Then
1509: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1510: raise OKC_API.G_EXCEPTION_ERROR;
1511: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1508: Then
1509: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1510: raise OKC_API.G_EXCEPTION_ERROR;
1511: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1512: End If;
1513:
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1508: Then
1509: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1510: raise OKC_API.G_EXCEPTION_ERROR;
1511: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1512: End If;
1513:
1514:
1507: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1508: Then
1509: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1510: raise OKC_API.G_EXCEPTION_ERROR;
1511: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1512: End If;
1513:
1514:
1515:
1532:
1533: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1534:
1535: If okx_party_csr%NotFound Then
1536: x_return_status := OKC_API.g_ret_sts_error;
1537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1538: raise OKC_API.G_EXCEPTION_ERROR;
1539: End If;
1540:
1533: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1534:
1535: If okx_party_csr%NotFound Then
1536: x_return_status := OKC_API.g_ret_sts_error;
1537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1538: raise OKC_API.G_EXCEPTION_ERROR;
1539: End If;
1540:
1541: l_id11 := l_id1;
1534:
1535: If okx_party_csr%NotFound Then
1536: x_return_status := OKC_API.g_ret_sts_error;
1537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1538: raise OKC_API.G_EXCEPTION_ERROR;
1539: End If;
1540:
1541: l_id11 := l_id1;
1542: l_id22 := l_id2;
1548:
1549: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1550: If okx_party_csr%Found Then
1551:
1552: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1553: x_return_status := OKC_API.g_ret_sts_error;
1554: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556:
1549: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1550: If okx_party_csr%Found Then
1551:
1552: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1553: x_return_status := OKC_API.g_ret_sts_error;
1554: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556:
1557: End If;
1550: If okx_party_csr%Found Then
1551:
1552: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1553: x_return_status := OKC_API.g_ret_sts_error;
1554: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556:
1557: End If;
1558:
1551:
1552: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1553: x_return_status := OKC_API.g_ret_sts_error;
1554: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556:
1557: End If;
1558:
1559: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556:
1557: End If;
1558:
1559: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1560: x_return_status := OKC_API.g_ret_sts_error;
1561: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1562: raise OKC_API.G_EXCEPTION_ERROR;
1563: End If;
1556:
1557: End If;
1558:
1559: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1560: x_return_status := OKC_API.g_ret_sts_error;
1561: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1562: raise OKC_API.G_EXCEPTION_ERROR;
1563: End If;
1564:
1557: End If;
1558:
1559: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1560: x_return_status := OKC_API.g_ret_sts_error;
1561: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1562: raise OKC_API.G_EXCEPTION_ERROR;
1563: End If;
1564:
1565: Loop
1558:
1559: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1560: x_return_status := OKC_API.g_ret_sts_error;
1561: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1562: raise OKC_API.G_EXCEPTION_ERROR;
1563: End If;
1564:
1565: Loop
1566:
1574: Exit When okx_party_csr%NotFound;
1575: End Loop;
1576:
1577: If row_count <> 1 Then
1578: x_return_status := OKC_API.g_ret_sts_error;
1579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1580: raise OKC_API.G_EXCEPTION_ERROR;
1581: End If;
1582:
1575: End Loop;
1576:
1577: If row_count <> 1 Then
1578: x_return_status := OKC_API.g_ret_sts_error;
1579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1580: raise OKC_API.G_EXCEPTION_ERROR;
1581: End If;
1582:
1583: End If;
1576:
1577: If row_count <> 1 Then
1578: x_return_status := OKC_API.g_ret_sts_error;
1579: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1580: raise OKC_API.G_EXCEPTION_ERROR;
1581: End If;
1582:
1583: End If;
1584:
1607:
1608: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1609:
1610: If okx_operunit_csr%NotFound Then
1611: x_return_status := OKC_API.g_ret_sts_error;
1612: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1613: raise OKC_API.G_EXCEPTION_ERROR;
1614: End If;
1615:
1608: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1609:
1610: If okx_operunit_csr%NotFound Then
1611: x_return_status := OKC_API.g_ret_sts_error;
1612: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1613: raise OKC_API.G_EXCEPTION_ERROR;
1614: End If;
1615:
1616:
1609:
1610: If okx_operunit_csr%NotFound Then
1611: x_return_status := OKC_API.g_ret_sts_error;
1612: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1613: raise OKC_API.G_EXCEPTION_ERROR;
1614: End If;
1615:
1616:
1617: l_id11 := l_id1;
1621: null;
1622: Else
1623: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1624: If okx_operunit_csr%Found Then
1625: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1626: x_return_status := OKC_API.g_ret_sts_error;
1627: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1622: Else
1623: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1624: If okx_operunit_csr%Found Then
1625: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1626: x_return_status := OKC_API.g_ret_sts_error;
1627: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1623: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1624: If okx_operunit_csr%Found Then
1625: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1626: x_return_status := OKC_API.g_ret_sts_error;
1627: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1631: x_return_status := OKC_API.g_ret_sts_error;
1624: If okx_operunit_csr%Found Then
1625: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1626: x_return_status := OKC_API.g_ret_sts_error;
1627: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1631: x_return_status := OKC_API.g_ret_sts_error;
1632: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1626: x_return_status := OKC_API.g_ret_sts_error;
1627: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1631: x_return_status := OKC_API.g_ret_sts_error;
1632: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1633: raise OKC_API.G_EXCEPTION_ERROR;
1634: End If;
1627: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1631: x_return_status := OKC_API.g_ret_sts_error;
1632: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1633: raise OKC_API.G_EXCEPTION_ERROR;
1634: End If;
1635: Loop
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1631: x_return_status := OKC_API.g_ret_sts_error;
1632: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1633: raise OKC_API.G_EXCEPTION_ERROR;
1634: End If;
1635: Loop
1636: If(l_id1 = p_id1 and l_id2 = p_id2) Then
1629: End If;
1630: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1631: x_return_status := OKC_API.g_ret_sts_error;
1632: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1633: raise OKC_API.G_EXCEPTION_ERROR;
1634: End If;
1635: Loop
1636: If(l_id1 = p_id1 and l_id2 = p_id2) Then
1637: l_id11 := l_id1;
1643: Exit When okx_operunit_csr%NotFound;
1644: End Loop;
1645:
1646: If row_count <> 1 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_NO_DATA_FOUND');
1649: raise OKC_API.G_EXCEPTION_ERROR;
1650: End If;
1651:
1644: End Loop;
1645:
1646: If row_count <> 1 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_NO_DATA_FOUND');
1649: raise OKC_API.G_EXCEPTION_ERROR;
1650: End If;
1651:
1652: End If;
1645:
1646: If row_count <> 1 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_NO_DATA_FOUND');
1649: raise OKC_API.G_EXCEPTION_ERROR;
1650: End If;
1651:
1652: End If;
1653:
1676:
1677: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1678:
1679: If okx_vendor_csr%NotFound Then
1680: x_return_status := OKC_API.g_ret_sts_error;
1681: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1682: raise OKC_API.G_EXCEPTION_ERROR;
1683: End If;
1684:
1677: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1678:
1679: If okx_vendor_csr%NotFound Then
1680: x_return_status := OKC_API.g_ret_sts_error;
1681: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1682: raise OKC_API.G_EXCEPTION_ERROR;
1683: End If;
1684:
1685: l_id11 := l_id1;
1678:
1679: If okx_vendor_csr%NotFound Then
1680: x_return_status := OKC_API.g_ret_sts_error;
1681: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1682: raise OKC_API.G_EXCEPTION_ERROR;
1683: End If;
1684:
1685: l_id11 := l_id1;
1686: l_id22 := l_id2;
1689: null;
1690: Else
1691: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1692: If okx_vendor_csr%Found Then
1693: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1694: x_return_status := OKC_API.g_ret_sts_error;
1695: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1696: raise OKC_API.G_EXCEPTION_ERROR;
1697: End If;
1690: Else
1691: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1692: If okx_vendor_csr%Found Then
1693: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1694: x_return_status := OKC_API.g_ret_sts_error;
1695: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1696: raise OKC_API.G_EXCEPTION_ERROR;
1697: End If;
1698:
1691: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1692: If okx_vendor_csr%Found Then
1693: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1694: x_return_status := OKC_API.g_ret_sts_error;
1695: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1696: raise OKC_API.G_EXCEPTION_ERROR;
1697: End If;
1698:
1699: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1692: If okx_vendor_csr%Found Then
1693: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1694: x_return_status := OKC_API.g_ret_sts_error;
1695: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1696: raise OKC_API.G_EXCEPTION_ERROR;
1697: End If;
1698:
1699: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1700: x_return_status := OKC_API.g_ret_sts_error;
1695: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1696: raise OKC_API.G_EXCEPTION_ERROR;
1697: End If;
1698:
1699: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1700: x_return_status := OKC_API.g_ret_sts_error;
1701: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1702: raise OKC_API.G_EXCEPTION_ERROR;
1703: End If;
1696: raise OKC_API.G_EXCEPTION_ERROR;
1697: End If;
1698:
1699: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1700: x_return_status := OKC_API.g_ret_sts_error;
1701: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1702: raise OKC_API.G_EXCEPTION_ERROR;
1703: End If;
1704:
1697: End If;
1698:
1699: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1700: x_return_status := OKC_API.g_ret_sts_error;
1701: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1702: raise OKC_API.G_EXCEPTION_ERROR;
1703: End If;
1704:
1705: Loop
1698:
1699: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1700: x_return_status := OKC_API.g_ret_sts_error;
1701: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_MULTIPLE_DATA_FOUND');
1702: raise OKC_API.G_EXCEPTION_ERROR;
1703: End If;
1704:
1705: Loop
1706:
1715: Exit When okx_vendor_csr%NotFound;
1716: End Loop;
1717:
1718: If row_count <> 1 Then
1719: x_return_status := OKC_API.g_ret_sts_error;
1720: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1721: raise OKC_API.G_EXCEPTION_ERROR;
1722: End If;
1723:
1716: End Loop;
1717:
1718: If row_count <> 1 Then
1719: x_return_status := OKC_API.g_ret_sts_error;
1720: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1721: raise OKC_API.G_EXCEPTION_ERROR;
1722: End If;
1723:
1724: End If;
1717:
1718: If row_count <> 1 Then
1719: x_return_status := OKC_API.g_ret_sts_error;
1720: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_NO_DATA_FOUND');
1721: raise OKC_API.G_EXCEPTION_ERROR;
1722: End If;
1723:
1724: End If;
1725:
1731: Close okx_vendor_csr;
1732:
1733: END IF;
1734:
1735: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
1736: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
1737: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
1738: FETCH check_party_csr INTO row_count;
1739: CLOSE check_party_csr;
1732:
1733: END IF;
1734:
1735: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
1736: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
1737: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
1738: FETCH check_party_csr INTO row_count;
1739: CLOSE check_party_csr;
1740:
1738: FETCH check_party_csr INTO row_count;
1739: CLOSE check_party_csr;
1740:
1741: If row_count = 1 Then
1742: x_return_status := OKC_API.g_ret_sts_error;
1743: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1744: raise OKC_API.G_EXCEPTION_ERROR;
1745: End If;
1746:
1739: CLOSE check_party_csr;
1740:
1741: If row_count = 1 Then
1742: x_return_status := OKC_API.g_ret_sts_error;
1743: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1744: raise OKC_API.G_EXCEPTION_ERROR;
1745: End If;
1746:
1747: Else
1740:
1741: If row_count = 1 Then
1742: x_return_status := OKC_API.g_ret_sts_error;
1743: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1744: raise OKC_API.G_EXCEPTION_ERROR;
1745: End If;
1746:
1747: Else
1748:
1755: FETCH check_party_csr INTO row_count;
1756: CLOSE check_party_csr;
1757:
1758: If row_count = 1 Then
1759: x_return_status := OKC_API.g_ret_sts_error;
1760: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1761: raise OKC_API.G_EXCEPTION_ERROR;
1762: End If;
1763: End If;
1756: CLOSE check_party_csr;
1757:
1758: If row_count = 1 Then
1759: x_return_status := OKC_API.g_ret_sts_error;
1760: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1761: raise OKC_API.G_EXCEPTION_ERROR;
1762: End If;
1763: End If;
1764:
1757:
1758: If row_count = 1 Then
1759: x_return_status := OKC_API.g_ret_sts_error;
1760: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_name_already_exists');
1761: raise OKC_API.G_EXCEPTION_ERROR;
1762: End If;
1763: End If;
1764:
1765: End If;
1766: End If;
1767:
1768: --p_object_code := l_object_code ;
1769:
1770: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1771:
1772: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1773:
1774: EXCEPTION
1768: --p_object_code := l_object_code ;
1769:
1770: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1771:
1772: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1773:
1774: EXCEPTION
1775:
1776: WHEN OKC_API.G_EXCEPTION_ERROR then
1772: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1773:
1774: EXCEPTION
1775:
1776: WHEN OKC_API.G_EXCEPTION_ERROR then
1777:
1778: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1779: p_api_name => l_api_name,
1780: p_pkg_name => g_pkg_name,
1774: EXCEPTION
1775:
1776: WHEN OKC_API.G_EXCEPTION_ERROR then
1777:
1778: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1779: p_api_name => l_api_name,
1780: p_pkg_name => g_pkg_name,
1781: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1782: x_msg_count => x_msg_count,
1777:
1778: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1779: p_api_name => l_api_name,
1780: p_pkg_name => g_pkg_name,
1781: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1782: x_msg_count => x_msg_count,
1783: x_msg_data => x_msg_data,
1784: p_api_type => g_api_type);
1785:
1795: CLOSE okx_vendor_csr;
1796: END IF;
1797:
1798:
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1800: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1801: p_api_name => l_api_name,
1802: p_pkg_name => g_pkg_name,
1803: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1796: END IF;
1797:
1798:
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1800: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1801: p_api_name => l_api_name,
1802: p_pkg_name => g_pkg_name,
1803: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1804: x_msg_count => x_msg_count,
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1800: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1801: p_api_name => l_api_name,
1802: p_pkg_name => g_pkg_name,
1803: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1804: x_msg_count => x_msg_count,
1805: x_msg_data => x_msg_data,
1806: p_api_type => g_api_type);
1807:
1818: END IF;
1819:
1820:
1821: WHEN OTHERS then
1822: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1823: p_api_name => l_api_name,
1824: p_pkg_name => g_pkg_name,
1825: p_exc_name => 'OTHERS',
1826: x_msg_count => x_msg_count,
1857:
1858: --End of Comments
1859:
1860: Procedure Get_Party_Jtot_data (p_api_version IN NUMBER,
1861: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
1862: x_return_status OUT NOCOPY VARCHAR2,
1863: x_msg_count OUT NOCOPY NUMBER,
1864: x_msg_data OUT NOCOPY VARCHAR2,
1865: p_scs_code IN VARCHAR2,
1900:
1901: l_api_name CONSTANT VARCHAR2(30) := 'Get_Party_Jtot_data';
1902: l_api_version CONSTANT NUMBER := 1.0;
1903:
1904: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
1905:
1906: ERR_MSG VARCHAR2(50) := 'DEFAULT';
1907:
1908: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
1910: Begin
1911:
1912: -- call START_ACTIVITY to create savepoint, check compatibility
1913: -- and initialize message list
1914: x_return_status := OKC_API.START_ACTIVITY(
1915: p_api_name => l_api_name,
1916: p_pkg_name => g_pkg_name,
1917: p_init_msg_list => p_init_msg_list,
1918: l_api_version => l_api_version,
1919: p_api_version => p_api_version,
1920: p_api_type => g_api_type,
1921: x_return_status => x_return_status);
1922:
1923: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1924: Then
1925: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1926: raise OKC_API.G_EXCEPTION_ERROR;
1927: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1921: x_return_status => x_return_status);
1922:
1923: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1924: Then
1925: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1926: raise OKC_API.G_EXCEPTION_ERROR;
1927: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1928: Then
1929: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1922:
1923: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1924: Then
1925: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1926: raise OKC_API.G_EXCEPTION_ERROR;
1927: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1928: Then
1929: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1930: raise OKC_API.G_EXCEPTION_ERROR;
1923: If ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
1924: Then
1925: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1926: raise OKC_API.G_EXCEPTION_ERROR;
1927: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1928: Then
1929: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1930: raise OKC_API.G_EXCEPTION_ERROR;
1931: End If;
1925: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
1926: raise OKC_API.G_EXCEPTION_ERROR;
1927: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1928: Then
1929: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1930: raise OKC_API.G_EXCEPTION_ERROR;
1931: End If;
1932:
1933: -- Added by kthiruva 23-Sep-2003 Bug No.3156265
1926: raise OKC_API.G_EXCEPTION_ERROR;
1927: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
1928: Then
1929: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
1930: raise OKC_API.G_EXCEPTION_ERROR;
1931: End If;
1932:
1933: -- Added by kthiruva 23-Sep-2003 Bug No.3156265
1934:
1952:
1953: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1954:
1955: If okx_party_csr%NotFound Then
1956: x_return_status := OKC_API.g_ret_sts_error;
1957: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1958: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1959: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1960: , p_token1 => 'COL_NAME'
1954:
1955: If okx_party_csr%NotFound Then
1956: x_return_status := OKC_API.g_ret_sts_error;
1957: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1958: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1959: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
1960: , p_token1 => 'COL_NAME'
1961: , p_token1_value => l_ak_prompt
1962: );
1960: , p_token1 => 'COL_NAME'
1961: , p_token1_value => l_ak_prompt
1962: );
1963:
1964: raise OKC_API.G_EXCEPTION_ERROR;
1965: End If;
1966:
1967:
1968: l_id11 := l_id1;
1973: null;
1974: ELSE
1975: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1976: IF okx_party_csr%Found Then
1977: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1978: x_return_status := OKC_API.g_ret_sts_error;
1979: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1980: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1981: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1974: ELSE
1975: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
1976: IF okx_party_csr%Found Then
1977: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1978: x_return_status := OKC_API.g_ret_sts_error;
1979: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1980: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1981: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1982: , p_token1 => 'COL_NAME'
1976: IF okx_party_csr%Found Then
1977: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1978: x_return_status := OKC_API.g_ret_sts_error;
1979: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1980: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1981: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1982: , p_token1 => 'COL_NAME'
1983: , p_token1_value => l_ak_prompt
1984: );
1982: , p_token1 => 'COL_NAME'
1983: , p_token1_value => l_ak_prompt
1984: );
1985:
1986: raise OKC_API.G_EXCEPTION_ERROR;
1987: End If;
1988:
1989: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1990: x_return_status := OKC_API.g_ret_sts_error;
1985:
1986: raise OKC_API.G_EXCEPTION_ERROR;
1987: End If;
1988:
1989: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1990: x_return_status := OKC_API.g_ret_sts_error;
1991: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1992: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1993: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1986: raise OKC_API.G_EXCEPTION_ERROR;
1987: End If;
1988:
1989: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1990: x_return_status := OKC_API.g_ret_sts_error;
1991: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1992: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1993: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1994: , p_token1 => 'COL_NAME'
1988:
1989: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1990: x_return_status := OKC_API.g_ret_sts_error;
1991: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
1992: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1993: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
1994: , p_token1 => 'COL_NAME'
1995: , p_token1_value => l_ak_prompt
1996: );
1994: , p_token1 => 'COL_NAME'
1995: , p_token1_value => l_ak_prompt
1996: );
1997:
1998: raise OKC_API.G_EXCEPTION_ERROR;
1999:
2000: End If;
2001:
2002: If(l_id11 = p_id1 and l_id22 = p_id2) Then
2014: End Loop;
2015: End If;
2016:
2017: If row_count <> 1 Then
2018: x_return_status := OKC_API.g_ret_sts_error;
2019: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2020: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2021: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2022: , p_token1 => 'COL_NAME'
2016:
2017: If row_count <> 1 Then
2018: x_return_status := OKC_API.g_ret_sts_error;
2019: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2020: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2021: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2022: , p_token1 => 'COL_NAME'
2023: , p_token1_value => l_ak_prompt
2024: );
2022: , p_token1 => 'COL_NAME'
2023: , p_token1_value => l_ak_prompt
2024: );
2025:
2026: raise OKC_API.G_EXCEPTION_ERROR;
2027: End If;
2028:
2029: End If;
2030:
2055:
2056: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
2057:
2058: If okx_operunit_csr%NotFound Then
2059: x_return_status := OKC_API.g_ret_sts_error;
2060: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2061: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2062: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2063: , p_token1 => 'COL_NAME'
2057:
2058: If okx_operunit_csr%NotFound Then
2059: x_return_status := OKC_API.g_ret_sts_error;
2060: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2061: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2062: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2063: , p_token1 => 'COL_NAME'
2064: , p_token1_value => l_ak_prompt
2065: );
2063: , p_token1 => 'COL_NAME'
2064: , p_token1_value => l_ak_prompt
2065: );
2066:
2067: raise OKC_API.G_EXCEPTION_ERROR;
2068: End If;
2069:
2070: l_id11 := l_id1;
2071: l_id22 := l_id2;
2074: null;
2075: Else
2076: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
2077: If okx_operunit_csr%Found Then
2078: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2079: x_return_status := OKC_API.g_ret_sts_error;
2080: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2081: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2082: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2075: Else
2076: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
2077: If okx_operunit_csr%Found Then
2078: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2079: x_return_status := OKC_API.g_ret_sts_error;
2080: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2081: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2082: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2083: , p_token1 => 'COL_NAME'
2077: If okx_operunit_csr%Found Then
2078: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2079: x_return_status := OKC_API.g_ret_sts_error;
2080: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2081: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2082: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2083: , p_token1 => 'COL_NAME'
2084: , p_token1_value => l_ak_prompt );
2085:
2082: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2083: , p_token1 => 'COL_NAME'
2084: , p_token1_value => l_ak_prompt );
2085:
2086: raise OKC_API.G_EXCEPTION_ERROR;
2087:
2088: End If;
2089:
2090: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2086: raise OKC_API.G_EXCEPTION_ERROR;
2087:
2088: End If;
2089:
2090: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2091: x_return_status := OKC_API.g_ret_sts_error;
2092: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2093: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2094: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2087:
2088: End If;
2089:
2090: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2091: x_return_status := OKC_API.g_ret_sts_error;
2092: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2093: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2094: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2095: , p_token1 => 'COL_NAME'
2089:
2090: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2091: x_return_status := OKC_API.g_ret_sts_error;
2092: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2093: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2094: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2095: , p_token1 => 'COL_NAME'
2096: , p_token1_value => l_ak_prompt );
2097:
2094: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2095: , p_token1 => 'COL_NAME'
2096: , p_token1_value => l_ak_prompt );
2097:
2098: raise OKC_API.G_EXCEPTION_ERROR;
2099:
2100: End If;
2101:
2102: If(l_id11 = p_id1 and l_id22 = p_id2) Then
2114: End Loop;
2115: End If;
2116:
2117: If row_count <> 1 Then
2118: x_return_status := OKC_API.g_ret_sts_error;
2119: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2120: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2121: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2122: , p_token1 => 'COL_NAME'
2116:
2117: If row_count <> 1 Then
2118: x_return_status := OKC_API.g_ret_sts_error;
2119: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2120: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2121: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2122: , p_token1 => 'COL_NAME'
2123: , p_token1_value => l_ak_prompt);
2124:
2121: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2122: , p_token1 => 'COL_NAME'
2123: , p_token1_value => l_ak_prompt);
2124:
2125: raise OKC_API.G_EXCEPTION_ERROR;
2126:
2127: End If;
2128:
2129: End If;
2154:
2155: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
2156:
2157: If okx_vendor_csr%NotFound Then
2158: x_return_status := OKC_API.g_ret_sts_error;
2159: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2160: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2161: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2162: , p_token1 => 'COL_NAME'
2156:
2157: If okx_vendor_csr%NotFound Then
2158: x_return_status := OKC_API.g_ret_sts_error;
2159: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2160: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2161: , p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2162: , p_token1 => 'COL_NAME'
2163: , p_token1_value => l_ak_prompt
2164: );
2162: , p_token1 => 'COL_NAME'
2163: , p_token1_value => l_ak_prompt
2164: );
2165:
2166: raise OKC_API.G_EXCEPTION_ERROR;
2167: End If;
2168:
2169: l_id11 := l_id1;
2170: l_id22 := l_id2;
2173: null;
2174: Else
2175: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
2176: If okx_vendor_csr%Found Then
2177: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2178: x_return_status := OKC_API.g_ret_sts_error;
2179: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2180: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2181: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2174: Else
2175: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
2176: If okx_vendor_csr%Found Then
2177: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2178: x_return_status := OKC_API.g_ret_sts_error;
2179: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2180: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2181: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2182: , p_token1 => 'COL_NAME'
2176: If okx_vendor_csr%Found Then
2177: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2178: x_return_status := OKC_API.g_ret_sts_error;
2179: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2180: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2181: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2182: , p_token1 => 'COL_NAME'
2183: , p_token1_value => l_ak_prompt
2184: );
2182: , p_token1 => 'COL_NAME'
2183: , p_token1_value => l_ak_prompt
2184: );
2185:
2186: raise OKC_API.G_EXCEPTION_ERROR;
2187:
2188: End If;
2189:
2190: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2186: raise OKC_API.G_EXCEPTION_ERROR;
2187:
2188: End If;
2189:
2190: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2191: x_return_status := OKC_API.g_ret_sts_error;
2192: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2193: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2194: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2187:
2188: End If;
2189:
2190: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2191: x_return_status := OKC_API.g_ret_sts_error;
2192: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2193: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2194: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2195: , p_token1 => 'COL_NAME'
2189:
2190: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2191: x_return_status := OKC_API.g_ret_sts_error;
2192: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2193: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2194: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2195: , p_token1 => 'COL_NAME'
2196: , p_token1_value => l_ak_prompt);
2197:
2194: , p_msg_name => 'OKL_LLA_DUP_LOV_VALUES'
2195: , p_token1 => 'COL_NAME'
2196: , p_token1_value => l_ak_prompt);
2197:
2198: raise OKC_API.G_EXCEPTION_ERROR;
2199:
2200: End If;
2201:
2202: If(l_id11 = p_id1 and l_id22 = p_id2) Then
2215: End Loop;
2216: End If;
2217:
2218: If row_count <> 1 Then
2219: x_return_status := OKC_API.g_ret_sts_error;
2220: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2221: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2222: ,p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2223: ,p_token1 => 'COL_NAME'
2217:
2218: If row_count <> 1 Then
2219: x_return_status := OKC_API.g_ret_sts_error;
2220: l_ak_prompt := GET_AK_PROMPT(p_ak_region, p_ak_attribute);
2221: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2222: ,p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2223: ,p_token1 => 'COL_NAME'
2224: , p_token1_value => l_ak_prompt);
2225:
2222: ,p_msg_name => 'OKL_LLA_NO_DATA_FOUND'
2223: ,p_token1 => 'COL_NAME'
2224: , p_token1_value => l_ak_prompt);
2225:
2226: raise OKC_API.G_EXCEPTION_ERROR;
2227:
2228: End If;
2229:
2230: End If;
2239: END IF;
2240:
2241: p_object_code := l_object_code;
2242:
2243: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2244:
2245: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2246:
2247: EXCEPTION
2241: p_object_code := l_object_code;
2242:
2243: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2244:
2245: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2246:
2247: EXCEPTION
2248:
2249: when OKC_API.G_EXCEPTION_ERROR then
2245: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2246:
2247: EXCEPTION
2248:
2249: when OKC_API.G_EXCEPTION_ERROR then
2250: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2251: p_api_name => l_api_name,
2252: p_pkg_name => g_pkg_name,
2253: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2246:
2247: EXCEPTION
2248:
2249: when OKC_API.G_EXCEPTION_ERROR then
2250: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2251: p_api_name => l_api_name,
2252: p_pkg_name => g_pkg_name,
2253: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2254: x_msg_count => x_msg_count,
2249: when OKC_API.G_EXCEPTION_ERROR then
2250: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2251: p_api_name => l_api_name,
2252: p_pkg_name => g_pkg_name,
2253: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2254: x_msg_count => x_msg_count,
2255: x_msg_data => x_msg_data,
2256: p_api_type => g_api_type);
2257:
2266: IF okx_vendor_csr%ISOPEN THEN
2267: CLOSE okx_vendor_csr;
2268: END IF;
2269:
2270: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2271: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2272: p_api_name => l_api_name,
2273: p_pkg_name => g_pkg_name,
2274: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2267: CLOSE okx_vendor_csr;
2268: END IF;
2269:
2270: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2271: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2272: p_api_name => l_api_name,
2273: p_pkg_name => g_pkg_name,
2274: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2275: x_msg_count => x_msg_count,
2270: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2271: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2272: p_api_name => l_api_name,
2273: p_pkg_name => g_pkg_name,
2274: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2275: x_msg_count => x_msg_count,
2276: x_msg_data => x_msg_data,
2277: p_api_type => g_api_type);
2278:
2289: END IF;
2290:
2291:
2292: when OTHERS then
2293: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2294: p_api_name => l_api_name,
2295: p_pkg_name => g_pkg_name,
2296: p_exc_name => 'OTHERS',
2297: x_msg_count => x_msg_count,
2318: -- attached to a contract
2319: --End of Comments
2320:
2321: Procedure Validate_Link_Asset (p_api_version IN NUMBER,
2322: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
2323: x_return_status OUT NOCOPY VARCHAR2,
2324: x_msg_count OUT NOCOPY NUMBER,
2325: x_msg_data OUT NOCOPY VARCHAR2,
2326: p_chr_id IN NUMBER,
2366:
2367:
2368: l_api_name CONSTANT VARCHAR2(30) := 'okl_la_jtot_extract';
2369: l_api_version CONSTANT NUMBER := 1.0;
2370: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2371:
2372: -- Cursor to fetch the lty_code
2373: CURSOR get_lty_code_csr(p_chr_id NUMBER,
2374: p_cle_id NUMBER) IS
2396: -- call START_ACTIVITY to create savepoint, check compatibility
2397:
2398: -- and initialize message list
2399:
2400: l_return_status := OKC_API.START_ACTIVITY(
2401: p_api_name => l_api_name,
2402: p_pkg_name => g_pkg_name,
2403: p_init_msg_list => p_init_msg_list,
2404: l_api_version => l_api_version,
2407: x_return_status => x_return_status);
2408:
2409:
2410:
2411: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
2412: Then
2413: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2414: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2415: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2409:
2410:
2411: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
2412: Then
2413: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2414: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2415: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416:
2417: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2411: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
2412: Then
2413: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2414: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2415: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416:
2417: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2418: Then
2419: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2413: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2414: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2415: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416:
2417: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2418: Then
2419: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2420: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2415: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2416:
2417: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2418: Then
2419: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2420: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2422:
2423: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2417: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
2418: Then
2419: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2420: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2422:
2423: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2424: Then
2425: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2419: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2420: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2422:
2423: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2424: Then
2425: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2426: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2427: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2422:
2423: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2424: Then
2425: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2426: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2427: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: End If;
2429:
2423: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
2424: Then
2425: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2426: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2427: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: End If;
2429:
2430:
2431: --Added by kthiruva 23-Sep-2003 Bug No.3156265
2434: OPEN get_lty_code_csr(p_chr_id ,
2435: p_parent_cle_id );
2436: FETCH get_lty_code_csr INTO l_lty_code;
2437: If get_lty_code_csr%NotFound Then
2438: x_return_status := OKC_API.g_ret_sts_error;
2439: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2440: raise OKC_API.G_EXCEPTION_ERROR;
2441: End If;
2442: CLOSE get_lty_code_csr;
2435: p_parent_cle_id );
2436: FETCH get_lty_code_csr INTO l_lty_code;
2437: If get_lty_code_csr%NotFound Then
2438: x_return_status := OKC_API.g_ret_sts_error;
2439: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2440: raise OKC_API.G_EXCEPTION_ERROR;
2441: End If;
2442: CLOSE get_lty_code_csr;
2443:
2436: FETCH get_lty_code_csr INTO l_lty_code;
2437: If get_lty_code_csr%NotFound Then
2438: x_return_status := OKC_API.g_ret_sts_error;
2439: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2440: raise OKC_API.G_EXCEPTION_ERROR;
2441: End If;
2442: CLOSE get_lty_code_csr;
2443:
2444:
2456:
2457: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2458:
2459: IF okl_strmtyp_csr%NotFound THEN
2460: x_return_status := OKC_API.g_ret_sts_error;
2461: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2462: raise OKC_API.G_EXCEPTION_ERROR;
2463: END IF;
2464:
2457: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2458:
2459: IF okl_strmtyp_csr%NotFound THEN
2460: x_return_status := OKC_API.g_ret_sts_error;
2461: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2462: raise OKC_API.G_EXCEPTION_ERROR;
2463: END IF;
2464:
2465: l_id11 := l_id1;
2458:
2459: IF okl_strmtyp_csr%NotFound THEN
2460: x_return_status := OKC_API.g_ret_sts_error;
2461: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2462: raise OKC_API.G_EXCEPTION_ERROR;
2463: END IF;
2464:
2465: l_id11 := l_id1;
2466: l_id22 := l_id2;
2466: l_id22 := l_id2;
2467:
2468: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2469: If okl_strmtyp_csr%Found Then
2470: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2471: x_return_status := OKC_API.g_ret_sts_error;
2472: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2473: raise OKC_API.G_EXCEPTION_ERROR;
2474: End If;
2467:
2468: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2469: If okl_strmtyp_csr%Found Then
2470: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2471: x_return_status := OKC_API.g_ret_sts_error;
2472: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2473: raise OKC_API.G_EXCEPTION_ERROR;
2474: End If;
2475:
2468: FETCH okl_strmtyp_csr INTO l_id1,l_id2,l_name,l_description;
2469: If okl_strmtyp_csr%Found Then
2470: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2471: x_return_status := OKC_API.g_ret_sts_error;
2472: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2473: raise OKC_API.G_EXCEPTION_ERROR;
2474: End If;
2475:
2476: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2469: If okl_strmtyp_csr%Found Then
2470: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2471: x_return_status := OKC_API.g_ret_sts_error;
2472: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2473: raise OKC_API.G_EXCEPTION_ERROR;
2474: End If;
2475:
2476: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2477: x_return_status := OKC_API.g_ret_sts_error;
2472: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2473: raise OKC_API.G_EXCEPTION_ERROR;
2474: End If;
2475:
2476: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2477: x_return_status := OKC_API.g_ret_sts_error;
2478: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2479: raise OKC_API.G_EXCEPTION_ERROR;
2480: End If;
2473: raise OKC_API.G_EXCEPTION_ERROR;
2474: End If;
2475:
2476: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2477: x_return_status := OKC_API.g_ret_sts_error;
2478: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2479: raise OKC_API.G_EXCEPTION_ERROR;
2480: End If;
2481:
2474: End If;
2475:
2476: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2477: x_return_status := OKC_API.g_ret_sts_error;
2478: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2479: raise OKC_API.G_EXCEPTION_ERROR;
2480: End If;
2481:
2482: Loop
2475:
2476: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2477: x_return_status := OKC_API.g_ret_sts_error;
2478: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2479: raise OKC_API.G_EXCEPTION_ERROR;
2480: End If;
2481:
2482: Loop
2483:
2493:
2494: End Loop;
2495:
2496: If row_count <> 1 Then
2497: x_return_status := OKC_API.g_ret_sts_error;
2498: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2499: raise OKC_API.G_EXCEPTION_ERROR;
2500: End If;
2501: End If;
2494: End Loop;
2495:
2496: If row_count <> 1 Then
2497: x_return_status := OKC_API.g_ret_sts_error;
2498: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2499: raise OKC_API.G_EXCEPTION_ERROR;
2500: End If;
2501: End If;
2502:
2495:
2496: If row_count <> 1 Then
2497: x_return_status := OKC_API.g_ret_sts_error;
2498: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2499: raise OKC_API.G_EXCEPTION_ERROR;
2500: End If;
2501: End If;
2502:
2503: p_id1 := l_id11;
2521:
2522: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2523:
2524: IF okl_usage_csr%NotFound THEN
2525: x_return_status := OKC_API.g_ret_sts_error;
2526: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2527: raise OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2529:
2522: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2523:
2524: IF okl_usage_csr%NotFound THEN
2525: x_return_status := OKC_API.g_ret_sts_error;
2526: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2527: raise OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2529:
2530: l_id11 := l_id1;
2523:
2524: IF okl_usage_csr%NotFound THEN
2525: x_return_status := OKC_API.g_ret_sts_error;
2526: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2527: raise OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2529:
2530: l_id11 := l_id1;
2531: l_id22 := l_id2;
2531: l_id22 := l_id2;
2532:
2533: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2534: If okl_usage_csr%Found Then
2535: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2536: x_return_status := OKC_API.g_ret_sts_error;
2537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2538: raise OKC_API.G_EXCEPTION_ERROR;
2539: End If;
2532:
2533: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2534: If okl_usage_csr%Found Then
2535: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2536: x_return_status := OKC_API.g_ret_sts_error;
2537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2538: raise OKC_API.G_EXCEPTION_ERROR;
2539: End If;
2540:
2533: FETCH okl_usage_csr INTO l_id1,l_id2,l_name,l_description;
2534: If okl_usage_csr%Found Then
2535: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2536: x_return_status := OKC_API.g_ret_sts_error;
2537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2538: raise OKC_API.G_EXCEPTION_ERROR;
2539: End If;
2540:
2541: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2534: If okl_usage_csr%Found Then
2535: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2536: x_return_status := OKC_API.g_ret_sts_error;
2537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2538: raise OKC_API.G_EXCEPTION_ERROR;
2539: End If;
2540:
2541: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2542: x_return_status := OKC_API.g_ret_sts_error;
2537: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2538: raise OKC_API.G_EXCEPTION_ERROR;
2539: End If;
2540:
2541: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2542: x_return_status := OKC_API.g_ret_sts_error;
2543: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2544: raise OKC_API.G_EXCEPTION_ERROR;
2545: End If;
2538: raise OKC_API.G_EXCEPTION_ERROR;
2539: End If;
2540:
2541: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2542: x_return_status := OKC_API.g_ret_sts_error;
2543: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2544: raise OKC_API.G_EXCEPTION_ERROR;
2545: End If;
2546:
2539: End If;
2540:
2541: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2542: x_return_status := OKC_API.g_ret_sts_error;
2543: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2544: raise OKC_API.G_EXCEPTION_ERROR;
2545: End If;
2546:
2547: Loop
2540:
2541: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2542: x_return_status := OKC_API.g_ret_sts_error;
2543: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2544: raise OKC_API.G_EXCEPTION_ERROR;
2545: End If;
2546:
2547: Loop
2548:
2558:
2559: End Loop;
2560:
2561: If row_count <> 1 Then
2562: x_return_status := OKC_API.g_ret_sts_error;
2563: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2564: raise OKC_API.G_EXCEPTION_ERROR;
2565: End If;
2566: End If;
2559: End Loop;
2560:
2561: If row_count <> 1 Then
2562: x_return_status := OKC_API.g_ret_sts_error;
2563: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2564: raise OKC_API.G_EXCEPTION_ERROR;
2565: End If;
2566: End If;
2567:
2560:
2561: If row_count <> 1 Then
2562: x_return_status := OKC_API.g_ret_sts_error;
2563: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2564: raise OKC_API.G_EXCEPTION_ERROR;
2565: End If;
2566: End If;
2567:
2568: p_id1 := l_id11;
2596:
2597:
2598: IF okx_asset_csr%NotFound THEN
2599:
2600: x_return_status := OKC_API.g_ret_sts_error;
2601:
2602: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2603:
2604: raise OKC_API.G_EXCEPTION_ERROR;
2598: IF okx_asset_csr%NotFound THEN
2599:
2600: x_return_status := OKC_API.g_ret_sts_error;
2601:
2602: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2603:
2604: raise OKC_API.G_EXCEPTION_ERROR;
2605:
2606:
2600: x_return_status := OKC_API.g_ret_sts_error;
2601:
2602: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2603:
2604: raise OKC_API.G_EXCEPTION_ERROR;
2605:
2606:
2607: END IF;
2608:
2618: If okx_asset_csr%Found Then
2619:
2620:
2621:
2622: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2623:
2624: x_return_status := OKC_API.g_ret_sts_error;
2625:
2626: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2620:
2621:
2622: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2623:
2624: x_return_status := OKC_API.g_ret_sts_error;
2625:
2626: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2627:
2628: raise OKC_API.G_EXCEPTION_ERROR;
2622: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2623:
2624: x_return_status := OKC_API.g_ret_sts_error;
2625:
2626: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2627:
2628: raise OKC_API.G_EXCEPTION_ERROR;
2629:
2630: End If;
2624: x_return_status := OKC_API.g_ret_sts_error;
2625:
2626: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2627:
2628: raise OKC_API.G_EXCEPTION_ERROR;
2629:
2630: End If;
2631:
2632: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2628: raise OKC_API.G_EXCEPTION_ERROR;
2629:
2630: End If;
2631:
2632: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2633:
2634: x_return_status := OKC_API.g_ret_sts_error;
2635:
2636: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2630: End If;
2631:
2632: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2633:
2634: x_return_status := OKC_API.g_ret_sts_error;
2635:
2636: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2637:
2638: raise OKC_API.G_EXCEPTION_ERROR;
2632: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2633:
2634: x_return_status := OKC_API.g_ret_sts_error;
2635:
2636: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2637:
2638: raise OKC_API.G_EXCEPTION_ERROR;
2639:
2640: End If;
2634: x_return_status := OKC_API.g_ret_sts_error;
2635:
2636: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2637:
2638: raise OKC_API.G_EXCEPTION_ERROR;
2639:
2640: End If;
2641:
2642:
2666:
2667:
2668: If row_count <> 1 Then
2669:
2670: x_return_status := OKC_API.g_ret_sts_error;
2671:
2672: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2673:
2674: raise OKC_API.G_EXCEPTION_ERROR;
2668: If row_count <> 1 Then
2669:
2670: x_return_status := OKC_API.g_ret_sts_error;
2671:
2672: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2673:
2674: raise OKC_API.G_EXCEPTION_ERROR;
2675:
2676: End If;
2670: x_return_status := OKC_API.g_ret_sts_error;
2671:
2672: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2673:
2674: raise OKC_API.G_EXCEPTION_ERROR;
2675:
2676: End If;
2677:
2678:
2714:
2715:
2716: IF okx_covasst_csr%NotFound THEN
2717:
2718: x_return_status := OKC_API.g_ret_sts_error;
2719:
2720: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2721:
2722: raise OKC_API.G_EXCEPTION_ERROR;
2716: IF okx_covasst_csr%NotFound THEN
2717:
2718: x_return_status := OKC_API.g_ret_sts_error;
2719:
2720: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2721:
2722: raise OKC_API.G_EXCEPTION_ERROR;
2723:
2724:
2718: x_return_status := OKC_API.g_ret_sts_error;
2719:
2720: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2721:
2722: raise OKC_API.G_EXCEPTION_ERROR;
2723:
2724:
2725: END IF;
2726:
2736: If okx_covasst_csr%Found Then
2737:
2738:
2739:
2740: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2741:
2742: x_return_status := OKC_API.g_ret_sts_error;
2743:
2744: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2738:
2739:
2740: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2741:
2742: x_return_status := OKC_API.g_ret_sts_error;
2743:
2744: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2745:
2746: raise OKC_API.G_EXCEPTION_ERROR;
2740: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2741:
2742: x_return_status := OKC_API.g_ret_sts_error;
2743:
2744: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2745:
2746: raise OKC_API.G_EXCEPTION_ERROR;
2747:
2748: End If;
2742: x_return_status := OKC_API.g_ret_sts_error;
2743:
2744: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2745:
2746: raise OKC_API.G_EXCEPTION_ERROR;
2747:
2748: End If;
2749:
2750: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2746: raise OKC_API.G_EXCEPTION_ERROR;
2747:
2748: End If;
2749:
2750: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2751:
2752: x_return_status := OKC_API.g_ret_sts_error;
2753:
2754: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2748: End If;
2749:
2750: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2751:
2752: x_return_status := OKC_API.g_ret_sts_error;
2753:
2754: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2755:
2756: raise OKC_API.G_EXCEPTION_ERROR;
2750: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2751:
2752: x_return_status := OKC_API.g_ret_sts_error;
2753:
2754: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2755:
2756: raise OKC_API.G_EXCEPTION_ERROR;
2757:
2758: End If;
2752: x_return_status := OKC_API.g_ret_sts_error;
2753:
2754: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2755:
2756: raise OKC_API.G_EXCEPTION_ERROR;
2757:
2758: End If;
2759:
2760:
2784:
2785:
2786: If row_count <> 1 Then
2787:
2788: x_return_status := OKC_API.g_ret_sts_error;
2789:
2790: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2791:
2792: raise OKC_API.G_EXCEPTION_ERROR;
2786: If row_count <> 1 Then
2787:
2788: x_return_status := OKC_API.g_ret_sts_error;
2789:
2790: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2791:
2792: raise OKC_API.G_EXCEPTION_ERROR;
2793:
2794: End If;
2788: x_return_status := OKC_API.g_ret_sts_error;
2789:
2790: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2791:
2792: raise OKC_API.G_EXCEPTION_ERROR;
2793:
2794: End If;
2795:
2796:
2832:
2833:
2834: IF okx_ib_item_csr%NotFound THEN
2835:
2836: x_return_status := OKC_API.g_ret_sts_error;
2837:
2838: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2839:
2840: raise OKC_API.G_EXCEPTION_ERROR;
2834: IF okx_ib_item_csr%NotFound THEN
2835:
2836: x_return_status := OKC_API.g_ret_sts_error;
2837:
2838: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2839:
2840: raise OKC_API.G_EXCEPTION_ERROR;
2841:
2842:
2836: x_return_status := OKC_API.g_ret_sts_error;
2837:
2838: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2839:
2840: raise OKC_API.G_EXCEPTION_ERROR;
2841:
2842:
2843: END IF;
2844:
2854: If okx_ib_item_csr%Found Then
2855:
2856:
2857:
2858: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2859:
2860: x_return_status := OKC_API.g_ret_sts_error;
2861:
2862: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2856:
2857:
2858: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2859:
2860: x_return_status := OKC_API.g_ret_sts_error;
2861:
2862: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2863:
2864: raise OKC_API.G_EXCEPTION_ERROR;
2858: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2859:
2860: x_return_status := OKC_API.g_ret_sts_error;
2861:
2862: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2863:
2864: raise OKC_API.G_EXCEPTION_ERROR;
2865:
2866: End If;
2860: x_return_status := OKC_API.g_ret_sts_error;
2861:
2862: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2863:
2864: raise OKC_API.G_EXCEPTION_ERROR;
2865:
2866: End If;
2867:
2868: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2864: raise OKC_API.G_EXCEPTION_ERROR;
2865:
2866: End If;
2867:
2868: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2869:
2870: x_return_status := OKC_API.g_ret_sts_error;
2871:
2872: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2866: End If;
2867:
2868: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2869:
2870: x_return_status := OKC_API.g_ret_sts_error;
2871:
2872: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2873:
2874: raise OKC_API.G_EXCEPTION_ERROR;
2868: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2869:
2870: x_return_status := OKC_API.g_ret_sts_error;
2871:
2872: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2873:
2874: raise OKC_API.G_EXCEPTION_ERROR;
2875:
2876: End If;
2870: x_return_status := OKC_API.g_ret_sts_error;
2871:
2872: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2873:
2874: raise OKC_API.G_EXCEPTION_ERROR;
2875:
2876: End If;
2877:
2878:
2902:
2903:
2904: If row_count <> 1 Then
2905:
2906: x_return_status := OKC_API.g_ret_sts_error;
2907:
2908: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2909:
2910: raise OKC_API.G_EXCEPTION_ERROR;
2904: If row_count <> 1 Then
2905:
2906: x_return_status := OKC_API.g_ret_sts_error;
2907:
2908: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2909:
2910: raise OKC_API.G_EXCEPTION_ERROR;
2911:
2912: End If;
2906: x_return_status := OKC_API.g_ret_sts_error;
2907:
2908: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2909:
2910: raise OKC_API.G_EXCEPTION_ERROR;
2911:
2912: End If;
2913:
2914:
2948:
2949:
2950: IF okx_lease_csr%NotFound THEN
2951:
2952: x_return_status := OKC_API.g_ret_sts_error;
2953:
2954: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2955:
2956: raise OKC_API.G_EXCEPTION_ERROR;
2950: IF okx_lease_csr%NotFound THEN
2951:
2952: x_return_status := OKC_API.g_ret_sts_error;
2953:
2954: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2955:
2956: raise OKC_API.G_EXCEPTION_ERROR;
2957:
2958:
2952: x_return_status := OKC_API.g_ret_sts_error;
2953:
2954: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2955:
2956: raise OKC_API.G_EXCEPTION_ERROR;
2957:
2958:
2959: END IF;
2960:
2970: If okx_lease_csr%Found Then
2971:
2972:
2973:
2974: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2975:
2976: x_return_status := OKC_API.g_ret_sts_error;
2977:
2978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2972:
2973:
2974: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2975:
2976: x_return_status := OKC_API.g_ret_sts_error;
2977:
2978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2979:
2980: raise OKC_API.G_EXCEPTION_ERROR;
2974: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
2975:
2976: x_return_status := OKC_API.g_ret_sts_error;
2977:
2978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2979:
2980: raise OKC_API.G_EXCEPTION_ERROR;
2981:
2982: End If;
2976: x_return_status := OKC_API.g_ret_sts_error;
2977:
2978: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2979:
2980: raise OKC_API.G_EXCEPTION_ERROR;
2981:
2982: End If;
2983:
2984: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2980: raise OKC_API.G_EXCEPTION_ERROR;
2981:
2982: End If;
2983:
2984: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2985:
2986: x_return_status := OKC_API.g_ret_sts_error;
2987:
2988: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2982: End If;
2983:
2984: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2985:
2986: x_return_status := OKC_API.g_ret_sts_error;
2987:
2988: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2989:
2990: raise OKC_API.G_EXCEPTION_ERROR;
2984: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
2985:
2986: x_return_status := OKC_API.g_ret_sts_error;
2987:
2988: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2989:
2990: raise OKC_API.G_EXCEPTION_ERROR;
2991:
2992: End If;
2986: x_return_status := OKC_API.g_ret_sts_error;
2987:
2988: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2989:
2990: raise OKC_API.G_EXCEPTION_ERROR;
2991:
2992: End If;
2993:
2994:
3018:
3019:
3020: If row_count <> 1 Then
3021:
3022: x_return_status := OKC_API.g_ret_sts_error;
3023:
3024: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3025:
3026: raise OKC_API.G_EXCEPTION_ERROR;
3020: If row_count <> 1 Then
3021:
3022: x_return_status := OKC_API.g_ret_sts_error;
3023:
3024: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3025:
3026: raise OKC_API.G_EXCEPTION_ERROR;
3027:
3028: End If;
3022: x_return_status := OKC_API.g_ret_sts_error;
3023:
3024: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3025:
3026: raise OKC_API.G_EXCEPTION_ERROR;
3027:
3028: End If;
3029:
3030:
3067:
3068:
3069: IF okx_service_csr%NotFound THEN
3070:
3071: x_return_status := OKC_API.g_ret_sts_error;
3072:
3073: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3074:
3075: raise OKC_API.G_EXCEPTION_ERROR;
3069: IF okx_service_csr%NotFound THEN
3070:
3071: x_return_status := OKC_API.g_ret_sts_error;
3072:
3073: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3074:
3075: raise OKC_API.G_EXCEPTION_ERROR;
3076:
3077:
3071: x_return_status := OKC_API.g_ret_sts_error;
3072:
3073: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3074:
3075: raise OKC_API.G_EXCEPTION_ERROR;
3076:
3077:
3078: END IF;
3079:
3089: If okx_service_csr%Found Then
3090:
3091:
3092:
3093: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3094:
3095: x_return_status := OKC_API.g_ret_sts_error;
3096:
3097: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3091:
3092:
3093: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3094:
3095: x_return_status := OKC_API.g_ret_sts_error;
3096:
3097: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3098:
3099: raise OKC_API.G_EXCEPTION_ERROR;
3093: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3094:
3095: x_return_status := OKC_API.g_ret_sts_error;
3096:
3097: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3098:
3099: raise OKC_API.G_EXCEPTION_ERROR;
3100:
3101: End If;
3095: x_return_status := OKC_API.g_ret_sts_error;
3096:
3097: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3098:
3099: raise OKC_API.G_EXCEPTION_ERROR;
3100:
3101: End If;
3102:
3103: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3099: raise OKC_API.G_EXCEPTION_ERROR;
3100:
3101: End If;
3102:
3103: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3104:
3105: x_return_status := OKC_API.g_ret_sts_error;
3106:
3107: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3101: End If;
3102:
3103: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3104:
3105: x_return_status := OKC_API.g_ret_sts_error;
3106:
3107: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3108:
3109: raise OKC_API.G_EXCEPTION_ERROR;
3103: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3104:
3105: x_return_status := OKC_API.g_ret_sts_error;
3106:
3107: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3108:
3109: raise OKC_API.G_EXCEPTION_ERROR;
3110:
3111: End If;
3105: x_return_status := OKC_API.g_ret_sts_error;
3106:
3107: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3108:
3109: raise OKC_API.G_EXCEPTION_ERROR;
3110:
3111: End If;
3112:
3113:
3137:
3138:
3139: If row_count <> 1 Then
3140:
3141: x_return_status := OKC_API.g_ret_sts_error;
3142:
3143: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3144:
3145: raise OKC_API.G_EXCEPTION_ERROR;
3139: If row_count <> 1 Then
3140:
3141: x_return_status := OKC_API.g_ret_sts_error;
3142:
3143: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3144:
3145: raise OKC_API.G_EXCEPTION_ERROR;
3146:
3147: End If;
3141: x_return_status := OKC_API.g_ret_sts_error;
3142:
3143: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3144:
3145: raise OKC_API.G_EXCEPTION_ERROR;
3146:
3147: End If;
3148:
3149:
3178:
3179: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3180: IF okx_sysitem_csr%NotFound THEN
3181:
3182: x_return_status := OKC_API.g_ret_sts_error;
3183: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3184: raise OKC_API.G_EXCEPTION_ERROR;
3185:
3186: END IF;
3179: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3180: IF okx_sysitem_csr%NotFound THEN
3181:
3182: x_return_status := OKC_API.g_ret_sts_error;
3183: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3184: raise OKC_API.G_EXCEPTION_ERROR;
3185:
3186: END IF;
3187:
3180: IF okx_sysitem_csr%NotFound THEN
3181:
3182: x_return_status := OKC_API.g_ret_sts_error;
3183: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3184: raise OKC_API.G_EXCEPTION_ERROR;
3185:
3186: END IF;
3187:
3188: l_id11 := l_id1;
3190:
3191: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3192:
3193: If okx_sysitem_csr%Found Then
3194: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3195: x_return_status := OKC_API.g_ret_sts_error;
3196: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3197: raise OKC_API.G_EXCEPTION_ERROR;
3198: End If;
3191: FETCH okx_sysitem_csr INTO l_id1,l_id2,l_name,l_description;
3192:
3193: If okx_sysitem_csr%Found Then
3194: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3195: x_return_status := OKC_API.g_ret_sts_error;
3196: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3197: raise OKC_API.G_EXCEPTION_ERROR;
3198: End If;
3199: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3192:
3193: If okx_sysitem_csr%Found Then
3194: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3195: x_return_status := OKC_API.g_ret_sts_error;
3196: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3197: raise OKC_API.G_EXCEPTION_ERROR;
3198: End If;
3199: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3200: x_return_status := OKC_API.g_ret_sts_error;
3193: If okx_sysitem_csr%Found Then
3194: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
3195: x_return_status := OKC_API.g_ret_sts_error;
3196: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3197: raise OKC_API.G_EXCEPTION_ERROR;
3198: End If;
3199: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3200: x_return_status := OKC_API.g_ret_sts_error;
3201: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3195: x_return_status := OKC_API.g_ret_sts_error;
3196: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3197: raise OKC_API.G_EXCEPTION_ERROR;
3198: End If;
3199: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3200: x_return_status := OKC_API.g_ret_sts_error;
3201: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3202: raise OKC_API.G_EXCEPTION_ERROR;
3203: End If;
3196: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3197: raise OKC_API.G_EXCEPTION_ERROR;
3198: End If;
3199: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3200: x_return_status := OKC_API.g_ret_sts_error;
3201: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3202: raise OKC_API.G_EXCEPTION_ERROR;
3203: End If;
3204: Loop
3197: raise OKC_API.G_EXCEPTION_ERROR;
3198: End If;
3199: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3200: x_return_status := OKC_API.g_ret_sts_error;
3201: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3202: raise OKC_API.G_EXCEPTION_ERROR;
3203: End If;
3204: Loop
3205: If(l_id1 = p_id1 and l_id2 = p_id2) Then
3198: End If;
3199: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
3200: x_return_status := OKC_API.g_ret_sts_error;
3201: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3202: raise OKC_API.G_EXCEPTION_ERROR;
3203: End If;
3204: Loop
3205: If(l_id1 = p_id1 and l_id2 = p_id2) Then
3206: l_id11 := l_id1;
3213: Exit When okx_sysitem_csr%NotFound;
3214: End Loop;
3215:
3216: If row_count <> 1 Then
3217: x_return_status := OKC_API.g_ret_sts_error;
3218: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3219: raise OKC_API.G_EXCEPTION_ERROR;
3220:
3221: End If;
3214: End Loop;
3215:
3216: If row_count <> 1 Then
3217: x_return_status := OKC_API.g_ret_sts_error;
3218: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3219: raise OKC_API.G_EXCEPTION_ERROR;
3220:
3221: End If;
3222:
3215:
3216: If row_count <> 1 Then
3217: x_return_status := OKC_API.g_ret_sts_error;
3218: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
3219: raise OKC_API.G_EXCEPTION_ERROR;
3220:
3221: End If;
3222:
3223: End If;
3228: Close okx_sysitem_csr;
3229:
3230: END IF;
3231:
3232: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3233: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
3234:
3235: EXCEPTION
3236:
3229:
3230: END IF;
3231:
3232: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3233: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
3234:
3235: EXCEPTION
3236:
3237: when OKC_API.G_EXCEPTION_ERROR then
3233: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
3234:
3235: EXCEPTION
3236:
3237: when OKC_API.G_EXCEPTION_ERROR then
3238: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3239: p_api_name => l_api_name,
3240: p_pkg_name => g_pkg_name,
3241: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3234:
3235: EXCEPTION
3236:
3237: when OKC_API.G_EXCEPTION_ERROR then
3238: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3239: p_api_name => l_api_name,
3240: p_pkg_name => g_pkg_name,
3241: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3242: x_msg_count => x_msg_count,
3237: when OKC_API.G_EXCEPTION_ERROR then
3238: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3239: p_api_name => l_api_name,
3240: p_pkg_name => g_pkg_name,
3241: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3242: x_msg_count => x_msg_count,
3243: x_msg_data => x_msg_data,
3244: p_api_type => g_api_type);
3245:
3274: IF okx_sysitem_csr%ISOPEN THEN
3275: CLOSE okx_sysitem_csr;
3276: END IF;
3277:
3278: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3279:
3280: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3281: p_api_name => l_api_name,
3282: p_pkg_name => g_pkg_name,
3276: END IF;
3277:
3278: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3279:
3280: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3281: p_api_name => l_api_name,
3282: p_pkg_name => g_pkg_name,
3283: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3284: x_msg_count => x_msg_count,
3279:
3280: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3281: p_api_name => l_api_name,
3282: p_pkg_name => g_pkg_name,
3283: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3284: x_msg_count => x_msg_count,
3285: x_msg_data => x_msg_data,
3286: p_api_type => g_api_type);
3287: IF okl_strmtyp_csr%ISOPEN THEN
3318:
3319:
3320: when OTHERS then
3321:
3322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3323: p_api_name => l_api_name,
3324: p_pkg_name => g_pkg_name,
3325: p_exc_name => 'OTHERS',
3326: x_msg_count => x_msg_count,
3379:
3380: --End of Comments
3381:
3382: Procedure Validate_Service (p_api_version IN NUMBER,
3383: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
3384: x_return_status OUT NOCOPY VARCHAR2,
3385: x_msg_count OUT NOCOPY NUMBER,
3386: x_msg_data OUT NOCOPY VARCHAR2,
3387: p_chr_id IN NUMBER,
3447:
3448: l_api_name CONSTANT VARCHAR2(30) := 'validate_service';
3449: l_api_version CONSTANT NUMBER := 1.0;
3450:
3451: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3452:
3453:
3454:
3455: CURSOR check_item_csr(p_chr_id NUMBER, p_lty_code VARCHAR2, p_id1 VARCHAR2, p_id2 VARCHAR2) IS
3500: -- call START_ACTIVITY to create savepoint, check compatibility
3501:
3502: -- and initialize message list
3503:
3504: l_return_status := OKC_API.START_ACTIVITY(
3505: p_api_name => l_api_name,
3506: p_pkg_name => g_pkg_name,
3507: p_init_msg_list => p_init_msg_list,
3508: l_api_version => l_api_version,
3510: p_api_type => g_api_type,
3511: x_return_status => x_return_status);
3512:
3513:
3514: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3515: Then
3516: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3517: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3512:
3513:
3514: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3515: Then
3516: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3517: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3519: Then
3520: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3513:
3514: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3515: Then
3516: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3517: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3519: Then
3520: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3521: p_msg_name => 'Missing_Service_Name');
3514: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
3515: Then
3516: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3517: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3519: Then
3520: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3521: p_msg_name => 'Missing_Service_Name');
3522: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3516: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Name');
3517: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3518: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3519: Then
3520: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3521: p_msg_name => 'Missing_Service_Name');
3522: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3524: Then
3518: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
3519: Then
3520: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3521: p_msg_name => 'Missing_Service_Name');
3522: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3524: Then
3525: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3526: p_msg_name => 'Missing_Lty_Code');
3519: Then
3520: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3521: p_msg_name => 'Missing_Service_Name');
3522: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3524: Then
3525: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3526: p_msg_name => 'Missing_Lty_Code');
3527: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3521: p_msg_name => 'Missing_Service_Name');
3522: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3523: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3524: Then
3525: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3526: p_msg_name => 'Missing_Lty_Code');
3527: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3528: End If;
3529:
3523: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
3524: Then
3525: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3526: p_msg_name => 'Missing_Lty_Code');
3527: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3528: End If;
3529:
3530: --Added by kthiruva 23-Sep-2003 Bug No.3156265
3531:
3542:
3543: FETCH okl_strmtyp_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3544:
3545: IF okl_strmtyp_csr%NotFound THEN
3546: x_return_status := OKC_API.g_ret_sts_error;
3547:
3548: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3549:
3550: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3544:
3545: IF okl_strmtyp_csr%NotFound THEN
3546: x_return_status := OKC_API.g_ret_sts_error;
3547:
3548: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3549:
3550: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3551: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3552: , p_msg_name => 'OKL_INVALID_VALUE'
3547:
3548: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3549:
3550: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3551: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3552: , p_msg_name => 'OKL_INVALID_VALUE'
3553: , p_token1 => 'COL_NAME'
3554: , p_token1_value => l_fee_ak_prompt
3555: );
3553: , p_token1 => 'COL_NAME'
3554: , p_token1_value => l_fee_ak_prompt
3555: );
3556:
3557: raise OKC_API.G_EXCEPTION_ERROR;
3558:
3559: END IF;
3560: l_item_id11 := l_item_id1;
3561: l_item_id22 := l_item_id2;
3561: l_item_id22 := l_item_id2;
3562:
3563: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3564: If okl_strmtyp_csr%Found Then
3565: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3566: x_return_status := OKC_API.g_ret_sts_error;
3567: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3568: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3569: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3562:
3563: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3564: If okl_strmtyp_csr%Found Then
3565: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3566: x_return_status := OKC_API.g_ret_sts_error;
3567: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3568: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3569: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3570: , p_msg_name => 'OKL_INVALID_VALUE'
3563: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3564: If okl_strmtyp_csr%Found Then
3565: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3566: x_return_status := OKC_API.g_ret_sts_error;
3567: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3568: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3569: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3570: , p_msg_name => 'OKL_INVALID_VALUE'
3571: , p_token1 => 'COL_NAME'
3565: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3566: x_return_status := OKC_API.g_ret_sts_error;
3567: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3568: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3569: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3570: , p_msg_name => 'OKL_INVALID_VALUE'
3571: , p_token1 => 'COL_NAME'
3572: , p_token1_value => l_fee_ak_prompt
3573: );
3571: , p_token1 => 'COL_NAME'
3572: , p_token1_value => l_fee_ak_prompt
3573: );
3574:
3575: raise OKC_API.G_EXCEPTION_ERROR;
3576:
3577: End If;
3578:
3579: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3575: raise OKC_API.G_EXCEPTION_ERROR;
3576:
3577: End If;
3578:
3579: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3580: x_return_status := OKC_API.g_ret_sts_error;
3581: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3582:
3583: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3576:
3577: End If;
3578:
3579: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3580: x_return_status := OKC_API.g_ret_sts_error;
3581: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3582:
3583: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3584: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3577: End If;
3578:
3579: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3580: x_return_status := OKC_API.g_ret_sts_error;
3581: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3582:
3583: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3584: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3585: , p_msg_name => 'OKL_INVALID_VALUE'
3580: x_return_status := OKC_API.g_ret_sts_error;
3581: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3582:
3583: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3584: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3585: , p_msg_name => 'OKL_INVALID_VALUE'
3586: , p_token1 => 'COL_NAME'
3587: , p_token1_value => l_fee_ak_prompt
3588: );
3586: , p_token1 => 'COL_NAME'
3587: , p_token1_value => l_fee_ak_prompt
3588: );
3589:
3590: raise OKC_API.G_EXCEPTION_ERROR;
3591:
3592: End If;
3593:
3594: Loop
3606: End Loop;
3607:
3608: If row_count <> 1 Then
3609:
3610: x_return_status := OKC_API.g_ret_sts_error;
3611:
3612: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3613:
3614: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3608: If row_count <> 1 Then
3609:
3610: x_return_status := OKC_API.g_ret_sts_error;
3611:
3612: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3613:
3614: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3615: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3616: , p_msg_name => 'OKL_INVALID_VALUE'
3611:
3612: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3613:
3614: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3615: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3616: , p_msg_name => 'OKL_INVALID_VALUE'
3617: , p_token1 => 'COL_NAME'
3618: , p_token1_value => l_fee_ak_prompt
3619:
3618: , p_token1_value => l_fee_ak_prompt
3619:
3620: );
3621:
3622: raise OKC_API.G_EXCEPTION_ERROR;
3623:
3624: End If;
3625:
3626: End If;
3646:
3647: FETCH okl_usage_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3648:
3649: IF okl_usage_csr%NotFound THEN
3650: x_return_status := OKC_API.g_ret_sts_error;
3651:
3652: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3653:
3654: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3648:
3649: IF okl_usage_csr%NotFound THEN
3650: x_return_status := OKC_API.g_ret_sts_error;
3651:
3652: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3653:
3654: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3655: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3656: , p_msg_name => 'OKL_INVALID_VALUE'
3651:
3652: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3653:
3654: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3655: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3656: , p_msg_name => 'OKL_INVALID_VALUE'
3657: , p_token1 => 'COL_NAME'
3658: , p_token1_value => l_fee_ak_prompt
3659: );
3657: , p_token1 => 'COL_NAME'
3658: , p_token1_value => l_fee_ak_prompt
3659: );
3660:
3661: raise OKC_API.G_EXCEPTION_ERROR;
3662:
3663: END IF;
3664: l_item_id11 := l_item_id1;
3665: l_item_id22 := l_item_id2;
3666:
3667: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3668:
3669: If okl_usage_csr%Found Then
3670: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3671: x_return_status := OKC_API.g_ret_sts_error;
3672: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3673: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3674: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3667: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3668:
3669: If okl_usage_csr%Found Then
3670: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3671: x_return_status := OKC_API.g_ret_sts_error;
3672: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3673: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3674: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3675: , p_msg_name => 'OKL_INVALID_VALUE'
3668:
3669: If okl_usage_csr%Found Then
3670: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3671: x_return_status := OKC_API.g_ret_sts_error;
3672: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3673: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3674: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3675: , p_msg_name => 'OKL_INVALID_VALUE'
3676: , p_token1 => 'COL_NAME'
3670: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3671: x_return_status := OKC_API.g_ret_sts_error;
3672: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3673: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3674: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3675: , p_msg_name => 'OKL_INVALID_VALUE'
3676: , p_token1 => 'COL_NAME'
3677: , p_token1_value => l_fee_ak_prompt);
3678:
3675: , p_msg_name => 'OKL_INVALID_VALUE'
3676: , p_token1 => 'COL_NAME'
3677: , p_token1_value => l_fee_ak_prompt);
3678:
3679: raise OKC_API.G_EXCEPTION_ERROR;
3680:
3681: End If;
3682:
3683: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3679: raise OKC_API.G_EXCEPTION_ERROR;
3680:
3681: End If;
3682:
3683: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3684: x_return_status := OKC_API.g_ret_sts_error;
3685: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3686: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3687: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3680:
3681: End If;
3682:
3683: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3684: x_return_status := OKC_API.g_ret_sts_error;
3685: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3686: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3687: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3688: , p_msg_name => 'OKL_INVALID_VALUE'
3681: End If;
3682:
3683: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3684: x_return_status := OKC_API.g_ret_sts_error;
3685: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3686: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3687: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3688: , p_msg_name => 'OKL_INVALID_VALUE'
3689: , p_token1 => 'COL_NAME'
3683: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3684: x_return_status := OKC_API.g_ret_sts_error;
3685: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3686: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3687: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3688: , p_msg_name => 'OKL_INVALID_VALUE'
3689: , p_token1 => 'COL_NAME'
3690: , p_token1_value => l_fee_ak_prompt
3691: );
3689: , p_token1 => 'COL_NAME'
3690: , p_token1_value => l_fee_ak_prompt
3691: );
3692:
3693: raise OKC_API.G_EXCEPTION_ERROR;
3694:
3695: End If;
3696:
3697: Loop
3707:
3708: End Loop;
3709:
3710: If row_count <> 1 Then
3711: x_return_status := OKC_API.g_ret_sts_error;
3712: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3713: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3714:
3715: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3708: End Loop;
3709:
3710: If row_count <> 1 Then
3711: x_return_status := OKC_API.g_ret_sts_error;
3712: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3713: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3714:
3715: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3716: , p_msg_name => 'OKL_INVALID_VALUE'
3711: x_return_status := OKC_API.g_ret_sts_error;
3712: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3713: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3714:
3715: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3716: , p_msg_name => 'OKL_INVALID_VALUE'
3717: , p_token1 => 'COL_NAME'
3718: , p_token1_value => l_fee_ak_prompt
3719: );
3717: , p_token1 => 'COL_NAME'
3718: , p_token1_value => l_fee_ak_prompt
3719: );
3720:
3721: raise OKC_API.G_EXCEPTION_ERROR;
3722:
3723: End If;
3724:
3725: End If;
3747:
3748: FETCH okx_asset_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3749:
3750: IF okx_asset_csr%NotFound THEN
3751: x_return_status := OKC_API.g_ret_sts_error;
3752: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3753: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3754: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3755: , p_msg_name => 'OKL_INVALID_VALUE'
3748: FETCH okx_asset_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3749:
3750: IF okx_asset_csr%NotFound THEN
3751: x_return_status := OKC_API.g_ret_sts_error;
3752: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3753: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3754: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3755: , p_msg_name => 'OKL_INVALID_VALUE'
3756: , p_token1 => 'COL_NAME'
3750: IF okx_asset_csr%NotFound THEN
3751: x_return_status := OKC_API.g_ret_sts_error;
3752: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3753: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3754: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3755: , p_msg_name => 'OKL_INVALID_VALUE'
3756: , p_token1 => 'COL_NAME'
3757: , p_token1_value => l_fee_ak_prompt );
3758:
3755: , p_msg_name => 'OKL_INVALID_VALUE'
3756: , p_token1 => 'COL_NAME'
3757: , p_token1_value => l_fee_ak_prompt );
3758:
3759: raise OKC_API.G_EXCEPTION_ERROR;
3760:
3761: END IF;
3762:
3763: l_item_id11 := l_item_id1;
3764: l_item_id22 := l_item_id2;
3765:
3766: Fetch okx_asset_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3767: If okx_asset_csr%Found Then
3768: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3769: x_return_status := OKC_API.g_ret_sts_error;
3770: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3771: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3772: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3765:
3766: Fetch okx_asset_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3767: If okx_asset_csr%Found Then
3768: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3769: x_return_status := OKC_API.g_ret_sts_error;
3770: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3771: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3772: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3773: , p_msg_name => 'OKL_INVALID_VALUE'
3766: Fetch okx_asset_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
3767: If okx_asset_csr%Found Then
3768: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3769: x_return_status := OKC_API.g_ret_sts_error;
3770: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3771: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3772: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3773: , p_msg_name => 'OKL_INVALID_VALUE'
3774: , p_token1 => 'COL_NAME'
3768: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3769: x_return_status := OKC_API.g_ret_sts_error;
3770: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3771: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3772: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3773: , p_msg_name => 'OKL_INVALID_VALUE'
3774: , p_token1 => 'COL_NAME'
3775: , p_token1_value => l_fee_ak_prompt
3776: );
3774: , p_token1 => 'COL_NAME'
3775: , p_token1_value => l_fee_ak_prompt
3776: );
3777:
3778: raise OKC_API.G_EXCEPTION_ERROR;
3779:
3780: End If;
3781:
3782: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3778: raise OKC_API.G_EXCEPTION_ERROR;
3779:
3780: End If;
3781:
3782: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3783: x_return_status := OKC_API.g_ret_sts_error;
3784: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3785: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3786: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3779:
3780: End If;
3781:
3782: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3783: x_return_status := OKC_API.g_ret_sts_error;
3784: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3785: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3786: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3787: , p_msg_name => 'OKL_INVALID_VALUE'
3780: End If;
3781:
3782: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3783: x_return_status := OKC_API.g_ret_sts_error;
3784: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3785: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3786: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3787: , p_msg_name => 'OKL_INVALID_VALUE'
3788: , p_token1 => 'COL_NAME'
3782: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3783: x_return_status := OKC_API.g_ret_sts_error;
3784: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3785: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3786: OKC_API.SET_MESSAGE(p_app_name => g_app_name
3787: , p_msg_name => 'OKL_INVALID_VALUE'
3788: , p_token1 => 'COL_NAME'
3789: , p_token1_value => l_fee_ak_prompt );
3790:
3787: , p_msg_name => 'OKL_INVALID_VALUE'
3788: , p_token1 => 'COL_NAME'
3789: , p_token1_value => l_fee_ak_prompt );
3790:
3791: raise OKC_API.G_EXCEPTION_ERROR;
3792:
3793: End If;
3794:
3795: Loop
3807: End Loop;
3808:
3809:
3810: If row_count <> 1 Then
3811: x_return_status := OKC_API.g_ret_sts_error;
3812:
3813: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3814:
3815: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3809:
3810: If row_count <> 1 Then
3811: x_return_status := OKC_API.g_ret_sts_error;
3812:
3813: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3814:
3815: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3816: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3817: , p_msg_name => 'OKL_INVALID_VALUE'
3812:
3813: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3814:
3815: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3816: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3817: , p_msg_name => 'OKL_INVALID_VALUE'
3818: , p_token1 => 'COL_NAME'
3819: , p_token1_value => l_fee_ak_prompt
3820: );
3818: , p_token1 => 'COL_NAME'
3819: , p_token1_value => l_fee_ak_prompt
3820: );
3821:
3822: raise OKC_API.G_EXCEPTION_ERROR;
3823:
3824: End If;
3825:
3826: End If;
3847:
3848: FETCH okx_covasst_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3849:
3850: IF okx_covasst_csr%NotFound THEN
3851: x_return_status := OKC_API.g_ret_sts_error;
3852: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3853:
3854: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3855: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3848: FETCH okx_covasst_csr INTO l_item_id1,l_item_id2,l_item_name,l_item_description;
3849:
3850: IF okx_covasst_csr%NotFound THEN
3851: x_return_status := OKC_API.g_ret_sts_error;
3852: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3853:
3854: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3855: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3856: , p_msg_name => 'OKL_INVALID_VALUE'
3851: x_return_status := OKC_API.g_ret_sts_error;
3852: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3853:
3854: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3855: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3856: , p_msg_name => 'OKL_INVALID_VALUE'
3857: , p_token1 => 'COL_NAME'
3858: , p_token1_value => l_fee_ak_prompt
3859: );
3857: , p_token1 => 'COL_NAME'
3858: , p_token1_value => l_fee_ak_prompt
3859: );
3860:
3861: raise OKC_API.G_EXCEPTION_ERROR;
3862:
3863:
3864:
3865: END IF;
3877: If okx_covasst_csr%Found Then
3878:
3879:
3880:
3881: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3882:
3883: x_return_status := OKC_API.g_ret_sts_error;
3884:
3885:
3879:
3880:
3881: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
3882:
3883: x_return_status := OKC_API.g_ret_sts_error;
3884:
3885:
3886:
3887: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3883: x_return_status := OKC_API.g_ret_sts_error;
3884:
3885:
3886:
3887: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3888:
3889:
3890:
3891: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3889:
3890:
3891: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3892:
3893: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3894:
3895: , p_msg_name => 'OKL_INVALID_VALUE'
3896:
3897: , p_token1 => 'COL_NAME'
3899: , p_token1_value => l_fee_ak_prompt
3900:
3901: );
3902:
3903: raise OKC_API.G_EXCEPTION_ERROR;
3904:
3905: End If;
3906:
3907: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3903: raise OKC_API.G_EXCEPTION_ERROR;
3904:
3905: End If;
3906:
3907: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3908:
3909: x_return_status := OKC_API.g_ret_sts_error;
3910:
3911:
3905: End If;
3906:
3907: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
3908:
3909: x_return_status := OKC_API.g_ret_sts_error;
3910:
3911:
3912:
3913: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3909: x_return_status := OKC_API.g_ret_sts_error;
3910:
3911:
3912:
3913: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3914:
3915:
3916:
3917: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3915:
3916:
3917: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3918:
3919: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3920:
3921: , p_msg_name => 'OKL_INVALID_VALUE'
3922:
3923: , p_token1 => 'COL_NAME'
3925: , p_token1_value => l_fee_ak_prompt
3926:
3927: );
3928:
3929: raise OKC_API.G_EXCEPTION_ERROR;
3930:
3931: End If;
3932:
3933:
3955:
3956:
3957: If row_count <> 1 Then
3958:
3959: x_return_status := OKC_API.g_ret_sts_error;
3960:
3961:
3962:
3963: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3959: x_return_status := OKC_API.g_ret_sts_error;
3960:
3961:
3962:
3963: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
3964:
3965:
3966:
3967: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3965:
3966:
3967: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
3968:
3969: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3970:
3971: , p_msg_name => 'OKL_INVALID_VALUE'
3972:
3973: , p_token1 => 'COL_NAME'
3975: , p_token1_value => l_fee_ak_prompt
3976:
3977: );
3978:
3979: raise OKC_API.G_EXCEPTION_ERROR;
3980:
3981: End If;
3982:
3983:
4020: IF okx_ib_item_csr%NotFound THEN
4021:
4022:
4023:
4024: x_return_status := OKC_API.g_ret_sts_error;
4025:
4026:
4027:
4028: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4024: x_return_status := OKC_API.g_ret_sts_error;
4025:
4026:
4027:
4028: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4029:
4030:
4031:
4032: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4030:
4031:
4032: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4033:
4034: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4035:
4036: , p_msg_name => 'OKL_INVALID_VALUE'
4037:
4038: , p_token1 => 'COL_NAME'
4040: , p_token1_value => l_fee_ak_prompt
4041:
4042: );
4043:
4044: raise OKC_API.G_EXCEPTION_ERROR;
4045:
4046:
4047:
4048: END IF;
4060: If okx_ib_item_csr%Found Then
4061:
4062:
4063:
4064: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4065:
4066: x_return_status := OKC_API.g_ret_sts_error;
4067:
4068:
4062:
4063:
4064: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4065:
4066: x_return_status := OKC_API.g_ret_sts_error;
4067:
4068:
4069:
4070: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4066: x_return_status := OKC_API.g_ret_sts_error;
4067:
4068:
4069:
4070: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4071:
4072:
4073:
4074: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4072:
4073:
4074: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4075:
4076: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4077:
4078: , p_msg_name => 'OKL_INVALID_VALUE'
4079:
4080: , p_token1 => 'COL_NAME'
4082: , p_token1_value => l_fee_ak_prompt
4083:
4084: );
4085:
4086: raise OKC_API.G_EXCEPTION_ERROR;
4087:
4088: End If;
4089:
4090: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4086: raise OKC_API.G_EXCEPTION_ERROR;
4087:
4088: End If;
4089:
4090: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4091:
4092: x_return_status := OKC_API.g_ret_sts_error;
4093:
4094:
4088: End If;
4089:
4090: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4091:
4092: x_return_status := OKC_API.g_ret_sts_error;
4093:
4094:
4095:
4096: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4092: x_return_status := OKC_API.g_ret_sts_error;
4093:
4094:
4095:
4096: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4097:
4098:
4099:
4100: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4098:
4099:
4100: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4101:
4102: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4103:
4104: , p_msg_name => 'OKL_INVALID_VALUE'
4105:
4106: , p_token1 => 'COL_NAME'
4108: , p_token1_value => l_fee_ak_prompt
4109:
4110: );
4111:
4112: raise OKC_API.G_EXCEPTION_ERROR;
4113:
4114: End If;
4115:
4116:
4138:
4139:
4140: If row_count <> 1 Then
4141:
4142: x_return_status := OKC_API.g_ret_sts_error;
4143:
4144:
4145:
4146: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4142: x_return_status := OKC_API.g_ret_sts_error;
4143:
4144:
4145:
4146: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4147:
4148:
4149:
4150: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4148:
4149:
4150: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4151:
4152: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4153:
4154: , p_msg_name => 'OKL_INVALID_VALUE'
4155:
4156: , p_token1 => 'COL_NAME'
4158: , p_token1_value => l_fee_ak_prompt
4159:
4160: );
4161:
4162: raise OKC_API.G_EXCEPTION_ERROR;
4163:
4164: End If;
4165:
4166:
4203: IF okx_lease_csr%NotFound THEN
4204:
4205:
4206:
4207: x_return_status := OKC_API.g_ret_sts_error;
4208:
4209:
4210:
4211: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4207: x_return_status := OKC_API.g_ret_sts_error;
4208:
4209:
4210:
4211: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4212:
4213:
4214:
4215: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4213:
4214:
4215: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4216:
4217: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4218:
4219: , p_msg_name => 'OKL_INVALID_VALUE'
4220:
4221: , p_token1 => 'COL_NAME'
4223: , p_token1_value => l_fee_ak_prompt
4224:
4225: );
4226:
4227: raise OKC_API.G_EXCEPTION_ERROR;
4228:
4229:
4230:
4231: END IF;
4243: If okx_lease_csr%Found Then
4244:
4245:
4246:
4247: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4248:
4249: x_return_status := OKC_API.g_ret_sts_error;
4250:
4251:
4245:
4246:
4247: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4248:
4249: x_return_status := OKC_API.g_ret_sts_error;
4250:
4251:
4252:
4253: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4249: x_return_status := OKC_API.g_ret_sts_error;
4250:
4251:
4252:
4253: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4254:
4255:
4256:
4257: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4255:
4256:
4257: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4258:
4259: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4260:
4261: , p_msg_name => 'OKL_INVALID_VALUE'
4262:
4263: , p_token1 => 'COL_NAME'
4265: , p_token1_value => l_fee_ak_prompt
4266:
4267: );
4268:
4269: raise OKC_API.G_EXCEPTION_ERROR;
4270:
4271: End If;
4272:
4273: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4269: raise OKC_API.G_EXCEPTION_ERROR;
4270:
4271: End If;
4272:
4273: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4274:
4275: x_return_status := OKC_API.g_ret_sts_error;
4276:
4277:
4271: End If;
4272:
4273: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4274:
4275: x_return_status := OKC_API.g_ret_sts_error;
4276:
4277:
4278:
4279: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4275: x_return_status := OKC_API.g_ret_sts_error;
4276:
4277:
4278:
4279: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4280:
4281:
4282:
4283: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4281:
4282:
4283: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4284:
4285: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4286:
4287: , p_msg_name => 'OKL_INVALID_VALUE'
4288:
4289: , p_token1 => 'COL_NAME'
4291: , p_token1_value => l_fee_ak_prompt
4292:
4293: );
4294:
4295: raise OKC_API.G_EXCEPTION_ERROR;
4296:
4297: End If;
4298:
4299:
4321:
4322:
4323: If row_count <> 1 Then
4324:
4325: x_return_status := OKC_API.g_ret_sts_error;
4326:
4327:
4328:
4329: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4325: x_return_status := OKC_API.g_ret_sts_error;
4326:
4327:
4328:
4329: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4330:
4331:
4332:
4333: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4331:
4332:
4333: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4334:
4335: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4336:
4337: , p_msg_name => 'OKL_INVALID_VALUE'
4338:
4339: , p_token1 => 'COL_NAME'
4341: , p_token1_value => l_fee_ak_prompt
4342:
4343: );
4344:
4345: raise OKC_API.G_EXCEPTION_ERROR;
4346:
4347: End If;
4348:
4349:
4387: IF okx_service_csr%NotFound THEN
4388:
4389:
4390:
4391: x_return_status := OKC_API.g_ret_sts_error;
4392:
4393:
4394:
4395: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4391: x_return_status := OKC_API.g_ret_sts_error;
4392:
4393:
4394:
4395: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4396:
4397:
4398:
4399: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4397:
4398:
4399: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4400:
4401: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4402:
4403: , p_msg_name => 'OKL_INVALID_VALUE'
4404:
4405: , p_token1 => 'COL_NAME'
4407: , p_token1_value => l_fee_ak_prompt
4408:
4409: );
4410:
4411: raise OKC_API.G_EXCEPTION_ERROR;
4412:
4413:
4414:
4415: END IF;
4427: If okx_service_csr%Found Then
4428:
4429:
4430:
4431: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4432:
4433: x_return_status := OKC_API.g_ret_sts_error;
4434:
4435:
4429:
4430:
4431: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4432:
4433: x_return_status := OKC_API.g_ret_sts_error;
4434:
4435:
4436:
4437: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4433: x_return_status := OKC_API.g_ret_sts_error;
4434:
4435:
4436:
4437: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4438:
4439:
4440:
4441: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4439:
4440:
4441: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4442:
4443: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4444:
4445: , p_msg_name => 'OKL_INVALID_VALUE'
4446:
4447: , p_token1 => 'COL_NAME'
4449: , p_token1_value => l_fee_ak_prompt
4450:
4451: );
4452:
4453: raise OKC_API.G_EXCEPTION_ERROR;
4454:
4455: End If;
4456:
4457: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4453: raise OKC_API.G_EXCEPTION_ERROR;
4454:
4455: End If;
4456:
4457: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4458:
4459: x_return_status := OKC_API.g_ret_sts_error;
4460:
4461:
4455: End If;
4456:
4457: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4458:
4459: x_return_status := OKC_API.g_ret_sts_error;
4460:
4461:
4462:
4463: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4459: x_return_status := OKC_API.g_ret_sts_error;
4460:
4461:
4462:
4463: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4464:
4465:
4466:
4467: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4465:
4466:
4467: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4468:
4469: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4470:
4471: , p_msg_name => 'OKL_INVALID_VALUE'
4472:
4473: , p_token1 => 'COL_NAME'
4475: , p_token1_value => l_fee_ak_prompt
4476:
4477: );
4478:
4479: raise OKC_API.G_EXCEPTION_ERROR;
4480:
4481: End If;
4482:
4483:
4505:
4506:
4507: If row_count <> 1 Then
4508:
4509: x_return_status := OKC_API.g_ret_sts_error;
4510:
4511:
4512:
4513: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4509: x_return_status := OKC_API.g_ret_sts_error;
4510:
4511:
4512:
4513: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4514:
4515:
4516:
4517: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4515:
4516:
4517: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4518:
4519: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4520:
4521: , p_msg_name => 'OKL_INVALID_VALUE'
4522:
4523: , p_token1 => 'COL_NAME'
4525: , p_token1_value => l_fee_ak_prompt
4526:
4527: );
4528:
4529: raise OKC_API.G_EXCEPTION_ERROR;
4530:
4531: End If;
4532:
4533:
4570: IF okx_sysitem_csr%NotFound THEN
4571:
4572:
4573:
4574: x_return_status := OKC_API.g_ret_sts_error;
4575:
4576:
4577:
4578: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4574: x_return_status := OKC_API.g_ret_sts_error;
4575:
4576:
4577:
4578: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4579:
4580:
4581:
4582: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4580:
4581:
4582: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4583:
4584: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4585:
4586: , p_msg_name => 'OKL_INVALID_VALUE'
4587:
4588: , p_token1 => 'COL_NAME'
4590: , p_token1_value => l_fee_ak_prompt
4591:
4592: );
4593:
4594: raise OKC_API.G_EXCEPTION_ERROR;
4595:
4596:
4597:
4598: END IF;
4610: If okx_sysitem_csr%Found Then
4611:
4612:
4613:
4614: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4615:
4616: x_return_status := OKC_API.g_ret_sts_error;
4617:
4618:
4612:
4613:
4614: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
4615:
4616: x_return_status := OKC_API.g_ret_sts_error;
4617:
4618:
4619:
4620: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4616: x_return_status := OKC_API.g_ret_sts_error;
4617:
4618:
4619:
4620: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4621:
4622:
4623:
4624: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4622:
4623:
4624: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4625:
4626: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4627:
4628: , p_msg_name => 'OKL_INVALID_VALUE'
4629:
4630: , p_token1 => 'COL_NAME'
4632: , p_token1_value => l_fee_ak_prompt
4633:
4634: );
4635:
4636: raise OKC_API.G_EXCEPTION_ERROR;
4637:
4638: End If;
4639:
4640: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4636: raise OKC_API.G_EXCEPTION_ERROR;
4637:
4638: End If;
4639:
4640: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4641:
4642: x_return_status := OKC_API.g_ret_sts_error;
4643:
4644:
4638: End If;
4639:
4640: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
4641:
4642: x_return_status := OKC_API.g_ret_sts_error;
4643:
4644:
4645:
4646: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4642: x_return_status := OKC_API.g_ret_sts_error;
4643:
4644:
4645:
4646: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4647:
4648:
4649:
4650: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4648:
4649:
4650: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4651:
4652: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4653:
4654: , p_msg_name => 'OKL_INVALID_VALUE'
4655:
4656: , p_token1 => 'COL_NAME'
4658: , p_token1_value => l_fee_ak_prompt
4659:
4660: );
4661:
4662: raise OKC_API.G_EXCEPTION_ERROR;
4663:
4664: End If;
4665:
4666:
4688:
4689:
4690: If row_count <> 1 Then
4691:
4692: x_return_status := OKC_API.g_ret_sts_error;
4693:
4694:
4695:
4696: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4692: x_return_status := OKC_API.g_ret_sts_error;
4693:
4694:
4695:
4696: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
4697:
4698:
4699:
4700: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4698:
4699:
4700: l_fee_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_FEE');
4701:
4702: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4703:
4704: , p_msg_name => 'OKL_INVALID_VALUE'
4705:
4706: , p_token1 => 'COL_NAME'
4708: , p_token1_value => l_fee_ak_prompt
4709:
4710: );
4711:
4712: raise OKC_API.G_EXCEPTION_ERROR;
4713:
4714: End If;
4715:
4716:
4729: END IF;
4730:
4731:
4732:
4733: If p_cle_id is null or p_cle_id = OKC_API.G_MISS_NUM Then
4734:
4735: OPEN check_item_csr(p_chr_id, p_lty_code, p_item_id1, p_item_id2 );
4736:
4737: FETCH check_item_csr INTO row_count;
4739: CLOSE check_item_csr;
4740:
4741: If row_count = 1 Then
4742:
4743: x_return_status := OKC_API.g_ret_sts_error;
4744:
4745: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4746:
4747: raise OKC_API.G_EXCEPTION_ERROR;
4741: If row_count = 1 Then
4742:
4743: x_return_status := OKC_API.g_ret_sts_error;
4744:
4745: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4746:
4747: raise OKC_API.G_EXCEPTION_ERROR;
4748:
4749: End If;
4743: x_return_status := OKC_API.g_ret_sts_error;
4744:
4745: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4746:
4747: raise OKC_API.G_EXCEPTION_ERROR;
4748:
4749: End If;
4750:
4751: Else
4767: CLOSE check_item_csr;
4768:
4769: If row_count = 1 Then
4770:
4771: x_return_status := OKC_API.g_ret_sts_error;
4772:
4773: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4774:
4775: raise OKC_API.G_EXCEPTION_ERROR;
4769: If row_count = 1 Then
4770:
4771: x_return_status := OKC_API.g_ret_sts_error;
4772:
4773: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4774:
4775: raise OKC_API.G_EXCEPTION_ERROR;
4776:
4777: End If;
4771: x_return_status := OKC_API.g_ret_sts_error;
4772:
4773: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
4774:
4775: raise OKC_API.G_EXCEPTION_ERROR;
4776:
4777: End If;
4778:
4779: End If;
4781: End If;
4782:
4783:
4784:
4785: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4786:
4787: Validate_Party ( p_api_version => p_api_version ,
4788: p_init_msg_list => p_init_msg_list ,
4789: x_return_status => x_return_status ,
4798: p_id2 => l_party_id2 ,
4799: p_name => p_party_name ,
4800: p_object_code => p_party_object_code );
4801:
4802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: raise OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4799: p_name => p_party_name ,
4800: p_object_code => p_party_object_code );
4801:
4802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: raise OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4807:
4800: p_object_code => p_party_object_code );
4801:
4802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: raise OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4807:
4808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4801:
4802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: raise OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4807:
4808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4809:
4804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4805: raise OKC_API.G_EXCEPTION_ERROR;
4806: END IF;
4807:
4808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4809:
4810: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
4811:
4812: EXCEPTION
4806: END IF;
4807:
4808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4809:
4810: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
4811:
4812: EXCEPTION
4813:
4814: when OKC_API.G_EXCEPTION_ERROR then
4810: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
4811:
4812: EXCEPTION
4813:
4814: when OKC_API.G_EXCEPTION_ERROR then
4815:
4816: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4817: p_api_name => l_api_name,
4818: p_pkg_name => g_pkg_name,
4812: EXCEPTION
4813:
4814: when OKC_API.G_EXCEPTION_ERROR then
4815:
4816: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4817: p_api_name => l_api_name,
4818: p_pkg_name => g_pkg_name,
4819: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4820: x_msg_count => x_msg_count,
4815:
4816: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4817: p_api_name => l_api_name,
4818: p_pkg_name => g_pkg_name,
4819: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4820: x_msg_count => x_msg_count,
4821: x_msg_data => x_msg_data,
4822: p_api_type => g_api_type);
4823:
4853: CLOSE okx_sysitem_csr;
4854: END IF;
4855:
4856:
4857: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4858:
4859: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4860: p_api_name => l_api_name,
4861: p_pkg_name => g_pkg_name,
4855:
4856:
4857: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4858:
4859: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4860: p_api_name => l_api_name,
4861: p_pkg_name => g_pkg_name,
4862: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4863: x_msg_count => x_msg_count,
4858:
4859: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4860: p_api_name => l_api_name,
4861: p_pkg_name => g_pkg_name,
4862: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4863: x_msg_count => x_msg_count,
4864: x_msg_data => x_msg_data,
4865: p_api_type => g_api_type);
4866:
4901:
4902:
4903: when OTHERS then
4904:
4905: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4906:
4907: p_api_name => l_api_name,
4908:
4909: p_pkg_name => g_pkg_name,
4966:
4967: --End of Comments
4968:
4969: Procedure Validate_Fee (p_api_version IN NUMBER,
4970: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
4971: x_return_status OUT NOCOPY VARCHAR2,
4972: x_msg_count OUT NOCOPY NUMBER,
4973: x_msg_data OUT NOCOPY VARCHAR2,
4974: p_chr_id IN NUMBER,
5020:
5021: l_api_name CONSTANT VARCHAR2(30) := 'validate_fee';
5022: l_api_version CONSTANT NUMBER := 1.0;
5023:
5024: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5025:
5026:
5027:
5028: CURSOR check_item_csr(p_chr_id NUMBER, p_lty_code VARCHAR2, p_id1 VARCHAR2, p_id2 VARCHAR2) IS
5075: -- call START_ACTIVITY to create savepoint, check compatibility
5076:
5077: -- and initialize message list
5078:
5079: l_return_status := OKC_API.START_ACTIVITY(
5080: p_api_name => l_api_name,
5081: p_pkg_name => g_pkg_name,
5082: p_init_msg_list => p_init_msg_list,
5083: l_api_version => l_api_version,
5086: x_return_status => x_return_status);
5087:
5088:
5089:
5090: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
5091: Then
5092:
5093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5089:
5090: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
5091: Then
5092:
5093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5095:
5096: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5097:
5090: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
5091: Then
5092:
5093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5095:
5096: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5097:
5098: Then
5092:
5093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Chr_Id');
5094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5095:
5096: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5097:
5098: Then
5099: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5095:
5096: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5097:
5098: Then
5099: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5101:
5102: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5103: Then
5096: ElsIf ( p_item_name is null or p_item_name = OKC_API.G_MISS_CHAR)
5097:
5098: Then
5099: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5101:
5102: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5103: Then
5104: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5098: Then
5099: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Fee_Name');
5100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5101:
5102: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5103: Then
5104: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5105: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5106: End If;
5100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5101:
5102: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5103: Then
5104: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5105: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5106: End If;
5107:
5108:
5101:
5102: ElsIf ( p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR)
5103: Then
5104: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_Lty_Code');
5105: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5106: End If;
5107:
5108:
5109: --Added by kthiruva 23-Sep-2003 Bug No.3156265
5126: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5127:
5128: If okl_strmtyp_csr%NotFound Then
5129:
5130: x_return_status := OKC_API.g_ret_sts_error;
5131:
5132: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5133: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5134:
5128: If okl_strmtyp_csr%NotFound Then
5129:
5130: x_return_status := OKC_API.g_ret_sts_error;
5131:
5132: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5133: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5134:
5135: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5136: , p_msg_name => 'OKL_INVALID_VALUE'
5131:
5132: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5133: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5134:
5135: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5136: , p_msg_name => 'OKL_INVALID_VALUE'
5137: , p_token1 => 'COL_NAME'
5138: , p_token1_value => l_service_ak_prompt
5139: );
5137: , p_token1 => 'COL_NAME'
5138: , p_token1_value => l_service_ak_prompt
5139: );
5140:
5141: raise OKC_API.G_EXCEPTION_ERROR;
5142:
5143: End If;
5144:
5145:
5158: Fetch okl_strmtyp_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5159:
5160: If okl_strmtyp_csr%Found Then
5161:
5162: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5163: x_return_status := OKC_API.g_ret_sts_error;
5164: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5165: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5166: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5159:
5160: If okl_strmtyp_csr%Found Then
5161:
5162: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5163: x_return_status := OKC_API.g_ret_sts_error;
5164: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5165: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5166: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5167: , p_msg_name => 'OKL_INVALID_VALUE'
5160: If okl_strmtyp_csr%Found Then
5161:
5162: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5163: x_return_status := OKC_API.g_ret_sts_error;
5164: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5165: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5166: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5167: , p_msg_name => 'OKL_INVALID_VALUE'
5168: , p_token1 => 'COL_NAME'
5162: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5163: x_return_status := OKC_API.g_ret_sts_error;
5164: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5165: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5166: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5167: , p_msg_name => 'OKL_INVALID_VALUE'
5168: , p_token1 => 'COL_NAME'
5169: , p_token1_value => l_service_ak_prompt
5170: );
5168: , p_token1 => 'COL_NAME'
5169: , p_token1_value => l_service_ak_prompt
5170: );
5171:
5172: raise OKC_API.G_EXCEPTION_ERROR;
5173:
5174: End If;
5175:
5176: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5172: raise OKC_API.G_EXCEPTION_ERROR;
5173:
5174: End If;
5175:
5176: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5177:
5178: x_return_status := OKC_API.g_ret_sts_error;
5179:
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5174: End If;
5175:
5176: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5177:
5178: x_return_status := OKC_API.g_ret_sts_error;
5179:
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5181:
5182: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5176: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5177:
5178: x_return_status := OKC_API.g_ret_sts_error;
5179:
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5181:
5182: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5183: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5184: , p_msg_name => 'OKL_INVALID_VALUE'
5179:
5180: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5181:
5182: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5183: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5184: , p_msg_name => 'OKL_INVALID_VALUE'
5185: , p_token1 => 'COL_NAME'
5186: , p_token1_value => l_service_ak_prompt
5187: );
5185: , p_token1 => 'COL_NAME'
5186: , p_token1_value => l_service_ak_prompt
5187: );
5188:
5189: raise OKC_API.G_EXCEPTION_ERROR;
5190:
5191: End If;
5192:
5193: row_count := 0;
5204: Exit When okl_strmtyp_csr%NotFound;
5205: End Loop;
5206:
5207: If row_count <> 1 Then
5208: x_return_status := OKC_API.g_ret_sts_error;
5209: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5210: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5211: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5212: , p_msg_name => 'OKL_INVALID_VALUE'
5205: End Loop;
5206:
5207: If row_count <> 1 Then
5208: x_return_status := OKC_API.g_ret_sts_error;
5209: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5210: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5211: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5212: , p_msg_name => 'OKL_INVALID_VALUE'
5213: , p_token1 => 'COL_NAME'
5207: If row_count <> 1 Then
5208: x_return_status := OKC_API.g_ret_sts_error;
5209: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5210: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5211: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5212: , p_msg_name => 'OKL_INVALID_VALUE'
5213: , p_token1 => 'COL_NAME'
5214: , p_token1_value => l_service_ak_prompt
5215: );
5213: , p_token1 => 'COL_NAME'
5214: , p_token1_value => l_service_ak_prompt
5215: );
5216:
5217: raise OKC_API.G_EXCEPTION_ERROR;
5218:
5219: End If;
5220: End If;
5221: End If;
5239: l_item_name := Null;
5240: l_item_description := Null;
5241: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5242: If okl_usage_csr%NotFound Then
5243: x_return_status := OKC_API.g_ret_sts_error;
5244: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5245: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5246: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5247: , p_msg_name => 'OKL_INVALID_VALUE'
5240: l_item_description := Null;
5241: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5242: If okl_usage_csr%NotFound Then
5243: x_return_status := OKC_API.g_ret_sts_error;
5244: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5245: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5246: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5247: , p_msg_name => 'OKL_INVALID_VALUE'
5248: , p_token1 => 'COL_NAME'
5242: If okl_usage_csr%NotFound Then
5243: x_return_status := OKC_API.g_ret_sts_error;
5244: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5245: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5246: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5247: , p_msg_name => 'OKL_INVALID_VALUE'
5248: , p_token1 => 'COL_NAME'
5249: , p_token1_value => l_service_ak_prompt
5250: );
5248: , p_token1 => 'COL_NAME'
5249: , p_token1_value => l_service_ak_prompt
5250: );
5251:
5252: raise OKC_API.G_EXCEPTION_ERROR;
5253:
5254: End If;
5255:
5256:
5265: Else
5266: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5267:
5268: If okl_usage_csr%Found Then
5269: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5270: x_return_status := OKC_API.g_ret_sts_error;
5271:
5272: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5273:
5266: Fetch okl_usage_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5267:
5268: If okl_usage_csr%Found Then
5269: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5270: x_return_status := OKC_API.g_ret_sts_error;
5271:
5272: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5273:
5274:
5268: If okl_usage_csr%Found Then
5269: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5270: x_return_status := OKC_API.g_ret_sts_error;
5271:
5272: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5273:
5274:
5275:
5276: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5274:
5275:
5276: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5277:
5278: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5279: , p_msg_name => 'OKL_INVALID_VALUE'
5280: , p_token1 => 'COL_NAME'
5281: , p_token1_value => l_service_ak_prompt);
5282:
5279: , p_msg_name => 'OKL_INVALID_VALUE'
5280: , p_token1 => 'COL_NAME'
5281: , p_token1_value => l_service_ak_prompt);
5282:
5283: raise OKC_API.G_EXCEPTION_ERROR;
5284:
5285: End If;
5286:
5287: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5283: raise OKC_API.G_EXCEPTION_ERROR;
5284:
5285: End If;
5286:
5287: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5288: x_return_status := OKC_API.g_ret_sts_error;
5289: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5290: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5291: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5284:
5285: End If;
5286:
5287: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5288: x_return_status := OKC_API.g_ret_sts_error;
5289: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5290: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5291: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5292: , p_msg_name => 'OKL_INVALID_VALUE'
5285: End If;
5286:
5287: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5288: x_return_status := OKC_API.g_ret_sts_error;
5289: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5290: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5291: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5292: , p_msg_name => 'OKL_INVALID_VALUE'
5293: , p_token1 => 'COL_NAME'
5287: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5288: x_return_status := OKC_API.g_ret_sts_error;
5289: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5290: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5291: OKC_API.SET_MESSAGE(p_app_name => g_app_name
5292: , p_msg_name => 'OKL_INVALID_VALUE'
5293: , p_token1 => 'COL_NAME'
5294: , p_token1_value => l_service_ak_prompt
5295:
5294: , p_token1_value => l_service_ak_prompt
5295:
5296: );
5297:
5298: raise OKC_API.G_EXCEPTION_ERROR;
5299:
5300: End If;
5301:
5302:
5330:
5331:
5332: If row_count <> 1 Then
5333:
5334: x_return_status := OKC_API.g_ret_sts_error;
5335:
5336:
5337:
5338: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5334: x_return_status := OKC_API.g_ret_sts_error;
5335:
5336:
5337:
5338: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5339:
5340:
5341:
5342: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5340:
5341:
5342: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5343:
5344: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5345:
5346: , p_msg_name => 'OKL_INVALID_VALUE'
5347:
5348: , p_token1 => 'COL_NAME'
5350: , p_token1_value => l_service_ak_prompt
5351:
5352: );
5353:
5354: raise OKC_API.G_EXCEPTION_ERROR;
5355:
5356: End If;
5357:
5358:
5398:
5399:
5400: If okx_asset_csr%NotFound Then
5401:
5402: x_return_status := OKC_API.g_ret_sts_error;
5403:
5404:
5405:
5406: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5402: x_return_status := OKC_API.g_ret_sts_error;
5403:
5404:
5405:
5406: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5407:
5408:
5409:
5410: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5408:
5409:
5410: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5411:
5412: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5413:
5414: , p_msg_name => 'OKL_INVALID_VALUE'
5415:
5416: , p_token1 => 'COL_NAME'
5418: , p_token1_value => l_service_ak_prompt
5419:
5420: );
5421:
5422: raise OKC_API.G_EXCEPTION_ERROR;
5423:
5424: End If;
5425:
5426:
5448: If okx_asset_csr%Found Then
5449:
5450:
5451:
5452: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5453:
5454: x_return_status := OKC_API.g_ret_sts_error;
5455:
5456:
5450:
5451:
5452: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5453:
5454: x_return_status := OKC_API.g_ret_sts_error;
5455:
5456:
5457:
5458: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5454: x_return_status := OKC_API.g_ret_sts_error;
5455:
5456:
5457:
5458: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5459:
5460:
5461:
5462: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5460:
5461:
5462: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5463:
5464: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5465:
5466: , p_msg_name => 'OKL_INVALID_VALUE'
5467:
5468: , p_token1 => 'COL_NAME'
5470: , p_token1_value => l_service_ak_prompt
5471:
5472: );
5473:
5474: raise OKC_API.G_EXCEPTION_ERROR;
5475:
5476: End If;
5477:
5478: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5474: raise OKC_API.G_EXCEPTION_ERROR;
5475:
5476: End If;
5477:
5478: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5479:
5480: x_return_status := OKC_API.g_ret_sts_error;
5481:
5482:
5476: End If;
5477:
5478: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5479:
5480: x_return_status := OKC_API.g_ret_sts_error;
5481:
5482:
5483:
5484: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5480: x_return_status := OKC_API.g_ret_sts_error;
5481:
5482:
5483:
5484: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5485:
5486:
5487:
5488: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5486:
5487:
5488: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5489:
5490: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5491:
5492: , p_msg_name => 'OKL_INVALID_VALUE'
5493:
5494: , p_token1 => 'COL_NAME'
5496: , p_token1_value => l_service_ak_prompt
5497:
5498: );
5499:
5500: raise OKC_API.G_EXCEPTION_ERROR;
5501:
5502: End If;
5503:
5504:
5532:
5533:
5534: If row_count <> 1 Then
5535:
5536: x_return_status := OKC_API.g_ret_sts_error;
5537:
5538:
5539:
5540: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5536: x_return_status := OKC_API.g_ret_sts_error;
5537:
5538:
5539:
5540: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5541:
5542:
5543:
5544: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5542:
5543:
5544: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5545:
5546: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5547:
5548: , p_msg_name => 'OKL_INVALID_VALUE'
5549:
5550: , p_token1 => 'COL_NAME'
5552: , p_token1_value => l_service_ak_prompt
5553:
5554: );
5555:
5556: raise OKC_API.G_EXCEPTION_ERROR;
5557:
5558: End If;
5559:
5560:
5600:
5601:
5602: If okx_covasst_csr%NotFound Then
5603:
5604: x_return_status := OKC_API.g_ret_sts_error;
5605:
5606:
5607:
5608: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5604: x_return_status := OKC_API.g_ret_sts_error;
5605:
5606:
5607:
5608: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5609:
5610:
5611:
5612: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5610:
5611:
5612: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5613:
5614: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5615:
5616: , p_msg_name => 'OKL_INVALID_VALUE'
5617:
5618: , p_token1 => 'COL_NAME'
5620: , p_token1_value => l_service_ak_prompt
5621:
5622: );
5623:
5624: raise OKC_API.G_EXCEPTION_ERROR;
5625:
5626: End If;
5627:
5628:
5642:
5643:
5644: Fetch okx_covasst_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5645: If okx_covasst_csr%Found Then
5646: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5647: x_return_status := OKC_API.g_ret_sts_error;
5648: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5649: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5650: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5643:
5644: Fetch okx_covasst_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5645: If okx_covasst_csr%Found Then
5646: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5647: x_return_status := OKC_API.g_ret_sts_error;
5648: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5649: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5650: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5651:
5644: Fetch okx_covasst_csr into l_item_id1,l_item_id2,l_item_name,l_item_description;
5645: If okx_covasst_csr%Found Then
5646: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5647: x_return_status := OKC_API.g_ret_sts_error;
5648: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5649: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5650: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5651:
5652: , p_msg_name => 'OKL_INVALID_VALUE'
5646: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5647: x_return_status := OKC_API.g_ret_sts_error;
5648: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5649: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5650: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5651:
5652: , p_msg_name => 'OKL_INVALID_VALUE'
5653:
5654: , p_token1 => 'COL_NAME'
5656: , p_token1_value => l_service_ak_prompt
5657:
5658: );
5659:
5660: raise OKC_API.G_EXCEPTION_ERROR;
5661:
5662: End If;
5663:
5664: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5660: raise OKC_API.G_EXCEPTION_ERROR;
5661:
5662: End If;
5663:
5664: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5665:
5666: x_return_status := OKC_API.g_ret_sts_error;
5667:
5668:
5662: End If;
5663:
5664: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5665:
5666: x_return_status := OKC_API.g_ret_sts_error;
5667:
5668:
5669:
5670: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5666: x_return_status := OKC_API.g_ret_sts_error;
5667:
5668:
5669:
5670: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5671:
5672:
5673:
5674: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5672:
5673:
5674: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5675:
5676: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5677:
5678: , p_msg_name => 'OKL_INVALID_VALUE'
5679:
5680: , p_token1 => 'COL_NAME'
5682: , p_token1_value => l_service_ak_prompt
5683:
5684: );
5685:
5686: raise OKC_API.G_EXCEPTION_ERROR;
5687:
5688: End If;
5689:
5690: row_count := 0;
5700: End Loop;
5701:
5702:
5703: If row_count <> 1 Then
5704: x_return_status := OKC_API.g_ret_sts_error;
5705:
5706: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5707:
5708: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5702:
5703: If row_count <> 1 Then
5704: x_return_status := OKC_API.g_ret_sts_error;
5705:
5706: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5707:
5708: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5709: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5710:
5705:
5706: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5707:
5708: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5709: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5710:
5711: , p_msg_name => 'OKL_INVALID_VALUE'
5712:
5713: , p_token1 => 'COL_NAME'
5715: , p_token1_value => l_service_ak_prompt
5716:
5717: );
5718:
5719: raise OKC_API.G_EXCEPTION_ERROR;
5720:
5721: End If;
5722:
5723:
5763:
5764:
5765: If okx_ib_item_csr%NotFound Then
5766:
5767: x_return_status := OKC_API.g_ret_sts_error;
5768:
5769:
5770:
5771: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5767: x_return_status := OKC_API.g_ret_sts_error;
5768:
5769:
5770:
5771: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5772:
5773:
5774:
5775: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5773:
5774:
5775: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5776:
5777: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5778:
5779: , p_msg_name => 'OKL_INVALID_VALUE'
5780:
5781: , p_token1 => 'COL_NAME'
5783: , p_token1_value => l_service_ak_prompt
5784:
5785: );
5786:
5787: raise OKC_API.G_EXCEPTION_ERROR;
5788:
5789: End If;
5790:
5791:
5813: If okx_ib_item_csr%Found Then
5814:
5815:
5816:
5817: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5818:
5819: x_return_status := OKC_API.g_ret_sts_error;
5820:
5821:
5815:
5816:
5817: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
5818:
5819: x_return_status := OKC_API.g_ret_sts_error;
5820:
5821:
5822:
5823: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5819: x_return_status := OKC_API.g_ret_sts_error;
5820:
5821:
5822:
5823: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5824:
5825:
5826:
5827: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5825:
5826:
5827: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5828:
5829: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5830:
5831: , p_msg_name => 'OKL_INVALID_VALUE'
5832:
5833: , p_token1 => 'COL_NAME'
5835: , p_token1_value => l_service_ak_prompt
5836:
5837: );
5838:
5839: raise OKC_API.G_EXCEPTION_ERROR;
5840:
5841: End If;
5842:
5843: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5839: raise OKC_API.G_EXCEPTION_ERROR;
5840:
5841: End If;
5842:
5843: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5844:
5845: x_return_status := OKC_API.g_ret_sts_error;
5846:
5847:
5841: End If;
5842:
5843: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
5844:
5845: x_return_status := OKC_API.g_ret_sts_error;
5846:
5847:
5848:
5849: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5845: x_return_status := OKC_API.g_ret_sts_error;
5846:
5847:
5848:
5849: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5850:
5851:
5852:
5853: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5851:
5852:
5853: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5854:
5855: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5856:
5857: , p_msg_name => 'OKL_INVALID_VALUE'
5858:
5859: , p_token1 => 'COL_NAME'
5861: , p_token1_value => l_service_ak_prompt
5862:
5863: );
5864:
5865: raise OKC_API.G_EXCEPTION_ERROR;
5866:
5867: End If;
5868:
5869:
5897:
5898:
5899: If row_count <> 1 Then
5900:
5901: x_return_status := OKC_API.g_ret_sts_error;
5902:
5903:
5904:
5905: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5901: x_return_status := OKC_API.g_ret_sts_error;
5902:
5903:
5904:
5905: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5906:
5907:
5908:
5909: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5907:
5908:
5909: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5910:
5911: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5912:
5913: , p_msg_name => 'OKL_INVALID_VALUE'
5914:
5915: , p_token1 => 'COL_NAME'
5917: , p_token1_value => l_service_ak_prompt
5918:
5919: );
5920:
5921: raise OKC_API.G_EXCEPTION_ERROR;
5922:
5923: End If;
5924:
5925:
5965:
5966:
5967: If okx_lease_csr%NotFound Then
5968:
5969: x_return_status := OKC_API.g_ret_sts_error;
5970:
5971:
5972:
5973: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5969: x_return_status := OKC_API.g_ret_sts_error;
5970:
5971:
5972:
5973: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
5974:
5975:
5976:
5977: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5975:
5976:
5977: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
5978:
5979: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5980:
5981: , p_msg_name => 'OKL_INVALID_VALUE'
5982:
5983: , p_token1 => 'COL_NAME'
5985: , p_token1_value => l_service_ak_prompt
5986:
5987: );
5988:
5989: raise OKC_API.G_EXCEPTION_ERROR;
5990:
5991: End If;
5992:
5993:
6015: If okx_lease_csr%Found Then
6016:
6017:
6018:
6019: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6020:
6021: x_return_status := OKC_API.g_ret_sts_error;
6022:
6023:
6017:
6018:
6019: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6020:
6021: x_return_status := OKC_API.g_ret_sts_error;
6022:
6023:
6024:
6025: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6021: x_return_status := OKC_API.g_ret_sts_error;
6022:
6023:
6024:
6025: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6026:
6027:
6028:
6029: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6027:
6028:
6029: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6030:
6031: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6032:
6033: , p_msg_name => 'OKL_INVALID_VALUE'
6034:
6035: , p_token1 => 'COL_NAME'
6037: , p_token1_value => l_service_ak_prompt
6038:
6039: );
6040:
6041: raise OKC_API.G_EXCEPTION_ERROR;
6042:
6043: End If;
6044:
6045: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6041: raise OKC_API.G_EXCEPTION_ERROR;
6042:
6043: End If;
6044:
6045: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6046:
6047: x_return_status := OKC_API.g_ret_sts_error;
6048:
6049:
6043: End If;
6044:
6045: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6046:
6047: x_return_status := OKC_API.g_ret_sts_error;
6048:
6049:
6050:
6051: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6047: x_return_status := OKC_API.g_ret_sts_error;
6048:
6049:
6050:
6051: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6052:
6053:
6054:
6055: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6053:
6054:
6055: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6056:
6057: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6058:
6059: , p_msg_name => 'OKL_INVALID_VALUE'
6060:
6061: , p_token1 => 'COL_NAME'
6063: , p_token1_value => l_service_ak_prompt
6064:
6065: );
6066:
6067: raise OKC_API.G_EXCEPTION_ERROR;
6068:
6069: End If;
6070:
6071:
6099:
6100:
6101: If row_count <> 1 Then
6102:
6103: x_return_status := OKC_API.g_ret_sts_error;
6104:
6105:
6106:
6107: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6103: x_return_status := OKC_API.g_ret_sts_error;
6104:
6105:
6106:
6107: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6108:
6109:
6110:
6111: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6109:
6110:
6111: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6112:
6113: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6114:
6115: , p_msg_name => 'OKL_INVALID_VALUE'
6116:
6117: , p_token1 => 'COL_NAME'
6119: , p_token1_value => l_service_ak_prompt
6120:
6121: );
6122:
6123: raise OKC_API.G_EXCEPTION_ERROR;
6124:
6125: End If;
6126:
6127:
6167:
6168:
6169: If okx_service_csr%NotFound Then
6170:
6171: x_return_status := OKC_API.g_ret_sts_error;
6172:
6173:
6174:
6175: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6171: x_return_status := OKC_API.g_ret_sts_error;
6172:
6173:
6174:
6175: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6176:
6177:
6178:
6179: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6177:
6178:
6179: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6180:
6181: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6182:
6183: , p_msg_name => 'OKL_INVALID_VALUE'
6184:
6185: , p_token1 => 'COL_NAME'
6187: , p_token1_value => l_service_ak_prompt
6188:
6189: );
6190:
6191: raise OKC_API.G_EXCEPTION_ERROR;
6192:
6193: End If;
6194:
6195:
6217: If okx_service_csr%Found Then
6218:
6219:
6220:
6221: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6222:
6223: x_return_status := OKC_API.g_ret_sts_error;
6224:
6225:
6219:
6220:
6221: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6222:
6223: x_return_status := OKC_API.g_ret_sts_error;
6224:
6225:
6226:
6227: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6223: x_return_status := OKC_API.g_ret_sts_error;
6224:
6225:
6226:
6227: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6228:
6229:
6230:
6231: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6229:
6230:
6231: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6232:
6233: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6234:
6235: , p_msg_name => 'OKL_INVALID_VALUE'
6236:
6237: , p_token1 => 'COL_NAME'
6239: , p_token1_value => l_service_ak_prompt
6240:
6241: );
6242:
6243: raise OKC_API.G_EXCEPTION_ERROR;
6244:
6245: End If;
6246:
6247: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6243: raise OKC_API.G_EXCEPTION_ERROR;
6244:
6245: End If;
6246:
6247: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6248:
6249: x_return_status := OKC_API.g_ret_sts_error;
6250:
6251:
6245: End If;
6246:
6247: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6248:
6249: x_return_status := OKC_API.g_ret_sts_error;
6250:
6251:
6252:
6253: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6249: x_return_status := OKC_API.g_ret_sts_error;
6250:
6251:
6252:
6253: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6254:
6255:
6256:
6257: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6255:
6256:
6257: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6258:
6259: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6260:
6261: , p_msg_name => 'OKL_INVALID_VALUE'
6262:
6263: , p_token1 => 'COL_NAME'
6265: , p_token1_value => l_service_ak_prompt
6266:
6267: );
6268:
6269: raise OKC_API.G_EXCEPTION_ERROR;
6270:
6271: End If;
6272:
6273:
6301:
6302:
6303: If row_count <> 1 Then
6304:
6305: x_return_status := OKC_API.g_ret_sts_error;
6306:
6307:
6308:
6309: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6305: x_return_status := OKC_API.g_ret_sts_error;
6306:
6307:
6308:
6309: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6310:
6311:
6312:
6313: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6311:
6312:
6313: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6314:
6315: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6316:
6317: , p_msg_name => 'OKL_INVALID_VALUE'
6318:
6319: , p_token1 => 'COL_NAME'
6321: , p_token1_value => l_service_ak_prompt
6322:
6323: );
6324:
6325: raise OKC_API.G_EXCEPTION_ERROR;
6326:
6327: End If;
6328:
6329:
6369:
6370:
6371: If okx_sysitem_csr%NotFound Then
6372:
6373: x_return_status := OKC_API.g_ret_sts_error;
6374:
6375:
6376:
6377: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6373: x_return_status := OKC_API.g_ret_sts_error;
6374:
6375:
6376:
6377: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6378:
6379:
6380:
6381: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6379:
6380:
6381: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6382:
6383: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6384:
6385: , p_msg_name => 'OKL_INVALID_VALUE'
6386:
6387: , p_token1 => 'COL_NAME'
6389: , p_token1_value => l_service_ak_prompt
6390:
6391: );
6392:
6393: raise OKC_API.G_EXCEPTION_ERROR;
6394:
6395: End If;
6396:
6397:
6419: If okx_sysitem_csr%Found Then
6420:
6421:
6422:
6423: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6424:
6425: x_return_status := OKC_API.g_ret_sts_error;
6426:
6427:
6421:
6422:
6423: If( p_item_id1 is null or p_item_id1 = OKC_API.G_MISS_CHAR) then
6424:
6425: x_return_status := OKC_API.g_ret_sts_error;
6426:
6427:
6428:
6429: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6425: x_return_status := OKC_API.g_ret_sts_error;
6426:
6427:
6428:
6429: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6430:
6431:
6432:
6433: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6431:
6432:
6433: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6434:
6435: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6436:
6437: , p_msg_name => 'OKL_INVALID_VALUE'
6438:
6439: , p_token1 => 'COL_NAME'
6441: , p_token1_value => l_service_ak_prompt
6442:
6443: );
6444:
6445: raise OKC_API.G_EXCEPTION_ERROR;
6446:
6447: End If;
6448:
6449: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6445: raise OKC_API.G_EXCEPTION_ERROR;
6446:
6447: End If;
6448:
6449: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6450:
6451: x_return_status := OKC_API.g_ret_sts_error;
6452:
6453:
6447: End If;
6448:
6449: If( p_item_id2 is null or p_item_id2 = OKC_API.G_MISS_CHAR) then
6450:
6451: x_return_status := OKC_API.g_ret_sts_error;
6452:
6453:
6454:
6455: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6451: x_return_status := OKC_API.g_ret_sts_error;
6452:
6453:
6454:
6455: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6456:
6457:
6458:
6459: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6457:
6458:
6459: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6460:
6461: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6462:
6463: , p_msg_name => 'OKL_INVALID_VALUE'
6464:
6465: , p_token1 => 'COL_NAME'
6467: , p_token1_value => l_service_ak_prompt
6468:
6469: );
6470:
6471: raise OKC_API.G_EXCEPTION_ERROR;
6472:
6473: End If;
6474:
6475:
6503:
6504:
6505: If row_count <> 1 Then
6506:
6507: x_return_status := OKC_API.g_ret_sts_error;
6508:
6509:
6510:
6511: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6507: x_return_status := OKC_API.g_ret_sts_error;
6508:
6509:
6510:
6511: -- OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_INVALID_VALUE');
6512:
6513:
6514:
6515: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6513:
6514:
6515: l_service_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
6516:
6517: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6518:
6519: , p_msg_name => 'OKL_INVALID_VALUE'
6520:
6521: , p_token1 => 'COL_NAME'
6523: , p_token1_value => l_service_ak_prompt
6524:
6525: );
6526:
6527: raise OKC_API.G_EXCEPTION_ERROR;
6528:
6529: End If;
6530:
6531:
6547: END IF;
6548:
6549:
6550:
6551: If p_cle_id is null or p_cle_id = OKC_API.G_MISS_NUM Then
6552:
6553: OPEN check_item_csr(p_chr_id, p_lty_code, p_item_id1, p_item_id2 );
6554:
6555: FETCH check_item_csr INTO row_count;
6557: CLOSE check_item_csr;
6558:
6559: If row_count = 1 Then
6560:
6561: x_return_status := OKC_API.g_ret_sts_error;
6562:
6563: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6564:
6565: raise OKC_API.G_EXCEPTION_ERROR;
6559: If row_count = 1 Then
6560:
6561: x_return_status := OKC_API.g_ret_sts_error;
6562:
6563: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6564:
6565: raise OKC_API.G_EXCEPTION_ERROR;
6566:
6567: End If;
6561: x_return_status := OKC_API.g_ret_sts_error;
6562:
6563: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6564:
6565: raise OKC_API.G_EXCEPTION_ERROR;
6566:
6567: End If;
6568:
6569: Else
6585: CLOSE check_item_csr;
6586:
6587: If row_count = 1 Then
6588:
6589: x_return_status := OKC_API.g_ret_sts_error;
6590:
6591: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6592:
6593: raise OKC_API.G_EXCEPTION_ERROR;
6587: If row_count = 1 Then
6588:
6589: x_return_status := OKC_API.g_ret_sts_error;
6590:
6591: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6592:
6593: raise OKC_API.G_EXCEPTION_ERROR;
6594:
6595: End If;
6589: x_return_status := OKC_API.g_ret_sts_error;
6590:
6591: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_DUPLICATE_SERVICE_FEE');
6592:
6593: raise OKC_API.G_EXCEPTION_ERROR;
6594:
6595: End If;
6596:
6597: End If;
6599: End If;
6600:
6601:
6602:
6603: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6604:
6605:
6606:
6607: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
6603: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6604:
6605:
6606:
6607: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
6608:
6609:
6610:
6611: EXCEPTION
6609:
6610:
6611: EXCEPTION
6612:
6613: when OKC_API.G_EXCEPTION_ERROR then
6614:
6615: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6616:
6617: p_api_name => l_api_name,
6611: EXCEPTION
6612:
6613: when OKC_API.G_EXCEPTION_ERROR then
6614:
6615: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6616:
6617: p_api_name => l_api_name,
6618:
6619: p_pkg_name => g_pkg_name,
6617: p_api_name => l_api_name,
6618:
6619: p_pkg_name => g_pkg_name,
6620:
6621: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
6622:
6623: x_msg_count => x_msg_count,
6624:
6625: x_msg_data => x_msg_data,
6659: END IF;
6660:
6661:
6662:
6663: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
6664:
6665: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6666:
6667: p_api_name => l_api_name,
6661:
6662:
6663: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
6664:
6665: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6666:
6667: p_api_name => l_api_name,
6668:
6669: p_pkg_name => g_pkg_name,
6667: p_api_name => l_api_name,
6668:
6669: p_pkg_name => g_pkg_name,
6670:
6671: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
6672:
6673: x_msg_count => x_msg_count,
6674:
6675: x_msg_data => x_msg_data,
6711:
6712:
6713: when OTHERS then
6714:
6715: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6716:
6717: p_api_name => l_api_name,
6718:
6719: p_pkg_name => g_pkg_name,
6773: -- Parameters :
6774: -- Version : 1.0
6775: -- End of comments
6776: Procedure Validate_Creditline (p_api_version IN NUMBER,
6777: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
6778: x_return_status OUT NOCOPY VARCHAR2,
6779: x_msg_count OUT NOCOPY NUMBER,
6780: x_msg_data OUT NOCOPY VARCHAR2,
6781: p_chr_id IN NUMBER,
6910: If okl_context.get_okc_org_id is null then
6911: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
6912: End If;
6913:
6914: x_return_status := OKC_API.START_ACTIVITY(
6915: p_api_name => l_api_name,
6916: p_pkg_name => g_pkg_name,
6917: p_init_msg_list => p_init_msg_list,
6918: l_api_version => l_api_version,
6920: p_api_type => g_api_type,
6921: x_return_status => x_return_status);
6922:
6923: -- check if activity started successfully
6924: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6927: raise OKC_API.G_EXCEPTION_ERROR;
6928: End If;
6921: x_return_status => x_return_status);
6922:
6923: -- check if activity started successfully
6924: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6927: raise OKC_API.G_EXCEPTION_ERROR;
6928: End If;
6929:
6922:
6923: -- check if activity started successfully
6924: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6927: raise OKC_API.G_EXCEPTION_ERROR;
6928: End If;
6929:
6930: l_fund_yn := null;
6923: -- check if activity started successfully
6924: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
6925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
6927: raise OKC_API.G_EXCEPTION_ERROR;
6928: End If;
6929:
6930: l_fund_yn := null;
6931: open is_k_fund_aprvd_csr;
6950: If ( l_cl_id is not null and l_fund_yn = 'Y') Then
6951:
6952: If( p_cl_no is null or l_cl_k_no <> p_cl_no) Then
6953:
6954: x_return_status := OKC_API.g_ret_sts_error;
6955: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6956: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6957: , p_msg_name => 'OKL_CL_FUND_STS_CHK'
6958: , p_token1 => 'COL_NAME'
6952: If( p_cl_no is null or l_cl_k_no <> p_cl_no) Then
6953:
6954: x_return_status := OKC_API.g_ret_sts_error;
6955: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6956: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6957: , p_msg_name => 'OKL_CL_FUND_STS_CHK'
6958: , p_token1 => 'COL_NAME'
6959: , p_token1_value => l_cl_k_no
6960: );
6957: , p_msg_name => 'OKL_CL_FUND_STS_CHK'
6958: , p_token1 => 'COL_NAME'
6959: , p_token1_value => l_cl_k_no
6960: );
6961: raise OKC_API.G_EXCEPTION_ERROR;
6962:
6963: End If;
6964:
6965: 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
6963: End If;
6964:
6965: 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
6966:
6967: x_return_status := OKC_API.g_ret_sts_error;
6968: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6969: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6970: , p_msg_name => 'OKL_CL_FUND_STS_CHK1'
6971: );
6965: 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
6966:
6967: x_return_status := OKC_API.g_ret_sts_error;
6968: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6969: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6970: , p_msg_name => 'OKL_CL_FUND_STS_CHK1'
6971: );
6972: raise OKC_API.G_EXCEPTION_ERROR;
6973:
6968: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6969: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6970: , p_msg_name => 'OKL_CL_FUND_STS_CHK1'
6971: );
6972: raise OKC_API.G_EXCEPTION_ERROR;
6973:
6974: End If;
6975:
6976: -- check the mla contract credit line
6984:
6985: -- funding approved, can not change mla
6986: If( p_mla_no is null or l_mla_no <> p_mla_no) Then
6987:
6988: x_return_status := OKC_API.g_ret_sts_error;
6989: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6990: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6991: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD'
6992: , p_token1 => 'COL_NAME'
6986: If( p_mla_no is null or l_mla_no <> p_mla_no) Then
6987:
6988: x_return_status := OKC_API.g_ret_sts_error;
6989: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
6990: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6991: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD'
6992: , p_token1 => 'COL_NAME'
6993: , p_token1_value => l_mla_no
6994: );
6991: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD'
6992: , p_token1 => 'COL_NAME'
6993: , p_token1_value => l_mla_no
6994: );
6995: raise OKC_API.G_EXCEPTION_ERROR;
6996:
6997: End If;
6998: -- mla cl not attached
6999: 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
6997: End If;
6998: -- mla cl not attached
6999: 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
7000:
7001: x_return_status := OKC_API.g_ret_sts_error;
7002: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7003: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7004: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD1'
7005: );
6999: 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
7000:
7001: x_return_status := OKC_API.g_ret_sts_error;
7002: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7003: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7004: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD1'
7005: );
7006: raise OKC_API.G_EXCEPTION_ERROR;
7007:
7002: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7003: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7004: , p_msg_name => 'OKL_MLA_CL_FUND_APRVD1'
7005: );
7006: raise OKC_API.G_EXCEPTION_ERROR;
7007:
7008: End If;
7009:
7010: l_cl_rev_yn := null;
7029: If (p_deal_type = 'LOAN-REVOLVING') Then
7030:
7031: If (p_cl_no is not null and (l_cl_rev_yn is null or l_cl_rev_yn = 'N')) Then
7032:
7033: x_return_status := OKC_API.g_ret_sts_error;
7034: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7035: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7036: );
7037: raise OKC_API.G_EXCEPTION_ERROR;
7030:
7031: If (p_cl_no is not null and (l_cl_rev_yn is null or l_cl_rev_yn = 'N')) Then
7032:
7033: x_return_status := OKC_API.g_ret_sts_error;
7034: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7035: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7036: );
7037: raise OKC_API.G_EXCEPTION_ERROR;
7038:
7033: x_return_status := OKC_API.g_ret_sts_error;
7034: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7035: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7036: );
7037: raise OKC_API.G_EXCEPTION_ERROR;
7038:
7039: End If;
7040:
7041: -- if master lease exists and mla cl exists and rev yn is not null and cl rev yn is N
7043: If ( p_mla_no is not null and
7044: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7045: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'N') ) Then
7046:
7047: x_return_status := OKC_API.g_ret_sts_error;
7048: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7049: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7050: );
7051: raise OKC_API.G_EXCEPTION_ERROR;
7044: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7045: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'N') ) Then
7046:
7047: x_return_status := OKC_API.g_ret_sts_error;
7048: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7049: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7050: );
7051: raise OKC_API.G_EXCEPTION_ERROR;
7052:
7047: x_return_status := OKC_API.g_ret_sts_error;
7048: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7049: , p_msg_name => 'OKL_LLA_REVOLVING_CREDIT'
7050: );
7051: raise OKC_API.G_EXCEPTION_ERROR;
7052:
7053: End If;
7054:
7055: Else
7055: Else
7056:
7057: If (p_cl_no is not null and l_cl_rev_yn is not null and l_cl_rev_yn = 'Y') Then
7058:
7059: x_return_status := OKC_API.g_ret_sts_error;
7060: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7061: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7062: );
7063: raise OKC_API.G_EXCEPTION_ERROR;
7056:
7057: If (p_cl_no is not null and l_cl_rev_yn is not null and l_cl_rev_yn = 'Y') Then
7058:
7059: x_return_status := OKC_API.g_ret_sts_error;
7060: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7061: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7062: );
7063: raise OKC_API.G_EXCEPTION_ERROR;
7064:
7059: x_return_status := OKC_API.g_ret_sts_error;
7060: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7061: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7062: );
7063: raise OKC_API.G_EXCEPTION_ERROR;
7064:
7065: End If;
7066:
7067: If (p_mla_no is not null and
7067: If (p_mla_no is not null and
7068: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7069: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'Y')) Then
7070:
7071: x_return_status := OKC_API.g_ret_sts_error;
7072: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7073: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7074: );
7075: raise OKC_API.G_EXCEPTION_ERROR;
7068: (l_mla_cl_yn is not null and l_mla_cl_yn = 'Y') and
7069: (l_mla_cl_rev_yn is not null and l_mla_cl_rev_yn = 'Y')) Then
7070:
7071: x_return_status := OKC_API.g_ret_sts_error;
7072: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7073: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7074: );
7075: raise OKC_API.G_EXCEPTION_ERROR;
7076:
7071: x_return_status := OKC_API.g_ret_sts_error;
7072: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7073: , p_msg_name => 'OKL_LLA_NOT_REVOLVING_CREDIT'
7074: );
7075: raise OKC_API.G_EXCEPTION_ERROR;
7076:
7077: End If;
7078:
7079: End If; -- end of loan revolving
7098: p_MLA_id => l_mla_id,
7099: p_creditline_id => l_cl_id
7100: );
7101:
7102: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7103: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7104: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7105: raise OKC_API.G_EXCEPTION_ERROR;
7106: End If;
7099: p_creditline_id => l_cl_id
7100: );
7101:
7102: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7103: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7104: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7105: raise OKC_API.G_EXCEPTION_ERROR;
7106: End If;
7107:
7100: );
7101:
7102: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7103: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7104: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7105: raise OKC_API.G_EXCEPTION_ERROR;
7106: End If;
7107:
7108: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7101:
7102: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7103: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7104: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7105: raise OKC_API.G_EXCEPTION_ERROR;
7106: End If;
7107:
7108: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7109:
7104: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7105: raise OKC_API.G_EXCEPTION_ERROR;
7106: End If;
7107:
7108: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7109:
7110: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7111:
7112: EXCEPTION
7106: End If;
7107:
7108: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7109:
7110: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7111:
7112: EXCEPTION
7113: when OKC_API.G_EXCEPTION_ERROR then
7114: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7109:
7110: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7111:
7112: EXCEPTION
7113: when OKC_API.G_EXCEPTION_ERROR then
7114: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7115: p_api_name => l_api_name,
7116: p_pkg_name => g_pkg_name,
7117: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7110: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7111:
7112: EXCEPTION
7113: when OKC_API.G_EXCEPTION_ERROR then
7114: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7115: p_api_name => l_api_name,
7116: p_pkg_name => g_pkg_name,
7117: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7118: x_msg_count => x_msg_count,
7113: when OKC_API.G_EXCEPTION_ERROR then
7114: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7115: p_api_name => l_api_name,
7116: p_pkg_name => g_pkg_name,
7117: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7118: x_msg_count => x_msg_count,
7119: x_msg_data => x_msg_data,
7120: p_api_type => g_api_type);
7121:
7118: x_msg_count => x_msg_count,
7119: x_msg_data => x_msg_data,
7120: p_api_type => g_api_type);
7121:
7122: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7123: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7124: p_api_name => l_api_name,
7125: p_pkg_name => g_pkg_name,
7126: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7119: x_msg_data => x_msg_data,
7120: p_api_type => g_api_type);
7121:
7122: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7123: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7124: p_api_name => l_api_name,
7125: p_pkg_name => g_pkg_name,
7126: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7127: x_msg_count => x_msg_count,
7122: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7123: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7124: p_api_name => l_api_name,
7125: p_pkg_name => g_pkg_name,
7126: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7127: x_msg_count => x_msg_count,
7128: x_msg_data => x_msg_data,
7129: p_api_type => g_api_type);
7130:
7128: x_msg_data => x_msg_data,
7129: p_api_type => g_api_type);
7130:
7131: when OTHERS then
7132: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7133: p_api_name => l_api_name,
7134: p_pkg_name => g_pkg_name,
7135: p_exc_name => 'OTHERS',
7136: x_msg_count => x_msg_count,
7152: -- End of comments
7153:
7154: PROCEDURE validate_deal(
7155: p_api_version IN NUMBER,
7156: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7157: x_return_status OUT NOCOPY VARCHAR2,
7158: x_msg_count OUT NOCOPY NUMBER,
7159: x_msg_data OUT NOCOPY VARCHAR2,
7160: p_chr_id IN NUMBER,
7302: End If;
7303:
7304:
7305:
7306: x_return_status := OKC_API.START_ACTIVITY(
7307:
7308: p_api_name => l_api_name,
7309:
7310: p_pkg_name => g_pkg_name,
7322:
7323:
7324: -- check if activity started successfully
7325:
7326: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7327:
7328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7329:
7330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7324: -- check if activity started successfully
7325:
7326: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7327:
7328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7329:
7330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7331:
7332: raise OKC_API.G_EXCEPTION_ERROR;
7326: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7327:
7328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7329:
7330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7331:
7332: raise OKC_API.G_EXCEPTION_ERROR;
7333:
7334: End If;
7328: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7329:
7330: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7331:
7332: raise OKC_API.G_EXCEPTION_ERROR;
7333:
7334: End If;
7335:
7336: -- contract number validation
7336: -- contract number validation
7337:
7338: If(p_contract_number is null) Then
7339:
7340: x_return_status := OKC_API.g_ret_sts_error;
7341:
7342: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
7343:
7344: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7340: x_return_status := OKC_API.g_ret_sts_error;
7341:
7342: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
7343:
7344: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7345:
7346: , p_msg_name => 'OKL_REQUIRED_VALUE'
7347:
7348: , p_token1 => 'COL_NAME'
7350: , p_token1_value => l_ak_prompt
7351:
7352: );
7353:
7354: raise OKC_API.G_EXCEPTION_ERROR;
7355:
7356: End If;
7357:
7358:
7378:
7379:
7380: If p_mla_id is null Then
7381:
7382: x_return_status := OKC_API.g_ret_sts_error;
7383:
7384: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_MASTER_LEASE_NUMBER');
7385:
7386: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7382: x_return_status := OKC_API.g_ret_sts_error;
7383:
7384: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_MASTER_LEASE_NUMBER');
7385:
7386: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7387:
7388: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7389:
7390: , p_token1 => 'COL_NAME'
7392: , p_token1_value => l_ak_prompt
7393:
7394: );
7395:
7396: raise OKC_API.G_EXCEPTION_ERROR;
7397:
7398: End If;
7399:
7400:
7460: );
7461:
7462:
7463:
7464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7465:
7466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467:
7468: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7462:
7463:
7464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7465:
7466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467:
7468: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7469:
7470: raise OKC_API.G_EXCEPTION_ERROR;
7464: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7465:
7466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467:
7468: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7469:
7470: raise OKC_API.G_EXCEPTION_ERROR;
7471:
7472: End If;
7466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467:
7468: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7469:
7470: raise OKC_API.G_EXCEPTION_ERROR;
7471:
7472: End If;
7473:
7474:
7481:
7482:
7483: If(p_customer_name is null) Then
7484:
7485: x_return_status := OKC_API.g_ret_sts_error;
7486:
7487: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
7488:
7489: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7485: x_return_status := OKC_API.g_ret_sts_error;
7486:
7487: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
7488:
7489: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7490:
7491: , p_msg_name => 'OKL_REQUIRED_VALUE'
7492:
7493: , p_token1 => 'COL_NAME'
7495: , p_token1_value => l_ak_prompt
7496:
7497: );
7498:
7499: raise OKC_API.G_EXCEPTION_ERROR;
7500:
7501: End If;
7502:
7503:
7535: );
7536:
7537:
7538:
7539: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7540:
7541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7542:
7543: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7537:
7538:
7539: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7540:
7541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7542:
7543: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7544:
7545: raise OKC_API.G_EXCEPTION_ERROR;
7539: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7540:
7541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7542:
7543: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7544:
7545: raise OKC_API.G_EXCEPTION_ERROR;
7546:
7547: End If;
7541: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7542:
7543: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7544:
7545: raise OKC_API.G_EXCEPTION_ERROR;
7546:
7547: End If;
7548:
7549: -- rebook validation
7559: close l_get_cust_csr;
7560:
7561:
7562: 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
7563: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7564: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7565: );
7566:
7567: raise OKC_API.G_EXCEPTION_ERROR;
7563: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7564: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7565: );
7566:
7567: raise OKC_API.G_EXCEPTION_ERROR;
7568: End If;
7569:
7570: End If;
7571:
7588:
7589:
7590: If p_chr_cust_acct_id is null Then
7591:
7592: x_return_status := OKC_API.g_ret_sts_error;
7593:
7594: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7595:
7596: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7592: x_return_status := OKC_API.g_ret_sts_error;
7593:
7594: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7595:
7596: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7597:
7598: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7599:
7600: , p_token1 => 'COL_NAME'
7602: , p_token1_value => l_ak_prompt
7603:
7604: );
7605:
7606: raise OKC_API.G_EXCEPTION_ERROR;
7607:
7608: End If;
7609:
7610:
7616: Else
7617:
7618:
7619: If(p_customer_acc_name is null) Then
7620: x_return_status := OKC_API.g_ret_sts_error;
7621: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7622: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7623: , p_msg_name => 'OKL_REQUIRED_VALUE'
7624: , p_token1 => 'COL_NAME'
7618:
7619: If(p_customer_acc_name is null) Then
7620: x_return_status := OKC_API.g_ret_sts_error;
7621: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7622: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7623: , p_msg_name => 'OKL_REQUIRED_VALUE'
7624: , p_token1 => 'COL_NAME'
7625: , p_token1_value => l_ak_prompt
7626: );
7623: , p_msg_name => 'OKL_REQUIRED_VALUE'
7624: , p_token1 => 'COL_NAME'
7625: , p_token1_value => l_ak_prompt
7626: );
7627: raise OKC_API.G_EXCEPTION_ERROR;
7628: End If;
7629:
7630:
7631: p_chr_cust_acct_id := null;
7634: close l_chk_cust_acc_csr;
7635:
7636:
7637: If p_chr_cust_acct_id is null Then
7638: x_return_status := OKC_API.g_ret_sts_error;
7639: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7640: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7641: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7642: , p_token1 => 'COL_NAME'
7636:
7637: If p_chr_cust_acct_id is null Then
7638: x_return_status := OKC_API.g_ret_sts_error;
7639: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
7640: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7641: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7642: , p_token1 => 'COL_NAME'
7643: , p_token1_value => l_ak_prompt
7644: );
7641: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7642: , p_token1 => 'COL_NAME'
7643: , p_token1_value => l_ak_prompt
7644: );
7645: raise OKC_API.G_EXCEPTION_ERROR;
7646: End If;
7647:
7648: -- rebook validation
7649:
7649:
7650: If( l_re_book is not null and l_re_book = 'OKL_REBOOK') Then
7651:
7652: 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
7653: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7654: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7655: );
7656:
7657: raise OKC_API.G_EXCEPTION_ERROR;
7653: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7654: , p_msg_name => 'OKL_REBOOK_CUST_VALIDATION'
7655: );
7656:
7657: raise OKC_API.G_EXCEPTION_ERROR;
7658: End If;
7659:
7660: End If;
7661:
7669: fetch l_rollover_fee_csr into l_rollover_yn;
7670: close l_rollover_fee_csr;
7671:
7672: If (l_rollover_yn = 'Y') Then
7673: x_return_status := OKC_API.g_ret_sts_error;
7674: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7675: , p_msg_name => 'OKL_LLA_RQ_NO_K_TMP' -- Rollover Fee attached, cannot create teplate contract
7676: );
7677: raise OKC_API.G_EXCEPTION_ERROR;
7670: close l_rollover_fee_csr;
7671:
7672: If (l_rollover_yn = 'Y') Then
7673: x_return_status := OKC_API.g_ret_sts_error;
7674: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7675: , p_msg_name => 'OKL_LLA_RQ_NO_K_TMP' -- Rollover Fee attached, cannot create teplate contract
7676: );
7677: raise OKC_API.G_EXCEPTION_ERROR;
7678: End If;
7673: x_return_status := OKC_API.g_ret_sts_error;
7674: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7675: , p_msg_name => 'OKL_LLA_RQ_NO_K_TMP' -- Rollover Fee attached, cannot create teplate contract
7676: );
7677: raise OKC_API.G_EXCEPTION_ERROR;
7678: End If;
7679:
7680: End If;
7681:
7692: fetch l_product_csr into p_product_id,p_product_desc;
7693: close l_product_csr;
7694:
7695: If p_product_id is null Then
7696: x_return_status := OKC_API.g_ret_sts_error;
7697: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7698: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7699: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7700: , p_token1 => 'COL_NAME'
7694:
7695: If p_product_id is null Then
7696: x_return_status := OKC_API.g_ret_sts_error;
7697: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7698: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7699: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7700: , p_token1 => 'COL_NAME'
7701: , p_token1_value => l_ak_prompt
7702: );
7699: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7700: , p_token1 => 'COL_NAME'
7701: , p_token1_value => l_ak_prompt
7702: );
7703: raise OKC_API.G_EXCEPTION_ERROR;
7704: End If;
7705:
7706: End If;
7707:
7707:
7708: Else
7709:
7710: If(p_product_name is null) Then
7711: x_return_status := OKC_API.g_ret_sts_error;
7712: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7713: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7714: , p_msg_name => 'OKL_REQUIRED_VALUE'
7715: , p_token1 => 'COL_NAME'
7709:
7710: If(p_product_name is null) Then
7711: x_return_status := OKC_API.g_ret_sts_error;
7712: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7713: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7714: , p_msg_name => 'OKL_REQUIRED_VALUE'
7715: , p_token1 => 'COL_NAME'
7716: , p_token1_value => l_ak_prompt
7717: );
7714: , p_msg_name => 'OKL_REQUIRED_VALUE'
7715: , p_token1 => 'COL_NAME'
7716: , p_token1_value => l_ak_prompt
7717: );
7718: raise OKC_API.G_EXCEPTION_ERROR;
7719: End If;
7720:
7721:
7722: p_product_id := null;
7727: close l_product_csr;
7728:
7729: If p_product_id is null Then
7730:
7731: x_return_status := OKC_API.g_ret_sts_error;
7732: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7733: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7734: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7735: , p_token1 => 'COL_NAME'
7729: If p_product_id is null Then
7730:
7731: x_return_status := OKC_API.g_ret_sts_error;
7732: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
7733: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7734: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7735: , p_token1 => 'COL_NAME'
7736: , p_token1_value => l_ak_prompt
7737: );
7734: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7735: , p_token1 => 'COL_NAME'
7736: , p_token1_value => l_ak_prompt
7737: );
7738: raise OKC_API.G_EXCEPTION_ERROR;
7739:
7740: End If;
7741:
7742: End If;
7753: close l_program_csr;
7754:
7755: If p_program_id is null Then
7756:
7757: x_return_status := OKC_API.g_ret_sts_error;
7758: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PROGRAM');
7759: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7760: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7761: , p_token1 => 'COL_NAME'
7755: If p_program_id is null Then
7756:
7757: x_return_status := OKC_API.g_ret_sts_error;
7758: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PROGRAM');
7759: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7760: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7761: , p_token1 => 'COL_NAME'
7762: , p_token1_value => l_ak_prompt
7763: );
7760: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7761: , p_token1 => 'COL_NAME'
7762: , p_token1_value => l_ak_prompt
7763: );
7764: raise OKC_API.G_EXCEPTION_ERROR;
7765:
7766: End If;
7767:
7768: End If;
7772: -- Currency validation
7773:
7774: If(p_currency_code is null) Then
7775:
7776: x_return_status := OKC_API.g_ret_sts_error;
7777: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7778: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7779: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7780: , p_token1 => 'COL_NAME'
7774: If(p_currency_code is null) Then
7775:
7776: x_return_status := OKC_API.g_ret_sts_error;
7777: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7778: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7779: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7780: , p_token1 => 'COL_NAME'
7781: , p_token1_value => l_ak_prompt
7782: );
7780: , p_token1 => 'COL_NAME'
7781: , p_token1_value => l_ak_prompt
7782: );
7783:
7784: raise OKC_API.G_EXCEPTION_ERROR;
7785:
7786: End If;
7787:
7788:
7793: close l_currency_csr;
7794:
7795: If l_currency_code is null Then
7796:
7797: x_return_status := OKC_API.g_ret_sts_error;
7798: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7799: OKC_API.SET_MESSAGE(
7800: p_app_name => g_app_name
7801: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7795: If l_currency_code is null Then
7796:
7797: x_return_status := OKC_API.g_ret_sts_error;
7798: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CURRENCY');
7799: OKC_API.SET_MESSAGE(
7800: p_app_name => g_app_name
7801: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7802: , p_token1 => 'COL_NAME'
7803: , p_token1_value => l_ak_prompt
7802: , p_token1 => 'COL_NAME'
7803: , p_token1_value => l_ak_prompt
7804: );
7805:
7806: raise OKC_API.G_EXCEPTION_ERROR;
7807:
7808: End If;
7809:
7810: -- creditline validation
7818: fetch l_credit_line_csr into p_credit_line_id,l_revolving_credit_yn;
7819: close l_credit_line_csr;
7820:
7821: If p_credit_line_id is null Then
7822: x_return_status := OKC_API.g_ret_sts_error;
7823: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7824: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7825: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7826: , p_token1 => 'COL_NAME'
7820:
7821: If p_credit_line_id is null Then
7822: x_return_status := OKC_API.g_ret_sts_error;
7823: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
7824: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7825: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
7826: , p_token1 => 'COL_NAME'
7827: , p_token1_value => l_ak_prompt
7828:
7826: , p_token1 => 'COL_NAME'
7827: , p_token1_value => l_ak_prompt
7828:
7829: );
7830: raise OKC_API.G_EXCEPTION_ERROR;
7831: End If;
7832: End If;
7833:
7834:
7870: );
7871:
7872:
7873:
7874: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7875:
7876: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877:
7878: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7872:
7873:
7874: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7875:
7876: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877:
7878: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7879:
7880: raise OKC_API.G_EXCEPTION_ERROR;
7874: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
7875:
7876: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877:
7878: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7879:
7880: raise OKC_API.G_EXCEPTION_ERROR;
7881:
7882: End If;
7876: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877:
7878: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
7879:
7880: raise OKC_API.G_EXCEPTION_ERROR;
7881:
7882: End If;
7883:
7884:
7888:
7889:
7890:
7891:
7892: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
7893:
7894: x_msg_data => x_msg_data);
7895:
7896: EXCEPTION
7894: x_msg_data => x_msg_data);
7895:
7896: EXCEPTION
7897:
7898: when OKC_API.G_EXCEPTION_ERROR then
7899:
7900: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7901:
7902: p_api_name => l_api_name,
7896: EXCEPTION
7897:
7898: when OKC_API.G_EXCEPTION_ERROR then
7899:
7900: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7901:
7902: p_api_name => l_api_name,
7903:
7904: p_pkg_name => g_pkg_name,
7902: p_api_name => l_api_name,
7903:
7904: p_pkg_name => g_pkg_name,
7905:
7906: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
7907:
7908: x_msg_count => x_msg_count,
7909:
7910: x_msg_data => x_msg_data,
7912: p_api_type => g_api_type);
7913:
7914:
7915:
7916: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7917:
7918: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7919:
7920: p_api_name => l_api_name,
7914:
7915:
7916: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
7917:
7918: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7919:
7920: p_api_name => l_api_name,
7921:
7922: p_pkg_name => g_pkg_name,
7920: p_api_name => l_api_name,
7921:
7922: p_pkg_name => g_pkg_name,
7923:
7924: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
7925:
7926: x_msg_count => x_msg_count,
7927:
7928: x_msg_data => x_msg_data,
7932:
7933:
7934: when OTHERS then
7935:
7936: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
7937:
7938: p_api_name => l_api_name,
7939:
7940: p_pkg_name => g_pkg_name,
7952:
7953:
7954: Procedure Validate_Service (p_api_version IN NUMBER,
7955:
7956: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
7957:
7958: x_return_status OUT NOCOPY VARCHAR2,
7959:
7960: x_msg_count OUT NOCOPY NUMBER,
8030: End If;
8031:
8032:
8033:
8034: x_return_status := OKC_API.START_ACTIVITY(
8035:
8036: p_api_name => l_api_name,
8037:
8038: p_pkg_name => g_pkg_name,
8050:
8051:
8052: -- check if activity started successfully
8053:
8054: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8055:
8056: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057:
8058: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8052: -- check if activity started successfully
8053:
8054: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8055:
8056: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057:
8058: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8059:
8060: raise OKC_API.G_EXCEPTION_ERROR;
8054: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8055:
8056: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057:
8058: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8059:
8060: raise OKC_API.G_EXCEPTION_ERROR;
8061:
8062: End If;
8056: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057:
8058: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8059:
8060: raise OKC_API.G_EXCEPTION_ERROR;
8061:
8062: End If;
8063:
8064:
8062: End If;
8063:
8064:
8065:
8066: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8067:
8068: x_msg_data => x_msg_data);
8069:
8070: EXCEPTION
8068: x_msg_data => x_msg_data);
8069:
8070: EXCEPTION
8071:
8072: when OKC_API.G_EXCEPTION_ERROR then
8073:
8074: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8075:
8076: p_api_name => l_api_name,
8070: EXCEPTION
8071:
8072: when OKC_API.G_EXCEPTION_ERROR then
8073:
8074: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8075:
8076: p_api_name => l_api_name,
8077:
8078: p_pkg_name => g_pkg_name,
8076: p_api_name => l_api_name,
8077:
8078: p_pkg_name => g_pkg_name,
8079:
8080: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8081:
8082: x_msg_count => x_msg_count,
8083:
8084: x_msg_data => x_msg_data,
8086: p_api_type => g_api_type);
8087:
8088:
8089:
8090: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8091:
8092: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8093:
8094: p_api_name => l_api_name,
8088:
8089:
8090: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8091:
8092: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8093:
8094: p_api_name => l_api_name,
8095:
8096: p_pkg_name => g_pkg_name,
8094: p_api_name => l_api_name,
8095:
8096: p_pkg_name => g_pkg_name,
8097:
8098: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8099:
8100: x_msg_count => x_msg_count,
8101:
8102: x_msg_data => x_msg_data,
8106:
8107:
8108: when OTHERS then
8109:
8110: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8111:
8112: p_api_name => l_api_name,
8113:
8114: p_pkg_name => g_pkg_name,
8126:
8127:
8128: Procedure Validate_Fee (p_api_version IN NUMBER,
8129:
8130: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8131:
8132: x_return_status OUT NOCOPY VARCHAR2,
8133:
8134: x_msg_count OUT NOCOPY NUMBER,
8204: End If;
8205:
8206:
8207:
8208: x_return_status := OKC_API.START_ACTIVITY(
8209:
8210: p_api_name => l_api_name,
8211:
8212: p_pkg_name => g_pkg_name,
8224:
8225:
8226: -- check if activity started successfully
8227:
8228: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8229:
8230: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231:
8232: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8226: -- check if activity started successfully
8227:
8228: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8229:
8230: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231:
8232: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8233:
8234: raise OKC_API.G_EXCEPTION_ERROR;
8228: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8229:
8230: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231:
8232: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8233:
8234: raise OKC_API.G_EXCEPTION_ERROR;
8235:
8236: End If;
8230: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231:
8232: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8233:
8234: raise OKC_API.G_EXCEPTION_ERROR;
8235:
8236: End If;
8237:
8238:
8236: End If;
8237:
8238:
8239:
8240: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8241:
8242: x_msg_data => x_msg_data);
8243:
8244: EXCEPTION
8242: x_msg_data => x_msg_data);
8243:
8244: EXCEPTION
8245:
8246: when OKC_API.G_EXCEPTION_ERROR then
8247:
8248: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8249:
8250: p_api_name => l_api_name,
8244: EXCEPTION
8245:
8246: when OKC_API.G_EXCEPTION_ERROR then
8247:
8248: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8249:
8250: p_api_name => l_api_name,
8251:
8252: p_pkg_name => g_pkg_name,
8250: p_api_name => l_api_name,
8251:
8252: p_pkg_name => g_pkg_name,
8253:
8254: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8255:
8256: x_msg_count => x_msg_count,
8257:
8258: x_msg_data => x_msg_data,
8260: p_api_type => g_api_type);
8261:
8262:
8263:
8264: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8265:
8266: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8267:
8268: p_api_name => l_api_name,
8262:
8263:
8264: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8265:
8266: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8267:
8268: p_api_name => l_api_name,
8269:
8270: p_pkg_name => g_pkg_name,
8268: p_api_name => l_api_name,
8269:
8270: p_pkg_name => g_pkg_name,
8271:
8272: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8273:
8274: x_msg_count => x_msg_count,
8275:
8276: x_msg_data => x_msg_data,
8280:
8281:
8282: when OTHERS then
8283:
8284: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8285:
8286: p_api_name => l_api_name,
8287:
8288: p_pkg_name => g_pkg_name,
8300:
8301:
8302: Procedure Validate_Fee (p_api_version IN NUMBER,
8303:
8304: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8305:
8306: x_return_status OUT NOCOPY VARCHAR2,
8307:
8308: x_msg_count OUT NOCOPY NUMBER,
8346: End If;
8347:
8348:
8349:
8350: x_return_status := OKC_API.START_ACTIVITY(
8351:
8352: p_api_name => l_api_name,
8353:
8354: p_pkg_name => g_pkg_name,
8366:
8367:
8368: -- check if activity started successfully
8369:
8370: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8371:
8372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8373:
8374: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8368: -- check if activity started successfully
8369:
8370: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8371:
8372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8373:
8374: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8375:
8376: raise OKC_API.G_EXCEPTION_ERROR;
8370: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
8371:
8372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8373:
8374: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8375:
8376: raise OKC_API.G_EXCEPTION_ERROR;
8377:
8378: End If;
8372: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8373:
8374: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
8375:
8376: raise OKC_API.G_EXCEPTION_ERROR;
8377:
8378: End If;
8379:
8380:
8382: IF ( (p_init_direct_cost is not null) and (p_init_direct_cost > p_amount)) THEN
8383:
8384:
8385:
8386: x_return_status := OKC_API.G_RET_STS_ERROR;
8387:
8388: OKC_API.SET_MESSAGE( p_app_name => g_app_name
8389:
8390: , p_msg_name => 'OKL_LLA_IDC_FEE'
8384:
8385:
8386: x_return_status := OKC_API.G_RET_STS_ERROR;
8387:
8388: OKC_API.SET_MESSAGE( p_app_name => g_app_name
8389:
8390: , p_msg_name => 'OKL_LLA_IDC_FEE'
8391:
8392: );
8390: , p_msg_name => 'OKL_LLA_IDC_FEE'
8391:
8392: );
8393:
8394: raise OKC_API.G_EXCEPTION_ERROR;
8395:
8396:
8397:
8398: END IF;
8398: END IF;
8399:
8400:
8401:
8402: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8403:
8404:
8405:
8406: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8402: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8403:
8404:
8405:
8406: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
8407:
8408: x_msg_data => x_msg_data);
8409:
8410: EXCEPTION
8408: x_msg_data => x_msg_data);
8409:
8410: EXCEPTION
8411:
8412: when OKC_API.G_EXCEPTION_ERROR then
8413:
8414: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8415:
8416: p_api_name => l_api_name,
8410: EXCEPTION
8411:
8412: when OKC_API.G_EXCEPTION_ERROR then
8413:
8414: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8415:
8416: p_api_name => l_api_name,
8417:
8418: p_pkg_name => g_pkg_name,
8416: p_api_name => l_api_name,
8417:
8418: p_pkg_name => g_pkg_name,
8419:
8420: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8421:
8422: x_msg_count => x_msg_count,
8423:
8424: x_msg_data => x_msg_data,
8426: p_api_type => g_api_type);
8427:
8428:
8429:
8430: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8431:
8432: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8433:
8434: p_api_name => l_api_name,
8428:
8429:
8430: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8431:
8432: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8433:
8434: p_api_name => l_api_name,
8435:
8436: p_pkg_name => g_pkg_name,
8434: p_api_name => l_api_name,
8435:
8436: p_pkg_name => g_pkg_name,
8437:
8438: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8439:
8440: x_msg_count => x_msg_count,
8441:
8442: x_msg_data => x_msg_data,
8446:
8447:
8448: when OTHERS then
8449:
8450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8451:
8452: p_api_name => l_api_name,
8453:
8454: p_pkg_name => g_pkg_name,
8476:
8477:
8478: PROCEDURE VALIDATE_ROLE_JTOT (p_api_version IN NUMBER,
8479:
8480: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8481:
8482: x_return_status OUT NOCOPY VARCHAR2,
8483:
8484: x_msg_count OUT NOCOPY NUMBER,
8572: BEGIN
8573:
8574:
8575:
8576: x_return_status := OKC_API.START_ACTIVITY(
8577:
8578: p_api_name => l_api_name,
8579:
8580: p_pkg_name => g_pkg_name,
8596:
8597:
8598:
8599:
8600: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8601:
8602: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8603:
8604:
8598:
8599:
8600: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8601:
8602: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8603:
8604:
8605:
8606: IF p_object_name = 'OKX_OPERUNIT' THEN
8628: CLOSE party_csr;
8629:
8630: ELSE
8631:
8632: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8633:
8634: p_msg_name => 'OKL_LLA_INVALID_OBJ',
8635:
8636: p_token1 => 'OBJECT_NAME',
8636: p_token1 => 'OBJECT_NAME',
8637:
8638: p_token1_value => p_object_name);
8639:
8640: RAISE OKC_API.G_EXCEPTION_ERROR;
8641:
8642: END IF;
8643:
8644:
8644:
8645:
8646: IF (l_exist IS NULL) THEN
8647:
8648: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8649:
8650: p_msg_name => 'OKL_LLA_INVALID_IDS',
8651:
8652: p_token1 => 'OBJECT_NAME',
8654: p_token1_value => p_object_name);
8655:
8656:
8657:
8658: RAISE OKC_API.G_EXCEPTION_ERROR;
8659:
8660: END IF;
8661:
8662:
8664: END IF;
8665:
8666:
8667:
8668: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8669:
8670:
8671:
8672: EXCEPTION
8670:
8671:
8672: EXCEPTION
8673:
8674: when OKC_API.G_EXCEPTION_ERROR then
8675:
8676: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8677:
8678: p_api_name => l_api_name,
8672: EXCEPTION
8673:
8674: when OKC_API.G_EXCEPTION_ERROR then
8675:
8676: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8677:
8678: p_api_name => l_api_name,
8679:
8680: p_pkg_name => g_pkg_name,
8678: p_api_name => l_api_name,
8679:
8680: p_pkg_name => g_pkg_name,
8681:
8682: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8683:
8684: x_msg_count => x_msg_count,
8685:
8686: x_msg_data => x_msg_data,
8686: x_msg_data => x_msg_data,
8687:
8688: p_api_type => g_api_type);
8689:
8690: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8691:
8692: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8693:
8694: p_api_name => l_api_name,
8688: p_api_type => g_api_type);
8689:
8690: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8691:
8692: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8693:
8694: p_api_name => l_api_name,
8695:
8696: p_pkg_name => g_pkg_name,
8694: p_api_name => l_api_name,
8695:
8696: p_pkg_name => g_pkg_name,
8697:
8698: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8699:
8700: x_msg_count => x_msg_count,
8701:
8702: x_msg_data => x_msg_data,
8706:
8707:
8708: when OTHERS then
8709:
8710: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8711:
8712: p_api_name => l_api_name,
8713:
8714: p_pkg_name => g_pkg_name,
8742:
8743:
8744: PROCEDURE VALIDATE_CONTACT_JTOT (p_api_version IN NUMBER,
8745:
8746: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8747:
8748: x_return_status OUT NOCOPY VARCHAR2,
8749:
8750: x_msg_count OUT NOCOPY NUMBER,
8820: BEGIN
8821:
8822:
8823:
8824: x_return_status := OKC_API.START_ACTIVITY(
8825:
8826: p_api_name => l_api_name,
8827:
8828: p_pkg_name => g_pkg_name,
8842: ---- Validate Object Name
8843:
8844:
8845:
8846: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8847:
8848: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8849:
8850:
8844:
8845:
8846: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
8847:
8848: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
8849:
8850:
8851:
8852: IF p_object_name = 'OKX_SALEPERS' THEN
8866: CLOSE pcontact_csr;
8867:
8868: ELSE
8869:
8870: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8871:
8872: p_msg_name => 'OKL_LLA_INVALID_OBJ',
8873:
8874: p_token1 => 'OBJECT_NAME',
8874: p_token1 => 'OBJECT_NAME',
8875:
8876: p_token1_value => p_object_name);
8877:
8878: RAISE OKC_API.G_EXCEPTION_ERROR;
8879:
8880: END IF;
8881:
8882:
8882:
8883:
8884: IF (l_exist IS NULL) THEN
8885:
8886: OKC_API.Set_Message(p_app_name => G_APP_NAME,
8887:
8888: p_msg_name => 'OKL_LLA_INVALID_IDS',
8889:
8890: p_token1 => 'OBJECT_NAME',
8892: p_token1_value => p_object_name);
8893:
8894:
8895:
8896: RAISE OKC_API.G_EXCEPTION_ERROR;
8897:
8898: END IF;
8899:
8900:
8904:
8905:
8906:
8907:
8908: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8909:
8910:
8911:
8912: EXCEPTION
8910:
8911:
8912: EXCEPTION
8913:
8914: when OKC_API.G_EXCEPTION_ERROR then
8915:
8916: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8917:
8918: p_api_name => l_api_name,
8912: EXCEPTION
8913:
8914: when OKC_API.G_EXCEPTION_ERROR then
8915:
8916: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8917:
8918: p_api_name => l_api_name,
8919:
8920: p_pkg_name => g_pkg_name,
8918: p_api_name => l_api_name,
8919:
8920: p_pkg_name => g_pkg_name,
8921:
8922: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8923:
8924: x_msg_count => x_msg_count,
8925:
8926: x_msg_data => x_msg_data,
8926: x_msg_data => x_msg_data,
8927:
8928: p_api_type => g_api_type);
8929:
8930: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8931:
8932: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8933:
8934: p_api_name => l_api_name,
8928: p_api_type => g_api_type);
8929:
8930: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
8931:
8932: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8933:
8934: p_api_name => l_api_name,
8935:
8936: p_pkg_name => g_pkg_name,
8934: p_api_name => l_api_name,
8935:
8936: p_pkg_name => g_pkg_name,
8937:
8938: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8939:
8940: x_msg_count => x_msg_count,
8941:
8942: x_msg_data => x_msg_data,
8946:
8947:
8948: when OTHERS then
8949:
8950: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8951:
8952: p_api_name => l_api_name,
8953:
8954: p_pkg_name => g_pkg_name,
8980:
8981:
8982: PROCEDURE VALIDATE_STYLE_JTOT (p_api_version IN NUMBER,
8983:
8984: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
8985:
8986: x_return_status OUT NOCOPY VARCHAR2,
8987:
8988: x_msg_count OUT NOCOPY NUMBER,
9176: BEGIN
9177:
9178:
9179:
9180: x_return_status := OKC_API.START_ACTIVITY(
9181:
9182: p_api_name => l_api_name,
9183:
9184: p_pkg_name => g_pkg_name,
9194: x_return_status => x_return_status);
9195:
9196:
9197:
9198: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
9199:
9200: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
9201:
9202:
9196:
9197:
9198: IF (p_object_name IS NOT NULL) AND (p_object_name <> OKC_API.G_MISS_CHAR) AND
9199:
9200: (p_id1 IS NOT NULL) AND (p_id1 <> OKC_API.G_MISS_CHAR) THEN
9201:
9202:
9203:
9204: IF p_object_name = 'OKL_STRMTYP' THEN
9274: CLOSE ins_policy_csr;
9275:
9276: ELSE
9277:
9278: OKC_API.Set_Message(p_app_name => G_APP_NAME,
9279:
9280: p_msg_name => 'OKL_LLA_INVALID_OBJ',
9281:
9282: p_token1 => 'OBJECT_NAME',
9282: p_token1 => 'OBJECT_NAME',
9283:
9284: p_token1_value => p_object_name);
9285:
9286: RAISE OKC_API.G_EXCEPTION_ERROR;
9287:
9288: END IF;
9289:
9290:
9290:
9291:
9292: IF (l_exist IS NULL) THEN
9293:
9294: OKC_API.Set_Message(p_app_name => G_APP_NAME,
9295:
9296: p_msg_name => 'OKL_LLA_INVALID_IDS',
9297:
9298: p_token1 => 'OBJECT_NAME',
9300: p_token1_value => p_object_name);
9301:
9302:
9303:
9304: RAISE OKC_API.G_EXCEPTION_ERROR;
9305:
9306: END IF;
9307:
9308:
9310: END IF;
9311:
9312:
9313:
9314: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9315:
9316:
9317:
9318: EXCEPTION
9316:
9317:
9318: EXCEPTION
9319:
9320: when OKC_API.G_EXCEPTION_ERROR then
9321:
9322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9323:
9324: p_api_name => l_api_name,
9318: EXCEPTION
9319:
9320: when OKC_API.G_EXCEPTION_ERROR then
9321:
9322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9323:
9324: p_api_name => l_api_name,
9325:
9326: p_pkg_name => g_pkg_name,
9324: p_api_name => l_api_name,
9325:
9326: p_pkg_name => g_pkg_name,
9327:
9328: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9329:
9330: x_msg_count => x_msg_count,
9331:
9332: x_msg_data => x_msg_data,
9332: x_msg_data => x_msg_data,
9333:
9334: p_api_type => g_api_type);
9335:
9336: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9337:
9338: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9339:
9340: p_api_name => l_api_name,
9334: p_api_type => g_api_type);
9335:
9336: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9337:
9338: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9339:
9340: p_api_name => l_api_name,
9341:
9342: p_pkg_name => g_pkg_name,
9340: p_api_name => l_api_name,
9341:
9342: p_pkg_name => g_pkg_name,
9343:
9344: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9345:
9346: x_msg_count => x_msg_count,
9347:
9348: x_msg_data => x_msg_data,
9352:
9353:
9354: when OTHERS then
9355:
9356: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9357:
9358: p_api_name => l_api_name,
9359:
9360: p_pkg_name => g_pkg_name,
9380: -- Parameters :
9381: -- Version : 1.0
9382: -- End of comments
9383: Procedure validate_crdtln_wrng (p_api_version IN NUMBER,
9384: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
9385: x_return_status OUT NOCOPY VARCHAR2,
9386: x_msg_count OUT NOCOPY NUMBER,
9387: x_msg_data OUT NOCOPY VARCHAR2,
9388: p_chr_id IN NUMBER
9433: If okl_context.get_okc_org_id is null then
9434: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
9435: End If;
9436:
9437: x_return_status := OKC_API.START_ACTIVITY(
9438: p_api_name => l_api_name,
9439: p_pkg_name => g_pkg_name,
9440: p_init_msg_list => p_init_msg_list,
9441: l_api_version => l_api_version,
9443: p_api_type => g_api_type,
9444: x_return_status => x_return_status);
9445:
9446: -- check if activity started successfully
9447: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9448: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9450: raise OKC_API.G_EXCEPTION_ERROR;
9451: End If;
9444: x_return_status => x_return_status);
9445:
9446: -- check if activity started successfully
9447: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9448: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9450: raise OKC_API.G_EXCEPTION_ERROR;
9451: End If;
9452:
9445:
9446: -- check if activity started successfully
9447: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9448: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9450: raise OKC_API.G_EXCEPTION_ERROR;
9451: End If;
9452:
9453: -- check the contract master lease cl
9446: -- check if activity started successfully
9447: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9448: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9449: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9450: raise OKC_API.G_EXCEPTION_ERROR;
9451: End If;
9452:
9453: -- check the contract master lease cl
9454: l_mla_cl_gvr_id := null;
9463: close is_k_cl_gvr_exsts_csr;
9464:
9465: --if both exists, warning
9466: If ( l_mla_cl_gvr_id is not null and l_k_cl_gvr_id is not null) Then
9467: x_return_status := OKC_API.g_ret_sts_error;
9468: OKC_API.SET_MESSAGE( p_app_name => g_app_name
9469: , p_msg_name => 'OKL_MLA_CRDTLN'
9470: );
9471: raise OKC_API.G_EXCEPTION_ERROR;
9464:
9465: --if both exists, warning
9466: If ( l_mla_cl_gvr_id is not null and l_k_cl_gvr_id is not null) Then
9467: x_return_status := OKC_API.g_ret_sts_error;
9468: OKC_API.SET_MESSAGE( p_app_name => g_app_name
9469: , p_msg_name => 'OKL_MLA_CRDTLN'
9470: );
9471: raise OKC_API.G_EXCEPTION_ERROR;
9472: End If;
9467: x_return_status := OKC_API.g_ret_sts_error;
9468: OKC_API.SET_MESSAGE( p_app_name => g_app_name
9469: , p_msg_name => 'OKL_MLA_CRDTLN'
9470: );
9471: raise OKC_API.G_EXCEPTION_ERROR;
9472: End If;
9473:
9474: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9475:
9470: );
9471: raise OKC_API.G_EXCEPTION_ERROR;
9472: End If;
9473:
9474: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9475:
9476: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9477: x_msg_data => x_msg_data);
9478: EXCEPTION
9472: End If;
9473:
9474: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9475:
9476: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9477: x_msg_data => x_msg_data);
9478: EXCEPTION
9479: when OKC_API.G_EXCEPTION_ERROR then
9480: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9475:
9476: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9477: x_msg_data => x_msg_data);
9478: EXCEPTION
9479: when OKC_API.G_EXCEPTION_ERROR then
9480: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9481: p_api_name => l_api_name,
9482: p_pkg_name => g_pkg_name,
9483: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9476: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
9477: x_msg_data => x_msg_data);
9478: EXCEPTION
9479: when OKC_API.G_EXCEPTION_ERROR then
9480: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9481: p_api_name => l_api_name,
9482: p_pkg_name => g_pkg_name,
9483: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9484: x_msg_count => x_msg_count,
9479: when OKC_API.G_EXCEPTION_ERROR then
9480: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9481: p_api_name => l_api_name,
9482: p_pkg_name => g_pkg_name,
9483: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9484: x_msg_count => x_msg_count,
9485: x_msg_data => x_msg_data,
9486: p_api_type => g_api_type);
9487:
9484: x_msg_count => x_msg_count,
9485: x_msg_data => x_msg_data,
9486: p_api_type => g_api_type);
9487:
9488: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9489: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9490: p_api_name => l_api_name,
9491: p_pkg_name => g_pkg_name,
9492: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9485: x_msg_data => x_msg_data,
9486: p_api_type => g_api_type);
9487:
9488: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9489: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9490: p_api_name => l_api_name,
9491: p_pkg_name => g_pkg_name,
9492: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9493: x_msg_count => x_msg_count,
9488: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9489: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9490: p_api_name => l_api_name,
9491: p_pkg_name => g_pkg_name,
9492: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9493: x_msg_count => x_msg_count,
9494: x_msg_data => x_msg_data,
9495: p_api_type => g_api_type);
9496:
9494: x_msg_data => x_msg_data,
9495: p_api_type => g_api_type);
9496:
9497: when OTHERS then
9498: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9499: p_api_name => l_api_name,
9500: p_pkg_name => g_pkg_name,
9501: p_exc_name => 'OTHERS',
9502: x_msg_count => x_msg_count,
9513: -- Parameters :
9514: -- Version : 1.0
9515: -- End of comments
9516: Procedure validate_crdtln_err (p_api_version IN NUMBER,
9517: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
9518: x_return_status OUT NOCOPY VARCHAR2,
9519: x_msg_count OUT NOCOPY NUMBER,
9520: x_msg_data OUT NOCOPY VARCHAR2,
9521: p_chr_id IN NUMBER
9565: If okl_context.get_okc_org_id is null then
9566: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
9567: End If;
9568:
9569: x_return_status := OKC_API.START_ACTIVITY(
9570: p_api_name => l_api_name,
9571: p_pkg_name => g_pkg_name,
9572: p_init_msg_list => p_init_msg_list,
9573: l_api_version => l_api_version,
9575: p_api_type => g_api_type,
9576: x_return_status => x_return_status);
9577:
9578: -- check if activity started successfully
9579: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9581: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9582: raise OKC_API.G_EXCEPTION_ERROR;
9583: End If;
9576: x_return_status => x_return_status);
9577:
9578: -- check if activity started successfully
9579: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9581: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9582: raise OKC_API.G_EXCEPTION_ERROR;
9583: End If;
9584:
9577:
9578: -- check if activity started successfully
9579: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9581: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9582: raise OKC_API.G_EXCEPTION_ERROR;
9583: End If;
9584:
9585: -- get contract deal type
9578: -- check if activity started successfully
9579: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9581: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9582: raise OKC_API.G_EXCEPTION_ERROR;
9583: End If;
9584:
9585: -- get contract deal type
9586: l_deal_type := null;
9611: p_mla_no => l_mla_no,
9612: p_cl_no => l_k_cl_no
9613: );
9614:
9615: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9617: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9618: raise OKC_API.G_EXCEPTION_ERROR;
9619: End If;
9612: p_cl_no => l_k_cl_no
9613: );
9614:
9615: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9617: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9618: raise OKC_API.G_EXCEPTION_ERROR;
9619: End If;
9620:
9613: );
9614:
9615: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9617: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9618: raise OKC_API.G_EXCEPTION_ERROR;
9619: End If;
9620:
9621: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9614:
9615: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
9616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9617: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9618: raise OKC_API.G_EXCEPTION_ERROR;
9619: End If;
9620:
9621: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9622:
9617: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
9618: raise OKC_API.G_EXCEPTION_ERROR;
9619: End If;
9620:
9621: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9622:
9623: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9624:
9625: EXCEPTION
9619: End If;
9620:
9621: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9622:
9623: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9624:
9625: EXCEPTION
9626: when OKC_API.G_EXCEPTION_ERROR then
9627: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9622:
9623: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9624:
9625: EXCEPTION
9626: when OKC_API.G_EXCEPTION_ERROR then
9627: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9628: p_api_name => l_api_name,
9629: p_pkg_name => g_pkg_name,
9630: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9623: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9624:
9625: EXCEPTION
9626: when OKC_API.G_EXCEPTION_ERROR then
9627: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9628: p_api_name => l_api_name,
9629: p_pkg_name => g_pkg_name,
9630: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9631: x_msg_count => x_msg_count,
9626: when OKC_API.G_EXCEPTION_ERROR then
9627: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9628: p_api_name => l_api_name,
9629: p_pkg_name => g_pkg_name,
9630: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
9631: x_msg_count => x_msg_count,
9632: x_msg_data => x_msg_data,
9633: p_api_type => g_api_type);
9634:
9631: x_msg_count => x_msg_count,
9632: x_msg_data => x_msg_data,
9633: p_api_type => g_api_type);
9634:
9635: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9636: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9637: p_api_name => l_api_name,
9638: p_pkg_name => g_pkg_name,
9639: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9632: x_msg_data => x_msg_data,
9633: p_api_type => g_api_type);
9634:
9635: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9636: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9637: p_api_name => l_api_name,
9638: p_pkg_name => g_pkg_name,
9639: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9640: x_msg_count => x_msg_count,
9635: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
9636: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9637: p_api_name => l_api_name,
9638: p_pkg_name => g_pkg_name,
9639: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
9640: x_msg_count => x_msg_count,
9641: x_msg_data => x_msg_data,
9642: p_api_type => g_api_type);
9643:
9641: x_msg_data => x_msg_data,
9642: p_api_type => g_api_type);
9643:
9644: when OTHERS then
9645: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
9646: p_api_name => l_api_name,
9647: p_pkg_name => g_pkg_name,
9648: p_exc_name => 'OTHERS',
9649: x_msg_count => x_msg_count,