108: --Procedure : Get Party
109: --Description : Returns the SQL string for LOV of a party Role
110: --End of Comments
111: Procedure Get_Party (p_api_version IN NUMBER,
112: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
113: x_return_status OUT NOCOPY VARCHAR2,
114: x_msg_count OUT NOCOPY NUMBER,
115: x_msg_data OUT NOCOPY VARCHAR2,
116: p_role_code IN VARCHAR2,
182: --Description : Returns Name, Description for a given role or all the roles
183: -- attached to a contract
184: --End of Comments
185: Procedure Get_Party (p_api_version IN NUMBER,
186: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
187: x_return_status OUT NOCOPY VARCHAR2,
188: x_msg_count OUT NOCOPY NUMBER,
189: x_msg_data OUT NOCOPY VARCHAR2,
190: p_chr_id IN VARCHAR2,
410: --Description : Fetches Name, Description of a Party role for a given
411: -- object1_id1 and object2_id2
412: --End of comments
413: Procedure Get_Party (p_api_version IN NUMBER,
414: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
415: x_return_status OUT NOCOPY VARCHAR2,
416: x_msg_count OUT NOCOPY NUMBER,
417: x_msg_data OUT NOCOPY VARCHAR2,
418: p_role_code IN VARCHAR2,
584:
585:
586:
587: Procedure Get_Contact(p_api_version IN NUMBER,
588: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
589: x_return_status OUT NOCOPY VARCHAR2,
590: x_msg_count OUT NOCOPY NUMBER,
591: x_msg_data OUT NOCOPY VARCHAR2,
592: p_role_code IN VARCHAR2,
685: -- Parameters :
686: -- Version : 1.0
687: -- End of comments
688: procedure get_contact(p_api_version IN NUMBER,
689: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
690: x_return_status OUT NOCOPY VARCHAR2,
691: x_msg_count OUT NOCOPY NUMBER,
692: x_msg_data OUT NOCOPY VARCHAR2,
693: p_rle_code IN VARCHAR2,
700: x_name OUT NOCOPY VARCHAR2,
701: x_description OUT NOCOPY VARCHAR2) is
702: l_api_name CONSTANT VARCHAR2(30) := 'get_contact';
703: l_api_version CONSTANT NUMBER := 1;
704: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
705: begin
706: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
707: G_PKG_NAME,
708: p_init_msg_list,
702: l_api_name CONSTANT VARCHAR2(30) := 'get_contact';
703: l_api_version CONSTANT NUMBER := 1;
704: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
705: begin
706: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
707: G_PKG_NAME,
708: p_init_msg_list,
709: l_api_version,
710: p_api_version,
710: p_api_version,
711: '_PUB',
712: x_return_status);
713:
714: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
717: RAISE OKC_API.G_EXCEPTION_ERROR;
718: END IF;
711: '_PUB',
712: x_return_status);
713:
714: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
717: RAISE OKC_API.G_EXCEPTION_ERROR;
718: END IF;
719: --
712: x_return_status);
713:
714: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
717: RAISE OKC_API.G_EXCEPTION_ERROR;
718: END IF;
719: --
720: -- Call Before Logic Hook
713:
714: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
717: RAISE OKC_API.G_EXCEPTION_ERROR;
718: END IF;
719: --
720: -- Call Before Logic Hook
721: --
719: --
720: -- Call Before Logic Hook
721: --
722: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
726: raise OKC_API.G_EXCEPTION_ERROR;
727: END IF;
720: -- Call Before Logic Hook
721: --
722: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
726: raise OKC_API.G_EXCEPTION_ERROR;
727: END IF;
728:
721: --
722: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
726: raise OKC_API.G_EXCEPTION_ERROR;
727: END IF;
728:
729: OKL_JTOT_CONTACT_EXTRACT_PVT.get_contact(p_api_version,
722: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
726: raise OKC_API.G_EXCEPTION_ERROR;
727: END IF;
728:
729: OKL_JTOT_CONTACT_EXTRACT_PVT.get_contact(p_api_version,
730: p_init_msg_list,
740: x_id2,
741: x_name,
742: x_description);
743:
744: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_ERROR;
748: END IF;
741: x_name,
742: x_description);
743:
744: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_ERROR;
748: END IF;
749: --
742: x_description);
743:
744: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_ERROR;
748: END IF;
749: --
750: -- Call After Logic Hook
743:
744: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
745: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
747: RAISE OKC_API.G_EXCEPTION_ERROR;
748: END IF;
749: --
750: -- Call After Logic Hook
751: --
750: -- Call After Logic Hook
751: --
752:
753: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: raise OKC_API.G_EXCEPTION_ERROR;
758: END IF;
751: --
752:
753: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: raise OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
752:
753: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: raise OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
753: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: raise OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
755: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
757: raise OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (substr(l_api_name,1,26),
757: raise OKC_API.G_EXCEPTION_ERROR;
758: END IF;
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (substr(l_api_name,1,26),
764: G_PKG_NAME,
765: 'OKC_API.G_RET_STS_ERROR',
758: END IF;
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (substr(l_api_name,1,26),
764: G_PKG_NAME,
765: 'OKC_API.G_RET_STS_ERROR',
766: x_msg_count,
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (substr(l_api_name,1,26),
764: G_PKG_NAME,
765: 'OKC_API.G_RET_STS_ERROR',
766: x_msg_count,
767: x_msg_data,
768: '_PUB');
769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
765: 'OKC_API.G_RET_STS_ERROR',
766: x_msg_count,
767: x_msg_data,
768: '_PUB');
769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
771: (substr(l_api_name,1,26),
772: G_PKG_NAME,
773: 'OKC_API.G_RET_STS_UNEXP_ERROR',
766: x_msg_count,
767: x_msg_data,
768: '_PUB');
769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
771: (substr(l_api_name,1,26),
772: G_PKG_NAME,
773: 'OKC_API.G_RET_STS_UNEXP_ERROR',
774: x_msg_count,
769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
771: (substr(l_api_name,1,26),
772: G_PKG_NAME,
773: 'OKC_API.G_RET_STS_UNEXP_ERROR',
774: x_msg_count,
775: x_msg_data,
776: '_PUB');
777: WHEN OTHERS THEN
774: x_msg_count,
775: x_msg_data,
776: '_PUB');
777: WHEN OTHERS THEN
778: x_return_status := OKC_API.HANDLE_EXCEPTIONS
779: (substr(l_api_name,1,26),
780: G_PKG_NAME,
781: 'OTHERS',
782: x_msg_count,
784: '_PUB');
785: end get_contact;
786:
787: Procedure Validate_Party (p_api_version IN NUMBER,
788: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
789: x_return_status OUT NOCOPY VARCHAR2,
790: x_msg_count OUT NOCOPY NUMBER,
791: x_msg_data OUT NOCOPY VARCHAR2,
792: p_chr_id IN NUMBER,
826:
827: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Party';
828: l_api_version CONSTANT NUMBER := 1.0;
829:
830: -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
831:
832: ERR_MSG VARCHAR2(50) := 'DEFAULT';
833:
834: l_amt_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
858: End If;
859:
860: -- call START_ACTIVITY to create savepoint, check compatibility
861: -- and initialize message list
862: x_return_status := OKC_API.START_ACTIVITY(
863: p_api_name => l_api_name,
864: p_pkg_name => g_pkg_name,
865: p_init_msg_list => p_init_msg_list,
866: l_api_version => l_api_version,
867: p_api_version => p_api_version,
868: p_api_type => '_PUB',
869: x_return_status => x_return_status);
870:
871: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
872: Then
873: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
874: raise OKC_API.G_EXCEPTION_ERROR;
875: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
869: x_return_status => x_return_status);
870:
871: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
872: Then
873: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
874: raise OKC_API.G_EXCEPTION_ERROR;
875: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
876: Then
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
870:
871: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
872: Then
873: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
874: raise OKC_API.G_EXCEPTION_ERROR;
875: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
876: Then
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
878: raise OKC_API.G_EXCEPTION_ERROR;
871: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
872: Then
873: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
874: raise OKC_API.G_EXCEPTION_ERROR;
875: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
876: Then
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
878: raise OKC_API.G_EXCEPTION_ERROR;
879: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
873: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
874: raise OKC_API.G_EXCEPTION_ERROR;
875: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
876: Then
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
878: raise OKC_API.G_EXCEPTION_ERROR;
879: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
880: Then
881: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
874: raise OKC_API.G_EXCEPTION_ERROR;
875: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
876: Then
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
878: raise OKC_API.G_EXCEPTION_ERROR;
879: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
880: Then
881: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
882: raise OKC_API.G_EXCEPTION_ERROR;
875: ElsIf ( p_rle_code is null or p_rle_code = OKC_API.G_MISS_CHAR)
876: Then
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
878: raise OKC_API.G_EXCEPTION_ERROR;
879: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
880: Then
881: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
882: raise OKC_API.G_EXCEPTION_ERROR;
883: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
877: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_rle_code');
878: raise OKC_API.G_EXCEPTION_ERROR;
879: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
880: Then
881: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
882: raise OKC_API.G_EXCEPTION_ERROR;
883: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
884: End If;
885:
878: raise OKC_API.G_EXCEPTION_ERROR;
879: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
880: Then
881: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
882: raise OKC_API.G_EXCEPTION_ERROR;
883: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
884: End If;
885:
886: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_CONTRACT_PRTS', 'OKL_LA_KPRTS_NAME');
879: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
880: Then
881: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_name');
882: raise OKC_API.G_EXCEPTION_ERROR;
883: -- raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
884: End If;
885:
886: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_CONTRACT_PRTS', 'OKL_LA_KPRTS_NAME');
887:
908:
909: FETCH okx_party_csr into l_id1,l_id2,l_name,l_description;
910:
911: If okx_party_csr%NotFound Then
912: x_return_status := OKC_API.g_ret_sts_error;
913: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
914: p_msg_name => 'OKL_REQUIRED_VALUE',
915: p_token1 => 'COL_NAME',
916: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
909: FETCH okx_party_csr into l_id1,l_id2,l_name,l_description;
910:
911: If okx_party_csr%NotFound Then
912: x_return_status := OKC_API.g_ret_sts_error;
913: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
914: p_msg_name => 'OKL_REQUIRED_VALUE',
915: p_token1 => 'COL_NAME',
916: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
917: raise OKC_API.G_EXCEPTION_ERROR;
913: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
914: p_msg_name => 'OKL_REQUIRED_VALUE',
915: p_token1 => 'COL_NAME',
916: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
917: raise OKC_API.G_EXCEPTION_ERROR;
918: End If;
919:
920: l_id11 := l_id1;
921: l_id22 := l_id2;
922:
923: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
924: If okx_party_csr%Found Then
925:
926: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
927: x_return_status := OKC_API.g_ret_sts_error;
928: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
929: p_token1 => 'COL_NAME',
930: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
923: Fetch okx_party_csr into l_id1,l_id2,l_name,l_description;
924: If okx_party_csr%Found Then
925:
926: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
927: x_return_status := OKC_API.g_ret_sts_error;
928: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
929: p_token1 => 'COL_NAME',
930: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
931: raise OKC_API.G_EXCEPTION_ERROR;
924: If okx_party_csr%Found Then
925:
926: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
927: x_return_status := OKC_API.g_ret_sts_error;
928: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
929: p_token1 => 'COL_NAME',
930: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
931: raise OKC_API.G_EXCEPTION_ERROR;
932: End If;
927: x_return_status := OKC_API.g_ret_sts_error;
928: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
929: p_token1 => 'COL_NAME',
930: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
931: raise OKC_API.G_EXCEPTION_ERROR;
932: End If;
933:
934: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
935: x_return_status := OKC_API.g_ret_sts_error;
930: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
931: raise OKC_API.G_EXCEPTION_ERROR;
932: End If;
933:
934: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
935: x_return_status := OKC_API.g_ret_sts_error;
936: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
937: p_msg_name => 'OKL_REQUIRED_VALUE',
938: p_token1 => 'COL_NAME',
931: raise OKC_API.G_EXCEPTION_ERROR;
932: End If;
933:
934: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
935: x_return_status := OKC_API.g_ret_sts_error;
936: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
937: p_msg_name => 'OKL_REQUIRED_VALUE',
938: p_token1 => 'COL_NAME',
939: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
932: End If;
933:
934: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
935: x_return_status := OKC_API.g_ret_sts_error;
936: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
937: p_msg_name => 'OKL_REQUIRED_VALUE',
938: p_token1 => 'COL_NAME',
939: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
940: raise OKC_API.G_EXCEPTION_ERROR;
936: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
937: p_msg_name => 'OKL_REQUIRED_VALUE',
938: p_token1 => 'COL_NAME',
939: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
940: raise OKC_API.G_EXCEPTION_ERROR;
941:
942:
943: End If;
944:
963:
964: End If;
965:
966: If row_count <> 1 Then
967: x_return_status := OKC_API.g_ret_sts_error;
968: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
969: p_msg_name => 'OKL_REQUIRED_VALUE',
970: p_token1 => 'COL_NAME',
971: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
964: End If;
965:
966: If row_count <> 1 Then
967: x_return_status := OKC_API.g_ret_sts_error;
968: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
969: p_msg_name => 'OKL_REQUIRED_VALUE',
970: p_token1 => 'COL_NAME',
971: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
972: raise OKC_API.G_EXCEPTION_ERROR;
968: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
969: p_msg_name => 'OKL_REQUIRED_VALUE',
970: p_token1 => 'COL_NAME',
971: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
972: raise OKC_API.G_EXCEPTION_ERROR;
973: End If;
974:
975: End If;
976:
995:
996: FETCH okx_operunit_csr into l_id1,l_id2,l_name,l_description;
997:
998: If okx_operunit_csr%NotFound Then
999: x_return_status := OKC_API.g_ret_sts_error;
1000: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1001: p_msg_name => 'OKL_REQUIRED_VALUE',
1002: p_token1 => 'COL_NAME',
1003: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
996: FETCH okx_operunit_csr into l_id1,l_id2,l_name,l_description;
997:
998: If okx_operunit_csr%NotFound Then
999: x_return_status := OKC_API.g_ret_sts_error;
1000: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1001: p_msg_name => 'OKL_REQUIRED_VALUE',
1002: p_token1 => 'COL_NAME',
1003: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1004: raise OKC_API.G_EXCEPTION_ERROR;
1000: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1001: p_msg_name => 'OKL_REQUIRED_VALUE',
1002: p_token1 => 'COL_NAME',
1003: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1004: raise OKC_API.G_EXCEPTION_ERROR;
1005: End If;
1006:
1007: l_id11 := l_id1;
1008: l_id22 := l_id2;
1009:
1010: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1011: If okx_operunit_csr%Found Then
1012:
1013: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1014: x_return_status := OKC_API.g_ret_sts_error;
1015: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1016: p_token1 => 'COL_NAME',
1017: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1010: Fetch okx_operunit_csr into l_id1,l_id2,l_name,l_description;
1011: If okx_operunit_csr%Found Then
1012:
1013: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1014: x_return_status := OKC_API.g_ret_sts_error;
1015: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1016: p_token1 => 'COL_NAME',
1017: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1018: raise OKC_API.G_EXCEPTION_ERROR;
1011: If okx_operunit_csr%Found Then
1012:
1013: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1014: x_return_status := OKC_API.g_ret_sts_error;
1015: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1016: p_token1 => 'COL_NAME',
1017: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1014: x_return_status := OKC_API.g_ret_sts_error;
1015: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1016: p_token1 => 'COL_NAME',
1017: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1020:
1021: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1022: x_return_status := OKC_API.g_ret_sts_error;
1017: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1020:
1021: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1022: x_return_status := OKC_API.g_ret_sts_error;
1023: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1024: p_msg_name => 'OKL_REQUIRED_VALUE',
1025: p_token1 => 'COL_NAME',
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1020:
1021: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1022: x_return_status := OKC_API.g_ret_sts_error;
1023: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1024: p_msg_name => 'OKL_REQUIRED_VALUE',
1025: p_token1 => 'COL_NAME',
1026: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1019: End If;
1020:
1021: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1022: x_return_status := OKC_API.g_ret_sts_error;
1023: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1024: p_msg_name => 'OKL_REQUIRED_VALUE',
1025: p_token1 => 'COL_NAME',
1026: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1027: raise OKC_API.G_EXCEPTION_ERROR;
1023: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1024: p_msg_name => 'OKL_REQUIRED_VALUE',
1025: p_token1 => 'COL_NAME',
1026: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1027: raise OKC_API.G_EXCEPTION_ERROR;
1028:
1029:
1030: End If;
1031:
1040: Exit When okx_operunit_csr%NotFound;
1041: End Loop;
1042:
1043: If row_count <> 1 Then
1044: x_return_status := OKC_API.g_ret_sts_error;
1045: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1046: p_msg_name => 'OKL_REQUIRED_VALUE',
1047: p_token1 => 'COL_NAME',
1048: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1041: End Loop;
1042:
1043: If row_count <> 1 Then
1044: x_return_status := OKC_API.g_ret_sts_error;
1045: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1046: p_msg_name => 'OKL_REQUIRED_VALUE',
1047: p_token1 => 'COL_NAME',
1048: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1049: raise OKC_API.G_EXCEPTION_ERROR;
1045: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1046: p_msg_name => 'OKL_REQUIRED_VALUE',
1047: p_token1 => 'COL_NAME',
1048: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1049: raise OKC_API.G_EXCEPTION_ERROR;
1050: End If;
1051:
1052: End If;
1053:
1073:
1074: FETCH okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1075:
1076: If okx_vendor_csr%NotFound Then
1077: x_return_status := OKC_API.g_ret_sts_error;
1078: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1079: p_msg_name => 'OKL_REQUIRED_VALUE',
1080: p_token1 => 'COL_NAME',
1081: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1074: FETCH okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1075:
1076: If okx_vendor_csr%NotFound Then
1077: x_return_status := OKC_API.g_ret_sts_error;
1078: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1079: p_msg_name => 'OKL_REQUIRED_VALUE',
1080: p_token1 => 'COL_NAME',
1081: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1082: raise OKC_API.G_EXCEPTION_ERROR;
1078: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1079: p_msg_name => 'OKL_REQUIRED_VALUE',
1080: p_token1 => 'COL_NAME',
1081: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1082: raise OKC_API.G_EXCEPTION_ERROR;
1083: End If;
1084:
1085: l_id11 := l_id1;
1086: l_id22 := l_id2;
1087:
1088: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1089: If okx_vendor_csr%Found Then
1090:
1091: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1092: x_return_status := OKC_API.g_ret_sts_error;
1093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1094: p_token1 => 'COL_NAME',
1095: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1088: Fetch okx_vendor_csr into l_id1,l_id2,l_name,l_description;
1089: If okx_vendor_csr%Found Then
1090:
1091: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1092: x_return_status := OKC_API.g_ret_sts_error;
1093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1094: p_token1 => 'COL_NAME',
1095: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1096: raise OKC_API.G_EXCEPTION_ERROR;
1089: If okx_vendor_csr%Found Then
1090:
1091: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
1092: x_return_status := OKC_API.g_ret_sts_error;
1093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1094: p_token1 => 'COL_NAME',
1095: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1096: raise OKC_API.G_EXCEPTION_ERROR;
1097: End If;
1092: x_return_status := OKC_API.g_ret_sts_error;
1093: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_REQUIRED_VALUE',
1094: p_token1 => 'COL_NAME',
1095: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1096: raise OKC_API.G_EXCEPTION_ERROR;
1097: End If;
1098:
1099: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1100: x_return_status := OKC_API.g_ret_sts_error;
1095: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1096: raise OKC_API.G_EXCEPTION_ERROR;
1097: End If;
1098:
1099: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1100: x_return_status := OKC_API.g_ret_sts_error;
1101: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1102: p_msg_name => 'OKL_REQUIRED_VALUE',
1103: p_token1 => 'COL_NAME',
1096: raise OKC_API.G_EXCEPTION_ERROR;
1097: End If;
1098:
1099: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1100: x_return_status := OKC_API.g_ret_sts_error;
1101: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1102: p_msg_name => 'OKL_REQUIRED_VALUE',
1103: p_token1 => 'COL_NAME',
1104: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1097: End If;
1098:
1099: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
1100: x_return_status := OKC_API.g_ret_sts_error;
1101: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1102: p_msg_name => 'OKL_REQUIRED_VALUE',
1103: p_token1 => 'COL_NAME',
1104: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1105: raise OKC_API.G_EXCEPTION_ERROR;
1101: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1102: p_msg_name => 'OKL_REQUIRED_VALUE',
1103: p_token1 => 'COL_NAME',
1104: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1105: raise OKC_API.G_EXCEPTION_ERROR;
1106:
1107:
1108: End If;
1109:
1118: Exit When okx_vendor_csr%NotFound;
1119: End Loop;
1120:
1121: If row_count <> 1 Then
1122: x_return_status := OKC_API.g_ret_sts_error;
1123: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1124: p_msg_name => 'OKL_REQUIRED_VALUE',
1125: p_token1 => 'COL_NAME',
1126: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1119: End Loop;
1120:
1121: If row_count <> 1 Then
1122: x_return_status := OKC_API.g_ret_sts_error;
1123: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1124: p_msg_name => 'OKL_REQUIRED_VALUE',
1125: p_token1 => 'COL_NAME',
1126: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1127: raise OKC_API.G_EXCEPTION_ERROR;
1123: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1124: p_msg_name => 'OKL_REQUIRED_VALUE',
1125: p_token1 => 'COL_NAME',
1126: p_token1_value => l_amt_ak_prompt); --please_select_a_value_from_lov
1127: raise OKC_API.G_EXCEPTION_ERROR;
1128: End If;
1129:
1130: End If;
1131:
1133: p_id2 := l_id22;
1134:
1135: Close okx_vendor_csr;
1136: END IF;
1137: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
1138:
1139: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
1140: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
1141: FETCH check_party_csr INTO row_count;
1135: Close okx_vendor_csr;
1136: END IF;
1137: If p_lty_code is null or p_lty_code = OKC_API.G_MISS_CHAR Then
1138:
1139: If p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM Then
1140: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
1141: FETCH check_party_csr INTO row_count;
1142: CLOSE check_party_csr;
1143: If row_count = 1 Then
1140: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2 );
1141: FETCH check_party_csr INTO row_count;
1142: CLOSE check_party_csr;
1143: If row_count = 1 Then
1144: x_return_status := OKC_API.g_ret_sts_error;
1145: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1146: p_msg_name => 'OKL_LLA_DUP_SELECTION',
1147: p_token1 => 'TOKEN',
1148: p_token1_value => l_amt_ak_prompt); --Party_name_already_exists
1141: FETCH check_party_csr INTO row_count;
1142: CLOSE check_party_csr;
1143: If row_count = 1 Then
1144: x_return_status := OKC_API.g_ret_sts_error;
1145: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1146: p_msg_name => 'OKL_LLA_DUP_SELECTION',
1147: p_token1 => 'TOKEN',
1148: p_token1_value => l_amt_ak_prompt); --Party_name_already_exists
1149: raise OKC_API.G_EXCEPTION_ERROR;
1145: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1146: p_msg_name => 'OKL_LLA_DUP_SELECTION',
1147: p_token1 => 'TOKEN',
1148: p_token1_value => l_amt_ak_prompt); --Party_name_already_exists
1149: raise OKC_API.G_EXCEPTION_ERROR;
1150: End If;
1151: Else
1152: OPEN get_party_csr(p_cpl_id );
1153: FETCH get_party_csr INTO l_rle_code, l_id1, l_id2;
1157: OPEN check_party_csr(p_chr_id, p_rle_code, p_id1, p_id2);
1158: FETCH check_party_csr INTO row_count;
1159: CLOSE check_party_csr;
1160: If row_count = 1 Then
1161: x_return_status := OKC_API.g_ret_sts_error;
1162: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1163: p_msg_name => 'OKL_LLA_DUP_SELECTION',
1164: p_token1 => 'TOKEN',
1165: p_token1_value => l_amt_ak_prompt); --Party_name_already_exists
1158: FETCH check_party_csr INTO row_count;
1159: CLOSE check_party_csr;
1160: If row_count = 1 Then
1161: x_return_status := OKC_API.g_ret_sts_error;
1162: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1163: p_msg_name => 'OKL_LLA_DUP_SELECTION',
1164: p_token1 => 'TOKEN',
1165: p_token1_value => l_amt_ak_prompt); --Party_name_already_exists
1166: raise OKC_API.G_EXCEPTION_ERROR;
1162: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1163: p_msg_name => 'OKL_LLA_DUP_SELECTION',
1164: p_token1 => 'TOKEN',
1165: p_token1_value => l_amt_ak_prompt); --Party_name_already_exists
1166: raise OKC_API.G_EXCEPTION_ERROR;
1167: End If;
1168: End If;
1169: End If;
1170:
1169: End If;
1170:
1171: End If;
1172:
1173: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1174:
1175: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1176:
1177: EXCEPTION
1171: End If;
1172:
1173: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1174:
1175: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1176:
1177: EXCEPTION
1178: when OKC_API.G_EXCEPTION_ERROR then
1179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1174:
1175: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1176:
1177: EXCEPTION
1178: when OKC_API.G_EXCEPTION_ERROR then
1179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1180: p_api_name => l_api_name,
1181: p_pkg_name => g_pkg_name,
1182: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1175: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1176:
1177: EXCEPTION
1178: when OKC_API.G_EXCEPTION_ERROR then
1179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1180: p_api_name => l_api_name,
1181: p_pkg_name => g_pkg_name,
1182: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1183: x_msg_count => x_msg_count,
1178: when OKC_API.G_EXCEPTION_ERROR then
1179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1180: p_api_name => l_api_name,
1181: p_pkg_name => g_pkg_name,
1182: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1183: x_msg_count => x_msg_count,
1184: x_msg_data => x_msg_data,
1185: p_api_type => '_PUB');
1186: IF okx_party_csr%ISOPEN THEN
1193: CLOSE okx_vendor_csr;
1194: END IF;
1195:
1196:
1197: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1198: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1199: p_api_name => l_api_name,
1200: p_pkg_name => g_pkg_name,
1201: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1194: END IF;
1195:
1196:
1197: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1198: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1199: p_api_name => l_api_name,
1200: p_pkg_name => g_pkg_name,
1201: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1202: x_msg_count => x_msg_count,
1197: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1198: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1199: p_api_name => l_api_name,
1200: p_pkg_name => g_pkg_name,
1201: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1202: x_msg_count => x_msg_count,
1203: x_msg_data => x_msg_data,
1204: p_api_type => '_PUB');
1205: IF okx_party_csr%ISOPEN THEN
1212: CLOSE okx_vendor_csr;
1213: END IF;
1214:
1215: when OTHERS then
1216: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1217: p_api_name => l_api_name,
1218: p_pkg_name => g_pkg_name,
1219: p_exc_name => 'OTHERS',
1220: x_msg_count => x_msg_count,
1235:
1236:
1237:
1238: Procedure Delete_Party (p_api_version IN NUMBER,
1239: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
1240: x_return_status OUT NOCOPY VARCHAR2,
1241: x_msg_count OUT NOCOPY NUMBER,
1242: x_msg_data OUT NOCOPY VARCHAR2,
1243: p_chr_id IN NUMBER,
1376: l_chr_id := p_chr_id;
1377: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
1378: End If;
1379:
1380: x_return_status := OKC_API.START_ACTIVITY(
1381: p_api_name => l_api_name,
1382: p_pkg_name => g_pkg_name,
1383: p_init_msg_list => p_init_msg_list,
1384: l_api_version => l_api_version,
1386: p_api_type => g_api_type,
1387: x_return_status => x_return_status);
1388:
1389: -- check if activity started successfully
1390: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1391: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1393: raise OKC_API.G_EXCEPTION_ERROR;
1394: End If;
1387: x_return_status => x_return_status);
1388:
1389: -- check if activity started successfully
1390: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1391: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1393: raise OKC_API.G_EXCEPTION_ERROR;
1394: End If;
1395:
1388:
1389: -- check if activity started successfully
1390: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1391: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1393: raise OKC_API.G_EXCEPTION_ERROR;
1394: End If;
1395:
1396: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1389: -- check if activity started successfully
1390: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1391: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1393: raise OKC_API.G_EXCEPTION_ERROR;
1394: End If;
1395:
1396: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1397: Then
1392: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1393: raise OKC_API.G_EXCEPTION_ERROR;
1394: End If;
1395:
1396: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1397: Then
1398: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1399: raise OKC_API.G_EXCEPTION_ERROR;
1400: ElsIf ( p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM)
1394: End If;
1395:
1396: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1397: Then
1398: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1399: raise OKC_API.G_EXCEPTION_ERROR;
1400: ElsIf ( p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM)
1401: Then
1402: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cpl_id');
1395:
1396: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1397: Then
1398: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1399: raise OKC_API.G_EXCEPTION_ERROR;
1400: ElsIf ( p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM)
1401: Then
1402: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cpl_id');
1403: raise OKC_API.G_EXCEPTION_ERROR;
1396: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
1397: Then
1398: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1399: raise OKC_API.G_EXCEPTION_ERROR;
1400: ElsIf ( p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM)
1401: Then
1402: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cpl_id');
1403: raise OKC_API.G_EXCEPTION_ERROR;
1404: End If;
1398: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_chr_id');
1399: raise OKC_API.G_EXCEPTION_ERROR;
1400: ElsIf ( p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM)
1401: Then
1402: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cpl_id');
1403: raise OKC_API.G_EXCEPTION_ERROR;
1404: End If;
1405:
1406: open l_vendor_csr;
1399: raise OKC_API.G_EXCEPTION_ERROR;
1400: ElsIf ( p_cpl_id is null or p_cpl_id = OKC_API.G_MISS_NUM)
1401: Then
1402: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Missing_cpl_id');
1403: raise OKC_API.G_EXCEPTION_ERROR;
1404: End If;
1405:
1406: open l_vendor_csr;
1407: fetch l_vendor_csr into l_k_vendor_id1,l_rle_code;
1407: fetch l_vendor_csr into l_k_vendor_id1,l_rle_code;
1408: close l_vendor_csr;
1409:
1410: If l_rle_code = 'LESSEE' or l_rle_code = 'LESSOR' Then
1411: x_return_status := OKC_API.g_ret_sts_error;
1412: l_rle_code_meaning := GET_RLE_CODE_MEANING(l_rle_code,p_chr_id);
1413: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1414: , p_msg_name => 'OKL_LLA_DELETE_PARTY1'
1415: , p_token1 => 'COL_NAME'
1409:
1410: If l_rle_code = 'LESSEE' or l_rle_code = 'LESSOR' Then
1411: x_return_status := OKC_API.g_ret_sts_error;
1412: l_rle_code_meaning := GET_RLE_CODE_MEANING(l_rle_code,p_chr_id);
1413: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1414: , p_msg_name => 'OKL_LLA_DELETE_PARTY1'
1415: , p_token1 => 'COL_NAME'
1416: , p_token1_value => l_rle_code_meaning
1417: );
1414: , p_msg_name => 'OKL_LLA_DELETE_PARTY1'
1415: , p_token1 => 'COL_NAME'
1416: , p_token1_value => l_rle_code_meaning
1417: );
1418: raise OKC_API.G_EXCEPTION_ERROR;
1419: End If;
1420:
1421: --Bug# 3340949:
1422: --If l_rle_code = 'GUARANTOR' or l_rle_code = 'PRIVATE_LABEL' or l_rle_code = 'OKL_VENDOR' Then
1427: fetch l_funding_chk_csr into row_count;
1428: close l_funding_chk_csr;
1429:
1430: If row_count <> 0 Then
1431: x_return_status := OKC_API.g_ret_sts_error;
1432: l_rle_code_meaning := GET_RLE_CODE_MEANING(l_rle_code,p_chr_id);
1433: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1434: , p_msg_name => 'OKL_LLA_DELETE_PARTY'
1435: , p_token1 => 'COL_NAME'
1429:
1430: If row_count <> 0 Then
1431: x_return_status := OKC_API.g_ret_sts_error;
1432: l_rle_code_meaning := GET_RLE_CODE_MEANING(l_rle_code,p_chr_id);
1433: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1434: , p_msg_name => 'OKL_LLA_DELETE_PARTY'
1435: , p_token1 => 'COL_NAME'
1436: , p_token1_value => l_rle_code_meaning
1437: );
1434: , p_msg_name => 'OKL_LLA_DELETE_PARTY'
1435: , p_token1 => 'COL_NAME'
1436: , p_token1_value => l_rle_code_meaning
1437: );
1438: raise OKC_API.G_EXCEPTION_ERROR;
1439: End If;
1440:
1441: open l_line_csr(l_k_vendor_id1);
1442: fetch l_line_csr into row_count;
1442: fetch l_line_csr into row_count;
1443: close l_line_csr;
1444:
1445: If row_count <> 0 Then
1446: x_return_status := OKC_API.g_ret_sts_error;
1447: l_rle_code_meaning := GET_RLE_CODE_MEANING(l_rle_code,p_chr_id);
1448: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1449: , p_msg_name => 'OKL_LLA_DELETE_PARTY'
1450: , p_token1 => 'COL_NAME'
1444:
1445: If row_count <> 0 Then
1446: x_return_status := OKC_API.g_ret_sts_error;
1447: l_rle_code_meaning := GET_RLE_CODE_MEANING(l_rle_code,p_chr_id);
1448: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1449: , p_msg_name => 'OKL_LLA_DELETE_PARTY'
1450: , p_token1 => 'COL_NAME'
1451: , p_token1_value => l_rle_code_meaning
1452: );
1449: , p_msg_name => 'OKL_LLA_DELETE_PARTY'
1450: , p_token1 => 'COL_NAME'
1451: , p_token1_value => l_rle_code_meaning
1452: );
1453: raise OKC_API.G_EXCEPTION_ERROR;
1454: End If;
1455: End If;
1456:
1457: l_id := null;
1475: x_msg_count => x_msg_count,
1476: x_msg_data => x_msg_data,
1477: p_rulv_tbl => lp_rulv_tbl);
1478:
1479: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1480: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1481: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1482: raise OKC_API.G_EXCEPTION_ERROR;
1483: End If;
1476: x_msg_data => x_msg_data,
1477: p_rulv_tbl => lp_rulv_tbl);
1478:
1479: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1480: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1481: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1482: raise OKC_API.G_EXCEPTION_ERROR;
1483: End If;
1484: */
1477: p_rulv_tbl => lp_rulv_tbl);
1478:
1479: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1480: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1481: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1482: raise OKC_API.G_EXCEPTION_ERROR;
1483: End If;
1484: */
1485:
1478:
1479: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1480: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1481: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1482: raise OKC_API.G_EXCEPTION_ERROR;
1483: End If;
1484: */
1485:
1486: open l_rg_party_csr;
1495: x_msg_count => x_msg_count,
1496: x_msg_data => x_msg_data,
1497: p_rgpv_rec => lp_rgpv_rec);
1498:
1499: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1500: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: End If;
1496: x_msg_data => x_msg_data,
1497: p_rgpv_rec => lp_rgpv_rec);
1498:
1499: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1500: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: End If;
1504:
1497: p_rgpv_rec => lp_rgpv_rec);
1498:
1499: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1500: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: End If;
1504:
1505: lp_rmpv_rec.id := l_id;
1498:
1499: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1500: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1502: raise OKC_API.G_EXCEPTION_ERROR;
1503: End If;
1504:
1505: lp_rmpv_rec.id := l_id;
1506: OKL_RULE_PUB.delete_rg_mode_pty_role(
1510: x_msg_count => x_msg_count,
1511: x_msg_data => x_msg_data,
1512: p_rmpv_rec => lp_rmpv_rec);
1513:
1514: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1515: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1516: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1517: raise OKC_API.G_EXCEPTION_ERROR;
1518: End If;
1511: x_msg_data => x_msg_data,
1512: p_rmpv_rec => lp_rmpv_rec);
1513:
1514: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1515: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1516: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1517: raise OKC_API.G_EXCEPTION_ERROR;
1518: End If;
1519:
1512: p_rmpv_rec => lp_rmpv_rec);
1513:
1514: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1515: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1516: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1517: raise OKC_API.G_EXCEPTION_ERROR;
1518: End If;
1519:
1520: lp_cplv_rec.id := p_cpl_id;
1513:
1514: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1515: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1516: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1517: raise OKC_API.G_EXCEPTION_ERROR;
1518: End If;
1519:
1520: lp_cplv_rec.id := p_cpl_id;
1521: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
1540: x_msg_data => x_msg_data,
1541: p_cplv_rec => lp_cplv_rec,
1542: p_kplv_rec => lp_kplv_rec);
1543:
1544: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: End If;
1541: p_cplv_rec => lp_cplv_rec,
1542: p_kplv_rec => lp_kplv_rec);
1543:
1544: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: End If;
1549:
1542: p_kplv_rec => lp_kplv_rec);
1543:
1544: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: End If;
1549:
1550: --Bug# 3340949:
1543:
1544: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: End If;
1549:
1550: --Bug# 3340949:
1551: --End If;
1566: -- mvasudev, 09/09/2004
1567: -- END, Code change to enable Business Event
1568: */
1569:
1570: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1571:
1572: EXCEPTION
1573: when OKC_API.G_EXCEPTION_ERROR then
1574: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1569:
1570: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1571:
1572: EXCEPTION
1573: when OKC_API.G_EXCEPTION_ERROR then
1574: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1575: p_api_name => l_api_name,
1576: p_pkg_name => g_pkg_name,
1577: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1570: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1571:
1572: EXCEPTION
1573: when OKC_API.G_EXCEPTION_ERROR then
1574: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1575: p_api_name => l_api_name,
1576: p_pkg_name => g_pkg_name,
1577: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1578: x_msg_count => x_msg_count,
1573: when OKC_API.G_EXCEPTION_ERROR then
1574: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1575: p_api_name => l_api_name,
1576: p_pkg_name => g_pkg_name,
1577: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1578: x_msg_count => x_msg_count,
1579: x_msg_data => x_msg_data,
1580: p_api_type => g_api_type);
1581:
1578: x_msg_count => x_msg_count,
1579: x_msg_data => x_msg_data,
1580: p_api_type => g_api_type);
1581:
1582: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1583: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1584: p_api_name => l_api_name,
1585: p_pkg_name => g_pkg_name,
1586: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1579: x_msg_data => x_msg_data,
1580: p_api_type => g_api_type);
1581:
1582: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1583: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1584: p_api_name => l_api_name,
1585: p_pkg_name => g_pkg_name,
1586: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1587: x_msg_count => x_msg_count,
1582: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1583: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1584: p_api_name => l_api_name,
1585: p_pkg_name => g_pkg_name,
1586: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1587: x_msg_count => x_msg_count,
1588: x_msg_data => x_msg_data,
1589: p_api_type => g_api_type);
1590:
1588: x_msg_data => x_msg_data,
1589: p_api_type => g_api_type);
1590:
1591: when OTHERS then
1592: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1593: p_api_name => l_api_name,
1594: p_pkg_name => g_pkg_name,
1595: p_exc_name => 'OTHERS',
1596: x_msg_count => x_msg_count,