74: -- Version : 1.0
75: -- End of comments
76: PROCEDURE raise_business_event(
77: p_api_version IN NUMBER
78: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_msg_count OUT NOCOPY NUMBER
81: ,x_msg_data OUT NOCOPY VARCHAR2
82: ,p_event_name IN WF_EVENTS.NAME%TYPE
941: END migrate_rmpv;
942: --------------------------------------------------------------------------------
943: PROCEDURE version_contract(
944: p_api_version IN NUMBER,
945: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
946: x_return_status OUT NOCOPY VARCHAR2,
947: x_msg_count OUT NOCOPY NUMBER,
948: x_msg_data OUT NOCOPY VARCHAR2,
949: p_cvmv_rec IN cvmv_rec_type,
946: x_return_status OUT NOCOPY VARCHAR2,
947: x_msg_count OUT NOCOPY NUMBER,
948: x_msg_data OUT NOCOPY VARCHAR2,
949: p_cvmv_rec IN cvmv_rec_type,
950: p_commit IN VARCHAR2 DEFAULT OKC_API.G_TRUE,
951: x_cvmv_rec OUT NOCOPY cvmv_rec_type) AS
952:
953: lr_cvmv_rec_type_in OKC_VERSION_PUB.cvmv_rec_type;
954: lr_cvmv_rec_type_out OKC_VERSION_PUB.cvmv_rec_type;
968: IF (is_debug_procedure_on) THEN
969: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,l_module_name ,'Begin(+)');
970: END IF;
971:
972: x_return_status := OKC_API.G_RET_STS_SUCCESS;
973: -- Call start_activity to create savepoint, check compatibility
974: -- and initialize message list
975: x_return_status := OKC_API.START_ACTIVITY (l_api_name
976: ,p_init_msg_list
971:
972: x_return_status := OKC_API.G_RET_STS_SUCCESS;
973: -- Call start_activity to create savepoint, check compatibility
974: -- and initialize message list
975: x_return_status := OKC_API.START_ACTIVITY (l_api_name
976: ,p_init_msg_list
977: ,'_PVT'
978: ,x_return_status);
979: -- Check if activity started successfully
976: ,p_init_msg_list
977: ,'_PVT'
978: ,x_return_status);
979: -- Check if activity started successfully
980: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
983: RAISE OKC_API.G_EXCEPTION_ERROR;
984: END IF;
977: ,'_PVT'
978: ,x_return_status);
979: -- Check if activity started successfully
980: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
983: RAISE OKC_API.G_EXCEPTION_ERROR;
984: END IF;
985: -- Since we are creatieng a wrapper over the okc
978: ,x_return_status);
979: -- Check if activity started successfully
980: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
983: RAISE OKC_API.G_EXCEPTION_ERROR;
984: END IF;
985: -- Since we are creatieng a wrapper over the okc
986: -- we need to migrate from locally declared cvmv record
979: -- Check if activity started successfully
980: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
981: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
983: RAISE OKC_API.G_EXCEPTION_ERROR;
984: END IF;
985: -- Since we are creatieng a wrapper over the okc
986: -- we need to migrate from locally declared cvmv record
987: -- to OKC declared cvmv record type as process of input
993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lr_cvmv_rec_type_in.major_version := ' || lr_cvmv_rec_type_in.major_version);
994: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'lr_cvmv_rec_type_in.minor_version := ' || lr_cvmv_rec_type_in.minor_version);
995: END IF;
996:
997: -- Calling the actual OKC api
998: OKC_VERSION_PUB.version_contract(p_api_version => p_api_version,
999: p_init_msg_list => p_init_msg_list,
1000: x_return_status => x_return_status,
1001: x_msg_count => x_msg_count,
1004: p_commit => p_commit,
1005: x_cvmv_rec => lr_cvmv_rec_type_out);
1006:
1007:
1008: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1005: x_cvmv_rec => lr_cvmv_rec_type_out);
1006:
1007:
1008: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1013:
1006:
1007:
1008: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1013:
1014: IF (is_debug_statement_on) THEN
1007:
1008: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1011: RAISE OKC_API.G_EXCEPTION_ERROR;
1012: END IF;
1013:
1014: IF (is_debug_statement_on) THEN
1015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'After the call');
1022: -- we need to migrate from OKC declared cimv record type
1023: -- to locally declared cimv record as process of input
1024: migrate_version(lr_cvmv_rec_type_out,
1025: x_cvmv_rec);
1026: OKC_API.END_ACTIVITY (x_msg_count,
1027: x_msg_data );
1028: EXCEPTION
1029: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1030: IF (is_debug_exception_on) THEN
1025: x_cvmv_rec);
1026: OKC_API.END_ACTIVITY (x_msg_count,
1027: x_msg_data );
1028: EXCEPTION
1029: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1030: IF (is_debug_exception_on) THEN
1031: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :' || 'Exception error');
1032: END IF;
1033: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1029: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1030: IF (is_debug_exception_on) THEN
1031: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :' || 'Exception error');
1032: END IF;
1033: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1034: l_api_name,
1035: G_PKG_NAME,
1036: 'OKC_API.G_RET_STS_ERROR',
1037: x_msg_count,
1032: END IF;
1033: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1034: l_api_name,
1035: G_PKG_NAME,
1036: 'OKC_API.G_RET_STS_ERROR',
1037: x_msg_count,
1038: x_msg_data,
1039: '_PVT');
1040: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1036: 'OKC_API.G_RET_STS_ERROR',
1037: x_msg_count,
1038: x_msg_data,
1039: '_PVT');
1040: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1041: IF (is_debug_exception_on) THEN
1042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'Unexpected Error');
1043: END IF;
1044: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1040: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1041: IF (is_debug_exception_on) THEN
1042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'Unexpected Error');
1043: END IF;
1044: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1045: l_api_name,
1046: G_PKG_NAME,
1047: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1048: x_msg_count,
1043: END IF;
1044: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1045: l_api_name,
1046: G_PKG_NAME,
1047: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1048: x_msg_count,
1049: x_msg_data,
1050: '_PVT');
1051: WHEN OTHERS THEN
1054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,l_module_name, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1055: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1056: END IF;
1057:
1058: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1059: l_api_name,
1060: G_PKG_NAME,
1061: 'OTHERS',
1062: x_msg_count,
1065: END version_contract;
1066: -------------------------------------------------------------------------------------------
1067: PROCEDURE version_contract(
1068: p_api_version IN NUMBER,
1069: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1070: x_return_status OUT NOCOPY VARCHAR2,
1071: x_msg_count OUT NOCOPY NUMBER,
1072: x_msg_data OUT NOCOPY VARCHAR2,
1073: p_cvmv_tbl IN cvmv_tbl_type,
1070: x_return_status OUT NOCOPY VARCHAR2,
1071: x_msg_count OUT NOCOPY NUMBER,
1072: x_msg_data OUT NOCOPY VARCHAR2,
1073: p_cvmv_tbl IN cvmv_tbl_type,
1074: p_commit IN VARCHAR2 DEFAULT OKC_API.G_TRUE,
1075: x_cvmv_tbl OUT NOCOPY cvmv_tbl_type) AS
1076:
1077: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERISON_PVT';
1078: i NUMBER := 0;
1076:
1077: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERISON_PVT';
1078: i NUMBER := 0;
1079: BEGIN
1080: OKC_API.init_msg_list(p_init_msg_list);
1081: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1082: IF (p_cvmv_tbl.COUNT>0) THEN
1083: i := p_cvmv_tbl.FIRST;
1084: LOOP
1077: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERISON_PVT';
1078: i NUMBER := 0;
1079: BEGIN
1080: OKC_API.init_msg_list(p_init_msg_list);
1081: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1082: IF (p_cvmv_tbl.COUNT>0) THEN
1083: i := p_cvmv_tbl.FIRST;
1084: LOOP
1085: version_contract(p_api_version =>p_api_version,
1082: IF (p_cvmv_tbl.COUNT>0) THEN
1083: i := p_cvmv_tbl.FIRST;
1084: LOOP
1085: version_contract(p_api_version =>p_api_version,
1086: p_init_msg_list =>OKC_API.G_FALSE,
1087: x_return_status =>x_return_status,
1088: x_msg_count =>x_msg_count,
1089: x_msg_data =>x_msg_data,
1090: p_cvmv_rec =>p_cvmv_tbl(i),
1088: x_msg_count =>x_msg_count,
1089: x_msg_data =>x_msg_data,
1090: p_cvmv_rec =>p_cvmv_tbl(i),
1091: x_cvmv_rec =>x_cvmv_tbl(i));
1092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1096: END IF;
1089: x_msg_data =>x_msg_data,
1090: p_cvmv_rec =>p_cvmv_tbl(i),
1091: x_cvmv_rec =>x_cvmv_tbl(i));
1092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1096: END IF;
1097: EXIT WHEN (i=p_cvmv_tbl.LAST);
1090: p_cvmv_rec =>p_cvmv_tbl(i),
1091: x_cvmv_rec =>x_cvmv_tbl(i));
1092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1096: END IF;
1097: EXIT WHEN (i=p_cvmv_tbl.LAST);
1098: i := p_cvmv_tbl.NEXT(i);
1091: x_cvmv_rec =>x_cvmv_tbl(i));
1092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1093: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1095: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1096: END IF;
1097: EXIT WHEN (i=p_cvmv_tbl.LAST);
1098: i := p_cvmv_tbl.NEXT(i);
1099: END LOOP;
1096: END IF;
1097: EXIT WHEN (i=p_cvmv_tbl.LAST);
1098: i := p_cvmv_tbl.NEXT(i);
1099: END LOOP;
1100: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1097: EXIT WHEN (i=p_cvmv_tbl.LAST);
1098: i := p_cvmv_tbl.NEXT(i);
1099: END LOOP;
1100: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: END IF;
1098: i := p_cvmv_tbl.NEXT(i);
1099: END LOOP;
1100: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: END IF;
1106: EXCEPTION
1099: END LOOP;
1100: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1102: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: END IF;
1106: EXCEPTION
1107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1103: RAISE OKC_API.G_EXCEPTION_ERROR;
1104: END IF;
1105: END IF;
1106: EXCEPTION
1107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1109: l_api_name,
1110: G_PKG_NAME,
1111: 'OKC_API.G_RET_STS_ERROR',
1104: END IF;
1105: END IF;
1106: EXCEPTION
1107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1109: l_api_name,
1110: G_PKG_NAME,
1111: 'OKC_API.G_RET_STS_ERROR',
1112: x_msg_count,
1107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1108: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1109: l_api_name,
1110: G_PKG_NAME,
1111: 'OKC_API.G_RET_STS_ERROR',
1112: x_msg_count,
1113: x_msg_data,
1114: '_PVT');
1115: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1111: 'OKC_API.G_RET_STS_ERROR',
1112: x_msg_count,
1113: x_msg_data,
1114: '_PVT');
1115: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1116: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1117: l_api_name,
1118: G_PKG_NAME,
1119: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1112: x_msg_count,
1113: x_msg_data,
1114: '_PVT');
1115: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1116: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1117: l_api_name,
1118: G_PKG_NAME,
1119: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1120: x_msg_count,
1115: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1116: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1117: l_api_name,
1118: G_PKG_NAME,
1119: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1120: x_msg_count,
1121: x_msg_data,
1122: '_PVT');
1123: WHEN OTHERS THEN
1120: x_msg_count,
1121: x_msg_data,
1122: '_PVT');
1123: WHEN OTHERS THEN
1124: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1125: l_api_name,
1126: G_PKG_NAME,
1127: 'OTHERS',
1128: x_msg_count,
1132: ---------------------------------------------------------------------------------------
1133:
1134: PROCEDURE create_contract_item(
1135: p_api_version IN NUMBER,
1136: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1137: x_return_status OUT NOCOPY VARCHAR2,
1138: x_msg_count OUT NOCOPY NUMBER,
1139: x_msg_data OUT NOCOPY VARCHAR2,
1140: p_cimv_rec IN cimv_rec_type,
1164: l_business_event_name WF_EVENTS.NAME%TYPE := NULL;
1165: --vthiruva end, 15-Sep-2004
1166:
1167: BEGIN
1168: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1169: -- Call start_activity to create savepoint, check compatibility
1170: -- and initialize message list
1171: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1172: ,p_init_msg_list
1167: BEGIN
1168: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1169: -- Call start_activity to create savepoint, check compatibility
1170: -- and initialize message list
1171: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1172: ,p_init_msg_list
1173: ,'_PVT'
1174: ,x_return_status);
1175: -- Check if activity started successfully
1172: ,p_init_msg_list
1173: ,'_PVT'
1174: ,x_return_status);
1175: -- Check if activity started successfully
1176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1179: RAISE OKC_API.G_EXCEPTION_ERROR;
1180: END IF;
1173: ,'_PVT'
1174: ,x_return_status);
1175: -- Check if activity started successfully
1176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1179: RAISE OKC_API.G_EXCEPTION_ERROR;
1180: END IF;
1181: -- Since we are creatieng a wrapper over the okc
1174: ,x_return_status);
1175: -- Check if activity started successfully
1176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1179: RAISE OKC_API.G_EXCEPTION_ERROR;
1180: END IF;
1181: -- Since we are creatieng a wrapper over the okc
1182: -- we need to migrate from locally declared cimv record
1175: -- Check if activity started successfully
1176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1179: RAISE OKC_API.G_EXCEPTION_ERROR;
1180: END IF;
1181: -- Since we are creatieng a wrapper over the okc
1182: -- we need to migrate from locally declared cimv record
1183: -- to OKC declared cimv record type as process of input
1182: -- we need to migrate from locally declared cimv record
1183: -- to OKC declared cimv record type as process of input
1184: migrate_okl_okc_item(p_cimv_rec,
1185: lr_cimv_rec_type_in);
1186: -- Calling the actual OKC api
1187:
1188: -- smereddy,09/08/2005,Bug#4378699
1189: okl_context.set_okc_org_context(p_chr_id => lr_cimv_rec_type_in.dnz_chr_id);
1190:
1191: ----- Changes by Kanti
1192: ----- Validate the JTOT Object code, ID1 and ID2
1193:
1194: okl_la_validation_util_pvt.VALIDATE_STYLE_JTOT (p_api_version => p_api_version,
1195: p_init_msg_list => OKC_API.G_FALSE,
1196: x_return_status => x_return_status,
1197: x_msg_count => x_msg_count,
1198: x_msg_data => x_msg_data,
1199: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1198: x_msg_data => x_msg_data,
1199: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1200: p_id1 => lr_cimv_rec_type_in.object1_id1,
1201: p_id2 => lr_cimv_rec_type_in.object1_id2);
1202: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1199: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1200: p_id1 => lr_cimv_rec_type_in.object1_id1,
1201: p_id2 => lr_cimv_rec_type_in.object1_id2);
1202: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1207:
1200: p_id1 => lr_cimv_rec_type_in.object1_id1,
1201: p_id2 => lr_cimv_rec_type_in.object1_id2);
1202: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1207:
1208: ---- Changes End
1201: p_id2 => lr_cimv_rec_type_in.object1_id2);
1202: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1205: RAISE OKC_API.G_EXCEPTION_ERROR;
1206: END IF;
1207:
1208: ---- Changes End
1209:
1214: x_msg_count => x_msg_count,
1215: x_msg_data => x_msg_data,
1216: p_cimv_rec => lr_cimv_rec_type_in,
1217: x_cimv_rec => lr_cimv_rec_type_out);
1218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1215: x_msg_data => x_msg_data,
1216: p_cimv_rec => lr_cimv_rec_type_in,
1217: x_cimv_rec => lr_cimv_rec_type_out);
1218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: -- Since we are creatieng a wrapper over the okc
1216: p_cimv_rec => lr_cimv_rec_type_in,
1217: x_cimv_rec => lr_cimv_rec_type_out);
1218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: -- Since we are creatieng a wrapper over the okc
1224: -- we need to migrate from OKC declared cimv record type
1217: x_cimv_rec => lr_cimv_rec_type_out);
1218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1221: RAISE OKC_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: -- Since we are creatieng a wrapper over the okc
1224: -- we need to migrate from OKC declared cimv record type
1225: -- to locally declared cimv record as process of input
1266: ,p_event_param_list => l_parameter_list);
1267: END IF;
1268: --vthiruva end, 15-Sep-2004
1269:
1270: OKC_API.END_ACTIVITY (x_msg_count,
1271: x_msg_data );
1272: EXCEPTION
1273: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1274: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1269:
1270: OKC_API.END_ACTIVITY (x_msg_count,
1271: x_msg_data );
1272: EXCEPTION
1273: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1274: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1275: l_api_name,
1276: G_PKG_NAME,
1277: 'OKC_API.G_RET_STS_ERROR',
1270: OKC_API.END_ACTIVITY (x_msg_count,
1271: x_msg_data );
1272: EXCEPTION
1273: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1274: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1275: l_api_name,
1276: G_PKG_NAME,
1277: 'OKC_API.G_RET_STS_ERROR',
1278: x_msg_count,
1273: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1274: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1275: l_api_name,
1276: G_PKG_NAME,
1277: 'OKC_API.G_RET_STS_ERROR',
1278: x_msg_count,
1279: x_msg_data,
1280: '_PVT');
1281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1277: 'OKC_API.G_RET_STS_ERROR',
1278: x_msg_count,
1279: x_msg_data,
1280: '_PVT');
1281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1283: l_api_name,
1284: G_PKG_NAME,
1285: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1278: x_msg_count,
1279: x_msg_data,
1280: '_PVT');
1281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1283: l_api_name,
1284: G_PKG_NAME,
1285: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1286: x_msg_count,
1281: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1282: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1283: l_api_name,
1284: G_PKG_NAME,
1285: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1286: x_msg_count,
1287: x_msg_data,
1288: '_PVT');
1289: WHEN OTHERS THEN
1286: x_msg_count,
1287: x_msg_data,
1288: '_PVT');
1289: WHEN OTHERS THEN
1290: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1291: l_api_name,
1292: G_PKG_NAME,
1293: 'OTHERS',
1294: x_msg_count,
1297: END create_contract_item;
1298: --------------------------------------------------------------------------------------------------------------
1299: PROCEDURE create_contract_item(
1300: p_api_version IN NUMBER,
1301: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1302: x_return_status OUT NOCOPY VARCHAR2,
1303: x_msg_count OUT NOCOPY NUMBER,
1304: x_msg_data OUT NOCOPY VARCHAR2,
1305: p_cimv_tbl IN cimv_tbl_type,
1307:
1308: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_ITEM';
1309: i NUMBER := 0;
1310: BEGIN
1311: OKC_API.init_msg_list(p_init_msg_list);
1312: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1313: IF (p_cimv_tbl.COUNT>0) THEN
1314: i := p_cimv_tbl.FIRST;
1315: LOOP
1308: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_ITEM';
1309: i NUMBER := 0;
1310: BEGIN
1311: OKC_API.init_msg_list(p_init_msg_list);
1312: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1313: IF (p_cimv_tbl.COUNT>0) THEN
1314: i := p_cimv_tbl.FIRST;
1315: LOOP
1316: create_contract_item(p_api_version =>p_api_version,
1313: IF (p_cimv_tbl.COUNT>0) THEN
1314: i := p_cimv_tbl.FIRST;
1315: LOOP
1316: create_contract_item(p_api_version =>p_api_version,
1317: p_init_msg_list =>OKC_API.G_FALSE,
1318: x_return_status =>x_return_status,
1319: x_msg_count =>x_msg_count,
1320: x_msg_data =>x_msg_data,
1321: p_cimv_rec =>p_cimv_tbl(i),
1319: x_msg_count =>x_msg_count,
1320: x_msg_data =>x_msg_data,
1321: p_cimv_rec =>p_cimv_tbl(i),
1322: x_cimv_rec =>x_cimv_tbl(i));
1323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1324: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1326: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1327: END IF;
1320: x_msg_data =>x_msg_data,
1321: p_cimv_rec =>p_cimv_tbl(i),
1322: x_cimv_rec =>x_cimv_tbl(i));
1323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1324: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1326: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1327: END IF;
1328: EXIT WHEN (i=p_cimv_tbl.LAST);
1321: p_cimv_rec =>p_cimv_tbl(i),
1322: x_cimv_rec =>x_cimv_tbl(i));
1323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1324: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1326: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1327: END IF;
1328: EXIT WHEN (i=p_cimv_tbl.LAST);
1329: i := p_cimv_tbl.NEXT(i);
1322: x_cimv_rec =>x_cimv_tbl(i));
1323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1324: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1326: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1327: END IF;
1328: EXIT WHEN (i=p_cimv_tbl.LAST);
1329: i := p_cimv_tbl.NEXT(i);
1330: END LOOP;
1327: END IF;
1328: EXIT WHEN (i=p_cimv_tbl.LAST);
1329: i := p_cimv_tbl.NEXT(i);
1330: END LOOP;
1331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1334: RAISE OKC_API.G_EXCEPTION_ERROR;
1335: END IF;
1328: EXIT WHEN (i=p_cimv_tbl.LAST);
1329: i := p_cimv_tbl.NEXT(i);
1330: END LOOP;
1331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1334: RAISE OKC_API.G_EXCEPTION_ERROR;
1335: END IF;
1336: END IF;
1329: i := p_cimv_tbl.NEXT(i);
1330: END LOOP;
1331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1334: RAISE OKC_API.G_EXCEPTION_ERROR;
1335: END IF;
1336: END IF;
1337: EXCEPTION
1330: END LOOP;
1331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1334: RAISE OKC_API.G_EXCEPTION_ERROR;
1335: END IF;
1336: END IF;
1337: EXCEPTION
1338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1334: RAISE OKC_API.G_EXCEPTION_ERROR;
1335: END IF;
1336: END IF;
1337: EXCEPTION
1338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1339: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1340: l_api_name,
1341: G_PKG_NAME,
1342: 'OKC_API.G_RET_STS_ERROR',
1335: END IF;
1336: END IF;
1337: EXCEPTION
1338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1339: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1340: l_api_name,
1341: G_PKG_NAME,
1342: 'OKC_API.G_RET_STS_ERROR',
1343: x_msg_count,
1338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1339: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1340: l_api_name,
1341: G_PKG_NAME,
1342: 'OKC_API.G_RET_STS_ERROR',
1343: x_msg_count,
1344: x_msg_data,
1345: '_PVT');
1346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1342: 'OKC_API.G_RET_STS_ERROR',
1343: x_msg_count,
1344: x_msg_data,
1345: '_PVT');
1346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1348: l_api_name,
1349: G_PKG_NAME,
1350: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1343: x_msg_count,
1344: x_msg_data,
1345: '_PVT');
1346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1348: l_api_name,
1349: G_PKG_NAME,
1350: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1351: x_msg_count,
1346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1348: l_api_name,
1349: G_PKG_NAME,
1350: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1351: x_msg_count,
1352: x_msg_data,
1353: '_PVT');
1354: WHEN OTHERS THEN
1351: x_msg_count,
1352: x_msg_data,
1353: '_PVT');
1354: WHEN OTHERS THEN
1355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1356: l_api_name,
1357: G_PKG_NAME,
1358: 'OTHERS',
1359: x_msg_count,
1363: --------------------------------------------------------------------------------------------------
1364:
1365: PROCEDURE update_contract_item(
1366: p_api_version IN NUMBER,
1367: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1368: x_return_status OUT NOCOPY VARCHAR2,
1369: x_msg_count OUT NOCOPY NUMBER,
1370: x_msg_data OUT NOCOPY VARCHAR2,
1371: p_cimv_rec IN cimv_rec_type,
1385: l_dnz_chr_id NUMBER;
1386: -- end,mvasudev,09/08/2005,Bug#4378699
1387:
1388: BEGIN
1389: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1390: -- Call start_activity to create savepoint, check compatibility
1391: -- and initialize message list
1392: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1393: ,p_init_msg_list
1388: BEGIN
1389: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1390: -- Call start_activity to create savepoint, check compatibility
1391: -- and initialize message list
1392: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1393: ,p_init_msg_list
1394: ,'_PVT'
1395: ,x_return_status);
1396: -- Check if activity started successfully
1393: ,p_init_msg_list
1394: ,'_PVT'
1395: ,x_return_status);
1396: -- Check if activity started successfully
1397: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1394: ,'_PVT'
1395: ,x_return_status);
1396: -- Check if activity started successfully
1397: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: -- Since we are creatieng a wrapper over the okc
1395: ,x_return_status);
1396: -- Check if activity started successfully
1397: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: -- Since we are creatieng a wrapper over the okc
1403: -- we need to migrate from locally declared cimv record
1396: -- Check if activity started successfully
1397: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1398: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1399: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_ERROR;
1401: END IF;
1402: -- Since we are creatieng a wrapper over the okc
1403: -- we need to migrate from locally declared cimv record
1404: -- to OKC declared cimv record type as process of input
1418:
1419: IF l_dnz_chr_id IS NOT NULL THEN
1420: okl_context.set_okc_org_context(p_chr_id => l_dnz_chr_id);
1421: ELSE
1422: RAISE OKC_API.G_EXCEPTION_ERROR;
1423: END IF;
1424: -- smereddy,09/08/2005,Bug#4378699
1425:
1426: ----- Changes by Kanti
1426: ----- Changes by Kanti
1427: ----- Validate the JTOT Object code, ID1 and ID2
1428:
1429: okl_la_validation_util_pvt.VALIDATE_STYLE_JTOT (p_api_version => p_api_version,
1430: p_init_msg_list => OKC_API.G_FALSE,
1431: x_return_status => x_return_status,
1432: x_msg_count => x_msg_count,
1433: x_msg_data => x_msg_data,
1434: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1433: x_msg_data => x_msg_data,
1434: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1435: p_id1 => lr_cimv_rec_type_in.object1_id1,
1436: p_id2 => lr_cimv_rec_type_in.object1_id2);
1437: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440: RAISE OKC_API.G_EXCEPTION_ERROR;
1441: END IF;
1434: p_object_name => lr_cimv_rec_type_in.jtot_object1_code,
1435: p_id1 => lr_cimv_rec_type_in.object1_id1,
1436: p_id2 => lr_cimv_rec_type_in.object1_id2);
1437: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440: RAISE OKC_API.G_EXCEPTION_ERROR;
1441: END IF;
1442: ---- Changes End
1435: p_id1 => lr_cimv_rec_type_in.object1_id1,
1436: p_id2 => lr_cimv_rec_type_in.object1_id2);
1437: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440: RAISE OKC_API.G_EXCEPTION_ERROR;
1441: END IF;
1442: ---- Changes End
1443:
1436: p_id2 => lr_cimv_rec_type_in.object1_id2);
1437: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1438: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1439: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1440: RAISE OKC_API.G_EXCEPTION_ERROR;
1441: END IF;
1442: ---- Changes End
1443:
1444:
1441: END IF;
1442: ---- Changes End
1443:
1444:
1445: -- Calling the actual OKC api
1446:
1447:
1448: OKC_CONTRACT_ITEM_PUB.update_contract_item(p_api_version => p_api_version,
1449: p_init_msg_list => p_init_msg_list,
1452: x_msg_data => x_msg_data,
1453: p_cimv_rec => lr_cimv_rec_type_in,
1454: x_cimv_rec => lr_cimv_rec_type_out);
1455:
1456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_ERROR;
1460: END IF;
1453: p_cimv_rec => lr_cimv_rec_type_in,
1454: x_cimv_rec => lr_cimv_rec_type_out);
1455:
1456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_ERROR;
1460: END IF;
1461: -- Since we are creatieng a wrapper over the okc
1454: x_cimv_rec => lr_cimv_rec_type_out);
1455:
1456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_ERROR;
1460: END IF;
1461: -- Since we are creatieng a wrapper over the okc
1462: -- we need to migrate from OKC declared cimv record type
1455:
1456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1459: RAISE OKC_API.G_EXCEPTION_ERROR;
1460: END IF;
1461: -- Since we are creatieng a wrapper over the okc
1462: -- we need to migrate from OKC declared cimv record type
1463: -- to locally declared cimv record as process of input
1462: -- we need to migrate from OKC declared cimv record type
1463: -- to locally declared cimv record as process of input
1464: migrate_okc_okl_item(lr_cimv_rec_type_out,
1465: x_cimv_rec);
1466: OKC_API.END_ACTIVITY (x_msg_count,
1467: x_msg_data );
1468: EXCEPTION
1469: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1465: x_cimv_rec);
1466: OKC_API.END_ACTIVITY (x_msg_count,
1467: x_msg_data );
1468: EXCEPTION
1469: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1471: l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_ERROR',
1466: OKC_API.END_ACTIVITY (x_msg_count,
1467: x_msg_data );
1468: EXCEPTION
1469: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1471: l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_ERROR',
1474: x_msg_count,
1469: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1471: l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_ERROR',
1474: x_msg_count,
1475: x_msg_data,
1476: '_PVT');
1477: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1473: 'OKC_API.G_RET_STS_ERROR',
1474: x_msg_count,
1475: x_msg_data,
1476: '_PVT');
1477: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1479: l_api_name,
1480: G_PKG_NAME,
1481: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1474: x_msg_count,
1475: x_msg_data,
1476: '_PVT');
1477: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1479: l_api_name,
1480: G_PKG_NAME,
1481: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1482: x_msg_count,
1477: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1479: l_api_name,
1480: G_PKG_NAME,
1481: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1482: x_msg_count,
1483: x_msg_data,
1484: '_PVT');
1485: WHEN OTHERS THEN
1482: x_msg_count,
1483: x_msg_data,
1484: '_PVT');
1485: WHEN OTHERS THEN
1486: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1487: l_api_name,
1488: G_PKG_NAME,
1489: 'OTHERS',
1490: x_msg_count,
1493: END update_contract_item;
1494: --------------------------------------------------------------------------------------------------------------
1495: PROCEDURE update_contract_item(
1496: p_api_version IN NUMBER,
1497: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1498: x_return_status OUT NOCOPY VARCHAR2,
1499: x_msg_count OUT NOCOPY NUMBER,
1500: x_msg_data OUT NOCOPY VARCHAR2,
1501: p_cimv_tbl IN cimv_tbl_type,
1503:
1504: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_ITEM';
1505: i NUMBER := 0;
1506: BEGIN
1507: OKC_API.init_msg_list(p_init_msg_list);
1508: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1509: IF (p_cimv_tbl.COUNT>0) THEN
1510: i := p_cimv_tbl.FIRST;
1511: LOOP
1504: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_ITEM';
1505: i NUMBER := 0;
1506: BEGIN
1507: OKC_API.init_msg_list(p_init_msg_list);
1508: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1509: IF (p_cimv_tbl.COUNT>0) THEN
1510: i := p_cimv_tbl.FIRST;
1511: LOOP
1512: update_contract_item(p_api_version =>p_api_version,
1509: IF (p_cimv_tbl.COUNT>0) THEN
1510: i := p_cimv_tbl.FIRST;
1511: LOOP
1512: update_contract_item(p_api_version =>p_api_version,
1513: p_init_msg_list =>OKC_API.G_FALSE,
1514: x_return_status =>x_return_status,
1515: x_msg_count =>x_msg_count,
1516: x_msg_data =>x_msg_data,
1517: p_cimv_rec =>p_cimv_tbl(i),
1515: x_msg_count =>x_msg_count,
1516: x_msg_data =>x_msg_data,
1517: p_cimv_rec =>p_cimv_tbl(i),
1518: x_cimv_rec =>x_cimv_tbl(i));
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1520: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1522: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1523: END IF;
1516: x_msg_data =>x_msg_data,
1517: p_cimv_rec =>p_cimv_tbl(i),
1518: x_cimv_rec =>x_cimv_tbl(i));
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1520: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1522: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1523: END IF;
1524: EXIT WHEN (i=p_cimv_tbl.LAST);
1517: p_cimv_rec =>p_cimv_tbl(i),
1518: x_cimv_rec =>x_cimv_tbl(i));
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1520: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1522: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1523: END IF;
1524: EXIT WHEN (i=p_cimv_tbl.LAST);
1525: i := p_cimv_tbl.NEXT(i);
1518: x_cimv_rec =>x_cimv_tbl(i));
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1520: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1522: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1523: END IF;
1524: EXIT WHEN (i=p_cimv_tbl.LAST);
1525: i := p_cimv_tbl.NEXT(i);
1526: END LOOP;
1523: END IF;
1524: EXIT WHEN (i=p_cimv_tbl.LAST);
1525: i := p_cimv_tbl.NEXT(i);
1526: END LOOP;
1527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: RAISE OKC_API.G_EXCEPTION_ERROR;
1531: END IF;
1524: EXIT WHEN (i=p_cimv_tbl.LAST);
1525: i := p_cimv_tbl.NEXT(i);
1526: END LOOP;
1527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: RAISE OKC_API.G_EXCEPTION_ERROR;
1531: END IF;
1532: END IF;
1525: i := p_cimv_tbl.NEXT(i);
1526: END LOOP;
1527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: RAISE OKC_API.G_EXCEPTION_ERROR;
1531: END IF;
1532: END IF;
1533: EXCEPTION
1526: END LOOP;
1527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: RAISE OKC_API.G_EXCEPTION_ERROR;
1531: END IF;
1532: END IF;
1533: EXCEPTION
1534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1530: RAISE OKC_API.G_EXCEPTION_ERROR;
1531: END IF;
1532: END IF;
1533: EXCEPTION
1534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1535: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OKC_API.G_RET_STS_ERROR',
1531: END IF;
1532: END IF;
1533: EXCEPTION
1534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1535: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OKC_API.G_RET_STS_ERROR',
1539: x_msg_count,
1534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1535: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1536: l_api_name,
1537: G_PKG_NAME,
1538: 'OKC_API.G_RET_STS_ERROR',
1539: x_msg_count,
1540: x_msg_data,
1541: '_PVT');
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1538: 'OKC_API.G_RET_STS_ERROR',
1539: x_msg_count,
1540: x_msg_data,
1541: '_PVT');
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1544: l_api_name,
1545: G_PKG_NAME,
1546: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1539: x_msg_count,
1540: x_msg_data,
1541: '_PVT');
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1544: l_api_name,
1545: G_PKG_NAME,
1546: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1547: x_msg_count,
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1543: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1544: l_api_name,
1545: G_PKG_NAME,
1546: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1547: x_msg_count,
1548: x_msg_data,
1549: '_PVT');
1550: WHEN OTHERS THEN
1547: x_msg_count,
1548: x_msg_data,
1549: '_PVT');
1550: WHEN OTHERS THEN
1551: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1552: l_api_name,
1553: G_PKG_NAME,
1554: 'OTHERS',
1555: x_msg_count,
1558: END update_contract_item;
1559: --------------------------------------------------------------------------------------------------
1560: PROCEDURE delete_contract_item(
1561: p_api_version IN NUMBER,
1562: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1563: x_return_status OUT NOCOPY VARCHAR2,
1564: x_msg_count OUT NOCOPY NUMBER,
1565: x_msg_data OUT NOCOPY VARCHAR2,
1566: p_cimv_rec IN cimv_rec_type) AS
1567:
1568: lr_cimv_rec_type_in OKC_CONTRACT_ITEM_PUB.cimv_rec_type;
1569: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_K_ITEM';
1570: BEGIN
1571: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1572: -- Call start_activity to create savepoint, check compatibility
1573: -- and initialize message list
1574: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1575: ,p_init_msg_list
1570: BEGIN
1571: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1572: -- Call start_activity to create savepoint, check compatibility
1573: -- and initialize message list
1574: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1575: ,p_init_msg_list
1576: ,'_PVT'
1577: ,x_return_status);
1578: -- Check if activity started successfully
1575: ,p_init_msg_list
1576: ,'_PVT'
1577: ,x_return_status);
1578: -- Check if activity started successfully
1579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_ERROR;
1583: END IF;
1576: ,'_PVT'
1577: ,x_return_status);
1578: -- Check if activity started successfully
1579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_ERROR;
1583: END IF;
1584: -- Since we are creatieng a wrapper over the okc
1577: ,x_return_status);
1578: -- Check if activity started successfully
1579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_ERROR;
1583: END IF;
1584: -- Since we are creatieng a wrapper over the okc
1585: -- we need to migrate from locally declared cimv record
1578: -- Check if activity started successfully
1579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1580: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1582: RAISE OKC_API.G_EXCEPTION_ERROR;
1583: END IF;
1584: -- Since we are creatieng a wrapper over the okc
1585: -- we need to migrate from locally declared cimv record
1586: -- to OKC declared cimv record type as process of input
1585: -- we need to migrate from locally declared cimv record
1586: -- to OKC declared cimv record type as process of input
1587: migrate_okl_okc_item(p_cimv_rec,
1588: lr_cimv_rec_type_in);
1589: -- Calling the actual OKC api
1590: OKC_CONTRACT_ITEM_PUB.delete_contract_item(p_api_version => p_api_version,
1591: p_init_msg_list => p_init_msg_list,
1592: x_return_status => x_return_status,
1593: x_msg_count => x_msg_count,
1592: x_return_status => x_return_status,
1593: x_msg_count => x_msg_count,
1594: x_msg_data => x_msg_data,
1595: p_cimv_rec => lr_cimv_rec_type_in);
1596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1593: x_msg_count => x_msg_count,
1594: x_msg_data => x_msg_data,
1595: p_cimv_rec => lr_cimv_rec_type_in);
1596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY (x_msg_count,
1594: x_msg_data => x_msg_data,
1595: p_cimv_rec => lr_cimv_rec_type_in);
1596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY (x_msg_count,
1602: x_msg_data );
1595: p_cimv_rec => lr_cimv_rec_type_in);
1596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY (x_msg_count,
1602: x_msg_data );
1603: EXCEPTION
1597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1599: RAISE OKC_API.G_EXCEPTION_ERROR;
1600: END IF;
1601: OKC_API.END_ACTIVITY (x_msg_count,
1602: x_msg_data );
1603: EXCEPTION
1604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1605: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1600: END IF;
1601: OKC_API.END_ACTIVITY (x_msg_count,
1602: x_msg_data );
1603: EXCEPTION
1604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1605: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1606: l_api_name,
1607: G_PKG_NAME,
1608: 'OKC_API.G_RET_STS_ERROR',
1601: OKC_API.END_ACTIVITY (x_msg_count,
1602: x_msg_data );
1603: EXCEPTION
1604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1605: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1606: l_api_name,
1607: G_PKG_NAME,
1608: 'OKC_API.G_RET_STS_ERROR',
1609: x_msg_count,
1604: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1605: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1606: l_api_name,
1607: G_PKG_NAME,
1608: 'OKC_API.G_RET_STS_ERROR',
1609: x_msg_count,
1610: x_msg_data,
1611: '_PVT');
1612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1608: 'OKC_API.G_RET_STS_ERROR',
1609: x_msg_count,
1610: x_msg_data,
1611: '_PVT');
1612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1613: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1614: l_api_name,
1615: G_PKG_NAME,
1616: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1609: x_msg_count,
1610: x_msg_data,
1611: '_PVT');
1612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1613: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1614: l_api_name,
1615: G_PKG_NAME,
1616: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1617: x_msg_count,
1612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1613: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1614: l_api_name,
1615: G_PKG_NAME,
1616: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1617: x_msg_count,
1618: x_msg_data,
1619: '_PVT');
1620: WHEN OTHERS THEN
1617: x_msg_count,
1618: x_msg_data,
1619: '_PVT');
1620: WHEN OTHERS THEN
1621: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1622: l_api_name,
1623: G_PKG_NAME,
1624: 'OTHERS',
1625: x_msg_count,
1628: END delete_contract_item;
1629: --------------------------------------------------------------------------------------------------------------
1630: PROCEDURE delete_contract_item(
1631: p_api_version IN NUMBER,
1632: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1633: x_return_status OUT NOCOPY VARCHAR2,
1634: x_msg_count OUT NOCOPY NUMBER,
1635: x_msg_data OUT NOCOPY VARCHAR2,
1636: p_cimv_tbl IN cimv_tbl_type) AS
1637:
1638: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_ITEM';
1639: i NUMBER := 0;
1640: BEGIN
1641: OKC_API.init_msg_list(p_init_msg_list);
1642: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1643: IF (p_cimv_tbl.COUNT>0) THEN
1644: i := p_cimv_tbl.FIRST;
1645: LOOP
1638: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_ITEM';
1639: i NUMBER := 0;
1640: BEGIN
1641: OKC_API.init_msg_list(p_init_msg_list);
1642: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1643: IF (p_cimv_tbl.COUNT>0) THEN
1644: i := p_cimv_tbl.FIRST;
1645: LOOP
1646: delete_contract_item(p_api_version =>p_api_version,
1643: IF (p_cimv_tbl.COUNT>0) THEN
1644: i := p_cimv_tbl.FIRST;
1645: LOOP
1646: delete_contract_item(p_api_version =>p_api_version,
1647: p_init_msg_list =>OKC_API.G_FALSE,
1648: x_return_status =>x_return_status,
1649: x_msg_count =>x_msg_count,
1650: x_msg_data =>x_msg_data,
1651: p_cimv_rec =>p_cimv_tbl(i));
1648: x_return_status =>x_return_status,
1649: x_msg_count =>x_msg_count,
1650: x_msg_data =>x_msg_data,
1651: p_cimv_rec =>p_cimv_tbl(i));
1652: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1653: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1654: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1655: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1656: END IF;
1649: x_msg_count =>x_msg_count,
1650: x_msg_data =>x_msg_data,
1651: p_cimv_rec =>p_cimv_tbl(i));
1652: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1653: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1654: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1655: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1656: END IF;
1657: EXIT WHEN (i=p_cimv_tbl.LAST);
1650: x_msg_data =>x_msg_data,
1651: p_cimv_rec =>p_cimv_tbl(i));
1652: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1653: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1654: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1655: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1656: END IF;
1657: EXIT WHEN (i=p_cimv_tbl.LAST);
1658: i := p_cimv_tbl.NEXT(i);
1651: p_cimv_rec =>p_cimv_tbl(i));
1652: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1653: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1654: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1655: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1656: END IF;
1657: EXIT WHEN (i=p_cimv_tbl.LAST);
1658: i := p_cimv_tbl.NEXT(i);
1659: END LOOP;
1656: END IF;
1657: EXIT WHEN (i=p_cimv_tbl.LAST);
1658: i := p_cimv_tbl.NEXT(i);
1659: END LOOP;
1660: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1662: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_ERROR;
1664: END IF;
1657: EXIT WHEN (i=p_cimv_tbl.LAST);
1658: i := p_cimv_tbl.NEXT(i);
1659: END LOOP;
1660: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1662: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_ERROR;
1664: END IF;
1665: END IF;
1658: i := p_cimv_tbl.NEXT(i);
1659: END LOOP;
1660: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1662: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_ERROR;
1664: END IF;
1665: END IF;
1666: EXCEPTION
1659: END LOOP;
1660: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1662: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_ERROR;
1664: END IF;
1665: END IF;
1666: EXCEPTION
1667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1663: RAISE OKC_API.G_EXCEPTION_ERROR;
1664: END IF;
1665: END IF;
1666: EXCEPTION
1667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1668: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1669: l_api_name,
1670: G_PKG_NAME,
1671: 'OKC_API.G_RET_STS_ERROR',
1664: END IF;
1665: END IF;
1666: EXCEPTION
1667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1668: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1669: l_api_name,
1670: G_PKG_NAME,
1671: 'OKC_API.G_RET_STS_ERROR',
1672: x_msg_count,
1667: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1668: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1669: l_api_name,
1670: G_PKG_NAME,
1671: 'OKC_API.G_RET_STS_ERROR',
1672: x_msg_count,
1673: x_msg_data,
1674: '_PVT');
1675: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1671: 'OKC_API.G_RET_STS_ERROR',
1672: x_msg_count,
1673: x_msg_data,
1674: '_PVT');
1675: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1676: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1677: l_api_name,
1678: G_PKG_NAME,
1679: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1672: x_msg_count,
1673: x_msg_data,
1674: '_PVT');
1675: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1676: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1677: l_api_name,
1678: G_PKG_NAME,
1679: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1680: x_msg_count,
1675: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1676: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1677: l_api_name,
1678: G_PKG_NAME,
1679: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1680: x_msg_count,
1681: x_msg_data,
1682: '_PVT');
1683: WHEN OTHERS THEN
1680: x_msg_count,
1681: x_msg_data,
1682: '_PVT');
1683: WHEN OTHERS THEN
1684: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1685: l_api_name,
1686: G_PKG_NAME,
1687: 'OTHERS',
1688: x_msg_count,
1691: END delete_contract_item;
1692: --------------------------------------------------------------------------------------------------------------
1693: PROCEDURE create_k_party_role(
1694: p_api_version IN NUMBER,
1695: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1696: x_return_status OUT NOCOPY VARCHAR2,
1697: x_msg_count OUT NOCOPY NUMBER,
1698: x_msg_data OUT NOCOPY VARCHAR2,
1699: p_cplv_rec IN cplv_rec_type,
1717: */
1718: l_parameter_list wf_parameter_list_t;
1719:
1720: BEGIN
1721: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1722: -- Call start_activity to create savepoint, check compatibility
1723: -- and initialize message list
1724: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1725: ,p_init_msg_list
1720: BEGIN
1721: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1722: -- Call start_activity to create savepoint, check compatibility
1723: -- and initialize message list
1724: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1725: ,p_init_msg_list
1726: ,'_PVT'
1727: ,x_return_status);
1728: -- Check if activity started successfully
1725: ,p_init_msg_list
1726: ,'_PVT'
1727: ,x_return_status);
1728: -- Check if activity started successfully
1729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1732: RAISE OKC_API.G_EXCEPTION_ERROR;
1733: END IF;
1726: ,'_PVT'
1727: ,x_return_status);
1728: -- Check if activity started successfully
1729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1732: RAISE OKC_API.G_EXCEPTION_ERROR;
1733: END IF;
1734: -- Since we are creatieng a wrapper over the okc
1727: ,x_return_status);
1728: -- Check if activity started successfully
1729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1732: RAISE OKC_API.G_EXCEPTION_ERROR;
1733: END IF;
1734: -- Since we are creatieng a wrapper over the okc
1735: -- we need to migrate from locally declared cplv record
1728: -- Check if activity started successfully
1729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1732: RAISE OKC_API.G_EXCEPTION_ERROR;
1733: END IF;
1734: -- Since we are creatieng a wrapper over the okc
1735: -- we need to migrate from locally declared cplv record
1736: -- to OKC declared cplv record type as process of input
1735: -- we need to migrate from locally declared cplv record
1736: -- to OKC declared cplv record type as process of input
1737: migrate_okl_okc_party(p_cplv_rec,
1738: lr_cplv_rec_type_in);
1739: -- Calling the actual OKC api
1740:
1741: ----- Changes by Kanti
1742: ----- Validate the JTOT Object code, ID1 and ID2
1743:
1747:
1748: IF (l_access_level = 'S') THEN
1749:
1750: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
1751: p_init_msg_list => OKC_API.G_FALSE,
1752: x_return_status => x_return_status,
1753: x_msg_count => x_msg_count,
1754: x_msg_data => x_msg_data,
1755: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1755: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1756: p_id1 => lr_cplv_rec_type_in.object1_id1,
1757: p_id2 => lr_cplv_rec_type_in.object1_id2);
1758:
1759: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: RAISE OKC_API.G_EXCEPTION_ERROR;
1763: END IF;
1756: p_id1 => lr_cplv_rec_type_in.object1_id1,
1757: p_id2 => lr_cplv_rec_type_in.object1_id2);
1758:
1759: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: RAISE OKC_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1757: p_id2 => lr_cplv_rec_type_in.object1_id2);
1758:
1759: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: RAISE OKC_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: END IF;
1758:
1759: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: RAISE OKC_API.G_EXCEPTION_ERROR;
1763: END IF;
1764:
1765: END IF;
1766:
1774: x_msg_count => x_msg_count,
1775: x_msg_data => x_msg_data,
1776: p_cplv_rec => lr_cplv_rec_type_in,
1777: x_cplv_rec => lr_cplv_rec_type_out);
1778: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1775: x_msg_data => x_msg_data,
1776: p_cplv_rec => lr_cplv_rec_type_in,
1777: x_cplv_rec => lr_cplv_rec_type_out);
1778: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: -- Since we are creatieng a wrapper over the okc
1776: p_cplv_rec => lr_cplv_rec_type_in,
1777: x_cplv_rec => lr_cplv_rec_type_out);
1778: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: -- Since we are creatieng a wrapper over the okc
1784: -- we need to migrate from OKC declared cplv record type
1777: x_cplv_rec => lr_cplv_rec_type_out);
1778: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1780: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: -- Since we are creatieng a wrapper over the okc
1784: -- we need to migrate from OKC declared cplv record type
1785: -- to locally declared cplv record as process of input
1798: x_msg_count => x_msg_count,
1799: x_msg_data => x_msg_data,
1800: p_chr_id => x_cplv_rec.dnz_chr_id);
1801:
1802: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1799: x_msg_data => x_msg_data,
1800: p_chr_id => x_cplv_rec.dnz_chr_id);
1801:
1802: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807:
1800: p_chr_id => x_cplv_rec.dnz_chr_id);
1801:
1802: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807:
1808: END IF;
1801:
1802: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1804: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807:
1808: END IF;
1809:
1837: -- mvasudev, 09/09/2004
1838: -- END, Code change to enable Business Event
1839: */
1840:
1841: OKC_API.END_ACTIVITY (x_msg_count,
1842: x_msg_data );
1843: EXCEPTION
1844: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1845: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1840:
1841: OKC_API.END_ACTIVITY (x_msg_count,
1842: x_msg_data );
1843: EXCEPTION
1844: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1845: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1846: l_api_name,
1847: G_PKG_NAME,
1848: 'OKC_API.G_RET_STS_ERROR',
1841: OKC_API.END_ACTIVITY (x_msg_count,
1842: x_msg_data );
1843: EXCEPTION
1844: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1845: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1846: l_api_name,
1847: G_PKG_NAME,
1848: 'OKC_API.G_RET_STS_ERROR',
1849: x_msg_count,
1844: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1845: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1846: l_api_name,
1847: G_PKG_NAME,
1848: 'OKC_API.G_RET_STS_ERROR',
1849: x_msg_count,
1850: x_msg_data,
1851: '_PVT');
1852: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1848: 'OKC_API.G_RET_STS_ERROR',
1849: x_msg_count,
1850: x_msg_data,
1851: '_PVT');
1852: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1854: l_api_name,
1855: G_PKG_NAME,
1856: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1849: x_msg_count,
1850: x_msg_data,
1851: '_PVT');
1852: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1854: l_api_name,
1855: G_PKG_NAME,
1856: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1857: x_msg_count,
1852: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1853: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1854: l_api_name,
1855: G_PKG_NAME,
1856: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1857: x_msg_count,
1858: x_msg_data,
1859: '_PVT');
1860: WHEN OTHERS THEN
1857: x_msg_count,
1858: x_msg_data,
1859: '_PVT');
1860: WHEN OTHERS THEN
1861: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1862: l_api_name,
1863: G_PKG_NAME,
1864: 'OTHERS',
1865: x_msg_count,
1868: END create_k_party_role;
1869: --------------------------------------------------------------------------------------------------------------
1870: PROCEDURE create_k_party_role(
1871: p_api_version IN NUMBER,
1872: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1873: x_return_status OUT NOCOPY VARCHAR2,
1874: x_msg_count OUT NOCOPY NUMBER,
1875: x_msg_data OUT NOCOPY VARCHAR2,
1876: p_cplv_tbl IN cplv_tbl_type,
1878:
1879: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_K_PARTY_ROLE';
1880: i NUMBER := 0;
1881: BEGIN
1882: OKC_API.init_msg_list(p_init_msg_list);
1883: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1884: IF (p_cplv_tbl.COUNT>0) THEN
1885: i := p_cplv_tbl.FIRST;
1886: LOOP
1879: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_K_PARTY_ROLE';
1880: i NUMBER := 0;
1881: BEGIN
1882: OKC_API.init_msg_list(p_init_msg_list);
1883: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1884: IF (p_cplv_tbl.COUNT>0) THEN
1885: i := p_cplv_tbl.FIRST;
1886: LOOP
1887: create_k_party_role(p_api_version =>p_api_version,
1884: IF (p_cplv_tbl.COUNT>0) THEN
1885: i := p_cplv_tbl.FIRST;
1886: LOOP
1887: create_k_party_role(p_api_version =>p_api_version,
1888: p_init_msg_list =>OKC_API.G_FALSE,
1889: x_return_status =>x_return_status,
1890: x_msg_count =>x_msg_count,
1891: x_msg_data =>x_msg_data,
1892: p_cplv_rec =>p_cplv_tbl(i),
1890: x_msg_count =>x_msg_count,
1891: x_msg_data =>x_msg_data,
1892: p_cplv_rec =>p_cplv_tbl(i),
1893: x_cplv_rec =>x_cplv_tbl(i));
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1898: END IF;
1891: x_msg_data =>x_msg_data,
1892: p_cplv_rec =>p_cplv_tbl(i),
1893: x_cplv_rec =>x_cplv_tbl(i));
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1898: END IF;
1899: EXIT WHEN (i=p_cplv_tbl.LAST);
1892: p_cplv_rec =>p_cplv_tbl(i),
1893: x_cplv_rec =>x_cplv_tbl(i));
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1898: END IF;
1899: EXIT WHEN (i=p_cplv_tbl.LAST);
1900: i := p_cplv_tbl.NEXT(i);
1893: x_cplv_rec =>x_cplv_tbl(i));
1894: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1895: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
1896: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1897: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
1898: END IF;
1899: EXIT WHEN (i=p_cplv_tbl.LAST);
1900: i := p_cplv_tbl.NEXT(i);
1901: END LOOP;
1898: END IF;
1899: EXIT WHEN (i=p_cplv_tbl.LAST);
1900: i := p_cplv_tbl.NEXT(i);
1901: END LOOP;
1902: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1899: EXIT WHEN (i=p_cplv_tbl.LAST);
1900: i := p_cplv_tbl.NEXT(i);
1901: END LOOP;
1902: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907: END IF;
1900: i := p_cplv_tbl.NEXT(i);
1901: END LOOP;
1902: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907: END IF;
1908: EXCEPTION
1901: END LOOP;
1902: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907: END IF;
1908: EXCEPTION
1909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907: END IF;
1908: EXCEPTION
1909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1910: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1911: l_api_name,
1912: G_PKG_NAME,
1913: 'OKC_API.G_RET_STS_ERROR',
1906: END IF;
1907: END IF;
1908: EXCEPTION
1909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1910: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1911: l_api_name,
1912: G_PKG_NAME,
1913: 'OKC_API.G_RET_STS_ERROR',
1914: x_msg_count,
1909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1910: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1911: l_api_name,
1912: G_PKG_NAME,
1913: 'OKC_API.G_RET_STS_ERROR',
1914: x_msg_count,
1915: x_msg_data,
1916: '_PVT');
1917: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1913: 'OKC_API.G_RET_STS_ERROR',
1914: x_msg_count,
1915: x_msg_data,
1916: '_PVT');
1917: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1918: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1919: l_api_name,
1920: G_PKG_NAME,
1921: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1914: x_msg_count,
1915: x_msg_data,
1916: '_PVT');
1917: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1918: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1919: l_api_name,
1920: G_PKG_NAME,
1921: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1922: x_msg_count,
1917: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1918: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1919: l_api_name,
1920: G_PKG_NAME,
1921: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1922: x_msg_count,
1923: x_msg_data,
1924: '_PVT');
1925: WHEN OTHERS THEN
1922: x_msg_count,
1923: x_msg_data,
1924: '_PVT');
1925: WHEN OTHERS THEN
1926: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
1927: l_api_name,
1928: G_PKG_NAME,
1929: 'OTHERS',
1930: x_msg_count,
1933: END create_k_party_role;
1934: --------------------------------------------------------------------------------------------------------------
1935: PROCEDURE update_k_party_role(
1936: p_api_version IN NUMBER,
1937: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1938: x_return_status OUT NOCOPY VARCHAR2,
1939: x_msg_count OUT NOCOPY NUMBER,
1940: x_msg_data OUT NOCOPY VARCHAR2,
1941: p_cplv_rec IN cplv_rec_type,
1953:
1954: l_access_level OKC_ROLE_SOURCES.access_level%TYPE;
1955:
1956: BEGIN
1957: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1958: -- Call start_activity to create savepoint, check compatibility
1959: -- and initialize message list
1960: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1961: ,p_init_msg_list
1956: BEGIN
1957: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1958: -- Call start_activity to create savepoint, check compatibility
1959: -- and initialize message list
1960: x_return_status := OKC_API.START_ACTIVITY (l_api_name
1961: ,p_init_msg_list
1962: ,'_PVT'
1963: ,x_return_status);
1964: -- Check if activity started successfully
1961: ,p_init_msg_list
1962: ,'_PVT'
1963: ,x_return_status);
1964: -- Check if activity started successfully
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1962: ,'_PVT'
1963: ,x_return_status);
1964: -- Check if activity started successfully
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: -- Since we are creatieng a wrapper over the okc
1963: ,x_return_status);
1964: -- Check if activity started successfully
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: -- Since we are creatieng a wrapper over the okc
1971: -- we need to migrate from locally declared cplv record
1964: -- Check if activity started successfully
1965: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1967: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1968: RAISE OKC_API.G_EXCEPTION_ERROR;
1969: END IF;
1970: -- Since we are creatieng a wrapper over the okc
1971: -- we need to migrate from locally declared cplv record
1972: -- to OKC declared cplv record type as process of input
1983: IF (l_access_level = 'S') THEN
1984:
1985:
1986: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
1987: p_init_msg_list => OKC_API.G_FALSE,
1988: x_return_status => x_return_status,
1989: x_msg_count => x_msg_count,
1990: x_msg_data => x_msg_data,
1991: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1990: x_msg_data => x_msg_data,
1991: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1992: p_id1 => lr_cplv_rec_type_in.object1_id1,
1993: p_id2 => lr_cplv_rec_type_in.object1_id2);
1994: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1995: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1996: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_ERROR;
1998: END IF;
1991: p_object_name => lr_cplv_rec_type_in.jtot_object1_code,
1992: p_id1 => lr_cplv_rec_type_in.object1_id1,
1993: p_id2 => lr_cplv_rec_type_in.object1_id2);
1994: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1995: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1996: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_ERROR;
1998: END IF;
1999:
1992: p_id1 => lr_cplv_rec_type_in.object1_id1,
1993: p_id2 => lr_cplv_rec_type_in.object1_id2);
1994: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1995: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1996: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_ERROR;
1998: END IF;
1999:
2000: END IF;
1993: p_id2 => lr_cplv_rec_type_in.object1_id2);
1994: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1995: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1996: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1997: RAISE OKC_API.G_EXCEPTION_ERROR;
1998: END IF;
1999:
2000: END IF;
2001:
2001:
2002: ---- Changes End
2003:
2004:
2005: -- Calling the actual OKC api
2006:
2007:
2008: OKC_CONTRACT_PARTY_PUB.update_k_party_role(p_api_version => p_api_version,
2009: p_init_msg_list => p_init_msg_list,
2011: x_msg_count => x_msg_count,
2012: x_msg_data => x_msg_data,
2013: p_cplv_rec => lr_cplv_rec_type_in,
2014: x_cplv_rec => lr_cplv_rec_type_out);
2015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2012: x_msg_data => x_msg_data,
2013: p_cplv_rec => lr_cplv_rec_type_in,
2014: x_cplv_rec => lr_cplv_rec_type_out);
2015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: -- Since we are creatieng a wrapper over the okc
2013: p_cplv_rec => lr_cplv_rec_type_in,
2014: x_cplv_rec => lr_cplv_rec_type_out);
2015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: -- Since we are creatieng a wrapper over the okc
2021: -- we need to migrate from OKC declared cplv record type
2014: x_cplv_rec => lr_cplv_rec_type_out);
2015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2018: RAISE OKC_API.G_EXCEPTION_ERROR;
2019: END IF;
2020: -- Since we are creatieng a wrapper over the okc
2021: -- we need to migrate from OKC declared cplv record type
2022: -- to locally declared cplv record as process of input
2036: x_msg_count => x_msg_count,
2037: x_msg_data => x_msg_data,
2038: p_chr_id => x_cplv_rec.dnz_chr_id);
2039:
2040: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2042: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2043: RAISE OKC_API.G_EXCEPTION_ERROR;
2044: END IF;
2037: x_msg_data => x_msg_data,
2038: p_chr_id => x_cplv_rec.dnz_chr_id);
2039:
2040: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2042: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2043: RAISE OKC_API.G_EXCEPTION_ERROR;
2044: END IF;
2045:
2038: p_chr_id => x_cplv_rec.dnz_chr_id);
2039:
2040: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2042: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2043: RAISE OKC_API.G_EXCEPTION_ERROR;
2044: END IF;
2045:
2046: END IF;
2039:
2040: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2041: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2042: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2043: RAISE OKC_API.G_EXCEPTION_ERROR;
2044: END IF;
2045:
2046: END IF;
2047:
2044: END IF;
2045:
2046: END IF;
2047:
2048: OKC_API.END_ACTIVITY (x_msg_count,
2049: x_msg_data );
2050: EXCEPTION
2051: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2052: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2047:
2048: OKC_API.END_ACTIVITY (x_msg_count,
2049: x_msg_data );
2050: EXCEPTION
2051: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2052: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2053: l_api_name,
2054: G_PKG_NAME,
2055: 'OKC_API.G_RET_STS_ERROR',
2048: OKC_API.END_ACTIVITY (x_msg_count,
2049: x_msg_data );
2050: EXCEPTION
2051: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2052: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2053: l_api_name,
2054: G_PKG_NAME,
2055: 'OKC_API.G_RET_STS_ERROR',
2056: x_msg_count,
2051: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2052: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2053: l_api_name,
2054: G_PKG_NAME,
2055: 'OKC_API.G_RET_STS_ERROR',
2056: x_msg_count,
2057: x_msg_data,
2058: '_PVT');
2059: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2055: 'OKC_API.G_RET_STS_ERROR',
2056: x_msg_count,
2057: x_msg_data,
2058: '_PVT');
2059: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2060: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2056: x_msg_count,
2057: x_msg_data,
2058: '_PVT');
2059: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2060: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2064: x_msg_count,
2059: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2060: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2064: x_msg_count,
2065: x_msg_data,
2066: '_PVT');
2067: WHEN OTHERS THEN
2064: x_msg_count,
2065: x_msg_data,
2066: '_PVT');
2067: WHEN OTHERS THEN
2068: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2069: l_api_name,
2070: G_PKG_NAME,
2071: 'OTHERS',
2072: x_msg_count,
2075: END update_k_party_role;
2076: --------------------------------------------------------------------------------------------------------------
2077: PROCEDURE update_k_party_role(
2078: p_api_version IN NUMBER,
2079: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2080: x_return_status OUT NOCOPY VARCHAR2,
2081: x_msg_count OUT NOCOPY NUMBER,
2082: x_msg_data OUT NOCOPY VARCHAR2,
2083: p_cplv_tbl IN cplv_tbl_type,
2085:
2086: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_K_PARTY_ROLE';
2087: i NUMBER := 0;
2088: BEGIN
2089: OKC_API.init_msg_list(p_init_msg_list);
2090: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2091: IF (p_cplv_tbl.COUNT>0) THEN
2092: i := p_cplv_tbl.FIRST;
2093: LOOP
2086: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_K_PARTY_ROLE';
2087: i NUMBER := 0;
2088: BEGIN
2089: OKC_API.init_msg_list(p_init_msg_list);
2090: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2091: IF (p_cplv_tbl.COUNT>0) THEN
2092: i := p_cplv_tbl.FIRST;
2093: LOOP
2094: update_k_party_role(p_api_version =>p_api_version,
2091: IF (p_cplv_tbl.COUNT>0) THEN
2092: i := p_cplv_tbl.FIRST;
2093: LOOP
2094: update_k_party_role(p_api_version =>p_api_version,
2095: p_init_msg_list =>OKC_API.G_FALSE,
2096: x_return_status =>x_return_status,
2097: x_msg_count =>x_msg_count,
2098: x_msg_data =>x_msg_data,
2099: p_cplv_rec =>p_cplv_tbl(i),
2097: x_msg_count =>x_msg_count,
2098: x_msg_data =>x_msg_data,
2099: p_cplv_rec =>p_cplv_tbl(i),
2100: x_cplv_rec =>x_cplv_tbl(i));
2101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2102: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2104: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2105: END IF;
2098: x_msg_data =>x_msg_data,
2099: p_cplv_rec =>p_cplv_tbl(i),
2100: x_cplv_rec =>x_cplv_tbl(i));
2101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2102: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2104: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2105: END IF;
2106: EXIT WHEN (i=p_cplv_tbl.LAST);
2099: p_cplv_rec =>p_cplv_tbl(i),
2100: x_cplv_rec =>x_cplv_tbl(i));
2101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2102: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2104: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2105: END IF;
2106: EXIT WHEN (i=p_cplv_tbl.LAST);
2107: i := p_cplv_tbl.NEXT(i);
2100: x_cplv_rec =>x_cplv_tbl(i));
2101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2102: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2104: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2105: END IF;
2106: EXIT WHEN (i=p_cplv_tbl.LAST);
2107: i := p_cplv_tbl.NEXT(i);
2108: END LOOP;
2105: END IF;
2106: EXIT WHEN (i=p_cplv_tbl.LAST);
2107: i := p_cplv_tbl.NEXT(i);
2108: END LOOP;
2109: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2112: RAISE OKC_API.G_EXCEPTION_ERROR;
2113: END IF;
2106: EXIT WHEN (i=p_cplv_tbl.LAST);
2107: i := p_cplv_tbl.NEXT(i);
2108: END LOOP;
2109: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2112: RAISE OKC_API.G_EXCEPTION_ERROR;
2113: END IF;
2114: END IF;
2107: i := p_cplv_tbl.NEXT(i);
2108: END LOOP;
2109: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2112: RAISE OKC_API.G_EXCEPTION_ERROR;
2113: END IF;
2114: END IF;
2115: EXCEPTION
2108: END LOOP;
2109: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2112: RAISE OKC_API.G_EXCEPTION_ERROR;
2113: END IF;
2114: END IF;
2115: EXCEPTION
2116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2112: RAISE OKC_API.G_EXCEPTION_ERROR;
2113: END IF;
2114: END IF;
2115: EXCEPTION
2116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2118: l_api_name,
2119: G_PKG_NAME,
2120: 'OKC_API.G_RET_STS_ERROR',
2113: END IF;
2114: END IF;
2115: EXCEPTION
2116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2118: l_api_name,
2119: G_PKG_NAME,
2120: 'OKC_API.G_RET_STS_ERROR',
2121: x_msg_count,
2116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2117: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2118: l_api_name,
2119: G_PKG_NAME,
2120: 'OKC_API.G_RET_STS_ERROR',
2121: x_msg_count,
2122: x_msg_data,
2123: '_PVT');
2124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2120: 'OKC_API.G_RET_STS_ERROR',
2121: x_msg_count,
2122: x_msg_data,
2123: '_PVT');
2124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2125: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2126: l_api_name,
2127: G_PKG_NAME,
2128: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2121: x_msg_count,
2122: x_msg_data,
2123: '_PVT');
2124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2125: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2126: l_api_name,
2127: G_PKG_NAME,
2128: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2129: x_msg_count,
2124: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2125: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2126: l_api_name,
2127: G_PKG_NAME,
2128: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2129: x_msg_count,
2130: x_msg_data,
2131: '_PVT');
2132: WHEN OTHERS THEN
2129: x_msg_count,
2130: x_msg_data,
2131: '_PVT');
2132: WHEN OTHERS THEN
2133: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2134: l_api_name,
2135: G_PKG_NAME,
2136: 'OTHERS',
2137: x_msg_count,
2140: END update_k_party_role;
2141: --------------------------------------------------------------------------------------------------------------
2142: PROCEDURE delete_k_party_role(
2143: p_api_version IN NUMBER,
2144: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2145: x_return_status OUT NOCOPY VARCHAR2,
2146: x_msg_count OUT NOCOPY NUMBER,
2147: x_msg_data OUT NOCOPY VARCHAR2,
2148: p_cplv_rec IN cplv_rec_type) AS
2160:
2161:
2162:
2163: BEGIN
2164: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2165: -- Call start_activity to create savepoint, check compatibility
2166: -- and initialize message list
2167: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2168: ,p_init_msg_list
2163: BEGIN
2164: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2165: -- Call start_activity to create savepoint, check compatibility
2166: -- and initialize message list
2167: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2168: ,p_init_msg_list
2169: ,'_PVT'
2170: ,x_return_status);
2171: -- Check if activity started successfully
2168: ,p_init_msg_list
2169: ,'_PVT'
2170: ,x_return_status);
2171: -- Check if activity started successfully
2172: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2175: RAISE OKC_API.G_EXCEPTION_ERROR;
2176: END IF;
2169: ,'_PVT'
2170: ,x_return_status);
2171: -- Check if activity started successfully
2172: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2175: RAISE OKC_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2170: ,x_return_status);
2171: -- Check if activity started successfully
2172: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2175: RAISE OKC_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2178: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2171: -- Check if activity started successfully
2172: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2173: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2174: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2175: RAISE OKC_API.G_EXCEPTION_ERROR;
2176: END IF;
2177:
2178: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2179: -- edit points for lease contract are any modifications between statuses
2199: x_msg_count => x_msg_count,
2200: x_msg_data => x_msg_data,
2201: p_chr_id => l_dnz_chr_id);
2202:
2203: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2205: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2206: RAISE OKC_API.G_EXCEPTION_ERROR;
2207: END IF;
2200: x_msg_data => x_msg_data,
2201: p_chr_id => l_dnz_chr_id);
2202:
2203: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2205: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2206: RAISE OKC_API.G_EXCEPTION_ERROR;
2207: END IF;
2208:
2201: p_chr_id => l_dnz_chr_id);
2202:
2203: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2205: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2206: RAISE OKC_API.G_EXCEPTION_ERROR;
2207: END IF;
2208:
2209: END IF;
2202:
2203: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2205: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2206: RAISE OKC_API.G_EXCEPTION_ERROR;
2207: END IF;
2208:
2209: END IF;
2210:
2212: -- we need to migrate from locally declared cplv record
2213: -- to OKC declared cplv record type as process of input
2214: migrate_okl_okc_party(p_cplv_rec,
2215: lr_cplv_rec_type_in);
2216: -- Calling the actual OKC api
2217: OKC_CONTRACT_PARTY_PUB.delete_k_party_role(p_api_version => p_api_version,
2218: p_init_msg_list => p_init_msg_list,
2219: x_return_status => x_return_status,
2220: x_msg_count => x_msg_count,
2219: x_return_status => x_return_status,
2220: x_msg_count => x_msg_count,
2221: x_msg_data => x_msg_data,
2222: p_cplv_rec => lr_cplv_rec_type_in);
2223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_ERROR;
2227: END IF;
2220: x_msg_count => x_msg_count,
2221: x_msg_data => x_msg_data,
2222: p_cplv_rec => lr_cplv_rec_type_in);
2223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_ERROR;
2227: END IF;
2228: OKC_API.END_ACTIVITY (x_msg_count,
2221: x_msg_data => x_msg_data,
2222: p_cplv_rec => lr_cplv_rec_type_in);
2223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_ERROR;
2227: END IF;
2228: OKC_API.END_ACTIVITY (x_msg_count,
2229: x_msg_data );
2222: p_cplv_rec => lr_cplv_rec_type_in);
2223: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_ERROR;
2227: END IF;
2228: OKC_API.END_ACTIVITY (x_msg_count,
2229: x_msg_data );
2230: EXCEPTION
2224: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2225: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_ERROR;
2227: END IF;
2228: OKC_API.END_ACTIVITY (x_msg_count,
2229: x_msg_data );
2230: EXCEPTION
2231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2232: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2227: END IF;
2228: OKC_API.END_ACTIVITY (x_msg_count,
2229: x_msg_data );
2230: EXCEPTION
2231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2232: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OKC_API.G_RET_STS_ERROR',
2228: OKC_API.END_ACTIVITY (x_msg_count,
2229: x_msg_data );
2230: EXCEPTION
2231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2232: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OKC_API.G_RET_STS_ERROR',
2236: x_msg_count,
2231: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2232: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OKC_API.G_RET_STS_ERROR',
2236: x_msg_count,
2237: x_msg_data,
2238: '_PVT');
2239: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2235: 'OKC_API.G_RET_STS_ERROR',
2236: x_msg_count,
2237: x_msg_data,
2238: '_PVT');
2239: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2241: l_api_name,
2242: G_PKG_NAME,
2243: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2236: x_msg_count,
2237: x_msg_data,
2238: '_PVT');
2239: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2241: l_api_name,
2242: G_PKG_NAME,
2243: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2244: x_msg_count,
2239: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2241: l_api_name,
2242: G_PKG_NAME,
2243: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2244: x_msg_count,
2245: x_msg_data,
2246: '_PVT');
2247: WHEN OTHERS THEN
2244: x_msg_count,
2245: x_msg_data,
2246: '_PVT');
2247: WHEN OTHERS THEN
2248: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2249: l_api_name,
2250: G_PKG_NAME,
2251: 'OTHERS',
2252: x_msg_count,
2255: END delete_k_party_role;
2256: -------------------------------------------------------------------------------------------------------
2257: PROCEDURE delete_k_party_role(
2258: p_api_version IN NUMBER,
2259: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2260: x_return_status OUT NOCOPY VARCHAR2,
2261: x_msg_count OUT NOCOPY NUMBER,
2262: x_msg_data OUT NOCOPY VARCHAR2,
2263: p_cplv_tbl IN cplv_tbl_type) AS
2264:
2265: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_K_PARTY_ROLE';
2266: i NUMBER := 0;
2267: BEGIN
2268: OKC_API.init_msg_list(p_init_msg_list);
2269: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2270: IF (p_cplv_tbl.COUNT>0) THEN
2271: i := p_cplv_tbl.FIRST;
2272: LOOP
2265: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_K_PARTY_ROLE';
2266: i NUMBER := 0;
2267: BEGIN
2268: OKC_API.init_msg_list(p_init_msg_list);
2269: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2270: IF (p_cplv_tbl.COUNT>0) THEN
2271: i := p_cplv_tbl.FIRST;
2272: LOOP
2273: delete_k_party_role(p_api_version =>p_api_version,
2270: IF (p_cplv_tbl.COUNT>0) THEN
2271: i := p_cplv_tbl.FIRST;
2272: LOOP
2273: delete_k_party_role(p_api_version =>p_api_version,
2274: p_init_msg_list =>OKC_API.G_FALSE,
2275: x_return_status =>x_return_status,
2276: x_msg_count =>x_msg_count,
2277: x_msg_data =>x_msg_data,
2278: p_cplv_rec =>p_cplv_tbl(i));
2275: x_return_status =>x_return_status,
2276: x_msg_count =>x_msg_count,
2277: x_msg_data =>x_msg_data,
2278: p_cplv_rec =>p_cplv_tbl(i));
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2283: END IF;
2276: x_msg_count =>x_msg_count,
2277: x_msg_data =>x_msg_data,
2278: p_cplv_rec =>p_cplv_tbl(i));
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2283: END IF;
2284: EXIT WHEN (i=p_cplv_tbl.LAST);
2277: x_msg_data =>x_msg_data,
2278: p_cplv_rec =>p_cplv_tbl(i));
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2283: END IF;
2284: EXIT WHEN (i=p_cplv_tbl.LAST);
2285: i := p_cplv_tbl.NEXT(i);
2278: p_cplv_rec =>p_cplv_tbl(i));
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2283: END IF;
2284: EXIT WHEN (i=p_cplv_tbl.LAST);
2285: i := p_cplv_tbl.NEXT(i);
2286: END LOOP;
2283: END IF;
2284: EXIT WHEN (i=p_cplv_tbl.LAST);
2285: i := p_cplv_tbl.NEXT(i);
2286: END LOOP;
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2284: EXIT WHEN (i=p_cplv_tbl.LAST);
2285: i := p_cplv_tbl.NEXT(i);
2286: END LOOP;
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2292: END IF;
2285: i := p_cplv_tbl.NEXT(i);
2286: END LOOP;
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2292: END IF;
2293: EXCEPTION
2286: END LOOP;
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2292: END IF;
2293: EXCEPTION
2294: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2292: END IF;
2293: EXCEPTION
2294: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2296: l_api_name,
2297: G_PKG_NAME,
2298: 'OKC_API.G_RET_STS_ERROR',
2291: END IF;
2292: END IF;
2293: EXCEPTION
2294: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2296: l_api_name,
2297: G_PKG_NAME,
2298: 'OKC_API.G_RET_STS_ERROR',
2299: x_msg_count,
2294: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2296: l_api_name,
2297: G_PKG_NAME,
2298: 'OKC_API.G_RET_STS_ERROR',
2299: x_msg_count,
2300: x_msg_data,
2301: '_PVT');
2302: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2298: 'OKC_API.G_RET_STS_ERROR',
2299: x_msg_count,
2300: x_msg_data,
2301: '_PVT');
2302: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2303: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2304: l_api_name,
2305: G_PKG_NAME,
2306: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2299: x_msg_count,
2300: x_msg_data,
2301: '_PVT');
2302: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2303: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2304: l_api_name,
2305: G_PKG_NAME,
2306: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2307: x_msg_count,
2302: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2303: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2304: l_api_name,
2305: G_PKG_NAME,
2306: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2307: x_msg_count,
2308: x_msg_data,
2309: '_PVT');
2310: WHEN OTHERS THEN
2307: x_msg_count,
2308: x_msg_data,
2309: '_PVT');
2310: WHEN OTHERS THEN
2311: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2312: l_api_name,
2313: G_PKG_NAME,
2314: 'OTHERS',
2315: x_msg_count,
2319:
2320: --------------------------------------------------------------------------------------------------------------
2321: PROCEDURE create_contact(
2322: p_api_version IN NUMBER,
2323: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2324: x_return_status OUT NOCOPY VARCHAR2,
2325: x_msg_count OUT NOCOPY NUMBER,
2326: x_msg_data OUT NOCOPY VARCHAR2,
2327: p_ctcv_rec IN ctcv_rec_type,
2342: l_access_level OKC_CONTACT_SOURCES.access_level%TYPE;
2343:
2344:
2345: BEGIN
2346: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2347: -- Call start_activity to create savepoint, check compatibility
2348: -- and initialize message list
2349: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2350: ,p_init_msg_list
2345: BEGIN
2346: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2347: -- Call start_activity to create savepoint, check compatibility
2348: -- and initialize message list
2349: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2350: ,p_init_msg_list
2351: ,'_PVT'
2352: ,x_return_status);
2353: -- Check if activity started successfully
2350: ,p_init_msg_list
2351: ,'_PVT'
2352: ,x_return_status);
2353: -- Check if activity started successfully
2354: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2351: ,'_PVT'
2352: ,x_return_status);
2353: -- Check if activity started successfully
2354: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2359: -- Since we are creatieng a wrapper over the okc
2352: ,x_return_status);
2353: -- Check if activity started successfully
2354: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2359: -- Since we are creatieng a wrapper over the okc
2360: -- we need to migrate from locally declared ctcv record
2353: -- Check if activity started successfully
2354: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2357: RAISE OKC_API.G_EXCEPTION_ERROR;
2358: END IF;
2359: -- Since we are creatieng a wrapper over the okc
2360: -- we need to migrate from locally declared ctcv record
2361: -- to OKC declared ctcv record type as process of input
2360: -- we need to migrate from locally declared ctcv record
2361: -- to OKC declared ctcv record type as process of input
2362: migrate_okl_okc_contact(p_ctcv_rec,
2363: lr_ctcv_rec_type_in);
2364: -- Calling the actual OKC api
2365:
2366: ----- Changes by Kanti
2367: ----- Validate the JTOT Object code, ID1 and ID2
2368:
2372:
2373: IF (l_access_level = 'S') THEN
2374:
2375: okl_la_validation_util_pvt.VALIDATE_CONTACT_JTOT (p_api_version => p_api_version,
2376: p_init_msg_list => OKC_API.G_FALSE,
2377: x_return_status => x_return_status,
2378: x_msg_count => x_msg_count,
2379: x_msg_data => x_msg_data,
2380: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2379: x_msg_data => x_msg_data,
2380: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2381: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2382: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2383: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: END IF;
2380: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2381: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2382: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2383: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: END IF;
2388:
2381: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2382: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2383: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: END IF;
2388:
2389: END IF;
2382: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2383: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: END IF;
2388:
2389: END IF;
2390:
2397: x_msg_count => x_msg_count,
2398: x_msg_data => x_msg_data,
2399: p_ctcv_rec => lr_ctcv_rec_type_in,
2400: x_ctcv_rec => lr_ctcv_rec_type_out);
2401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2404: RAISE OKC_API.G_EXCEPTION_ERROR;
2405: END IF;
2398: x_msg_data => x_msg_data,
2399: p_ctcv_rec => lr_ctcv_rec_type_in,
2400: x_ctcv_rec => lr_ctcv_rec_type_out);
2401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2404: RAISE OKC_API.G_EXCEPTION_ERROR;
2405: END IF;
2406: -- Since we are creatieng a wrapper over the okc
2399: p_ctcv_rec => lr_ctcv_rec_type_in,
2400: x_ctcv_rec => lr_ctcv_rec_type_out);
2401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2404: RAISE OKC_API.G_EXCEPTION_ERROR;
2405: END IF;
2406: -- Since we are creatieng a wrapper over the okc
2407: -- we need to migrate from OKC declared ctcv record type
2400: x_ctcv_rec => lr_ctcv_rec_type_out);
2401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2404: RAISE OKC_API.G_EXCEPTION_ERROR;
2405: END IF;
2406: -- Since we are creatieng a wrapper over the okc
2407: -- we need to migrate from OKC declared ctcv record type
2408: -- to locally declared ctcv record as process of input
2421: x_msg_count => x_msg_count,
2422: x_msg_data => x_msg_data,
2423: p_chr_id => x_ctcv_rec.dnz_chr_id);
2424:
2425: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2427: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2428: RAISE OKC_API.G_EXCEPTION_ERROR;
2429: END IF;
2422: x_msg_data => x_msg_data,
2423: p_chr_id => x_ctcv_rec.dnz_chr_id);
2424:
2425: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2427: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2428: RAISE OKC_API.G_EXCEPTION_ERROR;
2429: END IF;
2430:
2423: p_chr_id => x_ctcv_rec.dnz_chr_id);
2424:
2425: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2427: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2428: RAISE OKC_API.G_EXCEPTION_ERROR;
2429: END IF;
2430:
2431: END IF;
2424:
2425: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2427: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2428: RAISE OKC_API.G_EXCEPTION_ERROR;
2429: END IF;
2430:
2431: END IF;
2432:
2429: END IF;
2430:
2431: END IF;
2432:
2433: OKC_API.END_ACTIVITY (x_msg_count,
2434: x_msg_data );
2435: EXCEPTION
2436: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2437: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2432:
2433: OKC_API.END_ACTIVITY (x_msg_count,
2434: x_msg_data );
2435: EXCEPTION
2436: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2437: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2438: l_api_name,
2439: G_PKG_NAME,
2440: 'OKC_API.G_RET_STS_ERROR',
2433: OKC_API.END_ACTIVITY (x_msg_count,
2434: x_msg_data );
2435: EXCEPTION
2436: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2437: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2438: l_api_name,
2439: G_PKG_NAME,
2440: 'OKC_API.G_RET_STS_ERROR',
2441: x_msg_count,
2436: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2437: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2438: l_api_name,
2439: G_PKG_NAME,
2440: 'OKC_API.G_RET_STS_ERROR',
2441: x_msg_count,
2442: x_msg_data,
2443: '_PVT');
2444: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2440: 'OKC_API.G_RET_STS_ERROR',
2441: x_msg_count,
2442: x_msg_data,
2443: '_PVT');
2444: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2445: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2446: l_api_name,
2447: G_PKG_NAME,
2448: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2441: x_msg_count,
2442: x_msg_data,
2443: '_PVT');
2444: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2445: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2446: l_api_name,
2447: G_PKG_NAME,
2448: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2449: x_msg_count,
2444: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2445: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2446: l_api_name,
2447: G_PKG_NAME,
2448: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2449: x_msg_count,
2450: x_msg_data,
2451: '_PVT');
2452: WHEN OTHERS THEN
2449: x_msg_count,
2450: x_msg_data,
2451: '_PVT');
2452: WHEN OTHERS THEN
2453: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2454: l_api_name,
2455: G_PKG_NAME,
2456: 'OTHERS',
2457: x_msg_count,
2460: END create_contact;
2461: --------------------------------------------------------------------------------------------------------------
2462: PROCEDURE create_contact(
2463: p_api_version IN NUMBER,
2464: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2465: x_return_status OUT NOCOPY VARCHAR2,
2466: x_msg_count OUT NOCOPY NUMBER,
2467: x_msg_data OUT NOCOPY VARCHAR2,
2468: p_ctcv_tbl IN ctcv_tbl_type,
2470:
2471: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_CONTACT';
2472: i NUMBER := 0;
2473: BEGIN
2474: OKC_API.init_msg_list(p_init_msg_list);
2475: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2476: IF (p_ctcv_tbl.COUNT>0) THEN
2477: i := p_ctcv_tbl.FIRST;
2478: LOOP
2471: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_CONTACT';
2472: i NUMBER := 0;
2473: BEGIN
2474: OKC_API.init_msg_list(p_init_msg_list);
2475: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2476: IF (p_ctcv_tbl.COUNT>0) THEN
2477: i := p_ctcv_tbl.FIRST;
2478: LOOP
2479: create_contact(p_api_version =>p_api_version,
2476: IF (p_ctcv_tbl.COUNT>0) THEN
2477: i := p_ctcv_tbl.FIRST;
2478: LOOP
2479: create_contact(p_api_version =>p_api_version,
2480: p_init_msg_list =>OKC_API.G_FALSE,
2481: x_return_status =>x_return_status,
2482: x_msg_count =>x_msg_count,
2483: x_msg_data =>x_msg_data,
2484: p_ctcv_rec =>p_ctcv_tbl(i),
2482: x_msg_count =>x_msg_count,
2483: x_msg_data =>x_msg_data,
2484: p_ctcv_rec =>p_ctcv_tbl(i),
2485: x_ctcv_rec =>x_ctcv_tbl(i));
2486: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2487: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2488: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2489: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2490: END IF;
2483: x_msg_data =>x_msg_data,
2484: p_ctcv_rec =>p_ctcv_tbl(i),
2485: x_ctcv_rec =>x_ctcv_tbl(i));
2486: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2487: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2488: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2489: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2490: END IF;
2491: EXIT WHEN (i=p_ctcv_tbl.LAST);
2484: p_ctcv_rec =>p_ctcv_tbl(i),
2485: x_ctcv_rec =>x_ctcv_tbl(i));
2486: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2487: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2488: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2489: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2490: END IF;
2491: EXIT WHEN (i=p_ctcv_tbl.LAST);
2492: i := p_ctcv_tbl.NEXT(i);
2485: x_ctcv_rec =>x_ctcv_tbl(i));
2486: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2487: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2488: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2489: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2490: END IF;
2491: EXIT WHEN (i=p_ctcv_tbl.LAST);
2492: i := p_ctcv_tbl.NEXT(i);
2493: END LOOP;
2490: END IF;
2491: EXIT WHEN (i=p_ctcv_tbl.LAST);
2492: i := p_ctcv_tbl.NEXT(i);
2493: END LOOP;
2494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_ERROR;
2498: END IF;
2491: EXIT WHEN (i=p_ctcv_tbl.LAST);
2492: i := p_ctcv_tbl.NEXT(i);
2493: END LOOP;
2494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_ERROR;
2498: END IF;
2499: END IF;
2492: i := p_ctcv_tbl.NEXT(i);
2493: END LOOP;
2494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_ERROR;
2498: END IF;
2499: END IF;
2500: EXCEPTION
2493: END LOOP;
2494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2497: RAISE OKC_API.G_EXCEPTION_ERROR;
2498: END IF;
2499: END IF;
2500: EXCEPTION
2501: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2497: RAISE OKC_API.G_EXCEPTION_ERROR;
2498: END IF;
2499: END IF;
2500: EXCEPTION
2501: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2502: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2503: l_api_name,
2504: G_PKG_NAME,
2505: 'OKC_API.G_RET_STS_ERROR',
2498: END IF;
2499: END IF;
2500: EXCEPTION
2501: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2502: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2503: l_api_name,
2504: G_PKG_NAME,
2505: 'OKC_API.G_RET_STS_ERROR',
2506: x_msg_count,
2501: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2502: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2503: l_api_name,
2504: G_PKG_NAME,
2505: 'OKC_API.G_RET_STS_ERROR',
2506: x_msg_count,
2507: x_msg_data,
2508: '_PVT');
2509: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2505: 'OKC_API.G_RET_STS_ERROR',
2506: x_msg_count,
2507: x_msg_data,
2508: '_PVT');
2509: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2510: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2511: l_api_name,
2512: G_PKG_NAME,
2513: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2506: x_msg_count,
2507: x_msg_data,
2508: '_PVT');
2509: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2510: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2511: l_api_name,
2512: G_PKG_NAME,
2513: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2514: x_msg_count,
2509: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2510: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2511: l_api_name,
2512: G_PKG_NAME,
2513: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2514: x_msg_count,
2515: x_msg_data,
2516: '_PVT');
2517: WHEN OTHERS THEN
2514: x_msg_count,
2515: x_msg_data,
2516: '_PVT');
2517: WHEN OTHERS THEN
2518: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2519: l_api_name,
2520: G_PKG_NAME,
2521: 'OTHERS',
2522: x_msg_count,
2525: END create_contact;
2526: --------------------------------------------------------------------------------------------------------------
2527: PROCEDURE update_contact(
2528: p_api_version IN NUMBER,
2529: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2530: x_return_status OUT NOCOPY VARCHAR2,
2531: x_msg_count OUT NOCOPY NUMBER,
2532: x_msg_data OUT NOCOPY VARCHAR2,
2533: p_ctcv_rec IN ctcv_rec_type,
2549: l_access_level OKC_CONTACT_SOURCES.access_level%TYPE;
2550:
2551:
2552: BEGIN
2553: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2554: -- Call start_activity to create savepoint, check compatibility
2555: -- and initialize message list
2556: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2557: ,p_init_msg_list
2552: BEGIN
2553: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2554: -- Call start_activity to create savepoint, check compatibility
2555: -- and initialize message list
2556: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2557: ,p_init_msg_list
2558: ,'_PVT'
2559: ,x_return_status);
2560: -- Check if activity started successfully
2557: ,p_init_msg_list
2558: ,'_PVT'
2559: ,x_return_status);
2560: -- Check if activity started successfully
2561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_ERROR;
2565: END IF;
2558: ,'_PVT'
2559: ,x_return_status);
2560: -- Check if activity started successfully
2561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_ERROR;
2565: END IF;
2566: -- Since we are creatieng a wrapper over the okc
2559: ,x_return_status);
2560: -- Check if activity started successfully
2561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_ERROR;
2565: END IF;
2566: -- Since we are creatieng a wrapper over the okc
2567: -- we need to migrate from locally declared ctcv record
2560: -- Check if activity started successfully
2561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2564: RAISE OKC_API.G_EXCEPTION_ERROR;
2565: END IF;
2566: -- Since we are creatieng a wrapper over the okc
2567: -- we need to migrate from locally declared ctcv record
2568: -- to OKC declared ctcv record type as process of input
2578:
2579: IF (l_access_level = 'S') THEN
2580:
2581: okl_la_validation_util_pvt.VALIDATE_CONTACT_JTOT (p_api_version => p_api_version,
2582: p_init_msg_list => OKC_API.G_FALSE,
2583: x_return_status => x_return_status,
2584: x_msg_count => x_msg_count,
2585: x_msg_data => x_msg_data,
2586: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2585: x_msg_data => x_msg_data,
2586: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2587: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2588: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2592: RAISE OKC_API.G_EXCEPTION_ERROR;
2593: END IF;
2586: p_object_name => lr_ctcv_rec_type_in.jtot_object1_code,
2587: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2588: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2592: RAISE OKC_API.G_EXCEPTION_ERROR;
2593: END IF;
2594:
2587: p_id1 => lr_ctcv_rec_type_in.object1_id1,
2588: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2592: RAISE OKC_API.G_EXCEPTION_ERROR;
2593: END IF;
2594:
2595: END IF;
2588: p_id2 => lr_ctcv_rec_type_in.object1_id2);
2589: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2591: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2592: RAISE OKC_API.G_EXCEPTION_ERROR;
2593: END IF;
2594:
2595: END IF;
2596:
2596:
2597: ---- Changes End
2598:
2599:
2600: -- Calling the actual OKC api
2601: OKC_CONTRACT_PARTY_PUB.update_contact(p_api_version => p_api_version,
2602: p_init_msg_list => p_init_msg_list,
2603: x_return_status => x_return_status,
2604: x_msg_count => x_msg_count,
2604: x_msg_count => x_msg_count,
2605: x_msg_data => x_msg_data,
2606: p_ctcv_rec => lr_ctcv_rec_type_in,
2607: x_ctcv_rec => lr_ctcv_rec_type_out);
2608: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2611: RAISE OKC_API.G_EXCEPTION_ERROR;
2612: END IF;
2605: x_msg_data => x_msg_data,
2606: p_ctcv_rec => lr_ctcv_rec_type_in,
2607: x_ctcv_rec => lr_ctcv_rec_type_out);
2608: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2611: RAISE OKC_API.G_EXCEPTION_ERROR;
2612: END IF;
2613: -- Since we are creatieng a wrapper over the okc
2606: p_ctcv_rec => lr_ctcv_rec_type_in,
2607: x_ctcv_rec => lr_ctcv_rec_type_out);
2608: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2611: RAISE OKC_API.G_EXCEPTION_ERROR;
2612: END IF;
2613: -- Since we are creatieng a wrapper over the okc
2614: -- we need to migrate from OKC declared ctcv record type
2607: x_ctcv_rec => lr_ctcv_rec_type_out);
2608: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2611: RAISE OKC_API.G_EXCEPTION_ERROR;
2612: END IF;
2613: -- Since we are creatieng a wrapper over the okc
2614: -- we need to migrate from OKC declared ctcv record type
2615: -- to locally declared ctcv record as process of input
2628: x_msg_count => x_msg_count,
2629: x_msg_data => x_msg_data,
2630: p_chr_id => x_ctcv_rec.dnz_chr_id);
2631:
2632: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2635: RAISE OKC_API.G_EXCEPTION_ERROR;
2636: END IF;
2629: x_msg_data => x_msg_data,
2630: p_chr_id => x_ctcv_rec.dnz_chr_id);
2631:
2632: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2635: RAISE OKC_API.G_EXCEPTION_ERROR;
2636: END IF;
2637:
2630: p_chr_id => x_ctcv_rec.dnz_chr_id);
2631:
2632: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2635: RAISE OKC_API.G_EXCEPTION_ERROR;
2636: END IF;
2637:
2638: END IF;
2631:
2632: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2635: RAISE OKC_API.G_EXCEPTION_ERROR;
2636: END IF;
2637:
2638: END IF;
2639:
2636: END IF;
2637:
2638: END IF;
2639:
2640: OKC_API.END_ACTIVITY (x_msg_count,
2641: x_msg_data );
2642: EXCEPTION
2643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2644: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2639:
2640: OKC_API.END_ACTIVITY (x_msg_count,
2641: x_msg_data );
2642: EXCEPTION
2643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2644: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2645: l_api_name,
2646: G_PKG_NAME,
2647: 'OKC_API.G_RET_STS_ERROR',
2640: OKC_API.END_ACTIVITY (x_msg_count,
2641: x_msg_data );
2642: EXCEPTION
2643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2644: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2645: l_api_name,
2646: G_PKG_NAME,
2647: 'OKC_API.G_RET_STS_ERROR',
2648: x_msg_count,
2643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2644: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2645: l_api_name,
2646: G_PKG_NAME,
2647: 'OKC_API.G_RET_STS_ERROR',
2648: x_msg_count,
2649: x_msg_data,
2650: '_PVT');
2651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2647: 'OKC_API.G_RET_STS_ERROR',
2648: x_msg_count,
2649: x_msg_data,
2650: '_PVT');
2651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2652: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2648: x_msg_count,
2649: x_msg_data,
2650: '_PVT');
2651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2652: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2656: x_msg_count,
2651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2652: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2653: l_api_name,
2654: G_PKG_NAME,
2655: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2656: x_msg_count,
2657: x_msg_data,
2658: '_PVT');
2659: WHEN OTHERS THEN
2656: x_msg_count,
2657: x_msg_data,
2658: '_PVT');
2659: WHEN OTHERS THEN
2660: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2661: l_api_name,
2662: G_PKG_NAME,
2663: 'OTHERS',
2664: x_msg_count,
2667: END update_contact;
2668: --------------------------------------------------------------------------------------------------------------
2669: PROCEDURE update_contact(
2670: p_api_version IN NUMBER,
2671: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2672: x_return_status OUT NOCOPY VARCHAR2,
2673: x_msg_count OUT NOCOPY NUMBER,
2674: x_msg_data OUT NOCOPY VARCHAR2,
2675: p_ctcv_tbl IN ctcv_tbl_type,
2677:
2678: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_CONTACT';
2679: i NUMBER := 0;
2680: BEGIN
2681: OKC_API.init_msg_list(p_init_msg_list);
2682: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2683: IF (p_ctcv_tbl.COUNT>0) THEN
2684: i := p_ctcv_tbl.FIRST;
2685: LOOP
2678: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_CONTACT';
2679: i NUMBER := 0;
2680: BEGIN
2681: OKC_API.init_msg_list(p_init_msg_list);
2682: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2683: IF (p_ctcv_tbl.COUNT>0) THEN
2684: i := p_ctcv_tbl.FIRST;
2685: LOOP
2686: update_contact(p_api_version =>p_api_version,
2683: IF (p_ctcv_tbl.COUNT>0) THEN
2684: i := p_ctcv_tbl.FIRST;
2685: LOOP
2686: update_contact(p_api_version =>p_api_version,
2687: p_init_msg_list =>OKC_API.G_FALSE,
2688: x_return_status =>x_return_status,
2689: x_msg_count =>x_msg_count,
2690: x_msg_data =>x_msg_data,
2691: p_ctcv_rec =>p_ctcv_tbl(i),
2689: x_msg_count =>x_msg_count,
2690: x_msg_data =>x_msg_data,
2691: p_ctcv_rec =>p_ctcv_tbl(i),
2692: x_ctcv_rec =>x_ctcv_tbl(i));
2693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2694: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2696: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2697: END IF;
2690: x_msg_data =>x_msg_data,
2691: p_ctcv_rec =>p_ctcv_tbl(i),
2692: x_ctcv_rec =>x_ctcv_tbl(i));
2693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2694: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2696: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2697: END IF;
2698: EXIT WHEN (i=p_ctcv_tbl.LAST);
2691: p_ctcv_rec =>p_ctcv_tbl(i),
2692: x_ctcv_rec =>x_ctcv_tbl(i));
2693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2694: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2696: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2697: END IF;
2698: EXIT WHEN (i=p_ctcv_tbl.LAST);
2699: i := p_ctcv_tbl.NEXT(i);
2692: x_ctcv_rec =>x_ctcv_tbl(i));
2693: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2694: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2695: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2696: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2697: END IF;
2698: EXIT WHEN (i=p_ctcv_tbl.LAST);
2699: i := p_ctcv_tbl.NEXT(i);
2700: END LOOP;
2697: END IF;
2698: EXIT WHEN (i=p_ctcv_tbl.LAST);
2699: i := p_ctcv_tbl.NEXT(i);
2700: END LOOP;
2701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2704: RAISE OKC_API.G_EXCEPTION_ERROR;
2705: END IF;
2698: EXIT WHEN (i=p_ctcv_tbl.LAST);
2699: i := p_ctcv_tbl.NEXT(i);
2700: END LOOP;
2701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2704: RAISE OKC_API.G_EXCEPTION_ERROR;
2705: END IF;
2706: END IF;
2699: i := p_ctcv_tbl.NEXT(i);
2700: END LOOP;
2701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2704: RAISE OKC_API.G_EXCEPTION_ERROR;
2705: END IF;
2706: END IF;
2707: EXCEPTION
2700: END LOOP;
2701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2704: RAISE OKC_API.G_EXCEPTION_ERROR;
2705: END IF;
2706: END IF;
2707: EXCEPTION
2708: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2704: RAISE OKC_API.G_EXCEPTION_ERROR;
2705: END IF;
2706: END IF;
2707: EXCEPTION
2708: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2709: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2710: l_api_name,
2711: G_PKG_NAME,
2712: 'OKC_API.G_RET_STS_ERROR',
2705: END IF;
2706: END IF;
2707: EXCEPTION
2708: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2709: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2710: l_api_name,
2711: G_PKG_NAME,
2712: 'OKC_API.G_RET_STS_ERROR',
2713: x_msg_count,
2708: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2709: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2710: l_api_name,
2711: G_PKG_NAME,
2712: 'OKC_API.G_RET_STS_ERROR',
2713: x_msg_count,
2714: x_msg_data,
2715: '_PVT');
2716: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2712: 'OKC_API.G_RET_STS_ERROR',
2713: x_msg_count,
2714: x_msg_data,
2715: '_PVT');
2716: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2717: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2718: l_api_name,
2719: G_PKG_NAME,
2720: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2713: x_msg_count,
2714: x_msg_data,
2715: '_PVT');
2716: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2717: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2718: l_api_name,
2719: G_PKG_NAME,
2720: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2721: x_msg_count,
2716: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2717: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2718: l_api_name,
2719: G_PKG_NAME,
2720: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2721: x_msg_count,
2722: x_msg_data,
2723: '_PVT');
2724: WHEN OTHERS THEN
2721: x_msg_count,
2722: x_msg_data,
2723: '_PVT');
2724: WHEN OTHERS THEN
2725: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2726: l_api_name,
2727: G_PKG_NAME,
2728: 'OTHERS',
2729: x_msg_count,
2732: END update_contact;
2733: --------------------------------------------------------------------------------------------------------------
2734: PROCEDURE delete_contact(
2735: p_api_version IN NUMBER,
2736: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2737: x_return_status OUT NOCOPY VARCHAR2,
2738: x_msg_count OUT NOCOPY NUMBER,
2739: x_msg_data OUT NOCOPY VARCHAR2,
2740: p_ctcv_rec IN ctcv_rec_type) AS
2750:
2751: l_dnz_chr_id OKC_CONTACTS.dnz_chr_id%TYPE;
2752:
2753: BEGIN
2754: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2755: -- Call start_activity to create savepoint, check compatibility
2756: -- and initialize message list
2757: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2758: ,p_init_msg_list
2753: BEGIN
2754: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2755: -- Call start_activity to create savepoint, check compatibility
2756: -- and initialize message list
2757: x_return_status := OKC_API.START_ACTIVITY (l_api_name
2758: ,p_init_msg_list
2759: ,'_PVT'
2760: ,x_return_status);
2761: -- Check if activity started successfully
2758: ,p_init_msg_list
2759: ,'_PVT'
2760: ,x_return_status);
2761: -- Check if activity started successfully
2762: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2759: ,'_PVT'
2760: ,x_return_status);
2761: -- Check if activity started successfully
2762: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2760: ,x_return_status);
2761: -- Check if activity started successfully
2762: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2768: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2761: -- Check if activity started successfully
2762: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2768: --code to flip status to 'INCOMPLETE' for lease contract if this is an edit point
2769: -- edit points for lease contract are any modifications between statuses
2789: x_msg_count => x_msg_count,
2790: x_msg_data => x_msg_data,
2791: p_chr_id => l_dnz_chr_id);
2792:
2793: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2796: RAISE OKC_API.G_EXCEPTION_ERROR;
2797: END IF;
2790: x_msg_data => x_msg_data,
2791: p_chr_id => l_dnz_chr_id);
2792:
2793: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2796: RAISE OKC_API.G_EXCEPTION_ERROR;
2797: END IF;
2798:
2791: p_chr_id => l_dnz_chr_id);
2792:
2793: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2796: RAISE OKC_API.G_EXCEPTION_ERROR;
2797: END IF;
2798:
2799: END IF;
2792:
2793: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2794: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2796: RAISE OKC_API.G_EXCEPTION_ERROR;
2797: END IF;
2798:
2799: END IF;
2800:
2802: -- we need to migrate from locally declared ctcv record
2803: -- to OKC declared ctcv record type as process of input
2804: migrate_okl_okc_contact(p_ctcv_rec,
2805: lr_ctcv_rec_type_in);
2806: -- Calling the actual OKC api
2807: OKC_CONTRACT_PARTY_PUB.delete_contact(p_api_version => p_api_version,
2808: p_init_msg_list => p_init_msg_list,
2809: x_return_status => x_return_status,
2810: x_msg_count => x_msg_count,
2809: x_return_status => x_return_status,
2810: x_msg_count => x_msg_count,
2811: x_msg_data => x_msg_data,
2812: p_ctcv_rec => lr_ctcv_rec_type_in);
2813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2810: x_msg_count => x_msg_count,
2811: x_msg_data => x_msg_data,
2812: p_ctcv_rec => lr_ctcv_rec_type_in);
2813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: OKC_API.END_ACTIVITY (x_msg_count,
2811: x_msg_data => x_msg_data,
2812: p_ctcv_rec => lr_ctcv_rec_type_in);
2813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: OKC_API.END_ACTIVITY (x_msg_count,
2819: x_msg_data );
2812: p_ctcv_rec => lr_ctcv_rec_type_in);
2813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: OKC_API.END_ACTIVITY (x_msg_count,
2819: x_msg_data );
2820: EXCEPTION
2814: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2816: RAISE OKC_API.G_EXCEPTION_ERROR;
2817: END IF;
2818: OKC_API.END_ACTIVITY (x_msg_count,
2819: x_msg_data );
2820: EXCEPTION
2821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2822: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2817: END IF;
2818: OKC_API.END_ACTIVITY (x_msg_count,
2819: x_msg_data );
2820: EXCEPTION
2821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2822: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2823: l_api_name,
2824: G_PKG_NAME,
2825: 'OKC_API.G_RET_STS_ERROR',
2818: OKC_API.END_ACTIVITY (x_msg_count,
2819: x_msg_data );
2820: EXCEPTION
2821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2822: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2823: l_api_name,
2824: G_PKG_NAME,
2825: 'OKC_API.G_RET_STS_ERROR',
2826: x_msg_count,
2821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2822: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2823: l_api_name,
2824: G_PKG_NAME,
2825: 'OKC_API.G_RET_STS_ERROR',
2826: x_msg_count,
2827: x_msg_data,
2828: '_PVT');
2829: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2825: 'OKC_API.G_RET_STS_ERROR',
2826: x_msg_count,
2827: x_msg_data,
2828: '_PVT');
2829: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2830: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2831: l_api_name,
2832: G_PKG_NAME,
2833: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2826: x_msg_count,
2827: x_msg_data,
2828: '_PVT');
2829: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2830: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2831: l_api_name,
2832: G_PKG_NAME,
2833: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2834: x_msg_count,
2829: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2830: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2831: l_api_name,
2832: G_PKG_NAME,
2833: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2834: x_msg_count,
2835: x_msg_data,
2836: '_PVT');
2837: WHEN OTHERS THEN
2834: x_msg_count,
2835: x_msg_data,
2836: '_PVT');
2837: WHEN OTHERS THEN
2838: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2839: l_api_name,
2840: G_PKG_NAME,
2841: 'OTHERS',
2842: x_msg_count,
2845: END delete_contact;
2846: -------------------------------------------------------------------------------------------------------
2847: PROCEDURE delete_contact(
2848: p_api_version IN NUMBER,
2849: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2850: x_return_status OUT NOCOPY VARCHAR2,
2851: x_msg_count OUT NOCOPY NUMBER,
2852: x_msg_data OUT NOCOPY VARCHAR2,
2853: p_ctcv_tbl IN ctcv_tbl_type) AS
2854:
2855: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_CONTACT';
2856: i NUMBER := 0;
2857: BEGIN
2858: OKC_API.init_msg_list(p_init_msg_list);
2859: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2860: IF (p_ctcv_tbl.COUNT>0) THEN
2861: i := p_ctcv_tbl.FIRST;
2862: LOOP
2855: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_CONTACT';
2856: i NUMBER := 0;
2857: BEGIN
2858: OKC_API.init_msg_list(p_init_msg_list);
2859: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
2860: IF (p_ctcv_tbl.COUNT>0) THEN
2861: i := p_ctcv_tbl.FIRST;
2862: LOOP
2863: delete_contact(p_api_version =>p_api_version,
2860: IF (p_ctcv_tbl.COUNT>0) THEN
2861: i := p_ctcv_tbl.FIRST;
2862: LOOP
2863: delete_contact(p_api_version =>p_api_version,
2864: p_init_msg_list =>OKC_API.G_FALSE,
2865: x_return_status =>x_return_status,
2866: x_msg_count =>x_msg_count,
2867: x_msg_data =>x_msg_data,
2868: p_ctcv_rec =>p_ctcv_tbl(i));
2865: x_return_status =>x_return_status,
2866: x_msg_count =>x_msg_count,
2867: x_msg_data =>x_msg_data,
2868: p_ctcv_rec =>p_ctcv_tbl(i));
2869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2870: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2872: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2873: END IF;
2866: x_msg_count =>x_msg_count,
2867: x_msg_data =>x_msg_data,
2868: p_ctcv_rec =>p_ctcv_tbl(i));
2869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2870: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2872: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2873: END IF;
2874: EXIT WHEN (i=p_ctcv_tbl.LAST);
2867: x_msg_data =>x_msg_data,
2868: p_ctcv_rec =>p_ctcv_tbl(i));
2869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2870: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2872: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2873: END IF;
2874: EXIT WHEN (i=p_ctcv_tbl.LAST);
2875: i := p_ctcv_tbl.NEXT(i);
2868: p_ctcv_rec =>p_ctcv_tbl(i));
2869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2870: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
2871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2872: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
2873: END IF;
2874: EXIT WHEN (i=p_ctcv_tbl.LAST);
2875: i := p_ctcv_tbl.NEXT(i);
2876: END LOOP;
2873: END IF;
2874: EXIT WHEN (i=p_ctcv_tbl.LAST);
2875: i := p_ctcv_tbl.NEXT(i);
2876: END LOOP;
2877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2880: RAISE OKC_API.G_EXCEPTION_ERROR;
2881: END IF;
2874: EXIT WHEN (i=p_ctcv_tbl.LAST);
2875: i := p_ctcv_tbl.NEXT(i);
2876: END LOOP;
2877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2880: RAISE OKC_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: END IF;
2875: i := p_ctcv_tbl.NEXT(i);
2876: END LOOP;
2877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2880: RAISE OKC_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: END IF;
2883: EXCEPTION
2876: END LOOP;
2877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2880: RAISE OKC_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: END IF;
2883: EXCEPTION
2884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2880: RAISE OKC_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: END IF;
2883: EXCEPTION
2884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2885: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2886: l_api_name,
2887: G_PKG_NAME,
2888: 'OKC_API.G_RET_STS_ERROR',
2881: END IF;
2882: END IF;
2883: EXCEPTION
2884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2885: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2886: l_api_name,
2887: G_PKG_NAME,
2888: 'OKC_API.G_RET_STS_ERROR',
2889: x_msg_count,
2884: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2885: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2886: l_api_name,
2887: G_PKG_NAME,
2888: 'OKC_API.G_RET_STS_ERROR',
2889: x_msg_count,
2890: x_msg_data,
2891: '_PVT');
2892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2888: 'OKC_API.G_RET_STS_ERROR',
2889: x_msg_count,
2890: x_msg_data,
2891: '_PVT');
2892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2893: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2894: l_api_name,
2895: G_PKG_NAME,
2896: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2889: x_msg_count,
2890: x_msg_data,
2891: '_PVT');
2892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2893: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2894: l_api_name,
2895: G_PKG_NAME,
2896: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2897: x_msg_count,
2892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2893: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2894: l_api_name,
2895: G_PKG_NAME,
2896: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2897: x_msg_count,
2898: x_msg_data,
2899: '_PVT');
2900: WHEN OTHERS THEN
2897: x_msg_count,
2898: x_msg_data,
2899: '_PVT');
2900: WHEN OTHERS THEN
2901: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
2902: l_api_name,
2903: G_PKG_NAME,
2904: 'OTHERS',
2905: x_msg_count,
2910: ---------------------------------------------------------------------------------------------------------
2911: -- Badri
2912: PROCEDURE create_contract_header(
2913: p_api_version IN NUMBER,
2914: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2915: x_return_status OUT NOCOPY VARCHAR2,
2916: x_msg_count OUT NOCOPY NUMBER,
2917: x_msg_data OUT NOCOPY VARCHAR2,
2918: p_chrv_rec IN chrv_rec_type,
2923: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
2924:
2925: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
2926: l_api_version CONSTANT NUMBER := 1.0;
2927: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2928: BEGIN
2929: -- call START_ACTIVITY to create savepoint, check compatibility
2930: -- and initialize message list
2931: l_return_status := OKC_API.START_ACTIVITY(
2927: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2928: BEGIN
2929: -- call START_ACTIVITY to create savepoint, check compatibility
2930: -- and initialize message list
2931: l_return_status := OKC_API.START_ACTIVITY(
2932: p_api_name => l_api_name,
2933: p_pkg_name => g_pkg_name,
2934: p_init_msg_list => p_init_msg_list,
2935: l_api_version => l_api_version,
2937: p_api_type => g_api_type,
2938: x_return_status => x_return_status);
2939:
2940: -- check if activity started successfully
2941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2944: RAISE OKC_API.G_EXCEPTION_ERROR;
2945: END IF;
2938: x_return_status => x_return_status);
2939:
2940: -- check if activity started successfully
2941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2944: RAISE OKC_API.G_EXCEPTION_ERROR;
2945: END IF;
2946:
2939:
2940: -- check if activity started successfully
2941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2944: RAISE OKC_API.G_EXCEPTION_ERROR;
2945: END IF;
2946:
2947: l_chrv_rec := p_chrv_rec;
2940: -- check if activity started successfully
2941: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2943: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2944: RAISE OKC_API.G_EXCEPTION_ERROR;
2945: END IF;
2946:
2947: l_chrv_rec := p_chrv_rec;
2948: -- call procedure in complex API
2959: p_chrv_rec => l_okc_chrv_rec_in,
2960: x_chrv_rec => l_okc_chrv_rec_out);
2961:
2962: -- check return status
2963: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2965: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2966: RAISE OKC_API.G_EXCEPTION_ERROR;
2967: END IF;
2960: x_chrv_rec => l_okc_chrv_rec_out);
2961:
2962: -- check return status
2963: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2965: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2966: RAISE OKC_API.G_EXCEPTION_ERROR;
2967: END IF;
2968:
2961:
2962: -- check return status
2963: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2965: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2966: RAISE OKC_API.G_EXCEPTION_ERROR;
2967: END IF;
2968:
2969: migrate_chrv(p_from => l_okc_chrv_rec_out,
2962: -- check return status
2963: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
2964: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2965: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
2966: RAISE OKC_API.G_EXCEPTION_ERROR;
2967: END IF;
2968:
2969: migrate_chrv(p_from => l_okc_chrv_rec_out,
2970: p_to => x_chrv_rec);
2969: migrate_chrv(p_from => l_okc_chrv_rec_out,
2970: p_to => x_chrv_rec);
2971:
2972: -- end activity
2973: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: EXCEPTION
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2972: -- end activity
2973: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: EXCEPTION
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2978: p_api_name => l_api_name,
2979: p_pkg_name => g_pkg_name,
2980: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2973: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: EXCEPTION
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2978: p_api_name => l_api_name,
2979: p_pkg_name => g_pkg_name,
2980: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2981: x_msg_count => x_msg_count,
2976: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2978: p_api_name => l_api_name,
2979: p_pkg_name => g_pkg_name,
2980: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2981: x_msg_count => x_msg_count,
2982: x_msg_data => x_msg_data,
2983: p_api_type => g_api_type);
2984:
2981: x_msg_count => x_msg_count,
2982: x_msg_data => x_msg_data,
2983: p_api_type => g_api_type);
2984:
2985: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2986: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2987: p_api_name => l_api_name,
2988: p_pkg_name => g_pkg_name,
2989: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2982: x_msg_data => x_msg_data,
2983: p_api_type => g_api_type);
2984:
2985: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2986: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2987: p_api_name => l_api_name,
2988: p_pkg_name => g_pkg_name,
2989: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2990: x_msg_count => x_msg_count,
2985: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2986: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2987: p_api_name => l_api_name,
2988: p_pkg_name => g_pkg_name,
2989: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2990: x_msg_count => x_msg_count,
2991: x_msg_data => x_msg_data,
2992: p_api_type => g_api_type);
2993:
2991: x_msg_data => x_msg_data,
2992: p_api_type => g_api_type);
2993:
2994: WHEN OTHERS THEN
2995: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2996: p_api_name => l_api_name,
2997: p_pkg_name => g_pkg_name,
2998: p_exc_name => 'OTHERS',
2999: x_msg_count => x_msg_count,
3004:
3005:
3006: PROCEDURE update_contract_header(
3007: p_api_version IN NUMBER,
3008: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3009: x_return_status OUT NOCOPY VARCHAR2,
3010: x_msg_count OUT NOCOPY NUMBER,
3011: x_msg_data OUT NOCOPY VARCHAR2,
3012: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3008: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3009: x_return_status OUT NOCOPY VARCHAR2,
3010: x_msg_count OUT NOCOPY NUMBER,
3011: x_msg_data OUT NOCOPY VARCHAR2,
3012: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3013: p_chrv_rec IN chrv_rec_type,
3014: x_chrv_rec OUT NOCOPY chrv_rec_type) IS
3015:
3016: l_chrv_rec chrv_rec_type;
3017: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
3018: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
3019: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
3020: l_api_version CONSTANT NUMBER := 1.0;
3021: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3022: BEGIN
3023: -- call START_ACTIVITY to create savepoint, check compatibility
3024: -- and initialize message list
3025: l_return_status := OKC_API.START_ACTIVITY(
3021: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3022: BEGIN
3023: -- call START_ACTIVITY to create savepoint, check compatibility
3024: -- and initialize message list
3025: l_return_status := OKC_API.START_ACTIVITY(
3026: p_api_name => l_api_name,
3027: p_pkg_name => g_pkg_name,
3028: p_init_msg_list => p_init_msg_list,
3029: l_api_version => l_api_version,
3031: p_api_type => g_api_type,
3032: x_return_status => x_return_status);
3033:
3034: -- check if activity started successfully
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3032: x_return_status => x_return_status);
3033:
3034: -- check if activity started successfully
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3040:
3033:
3034: -- check if activity started successfully
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3040:
3041: l_chrv_rec := p_chrv_rec;
3034: -- check if activity started successfully
3035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3038: RAISE OKC_API.G_EXCEPTION_ERROR;
3039: END IF;
3040:
3041: l_chrv_rec := p_chrv_rec;
3042:
3055: p_chrv_rec => l_okc_chrv_rec_in,
3056: x_chrv_rec => l_okc_chrv_rec_out);
3057:
3058: -- check return status
3059: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3060: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3062: RAISE OKC_API.G_EXCEPTION_ERROR;
3063: END IF;
3056: x_chrv_rec => l_okc_chrv_rec_out);
3057:
3058: -- check return status
3059: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3060: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3062: RAISE OKC_API.G_EXCEPTION_ERROR;
3063: END IF;
3064:
3057:
3058: -- check return status
3059: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3060: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3062: RAISE OKC_API.G_EXCEPTION_ERROR;
3063: END IF;
3064:
3065: migrate_chrv(p_from => l_okc_chrv_rec_out,
3058: -- check return status
3059: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3060: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3061: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3062: RAISE OKC_API.G_EXCEPTION_ERROR;
3063: END IF;
3064:
3065: migrate_chrv(p_from => l_okc_chrv_rec_out,
3066: p_to => x_chrv_rec);
3065: migrate_chrv(p_from => l_okc_chrv_rec_out,
3066: p_to => x_chrv_rec);
3067:
3068: -- end activity
3069: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3070: x_msg_data => x_msg_data);
3071: EXCEPTION
3072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3073: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3068: -- end activity
3069: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3070: x_msg_data => x_msg_data);
3071: EXCEPTION
3072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3073: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3074: p_api_name => l_api_name,
3075: p_pkg_name => g_pkg_name,
3076: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3069: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3070: x_msg_data => x_msg_data);
3071: EXCEPTION
3072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3073: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3074: p_api_name => l_api_name,
3075: p_pkg_name => g_pkg_name,
3076: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3077: x_msg_count => x_msg_count,
3072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3073: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3074: p_api_name => l_api_name,
3075: p_pkg_name => g_pkg_name,
3076: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3077: x_msg_count => x_msg_count,
3078: x_msg_data => x_msg_data,
3079: p_api_type => g_api_type);
3080:
3077: x_msg_count => x_msg_count,
3078: x_msg_data => x_msg_data,
3079: p_api_type => g_api_type);
3080:
3081: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3082: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3083: p_api_name => l_api_name,
3084: p_pkg_name => g_pkg_name,
3085: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3078: x_msg_data => x_msg_data,
3079: p_api_type => g_api_type);
3080:
3081: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3082: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3083: p_api_name => l_api_name,
3084: p_pkg_name => g_pkg_name,
3085: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3086: x_msg_count => x_msg_count,
3081: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3082: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3083: p_api_name => l_api_name,
3084: p_pkg_name => g_pkg_name,
3085: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3086: x_msg_count => x_msg_count,
3087: x_msg_data => x_msg_data,
3088: p_api_type => g_api_type);
3089:
3087: x_msg_data => x_msg_data,
3088: p_api_type => g_api_type);
3089:
3090: WHEN OTHERS THEN
3091: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3092: p_api_name => l_api_name,
3093: p_pkg_name => g_pkg_name,
3094: p_exc_name => 'OTHERS',
3095: x_msg_count => x_msg_count,
3100:
3101:
3102: PROCEDURE delete_contract_header(
3103: p_api_version IN NUMBER,
3104: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3105: x_return_status OUT NOCOPY VARCHAR2,
3106: x_msg_count OUT NOCOPY NUMBER,
3107: x_msg_data OUT NOCOPY VARCHAR2,
3108: p_chrv_rec IN chrv_rec_type) IS
3111: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
3112: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
3113: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
3114: l_api_version CONSTANT NUMBER := 1.0;
3115: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3116: BEGIN
3117: -- call START_ACTIVITY to create savepoint, check compatibility
3118: -- and initialize message list
3119: l_return_status := OKC_API.START_ACTIVITY(
3115: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3116: BEGIN
3117: -- call START_ACTIVITY to create savepoint, check compatibility
3118: -- and initialize message list
3119: l_return_status := OKC_API.START_ACTIVITY(
3120: p_api_name => l_api_name,
3121: p_pkg_name => g_pkg_name,
3122: p_init_msg_list => p_init_msg_list,
3123: l_api_version => l_api_version,
3125: p_api_type => g_api_type,
3126: x_return_status => x_return_status);
3127:
3128: -- check if activity started successfully
3129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3132: RAISE OKC_API.G_EXCEPTION_ERROR;
3133: END IF;
3126: x_return_status => x_return_status);
3127:
3128: -- check if activity started successfully
3129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3132: RAISE OKC_API.G_EXCEPTION_ERROR;
3133: END IF;
3134:
3127:
3128: -- check if activity started successfully
3129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3132: RAISE OKC_API.G_EXCEPTION_ERROR;
3133: END IF;
3134:
3135: l_chrv_rec := p_chrv_rec;
3128: -- check if activity started successfully
3129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3132: RAISE OKC_API.G_EXCEPTION_ERROR;
3133: END IF;
3134:
3135: l_chrv_rec := p_chrv_rec;
3136:
3146: x_msg_data => x_msg_data,
3147: p_chrv_rec => l_okc_chrv_rec_in);
3148:
3149: -- check return status
3150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3153: RAISE OKC_API.G_EXCEPTION_ERROR;
3154: END IF;
3147: p_chrv_rec => l_okc_chrv_rec_in);
3148:
3149: -- check return status
3150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3153: RAISE OKC_API.G_EXCEPTION_ERROR;
3154: END IF;
3155:
3148:
3149: -- check return status
3150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3153: RAISE OKC_API.G_EXCEPTION_ERROR;
3154: END IF;
3155:
3156: -- end activity
3149: -- check return status
3150: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3153: RAISE OKC_API.G_EXCEPTION_ERROR;
3154: END IF;
3155:
3156: -- end activity
3157: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3153: RAISE OKC_API.G_EXCEPTION_ERROR;
3154: END IF;
3155:
3156: -- end activity
3157: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3158: x_msg_data => x_msg_data);
3159: EXCEPTION
3160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3156: -- end activity
3157: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3158: x_msg_data => x_msg_data);
3159: EXCEPTION
3160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3162: p_api_name => l_api_name,
3163: p_pkg_name => g_pkg_name,
3164: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3157: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3158: x_msg_data => x_msg_data);
3159: EXCEPTION
3160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3162: p_api_name => l_api_name,
3163: p_pkg_name => g_pkg_name,
3164: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3165: x_msg_count => x_msg_count,
3160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3162: p_api_name => l_api_name,
3163: p_pkg_name => g_pkg_name,
3164: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3165: x_msg_count => x_msg_count,
3166: x_msg_data => x_msg_data,
3167: p_api_type => g_api_type);
3168:
3165: x_msg_count => x_msg_count,
3166: x_msg_data => x_msg_data,
3167: p_api_type => g_api_type);
3168:
3169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3170: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3171: p_api_name => l_api_name,
3172: p_pkg_name => g_pkg_name,
3173: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3166: x_msg_data => x_msg_data,
3167: p_api_type => g_api_type);
3168:
3169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3170: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3171: p_api_name => l_api_name,
3172: p_pkg_name => g_pkg_name,
3173: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3174: x_msg_count => x_msg_count,
3169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3170: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3171: p_api_name => l_api_name,
3172: p_pkg_name => g_pkg_name,
3173: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3174: x_msg_count => x_msg_count,
3175: x_msg_data => x_msg_data,
3176: p_api_type => g_api_type);
3177:
3175: x_msg_data => x_msg_data,
3176: p_api_type => g_api_type);
3177:
3178: WHEN OTHERS THEN
3179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3180: p_api_name => l_api_name,
3181: p_pkg_name => g_pkg_name,
3182: p_exc_name => 'OTHERS',
3183: x_msg_count => x_msg_count,
3188:
3189:
3190: PROCEDURE lock_contract_header(
3191: p_api_version IN NUMBER,
3192: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3193: x_return_status OUT NOCOPY VARCHAR2,
3194: x_msg_count OUT NOCOPY NUMBER,
3195: x_msg_data OUT NOCOPY VARCHAR2,
3196: p_chrv_rec IN chrv_rec_type) IS
3199: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
3200: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
3201: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_HEADER';
3202: l_api_version CONSTANT NUMBER := 1.0;
3203: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3204: BEGIN
3205: -- call START_ACTIVITY to create savepoint, check compatibility
3206: -- and initialize message list
3207: l_return_status := OKC_API.START_ACTIVITY(
3203: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3204: BEGIN
3205: -- call START_ACTIVITY to create savepoint, check compatibility
3206: -- and initialize message list
3207: l_return_status := OKC_API.START_ACTIVITY(
3208: p_api_name => l_api_name,
3209: p_pkg_name => g_pkg_name,
3210: p_init_msg_list => p_init_msg_list,
3211: l_api_version => l_api_version,
3213: p_api_type => g_api_type,
3214: x_return_status => x_return_status);
3215:
3216: -- check if activity started successfully
3217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3214: x_return_status => x_return_status);
3215:
3216: -- check if activity started successfully
3217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3222:
3215:
3216: -- check if activity started successfully
3217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3222:
3223: l_chrv_rec := p_chrv_rec;
3216: -- check if activity started successfully
3217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3220: RAISE OKC_API.G_EXCEPTION_ERROR;
3221: END IF;
3222:
3223: l_chrv_rec := p_chrv_rec;
3224:
3233: x_msg_data => x_msg_data,
3234: p_chrv_rec => l_okc_chrv_rec_in);
3235:
3236: -- check return status
3237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3240: RAISE OKC_API.G_EXCEPTION_ERROR;
3241: END IF;
3234: p_chrv_rec => l_okc_chrv_rec_in);
3235:
3236: -- check return status
3237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3240: RAISE OKC_API.G_EXCEPTION_ERROR;
3241: END IF;
3242:
3235:
3236: -- check return status
3237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3240: RAISE OKC_API.G_EXCEPTION_ERROR;
3241: END IF;
3242:
3243: -- end activity
3236: -- check return status
3237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3240: RAISE OKC_API.G_EXCEPTION_ERROR;
3241: END IF;
3242:
3243: -- end activity
3244: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3240: RAISE OKC_API.G_EXCEPTION_ERROR;
3241: END IF;
3242:
3243: -- end activity
3244: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3245: x_msg_data => x_msg_data);
3246: EXCEPTION
3247: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3248: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3243: -- end activity
3244: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3245: x_msg_data => x_msg_data);
3246: EXCEPTION
3247: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3248: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3249: p_api_name => l_api_name,
3250: p_pkg_name => g_pkg_name,
3251: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3244: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3245: x_msg_data => x_msg_data);
3246: EXCEPTION
3247: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3248: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3249: p_api_name => l_api_name,
3250: p_pkg_name => g_pkg_name,
3251: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3252: x_msg_count => x_msg_count,
3247: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3248: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3249: p_api_name => l_api_name,
3250: p_pkg_name => g_pkg_name,
3251: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3252: x_msg_count => x_msg_count,
3253: x_msg_data => x_msg_data,
3254: p_api_type => g_api_type);
3255:
3252: x_msg_count => x_msg_count,
3253: x_msg_data => x_msg_data,
3254: p_api_type => g_api_type);
3255:
3256: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3257: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3258: p_api_name => l_api_name,
3259: p_pkg_name => g_pkg_name,
3260: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3253: x_msg_data => x_msg_data,
3254: p_api_type => g_api_type);
3255:
3256: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3257: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3258: p_api_name => l_api_name,
3259: p_pkg_name => g_pkg_name,
3260: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3261: x_msg_count => x_msg_count,
3256: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3257: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3258: p_api_name => l_api_name,
3259: p_pkg_name => g_pkg_name,
3260: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3261: x_msg_count => x_msg_count,
3262: x_msg_data => x_msg_data,
3263: p_api_type => g_api_type);
3264:
3262: x_msg_data => x_msg_data,
3263: p_api_type => g_api_type);
3264:
3265: WHEN OTHERS THEN
3266: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3267: p_api_name => l_api_name,
3268: p_pkg_name => g_pkg_name,
3269: p_exc_name => 'OTHERS',
3270: x_msg_count => x_msg_count,
3274: END lock_contract_header;
3275:
3276: PROCEDURE validate_contract_header(
3277: p_api_version IN NUMBER,
3278: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3279: x_return_status OUT NOCOPY VARCHAR2,
3280: x_msg_count OUT NOCOPY NUMBER,
3281: x_msg_data OUT NOCOPY VARCHAR2,
3282: p_chrv_rec IN chrv_rec_type) IS
3285: l_okc_chrv_rec_in okc_contract_pub.chrv_rec_type;
3286: l_okc_chrv_rec_out okc_contract_pub.chrv_rec_type;
3287: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_HEADER';
3288: l_api_version CONSTANT NUMBER := 1.0;
3289: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3290: BEGIN
3291: -- call START_ACTIVITY to create savepoint, check compatibility
3292: -- and initialize message list
3293: l_return_status := OKC_API.START_ACTIVITY(
3289: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3290: BEGIN
3291: -- call START_ACTIVITY to create savepoint, check compatibility
3292: -- and initialize message list
3293: l_return_status := OKC_API.START_ACTIVITY(
3294: p_api_name => l_api_name,
3295: p_pkg_name => g_pkg_name,
3296: p_init_msg_list => p_init_msg_list,
3297: l_api_version => l_api_version,
3299: p_api_type => g_api_type,
3300: x_return_status => x_return_status);
3301:
3302: -- check if activity started successfully
3303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_ERROR;
3307: END IF;
3300: x_return_status => x_return_status);
3301:
3302: -- check if activity started successfully
3303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_ERROR;
3307: END IF;
3308:
3301:
3302: -- check if activity started successfully
3303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_ERROR;
3307: END IF;
3308:
3309: l_chrv_rec := p_chrv_rec;
3302: -- check if activity started successfully
3303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_ERROR;
3307: END IF;
3308:
3309: l_chrv_rec := p_chrv_rec;
3310: migrate_chrv(p_from => l_chrv_rec,
3319: x_msg_data => x_msg_data,
3320: p_chrv_rec => l_okc_chrv_rec_in);
3321:
3322: -- check return status
3323: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3325: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3326: RAISE OKC_API.G_EXCEPTION_ERROR;
3327: END IF;
3320: p_chrv_rec => l_okc_chrv_rec_in);
3321:
3322: -- check return status
3323: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3325: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3326: RAISE OKC_API.G_EXCEPTION_ERROR;
3327: END IF;
3328:
3321:
3322: -- check return status
3323: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3325: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3326: RAISE OKC_API.G_EXCEPTION_ERROR;
3327: END IF;
3328:
3329: -- end activity
3322: -- check return status
3323: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3325: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3326: RAISE OKC_API.G_EXCEPTION_ERROR;
3327: END IF;
3328:
3329: -- end activity
3330: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3326: RAISE OKC_API.G_EXCEPTION_ERROR;
3327: END IF;
3328:
3329: -- end activity
3330: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3331: x_msg_data => x_msg_data);
3332: EXCEPTION
3333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3334: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3329: -- end activity
3330: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3331: x_msg_data => x_msg_data);
3332: EXCEPTION
3333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3334: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3335: p_api_name => l_api_name,
3336: p_pkg_name => g_pkg_name,
3337: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3330: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3331: x_msg_data => x_msg_data);
3332: EXCEPTION
3333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3334: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3335: p_api_name => l_api_name,
3336: p_pkg_name => g_pkg_name,
3337: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3338: x_msg_count => x_msg_count,
3333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3334: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3335: p_api_name => l_api_name,
3336: p_pkg_name => g_pkg_name,
3337: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3338: x_msg_count => x_msg_count,
3339: x_msg_data => x_msg_data,
3340: p_api_type => g_api_type);
3341:
3338: x_msg_count => x_msg_count,
3339: x_msg_data => x_msg_data,
3340: p_api_type => g_api_type);
3341:
3342: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3344: p_api_name => l_api_name,
3345: p_pkg_name => g_pkg_name,
3346: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3339: x_msg_data => x_msg_data,
3340: p_api_type => g_api_type);
3341:
3342: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3344: p_api_name => l_api_name,
3345: p_pkg_name => g_pkg_name,
3346: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3347: x_msg_count => x_msg_count,
3342: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3344: p_api_name => l_api_name,
3345: p_pkg_name => g_pkg_name,
3346: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3347: x_msg_count => x_msg_count,
3348: x_msg_data => x_msg_data,
3349: p_api_type => g_api_type);
3350:
3348: x_msg_data => x_msg_data,
3349: p_api_type => g_api_type);
3350:
3351: WHEN OTHERS THEN
3352: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3353: p_api_name => l_api_name,
3354: p_pkg_name => g_pkg_name,
3355: p_exc_name => 'OTHERS',
3356: x_msg_count => x_msg_count,
3361:
3362:
3363: PROCEDURE create_contract_line(
3364: p_api_version IN NUMBER,
3365: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3366: x_return_status OUT NOCOPY VARCHAR2,
3367: x_msg_count OUT NOCOPY NUMBER,
3368: x_msg_data OUT NOCOPY VARCHAR2,
3369: p_restricted_update IN VARCHAR2 DEFAULT 'F',
3374: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3375: l_okc_clev_rec_out okc_contract_pub.clev_rec_type;
3376: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
3377: l_api_version CONSTANT NUMBER := 1.0;
3378: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3379: BEGIN
3380: -- call START_ACTIVITY to create savepoint, check compatibility
3381: -- and initialize message list
3382: l_return_status := OKC_API.START_ACTIVITY(
3378: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3379: BEGIN
3380: -- call START_ACTIVITY to create savepoint, check compatibility
3381: -- and initialize message list
3382: l_return_status := OKC_API.START_ACTIVITY(
3383: p_api_name => l_api_name,
3384: p_pkg_name => g_pkg_name,
3385: p_init_msg_list => p_init_msg_list,
3386: l_api_version => l_api_version,
3388: p_api_type => g_api_type,
3389: x_return_status => x_return_status);
3390:
3391: -- check if activity started successfully
3392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3395: RAISE OKC_API.G_EXCEPTION_ERROR;
3396: END IF;
3389: x_return_status => x_return_status);
3390:
3391: -- check if activity started successfully
3392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3395: RAISE OKC_API.G_EXCEPTION_ERROR;
3396: END IF;
3397:
3390:
3391: -- check if activity started successfully
3392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3395: RAISE OKC_API.G_EXCEPTION_ERROR;
3396: END IF;
3397:
3398: l_clev_rec := p_clev_rec;
3391: -- check if activity started successfully
3392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3395: RAISE OKC_API.G_EXCEPTION_ERROR;
3396: END IF;
3397:
3398: l_clev_rec := p_clev_rec;
3399: migrate_clev(p_from => l_clev_rec,
3409: p_clev_rec => l_okc_clev_rec_in,
3410: x_clev_rec => l_okc_clev_rec_out);
3411:
3412: -- check return status
3413: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3410: x_clev_rec => l_okc_clev_rec_out);
3411:
3412: -- check return status
3413: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3418:
3411:
3412: -- check return status
3413: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3418:
3419: migrate_clev(p_from => l_okc_clev_rec_out,
3412: -- check return status
3413: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3415: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3416: RAISE OKC_API.G_EXCEPTION_ERROR;
3417: END IF;
3418:
3419: migrate_clev(p_from => l_okc_clev_rec_out,
3420: p_to => x_clev_rec);
3419: migrate_clev(p_from => l_okc_clev_rec_out,
3420: p_to => x_clev_rec);
3421:
3422: -- end activity
3423: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3424: x_msg_data => x_msg_data);
3425: EXCEPTION
3426: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3427: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3422: -- end activity
3423: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3424: x_msg_data => x_msg_data);
3425: EXCEPTION
3426: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3427: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3428: p_api_name => l_api_name,
3429: p_pkg_name => g_pkg_name,
3430: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3423: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3424: x_msg_data => x_msg_data);
3425: EXCEPTION
3426: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3427: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3428: p_api_name => l_api_name,
3429: p_pkg_name => g_pkg_name,
3430: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3431: x_msg_count => x_msg_count,
3426: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3427: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3428: p_api_name => l_api_name,
3429: p_pkg_name => g_pkg_name,
3430: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3431: x_msg_count => x_msg_count,
3432: x_msg_data => x_msg_data,
3433: p_api_type => g_api_type);
3434:
3431: x_msg_count => x_msg_count,
3432: x_msg_data => x_msg_data,
3433: p_api_type => g_api_type);
3434:
3435: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3436: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3437: p_api_name => l_api_name,
3438: p_pkg_name => g_pkg_name,
3439: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3432: x_msg_data => x_msg_data,
3433: p_api_type => g_api_type);
3434:
3435: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3436: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3437: p_api_name => l_api_name,
3438: p_pkg_name => g_pkg_name,
3439: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3440: x_msg_count => x_msg_count,
3435: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3436: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3437: p_api_name => l_api_name,
3438: p_pkg_name => g_pkg_name,
3439: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3440: x_msg_count => x_msg_count,
3441: x_msg_data => x_msg_data,
3442: p_api_type => g_api_type);
3443:
3441: x_msg_data => x_msg_data,
3442: p_api_type => g_api_type);
3443:
3444: WHEN OTHERS THEN
3445: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3446: p_api_name => l_api_name,
3447: p_pkg_name => g_pkg_name,
3448: p_exc_name => 'OTHERS',
3449: x_msg_count => x_msg_count,
3453: END create_contract_line;
3454:
3455: PROCEDURE create_contract_line(
3456: p_api_version IN NUMBER,
3457: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3458: x_return_status OUT NOCOPY VARCHAR2,
3459: x_msg_count OUT NOCOPY NUMBER,
3460: x_msg_data OUT NOCOPY VARCHAR2,
3461: p_restricted_update IN VARCHAR2 DEFAULT 'F',
3464:
3465: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_LINE';
3466: i NUMBER := 0;
3467: BEGIN
3468: OKC_API.init_msg_list(p_init_msg_list);
3469: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3470: IF (p_clev_tbl.COUNT>0) THEN
3471: i := p_clev_tbl.FIRST;
3472: LOOP
3465: l_api_name CONSTANT VARCHAR2(30) := 'OKL_CREATE_LINE';
3466: i NUMBER := 0;
3467: BEGIN
3468: OKC_API.init_msg_list(p_init_msg_list);
3469: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3470: IF (p_clev_tbl.COUNT>0) THEN
3471: i := p_clev_tbl.FIRST;
3472: LOOP
3473: create_contract_line(p_api_version => p_api_version,
3470: IF (p_clev_tbl.COUNT>0) THEN
3471: i := p_clev_tbl.FIRST;
3472: LOOP
3473: create_contract_line(p_api_version => p_api_version,
3474: p_init_msg_list => OKC_API.G_FALSE,
3475: x_return_status => x_return_status,
3476: x_msg_count => x_msg_count,
3477: x_msg_data => x_msg_data,
3478: p_restricted_update => p_restricted_update,
3477: x_msg_data => x_msg_data,
3478: p_restricted_update => p_restricted_update,
3479: p_clev_rec =>p_clev_tbl(i),
3480: x_clev_rec =>x_clev_tbl(i));
3481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3482: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3484: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3485: END IF;
3478: p_restricted_update => p_restricted_update,
3479: p_clev_rec =>p_clev_tbl(i),
3480: x_clev_rec =>x_clev_tbl(i));
3481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3482: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3484: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3485: END IF;
3486: EXIT WHEN (i=p_clev_tbl.LAST);
3479: p_clev_rec =>p_clev_tbl(i),
3480: x_clev_rec =>x_clev_tbl(i));
3481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3482: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3484: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3485: END IF;
3486: EXIT WHEN (i=p_clev_tbl.LAST);
3487: i := p_clev_tbl.NEXT(i);
3480: x_clev_rec =>x_clev_tbl(i));
3481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3482: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3484: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3485: END IF;
3486: EXIT WHEN (i=p_clev_tbl.LAST);
3487: i := p_clev_tbl.NEXT(i);
3488: END LOOP;
3485: END IF;
3486: EXIT WHEN (i=p_clev_tbl.LAST);
3487: i := p_clev_tbl.NEXT(i);
3488: END LOOP;
3489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3486: EXIT WHEN (i=p_clev_tbl.LAST);
3487: i := p_clev_tbl.NEXT(i);
3488: END LOOP;
3489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3494: END IF;
3487: i := p_clev_tbl.NEXT(i);
3488: END LOOP;
3489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3494: END IF;
3495: EXCEPTION
3488: END LOOP;
3489: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3491: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3494: END IF;
3495: EXCEPTION
3496: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: END IF;
3494: END IF;
3495: EXCEPTION
3496: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3497: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3498: l_api_name,
3499: G_PKG_NAME,
3500: 'OKC_API.G_RET_STS_ERROR',
3493: END IF;
3494: END IF;
3495: EXCEPTION
3496: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3497: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3498: l_api_name,
3499: G_PKG_NAME,
3500: 'OKC_API.G_RET_STS_ERROR',
3501: x_msg_count,
3496: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3497: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3498: l_api_name,
3499: G_PKG_NAME,
3500: 'OKC_API.G_RET_STS_ERROR',
3501: x_msg_count,
3502: x_msg_data,
3503: '_PVT');
3504: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3500: 'OKC_API.G_RET_STS_ERROR',
3501: x_msg_count,
3502: x_msg_data,
3503: '_PVT');
3504: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3505: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3506: l_api_name,
3507: G_PKG_NAME,
3508: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3501: x_msg_count,
3502: x_msg_data,
3503: '_PVT');
3504: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3505: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3506: l_api_name,
3507: G_PKG_NAME,
3508: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3509: x_msg_count,
3504: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3505: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3506: l_api_name,
3507: G_PKG_NAME,
3508: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3509: x_msg_count,
3510: x_msg_data,
3511: '_PVT');
3512: WHEN OTHERS THEN
3509: x_msg_count,
3510: x_msg_data,
3511: '_PVT');
3512: WHEN OTHERS THEN
3513: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3514: l_api_name,
3515: G_PKG_NAME,
3516: 'OTHERS',
3517: x_msg_count,
3520: END create_contract_line;
3521:
3522: PROCEDURE update_contract_line(
3523: p_api_version IN NUMBER,
3524: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3525: x_return_status OUT NOCOPY VARCHAR2,
3526: x_msg_count OUT NOCOPY NUMBER,
3527: x_msg_data OUT NOCOPY VARCHAR2,
3528: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3524: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3525: x_return_status OUT NOCOPY VARCHAR2,
3526: x_msg_count OUT NOCOPY NUMBER,
3527: x_msg_data OUT NOCOPY VARCHAR2,
3528: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3529: p_clev_rec IN clev_rec_type,
3530: x_clev_rec OUT NOCOPY clev_rec_type) IS
3531:
3532: l_clev_rec clev_rec_type;
3533: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3534: l_okc_clev_rec_out okc_contract_pub.clev_rec_type;
3535: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
3536: l_api_version CONSTANT NUMBER := 1.0;
3537: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3538: BEGIN
3539: -- call START_ACTIVITY to create savepoint, check compatibility
3540: -- and initialize message list
3541: l_return_status := OKC_API.START_ACTIVITY(
3537: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3538: BEGIN
3539: -- call START_ACTIVITY to create savepoint, check compatibility
3540: -- and initialize message list
3541: l_return_status := OKC_API.START_ACTIVITY(
3542: p_api_name => l_api_name,
3543: p_pkg_name => g_pkg_name,
3544: p_init_msg_list => p_init_msg_list,
3545: l_api_version => l_api_version,
3547: p_api_type => g_api_type,
3548: x_return_status => x_return_status);
3549:
3550: -- check if activity started successfully
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3548: x_return_status => x_return_status);
3549:
3550: -- check if activity started successfully
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3549:
3550: -- check if activity started successfully
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3557:
3550: -- check if activity started successfully
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3557:
3558: l_clev_rec := p_clev_rec;
3571: p_clev_rec => l_okc_clev_rec_in,
3572: x_clev_rec => l_okc_clev_rec_out);
3573:
3574: -- check return status
3575: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3572: x_clev_rec => l_okc_clev_rec_out);
3573:
3574: -- check return status
3575: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3573:
3574: -- check return status
3575: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3581: migrate_clev(p_from => l_okc_clev_rec_out,
3574: -- check return status
3575: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3576: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3577: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3578: RAISE OKC_API.G_EXCEPTION_ERROR;
3579: END IF;
3580:
3581: migrate_clev(p_from => l_okc_clev_rec_out,
3582: p_to => x_clev_rec);
3580:
3581: migrate_clev(p_from => l_okc_clev_rec_out,
3582: p_to => x_clev_rec);
3583: -- end activity
3584: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data);
3586: EXCEPTION
3587: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3588: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3583: -- end activity
3584: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data);
3586: EXCEPTION
3587: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3588: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3589: p_api_name => l_api_name,
3590: p_pkg_name => g_pkg_name,
3591: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3584: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data);
3586: EXCEPTION
3587: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3588: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3589: p_api_name => l_api_name,
3590: p_pkg_name => g_pkg_name,
3591: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3592: x_msg_count => x_msg_count,
3587: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3588: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3589: p_api_name => l_api_name,
3590: p_pkg_name => g_pkg_name,
3591: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3592: x_msg_count => x_msg_count,
3593: x_msg_data => x_msg_data,
3594: p_api_type => g_api_type);
3595:
3592: x_msg_count => x_msg_count,
3593: x_msg_data => x_msg_data,
3594: p_api_type => g_api_type);
3595:
3596: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3597: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3598: p_api_name => l_api_name,
3599: p_pkg_name => g_pkg_name,
3600: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3593: x_msg_data => x_msg_data,
3594: p_api_type => g_api_type);
3595:
3596: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3597: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3598: p_api_name => l_api_name,
3599: p_pkg_name => g_pkg_name,
3600: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3601: x_msg_count => x_msg_count,
3596: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3597: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3598: p_api_name => l_api_name,
3599: p_pkg_name => g_pkg_name,
3600: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3601: x_msg_count => x_msg_count,
3602: x_msg_data => x_msg_data,
3603: p_api_type => g_api_type);
3604:
3602: x_msg_data => x_msg_data,
3603: p_api_type => g_api_type);
3604:
3605: WHEN OTHERS THEN
3606: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3607: p_api_name => l_api_name,
3608: p_pkg_name => g_pkg_name,
3609: p_exc_name => 'OTHERS',
3610: x_msg_count => x_msg_count,
3614: END update_contract_line;
3615:
3616: PROCEDURE update_contract_line(
3617: p_api_version IN NUMBER,
3618: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3619: x_return_status OUT NOCOPY VARCHAR2,
3620: x_msg_count OUT NOCOPY NUMBER,
3621: x_msg_data OUT NOCOPY VARCHAR2,
3622: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3618: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3619: x_return_status OUT NOCOPY VARCHAR2,
3620: x_msg_count OUT NOCOPY NUMBER,
3621: x_msg_data OUT NOCOPY VARCHAR2,
3622: p_restricted_update IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3623: p_clev_tbl IN clev_tbl_type,
3624: x_clev_tbl OUT NOCOPY clev_tbl_type) AS
3625:
3626: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_LINE';
3625:
3626: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_LINE';
3627: i NUMBER := 0;
3628: BEGIN
3629: OKC_API.init_msg_list(p_init_msg_list);
3630: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3631: IF (p_clev_tbl.COUNT>0) THEN
3632: i := p_clev_tbl.FIRST;
3633: LOOP
3626: l_api_name CONSTANT VARCHAR2(30) := 'OKL_UPDATE_LINE';
3627: i NUMBER := 0;
3628: BEGIN
3629: OKC_API.init_msg_list(p_init_msg_list);
3630: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3631: IF (p_clev_tbl.COUNT>0) THEN
3632: i := p_clev_tbl.FIRST;
3633: LOOP
3634: update_contract_line(p_api_version =>p_api_version,
3631: IF (p_clev_tbl.COUNT>0) THEN
3632: i := p_clev_tbl.FIRST;
3633: LOOP
3634: update_contract_line(p_api_version =>p_api_version,
3635: p_init_msg_list =>OKC_API.G_FALSE,
3636: x_return_status =>x_return_status,
3637: x_msg_count =>x_msg_count,
3638: x_msg_data =>x_msg_data,
3639: p_restricted_update =>p_restricted_update,
3638: x_msg_data =>x_msg_data,
3639: p_restricted_update =>p_restricted_update,
3640: p_clev_rec =>p_clev_tbl(i),
3641: x_clev_rec =>x_clev_tbl(i));
3642: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3644: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3646: END IF;
3639: p_restricted_update =>p_restricted_update,
3640: p_clev_rec =>p_clev_tbl(i),
3641: x_clev_rec =>x_clev_tbl(i));
3642: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3644: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3646: END IF;
3647: EXIT WHEN (i=p_clev_tbl.LAST);
3640: p_clev_rec =>p_clev_tbl(i),
3641: x_clev_rec =>x_clev_tbl(i));
3642: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3644: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3646: END IF;
3647: EXIT WHEN (i=p_clev_tbl.LAST);
3648: i := p_clev_tbl.NEXT(i);
3641: x_clev_rec =>x_clev_tbl(i));
3642: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3644: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3646: END IF;
3647: EXIT WHEN (i=p_clev_tbl.LAST);
3648: i := p_clev_tbl.NEXT(i);
3649: END LOOP;
3646: END IF;
3647: EXIT WHEN (i=p_clev_tbl.LAST);
3648: i := p_clev_tbl.NEXT(i);
3649: END LOOP;
3650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3653: RAISE OKC_API.G_EXCEPTION_ERROR;
3654: END IF;
3647: EXIT WHEN (i=p_clev_tbl.LAST);
3648: i := p_clev_tbl.NEXT(i);
3649: END LOOP;
3650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3653: RAISE OKC_API.G_EXCEPTION_ERROR;
3654: END IF;
3655: END IF;
3648: i := p_clev_tbl.NEXT(i);
3649: END LOOP;
3650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3653: RAISE OKC_API.G_EXCEPTION_ERROR;
3654: END IF;
3655: END IF;
3656: EXCEPTION
3649: END LOOP;
3650: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3652: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3653: RAISE OKC_API.G_EXCEPTION_ERROR;
3654: END IF;
3655: END IF;
3656: EXCEPTION
3657: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3653: RAISE OKC_API.G_EXCEPTION_ERROR;
3654: END IF;
3655: END IF;
3656: EXCEPTION
3657: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3658: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3659: l_api_name,
3660: G_PKG_NAME,
3661: 'OKC_API.G_RET_STS_ERROR',
3654: END IF;
3655: END IF;
3656: EXCEPTION
3657: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3658: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3659: l_api_name,
3660: G_PKG_NAME,
3661: 'OKC_API.G_RET_STS_ERROR',
3662: x_msg_count,
3657: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3658: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3659: l_api_name,
3660: G_PKG_NAME,
3661: 'OKC_API.G_RET_STS_ERROR',
3662: x_msg_count,
3663: x_msg_data,
3664: '_PVT');
3665: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3661: 'OKC_API.G_RET_STS_ERROR',
3662: x_msg_count,
3663: x_msg_data,
3664: '_PVT');
3665: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3666: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3667: l_api_name,
3668: G_PKG_NAME,
3669: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3662: x_msg_count,
3663: x_msg_data,
3664: '_PVT');
3665: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3666: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3667: l_api_name,
3668: G_PKG_NAME,
3669: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3670: x_msg_count,
3665: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3666: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3667: l_api_name,
3668: G_PKG_NAME,
3669: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3670: x_msg_count,
3671: x_msg_data,
3672: '_PVT');
3673: WHEN OTHERS THEN
3670: x_msg_count,
3671: x_msg_data,
3672: '_PVT');
3673: WHEN OTHERS THEN
3674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3675: l_api_name,
3676: G_PKG_NAME,
3677: 'OTHERS',
3678: x_msg_count,
3682:
3683:
3684: PROCEDURE delete_contract_line(
3685: p_api_version IN NUMBER,
3686: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3687: x_return_status OUT NOCOPY VARCHAR2,
3688: x_msg_count OUT NOCOPY NUMBER,
3689: x_msg_data OUT NOCOPY VARCHAR2,
3690: p_clev_rec IN clev_rec_type) IS
3693: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3694: l_okc_clev_rec_out okc_contract_pub.clev_rec_type;
3695: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
3696: l_api_version CONSTANT NUMBER := 1.0;
3697: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3698: BEGIN
3699: -- call START_ACTIVITY to create savepoint, check compatibility
3700: -- and initialize message list
3701: l_return_status := OKC_API.START_ACTIVITY(
3697: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3698: BEGIN
3699: -- call START_ACTIVITY to create savepoint, check compatibility
3700: -- and initialize message list
3701: l_return_status := OKC_API.START_ACTIVITY(
3702: p_api_name => l_api_name,
3703: p_pkg_name => g_pkg_name,
3704: p_init_msg_list => p_init_msg_list,
3705: l_api_version => l_api_version,
3707: p_api_type => g_api_type,
3708: x_return_status => x_return_status);
3709:
3710: -- check if activity started successfully
3711: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: END IF;
3708: x_return_status => x_return_status);
3709:
3710: -- check if activity started successfully
3711: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: END IF;
3716:
3709:
3710: -- check if activity started successfully
3711: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: END IF;
3716:
3717: l_clev_rec := p_clev_rec;
3710: -- check if activity started successfully
3711: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3713: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3714: RAISE OKC_API.G_EXCEPTION_ERROR;
3715: END IF;
3716:
3717: l_clev_rec := p_clev_rec;
3718: migrate_clev(p_from => l_clev_rec,
3728: x_msg_data => x_msg_data,
3729: p_clev_rec => l_okc_clev_rec_in);
3730:
3731: -- check return status
3732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3735: RAISE OKC_API.G_EXCEPTION_ERROR;
3736: END IF;
3729: p_clev_rec => l_okc_clev_rec_in);
3730:
3731: -- check return status
3732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3735: RAISE OKC_API.G_EXCEPTION_ERROR;
3736: END IF;
3737:
3730:
3731: -- check return status
3732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3735: RAISE OKC_API.G_EXCEPTION_ERROR;
3736: END IF;
3737:
3738:
3731: -- check return status
3732: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3733: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3735: RAISE OKC_API.G_EXCEPTION_ERROR;
3736: END IF;
3737:
3738:
3739: -- end activity
3736: END IF;
3737:
3738:
3739: -- end activity
3740: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3741: x_msg_data => x_msg_data);
3742: EXCEPTION
3743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3744: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3739: -- end activity
3740: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3741: x_msg_data => x_msg_data);
3742: EXCEPTION
3743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3744: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3745: p_api_name => l_api_name,
3746: p_pkg_name => g_pkg_name,
3747: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3740: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3741: x_msg_data => x_msg_data);
3742: EXCEPTION
3743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3744: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3745: p_api_name => l_api_name,
3746: p_pkg_name => g_pkg_name,
3747: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3748: x_msg_count => x_msg_count,
3743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3744: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3745: p_api_name => l_api_name,
3746: p_pkg_name => g_pkg_name,
3747: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3748: x_msg_count => x_msg_count,
3749: x_msg_data => x_msg_data,
3750: p_api_type => g_api_type);
3751:
3748: x_msg_count => x_msg_count,
3749: x_msg_data => x_msg_data,
3750: p_api_type => g_api_type);
3751:
3752: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3753: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3754: p_api_name => l_api_name,
3755: p_pkg_name => g_pkg_name,
3756: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3749: x_msg_data => x_msg_data,
3750: p_api_type => g_api_type);
3751:
3752: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3753: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3754: p_api_name => l_api_name,
3755: p_pkg_name => g_pkg_name,
3756: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3757: x_msg_count => x_msg_count,
3752: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3753: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3754: p_api_name => l_api_name,
3755: p_pkg_name => g_pkg_name,
3756: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3757: x_msg_count => x_msg_count,
3758: x_msg_data => x_msg_data,
3759: p_api_type => g_api_type);
3760:
3758: x_msg_data => x_msg_data,
3759: p_api_type => g_api_type);
3760:
3761: WHEN OTHERS THEN
3762: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3763: p_api_name => l_api_name,
3764: p_pkg_name => g_pkg_name,
3765: p_exc_name => 'OTHERS',
3766: x_msg_count => x_msg_count,
3770: END delete_contract_line;
3771:
3772: PROCEDURE delete_contract_line(
3773: p_api_version IN NUMBER,
3774: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3775: x_return_status OUT NOCOPY VARCHAR2,
3776: x_msg_count OUT NOCOPY NUMBER,
3777: x_msg_data OUT NOCOPY VARCHAR2,
3778: p_clev_tbl IN clev_tbl_type) AS
3779:
3780: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_LINE';
3781: i NUMBER := 0;
3782: BEGIN
3783: OKC_API.init_msg_list(p_init_msg_list);
3784: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3785: IF (p_clev_tbl.COUNT>0) THEN
3786: i := p_clev_tbl.FIRST;
3787: LOOP
3780: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_LINE';
3781: i NUMBER := 0;
3782: BEGIN
3783: OKC_API.init_msg_list(p_init_msg_list);
3784: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3785: IF (p_clev_tbl.COUNT>0) THEN
3786: i := p_clev_tbl.FIRST;
3787: LOOP
3788: delete_contract_line(p_api_version =>p_api_version,
3785: IF (p_clev_tbl.COUNT>0) THEN
3786: i := p_clev_tbl.FIRST;
3787: LOOP
3788: delete_contract_line(p_api_version =>p_api_version,
3789: p_init_msg_list =>OKC_API.G_FALSE,
3790: x_return_status =>x_return_status,
3791: x_msg_count =>x_msg_count,
3792: x_msg_data =>x_msg_data,
3793: p_clev_rec =>p_clev_tbl(i));
3790: x_return_status =>x_return_status,
3791: x_msg_count =>x_msg_count,
3792: x_msg_data =>x_msg_data,
3793: p_clev_rec =>p_clev_tbl(i));
3794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3798: END IF;
3791: x_msg_count =>x_msg_count,
3792: x_msg_data =>x_msg_data,
3793: p_clev_rec =>p_clev_tbl(i));
3794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3798: END IF;
3799: EXIT WHEN (i=p_clev_tbl.LAST);
3792: x_msg_data =>x_msg_data,
3793: p_clev_rec =>p_clev_tbl(i));
3794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3798: END IF;
3799: EXIT WHEN (i=p_clev_tbl.LAST);
3800: i := p_clev_tbl.NEXT(i);
3793: p_clev_rec =>p_clev_tbl(i));
3794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR);
3796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: EXIT WHEN (x_return_status = OKC_API.G_RET_STS_ERROR);
3798: END IF;
3799: EXIT WHEN (i=p_clev_tbl.LAST);
3800: i := p_clev_tbl.NEXT(i);
3801: END LOOP;
3798: END IF;
3799: EXIT WHEN (i=p_clev_tbl.LAST);
3800: i := p_clev_tbl.NEXT(i);
3801: END LOOP;
3802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3805: RAISE OKC_API.G_EXCEPTION_ERROR;
3806: END IF;
3799: EXIT WHEN (i=p_clev_tbl.LAST);
3800: i := p_clev_tbl.NEXT(i);
3801: END LOOP;
3802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3805: RAISE OKC_API.G_EXCEPTION_ERROR;
3806: END IF;
3807: END IF;
3800: i := p_clev_tbl.NEXT(i);
3801: END LOOP;
3802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3805: RAISE OKC_API.G_EXCEPTION_ERROR;
3806: END IF;
3807: END IF;
3808: EXCEPTION
3801: END LOOP;
3802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3805: RAISE OKC_API.G_EXCEPTION_ERROR;
3806: END IF;
3807: END IF;
3808: EXCEPTION
3809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3805: RAISE OKC_API.G_EXCEPTION_ERROR;
3806: END IF;
3807: END IF;
3808: EXCEPTION
3809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3810: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3811: l_api_name,
3812: G_PKG_NAME,
3813: 'OKC_API.G_RET_STS_ERROR',
3806: END IF;
3807: END IF;
3808: EXCEPTION
3809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3810: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3811: l_api_name,
3812: G_PKG_NAME,
3813: 'OKC_API.G_RET_STS_ERROR',
3814: x_msg_count,
3809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3810: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3811: l_api_name,
3812: G_PKG_NAME,
3813: 'OKC_API.G_RET_STS_ERROR',
3814: x_msg_count,
3815: x_msg_data,
3816: '_PVT');
3817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3813: 'OKC_API.G_RET_STS_ERROR',
3814: x_msg_count,
3815: x_msg_data,
3816: '_PVT');
3817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3818: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3819: l_api_name,
3820: G_PKG_NAME,
3821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3814: x_msg_count,
3815: x_msg_data,
3816: '_PVT');
3817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3818: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3819: l_api_name,
3820: G_PKG_NAME,
3821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3822: x_msg_count,
3817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3818: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3819: l_api_name,
3820: G_PKG_NAME,
3821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3822: x_msg_count,
3823: x_msg_data,
3824: '_PVT');
3825: WHEN OTHERS THEN
3822: x_msg_count,
3823: x_msg_data,
3824: '_PVT');
3825: WHEN OTHERS THEN
3826: x_return_status :=OKC_API.HANDLE_EXCEPTIONS(
3827: l_api_name,
3828: G_PKG_NAME,
3829: 'OTHERS',
3830: x_msg_count,
3834:
3835:
3836: PROCEDURE lock_contract_line(
3837: p_api_version IN NUMBER,
3838: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3839: x_return_status OUT NOCOPY VARCHAR2,
3840: x_msg_count OUT NOCOPY NUMBER,
3841: x_msg_data OUT NOCOPY VARCHAR2,
3842: p_clev_rec IN clev_rec_type) IS
3844: l_clev_rec clev_rec_type;
3845: l_okc_clev_rec_in OKC_CONTRACT_PUB.clev_rec_type;
3846: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_CONTRACT_LINE';
3847: l_api_version CONSTANT NUMBER := 1.0;
3848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3849: BEGIN
3850: -- call START_ACTIVITY to create savepoint, check compatibility
3851: -- and initialize message list
3852: l_return_status := OKC_API.START_ACTIVITY(
3848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3849: BEGIN
3850: -- call START_ACTIVITY to create savepoint, check compatibility
3851: -- and initialize message list
3852: l_return_status := OKC_API.START_ACTIVITY(
3853: p_api_name => l_api_name,
3854: p_pkg_name => g_pkg_name,
3855: p_init_msg_list => p_init_msg_list,
3856: l_api_version => l_api_version,
3858: p_api_type => g_api_type,
3859: x_return_status => x_return_status);
3860:
3861: -- check if activity started successfully
3862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3865: RAISE OKC_API.G_EXCEPTION_ERROR;
3866: END IF;
3859: x_return_status => x_return_status);
3860:
3861: -- check if activity started successfully
3862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3865: RAISE OKC_API.G_EXCEPTION_ERROR;
3866: END IF;
3867:
3860:
3861: -- check if activity started successfully
3862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3865: RAISE OKC_API.G_EXCEPTION_ERROR;
3866: END IF;
3867:
3868: l_clev_rec := p_clev_rec;
3861: -- check if activity started successfully
3862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3865: RAISE OKC_API.G_EXCEPTION_ERROR;
3866: END IF;
3867:
3868: l_clev_rec := p_clev_rec;
3869: migrate_clev(p_from => l_clev_rec,
3877: x_msg_data => x_msg_data,
3878: p_clev_rec => l_okc_clev_rec_in);
3879:
3880: -- check return status
3881: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3884: RAISE OKC_API.G_EXCEPTION_ERROR;
3885: END IF;
3878: p_clev_rec => l_okc_clev_rec_in);
3879:
3880: -- check return status
3881: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3884: RAISE OKC_API.G_EXCEPTION_ERROR;
3885: END IF;
3886:
3879:
3880: -- check return status
3881: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3884: RAISE OKC_API.G_EXCEPTION_ERROR;
3885: END IF;
3886:
3887: -- end activity
3880: -- check return status
3881: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3882: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3884: RAISE OKC_API.G_EXCEPTION_ERROR;
3885: END IF;
3886:
3887: -- end activity
3888: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3884: RAISE OKC_API.G_EXCEPTION_ERROR;
3885: END IF;
3886:
3887: -- end activity
3888: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3889: x_msg_data => x_msg_data);
3890: EXCEPTION
3891: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3892: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3887: -- end activity
3888: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3889: x_msg_data => x_msg_data);
3890: EXCEPTION
3891: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3892: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3893: p_api_name => l_api_name,
3894: p_pkg_name => g_pkg_name,
3895: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3888: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3889: x_msg_data => x_msg_data);
3890: EXCEPTION
3891: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3892: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3893: p_api_name => l_api_name,
3894: p_pkg_name => g_pkg_name,
3895: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3896: x_msg_count => x_msg_count,
3891: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3892: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3893: p_api_name => l_api_name,
3894: p_pkg_name => g_pkg_name,
3895: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3896: x_msg_count => x_msg_count,
3897: x_msg_data => x_msg_data,
3898: p_api_type => g_api_type);
3899:
3896: x_msg_count => x_msg_count,
3897: x_msg_data => x_msg_data,
3898: p_api_type => g_api_type);
3899:
3900: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3901: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3902: p_api_name => l_api_name,
3903: p_pkg_name => g_pkg_name,
3904: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3897: x_msg_data => x_msg_data,
3898: p_api_type => g_api_type);
3899:
3900: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3901: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3902: p_api_name => l_api_name,
3903: p_pkg_name => g_pkg_name,
3904: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3905: x_msg_count => x_msg_count,
3900: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3901: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3902: p_api_name => l_api_name,
3903: p_pkg_name => g_pkg_name,
3904: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3905: x_msg_count => x_msg_count,
3906: x_msg_data => x_msg_data,
3907: p_api_type => g_api_type);
3908:
3906: x_msg_data => x_msg_data,
3907: p_api_type => g_api_type);
3908:
3909: WHEN OTHERS THEN
3910: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3911: p_api_name => l_api_name,
3912: p_pkg_name => g_pkg_name,
3913: p_exc_name => 'OTHERS',
3914: x_msg_count => x_msg_count,
3919:
3920:
3921: PROCEDURE validate_contract_line(
3922: p_api_version IN NUMBER,
3923: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3924: x_return_status OUT NOCOPY VARCHAR2,
3925: x_msg_count OUT NOCOPY NUMBER,
3926: x_msg_data OUT NOCOPY VARCHAR2,
3927: p_clev_rec IN clev_rec_type) IS
3929: l_clev_rec clev_rec_type;
3930: l_okc_clev_rec_in okc_contract_pub.clev_rec_type;
3931: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
3932: l_api_version CONSTANT NUMBER := 1.0;
3933: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3934: BEGIN
3935: -- call START_ACTIVITY to create savepoint, check compatibility
3936: -- and initialize message list
3937: l_return_status := OKC_API.START_ACTIVITY(
3933: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3934: BEGIN
3935: -- call START_ACTIVITY to create savepoint, check compatibility
3936: -- and initialize message list
3937: l_return_status := OKC_API.START_ACTIVITY(
3938: p_api_name => l_api_name,
3939: p_pkg_name => g_pkg_name,
3940: p_init_msg_list => p_init_msg_list,
3941: l_api_version => l_api_version,
3943: p_api_type => g_api_type,
3944: x_return_status => x_return_status);
3945:
3946: -- check if activity started successfully
3947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3950: RAISE OKC_API.G_EXCEPTION_ERROR;
3951: END IF;
3944: x_return_status => x_return_status);
3945:
3946: -- check if activity started successfully
3947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3950: RAISE OKC_API.G_EXCEPTION_ERROR;
3951: END IF;
3952:
3945:
3946: -- check if activity started successfully
3947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3950: RAISE OKC_API.G_EXCEPTION_ERROR;
3951: END IF;
3952:
3953: l_clev_rec := p_clev_rec;
3946: -- check if activity started successfully
3947: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3948: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3949: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3950: RAISE OKC_API.G_EXCEPTION_ERROR;
3951: END IF;
3952:
3953: l_clev_rec := p_clev_rec;
3954: migrate_clev(p_from => l_clev_rec,
3963: x_msg_data => x_msg_data,
3964: p_clev_rec => l_okc_clev_rec_in);
3965:
3966: -- check return status
3967: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3969: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3970: RAISE OKC_API.G_EXCEPTION_ERROR;
3971: END IF;
3964: p_clev_rec => l_okc_clev_rec_in);
3965:
3966: -- check return status
3967: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3969: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3970: RAISE OKC_API.G_EXCEPTION_ERROR;
3971: END IF;
3972:
3965:
3966: -- check return status
3967: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3969: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3970: RAISE OKC_API.G_EXCEPTION_ERROR;
3971: END IF;
3972:
3973: -- end activity
3966: -- check return status
3967: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
3968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3969: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
3970: RAISE OKC_API.G_EXCEPTION_ERROR;
3971: END IF;
3972:
3973: -- end activity
3974: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3970: RAISE OKC_API.G_EXCEPTION_ERROR;
3971: END IF;
3972:
3973: -- end activity
3974: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3975: x_msg_data => x_msg_data);
3976: EXCEPTION
3977: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3978: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3973: -- end activity
3974: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3975: x_msg_data => x_msg_data);
3976: EXCEPTION
3977: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3978: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3979: p_api_name => l_api_name,
3980: p_pkg_name => g_pkg_name,
3981: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3974: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3975: x_msg_data => x_msg_data);
3976: EXCEPTION
3977: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3978: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3979: p_api_name => l_api_name,
3980: p_pkg_name => g_pkg_name,
3981: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3982: x_msg_count => x_msg_count,
3977: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3978: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3979: p_api_name => l_api_name,
3980: p_pkg_name => g_pkg_name,
3981: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3982: x_msg_count => x_msg_count,
3983: x_msg_data => x_msg_data,
3984: p_api_type => g_api_type);
3985:
3982: x_msg_count => x_msg_count,
3983: x_msg_data => x_msg_data,
3984: p_api_type => g_api_type);
3985:
3986: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3987: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3988: p_api_name => l_api_name,
3989: p_pkg_name => g_pkg_name,
3990: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3983: x_msg_data => x_msg_data,
3984: p_api_type => g_api_type);
3985:
3986: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3987: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3988: p_api_name => l_api_name,
3989: p_pkg_name => g_pkg_name,
3990: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3991: x_msg_count => x_msg_count,
3986: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3987: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3988: p_api_name => l_api_name,
3989: p_pkg_name => g_pkg_name,
3990: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3991: x_msg_count => x_msg_count,
3992: x_msg_data => x_msg_data,
3993: p_api_type => g_api_type);
3994:
3992: x_msg_data => x_msg_data,
3993: p_api_type => g_api_type);
3994:
3995: WHEN OTHERS THEN
3996: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3997: p_api_name => l_api_name,
3998: p_pkg_name => g_pkg_name,
3999: p_exc_name => 'OTHERS',
4000: x_msg_count => x_msg_count,
4004: END validate_contract_line;
4005:
4006: PROCEDURE create_governance(
4007: p_api_version IN NUMBER,
4008: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4009: x_return_status OUT NOCOPY VARCHAR2,
4010: x_msg_count OUT NOCOPY NUMBER,
4011: x_msg_data OUT NOCOPY VARCHAR2,
4012: p_gvev_rec IN gvev_rec_type,
4016: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4017: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4018: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_GOVERNANCE';
4019: l_api_version CONSTANT NUMBER := 1.0;
4020: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4021: BEGIN
4022: -- call START_ACTIVITY to create savepoint, check compatibility
4023: -- and initialize message list
4024: l_return_status := OKC_API.START_ACTIVITY(
4020: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4021: BEGIN
4022: -- call START_ACTIVITY to create savepoint, check compatibility
4023: -- and initialize message list
4024: l_return_status := OKC_API.START_ACTIVITY(
4025: p_api_name => l_api_name,
4026: p_pkg_name => g_pkg_name,
4027: p_init_msg_list => p_init_msg_list,
4028: l_api_version => l_api_version,
4030: p_api_type => g_api_type,
4031: x_return_status => x_return_status);
4032:
4033: -- check if activity started successfully
4034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: RAISE OKC_API.G_EXCEPTION_ERROR;
4038: END IF;
4031: x_return_status => x_return_status);
4032:
4033: -- check if activity started successfully
4034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: RAISE OKC_API.G_EXCEPTION_ERROR;
4038: END IF;
4039:
4032:
4033: -- check if activity started successfully
4034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: RAISE OKC_API.G_EXCEPTION_ERROR;
4038: END IF;
4039:
4040: l_gvev_rec := p_gvev_rec;
4033: -- check if activity started successfully
4034: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: RAISE OKC_API.G_EXCEPTION_ERROR;
4038: END IF;
4039:
4040: l_gvev_rec := p_gvev_rec;
4041: migrate_gvev(p_from => l_gvev_rec,
4051: p_gvev_rec => l_okc_gvev_rec_in,
4052: x_gvev_rec => l_okc_gvev_rec_out);
4053:
4054: -- check return status
4055: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4058: RAISE OKC_API.G_EXCEPTION_ERROR;
4059: END IF;
4052: x_gvev_rec => l_okc_gvev_rec_out);
4053:
4054: -- check return status
4055: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4058: RAISE OKC_API.G_EXCEPTION_ERROR;
4059: END IF;
4060:
4053:
4054: -- check return status
4055: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4058: RAISE OKC_API.G_EXCEPTION_ERROR;
4059: END IF;
4060:
4061: migrate_gvev(p_from => l_okc_gvev_rec_out,
4054: -- check return status
4055: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4056: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4058: RAISE OKC_API.G_EXCEPTION_ERROR;
4059: END IF;
4060:
4061: migrate_gvev(p_from => l_okc_gvev_rec_out,
4062: p_to => x_gvev_rec);
4061: migrate_gvev(p_from => l_okc_gvev_rec_out,
4062: p_to => x_gvev_rec);
4063:
4064: -- end activity
4065: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4066: x_msg_data => x_msg_data);
4067: EXCEPTION
4068: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4069: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4064: -- end activity
4065: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4066: x_msg_data => x_msg_data);
4067: EXCEPTION
4068: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4069: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4070: p_api_name => l_api_name,
4071: p_pkg_name => g_pkg_name,
4072: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4065: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4066: x_msg_data => x_msg_data);
4067: EXCEPTION
4068: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4069: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4070: p_api_name => l_api_name,
4071: p_pkg_name => g_pkg_name,
4072: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4073: x_msg_count => x_msg_count,
4068: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4069: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4070: p_api_name => l_api_name,
4071: p_pkg_name => g_pkg_name,
4072: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4073: x_msg_count => x_msg_count,
4074: x_msg_data => x_msg_data,
4075: p_api_type => g_api_type);
4076:
4073: x_msg_count => x_msg_count,
4074: x_msg_data => x_msg_data,
4075: p_api_type => g_api_type);
4076:
4077: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4078: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4079: p_api_name => l_api_name,
4080: p_pkg_name => g_pkg_name,
4081: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4074: x_msg_data => x_msg_data,
4075: p_api_type => g_api_type);
4076:
4077: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4078: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4079: p_api_name => l_api_name,
4080: p_pkg_name => g_pkg_name,
4081: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4082: x_msg_count => x_msg_count,
4077: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4078: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4079: p_api_name => l_api_name,
4080: p_pkg_name => g_pkg_name,
4081: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4082: x_msg_count => x_msg_count,
4083: x_msg_data => x_msg_data,
4084: p_api_type => g_api_type);
4085:
4083: x_msg_data => x_msg_data,
4084: p_api_type => g_api_type);
4085:
4086: WHEN OTHERS THEN
4087: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4088: p_api_name => l_api_name,
4089: p_pkg_name => g_pkg_name,
4090: p_exc_name => 'OTHERS',
4091: x_msg_count => x_msg_count,
4095: END create_governance;
4096:
4097: PROCEDURE update_governance(
4098: p_api_version IN NUMBER,
4099: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4100: x_return_status OUT NOCOPY VARCHAR2,
4101: x_msg_count OUT NOCOPY NUMBER,
4102: x_msg_data OUT NOCOPY VARCHAR2,
4103: p_gvev_rec IN gvev_rec_type,
4107: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4108: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4109: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_GOVERNANCE';
4110: l_api_version CONSTANT NUMBER := 1.0;
4111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4112: BEGIN
4113: -- call START_ACTIVITY to create savepoint, check compatibility
4114: -- and initialize message list
4115: l_return_status := OKC_API.START_ACTIVITY(
4111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4112: BEGIN
4113: -- call START_ACTIVITY to create savepoint, check compatibility
4114: -- and initialize message list
4115: l_return_status := OKC_API.START_ACTIVITY(
4116: p_api_name => l_api_name,
4117: p_pkg_name => g_pkg_name,
4118: p_init_msg_list => p_init_msg_list,
4119: l_api_version => l_api_version,
4121: p_api_type => g_api_type,
4122: x_return_status => x_return_status);
4123:
4124: -- check if activity started successfully
4125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4128: RAISE OKC_API.G_EXCEPTION_ERROR;
4129: END IF;
4122: x_return_status => x_return_status);
4123:
4124: -- check if activity started successfully
4125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4128: RAISE OKC_API.G_EXCEPTION_ERROR;
4129: END IF;
4130:
4123:
4124: -- check if activity started successfully
4125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4128: RAISE OKC_API.G_EXCEPTION_ERROR;
4129: END IF;
4130:
4131: l_gvev_rec := p_gvev_rec;
4124: -- check if activity started successfully
4125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4128: RAISE OKC_API.G_EXCEPTION_ERROR;
4129: END IF;
4130:
4131: l_gvev_rec := p_gvev_rec;
4132:
4143: p_gvev_rec => l_okc_gvev_rec_in,
4144: x_gvev_rec => l_okc_gvev_rec_out);
4145:
4146: -- check return status
4147: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4150: RAISE OKC_API.G_EXCEPTION_ERROR;
4151: END IF;
4144: x_gvev_rec => l_okc_gvev_rec_out);
4145:
4146: -- check return status
4147: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4150: RAISE OKC_API.G_EXCEPTION_ERROR;
4151: END IF;
4152:
4145:
4146: -- check return status
4147: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4150: RAISE OKC_API.G_EXCEPTION_ERROR;
4151: END IF;
4152:
4153: migrate_gvev(p_from => l_okc_gvev_rec_out,
4146: -- check return status
4147: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4150: RAISE OKC_API.G_EXCEPTION_ERROR;
4151: END IF;
4152:
4153: migrate_gvev(p_from => l_okc_gvev_rec_out,
4154: p_to => x_gvev_rec);
4153: migrate_gvev(p_from => l_okc_gvev_rec_out,
4154: p_to => x_gvev_rec);
4155:
4156: -- end activity
4157: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4158: x_msg_data => x_msg_data);
4159: EXCEPTION
4160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4156: -- end activity
4157: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4158: x_msg_data => x_msg_data);
4159: EXCEPTION
4160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4162: p_api_name => l_api_name,
4163: p_pkg_name => g_pkg_name,
4164: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4157: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4158: x_msg_data => x_msg_data);
4159: EXCEPTION
4160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4162: p_api_name => l_api_name,
4163: p_pkg_name => g_pkg_name,
4164: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4165: x_msg_count => x_msg_count,
4160: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4161: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4162: p_api_name => l_api_name,
4163: p_pkg_name => g_pkg_name,
4164: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4165: x_msg_count => x_msg_count,
4166: x_msg_data => x_msg_data,
4167: p_api_type => g_api_type);
4168:
4165: x_msg_count => x_msg_count,
4166: x_msg_data => x_msg_data,
4167: p_api_type => g_api_type);
4168:
4169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4170: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4171: p_api_name => l_api_name,
4172: p_pkg_name => g_pkg_name,
4173: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4166: x_msg_data => x_msg_data,
4167: p_api_type => g_api_type);
4168:
4169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4170: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4171: p_api_name => l_api_name,
4172: p_pkg_name => g_pkg_name,
4173: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4174: x_msg_count => x_msg_count,
4169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4170: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4171: p_api_name => l_api_name,
4172: p_pkg_name => g_pkg_name,
4173: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4174: x_msg_count => x_msg_count,
4175: x_msg_data => x_msg_data,
4176: p_api_type => g_api_type);
4177:
4175: x_msg_data => x_msg_data,
4176: p_api_type => g_api_type);
4177:
4178: WHEN OTHERS THEN
4179: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4180: p_api_name => l_api_name,
4181: p_pkg_name => g_pkg_name,
4182: p_exc_name => 'OTHERS',
4183: x_msg_count => x_msg_count,
4188:
4189:
4190: PROCEDURE delete_governance(
4191: p_api_version IN NUMBER,
4192: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4193: x_return_status OUT NOCOPY VARCHAR2,
4194: x_msg_count OUT NOCOPY NUMBER,
4195: x_msg_data OUT NOCOPY VARCHAR2,
4196: p_gvev_rec IN gvev_rec_type) IS
4199: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4200: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4201: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_GOVERNANCE';
4202: l_api_version CONSTANT NUMBER := 1.0;
4203: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4204: BEGIN
4205: -- call START_ACTIVITY to create savepoint, check compatibility
4206: -- and initialize message list
4207: l_return_status := OKC_API.START_ACTIVITY(
4203: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4204: BEGIN
4205: -- call START_ACTIVITY to create savepoint, check compatibility
4206: -- and initialize message list
4207: l_return_status := OKC_API.START_ACTIVITY(
4208: p_api_name => l_api_name,
4209: p_pkg_name => g_pkg_name,
4210: p_init_msg_list => p_init_msg_list,
4211: l_api_version => l_api_version,
4213: p_api_type => g_api_type,
4214: x_return_status => x_return_status);
4215:
4216: -- check if activity started successfully
4217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4220: RAISE OKC_API.G_EXCEPTION_ERROR;
4221: END IF;
4214: x_return_status => x_return_status);
4215:
4216: -- check if activity started successfully
4217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4220: RAISE OKC_API.G_EXCEPTION_ERROR;
4221: END IF;
4222:
4215:
4216: -- check if activity started successfully
4217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4220: RAISE OKC_API.G_EXCEPTION_ERROR;
4221: END IF;
4222:
4223: l_gvev_rec := p_gvev_rec;
4216: -- check if activity started successfully
4217: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4219: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4220: RAISE OKC_API.G_EXCEPTION_ERROR;
4221: END IF;
4222:
4223: l_gvev_rec := p_gvev_rec;
4224: migrate_gvev(p_from => l_gvev_rec,
4233: x_msg_data => x_msg_data,
4234: p_gvev_rec => l_okc_gvev_rec_in);
4235:
4236: -- check return status
4237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4240: RAISE OKC_API.G_EXCEPTION_ERROR;
4241: END IF;
4234: p_gvev_rec => l_okc_gvev_rec_in);
4235:
4236: -- check return status
4237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4240: RAISE OKC_API.G_EXCEPTION_ERROR;
4241: END IF;
4242:
4235:
4236: -- check return status
4237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4240: RAISE OKC_API.G_EXCEPTION_ERROR;
4241: END IF;
4242:
4243:
4236: -- check return status
4237: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4239: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4240: RAISE OKC_API.G_EXCEPTION_ERROR;
4241: END IF;
4242:
4243:
4244: -- end activity
4241: END IF;
4242:
4243:
4244: -- end activity
4245: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4246: x_msg_data => x_msg_data);
4247: EXCEPTION
4248: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4249: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4244: -- end activity
4245: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4246: x_msg_data => x_msg_data);
4247: EXCEPTION
4248: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4249: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4250: p_api_name => l_api_name,
4251: p_pkg_name => g_pkg_name,
4252: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4245: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4246: x_msg_data => x_msg_data);
4247: EXCEPTION
4248: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4249: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4250: p_api_name => l_api_name,
4251: p_pkg_name => g_pkg_name,
4252: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4253: x_msg_count => x_msg_count,
4248: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4249: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4250: p_api_name => l_api_name,
4251: p_pkg_name => g_pkg_name,
4252: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4253: x_msg_count => x_msg_count,
4254: x_msg_data => x_msg_data,
4255: p_api_type => g_api_type);
4256:
4253: x_msg_count => x_msg_count,
4254: x_msg_data => x_msg_data,
4255: p_api_type => g_api_type);
4256:
4257: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4258: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4259: p_api_name => l_api_name,
4260: p_pkg_name => g_pkg_name,
4261: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4254: x_msg_data => x_msg_data,
4255: p_api_type => g_api_type);
4256:
4257: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4258: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4259: p_api_name => l_api_name,
4260: p_pkg_name => g_pkg_name,
4261: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4262: x_msg_count => x_msg_count,
4257: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4258: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4259: p_api_name => l_api_name,
4260: p_pkg_name => g_pkg_name,
4261: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4262: x_msg_count => x_msg_count,
4263: x_msg_data => x_msg_data,
4264: p_api_type => g_api_type);
4265:
4263: x_msg_data => x_msg_data,
4264: p_api_type => g_api_type);
4265:
4266: WHEN OTHERS THEN
4267: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4268: p_api_name => l_api_name,
4269: p_pkg_name => g_pkg_name,
4270: p_exc_name => 'OTHERS',
4271: x_msg_count => x_msg_count,
4276:
4277:
4278: PROCEDURE lock_governance(
4279: p_api_version IN NUMBER,
4280: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4281: x_return_status OUT NOCOPY VARCHAR2,
4282: x_msg_count OUT NOCOPY NUMBER,
4283: x_msg_data OUT NOCOPY VARCHAR2,
4284: p_gvev_rec IN gvev_rec_type) IS
4287: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4288: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4289: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_GOVERNANCE';
4290: l_api_version CONSTANT NUMBER := 1.0;
4291: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4292: BEGIN
4293: -- call START_ACTIVITY to create savepoint, check compatibility
4294: -- and initialize message list
4295: l_return_status := OKC_API.START_ACTIVITY(
4291: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4292: BEGIN
4293: -- call START_ACTIVITY to create savepoint, check compatibility
4294: -- and initialize message list
4295: l_return_status := OKC_API.START_ACTIVITY(
4296: p_api_name => l_api_name,
4297: p_pkg_name => g_pkg_name,
4298: p_init_msg_list => p_init_msg_list,
4299: l_api_version => l_api_version,
4301: p_api_type => g_api_type,
4302: x_return_status => x_return_status);
4303:
4304: -- check if activity started successfully
4305: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4308: RAISE OKC_API.G_EXCEPTION_ERROR;
4309: END IF;
4302: x_return_status => x_return_status);
4303:
4304: -- check if activity started successfully
4305: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4308: RAISE OKC_API.G_EXCEPTION_ERROR;
4309: END IF;
4310:
4303:
4304: -- check if activity started successfully
4305: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4308: RAISE OKC_API.G_EXCEPTION_ERROR;
4309: END IF;
4310:
4311:
4304: -- check if activity started successfully
4305: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4307: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4308: RAISE OKC_API.G_EXCEPTION_ERROR;
4309: END IF;
4310:
4311:
4312: l_gvev_rec := p_gvev_rec;
4321: x_msg_data => x_msg_data,
4322: p_gvev_rec => l_okc_gvev_rec_in);
4323:
4324: -- check return status
4325: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4326: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4328: RAISE OKC_API.G_EXCEPTION_ERROR;
4329: END IF;
4322: p_gvev_rec => l_okc_gvev_rec_in);
4323:
4324: -- check return status
4325: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4326: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4328: RAISE OKC_API.G_EXCEPTION_ERROR;
4329: END IF;
4330:
4323:
4324: -- check return status
4325: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4326: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4328: RAISE OKC_API.G_EXCEPTION_ERROR;
4329: END IF;
4330:
4331: -- end activity
4324: -- check return status
4325: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4326: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4327: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4328: RAISE OKC_API.G_EXCEPTION_ERROR;
4329: END IF;
4330:
4331: -- end activity
4332: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4328: RAISE OKC_API.G_EXCEPTION_ERROR;
4329: END IF;
4330:
4331: -- end activity
4332: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4333: x_msg_data => x_msg_data);
4334: EXCEPTION
4335: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4336: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4331: -- end activity
4332: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4333: x_msg_data => x_msg_data);
4334: EXCEPTION
4335: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4336: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4337: p_api_name => l_api_name,
4338: p_pkg_name => g_pkg_name,
4339: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4332: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4333: x_msg_data => x_msg_data);
4334: EXCEPTION
4335: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4336: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4337: p_api_name => l_api_name,
4338: p_pkg_name => g_pkg_name,
4339: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4340: x_msg_count => x_msg_count,
4335: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4336: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4337: p_api_name => l_api_name,
4338: p_pkg_name => g_pkg_name,
4339: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4340: x_msg_count => x_msg_count,
4341: x_msg_data => x_msg_data,
4342: p_api_type => g_api_type);
4343:
4340: x_msg_count => x_msg_count,
4341: x_msg_data => x_msg_data,
4342: p_api_type => g_api_type);
4343:
4344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4345: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4346: p_api_name => l_api_name,
4347: p_pkg_name => g_pkg_name,
4348: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4341: x_msg_data => x_msg_data,
4342: p_api_type => g_api_type);
4343:
4344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4345: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4346: p_api_name => l_api_name,
4347: p_pkg_name => g_pkg_name,
4348: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4349: x_msg_count => x_msg_count,
4344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4345: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4346: p_api_name => l_api_name,
4347: p_pkg_name => g_pkg_name,
4348: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4349: x_msg_count => x_msg_count,
4350: x_msg_data => x_msg_data,
4351: p_api_type => g_api_type);
4352:
4350: x_msg_data => x_msg_data,
4351: p_api_type => g_api_type);
4352:
4353: WHEN OTHERS THEN
4354: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4355: p_api_name => l_api_name,
4356: p_pkg_name => g_pkg_name,
4357: p_exc_name => 'OTHERS',
4358: x_msg_count => x_msg_count,
4363:
4364:
4365: PROCEDURE validate_governance(
4366: p_api_version IN NUMBER,
4367: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4368: x_return_status OUT NOCOPY VARCHAR2,
4369: x_msg_count OUT NOCOPY NUMBER,
4370: x_msg_data OUT NOCOPY VARCHAR2,
4371: p_gvev_rec IN gvev_rec_type) IS
4374: l_okc_gvev_rec_in okc_contract_pub.gvev_rec_type;
4375: l_okc_gvev_rec_out okc_contract_pub.gvev_rec_type;
4376: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_GOVERNANCE';
4377: l_api_version CONSTANT NUMBER := 1.0;
4378: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4379: BEGIN
4380: -- call START_ACTIVITY to create savepoint, check compatibility
4381: -- and initialize message list
4382: l_return_status := OKC_API.START_ACTIVITY(
4378: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4379: BEGIN
4380: -- call START_ACTIVITY to create savepoint, check compatibility
4381: -- and initialize message list
4382: l_return_status := OKC_API.START_ACTIVITY(
4383: p_api_name => l_api_name,
4384: p_pkg_name => g_pkg_name,
4385: p_init_msg_list => p_init_msg_list,
4386: l_api_version => l_api_version,
4388: p_api_type => g_api_type,
4389: x_return_status => x_return_status);
4390:
4391: -- check if activity started successfully
4392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4395: RAISE OKC_API.G_EXCEPTION_ERROR;
4396: END IF;
4389: x_return_status => x_return_status);
4390:
4391: -- check if activity started successfully
4392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4395: RAISE OKC_API.G_EXCEPTION_ERROR;
4396: END IF;
4397:
4390:
4391: -- check if activity started successfully
4392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4395: RAISE OKC_API.G_EXCEPTION_ERROR;
4396: END IF;
4397:
4398: l_gvev_rec := p_gvev_rec;
4391: -- check if activity started successfully
4392: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4393: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4394: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4395: RAISE OKC_API.G_EXCEPTION_ERROR;
4396: END IF;
4397:
4398: l_gvev_rec := p_gvev_rec;
4399: migrate_gvev(p_from => l_gvev_rec,
4408: x_msg_data => x_msg_data,
4409: p_gvev_rec => l_okc_gvev_rec_in);
4410:
4411: -- check return status
4412: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4415: RAISE OKC_API.G_EXCEPTION_ERROR;
4416: END IF;
4409: p_gvev_rec => l_okc_gvev_rec_in);
4410:
4411: -- check return status
4412: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4415: RAISE OKC_API.G_EXCEPTION_ERROR;
4416: END IF;
4417:
4410:
4411: -- check return status
4412: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4415: RAISE OKC_API.G_EXCEPTION_ERROR;
4416: END IF;
4417:
4418: -- end activity
4411: -- check return status
4412: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4414: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
4415: RAISE OKC_API.G_EXCEPTION_ERROR;
4416: END IF;
4417:
4418: -- end activity
4419: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4415: RAISE OKC_API.G_EXCEPTION_ERROR;
4416: END IF;
4417:
4418: -- end activity
4419: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4420: x_msg_data => x_msg_data);
4421: EXCEPTION
4422: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4423: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4418: -- end activity
4419: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4420: x_msg_data => x_msg_data);
4421: EXCEPTION
4422: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4423: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4424: p_api_name => l_api_name,
4425: p_pkg_name => g_pkg_name,
4426: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4419: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
4420: x_msg_data => x_msg_data);
4421: EXCEPTION
4422: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4423: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4424: p_api_name => l_api_name,
4425: p_pkg_name => g_pkg_name,
4426: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4427: x_msg_count => x_msg_count,
4422: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4423: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4424: p_api_name => l_api_name,
4425: p_pkg_name => g_pkg_name,
4426: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4427: x_msg_count => x_msg_count,
4428: x_msg_data => x_msg_data,
4429: p_api_type => g_api_type);
4430:
4427: x_msg_count => x_msg_count,
4428: x_msg_data => x_msg_data,
4429: p_api_type => g_api_type);
4430:
4431: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4432: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4433: p_api_name => l_api_name,
4434: p_pkg_name => g_pkg_name,
4435: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4428: x_msg_data => x_msg_data,
4429: p_api_type => g_api_type);
4430:
4431: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4432: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4433: p_api_name => l_api_name,
4434: p_pkg_name => g_pkg_name,
4435: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4436: x_msg_count => x_msg_count,
4431: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4432: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4433: p_api_name => l_api_name,
4434: p_pkg_name => g_pkg_name,
4435: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4436: x_msg_count => x_msg_count,
4437: x_msg_data => x_msg_data,
4438: p_api_type => g_api_type);
4439:
4437: x_msg_data => x_msg_data,
4438: p_api_type => g_api_type);
4439:
4440: WHEN OTHERS THEN
4441: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4442: p_api_name => l_api_name,
4443: p_pkg_name => g_pkg_name,
4444: p_exc_name => 'OTHERS',
4445: x_msg_count => x_msg_count,
4449: END validate_governance;
4450:
4451: PROCEDURE create_rule_group(
4452: p_api_version IN NUMBER,
4453: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4454: x_return_status OUT NOCOPY VARCHAR2,
4455: x_msg_count OUT NOCOPY NUMBER,
4456: x_msg_data OUT NOCOPY VARCHAR2,
4457: p_rgpv_rec IN rgpv_rec_type,
4456: x_msg_data OUT NOCOPY VARCHAR2,
4457: p_rgpv_rec IN rgpv_rec_type,
4458: x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
4459:
4460: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4461: l_api_name CONSTANT VARCHAR2(30) := 'create_rule_group';
4462: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4463:
4464: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4504: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
4505: l_business_event_name wf_events.name%TYPE;
4506:
4507: BEGIN
4508: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4509: p_init_msg_list,
4510: '_PUB',
4511: x_return_status);
4512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4508: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4509: p_init_msg_list,
4510: '_PUB',
4511: x_return_status);
4512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4515: RAISE OKC_API.G_EXCEPTION_ERROR;
4516: END IF;
4509: p_init_msg_list,
4510: '_PUB',
4511: x_return_status);
4512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4515: RAISE OKC_API.G_EXCEPTION_ERROR;
4516: END IF;
4517:
4510: '_PUB',
4511: x_return_status);
4512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4515: RAISE OKC_API.G_EXCEPTION_ERROR;
4516: END IF;
4517:
4518: migrate_rgpv(p_from => l_rgpv_rec,
4511: x_return_status);
4512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4515: RAISE OKC_API.G_EXCEPTION_ERROR;
4516: END IF;
4517:
4518: migrate_rgpv(p_from => l_rgpv_rec,
4519: p_to => l_okc_rgpv_rec_in);
4526: x_msg_data => x_msg_data,
4527: p_rgpv_rec => l_okc_rgpv_rec_in,
4528: x_rgpv_rec => l_okc_rgpv_rec_out);
4529:
4530: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4531: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4532: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4533: RAISE OKC_API.G_EXCEPTION_ERROR;
4534: END IF;
4527: p_rgpv_rec => l_okc_rgpv_rec_in,
4528: x_rgpv_rec => l_okc_rgpv_rec_out);
4529:
4530: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4531: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4532: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4533: RAISE OKC_API.G_EXCEPTION_ERROR;
4534: END IF;
4535:
4528: x_rgpv_rec => l_okc_rgpv_rec_out);
4529:
4530: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4531: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4532: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4533: RAISE OKC_API.G_EXCEPTION_ERROR;
4534: END IF;
4535:
4536: migrate_rgpv(p_from => l_okc_rgpv_rec_out, p_to => x_rgpv_rec);
4529:
4530: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4531: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4532: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4533: RAISE OKC_API.G_EXCEPTION_ERROR;
4534: END IF;
4535:
4536: migrate_rgpv(p_from => l_okc_rgpv_rec_out, p_to => x_rgpv_rec);
4537:
4649: END IF;
4650:
4651: END IF; -- end if for request id
4652:
4653: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4654:
4655: EXCEPTION
4656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4652:
4653: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4654:
4655: EXCEPTION
4656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4658: (l_api_name
4659: ,G_PKG_NAME
4660: ,'OKC_API.G_RET_STS_ERROR'
4653: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4654:
4655: EXCEPTION
4656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4658: (l_api_name
4659: ,G_PKG_NAME
4660: ,'OKC_API.G_RET_STS_ERROR'
4661: ,x_msg_count
4656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4657: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4658: (l_api_name
4659: ,G_PKG_NAME
4660: ,'OKC_API.G_RET_STS_ERROR'
4661: ,x_msg_count
4662: ,x_msg_data
4663: ,'_PUB');
4664: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4660: ,'OKC_API.G_RET_STS_ERROR'
4661: ,x_msg_count
4662: ,x_msg_data
4663: ,'_PUB');
4664: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4665: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4666: (l_api_name
4667: ,G_PKG_NAME
4668: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4661: ,x_msg_count
4662: ,x_msg_data
4663: ,'_PUB');
4664: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4665: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4666: (l_api_name
4667: ,G_PKG_NAME
4668: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4669: ,x_msg_count
4664: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4665: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4666: (l_api_name
4667: ,G_PKG_NAME
4668: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4669: ,x_msg_count
4670: ,x_msg_data
4671: ,'_PUB');
4672: WHEN OTHERS THEN
4669: ,x_msg_count
4670: ,x_msg_data
4671: ,'_PUB');
4672: WHEN OTHERS THEN
4673: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4674: (l_api_name
4675: ,G_PKG_NAME
4676: ,'OTHERS'
4677: ,x_msg_count
4680: END;
4681:
4682: PROCEDURE update_rule_group(
4683: p_api_version IN NUMBER,
4684: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4685: x_return_status OUT NOCOPY VARCHAR2,
4686: x_msg_count OUT NOCOPY NUMBER,
4687: x_msg_data OUT NOCOPY VARCHAR2,
4688: p_rgpv_rec IN rgpv_rec_type,
4687: x_msg_data OUT NOCOPY VARCHAR2,
4688: p_rgpv_rec IN rgpv_rec_type,
4689: x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
4690:
4691: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4692: l_api_name CONSTANT VARCHAR2(30) := 'update_rule_group';
4693: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4694:
4695: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4695: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4696: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4697:
4698: BEGIN
4699: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4700: p_init_msg_list,
4701: '_PUB',
4702: x_return_status);
4703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4699: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4700: p_init_msg_list,
4701: '_PUB',
4702: x_return_status);
4703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4705: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4706: RAISE OKC_API.G_EXCEPTION_ERROR;
4707: END IF;
4700: p_init_msg_list,
4701: '_PUB',
4702: x_return_status);
4703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4705: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4706: RAISE OKC_API.G_EXCEPTION_ERROR;
4707: END IF;
4708:
4701: '_PUB',
4702: x_return_status);
4703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4705: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4706: RAISE OKC_API.G_EXCEPTION_ERROR;
4707: END IF;
4708:
4709: migrate_rgpv(p_from => l_rgpv_rec,
4702: x_return_status);
4703: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4705: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4706: RAISE OKC_API.G_EXCEPTION_ERROR;
4707: END IF;
4708:
4709: migrate_rgpv(p_from => l_rgpv_rec,
4710: p_to => l_okc_rgpv_rec_in);
4717: x_msg_data => x_msg_data,
4718: p_rgpv_rec => l_okc_rgpv_rec_in,
4719: x_rgpv_rec => l_okc_rgpv_rec_out);
4720:
4721: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4724: RAISE OKC_API.G_EXCEPTION_ERROR;
4725: END IF;
4718: p_rgpv_rec => l_okc_rgpv_rec_in,
4719: x_rgpv_rec => l_okc_rgpv_rec_out);
4720:
4721: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4724: RAISE OKC_API.G_EXCEPTION_ERROR;
4725: END IF;
4726:
4719: x_rgpv_rec => l_okc_rgpv_rec_out);
4720:
4721: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4724: RAISE OKC_API.G_EXCEPTION_ERROR;
4725: END IF;
4726:
4727: migrate_rgpv(p_from => l_okc_rgpv_rec_out,
4720:
4721: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4724: RAISE OKC_API.G_EXCEPTION_ERROR;
4725: END IF;
4726:
4727: migrate_rgpv(p_from => l_okc_rgpv_rec_out,
4728: p_to => x_rgpv_rec);
4726:
4727: migrate_rgpv(p_from => l_okc_rgpv_rec_out,
4728: p_to => x_rgpv_rec);
4729:
4730: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4731:
4732: EXCEPTION
4733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4729:
4730: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4731:
4732: EXCEPTION
4733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4735: (l_api_name
4736: ,G_PKG_NAME
4737: ,'OKC_API.G_RET_STS_ERROR'
4730: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4731:
4732: EXCEPTION
4733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4735: (l_api_name
4736: ,G_PKG_NAME
4737: ,'OKC_API.G_RET_STS_ERROR'
4738: ,x_msg_count
4733: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4734: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4735: (l_api_name
4736: ,G_PKG_NAME
4737: ,'OKC_API.G_RET_STS_ERROR'
4738: ,x_msg_count
4739: ,x_msg_data
4740: ,'_PUB');
4741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4737: ,'OKC_API.G_RET_STS_ERROR'
4738: ,x_msg_count
4739: ,x_msg_data
4740: ,'_PUB');
4741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4742: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4743: (l_api_name
4744: ,G_PKG_NAME
4745: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4738: ,x_msg_count
4739: ,x_msg_data
4740: ,'_PUB');
4741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4742: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4743: (l_api_name
4744: ,G_PKG_NAME
4745: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4746: ,x_msg_count
4741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4742: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4743: (l_api_name
4744: ,G_PKG_NAME
4745: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4746: ,x_msg_count
4747: ,x_msg_data
4748: ,'_PUB');
4749: WHEN OTHERS THEN
4746: ,x_msg_count
4747: ,x_msg_data
4748: ,'_PUB');
4749: WHEN OTHERS THEN
4750: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4751: (l_api_name
4752: ,G_PKG_NAME
4753: ,'OTHERS'
4754: ,x_msg_count
4758:
4759:
4760: PROCEDURE delete_rule_group(
4761: p_api_version IN NUMBER,
4762: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4763: x_return_status OUT NOCOPY VARCHAR2,
4764: x_msg_count OUT NOCOPY NUMBER,
4765: x_msg_data OUT NOCOPY VARCHAR2,
4766: p_rgpv_rec IN rgpv_rec_type) IS
4764: x_msg_count OUT NOCOPY NUMBER,
4765: x_msg_data OUT NOCOPY VARCHAR2,
4766: p_rgpv_rec IN rgpv_rec_type) IS
4767:
4768: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4769: l_api_name CONSTANT VARCHAR2(30) := 'delet_rule_group';
4770: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4771:
4772: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4771:
4772: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4773:
4774: BEGIN
4775: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4776: p_init_msg_list,
4777: '_PUB',
4778: x_return_status);
4779: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4775: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4776: p_init_msg_list,
4777: '_PUB',
4778: x_return_status);
4779: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4781: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4782: RAISE OKC_API.G_EXCEPTION_ERROR;
4783: END IF;
4776: p_init_msg_list,
4777: '_PUB',
4778: x_return_status);
4779: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4781: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4782: RAISE OKC_API.G_EXCEPTION_ERROR;
4783: END IF;
4784:
4777: '_PUB',
4778: x_return_status);
4779: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4781: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4782: RAISE OKC_API.G_EXCEPTION_ERROR;
4783: END IF;
4784:
4785: migrate_rgpv(p_from => l_rgpv_rec,
4778: x_return_status);
4779: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4781: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4782: RAISE OKC_API.G_EXCEPTION_ERROR;
4783: END IF;
4784:
4785: migrate_rgpv(p_from => l_rgpv_rec,
4786: p_to => l_okc_rgpv_rec_in);
4792: x_msg_count => x_msg_count,
4793: x_msg_data => x_msg_data,
4794: p_rgpv_rec => l_okc_rgpv_rec_in);
4795:
4796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_ERROR;
4800: END IF;
4793: x_msg_data => x_msg_data,
4794: p_rgpv_rec => l_okc_rgpv_rec_in);
4795:
4796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_ERROR;
4800: END IF;
4801:
4794: p_rgpv_rec => l_okc_rgpv_rec_in);
4795:
4796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_ERROR;
4800: END IF;
4801:
4802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4795:
4796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_ERROR;
4800: END IF;
4801:
4802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4803:
4798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4799: RAISE OKC_API.G_EXCEPTION_ERROR;
4800: END IF;
4801:
4802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4803:
4804: EXCEPTION
4805: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4806: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4801:
4802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4803:
4804: EXCEPTION
4805: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4806: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4807: (l_api_name
4808: ,G_PKG_NAME
4809: ,'OKC_API.G_RET_STS_ERROR'
4802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4803:
4804: EXCEPTION
4805: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4806: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4807: (l_api_name
4808: ,G_PKG_NAME
4809: ,'OKC_API.G_RET_STS_ERROR'
4810: ,x_msg_count
4805: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4806: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4807: (l_api_name
4808: ,G_PKG_NAME
4809: ,'OKC_API.G_RET_STS_ERROR'
4810: ,x_msg_count
4811: ,x_msg_data
4812: ,'_PUB');
4813: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4809: ,'OKC_API.G_RET_STS_ERROR'
4810: ,x_msg_count
4811: ,x_msg_data
4812: ,'_PUB');
4813: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4814: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4815: (l_api_name
4816: ,G_PKG_NAME
4817: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4810: ,x_msg_count
4811: ,x_msg_data
4812: ,'_PUB');
4813: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4814: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4815: (l_api_name
4816: ,G_PKG_NAME
4817: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4818: ,x_msg_count
4813: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4814: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4815: (l_api_name
4816: ,G_PKG_NAME
4817: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4818: ,x_msg_count
4819: ,x_msg_data
4820: ,'_PUB');
4821: WHEN OTHERS THEN
4818: ,x_msg_count
4819: ,x_msg_data
4820: ,'_PUB');
4821: WHEN OTHERS THEN
4822: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4823: (l_api_name
4824: ,G_PKG_NAME
4825: ,'OTHERS'
4826: ,x_msg_count
4830:
4831:
4832: PROCEDURE lock_rule_group(
4833: p_api_version IN NUMBER,
4834: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4835: x_return_status OUT NOCOPY VARCHAR2,
4836: x_msg_count OUT NOCOPY NUMBER,
4837: x_msg_data OUT NOCOPY VARCHAR2,
4838: p_rgpv_rec IN rgpv_rec_type) IS
4836: x_msg_count OUT NOCOPY NUMBER,
4837: x_msg_data OUT NOCOPY VARCHAR2,
4838: p_rgpv_rec IN rgpv_rec_type) IS
4839:
4840: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4841: l_api_name CONSTANT VARCHAR2(30) := 'lock_rule_group';
4842: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4843:
4844: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4843:
4844: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4845:
4846: BEGIN
4847: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4848: p_init_msg_list,
4849: '_PUB',
4850: x_return_status);
4851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4847: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4848: p_init_msg_list,
4849: '_PUB',
4850: x_return_status);
4851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4854: RAISE OKC_API.G_EXCEPTION_ERROR;
4855: END IF;
4848: p_init_msg_list,
4849: '_PUB',
4850: x_return_status);
4851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4854: RAISE OKC_API.G_EXCEPTION_ERROR;
4855: END IF;
4856:
4849: '_PUB',
4850: x_return_status);
4851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4854: RAISE OKC_API.G_EXCEPTION_ERROR;
4855: END IF;
4856:
4857: migrate_rgpv(p_from => l_rgpv_rec,
4850: x_return_status);
4851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4854: RAISE OKC_API.G_EXCEPTION_ERROR;
4855: END IF;
4856:
4857: migrate_rgpv(p_from => l_rgpv_rec,
4858: p_to => l_okc_rgpv_rec_in);
4864: x_msg_count => x_msg_count,
4865: x_msg_data => x_msg_data,
4866: p_rgpv_rec => l_okc_rgpv_rec_in);
4867:
4868: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_ERROR;
4872: END IF;
4865: x_msg_data => x_msg_data,
4866: p_rgpv_rec => l_okc_rgpv_rec_in);
4867:
4868: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_ERROR;
4872: END IF;
4873:
4866: p_rgpv_rec => l_okc_rgpv_rec_in);
4867:
4868: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_ERROR;
4872: END IF;
4873:
4874: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4867:
4868: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4869: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4870: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_ERROR;
4872: END IF;
4873:
4874: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4875:
4870: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4871: RAISE OKC_API.G_EXCEPTION_ERROR;
4872: END IF;
4873:
4874: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4875:
4876: EXCEPTION
4877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4873:
4874: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4875:
4876: EXCEPTION
4877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4879: (l_api_name
4880: ,G_PKG_NAME
4881: ,'OKC_API.G_RET_STS_ERROR'
4874: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4875:
4876: EXCEPTION
4877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4879: (l_api_name
4880: ,G_PKG_NAME
4881: ,'OKC_API.G_RET_STS_ERROR'
4882: ,x_msg_count
4877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4879: (l_api_name
4880: ,G_PKG_NAME
4881: ,'OKC_API.G_RET_STS_ERROR'
4882: ,x_msg_count
4883: ,x_msg_data
4884: ,'_PUB');
4885: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4881: ,'OKC_API.G_RET_STS_ERROR'
4882: ,x_msg_count
4883: ,x_msg_data
4884: ,'_PUB');
4885: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4886: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4887: (l_api_name
4888: ,G_PKG_NAME
4889: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4882: ,x_msg_count
4883: ,x_msg_data
4884: ,'_PUB');
4885: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4886: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4887: (l_api_name
4888: ,G_PKG_NAME
4889: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4890: ,x_msg_count
4885: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4886: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4887: (l_api_name
4888: ,G_PKG_NAME
4889: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4890: ,x_msg_count
4891: ,x_msg_data
4892: ,'_PUB');
4893: WHEN OTHERS THEN
4890: ,x_msg_count
4891: ,x_msg_data
4892: ,'_PUB');
4893: WHEN OTHERS THEN
4894: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4895: (l_api_name
4896: ,G_PKG_NAME
4897: ,'OTHERS'
4898: ,x_msg_count
4901: END;
4902:
4903: PROCEDURE validate_rule_group(
4904: p_api_version IN NUMBER,
4905: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4906: x_return_status OUT NOCOPY VARCHAR2,
4907: x_msg_count OUT NOCOPY NUMBER,
4908: x_msg_data OUT NOCOPY VARCHAR2,
4909: p_rgpv_rec IN rgpv_rec_type) IS
4907: x_msg_count OUT NOCOPY NUMBER,
4908: x_msg_data OUT NOCOPY VARCHAR2,
4909: p_rgpv_rec IN rgpv_rec_type) IS
4910:
4911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4912: l_api_name CONSTANT VARCHAR2(30) := 'validate_rule_group';
4913: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4914:
4915: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4915: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4916: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4917:
4918: BEGIN
4919: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4920: p_init_msg_list,
4921: '_PUB',
4922: x_return_status);
4923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4919: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4920: p_init_msg_list,
4921: '_PUB',
4922: x_return_status);
4923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4927: END IF;
4920: p_init_msg_list,
4921: '_PUB',
4922: x_return_status);
4923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4921: '_PUB',
4922: x_return_status);
4923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4929: migrate_rgpv(p_from => l_rgpv_rec,
4922: x_return_status);
4923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4929: migrate_rgpv(p_from => l_rgpv_rec,
4930: p_to => l_okc_rgpv_rec_in);
4937: x_msg_data => x_msg_data,
4938: p_rgpv_rec => l_okc_rgpv_rec_in);
4939:
4940:
4941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4944: RAISE OKC_API.G_EXCEPTION_ERROR;
4945: END IF;
4938: p_rgpv_rec => l_okc_rgpv_rec_in);
4939:
4940:
4941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4944: RAISE OKC_API.G_EXCEPTION_ERROR;
4945: END IF;
4946:
4939:
4940:
4941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4944: RAISE OKC_API.G_EXCEPTION_ERROR;
4945: END IF;
4946:
4947: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4940:
4941: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4942: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4944: RAISE OKC_API.G_EXCEPTION_ERROR;
4945: END IF;
4946:
4947: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4948:
4943: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4944: RAISE OKC_API.G_EXCEPTION_ERROR;
4945: END IF;
4946:
4947: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4948:
4949: EXCEPTION
4950: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4946:
4947: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4948:
4949: EXCEPTION
4950: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4952: (l_api_name
4953: ,G_PKG_NAME
4954: ,'OKC_API.G_RET_STS_ERROR'
4947: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4948:
4949: EXCEPTION
4950: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4952: (l_api_name
4953: ,G_PKG_NAME
4954: ,'OKC_API.G_RET_STS_ERROR'
4955: ,x_msg_count
4950: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4952: (l_api_name
4953: ,G_PKG_NAME
4954: ,'OKC_API.G_RET_STS_ERROR'
4955: ,x_msg_count
4956: ,x_msg_data
4957: ,'_PUB');
4958: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4954: ,'OKC_API.G_RET_STS_ERROR'
4955: ,x_msg_count
4956: ,x_msg_data
4957: ,'_PUB');
4958: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4959: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4960: (l_api_name
4961: ,G_PKG_NAME
4962: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4955: ,x_msg_count
4956: ,x_msg_data
4957: ,'_PUB');
4958: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4959: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4960: (l_api_name
4961: ,G_PKG_NAME
4962: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4963: ,x_msg_count
4958: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4959: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4960: (l_api_name
4961: ,G_PKG_NAME
4962: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
4963: ,x_msg_count
4964: ,x_msg_data
4965: ,'_PUB');
4966: WHEN OTHERS THEN
4963: ,x_msg_count
4964: ,x_msg_data
4965: ,'_PUB');
4966: WHEN OTHERS THEN
4967: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4968: (l_api_name
4969: ,G_PKG_NAME
4970: ,'OTHERS'
4971: ,x_msg_count
4976:
4977:
4978: PROCEDURE create_rg_mode_pty_role(
4979: p_api_version IN NUMBER,
4980: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4981: x_return_status OUT NOCOPY VARCHAR2,
4982: x_msg_count OUT NOCOPY NUMBER,
4983: x_msg_data OUT NOCOPY VARCHAR2,
4984: p_rmpv_rec IN rmpv_rec_type,
4983: x_msg_data OUT NOCOPY VARCHAR2,
4984: p_rmpv_rec IN rmpv_rec_type,
4985: x_rmpv_rec OUT NOCOPY rmpv_rec_type) IS
4986:
4987: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4988: l_api_name CONSTANT VARCHAR2(30) := 'create_rg_mode_pty_role';
4989: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
4990: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
4991: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
4989: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
4990: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
4991: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
4992: BEGIN
4993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4994: p_init_msg_list,
4995: '_PUB',
4996: x_return_status);
4997: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4994: p_init_msg_list,
4995: '_PUB',
4996: x_return_status);
4997: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4998: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4999: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5000: RAISE OKC_API.G_EXCEPTION_ERROR;
5001: END IF;
4994: p_init_msg_list,
4995: '_PUB',
4996: x_return_status);
4997: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4998: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4999: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5000: RAISE OKC_API.G_EXCEPTION_ERROR;
5001: END IF;
5002:
4995: '_PUB',
4996: x_return_status);
4997: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4998: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4999: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5000: RAISE OKC_API.G_EXCEPTION_ERROR;
5001: END IF;
5002:
5003: migrate_rmpv(p_from => l_rmpv_rec,
4996: x_return_status);
4997: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4998: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4999: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5000: RAISE OKC_API.G_EXCEPTION_ERROR;
5001: END IF;
5002:
5003: migrate_rmpv(p_from => l_rmpv_rec,
5004: p_to => l_okc_rmpv_rec_in);
5011: x_msg_data => x_msg_data,
5012: p_rmpv_rec => l_okc_rmpv_rec_in,
5013: x_rmpv_rec => l_okc_rmpv_rec_out);
5014:
5015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5018: RAISE OKC_API.G_EXCEPTION_ERROR;
5019: END IF;
5012: p_rmpv_rec => l_okc_rmpv_rec_in,
5013: x_rmpv_rec => l_okc_rmpv_rec_out);
5014:
5015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5018: RAISE OKC_API.G_EXCEPTION_ERROR;
5019: END IF;
5020:
5013: x_rmpv_rec => l_okc_rmpv_rec_out);
5014:
5015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5018: RAISE OKC_API.G_EXCEPTION_ERROR;
5019: END IF;
5020:
5021: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5014:
5015: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5018: RAISE OKC_API.G_EXCEPTION_ERROR;
5019: END IF;
5020:
5021: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5022: p_to => x_rmpv_rec);
5020:
5021: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5022: p_to => x_rmpv_rec);
5023:
5024: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5025: EXCEPTION
5026: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5028: (l_api_name
5022: p_to => x_rmpv_rec);
5023:
5024: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5025: EXCEPTION
5026: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5028: (l_api_name
5029: ,G_PKG_NAME
5030: ,'OKC_API.G_RET_STS_ERROR'
5023:
5024: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5025: EXCEPTION
5026: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5028: (l_api_name
5029: ,G_PKG_NAME
5030: ,'OKC_API.G_RET_STS_ERROR'
5031: ,x_msg_count
5026: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5028: (l_api_name
5029: ,G_PKG_NAME
5030: ,'OKC_API.G_RET_STS_ERROR'
5031: ,x_msg_count
5032: ,x_msg_data
5033: ,'_PUB');
5034: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5030: ,'OKC_API.G_RET_STS_ERROR'
5031: ,x_msg_count
5032: ,x_msg_data
5033: ,'_PUB');
5034: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5035: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5036: (l_api_name
5037: ,G_PKG_NAME
5038: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5031: ,x_msg_count
5032: ,x_msg_data
5033: ,'_PUB');
5034: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5035: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5036: (l_api_name
5037: ,G_PKG_NAME
5038: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5039: ,x_msg_count
5034: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5035: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5036: (l_api_name
5037: ,G_PKG_NAME
5038: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5039: ,x_msg_count
5040: ,x_msg_data
5041: ,'_PUB');
5042: WHEN OTHERS THEN
5039: ,x_msg_count
5040: ,x_msg_data
5041: ,'_PUB');
5042: WHEN OTHERS THEN
5043: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5044: (l_api_name
5045: ,G_PKG_NAME
5046: ,'OTHERS'
5047: ,x_msg_count
5051:
5052:
5053: PROCEDURE update_rg_mode_pty_role(
5054: p_api_version IN NUMBER,
5055: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5056: x_return_status OUT NOCOPY VARCHAR2,
5057: x_msg_count OUT NOCOPY NUMBER,
5058: x_msg_data OUT NOCOPY VARCHAR2,
5059: p_rmpv_rec IN rmpv_rec_type,
5058: x_msg_data OUT NOCOPY VARCHAR2,
5059: p_rmpv_rec IN rmpv_rec_type,
5060: x_rmpv_rec OUT NOCOPY rmpv_rec_type) IS
5061:
5062: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5063: l_api_name CONSTANT VARCHAR2(30) := 'update_rg_mode_pty_role';
5064: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5065: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5066: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
5064: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5065: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5066: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
5067: BEGIN
5068: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5069: p_init_msg_list,
5070: '_PUB',
5071: x_return_status);
5072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5068: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5069: p_init_msg_list,
5070: '_PUB',
5071: x_return_status);
5072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5075: RAISE OKC_API.G_EXCEPTION_ERROR;
5076: END IF;
5069: p_init_msg_list,
5070: '_PUB',
5071: x_return_status);
5072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5075: RAISE OKC_API.G_EXCEPTION_ERROR;
5076: END IF;
5077:
5070: '_PUB',
5071: x_return_status);
5072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5075: RAISE OKC_API.G_EXCEPTION_ERROR;
5076: END IF;
5077:
5078: migrate_rmpv(p_from => l_rmpv_rec,
5071: x_return_status);
5072: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5073: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5074: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5075: RAISE OKC_API.G_EXCEPTION_ERROR;
5076: END IF;
5077:
5078: migrate_rmpv(p_from => l_rmpv_rec,
5079: p_to => l_okc_rmpv_rec_in);
5088: p_rmpv_rec => l_okc_rmpv_rec_in,
5089: x_rmpv_rec => l_okc_rmpv_rec_in);
5090:
5091:
5092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_ERROR;
5096: END IF;
5089: x_rmpv_rec => l_okc_rmpv_rec_in);
5090:
5091:
5092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_ERROR;
5096: END IF;
5097:
5090:
5091:
5092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_ERROR;
5096: END IF;
5097:
5098: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5091:
5092: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5094: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5095: RAISE OKC_API.G_EXCEPTION_ERROR;
5096: END IF;
5097:
5098: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5099: p_to => x_rmpv_rec);
5097:
5098: migrate_rmpv(p_from => l_okc_rmpv_rec_out,
5099: p_to => x_rmpv_rec);
5100:
5101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5102: EXCEPTION
5103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5105: (l_api_name
5099: p_to => x_rmpv_rec);
5100:
5101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5102: EXCEPTION
5103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5105: (l_api_name
5106: ,G_PKG_NAME
5107: ,'OKC_API.G_RET_STS_ERROR'
5100:
5101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5102: EXCEPTION
5103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5105: (l_api_name
5106: ,G_PKG_NAME
5107: ,'OKC_API.G_RET_STS_ERROR'
5108: ,x_msg_count
5103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5105: (l_api_name
5106: ,G_PKG_NAME
5107: ,'OKC_API.G_RET_STS_ERROR'
5108: ,x_msg_count
5109: ,x_msg_data
5110: ,'_PUB');
5111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5107: ,'OKC_API.G_RET_STS_ERROR'
5108: ,x_msg_count
5109: ,x_msg_data
5110: ,'_PUB');
5111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5113: (l_api_name
5114: ,G_PKG_NAME
5115: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5108: ,x_msg_count
5109: ,x_msg_data
5110: ,'_PUB');
5111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5113: (l_api_name
5114: ,G_PKG_NAME
5115: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5116: ,x_msg_count
5111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5113: (l_api_name
5114: ,G_PKG_NAME
5115: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5116: ,x_msg_count
5117: ,x_msg_data
5118: ,'_PUB');
5119: WHEN OTHERS THEN
5116: ,x_msg_count
5117: ,x_msg_data
5118: ,'_PUB');
5119: WHEN OTHERS THEN
5120: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5121: (l_api_name
5122: ,G_PKG_NAME
5123: ,'OTHERS'
5124: ,x_msg_count
5127: END update_rg_mode_pty_role;
5128:
5129: PROCEDURE delete_rg_mode_pty_role(
5130: p_api_version IN NUMBER,
5131: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5132: x_return_status OUT NOCOPY VARCHAR2,
5133: x_msg_count OUT NOCOPY NUMBER,
5134: x_msg_data OUT NOCOPY VARCHAR2,
5135: p_rmpv_rec IN rmpv_rec_type) IS
5133: x_msg_count OUT NOCOPY NUMBER,
5134: x_msg_data OUT NOCOPY VARCHAR2,
5135: p_rmpv_rec IN rmpv_rec_type) IS
5136:
5137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5138: l_api_name CONSTANT VARCHAR2(30) := 'delete_rg_mode_pty_role';
5139: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5140: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5141:
5139: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5140: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5141:
5142: BEGIN
5143: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5144: p_init_msg_list,
5145: '_PUB',
5146: x_return_status);
5147: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5143: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5144: p_init_msg_list,
5145: '_PUB',
5146: x_return_status);
5147: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5149: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5150: RAISE OKC_API.G_EXCEPTION_ERROR;
5151: END IF;
5144: p_init_msg_list,
5145: '_PUB',
5146: x_return_status);
5147: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5149: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5150: RAISE OKC_API.G_EXCEPTION_ERROR;
5151: END IF;
5152:
5145: '_PUB',
5146: x_return_status);
5147: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5149: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5150: RAISE OKC_API.G_EXCEPTION_ERROR;
5151: END IF;
5152:
5153: migrate_rmpv(p_from => l_rmpv_rec,
5146: x_return_status);
5147: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5148: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5149: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5150: RAISE OKC_API.G_EXCEPTION_ERROR;
5151: END IF;
5152:
5153: migrate_rmpv(p_from => l_rmpv_rec,
5154: p_to => l_okc_rmpv_rec_in);
5161: x_msg_count => x_msg_count,
5162: x_msg_data => x_msg_data,
5163: p_rmpv_rec => l_okc_rmpv_rec_in);
5164:
5165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5162: x_msg_data => x_msg_data,
5163: p_rmpv_rec => l_okc_rmpv_rec_in);
5164:
5165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5170:
5163: p_rmpv_rec => l_okc_rmpv_rec_in);
5164:
5165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5170:
5171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5164:
5165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5170:
5171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5172: EXCEPTION
5167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5168: RAISE OKC_API.G_EXCEPTION_ERROR;
5169: END IF;
5170:
5171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5172: EXCEPTION
5173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5174: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5175: (l_api_name
5169: END IF;
5170:
5171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5172: EXCEPTION
5173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5174: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5175: (l_api_name
5176: ,G_PKG_NAME
5177: ,'OKC_API.G_RET_STS_ERROR'
5170:
5171: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5172: EXCEPTION
5173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5174: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5175: (l_api_name
5176: ,G_PKG_NAME
5177: ,'OKC_API.G_RET_STS_ERROR'
5178: ,x_msg_count
5173: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5174: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5175: (l_api_name
5176: ,G_PKG_NAME
5177: ,'OKC_API.G_RET_STS_ERROR'
5178: ,x_msg_count
5179: ,x_msg_data
5180: ,'_PUB');
5181: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5177: ,'OKC_API.G_RET_STS_ERROR'
5178: ,x_msg_count
5179: ,x_msg_data
5180: ,'_PUB');
5181: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5182: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5183: (l_api_name
5184: ,G_PKG_NAME
5185: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5178: ,x_msg_count
5179: ,x_msg_data
5180: ,'_PUB');
5181: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5182: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5183: (l_api_name
5184: ,G_PKG_NAME
5185: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5186: ,x_msg_count
5181: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5182: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5183: (l_api_name
5184: ,G_PKG_NAME
5185: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5186: ,x_msg_count
5187: ,x_msg_data
5188: ,'_PUB');
5189: WHEN OTHERS THEN
5186: ,x_msg_count
5187: ,x_msg_data
5188: ,'_PUB');
5189: WHEN OTHERS THEN
5190: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5191: (l_api_name
5192: ,G_PKG_NAME
5193: ,'OTHERS'
5194: ,x_msg_count
5197: END delete_rg_mode_pty_role;
5198:
5199: PROCEDURE lock_rg_mode_pty_role(
5200: p_api_version IN NUMBER,
5201: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5202: x_return_status OUT NOCOPY VARCHAR2,
5203: x_msg_count OUT NOCOPY NUMBER,
5204: x_msg_data OUT NOCOPY VARCHAR2,
5205: p_rmpv_rec IN rmpv_rec_type) IS
5203: x_msg_count OUT NOCOPY NUMBER,
5204: x_msg_data OUT NOCOPY VARCHAR2,
5205: p_rmpv_rec IN rmpv_rec_type) IS
5206:
5207: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5208: l_api_name CONSTANT VARCHAR2(30) := 'lock_rg_mode_pty_role';
5209: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5210: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5211:
5210: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5211:
5212:
5213: BEGIN
5214: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5215: p_init_msg_list,
5216: '_PUB',
5217: x_return_status);
5218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5214: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5215: p_init_msg_list,
5216: '_PUB',
5217: x_return_status);
5218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5221: RAISE OKC_API.G_EXCEPTION_ERROR;
5222: END IF;
5215: p_init_msg_list,
5216: '_PUB',
5217: x_return_status);
5218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5221: RAISE OKC_API.G_EXCEPTION_ERROR;
5222: END IF;
5223:
5216: '_PUB',
5217: x_return_status);
5218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5221: RAISE OKC_API.G_EXCEPTION_ERROR;
5222: END IF;
5223:
5224: migrate_rmpv(p_from => l_rmpv_rec,
5217: x_return_status);
5218: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5220: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5221: RAISE OKC_API.G_EXCEPTION_ERROR;
5222: END IF;
5223:
5224: migrate_rmpv(p_from => l_rmpv_rec,
5225: p_to => l_okc_rmpv_rec_in);
5231: x_msg_count => x_msg_count,
5232: x_msg_data => x_msg_data,
5233: p_rmpv_rec => l_okc_rmpv_rec_in);
5234:
5235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5238: RAISE OKC_API.G_EXCEPTION_ERROR;
5239: END IF;
5232: x_msg_data => x_msg_data,
5233: p_rmpv_rec => l_okc_rmpv_rec_in);
5234:
5235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5238: RAISE OKC_API.G_EXCEPTION_ERROR;
5239: END IF;
5240:
5233: p_rmpv_rec => l_okc_rmpv_rec_in);
5234:
5235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5238: RAISE OKC_API.G_EXCEPTION_ERROR;
5239: END IF;
5240:
5241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5234:
5235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5238: RAISE OKC_API.G_EXCEPTION_ERROR;
5239: END IF;
5240:
5241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5242:
5237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5238: RAISE OKC_API.G_EXCEPTION_ERROR;
5239: END IF;
5240:
5241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5242:
5243: EXCEPTION
5244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5240:
5241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5242:
5243: EXCEPTION
5244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5246: (l_api_name
5247: ,G_PKG_NAME
5248: ,'OKC_API.G_RET_STS_ERROR'
5241: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5242:
5243: EXCEPTION
5244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5246: (l_api_name
5247: ,G_PKG_NAME
5248: ,'OKC_API.G_RET_STS_ERROR'
5249: ,x_msg_count
5244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5246: (l_api_name
5247: ,G_PKG_NAME
5248: ,'OKC_API.G_RET_STS_ERROR'
5249: ,x_msg_count
5250: ,x_msg_data
5251: ,'_PUB');
5252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5248: ,'OKC_API.G_RET_STS_ERROR'
5249: ,x_msg_count
5250: ,x_msg_data
5251: ,'_PUB');
5252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5254: (l_api_name
5255: ,G_PKG_NAME
5256: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5249: ,x_msg_count
5250: ,x_msg_data
5251: ,'_PUB');
5252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5254: (l_api_name
5255: ,G_PKG_NAME
5256: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5257: ,x_msg_count
5252: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5254: (l_api_name
5255: ,G_PKG_NAME
5256: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5257: ,x_msg_count
5258: ,x_msg_data
5259: ,'_PUB');
5260: WHEN OTHERS THEN
5257: ,x_msg_count
5258: ,x_msg_data
5259: ,'_PUB');
5260: WHEN OTHERS THEN
5261: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5262: (l_api_name
5263: ,G_PKG_NAME
5264: ,'OTHERS'
5265: ,x_msg_count
5269:
5270:
5271: PROCEDURE validate_rg_mode_pty_role(
5272: p_api_version IN NUMBER,
5273: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5274: x_return_status OUT NOCOPY VARCHAR2,
5275: x_msg_count OUT NOCOPY NUMBER,
5276: x_msg_data OUT NOCOPY VARCHAR2,
5277: p_rmpv_rec IN rmpv_rec_type)IS
5275: x_msg_count OUT NOCOPY NUMBER,
5276: x_msg_data OUT NOCOPY VARCHAR2,
5277: p_rmpv_rec IN rmpv_rec_type)IS
5278:
5279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5280: l_api_name CONSTANT VARCHAR2(30) := 'validate_rg_mode_pty_role';
5281: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5282: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5283:
5281: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5282: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5283:
5284: BEGIN
5285: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5286: p_init_msg_list,
5287: '_PUB',
5288: x_return_status);
5289: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5285: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5286: p_init_msg_list,
5287: '_PUB',
5288: x_return_status);
5289: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5292: RAISE OKC_API.G_EXCEPTION_ERROR;
5293: END IF;
5286: p_init_msg_list,
5287: '_PUB',
5288: x_return_status);
5289: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5292: RAISE OKC_API.G_EXCEPTION_ERROR;
5293: END IF;
5294:
5287: '_PUB',
5288: x_return_status);
5289: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5292: RAISE OKC_API.G_EXCEPTION_ERROR;
5293: END IF;
5294:
5295: migrate_rmpv(p_from => l_rmpv_rec,
5288: x_return_status);
5289: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5292: RAISE OKC_API.G_EXCEPTION_ERROR;
5293: END IF;
5294:
5295: migrate_rmpv(p_from => l_rmpv_rec,
5296: p_to => l_okc_rmpv_rec_in);
5302: x_msg_count => x_msg_count,
5303: x_msg_data => x_msg_data,
5304: p_rmpv_rec => l_okc_rmpv_rec_in);
5305:
5306: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5308: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_ERROR;
5310: END IF;
5303: x_msg_data => x_msg_data,
5304: p_rmpv_rec => l_okc_rmpv_rec_in);
5305:
5306: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5308: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_ERROR;
5310: END IF;
5311:
5304: p_rmpv_rec => l_okc_rmpv_rec_in);
5305:
5306: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5308: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_ERROR;
5310: END IF;
5311:
5312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5305:
5306: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5308: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_ERROR;
5310: END IF;
5311:
5312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5313: EXCEPTION
5308: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5309: RAISE OKC_API.G_EXCEPTION_ERROR;
5310: END IF;
5311:
5312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5313: EXCEPTION
5314: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5316: (l_api_name
5310: END IF;
5311:
5312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5313: EXCEPTION
5314: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5316: (l_api_name
5317: ,G_PKG_NAME
5318: ,'OKC_API.G_RET_STS_ERROR'
5311:
5312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5313: EXCEPTION
5314: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5316: (l_api_name
5317: ,G_PKG_NAME
5318: ,'OKC_API.G_RET_STS_ERROR'
5319: ,x_msg_count
5314: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5316: (l_api_name
5317: ,G_PKG_NAME
5318: ,'OKC_API.G_RET_STS_ERROR'
5319: ,x_msg_count
5320: ,x_msg_data
5321: ,'_PUB');
5322: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5318: ,'OKC_API.G_RET_STS_ERROR'
5319: ,x_msg_count
5320: ,x_msg_data
5321: ,'_PUB');
5322: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5323: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5324: (l_api_name
5325: ,G_PKG_NAME
5326: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5319: ,x_msg_count
5320: ,x_msg_data
5321: ,'_PUB');
5322: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5323: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5324: (l_api_name
5325: ,G_PKG_NAME
5326: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5327: ,x_msg_count
5322: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5323: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5324: (l_api_name
5325: ,G_PKG_NAME
5326: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
5327: ,x_msg_count
5328: ,x_msg_data
5329: ,'_PUB');
5330: WHEN OTHERS THEN
5327: ,x_msg_count
5328: ,x_msg_data
5329: ,'_PUB');
5330: WHEN OTHERS THEN
5331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5332: (l_api_name
5333: ,G_PKG_NAME
5334: ,'OTHERS'
5335: ,x_msg_count