65: -- Version : 1.0
66: -- End of comments
67: PROCEDURE raise_business_event(
68: p_api_version IN NUMBER
69: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
70: ,x_return_status OUT NOCOPY VARCHAR2
71: ,x_msg_count OUT NOCOPY NUMBER
72: ,x_msg_data OUT NOCOPY VARCHAR2
73: ,p_event_name IN WF_EVENTS.NAME%TYPE
932: END migrate_rmpv;
933: --------------------------------------------------------------------------------
934: PROCEDURE version_contract(
935: p_api_version IN NUMBER,
936: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
937: x_return_status OUT NOCOPY VARCHAR2,
938: x_msg_count OUT NOCOPY NUMBER,
939: x_msg_data OUT NOCOPY VARCHAR2,
940: p_cvmv_rec IN cvmv_rec_type,
937: x_return_status OUT NOCOPY VARCHAR2,
938: x_msg_count OUT NOCOPY NUMBER,
939: x_msg_data OUT NOCOPY VARCHAR2,
940: p_cvmv_rec IN cvmv_rec_type,
941: p_commit IN VARCHAR2 DEFAULT OKC_API.G_TRUE,
942: x_cvmv_rec OUT NOCOPY cvmv_rec_type) AS
943:
944: lr_cvmv_rec_type_in OKC_VERSION_PUB.cvmv_rec_type;
945: lr_cvmv_rec_type_out OKC_VERSION_PUB.cvmv_rec_type;
944: lr_cvmv_rec_type_in OKC_VERSION_PUB.cvmv_rec_type;
945: lr_cvmv_rec_type_out OKC_VERSION_PUB.cvmv_rec_type;
946: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERSION_PUB';
947: BEGIN
948: x_return_status := OKC_API.G_RET_STS_SUCCESS;
949: -- Call start_activity to create savepoint, check compatibility
950: -- and initialize message list
951: x_return_status := OKC_API.START_ACTIVITY (l_api_name
952: ,p_init_msg_list
947: BEGIN
948: x_return_status := OKC_API.G_RET_STS_SUCCESS;
949: -- Call start_activity to create savepoint, check compatibility
950: -- and initialize message list
951: x_return_status := OKC_API.START_ACTIVITY (l_api_name
952: ,p_init_msg_list
953: ,'_PVT'
954: ,x_return_status);
955: -- Check if activity started successfully
952: ,p_init_msg_list
953: ,'_PVT'
954: ,x_return_status);
955: -- Check if activity started successfully
956: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
953: ,'_PVT'
954: ,x_return_status);
955: -- Check if activity started successfully
956: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
961: -- Since we are creatieng a wrapper over the okc
954: ,x_return_status);
955: -- Check if activity started successfully
956: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
961: -- Since we are creatieng a wrapper over the okc
962: -- we need to migrate from locally declared cvmv record
955: -- Check if activity started successfully
956: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
957: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
958: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
959: RAISE OKC_API.G_EXCEPTION_ERROR;
960: END IF;
961: -- Since we are creatieng a wrapper over the okc
962: -- we need to migrate from locally declared cvmv record
963: -- to OKC declared cvmv record type as process of input
962: -- we need to migrate from locally declared cvmv record
963: -- to OKC declared cvmv record type as process of input
964: migrate_version(p_cvmv_rec,
965: lr_cvmv_rec_type_in);
966: -- Calling the actual OKC api
967: OKC_VERSION_PUB.version_contract(p_api_version => p_api_version,
968: p_init_msg_list => p_init_msg_list,
969: x_return_status => x_return_status,
970: x_msg_count => x_msg_count,
971: x_msg_data => x_msg_data,
972: p_cvmv_rec => lr_cvmv_rec_type_in,
973: p_commit => p_commit,
974: x_cvmv_rec => lr_cvmv_rec_type_out);
975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_ERROR;
979: END IF;
972: p_cvmv_rec => lr_cvmv_rec_type_in,
973: p_commit => p_commit,
974: x_cvmv_rec => lr_cvmv_rec_type_out);
975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_ERROR;
979: END IF;
980: -- Since we are creatieng a wrapper over the okc
973: p_commit => p_commit,
974: x_cvmv_rec => lr_cvmv_rec_type_out);
975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_ERROR;
979: END IF;
980: -- Since we are creatieng a wrapper over the okc
981: -- we need to migrate from OKC declared cimv record type
974: x_cvmv_rec => lr_cvmv_rec_type_out);
975: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
976: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
977: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
978: RAISE OKC_API.G_EXCEPTION_ERROR;
979: END IF;
980: -- Since we are creatieng a wrapper over the okc
981: -- we need to migrate from OKC declared cimv record type
982: -- to locally declared cimv record as process of input
981: -- we need to migrate from OKC declared cimv record type
982: -- to locally declared cimv record as process of input
983: migrate_version(lr_cvmv_rec_type_out,
984: x_cvmv_rec);
985: OKC_API.END_ACTIVITY (x_msg_count,
986: x_msg_data );
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
984: x_cvmv_rec);
985: OKC_API.END_ACTIVITY (x_msg_count,
986: x_msg_data );
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
990: l_api_name,
991: G_PKG_NAME,
992: 'OKC_API.G_RET_STS_ERROR',
985: OKC_API.END_ACTIVITY (x_msg_count,
986: x_msg_data );
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
990: l_api_name,
991: G_PKG_NAME,
992: 'OKC_API.G_RET_STS_ERROR',
993: x_msg_count,
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
990: l_api_name,
991: G_PKG_NAME,
992: 'OKC_API.G_RET_STS_ERROR',
993: x_msg_count,
994: x_msg_data,
995: '_PVT');
996: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
992: 'OKC_API.G_RET_STS_ERROR',
993: x_msg_count,
994: x_msg_data,
995: '_PVT');
996: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
997: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
998: l_api_name,
999: G_PKG_NAME,
1000: 'OKC_API.G_RET_STS_UNEXP_ERROR',
993: x_msg_count,
994: x_msg_data,
995: '_PVT');
996: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
997: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
998: l_api_name,
999: G_PKG_NAME,
1000: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1001: x_msg_count,
996: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
997: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
998: l_api_name,
999: G_PKG_NAME,
1000: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1001: x_msg_count,
1002: x_msg_data,
1003: '_PVT');
1004: WHEN OTHERS THEN
1001: x_msg_count,
1002: x_msg_data,
1003: '_PVT');
1004: WHEN OTHERS THEN
1005: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1006: l_api_name,
1007: G_PKG_NAME,
1008: 'OTHERS',
1009: x_msg_count,
1012: END version_contract;
1013: -------------------------------------------------------------------------------------------
1014: PROCEDURE version_contract(
1015: p_api_version IN NUMBER,
1016: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1017: x_return_status OUT NOCOPY VARCHAR2,
1018: x_msg_count OUT NOCOPY NUMBER,
1019: x_msg_data OUT NOCOPY VARCHAR2,
1020: p_cvmv_tbl IN cvmv_tbl_type,
1017: x_return_status OUT NOCOPY VARCHAR2,
1018: x_msg_count OUT NOCOPY NUMBER,
1019: x_msg_data OUT NOCOPY VARCHAR2,
1020: p_cvmv_tbl IN cvmv_tbl_type,
1021: p_commit IN VARCHAR2 DEFAULT OKC_API.G_TRUE,
1022: x_cvmv_tbl OUT NOCOPY cvmv_tbl_type) AS
1023:
1024: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERISON_PVT';
1025: i NUMBER := 0;
1023:
1024: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERISON_PVT';
1025: i NUMBER := 0;
1026: BEGIN
1027: OKC_API.init_msg_list(p_init_msg_list);
1028: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1029: IF (p_cvmv_tbl.COUNT>0) THEN
1030: i := p_cvmv_tbl.FIRST;
1031: LOOP
1024: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERISON_PVT';
1025: i NUMBER := 0;
1026: BEGIN
1027: OKC_API.init_msg_list(p_init_msg_list);
1028: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1029: IF (p_cvmv_tbl.COUNT>0) THEN
1030: i := p_cvmv_tbl.FIRST;
1031: LOOP
1032: version_contract(p_api_version =>p_api_version,
1029: IF (p_cvmv_tbl.COUNT>0) THEN
1030: i := p_cvmv_tbl.FIRST;
1031: LOOP
1032: version_contract(p_api_version =>p_api_version,
1033: p_init_msg_list =>OKC_API.G_FALSE,
1034: x_return_status =>x_return_status,
1035: x_msg_count =>x_msg_count,
1036: x_msg_data =>x_msg_data,
1037: p_cvmv_rec =>p_cvmv_tbl(i),
1035: x_msg_count =>x_msg_count,
1036: x_msg_data =>x_msg_data,
1037: p_cvmv_rec =>p_cvmv_tbl(i),
1038: x_cvmv_rec =>x_cvmv_tbl(i));
1039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1040: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1042: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1043: END IF;
1036: x_msg_data =>x_msg_data,
1037: p_cvmv_rec =>p_cvmv_tbl(i),
1038: x_cvmv_rec =>x_cvmv_tbl(i));
1039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1040: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1042: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1043: END IF;
1044: EXIT WHEN (i=p_cvmv_tbl.LAST);
1037: p_cvmv_rec =>p_cvmv_tbl(i),
1038: x_cvmv_rec =>x_cvmv_tbl(i));
1039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1040: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1042: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1043: END IF;
1044: EXIT WHEN (i=p_cvmv_tbl.LAST);
1045: i := p_cvmv_tbl.NEXT(i);
1038: x_cvmv_rec =>x_cvmv_tbl(i));
1039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1040: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1042: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1043: END IF;
1044: EXIT WHEN (i=p_cvmv_tbl.LAST);
1045: i := p_cvmv_tbl.NEXT(i);
1046: END LOOP;
1043: END IF;
1044: EXIT WHEN (i=p_cvmv_tbl.LAST);
1045: i := p_cvmv_tbl.NEXT(i);
1046: END LOOP;
1047: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1044: EXIT WHEN (i=p_cvmv_tbl.LAST);
1045: i := p_cvmv_tbl.NEXT(i);
1046: END LOOP;
1047: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: END IF;
1045: i := p_cvmv_tbl.NEXT(i);
1046: END LOOP;
1047: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: END IF;
1053: EXCEPTION
1046: END LOOP;
1047: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: END IF;
1053: EXCEPTION
1054: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052: END IF;
1053: EXCEPTION
1054: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1055: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1056: l_api_name,
1057: G_PKG_NAME,
1058: 'OKC_API.G_RET_STS_ERROR',
1051: END IF;
1052: END IF;
1053: EXCEPTION
1054: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1055: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1056: l_api_name,
1057: G_PKG_NAME,
1058: 'OKC_API.G_RET_STS_ERROR',
1059: x_msg_count,
1054: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1055: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1056: l_api_name,
1057: G_PKG_NAME,
1058: 'OKC_API.G_RET_STS_ERROR',
1059: x_msg_count,
1060: x_msg_data,
1061: '_PVT');
1062: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1058: 'OKC_API.G_RET_STS_ERROR',
1059: x_msg_count,
1060: x_msg_data,
1061: '_PVT');
1062: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1063: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1064: l_api_name,
1065: G_PKG_NAME,
1066: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1059: x_msg_count,
1060: x_msg_data,
1061: '_PVT');
1062: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1063: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1064: l_api_name,
1065: G_PKG_NAME,
1066: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1067: x_msg_count,
1062: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1063: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1064: l_api_name,
1065: G_PKG_NAME,
1066: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1067: x_msg_count,
1068: x_msg_data,
1069: '_PVT');
1070: WHEN OTHERS THEN
1067: x_msg_count,
1068: x_msg_data,
1069: '_PVT');
1070: WHEN OTHERS THEN
1071: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1072: l_api_name,
1073: G_PKG_NAME,
1074: 'OTHERS',
1075: x_msg_count,
1079: ---------------------------------------------------------------------------------------
1080:
1081: PROCEDURE create_contract_item(
1082: p_api_version IN NUMBER,
1083: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1084: x_return_status OUT NOCOPY VARCHAR2,
1085: x_msg_count OUT NOCOPY NUMBER,
1086: x_msg_data OUT NOCOPY VARCHAR2,
1087: p_cimv_rec IN cimv_rec_type,
1111: l_business_event_name WF_EVENTS.NAME%TYPE := NULL;
1112: --vthiruva end, 15-Sep-2004
1113:
1114: BEGIN
1115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1116: -- Call start_activity to create savepoint, check compatibility
1117: -- and initialize message list
1118: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1119: ,p_init_msg_list
1114: BEGIN
1115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1116: -- Call start_activity to create savepoint, check compatibility
1117: -- and initialize message list
1118: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1119: ,p_init_msg_list
1120: ,'_PVT'
1121: ,x_return_status);
1122: -- Check if activity started successfully
1119: ,p_init_msg_list
1120: ,'_PVT'
1121: ,x_return_status);
1122: -- Check if activity started successfully
1123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1126: RAISE OKC_API.G_EXCEPTION_ERROR;
1127: END IF;
1120: ,'_PVT'
1121: ,x_return_status);
1122: -- Check if activity started successfully
1123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1126: RAISE OKC_API.G_EXCEPTION_ERROR;
1127: END IF;
1128: -- Since we are creatieng a wrapper over the okc
1121: ,x_return_status);
1122: -- Check if activity started successfully
1123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1126: RAISE OKC_API.G_EXCEPTION_ERROR;
1127: END IF;
1128: -- Since we are creatieng a wrapper over the okc
1129: -- we need to migrate from locally declared cimv record
1122: -- Check if activity started successfully
1123: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1124: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1125: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1126: RAISE OKC_API.G_EXCEPTION_ERROR;
1127: END IF;
1128: -- Since we are creatieng a wrapper over the okc
1129: -- we need to migrate from locally declared cimv record
1130: -- to OKC declared cimv record type as process of input
1129: -- we need to migrate from locally declared cimv record
1130: -- to OKC declared cimv record type as process of input
1131: migrate_okl_okc_item(p_cimv_rec,
1132: lr_cimv_rec_type_in);
1133: -- Calling the actual OKC api
1134:
1135: -- smereddy,09/08/2005,Bug#4378699
1136: okl_context.set_okc_org_context(p_chr_id => lr_cimv_rec_type_in.dnz_chr_id);
1137:
1138: ----- Changes by Kanti
1139: ----- Validate the JTOT Object code, ID1 and ID2
1140:
1141: okl_la_validation_util_pvt.VALIDATE_STYLE_JTOT (p_api_version => p_api_version,
1142: p_init_msg_list => OKC_API.G_FALSE,
1143: x_return_status => x_return_status,
1144: x_msg_count => x_msg_count,
1145: x_msg_data => x_msg_data,
1146: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1145: x_msg_data => x_msg_data,
1146: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1147: p_id1 => lr_cimv_rec_type_in.object1_id1,
1148: p_id2 => lr_cimv_rec_type_in.object1_id2);
1149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1152: RAISE OKC_API.G_EXCEPTION_ERROR;
1153: END IF;
1146: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1147: p_id1 => lr_cimv_rec_type_in.object1_id1,
1148: p_id2 => lr_cimv_rec_type_in.object1_id2);
1149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1152: RAISE OKC_API.G_EXCEPTION_ERROR;
1153: END IF;
1154:
1147: p_id1 => lr_cimv_rec_type_in.object1_id1,
1148: p_id2 => lr_cimv_rec_type_in.object1_id2);
1149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1152: RAISE OKC_API.G_EXCEPTION_ERROR;
1153: END IF;
1154:
1155: ---- Changes End
1148: p_id2 => lr_cimv_rec_type_in.object1_id2);
1149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1150: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1152: RAISE OKC_API.G_EXCEPTION_ERROR;
1153: END IF;
1154:
1155: ---- Changes End
1156:
1161: x_msg_count => x_msg_count,
1162: x_msg_data => x_msg_data,
1163: p_cimv_rec => lr_cimv_rec_type_in,
1164: x_cimv_rec => lr_cimv_rec_type_out);
1165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1168: RAISE OKC_API.G_EXCEPTION_ERROR;
1169: END IF;
1162: x_msg_data => x_msg_data,
1163: p_cimv_rec => lr_cimv_rec_type_in,
1164: x_cimv_rec => lr_cimv_rec_type_out);
1165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1168: RAISE OKC_API.G_EXCEPTION_ERROR;
1169: END IF;
1170: -- Since we are creatieng a wrapper over the okc
1163: p_cimv_rec => lr_cimv_rec_type_in,
1164: x_cimv_rec => lr_cimv_rec_type_out);
1165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1168: RAISE OKC_API.G_EXCEPTION_ERROR;
1169: END IF;
1170: -- Since we are creatieng a wrapper over the okc
1171: -- we need to migrate from OKC declared cimv record type
1164: x_cimv_rec => lr_cimv_rec_type_out);
1165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1168: RAISE OKC_API.G_EXCEPTION_ERROR;
1169: END IF;
1170: -- Since we are creatieng a wrapper over the okc
1171: -- we need to migrate from OKC declared cimv record type
1172: -- to locally declared cimv record as process of input
1213: ,p_event_param_list => l_parameter_list);
1214: END IF;
1215: --vthiruva end, 15-Sep-2004
1216:
1217: OKC_API.END_ACTIVITY (x_msg_count,
1218: x_msg_data );
1219: EXCEPTION
1220: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1221: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1216:
1217: OKC_API.END_ACTIVITY (x_msg_count,
1218: x_msg_data );
1219: EXCEPTION
1220: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1221: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1222: l_api_name,
1223: G_PKG_NAME,
1224: 'OKC_API.G_RET_STS_ERROR',
1217: OKC_API.END_ACTIVITY (x_msg_count,
1218: x_msg_data );
1219: EXCEPTION
1220: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1221: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1222: l_api_name,
1223: G_PKG_NAME,
1224: 'OKC_API.G_RET_STS_ERROR',
1225: x_msg_count,
1220: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1221: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1222: l_api_name,
1223: G_PKG_NAME,
1224: 'OKC_API.G_RET_STS_ERROR',
1225: x_msg_count,
1226: x_msg_data,
1227: '_PVT');
1228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1224: 'OKC_API.G_RET_STS_ERROR',
1225: x_msg_count,
1226: x_msg_data,
1227: '_PVT');
1228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1229: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1230: l_api_name,
1231: G_PKG_NAME,
1232: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1225: x_msg_count,
1226: x_msg_data,
1227: '_PVT');
1228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1229: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1230: l_api_name,
1231: G_PKG_NAME,
1232: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1233: x_msg_count,
1228: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1229: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1230: l_api_name,
1231: G_PKG_NAME,
1232: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1233: x_msg_count,
1234: x_msg_data,
1235: '_PVT');
1236: WHEN OTHERS THEN
1233: x_msg_count,
1234: x_msg_data,
1235: '_PVT');
1236: WHEN OTHERS THEN
1237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1238: l_api_name,
1239: G_PKG_NAME,
1240: 'OTHERS',
1241: x_msg_count,
1244: END create_contract_item;
1245: --------------------------------------------------------------------------------------------------------------
1246: PROCEDURE create_contract_item(
1247: p_api_version IN NUMBER,
1248: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1249: x_return_status OUT NOCOPY VARCHAR2,
1250: x_msg_count OUT NOCOPY NUMBER,
1251: x_msg_data OUT NOCOPY VARCHAR2,
1252: p_cimv_tbl IN cimv_tbl_type,
1254:
1255: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_ITEM';
1256: i NUMBER := 0;
1257: BEGIN
1258: OKC_API.init_msg_list(p_init_msg_list);
1259: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1260: IF (p_cimv_tbl.COUNT>0) THEN
1261: i := p_cimv_tbl.FIRST;
1262: LOOP
1255: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_ITEM';
1256: i NUMBER := 0;
1257: BEGIN
1258: OKC_API.init_msg_list(p_init_msg_list);
1259: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1260: IF (p_cimv_tbl.COUNT>0) THEN
1261: i := p_cimv_tbl.FIRST;
1262: LOOP
1263: create_contract_item(p_api_version =>p_api_version,
1260: IF (p_cimv_tbl.COUNT>0) THEN
1261: i := p_cimv_tbl.FIRST;
1262: LOOP
1263: create_contract_item(p_api_version =>p_api_version,
1264: p_init_msg_list =>OKC_API.G_FALSE,
1265: x_return_status =>x_return_status,
1266: x_msg_count =>x_msg_count,
1267: x_msg_data =>x_msg_data,
1268: p_cimv_rec =>p_cimv_tbl(i),
1266: x_msg_count =>x_msg_count,
1267: x_msg_data =>x_msg_data,
1268: p_cimv_rec =>p_cimv_tbl(i),
1269: x_cimv_rec =>x_cimv_tbl(i));
1270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1271: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1274: END IF;
1267: x_msg_data =>x_msg_data,
1268: p_cimv_rec =>p_cimv_tbl(i),
1269: x_cimv_rec =>x_cimv_tbl(i));
1270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1271: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1274: END IF;
1275: EXIT WHEN (i=p_cimv_tbl.LAST);
1268: p_cimv_rec =>p_cimv_tbl(i),
1269: x_cimv_rec =>x_cimv_tbl(i));
1270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1271: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1274: END IF;
1275: EXIT WHEN (i=p_cimv_tbl.LAST);
1276: i := p_cimv_tbl.NEXT(i);
1269: x_cimv_rec =>x_cimv_tbl(i));
1270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1271: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1273: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1274: END IF;
1275: EXIT WHEN (i=p_cimv_tbl.LAST);
1276: i := p_cimv_tbl.NEXT(i);
1277: END LOOP;
1274: END IF;
1275: EXIT WHEN (i=p_cimv_tbl.LAST);
1276: i := p_cimv_tbl.NEXT(i);
1277: END LOOP;
1278: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1275: EXIT WHEN (i=p_cimv_tbl.LAST);
1276: i := p_cimv_tbl.NEXT(i);
1277: END LOOP;
1278: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1283: END IF;
1276: i := p_cimv_tbl.NEXT(i);
1277: END LOOP;
1278: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1283: END IF;
1284: EXCEPTION
1277: END LOOP;
1278: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1280: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1283: END IF;
1284: EXCEPTION
1285: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1283: END IF;
1284: EXCEPTION
1285: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1286: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1287: l_api_name,
1288: G_PKG_NAME,
1289: 'OKC_API.G_RET_STS_ERROR',
1282: END IF;
1283: END IF;
1284: EXCEPTION
1285: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1286: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1287: l_api_name,
1288: G_PKG_NAME,
1289: 'OKC_API.G_RET_STS_ERROR',
1290: x_msg_count,
1285: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1286: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1287: l_api_name,
1288: G_PKG_NAME,
1289: 'OKC_API.G_RET_STS_ERROR',
1290: x_msg_count,
1291: x_msg_data,
1292: '_PVT');
1293: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1289: 'OKC_API.G_RET_STS_ERROR',
1290: x_msg_count,
1291: x_msg_data,
1292: '_PVT');
1293: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1294: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1295: l_api_name,
1296: G_PKG_NAME,
1297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1290: x_msg_count,
1291: x_msg_data,
1292: '_PVT');
1293: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1294: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1295: l_api_name,
1296: G_PKG_NAME,
1297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1298: x_msg_count,
1293: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1294: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1295: l_api_name,
1296: G_PKG_NAME,
1297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1298: x_msg_count,
1299: x_msg_data,
1300: '_PVT');
1301: WHEN OTHERS THEN
1298: x_msg_count,
1299: x_msg_data,
1300: '_PVT');
1301: WHEN OTHERS THEN
1302: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1303: l_api_name,
1304: G_PKG_NAME,
1305: 'OTHERS',
1306: x_msg_count,
1310: --------------------------------------------------------------------------------------------------
1311:
1312: PROCEDURE update_contract_item(
1313: p_api_version IN NUMBER,
1314: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1315: x_return_status OUT NOCOPY VARCHAR2,
1316: x_msg_count OUT NOCOPY NUMBER,
1317: x_msg_data OUT NOCOPY VARCHAR2,
1318: p_cimv_rec IN cimv_rec_type,
1332: l_dnz_chr_id NUMBER;
1333: -- end,mvasudev,09/08/2005,Bug#4378699
1334:
1335: BEGIN
1336: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1337: -- Call start_activity to create savepoint, check compatibility
1338: -- and initialize message list
1339: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1340: ,p_init_msg_list
1335: BEGIN
1336: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1337: -- Call start_activity to create savepoint, check compatibility
1338: -- and initialize message list
1339: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1340: ,p_init_msg_list
1341: ,'_PVT'
1342: ,x_return_status);
1343: -- Check if activity started successfully
1340: ,p_init_msg_list
1341: ,'_PVT'
1342: ,x_return_status);
1343: -- Check if activity started successfully
1344: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_ERROR;
1348: END IF;
1341: ,'_PVT'
1342: ,x_return_status);
1343: -- Check if activity started successfully
1344: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_ERROR;
1348: END IF;
1349: -- Since we are creatieng a wrapper over the okc
1342: ,x_return_status);
1343: -- Check if activity started successfully
1344: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_ERROR;
1348: END IF;
1349: -- Since we are creatieng a wrapper over the okc
1350: -- we need to migrate from locally declared cimv record
1343: -- Check if activity started successfully
1344: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_ERROR;
1348: END IF;
1349: -- Since we are creatieng a wrapper over the okc
1350: -- we need to migrate from locally declared cimv record
1351: -- to OKC declared cimv record type as process of input
1365:
1366: IF l_dnz_chr_id IS NOT NULL THEN
1367: okl_context.set_okc_org_context(p_chr_id => l_dnz_chr_id);
1368: ELSE
1369: RAISE OKC_API.G_EXCEPTION_ERROR;
1370: END IF;
1371: -- smereddy,09/08/2005,Bug#4378699
1372:
1373: ----- Changes by Kanti
1373: ----- Changes by Kanti
1374: ----- Validate the JTOT Object code, ID1 and ID2
1375:
1376: okl_la_validation_util_pvt.VALIDATE_STYLE_JTOT (p_api_version => p_api_version,
1377: p_init_msg_list => OKC_API.G_FALSE,
1378: x_return_status => x_return_status,
1379: x_msg_count => x_msg_count,
1380: x_msg_data => x_msg_data,
1381: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1380: x_msg_data => x_msg_data,
1381: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1382: p_id1 => lr_cimv_rec_type_in.object1_id1,
1383: p_id2 => lr_cimv_rec_type_in.object1_id2);
1384: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1387: RAISE OKC_API.G_EXCEPTION_ERROR;
1388: END IF;
1381: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1382: p_id1 => lr_cimv_rec_type_in.object1_id1,
1383: p_id2 => lr_cimv_rec_type_in.object1_id2);
1384: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1387: RAISE OKC_API.G_EXCEPTION_ERROR;
1388: END IF;
1389: ---- Changes End
1382: p_id1 => lr_cimv_rec_type_in.object1_id1,
1383: p_id2 => lr_cimv_rec_type_in.object1_id2);
1384: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1387: RAISE OKC_API.G_EXCEPTION_ERROR;
1388: END IF;
1389: ---- Changes End
1390:
1383: p_id2 => lr_cimv_rec_type_in.object1_id2);
1384: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1385: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1386: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1387: RAISE OKC_API.G_EXCEPTION_ERROR;
1388: END IF;
1389: ---- Changes End
1390:
1391:
1388: END IF;
1389: ---- Changes End
1390:
1391:
1392: -- Calling the actual OKC api
1393:
1394:
1395: OKC_CONTRACT_ITEM_PUB.update_contract_item(p_api_version => p_api_version,
1396: p_init_msg_list => p_init_msg_list,
1399: x_msg_data => x_msg_data,
1400: p_cimv_rec => lr_cimv_rec_type_in,
1401: x_cimv_rec => lr_cimv_rec_type_out);
1402:
1403: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1400: p_cimv_rec => lr_cimv_rec_type_in,
1401: x_cimv_rec => lr_cimv_rec_type_out);
1402:
1403: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1408: -- Since we are creatieng a wrapper over the okc
1401: x_cimv_rec => lr_cimv_rec_type_out);
1402:
1403: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1408: -- Since we are creatieng a wrapper over the okc
1409: -- we need to migrate from OKC declared cimv record type
1402:
1403: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1408: -- Since we are creatieng a wrapper over the okc
1409: -- we need to migrate from OKC declared cimv record type
1410: -- to locally declared cimv record as process of input
1409: -- we need to migrate from OKC declared cimv record type
1410: -- to locally declared cimv record as process of input
1411: migrate_okc_okl_item(lr_cimv_rec_type_out,
1412: x_cimv_rec);
1413: OKC_API.END_ACTIVITY (x_msg_count,
1414: x_msg_data );
1415: EXCEPTION
1416: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1412: x_cimv_rec);
1413: OKC_API.END_ACTIVITY (x_msg_count,
1414: x_msg_data );
1415: EXCEPTION
1416: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1418: l_api_name,
1419: G_PKG_NAME,
1420: 'OKC_API.G_RET_STS_ERROR',
1413: OKC_API.END_ACTIVITY (x_msg_count,
1414: x_msg_data );
1415: EXCEPTION
1416: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1418: l_api_name,
1419: G_PKG_NAME,
1420: 'OKC_API.G_RET_STS_ERROR',
1421: x_msg_count,
1416: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1418: l_api_name,
1419: G_PKG_NAME,
1420: 'OKC_API.G_RET_STS_ERROR',
1421: x_msg_count,
1422: x_msg_data,
1423: '_PVT');
1424: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1420: 'OKC_API.G_RET_STS_ERROR',
1421: x_msg_count,
1422: x_msg_data,
1423: '_PVT');
1424: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1425: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1426: l_api_name,
1427: G_PKG_NAME,
1428: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1421: x_msg_count,
1422: x_msg_data,
1423: '_PVT');
1424: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1425: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1426: l_api_name,
1427: G_PKG_NAME,
1428: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1429: x_msg_count,
1424: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1425: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1426: l_api_name,
1427: G_PKG_NAME,
1428: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1429: x_msg_count,
1430: x_msg_data,
1431: '_PVT');
1432: WHEN OTHERS THEN
1429: x_msg_count,
1430: x_msg_data,
1431: '_PVT');
1432: WHEN OTHERS THEN
1433: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1434: l_api_name,
1435: G_PKG_NAME,
1436: 'OTHERS',
1437: x_msg_count,
1440: END update_contract_item;
1441: --------------------------------------------------------------------------------------------------------------
1442: PROCEDURE update_contract_item(
1443: p_api_version IN NUMBER,
1444: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1445: x_return_status OUT NOCOPY VARCHAR2,
1446: x_msg_count OUT NOCOPY NUMBER,
1447: x_msg_data OUT NOCOPY VARCHAR2,
1448: p_cimv_tbl IN cimv_tbl_type,
1450:
1451: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_ITEM';
1452: i NUMBER := 0;
1453: BEGIN
1454: OKC_API.init_msg_list(p_init_msg_list);
1455: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1456: IF (p_cimv_tbl.COUNT>0) THEN
1457: i := p_cimv_tbl.FIRST;
1458: LOOP
1451: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_ITEM';
1452: i NUMBER := 0;
1453: BEGIN
1454: OKC_API.init_msg_list(p_init_msg_list);
1455: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1456: IF (p_cimv_tbl.COUNT>0) THEN
1457: i := p_cimv_tbl.FIRST;
1458: LOOP
1459: update_contract_item(p_api_version =>p_api_version,
1456: IF (p_cimv_tbl.COUNT>0) THEN
1457: i := p_cimv_tbl.FIRST;
1458: LOOP
1459: update_contract_item(p_api_version =>p_api_version,
1460: p_init_msg_list =>OKC_API.G_FALSE,
1461: x_return_status =>x_return_status,
1462: x_msg_count =>x_msg_count,
1463: x_msg_data =>x_msg_data,
1464: p_cimv_rec =>p_cimv_tbl(i),
1462: x_msg_count =>x_msg_count,
1463: x_msg_data =>x_msg_data,
1464: p_cimv_rec =>p_cimv_tbl(i),
1465: x_cimv_rec =>x_cimv_tbl(i));
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1470: END IF;
1463: x_msg_data =>x_msg_data,
1464: p_cimv_rec =>p_cimv_tbl(i),
1465: x_cimv_rec =>x_cimv_tbl(i));
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1470: END IF;
1471: EXIT WHEN (i=p_cimv_tbl.LAST);
1464: p_cimv_rec =>p_cimv_tbl(i),
1465: x_cimv_rec =>x_cimv_tbl(i));
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1470: END IF;
1471: EXIT WHEN (i=p_cimv_tbl.LAST);
1472: i := p_cimv_tbl.NEXT(i);
1465: x_cimv_rec =>x_cimv_tbl(i));
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1470: END IF;
1471: EXIT WHEN (i=p_cimv_tbl.LAST);
1472: i := p_cimv_tbl.NEXT(i);
1473: END LOOP;
1470: END IF;
1471: EXIT WHEN (i=p_cimv_tbl.LAST);
1472: i := p_cimv_tbl.NEXT(i);
1473: END LOOP;
1474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1471: EXIT WHEN (i=p_cimv_tbl.LAST);
1472: i := p_cimv_tbl.NEXT(i);
1473: END LOOP;
1474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1479: END IF;
1472: i := p_cimv_tbl.NEXT(i);
1473: END LOOP;
1474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1479: END IF;
1480: EXCEPTION
1473: END LOOP;
1474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1479: END IF;
1480: EXCEPTION
1481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1477: RAISE OKC_API.G_EXCEPTION_ERROR;
1478: END IF;
1479: END IF;
1480: EXCEPTION
1481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1482: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1483: l_api_name,
1484: G_PKG_NAME,
1485: 'OKC_API.G_RET_STS_ERROR',
1478: END IF;
1479: END IF;
1480: EXCEPTION
1481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1482: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1483: l_api_name,
1484: G_PKG_NAME,
1485: 'OKC_API.G_RET_STS_ERROR',
1486: x_msg_count,
1481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1482: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1483: l_api_name,
1484: G_PKG_NAME,
1485: 'OKC_API.G_RET_STS_ERROR',
1486: x_msg_count,
1487: x_msg_data,
1488: '_PVT');
1489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1485: 'OKC_API.G_RET_STS_ERROR',
1486: x_msg_count,
1487: x_msg_data,
1488: '_PVT');
1489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1490: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1491: l_api_name,
1492: G_PKG_NAME,
1493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1486: x_msg_count,
1487: x_msg_data,
1488: '_PVT');
1489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1490: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1491: l_api_name,
1492: G_PKG_NAME,
1493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1494: x_msg_count,
1489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1490: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1491: l_api_name,
1492: G_PKG_NAME,
1493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1494: x_msg_count,
1495: x_msg_data,
1496: '_PVT');
1497: WHEN OTHERS THEN
1494: x_msg_count,
1495: x_msg_data,
1496: '_PVT');
1497: WHEN OTHERS THEN
1498: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1499: l_api_name,
1500: G_PKG_NAME,
1501: 'OTHERS',
1502: x_msg_count,
1505: END update_contract_item;
1506: --------------------------------------------------------------------------------------------------
1507: PROCEDURE delete_contract_item(
1508: p_api_version IN NUMBER,
1509: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1510: x_return_status OUT NOCOPY VARCHAR2,
1511: x_msg_count OUT NOCOPY NUMBER,
1512: x_msg_data OUT NOCOPY VARCHAR2,
1513: p_cimv_rec IN cimv_rec_type) AS
1514:
1515: lr_cimv_rec_type_in OKC_CONTRACT_ITEM_PUB.cimv_rec_type;
1516: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_K_ITEM';
1517: BEGIN
1518: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1519: -- Call start_activity to create savepoint, check compatibility
1520: -- and initialize message list
1521: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1522: ,p_init_msg_list
1517: BEGIN
1518: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1519: -- Call start_activity to create savepoint, check compatibility
1520: -- and initialize message list
1521: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1522: ,p_init_msg_list
1523: ,'_PVT'
1524: ,x_return_status);
1525: -- Check if activity started successfully
1522: ,p_init_msg_list
1523: ,'_PVT'
1524: ,x_return_status);
1525: -- Check if activity started successfully
1526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1523: ,'_PVT'
1524: ,x_return_status);
1525: -- Check if activity started successfully
1526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1531: -- Since we are creatieng a wrapper over the okc
1524: ,x_return_status);
1525: -- Check if activity started successfully
1526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1531: -- Since we are creatieng a wrapper over the okc
1532: -- we need to migrate from locally declared cimv record
1525: -- Check if activity started successfully
1526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1531: -- Since we are creatieng a wrapper over the okc
1532: -- we need to migrate from locally declared cimv record
1533: -- to OKC declared cimv record type as process of input
1532: -- we need to migrate from locally declared cimv record
1533: -- to OKC declared cimv record type as process of input
1534: migrate_okl_okc_item(p_cimv_rec,
1535: lr_cimv_rec_type_in);
1536: -- Calling the actual OKC api
1537: OKC_CONTRACT_ITEM_PUB.delete_contract_item(p_api_version => p_api_version,
1538: p_init_msg_list => p_init_msg_list,
1539: x_return_status => x_return_status,
1540: x_msg_count => x_msg_count,
1539: x_return_status => x_return_status,
1540: x_msg_count => x_msg_count,
1541: x_msg_data => x_msg_data,
1542: p_cimv_rec => lr_cimv_rec_type_in);
1543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_ERROR;
1547: END IF;
1540: x_msg_count => x_msg_count,
1541: x_msg_data => x_msg_data,
1542: p_cimv_rec => lr_cimv_rec_type_in);
1543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_ERROR;
1547: END IF;
1548: OKC_API.END_ACTIVITY (x_msg_count,
1541: x_msg_data => x_msg_data,
1542: p_cimv_rec => lr_cimv_rec_type_in);
1543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_ERROR;
1547: END IF;
1548: OKC_API.END_ACTIVITY (x_msg_count,
1549: x_msg_data );
1542: p_cimv_rec => lr_cimv_rec_type_in);
1543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_ERROR;
1547: END IF;
1548: OKC_API.END_ACTIVITY (x_msg_count,
1549: x_msg_data );
1550: EXCEPTION
1544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1546: RAISE OKC_API.G_EXCEPTION_ERROR;
1547: END IF;
1548: OKC_API.END_ACTIVITY (x_msg_count,
1549: x_msg_data );
1550: EXCEPTION
1551: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1552: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1547: END IF;
1548: OKC_API.END_ACTIVITY (x_msg_count,
1549: x_msg_data );
1550: EXCEPTION
1551: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1552: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1553: l_api_name,
1554: G_PKG_NAME,
1555: 'OKC_API.G_RET_STS_ERROR',
1548: OKC_API.END_ACTIVITY (x_msg_count,
1549: x_msg_data );
1550: EXCEPTION
1551: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1552: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1553: l_api_name,
1554: G_PKG_NAME,
1555: 'OKC_API.G_RET_STS_ERROR',
1556: x_msg_count,
1551: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1552: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1553: l_api_name,
1554: G_PKG_NAME,
1555: 'OKC_API.G_RET_STS_ERROR',
1556: x_msg_count,
1557: x_msg_data,
1558: '_PVT');
1559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1555: 'OKC_API.G_RET_STS_ERROR',
1556: x_msg_count,
1557: x_msg_data,
1558: '_PVT');
1559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1560: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1556: x_msg_count,
1557: x_msg_data,
1558: '_PVT');
1559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1560: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1564: x_msg_count,
1559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1560: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1564: x_msg_count,
1565: x_msg_data,
1566: '_PVT');
1567: WHEN OTHERS THEN
1564: x_msg_count,
1565: x_msg_data,
1566: '_PVT');
1567: WHEN OTHERS THEN
1568: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1569: l_api_name,
1570: G_PKG_NAME,
1571: 'OTHERS',
1572: x_msg_count,
1575: END delete_contract_item;
1576: --------------------------------------------------------------------------------------------------------------
1577: PROCEDURE delete_contract_item(
1578: p_api_version IN NUMBER,
1579: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1580: x_return_status OUT NOCOPY VARCHAR2,
1581: x_msg_count OUT NOCOPY NUMBER,
1582: x_msg_data OUT NOCOPY VARCHAR2,
1583: p_cimv_tbl IN cimv_tbl_type) AS
1584:
1585: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_ITEM';
1586: i NUMBER := 0;
1587: BEGIN
1588: OKC_API.init_msg_list(p_init_msg_list);
1589: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1590: IF (p_cimv_tbl.COUNT>0) THEN
1591: i := p_cimv_tbl.FIRST;
1592: LOOP
1585: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_ITEM';
1586: i NUMBER := 0;
1587: BEGIN
1588: OKC_API.init_msg_list(p_init_msg_list);
1589: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1590: IF (p_cimv_tbl.COUNT>0) THEN
1591: i := p_cimv_tbl.FIRST;
1592: LOOP
1593: delete_contract_item(p_api_version =>p_api_version,
1590: IF (p_cimv_tbl.COUNT>0) THEN
1591: i := p_cimv_tbl.FIRST;
1592: LOOP
1593: delete_contract_item(p_api_version =>p_api_version,
1594: p_init_msg_list =>OKC_API.G_FALSE,
1595: x_return_status =>x_return_status,
1596: x_msg_count =>x_msg_count,
1597: x_msg_data =>x_msg_data,
1598: p_cimv_rec =>p_cimv_tbl(i));
1595: x_return_status =>x_return_status,
1596: x_msg_count =>x_msg_count,
1597: x_msg_data =>x_msg_data,
1598: p_cimv_rec =>p_cimv_tbl(i));
1599: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1601: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1603: END IF;
1596: x_msg_count =>x_msg_count,
1597: x_msg_data =>x_msg_data,
1598: p_cimv_rec =>p_cimv_tbl(i));
1599: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1601: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1603: END IF;
1604: EXIT WHEN (i=p_cimv_tbl.LAST);
1597: x_msg_data =>x_msg_data,
1598: p_cimv_rec =>p_cimv_tbl(i));
1599: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1601: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1603: END IF;
1604: EXIT WHEN (i=p_cimv_tbl.LAST);
1605: i := p_cimv_tbl.NEXT(i);
1598: p_cimv_rec =>p_cimv_tbl(i));
1599: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1601: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1603: END IF;
1604: EXIT WHEN (i=p_cimv_tbl.LAST);
1605: i := p_cimv_tbl.NEXT(i);
1606: END LOOP;
1603: END IF;
1604: EXIT WHEN (i=p_cimv_tbl.LAST);
1605: i := p_cimv_tbl.NEXT(i);
1606: END LOOP;
1607: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1609: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_ERROR;
1611: END IF;
1604: EXIT WHEN (i=p_cimv_tbl.LAST);
1605: i := p_cimv_tbl.NEXT(i);
1606: END LOOP;
1607: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1609: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_ERROR;
1611: END IF;
1612: END IF;
1605: i := p_cimv_tbl.NEXT(i);
1606: END LOOP;
1607: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1609: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_ERROR;
1611: END IF;
1612: END IF;
1613: EXCEPTION
1606: END LOOP;
1607: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1609: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_ERROR;
1611: END IF;
1612: END IF;
1613: EXCEPTION
1614: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1610: RAISE OKC_API.G_EXCEPTION_ERROR;
1611: END IF;
1612: END IF;
1613: EXCEPTION
1614: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1615: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1616: l_api_name,
1617: G_PKG_NAME,
1618: 'OKC_API.G_RET_STS_ERROR',
1611: END IF;
1612: END IF;
1613: EXCEPTION
1614: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1615: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1616: l_api_name,
1617: G_PKG_NAME,
1618: 'OKC_API.G_RET_STS_ERROR',
1619: x_msg_count,
1614: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1615: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1616: l_api_name,
1617: G_PKG_NAME,
1618: 'OKC_API.G_RET_STS_ERROR',
1619: x_msg_count,
1620: x_msg_data,
1621: '_PVT');
1622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1618: 'OKC_API.G_RET_STS_ERROR',
1619: x_msg_count,
1620: x_msg_data,
1621: '_PVT');
1622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1623: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1624: l_api_name,
1625: G_PKG_NAME,
1626: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1619: x_msg_count,
1620: x_msg_data,
1621: '_PVT');
1622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1623: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1624: l_api_name,
1625: G_PKG_NAME,
1626: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1627: x_msg_count,
1622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1623: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1624: l_api_name,
1625: G_PKG_NAME,
1626: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1627: x_msg_count,
1628: x_msg_data,
1629: '_PVT');
1630: WHEN OTHERS THEN
1627: x_msg_count,
1628: x_msg_data,
1629: '_PVT');
1630: WHEN OTHERS THEN
1631: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1632: l_api_name,
1633: G_PKG_NAME,
1634: 'OTHERS',
1635: x_msg_count,
1638: END delete_contract_item;
1639: --------------------------------------------------------------------------------------------------------------
1640: PROCEDURE create_k_party_role(
1641: p_api_version IN NUMBER,
1642: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1643: x_return_status OUT NOCOPY VARCHAR2,
1644: x_msg_count OUT NOCOPY NUMBER,
1645: x_msg_data OUT NOCOPY VARCHAR2,
1646: p_cplv_rec IN cplv_rec_type,
1664: */
1665: l_parameter_list wf_parameter_list_t;
1666:
1667: BEGIN
1668: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1669: -- Call start_activity to create savepoint, check compatibility
1670: -- and initialize message list
1671: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1672: ,p_init_msg_list
1667: BEGIN
1668: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1669: -- Call start_activity to create savepoint, check compatibility
1670: -- and initialize message list
1671: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1672: ,p_init_msg_list
1673: ,'_PVT'
1674: ,x_return_status);
1675: -- Check if activity started successfully
1672: ,p_init_msg_list
1673: ,'_PVT'
1674: ,x_return_status);
1675: -- Check if activity started successfully
1676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1673: ,'_PVT'
1674: ,x_return_status);
1675: -- Check if activity started successfully
1676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: -- Since we are creatieng a wrapper over the okc
1674: ,x_return_status);
1675: -- Check if activity started successfully
1676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: -- Since we are creatieng a wrapper over the okc
1682: -- we need to migrate from locally declared cplv record
1675: -- Check if activity started successfully
1676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: -- Since we are creatieng a wrapper over the okc
1682: -- we need to migrate from locally declared cplv record
1683: -- to OKC declared cplv record type as process of input
1682: -- we need to migrate from locally declared cplv record
1683: -- to OKC declared cplv record type as process of input
1684: migrate_okl_okc_party(p_cplv_rec,
1685: lr_cplv_rec_type_in);
1686: -- Calling the actual OKC api
1687:
1688: ----- Changes by Kanti
1689: ----- Validate the JTOT Object code, ID1 and ID2
1690:
1694:
1695: IF (l_access_level = 'S') THEN
1696:
1697: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
1698: p_init_msg_list => OKC_API.G_FALSE,
1699: x_return_status => x_return_status,
1700: x_msg_count => x_msg_count,
1701: x_msg_data => x_msg_data,
1702: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1702: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1703: p_id1 => lr_cplv_rec_type_in.object1_id1,
1704: p_id2 => lr_cplv_rec_type_in.object1_id2);
1705:
1706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1703: p_id1 => lr_cplv_rec_type_in.object1_id1,
1704: p_id2 => lr_cplv_rec_type_in.object1_id2);
1705:
1706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1711:
1704: p_id2 => lr_cplv_rec_type_in.object1_id2);
1705:
1706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1711:
1712: END IF;
1705:
1706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1711:
1712: END IF;
1713:
1721: x_msg_count => x_msg_count,
1722: x_msg_data => x_msg_data,
1723: p_cplv_rec => lr_cplv_rec_type_in,
1724: x_cplv_rec => lr_cplv_rec_type_out);
1725: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1722: x_msg_data => x_msg_data,
1723: p_cplv_rec => lr_cplv_rec_type_in,
1724: x_cplv_rec => lr_cplv_rec_type_out);
1725: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1730: -- Since we are creatieng a wrapper over the okc
1723: p_cplv_rec => lr_cplv_rec_type_in,
1724: x_cplv_rec => lr_cplv_rec_type_out);
1725: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1730: -- Since we are creatieng a wrapper over the okc
1731: -- we need to migrate from OKC declared cplv record type
1724: x_cplv_rec => lr_cplv_rec_type_out);
1725: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1726: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1727: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1728: RAISE OKC_API.G_EXCEPTION_ERROR;
1729: END IF;
1730: -- Since we are creatieng a wrapper over the okc
1731: -- we need to migrate from OKC declared cplv record type
1732: -- to locally declared cplv record as process of input
1745: x_msg_count => x_msg_count,
1746: x_msg_data => x_msg_data,
1747: p_chr_id => x_cplv_rec.dnz_chr_id);
1748:
1749: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1746: x_msg_data => x_msg_data,
1747: p_chr_id => x_cplv_rec.dnz_chr_id);
1748:
1749: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1754:
1747: p_chr_id => x_cplv_rec.dnz_chr_id);
1748:
1749: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1754:
1755: END IF;
1748:
1749: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1751: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1754:
1755: END IF;
1756:
1784: -- mvasudev, 09/09/2004
1785: -- END, Code change to enable Business Event
1786: */
1787:
1788: OKC_API.END_ACTIVITY (x_msg_count,
1789: x_msg_data );
1790: EXCEPTION
1791: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1787:
1788: OKC_API.END_ACTIVITY (x_msg_count,
1789: x_msg_data );
1790: EXCEPTION
1791: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1793: l_api_name,
1794: G_PKG_NAME,
1795: 'OKC_API.G_RET_STS_ERROR',
1788: OKC_API.END_ACTIVITY (x_msg_count,
1789: x_msg_data );
1790: EXCEPTION
1791: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1793: l_api_name,
1794: G_PKG_NAME,
1795: 'OKC_API.G_RET_STS_ERROR',
1796: x_msg_count,
1791: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1793: l_api_name,
1794: G_PKG_NAME,
1795: 'OKC_API.G_RET_STS_ERROR',
1796: x_msg_count,
1797: x_msg_data,
1798: '_PVT');
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1795: 'OKC_API.G_RET_STS_ERROR',
1796: x_msg_count,
1797: x_msg_data,
1798: '_PVT');
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1801: l_api_name,
1802: G_PKG_NAME,
1803: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1796: x_msg_count,
1797: x_msg_data,
1798: '_PVT');
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1801: l_api_name,
1802: G_PKG_NAME,
1803: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1804: x_msg_count,
1799: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1800: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1801: l_api_name,
1802: G_PKG_NAME,
1803: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1804: x_msg_count,
1805: x_msg_data,
1806: '_PVT');
1807: WHEN OTHERS THEN
1804: x_msg_count,
1805: x_msg_data,
1806: '_PVT');
1807: WHEN OTHERS THEN
1808: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1809: l_api_name,
1810: G_PKG_NAME,
1811: 'OTHERS',
1812: x_msg_count,
1815: END create_k_party_role;
1816: --------------------------------------------------------------------------------------------------------------
1817: PROCEDURE create_k_party_role(
1818: p_api_version IN NUMBER,
1819: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1820: x_return_status OUT NOCOPY VARCHAR2,
1821: x_msg_count OUT NOCOPY NUMBER,
1822: x_msg_data OUT NOCOPY VARCHAR2,
1823: p_cplv_tbl IN cplv_tbl_type,
1825:
1826: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_K_PARTY_ROLE';
1827: i NUMBER := 0;
1828: BEGIN
1829: OKC_API.init_msg_list(p_init_msg_list);
1830: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1831: IF (p_cplv_tbl.COUNT>0) THEN
1832: i := p_cplv_tbl.FIRST;
1833: LOOP
1826: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_K_PARTY_ROLE';
1827: i NUMBER := 0;
1828: BEGIN
1829: OKC_API.init_msg_list(p_init_msg_list);
1830: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1831: IF (p_cplv_tbl.COUNT>0) THEN
1832: i := p_cplv_tbl.FIRST;
1833: LOOP
1834: create_k_party_role(p_api_version =>p_api_version,
1831: IF (p_cplv_tbl.COUNT>0) THEN
1832: i := p_cplv_tbl.FIRST;
1833: LOOP
1834: create_k_party_role(p_api_version =>p_api_version,
1835: p_init_msg_list =>OKC_API.G_FALSE,
1836: x_return_status =>x_return_status,
1837: x_msg_count =>x_msg_count,
1838: x_msg_data =>x_msg_data,
1839: p_cplv_rec =>p_cplv_tbl(i),
1837: x_msg_count =>x_msg_count,
1838: x_msg_data =>x_msg_data,
1839: p_cplv_rec =>p_cplv_tbl(i),
1840: x_cplv_rec =>x_cplv_tbl(i));
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1845: END IF;
1838: x_msg_data =>x_msg_data,
1839: p_cplv_rec =>p_cplv_tbl(i),
1840: x_cplv_rec =>x_cplv_tbl(i));
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1845: END IF;
1846: EXIT WHEN (i=p_cplv_tbl.LAST);
1839: p_cplv_rec =>p_cplv_tbl(i),
1840: x_cplv_rec =>x_cplv_tbl(i));
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1845: END IF;
1846: EXIT WHEN (i=p_cplv_tbl.LAST);
1847: i := p_cplv_tbl.NEXT(i);
1840: x_cplv_rec =>x_cplv_tbl(i));
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1845: END IF;
1846: EXIT WHEN (i=p_cplv_tbl.LAST);
1847: i := p_cplv_tbl.NEXT(i);
1848: END LOOP;
1845: END IF;
1846: EXIT WHEN (i=p_cplv_tbl.LAST);
1847: i := p_cplv_tbl.NEXT(i);
1848: END LOOP;
1849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1846: EXIT WHEN (i=p_cplv_tbl.LAST);
1847: i := p_cplv_tbl.NEXT(i);
1848: END LOOP;
1849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: END IF;
1847: i := p_cplv_tbl.NEXT(i);
1848: END LOOP;
1849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: END IF;
1855: EXCEPTION
1848: END LOOP;
1849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: END IF;
1855: EXCEPTION
1856: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: END IF;
1855: EXCEPTION
1856: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1857: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1858: l_api_name,
1859: G_PKG_NAME,
1860: 'OKC_API.G_RET_STS_ERROR',
1853: END IF;
1854: END IF;
1855: EXCEPTION
1856: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1857: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1858: l_api_name,
1859: G_PKG_NAME,
1860: 'OKC_API.G_RET_STS_ERROR',
1861: x_msg_count,
1856: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1857: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1858: l_api_name,
1859: G_PKG_NAME,
1860: 'OKC_API.G_RET_STS_ERROR',
1861: x_msg_count,
1862: x_msg_data,
1863: '_PVT');
1864: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1860: 'OKC_API.G_RET_STS_ERROR',
1861: x_msg_count,
1862: x_msg_data,
1863: '_PVT');
1864: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1865: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1866: l_api_name,
1867: G_PKG_NAME,
1868: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1861: x_msg_count,
1862: x_msg_data,
1863: '_PVT');
1864: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1865: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1866: l_api_name,
1867: G_PKG_NAME,
1868: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1869: x_msg_count,
1864: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1865: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1866: l_api_name,
1867: G_PKG_NAME,
1868: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1869: x_msg_count,
1870: x_msg_data,
1871: '_PVT');
1872: WHEN OTHERS THEN
1869: x_msg_count,
1870: x_msg_data,
1871: '_PVT');
1872: WHEN OTHERS THEN
1873: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1874: l_api_name,
1875: G_PKG_NAME,
1876: 'OTHERS',
1877: x_msg_count,
1880: END create_k_party_role;
1881: --------------------------------------------------------------------------------------------------------------
1882: PROCEDURE update_k_party_role(
1883: p_api_version IN NUMBER,
1884: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1885: x_return_status OUT NOCOPY VARCHAR2,
1886: x_msg_count OUT NOCOPY NUMBER,
1887: x_msg_data OUT NOCOPY VARCHAR2,
1888: p_cplv_rec IN cplv_rec_type,
1900:
1901: l_access_level OKC_ROLE_SOURCES.access_level%TYPE;
1902:
1903: BEGIN
1904: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1905: -- Call start_activity to create savepoint, check compatibility
1906: -- and initialize message list
1907: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1908: ,p_init_msg_list
1903: BEGIN
1904: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1905: -- Call start_activity to create savepoint, check compatibility
1906: -- and initialize message list
1907: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1908: ,p_init_msg_list
1909: ,'_PVT'
1910: ,x_return_status);
1911: -- Check if activity started successfully
1908: ,p_init_msg_list
1909: ,'_PVT'
1910: ,x_return_status);
1911: -- Check if activity started successfully
1912: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1909: ,'_PVT'
1910: ,x_return_status);
1911: -- Check if activity started successfully
1912: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: -- Since we are creatieng a wrapper over the okc
1910: ,x_return_status);
1911: -- Check if activity started successfully
1912: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: -- Since we are creatieng a wrapper over the okc
1918: -- we need to migrate from locally declared cplv record
1911: -- Check if activity started successfully
1912: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: -- Since we are creatieng a wrapper over the okc
1918: -- we need to migrate from locally declared cplv record
1919: -- to OKC declared cplv record type as process of input
1930: IF (l_access_level = 'S') THEN
1931:
1932:
1933: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
1934: p_init_msg_list => OKC_API.G_FALSE,
1935: x_return_status => x_return_status,
1936: x_msg_count => x_msg_count,
1937: x_msg_data => x_msg_data,
1938: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1937: x_msg_data => x_msg_data,
1938: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1939: p_id1 => lr_cplv_rec_type_in.object1_id1,
1940: p_id2 => lr_cplv_rec_type_in.object1_id2);
1941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1938: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1939: p_id1 => lr_cplv_rec_type_in.object1_id1,
1940: p_id2 => lr_cplv_rec_type_in.object1_id2);
1941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1946:
1939: p_id1 => lr_cplv_rec_type_in.object1_id1,
1940: p_id2 => lr_cplv_rec_type_in.object1_id2);
1941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1946:
1947: END IF;
1940: p_id2 => lr_cplv_rec_type_in.object1_id2);
1941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1944: RAISE OKC_API.G_EXCEPTION_ERROR;
1945: END IF;
1946:
1947: END IF;
1948:
1948:
1949: ---- Changes End
1950:
1951:
1952: -- Calling the actual OKC api
1953:
1954:
1955: OKC_CONTRACT_PARTY_PUB.update_k_party_role(p_api_version => p_api_version,
1956: p_init_msg_list => p_init_msg_list,
1958: x_msg_count => x_msg_count,
1959: x_msg_data => x_msg_data,
1960: p_cplv_rec => lr_cplv_rec_type_in,
1961: x_cplv_rec => lr_cplv_rec_type_out);
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1959: x_msg_data => x_msg_data,
1960: p_cplv_rec => lr_cplv_rec_type_in,
1961: x_cplv_rec => lr_cplv_rec_type_out);
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: -- Since we are creatieng a wrapper over the okc
1960: p_cplv_rec => lr_cplv_rec_type_in,
1961: x_cplv_rec => lr_cplv_rec_type_out);
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: -- Since we are creatieng a wrapper over the okc
1968: -- we need to migrate from OKC declared cplv record type
1961: x_cplv_rec => lr_cplv_rec_type_out);
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: -- Since we are creatieng a wrapper over the okc
1968: -- we need to migrate from OKC declared cplv record type
1969: -- to locally declared cplv record as process of input
1983: x_msg_count => x_msg_count,
1984: x_msg_data => x_msg_data,
1985: p_chr_id => x_cplv_rec.dnz_chr_id);
1986:
1987: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1990: RAISE OKC_API.G_EXCEPTION_ERROR;
1991: END IF;
1984: x_msg_data => x_msg_data,
1985: p_chr_id => x_cplv_rec.dnz_chr_id);
1986:
1987: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1990: RAISE OKC_API.G_EXCEPTION_ERROR;
1991: END IF;
1992:
1985: p_chr_id => x_cplv_rec.dnz_chr_id);
1986:
1987: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1990: RAISE OKC_API.G_EXCEPTION_ERROR;
1991: END IF;
1992:
1993: END IF;
1986:
1987: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1990: RAISE OKC_API.G_EXCEPTION_ERROR;
1991: END IF;
1992:
1993: END IF;
1994:
1991: END IF;
1992:
1993: END IF;
1994:
1995: OKC_API.END_ACTIVITY (x_msg_count,
1996: x_msg_data );
1997: EXCEPTION
1998: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1999: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1994:
1995: OKC_API.END_ACTIVITY (x_msg_count,
1996: x_msg_data );
1997: EXCEPTION
1998: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1999: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2000: l_api_name,
2001: G_PKG_NAME,
2002: 'OKC_API.G_RET_STS_ERROR',
1995: OKC_API.END_ACTIVITY (x_msg_count,
1996: x_msg_data );
1997: EXCEPTION
1998: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1999: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2000: l_api_name,
2001: G_PKG_NAME,
2002: 'OKC_API.G_RET_STS_ERROR',
2003: x_msg_count,
1998: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1999: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2000: l_api_name,
2001: G_PKG_NAME,
2002: 'OKC_API.G_RET_STS_ERROR',
2003: x_msg_count,
2004: x_msg_data,
2005: '_PVT');
2006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2002: 'OKC_API.G_RET_STS_ERROR',
2003: x_msg_count,
2004: x_msg_data,
2005: '_PVT');
2006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2007: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2008: l_api_name,
2009: G_PKG_NAME,
2010: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2003: x_msg_count,
2004: x_msg_data,
2005: '_PVT');
2006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2007: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2008: l_api_name,
2009: G_PKG_NAME,
2010: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2011: x_msg_count,
2006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2007: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2008: l_api_name,
2009: G_PKG_NAME,
2010: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2011: x_msg_count,
2012: x_msg_data,
2013: '_PVT');
2014: WHEN OTHERS THEN
2011: x_msg_count,
2012: x_msg_data,
2013: '_PVT');
2014: WHEN OTHERS THEN
2015: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2016: l_api_name,
2017: G_PKG_NAME,
2018: 'OTHERS',
2019: x_msg_count,
2022: END update_k_party_role;
2023: --------------------------------------------------------------------------------------------------------------
2024: PROCEDURE update_k_party_role(
2025: p_api_version IN NUMBER,
2026: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2027: x_return_status OUT NOCOPY VARCHAR2,
2028: x_msg_count OUT NOCOPY NUMBER,
2029: x_msg_data OUT NOCOPY VARCHAR2,
2030: p_cplv_tbl IN cplv_tbl_type,
2032:
2033: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_K_PARTY_ROLE';
2034: i NUMBER := 0;
2035: BEGIN
2036: OKC_API.init_msg_list(p_init_msg_list);
2037: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2038: IF (p_cplv_tbl.COUNT>0) THEN
2039: i := p_cplv_tbl.FIRST;
2040: LOOP
2033: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_K_PARTY_ROLE';
2034: i NUMBER := 0;
2035: BEGIN
2036: OKC_API.init_msg_list(p_init_msg_list);
2037: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2038: IF (p_cplv_tbl.COUNT>0) THEN
2039: i := p_cplv_tbl.FIRST;
2040: LOOP
2041: update_k_party_role(p_api_version =>p_api_version,
2038: IF (p_cplv_tbl.COUNT>0) THEN
2039: i := p_cplv_tbl.FIRST;
2040: LOOP
2041: update_k_party_role(p_api_version =>p_api_version,
2042: p_init_msg_list =>OKC_API.G_FALSE,
2043: x_return_status =>x_return_status,
2044: x_msg_count =>x_msg_count,
2045: x_msg_data =>x_msg_data,
2046: p_cplv_rec =>p_cplv_tbl(i),
2044: x_msg_count =>x_msg_count,
2045: x_msg_data =>x_msg_data,
2046: p_cplv_rec =>p_cplv_tbl(i),
2047: x_cplv_rec =>x_cplv_tbl(i));
2048: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2049: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2050: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2051: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2052: END IF;
2045: x_msg_data =>x_msg_data,
2046: p_cplv_rec =>p_cplv_tbl(i),
2047: x_cplv_rec =>x_cplv_tbl(i));
2048: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2049: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2050: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2051: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2052: END IF;
2053: EXIT WHEN (i=p_cplv_tbl.LAST);
2046: p_cplv_rec =>p_cplv_tbl(i),
2047: x_cplv_rec =>x_cplv_tbl(i));
2048: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2049: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2050: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2051: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2052: END IF;
2053: EXIT WHEN (i=p_cplv_tbl.LAST);
2054: i := p_cplv_tbl.NEXT(i);
2047: x_cplv_rec =>x_cplv_tbl(i));
2048: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2049: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2050: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2051: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2052: END IF;
2053: EXIT WHEN (i=p_cplv_tbl.LAST);
2054: i := p_cplv_tbl.NEXT(i);
2055: END LOOP;
2052: END IF;
2053: EXIT WHEN (i=p_cplv_tbl.LAST);
2054: i := p_cplv_tbl.NEXT(i);
2055: END LOOP;
2056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_ERROR;
2060: END IF;
2053: EXIT WHEN (i=p_cplv_tbl.LAST);
2054: i := p_cplv_tbl.NEXT(i);
2055: END LOOP;
2056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_ERROR;
2060: END IF;
2061: END IF;
2054: i := p_cplv_tbl.NEXT(i);
2055: END LOOP;
2056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_ERROR;
2060: END IF;
2061: END IF;
2062: EXCEPTION
2055: END LOOP;
2056: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2058: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_ERROR;
2060: END IF;
2061: END IF;
2062: EXCEPTION
2063: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2059: RAISE OKC_API.G_EXCEPTION_ERROR;
2060: END IF;
2061: END IF;
2062: EXCEPTION
2063: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2064: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2065: l_api_name,
2066: G_PKG_NAME,
2067: 'OKC_API.G_RET_STS_ERROR',
2060: END IF;
2061: END IF;
2062: EXCEPTION
2063: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2064: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2065: l_api_name,
2066: G_PKG_NAME,
2067: 'OKC_API.G_RET_STS_ERROR',
2068: x_msg_count,
2063: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2064: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2065: l_api_name,
2066: G_PKG_NAME,
2067: 'OKC_API.G_RET_STS_ERROR',
2068: x_msg_count,
2069: x_msg_data,
2070: '_PVT');
2071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2067: 'OKC_API.G_RET_STS_ERROR',
2068: x_msg_count,
2069: x_msg_data,
2070: '_PVT');
2071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2073: l_api_name,
2074: G_PKG_NAME,
2075: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2068: x_msg_count,
2069: x_msg_data,
2070: '_PVT');
2071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2073: l_api_name,
2074: G_PKG_NAME,
2075: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2076: x_msg_count,
2071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2072: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2073: l_api_name,
2074: G_PKG_NAME,
2075: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2076: x_msg_count,
2077: x_msg_data,
2078: '_PVT');
2079: WHEN OTHERS THEN
2076: x_msg_count,
2077: x_msg_data,
2078: '_PVT');
2079: WHEN OTHERS THEN
2080: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2081: l_api_name,
2082: G_PKG_NAME,
2083: 'OTHERS',
2084: x_msg_count,
2087: END update_k_party_role;
2088: --------------------------------------------------------------------------------------------------------------
2089: PROCEDURE delete_k_party_role(
2090: p_api_version IN NUMBER,
2091: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2092: x_return_status OUT NOCOPY VARCHAR2,
2093: x_msg_count OUT NOCOPY NUMBER,
2094: x_msg_data OUT NOCOPY VARCHAR2,
2095: p_cplv_rec IN cplv_rec_type) AS
2107:
2108:
2109:
2110: BEGIN
2111: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2112: -- Call start_activity to create savepoint, check compatibility
2113: -- and initialize message list
2114: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2115: ,p_init_msg_list
2110: BEGIN
2111: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2112: -- Call start_activity to create savepoint, check compatibility
2113: -- and initialize message list
2114: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2115: ,p_init_msg_list
2116: ,'_PVT'
2117: ,x_return_status);
2118: -- Check if activity started successfully
2115: ,p_init_msg_list
2116: ,'_PVT'
2117: ,x_return_status);
2118: -- Check if activity started successfully
2119: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2122: RAISE OKC_API.G_EXCEPTION_ERROR;
2123: END IF;
2116: ,'_PVT'
2117: ,x_return_status);
2118: -- Check if activity started successfully
2119: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2122: RAISE OKC_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2117: ,x_return_status);
2118: -- Check if activity started successfully
2119: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2122: RAISE OKC_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2125: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2118: -- Check if activity started successfully
2119: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2122: RAISE OKC_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2125: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2126: -- edit points for lease contract are any modifications between statuses
2146: x_msg_count => x_msg_count,
2147: x_msg_data => x_msg_data,
2148: p_chr_id => l_dnz_chr_id);
2149:
2150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2153: RAISE OKC_API.G_EXCEPTION_ERROR;
2154: END IF;
2147: x_msg_data => x_msg_data,
2148: p_chr_id => l_dnz_chr_id);
2149:
2150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2153: RAISE OKC_API.G_EXCEPTION_ERROR;
2154: END IF;
2155:
2148: p_chr_id => l_dnz_chr_id);
2149:
2150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2153: RAISE OKC_API.G_EXCEPTION_ERROR;
2154: END IF;
2155:
2156: END IF;
2149:
2150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2153: RAISE OKC_API.G_EXCEPTION_ERROR;
2154: END IF;
2155:
2156: END IF;
2157:
2159: -- we need to migrate from locally declared cplv record
2160: -- to OKC declared cplv record type as process of input
2161: migrate_okl_okc_party(p_cplv_rec,
2162: lr_cplv_rec_type_in);
2163: -- Calling the actual OKC api
2164: OKC_CONTRACT_PARTY_PUB.delete_k_party_role(p_api_version => p_api_version,
2165: p_init_msg_list => p_init_msg_list,
2166: x_return_status => x_return_status,
2167: x_msg_count => x_msg_count,
2166: x_return_status => x_return_status,
2167: x_msg_count => x_msg_count,
2168: x_msg_data => x_msg_data,
2169: p_cplv_rec => lr_cplv_rec_type_in);
2170: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2167: x_msg_count => x_msg_count,
2168: x_msg_data => x_msg_data,
2169: p_cplv_rec => lr_cplv_rec_type_in);
2170: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKC_API.END_ACTIVITY (x_msg_count,
2168: x_msg_data => x_msg_data,
2169: p_cplv_rec => lr_cplv_rec_type_in);
2170: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKC_API.END_ACTIVITY (x_msg_count,
2176: x_msg_data );
2169: p_cplv_rec => lr_cplv_rec_type_in);
2170: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKC_API.END_ACTIVITY (x_msg_count,
2176: x_msg_data );
2177: EXCEPTION
2171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2172: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKC_API.END_ACTIVITY (x_msg_count,
2176: x_msg_data );
2177: EXCEPTION
2178: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2174: END IF;
2175: OKC_API.END_ACTIVITY (x_msg_count,
2176: x_msg_data );
2177: EXCEPTION
2178: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKC_API.G_RET_STS_ERROR',
2175: OKC_API.END_ACTIVITY (x_msg_count,
2176: x_msg_data );
2177: EXCEPTION
2178: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKC_API.G_RET_STS_ERROR',
2183: x_msg_count,
2178: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKC_API.G_RET_STS_ERROR',
2183: x_msg_count,
2184: x_msg_data,
2185: '_PVT');
2186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2182: 'OKC_API.G_RET_STS_ERROR',
2183: x_msg_count,
2184: x_msg_data,
2185: '_PVT');
2186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2187: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2188: l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2183: x_msg_count,
2184: x_msg_data,
2185: '_PVT');
2186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2187: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2188: l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2191: x_msg_count,
2186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2187: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2188: l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2191: x_msg_count,
2192: x_msg_data,
2193: '_PVT');
2194: WHEN OTHERS THEN
2191: x_msg_count,
2192: x_msg_data,
2193: '_PVT');
2194: WHEN OTHERS THEN
2195: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2196: l_api_name,
2197: G_PKG_NAME,
2198: 'OTHERS',
2199: x_msg_count,
2202: END delete_k_party_role;
2203: -------------------------------------------------------------------------------------------------------
2204: PROCEDURE delete_k_party_role(
2205: p_api_version IN NUMBER,
2206: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2207: x_return_status OUT NOCOPY VARCHAR2,
2208: x_msg_count OUT NOCOPY NUMBER,
2209: x_msg_data OUT NOCOPY VARCHAR2,
2210: p_cplv_tbl IN cplv_tbl_type) AS
2211:
2212: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_K_PARTY_ROLE';
2213: i NUMBER := 0;
2214: BEGIN
2215: OKC_API.init_msg_list(p_init_msg_list);
2216: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2217: IF (p_cplv_tbl.COUNT>0) THEN
2218: i := p_cplv_tbl.FIRST;
2219: LOOP
2212: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_K_PARTY_ROLE';
2213: i NUMBER := 0;
2214: BEGIN
2215: OKC_API.init_msg_list(p_init_msg_list);
2216: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2217: IF (p_cplv_tbl.COUNT>0) THEN
2218: i := p_cplv_tbl.FIRST;
2219: LOOP
2220: delete_k_party_role(p_api_version =>p_api_version,
2217: IF (p_cplv_tbl.COUNT>0) THEN
2218: i := p_cplv_tbl.FIRST;
2219: LOOP
2220: delete_k_party_role(p_api_version =>p_api_version,
2221: p_init_msg_list =>OKC_API.G_FALSE,
2222: x_return_status =>x_return_status,
2223: x_msg_count =>x_msg_count,
2224: x_msg_data =>x_msg_data,
2225: p_cplv_rec =>p_cplv_tbl(i));
2222: x_return_status =>x_return_status,
2223: x_msg_count =>x_msg_count,
2224: x_msg_data =>x_msg_data,
2225: p_cplv_rec =>p_cplv_tbl(i));
2226: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2228: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2230: END IF;
2223: x_msg_count =>x_msg_count,
2224: x_msg_data =>x_msg_data,
2225: p_cplv_rec =>p_cplv_tbl(i));
2226: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2228: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2230: END IF;
2231: EXIT WHEN (i=p_cplv_tbl.LAST);
2224: x_msg_data =>x_msg_data,
2225: p_cplv_rec =>p_cplv_tbl(i));
2226: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2228: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2230: END IF;
2231: EXIT WHEN (i=p_cplv_tbl.LAST);
2232: i := p_cplv_tbl.NEXT(i);
2225: p_cplv_rec =>p_cplv_tbl(i));
2226: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2227: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2228: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2229: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2230: END IF;
2231: EXIT WHEN (i=p_cplv_tbl.LAST);
2232: i := p_cplv_tbl.NEXT(i);
2233: END LOOP;
2230: END IF;
2231: EXIT WHEN (i=p_cplv_tbl.LAST);
2232: i := p_cplv_tbl.NEXT(i);
2233: END LOOP;
2234: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2235: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2236: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2231: EXIT WHEN (i=p_cplv_tbl.LAST);
2232: i := p_cplv_tbl.NEXT(i);
2233: END LOOP;
2234: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2235: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2236: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2239: END IF;
2232: i := p_cplv_tbl.NEXT(i);
2233: END LOOP;
2234: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2235: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2236: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2239: END IF;
2240: EXCEPTION
2233: END LOOP;
2234: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2235: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2236: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2239: END IF;
2240: EXCEPTION
2241: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2237: RAISE OKC_API.G_EXCEPTION_ERROR;
2238: END IF;
2239: END IF;
2240: EXCEPTION
2241: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2242: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OKC_API.G_RET_STS_ERROR',
2238: END IF;
2239: END IF;
2240: EXCEPTION
2241: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2242: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OKC_API.G_RET_STS_ERROR',
2246: x_msg_count,
2241: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2242: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OKC_API.G_RET_STS_ERROR',
2246: x_msg_count,
2247: x_msg_data,
2248: '_PVT');
2249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2245: 'OKC_API.G_RET_STS_ERROR',
2246: x_msg_count,
2247: x_msg_data,
2248: '_PVT');
2249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2250: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2251: l_api_name,
2252: G_PKG_NAME,
2253: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2246: x_msg_count,
2247: x_msg_data,
2248: '_PVT');
2249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2250: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2251: l_api_name,
2252: G_PKG_NAME,
2253: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2254: x_msg_count,
2249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2250: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2251: l_api_name,
2252: G_PKG_NAME,
2253: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2254: x_msg_count,
2255: x_msg_data,
2256: '_PVT');
2257: WHEN OTHERS THEN
2254: x_msg_count,
2255: x_msg_data,
2256: '_PVT');
2257: WHEN OTHERS THEN
2258: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2259: l_api_name,
2260: G_PKG_NAME,
2261: 'OTHERS',
2262: x_msg_count,
2266:
2267: --------------------------------------------------------------------------------------------------------------
2268: PROCEDURE create_contact(
2269: p_api_version IN NUMBER,
2270: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2271: x_return_status OUT NOCOPY VARCHAR2,
2272: x_msg_count OUT NOCOPY NUMBER,
2273: x_msg_data OUT NOCOPY VARCHAR2,
2274: p_ctcv_rec IN ctcv_rec_type,
2289: l_access_level OKC_CONTACT_SOURCES.access_level%TYPE;
2290:
2291:
2292: BEGIN
2293: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2294: -- Call start_activity to create savepoint, check compatibility
2295: -- and initialize message list
2296: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2297: ,p_init_msg_list
2292: BEGIN
2293: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2294: -- Call start_activity to create savepoint, check compatibility
2295: -- and initialize message list
2296: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2297: ,p_init_msg_list
2298: ,'_PVT'
2299: ,x_return_status);
2300: -- Check if activity started successfully
2297: ,p_init_msg_list
2298: ,'_PVT'
2299: ,x_return_status);
2300: -- Check if activity started successfully
2301: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2304: RAISE OKC_API.G_EXCEPTION_ERROR;
2305: END IF;
2298: ,'_PVT'
2299: ,x_return_status);
2300: -- Check if activity started successfully
2301: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2304: RAISE OKC_API.G_EXCEPTION_ERROR;
2305: END IF;
2306: -- Since we are creatieng a wrapper over the okc
2299: ,x_return_status);
2300: -- Check if activity started successfully
2301: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2304: RAISE OKC_API.G_EXCEPTION_ERROR;
2305: END IF;
2306: -- Since we are creatieng a wrapper over the okc
2307: -- we need to migrate from locally declared ctcv record
2300: -- Check if activity started successfully
2301: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2304: RAISE OKC_API.G_EXCEPTION_ERROR;
2305: END IF;
2306: -- Since we are creatieng a wrapper over the okc
2307: -- we need to migrate from locally declared ctcv record
2308: -- to OKC declared ctcv record type as process of input
2307: -- we need to migrate from locally declared ctcv record
2308: -- to OKC declared ctcv record type as process of input
2309: migrate_okl_okc_contact(p_ctcv_rec,
2310: lr_ctcv_rec_type_in);
2311: -- Calling the actual OKC api
2312:
2313: ----- Changes by Kanti
2314: ----- Validate the JTOT Object code, ID1 and ID2
2315:
2319:
2320: IF (l_access_level = 'S') THEN
2321:
2322: okl_la_validation_util_pvt.VALIDATE_CONTACT_JTOT (p_api_version => p_api_version,
2323: p_init_msg_list => OKC_API.G_FALSE,
2324: x_return_status => x_return_status,
2325: x_msg_count => x_msg_count,
2326: x_msg_data => x_msg_data,
2327: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2326: x_msg_data => x_msg_data,
2327: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2328: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2329: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2327: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2328: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2329: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335:
2328: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2329: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335:
2336: END IF;
2329: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335:
2336: END IF;
2337:
2344: x_msg_count => x_msg_count,
2345: x_msg_data => x_msg_data,
2346: p_ctcv_rec => lr_ctcv_rec_type_in,
2347: x_ctcv_rec => lr_ctcv_rec_type_out);
2348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2345: x_msg_data => x_msg_data,
2346: p_ctcv_rec => lr_ctcv_rec_type_in,
2347: x_ctcv_rec => lr_ctcv_rec_type_out);
2348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: -- Since we are creatieng a wrapper over the okc
2346: p_ctcv_rec => lr_ctcv_rec_type_in,
2347: x_ctcv_rec => lr_ctcv_rec_type_out);
2348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: -- Since we are creatieng a wrapper over the okc
2354: -- we need to migrate from OKC declared ctcv record type
2347: x_ctcv_rec => lr_ctcv_rec_type_out);
2348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: -- Since we are creatieng a wrapper over the okc
2354: -- we need to migrate from OKC declared ctcv record type
2355: -- to locally declared ctcv record as process of input
2368: x_msg_count => x_msg_count,
2369: x_msg_data => x_msg_data,
2370: p_chr_id => x_ctcv_rec.dnz_chr_id);
2371:
2372: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2369: x_msg_data => x_msg_data,
2370: p_chr_id => x_ctcv_rec.dnz_chr_id);
2371:
2372: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377:
2370: p_chr_id => x_ctcv_rec.dnz_chr_id);
2371:
2372: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377:
2378: END IF;
2371:
2372: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2373: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2374: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2375: RAISE OKC_API.G_EXCEPTION_ERROR;
2376: END IF;
2377:
2378: END IF;
2379:
2376: END IF;
2377:
2378: END IF;
2379:
2380: OKC_API.END_ACTIVITY (x_msg_count,
2381: x_msg_data );
2382: EXCEPTION
2383: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2379:
2380: OKC_API.END_ACTIVITY (x_msg_count,
2381: x_msg_data );
2382: EXCEPTION
2383: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2385: l_api_name,
2386: G_PKG_NAME,
2387: 'OKC_API.G_RET_STS_ERROR',
2380: OKC_API.END_ACTIVITY (x_msg_count,
2381: x_msg_data );
2382: EXCEPTION
2383: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2385: l_api_name,
2386: G_PKG_NAME,
2387: 'OKC_API.G_RET_STS_ERROR',
2388: x_msg_count,
2383: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2385: l_api_name,
2386: G_PKG_NAME,
2387: 'OKC_API.G_RET_STS_ERROR',
2388: x_msg_count,
2389: x_msg_data,
2390: '_PVT');
2391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2387: 'OKC_API.G_RET_STS_ERROR',
2388: x_msg_count,
2389: x_msg_data,
2390: '_PVT');
2391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2393: l_api_name,
2394: G_PKG_NAME,
2395: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2388: x_msg_count,
2389: x_msg_data,
2390: '_PVT');
2391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2393: l_api_name,
2394: G_PKG_NAME,
2395: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2396: x_msg_count,
2391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2393: l_api_name,
2394: G_PKG_NAME,
2395: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2396: x_msg_count,
2397: x_msg_data,
2398: '_PVT');
2399: WHEN OTHERS THEN
2396: x_msg_count,
2397: x_msg_data,
2398: '_PVT');
2399: WHEN OTHERS THEN
2400: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2401: l_api_name,
2402: G_PKG_NAME,
2403: 'OTHERS',
2404: x_msg_count,
2407: END create_contact;
2408: --------------------------------------------------------------------------------------------------------------
2409: PROCEDURE create_contact(
2410: p_api_version IN NUMBER,
2411: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2412: x_return_status OUT NOCOPY VARCHAR2,
2413: x_msg_count OUT NOCOPY NUMBER,
2414: x_msg_data OUT NOCOPY VARCHAR2,
2415: p_ctcv_tbl IN ctcv_tbl_type,
2417:
2418: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_CONTACT';
2419: i NUMBER := 0;
2420: BEGIN
2421: OKC_API.init_msg_list(p_init_msg_list);
2422: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2423: IF (p_ctcv_tbl.COUNT>0) THEN
2424: i := p_ctcv_tbl.FIRST;
2425: LOOP
2418: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_CONTACT';
2419: i NUMBER := 0;
2420: BEGIN
2421: OKC_API.init_msg_list(p_init_msg_list);
2422: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2423: IF (p_ctcv_tbl.COUNT>0) THEN
2424: i := p_ctcv_tbl.FIRST;
2425: LOOP
2426: create_contact(p_api_version =>p_api_version,
2423: IF (p_ctcv_tbl.COUNT>0) THEN
2424: i := p_ctcv_tbl.FIRST;
2425: LOOP
2426: create_contact(p_api_version =>p_api_version,
2427: p_init_msg_list =>OKC_API.G_FALSE,
2428: x_return_status =>x_return_status,
2429: x_msg_count =>x_msg_count,
2430: x_msg_data =>x_msg_data,
2431: p_ctcv_rec =>p_ctcv_tbl(i),
2429: x_msg_count =>x_msg_count,
2430: x_msg_data =>x_msg_data,
2431: p_ctcv_rec =>p_ctcv_tbl(i),
2432: x_ctcv_rec =>x_ctcv_tbl(i));
2433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2434: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2436: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2437: END IF;
2430: x_msg_data =>x_msg_data,
2431: p_ctcv_rec =>p_ctcv_tbl(i),
2432: x_ctcv_rec =>x_ctcv_tbl(i));
2433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2434: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2436: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2437: END IF;
2438: EXIT WHEN (i=p_ctcv_tbl.LAST);
2431: p_ctcv_rec =>p_ctcv_tbl(i),
2432: x_ctcv_rec =>x_ctcv_tbl(i));
2433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2434: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2436: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2437: END IF;
2438: EXIT WHEN (i=p_ctcv_tbl.LAST);
2439: i := p_ctcv_tbl.NEXT(i);
2432: x_ctcv_rec =>x_ctcv_tbl(i));
2433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2434: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2436: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2437: END IF;
2438: EXIT WHEN (i=p_ctcv_tbl.LAST);
2439: i := p_ctcv_tbl.NEXT(i);
2440: END LOOP;
2437: END IF;
2438: EXIT WHEN (i=p_ctcv_tbl.LAST);
2439: i := p_ctcv_tbl.NEXT(i);
2440: END LOOP;
2441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2444: RAISE OKC_API.G_EXCEPTION_ERROR;
2445: END IF;
2438: EXIT WHEN (i=p_ctcv_tbl.LAST);
2439: i := p_ctcv_tbl.NEXT(i);
2440: END LOOP;
2441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2444: RAISE OKC_API.G_EXCEPTION_ERROR;
2445: END IF;
2446: END IF;
2439: i := p_ctcv_tbl.NEXT(i);
2440: END LOOP;
2441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2444: RAISE OKC_API.G_EXCEPTION_ERROR;
2445: END IF;
2446: END IF;
2447: EXCEPTION
2440: END LOOP;
2441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2444: RAISE OKC_API.G_EXCEPTION_ERROR;
2445: END IF;
2446: END IF;
2447: EXCEPTION
2448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2444: RAISE OKC_API.G_EXCEPTION_ERROR;
2445: END IF;
2446: END IF;
2447: EXCEPTION
2448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2449: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2450: l_api_name,
2451: G_PKG_NAME,
2452: 'OKC_API.G_RET_STS_ERROR',
2445: END IF;
2446: END IF;
2447: EXCEPTION
2448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2449: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2450: l_api_name,
2451: G_PKG_NAME,
2452: 'OKC_API.G_RET_STS_ERROR',
2453: x_msg_count,
2448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2449: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2450: l_api_name,
2451: G_PKG_NAME,
2452: 'OKC_API.G_RET_STS_ERROR',
2453: x_msg_count,
2454: x_msg_data,
2455: '_PVT');
2456: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2452: 'OKC_API.G_RET_STS_ERROR',
2453: x_msg_count,
2454: x_msg_data,
2455: '_PVT');
2456: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2457: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2458: l_api_name,
2459: G_PKG_NAME,
2460: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2453: x_msg_count,
2454: x_msg_data,
2455: '_PVT');
2456: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2457: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2458: l_api_name,
2459: G_PKG_NAME,
2460: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2461: x_msg_count,
2456: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2457: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2458: l_api_name,
2459: G_PKG_NAME,
2460: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2461: x_msg_count,
2462: x_msg_data,
2463: '_PVT');
2464: WHEN OTHERS THEN
2461: x_msg_count,
2462: x_msg_data,
2463: '_PVT');
2464: WHEN OTHERS THEN
2465: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2466: l_api_name,
2467: G_PKG_NAME,
2468: 'OTHERS',
2469: x_msg_count,
2472: END create_contact;
2473: --------------------------------------------------------------------------------------------------------------
2474: PROCEDURE update_contact(
2475: p_api_version IN NUMBER,
2476: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2477: x_return_status OUT NOCOPY VARCHAR2,
2478: x_msg_count OUT NOCOPY NUMBER,
2479: x_msg_data OUT NOCOPY VARCHAR2,
2480: p_ctcv_rec IN ctcv_rec_type,
2496: l_access_level OKC_CONTACT_SOURCES.access_level%TYPE;
2497:
2498:
2499: BEGIN
2500: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2501: -- Call start_activity to create savepoint, check compatibility
2502: -- and initialize message list
2503: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2504: ,p_init_msg_list
2499: BEGIN
2500: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2501: -- Call start_activity to create savepoint, check compatibility
2502: -- and initialize message list
2503: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2504: ,p_init_msg_list
2505: ,'_PVT'
2506: ,x_return_status);
2507: -- Check if activity started successfully
2504: ,p_init_msg_list
2505: ,'_PVT'
2506: ,x_return_status);
2507: -- Check if activity started successfully
2508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2509: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2511: RAISE OKC_API.G_EXCEPTION_ERROR;
2512: END IF;
2505: ,'_PVT'
2506: ,x_return_status);
2507: -- Check if activity started successfully
2508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2509: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2511: RAISE OKC_API.G_EXCEPTION_ERROR;
2512: END IF;
2513: -- Since we are creatieng a wrapper over the okc
2506: ,x_return_status);
2507: -- Check if activity started successfully
2508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2509: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2511: RAISE OKC_API.G_EXCEPTION_ERROR;
2512: END IF;
2513: -- Since we are creatieng a wrapper over the okc
2514: -- we need to migrate from locally declared ctcv record
2507: -- Check if activity started successfully
2508: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2509: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2510: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2511: RAISE OKC_API.G_EXCEPTION_ERROR;
2512: END IF;
2513: -- Since we are creatieng a wrapper over the okc
2514: -- we need to migrate from locally declared ctcv record
2515: -- to OKC declared ctcv record type as process of input
2525:
2526: IF (l_access_level = 'S') THEN
2527:
2528: okl_la_validation_util_pvt.VALIDATE_CONTACT_JTOT (p_api_version => p_api_version,
2529: p_init_msg_list => OKC_API.G_FALSE,
2530: x_return_status => x_return_status,
2531: x_msg_count => x_msg_count,
2532: x_msg_data => x_msg_data,
2533: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2532: x_msg_data => x_msg_data,
2533: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2534: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2535: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2537: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2539: RAISE OKC_API.G_EXCEPTION_ERROR;
2540: END IF;
2533: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2534: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2535: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2537: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2539: RAISE OKC_API.G_EXCEPTION_ERROR;
2540: END IF;
2541:
2534: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2535: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2537: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2539: RAISE OKC_API.G_EXCEPTION_ERROR;
2540: END IF;
2541:
2542: END IF;
2535: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2536: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2537: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2538: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2539: RAISE OKC_API.G_EXCEPTION_ERROR;
2540: END IF;
2541:
2542: END IF;
2543:
2543:
2544: ---- Changes End
2545:
2546:
2547: -- Calling the actual OKC api
2548: OKC_CONTRACT_PARTY_PUB.update_contact(p_api_version => p_api_version,
2549: p_init_msg_list => p_init_msg_list,
2550: x_return_status => x_return_status,
2551: x_msg_count => x_msg_count,
2551: x_msg_count => x_msg_count,
2552: x_msg_data => x_msg_data,
2553: p_ctcv_rec => lr_ctcv_rec_type_in,
2554: x_ctcv_rec => lr_ctcv_rec_type_out);
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2552: x_msg_data => x_msg_data,
2553: p_ctcv_rec => lr_ctcv_rec_type_in,
2554: x_ctcv_rec => lr_ctcv_rec_type_out);
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2560: -- Since we are creatieng a wrapper over the okc
2553: p_ctcv_rec => lr_ctcv_rec_type_in,
2554: x_ctcv_rec => lr_ctcv_rec_type_out);
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2560: -- Since we are creatieng a wrapper over the okc
2561: -- we need to migrate from OKC declared ctcv record type
2554: x_ctcv_rec => lr_ctcv_rec_type_out);
2555: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2556: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2557: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2558: RAISE OKC_API.G_EXCEPTION_ERROR;
2559: END IF;
2560: -- Since we are creatieng a wrapper over the okc
2561: -- we need to migrate from OKC declared ctcv record type
2562: -- to locally declared ctcv record as process of input
2575: x_msg_count => x_msg_count,
2576: x_msg_data => x_msg_data,
2577: p_chr_id => x_ctcv_rec.dnz_chr_id);
2578:
2579: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2582: RAISE OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2576: x_msg_data => x_msg_data,
2577: p_chr_id => x_ctcv_rec.dnz_chr_id);
2578:
2579: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2582: RAISE OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2584:
2577: p_chr_id => x_ctcv_rec.dnz_chr_id);
2578:
2579: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2582: RAISE OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2584:
2585: END IF;
2578:
2579: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2582: RAISE OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2584:
2585: END IF;
2586:
2583: END IF;
2584:
2585: END IF;
2586:
2587: OKC_API.END_ACTIVITY (x_msg_count,
2588: x_msg_data );
2589: EXCEPTION
2590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2591: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2586:
2587: OKC_API.END_ACTIVITY (x_msg_count,
2588: x_msg_data );
2589: EXCEPTION
2590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2591: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2592: l_api_name,
2593: G_PKG_NAME,
2594: 'OKC_API.G_RET_STS_ERROR',
2587: OKC_API.END_ACTIVITY (x_msg_count,
2588: x_msg_data );
2589: EXCEPTION
2590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2591: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2592: l_api_name,
2593: G_PKG_NAME,
2594: 'OKC_API.G_RET_STS_ERROR',
2595: x_msg_count,
2590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2591: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2592: l_api_name,
2593: G_PKG_NAME,
2594: 'OKC_API.G_RET_STS_ERROR',
2595: x_msg_count,
2596: x_msg_data,
2597: '_PVT');
2598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2594: 'OKC_API.G_RET_STS_ERROR',
2595: x_msg_count,
2596: x_msg_data,
2597: '_PVT');
2598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2599: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2600: l_api_name,
2601: G_PKG_NAME,
2602: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2595: x_msg_count,
2596: x_msg_data,
2597: '_PVT');
2598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2599: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2600: l_api_name,
2601: G_PKG_NAME,
2602: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2603: x_msg_count,
2598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2599: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2600: l_api_name,
2601: G_PKG_NAME,
2602: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2603: x_msg_count,
2604: x_msg_data,
2605: '_PVT');
2606: WHEN OTHERS THEN
2603: x_msg_count,
2604: x_msg_data,
2605: '_PVT');
2606: WHEN OTHERS THEN
2607: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2608: l_api_name,
2609: G_PKG_NAME,
2610: 'OTHERS',
2611: x_msg_count,
2614: END update_contact;
2615: --------------------------------------------------------------------------------------------------------------
2616: PROCEDURE update_contact(
2617: p_api_version IN NUMBER,
2618: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2619: x_return_status OUT NOCOPY VARCHAR2,
2620: x_msg_count OUT NOCOPY NUMBER,
2621: x_msg_data OUT NOCOPY VARCHAR2,
2622: p_ctcv_tbl IN ctcv_tbl_type,
2624:
2625: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_CONTACT';
2626: i NUMBER := 0;
2627: BEGIN
2628: OKC_API.init_msg_list(p_init_msg_list);
2629: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2630: IF (p_ctcv_tbl.COUNT>0) THEN
2631: i := p_ctcv_tbl.FIRST;
2632: LOOP
2625: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_CONTACT';
2626: i NUMBER := 0;
2627: BEGIN
2628: OKC_API.init_msg_list(p_init_msg_list);
2629: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2630: IF (p_ctcv_tbl.COUNT>0) THEN
2631: i := p_ctcv_tbl.FIRST;
2632: LOOP
2633: update_contact(p_api_version =>p_api_version,
2630: IF (p_ctcv_tbl.COUNT>0) THEN
2631: i := p_ctcv_tbl.FIRST;
2632: LOOP
2633: update_contact(p_api_version =>p_api_version,
2634: p_init_msg_list =>OKC_API.G_FALSE,
2635: x_return_status =>x_return_status,
2636: x_msg_count =>x_msg_count,
2637: x_msg_data =>x_msg_data,
2638: p_ctcv_rec =>p_ctcv_tbl(i),
2636: x_msg_count =>x_msg_count,
2637: x_msg_data =>x_msg_data,
2638: p_ctcv_rec =>p_ctcv_tbl(i),
2639: x_ctcv_rec =>x_ctcv_tbl(i));
2640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2641: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2644: END IF;
2637: x_msg_data =>x_msg_data,
2638: p_ctcv_rec =>p_ctcv_tbl(i),
2639: x_ctcv_rec =>x_ctcv_tbl(i));
2640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2641: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2644: END IF;
2645: EXIT WHEN (i=p_ctcv_tbl.LAST);
2638: p_ctcv_rec =>p_ctcv_tbl(i),
2639: x_ctcv_rec =>x_ctcv_tbl(i));
2640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2641: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2644: END IF;
2645: EXIT WHEN (i=p_ctcv_tbl.LAST);
2646: i := p_ctcv_tbl.NEXT(i);
2639: x_ctcv_rec =>x_ctcv_tbl(i));
2640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2641: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2644: END IF;
2645: EXIT WHEN (i=p_ctcv_tbl.LAST);
2646: i := p_ctcv_tbl.NEXT(i);
2647: END LOOP;
2644: END IF;
2645: EXIT WHEN (i=p_ctcv_tbl.LAST);
2646: i := p_ctcv_tbl.NEXT(i);
2647: END LOOP;
2648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2645: EXIT WHEN (i=p_ctcv_tbl.LAST);
2646: i := p_ctcv_tbl.NEXT(i);
2647: END LOOP;
2648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: END IF;
2646: i := p_ctcv_tbl.NEXT(i);
2647: END LOOP;
2648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: END IF;
2654: EXCEPTION
2647: END LOOP;
2648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: END IF;
2654: EXCEPTION
2655: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2651: RAISE OKC_API.G_EXCEPTION_ERROR;
2652: END IF;
2653: END IF;
2654: EXCEPTION
2655: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2657: l_api_name,
2658: G_PKG_NAME,
2659: 'OKC_API.G_RET_STS_ERROR',
2652: END IF;
2653: END IF;
2654: EXCEPTION
2655: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2657: l_api_name,
2658: G_PKG_NAME,
2659: 'OKC_API.G_RET_STS_ERROR',
2660: x_msg_count,
2655: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2657: l_api_name,
2658: G_PKG_NAME,
2659: 'OKC_API.G_RET_STS_ERROR',
2660: x_msg_count,
2661: x_msg_data,
2662: '_PVT');
2663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2659: 'OKC_API.G_RET_STS_ERROR',
2660: x_msg_count,
2661: x_msg_data,
2662: '_PVT');
2663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2665: l_api_name,
2666: G_PKG_NAME,
2667: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2660: x_msg_count,
2661: x_msg_data,
2662: '_PVT');
2663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2665: l_api_name,
2666: G_PKG_NAME,
2667: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2668: x_msg_count,
2663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2665: l_api_name,
2666: G_PKG_NAME,
2667: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2668: x_msg_count,
2669: x_msg_data,
2670: '_PVT');
2671: WHEN OTHERS THEN
2668: x_msg_count,
2669: x_msg_data,
2670: '_PVT');
2671: WHEN OTHERS THEN
2672: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2673: l_api_name,
2674: G_PKG_NAME,
2675: 'OTHERS',
2676: x_msg_count,
2679: END update_contact;
2680: --------------------------------------------------------------------------------------------------------------
2681: PROCEDURE delete_contact(
2682: p_api_version IN NUMBER,
2683: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2684: x_return_status OUT NOCOPY VARCHAR2,
2685: x_msg_count OUT NOCOPY NUMBER,
2686: x_msg_data OUT NOCOPY VARCHAR2,
2687: p_ctcv_rec IN ctcv_rec_type) AS
2697:
2698: l_dnz_chr_id OKC_CONTACTS.dnz_chr_id%TYPE;
2699:
2700: BEGIN
2701: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2702: -- Call start_activity to create savepoint, check compatibility
2703: -- and initialize message list
2704: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2705: ,p_init_msg_list
2700: BEGIN
2701: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2702: -- Call start_activity to create savepoint, check compatibility
2703: -- and initialize message list
2704: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2705: ,p_init_msg_list
2706: ,'_PVT'
2707: ,x_return_status);
2708: -- Check if activity started successfully
2705: ,p_init_msg_list
2706: ,'_PVT'
2707: ,x_return_status);
2708: -- Check if activity started successfully
2709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2706: ,'_PVT'
2707: ,x_return_status);
2708: -- Check if activity started successfully
2709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2707: ,x_return_status);
2708: -- Check if activity started successfully
2709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2715: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2708: -- Check if activity started successfully
2709: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2715: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2716: -- edit points for lease contract are any modifications between statuses
2736: x_msg_count => x_msg_count,
2737: x_msg_data => x_msg_data,
2738: p_chr_id => l_dnz_chr_id);
2739:
2740: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2737: x_msg_data => x_msg_data,
2738: p_chr_id => l_dnz_chr_id);
2739:
2740: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2745:
2738: p_chr_id => l_dnz_chr_id);
2739:
2740: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2745:
2746: END IF;
2739:
2740: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2741: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2742: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2743: RAISE OKC_API.G_EXCEPTION_ERROR;
2744: END IF;
2745:
2746: END IF;
2747:
2749: -- we need to migrate from locally declared ctcv record
2750: -- to OKC declared ctcv record type as process of input
2751: migrate_okl_okc_contact(p_ctcv_rec,
2752: lr_ctcv_rec_type_in);
2753: -- Calling the actual OKC api
2754: OKC_CONTRACT_PARTY_PUB.delete_contact(p_api_version => p_api_version,
2755: p_init_msg_list => p_init_msg_list,
2756: x_return_status => x_return_status,
2757: x_msg_count => x_msg_count,
2756: x_return_status => x_return_status,
2757: x_msg_count => x_msg_count,
2758: x_msg_data => x_msg_data,
2759: p_ctcv_rec => lr_ctcv_rec_type_in);
2760: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2757: x_msg_count => x_msg_count,
2758: x_msg_data => x_msg_data,
2759: p_ctcv_rec => lr_ctcv_rec_type_in);
2760: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2765: OKC_API.END_ACTIVITY (x_msg_count,
2758: x_msg_data => x_msg_data,
2759: p_ctcv_rec => lr_ctcv_rec_type_in);
2760: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2765: OKC_API.END_ACTIVITY (x_msg_count,
2766: x_msg_data );
2759: p_ctcv_rec => lr_ctcv_rec_type_in);
2760: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2765: OKC_API.END_ACTIVITY (x_msg_count,
2766: x_msg_data );
2767: EXCEPTION
2761: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2762: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_ERROR;
2764: END IF;
2765: OKC_API.END_ACTIVITY (x_msg_count,
2766: x_msg_data );
2767: EXCEPTION
2768: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2764: END IF;
2765: OKC_API.END_ACTIVITY (x_msg_count,
2766: x_msg_data );
2767: EXCEPTION
2768: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2770: l_api_name,
2771: G_PKG_NAME,
2772: 'OKC_API.G_RET_STS_ERROR',
2765: OKC_API.END_ACTIVITY (x_msg_count,
2766: x_msg_data );
2767: EXCEPTION
2768: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2770: l_api_name,
2771: G_PKG_NAME,
2772: 'OKC_API.G_RET_STS_ERROR',
2773: x_msg_count,
2768: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2770: l_api_name,
2771: G_PKG_NAME,
2772: 'OKC_API.G_RET_STS_ERROR',
2773: x_msg_count,
2774: x_msg_data,
2775: '_PVT');
2776: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2772: 'OKC_API.G_RET_STS_ERROR',
2773: x_msg_count,
2774: x_msg_data,
2775: '_PVT');
2776: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2777: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2778: l_api_name,
2779: G_PKG_NAME,
2780: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2773: x_msg_count,
2774: x_msg_data,
2775: '_PVT');
2776: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2777: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2778: l_api_name,
2779: G_PKG_NAME,
2780: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2781: x_msg_count,
2776: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2777: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2778: l_api_name,
2779: G_PKG_NAME,
2780: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2781: x_msg_count,
2782: x_msg_data,
2783: '_PVT');
2784: WHEN OTHERS THEN
2781: x_msg_count,
2782: x_msg_data,
2783: '_PVT');
2784: WHEN OTHERS THEN
2785: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2786: l_api_name,
2787: G_PKG_NAME,
2788: 'OTHERS',
2789: x_msg_count,
2792: END delete_contact;
2793: -------------------------------------------------------------------------------------------------------
2794: PROCEDURE delete_contact(
2795: p_api_version IN NUMBER,
2796: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2797: x_return_status OUT NOCOPY VARCHAR2,
2798: x_msg_count OUT NOCOPY NUMBER,
2799: x_msg_data OUT NOCOPY VARCHAR2,
2800: p_ctcv_tbl IN ctcv_tbl_type) AS
2801:
2802: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_CONTACT';
2803: i NUMBER := 0;
2804: BEGIN
2805: OKC_API.init_msg_list(p_init_msg_list);
2806: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2807: IF (p_ctcv_tbl.COUNT>0) THEN
2808: i := p_ctcv_tbl.FIRST;
2809: LOOP
2802: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_CONTACT';
2803: i NUMBER := 0;
2804: BEGIN
2805: OKC_API.init_msg_list(p_init_msg_list);
2806: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2807: IF (p_ctcv_tbl.COUNT>0) THEN
2808: i := p_ctcv_tbl.FIRST;
2809: LOOP
2810: delete_contact(p_api_version =>p_api_version,
2807: IF (p_ctcv_tbl.COUNT>0) THEN
2808: i := p_ctcv_tbl.FIRST;
2809: LOOP
2810: delete_contact(p_api_version =>p_api_version,
2811: p_init_msg_list =>OKC_API.G_FALSE,
2812: x_return_status =>x_return_status,
2813: x_msg_count =>x_msg_count,
2814: x_msg_data =>x_msg_data,
2815: p_ctcv_rec =>p_ctcv_tbl(i));
2812: x_return_status =>x_return_status,
2813: x_msg_count =>x_msg_count,
2814: x_msg_data =>x_msg_data,
2815: p_ctcv_rec =>p_ctcv_tbl(i));
2816: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2818: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2820: END IF;
2813: x_msg_count =>x_msg_count,
2814: x_msg_data =>x_msg_data,
2815: p_ctcv_rec =>p_ctcv_tbl(i));
2816: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2818: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2820: END IF;
2821: EXIT WHEN (i=p_ctcv_tbl.LAST);
2814: x_msg_data =>x_msg_data,
2815: p_ctcv_rec =>p_ctcv_tbl(i));
2816: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2818: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2820: END IF;
2821: EXIT WHEN (i=p_ctcv_tbl.LAST);
2822: i := p_ctcv_tbl.NEXT(i);
2815: p_ctcv_rec =>p_ctcv_tbl(i));
2816: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2818: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2820: END IF;
2821: EXIT WHEN (i=p_ctcv_tbl.LAST);
2822: i := p_ctcv_tbl.NEXT(i);
2823: END LOOP;
2820: END IF;
2821: EXIT WHEN (i=p_ctcv_tbl.LAST);
2822: i := p_ctcv_tbl.NEXT(i);
2823: END LOOP;
2824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2827: RAISE OKC_API.G_EXCEPTION_ERROR;
2828: END IF;
2821: EXIT WHEN (i=p_ctcv_tbl.LAST);
2822: i := p_ctcv_tbl.NEXT(i);
2823: END LOOP;
2824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2827: RAISE OKC_API.G_EXCEPTION_ERROR;
2828: END IF;
2829: END IF;
2822: i := p_ctcv_tbl.NEXT(i);
2823: END LOOP;
2824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2827: RAISE OKC_API.G_EXCEPTION_ERROR;
2828: END IF;
2829: END IF;
2830: EXCEPTION
2823: END LOOP;
2824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2827: RAISE OKC_API.G_EXCEPTION_ERROR;
2828: END IF;
2829: END IF;
2830: EXCEPTION
2831: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2827: RAISE OKC_API.G_EXCEPTION_ERROR;
2828: END IF;
2829: END IF;
2830: EXCEPTION
2831: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2833: l_api_name,
2834: G_PKG_NAME,
2835: 'OKC_API.G_RET_STS_ERROR',
2828: END IF;
2829: END IF;
2830: EXCEPTION
2831: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2833: l_api_name,
2834: G_PKG_NAME,
2835: 'OKC_API.G_RET_STS_ERROR',
2836: x_msg_count,
2831: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2832: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2833: l_api_name,
2834: G_PKG_NAME,
2835: 'OKC_API.G_RET_STS_ERROR',
2836: x_msg_count,
2837: x_msg_data,
2838: '_PVT');
2839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2835: 'OKC_API.G_RET_STS_ERROR',
2836: x_msg_count,
2837: x_msg_data,
2838: '_PVT');
2839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2841: l_api_name,
2842: G_PKG_NAME,
2843: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2836: x_msg_count,
2837: x_msg_data,
2838: '_PVT');
2839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2841: l_api_name,
2842: G_PKG_NAME,
2843: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2844: x_msg_count,
2839: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2840: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2841: l_api_name,
2842: G_PKG_NAME,
2843: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2844: x_msg_count,
2845: x_msg_data,
2846: '_PVT');
2847: WHEN OTHERS THEN
2844: x_msg_count,
2845: x_msg_data,
2846: '_PVT');
2847: WHEN OTHERS THEN
2848: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2849: l_api_name,
2850: G_PKG_NAME,
2851: 'OTHERS',
2852: x_msg_count,
2857: ---------------------------------------------------------------------------------------------------------
2858: -- Badri
2859: PROCEDURE create_contract_header(
2860: p_api_version IN NUMBER,
2861: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2862: x_return_status OUT NOCOPY VARCHAR2,
2863: x_msg_count OUT NOCOPY NUMBER,
2864: x_msg_data OUT NOCOPY VARCHAR2,
2865: p_chrv_rec IN chrv_rec_type,
2870: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
2871:
2872: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2873: l_api_version CONSTANT NUMBER := 1.0;
2874: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2875: BEGIN
2876: -- call START_ACTIVITY to create savepoint, check compatibility
2877: -- and initialize message list
2878: l_return_status := OKC_API.START_ACTIVITY(
2874: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2875: BEGIN
2876: -- call START_ACTIVITY to create savepoint, check compatibility
2877: -- and initialize message list
2878: l_return_status := OKC_API.START_ACTIVITY(
2879: p_api_name => l_api_name,
2880: p_pkg_name => g_pkg_name,
2881: p_init_msg_list => p_init_msg_list,
2882: l_api_version => l_api_version,
2884: p_api_type => g_api_type,
2885: x_return_status => x_return_status);
2886:
2887: -- check if activity started successfully
2888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_ERROR;
2892: END IF;
2885: x_return_status => x_return_status);
2886:
2887: -- check if activity started successfully
2888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2886:
2887: -- check if activity started successfully
2888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2894: l_chrv_rec := p_chrv_rec;
2887: -- check if activity started successfully
2888: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2891: RAISE OKC_API.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2894: l_chrv_rec := p_chrv_rec;
2895: -- call procedure in complex API
2906: p_chrv_rec => l_okc_chrv_rec_in,
2907: x_chrv_rec => l_okc_chrv_rec_out);
2908:
2909: -- check return status
2910: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2913: RAISE OKC_API.G_EXCEPTION_ERROR;
2914: END IF;
2907: x_chrv_rec => l_okc_chrv_rec_out);
2908:
2909: -- check return status
2910: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2913: RAISE OKC_API.G_EXCEPTION_ERROR;
2914: END IF;
2915:
2908:
2909: -- check return status
2910: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2913: RAISE OKC_API.G_EXCEPTION_ERROR;
2914: END IF;
2915:
2916: migrate_chrv(p_from => l_okc_chrv_rec_out,
2909: -- check return status
2910: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2913: RAISE OKC_API.G_EXCEPTION_ERROR;
2914: END IF;
2915:
2916: migrate_chrv(p_from => l_okc_chrv_rec_out,
2917: p_to => x_chrv_rec);
2916: migrate_chrv(p_from => l_okc_chrv_rec_out,
2917: p_to => x_chrv_rec);
2918:
2919: -- end activity
2920: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2921: x_msg_data => x_msg_data);
2922: EXCEPTION
2923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2919: -- end activity
2920: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2921: x_msg_data => x_msg_data);
2922: EXCEPTION
2923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2925: p_api_name => l_api_name,
2926: p_pkg_name => g_pkg_name,
2927: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2920: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2921: x_msg_data => x_msg_data);
2922: EXCEPTION
2923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2925: p_api_name => l_api_name,
2926: p_pkg_name => g_pkg_name,
2927: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2928: x_msg_count => x_msg_count,
2923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2925: p_api_name => l_api_name,
2926: p_pkg_name => g_pkg_name,
2927: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2928: x_msg_count => x_msg_count,
2929: x_msg_data => x_msg_data,
2930: p_api_type => g_api_type);
2931:
2928: x_msg_count => x_msg_count,
2929: x_msg_data => x_msg_data,
2930: p_api_type => g_api_type);
2931:
2932: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2933: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2934: p_api_name => l_api_name,
2935: p_pkg_name => g_pkg_name,
2936: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2929: x_msg_data => x_msg_data,
2930: p_api_type => g_api_type);
2931:
2932: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2933: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2934: p_api_name => l_api_name,
2935: p_pkg_name => g_pkg_name,
2936: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2937: x_msg_count => x_msg_count,
2932: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2933: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2934: p_api_name => l_api_name,
2935: p_pkg_name => g_pkg_name,
2936: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2937: x_msg_count => x_msg_count,
2938: x_msg_data => x_msg_data,
2939: p_api_type => g_api_type);
2940:
2938: x_msg_data => x_msg_data,
2939: p_api_type => g_api_type);
2940:
2941: WHEN OTHERS THEN
2942: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2943: p_api_name => l_api_name,
2944: p_pkg_name => g_pkg_name,
2945: p_exc_name => 'OTHERS',
2946: x_msg_count => x_msg_count,
2951:
2952:
2953: PROCEDURE update_contract_header(
2954: p_api_version IN NUMBER,
2955: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2956: x_return_status OUT NOCOPY VARCHAR2,
2957: x_msg_count OUT NOCOPY NUMBER,
2958: x_msg_data OUT NOCOPY VARCHAR2,
2959: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2955: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2956: x_return_status OUT NOCOPY VARCHAR2,
2957: x_msg_count OUT NOCOPY NUMBER,
2958: x_msg_data OUT NOCOPY VARCHAR2,
2959: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2960: p_chrv_rec IN chrv_rec_type,
2961: x_chrv_rec OUT NOCOPY chrv_rec_type) IS
2962:
2963: l_chrv_rec chrv_rec_type;
2964: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
2965: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
2966: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
2967: l_api_version CONSTANT NUMBER := 1.0;
2968: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2969: BEGIN
2970: -- call START_ACTIVITY to create savepoint, check compatibility
2971: -- and initialize message list
2972: l_return_status := OKC_API.START_ACTIVITY(
2968: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2969: BEGIN
2970: -- call START_ACTIVITY to create savepoint, check compatibility
2971: -- and initialize message list
2972: l_return_status := OKC_API.START_ACTIVITY(
2973: p_api_name => l_api_name,
2974: p_pkg_name => g_pkg_name,
2975: p_init_msg_list => p_init_msg_list,
2976: l_api_version => l_api_version,
2978: p_api_type => g_api_type,
2979: x_return_status => x_return_status);
2980:
2981: -- check if activity started successfully
2982: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2985: RAISE OKC_API.G_EXCEPTION_ERROR;
2986: END IF;
2979: x_return_status => x_return_status);
2980:
2981: -- check if activity started successfully
2982: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2985: RAISE OKC_API.G_EXCEPTION_ERROR;
2986: END IF;
2987:
2980:
2981: -- check if activity started successfully
2982: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2985: RAISE OKC_API.G_EXCEPTION_ERROR;
2986: END IF;
2987:
2988: l_chrv_rec := p_chrv_rec;
2981: -- check if activity started successfully
2982: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2983: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2984: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2985: RAISE OKC_API.G_EXCEPTION_ERROR;
2986: END IF;
2987:
2988: l_chrv_rec := p_chrv_rec;
2989:
3002: p_chrv_rec => l_okc_chrv_rec_in,
3003: x_chrv_rec => l_okc_chrv_rec_out);
3004:
3005: -- check return status
3006: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3007: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3009: RAISE OKC_API.G_EXCEPTION_ERROR;
3010: END IF;
3003: x_chrv_rec => l_okc_chrv_rec_out);
3004:
3005: -- check return status
3006: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3007: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3009: RAISE OKC_API.G_EXCEPTION_ERROR;
3010: END IF;
3011:
3004:
3005: -- check return status
3006: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3007: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3009: RAISE OKC_API.G_EXCEPTION_ERROR;
3010: END IF;
3011:
3012: migrate_chrv(p_from => l_okc_chrv_rec_out,
3005: -- check return status
3006: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3007: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3009: RAISE OKC_API.G_EXCEPTION_ERROR;
3010: END IF;
3011:
3012: migrate_chrv(p_from => l_okc_chrv_rec_out,
3013: p_to => x_chrv_rec);
3012: migrate_chrv(p_from => l_okc_chrv_rec_out,
3013: p_to => x_chrv_rec);
3014:
3015: -- end activity
3016: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3017: x_msg_data => x_msg_data);
3018: EXCEPTION
3019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3020: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3015: -- end activity
3016: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3017: x_msg_data => x_msg_data);
3018: EXCEPTION
3019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3020: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3021: p_api_name => l_api_name,
3022: p_pkg_name => g_pkg_name,
3023: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3016: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3017: x_msg_data => x_msg_data);
3018: EXCEPTION
3019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3020: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3021: p_api_name => l_api_name,
3022: p_pkg_name => g_pkg_name,
3023: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3024: x_msg_count => x_msg_count,
3019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3020: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3021: p_api_name => l_api_name,
3022: p_pkg_name => g_pkg_name,
3023: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3024: x_msg_count => x_msg_count,
3025: x_msg_data => x_msg_data,
3026: p_api_type => g_api_type);
3027:
3024: x_msg_count => x_msg_count,
3025: x_msg_data => x_msg_data,
3026: p_api_type => g_api_type);
3027:
3028: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3030: p_api_name => l_api_name,
3031: p_pkg_name => g_pkg_name,
3032: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3025: x_msg_data => x_msg_data,
3026: p_api_type => g_api_type);
3027:
3028: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3030: p_api_name => l_api_name,
3031: p_pkg_name => g_pkg_name,
3032: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3033: x_msg_count => x_msg_count,
3028: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3030: p_api_name => l_api_name,
3031: p_pkg_name => g_pkg_name,
3032: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3033: x_msg_count => x_msg_count,
3034: x_msg_data => x_msg_data,
3035: p_api_type => g_api_type);
3036:
3034: x_msg_data => x_msg_data,
3035: p_api_type => g_api_type);
3036:
3037: WHEN OTHERS THEN
3038: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3039: p_api_name => l_api_name,
3040: p_pkg_name => g_pkg_name,
3041: p_exc_name => 'OTHERS',
3042: x_msg_count => x_msg_count,
3047:
3048:
3049: PROCEDURE delete_contract_header(
3050: p_api_version IN NUMBER,
3051: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3052: x_return_status OUT NOCOPY VARCHAR2,
3053: x_msg_count OUT NOCOPY NUMBER,
3054: x_msg_data OUT NOCOPY VARCHAR2,
3055: p_chrv_rec IN chrv_rec_type) IS
3058: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
3059: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
3060: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
3061: l_api_version CONSTANT NUMBER := 1.0;
3062: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3063: BEGIN
3064: -- call START_ACTIVITY to create savepoint, check compatibility
3065: -- and initialize message list
3066: l_return_status := OKC_API.START_ACTIVITY(
3062: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3063: BEGIN
3064: -- call START_ACTIVITY to create savepoint, check compatibility
3065: -- and initialize message list
3066: l_return_status := OKC_API.START_ACTIVITY(
3067: p_api_name => l_api_name,
3068: p_pkg_name => g_pkg_name,
3069: p_init_msg_list => p_init_msg_list,
3070: l_api_version => l_api_version,
3072: p_api_type => g_api_type,
3073: x_return_status => x_return_status);
3074:
3075: -- check if activity started successfully
3076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_ERROR;
3080: END IF;
3073: x_return_status => x_return_status);
3074:
3075: -- check if activity started successfully
3076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_ERROR;
3080: END IF;
3081:
3074:
3075: -- check if activity started successfully
3076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_ERROR;
3080: END IF;
3081:
3082: l_chrv_rec := p_chrv_rec;
3075: -- check if activity started successfully
3076: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3078: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_ERROR;
3080: END IF;
3081:
3082: l_chrv_rec := p_chrv_rec;
3083:
3093: x_msg_data => x_msg_data,
3094: p_chrv_rec => l_okc_chrv_rec_in);
3095:
3096: -- check return status
3097: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3099: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3100: RAISE OKC_API.G_EXCEPTION_ERROR;
3101: END IF;
3094: p_chrv_rec => l_okc_chrv_rec_in);
3095:
3096: -- check return status
3097: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3099: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3100: RAISE OKC_API.G_EXCEPTION_ERROR;
3101: END IF;
3102:
3095:
3096: -- check return status
3097: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3099: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3100: RAISE OKC_API.G_EXCEPTION_ERROR;
3101: END IF;
3102:
3103: -- end activity
3096: -- check return status
3097: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3099: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3100: RAISE OKC_API.G_EXCEPTION_ERROR;
3101: END IF;
3102:
3103: -- end activity
3104: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3100: RAISE OKC_API.G_EXCEPTION_ERROR;
3101: END IF;
3102:
3103: -- end activity
3104: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3105: x_msg_data => x_msg_data);
3106: EXCEPTION
3107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3103: -- end activity
3104: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3105: x_msg_data => x_msg_data);
3106: EXCEPTION
3107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3109: p_api_name => l_api_name,
3110: p_pkg_name => g_pkg_name,
3111: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3104: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3105: x_msg_data => x_msg_data);
3106: EXCEPTION
3107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3109: p_api_name => l_api_name,
3110: p_pkg_name => g_pkg_name,
3111: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3112: x_msg_count => x_msg_count,
3107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3109: p_api_name => l_api_name,
3110: p_pkg_name => g_pkg_name,
3111: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3112: x_msg_count => x_msg_count,
3113: x_msg_data => x_msg_data,
3114: p_api_type => g_api_type);
3115:
3112: x_msg_count => x_msg_count,
3113: x_msg_data => x_msg_data,
3114: p_api_type => g_api_type);
3115:
3116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3118: p_api_name => l_api_name,
3119: p_pkg_name => g_pkg_name,
3120: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3113: x_msg_data => x_msg_data,
3114: p_api_type => g_api_type);
3115:
3116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3118: p_api_name => l_api_name,
3119: p_pkg_name => g_pkg_name,
3120: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3121: x_msg_count => x_msg_count,
3116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3118: p_api_name => l_api_name,
3119: p_pkg_name => g_pkg_name,
3120: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3121: x_msg_count => x_msg_count,
3122: x_msg_data => x_msg_data,
3123: p_api_type => g_api_type);
3124:
3122: x_msg_data => x_msg_data,
3123: p_api_type => g_api_type);
3124:
3125: WHEN OTHERS THEN
3126: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3127: p_api_name => l_api_name,
3128: p_pkg_name => g_pkg_name,
3129: p_exc_name => 'OTHERS',
3130: x_msg_count => x_msg_count,
3135:
3136:
3137: PROCEDURE lock_contract_header(
3138: p_api_version IN NUMBER,
3139: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3140: x_return_status OUT NOCOPY VARCHAR2,
3141: x_msg_count OUT NOCOPY NUMBER,
3142: x_msg_data OUT NOCOPY VARCHAR2,
3143: p_chrv_rec IN chrv_rec_type) IS
3146: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
3147: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
3148: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
3149: l_api_version CONSTANT NUMBER := 1.0;
3150: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3151: BEGIN
3152: -- call START_ACTIVITY to create savepoint, check compatibility
3153: -- and initialize message list
3154: l_return_status := OKC_API.START_ACTIVITY(
3150: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3151: BEGIN
3152: -- call START_ACTIVITY to create savepoint, check compatibility
3153: -- and initialize message list
3154: l_return_status := OKC_API.START_ACTIVITY(
3155: p_api_name => l_api_name,
3156: p_pkg_name => g_pkg_name,
3157: p_init_msg_list => p_init_msg_list,
3158: l_api_version => l_api_version,
3160: p_api_type => g_api_type,
3161: x_return_status => x_return_status);
3162:
3163: -- check if activity started successfully
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3161: x_return_status => x_return_status);
3162:
3163: -- check if activity started successfully
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169:
3162:
3163: -- check if activity started successfully
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169:
3170: l_chrv_rec := p_chrv_rec;
3163: -- check if activity started successfully
3164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3167: RAISE OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169:
3170: l_chrv_rec := p_chrv_rec;
3171:
3180: x_msg_data => x_msg_data,
3181: p_chrv_rec => l_okc_chrv_rec_in);
3182:
3183: -- check return status
3184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3187: RAISE OKC_API.G_EXCEPTION_ERROR;
3188: END IF;
3181: p_chrv_rec => l_okc_chrv_rec_in);
3182:
3183: -- check return status
3184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3187: RAISE OKC_API.G_EXCEPTION_ERROR;
3188: END IF;
3189:
3182:
3183: -- check return status
3184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3187: RAISE OKC_API.G_EXCEPTION_ERROR;
3188: END IF;
3189:
3190: -- end activity
3183: -- check return status
3184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3187: RAISE OKC_API.G_EXCEPTION_ERROR;
3188: END IF;
3189:
3190: -- end activity
3191: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3187: RAISE OKC_API.G_EXCEPTION_ERROR;
3188: END IF;
3189:
3190: -- end activity
3191: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3192: x_msg_data => x_msg_data);
3193: EXCEPTION
3194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3190: -- end activity
3191: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3192: x_msg_data => x_msg_data);
3193: EXCEPTION
3194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3196: p_api_name => l_api_name,
3197: p_pkg_name => g_pkg_name,
3198: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3191: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3192: x_msg_data => x_msg_data);
3193: EXCEPTION
3194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3196: p_api_name => l_api_name,
3197: p_pkg_name => g_pkg_name,
3198: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3199: x_msg_count => x_msg_count,
3194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3196: p_api_name => l_api_name,
3197: p_pkg_name => g_pkg_name,
3198: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3199: x_msg_count => x_msg_count,
3200: x_msg_data => x_msg_data,
3201: p_api_type => g_api_type);
3202:
3199: x_msg_count => x_msg_count,
3200: x_msg_data => x_msg_data,
3201: p_api_type => g_api_type);
3202:
3203: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3204: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3205: p_api_name => l_api_name,
3206: p_pkg_name => g_pkg_name,
3207: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3200: x_msg_data => x_msg_data,
3201: p_api_type => g_api_type);
3202:
3203: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3204: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3205: p_api_name => l_api_name,
3206: p_pkg_name => g_pkg_name,
3207: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3208: x_msg_count => x_msg_count,
3203: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3204: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3205: p_api_name => l_api_name,
3206: p_pkg_name => g_pkg_name,
3207: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3208: x_msg_count => x_msg_count,
3209: x_msg_data => x_msg_data,
3210: p_api_type => g_api_type);
3211:
3209: x_msg_data => x_msg_data,
3210: p_api_type => g_api_type);
3211:
3212: WHEN OTHERS THEN
3213: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3214: p_api_name => l_api_name,
3215: p_pkg_name => g_pkg_name,
3216: p_exc_name => 'OTHERS',
3217: x_msg_count => x_msg_count,
3221: END lock_contract_header;
3222:
3223: PROCEDURE validate_contract_header(
3224: p_api_version IN NUMBER,
3225: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3226: x_return_status OUT NOCOPY VARCHAR2,
3227: x_msg_count OUT NOCOPY NUMBER,
3228: x_msg_data OUT NOCOPY VARCHAR2,
3229: p_chrv_rec IN chrv_rec_type) IS
3232: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
3233: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
3234: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_HEADER';
3235: l_api_version CONSTANT NUMBER := 1.0;
3236: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3237: BEGIN
3238: -- call START_ACTIVITY to create savepoint, check compatibility
3239: -- and initialize message list
3240: l_return_status := OKC_API.START_ACTIVITY(
3236: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3237: BEGIN
3238: -- call START_ACTIVITY to create savepoint, check compatibility
3239: -- and initialize message list
3240: l_return_status := OKC_API.START_ACTIVITY(
3241: p_api_name => l_api_name,
3242: p_pkg_name => g_pkg_name,
3243: p_init_msg_list => p_init_msg_list,
3244: l_api_version => l_api_version,
3246: p_api_type => g_api_type,
3247: x_return_status => x_return_status);
3248:
3249: -- check if activity started successfully
3250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3253: RAISE OKC_API.G_EXCEPTION_ERROR;
3254: END IF;
3247: x_return_status => x_return_status);
3248:
3249: -- check if activity started successfully
3250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3253: RAISE OKC_API.G_EXCEPTION_ERROR;
3254: END IF;
3255:
3248:
3249: -- check if activity started successfully
3250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3253: RAISE OKC_API.G_EXCEPTION_ERROR;
3254: END IF;
3255:
3256: l_chrv_rec := p_chrv_rec;
3249: -- check if activity started successfully
3250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3251: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3253: RAISE OKC_API.G_EXCEPTION_ERROR;
3254: END IF;
3255:
3256: l_chrv_rec := p_chrv_rec;
3257: migrate_chrv(p_from => l_chrv_rec,
3266: x_msg_data => x_msg_data,
3267: p_chrv_rec => l_okc_chrv_rec_in);
3268:
3269: -- check return status
3270: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3272: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3273: RAISE OKC_API.G_EXCEPTION_ERROR;
3274: END IF;
3267: p_chrv_rec => l_okc_chrv_rec_in);
3268:
3269: -- check return status
3270: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3272: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3273: RAISE OKC_API.G_EXCEPTION_ERROR;
3274: END IF;
3275:
3268:
3269: -- check return status
3270: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3272: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3273: RAISE OKC_API.G_EXCEPTION_ERROR;
3274: END IF;
3275:
3276: -- end activity
3269: -- check return status
3270: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3272: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3273: RAISE OKC_API.G_EXCEPTION_ERROR;
3274: END IF;
3275:
3276: -- end activity
3277: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3273: RAISE OKC_API.G_EXCEPTION_ERROR;
3274: END IF;
3275:
3276: -- end activity
3277: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3278: x_msg_data => x_msg_data);
3279: EXCEPTION
3280: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3281: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3276: -- end activity
3277: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3278: x_msg_data => x_msg_data);
3279: EXCEPTION
3280: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3281: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3282: p_api_name => l_api_name,
3283: p_pkg_name => g_pkg_name,
3284: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3277: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3278: x_msg_data => x_msg_data);
3279: EXCEPTION
3280: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3281: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3282: p_api_name => l_api_name,
3283: p_pkg_name => g_pkg_name,
3284: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3285: x_msg_count => x_msg_count,
3280: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3281: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3282: p_api_name => l_api_name,
3283: p_pkg_name => g_pkg_name,
3284: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3285: x_msg_count => x_msg_count,
3286: x_msg_data => x_msg_data,
3287: p_api_type => g_api_type);
3288:
3285: x_msg_count => x_msg_count,
3286: x_msg_data => x_msg_data,
3287: p_api_type => g_api_type);
3288:
3289: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3290: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3291: p_api_name => l_api_name,
3292: p_pkg_name => g_pkg_name,
3293: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3286: x_msg_data => x_msg_data,
3287: p_api_type => g_api_type);
3288:
3289: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3290: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3291: p_api_name => l_api_name,
3292: p_pkg_name => g_pkg_name,
3293: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3294: x_msg_count => x_msg_count,
3289: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3290: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3291: p_api_name => l_api_name,
3292: p_pkg_name => g_pkg_name,
3293: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3294: x_msg_count => x_msg_count,
3295: x_msg_data => x_msg_data,
3296: p_api_type => g_api_type);
3297:
3295: x_msg_data => x_msg_data,
3296: p_api_type => g_api_type);
3297:
3298: WHEN OTHERS THEN
3299: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3300: p_api_name => l_api_name,
3301: p_pkg_name => g_pkg_name,
3302: p_exc_name => 'OTHERS',
3303: x_msg_count => x_msg_count,
3308:
3309:
3310: PROCEDURE create_contract_line(
3311: p_api_version IN NUMBER,
3312: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3313: x_return_status OUT NOCOPY VARCHAR2,
3314: x_msg_count OUT NOCOPY NUMBER,
3315: x_msg_data OUT NOCOPY VARCHAR2,
3316: p_restricted_update IN VARCHAR2 DEFAULT 'F',
3321: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3322: l_okc_clev_rec_out okc_contract_pub.clev_rec_type;
3323: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
3324: l_api_version CONSTANT NUMBER := 1.0;
3325: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3326: BEGIN
3327: -- call START_ACTIVITY to create savepoint, check compatibility
3328: -- and initialize message list
3329: l_return_status := OKC_API.START_ACTIVITY(
3325: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3326: BEGIN
3327: -- call START_ACTIVITY to create savepoint, check compatibility
3328: -- and initialize message list
3329: l_return_status := OKC_API.START_ACTIVITY(
3330: p_api_name => l_api_name,
3331: p_pkg_name => g_pkg_name,
3332: p_init_msg_list => p_init_msg_list,
3333: l_api_version => l_api_version,
3335: p_api_type => g_api_type,
3336: x_return_status => x_return_status);
3337:
3338: -- check if activity started successfully
3339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3342: RAISE OKC_API.G_EXCEPTION_ERROR;
3343: END IF;
3336: x_return_status => x_return_status);
3337:
3338: -- check if activity started successfully
3339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3342: RAISE OKC_API.G_EXCEPTION_ERROR;
3343: END IF;
3344:
3337:
3338: -- check if activity started successfully
3339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3342: RAISE OKC_API.G_EXCEPTION_ERROR;
3343: END IF;
3344:
3345: l_clev_rec := p_clev_rec;
3338: -- check if activity started successfully
3339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3342: RAISE OKC_API.G_EXCEPTION_ERROR;
3343: END IF;
3344:
3345: l_clev_rec := p_clev_rec;
3346: migrate_clev(p_from => l_clev_rec,
3356: p_clev_rec => l_okc_clev_rec_in,
3357: x_clev_rec => l_okc_clev_rec_out);
3358:
3359: -- check return status
3360: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3362: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3363: RAISE OKC_API.G_EXCEPTION_ERROR;
3364: END IF;
3357: x_clev_rec => l_okc_clev_rec_out);
3358:
3359: -- check return status
3360: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3362: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3363: RAISE OKC_API.G_EXCEPTION_ERROR;
3364: END IF;
3365:
3358:
3359: -- check return status
3360: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3362: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3363: RAISE OKC_API.G_EXCEPTION_ERROR;
3364: END IF;
3365:
3366: migrate_clev(p_from => l_okc_clev_rec_out,
3359: -- check return status
3360: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3362: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3363: RAISE OKC_API.G_EXCEPTION_ERROR;
3364: END IF;
3365:
3366: migrate_clev(p_from => l_okc_clev_rec_out,
3367: p_to => x_clev_rec);
3366: migrate_clev(p_from => l_okc_clev_rec_out,
3367: p_to => x_clev_rec);
3368:
3369: -- end activity
3370: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3371: x_msg_data => x_msg_data);
3372: EXCEPTION
3373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3369: -- end activity
3370: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3371: x_msg_data => x_msg_data);
3372: EXCEPTION
3373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => g_pkg_name,
3377: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3370: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3371: x_msg_data => x_msg_data);
3372: EXCEPTION
3373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => g_pkg_name,
3377: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3378: x_msg_count => x_msg_count,
3373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => g_pkg_name,
3377: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3378: x_msg_count => x_msg_count,
3379: x_msg_data => x_msg_data,
3380: p_api_type => g_api_type);
3381:
3378: x_msg_count => x_msg_count,
3379: x_msg_data => x_msg_data,
3380: p_api_type => g_api_type);
3381:
3382: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3383: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3384: p_api_name => l_api_name,
3385: p_pkg_name => g_pkg_name,
3386: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3379: x_msg_data => x_msg_data,
3380: p_api_type => g_api_type);
3381:
3382: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3383: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3384: p_api_name => l_api_name,
3385: p_pkg_name => g_pkg_name,
3386: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3387: x_msg_count => x_msg_count,
3382: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3383: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3384: p_api_name => l_api_name,
3385: p_pkg_name => g_pkg_name,
3386: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3387: x_msg_count => x_msg_count,
3388: x_msg_data => x_msg_data,
3389: p_api_type => g_api_type);
3390:
3388: x_msg_data => x_msg_data,
3389: p_api_type => g_api_type);
3390:
3391: WHEN OTHERS THEN
3392: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3393: p_api_name => l_api_name,
3394: p_pkg_name => g_pkg_name,
3395: p_exc_name => 'OTHERS',
3396: x_msg_count => x_msg_count,
3400: END create_contract_line;
3401:
3402: PROCEDURE create_contract_line(
3403: p_api_version IN NUMBER,
3404: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3405: x_return_status OUT NOCOPY VARCHAR2,
3406: x_msg_count OUT NOCOPY NUMBER,
3407: x_msg_data OUT NOCOPY VARCHAR2,
3408: p_restricted_update IN VARCHAR2 DEFAULT 'F',
3411:
3412: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_LINE';
3413: i NUMBER := 0;
3414: BEGIN
3415: OKC_API.init_msg_list(p_init_msg_list);
3416: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3417: IF (p_clev_tbl.COUNT>0) THEN
3418: i := p_clev_tbl.FIRST;
3419: LOOP
3412: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_LINE';
3413: i NUMBER := 0;
3414: BEGIN
3415: OKC_API.init_msg_list(p_init_msg_list);
3416: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3417: IF (p_clev_tbl.COUNT>0) THEN
3418: i := p_clev_tbl.FIRST;
3419: LOOP
3420: create_contract_line(p_api_version => p_api_version,
3417: IF (p_clev_tbl.COUNT>0) THEN
3418: i := p_clev_tbl.FIRST;
3419: LOOP
3420: create_contract_line(p_api_version => p_api_version,
3421: p_init_msg_list => OKC_API.G_FALSE,
3422: x_return_status => x_return_status,
3423: x_msg_count => x_msg_count,
3424: x_msg_data => x_msg_data,
3425: p_restricted_update => p_restricted_update,
3424: x_msg_data => x_msg_data,
3425: p_restricted_update => p_restricted_update,
3426: p_clev_rec =>p_clev_tbl(i),
3427: x_clev_rec =>x_clev_tbl(i));
3428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3429: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3431: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3432: END IF;
3425: p_restricted_update => p_restricted_update,
3426: p_clev_rec =>p_clev_tbl(i),
3427: x_clev_rec =>x_clev_tbl(i));
3428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3429: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3431: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3432: END IF;
3433: EXIT WHEN (i=p_clev_tbl.LAST);
3426: p_clev_rec =>p_clev_tbl(i),
3427: x_clev_rec =>x_clev_tbl(i));
3428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3429: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3431: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3432: END IF;
3433: EXIT WHEN (i=p_clev_tbl.LAST);
3434: i := p_clev_tbl.NEXT(i);
3427: x_clev_rec =>x_clev_tbl(i));
3428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3429: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3431: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3432: END IF;
3433: EXIT WHEN (i=p_clev_tbl.LAST);
3434: i := p_clev_tbl.NEXT(i);
3435: END LOOP;
3432: END IF;
3433: EXIT WHEN (i=p_clev_tbl.LAST);
3434: i := p_clev_tbl.NEXT(i);
3435: END LOOP;
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3433: EXIT WHEN (i=p_clev_tbl.LAST);
3434: i := p_clev_tbl.NEXT(i);
3435: END LOOP;
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3441: END IF;
3434: i := p_clev_tbl.NEXT(i);
3435: END LOOP;
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3441: END IF;
3442: EXCEPTION
3435: END LOOP;
3436: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3438: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3441: END IF;
3442: EXCEPTION
3443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3439: RAISE OKC_API.G_EXCEPTION_ERROR;
3440: END IF;
3441: END IF;
3442: EXCEPTION
3443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3444: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3445: l_api_name,
3446: G_PKG_NAME,
3447: 'OKC_API.G_RET_STS_ERROR',
3440: END IF;
3441: END IF;
3442: EXCEPTION
3443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3444: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3445: l_api_name,
3446: G_PKG_NAME,
3447: 'OKC_API.G_RET_STS_ERROR',
3448: x_msg_count,
3443: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3444: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3445: l_api_name,
3446: G_PKG_NAME,
3447: 'OKC_API.G_RET_STS_ERROR',
3448: x_msg_count,
3449: x_msg_data,
3450: '_PVT');
3451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3447: 'OKC_API.G_RET_STS_ERROR',
3448: x_msg_count,
3449: x_msg_data,
3450: '_PVT');
3451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3452: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3453: l_api_name,
3454: G_PKG_NAME,
3455: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3448: x_msg_count,
3449: x_msg_data,
3450: '_PVT');
3451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3452: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3453: l_api_name,
3454: G_PKG_NAME,
3455: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3456: x_msg_count,
3451: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3452: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3453: l_api_name,
3454: G_PKG_NAME,
3455: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3456: x_msg_count,
3457: x_msg_data,
3458: '_PVT');
3459: WHEN OTHERS THEN
3456: x_msg_count,
3457: x_msg_data,
3458: '_PVT');
3459: WHEN OTHERS THEN
3460: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3461: l_api_name,
3462: G_PKG_NAME,
3463: 'OTHERS',
3464: x_msg_count,
3467: END create_contract_line;
3468:
3469: PROCEDURE update_contract_line(
3470: p_api_version IN NUMBER,
3471: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3472: x_return_status OUT NOCOPY VARCHAR2,
3473: x_msg_count OUT NOCOPY NUMBER,
3474: x_msg_data OUT NOCOPY VARCHAR2,
3475: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3471: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3472: x_return_status OUT NOCOPY VARCHAR2,
3473: x_msg_count OUT NOCOPY NUMBER,
3474: x_msg_data OUT NOCOPY VARCHAR2,
3475: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3476: p_clev_rec IN clev_rec_type,
3477: x_clev_rec OUT NOCOPY clev_rec_type) IS
3478:
3479: l_clev_rec clev_rec_type;
3480: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3481: l_okc_clev_rec_out okc_contract_pub.clev_rec_type;
3482: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
3483: l_api_version CONSTANT NUMBER := 1.0;
3484: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3485: BEGIN
3486: -- call START_ACTIVITY to create savepoint, check compatibility
3487: -- and initialize message list
3488: l_return_status := OKC_API.START_ACTIVITY(
3484: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3485: BEGIN
3486: -- call START_ACTIVITY to create savepoint, check compatibility
3487: -- and initialize message list
3488: l_return_status := OKC_API.START_ACTIVITY(
3489: p_api_name => l_api_name,
3490: p_pkg_name => g_pkg_name,
3491: p_init_msg_list => p_init_msg_list,
3492: l_api_version => l_api_version,
3494: p_api_type => g_api_type,
3495: x_return_status => x_return_status);
3496:
3497: -- check if activity started successfully
3498: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3495: x_return_status => x_return_status);
3496:
3497: -- check if activity started successfully
3498: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3503:
3496:
3497: -- check if activity started successfully
3498: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3503:
3504:
3497: -- check if activity started successfully
3498: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3499: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3500: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3503:
3504:
3505: l_clev_rec := p_clev_rec;
3518: p_clev_rec => l_okc_clev_rec_in,
3519: x_clev_rec => l_okc_clev_rec_out);
3520:
3521: -- check return status
3522: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3523: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3524: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3525: RAISE OKC_API.G_EXCEPTION_ERROR;
3526: END IF;
3519: x_clev_rec => l_okc_clev_rec_out);
3520:
3521: -- check return status
3522: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3523: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3524: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3525: RAISE OKC_API.G_EXCEPTION_ERROR;
3526: END IF;
3527:
3520:
3521: -- check return status
3522: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3523: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3524: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3525: RAISE OKC_API.G_EXCEPTION_ERROR;
3526: END IF;
3527:
3528: migrate_clev(p_from => l_okc_clev_rec_out,
3521: -- check return status
3522: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3523: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3524: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3525: RAISE OKC_API.G_EXCEPTION_ERROR;
3526: END IF;
3527:
3528: migrate_clev(p_from => l_okc_clev_rec_out,
3529: p_to => x_clev_rec);
3527:
3528: migrate_clev(p_from => l_okc_clev_rec_out,
3529: p_to => x_clev_rec);
3530: -- end activity
3531: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3532: x_msg_data => x_msg_data);
3533: EXCEPTION
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3530: -- end activity
3531: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3532: x_msg_data => x_msg_data);
3533: EXCEPTION
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3536: p_api_name => l_api_name,
3537: p_pkg_name => g_pkg_name,
3538: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3531: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3532: x_msg_data => x_msg_data);
3533: EXCEPTION
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3536: p_api_name => l_api_name,
3537: p_pkg_name => g_pkg_name,
3538: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3539: x_msg_count => x_msg_count,
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3536: p_api_name => l_api_name,
3537: p_pkg_name => g_pkg_name,
3538: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3539: x_msg_count => x_msg_count,
3540: x_msg_data => x_msg_data,
3541: p_api_type => g_api_type);
3542:
3539: x_msg_count => x_msg_count,
3540: x_msg_data => x_msg_data,
3541: p_api_type => g_api_type);
3542:
3543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3544: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3545: p_api_name => l_api_name,
3546: p_pkg_name => g_pkg_name,
3547: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3540: x_msg_data => x_msg_data,
3541: p_api_type => g_api_type);
3542:
3543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3544: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3545: p_api_name => l_api_name,
3546: p_pkg_name => g_pkg_name,
3547: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3548: x_msg_count => x_msg_count,
3543: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3544: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3545: p_api_name => l_api_name,
3546: p_pkg_name => g_pkg_name,
3547: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3548: x_msg_count => x_msg_count,
3549: x_msg_data => x_msg_data,
3550: p_api_type => g_api_type);
3551:
3549: x_msg_data => x_msg_data,
3550: p_api_type => g_api_type);
3551:
3552: WHEN OTHERS THEN
3553: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3554: p_api_name => l_api_name,
3555: p_pkg_name => g_pkg_name,
3556: p_exc_name => 'OTHERS',
3557: x_msg_count => x_msg_count,
3561: END update_contract_line;
3562:
3563: PROCEDURE update_contract_line(
3564: p_api_version IN NUMBER,
3565: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3566: x_return_status OUT NOCOPY VARCHAR2,
3567: x_msg_count OUT NOCOPY NUMBER,
3568: x_msg_data OUT NOCOPY VARCHAR2,
3569: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3565: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3566: x_return_status OUT NOCOPY VARCHAR2,
3567: x_msg_count OUT NOCOPY NUMBER,
3568: x_msg_data OUT NOCOPY VARCHAR2,
3569: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3570: p_clev_tbl IN clev_tbl_type,
3571: x_clev_tbl OUT NOCOPY clev_tbl_type) AS
3572:
3573: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_LINE';
3572:
3573: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_LINE';
3574: i NUMBER := 0;
3575: BEGIN
3576: OKC_API.init_msg_list(p_init_msg_list);
3577: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3578: IF (p_clev_tbl.COUNT>0) THEN
3579: i := p_clev_tbl.FIRST;
3580: LOOP
3573: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_LINE';
3574: i NUMBER := 0;
3575: BEGIN
3576: OKC_API.init_msg_list(p_init_msg_list);
3577: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3578: IF (p_clev_tbl.COUNT>0) THEN
3579: i := p_clev_tbl.FIRST;
3580: LOOP
3581: update_contract_line(p_api_version =>p_api_version,
3578: IF (p_clev_tbl.COUNT>0) THEN
3579: i := p_clev_tbl.FIRST;
3580: LOOP
3581: update_contract_line(p_api_version =>p_api_version,
3582: p_init_msg_list =>OKC_API.G_FALSE,
3583: x_return_status =>x_return_status,
3584: x_msg_count =>x_msg_count,
3585: x_msg_data =>x_msg_data,
3586: p_restricted_update =>p_restricted_update,
3585: x_msg_data =>x_msg_data,
3586: p_restricted_update =>p_restricted_update,
3587: p_clev_rec =>p_clev_tbl(i),
3588: x_clev_rec =>x_clev_tbl(i));
3589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3593: END IF;
3586: p_restricted_update =>p_restricted_update,
3587: p_clev_rec =>p_clev_tbl(i),
3588: x_clev_rec =>x_clev_tbl(i));
3589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3593: END IF;
3594: EXIT WHEN (i=p_clev_tbl.LAST);
3587: p_clev_rec =>p_clev_tbl(i),
3588: x_clev_rec =>x_clev_tbl(i));
3589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3593: END IF;
3594: EXIT WHEN (i=p_clev_tbl.LAST);
3595: i := p_clev_tbl.NEXT(i);
3588: x_clev_rec =>x_clev_tbl(i));
3589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3590: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3592: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3593: END IF;
3594: EXIT WHEN (i=p_clev_tbl.LAST);
3595: i := p_clev_tbl.NEXT(i);
3596: END LOOP;
3593: END IF;
3594: EXIT WHEN (i=p_clev_tbl.LAST);
3595: i := p_clev_tbl.NEXT(i);
3596: END LOOP;
3597: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3594: EXIT WHEN (i=p_clev_tbl.LAST);
3595: i := p_clev_tbl.NEXT(i);
3596: END LOOP;
3597: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602: END IF;
3595: i := p_clev_tbl.NEXT(i);
3596: END LOOP;
3597: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602: END IF;
3603: EXCEPTION
3596: END LOOP;
3597: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: RAISE OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602: END IF;
3603: EXCEPTION
3604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3600: RAISE OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602: END IF;
3603: EXCEPTION
3604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3605: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_ERROR',
3601: END IF;
3602: END IF;
3603: EXCEPTION
3604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3605: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_ERROR',
3609: x_msg_count,
3604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3605: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3606: l_api_name,
3607: G_PKG_NAME,
3608: 'OKC_API.G_RET_STS_ERROR',
3609: x_msg_count,
3610: x_msg_data,
3611: '_PVT');
3612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3608: 'OKC_API.G_RET_STS_ERROR',
3609: x_msg_count,
3610: x_msg_data,
3611: '_PVT');
3612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3613: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3614: l_api_name,
3615: G_PKG_NAME,
3616: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3609: x_msg_count,
3610: x_msg_data,
3611: '_PVT');
3612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3613: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3614: l_api_name,
3615: G_PKG_NAME,
3616: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3617: x_msg_count,
3612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3613: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3614: l_api_name,
3615: G_PKG_NAME,
3616: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3617: x_msg_count,
3618: x_msg_data,
3619: '_PVT');
3620: WHEN OTHERS THEN
3617: x_msg_count,
3618: x_msg_data,
3619: '_PVT');
3620: WHEN OTHERS THEN
3621: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3622: l_api_name,
3623: G_PKG_NAME,
3624: 'OTHERS',
3625: x_msg_count,
3629:
3630:
3631: PROCEDURE delete_contract_line(
3632: p_api_version IN NUMBER,
3633: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3634: x_return_status OUT NOCOPY VARCHAR2,
3635: x_msg_count OUT NOCOPY NUMBER,
3636: x_msg_data OUT NOCOPY VARCHAR2,
3637: p_clev_rec IN clev_rec_type) IS
3640: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3641: l_okc_clev_rec_out okc_contract_pub.clev_rec_type;
3642: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
3643: l_api_version CONSTANT NUMBER := 1.0;
3644: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3645: BEGIN
3646: -- call START_ACTIVITY to create savepoint, check compatibility
3647: -- and initialize message list
3648: l_return_status := OKC_API.START_ACTIVITY(
3644: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3645: BEGIN
3646: -- call START_ACTIVITY to create savepoint, check compatibility
3647: -- and initialize message list
3648: l_return_status := OKC_API.START_ACTIVITY(
3649: p_api_name => l_api_name,
3650: p_pkg_name => g_pkg_name,
3651: p_init_msg_list => p_init_msg_list,
3652: l_api_version => l_api_version,
3654: p_api_type => g_api_type,
3655: x_return_status => x_return_status);
3656:
3657: -- check if activity started successfully
3658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3661: RAISE OKC_API.G_EXCEPTION_ERROR;
3662: END IF;
3655: x_return_status => x_return_status);
3656:
3657: -- check if activity started successfully
3658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3661: RAISE OKC_API.G_EXCEPTION_ERROR;
3662: END IF;
3663:
3656:
3657: -- check if activity started successfully
3658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3661: RAISE OKC_API.G_EXCEPTION_ERROR;
3662: END IF;
3663:
3664: l_clev_rec := p_clev_rec;
3657: -- check if activity started successfully
3658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3661: RAISE OKC_API.G_EXCEPTION_ERROR;
3662: END IF;
3663:
3664: l_clev_rec := p_clev_rec;
3665: migrate_clev(p_from => l_clev_rec,
3675: x_msg_data => x_msg_data,
3676: p_clev_rec => l_okc_clev_rec_in);
3677:
3678: -- check return status
3679: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3682: RAISE OKC_API.G_EXCEPTION_ERROR;
3683: END IF;
3676: p_clev_rec => l_okc_clev_rec_in);
3677:
3678: -- check return status
3679: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3682: RAISE OKC_API.G_EXCEPTION_ERROR;
3683: END IF;
3684:
3677:
3678: -- check return status
3679: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3682: RAISE OKC_API.G_EXCEPTION_ERROR;
3683: END IF;
3684:
3685:
3678: -- check return status
3679: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3681: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3682: RAISE OKC_API.G_EXCEPTION_ERROR;
3683: END IF;
3684:
3685:
3686: -- end activity
3683: END IF;
3684:
3685:
3686: -- end activity
3687: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3688: x_msg_data => x_msg_data);
3689: EXCEPTION
3690: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3691: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3686: -- end activity
3687: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3688: x_msg_data => x_msg_data);
3689: EXCEPTION
3690: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3691: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3692: p_api_name => l_api_name,
3693: p_pkg_name => g_pkg_name,
3694: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3687: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3688: x_msg_data => x_msg_data);
3689: EXCEPTION
3690: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3691: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3692: p_api_name => l_api_name,
3693: p_pkg_name => g_pkg_name,
3694: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3695: x_msg_count => x_msg_count,
3690: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3691: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3692: p_api_name => l_api_name,
3693: p_pkg_name => g_pkg_name,
3694: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3695: x_msg_count => x_msg_count,
3696: x_msg_data => x_msg_data,
3697: p_api_type => g_api_type);
3698:
3695: x_msg_count => x_msg_count,
3696: x_msg_data => x_msg_data,
3697: p_api_type => g_api_type);
3698:
3699: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3700: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3701: p_api_name => l_api_name,
3702: p_pkg_name => g_pkg_name,
3703: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3696: x_msg_data => x_msg_data,
3697: p_api_type => g_api_type);
3698:
3699: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3700: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3701: p_api_name => l_api_name,
3702: p_pkg_name => g_pkg_name,
3703: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3704: x_msg_count => x_msg_count,
3699: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3700: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3701: p_api_name => l_api_name,
3702: p_pkg_name => g_pkg_name,
3703: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3704: x_msg_count => x_msg_count,
3705: x_msg_data => x_msg_data,
3706: p_api_type => g_api_type);
3707:
3705: x_msg_data => x_msg_data,
3706: p_api_type => g_api_type);
3707:
3708: WHEN OTHERS THEN
3709: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3710: p_api_name => l_api_name,
3711: p_pkg_name => g_pkg_name,
3712: p_exc_name => 'OTHERS',
3713: x_msg_count => x_msg_count,
3717: END delete_contract_line;
3718:
3719: PROCEDURE delete_contract_line(
3720: p_api_version IN NUMBER,
3721: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3722: x_return_status OUT NOCOPY VARCHAR2,
3723: x_msg_count OUT NOCOPY NUMBER,
3724: x_msg_data OUT NOCOPY VARCHAR2,
3725: p_clev_tbl IN clev_tbl_type) AS
3726:
3727: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_LINE';
3728: i NUMBER := 0;
3729: BEGIN
3730: OKC_API.init_msg_list(p_init_msg_list);
3731: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3732: IF (p_clev_tbl.COUNT>0) THEN
3733: i := p_clev_tbl.FIRST;
3734: LOOP
3727: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_LINE';
3728: i NUMBER := 0;
3729: BEGIN
3730: OKC_API.init_msg_list(p_init_msg_list);
3731: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3732: IF (p_clev_tbl.COUNT>0) THEN
3733: i := p_clev_tbl.FIRST;
3734: LOOP
3735: delete_contract_line(p_api_version =>p_api_version,
3732: IF (p_clev_tbl.COUNT>0) THEN
3733: i := p_clev_tbl.FIRST;
3734: LOOP
3735: delete_contract_line(p_api_version =>p_api_version,
3736: p_init_msg_list =>OKC_API.G_FALSE,
3737: x_return_status =>x_return_status,
3738: x_msg_count =>x_msg_count,
3739: x_msg_data =>x_msg_data,
3740: p_clev_rec =>p_clev_tbl(i));
3737: x_return_status =>x_return_status,
3738: x_msg_count =>x_msg_count,
3739: x_msg_data =>x_msg_data,
3740: p_clev_rec =>p_clev_tbl(i));
3741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3742: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3744: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3745: END IF;
3738: x_msg_count =>x_msg_count,
3739: x_msg_data =>x_msg_data,
3740: p_clev_rec =>p_clev_tbl(i));
3741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3742: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3744: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3745: END IF;
3746: EXIT WHEN (i=p_clev_tbl.LAST);
3739: x_msg_data =>x_msg_data,
3740: p_clev_rec =>p_clev_tbl(i));
3741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3742: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3744: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3745: END IF;
3746: EXIT WHEN (i=p_clev_tbl.LAST);
3747: i := p_clev_tbl.NEXT(i);
3740: p_clev_rec =>p_clev_tbl(i));
3741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3742: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3744: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3745: END IF;
3746: EXIT WHEN (i=p_clev_tbl.LAST);
3747: i := p_clev_tbl.NEXT(i);
3748: END LOOP;
3745: END IF;
3746: EXIT WHEN (i=p_clev_tbl.LAST);
3747: i := p_clev_tbl.NEXT(i);
3748: END LOOP;
3749: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3752: RAISE OKC_API.G_EXCEPTION_ERROR;
3753: END IF;
3746: EXIT WHEN (i=p_clev_tbl.LAST);
3747: i := p_clev_tbl.NEXT(i);
3748: END LOOP;
3749: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3752: RAISE OKC_API.G_EXCEPTION_ERROR;
3753: END IF;
3754: END IF;
3747: i := p_clev_tbl.NEXT(i);
3748: END LOOP;
3749: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3752: RAISE OKC_API.G_EXCEPTION_ERROR;
3753: END IF;
3754: END IF;
3755: EXCEPTION
3748: END LOOP;
3749: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3752: RAISE OKC_API.G_EXCEPTION_ERROR;
3753: END IF;
3754: END IF;
3755: EXCEPTION
3756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3752: RAISE OKC_API.G_EXCEPTION_ERROR;
3753: END IF;
3754: END IF;
3755: EXCEPTION
3756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3757: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3758: l_api_name,
3759: G_PKG_NAME,
3760: 'OKC_API.G_RET_STS_ERROR',
3753: END IF;
3754: END IF;
3755: EXCEPTION
3756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3757: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3758: l_api_name,
3759: G_PKG_NAME,
3760: 'OKC_API.G_RET_STS_ERROR',
3761: x_msg_count,
3756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3757: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3758: l_api_name,
3759: G_PKG_NAME,
3760: 'OKC_API.G_RET_STS_ERROR',
3761: x_msg_count,
3762: x_msg_data,
3763: '_PVT');
3764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3760: 'OKC_API.G_RET_STS_ERROR',
3761: x_msg_count,
3762: x_msg_data,
3763: '_PVT');
3764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3765: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3766: l_api_name,
3767: G_PKG_NAME,
3768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3761: x_msg_count,
3762: x_msg_data,
3763: '_PVT');
3764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3765: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3766: l_api_name,
3767: G_PKG_NAME,
3768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3769: x_msg_count,
3764: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3765: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3766: l_api_name,
3767: G_PKG_NAME,
3768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3769: x_msg_count,
3770: x_msg_data,
3771: '_PVT');
3772: WHEN OTHERS THEN
3769: x_msg_count,
3770: x_msg_data,
3771: '_PVT');
3772: WHEN OTHERS THEN
3773: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3774: l_api_name,
3775: G_PKG_NAME,
3776: 'OTHERS',
3777: x_msg_count,
3781:
3782:
3783: PROCEDURE lock_contract_line(
3784: p_api_version IN NUMBER,
3785: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3786: x_return_status OUT NOCOPY VARCHAR2,
3787: x_msg_count OUT NOCOPY NUMBER,
3788: x_msg_data OUT NOCOPY VARCHAR2,
3789: p_clev_rec IN clev_rec_type) IS
3791: l_clev_rec clev_rec_type;
3792: l_okc_clev_rec_in OKC_CONTRACT_PUB.clev_rec_type;
3793: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_LINE';
3794: l_api_version CONSTANT NUMBER := 1.0;
3795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3796: BEGIN
3797: -- call START_ACTIVITY to create savepoint, check compatibility
3798: -- and initialize message list
3799: l_return_status := OKC_API.START_ACTIVITY(
3795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3796: BEGIN
3797: -- call START_ACTIVITY to create savepoint, check compatibility
3798: -- and initialize message list
3799: l_return_status := OKC_API.START_ACTIVITY(
3800: p_api_name => l_api_name,
3801: p_pkg_name => g_pkg_name,
3802: p_init_msg_list => p_init_msg_list,
3803: l_api_version => l_api_version,
3805: p_api_type => g_api_type,
3806: x_return_status => x_return_status);
3807:
3808: -- check if activity started successfully
3809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3806: x_return_status => x_return_status);
3807:
3808: -- check if activity started successfully
3809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3814:
3807:
3808: -- check if activity started successfully
3809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3814:
3815: l_clev_rec := p_clev_rec;
3808: -- check if activity started successfully
3809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3814:
3815: l_clev_rec := p_clev_rec;
3816: migrate_clev(p_from => l_clev_rec,
3824: x_msg_data => x_msg_data,
3825: p_clev_rec => l_okc_clev_rec_in);
3826:
3827: -- check return status
3828: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3831: RAISE OKC_API.G_EXCEPTION_ERROR;
3832: END IF;
3825: p_clev_rec => l_okc_clev_rec_in);
3826:
3827: -- check return status
3828: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3831: RAISE OKC_API.G_EXCEPTION_ERROR;
3832: END IF;
3833:
3826:
3827: -- check return status
3828: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3831: RAISE OKC_API.G_EXCEPTION_ERROR;
3832: END IF;
3833:
3834: -- end activity
3827: -- check return status
3828: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3829: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3830: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3831: RAISE OKC_API.G_EXCEPTION_ERROR;
3832: END IF;
3833:
3834: -- end activity
3835: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3831: RAISE OKC_API.G_EXCEPTION_ERROR;
3832: END IF;
3833:
3834: -- end activity
3835: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3836: x_msg_data => x_msg_data);
3837: EXCEPTION
3838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3839: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3834: -- end activity
3835: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3836: x_msg_data => x_msg_data);
3837: EXCEPTION
3838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3839: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3840: p_api_name => l_api_name,
3841: p_pkg_name => g_pkg_name,
3842: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3835: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3836: x_msg_data => x_msg_data);
3837: EXCEPTION
3838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3839: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3840: p_api_name => l_api_name,
3841: p_pkg_name => g_pkg_name,
3842: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3843: x_msg_count => x_msg_count,
3838: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3839: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3840: p_api_name => l_api_name,
3841: p_pkg_name => g_pkg_name,
3842: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3843: x_msg_count => x_msg_count,
3844: x_msg_data => x_msg_data,
3845: p_api_type => g_api_type);
3846:
3843: x_msg_count => x_msg_count,
3844: x_msg_data => x_msg_data,
3845: p_api_type => g_api_type);
3846:
3847: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3848: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3849: p_api_name => l_api_name,
3850: p_pkg_name => g_pkg_name,
3851: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3844: x_msg_data => x_msg_data,
3845: p_api_type => g_api_type);
3846:
3847: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3848: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3849: p_api_name => l_api_name,
3850: p_pkg_name => g_pkg_name,
3851: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3852: x_msg_count => x_msg_count,
3847: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3848: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3849: p_api_name => l_api_name,
3850: p_pkg_name => g_pkg_name,
3851: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3852: x_msg_count => x_msg_count,
3853: x_msg_data => x_msg_data,
3854: p_api_type => g_api_type);
3855:
3853: x_msg_data => x_msg_data,
3854: p_api_type => g_api_type);
3855:
3856: WHEN OTHERS THEN
3857: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3858: p_api_name => l_api_name,
3859: p_pkg_name => g_pkg_name,
3860: p_exc_name => 'OTHERS',
3861: x_msg_count => x_msg_count,
3866:
3867:
3868: PROCEDURE validate_contract_line(
3869: p_api_version IN NUMBER,
3870: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3871: x_return_status OUT NOCOPY VARCHAR2,
3872: x_msg_count OUT NOCOPY NUMBER,
3873: x_msg_data OUT NOCOPY VARCHAR2,
3874: p_clev_rec IN clev_rec_type) IS
3876: l_clev_rec clev_rec_type;
3877: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3878: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
3879: l_api_version CONSTANT NUMBER := 1.0;
3880: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3881: BEGIN
3882: -- call START_ACTIVITY to create savepoint, check compatibility
3883: -- and initialize message list
3884: l_return_status := OKC_API.START_ACTIVITY(
3880: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3881: BEGIN
3882: -- call START_ACTIVITY to create savepoint, check compatibility
3883: -- and initialize message list
3884: l_return_status := OKC_API.START_ACTIVITY(
3885: p_api_name => l_api_name,
3886: p_pkg_name => g_pkg_name,
3887: p_init_msg_list => p_init_msg_list,
3888: l_api_version => l_api_version,
3890: p_api_type => g_api_type,
3891: x_return_status => x_return_status);
3892:
3893: -- check if activity started successfully
3894: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3896: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3897: RAISE OKC_API.G_EXCEPTION_ERROR;
3898: END IF;
3891: x_return_status => x_return_status);
3892:
3893: -- check if activity started successfully
3894: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3896: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3897: RAISE OKC_API.G_EXCEPTION_ERROR;
3898: END IF;
3899:
3892:
3893: -- check if activity started successfully
3894: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3896: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3897: RAISE OKC_API.G_EXCEPTION_ERROR;
3898: END IF;
3899:
3900: l_clev_rec := p_clev_rec;
3893: -- check if activity started successfully
3894: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3895: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3896: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3897: RAISE OKC_API.G_EXCEPTION_ERROR;
3898: END IF;
3899:
3900: l_clev_rec := p_clev_rec;
3901: migrate_clev(p_from => l_clev_rec,
3910: x_msg_data => x_msg_data,
3911: p_clev_rec => l_okc_clev_rec_in);
3912:
3913: -- check return status
3914: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3916: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3917: RAISE OKC_API.G_EXCEPTION_ERROR;
3918: END IF;
3911: p_clev_rec => l_okc_clev_rec_in);
3912:
3913: -- check return status
3914: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3916: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3917: RAISE OKC_API.G_EXCEPTION_ERROR;
3918: END IF;
3919:
3912:
3913: -- check return status
3914: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3916: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3917: RAISE OKC_API.G_EXCEPTION_ERROR;
3918: END IF;
3919:
3920: -- end activity
3913: -- check return status
3914: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3916: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3917: RAISE OKC_API.G_EXCEPTION_ERROR;
3918: END IF;
3919:
3920: -- end activity
3921: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3917: RAISE OKC_API.G_EXCEPTION_ERROR;
3918: END IF;
3919:
3920: -- end activity
3921: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3922: x_msg_data => x_msg_data);
3923: EXCEPTION
3924: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3925: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3920: -- end activity
3921: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3922: x_msg_data => x_msg_data);
3923: EXCEPTION
3924: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3925: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3926: p_api_name => l_api_name,
3927: p_pkg_name => g_pkg_name,
3928: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3921: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3922: x_msg_data => x_msg_data);
3923: EXCEPTION
3924: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3925: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3926: p_api_name => l_api_name,
3927: p_pkg_name => g_pkg_name,
3928: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3929: x_msg_count => x_msg_count,
3924: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3925: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3926: p_api_name => l_api_name,
3927: p_pkg_name => g_pkg_name,
3928: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3929: x_msg_count => x_msg_count,
3930: x_msg_data => x_msg_data,
3931: p_api_type => g_api_type);
3932:
3929: x_msg_count => x_msg_count,
3930: x_msg_data => x_msg_data,
3931: p_api_type => g_api_type);
3932:
3933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3934: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3935: p_api_name => l_api_name,
3936: p_pkg_name => g_pkg_name,
3937: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3930: x_msg_data => x_msg_data,
3931: p_api_type => g_api_type);
3932:
3933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3934: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3935: p_api_name => l_api_name,
3936: p_pkg_name => g_pkg_name,
3937: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3938: x_msg_count => x_msg_count,
3933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3934: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3935: p_api_name => l_api_name,
3936: p_pkg_name => g_pkg_name,
3937: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3938: x_msg_count => x_msg_count,
3939: x_msg_data => x_msg_data,
3940: p_api_type => g_api_type);
3941:
3939: x_msg_data => x_msg_data,
3940: p_api_type => g_api_type);
3941:
3942: WHEN OTHERS THEN
3943: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3944: p_api_name => l_api_name,
3945: p_pkg_name => g_pkg_name,
3946: p_exc_name => 'OTHERS',
3947: x_msg_count => x_msg_count,
3951: END validate_contract_line;
3952:
3953: PROCEDURE create_governance(
3954: p_api_version IN NUMBER,
3955: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3956: x_return_status OUT NOCOPY VARCHAR2,
3957: x_msg_count OUT NOCOPY NUMBER,
3958: x_msg_data OUT NOCOPY VARCHAR2,
3959: p_gvev_rec IN gvev_rec_type,
3963: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
3964: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
3965: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
3966: l_api_version CONSTANT NUMBER := 1.0;
3967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3968: BEGIN
3969: -- call START_ACTIVITY to create savepoint, check compatibility
3970: -- and initialize message list
3971: l_return_status := OKC_API.START_ACTIVITY(
3967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3968: BEGIN
3969: -- call START_ACTIVITY to create savepoint, check compatibility
3970: -- and initialize message list
3971: l_return_status := OKC_API.START_ACTIVITY(
3972: p_api_name => l_api_name,
3973: p_pkg_name => g_pkg_name,
3974: p_init_msg_list => p_init_msg_list,
3975: l_api_version => l_api_version,
3977: p_api_type => g_api_type,
3978: x_return_status => x_return_status);
3979:
3980: -- check if activity started successfully
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3978: x_return_status => x_return_status);
3979:
3980: -- check if activity started successfully
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3986:
3979:
3980: -- check if activity started successfully
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3986:
3987: l_gvev_rec := p_gvev_rec;
3980: -- check if activity started successfully
3981: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3982: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3983: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3984: RAISE OKC_API.G_EXCEPTION_ERROR;
3985: END IF;
3986:
3987: l_gvev_rec := p_gvev_rec;
3988: migrate_gvev(p_from => l_gvev_rec,
3998: p_gvev_rec => l_okc_gvev_rec_in,
3999: x_gvev_rec => l_okc_gvev_rec_out);
4000:
4001: -- check return status
4002: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4005: RAISE OKC_API.G_EXCEPTION_ERROR;
4006: END IF;
3999: x_gvev_rec => l_okc_gvev_rec_out);
4000:
4001: -- check return status
4002: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4005: RAISE OKC_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4000:
4001: -- check return status
4002: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4005: RAISE OKC_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4008: migrate_gvev(p_from => l_okc_gvev_rec_out,
4001: -- check return status
4002: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4003: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4005: RAISE OKC_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4008: migrate_gvev(p_from => l_okc_gvev_rec_out,
4009: p_to => x_gvev_rec);
4008: migrate_gvev(p_from => l_okc_gvev_rec_out,
4009: p_to => x_gvev_rec);
4010:
4011: -- end activity
4012: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4013: x_msg_data => x_msg_data);
4014: EXCEPTION
4015: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4016: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4011: -- end activity
4012: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4013: x_msg_data => x_msg_data);
4014: EXCEPTION
4015: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4016: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4017: p_api_name => l_api_name,
4018: p_pkg_name => g_pkg_name,
4019: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4012: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4013: x_msg_data => x_msg_data);
4014: EXCEPTION
4015: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4016: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4017: p_api_name => l_api_name,
4018: p_pkg_name => g_pkg_name,
4019: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4020: x_msg_count => x_msg_count,
4015: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4016: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4017: p_api_name => l_api_name,
4018: p_pkg_name => g_pkg_name,
4019: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4020: x_msg_count => x_msg_count,
4021: x_msg_data => x_msg_data,
4022: p_api_type => g_api_type);
4023:
4020: x_msg_count => x_msg_count,
4021: x_msg_data => x_msg_data,
4022: p_api_type => g_api_type);
4023:
4024: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4025: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4026: p_api_name => l_api_name,
4027: p_pkg_name => g_pkg_name,
4028: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4021: x_msg_data => x_msg_data,
4022: p_api_type => g_api_type);
4023:
4024: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4025: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4026: p_api_name => l_api_name,
4027: p_pkg_name => g_pkg_name,
4028: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4029: x_msg_count => x_msg_count,
4024: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4025: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4026: p_api_name => l_api_name,
4027: p_pkg_name => g_pkg_name,
4028: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4029: x_msg_count => x_msg_count,
4030: x_msg_data => x_msg_data,
4031: p_api_type => g_api_type);
4032:
4030: x_msg_data => x_msg_data,
4031: p_api_type => g_api_type);
4032:
4033: WHEN OTHERS THEN
4034: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4035: p_api_name => l_api_name,
4036: p_pkg_name => g_pkg_name,
4037: p_exc_name => 'OTHERS',
4038: x_msg_count => x_msg_count,
4042: END create_governance;
4043:
4044: PROCEDURE update_governance(
4045: p_api_version IN NUMBER,
4046: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4047: x_return_status OUT NOCOPY VARCHAR2,
4048: x_msg_count OUT NOCOPY NUMBER,
4049: x_msg_data OUT NOCOPY VARCHAR2,
4050: p_gvev_rec IN gvev_rec_type,
4054: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4055: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4056: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
4057: l_api_version CONSTANT NUMBER := 1.0;
4058: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4059: BEGIN
4060: -- call START_ACTIVITY to create savepoint, check compatibility
4061: -- and initialize message list
4062: l_return_status := OKC_API.START_ACTIVITY(
4058: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4059: BEGIN
4060: -- call START_ACTIVITY to create savepoint, check compatibility
4061: -- and initialize message list
4062: l_return_status := OKC_API.START_ACTIVITY(
4063: p_api_name => l_api_name,
4064: p_pkg_name => g_pkg_name,
4065: p_init_msg_list => p_init_msg_list,
4066: l_api_version => l_api_version,
4068: p_api_type => g_api_type,
4069: x_return_status => x_return_status);
4070:
4071: -- check if activity started successfully
4072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4069: x_return_status => x_return_status);
4070:
4071: -- check if activity started successfully
4072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4077:
4070:
4071: -- check if activity started successfully
4072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4077:
4078: l_gvev_rec := p_gvev_rec;
4071: -- check if activity started successfully
4072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4075: RAISE OKC_API.G_EXCEPTION_ERROR;
4076: END IF;
4077:
4078: l_gvev_rec := p_gvev_rec;
4079:
4090: p_gvev_rec => l_okc_gvev_rec_in,
4091: x_gvev_rec => l_okc_gvev_rec_out);
4092:
4093: -- check return status
4094: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4091: x_gvev_rec => l_okc_gvev_rec_out);
4092:
4093: -- check return status
4094: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4099:
4092:
4093: -- check return status
4094: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4099:
4100: migrate_gvev(p_from => l_okc_gvev_rec_out,
4093: -- check return status
4094: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4099:
4100: migrate_gvev(p_from => l_okc_gvev_rec_out,
4101: p_to => x_gvev_rec);
4100: migrate_gvev(p_from => l_okc_gvev_rec_out,
4101: p_to => x_gvev_rec);
4102:
4103: -- end activity
4104: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4105: x_msg_data => x_msg_data);
4106: EXCEPTION
4107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4103: -- end activity
4104: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4105: x_msg_data => x_msg_data);
4106: EXCEPTION
4107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4109: p_api_name => l_api_name,
4110: p_pkg_name => g_pkg_name,
4111: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4104: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4105: x_msg_data => x_msg_data);
4106: EXCEPTION
4107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4109: p_api_name => l_api_name,
4110: p_pkg_name => g_pkg_name,
4111: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4112: x_msg_count => x_msg_count,
4107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4109: p_api_name => l_api_name,
4110: p_pkg_name => g_pkg_name,
4111: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4112: x_msg_count => x_msg_count,
4113: x_msg_data => x_msg_data,
4114: p_api_type => g_api_type);
4115:
4112: x_msg_count => x_msg_count,
4113: x_msg_data => x_msg_data,
4114: p_api_type => g_api_type);
4115:
4116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4118: p_api_name => l_api_name,
4119: p_pkg_name => g_pkg_name,
4120: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4113: x_msg_data => x_msg_data,
4114: p_api_type => g_api_type);
4115:
4116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4118: p_api_name => l_api_name,
4119: p_pkg_name => g_pkg_name,
4120: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4121: x_msg_count => x_msg_count,
4116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4118: p_api_name => l_api_name,
4119: p_pkg_name => g_pkg_name,
4120: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4121: x_msg_count => x_msg_count,
4122: x_msg_data => x_msg_data,
4123: p_api_type => g_api_type);
4124:
4122: x_msg_data => x_msg_data,
4123: p_api_type => g_api_type);
4124:
4125: WHEN OTHERS THEN
4126: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4127: p_api_name => l_api_name,
4128: p_pkg_name => g_pkg_name,
4129: p_exc_name => 'OTHERS',
4130: x_msg_count => x_msg_count,
4135:
4136:
4137: PROCEDURE delete_governance(
4138: p_api_version IN NUMBER,
4139: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4140: x_return_status OUT NOCOPY VARCHAR2,
4141: x_msg_count OUT NOCOPY NUMBER,
4142: x_msg_data OUT NOCOPY VARCHAR2,
4143: p_gvev_rec IN gvev_rec_type) IS
4146: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4147: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4148: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
4149: l_api_version CONSTANT NUMBER := 1.0;
4150: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4151: BEGIN
4152: -- call START_ACTIVITY to create savepoint, check compatibility
4153: -- and initialize message list
4154: l_return_status := OKC_API.START_ACTIVITY(
4150: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4151: BEGIN
4152: -- call START_ACTIVITY to create savepoint, check compatibility
4153: -- and initialize message list
4154: l_return_status := OKC_API.START_ACTIVITY(
4155: p_api_name => l_api_name,
4156: p_pkg_name => g_pkg_name,
4157: p_init_msg_list => p_init_msg_list,
4158: l_api_version => l_api_version,
4160: p_api_type => g_api_type,
4161: x_return_status => x_return_status);
4162:
4163: -- check if activity started successfully
4164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: END IF;
4161: x_return_status => x_return_status);
4162:
4163: -- check if activity started successfully
4164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: END IF;
4169:
4162:
4163: -- check if activity started successfully
4164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: END IF;
4169:
4170: l_gvev_rec := p_gvev_rec;
4163: -- check if activity started successfully
4164: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4165: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4166: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4167: RAISE OKC_API.G_EXCEPTION_ERROR;
4168: END IF;
4169:
4170: l_gvev_rec := p_gvev_rec;
4171: migrate_gvev(p_from => l_gvev_rec,
4180: x_msg_data => x_msg_data,
4181: p_gvev_rec => l_okc_gvev_rec_in);
4182:
4183: -- check return status
4184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4187: RAISE OKC_API.G_EXCEPTION_ERROR;
4188: END IF;
4181: p_gvev_rec => l_okc_gvev_rec_in);
4182:
4183: -- check return status
4184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4187: RAISE OKC_API.G_EXCEPTION_ERROR;
4188: END IF;
4189:
4182:
4183: -- check return status
4184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4187: RAISE OKC_API.G_EXCEPTION_ERROR;
4188: END IF;
4189:
4190:
4183: -- check return status
4184: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4185: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4186: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4187: RAISE OKC_API.G_EXCEPTION_ERROR;
4188: END IF;
4189:
4190:
4191: -- end activity
4188: END IF;
4189:
4190:
4191: -- end activity
4192: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4193: x_msg_data => x_msg_data);
4194: EXCEPTION
4195: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4196: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4191: -- end activity
4192: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4193: x_msg_data => x_msg_data);
4194: EXCEPTION
4195: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4196: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4197: p_api_name => l_api_name,
4198: p_pkg_name => g_pkg_name,
4199: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4192: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4193: x_msg_data => x_msg_data);
4194: EXCEPTION
4195: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4196: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4197: p_api_name => l_api_name,
4198: p_pkg_name => g_pkg_name,
4199: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4200: x_msg_count => x_msg_count,
4195: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4196: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4197: p_api_name => l_api_name,
4198: p_pkg_name => g_pkg_name,
4199: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4200: x_msg_count => x_msg_count,
4201: x_msg_data => x_msg_data,
4202: p_api_type => g_api_type);
4203:
4200: x_msg_count => x_msg_count,
4201: x_msg_data => x_msg_data,
4202: p_api_type => g_api_type);
4203:
4204: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4205: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4206: p_api_name => l_api_name,
4207: p_pkg_name => g_pkg_name,
4208: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4201: x_msg_data => x_msg_data,
4202: p_api_type => g_api_type);
4203:
4204: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4205: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4206: p_api_name => l_api_name,
4207: p_pkg_name => g_pkg_name,
4208: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4209: x_msg_count => x_msg_count,
4204: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4205: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4206: p_api_name => l_api_name,
4207: p_pkg_name => g_pkg_name,
4208: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4209: x_msg_count => x_msg_count,
4210: x_msg_data => x_msg_data,
4211: p_api_type => g_api_type);
4212:
4210: x_msg_data => x_msg_data,
4211: p_api_type => g_api_type);
4212:
4213: WHEN OTHERS THEN
4214: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4215: p_api_name => l_api_name,
4216: p_pkg_name => g_pkg_name,
4217: p_exc_name => 'OTHERS',
4218: x_msg_count => x_msg_count,
4223:
4224:
4225: PROCEDURE lock_governance(
4226: p_api_version IN NUMBER,
4227: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4228: x_return_status OUT NOCOPY VARCHAR2,
4229: x_msg_count OUT NOCOPY NUMBER,
4230: x_msg_data OUT NOCOPY VARCHAR2,
4231: p_gvev_rec IN gvev_rec_type) IS
4234: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4235: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4236: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
4237: l_api_version CONSTANT NUMBER := 1.0;
4238: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4239: BEGIN
4240: -- call START_ACTIVITY to create savepoint, check compatibility
4241: -- and initialize message list
4242: l_return_status := OKC_API.START_ACTIVITY(
4238: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4239: BEGIN
4240: -- call START_ACTIVITY to create savepoint, check compatibility
4241: -- and initialize message list
4242: l_return_status := OKC_API.START_ACTIVITY(
4243: p_api_name => l_api_name,
4244: p_pkg_name => g_pkg_name,
4245: p_init_msg_list => p_init_msg_list,
4246: l_api_version => l_api_version,
4248: p_api_type => g_api_type,
4249: x_return_status => x_return_status);
4250:
4251: -- check if activity started successfully
4252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4255: RAISE OKC_API.G_EXCEPTION_ERROR;
4256: END IF;
4249: x_return_status => x_return_status);
4250:
4251: -- check if activity started successfully
4252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4255: RAISE OKC_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4250:
4251: -- check if activity started successfully
4252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4255: RAISE OKC_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4258:
4251: -- check if activity started successfully
4252: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4255: RAISE OKC_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4258:
4259: l_gvev_rec := p_gvev_rec;
4268: x_msg_data => x_msg_data,
4269: p_gvev_rec => l_okc_gvev_rec_in);
4270:
4271: -- check return status
4272: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4275: RAISE OKC_API.G_EXCEPTION_ERROR;
4276: END IF;
4269: p_gvev_rec => l_okc_gvev_rec_in);
4270:
4271: -- check return status
4272: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4275: RAISE OKC_API.G_EXCEPTION_ERROR;
4276: END IF;
4277:
4270:
4271: -- check return status
4272: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4275: RAISE OKC_API.G_EXCEPTION_ERROR;
4276: END IF;
4277:
4278: -- end activity
4271: -- check return status
4272: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4274: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4275: RAISE OKC_API.G_EXCEPTION_ERROR;
4276: END IF;
4277:
4278: -- end activity
4279: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4275: RAISE OKC_API.G_EXCEPTION_ERROR;
4276: END IF;
4277:
4278: -- end activity
4279: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4280: x_msg_data => x_msg_data);
4281: EXCEPTION
4282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4283: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4278: -- end activity
4279: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4280: x_msg_data => x_msg_data);
4281: EXCEPTION
4282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4283: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4284: p_api_name => l_api_name,
4285: p_pkg_name => g_pkg_name,
4286: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4279: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4280: x_msg_data => x_msg_data);
4281: EXCEPTION
4282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4283: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4284: p_api_name => l_api_name,
4285: p_pkg_name => g_pkg_name,
4286: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4287: x_msg_count => x_msg_count,
4282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4283: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4284: p_api_name => l_api_name,
4285: p_pkg_name => g_pkg_name,
4286: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4287: x_msg_count => x_msg_count,
4288: x_msg_data => x_msg_data,
4289: p_api_type => g_api_type);
4290:
4287: x_msg_count => x_msg_count,
4288: x_msg_data => x_msg_data,
4289: p_api_type => g_api_type);
4290:
4291: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4292: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4293: p_api_name => l_api_name,
4294: p_pkg_name => g_pkg_name,
4295: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4288: x_msg_data => x_msg_data,
4289: p_api_type => g_api_type);
4290:
4291: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4292: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4293: p_api_name => l_api_name,
4294: p_pkg_name => g_pkg_name,
4295: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4296: x_msg_count => x_msg_count,
4291: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4292: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4293: p_api_name => l_api_name,
4294: p_pkg_name => g_pkg_name,
4295: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4296: x_msg_count => x_msg_count,
4297: x_msg_data => x_msg_data,
4298: p_api_type => g_api_type);
4299:
4297: x_msg_data => x_msg_data,
4298: p_api_type => g_api_type);
4299:
4300: WHEN OTHERS THEN
4301: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4302: p_api_name => l_api_name,
4303: p_pkg_name => g_pkg_name,
4304: p_exc_name => 'OTHERS',
4305: x_msg_count => x_msg_count,
4310:
4311:
4312: PROCEDURE validate_governance(
4313: p_api_version IN NUMBER,
4314: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4315: x_return_status OUT NOCOPY VARCHAR2,
4316: x_msg_count OUT NOCOPY NUMBER,
4317: x_msg_data OUT NOCOPY VARCHAR2,
4318: p_gvev_rec IN gvev_rec_type) IS
4321: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4322: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4323: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_GOVERNANCE';
4324: l_api_version CONSTANT NUMBER := 1.0;
4325: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4326: BEGIN
4327: -- call START_ACTIVITY to create savepoint, check compatibility
4328: -- and initialize message list
4329: l_return_status := OKC_API.START_ACTIVITY(
4325: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4326: BEGIN
4327: -- call START_ACTIVITY to create savepoint, check compatibility
4328: -- and initialize message list
4329: l_return_status := OKC_API.START_ACTIVITY(
4330: p_api_name => l_api_name,
4331: p_pkg_name => g_pkg_name,
4332: p_init_msg_list => p_init_msg_list,
4333: l_api_version => l_api_version,
4335: p_api_type => g_api_type,
4336: x_return_status => x_return_status);
4337:
4338: -- check if activity started successfully
4339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4342: RAISE OKC_API.G_EXCEPTION_ERROR;
4343: END IF;
4336: x_return_status => x_return_status);
4337:
4338: -- check if activity started successfully
4339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4342: RAISE OKC_API.G_EXCEPTION_ERROR;
4343: END IF;
4344:
4337:
4338: -- check if activity started successfully
4339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4342: RAISE OKC_API.G_EXCEPTION_ERROR;
4343: END IF;
4344:
4345: l_gvev_rec := p_gvev_rec;
4338: -- check if activity started successfully
4339: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4341: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4342: RAISE OKC_API.G_EXCEPTION_ERROR;
4343: END IF;
4344:
4345: l_gvev_rec := p_gvev_rec;
4346: migrate_gvev(p_from => l_gvev_rec,
4355: x_msg_data => x_msg_data,
4356: p_gvev_rec => l_okc_gvev_rec_in);
4357:
4358: -- check return status
4359: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4360: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4361: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4362: RAISE OKC_API.G_EXCEPTION_ERROR;
4363: END IF;
4356: p_gvev_rec => l_okc_gvev_rec_in);
4357:
4358: -- check return status
4359: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4360: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4361: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4362: RAISE OKC_API.G_EXCEPTION_ERROR;
4363: END IF;
4364:
4357:
4358: -- check return status
4359: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4360: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4361: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4362: RAISE OKC_API.G_EXCEPTION_ERROR;
4363: END IF;
4364:
4365: -- end activity
4358: -- check return status
4359: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4360: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4361: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4362: RAISE OKC_API.G_EXCEPTION_ERROR;
4363: END IF;
4364:
4365: -- end activity
4366: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4362: RAISE OKC_API.G_EXCEPTION_ERROR;
4363: END IF;
4364:
4365: -- end activity
4366: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4367: x_msg_data => x_msg_data);
4368: EXCEPTION
4369: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4370: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4365: -- end activity
4366: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4367: x_msg_data => x_msg_data);
4368: EXCEPTION
4369: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4370: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4371: p_api_name => l_api_name,
4372: p_pkg_name => g_pkg_name,
4373: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4366: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4367: x_msg_data => x_msg_data);
4368: EXCEPTION
4369: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4370: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4371: p_api_name => l_api_name,
4372: p_pkg_name => g_pkg_name,
4373: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4374: x_msg_count => x_msg_count,
4369: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4370: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4371: p_api_name => l_api_name,
4372: p_pkg_name => g_pkg_name,
4373: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4374: x_msg_count => x_msg_count,
4375: x_msg_data => x_msg_data,
4376: p_api_type => g_api_type);
4377:
4374: x_msg_count => x_msg_count,
4375: x_msg_data => x_msg_data,
4376: p_api_type => g_api_type);
4377:
4378: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4379: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4380: p_api_name => l_api_name,
4381: p_pkg_name => g_pkg_name,
4382: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4375: x_msg_data => x_msg_data,
4376: p_api_type => g_api_type);
4377:
4378: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4379: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4380: p_api_name => l_api_name,
4381: p_pkg_name => g_pkg_name,
4382: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4383: x_msg_count => x_msg_count,
4378: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4379: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4380: p_api_name => l_api_name,
4381: p_pkg_name => g_pkg_name,
4382: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4383: x_msg_count => x_msg_count,
4384: x_msg_data => x_msg_data,
4385: p_api_type => g_api_type);
4386:
4384: x_msg_data => x_msg_data,
4385: p_api_type => g_api_type);
4386:
4387: WHEN OTHERS THEN
4388: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4389: p_api_name => l_api_name,
4390: p_pkg_name => g_pkg_name,
4391: p_exc_name => 'OTHERS',
4392: x_msg_count => x_msg_count,
4396: END validate_governance;
4397:
4398: PROCEDURE create_rule_group(
4399: p_api_version IN NUMBER,
4400: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4401: x_return_status OUT NOCOPY VARCHAR2,
4402: x_msg_count OUT NOCOPY NUMBER,
4403: x_msg_data OUT NOCOPY VARCHAR2,
4404: p_rgpv_rec IN rgpv_rec_type,
4403: x_msg_data OUT NOCOPY VARCHAR2,
4404: p_rgpv_rec IN rgpv_rec_type,
4405: x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
4406:
4407: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4408: l_api_name CONSTANT VARCHAR2(30) := 'create_rule_group';
4409: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4410:
4411: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4451: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
4452: l_business_event_name wf_events.name%TYPE;
4453:
4454: BEGIN
4455: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4456: p_init_msg_list,
4457: '_PUB',
4458: x_return_status);
4459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4455: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4456: p_init_msg_list,
4457: '_PUB',
4458: x_return_status);
4459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4462: RAISE OKC_API.G_EXCEPTION_ERROR;
4463: END IF;
4456: p_init_msg_list,
4457: '_PUB',
4458: x_return_status);
4459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4462: RAISE OKC_API.G_EXCEPTION_ERROR;
4463: END IF;
4464:
4457: '_PUB',
4458: x_return_status);
4459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4462: RAISE OKC_API.G_EXCEPTION_ERROR;
4463: END IF;
4464:
4465: migrate_rgpv(p_from => l_rgpv_rec,
4458: x_return_status);
4459: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4462: RAISE OKC_API.G_EXCEPTION_ERROR;
4463: END IF;
4464:
4465: migrate_rgpv(p_from => l_rgpv_rec,
4466: p_to => l_okc_rgpv_rec_in);
4473: x_msg_data => x_msg_data,
4474: p_rgpv_rec => l_okc_rgpv_rec_in,
4475: x_rgpv_rec => l_okc_rgpv_rec_out);
4476:
4477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4480: RAISE OKC_API.G_EXCEPTION_ERROR;
4481: END IF;
4474: p_rgpv_rec => l_okc_rgpv_rec_in,
4475: x_rgpv_rec => l_okc_rgpv_rec_out);
4476:
4477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4480: RAISE OKC_API.G_EXCEPTION_ERROR;
4481: END IF;
4482:
4475: x_rgpv_rec => l_okc_rgpv_rec_out);
4476:
4477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4480: RAISE OKC_API.G_EXCEPTION_ERROR;
4481: END IF;
4482:
4483: migrate_rgpv(p_from => l_okc_rgpv_rec_out, p_to => x_rgpv_rec);
4476:
4477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4478: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4480: RAISE OKC_API.G_EXCEPTION_ERROR;
4481: END IF;
4482:
4483: migrate_rgpv(p_from => l_okc_rgpv_rec_out, p_to => x_rgpv_rec);
4484:
4596: END IF;
4597:
4598: END IF; -- end if for request id
4599:
4600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4601:
4602: EXCEPTION
4603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4599:
4600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4601:
4602: EXCEPTION
4603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4605: (l_api_name
4606: ,G_PKG_NAME
4607: ,'OKC_API.G_RET_STS_ERROR'
4600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4601:
4602: EXCEPTION
4603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4605: (l_api_name
4606: ,G_PKG_NAME
4607: ,'OKC_API.G_RET_STS_ERROR'
4608: ,x_msg_count
4603: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4604: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4605: (l_api_name
4606: ,G_PKG_NAME
4607: ,'OKC_API.G_RET_STS_ERROR'
4608: ,x_msg_count
4609: ,x_msg_data
4610: ,'_PUB');
4611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4607: ,'OKC_API.G_RET_STS_ERROR'
4608: ,x_msg_count
4609: ,x_msg_data
4610: ,'_PUB');
4611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4612: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4613: (l_api_name
4614: ,G_PKG_NAME
4615: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4608: ,x_msg_count
4609: ,x_msg_data
4610: ,'_PUB');
4611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4612: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4613: (l_api_name
4614: ,G_PKG_NAME
4615: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4616: ,x_msg_count
4611: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4612: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4613: (l_api_name
4614: ,G_PKG_NAME
4615: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4616: ,x_msg_count
4617: ,x_msg_data
4618: ,'_PUB');
4619: WHEN OTHERS THEN
4616: ,x_msg_count
4617: ,x_msg_data
4618: ,'_PUB');
4619: WHEN OTHERS THEN
4620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4621: (l_api_name
4622: ,G_PKG_NAME
4623: ,'OTHERS'
4624: ,x_msg_count
4627: END;
4628:
4629: PROCEDURE update_rule_group(
4630: p_api_version IN NUMBER,
4631: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4632: x_return_status OUT NOCOPY VARCHAR2,
4633: x_msg_count OUT NOCOPY NUMBER,
4634: x_msg_data OUT NOCOPY VARCHAR2,
4635: p_rgpv_rec IN rgpv_rec_type,
4634: x_msg_data OUT NOCOPY VARCHAR2,
4635: p_rgpv_rec IN rgpv_rec_type,
4636: x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
4637:
4638: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4639: l_api_name CONSTANT VARCHAR2(30) := 'update_rule_group';
4640: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4641:
4642: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4642: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4643: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4644:
4645: BEGIN
4646: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4647: p_init_msg_list,
4648: '_PUB',
4649: x_return_status);
4650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4646: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4647: p_init_msg_list,
4648: '_PUB',
4649: x_return_status);
4650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4653: RAISE OKC_API.G_EXCEPTION_ERROR;
4654: END IF;
4647: p_init_msg_list,
4648: '_PUB',
4649: x_return_status);
4650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4653: RAISE OKC_API.G_EXCEPTION_ERROR;
4654: END IF;
4655:
4648: '_PUB',
4649: x_return_status);
4650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4653: RAISE OKC_API.G_EXCEPTION_ERROR;
4654: END IF;
4655:
4656: migrate_rgpv(p_from => l_rgpv_rec,
4649: x_return_status);
4650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4653: RAISE OKC_API.G_EXCEPTION_ERROR;
4654: END IF;
4655:
4656: migrate_rgpv(p_from => l_rgpv_rec,
4657: p_to => l_okc_rgpv_rec_in);
4664: x_msg_data => x_msg_data,
4665: p_rgpv_rec => l_okc_rgpv_rec_in,
4666: x_rgpv_rec => l_okc_rgpv_rec_out);
4667:
4668: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4671: RAISE OKC_API.G_EXCEPTION_ERROR;
4672: END IF;
4665: p_rgpv_rec => l_okc_rgpv_rec_in,
4666: x_rgpv_rec => l_okc_rgpv_rec_out);
4667:
4668: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4671: RAISE OKC_API.G_EXCEPTION_ERROR;
4672: END IF;
4673:
4666: x_rgpv_rec => l_okc_rgpv_rec_out);
4667:
4668: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4671: RAISE OKC_API.G_EXCEPTION_ERROR;
4672: END IF;
4673:
4674: migrate_rgpv(p_from => l_okc_rgpv_rec_out,
4667:
4668: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4670: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4671: RAISE OKC_API.G_EXCEPTION_ERROR;
4672: END IF;
4673:
4674: migrate_rgpv(p_from => l_okc_rgpv_rec_out,
4675: p_to => x_rgpv_rec);
4673:
4674: migrate_rgpv(p_from => l_okc_rgpv_rec_out,
4675: p_to => x_rgpv_rec);
4676:
4677: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4678:
4679: EXCEPTION
4680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4676:
4677: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4678:
4679: EXCEPTION
4680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4682: (l_api_name
4683: ,G_PKG_NAME
4684: ,'OKC_API.G_RET_STS_ERROR'
4677: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4678:
4679: EXCEPTION
4680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4682: (l_api_name
4683: ,G_PKG_NAME
4684: ,'OKC_API.G_RET_STS_ERROR'
4685: ,x_msg_count
4680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4682: (l_api_name
4683: ,G_PKG_NAME
4684: ,'OKC_API.G_RET_STS_ERROR'
4685: ,x_msg_count
4686: ,x_msg_data
4687: ,'_PUB');
4688: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4684: ,'OKC_API.G_RET_STS_ERROR'
4685: ,x_msg_count
4686: ,x_msg_data
4687: ,'_PUB');
4688: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4689: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4690: (l_api_name
4691: ,G_PKG_NAME
4692: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4685: ,x_msg_count
4686: ,x_msg_data
4687: ,'_PUB');
4688: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4689: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4690: (l_api_name
4691: ,G_PKG_NAME
4692: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4693: ,x_msg_count
4688: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4689: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4690: (l_api_name
4691: ,G_PKG_NAME
4692: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4693: ,x_msg_count
4694: ,x_msg_data
4695: ,'_PUB');
4696: WHEN OTHERS THEN
4693: ,x_msg_count
4694: ,x_msg_data
4695: ,'_PUB');
4696: WHEN OTHERS THEN
4697: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4698: (l_api_name
4699: ,G_PKG_NAME
4700: ,'OTHERS'
4701: ,x_msg_count
4705:
4706:
4707: PROCEDURE delete_rule_group(
4708: p_api_version IN NUMBER,
4709: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4710: x_return_status OUT NOCOPY VARCHAR2,
4711: x_msg_count OUT NOCOPY NUMBER,
4712: x_msg_data OUT NOCOPY VARCHAR2,
4713: p_rgpv_rec IN rgpv_rec_type) IS
4711: x_msg_count OUT NOCOPY NUMBER,
4712: x_msg_data OUT NOCOPY VARCHAR2,
4713: p_rgpv_rec IN rgpv_rec_type) IS
4714:
4715: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4716: l_api_name CONSTANT VARCHAR2(30) := 'delet_rule_group';
4717: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4718:
4719: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4718:
4719: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4720:
4721: BEGIN
4722: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4723: p_init_msg_list,
4724: '_PUB',
4725: x_return_status);
4726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4722: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4723: p_init_msg_list,
4724: '_PUB',
4725: x_return_status);
4726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4729: RAISE OKC_API.G_EXCEPTION_ERROR;
4730: END IF;
4723: p_init_msg_list,
4724: '_PUB',
4725: x_return_status);
4726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4729: RAISE OKC_API.G_EXCEPTION_ERROR;
4730: END IF;
4731:
4724: '_PUB',
4725: x_return_status);
4726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4729: RAISE OKC_API.G_EXCEPTION_ERROR;
4730: END IF;
4731:
4732: migrate_rgpv(p_from => l_rgpv_rec,
4725: x_return_status);
4726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4727: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4728: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4729: RAISE OKC_API.G_EXCEPTION_ERROR;
4730: END IF;
4731:
4732: migrate_rgpv(p_from => l_rgpv_rec,
4733: p_to => l_okc_rgpv_rec_in);
4739: x_msg_count => x_msg_count,
4740: x_msg_data => x_msg_data,
4741: p_rgpv_rec => l_okc_rgpv_rec_in);
4742:
4743: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4746: RAISE OKC_API.G_EXCEPTION_ERROR;
4747: END IF;
4740: x_msg_data => x_msg_data,
4741: p_rgpv_rec => l_okc_rgpv_rec_in);
4742:
4743: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4746: RAISE OKC_API.G_EXCEPTION_ERROR;
4747: END IF;
4748:
4741: p_rgpv_rec => l_okc_rgpv_rec_in);
4742:
4743: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4746: RAISE OKC_API.G_EXCEPTION_ERROR;
4747: END IF;
4748:
4749: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4742:
4743: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4744: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4745: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4746: RAISE OKC_API.G_EXCEPTION_ERROR;
4747: END IF;
4748:
4749: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4750:
4745: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4746: RAISE OKC_API.G_EXCEPTION_ERROR;
4747: END IF;
4748:
4749: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4750:
4751: EXCEPTION
4752: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4753: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4748:
4749: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4750:
4751: EXCEPTION
4752: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4753: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4754: (l_api_name
4755: ,G_PKG_NAME
4756: ,'OKC_API.G_RET_STS_ERROR'
4749: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4750:
4751: EXCEPTION
4752: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4753: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4754: (l_api_name
4755: ,G_PKG_NAME
4756: ,'OKC_API.G_RET_STS_ERROR'
4757: ,x_msg_count
4752: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4753: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4754: (l_api_name
4755: ,G_PKG_NAME
4756: ,'OKC_API.G_RET_STS_ERROR'
4757: ,x_msg_count
4758: ,x_msg_data
4759: ,'_PUB');
4760: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4756: ,'OKC_API.G_RET_STS_ERROR'
4757: ,x_msg_count
4758: ,x_msg_data
4759: ,'_PUB');
4760: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4761: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4762: (l_api_name
4763: ,G_PKG_NAME
4764: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4757: ,x_msg_count
4758: ,x_msg_data
4759: ,'_PUB');
4760: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4761: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4762: (l_api_name
4763: ,G_PKG_NAME
4764: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4765: ,x_msg_count
4760: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4761: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4762: (l_api_name
4763: ,G_PKG_NAME
4764: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4765: ,x_msg_count
4766: ,x_msg_data
4767: ,'_PUB');
4768: WHEN OTHERS THEN
4765: ,x_msg_count
4766: ,x_msg_data
4767: ,'_PUB');
4768: WHEN OTHERS THEN
4769: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4770: (l_api_name
4771: ,G_PKG_NAME
4772: ,'OTHERS'
4773: ,x_msg_count
4777:
4778:
4779: PROCEDURE lock_rule_group(
4780: p_api_version IN NUMBER,
4781: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4782: x_return_status OUT NOCOPY VARCHAR2,
4783: x_msg_count OUT NOCOPY NUMBER,
4784: x_msg_data OUT NOCOPY VARCHAR2,
4785: p_rgpv_rec IN rgpv_rec_type) IS
4783: x_msg_count OUT NOCOPY NUMBER,
4784: x_msg_data OUT NOCOPY VARCHAR2,
4785: p_rgpv_rec IN rgpv_rec_type) IS
4786:
4787: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4788: l_api_name CONSTANT VARCHAR2(30) := 'lock_rule_group';
4789: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4790:
4791: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4790:
4791: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4792:
4793: BEGIN
4794: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4795: p_init_msg_list,
4796: '_PUB',
4797: x_return_status);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4794: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4795: p_init_msg_list,
4796: '_PUB',
4797: x_return_status);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4801: RAISE OKC_API.G_EXCEPTION_ERROR;
4802: END IF;
4795: p_init_msg_list,
4796: '_PUB',
4797: x_return_status);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4801: RAISE OKC_API.G_EXCEPTION_ERROR;
4802: END IF;
4803:
4796: '_PUB',
4797: x_return_status);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4801: RAISE OKC_API.G_EXCEPTION_ERROR;
4802: END IF;
4803:
4804: migrate_rgpv(p_from => l_rgpv_rec,
4797: x_return_status);
4798: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4801: RAISE OKC_API.G_EXCEPTION_ERROR;
4802: END IF;
4803:
4804: migrate_rgpv(p_from => l_rgpv_rec,
4805: p_to => l_okc_rgpv_rec_in);
4811: x_msg_count => x_msg_count,
4812: x_msg_data => x_msg_data,
4813: p_rgpv_rec => l_okc_rgpv_rec_in);
4814:
4815: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4812: x_msg_data => x_msg_data,
4813: p_rgpv_rec => l_okc_rgpv_rec_in);
4814:
4815: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820:
4813: p_rgpv_rec => l_okc_rgpv_rec_in);
4814:
4815: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820:
4821: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4814:
4815: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820:
4821: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4822:
4817: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4818: RAISE OKC_API.G_EXCEPTION_ERROR;
4819: END IF;
4820:
4821: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4822:
4823: EXCEPTION
4824: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4820:
4821: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4822:
4823: EXCEPTION
4824: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4826: (l_api_name
4827: ,G_PKG_NAME
4828: ,'OKC_API.G_RET_STS_ERROR'
4821: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4822:
4823: EXCEPTION
4824: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4826: (l_api_name
4827: ,G_PKG_NAME
4828: ,'OKC_API.G_RET_STS_ERROR'
4829: ,x_msg_count
4824: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4826: (l_api_name
4827: ,G_PKG_NAME
4828: ,'OKC_API.G_RET_STS_ERROR'
4829: ,x_msg_count
4830: ,x_msg_data
4831: ,'_PUB');
4832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4828: ,'OKC_API.G_RET_STS_ERROR'
4829: ,x_msg_count
4830: ,x_msg_data
4831: ,'_PUB');
4832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4834: (l_api_name
4835: ,G_PKG_NAME
4836: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4829: ,x_msg_count
4830: ,x_msg_data
4831: ,'_PUB');
4832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4834: (l_api_name
4835: ,G_PKG_NAME
4836: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4837: ,x_msg_count
4832: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4834: (l_api_name
4835: ,G_PKG_NAME
4836: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4837: ,x_msg_count
4838: ,x_msg_data
4839: ,'_PUB');
4840: WHEN OTHERS THEN
4837: ,x_msg_count
4838: ,x_msg_data
4839: ,'_PUB');
4840: WHEN OTHERS THEN
4841: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4842: (l_api_name
4843: ,G_PKG_NAME
4844: ,'OTHERS'
4845: ,x_msg_count
4848: END;
4849:
4850: PROCEDURE validate_rule_group(
4851: p_api_version IN NUMBER,
4852: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4853: x_return_status OUT NOCOPY VARCHAR2,
4854: x_msg_count OUT NOCOPY NUMBER,
4855: x_msg_data OUT NOCOPY VARCHAR2,
4856: p_rgpv_rec IN rgpv_rec_type) IS
4854: x_msg_count OUT NOCOPY NUMBER,
4855: x_msg_data OUT NOCOPY VARCHAR2,
4856: p_rgpv_rec IN rgpv_rec_type) IS
4857:
4858: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4859: l_api_name CONSTANT VARCHAR2(30) := 'validate_rule_group';
4860: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4861:
4862: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4862: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4863: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4864:
4865: BEGIN
4866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4867: p_init_msg_list,
4868: '_PUB',
4869: x_return_status);
4870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4867: p_init_msg_list,
4868: '_PUB',
4869: x_return_status);
4870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4873: RAISE OKC_API.G_EXCEPTION_ERROR;
4874: END IF;
4867: p_init_msg_list,
4868: '_PUB',
4869: x_return_status);
4870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4873: RAISE OKC_API.G_EXCEPTION_ERROR;
4874: END IF;
4875:
4868: '_PUB',
4869: x_return_status);
4870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4873: RAISE OKC_API.G_EXCEPTION_ERROR;
4874: END IF;
4875:
4876: migrate_rgpv(p_from => l_rgpv_rec,
4869: x_return_status);
4870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4873: RAISE OKC_API.G_EXCEPTION_ERROR;
4874: END IF;
4875:
4876: migrate_rgpv(p_from => l_rgpv_rec,
4877: p_to => l_okc_rgpv_rec_in);
4884: x_msg_data => x_msg_data,
4885: p_rgpv_rec => l_okc_rgpv_rec_in);
4886:
4887:
4888: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4890: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4891: RAISE OKC_API.G_EXCEPTION_ERROR;
4892: END IF;
4885: p_rgpv_rec => l_okc_rgpv_rec_in);
4886:
4887:
4888: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4890: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4891: RAISE OKC_API.G_EXCEPTION_ERROR;
4892: END IF;
4893:
4886:
4887:
4888: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4890: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4891: RAISE OKC_API.G_EXCEPTION_ERROR;
4892: END IF;
4893:
4894: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4887:
4888: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4889: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4890: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4891: RAISE OKC_API.G_EXCEPTION_ERROR;
4892: END IF;
4893:
4894: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4895:
4890: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4891: RAISE OKC_API.G_EXCEPTION_ERROR;
4892: END IF;
4893:
4894: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4895:
4896: EXCEPTION
4897: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4898: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4893:
4894: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4895:
4896: EXCEPTION
4897: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4898: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4899: (l_api_name
4900: ,G_PKG_NAME
4901: ,'OKC_API.G_RET_STS_ERROR'
4894: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4895:
4896: EXCEPTION
4897: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4898: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4899: (l_api_name
4900: ,G_PKG_NAME
4901: ,'OKC_API.G_RET_STS_ERROR'
4902: ,x_msg_count
4897: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4898: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4899: (l_api_name
4900: ,G_PKG_NAME
4901: ,'OKC_API.G_RET_STS_ERROR'
4902: ,x_msg_count
4903: ,x_msg_data
4904: ,'_PUB');
4905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4901: ,'OKC_API.G_RET_STS_ERROR'
4902: ,x_msg_count
4903: ,x_msg_data
4904: ,'_PUB');
4905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4907: (l_api_name
4908: ,G_PKG_NAME
4909: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4902: ,x_msg_count
4903: ,x_msg_data
4904: ,'_PUB');
4905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4907: (l_api_name
4908: ,G_PKG_NAME
4909: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4910: ,x_msg_count
4905: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4906: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4907: (l_api_name
4908: ,G_PKG_NAME
4909: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4910: ,x_msg_count
4911: ,x_msg_data
4912: ,'_PUB');
4913: WHEN OTHERS THEN
4910: ,x_msg_count
4911: ,x_msg_data
4912: ,'_PUB');
4913: WHEN OTHERS THEN
4914: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4915: (l_api_name
4916: ,G_PKG_NAME
4917: ,'OTHERS'
4918: ,x_msg_count
4923:
4924:
4925: PROCEDURE create_rg_mode_pty_role(
4926: p_api_version IN NUMBER,
4927: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4928: x_return_status OUT NOCOPY VARCHAR2,
4929: x_msg_count OUT NOCOPY NUMBER,
4930: x_msg_data OUT NOCOPY VARCHAR2,
4931: p_rmpv_rec IN rmpv_rec_type,
4930: x_msg_data OUT NOCOPY VARCHAR2,
4931: p_rmpv_rec IN rmpv_rec_type,
4932: x_rmpv_rec OUT NOCOPY rmpv_rec_type) IS
4933:
4934: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4935: l_api_name CONSTANT VARCHAR2(30) := 'create_rg_mode_pty_role';
4936: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
4937: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
4938: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
4936: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
4937: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
4938: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
4939: BEGIN
4940: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4941: p_init_msg_list,
4942: '_PUB',
4943: x_return_status);
4944: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4940: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4941: p_init_msg_list,
4942: '_PUB',
4943: x_return_status);
4944: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4947: RAISE OKC_API.G_EXCEPTION_ERROR;
4948: END IF;
4941: p_init_msg_list,
4942: '_PUB',
4943: x_return_status);
4944: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4947: RAISE OKC_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4942: '_PUB',
4943: x_return_status);
4944: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4947: RAISE OKC_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4950: migrate_rmpv(p_from => l_rmpv_rec,
4943: x_return_status);
4944: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4947: RAISE OKC_API.G_EXCEPTION_ERROR;
4948: END IF;
4949:
4950: migrate_rmpv(p_from => l_rmpv_rec,
4951: p_to => l_okc_rmpv_rec_in);
4958: x_msg_data => x_msg_data,
4959: p_rmpv_rec => l_okc_rmpv_rec_in,
4960: x_rmpv_rec => l_okc_rmpv_rec_out);
4961:
4962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4959: p_rmpv_rec => l_okc_rmpv_rec_in,
4960: x_rmpv_rec => l_okc_rmpv_rec_out);
4961:
4962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4967:
4960: x_rmpv_rec => l_okc_rmpv_rec_out);
4961:
4962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4967:
4968: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
4961:
4962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4965: RAISE OKC_API.G_EXCEPTION_ERROR;
4966: END IF;
4967:
4968: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
4969: p_to => x_rmpv_rec);
4967:
4968: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
4969: p_to => x_rmpv_rec);
4970:
4971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4972: EXCEPTION
4973: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4974: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4975: (l_api_name
4969: p_to => x_rmpv_rec);
4970:
4971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4972: EXCEPTION
4973: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4974: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4975: (l_api_name
4976: ,G_PKG_NAME
4977: ,'OKC_API.G_RET_STS_ERROR'
4970:
4971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4972: EXCEPTION
4973: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4974: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4975: (l_api_name
4976: ,G_PKG_NAME
4977: ,'OKC_API.G_RET_STS_ERROR'
4978: ,x_msg_count
4973: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4974: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4975: (l_api_name
4976: ,G_PKG_NAME
4977: ,'OKC_API.G_RET_STS_ERROR'
4978: ,x_msg_count
4979: ,x_msg_data
4980: ,'_PUB');
4981: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4977: ,'OKC_API.G_RET_STS_ERROR'
4978: ,x_msg_count
4979: ,x_msg_data
4980: ,'_PUB');
4981: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4982: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4983: (l_api_name
4984: ,G_PKG_NAME
4985: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4978: ,x_msg_count
4979: ,x_msg_data
4980: ,'_PUB');
4981: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4982: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4983: (l_api_name
4984: ,G_PKG_NAME
4985: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4986: ,x_msg_count
4981: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4982: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4983: (l_api_name
4984: ,G_PKG_NAME
4985: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4986: ,x_msg_count
4987: ,x_msg_data
4988: ,'_PUB');
4989: WHEN OTHERS THEN
4986: ,x_msg_count
4987: ,x_msg_data
4988: ,'_PUB');
4989: WHEN OTHERS THEN
4990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4991: (l_api_name
4992: ,G_PKG_NAME
4993: ,'OTHERS'
4994: ,x_msg_count
4998:
4999:
5000: PROCEDURE update_rg_mode_pty_role(
5001: p_api_version IN NUMBER,
5002: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5003: x_return_status OUT NOCOPY VARCHAR2,
5004: x_msg_count OUT NOCOPY NUMBER,
5005: x_msg_data OUT NOCOPY VARCHAR2,
5006: p_rmpv_rec IN rmpv_rec_type,
5005: x_msg_data OUT NOCOPY VARCHAR2,
5006: p_rmpv_rec IN rmpv_rec_type,
5007: x_rmpv_rec OUT NOCOPY rmpv_rec_type) IS
5008:
5009: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5010: l_api_name CONSTANT VARCHAR2(30) := 'update_rg_mode_pty_role';
5011: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5012: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5013: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
5011: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5012: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5013: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
5014: BEGIN
5015: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5016: p_init_msg_list,
5017: '_PUB',
5018: x_return_status);
5019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5015: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5016: p_init_msg_list,
5017: '_PUB',
5018: x_return_status);
5019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5022: RAISE OKC_API.G_EXCEPTION_ERROR;
5023: END IF;
5016: p_init_msg_list,
5017: '_PUB',
5018: x_return_status);
5019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5022: RAISE OKC_API.G_EXCEPTION_ERROR;
5023: END IF;
5024:
5017: '_PUB',
5018: x_return_status);
5019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5022: RAISE OKC_API.G_EXCEPTION_ERROR;
5023: END IF;
5024:
5025: migrate_rmpv(p_from => l_rmpv_rec,
5018: x_return_status);
5019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5022: RAISE OKC_API.G_EXCEPTION_ERROR;
5023: END IF;
5024:
5025: migrate_rmpv(p_from => l_rmpv_rec,
5026: p_to => l_okc_rmpv_rec_in);
5035: p_rmpv_rec => l_okc_rmpv_rec_in,
5036: x_rmpv_rec => l_okc_rmpv_rec_in);
5037:
5038:
5039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_ERROR;
5043: END IF;
5036: x_rmpv_rec => l_okc_rmpv_rec_in);
5037:
5038:
5039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_ERROR;
5043: END IF;
5044:
5037:
5038:
5039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_ERROR;
5043: END IF;
5044:
5045: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5038:
5039: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5041: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5042: RAISE OKC_API.G_EXCEPTION_ERROR;
5043: END IF;
5044:
5045: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5046: p_to => x_rmpv_rec);
5044:
5045: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5046: p_to => x_rmpv_rec);
5047:
5048: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5049: EXCEPTION
5050: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5052: (l_api_name
5046: p_to => x_rmpv_rec);
5047:
5048: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5049: EXCEPTION
5050: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5052: (l_api_name
5053: ,G_PKG_NAME
5054: ,'OKC_API.G_RET_STS_ERROR'
5047:
5048: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5049: EXCEPTION
5050: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5052: (l_api_name
5053: ,G_PKG_NAME
5054: ,'OKC_API.G_RET_STS_ERROR'
5055: ,x_msg_count
5050: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5051: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5052: (l_api_name
5053: ,G_PKG_NAME
5054: ,'OKC_API.G_RET_STS_ERROR'
5055: ,x_msg_count
5056: ,x_msg_data
5057: ,'_PUB');
5058: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5054: ,'OKC_API.G_RET_STS_ERROR'
5055: ,x_msg_count
5056: ,x_msg_data
5057: ,'_PUB');
5058: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5060: (l_api_name
5061: ,G_PKG_NAME
5062: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5055: ,x_msg_count
5056: ,x_msg_data
5057: ,'_PUB');
5058: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5060: (l_api_name
5061: ,G_PKG_NAME
5062: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5063: ,x_msg_count
5058: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5060: (l_api_name
5061: ,G_PKG_NAME
5062: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5063: ,x_msg_count
5064: ,x_msg_data
5065: ,'_PUB');
5066: WHEN OTHERS THEN
5063: ,x_msg_count
5064: ,x_msg_data
5065: ,'_PUB');
5066: WHEN OTHERS THEN
5067: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5068: (l_api_name
5069: ,G_PKG_NAME
5070: ,'OTHERS'
5071: ,x_msg_count
5074: END update_rg_mode_pty_role;
5075:
5076: PROCEDURE delete_rg_mode_pty_role(
5077: p_api_version IN NUMBER,
5078: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5079: x_return_status OUT NOCOPY VARCHAR2,
5080: x_msg_count OUT NOCOPY NUMBER,
5081: x_msg_data OUT NOCOPY VARCHAR2,
5082: p_rmpv_rec IN rmpv_rec_type) IS
5080: x_msg_count OUT NOCOPY NUMBER,
5081: x_msg_data OUT NOCOPY VARCHAR2,
5082: p_rmpv_rec IN rmpv_rec_type) IS
5083:
5084: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5085: l_api_name CONSTANT VARCHAR2(30) := 'delete_rg_mode_pty_role';
5086: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5087: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5088:
5086: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5087: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5088:
5089: BEGIN
5090: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5091: p_init_msg_list,
5092: '_PUB',
5093: x_return_status);
5094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5090: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5091: p_init_msg_list,
5092: '_PUB',
5093: x_return_status);
5094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5097: RAISE OKC_API.G_EXCEPTION_ERROR;
5098: END IF;
5091: p_init_msg_list,
5092: '_PUB',
5093: x_return_status);
5094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5097: RAISE OKC_API.G_EXCEPTION_ERROR;
5098: END IF;
5099:
5092: '_PUB',
5093: x_return_status);
5094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5097: RAISE OKC_API.G_EXCEPTION_ERROR;
5098: END IF;
5099:
5100: migrate_rmpv(p_from => l_rmpv_rec,
5093: x_return_status);
5094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5097: RAISE OKC_API.G_EXCEPTION_ERROR;
5098: END IF;
5099:
5100: migrate_rmpv(p_from => l_rmpv_rec,
5101: p_to => l_okc_rmpv_rec_in);
5108: x_msg_count => x_msg_count,
5109: x_msg_data => x_msg_data,
5110: p_rmpv_rec => l_okc_rmpv_rec_in);
5111:
5112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5115: RAISE OKC_API.G_EXCEPTION_ERROR;
5116: END IF;
5109: x_msg_data => x_msg_data,
5110: p_rmpv_rec => l_okc_rmpv_rec_in);
5111:
5112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5115: RAISE OKC_API.G_EXCEPTION_ERROR;
5116: END IF;
5117:
5110: p_rmpv_rec => l_okc_rmpv_rec_in);
5111:
5112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5115: RAISE OKC_API.G_EXCEPTION_ERROR;
5116: END IF;
5117:
5118: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5111:
5112: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5113: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5115: RAISE OKC_API.G_EXCEPTION_ERROR;
5116: END IF;
5117:
5118: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5119: EXCEPTION
5114: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5115: RAISE OKC_API.G_EXCEPTION_ERROR;
5116: END IF;
5117:
5118: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5119: EXCEPTION
5120: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5122: (l_api_name
5116: END IF;
5117:
5118: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5119: EXCEPTION
5120: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5122: (l_api_name
5123: ,G_PKG_NAME
5124: ,'OKC_API.G_RET_STS_ERROR'
5117:
5118: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5119: EXCEPTION
5120: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5122: (l_api_name
5123: ,G_PKG_NAME
5124: ,'OKC_API.G_RET_STS_ERROR'
5125: ,x_msg_count
5120: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5122: (l_api_name
5123: ,G_PKG_NAME
5124: ,'OKC_API.G_RET_STS_ERROR'
5125: ,x_msg_count
5126: ,x_msg_data
5127: ,'_PUB');
5128: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5124: ,'OKC_API.G_RET_STS_ERROR'
5125: ,x_msg_count
5126: ,x_msg_data
5127: ,'_PUB');
5128: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5129: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5130: (l_api_name
5131: ,G_PKG_NAME
5132: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5125: ,x_msg_count
5126: ,x_msg_data
5127: ,'_PUB');
5128: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5129: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5130: (l_api_name
5131: ,G_PKG_NAME
5132: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5133: ,x_msg_count
5128: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5129: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5130: (l_api_name
5131: ,G_PKG_NAME
5132: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5133: ,x_msg_count
5134: ,x_msg_data
5135: ,'_PUB');
5136: WHEN OTHERS THEN
5133: ,x_msg_count
5134: ,x_msg_data
5135: ,'_PUB');
5136: WHEN OTHERS THEN
5137: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5138: (l_api_name
5139: ,G_PKG_NAME
5140: ,'OTHERS'
5141: ,x_msg_count
5144: END delete_rg_mode_pty_role;
5145:
5146: PROCEDURE lock_rg_mode_pty_role(
5147: p_api_version IN NUMBER,
5148: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5149: x_return_status OUT NOCOPY VARCHAR2,
5150: x_msg_count OUT NOCOPY NUMBER,
5151: x_msg_data OUT NOCOPY VARCHAR2,
5152: p_rmpv_rec IN rmpv_rec_type) IS
5150: x_msg_count OUT NOCOPY NUMBER,
5151: x_msg_data OUT NOCOPY VARCHAR2,
5152: p_rmpv_rec IN rmpv_rec_type) IS
5153:
5154: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5155: l_api_name CONSTANT VARCHAR2(30) := 'lock_rg_mode_pty_role';
5156: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5157: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5158:
5157: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5158:
5159:
5160: BEGIN
5161: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5162: p_init_msg_list,
5163: '_PUB',
5164: x_return_status);
5165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5161: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5162: p_init_msg_list,
5163: '_PUB',
5164: x_return_status);
5165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5162: p_init_msg_list,
5163: '_PUB',
5164: x_return_status);
5165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5170:
5163: '_PUB',
5164: x_return_status);
5165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5170:
5171: migrate_rmpv(p_from => l_rmpv_rec,
5164: x_return_status);
5165: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5170:
5171: migrate_rmpv(p_from => l_rmpv_rec,
5172: p_to => l_okc_rmpv_rec_in);
5178: x_msg_count => x_msg_count,
5179: x_msg_data => x_msg_data,
5180: p_rmpv_rec => l_okc_rmpv_rec_in);
5181:
5182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5185: RAISE OKC_API.G_EXCEPTION_ERROR;
5186: END IF;
5179: x_msg_data => x_msg_data,
5180: p_rmpv_rec => l_okc_rmpv_rec_in);
5181:
5182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5185: RAISE OKC_API.G_EXCEPTION_ERROR;
5186: END IF;
5187:
5180: p_rmpv_rec => l_okc_rmpv_rec_in);
5181:
5182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5185: RAISE OKC_API.G_EXCEPTION_ERROR;
5186: END IF;
5187:
5188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5181:
5182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5185: RAISE OKC_API.G_EXCEPTION_ERROR;
5186: END IF;
5187:
5188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5189:
5184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5185: RAISE OKC_API.G_EXCEPTION_ERROR;
5186: END IF;
5187:
5188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5189:
5190: EXCEPTION
5191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5187:
5188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5189:
5190: EXCEPTION
5191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5193: (l_api_name
5194: ,G_PKG_NAME
5195: ,'OKC_API.G_RET_STS_ERROR'
5188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5189:
5190: EXCEPTION
5191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5193: (l_api_name
5194: ,G_PKG_NAME
5195: ,'OKC_API.G_RET_STS_ERROR'
5196: ,x_msg_count
5191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5193: (l_api_name
5194: ,G_PKG_NAME
5195: ,'OKC_API.G_RET_STS_ERROR'
5196: ,x_msg_count
5197: ,x_msg_data
5198: ,'_PUB');
5199: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5195: ,'OKC_API.G_RET_STS_ERROR'
5196: ,x_msg_count
5197: ,x_msg_data
5198: ,'_PUB');
5199: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5200: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5201: (l_api_name
5202: ,G_PKG_NAME
5203: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5196: ,x_msg_count
5197: ,x_msg_data
5198: ,'_PUB');
5199: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5200: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5201: (l_api_name
5202: ,G_PKG_NAME
5203: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5204: ,x_msg_count
5199: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5200: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5201: (l_api_name
5202: ,G_PKG_NAME
5203: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5204: ,x_msg_count
5205: ,x_msg_data
5206: ,'_PUB');
5207: WHEN OTHERS THEN
5204: ,x_msg_count
5205: ,x_msg_data
5206: ,'_PUB');
5207: WHEN OTHERS THEN
5208: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5209: (l_api_name
5210: ,G_PKG_NAME
5211: ,'OTHERS'
5212: ,x_msg_count
5216:
5217:
5218: PROCEDURE validate_rg_mode_pty_role(
5219: p_api_version IN NUMBER,
5220: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5221: x_return_status OUT NOCOPY VARCHAR2,
5222: x_msg_count OUT NOCOPY NUMBER,
5223: x_msg_data OUT NOCOPY VARCHAR2,
5224: p_rmpv_rec IN rmpv_rec_type)IS
5222: x_msg_count OUT NOCOPY NUMBER,
5223: x_msg_data OUT NOCOPY VARCHAR2,
5224: p_rmpv_rec IN rmpv_rec_type)IS
5225:
5226: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5227: l_api_name CONSTANT VARCHAR2(30) := 'validate_rg_mode_pty_role';
5228: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5229: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5230:
5228: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5229: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5230:
5231: BEGIN
5232: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5233: p_init_msg_list,
5234: '_PUB',
5235: x_return_status);
5236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5232: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5233: p_init_msg_list,
5234: '_PUB',
5235: x_return_status);
5236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5239: RAISE OKC_API.G_EXCEPTION_ERROR;
5240: END IF;
5233: p_init_msg_list,
5234: '_PUB',
5235: x_return_status);
5236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5239: RAISE OKC_API.G_EXCEPTION_ERROR;
5240: END IF;
5241:
5234: '_PUB',
5235: x_return_status);
5236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5239: RAISE OKC_API.G_EXCEPTION_ERROR;
5240: END IF;
5241:
5242: migrate_rmpv(p_from => l_rmpv_rec,
5235: x_return_status);
5236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5239: RAISE OKC_API.G_EXCEPTION_ERROR;
5240: END IF;
5241:
5242: migrate_rmpv(p_from => l_rmpv_rec,
5243: p_to => l_okc_rmpv_rec_in);
5249: x_msg_count => x_msg_count,
5250: x_msg_data => x_msg_data,
5251: p_rmpv_rec => l_okc_rmpv_rec_in);
5252:
5253: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5256: RAISE OKC_API.G_EXCEPTION_ERROR;
5257: END IF;
5250: x_msg_data => x_msg_data,
5251: p_rmpv_rec => l_okc_rmpv_rec_in);
5252:
5253: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5256: RAISE OKC_API.G_EXCEPTION_ERROR;
5257: END IF;
5258:
5251: p_rmpv_rec => l_okc_rmpv_rec_in);
5252:
5253: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5256: RAISE OKC_API.G_EXCEPTION_ERROR;
5257: END IF;
5258:
5259: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5252:
5253: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5256: RAISE OKC_API.G_EXCEPTION_ERROR;
5257: END IF;
5258:
5259: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5260: EXCEPTION
5255: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5256: RAISE OKC_API.G_EXCEPTION_ERROR;
5257: END IF;
5258:
5259: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5260: EXCEPTION
5261: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5262: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5263: (l_api_name
5257: END IF;
5258:
5259: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5260: EXCEPTION
5261: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5262: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5263: (l_api_name
5264: ,G_PKG_NAME
5265: ,'OKC_API.G_RET_STS_ERROR'
5258:
5259: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5260: EXCEPTION
5261: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5262: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5263: (l_api_name
5264: ,G_PKG_NAME
5265: ,'OKC_API.G_RET_STS_ERROR'
5266: ,x_msg_count
5261: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5262: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5263: (l_api_name
5264: ,G_PKG_NAME
5265: ,'OKC_API.G_RET_STS_ERROR'
5266: ,x_msg_count
5267: ,x_msg_data
5268: ,'_PUB');
5269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5265: ,'OKC_API.G_RET_STS_ERROR'
5266: ,x_msg_count
5267: ,x_msg_data
5268: ,'_PUB');
5269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5270: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5271: (l_api_name
5272: ,G_PKG_NAME
5273: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5266: ,x_msg_count
5267: ,x_msg_data
5268: ,'_PUB');
5269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5270: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5271: (l_api_name
5272: ,G_PKG_NAME
5273: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5274: ,x_msg_count
5269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5270: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5271: (l_api_name
5272: ,G_PKG_NAME
5273: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5274: ,x_msg_count
5275: ,x_msg_data
5276: ,'_PUB');
5277: WHEN OTHERS THEN
5274: ,x_msg_count
5275: ,x_msg_data
5276: ,'_PUB');
5277: WHEN OTHERS THEN
5278: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5279: (l_api_name
5280: ,G_PKG_NAME
5281: ,'OTHERS'
5282: ,x_msg_count