183: IF (G_DEBUG_ENABLED = 'Y') THEN
184: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
185: END IF;
186:
187: x_return_status := OKC_API.G_RET_STS_SUCCESS;
188: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
189: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
190: END IF;
191:
190: END IF;
191:
192: -- call START_ACTIVITY to create savepoint, check compatibility
193: -- and initialize message list
194: x_return_status := OKC_API.START_ACTIVITY(
195: p_api_name => l_api_name,
196: p_pkg_name => G_PKG_NAME,
197: p_init_msg_list => p_init_msg_list,
198: l_api_version => l_api_version,
200: p_api_type => G_API_TYPE,
201: x_return_status => x_return_status);
202:
203: -- check if activity started successfully
204: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
207: raise OKC_API.G_EXCEPTION_ERROR;
208: END IF;
201: x_return_status => x_return_status);
202:
203: -- check if activity started successfully
204: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
207: raise OKC_API.G_EXCEPTION_ERROR;
208: END IF;
209:
202:
203: -- check if activity started successfully
204: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
207: raise OKC_API.G_EXCEPTION_ERROR;
208: END IF;
209:
210: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
203: -- check if activity started successfully
204: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
206: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
207: raise OKC_API.G_EXCEPTION_ERROR;
208: END IF;
209:
210: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
211: create_service_line(
221: x_okl_service_line_id => l_okl_service_line_id
222: );
223:
224: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
225: RAISE OKC_API.G_EXCEPTION_ERROR;
226: END IF;
227:
228: link_service_line(
229: p_api_version => 1.0,
237: p_oks_service_line_id => p_oks_service_line_id
238: );
239:
240: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
241: RAISE OKC_API.G_EXCEPTION_ERROR;
242: END IF;
243:
244: x_okl_service_line_id := l_okl_service_line_id;
245:
276: x_msg_data => x_msg_data);
277:
278: EXCEPTION
279:
280: when OKC_API.G_EXCEPTION_ERROR then
281: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
282: p_api_name => l_api_name,
283: p_pkg_name => G_PKG_NAME,
284: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
277:
278: EXCEPTION
279:
280: when OKC_API.G_EXCEPTION_ERROR then
281: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
282: p_api_name => l_api_name,
283: p_pkg_name => G_PKG_NAME,
284: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
285: x_msg_count => x_msg_count,
280: when OKC_API.G_EXCEPTION_ERROR then
281: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
282: p_api_name => l_api_name,
283: p_pkg_name => G_PKG_NAME,
284: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
285: x_msg_count => x_msg_count,
286: x_msg_data => x_msg_data,
287: p_api_type => G_API_TYPE);
288:
285: x_msg_count => x_msg_count,
286: x_msg_data => x_msg_data,
287: p_api_type => G_API_TYPE);
288:
289: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
290: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
291: p_api_name => l_api_name,
292: p_pkg_name => G_PKG_NAME,
293: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
286: x_msg_data => x_msg_data,
287: p_api_type => G_API_TYPE);
288:
289: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
290: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
291: p_api_name => l_api_name,
292: p_pkg_name => G_PKG_NAME,
293: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
294: x_msg_count => x_msg_count,
289: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
290: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
291: p_api_name => l_api_name,
292: p_pkg_name => G_PKG_NAME,
293: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
294: x_msg_count => x_msg_count,
295: x_msg_data => x_msg_data,
296: p_api_type => G_API_TYPE);
297:
295: x_msg_data => x_msg_data,
296: p_api_type => G_API_TYPE);
297:
298: when OTHERS then
299: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
300: p_api_name => l_api_name,
301: p_pkg_name => G_PKG_NAME,
302: p_exc_name => 'OTHERS',
303: x_msg_count => x_msg_count,
373: SQLERRM || ': '||G_PKG_NAME||'.'||l_proc_name
374: );
375:
376: WHEN OTHERS THEN
377: x_return_status := OKC_API.G_RET_STS_ERROR;
378: okl_api.set_message(
379: G_APP_NAME,
380: G_UNEXPECTED_ERROR,
381: 'OKL_SQLCODE',
547: p_chr_id => p_okl_chr_id,
548: x_bill_to_id => l_okl_bill_to_id
549: );
550:
551: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
552: RAISE validation_failed;
553: END IF;
554: /* BTO rule migration
555: FOR okl_bill_rec IN okl_bill_csr (p_okl_chr_id)
774: IF (G_DEBUG_ENABLED = 'Y') THEN
775: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
776: END IF;
777:
778: x_return_status := OKC_API.G_RET_STS_SUCCESS;
779: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
780: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
781: END IF;
782:
781: END IF;
782:
783: -- call START_ACTIVITY to create savepoint, check compatibility
784: -- and initialize message list
785: x_return_status := OKC_API.START_ACTIVITY(
786: p_api_name => l_api_name,
787: p_pkg_name => G_PKG_NAME,
788: p_init_msg_list => p_init_msg_list,
789: l_api_version => l_api_version,
791: p_api_type => G_API_TYPE,
792: x_return_status => x_return_status);
793:
794: -- check if activity started successfully
795: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
796: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
798: raise OKC_API.G_EXCEPTION_ERROR;
799: END IF;
792: x_return_status => x_return_status);
793:
794: -- check if activity started successfully
795: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
796: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
798: raise OKC_API.G_EXCEPTION_ERROR;
799: END IF;
800:
793:
794: -- check if activity started successfully
795: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
796: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
798: raise OKC_API.G_EXCEPTION_ERROR;
799: END IF;
800:
801: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
794: -- check if activity started successfully
795: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
796: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
797: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
798: raise OKC_API.G_EXCEPTION_ERROR;
799: END IF;
800:
801: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
802:
808: p_oks_chr_id => p_oks_chr_id
809: );
810:
811: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
812: RAISE OKC_API.G_EXCEPTION_ERROR;
813: END IF;
814:
815: -- Get Line Style ID for SOLD_SERVICE
816: OPEN line_style_csr ('SOLD_SERVICE');
843: okl_api.set_message(
844: G_APP_NAME,
845: G_OKL_ITEM_QTY_MISMATCH
846: );
847: RAISE OKC_API.G_EXCEPTION_ERROR;
848: END IF;
849:
850: i := i + 1;
851: END LOOP;
864: okl_api.set_message(
865: G_APP_NAME,
866: G_OKL_ITEM_MISMATCH
867: );
868: RAISE OKC_API.G_EXCEPTION_ERROR;
869: END IF;
870:
871: -- Get line start and end Date
872: OPEN srv_line_csr (p_oks_service_line_id);
885: okl_api.set_message(
886: G_APP_NAME,
887: G_OKL_LINK_CON_ERROR
888: );
889: RAISE OKC_API.G_EXCEPTION_ERROR;
890: END IF;
891:
892: IF (l_lease_end_date < l_srv_st_date) THEN
893: okl_api.set_message(
893: okl_api.set_message(
894: G_APP_NAME,
895: G_OKL_LINK_CON_ERROR
896: );
897: RAISE OKC_API.G_EXCEPTION_ERROR;
898: END IF;
899:
900: IF (l_lease_st_date < l_srv_st_date) THEN
901: l_start_date := l_srv_st_date;
939: );
940:
941: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
942: x_return_status := OKL_API.G_RET_STS_ERROR;
943: RAISE OKC_API.G_EXCEPTION_ERROR;
944: END IF;
945:
946: x_cle_id := x_clev_rec.id;
947:
981: x_cimv_rec => x_cimv_rec
982: );
983: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
984: x_return_status := OKL_API.G_RET_STS_ERROR;
985: RAISE OKC_API.G_EXCEPTION_ERROR;
986: END IF;
987:
988: x_okl_service_line_id := x_cle_id;
989:
1023: x_kplv_rec => x_kplv_rec
1024: );
1025:
1026: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1027: RAISE OKC_API.G_EXCEPTION_ERROR;
1028: END IF;
1029:
1030: /* Don't create covered asset line automatically
1031:
1067: );
1068:
1069: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1070: x_return_status := OKL_API.G_RET_STS_ERROR;
1071: RAISE OKC_API.G_EXCEPTION_ERROR;
1072: END IF;
1073:
1074: -- Create item link for covered asset line
1075: p_cimv_rec := NULL;
1091: x_cimv_rec => x_cimv_rec
1092: );
1093: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1094: x_return_status := OKL_API.G_RET_STS_ERROR;
1095: RAISE OKC_API.G_EXCEPTION_ERROR;
1096: END IF;
1097:
1098: END LOOP;
1099: */
1104: x_msg_data => x_msg_data);
1105:
1106: EXCEPTION
1107:
1108: when OKC_API.G_EXCEPTION_ERROR then
1109: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1110: p_api_name => l_api_name,
1111: p_pkg_name => G_PKG_NAME,
1112: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1105:
1106: EXCEPTION
1107:
1108: when OKC_API.G_EXCEPTION_ERROR then
1109: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1110: p_api_name => l_api_name,
1111: p_pkg_name => G_PKG_NAME,
1112: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1113: x_msg_count => x_msg_count,
1108: when OKC_API.G_EXCEPTION_ERROR then
1109: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1110: p_api_name => l_api_name,
1111: p_pkg_name => G_PKG_NAME,
1112: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1113: x_msg_count => x_msg_count,
1114: x_msg_data => x_msg_data,
1115: p_api_type => G_API_TYPE);
1116:
1113: x_msg_count => x_msg_count,
1114: x_msg_data => x_msg_data,
1115: p_api_type => G_API_TYPE);
1116:
1117: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1118: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1119: p_api_name => l_api_name,
1120: p_pkg_name => G_PKG_NAME,
1121: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1114: x_msg_data => x_msg_data,
1115: p_api_type => G_API_TYPE);
1116:
1117: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1118: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1119: p_api_name => l_api_name,
1120: p_pkg_name => G_PKG_NAME,
1121: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1122: x_msg_count => x_msg_count,
1117: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1118: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1119: p_api_name => l_api_name,
1120: p_pkg_name => G_PKG_NAME,
1121: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1122: x_msg_count => x_msg_count,
1123: x_msg_data => x_msg_data,
1124: p_api_type => G_API_TYPE);
1125:
1123: x_msg_data => x_msg_data,
1124: p_api_type => G_API_TYPE);
1125:
1126: when OTHERS then
1127: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1128: p_api_name => l_api_name,
1129: p_pkg_name => G_PKG_NAME,
1130: p_exc_name => 'OTHERS',
1131: x_msg_count => x_msg_count,
1170: IF (G_DEBUG_ENABLED = 'Y') THEN
1171: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1172: END IF;
1173:
1174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1175: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1176: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1177: END IF;
1178: -- call START_ACTIVITY to create savepoint, check compatibility
1176: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1177: END IF;
1178: -- call START_ACTIVITY to create savepoint, check compatibility
1179: -- and initialize message list
1180: x_return_status := OKC_API.START_ACTIVITY(
1181: p_api_name => l_api_name,
1182: p_pkg_name => G_PKG_NAME,
1183: p_init_msg_list => p_init_msg_list,
1184: l_api_version => l_api_version,
1186: p_api_type => G_API_TYPE,
1187: x_return_status => x_return_status);
1188:
1189: -- check if activity started successfully
1190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: END IF;
1187: x_return_status => x_return_status);
1188:
1189: -- check if activity started successfully
1190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: END IF;
1195:
1188:
1189: -- check if activity started successfully
1190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: END IF;
1195:
1196: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1189: -- check if activity started successfully
1190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1191: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1193: raise OKC_API.G_EXCEPTION_ERROR;
1194: END IF;
1195:
1196: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1197:
1208: x_service_contract_id => l_service_contract_id
1209: );
1210:
1211: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1212: raise OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1215: IF (l_service_contract_id IS NOT NULL
1216: AND
1219: okl_api.set_message(
1220: G_APP_NAME,
1221: G_OKL_MULTI_LINK_ERROR
1222: );
1223: RAISE OKC_API.G_EXCEPTION_ERROR;
1224: END IF;
1225:
1226: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1227: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before creating link');
1245: x_service_contract_id => l_service_contract_id
1246: );
1247:
1248: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1249: raise OKC_API.G_EXCEPTION_ERROR;
1250: END IF;
1251:
1252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS Line: '||l_oks_service_line_id);
1265: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling 1'||':'||x_return_status);
1266: END IF;
1267: OKC_K_REL_OBJS_PUB.create_row (
1268: p_api_version => 1.0,
1269: p_init_msg_list => OKC_API.G_FALSE,
1270: x_return_status => x_return_status,
1271: x_msg_count => x_msg_count,
1272: x_msg_data => x_msg_data,
1273: p_crjv_rec => l_crjv_rec,
1276:
1277: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1278: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling 1'||':'||x_return_status);
1279: END IF;
1280: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1283: END IF; -- l_service_contract is NULL
1284:
1277: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1278: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling 1'||':'||x_return_status);
1279: END IF;
1280: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1283: END IF; -- l_service_contract is NULL
1284:
1285: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1301: END IF;
1302:
1303: OKC_K_REL_OBJS_PUB.create_row (
1304: p_api_version => 1.0,
1305: p_init_msg_list => OKC_API.G_FALSE,
1306: x_return_status => x_return_status,
1307: x_msg_count => x_msg_count,
1308: x_msg_data => x_msg_data,
1309: p_crjv_rec => l_crjv_rec,
1309: p_crjv_rec => l_crjv_rec,
1310: x_crjv_rec => x_crjv_rec
1311: );
1312:
1313: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1314: RAISE OKC_API.G_EXCEPTION_ERROR;
1315: END IF;
1316:
1317: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1310: x_crjv_rec => x_crjv_rec
1311: );
1312:
1313: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1314: RAISE OKC_API.G_EXCEPTION_ERROR;
1315: END IF;
1316:
1317: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1318: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After line link creation');
1323: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1324: x_msg_data => x_msg_data);
1325:
1326: EXCEPTION
1327: when OKC_API.G_EXCEPTION_ERROR then
1328: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1329: p_api_name => l_api_name,
1330: p_pkg_name => G_PKG_NAME,
1331: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1324: x_msg_data => x_msg_data);
1325:
1326: EXCEPTION
1327: when OKC_API.G_EXCEPTION_ERROR then
1328: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1329: p_api_name => l_api_name,
1330: p_pkg_name => G_PKG_NAME,
1331: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1332: x_msg_count => x_msg_count,
1327: when OKC_API.G_EXCEPTION_ERROR then
1328: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1329: p_api_name => l_api_name,
1330: p_pkg_name => G_PKG_NAME,
1331: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1332: x_msg_count => x_msg_count,
1333: x_msg_data => x_msg_data,
1334: p_api_type => G_API_TYPE);
1335:
1332: x_msg_count => x_msg_count,
1333: x_msg_data => x_msg_data,
1334: p_api_type => G_API_TYPE);
1335:
1336: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1337: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1338: p_api_name => l_api_name,
1339: p_pkg_name => G_PKG_NAME,
1340: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1333: x_msg_data => x_msg_data,
1334: p_api_type => G_API_TYPE);
1335:
1336: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1337: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1338: p_api_name => l_api_name,
1339: p_pkg_name => G_PKG_NAME,
1340: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1341: x_msg_count => x_msg_count,
1336: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1337: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1338: p_api_name => l_api_name,
1339: p_pkg_name => G_PKG_NAME,
1340: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1341: x_msg_count => x_msg_count,
1342: x_msg_data => x_msg_data,
1343: p_api_type => G_API_TYPE);
1344:
1342: x_msg_data => x_msg_data,
1343: p_api_type => G_API_TYPE);
1344:
1345: when OTHERS then
1346: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1347: p_api_name => l_api_name,
1348: p_pkg_name => G_PKG_NAME,
1349: p_exc_name => 'OTHERS',
1350: x_msg_count => x_msg_count,
1439:
1440:
1441: BEGIN -- main process begins here
1442:
1443: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1444: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1445: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1446: END IF;
1447: -- call START_ACTIVITY to create savepoint, check compatibility
1445: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1446: END IF;
1447: -- call START_ACTIVITY to create savepoint, check compatibility
1448: -- and initialize message list
1449: x_return_status := OKC_API.START_ACTIVITY(
1450: p_api_name => l_api_name,
1451: p_pkg_name => G_PKG_NAME,
1452: p_init_msg_list => p_init_msg_list,
1453: l_api_version => l_api_version,
1455: p_api_type => G_API_TYPE,
1456: x_return_status => x_return_status);
1457:
1458: -- check if activity started successfully
1459: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1460: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1462: raise OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1456: x_return_status => x_return_status);
1457:
1458: -- check if activity started successfully
1459: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1460: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1462: raise OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1457:
1458: -- check if activity started successfully
1459: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1460: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1462: raise OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1458: -- check if activity started successfully
1459: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1460: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1461: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1462: raise OKC_API.G_EXCEPTION_ERROR;
1463: END IF;
1464:
1465: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1466:
1483: x_msg_data => x_msg_data,
1484: p_crjv_rec => l_crjv_rec
1485: );
1486:
1487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1490: raise OKC_API.G_EXCEPTION_ERROR;
1491: END IF;
1484: p_crjv_rec => l_crjv_rec
1485: );
1486:
1487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1490: raise OKC_API.G_EXCEPTION_ERROR;
1491: END IF;
1492:
1485: );
1486:
1487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1490: raise OKC_API.G_EXCEPTION_ERROR;
1491: END IF;
1492:
1493:
1486:
1487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1490: raise OKC_API.G_EXCEPTION_ERROR;
1491: END IF;
1492:
1493:
1494: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1515: x_msg_data => x_msg_data,
1516: p_crjv_rec => l_crjv_rec
1517: );
1518:
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: END IF;
1516: p_crjv_rec => l_crjv_rec
1517: );
1518:
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1517: );
1518:
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1525: END IF;
1518:
1519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1525: END IF;
1526:
1541: p_klev_rec => p_klev_rec,
1542: p_delete_cascade_yn => 'Y'
1543: );
1544:
1545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1546: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1548: raise OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1542: p_delete_cascade_yn => 'Y'
1543: );
1544:
1545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1546: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1548: raise OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550:
1543: );
1544:
1545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1546: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1548: raise OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550:
1551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1544:
1545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1546: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1548: raise OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550:
1551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 4');
1592: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1593: x_msg_data => x_msg_data);
1594:
1595: EXCEPTION
1596: when OKC_API.G_EXCEPTION_ERROR then
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1598: p_api_name => l_api_name,
1599: p_pkg_name => G_PKG_NAME,
1600: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1593: x_msg_data => x_msg_data);
1594:
1595: EXCEPTION
1596: when OKC_API.G_EXCEPTION_ERROR then
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1598: p_api_name => l_api_name,
1599: p_pkg_name => G_PKG_NAME,
1600: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1601: x_msg_count => x_msg_count,
1596: when OKC_API.G_EXCEPTION_ERROR then
1597: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1598: p_api_name => l_api_name,
1599: p_pkg_name => G_PKG_NAME,
1600: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1601: x_msg_count => x_msg_count,
1602: x_msg_data => x_msg_data,
1603: p_api_type => G_API_TYPE);
1604:
1601: x_msg_count => x_msg_count,
1602: x_msg_data => x_msg_data,
1603: p_api_type => G_API_TYPE);
1604:
1605: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1606: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1607: p_api_name => l_api_name,
1608: p_pkg_name => G_PKG_NAME,
1609: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1602: x_msg_data => x_msg_data,
1603: p_api_type => G_API_TYPE);
1604:
1605: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1606: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1607: p_api_name => l_api_name,
1608: p_pkg_name => G_PKG_NAME,
1609: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1610: x_msg_count => x_msg_count,
1605: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1606: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1607: p_api_name => l_api_name,
1608: p_pkg_name => G_PKG_NAME,
1609: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1610: x_msg_count => x_msg_count,
1611: x_msg_data => x_msg_data,
1612: p_api_type => G_API_TYPE);
1613:
1611: x_msg_data => x_msg_data,
1612: p_api_type => G_API_TYPE);
1613:
1614: when OTHERS then
1615: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1616: p_api_name => l_api_name,
1617: p_pkg_name => G_PKG_NAME,
1618: p_exc_name => 'OTHERS',
1619: x_msg_count => x_msg_count,
1654: IF (G_DEBUG_ENABLED = 'Y') THEN
1655: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1656: END IF;
1657:
1658: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1659: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1661: END IF;
1662: -- call START_ACTIVITY to create savepoint, check compatibility
1660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1661: END IF;
1662: -- call START_ACTIVITY to create savepoint, check compatibility
1663: -- and initialize message list
1664: x_return_status := OKC_API.START_ACTIVITY(
1665: p_api_name => l_api_name,
1666: p_pkg_name => G_PKG_NAME,
1667: p_init_msg_list => p_init_msg_list,
1668: l_api_version => l_api_version,
1670: p_api_type => G_API_TYPE,
1671: x_return_status => x_return_status);
1672:
1673: -- check if activity started successfully
1674: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1671: x_return_status => x_return_status);
1672:
1673: -- check if activity started successfully
1674: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1679:
1672:
1673: -- check if activity started successfully
1674: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1679:
1680: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1673: -- check if activity started successfully
1674: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1675: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1676: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1677: raise OKC_API.G_EXCEPTION_ERROR;
1678: END IF;
1679:
1680: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1681:
1691: p_clev_rec => p_clev_rec,
1692: p_klev_rec => p_klev_rec
1693: );
1694:
1695: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1696: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: END IF;
1692: p_klev_rec => p_klev_rec
1693: );
1694:
1695: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1696: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: END IF;
1700:
1693: );
1694:
1695: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1696: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: END IF;
1700:
1701: --
1694:
1695: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1696: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: END IF;
1700:
1701: --
1702: -- create service line and link
1713: p_supplier_id => p_supplier_id,
1714: x_okl_service_line_id => x_okl_service_line_id
1715: );
1716:
1717: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1720: raise OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1714: x_okl_service_line_id => x_okl_service_line_id
1715: );
1716:
1717: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1720: raise OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722:
1715: );
1716:
1717: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1720: raise OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722:
1723: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1716:
1717: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1718: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1719: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1720: raise OKC_API.G_EXCEPTION_ERROR;
1721: END IF;
1722:
1723: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1724:
1725: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1726: x_msg_data => x_msg_data);
1727:
1728: EXCEPTION
1729: when OKC_API.G_EXCEPTION_ERROR then
1730: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1731: p_api_name => l_api_name,
1732: p_pkg_name => G_PKG_NAME,
1733: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1726: x_msg_data => x_msg_data);
1727:
1728: EXCEPTION
1729: when OKC_API.G_EXCEPTION_ERROR then
1730: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1731: p_api_name => l_api_name,
1732: p_pkg_name => G_PKG_NAME,
1733: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1734: x_msg_count => x_msg_count,
1729: when OKC_API.G_EXCEPTION_ERROR then
1730: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1731: p_api_name => l_api_name,
1732: p_pkg_name => G_PKG_NAME,
1733: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1734: x_msg_count => x_msg_count,
1735: x_msg_data => x_msg_data,
1736: p_api_type => G_API_TYPE);
1737:
1734: x_msg_count => x_msg_count,
1735: x_msg_data => x_msg_data,
1736: p_api_type => G_API_TYPE);
1737:
1738: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1739: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1740: p_api_name => l_api_name,
1741: p_pkg_name => G_PKG_NAME,
1742: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1735: x_msg_data => x_msg_data,
1736: p_api_type => G_API_TYPE);
1737:
1738: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1739: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1740: p_api_name => l_api_name,
1741: p_pkg_name => G_PKG_NAME,
1742: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1743: x_msg_count => x_msg_count,
1738: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1739: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1740: p_api_name => l_api_name,
1741: p_pkg_name => G_PKG_NAME,
1742: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1743: x_msg_count => x_msg_count,
1744: x_msg_data => x_msg_data,
1745: p_api_type => G_API_TYPE);
1746:
1744: x_msg_data => x_msg_data,
1745: p_api_type => G_API_TYPE);
1746:
1747: when OTHERS then
1748: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1749: p_api_name => l_api_name,
1750: p_pkg_name => G_PKG_NAME,
1751: p_exc_name => 'OTHERS',
1752: x_msg_count => x_msg_count,
1804: IF (G_DEBUG_ENABLED = 'Y') THEN
1805: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1806: END IF;
1807:
1808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1810: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1811: END IF;
1812: -- call START_ACTIVITY to create savepoint, check compatibility
1810: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1811: END IF;
1812: -- call START_ACTIVITY to create savepoint, check compatibility
1813: -- and initialize message list
1814: x_return_status := OKC_API.START_ACTIVITY(
1815: p_api_name => l_api_name,
1816: p_pkg_name => G_PKG_NAME,
1817: p_init_msg_list => p_init_msg_list,
1818: l_api_version => l_api_version,
1820: p_api_type => G_API_TYPE,
1821: x_return_status => x_return_status);
1822:
1823: -- check if activity started successfully
1824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1827: raise OKC_API.G_EXCEPTION_ERROR;
1828: END IF;
1821: x_return_status => x_return_status);
1822:
1823: -- check if activity started successfully
1824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1827: raise OKC_API.G_EXCEPTION_ERROR;
1828: END IF;
1829:
1822:
1823: -- check if activity started successfully
1824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1827: raise OKC_API.G_EXCEPTION_ERROR;
1828: END IF;
1829:
1830: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1823: -- check if activity started successfully
1824: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1825: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1827: raise OKC_API.G_EXCEPTION_ERROR;
1828: END IF;
1829:
1830: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1831: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1849: okl_api.set_message(
1850: G_APP_NAME,
1851: G_LLA_SERV_LINE_LINK_ERROR
1852: );
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1854: END IF;
1855: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1856: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Cursor');
1857: END IF;
1861: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1862: x_msg_data => x_msg_data);
1863:
1864: EXCEPTION
1865: when OKC_API.G_EXCEPTION_ERROR then
1866: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1867: p_api_name => l_api_name,
1868: p_pkg_name => G_PKG_NAME,
1869: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1862: x_msg_data => x_msg_data);
1863:
1864: EXCEPTION
1865: when OKC_API.G_EXCEPTION_ERROR then
1866: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1867: p_api_name => l_api_name,
1868: p_pkg_name => G_PKG_NAME,
1869: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1870: x_msg_count => x_msg_count,
1865: when OKC_API.G_EXCEPTION_ERROR then
1866: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1867: p_api_name => l_api_name,
1868: p_pkg_name => G_PKG_NAME,
1869: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1870: x_msg_count => x_msg_count,
1871: x_msg_data => x_msg_data,
1872: p_api_type => G_API_TYPE);
1873:
1870: x_msg_count => x_msg_count,
1871: x_msg_data => x_msg_data,
1872: p_api_type => G_API_TYPE);
1873:
1874: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1876: p_api_name => l_api_name,
1877: p_pkg_name => G_PKG_NAME,
1878: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1871: x_msg_data => x_msg_data,
1872: p_api_type => G_API_TYPE);
1873:
1874: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1876: p_api_name => l_api_name,
1877: p_pkg_name => G_PKG_NAME,
1878: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1879: x_msg_count => x_msg_count,
1874: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1875: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1876: p_api_name => l_api_name,
1877: p_pkg_name => G_PKG_NAME,
1878: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1879: x_msg_count => x_msg_count,
1880: x_msg_data => x_msg_data,
1881: p_api_type => G_API_TYPE);
1882:
1880: x_msg_data => x_msg_data,
1881: p_api_type => G_API_TYPE);
1882:
1883: when OTHERS then
1884: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1885: p_api_name => l_api_name,
1886: p_pkg_name => G_PKG_NAME,
1887: p_exc_name => 'OTHERS',
1888: x_msg_count => x_msg_count,
1933: IF (G_DEBUG_ENABLED = 'Y') THEN
1934: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1935: END IF;
1936:
1937: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1938: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1939: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1940: END IF;
1941:
1940: END IF;
1941:
1942: -- call START_ACTIVITY to create savepoint, check compatibility
1943: -- and initialize message list
1944: x_return_status := OKC_API.START_ACTIVITY(
1945: p_api_name => l_api_name,
1946: p_pkg_name => G_PKG_NAME,
1947: p_init_msg_list => p_init_msg_list,
1948: l_api_version => l_api_version,
1950: p_api_type => G_API_TYPE,
1951: x_return_status => x_return_status);
1952:
1953: -- check if activity started successfully
1954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1955: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1957: raise OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1951: x_return_status => x_return_status);
1952:
1953: -- check if activity started successfully
1954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1955: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1957: raise OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1959:
1952:
1953: -- check if activity started successfully
1954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1955: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1957: raise OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1959:
1960: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1953: -- check if activity started successfully
1954: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1955: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1957: raise OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1959:
1960: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1961:
1979: x_msg_data => x_msg_data,
1980: p_crjv_rec => l_crjv_rec
1981: );
1982:
1983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1984: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1986: raise OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1980: p_crjv_rec => l_crjv_rec
1981: );
1982:
1983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1984: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1986: raise OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988:
1981: );
1982:
1983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1984: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1986: raise OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988:
1989: l_crjv_rec := NULL;
1982:
1983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1984: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1986: raise OKC_API.G_EXCEPTION_ERROR;
1987: END IF;
1988:
1989: l_crjv_rec := NULL;
1990: l_crjv_rec.chr_id := p_okl_chr_id;
1995:
1996:
1997: OKC_K_REL_OBJS_PUB.create_row (
1998: p_api_version => p_api_version,
1999: p_init_msg_list => OKC_API.G_FALSE,
2000: x_return_status => x_return_status,
2001: x_msg_count => x_msg_count,
2002: x_msg_data => x_msg_data,
2003: p_crjv_rec => l_crjv_rec,
2003: p_crjv_rec => l_crjv_rec,
2004: x_crjv_rec => x_crjv_rec
2005: );
2006:
2007: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2008: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2010: raise OKC_API.G_EXCEPTION_ERROR;
2011: END IF;
2004: x_crjv_rec => x_crjv_rec
2005: );
2006:
2007: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2008: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2010: raise OKC_API.G_EXCEPTION_ERROR;
2011: END IF;
2012:
2005: );
2006:
2007: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2008: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2010: raise OKC_API.G_EXCEPTION_ERROR;
2011: END IF;
2012:
2013: END IF;
2006:
2007: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2008: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2009: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2010: raise OKC_API.G_EXCEPTION_ERROR;
2011: END IF;
2012:
2013: END IF;
2014:
2017: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2018: x_msg_data => x_msg_data);
2019:
2020: EXCEPTION
2021: when OKC_API.G_EXCEPTION_ERROR then
2022: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2023: p_api_name => l_api_name,
2024: p_pkg_name => G_PKG_NAME,
2025: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2018: x_msg_data => x_msg_data);
2019:
2020: EXCEPTION
2021: when OKC_API.G_EXCEPTION_ERROR then
2022: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2023: p_api_name => l_api_name,
2024: p_pkg_name => G_PKG_NAME,
2025: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2026: x_msg_count => x_msg_count,
2021: when OKC_API.G_EXCEPTION_ERROR then
2022: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2023: p_api_name => l_api_name,
2024: p_pkg_name => G_PKG_NAME,
2025: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2026: x_msg_count => x_msg_count,
2027: x_msg_data => x_msg_data,
2028: p_api_type => G_API_TYPE);
2029:
2026: x_msg_count => x_msg_count,
2027: x_msg_data => x_msg_data,
2028: p_api_type => G_API_TYPE);
2029:
2030: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2031: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2032: p_api_name => l_api_name,
2033: p_pkg_name => G_PKG_NAME,
2034: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2027: x_msg_data => x_msg_data,
2028: p_api_type => G_API_TYPE);
2029:
2030: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2031: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2032: p_api_name => l_api_name,
2033: p_pkg_name => G_PKG_NAME,
2034: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2035: x_msg_count => x_msg_count,
2030: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2031: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2032: p_api_name => l_api_name,
2033: p_pkg_name => G_PKG_NAME,
2034: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2035: x_msg_count => x_msg_count,
2036: x_msg_data => x_msg_data,
2037: p_api_type => G_API_TYPE);
2038:
2036: x_msg_data => x_msg_data,
2037: p_api_type => G_API_TYPE);
2038:
2039: when OTHERS then
2040: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2041: p_api_name => l_api_name,
2042: p_pkg_name => G_PKG_NAME,
2043: p_exc_name => 'OTHERS',
2044: x_msg_count => x_msg_count,
2083: IF (G_DEBUG_ENABLED = 'Y') THEN
2084: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2085: END IF;
2086:
2087: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2088: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2089: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2090: END IF;
2091: -- call START_ACTIVITY to create savepoint, check compatibility
2089: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2090: END IF;
2091: -- call START_ACTIVITY to create savepoint, check compatibility
2092: -- and initialize message list
2093: x_return_status := OKC_API.START_ACTIVITY(
2094: p_api_name => l_api_name,
2095: p_pkg_name => G_PKG_NAME,
2096: p_init_msg_list => p_init_msg_list,
2097: l_api_version => l_api_version,
2099: p_api_type => G_API_TYPE,
2100: x_return_status => x_return_status);
2101:
2102: -- check if activity started successfully
2103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2106: raise OKC_API.G_EXCEPTION_ERROR;
2107: END IF;
2100: x_return_status => x_return_status);
2101:
2102: -- check if activity started successfully
2103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2106: raise OKC_API.G_EXCEPTION_ERROR;
2107: END IF;
2108:
2101:
2102: -- check if activity started successfully
2103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2106: raise OKC_API.G_EXCEPTION_ERROR;
2107: END IF;
2108:
2109: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2102: -- check if activity started successfully
2103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2106: raise OKC_API.G_EXCEPTION_ERROR;
2107: END IF;
2108:
2109: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2110: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2124: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2125: x_msg_data => x_msg_data);
2126:
2127: EXCEPTION
2128: when OKC_API.G_EXCEPTION_ERROR then
2129: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2130: p_api_name => l_api_name,
2131: p_pkg_name => G_PKG_NAME,
2132: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2125: x_msg_data => x_msg_data);
2126:
2127: EXCEPTION
2128: when OKC_API.G_EXCEPTION_ERROR then
2129: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2130: p_api_name => l_api_name,
2131: p_pkg_name => G_PKG_NAME,
2132: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2133: x_msg_count => x_msg_count,
2128: when OKC_API.G_EXCEPTION_ERROR then
2129: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2130: p_api_name => l_api_name,
2131: p_pkg_name => G_PKG_NAME,
2132: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2133: x_msg_count => x_msg_count,
2134: x_msg_data => x_msg_data,
2135: p_api_type => G_API_TYPE);
2136:
2133: x_msg_count => x_msg_count,
2134: x_msg_data => x_msg_data,
2135: p_api_type => G_API_TYPE);
2136:
2137: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2138: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2139: p_api_name => l_api_name,
2140: p_pkg_name => G_PKG_NAME,
2141: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2134: x_msg_data => x_msg_data,
2135: p_api_type => G_API_TYPE);
2136:
2137: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2138: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2139: p_api_name => l_api_name,
2140: p_pkg_name => G_PKG_NAME,
2141: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2142: x_msg_count => x_msg_count,
2137: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2138: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2139: p_api_name => l_api_name,
2140: p_pkg_name => G_PKG_NAME,
2141: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2142: x_msg_count => x_msg_count,
2143: x_msg_data => x_msg_data,
2144: p_api_type => G_API_TYPE);
2145:
2143: x_msg_data => x_msg_data,
2144: p_api_type => G_API_TYPE);
2145:
2146: when OTHERS then
2147: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2148: p_api_name => l_api_name,
2149: p_pkg_name => G_PKG_NAME,
2150: p_exc_name => 'OTHERS',
2151: x_msg_count => x_msg_count,
2194: BEGIN
2195:
2196: -- call START_ACTIVITY to create savepoint, check compatibility
2197: -- and initialize message list
2198: x_return_status := OKC_API.START_ACTIVITY(
2199: p_api_name => l_api_name,
2200: p_pkg_name => G_PKG_NAME,
2201: p_init_msg_list => p_init_msg_list,
2202: l_api_version => l_api_version,
2204: p_api_type => G_API_TYPE,
2205: x_return_status => x_return_status);
2206:
2207: -- check if activity started successfully
2208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2211: raise OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2205: x_return_status => x_return_status);
2206:
2207: -- check if activity started successfully
2208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2211: raise OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213:
2206:
2207: -- check if activity started successfully
2208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2211: raise OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213:
2214: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2207: -- check if activity started successfully
2208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2211: raise OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213:
2214: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2215: check_service_link (
2221: p_lease_contract_id => p_lease_contract_id,
2222: x_service_contract_id => l_service_contract_id
2223: );
2224:
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2226: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2228: raise OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2222: x_service_contract_id => l_service_contract_id
2223: );
2224:
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2226: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2228: raise OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230:
2223: );
2224:
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2226: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2228: raise OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230:
2231: x_service_contract_id := l_service_contract_id;
2224:
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2226: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2228: raise OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230:
2231: x_service_contract_id := l_service_contract_id;
2232:
2247: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2248: x_msg_data => x_msg_data);
2249:
2250: EXCEPTION
2251: when OKC_API.G_EXCEPTION_ERROR then
2252: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2253: p_api_name => l_api_name,
2254: p_pkg_name => G_PKG_NAME,
2255: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2248: x_msg_data => x_msg_data);
2249:
2250: EXCEPTION
2251: when OKC_API.G_EXCEPTION_ERROR then
2252: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2253: p_api_name => l_api_name,
2254: p_pkg_name => G_PKG_NAME,
2255: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2256: x_msg_count => x_msg_count,
2251: when OKC_API.G_EXCEPTION_ERROR then
2252: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2253: p_api_name => l_api_name,
2254: p_pkg_name => G_PKG_NAME,
2255: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2256: x_msg_count => x_msg_count,
2257: x_msg_data => x_msg_data,
2258: p_api_type => G_API_TYPE);
2259:
2256: x_msg_count => x_msg_count,
2257: x_msg_data => x_msg_data,
2258: p_api_type => G_API_TYPE);
2259:
2260: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2261: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2262: p_api_name => l_api_name,
2263: p_pkg_name => G_PKG_NAME,
2264: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2257: x_msg_data => x_msg_data,
2258: p_api_type => G_API_TYPE);
2259:
2260: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2261: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2262: p_api_name => l_api_name,
2263: p_pkg_name => G_PKG_NAME,
2264: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2265: x_msg_count => x_msg_count,
2260: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2261: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2262: p_api_name => l_api_name,
2263: p_pkg_name => G_PKG_NAME,
2264: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2265: x_msg_count => x_msg_count,
2266: x_msg_data => x_msg_data,
2267: p_api_type => G_API_TYPE);
2268:
2266: x_msg_data => x_msg_data,
2267: p_api_type => G_API_TYPE);
2268:
2269: when OTHERS then
2270: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2271: p_api_name => l_api_name,
2272: p_pkg_name => G_PKG_NAME,
2273: p_exc_name => 'OTHERS',
2274: x_msg_count => x_msg_count,
2363: OPEN csi_csr (p_instance_id);
2364: FETCH csi_csr INTO l_location_id,
2365: l_location_type_code;
2366: IF csi_csr%NOTFOUND THEN
2367: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2368: END IF;
2369: CLOSE csi_csr;
2370:
2371: IF (l_location_type_code = 'HZ_LOCATIONS') THEN
2445: IF hz_party_site_csr%ISOPEN THEN
2446: CLOSE hz_party_site_csr;
2447: END IF;
2448:
2449: when OKC_API.G_EXCEPTION_ERROR then
2450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2451: p_api_name => l_api_name,
2452: p_pkg_name => G_PKG_NAME,
2453: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2446: CLOSE hz_party_site_csr;
2447: END IF;
2448:
2449: when OKC_API.G_EXCEPTION_ERROR then
2450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2451: p_api_name => l_api_name,
2452: p_pkg_name => G_PKG_NAME,
2453: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2454: x_msg_count => x_msg_count,
2449: when OKC_API.G_EXCEPTION_ERROR then
2450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2451: p_api_name => l_api_name,
2452: p_pkg_name => G_PKG_NAME,
2453: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2454: x_msg_count => x_msg_count,
2455: x_msg_data => x_msg_data,
2456: p_api_type => G_API_TYPE);
2457:
2454: x_msg_count => x_msg_count,
2455: x_msg_data => x_msg_data,
2456: p_api_type => G_API_TYPE);
2457:
2458: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2459: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2460: p_api_name => l_api_name,
2461: p_pkg_name => G_PKG_NAME,
2462: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2455: x_msg_data => x_msg_data,
2456: p_api_type => G_API_TYPE);
2457:
2458: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2459: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2460: p_api_name => l_api_name,
2461: p_pkg_name => G_PKG_NAME,
2462: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2463: x_msg_count => x_msg_count,
2458: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2459: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2460: p_api_name => l_api_name,
2461: p_pkg_name => G_PKG_NAME,
2462: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2463: x_msg_count => x_msg_count,
2464: x_msg_data => x_msg_data,
2465: p_api_type => G_API_TYPE);
2466:
2464: x_msg_data => x_msg_data,
2465: p_api_type => G_API_TYPE);
2466:
2467: when OTHERS then
2468: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2469: p_api_name => l_api_name,
2470: p_pkg_name => G_PKG_NAME,
2471: p_exc_name => 'OTHERS',
2472: x_msg_count => x_msg_count,
2533: l_crjv_rec.jtot_object1_code := 'OKL_COV_PROD';
2534:
2535: OKC_K_REL_OBJS_PUB.create_row (
2536: p_api_version => 1.0,
2537: p_init_msg_list => OKC_API.G_FALSE,
2538: x_return_status => x_return_status,
2539: x_msg_count => x_msg_count,
2540: x_msg_data => x_msg_data,
2541: p_crjv_rec => l_crjv_rec,
2541: p_crjv_rec => l_crjv_rec,
2542: x_crjv_rec => x_crjv_rec
2543: );
2544:
2545: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2546: RAISE cov_link_error;
2547: END IF;
2548: ELSE
2549: -- update the link, i.e. delete and create the link
2555: x_msg_count => x_msg_count,
2556: x_msg_data => x_msg_data,
2557: p_crjv_rec => l_crjv_rec
2558: );
2559: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2560: RAISE cov_link_error;
2561: END IF;
2562:
2563: l_crjv_rec := NULL;
2569: l_crjv_rec.jtot_object1_code := 'OKL_COV_PROD';
2570:
2571: OKC_K_REL_OBJS_PUB.create_row (
2572: p_api_version => 1.0,
2573: p_init_msg_list => OKC_API.G_FALSE,
2574: x_return_status => x_return_status,
2575: x_msg_count => x_msg_count,
2576: x_msg_data => x_msg_data,
2577: p_crjv_rec => l_crjv_rec,
2577: p_crjv_rec => l_crjv_rec,
2578: x_crjv_rec => x_crjv_rec
2579: );
2580:
2581: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2582: RAISE cov_link_error;
2583: END IF;
2584: END IF;
2585:
2598: -- Called By:
2599: ------------------------------------------------------------------------------
2600: PROCEDURE create_cov_asset_line(
2601: p_api_version IN NUMBER,
2602: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2603: x_return_status OUT NOCOPY VARCHAR2,
2604: x_msg_count OUT NOCOPY NUMBER,
2605: x_msg_data OUT NOCOPY VARCHAR2,
2606: p_clev_tbl IN clev_tbl_type,
2635: IF (G_DEBUG_ENABLED = 'Y') THEN
2636: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2637: END IF;
2638:
2639: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2640: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2641: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2642: END IF;
2643: -- call START_ACTIVITY to create savepoint, check compatibility
2641: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2642: END IF;
2643: -- call START_ACTIVITY to create savepoint, check compatibility
2644: -- and initialize message list
2645: x_return_status := OKC_API.START_ACTIVITY(
2646: p_api_name => l_api_name,
2647: p_pkg_name => G_PKG_NAME,
2648: p_init_msg_list => p_init_msg_list,
2649: l_api_version => l_api_version,
2651: p_api_type => G_API_TYPE,
2652: x_return_status => x_return_status);
2653:
2654: -- check if activity started successfully
2655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: END IF;
2652: x_return_status => x_return_status);
2653:
2654: -- check if activity started successfully
2655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: END IF;
2660:
2653:
2654: -- check if activity started successfully
2655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: END IF;
2660:
2661: FOR i IN 1..p_clev_tbl.COUNT
2654: -- check if activity started successfully
2655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2658: raise OKC_API.G_EXCEPTION_ERROR;
2659: END IF;
2660:
2661: FOR i IN 1..p_clev_tbl.COUNT
2662: LOOP
2676: G_LLA_COV_ASSET_ERROR,
2677: 'ASSET_NUMBER',
2678: p_clev_tbl(i).name
2679: );
2680: RAISE OKC_API.G_EXCEPTION_ERROR;
2681: END IF;
2682:
2683: --
2684: -- Check OKS Covered product Install site, for linked like only
2694: p_instance_id => l_instance_id
2695: );
2696:
2697: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2698: RAISE OKC_API.G_EXCEPTION_ERROR;
2699: END IF;
2700: END IF;
2701:
2702: END LOOP;
2715: x_klev_tbl => x_klev_tbl,
2716: x_cimv_tbl => x_cimv_tbl
2717: );
2718:
2719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2720: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2722: raise OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2716: x_cimv_tbl => x_cimv_tbl
2717: );
2718:
2719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2720: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2722: raise OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724:
2717: );
2718:
2719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2720: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2722: raise OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724:
2725: --
2718:
2719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2720: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2722: raise OKC_API.G_EXCEPTION_ERROR;
2723: END IF;
2724:
2725: --
2726: -- Create Covered Line Link
2737: p_okl_cov_line_id => x_clev_tbl(i).id,
2738: p_oks_cov_line_id => p_cov_tbl(i).oks_cov_prod_line_id
2739: );
2740:
2741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2742: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2744: raise OKC_API.G_EXCEPTION_ERROR;
2745: END IF;
2738: p_oks_cov_line_id => p_cov_tbl(i).oks_cov_prod_line_id
2739: );
2740:
2741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2742: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2744: raise OKC_API.G_EXCEPTION_ERROR;
2745: END IF;
2746: END IF;
2739: );
2740:
2741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2742: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2744: raise OKC_API.G_EXCEPTION_ERROR;
2745: END IF;
2746: END IF;
2747: END LOOP;
2740:
2741: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2742: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2743: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2744: raise OKC_API.G_EXCEPTION_ERROR;
2745: END IF;
2746: END IF;
2747: END LOOP;
2748:
2750: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2751: x_msg_data => x_msg_data);
2752:
2753: EXCEPTION
2754: when OKC_API.G_EXCEPTION_ERROR then
2755: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2756: p_api_name => l_api_name,
2757: p_pkg_name => G_PKG_NAME,
2758: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2751: x_msg_data => x_msg_data);
2752:
2753: EXCEPTION
2754: when OKC_API.G_EXCEPTION_ERROR then
2755: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2756: p_api_name => l_api_name,
2757: p_pkg_name => G_PKG_NAME,
2758: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2759: x_msg_count => x_msg_count,
2754: when OKC_API.G_EXCEPTION_ERROR then
2755: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2756: p_api_name => l_api_name,
2757: p_pkg_name => G_PKG_NAME,
2758: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2759: x_msg_count => x_msg_count,
2760: x_msg_data => x_msg_data,
2761: p_api_type => G_API_TYPE);
2762:
2759: x_msg_count => x_msg_count,
2760: x_msg_data => x_msg_data,
2761: p_api_type => G_API_TYPE);
2762:
2763: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2764: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2765: p_api_name => l_api_name,
2766: p_pkg_name => G_PKG_NAME,
2767: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2760: x_msg_data => x_msg_data,
2761: p_api_type => G_API_TYPE);
2762:
2763: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2764: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2765: p_api_name => l_api_name,
2766: p_pkg_name => G_PKG_NAME,
2767: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2768: x_msg_count => x_msg_count,
2763: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2764: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2765: p_api_name => l_api_name,
2766: p_pkg_name => G_PKG_NAME,
2767: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2768: x_msg_count => x_msg_count,
2769: x_msg_data => x_msg_data,
2770: p_api_type => G_API_TYPE);
2771:
2769: x_msg_data => x_msg_data,
2770: p_api_type => G_API_TYPE);
2771:
2772: when OTHERS then
2773: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2774: p_api_name => l_api_name,
2775: p_pkg_name => G_PKG_NAME,
2776: p_exc_name => 'OTHERS',
2777: x_msg_count => x_msg_count,
2790: -- Called By:
2791: ------------------------------------------------------------------------------
2792: PROCEDURE update_cov_asset_line(
2793: p_api_version IN NUMBER,
2794: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2795: x_return_status OUT NOCOPY VARCHAR2,
2796: x_msg_count OUT NOCOPY NUMBER,
2797: x_msg_data OUT NOCOPY VARCHAR2,
2798: p_clev_tbl IN clev_tbl_type,
2823: IF (G_DEBUG_ENABLED = 'Y') THEN
2824: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2825: END IF;
2826:
2827: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2828: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2830: END IF;
2831: -- call START_ACTIVITY to create savepoint, check compatibility
2829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2830: END IF;
2831: -- call START_ACTIVITY to create savepoint, check compatibility
2832: -- and initialize message list
2833: x_return_status := OKC_API.START_ACTIVITY(
2834: p_api_name => l_api_name,
2835: p_pkg_name => G_PKG_NAME,
2836: p_init_msg_list => p_init_msg_list,
2837: l_api_version => l_api_version,
2839: p_api_type => G_API_TYPE,
2840: x_return_status => x_return_status);
2841:
2842: -- check if activity started successfully
2843: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2844: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2846: raise OKC_API.G_EXCEPTION_ERROR;
2847: END IF;
2840: x_return_status => x_return_status);
2841:
2842: -- check if activity started successfully
2843: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2844: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2846: raise OKC_API.G_EXCEPTION_ERROR;
2847: END IF;
2848:
2841:
2842: -- check if activity started successfully
2843: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2844: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2846: raise OKC_API.G_EXCEPTION_ERROR;
2847: END IF;
2848:
2849: FOR i IN 1..p_clev_tbl.COUNT
2842: -- check if activity started successfully
2843: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2844: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2845: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2846: raise OKC_API.G_EXCEPTION_ERROR;
2847: END IF;
2848:
2849: FOR i IN 1..p_clev_tbl.COUNT
2850: LOOP
2862: G_LLA_COV_ASSET_ERROR,
2863: 'ASSET_NUMBER',
2864: p_clev_tbl(i).name
2865: );
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868:
2869: END LOOP;
2870:
2882: x_klev_tbl => x_klev_tbl,
2883: x_cimv_tbl => x_cimv_tbl
2884: );
2885:
2886: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2887: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2888: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2889: raise OKC_API.G_EXCEPTION_ERROR;
2890: END IF;
2883: x_cimv_tbl => x_cimv_tbl
2884: );
2885:
2886: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2887: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2888: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2889: raise OKC_API.G_EXCEPTION_ERROR;
2890: END IF;
2891:
2884: );
2885:
2886: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2887: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2888: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2889: raise OKC_API.G_EXCEPTION_ERROR;
2890: END IF;
2891:
2892: --
2885:
2886: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2887: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2888: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2889: raise OKC_API.G_EXCEPTION_ERROR;
2890: END IF;
2891:
2892: --
2893: -- Update Covered Line Link
2903: p_okl_cov_line_id => x_clev_tbl(i).id,
2904: p_oks_cov_line_id => p_cov_tbl(i).oks_cov_prod_line_id
2905: );
2906:
2907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2910: raise OKC_API.G_EXCEPTION_ERROR;
2911: END IF;
2904: p_oks_cov_line_id => p_cov_tbl(i).oks_cov_prod_line_id
2905: );
2906:
2907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2910: raise OKC_API.G_EXCEPTION_ERROR;
2911: END IF;
2912: END IF;
2905: );
2906:
2907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2910: raise OKC_API.G_EXCEPTION_ERROR;
2911: END IF;
2912: END IF;
2913: END LOOP;
2906:
2907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
2910: raise OKC_API.G_EXCEPTION_ERROR;
2911: END IF;
2912: END IF;
2913: END LOOP;
2914:
2915: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2916: x_msg_data => x_msg_data);
2917:
2918: EXCEPTION
2919: when OKC_API.G_EXCEPTION_ERROR then
2920: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2921: p_api_name => l_api_name,
2922: p_pkg_name => G_PKG_NAME,
2923: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2916: x_msg_data => x_msg_data);
2917:
2918: EXCEPTION
2919: when OKC_API.G_EXCEPTION_ERROR then
2920: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2921: p_api_name => l_api_name,
2922: p_pkg_name => G_PKG_NAME,
2923: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2924: x_msg_count => x_msg_count,
2919: when OKC_API.G_EXCEPTION_ERROR then
2920: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2921: p_api_name => l_api_name,
2922: p_pkg_name => G_PKG_NAME,
2923: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2924: x_msg_count => x_msg_count,
2925: x_msg_data => x_msg_data,
2926: p_api_type => G_API_TYPE);
2927:
2924: x_msg_count => x_msg_count,
2925: x_msg_data => x_msg_data,
2926: p_api_type => G_API_TYPE);
2927:
2928: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2929: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2930: p_api_name => l_api_name,
2931: p_pkg_name => G_PKG_NAME,
2932: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2925: x_msg_data => x_msg_data,
2926: p_api_type => G_API_TYPE);
2927:
2928: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2929: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2930: p_api_name => l_api_name,
2931: p_pkg_name => G_PKG_NAME,
2932: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2933: x_msg_count => x_msg_count,
2928: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2929: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2930: p_api_name => l_api_name,
2931: p_pkg_name => G_PKG_NAME,
2932: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2933: x_msg_count => x_msg_count,
2934: x_msg_data => x_msg_data,
2935: p_api_type => G_API_TYPE);
2936:
2934: x_msg_data => x_msg_data,
2935: p_api_type => G_API_TYPE);
2936:
2937: when OTHERS then
2938: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2939: p_api_name => l_api_name,
2940: p_pkg_name => G_PKG_NAME,
2941: p_exc_name => 'OTHERS',
2942: x_msg_count => x_msg_count,
3037: -- Called By:
3038: ------------------------------------------------------------------------------
3039: PROCEDURE initiate_service_booking(
3040: p_api_version IN NUMBER,
3041: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3042: x_return_status OUT NOCOPY VARCHAR2,
3043: x_msg_count OUT NOCOPY NUMBER,
3044: x_msg_data OUT NOCOPY VARCHAR2,
3045: p_okl_chr_id IN OKC_K_HEADERS_B.ID%TYPE
3143: IF (G_DEBUG_ENABLED = 'Y') THEN
3144: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3145: END IF;
3146:
3147: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3148: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3150: END IF;
3151:
3150: END IF;
3151:
3152: -- call START_ACTIVITY to create savepoint, check compatibility
3153: -- and initialize message list
3154: x_return_status := OKC_API.START_ACTIVITY(
3155: p_api_name => l_api_name,
3156: p_pkg_name => G_PKG_NAME,
3157: p_init_msg_list => p_init_msg_list,
3158: l_api_version => l_api_version,
3160: p_api_type => G_API_TYPE,
3161: x_return_status => x_return_status);
3162:
3163: -- check if activity started successfully
3164: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3167: raise OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3161: x_return_status => x_return_status);
3162:
3163: -- check if activity started successfully
3164: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3167: raise OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169: --************************************************
3162:
3163: -- check if activity started successfully
3164: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3167: raise OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169: --************************************************
3170: check_service_link(
3163: -- check if activity started successfully
3164: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3165: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3166: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3167: raise OKC_API.G_EXCEPTION_ERROR;
3168: END IF;
3169: --************************************************
3170: check_service_link(
3171: p_api_version => 1.0,
3177: x_service_contract_id => l_oks_chr_id
3178: );
3179:
3180: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: END IF;
3183:
3184: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3185: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Service contract ID: '||l_oks_chr_id);
3207: p_instance_id => inst_rec.instance_id
3208: );
3209:
3210: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3211: raise OKC_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3214: END LOOP;
3215:
3228: p_jtf_code => 'OKL_SERVICE'
3229: );
3230:
3231: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3232: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: END IF;
3234:
3235: --
3236: -- set AR Interface flag to 'N' to stop billing
3247: p_ar_intf_val => 'N'
3248: );
3249:
3250: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3252: END IF;
3253: */
3254:
3255: get_service_link_line (
3263: x_service_contract_id => l_oks_chr_id
3264: );
3265:
3266: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3267: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: END IF;
3269:
3270: --dbms_output.put_line('Line Link count: '||l_link_line_tbl.COUNT);
3271:
3281: p_okl_chr_id => p_okl_chr_id
3282: );
3283:
3284: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3285: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3286: END IF;
3287:
3288: FOR i IN 1..l_link_line_tbl.COUNT
3289: LOOP
3318: ----- Changes by Kanti
3319: ----- Validate the JTOT Object code, ID1 and ID2
3320:
3321: okl_la_validation_util_pvt.VALIDATE_STYLE_JTOT (p_api_version => l_api_version,
3322: p_init_msg_list => OKC_API.G_FALSE,
3323: x_return_status => x_return_status,
3324: x_msg_count => x_msg_count,
3325: x_msg_data => x_msg_data,
3326: p_object_name => l_cimv_rec.jtot_object1_code,
3325: x_msg_data => x_msg_data,
3326: p_object_name => l_cimv_rec.jtot_object1_code,
3327: p_id1 => l_cimv_rec.object1_id1,
3328: p_id2 => l_cimv_rec.object1_id2);
3329: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3332: RAISE OKC_API.G_EXCEPTION_ERROR;
3333: END IF;
3326: p_object_name => l_cimv_rec.jtot_object1_code,
3327: p_id1 => l_cimv_rec.object1_id1,
3328: p_id2 => l_cimv_rec.object1_id2);
3329: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3332: RAISE OKC_API.G_EXCEPTION_ERROR;
3333: END IF;
3334:
3327: p_id1 => l_cimv_rec.object1_id1,
3328: p_id2 => l_cimv_rec.object1_id2);
3329: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3332: RAISE OKC_API.G_EXCEPTION_ERROR;
3333: END IF;
3334:
3335: ---- Changes End
3328: p_id2 => l_cimv_rec.object1_id2);
3329: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3330: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3331: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3332: RAISE OKC_API.G_EXCEPTION_ERROR;
3333: END IF;
3334:
3335: ---- Changes End
3336:
3345: x_cimv_rec => x_cimv_rec
3346: );
3347:
3348: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: END IF;
3351:
3352: END IF;
3353:
3360: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3361: x_msg_data => x_msg_data);
3362:
3363: EXCEPTION
3364: when OKC_API.G_EXCEPTION_ERROR then
3365: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3366: p_api_name => l_api_name,
3367: p_pkg_name => G_PKG_NAME,
3368: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3361: x_msg_data => x_msg_data);
3362:
3363: EXCEPTION
3364: when OKC_API.G_EXCEPTION_ERROR then
3365: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3366: p_api_name => l_api_name,
3367: p_pkg_name => G_PKG_NAME,
3368: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3369: x_msg_count => x_msg_count,
3364: when OKC_API.G_EXCEPTION_ERROR then
3365: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3366: p_api_name => l_api_name,
3367: p_pkg_name => G_PKG_NAME,
3368: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3369: x_msg_count => x_msg_count,
3370: x_msg_data => x_msg_data,
3371: p_api_type => G_API_TYPE);
3372:
3369: x_msg_count => x_msg_count,
3370: x_msg_data => x_msg_data,
3371: p_api_type => G_API_TYPE);
3372:
3373: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => G_PKG_NAME,
3377: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3370: x_msg_data => x_msg_data,
3371: p_api_type => G_API_TYPE);
3372:
3373: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => G_PKG_NAME,
3377: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3378: x_msg_count => x_msg_count,
3373: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3375: p_api_name => l_api_name,
3376: p_pkg_name => G_PKG_NAME,
3377: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3378: x_msg_count => x_msg_count,
3379: x_msg_data => x_msg_data,
3380: p_api_type => G_API_TYPE);
3381:
3379: x_msg_data => x_msg_data,
3380: p_api_type => G_API_TYPE);
3381:
3382: when OTHERS then
3383: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3384: p_api_name => l_api_name,
3385: p_pkg_name => G_PKG_NAME,
3386: p_exc_name => 'OTHERS',
3387: x_msg_count => x_msg_count,
3491: );
3492: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3493: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3494: END IF;
3495: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3498: raise OKC_API.G_EXCEPTION_ERROR;
3499: END IF;
3492: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3493: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3494: END IF;
3495: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3498: raise OKC_API.G_EXCEPTION_ERROR;
3499: END IF;
3500:
3493: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3494: END IF;
3495: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3498: raise OKC_API.G_EXCEPTION_ERROR;
3499: END IF;
3500:
3501: END IF;
3494: END IF;
3495: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3498: raise OKC_API.G_EXCEPTION_ERROR;
3499: END IF;
3500:
3501: END IF;
3502:
3516: p_okl_cov_line_id => x_line_item_tbl(1).cle_id,
3517: p_oks_cov_line_id => l_cov_prod_tbl(k).oks_cov_line_id
3518: );
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3521: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3523: raise OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3517: p_oks_cov_line_id => l_cov_prod_tbl(k).oks_cov_line_id
3518: );
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3521: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3523: raise OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3518: );
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3521: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3523: raise OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3526: END LOOP;
3519:
3520: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3521: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3523: raise OKC_API.G_EXCEPTION_ERROR;
3524: END IF;
3525:
3526: END LOOP;
3527:
3634: IF (G_DEBUG_ENABLED = 'Y') THEN
3635: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3636: END IF;
3637:
3638: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3639: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3641: END IF;
3642:
3641: END IF;
3642:
3643: -- call START_ACTIVITY to create savepoint, check compatibility
3644: -- and initialize message list
3645: x_return_status := OKC_API.START_ACTIVITY(
3646: p_api_name => l_api_name,
3647: p_pkg_name => G_PKG_NAME,
3648: p_init_msg_list => p_init_msg_list,
3649: l_api_version => l_api_version,
3651: p_api_type => G_API_TYPE,
3652: x_return_status => x_return_status);
3653:
3654: -- check if activity started successfully
3655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3658: raise OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3652: x_return_status => x_return_status);
3653:
3654: -- check if activity started successfully
3655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3658: raise OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3660:
3653:
3654: -- check if activity started successfully
3655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3658: raise OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3660:
3661: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3654: -- check if activity started successfully
3655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3658: raise OKC_API.G_EXCEPTION_ERROR;
3659: END IF;
3660:
3661: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3662:
3695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling create_link_service_line');
3697: END IF;
3698:
3699: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3701: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3702: raise OKC_API.G_EXCEPTION_ERROR;
3703: END IF;
3696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling create_link_service_line');
3697: END IF;
3698:
3699: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3701: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3702: raise OKC_API.G_EXCEPTION_ERROR;
3703: END IF;
3704:
3697: END IF;
3698:
3699: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3701: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3702: raise OKC_API.G_EXCEPTION_ERROR;
3703: END IF;
3704:
3705: --
3698:
3699: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3701: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3702: raise OKC_API.G_EXCEPTION_ERROR;
3703: END IF;
3704:
3705: --
3706: -- Create LINK transaction
3719: x_tcnv_rec => x_tcnv_rec
3720: );
3721:
3722:
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3726: raise OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3720: );
3721:
3722:
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3726: raise OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3728:
3721:
3722:
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3726: raise OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3728:
3729: --
3722:
3723: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3724: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3725: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3726: raise OKC_API.G_EXCEPTION_ERROR;
3727: END IF;
3728:
3729: --
3730: -- Start Serial processing
3738: p_free_form1_id => check_serial_rec.id1,
3739: p_okl_srv_line_id => x_okl_service_line_id
3740: );
3741:
3742: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3743: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3744: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3745: raise OKC_API.G_EXCEPTION_ERROR;
3746: END IF;
3739: p_okl_srv_line_id => x_okl_service_line_id
3740: );
3741:
3742: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3743: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3744: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3745: raise OKC_API.G_EXCEPTION_ERROR;
3746: END IF;
3747:
3740: );
3741:
3742: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3743: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3744: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3745: raise OKC_API.G_EXCEPTION_ERROR;
3746: END IF;
3747:
3748: END LOOP;
3741:
3742: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3743: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3744: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3745: raise OKC_API.G_EXCEPTION_ERROR;
3746: END IF;
3747:
3748: END LOOP;
3749: -- End Serial processing
3772: G_APP_NAME,
3773: G_SRV_NO_ASSET_MATCH
3774: );
3775: x_return_status := OKL_API.G_RET_STS_ERROR;
3776: raise OKC_API.G_EXCEPTION_ERROR;
3777: END IF;
3778:
3779: CLOSE okl_asset_csr;
3780:
3809: );
3810: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3811: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3812: END IF;
3813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3816: raise OKC_API.G_EXCEPTION_ERROR;
3817: END IF;
3810: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3811: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3812: END IF;
3813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3816: raise OKC_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3811: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3812: END IF;
3813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3816: raise OKC_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3819: END IF;
3812: END IF;
3813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3816: raise OKC_API.G_EXCEPTION_ERROR;
3817: END IF;
3818:
3819: END IF;
3820:
3842: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3843: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling create_link_service_line');
3844: END IF;
3845:
3846: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3847: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3848: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3849: raise OKC_API.G_EXCEPTION_ERROR;
3850: END IF;
3843: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling create_link_service_line');
3844: END IF;
3845:
3846: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3847: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3848: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3849: raise OKC_API.G_EXCEPTION_ERROR;
3850: END IF;
3851:
3844: END IF;
3845:
3846: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3847: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3848: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3849: raise OKC_API.G_EXCEPTION_ERROR;
3850: END IF;
3851:
3852: --
3845:
3846: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3847: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3848: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3849: raise OKC_API.G_EXCEPTION_ERROR;
3850: END IF;
3851:
3852: --
3853: -- Create LINK transaction
3866: x_tcnv_rec => x_tcnv_rec
3867: );
3868:
3869:
3870: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3871: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3873: raise OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3867: );
3868:
3869:
3870: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3871: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3873: raise OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3875:
3868:
3869:
3870: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3871: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3873: raise OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3875:
3876: --
3869:
3870: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3871: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3873: raise OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3875:
3876: --
3877: -- Start Serial processing
3885: p_free_form1_id => check_serial_rec.id1,
3886: p_okl_srv_line_id => x_okl_service_line_id
3887: );
3888:
3889: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3890: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3892: raise OKC_API.G_EXCEPTION_ERROR;
3893: END IF;
3886: p_okl_srv_line_id => x_okl_service_line_id
3887: );
3888:
3889: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3890: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3892: raise OKC_API.G_EXCEPTION_ERROR;
3893: END IF;
3894:
3887: );
3888:
3889: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3890: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3892: raise OKC_API.G_EXCEPTION_ERROR;
3893: END IF;
3894:
3895: END LOOP;
3888:
3889: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3890: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3891: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3892: raise OKC_API.G_EXCEPTION_ERROR;
3893: END IF;
3894:
3895: END LOOP;
3896: -- End Serial processing
3920: G_APP_NAME,
3921: G_SRV_NO_ASSET_MATCH
3922: );
3923: x_return_status := OKL_API.G_RET_STS_ERROR;
3924: raise OKC_API.G_EXCEPTION_ERROR;
3925: END IF;
3926:
3927: CLOSE okl_asset_csr;
3928:
3957: );
3958: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3959: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3960: END IF;
3961: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3962: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3963: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3964: raise OKC_API.G_EXCEPTION_ERROR;
3965: END IF;
3958: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3959: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3960: END IF;
3961: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3962: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3963: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3964: raise OKC_API.G_EXCEPTION_ERROR;
3965: END IF;
3966:
3959: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3960: END IF;
3961: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3962: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3963: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3964: raise OKC_API.G_EXCEPTION_ERROR;
3965: END IF;
3966:
3967: END IF;
3960: END IF;
3961: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3962: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3963: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3964: raise OKC_API.G_EXCEPTION_ERROR;
3965: END IF;
3966:
3967: END IF;
3968:
3974: x_msg_data => x_msg_data);
3975:
3976: EXCEPTION
3977:
3978: when OKC_API.G_EXCEPTION_ERROR then
3979: IF (okl_asset_csr%ISOPEN) THEN
3980: CLOSE okl_asset_csr;
3981: END IF;
3982:
3979: IF (okl_asset_csr%ISOPEN) THEN
3980: CLOSE okl_asset_csr;
3981: END IF;
3982:
3983: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3984: p_api_name => l_api_name,
3985: p_pkg_name => G_PKG_NAME,
3986: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3987: x_msg_count => x_msg_count,
3982:
3983: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3984: p_api_name => l_api_name,
3985: p_pkg_name => G_PKG_NAME,
3986: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3987: x_msg_count => x_msg_count,
3988: x_msg_data => x_msg_data,
3989: p_api_type => G_API_TYPE);
3990:
3987: x_msg_count => x_msg_count,
3988: x_msg_data => x_msg_data,
3989: p_api_type => G_API_TYPE);
3990:
3991: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3992: IF (okl_asset_csr%ISOPEN) THEN
3993: CLOSE okl_asset_csr;
3994: END IF;
3995:
3992: IF (okl_asset_csr%ISOPEN) THEN
3993: CLOSE okl_asset_csr;
3994: END IF;
3995:
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 => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4000: x_msg_count => x_msg_count,
3995:
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 => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4000: x_msg_count => x_msg_count,
4001: x_msg_data => x_msg_data,
4002: p_api_type => G_API_TYPE);
4003:
4005: IF (okl_asset_csr%ISOPEN) THEN
4006: CLOSE okl_asset_csr;
4007: END IF;
4008:
4009: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4010: p_api_name => l_api_name,
4011: p_pkg_name => G_PKG_NAME,
4012: p_exc_name => 'OTHERS',
4013: x_msg_count => x_msg_count,
4062: IF (G_DEBUG_ENABLED = 'Y') THEN
4063: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4064: END IF;
4065:
4066: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4069: END IF;
4070:
4069: END IF;
4070:
4071: -- call START_ACTIVITY to create savepoint, check compatibility
4072: -- and initialize message list
4073: x_return_status := OKC_API.START_ACTIVITY(
4074: p_api_name => l_api_name,
4075: p_pkg_name => G_PKG_NAME,
4076: p_init_msg_list => p_init_msg_list,
4077: l_api_version => l_api_version,
4079: p_api_type => G_API_TYPE,
4080: x_return_status => x_return_status);
4081:
4082: -- check if activity started successfully
4083: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4086: raise OKC_API.G_EXCEPTION_ERROR;
4087: END IF;
4080: x_return_status => x_return_status);
4081:
4082: -- check if activity started successfully
4083: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4086: raise OKC_API.G_EXCEPTION_ERROR;
4087: END IF;
4088:
4081:
4082: -- check if activity started successfully
4083: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4086: raise OKC_API.G_EXCEPTION_ERROR;
4087: END IF;
4088:
4089: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4082: -- check if activity started successfully
4083: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4085: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4086: raise OKC_API.G_EXCEPTION_ERROR;
4087: END IF;
4088:
4089: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4090: i := 0;
4111: IF (i = 0) THEN
4112: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4113: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'No Serviec contract is linked to the lease contract');
4114: END IF;
4115: RAISE OKC_API.G_EXCEPTION_ERROR;
4116: ELSE
4117:
4118: --
4119: -- Create DE-LINK transaction
4132: x_tcnv_rec => x_tcnv_rec
4133: );
4134:
4135:
4136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4139: raise OKC_API.G_EXCEPTION_ERROR;
4140: END IF;
4133: );
4134:
4135:
4136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4139: raise OKC_API.G_EXCEPTION_ERROR;
4140: END IF;
4141:
4134:
4135:
4136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4139: raise OKC_API.G_EXCEPTION_ERROR;
4140: END IF;
4141:
4142: END IF;
4135:
4136: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4137: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4138: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4139: raise OKC_API.G_EXCEPTION_ERROR;
4140: END IF;
4141:
4142: END IF;
4143:
4149: x_msg_data => x_msg_data,
4150: p_crjv_tbl => l_crjv_tbl
4151: );
4152:
4153: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4154: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4155: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4156: raise OKC_API.G_EXCEPTION_ERROR;
4157: END IF;
4150: p_crjv_tbl => l_crjv_tbl
4151: );
4152:
4153: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4154: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4155: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4156: raise OKC_API.G_EXCEPTION_ERROR;
4157: END IF;
4158:
4151: );
4152:
4153: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4154: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4155: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4156: raise OKC_API.G_EXCEPTION_ERROR;
4157: END IF;
4158:
4159: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4152:
4153: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4154: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4155: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4156: raise OKC_API.G_EXCEPTION_ERROR;
4157: END IF;
4158:
4159: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4160: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'De-linked...');
4177: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4178: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||x_msg_data);
4179: END IF;
4180:
4181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4182: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4184: raise OKC_API.G_EXCEPTION_ERROR;
4185: END IF;
4178: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||x_msg_data);
4179: END IF;
4180:
4181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4182: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4184: raise OKC_API.G_EXCEPTION_ERROR;
4185: END IF;
4186:
4179: END IF;
4180:
4181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4182: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4184: raise OKC_API.G_EXCEPTION_ERROR;
4185: END IF;
4186:
4187: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4180:
4181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4182: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4183: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4184: raise OKC_API.G_EXCEPTION_ERROR;
4185: END IF;
4186:
4187: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4188: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Abandoned...');
4194: x_msg_data => x_msg_data);
4195:
4196: EXCEPTION
4197:
4198: when OKC_API.G_EXCEPTION_ERROR then
4199: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4200: p_api_name => l_api_name,
4201: p_pkg_name => G_PKG_NAME,
4202: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4195:
4196: EXCEPTION
4197:
4198: when OKC_API.G_EXCEPTION_ERROR then
4199: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4200: p_api_name => l_api_name,
4201: p_pkg_name => G_PKG_NAME,
4202: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4203: x_msg_count => x_msg_count,
4198: when OKC_API.G_EXCEPTION_ERROR then
4199: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4200: p_api_name => l_api_name,
4201: p_pkg_name => G_PKG_NAME,
4202: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4203: x_msg_count => x_msg_count,
4204: x_msg_data => x_msg_data,
4205: p_api_type => G_API_TYPE);
4206:
4203: x_msg_count => x_msg_count,
4204: x_msg_data => x_msg_data,
4205: p_api_type => G_API_TYPE);
4206:
4207: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4208: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4209: p_api_name => l_api_name,
4210: p_pkg_name => G_PKG_NAME,
4211: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4204: x_msg_data => x_msg_data,
4205: p_api_type => G_API_TYPE);
4206:
4207: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4208: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4209: p_api_name => l_api_name,
4210: p_pkg_name => G_PKG_NAME,
4211: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4212: x_msg_count => x_msg_count,
4207: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4208: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4209: p_api_name => l_api_name,
4210: p_pkg_name => G_PKG_NAME,
4211: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4212: x_msg_count => x_msg_count,
4213: x_msg_data => x_msg_data,
4214: p_api_type => G_API_TYPE);
4215:
4213: x_msg_data => x_msg_data,
4214: p_api_type => G_API_TYPE);
4215:
4216: when OTHERS then
4217: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4218: p_api_name => l_api_name,
4219: p_pkg_name => G_PKG_NAME,
4220: p_exc_name => 'OTHERS',
4221: x_msg_count => x_msg_count,
4381: IF (G_DEBUG_ENABLED = 'Y') THEN
4382: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4383: END IF;
4384:
4385: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4386: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4387: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4388: END IF;
4389:
4388: END IF;
4389:
4390: -- call START_ACTIVITY to create savepoint, check compatibility
4391: -- and initialize message list
4392: x_return_status := OKC_API.START_ACTIVITY(
4393: p_api_name => l_api_name,
4394: p_pkg_name => G_PKG_NAME,
4395: p_init_msg_list => p_init_msg_list,
4396: l_api_version => l_api_version,
4398: p_api_type => G_API_TYPE,
4399: x_return_status => x_return_status);
4400:
4401: -- check if activity started successfully
4402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4403: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4405: raise OKC_API.G_EXCEPTION_ERROR;
4406: END IF;
4399: x_return_status => x_return_status);
4400:
4401: -- check if activity started successfully
4402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4403: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4405: raise OKC_API.G_EXCEPTION_ERROR;
4406: END IF;
4407:
4400:
4401: -- check if activity started successfully
4402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4403: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4405: raise OKC_API.G_EXCEPTION_ERROR;
4406: END IF;
4407:
4408: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4401: -- check if activity started successfully
4402: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4403: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4404: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4405: raise OKC_API.G_EXCEPTION_ERROR;
4406: END IF;
4407:
4408: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4409: FOR link_asset_rec IN link_asset_csr(p_okl_chr_id)
4442: p_transaction_type => 'OKL_OTHER',
4443: x_trx_rec => l_txn_rec
4444: );
4445:
4446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4447: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4449: raise OKC_API.G_EXCEPTION_ERROR;
4450: END IF;
4443: x_trx_rec => l_txn_rec
4444: );
4445:
4446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4447: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4449: raise OKC_API.G_EXCEPTION_ERROR;
4450: END IF;
4451:
4444: );
4445:
4446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4447: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4449: raise OKC_API.G_EXCEPTION_ERROR;
4450: END IF;
4451:
4452: csi_item_instance_pub.expire_item_instance(
4445:
4446: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4447: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4448: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4449: raise OKC_API.G_EXCEPTION_ERROR;
4450: END IF;
4451:
4452: csi_item_instance_pub.expire_item_instance(
4453: p_api_version => p_api_version,
4462: x_msg_count => x_msg_count,
4463: x_msg_data => x_msg_data
4464: );
4465:
4466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4467: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4469: raise OKC_API.G_EXCEPTION_ERROR;
4470: END IF;
4463: x_msg_data => x_msg_data
4464: );
4465:
4466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4467: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4469: raise OKC_API.G_EXCEPTION_ERROR;
4470: END IF;
4471:
4464: );
4465:
4466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4467: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4469: raise OKC_API.G_EXCEPTION_ERROR;
4470: END IF;
4471:
4472: END IF; -- if l_ib_used
4465:
4466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4467: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4469: raise OKC_API.G_EXCEPTION_ERROR;
4470: END IF;
4471:
4472: END IF; -- if l_ib_used
4473:
4483: p_cimv_rec => l_cimv_rec,
4484: x_cimv_rec => x_cimv_rec
4485: );
4486:
4487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4490: raise OKC_API.G_EXCEPTION_ERROR;
4491: END IF;
4484: x_cimv_rec => x_cimv_rec
4485: );
4486:
4487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4490: raise OKC_API.G_EXCEPTION_ERROR;
4491: END IF;
4492:
4485: );
4486:
4487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4490: raise OKC_API.G_EXCEPTION_ERROR;
4491: END IF;
4492:
4493: END IF; -- If IB exists
4486:
4487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4488: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4489: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4490: raise OKC_API.G_EXCEPTION_ERROR;
4491: END IF;
4492:
4493: END IF; -- If IB exists
4494:
4502: x_msg_data => x_msg_data);
4503:
4504: EXCEPTION
4505:
4506: when OKC_API.G_EXCEPTION_ERROR then
4507: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4508: p_api_name => l_api_name,
4509: p_pkg_name => G_PKG_NAME,
4510: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4503:
4504: EXCEPTION
4505:
4506: when OKC_API.G_EXCEPTION_ERROR then
4507: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4508: p_api_name => l_api_name,
4509: p_pkg_name => G_PKG_NAME,
4510: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4511: x_msg_count => x_msg_count,
4506: when OKC_API.G_EXCEPTION_ERROR then
4507: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4508: p_api_name => l_api_name,
4509: p_pkg_name => G_PKG_NAME,
4510: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4511: x_msg_count => x_msg_count,
4512: x_msg_data => x_msg_data,
4513: p_api_type => G_API_TYPE);
4514:
4511: x_msg_count => x_msg_count,
4512: x_msg_data => x_msg_data,
4513: p_api_type => G_API_TYPE);
4514:
4515: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4516: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4517: p_api_name => l_api_name,
4518: p_pkg_name => G_PKG_NAME,
4519: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4512: x_msg_data => x_msg_data,
4513: p_api_type => G_API_TYPE);
4514:
4515: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4516: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4517: p_api_name => l_api_name,
4518: p_pkg_name => G_PKG_NAME,
4519: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4520: x_msg_count => x_msg_count,
4515: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4516: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4517: p_api_name => l_api_name,
4518: p_pkg_name => G_PKG_NAME,
4519: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4520: x_msg_count => x_msg_count,
4521: x_msg_data => x_msg_data,
4522: p_api_type => G_API_TYPE);
4523:
4521: x_msg_data => x_msg_data,
4522: p_api_type => G_API_TYPE);
4523:
4524: when OTHERS then
4525: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4526: p_api_name => l_api_name,
4527: p_pkg_name => G_PKG_NAME,
4528: p_exc_name => 'OTHERS',
4529: x_msg_count => x_msg_count,
4562: IF (G_DEBUG_ENABLED = 'Y') THEN
4563: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4564: END IF;
4565:
4566: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4567: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4568: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4569: END IF;
4570:
4569: END IF;
4570:
4571: -- call START_ACTIVITY to create savepoint, check compatibility
4572: -- and initialize message list
4573: x_return_status := OKC_API.START_ACTIVITY(
4574: p_api_name => l_api_name,
4575: p_pkg_name => G_PKG_NAME,
4576: p_init_msg_list => p_init_msg_list,
4577: l_api_version => l_api_version,
4579: p_api_type => G_API_TYPE,
4580: x_return_status => x_return_status);
4581:
4582: -- check if activity started successfully
4583: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4584: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4586: raise OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4580: x_return_status => x_return_status);
4581:
4582: -- check if activity started successfully
4583: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4584: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4586: raise OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588:
4581:
4582: -- check if activity started successfully
4583: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4584: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4586: raise OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588:
4589: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4582: -- check if activity started successfully
4583: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4584: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4586: raise OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588:
4589: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4590:
4600: p_sty_id => p_sty_id, -- Bug 4011710
4601: x_okl_service_line_id => x_okl_service_line_id
4602: );
4603:
4604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4605: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4607: raise OKC_API.G_EXCEPTION_ERROR;
4608: END IF;
4601: x_okl_service_line_id => x_okl_service_line_id
4602: );
4603:
4604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4605: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4607: raise OKC_API.G_EXCEPTION_ERROR;
4608: END IF;
4609:
4602: );
4603:
4604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4605: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4607: raise OKC_API.G_EXCEPTION_ERROR;
4608: END IF;
4609:
4610: okl_service_integration_pvt.initiate_service_booking(
4603:
4604: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4605: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4606: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4607: raise OKC_API.G_EXCEPTION_ERROR;
4608: END IF;
4609:
4610: okl_service_integration_pvt.initiate_service_booking(
4611: p_api_version => p_api_version,
4615: x_msg_data => x_msg_data,
4616: p_okl_chr_id => p_okl_chr_id
4617: );
4618:
4619: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4621: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4622: raise OKC_API.G_EXCEPTION_ERROR;
4623: END IF;
4616: p_okl_chr_id => p_okl_chr_id
4617: );
4618:
4619: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4621: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4622: raise OKC_API.G_EXCEPTION_ERROR;
4623: END IF;
4624:
4617: );
4618:
4619: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4621: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4622: raise OKC_API.G_EXCEPTION_ERROR;
4623: END IF;
4624:
4625: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4618:
4619: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4621: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4622: raise OKC_API.G_EXCEPTION_ERROR;
4623: END IF;
4624:
4625: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4626:
4628: x_msg_data => x_msg_data);
4629:
4630: EXCEPTION
4631:
4632: when OKC_API.G_EXCEPTION_ERROR then
4633:
4634: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4635: p_api_name => l_api_name,
4636: p_pkg_name => G_PKG_NAME,
4630: EXCEPTION
4631:
4632: when OKC_API.G_EXCEPTION_ERROR then
4633:
4634: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4635: p_api_name => l_api_name,
4636: p_pkg_name => G_PKG_NAME,
4637: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4638: x_msg_count => x_msg_count,
4633:
4634: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4635: p_api_name => l_api_name,
4636: p_pkg_name => G_PKG_NAME,
4637: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4638: x_msg_count => x_msg_count,
4639: x_msg_data => x_msg_data,
4640: p_api_type => G_API_TYPE);
4641:
4638: x_msg_count => x_msg_count,
4639: x_msg_data => x_msg_data,
4640: p_api_type => G_API_TYPE);
4641:
4642: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4643:
4644: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4645: p_api_name => l_api_name,
4646: p_pkg_name => G_PKG_NAME,
4640: p_api_type => G_API_TYPE);
4641:
4642: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
4643:
4644: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4645: p_api_name => l_api_name,
4646: p_pkg_name => G_PKG_NAME,
4647: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4648: x_msg_count => x_msg_count,
4643:
4644: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4645: p_api_name => l_api_name,
4646: p_pkg_name => G_PKG_NAME,
4647: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4648: x_msg_count => x_msg_count,
4649: x_msg_data => x_msg_data,
4650: p_api_type => G_API_TYPE);
4651:
4650: p_api_type => G_API_TYPE);
4651:
4652: when OTHERS then
4653:
4654: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4655: p_api_name => l_api_name,
4656: p_pkg_name => G_PKG_NAME,
4657: p_exc_name => 'OTHERS',
4658: x_msg_count => x_msg_count,