427: -- Version : 1.0
428: -- End of comments
429: PROCEDURE create_from_template(
430: p_api_version IN NUMBER,
431: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
432: x_return_status OUT NOCOPY VARCHAR2,
433: x_msg_count OUT NOCOPY NUMBER,
434: x_msg_data OUT NOCOPY VARCHAR2,
435: p_contract_number IN VARCHAR2,
482: x_msg_data => x_msg_data,
483: p_chr_id => p_source_chr_id,
484: p_contract_number => p_contract_number,
485: p_contract_number_modifier => null,
486: p_renew_ref_yn => OKC_API.G_FALSE,
487: p_trans_type => 'CFA',
488: x_chr_id => x_chr_id);
489: ELSE
490: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
495: x_msg_data => x_msg_data,
496: p_chr_id => p_source_chr_id,
497: p_contract_number => p_contract_number,
498: p_contract_number_modifier => NULL,
499: p_renew_ref_yn => OKC_API.G_FALSE,
500: p_trans_type => 'CFA',
501: x_chr_id => x_chr_id);
502: END IF;
503:
545: -- Version : 1.0
546: -- End of comments
547: PROCEDURE create_from_contract(
548: p_api_version IN NUMBER,
549: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
550: x_return_status OUT NOCOPY VARCHAR2,
551: x_msg_count OUT NOCOPY NUMBER,
552: x_msg_data OUT NOCOPY VARCHAR2,
553: p_contract_number IN VARCHAR2,
580: x_msg_data => x_msg_data,
581: p_chr_id => p_source_chr_id,
582: p_contract_number => p_contract_number,
583: p_contract_number_modifier => null,
584: p_renew_ref_yn => OKC_API.G_FALSE,
585: p_trans_type => 'CFA',
586: x_chr_id => x_chr_id);
587: ELSE
588: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
593: x_msg_data => x_msg_data,
594: p_chr_id => p_source_chr_id,
595: p_contract_number => p_contract_number,
596: p_contract_number_modifier => NULL,
597: p_renew_ref_yn => OKC_API.G_FALSE,
598: p_trans_type => 'CFA',
599: x_chr_id => x_chr_id);
600: END IF;
601:
598: p_trans_type => 'CFA',
599: x_chr_id => x_chr_id);
600: END IF;
601:
602: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
604: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
605: RAISE OKC_API.G_EXCEPTION_ERROR;
606: END IF;
599: x_chr_id => x_chr_id);
600: END IF;
601:
602: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
604: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
605: RAISE OKC_API.G_EXCEPTION_ERROR;
606: END IF;
607:
600: END IF;
601:
602: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
604: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
605: RAISE OKC_API.G_EXCEPTION_ERROR;
606: END IF;
607:
608: END;
601:
602: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
604: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
605: RAISE OKC_API.G_EXCEPTION_ERROR;
606: END IF;
607:
608: END;
609:
840: WHERE rgp_id = p_rgp_id
841: AND rule_information_category IN ('LASLH','LASLL');
842:
843: BEGIN
844: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
845:
846: -- Delete SLH, SLL from Original Contract
847: i := 1;
848:
857: END LOOP;
858:
859: Okl_Rule_Pub.delete_rule(
860: p_api_version => 1.0,
861: p_init_msg_list => Okc_Api.G_FALSE,
862: x_return_status => x_return_status,
863: x_msg_count => x_msg_count,
864: x_msg_data => x_msg_data,
865: p_rulv_tbl => l_rulv_tbl
863: x_msg_count => x_msg_count,
864: x_msg_data => x_msg_data,
865: p_rulv_tbl => l_rulv_tbl
866: );
867: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
868: RAISE sync_failed;
869: END IF;
870:
871: l_old_rgpv_rec.id := p_old_rgp_id;
882: x_msg_data => x_msg_data,
883: x_rulv_tbl => x_slh_rulv_tbl,
884: x_rule_count => x_slh_rule_count
885: );
886: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
887: RAISE sync_failed;
888: END IF;
889:
890: --x_slh_rulv_tbl_out := x_slh_rulv_tbl;
900: l_slh_rulv_rec.dnz_chr_id := p_new_chr_id;
901:
902: Okl_Rule_Pub.create_rule(
903: p_api_version => 1.0,
904: p_init_msg_list => Okc_Api.G_FALSE,
905: x_return_status => x_return_status,
906: x_msg_count => x_msg_count,
907: x_msg_data => x_msg_data,
908: p_rulv_rec => l_slh_rulv_rec,
907: x_msg_data => x_msg_data,
908: p_rulv_rec => l_slh_rulv_rec,
909: x_rulv_rec => x_new_slh_rulv_rec
910: );
911: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
912: x_return_status := Okc_Api.G_RET_STS_ERROR;
913: RAISE sync_failed;
914: END IF;
915:
908: p_rulv_rec => l_slh_rulv_rec,
909: x_rulv_rec => x_new_slh_rulv_rec
910: );
911: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
912: x_return_status := Okc_Api.G_RET_STS_ERROR;
913: RAISE sync_failed;
914: END IF;
915:
916: --
925: p_slh_id => x_slh_rulv_tbl(i).id,
926: x_rulv_tbl => x_sll_rulv_tbl,
927: x_rule_count => x_sll_rule_count
928: );
929: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
930: RAISE sync_failed;
931: END IF;
932:
933: --x_sll_rulv_tbl_out := x_sll_rulv_tbl;
943: l_sll_rulv_rec.dnz_chr_id := p_new_chr_id;
944:
945: Okl_Rule_Pub.create_rule(
946: p_api_version => 1.0,
947: p_init_msg_list => Okc_Api.G_FALSE,
948: x_return_status => x_return_status,
949: x_msg_count => x_msg_count,
950: x_msg_data => x_msg_data,
951: p_rulv_rec => l_sll_rulv_rec,
950: x_msg_data => x_msg_data,
951: p_rulv_rec => l_sll_rulv_rec,
952: x_rulv_rec => x_rulv_rec
953: );
954: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
955: x_return_status := Okc_Api.G_RET_STS_ERROR;
956: RAISE sync_failed;
957: END IF;
958: END LOOP; -- SLL
951: p_rulv_rec => l_sll_rulv_rec,
952: x_rulv_rec => x_rulv_rec
953: );
954: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
955: x_return_status := Okc_Api.G_RET_STS_ERROR;
956: RAISE sync_failed;
957: END IF;
958: END LOOP; -- SLL
959:
960: END LOOP; -- SLH
961:
962: EXCEPTION
963: WHEN sync_failed THEN
964: x_return_status := Okc_Api.G_RET_STS_ERROR;
965: END sync_slh_sll;
966:
967: -- Start Bug 2376998
968: ------------------------------------------------------------------------------
1043: p_new_chr_id => p_new_chr_id,
1044: p_old_rgp_id => l_old_lalevl_id,
1045: p_new_rgp_id => l_new_lalevl_id
1046: );
1047: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1048: RAISE Okl_Api.G_EXCEPTION_ERROR;
1049: END IF;
1050: END LOOP;
1051:
1050: END LOOP;
1051:
1052: EXCEPTION
1053: WHEN link_failed THEN
1054: x_return_status := OKC_API.G_RET_STS_ERROR;
1055: END link_slh_sll;
1056:
1057: PROCEDURE link_slh_sll(
1058: x_return_status OUT NOCOPY VARCHAR2,
1119: p_new_chr_id => p_new_chr_id,
1120: p_old_rgp_id => l_old_lalevl_id,
1121: p_new_rgp_id => l_new_lalevl_id
1122: );
1123: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1124: RAISE OKL_API.G_EXCEPTION_ERROR;
1125: END IF;
1126: END LOOP;
1127:
1126: END LOOP;
1127:
1128: EXCEPTION
1129: WHEN link_failed THEN
1130: x_return_status := OKC_API.G_RET_STS_ERROR;
1131: END link_slh_sll;
1132:
1133:
1134: PROCEDURE copy_contract(
1132:
1133:
1134: PROCEDURE copy_contract(
1135: p_api_version IN NUMBER,
1136: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1137: x_return_status OUT NOCOPY VARCHAR2,
1138: x_msg_count OUT NOCOPY NUMBER,
1139: x_msg_data OUT NOCOPY VARCHAR2,
1140: p_contract_number IN VARCHAR2,
1245:
1246: -- read hdr info from the quote contract and create a lease contract
1247: -- use get_rec to read the info
1248:
1249: x_return_status := OKC_API.START_ACTIVITY(
1250: p_api_name => l_api_name,
1251: p_pkg_name => g_pkg_name,
1252: p_init_msg_list => p_init_msg_list,
1253: l_api_version => l_api_version,
1255: p_api_type => g_api_type,
1256: x_return_status => x_return_status);
1257:
1258: -- check if activity started successfully
1259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1262: RAISE OKC_API.G_EXCEPTION_ERROR;
1263: END IF;
1256: x_return_status => x_return_status);
1257:
1258: -- check if activity started successfully
1259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1262: RAISE OKC_API.G_EXCEPTION_ERROR;
1263: END IF;
1264:
1257:
1258: -- check if activity started successfully
1259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1262: RAISE OKC_API.G_EXCEPTION_ERROR;
1263: END IF;
1264:
1265: lp_chrv_rec.id := NULL;
1258: -- check if activity started successfully
1259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1262: RAISE OKC_API.G_EXCEPTION_ERROR;
1263: END IF;
1264:
1265: lp_chrv_rec.id := NULL;
1266: l_cust_acct_id := NULL;
1269: FETCH get_curr_csr INTO lp_chrv_rec.id,l_currency_code,l_currency_conversion_type,l_currency_conversion_date,l_currency_conversion_rate, l_cust_acct_id,l_khr_id;
1270: CLOSE get_curr_csr;
1271:
1272: IF lp_chrv_rec.id IS NULL THEN
1273: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
1274: x_return_status := OKC_API.g_ret_sts_error;
1275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1276: END IF;
1277:
1270: CLOSE get_curr_csr;
1271:
1272: IF lp_chrv_rec.id IS NULL THEN
1273: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
1274: x_return_status := OKC_API.g_ret_sts_error;
1275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1276: END IF;
1277:
1278:
1271:
1272: IF lp_chrv_rec.id IS NULL THEN
1273: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'quote_chr_id_not_found');
1274: x_return_status := OKC_API.g_ret_sts_error;
1275: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1276: END IF;
1277:
1278:
1279: lp_khrv_rec.id := lp_chrv_rec.id;
1325: x_msg_data => x_msg_data,
1326: p_chrv_rec => lp_chrv_rec,
1327: p_khrv_rec => lp_khrv_rec);
1328:
1329: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1331: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1332: raise OKC_API.G_EXCEPTION_ERROR;
1333: End If;
1326: p_chrv_rec => lp_chrv_rec,
1327: p_khrv_rec => lp_khrv_rec);
1328:
1329: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1331: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1332: raise OKC_API.G_EXCEPTION_ERROR;
1333: End If;
1334: */
1327: p_khrv_rec => lp_khrv_rec);
1328:
1329: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1331: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1332: raise OKC_API.G_EXCEPTION_ERROR;
1333: End If;
1334: */
1335: OKL_CONTRACT_PUB.create_contract_header(
1328:
1329: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1331: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1332: raise OKC_API.G_EXCEPTION_ERROR;
1333: End If;
1334: */
1335: OKL_CONTRACT_PUB.create_contract_header(
1336: p_api_version => p_api_version,
1342: p_khrv_rec => lp_khrv_rec,
1343: x_chrv_rec => lx_chrv_rec,
1344: x_khrv_rec => lx_khrv_rec);
1345:
1346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1343: x_chrv_rec => lx_chrv_rec,
1344: x_khrv_rec => lx_khrv_rec);
1345:
1346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351:
1344: x_khrv_rec => lx_khrv_rec);
1345:
1346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351:
1352: x_chr_id := lx_chrv_rec.id;
1345:
1346: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1349: RAISE OKC_API.G_EXCEPTION_ERROR;
1350: END IF;
1351:
1352: x_chr_id := lx_chrv_rec.id;
1353: l_chr_id := x_chr_id;
1373: x_msg_data => x_msg_data,
1374: p_gvev_rec => lp_mla_gvev_rec,
1375: x_gvev_rec => lx_mla_gvev_rec);
1376:
1377: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_ERROR;
1381: END IF;
1374: p_gvev_rec => lp_mla_gvev_rec,
1375: x_gvev_rec => lx_mla_gvev_rec);
1376:
1377: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_ERROR;
1381: END IF;
1382:
1375: x_gvev_rec => lx_mla_gvev_rec);
1376:
1377: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_ERROR;
1381: END IF;
1382:
1383: END IF;
1376:
1377: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1378: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1379: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_ERROR;
1381: END IF;
1382:
1383: END IF;
1384:
1397: p_chr_id => l_chr_id,
1398: P_rle_code => NULL,
1399: x_cpl_id => l_cpl_id);
1400:
1401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1398: P_rle_code => NULL,
1399: x_cpl_id => l_cpl_id);
1400:
1401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406:
1399: x_cpl_id => l_cpl_id);
1400:
1401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406:
1407: END LOOP;
1400:
1401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_ERROR;
1405: END IF;
1406:
1407: END LOOP;
1408:
1424: p_chr_id => l_chr_id, -- the new generated contract header id
1425: p_to_template_yn => 'N',
1426: x_rgp_id => l_rgp_id);
1427:
1428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1431: RAISE OKC_API.G_EXCEPTION_ERROR;
1432: END IF;
1425: p_to_template_yn => 'N',
1426: x_rgp_id => l_rgp_id);
1427:
1428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1431: RAISE OKC_API.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1426: x_rgp_id => l_rgp_id);
1427:
1428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1431: RAISE OKC_API.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1434: END LOOP;
1427:
1428: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1429: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1431: RAISE OKC_API.G_EXCEPTION_ERROR;
1432: END IF;
1433:
1434: END LOOP;
1435:
1462: p_renew_ref_yn => 'N',
1463: p_trans_type => 'CFA',
1464: x_cle_id_tbl => x_cle_id_tbl);
1465:
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1463: p_trans_type => 'CFA',
1464: x_cle_id_tbl => x_cle_id_tbl);
1465:
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1471:
1464: x_cle_id_tbl => x_cle_id_tbl);
1465:
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1471:
1472: END IF;
1465:
1466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1471:
1472: END IF;
1473:
1488: p_new_cle_id => l_cle_id,
1489: p_new_chr_id => l_chr_id
1490: );
1491:
1492: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1493: RAISE OKL_API.G_EXCEPTION_ERROR;
1494: END IF;
1495:
1496: END LOOP;
1507: p_old_chr_id => p_source_chr_id,
1508: p_new_chr_id => l_chr_id
1509: );
1510:
1511: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514:
1515:
1508: p_new_chr_id => l_chr_id
1509: );
1510:
1511: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514:
1515:
1516: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514:
1515:
1516: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1517:
1518: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1519:
1520: EXCEPTION
1514:
1515:
1516: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1517:
1518: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1519:
1520: EXCEPTION
1521: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1522: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1517:
1518: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1519:
1520: EXCEPTION
1521: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1522: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1523: p_api_name => l_api_name,
1524: p_pkg_name => g_pkg_name,
1525: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1518: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1519:
1520: EXCEPTION
1521: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1522: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1523: p_api_name => l_api_name,
1524: p_pkg_name => g_pkg_name,
1525: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1526: x_msg_count => x_msg_count,
1521: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1522: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1523: p_api_name => l_api_name,
1524: p_pkg_name => g_pkg_name,
1525: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1526: x_msg_count => x_msg_count,
1527: x_msg_data => x_msg_data,
1528: p_api_type => g_api_type);
1529:
1526: x_msg_count => x_msg_count,
1527: x_msg_data => x_msg_data,
1528: p_api_type => g_api_type);
1529:
1530: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1531: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1532: p_api_name => l_api_name,
1533: p_pkg_name => g_pkg_name,
1534: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1527: x_msg_data => x_msg_data,
1528: p_api_type => g_api_type);
1529:
1530: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1531: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1532: p_api_name => l_api_name,
1533: p_pkg_name => g_pkg_name,
1534: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1535: x_msg_count => x_msg_count,
1530: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1531: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1532: p_api_name => l_api_name,
1533: p_pkg_name => g_pkg_name,
1534: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1535: x_msg_count => x_msg_count,
1536: x_msg_data => x_msg_data,
1537: p_api_type => g_api_type);
1538:
1536: x_msg_data => x_msg_data,
1537: p_api_type => g_api_type);
1538:
1539: WHEN OTHERS THEN
1540: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1541: p_api_name => l_api_name,
1542: p_pkg_name => g_pkg_name,
1543: p_exc_name => 'OTHERS',
1544: x_msg_count => x_msg_count,
1556: -- Version : 1.0
1557: -- End of comments
1558: PROCEDURE create_from_quote(
1559: p_api_version IN NUMBER,
1560: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1561: x_return_status OUT NOCOPY VARCHAR2,
1562: x_msg_count OUT NOCOPY NUMBER,
1563: x_msg_data OUT NOCOPY VARCHAR2,
1564: p_contract_number IN VARCHAR2,
1582: p_parent_object_code => p_source_object_code,
1583: p_parent_object_id => p_source_chr_id,
1584: x_chr_id => x_chr_id);
1585:
1586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;
1583: p_parent_object_id => p_source_chr_id,
1584: x_chr_id => x_chr_id);
1585:
1586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;
1591: */
1584: x_chr_id => x_chr_id);
1585:
1586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;
1591: */
1592: x_chr_id := x_chr_id;
1585:
1586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1589: RAISE OKC_API.G_EXCEPTION_ERROR;
1590: END IF;
1591: */
1592: x_chr_id := x_chr_id;
1593:
1604: -- Version : 1.0
1605: -- End of comments
1606: PROCEDURE create_from_quote(
1607: p_api_version IN NUMBER,
1608: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1609: x_return_status OUT NOCOPY VARCHAR2,
1610: x_msg_count OUT NOCOPY NUMBER,
1611: x_msg_data OUT NOCOPY VARCHAR2,
1612: p_contract_number IN VARCHAR2,
1636: x_chr_id => x_chr_id,
1637: x_contract_number => x_contract_number
1638: );
1639:
1640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_ERROR;
1644: END IF;
1637: x_contract_number => x_contract_number
1638: );
1639:
1640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_ERROR;
1644: END IF;
1645:
1638: );
1639:
1640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_ERROR;
1644: END IF;
1645:
1646: x_chr_id := x_chr_id;
1639:
1640: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1642: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_ERROR;
1644: END IF;
1645:
1646: x_chr_id := x_chr_id;
1647:
1656: -- Version : 1.0
1657: -- End of comments
1658: PROCEDURE create_new_deal(
1659: p_api_version IN NUMBER,
1660: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1661: x_return_status OUT NOCOPY VARCHAR2,
1662: x_msg_count OUT NOCOPY NUMBER,
1663: x_msg_data OUT NOCOPY VARCHAR2,
1664: p_contract_number IN VARCHAR2,
1697: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
1698: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
1699:
1700: BEGIN
1701: x_return_status := OKC_API.START_ACTIVITY(
1702: p_api_name => l_api_name,
1703: p_pkg_name => g_pkg_name,
1704: p_init_msg_list => p_init_msg_list,
1705: l_api_version => l_api_version,
1707: p_api_type => g_api_type,
1708: x_return_status => x_return_status);
1709:
1710: -- check if activity started successfully
1711: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1714: RAISE OKC_API.G_EXCEPTION_ERROR;
1715: END IF;
1708: x_return_status => x_return_status);
1709:
1710: -- check if activity started successfully
1711: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1714: RAISE OKC_API.G_EXCEPTION_ERROR;
1715: END IF;
1716:
1709:
1710: -- check if activity started successfully
1711: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1714: RAISE OKC_API.G_EXCEPTION_ERROR;
1715: END IF;
1716:
1717: lp_chrv_rec.sfwt_flag := 'N';
1710: -- check if activity started successfully
1711: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1712: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1713: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1714: RAISE OKC_API.G_EXCEPTION_ERROR;
1715: END IF;
1716:
1717: lp_chrv_rec.sfwt_flag := 'N';
1718: lp_chrv_rec.object_version_number := 1.0;
1744: x_msg_data => x_msg_data,
1745: p_chrv_rec => lp_chrv_rec,
1746: p_khrv_rec => lp_khrv_rec);
1747:
1748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1745: p_chrv_rec => lp_chrv_rec,
1746: p_khrv_rec => lp_khrv_rec);
1747:
1748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1746: p_khrv_rec => lp_khrv_rec);
1747:
1748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: OKL_CONTRACT_PUB.create_contract_header(
1747:
1748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: OKL_CONTRACT_PUB.create_contract_header(
1755: p_api_version => p_api_version,
1761: p_khrv_rec => lp_khrv_rec,
1762: x_chrv_rec => lx_chrv_rec,
1763: x_khrv_rec => lx_khrv_rec);
1764:
1765: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1766: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1767: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1768: RAISE OKC_API.G_EXCEPTION_ERROR;
1769: END IF;
1762: x_chrv_rec => lx_chrv_rec,
1763: x_khrv_rec => lx_khrv_rec);
1764:
1765: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1766: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1767: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1768: RAISE OKC_API.G_EXCEPTION_ERROR;
1769: END IF;
1770:
1763: x_khrv_rec => lx_khrv_rec);
1764:
1765: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1766: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1767: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1768: RAISE OKC_API.G_EXCEPTION_ERROR;
1769: END IF;
1770:
1771: x_chr_id := lx_chrv_rec.id;
1764:
1765: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1766: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1767: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1768: RAISE OKC_API.G_EXCEPTION_ERROR;
1769: END IF;
1770:
1771: x_chr_id := lx_chrv_rec.id;
1772:
1771: x_chr_id := lx_chrv_rec.id;
1772:
1773: -- now we attach the party to the header
1774: lp_cplv_rec.object_version_number := 1.0;
1775: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
1776: lp_cplv_rec.dnz_chr_id := x_chr_id;
1777: lp_cplv_rec.chr_id := x_chr_id;
1778: lp_cplv_rec.cle_id := NULL;
1779: lp_cplv_rec.object1_id1 := p_customer_id1;
1790: x_msg_count => x_msg_count,
1791: x_msg_data => x_msg_data,
1792: p_cplv_rec => lp_cplv_rec);
1793:
1794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1795: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1791: x_msg_data => x_msg_data,
1792: p_cplv_rec => lp_cplv_rec);
1793:
1794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1795: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1799:
1792: p_cplv_rec => lp_cplv_rec);
1793:
1794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1795: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1799:
1800: ----- Changes by Kanti
1793:
1794: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1795: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1796: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1799:
1800: ----- Changes by Kanti
1801: ----- Validate the JTOT Object code, ID1 and ID2
1806:
1807: IF (l_access_level = 'S') THEN
1808:
1809: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
1810: p_init_msg_list => OKC_API.G_FALSE,
1811: x_return_status => x_return_status,
1812: x_msg_count => x_msg_count,
1813: x_msg_data => x_msg_data,
1814: p_object_name => lp_cplv_rec.jtot_object1_code,
1813: x_msg_data => x_msg_data,
1814: p_object_name => lp_cplv_rec.jtot_object1_code,
1815: p_id1 => lp_cplv_rec.object1_id1,
1816: p_id2 => lp_cplv_rec.object1_id2);
1817: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1814: p_object_name => lp_cplv_rec.jtot_object1_code,
1815: p_id1 => lp_cplv_rec.object1_id1,
1816: p_id2 => lp_cplv_rec.object1_id2);
1817: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822:
1815: p_id1 => lp_cplv_rec.object1_id1,
1816: p_id2 => lp_cplv_rec.object1_id2);
1817: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822:
1823: END IF;
1816: p_id2 => lp_cplv_rec.object1_id2);
1817: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822:
1823: END IF;
1824:
1858: x_cplv_rec => lx_cplv_rec1,
1859: p_kplv_rec => lp_kplv_rec,
1860: x_kplv_rec => lx_kplv_rec);
1861:
1862: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1859: p_kplv_rec => lp_kplv_rec,
1860: x_kplv_rec => lx_kplv_rec);
1861:
1862: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: END IF;
1860: x_kplv_rec => lx_kplv_rec);
1861:
1862: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: END IF;
1868:
1861:
1862: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: END IF;
1868:
1869: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: END IF;
1868:
1869: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1870:
1871: EXCEPTION
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1868:
1869: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1870:
1871: EXCEPTION
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1874: p_api_name => l_api_name,
1875: p_pkg_name => g_pkg_name,
1876: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1869: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1870:
1871: EXCEPTION
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1874: p_api_name => l_api_name,
1875: p_pkg_name => g_pkg_name,
1876: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1877: x_msg_count => x_msg_count,
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1874: p_api_name => l_api_name,
1875: p_pkg_name => g_pkg_name,
1876: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1877: x_msg_count => x_msg_count,
1878: x_msg_data => x_msg_data,
1879: p_api_type => g_api_type);
1880:
1877: x_msg_count => x_msg_count,
1878: x_msg_data => x_msg_data,
1879: p_api_type => g_api_type);
1880:
1881: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1882: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1883: p_api_name => l_api_name,
1884: p_pkg_name => g_pkg_name,
1885: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1878: x_msg_data => x_msg_data,
1879: p_api_type => g_api_type);
1880:
1881: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1882: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1883: p_api_name => l_api_name,
1884: p_pkg_name => g_pkg_name,
1885: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1886: x_msg_count => x_msg_count,
1881: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1882: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1883: p_api_name => l_api_name,
1884: p_pkg_name => g_pkg_name,
1885: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1886: x_msg_count => x_msg_count,
1887: x_msg_data => x_msg_data,
1888: p_api_type => g_api_type);
1889:
1887: x_msg_data => x_msg_data,
1888: p_api_type => g_api_type);
1889:
1890: WHEN OTHERS THEN
1891: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1892: p_api_name => l_api_name,
1893: p_pkg_name => g_pkg_name,
1894: p_exc_name => 'OTHERS',
1895: x_msg_count => x_msg_count,
1906: -- Version : 1.0
1907: -- End of comments
1908: PROCEDURE create_new_deal(
1909: p_api_version IN NUMBER,
1910: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1911: x_return_status OUT NOCOPY VARCHAR2,
1912: x_msg_count OUT NOCOPY NUMBER,
1913: x_msg_data OUT NOCOPY VARCHAR2,
1914: p_contract_number IN VARCHAR2,
1958: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
1959: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
1960:
1961: BEGIN
1962: x_return_status := OKC_API.START_ACTIVITY(
1963: p_api_name => l_api_name,
1964: p_pkg_name => g_pkg_name,
1965: p_init_msg_list => p_init_msg_list,
1966: l_api_version => l_api_version,
1968: p_api_type => g_api_type,
1969: x_return_status => x_return_status);
1970:
1971: -- check if activity started successfully
1972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_ERROR;
1976: END IF;
1969: x_return_status => x_return_status);
1970:
1971: -- check if activity started successfully
1972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_ERROR;
1976: END IF;
1977:
1970:
1971: -- check if activity started successfully
1972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_ERROR;
1976: END IF;
1977:
1978: lp_chrv_rec.sfwt_flag := 'N';
1971: -- check if activity started successfully
1972: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1974: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1975: RAISE OKC_API.G_EXCEPTION_ERROR;
1976: END IF;
1977:
1978: lp_chrv_rec.sfwt_flag := 'N';
1979: lp_chrv_rec.object_version_number := 1.0;
2005: x_msg_data => x_msg_data,
2006: p_chrv_rec => lp_chrv_rec,
2007: p_khrv_rec => lp_khrv_rec);
2008:
2009: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2012: RAISE OKC_API.G_EXCEPTION_ERROR;
2013: END IF;
2006: p_chrv_rec => lp_chrv_rec,
2007: p_khrv_rec => lp_khrv_rec);
2008:
2009: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2012: RAISE OKC_API.G_EXCEPTION_ERROR;
2013: END IF;
2014:
2007: p_khrv_rec => lp_khrv_rec);
2008:
2009: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2012: RAISE OKC_API.G_EXCEPTION_ERROR;
2013: END IF;
2014:
2015: OKL_CONTRACT_PUB.create_contract_header(
2008:
2009: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2010: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2012: RAISE OKC_API.G_EXCEPTION_ERROR;
2013: END IF;
2014:
2015: OKL_CONTRACT_PUB.create_contract_header(
2016: p_api_version => p_api_version,
2022: p_khrv_rec => lp_khrv_rec,
2023: x_chrv_rec => lx_chrv_rec,
2024: x_khrv_rec => lx_khrv_rec);
2025:
2026: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2027: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2028: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_ERROR;
2030: END IF;
2023: x_chrv_rec => lx_chrv_rec,
2024: x_khrv_rec => lx_khrv_rec);
2025:
2026: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2027: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2028: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_ERROR;
2030: END IF;
2031:
2024: x_khrv_rec => lx_khrv_rec);
2025:
2026: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2027: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2028: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_ERROR;
2030: END IF;
2031:
2032: x_chr_id := lx_chrv_rec.id;
2025:
2026: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2027: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2028: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2029: RAISE OKC_API.G_EXCEPTION_ERROR;
2030: END IF;
2031:
2032: x_chr_id := lx_chrv_rec.id;
2033:
2032: x_chr_id := lx_chrv_rec.id;
2033:
2034: -- now we attach the party to the header
2035: lp_cplv_rec.object_version_number := 1.0;
2036: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
2037: lp_cplv_rec.dnz_chr_id := x_chr_id;
2038: lp_cplv_rec.chr_id := x_chr_id;
2039: lp_cplv_rec.cle_id := NULL;
2040: lp_cplv_rec.object1_id1 := p_customer_id1;
2045: OPEN check_party_csr(x_chr_id);
2046: FETCH check_party_csr INTO row_count;
2047: CLOSE check_party_csr;
2048: IF row_count = 1 THEN
2049: x_return_status := OKC_API.g_ret_sts_error;
2050: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
2051: RAISE OKC_API.G_EXCEPTION_ERROR;
2052: END IF;
2053:
2046: FETCH check_party_csr INTO row_count;
2047: CLOSE check_party_csr;
2048: IF row_count = 1 THEN
2049: x_return_status := OKC_API.g_ret_sts_error;
2050: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
2051: RAISE OKC_API.G_EXCEPTION_ERROR;
2052: END IF;
2053:
2054: /*
2047: CLOSE check_party_csr;
2048: IF row_count = 1 THEN
2049: x_return_status := OKC_API.g_ret_sts_error;
2050: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
2051: RAISE OKC_API.G_EXCEPTION_ERROR;
2052: END IF;
2053:
2054: /*
2055: okl_la_validation_util_pvt.Validate_Party (
2067: p_id2 => p_customer_id2,
2068: p_name => p_customer_name,
2069: p_object_code => lp_cplv_rec.jtot_object1_code);
2070:
2071: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2072: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2074: raise OKC_API.G_EXCEPTION_ERROR;
2075: End If;
2068: p_name => p_customer_name,
2069: p_object_code => lp_cplv_rec.jtot_object1_code);
2070:
2071: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2072: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2074: raise OKC_API.G_EXCEPTION_ERROR;
2075: End If;
2076: */
2069: p_object_code => lp_cplv_rec.jtot_object1_code);
2070:
2071: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2072: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2074: raise OKC_API.G_EXCEPTION_ERROR;
2075: End If;
2076: */
2077:
2070:
2071: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2072: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2073: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2074: raise OKC_API.G_EXCEPTION_ERROR;
2075: End If;
2076: */
2077:
2078:
2085:
2086: IF (l_access_level = 'S') THEN
2087:
2088: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
2089: p_init_msg_list => OKC_API.G_FALSE,
2090: x_return_status => x_return_status,
2091: x_msg_count => x_msg_count,
2092: x_msg_data => x_msg_data,
2093: p_object_name => lp_cplv_rec.jtot_object1_code,
2092: x_msg_data => x_msg_data,
2093: p_object_name => lp_cplv_rec.jtot_object1_code,
2094: p_id1 => lp_cplv_rec.object1_id1,
2095: p_id2 => lp_cplv_rec.object1_id2);
2096: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2097: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2099: RAISE OKC_API.G_EXCEPTION_ERROR;
2100: END IF;
2093: p_object_name => lp_cplv_rec.jtot_object1_code,
2094: p_id1 => lp_cplv_rec.object1_id1,
2095: p_id2 => lp_cplv_rec.object1_id2);
2096: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2097: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2099: RAISE OKC_API.G_EXCEPTION_ERROR;
2100: END IF;
2101:
2094: p_id1 => lp_cplv_rec.object1_id1,
2095: p_id2 => lp_cplv_rec.object1_id2);
2096: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2097: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2099: RAISE OKC_API.G_EXCEPTION_ERROR;
2100: END IF;
2101:
2102: END IF;
2095: p_id2 => lp_cplv_rec.object1_id2);
2096: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2097: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2098: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2099: RAISE OKC_API.G_EXCEPTION_ERROR;
2100: END IF;
2101:
2102: END IF;
2103:
2127: x_cplv_rec => lx_cplv_rec,
2128: p_kplv_rec => lp_kplv_rec,
2129: x_kplv_rec => lx_kplv_rec);
2130:
2131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: RAISE OKC_API.G_EXCEPTION_ERROR;
2135: END IF;
2128: p_kplv_rec => lp_kplv_rec,
2129: x_kplv_rec => lx_kplv_rec);
2130:
2131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: RAISE OKC_API.G_EXCEPTION_ERROR;
2135: END IF;
2136:
2129: x_kplv_rec => lx_kplv_rec);
2130:
2131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: RAISE OKC_API.G_EXCEPTION_ERROR;
2135: END IF;
2136:
2137: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2130:
2131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: RAISE OKC_API.G_EXCEPTION_ERROR;
2135: END IF;
2136:
2137: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2138:
2133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2134: RAISE OKC_API.G_EXCEPTION_ERROR;
2135: END IF;
2136:
2137: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2138:
2139: EXCEPTION
2140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2136:
2137: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2138:
2139: EXCEPTION
2140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2142: p_api_name => l_api_name,
2143: p_pkg_name => g_pkg_name,
2144: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2137: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2138:
2139: EXCEPTION
2140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2142: p_api_name => l_api_name,
2143: p_pkg_name => g_pkg_name,
2144: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2145: x_msg_count => x_msg_count,
2140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2142: p_api_name => l_api_name,
2143: p_pkg_name => g_pkg_name,
2144: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2145: x_msg_count => x_msg_count,
2146: x_msg_data => x_msg_data,
2147: p_api_type => g_api_type);
2148:
2145: x_msg_count => x_msg_count,
2146: x_msg_data => x_msg_data,
2147: p_api_type => g_api_type);
2148:
2149: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2150: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2151: p_api_name => l_api_name,
2152: p_pkg_name => g_pkg_name,
2153: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2146: x_msg_data => x_msg_data,
2147: p_api_type => g_api_type);
2148:
2149: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2150: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2151: p_api_name => l_api_name,
2152: p_pkg_name => g_pkg_name,
2153: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2154: x_msg_count => x_msg_count,
2149: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2150: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2151: p_api_name => l_api_name,
2152: p_pkg_name => g_pkg_name,
2153: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2154: x_msg_count => x_msg_count,
2155: x_msg_data => x_msg_data,
2156: p_api_type => g_api_type);
2157:
2155: x_msg_data => x_msg_data,
2156: p_api_type => g_api_type);
2157:
2158: WHEN OTHERS THEN
2159: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2160: p_api_name => l_api_name,
2161: p_pkg_name => g_pkg_name,
2162: p_exc_name => 'OTHERS',
2163: x_msg_count => x_msg_count,
2175: -- Version : 1.0
2176: -- End of comments
2177: PROCEDURE create_new_deal(
2178: p_api_version IN NUMBER,
2179: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2180: x_return_status OUT NOCOPY VARCHAR2,
2181: x_msg_count OUT NOCOPY NUMBER,
2182: x_msg_data OUT NOCOPY VARCHAR2,
2183: p_contract_number IN VARCHAR2,
2273: --Bug#5116278 end
2274:
2275:
2276: BEGIN
2277: x_return_status := OKC_API.START_ACTIVITY(
2278: p_api_name => l_api_name,
2279: p_pkg_name => g_pkg_name,
2280: p_init_msg_list => p_init_msg_list,
2281: l_api_version => l_api_version,
2283: p_api_type => g_api_type,
2284: x_return_status => x_return_status);
2285:
2286: -- check if activity started successfully
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2284: x_return_status => x_return_status);
2285:
2286: -- check if activity started successfully
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2292:
2285:
2286: -- check if activity started successfully
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2292:
2293: lp_chrv_rec.sfwt_flag := 'N';
2286: -- check if activity started successfully
2287: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2290: RAISE OKC_API.G_EXCEPTION_ERROR;
2291: END IF;
2292:
2293: lp_chrv_rec.sfwt_flag := 'N';
2294: lp_chrv_rec.object_version_number := 1.0;
2336: p_khrv_rec => lp_khrv_rec,
2337: x_chrv_rec => lx_chrv_rec,
2338: x_khrv_rec => lx_khrv_rec);
2339:
2340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2343: RAISE OKC_API.G_EXCEPTION_ERROR;
2344: END IF;
2337: x_chrv_rec => lx_chrv_rec,
2338: x_khrv_rec => lx_khrv_rec);
2339:
2340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2343: RAISE OKC_API.G_EXCEPTION_ERROR;
2344: END IF;
2345:
2338: x_khrv_rec => lx_khrv_rec);
2339:
2340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2343: RAISE OKC_API.G_EXCEPTION_ERROR;
2344: END IF;
2345:
2346: x_chr_id := lx_chrv_rec.id;
2339:
2340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2343: RAISE OKC_API.G_EXCEPTION_ERROR;
2344: END IF;
2345:
2346: x_chr_id := lx_chrv_rec.id;
2347:
2400: x_cplv_tbl => lx_cplv_tbl,
2401: p_kplv_tbl => l_kplv_tbl,
2402: x_kplv_tbl => lx_kplv_tbl);
2403:
2404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2407: RAISE OKC_API.G_EXCEPTION_ERROR;
2408: END IF;
2401: p_kplv_tbl => l_kplv_tbl,
2402: x_kplv_tbl => lx_kplv_tbl);
2403:
2404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2407: RAISE OKC_API.G_EXCEPTION_ERROR;
2408: END IF;
2409:
2402: x_kplv_tbl => lx_kplv_tbl);
2403:
2404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2407: RAISE OKC_API.G_EXCEPTION_ERROR;
2408: END IF;
2409:
2410: END IF;
2403:
2404: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2405: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2406: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2407: RAISE OKC_API.G_EXCEPTION_ERROR;
2408: END IF;
2409:
2410: END IF;
2411:
2415: IF ( p_customer_name IS NOT NULL ) THEN
2416:
2417: -- now we attach the party to the header
2418: lp_cplv_rec.object_version_number := 1.0;
2419: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
2420: lp_cplv_rec.dnz_chr_id := x_chr_id;
2421: lp_cplv_rec.chr_id := x_chr_id;
2422: lp_cplv_rec.cle_id := NULL;
2423: lp_cplv_rec.object1_id1 := p_customer_id1;
2428: OPEN check_party_csr(x_chr_id);
2429: FETCH check_party_csr INTO row_count;
2430: CLOSE check_party_csr;
2431: IF row_count = 1 THEN
2432: x_return_status := OKC_API.g_ret_sts_error;
2433: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
2434: RAISE OKC_API.G_EXCEPTION_ERROR;
2435: END IF;
2436:
2429: FETCH check_party_csr INTO row_count;
2430: CLOSE check_party_csr;
2431: IF row_count = 1 THEN
2432: x_return_status := OKC_API.g_ret_sts_error;
2433: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
2434: RAISE OKC_API.G_EXCEPTION_ERROR;
2435: END IF;
2436:
2437:
2430: CLOSE check_party_csr;
2431: IF row_count = 1 THEN
2432: x_return_status := OKC_API.g_ret_sts_error;
2433: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
2434: RAISE OKC_API.G_EXCEPTION_ERROR;
2435: END IF;
2436:
2437:
2438: ----- Changes by Kanti
2444:
2445: IF (l_access_level = 'S') THEN
2446:
2447: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
2448: p_init_msg_list => OKC_API.G_FALSE,
2449: x_return_status => x_return_status,
2450: x_msg_count => x_msg_count,
2451: x_msg_data => x_msg_data,
2452: p_object_name => lp_cplv_rec.jtot_object1_code,
2451: x_msg_data => x_msg_data,
2452: p_object_name => lp_cplv_rec.jtot_object1_code,
2453: p_id1 => lp_cplv_rec.object1_id1,
2454: p_id2 => lp_cplv_rec.object1_id2);
2455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2452: p_object_name => lp_cplv_rec.jtot_object1_code,
2453: p_id1 => lp_cplv_rec.object1_id1,
2454: p_id2 => lp_cplv_rec.object1_id2);
2455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2453: p_id1 => lp_cplv_rec.object1_id1,
2454: p_id2 => lp_cplv_rec.object1_id2);
2455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2461: END IF;
2454: p_id2 => lp_cplv_rec.object1_id2);
2455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2461: END IF;
2462:
2486: x_cplv_rec => lx_cplv_rec,
2487: p_kplv_rec => lp_kplv_rec,
2488: x_kplv_rec => lx_kplv_rec);
2489:
2490: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2487: p_kplv_rec => lp_kplv_rec,
2488: x_kplv_rec => lx_kplv_rec);
2489:
2490: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495:
2488: x_kplv_rec => lx_kplv_rec);
2489:
2490: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495:
2496: END IF;
2489:
2490: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2491: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2492: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2493: RAISE OKC_API.G_EXCEPTION_ERROR;
2494: END IF;
2495:
2496: END IF;
2497:
2495:
2496: END IF;
2497:
2498:
2499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2500:
2501: EXCEPTION
2502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2498:
2499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2500:
2501: EXCEPTION
2502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2504: p_api_name => l_api_name,
2505: p_pkg_name => g_pkg_name,
2506: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2500:
2501: EXCEPTION
2502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2504: p_api_name => l_api_name,
2505: p_pkg_name => g_pkg_name,
2506: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2507: x_msg_count => x_msg_count,
2502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2504: p_api_name => l_api_name,
2505: p_pkg_name => g_pkg_name,
2506: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2507: x_msg_count => x_msg_count,
2508: x_msg_data => x_msg_data,
2509: p_api_type => g_api_type);
2510:
2507: x_msg_count => x_msg_count,
2508: x_msg_data => x_msg_data,
2509: p_api_type => g_api_type);
2510:
2511: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2512: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2513: p_api_name => l_api_name,
2514: p_pkg_name => g_pkg_name,
2515: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2508: x_msg_data => x_msg_data,
2509: p_api_type => g_api_type);
2510:
2511: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2512: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2513: p_api_name => l_api_name,
2514: p_pkg_name => g_pkg_name,
2515: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2516: x_msg_count => x_msg_count,
2511: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2512: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2513: p_api_name => l_api_name,
2514: p_pkg_name => g_pkg_name,
2515: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2516: x_msg_count => x_msg_count,
2517: x_msg_data => x_msg_data,
2518: p_api_type => g_api_type);
2519:
2517: x_msg_data => x_msg_data,
2518: p_api_type => g_api_type);
2519:
2520: WHEN OTHERS THEN
2521: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2522: p_api_name => l_api_name,
2523: p_pkg_name => g_pkg_name,
2524: p_exc_name => 'OTHERS',
2525: x_msg_count => x_msg_count,
2528: END;
2529:
2530: PROCEDURE delete_rules(
2531: p_api_version IN NUMBER,
2532: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2533: x_return_status OUT NOCOPY VARCHAR2,
2534: x_msg_count OUT NOCOPY NUMBER,
2535: x_msg_data OUT NOCOPY VARCHAR2,
2536: p_old_khr_id IN NUMBER, -- prev vp id
2601: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
2602: p_org_id => p_org_id,
2603: p_organization_id => p_organization_id);
2604:
2605: x_return_status := OKC_API.START_ACTIVITY(
2606: p_api_name => l_api_name,
2607: p_pkg_name => g_pkg_name,
2608: p_init_msg_list => p_init_msg_list,
2609: l_api_version => l_api_version,
2611: p_api_type => g_api_type,
2612: x_return_status => x_return_status);
2613:
2614: -- check if activity started successfully
2615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_ERROR;
2619: END IF;
2612: x_return_status => x_return_status);
2613:
2614: -- check if activity started successfully
2615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_ERROR;
2619: END IF;
2620:
2613:
2614: -- check if activity started successfully
2615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_ERROR;
2619: END IF;
2620:
2621: OPEN vp_tmpl_csr(p_vp_id => p_old_khr_id);
2614: -- check if activity started successfully
2615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_ERROR;
2619: END IF;
2620:
2621: OPEN vp_tmpl_csr(p_vp_id => p_old_khr_id);
2622: FETCH vp_tmpl_csr INTO l_vp_tmpl_id;
2640: x_msg_data => x_msg_data,
2641: p_rgpv_rec => lp_rgpv_rec
2642: );
2643:
2644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2647: RAISE OKC_API.G_EXCEPTION_ERROR;
2648: END IF;
2641: p_rgpv_rec => lp_rgpv_rec
2642: );
2643:
2644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2647: RAISE OKC_API.G_EXCEPTION_ERROR;
2648: END IF;
2649:
2642: );
2643:
2644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2647: RAISE OKC_API.G_EXCEPTION_ERROR;
2648: END IF;
2649:
2650: END IF;
2643:
2644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2647: RAISE OKC_API.G_EXCEPTION_ERROR;
2648: END IF;
2649:
2650: END IF;
2651:
2654: END IF;
2655:
2656: CLOSE vp_tmpl_csr;
2657:
2658: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2659:
2660: EXCEPTION
2661: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2662: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2657:
2658: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2659:
2660: EXCEPTION
2661: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2662: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2663: p_api_name => l_api_name,
2664: p_pkg_name => g_pkg_name,
2665: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2658: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2659:
2660: EXCEPTION
2661: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2662: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2663: p_api_name => l_api_name,
2664: p_pkg_name => g_pkg_name,
2665: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2666: x_msg_count => x_msg_count,
2661: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2662: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2663: p_api_name => l_api_name,
2664: p_pkg_name => g_pkg_name,
2665: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2666: x_msg_count => x_msg_count,
2667: x_msg_data => x_msg_data,
2668: p_api_type => g_api_type);
2669:
2666: x_msg_count => x_msg_count,
2667: x_msg_data => x_msg_data,
2668: p_api_type => g_api_type);
2669:
2670: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2671: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2672: p_api_name => l_api_name,
2673: p_pkg_name => g_pkg_name,
2674: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2667: x_msg_data => x_msg_data,
2668: p_api_type => g_api_type);
2669:
2670: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2671: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2672: p_api_name => l_api_name,
2673: p_pkg_name => g_pkg_name,
2674: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2675: x_msg_count => x_msg_count,
2670: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2671: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2672: p_api_name => l_api_name,
2673: p_pkg_name => g_pkg_name,
2674: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2675: x_msg_count => x_msg_count,
2676: x_msg_data => x_msg_data,
2677: p_api_type => g_api_type);
2678:
2676: x_msg_data => x_msg_data,
2677: p_api_type => g_api_type);
2678:
2679: WHEN OTHERS THEN
2680: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2681: p_api_name => l_api_name,
2682: p_pkg_name => g_pkg_name,
2683: p_exc_name => 'OTHERS',
2684: x_msg_count => x_msg_count,
2688:
2689:
2690: PROCEDURE copy_rules(
2691: p_api_version IN NUMBER,
2692: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2693: x_return_status OUT NOCOPY VARCHAR2,
2694: x_msg_count OUT NOCOPY NUMBER,
2695: x_msg_data OUT NOCOPY VARCHAR2,
2696: p_source_id IN NUMBER, -- vp id
2884: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
2885: p_org_id => p_org_id,
2886: p_organization_id => p_organization_id);
2887:
2888: x_return_status := OKC_API.START_ACTIVITY(
2889: p_api_name => l_api_name,
2890: p_pkg_name => g_pkg_name,
2891: p_init_msg_list => p_init_msg_list,
2892: l_api_version => l_api_version,
2895: x_return_status => x_return_status);
2896:
2897:
2898: -- check if activity started successfully
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2896:
2897:
2898: -- check if activity started successfully
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904:
2897:
2898: -- check if activity started successfully
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904:
2905: -- copy vp party lease vendor to lease contract
2898: -- check if activity started successfully
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: RAISE OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904:
2905: -- copy vp party lease vendor to lease contract
2906: l_vp_cpl_id := NULL;
2923: P_rle_code => G_LEASE_VENDOR,
2924: x_cpl_id => x_cpl_id
2925: );
2926:
2927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2924: x_cpl_id => x_cpl_id
2925: );
2926:
2927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932:
2925: );
2926:
2927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932:
2933: l_vndr_blng_rgp_id := NULL;
2926:
2927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932:
2933: l_vndr_blng_rgp_id := NULL;
2934: OPEN c_vndr_blng_id_csr;
2948: p_chr_id => l_chr_id,
2949: p_to_template_yn => l_to_template_yn,
2950: x_rgp_id => x_rgp_id);
2951:
2952: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2955: RAISE OKC_API.G_EXCEPTION_ERROR;
2956: END IF;
2949: p_to_template_yn => l_to_template_yn,
2950: x_rgp_id => x_rgp_id);
2951:
2952: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2955: RAISE OKC_API.G_EXCEPTION_ERROR;
2956: END IF;
2957:
2950: x_rgp_id => x_rgp_id);
2951:
2952: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2955: RAISE OKC_API.G_EXCEPTION_ERROR;
2956: END IF;
2957:
2958: END IF;
2951:
2952: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2955: RAISE OKC_API.G_EXCEPTION_ERROR;
2956: END IF;
2957:
2958: END IF;
2959:
2979: p_rmpv_rec => lp_rmpv_rec,
2980: x_rmpv_rec => lx_rmpv_rec
2981: );
2982:
2983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_ERROR;
2987: END IF;
2980: x_rmpv_rec => lx_rmpv_rec
2981: );
2982:
2983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_ERROR;
2987: END IF;
2988:
2981: );
2982:
2983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_ERROR;
2987: END IF;
2988:
2989: END IF;
2982:
2983: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_ERROR;
2987: END IF;
2988:
2989: END IF;
2990:
3013: p_chr_id => l_chr_id,
3014: p_to_template_yn => l_to_template_yn,
3015: x_rgp_id => x_rgp_id);
3016:
3017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_ERROR;
3021: END IF;
3014: p_to_template_yn => l_to_template_yn,
3015: x_rgp_id => x_rgp_id);
3016:
3017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_ERROR;
3021: END IF;
3022:
3015: x_rgp_id => x_rgp_id);
3016:
3017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_ERROR;
3021: END IF;
3022:
3023:
3016:
3017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_ERROR;
3021: END IF;
3022:
3023:
3024: -- start of currency conversion for program rules
3120: x_currency_conversion_date => x_currency_conversion_date,
3121: x_converted_amount => x_converted_amount);
3122:
3123:
3124: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3127: RAISE OKC_API.G_EXCEPTION_ERROR;
3128: END IF;
3121: x_converted_amount => x_converted_amount);
3122:
3123:
3124: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3127: RAISE OKC_API.G_EXCEPTION_ERROR;
3128: END IF;
3129:
3122:
3123:
3124: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3127: RAISE OKC_API.G_EXCEPTION_ERROR;
3128: END IF;
3129:
3130: IF(l_rule_id IS NOT NULL AND x_converted_amount IS NOT NULL) THEN
3123:
3124: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3126: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3127: RAISE OKC_API.G_EXCEPTION_ERROR;
3128: END IF;
3129:
3130: IF(l_rule_id IS NOT NULL AND x_converted_amount IS NOT NULL) THEN
3131:
3186: x_msg_data => x_msg_data,
3187: p_rulv_rec => lp_rulv_rec,
3188: x_rulv_rec => lx_rulv_rec);
3189:
3190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3193: RAISE OKC_API.G_EXCEPTION_ERROR;
3194: END IF;
3187: p_rulv_rec => lp_rulv_rec,
3188: x_rulv_rec => lx_rulv_rec);
3189:
3190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3193: RAISE OKC_API.G_EXCEPTION_ERROR;
3194: END IF;
3195:
3188: x_rulv_rec => lx_rulv_rec);
3189:
3190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3193: RAISE OKC_API.G_EXCEPTION_ERROR;
3194: END IF;
3195:
3196: END IF;
3189:
3190: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3193: RAISE OKC_API.G_EXCEPTION_ERROR;
3194: END IF;
3195:
3196: END IF;
3197:
3214: END IF;
3215:
3216: CLOSE vp_tmpl_csr;
3217:
3218: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3219:
3220: EXCEPTION
3221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3217:
3218: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3219:
3220: EXCEPTION
3221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3223: p_api_name => l_api_name,
3224: p_pkg_name => g_pkg_name,
3225: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3218: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3219:
3220: EXCEPTION
3221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3223: p_api_name => l_api_name,
3224: p_pkg_name => g_pkg_name,
3225: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3226: x_msg_count => x_msg_count,
3221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3223: p_api_name => l_api_name,
3224: p_pkg_name => g_pkg_name,
3225: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3226: x_msg_count => x_msg_count,
3227: x_msg_data => x_msg_data,
3228: p_api_type => g_api_type);
3229:
3226: x_msg_count => x_msg_count,
3227: x_msg_data => x_msg_data,
3228: p_api_type => g_api_type);
3229:
3230: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3231: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3232: p_api_name => l_api_name,
3233: p_pkg_name => g_pkg_name,
3234: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3227: x_msg_data => x_msg_data,
3228: p_api_type => g_api_type);
3229:
3230: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3231: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3232: p_api_name => l_api_name,
3233: p_pkg_name => g_pkg_name,
3234: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3235: x_msg_count => x_msg_count,
3230: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3231: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3232: p_api_name => l_api_name,
3233: p_pkg_name => g_pkg_name,
3234: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3235: x_msg_count => x_msg_count,
3236: x_msg_data => x_msg_data,
3237: p_api_type => g_api_type);
3238:
3236: x_msg_data => x_msg_data,
3237: p_api_type => g_api_type);
3238:
3239: WHEN OTHERS THEN
3240: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3241: p_api_name => l_api_name,
3242: p_pkg_name => g_pkg_name,
3243: p_exc_name => 'OTHERS',
3244: x_msg_count => x_msg_count,
3247: END;
3248:
3249: PROCEDURE copy_rules(
3250: p_api_version IN NUMBER,
3251: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3252: x_return_status OUT NOCOPY VARCHAR2,
3253: x_msg_count OUT NOCOPY NUMBER,
3254: x_msg_data OUT NOCOPY VARCHAR2,
3255: p_old_khr_id IN NUMBER, -- prev k khr id
3265: BEGIN
3266:
3267: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(p_org_id => p_org_id, p_organization_id => p_organization_id);
3268:
3269: x_return_status := OKC_API.START_ACTIVITY(
3270: p_api_name => l_api_name,
3271: p_pkg_name => g_pkg_name,
3272: p_init_msg_list => p_init_msg_list,
3273: l_api_version => l_api_version,
3275: p_api_type => g_api_type,
3276: x_return_status => x_return_status);
3277:
3278: -- check if activity started successfully
3279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3276: x_return_status => x_return_status);
3277:
3278: -- check if activity started successfully
3279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3284:
3277:
3278: -- check if activity started successfully
3279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3284:
3285:
3278: -- check if activity started successfully
3279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3284:
3285:
3286: IF( (p_old_khr_id IS NOT NULL AND p_source_id IS NOT NULL AND p_old_khr_id <> p_source_id
3303: p_org_id => okl_context.get_okc_org_id,
3304: p_organization_id => okl_context.get_okc_organization_id
3305: );
3306:
3307: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3310: RAISE OKC_API.G_EXCEPTION_ERROR;
3311: END IF;
3304: p_organization_id => okl_context.get_okc_organization_id
3305: );
3306:
3307: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3310: RAISE OKC_API.G_EXCEPTION_ERROR;
3311: END IF;
3312:
3305: );
3306:
3307: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3310: RAISE OKC_API.G_EXCEPTION_ERROR;
3311: END IF;
3312:
3313: END IF;
3306:
3307: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3310: RAISE OKC_API.G_EXCEPTION_ERROR;
3311: END IF;
3312:
3313: END IF;
3314:
3326: p_org_id => okl_context.get_okc_org_id,
3327: p_organization_id => okl_context.get_okc_organization_id
3328: );
3329:
3330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3333: RAISE OKC_API.G_EXCEPTION_ERROR;
3334: END IF;
3327: p_organization_id => okl_context.get_okc_organization_id
3328: );
3329:
3330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3333: RAISE OKC_API.G_EXCEPTION_ERROR;
3334: END IF;
3335:
3328: );
3329:
3330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3333: RAISE OKC_API.G_EXCEPTION_ERROR;
3334: END IF;
3335:
3336: ELSIF( p_source_id IS NOT NULL AND p_old_khr_id IS NOT NULL AND p_prog_override_yn IS NOT NULL AND p_prog_override_yn = 'Y' ) THEN
3329:
3330: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3332: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3333: RAISE OKC_API.G_EXCEPTION_ERROR;
3334: END IF;
3335:
3336: ELSIF( p_source_id IS NOT NULL AND p_old_khr_id IS NOT NULL AND p_prog_override_yn IS NOT NULL AND p_prog_override_yn = 'Y' ) THEN
3337:
3346: p_org_id => okl_context.get_okc_org_id,
3347: p_organization_id => okl_context.get_okc_organization_id
3348: );
3349:
3350: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_ERROR;
3354: END IF;
3347: p_organization_id => okl_context.get_okc_organization_id
3348: );
3349:
3350: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_ERROR;
3354: END IF;
3355:
3348: );
3349:
3350: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_ERROR;
3354: END IF;
3355:
3356: END IF;
3349:
3350: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3351: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3352: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3353: RAISE OKC_API.G_EXCEPTION_ERROR;
3354: END IF;
3355:
3356: END IF;
3357:
3354: END IF;
3355:
3356: END IF;
3357:
3358: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3359:
3360: EXCEPTION
3361: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3362: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3357:
3358: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3359:
3360: EXCEPTION
3361: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3362: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3363: p_api_name => l_api_name,
3364: p_pkg_name => g_pkg_name,
3365: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3358: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3359:
3360: EXCEPTION
3361: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3362: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3363: p_api_name => l_api_name,
3364: p_pkg_name => g_pkg_name,
3365: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3366: x_msg_count => x_msg_count,
3361: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3362: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3363: p_api_name => l_api_name,
3364: p_pkg_name => g_pkg_name,
3365: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3366: x_msg_count => x_msg_count,
3367: x_msg_data => x_msg_data,
3368: p_api_type => g_api_type);
3369:
3366: x_msg_count => x_msg_count,
3367: x_msg_data => x_msg_data,
3368: p_api_type => g_api_type);
3369:
3370: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3371: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3372: p_api_name => l_api_name,
3373: p_pkg_name => g_pkg_name,
3374: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3367: x_msg_data => x_msg_data,
3368: p_api_type => g_api_type);
3369:
3370: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3371: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3372: p_api_name => l_api_name,
3373: p_pkg_name => g_pkg_name,
3374: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3375: x_msg_count => x_msg_count,
3370: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3371: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3372: p_api_name => l_api_name,
3373: p_pkg_name => g_pkg_name,
3374: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3375: x_msg_count => x_msg_count,
3376: x_msg_data => x_msg_data,
3377: p_api_type => g_api_type);
3378:
3376: x_msg_data => x_msg_data,
3377: p_api_type => g_api_type);
3378:
3379: WHEN OTHERS THEN
3380: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3381: p_api_name => l_api_name,
3382: p_pkg_name => g_pkg_name,
3383: p_exc_name => 'OTHERS',
3384: x_msg_count => x_msg_count,
3396: -- Version : 1.0
3397: -- End of comments
3398: PROCEDURE create_deal(
3399: p_api_version IN NUMBER,
3400: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3401: x_return_status OUT NOCOPY VARCHAR2,
3402: x_msg_count OUT NOCOPY NUMBER,
3403: x_msg_data OUT NOCOPY VARCHAR2,
3404: p_contract_number IN VARCHAR2,
3428: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
3429: p_org_id => p_org_id,
3430: p_organization_id => p_organization_id);
3431:
3432: x_return_status := OKC_API.START_ACTIVITY(
3433: p_api_name => l_api_name,
3434: p_pkg_name => g_pkg_name,
3435: p_init_msg_list => p_init_msg_list,
3436: l_api_version => l_api_version,
3438: p_api_type => g_api_type,
3439: x_return_status => x_return_status);
3440:
3441: -- check if activity started successfully
3442: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3444: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3445: RAISE OKC_API.G_EXCEPTION_ERROR;
3446: END IF;
3439: x_return_status => x_return_status);
3440:
3441: -- check if activity started successfully
3442: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3444: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3445: RAISE OKC_API.G_EXCEPTION_ERROR;
3446: END IF;
3447:
3440:
3441: -- check if activity started successfully
3442: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3444: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3445: RAISE OKC_API.G_EXCEPTION_ERROR;
3446: END IF;
3447:
3448: IF (p_source_chr_id IS NULL) OR (p_source_chr_id = OKC_API.G_MISS_NUM) THEN
3441: -- check if activity started successfully
3442: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3444: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3445: RAISE OKC_API.G_EXCEPTION_ERROR;
3446: END IF;
3447:
3448: IF (p_source_chr_id IS NULL) OR (p_source_chr_id = OKC_API.G_MISS_NUM) THEN
3449: create_new_deal(
3444: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3445: RAISE OKC_API.G_EXCEPTION_ERROR;
3446: END IF;
3447:
3448: IF (p_source_chr_id IS NULL) OR (p_source_chr_id = OKC_API.G_MISS_NUM) THEN
3449: create_new_deal(
3450: p_api_version => l_api_version,
3451: p_init_msg_list => p_init_msg_list,
3452: x_return_status => x_return_status,
3489: x_chr_id => x_chr_id);
3490: END IF;
3491: END IF;
3492:
3493: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3490: END IF;
3491: END IF;
3492:
3493: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3498:
3491: END IF;
3492:
3493: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3498:
3499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3492:
3493: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3495: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3498:
3499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3500: x_msg_data => x_msg_data);
3495: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3496: RAISE OKC_API.G_EXCEPTION_ERROR;
3497: END IF;
3498:
3499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3500: x_msg_data => x_msg_data);
3501: EXCEPTION
3502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3498:
3499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3500: x_msg_data => x_msg_data);
3501: EXCEPTION
3502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3504: p_api_name => l_api_name,
3505: p_pkg_name => g_pkg_name,
3506: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3499: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3500: x_msg_data => x_msg_data);
3501: EXCEPTION
3502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3504: p_api_name => l_api_name,
3505: p_pkg_name => g_pkg_name,
3506: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3507: x_msg_count => x_msg_count,
3502: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3503: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3504: p_api_name => l_api_name,
3505: p_pkg_name => g_pkg_name,
3506: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3507: x_msg_count => x_msg_count,
3508: x_msg_data => x_msg_data,
3509: p_api_type => g_api_type);
3510:
3507: x_msg_count => x_msg_count,
3508: x_msg_data => x_msg_data,
3509: p_api_type => g_api_type);
3510:
3511: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3512: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3513: p_api_name => l_api_name,
3514: p_pkg_name => g_pkg_name,
3515: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3508: x_msg_data => x_msg_data,
3509: p_api_type => g_api_type);
3510:
3511: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3512: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3513: p_api_name => l_api_name,
3514: p_pkg_name => g_pkg_name,
3515: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3516: x_msg_count => x_msg_count,
3511: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3512: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3513: p_api_name => l_api_name,
3514: p_pkg_name => g_pkg_name,
3515: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3516: x_msg_count => x_msg_count,
3517: x_msg_data => x_msg_data,
3518: p_api_type => g_api_type);
3519:
3517: x_msg_data => x_msg_data,
3518: p_api_type => g_api_type);
3519:
3520: WHEN OTHERS THEN
3521: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3522: p_api_name => l_api_name,
3523: p_pkg_name => g_pkg_name,
3524: p_exc_name => 'OTHERS',
3525: x_msg_count => x_msg_count,
3537: -- Version : 1.0
3538: -- End of comments
3539: PROCEDURE create_from_release (
3540: p_api_version IN NUMBER,
3541: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3542: x_return_status OUT NOCOPY VARCHAR2,
3543: x_msg_count OUT NOCOPY NUMBER,
3544: x_msg_data OUT NOCOPY VARCHAR2,
3545: p_contract_number IN VARCHAR2,
3563: l_api_version CONSTANT NUMBER := 1.0;
3564:
3565: BEGIN
3566:
3567: x_return_status := OKC_API.START_ACTIVITY(
3568: p_api_name => l_api_name,
3569: p_pkg_name => g_pkg_name,
3570: p_init_msg_list => p_init_msg_list,
3571: l_api_version => l_api_version,
3573: p_api_type => g_api_type,
3574: x_return_status => x_return_status);
3575:
3576: -- check if activity started successfully
3577: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3580: RAISE OKC_API.G_EXCEPTION_ERROR;
3581: END IF;
3574: x_return_status => x_return_status);
3575:
3576: -- check if activity started successfully
3577: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3580: RAISE OKC_API.G_EXCEPTION_ERROR;
3581: END IF;
3582:
3575:
3576: -- check if activity started successfully
3577: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3580: RAISE OKC_API.G_EXCEPTION_ERROR;
3581: END IF;
3582:
3583: okl_securitization_pvt.check_khr_securitized(
3576: -- check if activity started successfully
3577: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3578: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3579: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3580: RAISE OKC_API.G_EXCEPTION_ERROR;
3581: END IF;
3582:
3583: okl_securitization_pvt.check_khr_securitized(
3584: p_api_version => p_api_version,
3592: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl_type --okl_securitization_pvt.inv_agmt_chr_id_tbl_type
3593: );
3594:
3595:
3596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3593: );
3594:
3595:
3596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3601:
3594:
3595:
3596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3601:
3602: IF(l_value = OKL_API.G_TRUE) THEN
3595:
3596: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3598: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3601:
3602: IF(l_value = OKL_API.G_TRUE) THEN
3603: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3599: RAISE OKC_API.G_EXCEPTION_ERROR;
3600: END IF;
3601:
3602: IF(l_value = OKL_API.G_TRUE) THEN
3603: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3604: , p_msg_name => 'OKL_LLA_CONTRACT_SECU_ERROR'
3605: );
3606: RAISE OKC_API.G_EXCEPTION_ERROR;
3607: END IF;
3602: IF(l_value = OKL_API.G_TRUE) THEN
3603: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3604: , p_msg_name => 'OKL_LLA_CONTRACT_SECU_ERROR'
3605: );
3606: RAISE OKC_API.G_EXCEPTION_ERROR;
3607: END IF;
3608:
3609: l_new_contract_number := p_contract_number;
3610:
3624: x_new_khrv_rec => x_new_khrv_rec);
3625:
3626: x_chr_id := x_new_chrv_rec.id;
3627:
3628: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3625:
3626: x_chr_id := x_new_chrv_rec.id;
3627:
3628: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3626: x_chr_id := x_new_chrv_rec.id;
3627:
3628: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3627:
3628: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3629: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3630: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3635: x_msg_data => x_msg_data);
3630: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3635: x_msg_data => x_msg_data);
3636: EXCEPTION
3637: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3638: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3633:
3634: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3635: x_msg_data => x_msg_data);
3636: EXCEPTION
3637: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3638: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3639: p_api_name => l_api_name,
3640: p_pkg_name => g_pkg_name,
3641: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3634: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3635: x_msg_data => x_msg_data);
3636: EXCEPTION
3637: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3638: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3639: p_api_name => l_api_name,
3640: p_pkg_name => g_pkg_name,
3641: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3642: x_msg_count => x_msg_count,
3637: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3638: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3639: p_api_name => l_api_name,
3640: p_pkg_name => g_pkg_name,
3641: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3642: x_msg_count => x_msg_count,
3643: x_msg_data => x_msg_data,
3644: p_api_type => g_api_type);
3645:
3642: x_msg_count => x_msg_count,
3643: x_msg_data => x_msg_data,
3644: p_api_type => g_api_type);
3645:
3646: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3648: p_api_name => l_api_name,
3649: p_pkg_name => g_pkg_name,
3650: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3643: x_msg_data => x_msg_data,
3644: p_api_type => g_api_type);
3645:
3646: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3648: p_api_name => l_api_name,
3649: p_pkg_name => g_pkg_name,
3650: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3651: x_msg_count => x_msg_count,
3646: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3648: p_api_name => l_api_name,
3649: p_pkg_name => g_pkg_name,
3650: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3651: x_msg_count => x_msg_count,
3652: x_msg_data => x_msg_data,
3653: p_api_type => g_api_type);
3654:
3652: x_msg_data => x_msg_data,
3653: p_api_type => g_api_type);
3654:
3655: WHEN OTHERS THEN
3656: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3657: p_api_name => l_api_name,
3658: p_pkg_name => g_pkg_name,
3659: p_exc_name => 'OTHERS',
3660: x_msg_count => x_msg_count,
3674: -- Version : 1.0
3675: -- End of comments
3676: PROCEDURE create_deal(
3677: p_api_version IN NUMBER,
3678: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3679: x_return_status OUT NOCOPY VARCHAR2,
3680: x_msg_count OUT NOCOPY NUMBER,
3681: x_msg_data OUT NOCOPY VARCHAR2,
3682: p_source_code IN VARCHAR2,
3714: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
3715: p_org_id => p_org_id,
3716: p_organization_id => p_organization_id);
3717:
3718: x_return_status := OKC_API.START_ACTIVITY(
3719: p_api_name => l_api_name,
3720: p_pkg_name => g_pkg_name,
3721: p_init_msg_list => p_init_msg_list,
3722: l_api_version => l_api_version,
3724: p_api_type => g_api_type,
3725: x_return_status => x_return_status);
3726:
3727: -- check if activity started successfully
3728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3731: RAISE OKC_API.G_EXCEPTION_ERROR;
3732: END IF;
3725: x_return_status => x_return_status);
3726:
3727: -- check if activity started successfully
3728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3731: RAISE OKC_API.G_EXCEPTION_ERROR;
3732: END IF;
3733:
3726:
3727: -- check if activity started successfully
3728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3731: RAISE OKC_API.G_EXCEPTION_ERROR;
3732: END IF;
3733:
3734: IF (p_source_chr_id IS NULL) OR (p_source_chr_id = OKC_API.G_MISS_NUM) THEN
3727: -- check if activity started successfully
3728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3729: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3731: RAISE OKC_API.G_EXCEPTION_ERROR;
3732: END IF;
3733:
3734: IF (p_source_chr_id IS NULL) OR (p_source_chr_id = OKC_API.G_MISS_NUM) THEN
3735: create_new_deal(
3730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3731: RAISE OKC_API.G_EXCEPTION_ERROR;
3732: END IF;
3733:
3734: IF (p_source_chr_id IS NULL) OR (p_source_chr_id = OKC_API.G_MISS_NUM) THEN
3735: create_new_deal(
3736: p_api_version => l_api_version,
3737: p_init_msg_list => p_init_msg_list,
3738: x_return_status => x_return_status,
3805:
3806: END IF;
3807: END IF;
3808:
3809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3806: END IF;
3807: END IF;
3808:
3809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3814:
3807: END IF;
3808:
3809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3814:
3815: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3808:
3809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3814:
3815: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3816: x_msg_data => x_msg_data);
3811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3812: RAISE OKC_API.G_EXCEPTION_ERROR;
3813: END IF;
3814:
3815: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3816: x_msg_data => x_msg_data);
3817: EXCEPTION
3818: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3819: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3814:
3815: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3816: x_msg_data => x_msg_data);
3817: EXCEPTION
3818: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3819: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3820: p_api_name => l_api_name,
3821: p_pkg_name => g_pkg_name,
3822: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3815: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
3816: x_msg_data => x_msg_data);
3817: EXCEPTION
3818: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3819: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3820: p_api_name => l_api_name,
3821: p_pkg_name => g_pkg_name,
3822: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3823: x_msg_count => x_msg_count,
3818: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3819: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3820: p_api_name => l_api_name,
3821: p_pkg_name => g_pkg_name,
3822: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3823: x_msg_count => x_msg_count,
3824: x_msg_data => x_msg_data,
3825: p_api_type => g_api_type);
3826:
3823: x_msg_count => x_msg_count,
3824: x_msg_data => x_msg_data,
3825: p_api_type => g_api_type);
3826:
3827: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3828: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3829: p_api_name => l_api_name,
3830: p_pkg_name => g_pkg_name,
3831: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3824: x_msg_data => x_msg_data,
3825: p_api_type => g_api_type);
3826:
3827: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3828: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3829: p_api_name => l_api_name,
3830: p_pkg_name => g_pkg_name,
3831: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3832: x_msg_count => x_msg_count,
3827: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3828: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3829: p_api_name => l_api_name,
3830: p_pkg_name => g_pkg_name,
3831: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3832: x_msg_count => x_msg_count,
3833: x_msg_data => x_msg_data,
3834: p_api_type => g_api_type);
3835:
3833: x_msg_data => x_msg_data,
3834: p_api_type => g_api_type);
3835:
3836: WHEN OTHERS THEN
3837: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3838: p_api_name => l_api_name,
3839: p_pkg_name => g_pkg_name,
3840: p_exc_name => 'OTHERS',
3841: x_msg_count => x_msg_count,
3853: -- Version : 1.0
3854: -- End of comments
3855: PROCEDURE create_deal(
3856: p_api_version IN NUMBER,
3857: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3858: x_return_status OUT NOCOPY VARCHAR2,
3859: x_msg_count OUT NOCOPY NUMBER,
3860: x_msg_data OUT NOCOPY VARCHAR2,
3861: p_source_code IN VARCHAR2,
3913: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
3914: p_org_id => p_org_id,
3915: p_organization_id => p_organization_id);
3916:
3917: x_return_status := OKC_API.START_ACTIVITY(
3918: p_api_name => l_api_name,
3919: p_pkg_name => g_pkg_name,
3920: p_init_msg_list => p_init_msg_list,
3921: l_api_version => l_api_version,
3923: p_api_type => g_api_type,
3924: x_return_status => x_return_status);
3925:
3926: -- check if activity started successfully
3927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_ERROR;
3931: END IF;
3924: x_return_status => x_return_status);
3925:
3926: -- check if activity started successfully
3927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_ERROR;
3931: END IF;
3932:
3925:
3926: -- check if activity started successfully
3927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_ERROR;
3931: END IF;
3932:
3933: IF(p_contract_number IS NULL) THEN
3926: -- check if activity started successfully
3927: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3929: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3930: RAISE OKC_API.G_EXCEPTION_ERROR;
3931: END IF;
3932:
3933: IF(p_contract_number IS NULL) THEN
3934: x_return_status := OKC_API.g_ret_sts_error;
3930: RAISE OKC_API.G_EXCEPTION_ERROR;
3931: END IF;
3932:
3933: IF(p_contract_number IS NULL) THEN
3934: x_return_status := OKC_API.g_ret_sts_error;
3935: IF p_scs_code = 'LEASE' THEN
3936: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
3937: ELSIF p_scs_code = 'MASTER_LEASE' THEN
3938: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_LA_AGREEMENT_NUMBER');
3937: ELSIF p_scs_code = 'MASTER_LEASE' THEN
3938: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_LA_AGREEMENT_NUMBER');
3939: END IF;
3940:
3941: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3942: , p_msg_name => 'OKL_REQUIRED_VALUE'
3943: , p_token1 => 'COL_NAME'
3944: , p_token1_value => l_ak_prompt
3945: );
3942: , p_msg_name => 'OKL_REQUIRED_VALUE'
3943: , p_token1 => 'COL_NAME'
3944: , p_token1_value => l_ak_prompt
3945: );
3946: RAISE OKC_API.G_EXCEPTION_ERROR;
3947: END IF;
3948:
3949: IF(p_customer_name IS NULL) THEN
3950: x_return_status := OKC_API.g_ret_sts_error;
3946: RAISE OKC_API.G_EXCEPTION_ERROR;
3947: END IF;
3948:
3949: IF(p_customer_name IS NULL) THEN
3950: x_return_status := OKC_API.g_ret_sts_error;
3951: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
3952: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3953: , p_msg_name => 'OKL_REQUIRED_VALUE'
3954: , p_token1 => 'COL_NAME'
3948:
3949: IF(p_customer_name IS NULL) THEN
3950: x_return_status := OKC_API.g_ret_sts_error;
3951: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
3952: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3953: , p_msg_name => 'OKL_REQUIRED_VALUE'
3954: , p_token1 => 'COL_NAME'
3955: , p_token1_value => l_ak_prompt
3956: );
3953: , p_msg_name => 'OKL_REQUIRED_VALUE'
3954: , p_token1 => 'COL_NAME'
3955: , p_token1_value => l_ak_prompt
3956: );
3957: RAISE OKC_API.G_EXCEPTION_ERROR;
3958: END IF;
3959:
3960: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
3961: x_return_status := OKC_API.g_ret_sts_error;
3957: RAISE OKC_API.G_EXCEPTION_ERROR;
3958: END IF;
3959:
3960: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
3961: x_return_status := OKC_API.g_ret_sts_error;
3962: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
3963: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3964: , p_msg_name => 'OKL_REQUIRED_VALUE'
3965: , p_token1 => 'COL_NAME'
3959:
3960: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
3961: x_return_status := OKC_API.g_ret_sts_error;
3962: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
3963: OKC_API.SET_MESSAGE( p_app_name => g_app_name
3964: , p_msg_name => 'OKL_REQUIRED_VALUE'
3965: , p_token1 => 'COL_NAME'
3966: , p_token1_value => l_ak_prompt
3967: );
3964: , p_msg_name => 'OKL_REQUIRED_VALUE'
3965: , p_token1 => 'COL_NAME'
3966: , p_token1_value => l_ak_prompt
3967: );
3968: RAISE OKC_API.G_EXCEPTION_ERROR;
3969: END IF;
3970:
3971: okl_la_validation_util_pvt.Get_Party_Jtot_data (
3972: p_api_version => p_api_version,
3984: p_ak_region => 'OKL_LA_DEAL_CREAT',
3985: p_ak_attribute => 'OKL_CUSTOMER_NAME'
3986: );
3987:
3988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3991: RAISE OKC_API.G_EXCEPTION_ERROR;
3992: END IF;
3985: p_ak_attribute => 'OKL_CUSTOMER_NAME'
3986: );
3987:
3988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3991: RAISE OKC_API.G_EXCEPTION_ERROR;
3992: END IF;
3993:
3986: );
3987:
3988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3991: RAISE OKC_API.G_EXCEPTION_ERROR;
3992: END IF;
3993:
3994: IF(p_source_code <> 'new' AND p_source_contract_number IS NOT NULL) THEN
3987:
3988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3990: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3991: RAISE OKC_API.G_EXCEPTION_ERROR;
3992: END IF;
3993:
3994: IF(p_source_code <> 'new' AND p_source_contract_number IS NOT NULL) THEN
3995:
4007: CLOSE l_source_chr_id_crs;
4008: END IF;
4009:
4010: IF(p_source_chr_id IS NULL) THEN
4011: x_return_status := OKC_API.g_ret_sts_error;
4012: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4013: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4014: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4015: , p_token1 => 'COL_NAME'
4009:
4010: IF(p_source_chr_id IS NULL) THEN
4011: x_return_status := OKC_API.g_ret_sts_error;
4012: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4013: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4014: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4015: , p_token1 => 'COL_NAME'
4016: , p_token1_value => l_ak_prompt
4017: );
4014: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4015: , p_token1 => 'COL_NAME'
4016: , p_token1_value => l_ak_prompt
4017: );
4018: RAISE OKC_API.G_EXCEPTION_ERROR;
4019: END IF;
4020:
4021: END IF;
4022:
4090: x_chr_id => x_chr_id);
4091:
4092: END IF;
4093:
4094: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4091:
4092: END IF;
4093:
4094: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4099:
4092: END IF;
4093:
4094: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4099:
4100: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4093:
4094: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4096: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4099:
4100: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4101: x_msg_data => x_msg_data);
4096: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4097: RAISE OKC_API.G_EXCEPTION_ERROR;
4098: END IF;
4099:
4100: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4101: x_msg_data => x_msg_data);
4102: EXCEPTION
4103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4099:
4100: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4101: x_msg_data => x_msg_data);
4102: EXCEPTION
4103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4105: p_api_name => l_api_name,
4106: p_pkg_name => g_pkg_name,
4107: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4100: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4101: x_msg_data => x_msg_data);
4102: EXCEPTION
4103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4105: p_api_name => l_api_name,
4106: p_pkg_name => g_pkg_name,
4107: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4108: x_msg_count => x_msg_count,
4103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4104: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4105: p_api_name => l_api_name,
4106: p_pkg_name => g_pkg_name,
4107: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4108: x_msg_count => x_msg_count,
4109: x_msg_data => x_msg_data,
4110: p_api_type => g_api_type);
4111:
4108: x_msg_count => x_msg_count,
4109: x_msg_data => x_msg_data,
4110: p_api_type => g_api_type);
4111:
4112: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4113: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4114: p_api_name => l_api_name,
4115: p_pkg_name => g_pkg_name,
4116: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4109: x_msg_data => x_msg_data,
4110: p_api_type => g_api_type);
4111:
4112: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4113: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4114: p_api_name => l_api_name,
4115: p_pkg_name => g_pkg_name,
4116: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4117: x_msg_count => x_msg_count,
4112: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4113: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4114: p_api_name => l_api_name,
4115: p_pkg_name => g_pkg_name,
4116: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4117: x_msg_count => x_msg_count,
4118: x_msg_data => x_msg_data,
4119: p_api_type => g_api_type);
4120:
4118: x_msg_data => x_msg_data,
4119: p_api_type => g_api_type);
4120:
4121: WHEN OTHERS THEN
4122: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4123: p_api_name => l_api_name,
4124: p_pkg_name => g_pkg_name,
4125: p_exc_name => 'OTHERS',
4126: x_msg_count => x_msg_count,
4138: -- Version : 1.0
4139: -- End of comments
4140: PROCEDURE create_deal(
4141: p_api_version IN NUMBER,
4142: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4143: x_return_status OUT NOCOPY VARCHAR2,
4144: x_msg_count OUT NOCOPY NUMBER,
4145: x_msg_data OUT NOCOPY VARCHAR2,
4146: p_source_code IN VARCHAR2,
4220: l_check VARCHAR2(1);
4221: l_parameter_list wf_parameter_list_t;
4222: BEGIN
4223:
4224: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4225: -- Raise the event if it is a new Contract
4226: --l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
4227: --IF (l_check= OKL_API.G_TRUE) THEN
4228: IF (p_source_code = 'new') THEN
4256: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
4257: p_org_id => p_org_id,
4258: p_organization_id => p_organization_id);
4259:
4260: x_return_status := OKC_API.START_ACTIVITY(
4261: p_api_name => l_api_name,
4262: p_pkg_name => g_pkg_name,
4263: p_init_msg_list => p_init_msg_list,
4264: l_api_version => l_api_version,
4266: p_api_type => g_api_type,
4267: x_return_status => x_return_status);
4268:
4269: -- check if activity started successfully
4270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4273: RAISE OKC_API.G_EXCEPTION_ERROR;
4274: END IF;
4267: x_return_status => x_return_status);
4268:
4269: -- check if activity started successfully
4270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4273: RAISE OKC_API.G_EXCEPTION_ERROR;
4274: END IF;
4275: /*
4268:
4269: -- check if activity started successfully
4270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4273: RAISE OKC_API.G_EXCEPTION_ERROR;
4274: END IF;
4275: /*
4276: If(p_contract_number is null) Then
4269: -- check if activity started successfully
4270: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4271: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4272: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4273: RAISE OKC_API.G_EXCEPTION_ERROR;
4274: END IF;
4275: /*
4276: If(p_contract_number is null) Then
4277: x_return_status := OKC_API.g_ret_sts_error;
4273: RAISE OKC_API.G_EXCEPTION_ERROR;
4274: END IF;
4275: /*
4276: If(p_contract_number is null) Then
4277: x_return_status := OKC_API.g_ret_sts_error;
4278: If p_scs_code = 'LEASE' Then
4279: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
4280: elsIf p_scs_code = 'MASTER_LEASE' Then
4281: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_LA_AGREEMENT_NUMBER');
4280: elsIf p_scs_code = 'MASTER_LEASE' Then
4281: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_LA_AGREEMENT_NUMBER');
4282: End If;
4283:
4284: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4285: , p_msg_name => 'OKL_REQUIRED_VALUE'
4286: , p_token1 => 'COL_NAME'
4287: , p_token1_value => l_ak_prompt
4288: );
4285: , p_msg_name => 'OKL_REQUIRED_VALUE'
4286: , p_token1 => 'COL_NAME'
4287: , p_token1_value => l_ak_prompt
4288: );
4289: raise OKC_API.G_EXCEPTION_ERROR;
4290: End If;
4291: */
4292:
4293: IF(p_customer_name IS NULL) THEN
4291: */
4292:
4293: IF(p_customer_name IS NULL) THEN
4294: IF p_scs_code = 'MASTER_LEASE' THEN
4295: x_return_status := OKC_API.g_ret_sts_error;
4296: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
4297: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4298: , p_msg_name => 'OKL_REQUIRED_VALUE'
4299: , p_token1 => 'COL_NAME'
4293: IF(p_customer_name IS NULL) THEN
4294: IF p_scs_code = 'MASTER_LEASE' THEN
4295: x_return_status := OKC_API.g_ret_sts_error;
4296: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
4297: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4298: , p_msg_name => 'OKL_REQUIRED_VALUE'
4299: , p_token1 => 'COL_NAME'
4300: , p_token1_value => l_ak_prompt
4301: );
4298: , p_msg_name => 'OKL_REQUIRED_VALUE'
4299: , p_token1 => 'COL_NAME'
4300: , p_token1_value => l_ak_prompt
4301: );
4302: RAISE OKC_API.G_EXCEPTION_ERROR;
4303: END IF;
4304: END IF;
4305:
4306: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
4303: END IF;
4304: END IF;
4305:
4306: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
4307: x_return_status := OKC_API.g_ret_sts_error;
4308: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4309: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4310: , p_msg_name => 'OKL_REQUIRED_VALUE'
4311: , p_token1 => 'COL_NAME'
4305:
4306: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
4307: x_return_status := OKC_API.g_ret_sts_error;
4308: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4309: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4310: , p_msg_name => 'OKL_REQUIRED_VALUE'
4311: , p_token1 => 'COL_NAME'
4312: , p_token1_value => l_ak_prompt
4313: );
4310: , p_msg_name => 'OKL_REQUIRED_VALUE'
4311: , p_token1 => 'COL_NAME'
4312: , p_token1_value => l_ak_prompt
4313: );
4314: RAISE OKC_API.G_EXCEPTION_ERROR;
4315: END IF;
4316:
4317: IF(p_customer_name IS NOT NULL) THEN
4318:
4332: p_ak_region => 'OKL_LA_DEAL_CREAT',
4333: p_ak_attribute => 'OKL_CUSTOMER_NAME'
4334: );
4335:
4336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4339: RAISE OKC_API.G_EXCEPTION_ERROR;
4340: END IF;
4333: p_ak_attribute => 'OKL_CUSTOMER_NAME'
4334: );
4335:
4336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4339: RAISE OKC_API.G_EXCEPTION_ERROR;
4340: END IF;
4341:
4334: );
4335:
4336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4339: RAISE OKC_API.G_EXCEPTION_ERROR;
4340: END IF;
4341:
4342: END IF;
4335:
4336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4339: RAISE OKC_API.G_EXCEPTION_ERROR;
4340: END IF;
4341:
4342: END IF;
4343:
4377:
4378: END IF;
4379:
4380: IF(p_source_chr_id IS NULL) THEN
4381: x_return_status := OKC_API.g_ret_sts_error;
4382: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4383: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4384: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4385: , p_token1 => 'COL_NAME'
4379:
4380: IF(p_source_chr_id IS NULL) THEN
4381: x_return_status := OKC_API.g_ret_sts_error;
4382: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4383: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4384: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4385: , p_token1 => 'COL_NAME'
4386: , p_token1_value => l_ak_prompt
4387: );
4384: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4385: , p_token1 => 'COL_NAME'
4386: , p_token1_value => l_ak_prompt
4387: );
4388: RAISE OKC_API.G_EXCEPTION_ERROR;
4389: END IF;
4390:
4391: END IF;
4392:
4406: p_customer_name => p_customer_name,
4407: p_template_yn => p_template_yn,
4408: x_chr_id => x_chr_id);
4409:
4410: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4412: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4413: RAISE OKC_API.G_EXCEPTION_ERROR;
4414: END IF;
4407: p_template_yn => p_template_yn,
4408: x_chr_id => x_chr_id);
4409:
4410: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4412: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4413: RAISE OKC_API.G_EXCEPTION_ERROR;
4414: END IF;
4415: */
4408: x_chr_id => x_chr_id);
4409:
4410: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4412: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4413: RAISE OKC_API.G_EXCEPTION_ERROR;
4414: END IF;
4415: */
4416: l_chr_id := x_chr_id;
4409:
4410: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4412: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4413: RAISE OKC_API.G_EXCEPTION_ERROR;
4414: END IF;
4415: */
4416: l_chr_id := x_chr_id;
4417:
4429: x_msg_count => x_msg_count,
4430: x_msg_data => x_msg_data,
4431: p_chr_id => l_chr_id);
4432:
4433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4436: RAISE OKC_API.G_EXCEPTION_ERROR;
4437: END IF;
4430: x_msg_data => x_msg_data,
4431: p_chr_id => l_chr_id);
4432:
4433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4436: RAISE OKC_API.G_EXCEPTION_ERROR;
4437: END IF;
4438:
4431: p_chr_id => l_chr_id);
4432:
4433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4436: RAISE OKC_API.G_EXCEPTION_ERROR;
4437: END IF;
4438:
4439: END IF;
4432:
4433: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4435: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4436: RAISE OKC_API.G_EXCEPTION_ERROR;
4437: END IF;
4438:
4439: END IF;
4440:
4490: x_chr_id => x_chr_id);
4491:
4492: END IF;
4493:
4494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4497: RAISE OKC_API.G_EXCEPTION_ERROR;
4498: END IF;
4491:
4492: END IF;
4493:
4494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4497: RAISE OKC_API.G_EXCEPTION_ERROR;
4498: END IF;
4499:
4492: END IF;
4493:
4494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4497: RAISE OKC_API.G_EXCEPTION_ERROR;
4498: END IF;
4499:
4500:
4493:
4494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4497: RAISE OKC_API.G_EXCEPTION_ERROR;
4498: END IF;
4499:
4500:
4501: -- update contract header for template_yn
4515: p_khrv_rec => lp_khrv_rec,
4516: x_chrv_rec => lx_chrv_rec,
4517: x_khrv_rec => lx_khrv_rec);
4518:
4519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4522: RAISE OKC_API.G_EXCEPTION_ERROR;
4523: END IF;
4516: x_chrv_rec => lx_chrv_rec,
4517: x_khrv_rec => lx_khrv_rec);
4518:
4519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4522: RAISE OKC_API.G_EXCEPTION_ERROR;
4523: END IF;
4524:
4517: x_khrv_rec => lx_khrv_rec);
4518:
4519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4522: RAISE OKC_API.G_EXCEPTION_ERROR;
4523: END IF;
4524:
4525: END IF;
4518:
4519: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4520: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4521: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4522: RAISE OKC_API.G_EXCEPTION_ERROR;
4523: END IF;
4524:
4525: END IF;
4526:
4540: -- mvasudev, 08/17/2004
4541: -- END, Code change to enable Business Event
4542: */
4543:
4544: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4545: x_msg_data => x_msg_data);
4546: EXCEPTION
4547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4543:
4544: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4545: x_msg_data => x_msg_data);
4546: EXCEPTION
4547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4549: p_api_name => l_api_name,
4550: p_pkg_name => g_pkg_name,
4551: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4544: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
4545: x_msg_data => x_msg_data);
4546: EXCEPTION
4547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4549: p_api_name => l_api_name,
4550: p_pkg_name => g_pkg_name,
4551: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4552: x_msg_count => x_msg_count,
4547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4549: p_api_name => l_api_name,
4550: p_pkg_name => g_pkg_name,
4551: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
4552: x_msg_count => x_msg_count,
4553: x_msg_data => x_msg_data,
4554: p_api_type => g_api_type);
4555:
4552: x_msg_count => x_msg_count,
4553: x_msg_data => x_msg_data,
4554: p_api_type => g_api_type);
4555:
4556: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4557: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4558: p_api_name => l_api_name,
4559: p_pkg_name => g_pkg_name,
4560: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4553: x_msg_data => x_msg_data,
4554: p_api_type => g_api_type);
4555:
4556: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4557: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4558: p_api_name => l_api_name,
4559: p_pkg_name => g_pkg_name,
4560: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4561: x_msg_count => x_msg_count,
4556: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4557: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4558: p_api_name => l_api_name,
4559: p_pkg_name => g_pkg_name,
4560: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
4561: x_msg_count => x_msg_count,
4562: x_msg_data => x_msg_data,
4563: p_api_type => g_api_type);
4564:
4562: x_msg_data => x_msg_data,
4563: p_api_type => g_api_type);
4564:
4565: WHEN OTHERS THEN
4566: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
4567: p_api_name => l_api_name,
4568: p_pkg_name => g_pkg_name,
4569: p_exc_name => 'OTHERS',
4570: x_msg_count => x_msg_count,
4584: -- Version : 1.0
4585: -- End of comments
4586: PROCEDURE create_deal(
4587: p_api_version IN NUMBER,
4588: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4589: x_return_status OUT NOCOPY VARCHAR2,
4590: x_msg_count OUT NOCOPY NUMBER,
4591: x_msg_data OUT NOCOPY VARCHAR2,
4592: p_source_code IN VARCHAR2,
4855: l_check VARCHAR2(1);
4856: l_parameter_list wf_parameter_list_t;
4857: BEGIN
4858:
4859: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
4860: -- Raise the event if it is a new Contract
4861: --l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
4862: --IF (l_check= OKL_API.G_TRUE) THEN
4863: IF (p_source_code = 'new') THEN
4891: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
4892: p_org_id => p_org_id,
4893: p_organization_id => p_organization_id);
4894:
4895: x_return_status := OKC_API.START_ACTIVITY(
4896: p_api_name => l_api_name,
4897: p_pkg_name => g_pkg_name,
4898: p_init_msg_list => p_init_msg_list,
4899: l_api_version => l_api_version,
4901: p_api_type => g_api_type,
4902: x_return_status => x_return_status);
4903:
4904: -- check if activity started successfully
4905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4908: RAISE OKC_API.G_EXCEPTION_ERROR;
4909: END IF;
4902: x_return_status => x_return_status);
4903:
4904: -- check if activity started successfully
4905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4908: RAISE OKC_API.G_EXCEPTION_ERROR;
4909: END IF;
4910:
4903:
4904: -- check if activity started successfully
4905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4908: RAISE OKC_API.G_EXCEPTION_ERROR;
4909: END IF;
4910:
4911: IF(p_customer_name IS NULL) THEN
4904: -- check if activity started successfully
4905: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4908: RAISE OKC_API.G_EXCEPTION_ERROR;
4909: END IF;
4910:
4911: IF(p_customer_name IS NULL) THEN
4912: IF p_scs_code = 'MASTER_LEASE' THEN
4909: END IF;
4910:
4911: IF(p_customer_name IS NULL) THEN
4912: IF p_scs_code = 'MASTER_LEASE' THEN
4913: x_return_status := OKC_API.g_ret_sts_error;
4914: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
4915: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4916: , p_msg_name => 'OKL_REQUIRED_VALUE'
4917: , p_token1 => 'COL_NAME'
4911: IF(p_customer_name IS NULL) THEN
4912: IF p_scs_code = 'MASTER_LEASE' THEN
4913: x_return_status := OKC_API.g_ret_sts_error;
4914: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
4915: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4916: , p_msg_name => 'OKL_REQUIRED_VALUE'
4917: , p_token1 => 'COL_NAME'
4918: , p_token1_value => l_ak_prompt
4919: );
4916: , p_msg_name => 'OKL_REQUIRED_VALUE'
4917: , p_token1 => 'COL_NAME'
4918: , p_token1_value => l_ak_prompt
4919: );
4920: RAISE OKC_API.G_EXCEPTION_ERROR;
4921: END IF;
4922: END IF;
4923:
4924: IF(p_program_name IS NOT NULL AND p_scs_code <> 'MASTER_LEASE' ) THEN
4928: close l_program_csr;
4929:
4930: IF( l_program_id IS NULL ) THEN
4931:
4932: x_return_status := OKC_API.g_ret_sts_error;
4933: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_PROGRAM');
4934: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4935: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4936: , p_token1 => 'COL_NAME'
4930: IF( l_program_id IS NULL ) THEN
4931:
4932: x_return_status := OKC_API.g_ret_sts_error;
4933: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_PROGRAM');
4934: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4935: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4936: , p_token1 => 'COL_NAME'
4937: , p_token1_value => l_ak_prompt
4938: );
4935: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
4936: , p_token1 => 'COL_NAME'
4937: , p_token1_value => l_ak_prompt
4938: );
4939: RAISE OKC_API.G_EXCEPTION_ERROR;
4940:
4941: END IF;
4942: END IF;
4943:
4941: END IF;
4942: END IF;
4943:
4944: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
4945: x_return_status := OKC_API.g_ret_sts_error;
4946: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4947: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4948: , p_msg_name => 'OKL_REQUIRED_VALUE'
4949: , p_token1 => 'COL_NAME'
4943:
4944: IF(p_source_code <> 'new' AND p_source_contract_number IS NULL) THEN
4945: x_return_status := OKC_API.g_ret_sts_error;
4946: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
4947: OKC_API.SET_MESSAGE( p_app_name => g_app_name
4948: , p_msg_name => 'OKL_REQUIRED_VALUE'
4949: , p_token1 => 'COL_NAME'
4950: , p_token1_value => l_ak_prompt
4951: );
4948: , p_msg_name => 'OKL_REQUIRED_VALUE'
4949: , p_token1 => 'COL_NAME'
4950: , p_token1_value => l_ak_prompt
4951: );
4952: RAISE OKC_API.G_EXCEPTION_ERROR;
4953: END IF;
4954:
4955: IF(p_customer_name IS NOT NULL) THEN
4956:
4970: p_ak_region => 'OKL_LA_DEAL_CREAT',
4971: p_ak_attribute => 'OKL_CUSTOMER_NAME'
4972: );
4973:
4974: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4977: RAISE OKC_API.G_EXCEPTION_ERROR;
4978: END IF;
4971: p_ak_attribute => 'OKL_CUSTOMER_NAME'
4972: );
4973:
4974: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4977: RAISE OKC_API.G_EXCEPTION_ERROR;
4978: END IF;
4979:
4972: );
4973:
4974: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4977: RAISE OKC_API.G_EXCEPTION_ERROR;
4978: END IF;
4979:
4980: END IF;
4973:
4974: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4975: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4976: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4977: RAISE OKC_API.G_EXCEPTION_ERROR;
4978: END IF;
4979:
4980: END IF;
4981:
5095:
5096: END IF;
5097:
5098: IF(p_source_chr_id IS NULL) THEN
5099: x_return_status := OKC_API.g_ret_sts_error;
5100: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
5101: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5102: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5103: , p_token1 => 'COL_NAME'
5097:
5098: IF(p_source_chr_id IS NULL) THEN
5099: x_return_status := OKC_API.g_ret_sts_error;
5100: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_SOURCE');
5101: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5102: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5103: , p_token1 => 'COL_NAME'
5104: , p_token1_value => l_ak_prompt
5105: );
5102: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5103: , p_token1 => 'COL_NAME'
5104: , p_token1_value => l_ak_prompt
5105: );
5106: RAISE OKC_API.G_EXCEPTION_ERROR;
5107: END IF;
5108:
5109: END IF;
5110:
5130: x_chr_id => x_chr_id,
5131: --Added by dpsingh for LE Uptake
5132: p_legal_entity_id => p_legal_entity_id);
5133:
5134: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5136: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_ERROR;
5138: END IF;
5131: --Added by dpsingh for LE Uptake
5132: p_legal_entity_id => p_legal_entity_id);
5133:
5134: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5136: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_ERROR;
5138: END IF;
5139:
5132: p_legal_entity_id => p_legal_entity_id);
5133:
5134: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5136: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_ERROR;
5138: END IF;
5139:
5140: l_chr_id := x_chr_id;
5133:
5134: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5135: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5136: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5137: RAISE OKC_API.G_EXCEPTION_ERROR;
5138: END IF;
5139:
5140: l_chr_id := x_chr_id;
5141:
5153: x_msg_count => x_msg_count,
5154: x_msg_data => x_msg_data,
5155: p_chr_id => l_chr_id);
5156:
5157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5160: RAISE OKC_API.G_EXCEPTION_ERROR;
5161: END IF;
5154: x_msg_data => x_msg_data,
5155: p_chr_id => l_chr_id);
5156:
5157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5160: RAISE OKC_API.G_EXCEPTION_ERROR;
5161: END IF;
5162:
5155: p_chr_id => l_chr_id);
5156:
5157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5160: RAISE OKC_API.G_EXCEPTION_ERROR;
5161: END IF;
5162:
5163: END IF;
5156:
5157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5160: RAISE OKC_API.G_EXCEPTION_ERROR;
5161: END IF;
5162:
5163: END IF;
5164:
5252: x_chr_id => x_chr_id);
5253:
5254: END IF;
5255:
5256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_ERROR;
5260: END IF;
5253:
5254: END IF;
5255:
5256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_ERROR;
5260: END IF;
5261:
5254: END IF;
5255:
5256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_ERROR;
5260: END IF;
5261:
5262: -- update contract header for template_yn
5255:
5256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5259: RAISE OKC_API.G_EXCEPTION_ERROR;
5260: END IF;
5261:
5262: -- update contract header for template_yn
5263: IF ( p_template_type IS NOT NULL AND ( p_source_code = 'quote' OR p_source_code = 'copy' OR p_source_code = 'Re-Lease' OR p_source_code = 'template' OR p_source_code = 'progAgrmntTemp')) THEN
5300: p_khrv_rec => lp_khrv_rec,
5301: x_chrv_rec => lx_chrv_rec,
5302: x_khrv_rec => lx_khrv_rec);
5303:
5304: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5306: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_ERROR;
5308: END IF;
5301: x_chrv_rec => lx_chrv_rec,
5302: x_khrv_rec => lx_khrv_rec);
5303:
5304: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5306: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_ERROR;
5308: END IF;
5309:
5302: x_khrv_rec => lx_khrv_rec);
5303:
5304: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5306: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_ERROR;
5308: END IF;
5309:
5310: ELSIF ( p_template_type IS NULL AND ( p_source_code = 'quote' OR p_source_code = 'copy' OR p_source_code = 'Re-Lease' OR p_source_code = 'template' OR p_source_code = 'progAgrmntTemp' OR p_source_code = 'leaseAppTemp')) THEN
5303:
5304: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5306: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5307: RAISE OKC_API.G_EXCEPTION_ERROR;
5308: END IF;
5309:
5310: ELSIF ( p_template_type IS NULL AND ( p_source_code = 'quote' OR p_source_code = 'copy' OR p_source_code = 'Re-Lease' OR p_source_code = 'template' OR p_source_code = 'progAgrmntTemp' OR p_source_code = 'leaseAppTemp')) THEN
5311:
5336: p_khrv_rec => lp_khrv_rec,
5337: x_chrv_rec => lx_chrv_rec,
5338: x_khrv_rec => lx_khrv_rec);
5339:
5340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5343: RAISE OKC_API.G_EXCEPTION_ERROR;
5344: END IF;
5337: x_chrv_rec => lx_chrv_rec,
5338: x_khrv_rec => lx_khrv_rec);
5339:
5340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5343: RAISE OKC_API.G_EXCEPTION_ERROR;
5344: END IF;
5345:
5338: x_khrv_rec => lx_khrv_rec);
5339:
5340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5343: RAISE OKC_API.G_EXCEPTION_ERROR;
5344: END IF;
5345:
5346: END IF;
5339:
5340: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5341: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5342: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5343: RAISE OKC_API.G_EXCEPTION_ERROR;
5344: END IF;
5345:
5346: END IF;
5347:
5361: -- mvasudev, 08/17/2004
5362: -- END, Code change to enable Business Event
5363: */
5364:
5365: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5366: x_msg_data => x_msg_data);
5367: EXCEPTION
5368: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5369: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5364:
5365: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5366: x_msg_data => x_msg_data);
5367: EXCEPTION
5368: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5369: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5370: p_api_name => l_api_name,
5371: p_pkg_name => g_pkg_name,
5372: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5365: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5366: x_msg_data => x_msg_data);
5367: EXCEPTION
5368: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5369: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5370: p_api_name => l_api_name,
5371: p_pkg_name => g_pkg_name,
5372: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5373: x_msg_count => x_msg_count,
5368: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5369: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5370: p_api_name => l_api_name,
5371: p_pkg_name => g_pkg_name,
5372: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5373: x_msg_count => x_msg_count,
5374: x_msg_data => x_msg_data,
5375: p_api_type => g_api_type);
5376:
5373: x_msg_count => x_msg_count,
5374: x_msg_data => x_msg_data,
5375: p_api_type => g_api_type);
5376:
5377: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5378: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5379: p_api_name => l_api_name,
5380: p_pkg_name => g_pkg_name,
5381: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5374: x_msg_data => x_msg_data,
5375: p_api_type => g_api_type);
5376:
5377: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5378: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5379: p_api_name => l_api_name,
5380: p_pkg_name => g_pkg_name,
5381: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5382: x_msg_count => x_msg_count,
5377: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5378: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5379: p_api_name => l_api_name,
5380: p_pkg_name => g_pkg_name,
5381: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5382: x_msg_count => x_msg_count,
5383: x_msg_data => x_msg_data,
5384: p_api_type => g_api_type);
5385:
5383: x_msg_data => x_msg_data,
5384: p_api_type => g_api_type);
5385:
5386: WHEN OTHERS THEN
5387: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5388: p_api_name => l_api_name,
5389: p_pkg_name => g_pkg_name,
5390: p_exc_name => 'OTHERS',
5391: x_msg_count => x_msg_count,
5404: -- Version : 1.0
5405: -- End of comments
5406: PROCEDURE validate_deal(
5407: p_api_version IN NUMBER,
5408: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5409: x_return_status OUT NOCOPY VARCHAR2,
5410: x_msg_count OUT NOCOPY NUMBER,
5411: x_msg_data OUT NOCOPY VARCHAR2,
5412: p_customer_id1 IN OUT NOCOPY VARCHAR2,
5462: l_chr_id := p_chrv_rec.id;
5463: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
5464: END IF;
5465:
5466: x_return_status := OKC_API.START_ACTIVITY(
5467: p_api_name => l_api_name,
5468: p_pkg_name => g_pkg_name,
5469: p_init_msg_list => p_init_msg_list,
5470: l_api_version => l_api_version,
5472: p_api_type => g_api_type,
5473: x_return_status => x_return_status);
5474:
5475: -- check if activity started successfully
5476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5479: RAISE OKC_API.G_EXCEPTION_ERROR;
5480: END IF;
5473: x_return_status => x_return_status);
5474:
5475: -- check if activity started successfully
5476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5479: RAISE OKC_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5474:
5475: -- check if activity started successfully
5476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5479: RAISE OKC_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5482: -- contract number validation
5475: -- check if activity started successfully
5476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5479: RAISE OKC_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5482: -- contract number validation
5483:
5481:
5482: -- contract number validation
5483:
5484: IF(p_chrv_rec.contract_number IS NULL) THEN
5485: x_return_status := OKC_API.g_ret_sts_error;
5486: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
5487: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5488: , p_msg_name => 'OKL_REQUIRED_VALUE'
5489: , p_token1 => 'COL_NAME'
5483:
5484: IF(p_chrv_rec.contract_number IS NULL) THEN
5485: x_return_status := OKC_API.g_ret_sts_error;
5486: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
5487: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5488: , p_msg_name => 'OKL_REQUIRED_VALUE'
5489: , p_token1 => 'COL_NAME'
5490: , p_token1_value => l_ak_prompt
5491: );
5488: , p_msg_name => 'OKL_REQUIRED_VALUE'
5489: , p_token1 => 'COL_NAME'
5490: , p_token1_value => l_ak_prompt
5491: );
5492: RAISE OKC_API.G_EXCEPTION_ERROR;
5493: END IF;
5494:
5495: -- customer validation
5496:
5494:
5495: -- customer validation
5496:
5497: IF(p_customer_name IS NULL) THEN
5498: x_return_status := OKC_API.g_ret_sts_error;
5499: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
5500: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5501: , p_msg_name => 'OKL_REQUIRED_VALUE'
5502: , p_token1 => 'COL_NAME'
5496:
5497: IF(p_customer_name IS NULL) THEN
5498: x_return_status := OKC_API.g_ret_sts_error;
5499: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
5500: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5501: , p_msg_name => 'OKL_REQUIRED_VALUE'
5502: , p_token1 => 'COL_NAME'
5503: , p_token1_value => l_ak_prompt
5504: );
5501: , p_msg_name => 'OKL_REQUIRED_VALUE'
5502: , p_token1 => 'COL_NAME'
5503: , p_token1_value => l_ak_prompt
5504: );
5505: RAISE OKC_API.G_EXCEPTION_ERROR;
5506: END IF;
5507:
5508: okl_la_validation_util_pvt.Get_Party_Jtot_data (
5509: p_api_version => p_api_version,
5521: p_ak_region => 'OKL_LA_DEAL_CREAT',
5522: p_ak_attribute => 'OKL_CUSTOMER_NAME'
5523: );
5524:
5525: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5528: RAISE OKC_API.G_EXCEPTION_ERROR;
5529: END IF;
5522: p_ak_attribute => 'OKL_CUSTOMER_NAME'
5523: );
5524:
5525: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5528: RAISE OKC_API.G_EXCEPTION_ERROR;
5529: END IF;
5530:
5523: );
5524:
5525: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5528: RAISE OKC_API.G_EXCEPTION_ERROR;
5529: END IF;
5530:
5531: -- customer account validation
5524:
5525: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5526: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5527: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5528: RAISE OKC_API.G_EXCEPTION_ERROR;
5529: END IF;
5530:
5531: -- customer account validation
5532:
5530:
5531: -- customer account validation
5532:
5533: IF(p_customer_acc_name IS NULL) THEN
5534: x_return_status := OKC_API.g_ret_sts_error;
5535: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5536: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5537: , p_msg_name => 'OKL_REQUIRED_VALUE'
5538: , p_token1 => 'COL_NAME'
5532:
5533: IF(p_customer_acc_name IS NULL) THEN
5534: x_return_status := OKC_API.g_ret_sts_error;
5535: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5536: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5537: , p_msg_name => 'OKL_REQUIRED_VALUE'
5538: , p_token1 => 'COL_NAME'
5539: , p_token1_value => l_ak_prompt
5540: );
5537: , p_msg_name => 'OKL_REQUIRED_VALUE'
5538: , p_token1 => 'COL_NAME'
5539: , p_token1_value => l_ak_prompt
5540: );
5541: RAISE OKC_API.G_EXCEPTION_ERROR;
5542: END IF;
5543:
5544: okl_la_validation_util_pvt.Validate_Rule (
5545: p_api_version => p_api_version,
5557: p_ak_region => 'OKL_CONTRACT_DTLS',
5558: p_ak_attribute => 'OKL_KDTLS_CUSTOMER_ACCOUNT_N'
5559: );
5560:
5561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5564: RAISE OKC_API.G_EXCEPTION_ERROR;
5565: END IF;
5558: p_ak_attribute => 'OKL_KDTLS_CUSTOMER_ACCOUNT_N'
5559: );
5560:
5561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5564: RAISE OKC_API.G_EXCEPTION_ERROR;
5565: END IF;
5566:
5559: );
5560:
5561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5564: RAISE OKC_API.G_EXCEPTION_ERROR;
5565: END IF;
5566:
5567: OPEN l_chk_cust_acc_csr(p_customer_acc_name,p_customer_name);
5560:
5561: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5562: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5563: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5564: RAISE OKC_API.G_EXCEPTION_ERROR;
5565: END IF;
5566:
5567: OPEN l_chk_cust_acc_csr(p_customer_acc_name,p_customer_name);
5568: FETCH l_chk_cust_acc_csr INTO row_cnt;
5568: FETCH l_chk_cust_acc_csr INTO row_cnt;
5569: CLOSE l_chk_cust_acc_csr;
5570:
5571: IF row_cnt = 0 THEN
5572: x_return_status := OKC_API.g_ret_sts_error;
5573: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5575: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5576: , p_token1 => 'COL_NAME'
5570:
5571: IF row_cnt = 0 THEN
5572: x_return_status := OKC_API.g_ret_sts_error;
5573: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5574: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5575: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5576: , p_token1 => 'COL_NAME'
5577: , p_token1_value => l_ak_prompt
5578: );
5575: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5576: , p_token1 => 'COL_NAME'
5577: , p_token1_value => l_ak_prompt
5578: );
5579: RAISE OKC_API.G_EXCEPTION_ERROR;
5580: END IF;
5581:
5582: -- product validation
5583:
5581:
5582: -- product validation
5583:
5584: IF(p_product_name IS NULL) THEN
5585: x_return_status := OKC_API.g_ret_sts_error;
5586: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5587: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5588: , p_msg_name => 'OKL_REQUIRED_VALUE'
5589: , p_token1 => 'COL_NAME'
5583:
5584: IF(p_product_name IS NULL) THEN
5585: x_return_status := OKC_API.g_ret_sts_error;
5586: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5587: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5588: , p_msg_name => 'OKL_REQUIRED_VALUE'
5589: , p_token1 => 'COL_NAME'
5590: , p_token1_value => l_ak_prompt
5591: );
5588: , p_msg_name => 'OKL_REQUIRED_VALUE'
5589: , p_token1 => 'COL_NAME'
5590: , p_token1_value => l_ak_prompt
5591: );
5592: RAISE OKC_API.G_EXCEPTION_ERROR;
5593: END IF;
5594:
5595: OPEN l_product_csr;
5596: FETCH l_product_csr INTO p_product_id;
5596: FETCH l_product_csr INTO p_product_id;
5597: CLOSE l_product_csr;
5598:
5599: IF p_product_id IS NULL THEN
5600: x_return_status := OKC_API.g_ret_sts_error;
5601: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5602: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5603: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5604: , p_token1 => 'COL_NAME'
5598:
5599: IF p_product_id IS NULL THEN
5600: x_return_status := OKC_API.g_ret_sts_error;
5601: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5602: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5603: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5604: , p_token1 => 'COL_NAME'
5605: , p_token1_value => l_ak_prompt
5606: );
5603: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5604: , p_token1 => 'COL_NAME'
5605: , p_token1_value => l_ak_prompt
5606: );
5607: RAISE OKC_API.G_EXCEPTION_ERROR;
5608: END IF;
5609:
5610: -- contact validation
5611:
5627: p_ak_region => 'OKL_CONTRACT_DTLS',
5628: p_ak_attribute => 'OKL_KDTLS_SALES_REPRESENTATIVE'
5629: );
5630:
5631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5634: RAISE OKC_API.G_EXCEPTION_ERROR;
5635: END IF;
5628: p_ak_attribute => 'OKL_KDTLS_SALES_REPRESENTATIVE'
5629: );
5630:
5631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5634: RAISE OKC_API.G_EXCEPTION_ERROR;
5635: END IF;
5636:
5629: );
5630:
5631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5634: RAISE OKC_API.G_EXCEPTION_ERROR;
5635: END IF;
5636:
5637: END IF;
5630:
5631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5634: RAISE OKC_API.G_EXCEPTION_ERROR;
5635: END IF;
5636:
5637: END IF;
5638:
5635: END IF;
5636:
5637: END IF;
5638:
5639: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5640: x_msg_data => x_msg_data);
5641: EXCEPTION
5642: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5643: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5638:
5639: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5640: x_msg_data => x_msg_data);
5641: EXCEPTION
5642: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5643: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5644: p_api_name => l_api_name,
5645: p_pkg_name => g_pkg_name,
5646: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5639: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
5640: x_msg_data => x_msg_data);
5641: EXCEPTION
5642: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5643: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5644: p_api_name => l_api_name,
5645: p_pkg_name => g_pkg_name,
5646: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5647: x_msg_count => x_msg_count,
5642: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5643: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5644: p_api_name => l_api_name,
5645: p_pkg_name => g_pkg_name,
5646: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
5647: x_msg_count => x_msg_count,
5648: x_msg_data => x_msg_data,
5649: p_api_type => g_api_type);
5650:
5647: x_msg_count => x_msg_count,
5648: x_msg_data => x_msg_data,
5649: p_api_type => g_api_type);
5650:
5651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5652: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5653: p_api_name => l_api_name,
5654: p_pkg_name => g_pkg_name,
5655: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5648: x_msg_data => x_msg_data,
5649: p_api_type => g_api_type);
5650:
5651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5652: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5653: p_api_name => l_api_name,
5654: p_pkg_name => g_pkg_name,
5655: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5656: x_msg_count => x_msg_count,
5651: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5652: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5653: p_api_name => l_api_name,
5654: p_pkg_name => g_pkg_name,
5655: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
5656: x_msg_count => x_msg_count,
5657: x_msg_data => x_msg_data,
5658: p_api_type => g_api_type);
5659:
5657: x_msg_data => x_msg_data,
5658: p_api_type => g_api_type);
5659:
5660: WHEN OTHERS THEN
5661: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
5662: p_api_name => l_api_name,
5663: p_pkg_name => g_pkg_name,
5664: p_exc_name => 'OTHERS',
5665: x_msg_count => x_msg_count,
5679: -- Version : 1.0
5680: -- End of comments
5681: PROCEDURE update_release_contract(
5682: p_api_version IN NUMBER,
5683: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5684: x_return_status OUT NOCOPY VARCHAR2,
5685: x_msg_count OUT NOCOPY NUMBER,
5686: x_msg_data OUT NOCOPY VARCHAR2,
5687: p_chr_id IN NUMBER,
5839: l_chr_id := p_chr_id;
5840: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
5841: END IF;
5842:
5843: x_return_status := OKC_API.START_ACTIVITY(
5844: p_api_name => l_api_name,
5845: p_pkg_name => g_pkg_name,
5846: p_init_msg_list => p_init_msg_list,
5847: l_api_version => l_api_version,
5849: p_api_type => g_api_type,
5850: x_return_status => x_return_status);
5851:
5852: -- check if activity started successfully
5853: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5855: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5856: RAISE OKC_API.G_EXCEPTION_ERROR;
5857: END IF;
5850: x_return_status => x_return_status);
5851:
5852: -- check if activity started successfully
5853: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5855: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5856: RAISE OKC_API.G_EXCEPTION_ERROR;
5857: END IF;
5858:
5851:
5852: -- check if activity started successfully
5853: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5855: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5856: RAISE OKC_API.G_EXCEPTION_ERROR;
5857: END IF;
5858:
5859: l_rbr_code := null;
5852: -- check if activity started successfully
5853: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5855: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5856: RAISE OKC_API.G_EXCEPTION_ERROR;
5857: END IF;
5858:
5859: l_rbr_code := null;
5860: open l_rbr_csr;
5864: If(l_rbr_code is not null and l_rbr_code = 'PRODUCT_CHANGE') Then
5865:
5866: -- product validation
5867: IF(p_product_name IS NULL) THEN
5868: x_return_status := OKC_API.g_ret_sts_error;
5869: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5870: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5871: , p_msg_name => 'OKL_REQUIRED_VALUE'
5872: , p_token1 => 'COL_NAME'
5866: -- product validation
5867: IF(p_product_name IS NULL) THEN
5868: x_return_status := OKC_API.g_ret_sts_error;
5869: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5870: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5871: , p_msg_name => 'OKL_REQUIRED_VALUE'
5872: , p_token1 => 'COL_NAME'
5873: , p_token1_value => l_ak_prompt
5874: );
5871: , p_msg_name => 'OKL_REQUIRED_VALUE'
5872: , p_token1 => 'COL_NAME'
5873: , p_token1_value => l_ak_prompt
5874: );
5875: RAISE OKC_API.G_EXCEPTION_ERROR;
5876: END IF;
5877:
5878: l_product_id := null;
5879: OPEN l_product_csr;
5880: FETCH l_product_csr INTO l_product_id;
5881: CLOSE l_product_csr;
5882:
5883: IF l_product_id IS NULL THEN
5884: x_return_status := OKC_API.g_ret_sts_error;
5885: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5886: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5887: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5888: , p_token1 => 'COL_NAME'
5882:
5883: IF l_product_id IS NULL THEN
5884: x_return_status := OKC_API.g_ret_sts_error;
5885: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
5886: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5887: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5888: , p_token1 => 'COL_NAME'
5889: , p_token1_value => l_ak_prompt
5890: );
5887: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5888: , p_token1 => 'COL_NAME'
5889: , p_token1_value => l_ak_prompt
5890: );
5891: RAISE OKC_API.G_EXCEPTION_ERROR;
5892: END IF;
5893:
5894: END IF;
5895:
5896: If(l_rbr_code is not null and l_rbr_code = 'CUSTOMER_CHANGE') Then
5897:
5898: -- customer validation
5899: IF(p_customer_name IS NULL) THEN
5900: x_return_status := OKC_API.g_ret_sts_error;
5901: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
5902: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5903: , p_msg_name => 'OKL_REQUIRED_VALUE'
5904: , p_token1 => 'COL_NAME'
5898: -- customer validation
5899: IF(p_customer_name IS NULL) THEN
5900: x_return_status := OKC_API.g_ret_sts_error;
5901: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
5902: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5903: , p_msg_name => 'OKL_REQUIRED_VALUE'
5904: , p_token1 => 'COL_NAME'
5905: , p_token1_value => l_ak_prompt
5906: );
5903: , p_msg_name => 'OKL_REQUIRED_VALUE'
5904: , p_token1 => 'COL_NAME'
5905: , p_token1_value => l_ak_prompt
5906: );
5907: RAISE OKC_API.G_EXCEPTION_ERROR;
5908: END IF;
5909:
5910: -- customer account validation
5911: IF(p_customer_acc_name IS NULL) THEN
5908: END IF;
5909:
5910: -- customer account validation
5911: IF(p_customer_acc_name IS NULL) THEN
5912: x_return_status := OKC_API.g_ret_sts_error;
5913: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5914: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5915: , p_msg_name => 'OKL_REQUIRED_VALUE'
5916: , p_token1 => 'COL_NAME'
5910: -- customer account validation
5911: IF(p_customer_acc_name IS NULL) THEN
5912: x_return_status := OKC_API.g_ret_sts_error;
5913: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5914: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5915: , p_msg_name => 'OKL_REQUIRED_VALUE'
5916: , p_token1 => 'COL_NAME'
5917: , p_token1_value => l_ak_prompt
5918: );
5915: , p_msg_name => 'OKL_REQUIRED_VALUE'
5916: , p_token1 => 'COL_NAME'
5917: , p_token1_value => l_ak_prompt
5918: );
5919: RAISE OKC_API.G_EXCEPTION_ERROR;
5920: END IF;
5921:
5922: l_cust_id1 := null;
5923: l_cust_id2 := null;
5925: Fetch l_get_cust_id_csr into l_cust_id1,l_cust_id2;
5926: Close l_get_cust_id_csr;
5927:
5928: If l_cust_id1 is null Then
5929: x_return_status := OKC_API.g_ret_sts_error;
5930: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
5931: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5932: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5933: , p_token1 => 'COL_NAME'
5927:
5928: If l_cust_id1 is null Then
5929: x_return_status := OKC_API.g_ret_sts_error;
5930: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CUSTOMER_NAME');
5931: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5932: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5933: , p_token1 => 'COL_NAME'
5934: , p_token1_value => l_ak_prompt
5935: );
5932: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5933: , p_token1 => 'COL_NAME'
5934: , p_token1_value => l_ak_prompt
5935: );
5936: raise OKC_API.G_EXCEPTION_ERROR;
5937: End If;
5938:
5939: l_cust_acct_id := null;
5940: Open l_get_cust_acc_csr(p_customer_acc_name, p_customer_name);
5941: Fetch l_get_cust_acc_csr into l_cust_acct_id;
5942: Close l_get_cust_acc_csr;
5943:
5944: If l_cust_acct_id is null Then
5945: x_return_status := OKC_API.g_ret_sts_error;
5946: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5947: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5948: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5949: , p_token1 => 'COL_NAME'
5943:
5944: If l_cust_acct_id is null Then
5945: x_return_status := OKC_API.g_ret_sts_error;
5946: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CUSTOMER_ACCOUNT_N');
5947: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5948: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5949: , p_token1 => 'COL_NAME'
5950: , p_token1_value => l_ak_prompt
5951: );
5948: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5949: , p_token1 => 'COL_NAME'
5950: , p_token1_value => l_ak_prompt
5951: );
5952: raise OKC_API.G_EXCEPTION_ERROR;
5953: End If;
5954:
5955: -- mla validation
5956: If(p_mla_no is not null) Then
5960: fetch l_mla_csr into l_mla_id;
5961: close l_mla_csr;
5962:
5963: If l_mla_id is null Then
5964: x_return_status := OKC_API.g_ret_sts_error;
5965: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_MASTER_LEASE_NUMBER');
5966: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5967: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5968: , p_token1 => 'COL_NAME'
5962:
5963: If l_mla_id is null Then
5964: x_return_status := OKC_API.g_ret_sts_error;
5965: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_MASTER_LEASE_NUMBER');
5966: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5967: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5968: , p_token1 => 'COL_NAME'
5969: , p_token1_value => l_ak_prompt
5970: );
5967: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5968: , p_token1 => 'COL_NAME'
5969: , p_token1_value => l_ak_prompt
5970: );
5971: raise OKC_API.G_EXCEPTION_ERROR;
5972: End If;
5973:
5974: End If;
5975:
5986: fetch l_credit_line_csr into l_cl_id;
5987: close l_credit_line_csr;
5988:
5989: If l_cl_id is null Then
5990: x_return_status := OKC_API.g_ret_sts_error;
5991: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
5992: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5993: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5994: , p_token1 => 'COL_NAME'
5988:
5989: If l_cl_id is null Then
5990: x_return_status := OKC_API.g_ret_sts_error;
5991: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_CREDIT_CONTRACT');
5992: OKC_API.SET_MESSAGE( p_app_name => g_app_name
5993: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
5994: , p_token1 => 'COL_NAME'
5995: , p_token1_value => l_ak_prompt
5996:
5994: , p_token1 => 'COL_NAME'
5995: , p_token1_value => l_ak_prompt
5996:
5997: );
5998: raise OKC_API.G_EXCEPTION_ERROR;
5999: End If;
6000:
6001: End If;
6002:
6012: p_mla_no => p_mla_no,
6013: p_cl_no => p_cl_no
6014: );
6015:
6016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6019: RAISE OKC_API.G_EXCEPTION_ERROR;
6020: END IF;
6013: p_cl_no => p_cl_no
6014: );
6015:
6016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6019: RAISE OKC_API.G_EXCEPTION_ERROR;
6020: END IF;
6021:
6014: );
6015:
6016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6019: RAISE OKC_API.G_EXCEPTION_ERROR;
6020: END IF;
6021:
6022: -- program validation
6015:
6016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6019: RAISE OKC_API.G_EXCEPTION_ERROR;
6020: END IF;
6021:
6022: -- program validation
6023: If(p_program_no is not null) Then
6028: close l_program_csr;
6029:
6030: If l_program_id is null Then
6031:
6032: x_return_status := OKC_API.g_ret_sts_error;
6033: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PROGRAM');
6034: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6035: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
6036: , p_token1 => 'COL_NAME'
6030: If l_program_id is null Then
6031:
6032: x_return_status := OKC_API.g_ret_sts_error;
6033: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PROGRAM');
6034: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6035: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
6036: , p_token1 => 'COL_NAME'
6037: , p_token1_value => l_ak_prompt
6038: );
6035: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
6036: , p_token1 => 'COL_NAME'
6037: , p_token1_value => l_ak_prompt
6038: );
6039: raise OKC_API.G_EXCEPTION_ERROR;
6040:
6041: End If;
6042:
6043: End If;
6059: p_pdtv_rec => lp_pdtv_rec,
6060: p_product_date => NULL,
6061: p_pdt_parameter_rec => lx_pdt_param_rec);
6062:
6063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_ERROR;
6067: END IF;
6060: p_product_date => NULL,
6061: p_pdt_parameter_rec => lx_pdt_param_rec);
6062:
6063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_ERROR;
6067: END IF;
6068:
6061: p_pdt_parameter_rec => lx_pdt_param_rec);
6062:
6063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_ERROR;
6067: END IF;
6068:
6069: lp_chrv_rec.id := p_chr_id;
6062:
6063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6066: RAISE OKC_API.G_EXCEPTION_ERROR;
6067: END IF;
6068:
6069: lp_chrv_rec.id := p_chr_id;
6070: lp_chrv_rec.contract_number := p_contract_number;
6097: p_khrv_rec => lp_khrv_rec,
6098: x_chrv_rec => lx_chrv_rec,
6099: x_khrv_rec => lx_khrv_rec);
6100:
6101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6104: RAISE OKC_API.G_EXCEPTION_ERROR;
6105: END IF;
6098: x_chrv_rec => lx_chrv_rec,
6099: x_khrv_rec => lx_khrv_rec);
6100:
6101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6104: RAISE OKC_API.G_EXCEPTION_ERROR;
6105: END IF;
6106:
6099: x_khrv_rec => lx_khrv_rec);
6100:
6101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6104: RAISE OKC_API.G_EXCEPTION_ERROR;
6105: END IF;
6106:
6107: END IF;
6100:
6101: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6102: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6103: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6104: RAISE OKC_API.G_EXCEPTION_ERROR;
6105: END IF;
6106:
6107: END IF;
6108:
6141: x_cplv_rec => lx_lessee_cplv_rec,
6142: p_kplv_rec => lp_kplv_rec,
6143: x_kplv_rec => lx_kplv_rec);
6144:
6145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6148: RAISE OKC_API.G_EXCEPTION_ERROR;
6149: END IF;
6142: p_kplv_rec => lp_kplv_rec,
6143: x_kplv_rec => lx_kplv_rec);
6144:
6145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6148: RAISE OKC_API.G_EXCEPTION_ERROR;
6149: END IF;
6150:
6143: x_kplv_rec => lx_kplv_rec);
6144:
6145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6148: RAISE OKC_API.G_EXCEPTION_ERROR;
6149: END IF;
6150:
6151: -- mla
6144:
6145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6148: RAISE OKC_API.G_EXCEPTION_ERROR;
6149: END IF;
6150:
6151: -- mla
6152: IF (p_gvr_id_mla IS NULL AND p_mla_no IS NOT NULL ) THEN
6165: x_msg_data => x_msg_data,
6166: p_gvev_rec => lp_mla_gvev_rec,
6167: x_gvev_rec => lx_mla_gvev_rec);
6168:
6169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6172: RAISE OKC_API.G_EXCEPTION_ERROR;
6173: END IF;
6166: p_gvev_rec => lp_mla_gvev_rec,
6167: x_gvev_rec => lx_mla_gvev_rec);
6168:
6169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6172: RAISE OKC_API.G_EXCEPTION_ERROR;
6173: END IF;
6174:
6167: x_gvev_rec => lx_mla_gvev_rec);
6168:
6169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6172: RAISE OKC_API.G_EXCEPTION_ERROR;
6173: END IF;
6174:
6175: ELSIF (p_gvr_id_mla IS NOT NULL AND p_mla_no IS NOT NULL ) THEN
6168:
6169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6172: RAISE OKC_API.G_EXCEPTION_ERROR;
6173: END IF;
6174:
6175: ELSIF (p_gvr_id_mla IS NOT NULL AND p_mla_no IS NOT NULL ) THEN
6176:
6188: x_msg_data => x_msg_data,
6189: p_gvev_rec => lp_mla_gvev_rec,
6190: x_gvev_rec => lx_mla_gvev_rec);
6191:
6192: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6189: p_gvev_rec => lp_mla_gvev_rec,
6190: x_gvev_rec => lx_mla_gvev_rec);
6191:
6192: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6197:
6190: x_gvev_rec => lx_mla_gvev_rec);
6191:
6192: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6197:
6198:
6191:
6192: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6193: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6194: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6195: RAISE OKC_API.G_EXCEPTION_ERROR;
6196: END IF;
6197:
6198:
6199: ELSIF (p_gvr_id_mla IS NOT NULL AND p_mla_no IS NULL ) THEN
6207: x_msg_count => x_msg_count,
6208: x_msg_data => x_msg_data,
6209: p_gvev_rec => lp_mla_gvev_rec);
6210:
6211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6214: RAISE OKC_API.G_EXCEPTION_ERROR;
6215: END IF;
6208: x_msg_data => x_msg_data,
6209: p_gvev_rec => lp_mla_gvev_rec);
6210:
6211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6214: RAISE OKC_API.G_EXCEPTION_ERROR;
6215: END IF;
6216:
6209: p_gvev_rec => lp_mla_gvev_rec);
6210:
6211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6214: RAISE OKC_API.G_EXCEPTION_ERROR;
6215: END IF;
6216:
6217: END IF;
6210:
6211: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6212: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6213: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6214: RAISE OKC_API.G_EXCEPTION_ERROR;
6215: END IF;
6216:
6217: END IF;
6218:
6237: x_msg_data => x_msg_data,
6238: p_gvev_rec => lp_cl_gvev_rec,
6239: x_gvev_rec => lx_cl_gvev_rec);
6240:
6241: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6243: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6244: RAISE OKC_API.G_EXCEPTION_ERROR;
6245: END IF;
6238: p_gvev_rec => lp_cl_gvev_rec,
6239: x_gvev_rec => lx_cl_gvev_rec);
6240:
6241: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6243: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6244: RAISE OKC_API.G_EXCEPTION_ERROR;
6245: END IF;
6246:
6239: x_gvev_rec => lx_cl_gvev_rec);
6240:
6241: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6243: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6244: RAISE OKC_API.G_EXCEPTION_ERROR;
6245: END IF;
6246:
6247: ELSIF (p_gvr_id_cl IS NOT NULL AND p_cl_no IS NOT NULL ) THEN
6240:
6241: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6242: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6243: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6244: RAISE OKC_API.G_EXCEPTION_ERROR;
6245: END IF;
6246:
6247: ELSIF (p_gvr_id_cl IS NOT NULL AND p_cl_no IS NOT NULL ) THEN
6248:
6260: x_msg_data => x_msg_data,
6261: p_gvev_rec => lp_cl_gvev_rec,
6262: x_gvev_rec => lx_cl_gvev_rec);
6263:
6264: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6266: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6267: RAISE OKC_API.G_EXCEPTION_ERROR;
6268: END IF;
6261: p_gvev_rec => lp_cl_gvev_rec,
6262: x_gvev_rec => lx_cl_gvev_rec);
6263:
6264: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6266: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6267: RAISE OKC_API.G_EXCEPTION_ERROR;
6268: END IF;
6269:
6262: x_gvev_rec => lx_cl_gvev_rec);
6263:
6264: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6266: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6267: RAISE OKC_API.G_EXCEPTION_ERROR;
6268: END IF;
6269:
6270: ELSIF (p_gvr_id_cl IS NOT NULL AND p_cl_no IS NULL ) THEN
6263:
6264: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6265: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6266: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6267: RAISE OKC_API.G_EXCEPTION_ERROR;
6268: END IF;
6269:
6270: ELSIF (p_gvr_id_cl IS NOT NULL AND p_cl_no IS NULL ) THEN
6271:
6278: x_msg_count => x_msg_count,
6279: x_msg_data => x_msg_data,
6280: p_gvev_rec => lp_cl_gvev_rec);
6281:
6282: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6279: x_msg_data => x_msg_data,
6280: p_gvev_rec => lp_cl_gvev_rec);
6281:
6282: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6287:
6280: p_gvev_rec => lp_cl_gvev_rec);
6281:
6282: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6287:
6288: END IF;
6281:
6282: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6287:
6288: END IF;
6289:
6319: p_org_id => l_auth_org_id,
6320: p_organization_id => l_inv_org_id
6321: );
6322:
6323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6326: RAISE OKC_API.G_EXCEPTION_ERROR;
6327: END IF;
6320: p_organization_id => l_inv_org_id
6321: );
6322:
6323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6326: RAISE OKC_API.G_EXCEPTION_ERROR;
6327: END IF;
6328:
6321: );
6322:
6323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6326: RAISE OKC_API.G_EXCEPTION_ERROR;
6327: END IF;
6328:
6329: END IF;
6322:
6323: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6324: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6325: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6326: RAISE OKC_API.G_EXCEPTION_ERROR;
6327: END IF;
6328:
6329: END IF;
6330:
6333: If(l_rbr_code is not null and l_rbr_code = 'PRODUCT_CHANGE') Then
6334:
6335: -- product validation
6336: IF(p_product_name IS NULL) THEN
6337: x_return_status := OKC_API.g_ret_sts_error;
6338: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
6339: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6340: , p_msg_name => 'OKL_REQUIRED_VALUE'
6341: , p_token1 => 'COL_NAME'
6335: -- product validation
6336: IF(p_product_name IS NULL) THEN
6337: x_return_status := OKC_API.g_ret_sts_error;
6338: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
6339: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6340: , p_msg_name => 'OKL_REQUIRED_VALUE'
6341: , p_token1 => 'COL_NAME'
6342: , p_token1_value => l_ak_prompt
6343: );
6340: , p_msg_name => 'OKL_REQUIRED_VALUE'
6341: , p_token1 => 'COL_NAME'
6342: , p_token1_value => l_ak_prompt
6343: );
6344: RAISE OKC_API.G_EXCEPTION_ERROR;
6345: END IF;
6346:
6347: l_product_id := null;
6348: OPEN l_product_csr;
6349: FETCH l_product_csr INTO l_product_id;
6350: CLOSE l_product_csr;
6351:
6352: IF l_product_id IS NULL THEN
6353: x_return_status := OKC_API.g_ret_sts_error;
6354: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
6355: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6356: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
6357: , p_token1 => 'COL_NAME'
6351:
6352: IF l_product_id IS NULL THEN
6353: x_return_status := OKC_API.g_ret_sts_error;
6354: l_ak_prompt := GET_AK_PROMPT('OKL_CONTRACT_DTLS', 'OKL_KDTLS_PRODUCT');
6355: OKC_API.SET_MESSAGE( p_app_name => g_app_name
6356: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
6357: , p_token1 => 'COL_NAME'
6358: , p_token1_value => l_ak_prompt
6359: );
6356: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
6357: , p_token1 => 'COL_NAME'
6358: , p_token1_value => l_ak_prompt
6359: );
6360: RAISE OKC_API.G_EXCEPTION_ERROR;
6361: END IF;
6362:
6363: -- product changes
6364: lp_pdtv_rec.id := l_product_id;
6372: p_pdtv_rec => lp_pdtv_rec,
6373: p_product_date => NULL,
6374: p_pdt_parameter_rec => lx_pdt_param_rec);
6375:
6376: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6377: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6379: RAISE OKC_API.G_EXCEPTION_ERROR;
6380: END IF;
6373: p_product_date => NULL,
6374: p_pdt_parameter_rec => lx_pdt_param_rec);
6375:
6376: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6377: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6379: RAISE OKC_API.G_EXCEPTION_ERROR;
6380: END IF;
6381:
6374: p_pdt_parameter_rec => lx_pdt_param_rec);
6375:
6376: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6377: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6379: RAISE OKC_API.G_EXCEPTION_ERROR;
6380: END IF;
6381:
6382: lp_chrv_rec.id := p_chr_id;
6375:
6376: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6377: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6378: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6379: RAISE OKC_API.G_EXCEPTION_ERROR;
6380: END IF;
6381:
6382: lp_chrv_rec.id := p_chr_id;
6383: lp_khrv_rec.id := p_chr_id;
6395: p_khrv_rec => lp_khrv_rec,
6396: x_chrv_rec => lx_chrv_rec,
6397: x_khrv_rec => lx_khrv_rec);
6398:
6399: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6401: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6402: RAISE OKC_API.G_EXCEPTION_ERROR;
6403: END IF;
6396: x_chrv_rec => lx_chrv_rec,
6397: x_khrv_rec => lx_khrv_rec);
6398:
6399: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6401: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6402: RAISE OKC_API.G_EXCEPTION_ERROR;
6403: END IF;
6404:
6397: x_khrv_rec => lx_khrv_rec);
6398:
6399: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6401: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6402: RAISE OKC_API.G_EXCEPTION_ERROR;
6403: END IF;
6404:
6405: End if; -- end of rbr code block
6398:
6399: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6401: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6402: RAISE OKC_API.G_EXCEPTION_ERROR;
6403: END IF;
6404:
6405: End if; -- end of rbr code block
6406:
6403: END IF;
6404:
6405: End if; -- end of rbr code block
6406:
6407: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6408:
6409: EXCEPTION
6410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6411: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6406:
6407: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6408:
6409: EXCEPTION
6410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6411: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6412: p_api_name => l_api_name,
6413: p_pkg_name => g_pkg_name,
6414: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
6407: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6408:
6409: EXCEPTION
6410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6411: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6412: p_api_name => l_api_name,
6413: p_pkg_name => g_pkg_name,
6414: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
6415: x_msg_count => x_msg_count,
6410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6411: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6412: p_api_name => l_api_name,
6413: p_pkg_name => g_pkg_name,
6414: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
6415: x_msg_count => x_msg_count,
6416: x_msg_data => x_msg_data,
6417: p_api_type => g_api_type);
6418:
6415: x_msg_count => x_msg_count,
6416: x_msg_data => x_msg_data,
6417: p_api_type => g_api_type);
6418:
6419: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6420: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6421: p_api_name => l_api_name,
6422: p_pkg_name => g_pkg_name,
6423: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
6416: x_msg_data => x_msg_data,
6417: p_api_type => g_api_type);
6418:
6419: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6420: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6421: p_api_name => l_api_name,
6422: p_pkg_name => g_pkg_name,
6423: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
6424: x_msg_count => x_msg_count,
6419: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6420: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6421: p_api_name => l_api_name,
6422: p_pkg_name => g_pkg_name,
6423: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
6424: x_msg_count => x_msg_count,
6425: x_msg_data => x_msg_data,
6426: p_api_type => g_api_type);
6427:
6425: x_msg_data => x_msg_data,
6426: p_api_type => g_api_type);
6427:
6428: WHEN OTHERS THEN
6429: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
6430: p_api_name => l_api_name,
6431: p_pkg_name => g_pkg_name,
6432: p_exc_name => 'OTHERS',
6433: x_msg_count => x_msg_count,
6437:
6438:
6439: PROCEDURE update_deal(
6440: p_api_version IN NUMBER,
6441: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
6442: x_return_status OUT NOCOPY VARCHAR2,
6443: x_msg_count OUT NOCOPY NUMBER,
6444: x_msg_data OUT NOCOPY VARCHAR2,
6445: p_durv_rec IN deal_rec_type,
6657: l_check VARCHAR2(1);
6658: l_parameter_list wf_parameter_list_t;
6659: BEGIN
6660:
6661: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
6662: -- Raise the event if it is a new Contract
6663: l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
6664: IF (l_check= OKL_API.G_TRUE) THEN
6665: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
6692: l_chr_id := p_durv_rec.chr_id;
6693: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
6694: END IF;
6695:
6696: x_return_status := OKC_API.START_ACTIVITY(
6697: p_api_name => l_api_name,
6698: p_pkg_name => g_pkg_name,
6699: p_init_msg_list => p_init_msg_list,
6700: l_api_version => l_api_version,
6702: p_api_type => g_api_type,
6703: x_return_status => x_return_status);
6704:
6705: -- check if activity started successfully
6706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6710: END IF;
6703: x_return_status => x_return_status);
6704:
6705: -- check if activity started successfully
6706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6710: END IF;
6711:
6704:
6705: -- check if activity started successfully
6706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6710: END IF;
6711:
6712: l_orig_sys_src_code := null;
6705: -- check if activity started successfully
6706: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6707: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6708: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6709: RAISE OKC_API.G_EXCEPTION_ERROR;
6710: END IF;
6711:
6712: l_orig_sys_src_code := null;
6713: Open is_re_lease_csr;
6744: p_program_id => p_durv_rec.khr_khr_id,
6745: p_program_yn => p_durv_rec.khr_generate_accrual_yn
6746: );
6747:
6748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6751: RAISE OKC_API.G_EXCEPTION_ERROR;
6752: END IF;
6745: p_program_yn => p_durv_rec.khr_generate_accrual_yn
6746: );
6747:
6748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6751: RAISE OKC_API.G_EXCEPTION_ERROR;
6752: END IF;
6753:
6746: );
6747:
6748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6751: RAISE OKC_API.G_EXCEPTION_ERROR;
6752: END IF;
6753:
6754: Else
6747:
6748: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6750: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6751: RAISE OKC_API.G_EXCEPTION_ERROR;
6752: END IF;
6753:
6754: Else
6755:
6803: p_start_date => p_durv_rec.chr_start_date,
6804: p_deal_type => p_durv_rec.khr_deal_type
6805: );
6806:
6807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6810: RAISE OKC_API.G_EXCEPTION_ERROR;
6811: END IF;
6804: p_deal_type => p_durv_rec.khr_deal_type
6805: );
6806:
6807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6810: RAISE OKC_API.G_EXCEPTION_ERROR;
6811: END IF;
6812:
6805: );
6806:
6807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6810: RAISE OKC_API.G_EXCEPTION_ERROR;
6811: END IF;
6812:
6813: -- product changes
6806:
6807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6810: RAISE OKC_API.G_EXCEPTION_ERROR;
6811: END IF;
6812:
6813: -- product changes
6814: lp_pdtv_rec.id := x_durv_rec.khr_pdt_id;
6823: p_product_date => NULL,
6824: p_pdt_parameter_rec => lx_pdt_param_rec);
6825:
6826:
6827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6830: RAISE OKC_API.G_EXCEPTION_ERROR;
6831: END IF;
6824: p_pdt_parameter_rec => lx_pdt_param_rec);
6825:
6826:
6827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6830: RAISE OKC_API.G_EXCEPTION_ERROR;
6831: END IF;
6832:
6825:
6826:
6827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6830: RAISE OKC_API.G_EXCEPTION_ERROR;
6831: END IF;
6832:
6833: x_durv_rec.khr_deal_type := lx_pdt_param_rec.Deal_Type;
6826:
6827: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6828: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6829: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6830: RAISE OKC_API.G_EXCEPTION_ERROR;
6831: END IF;
6832:
6833: x_durv_rec.khr_deal_type := lx_pdt_param_rec.Deal_Type;
6834: x_durv_rec.r_latown_rule_information1 := lx_pdt_param_rec.tax_owner;
6845: p_mla_no => p_durv_rec.mla_contract_number,
6846: p_cl_no => p_durv_rec.cl_contract_number
6847: );
6848:
6849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6852: RAISE OKC_API.G_EXCEPTION_ERROR;
6853: END IF;
6846: p_cl_no => p_durv_rec.cl_contract_number
6847: );
6848:
6849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6852: RAISE OKC_API.G_EXCEPTION_ERROR;
6853: END IF;
6854:
6847: );
6848:
6849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6852: RAISE OKC_API.G_EXCEPTION_ERROR;
6853: END IF;
6854:
6855: -- update contract header
6848:
6849: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6852: RAISE OKC_API.G_EXCEPTION_ERROR;
6853: END IF;
6854:
6855: -- update contract header
6856: lp_chrv_rec.id := p_durv_rec.chr_id;
6965: p_khrv_rec => lp_khrv_rec,
6966: x_chrv_rec => lx_chrv_rec,
6967: x_khrv_rec => lx_khrv_rec);
6968:
6969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6972: RAISE OKC_API.G_EXCEPTION_ERROR;
6973: END IF;
6966: x_chrv_rec => lx_chrv_rec,
6967: x_khrv_rec => lx_khrv_rec);
6968:
6969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6972: RAISE OKC_API.G_EXCEPTION_ERROR;
6973: END IF;
6974: /*
6967: x_khrv_rec => lx_khrv_rec);
6968:
6969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6972: RAISE OKC_API.G_EXCEPTION_ERROR;
6973: END IF;
6974: /*
6975: open l_vers_version_csr;
6968:
6969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6972: RAISE OKC_API.G_EXCEPTION_ERROR;
6973: END IF;
6974: /*
6975: open l_vers_version_csr;
6976: fetch l_vers_version_csr into x_durv_rec.vers_version;
7013: x_cplv_rec => lx_lessee_cplv_rec,
7014: p_kplv_rec => lp_kplv_rec,
7015: x_kplv_rec => lx_kplv_rec);
7016:
7017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7020: RAISE OKC_API.G_EXCEPTION_ERROR;
7021: END IF;
7014: p_kplv_rec => lp_kplv_rec,
7015: x_kplv_rec => lx_kplv_rec);
7016:
7017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7020: RAISE OKC_API.G_EXCEPTION_ERROR;
7021: END IF;
7022:
7015: x_kplv_rec => lx_kplv_rec);
7016:
7017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7020: RAISE OKC_API.G_EXCEPTION_ERROR;
7021: END IF;
7022:
7023: x_durv_rec.cust_id := lx_lessee_cplv_rec.id;
7016:
7017: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7020: RAISE OKC_API.G_EXCEPTION_ERROR;
7021: END IF;
7022:
7023: x_durv_rec.cust_id := lx_lessee_cplv_rec.id;
7024:
7057: x_cplv_rec => lx_lessee_cplv_rec,
7058: p_kplv_rec => lp_kplv_rec,
7059: x_kplv_rec => lx_kplv_rec);
7060:
7061: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7062: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7063: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7064: RAISE OKC_API.G_EXCEPTION_ERROR;
7065: END IF;
7058: p_kplv_rec => lp_kplv_rec,
7059: x_kplv_rec => lx_kplv_rec);
7060:
7061: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7062: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7063: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7064: RAISE OKC_API.G_EXCEPTION_ERROR;
7065: END IF;
7066:
7059: x_kplv_rec => lx_kplv_rec);
7060:
7061: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7062: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7063: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7064: RAISE OKC_API.G_EXCEPTION_ERROR;
7065: END IF;
7066:
7067: ELSIF( p_durv_rec.cust_id IS NOT NULL AND p_durv_rec.cust_name IS NULL ) THEN
7060:
7061: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7062: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7063: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7064: RAISE OKC_API.G_EXCEPTION_ERROR;
7065: END IF;
7066:
7067: ELSIF( p_durv_rec.cust_id IS NOT NULL AND p_durv_rec.cust_name IS NULL ) THEN
7068:
7094: x_msg_data => x_msg_data,
7095: p_cplv_rec => lp_lessee_cplv_rec,
7096: p_kplv_rec => lp_kplv_rec);
7097:
7098: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7099: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7100: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7101: RAISE OKC_API.G_EXCEPTION_ERROR;
7102: END IF;
7095: p_cplv_rec => lp_lessee_cplv_rec,
7096: p_kplv_rec => lp_kplv_rec);
7097:
7098: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7099: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7100: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7101: RAISE OKC_API.G_EXCEPTION_ERROR;
7102: END IF;
7103:
7096: p_kplv_rec => lp_kplv_rec);
7097:
7098: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7099: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7100: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7101: RAISE OKC_API.G_EXCEPTION_ERROR;
7102: END IF;
7103:
7104: l_rgp_id := NULL;
7097:
7098: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7099: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7100: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7101: RAISE OKC_API.G_EXCEPTION_ERROR;
7102: END IF;
7103:
7104: l_rgp_id := NULL;
7105: l_rul_id := NULL;
7127: x_msg_data => x_msg_data,
7128: p_ctcv_rec => lp_ctcv_rec,
7129: x_ctcv_rec => lx_ctcv_rec);
7130:
7131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: RAISE OKC_API.G_EXCEPTION_ERROR;
7135: END IF;
7128: p_ctcv_rec => lp_ctcv_rec,
7129: x_ctcv_rec => lx_ctcv_rec);
7130:
7131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: RAISE OKC_API.G_EXCEPTION_ERROR;
7135: END IF;
7136:
7129: x_ctcv_rec => lx_ctcv_rec);
7130:
7131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: RAISE OKC_API.G_EXCEPTION_ERROR;
7135: END IF;
7136:
7137: x_durv_rec.contact_id := lx_ctcv_rec.id;
7130:
7131: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: RAISE OKC_API.G_EXCEPTION_ERROR;
7135: END IF;
7136:
7137: x_durv_rec.contact_id := lx_ctcv_rec.id;
7138:
7154: x_msg_data => x_msg_data,
7155: p_ctcv_rec => lp_ctcv_rec,
7156: x_ctcv_rec => lx_ctcv_rec);
7157:
7158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: RAISE OKC_API.G_EXCEPTION_ERROR;
7162: END IF;
7155: p_ctcv_rec => lp_ctcv_rec,
7156: x_ctcv_rec => lx_ctcv_rec);
7157:
7158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: RAISE OKC_API.G_EXCEPTION_ERROR;
7162: END IF;
7163:
7156: x_ctcv_rec => lx_ctcv_rec);
7157:
7158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: RAISE OKC_API.G_EXCEPTION_ERROR;
7162: END IF;
7163:
7164: ELSIF (p_durv_rec.contact_id IS NOT NULL AND p_durv_rec.contact_name IS NULL ) THEN
7157:
7158: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7160: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7161: RAISE OKC_API.G_EXCEPTION_ERROR;
7162: END IF;
7163:
7164: ELSIF (p_durv_rec.contact_id IS NOT NULL AND p_durv_rec.contact_name IS NULL ) THEN
7165:
7178: x_msg_count => x_msg_count,
7179: x_msg_data => x_msg_data,
7180: p_ctcv_rec => lp_ctcv_rec);
7181:
7182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7185: RAISE OKC_API.G_EXCEPTION_ERROR;
7186: END IF;
7179: x_msg_data => x_msg_data,
7180: p_ctcv_rec => lp_ctcv_rec);
7181:
7182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7185: RAISE OKC_API.G_EXCEPTION_ERROR;
7186: END IF;
7187:
7180: p_ctcv_rec => lp_ctcv_rec);
7181:
7182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7185: RAISE OKC_API.G_EXCEPTION_ERROR;
7186: END IF;
7187:
7188: x_durv_rec.contact_id := NULL;
7181:
7182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7184: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7185: RAISE OKC_API.G_EXCEPTION_ERROR;
7186: END IF;
7187:
7188: x_durv_rec.contact_id := NULL;
7189:
7206: x_msg_data => x_msg_data,
7207: p_gvev_rec => lp_mla_gvev_rec,
7208: x_gvev_rec => lx_mla_gvev_rec);
7209:
7210: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7212: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7213: RAISE OKC_API.G_EXCEPTION_ERROR;
7214: END IF;
7207: p_gvev_rec => lp_mla_gvev_rec,
7208: x_gvev_rec => lx_mla_gvev_rec);
7209:
7210: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7212: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7213: RAISE OKC_API.G_EXCEPTION_ERROR;
7214: END IF;
7215:
7208: x_gvev_rec => lx_mla_gvev_rec);
7209:
7210: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7212: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7213: RAISE OKC_API.G_EXCEPTION_ERROR;
7214: END IF;
7215:
7216: x_durv_rec.mla_gvr_id := lx_mla_gvev_rec.id;
7209:
7210: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7212: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7213: RAISE OKC_API.G_EXCEPTION_ERROR;
7214: END IF;
7215:
7216: x_durv_rec.mla_gvr_id := lx_mla_gvev_rec.id;
7217:
7231: x_msg_data => x_msg_data,
7232: p_gvev_rec => lp_mla_gvev_rec,
7233: x_gvev_rec => lx_mla_gvev_rec);
7234:
7235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7238: RAISE OKC_API.G_EXCEPTION_ERROR;
7239: END IF;
7232: p_gvev_rec => lp_mla_gvev_rec,
7233: x_gvev_rec => lx_mla_gvev_rec);
7234:
7235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7238: RAISE OKC_API.G_EXCEPTION_ERROR;
7239: END IF;
7240:
7233: x_gvev_rec => lx_mla_gvev_rec);
7234:
7235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7238: RAISE OKC_API.G_EXCEPTION_ERROR;
7239: END IF;
7240:
7241: ELSIF (p_durv_rec.mla_gvr_id IS NOT NULL AND p_durv_rec.mla_contract_number IS NULL ) THEN
7234:
7235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7238: RAISE OKC_API.G_EXCEPTION_ERROR;
7239: END IF;
7240:
7241: ELSIF (p_durv_rec.mla_gvr_id IS NOT NULL AND p_durv_rec.mla_contract_number IS NULL ) THEN
7242:
7253: x_msg_count => x_msg_count,
7254: x_msg_data => x_msg_data,
7255: p_gvev_rec => lp_mla_gvev_rec);
7256:
7257: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7259: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7260: RAISE OKC_API.G_EXCEPTION_ERROR;
7261: END IF;
7254: x_msg_data => x_msg_data,
7255: p_gvev_rec => lp_mla_gvev_rec);
7256:
7257: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7259: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7260: RAISE OKC_API.G_EXCEPTION_ERROR;
7261: END IF;
7262:
7255: p_gvev_rec => lp_mla_gvev_rec);
7256:
7257: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7259: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7260: RAISE OKC_API.G_EXCEPTION_ERROR;
7261: END IF;
7262:
7263: x_durv_rec.mla_gvr_id := NULL;
7256:
7257: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7258: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7259: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7260: RAISE OKC_API.G_EXCEPTION_ERROR;
7261: END IF;
7262:
7263: x_durv_rec.mla_gvr_id := NULL;
7264:
7281: x_msg_data => x_msg_data,
7282: p_gvev_rec => lp_cl_gvev_rec,
7283: x_gvev_rec => lx_cl_gvev_rec);
7284:
7285: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7286: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7287: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7288: RAISE OKC_API.G_EXCEPTION_ERROR;
7289: END IF;
7282: p_gvev_rec => lp_cl_gvev_rec,
7283: x_gvev_rec => lx_cl_gvev_rec);
7284:
7285: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7286: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7287: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7288: RAISE OKC_API.G_EXCEPTION_ERROR;
7289: END IF;
7290:
7283: x_gvev_rec => lx_cl_gvev_rec);
7284:
7285: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7286: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7287: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7288: RAISE OKC_API.G_EXCEPTION_ERROR;
7289: END IF;
7290:
7291: x_durv_rec.cl_gvr_id := lx_cl_gvev_rec.id;
7284:
7285: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7286: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7287: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7288: RAISE OKC_API.G_EXCEPTION_ERROR;
7289: END IF;
7290:
7291: x_durv_rec.cl_gvr_id := lx_cl_gvev_rec.id;
7292:
7306: x_msg_data => x_msg_data,
7307: p_gvev_rec => lp_cl_gvev_rec,
7308: x_gvev_rec => lx_cl_gvev_rec);
7309:
7310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7311: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7313: RAISE OKC_API.G_EXCEPTION_ERROR;
7314: END IF;
7307: p_gvev_rec => lp_cl_gvev_rec,
7308: x_gvev_rec => lx_cl_gvev_rec);
7309:
7310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7311: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7313: RAISE OKC_API.G_EXCEPTION_ERROR;
7314: END IF;
7315:
7308: x_gvev_rec => lx_cl_gvev_rec);
7309:
7310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7311: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7313: RAISE OKC_API.G_EXCEPTION_ERROR;
7314: END IF;
7315:
7316: ELSIF (p_durv_rec.cl_gvr_id IS NOT NULL AND p_durv_rec.cl_contract_number IS NULL ) THEN
7309:
7310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7311: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7313: RAISE OKC_API.G_EXCEPTION_ERROR;
7314: END IF;
7315:
7316: ELSIF (p_durv_rec.cl_gvr_id IS NOT NULL AND p_durv_rec.cl_contract_number IS NULL ) THEN
7317:
7328: x_msg_count => x_msg_count,
7329: x_msg_data => x_msg_data,
7330: p_gvev_rec => lp_cl_gvev_rec);
7331:
7332: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7334: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7335: RAISE OKC_API.G_EXCEPTION_ERROR;
7336: END IF;
7329: x_msg_data => x_msg_data,
7330: p_gvev_rec => lp_cl_gvev_rec);
7331:
7332: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7334: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7335: RAISE OKC_API.G_EXCEPTION_ERROR;
7336: END IF;
7337:
7330: p_gvev_rec => lp_cl_gvev_rec);
7331:
7332: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7334: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7335: RAISE OKC_API.G_EXCEPTION_ERROR;
7336: END IF;
7337:
7338: x_durv_rec.cl_gvr_id := NULL;
7331:
7332: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7333: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7334: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7335: RAISE OKC_API.G_EXCEPTION_ERROR;
7336: END IF;
7337:
7338: x_durv_rec.cl_gvr_id := NULL;
7339:
7356: x_msg_data => x_msg_data,
7357: p_rgpv_rec => lp_larles_rgpv_rec,
7358: x_rgpv_rec => lx_larles_rgpv_rec);
7359:
7360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7363: RAISE OKC_API.G_EXCEPTION_ERROR;
7364: END IF;
7357: p_rgpv_rec => lp_larles_rgpv_rec,
7358: x_rgpv_rec => lx_larles_rgpv_rec);
7359:
7360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7363: RAISE OKC_API.G_EXCEPTION_ERROR;
7364: END IF;
7365:
7358: x_rgpv_rec => lx_larles_rgpv_rec);
7359:
7360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7363: RAISE OKC_API.G_EXCEPTION_ERROR;
7364: END IF;
7365:
7366: x_durv_rec.rg_larles_id := lx_larles_rgpv_rec.id;
7359:
7360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7363: RAISE OKC_API.G_EXCEPTION_ERROR;
7364: END IF;
7365:
7366: x_durv_rec.rg_larles_id := lx_larles_rgpv_rec.id;
7367:
7381: x_msg_data => x_msg_data,
7382: p_rgpv_rec => lp_larles_rgpv_rec,
7383: x_rgpv_rec => lx_larles_rgpv_rec);
7384:
7385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7388: RAISE OKC_API.G_EXCEPTION_ERROR;
7389: END IF;
7382: p_rgpv_rec => lp_larles_rgpv_rec,
7383: x_rgpv_rec => lx_larles_rgpv_rec);
7384:
7385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7388: RAISE OKC_API.G_EXCEPTION_ERROR;
7389: END IF;
7390:
7383: x_rgpv_rec => lx_larles_rgpv_rec);
7384:
7385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7388: RAISE OKC_API.G_EXCEPTION_ERROR;
7389: END IF;
7390:
7391: END IF;
7384:
7385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7388: RAISE OKC_API.G_EXCEPTION_ERROR;
7389: END IF;
7390:
7391: END IF;
7392:
7409: x_msg_data => x_msg_data,
7410: p_rulv_rec => lp_larles_rulv_rec,
7411: x_rulv_rec => lx_larles_rulv_rec);
7412:
7413: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7416: RAISE OKC_API.G_EXCEPTION_ERROR;
7417: END IF;
7410: p_rulv_rec => lp_larles_rulv_rec,
7411: x_rulv_rec => lx_larles_rulv_rec);
7412:
7413: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7416: RAISE OKC_API.G_EXCEPTION_ERROR;
7417: END IF;
7418:
7411: x_rulv_rec => lx_larles_rulv_rec);
7412:
7413: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7416: RAISE OKC_API.G_EXCEPTION_ERROR;
7417: END IF;
7418:
7419: x_durv_rec.r_larles_id := lx_larles_rulv_rec.id;
7412:
7413: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7416: RAISE OKC_API.G_EXCEPTION_ERROR;
7417: END IF;
7418:
7419: x_durv_rec.r_larles_id := lx_larles_rulv_rec.id;
7420:
7436: -- whether an asset is a release or new asset is determined by
7437: -- the the re_lease_yn flag on okl_k_lines
7438: /* IF( (l_fin_ast = 'Y') AND (NOT(p_durv_rec.r_larles_rule_information1 = l_lrls_yn))) THEN
7439:
7440: x_return_status := OKC_API.g_ret_sts_error;
7441: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7442: , p_msg_name => 'OKL_LLA_RELSE_AST'
7443: );
7444: RAISE OKC_API.G_EXCEPTION_ERROR;
7437: -- the the re_lease_yn flag on okl_k_lines
7438: /* IF( (l_fin_ast = 'Y') AND (NOT(p_durv_rec.r_larles_rule_information1 = l_lrls_yn))) THEN
7439:
7440: x_return_status := OKC_API.g_ret_sts_error;
7441: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7442: , p_msg_name => 'OKL_LLA_RELSE_AST'
7443: );
7444: RAISE OKC_API.G_EXCEPTION_ERROR;
7445:
7440: x_return_status := OKC_API.g_ret_sts_error;
7441: OKC_API.SET_MESSAGE( p_app_name => g_app_name
7442: , p_msg_name => 'OKL_LLA_RELSE_AST'
7443: );
7444: RAISE OKC_API.G_EXCEPTION_ERROR;
7445:
7446: END IF;*/
7447: --Bug# 15992711 end
7448:
7462: x_msg_data => x_msg_data,
7463: p_rulv_rec => lp_larles_rulv_rec,
7464: x_rulv_rec => lx_larles_rulv_rec);
7465:
7466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7469: RAISE OKC_API.G_EXCEPTION_ERROR;
7470: END IF;
7463: p_rulv_rec => lp_larles_rulv_rec,
7464: x_rulv_rec => lx_larles_rulv_rec);
7465:
7466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7469: RAISE OKC_API.G_EXCEPTION_ERROR;
7470: END IF;
7471:
7464: x_rulv_rec => lx_larles_rulv_rec);
7465:
7466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7469: RAISE OKC_API.G_EXCEPTION_ERROR;
7470: END IF;
7471:
7472: END IF;
7465:
7466: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7468: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7469: RAISE OKC_API.G_EXCEPTION_ERROR;
7470: END IF;
7471:
7472: END IF;
7473:
7488: x_msg_data => x_msg_data,
7489: p_rgpv_rec => lp_larebl_rgpv_rec,
7490: x_rgpv_rec => lx_larebl_rgpv_rec);
7491:
7492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7493: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7495: RAISE OKC_API.G_EXCEPTION_ERROR;
7496: END IF;
7489: p_rgpv_rec => lp_larebl_rgpv_rec,
7490: x_rgpv_rec => lx_larebl_rgpv_rec);
7491:
7492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7493: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7495: RAISE OKC_API.G_EXCEPTION_ERROR;
7496: END IF;
7497:
7490: x_rgpv_rec => lx_larebl_rgpv_rec);
7491:
7492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7493: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7495: RAISE OKC_API.G_EXCEPTION_ERROR;
7496: END IF;
7497:
7498: x_durv_rec.rg_larebl_id := lx_larebl_rgpv_rec.id;
7491:
7492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7493: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7495: RAISE OKC_API.G_EXCEPTION_ERROR;
7496: END IF;
7497:
7498: x_durv_rec.rg_larebl_id := lx_larebl_rgpv_rec.id;
7499:
7513: x_msg_data => x_msg_data,
7514: p_rgpv_rec => lp_larebl_rgpv_rec,
7515: x_rgpv_rec => lx_larebl_rgpv_rec);
7516:
7517: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7518: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7519: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7520: RAISE OKC_API.G_EXCEPTION_ERROR;
7521: END IF;
7514: p_rgpv_rec => lp_larebl_rgpv_rec,
7515: x_rgpv_rec => lx_larebl_rgpv_rec);
7516:
7517: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7518: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7519: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7520: RAISE OKC_API.G_EXCEPTION_ERROR;
7521: END IF;
7522:
7515: x_rgpv_rec => lx_larebl_rgpv_rec);
7516:
7517: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7518: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7519: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7520: RAISE OKC_API.G_EXCEPTION_ERROR;
7521: END IF;
7522:
7523: END IF;
7516:
7517: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7518: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7519: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7520: RAISE OKC_API.G_EXCEPTION_ERROR;
7521: END IF;
7522:
7523: END IF;
7524:
7541: x_msg_data => x_msg_data,
7542: p_rulv_rec => lp_larebl_rulv_rec,
7543: x_rulv_rec => lx_larebl_rulv_rec);
7544:
7545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: END IF;
7542: p_rulv_rec => lp_larebl_rulv_rec,
7543: x_rulv_rec => lx_larebl_rulv_rec);
7544:
7545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: END IF;
7550:
7543: x_rulv_rec => lx_larebl_rulv_rec);
7544:
7545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: END IF;
7550:
7551: x_durv_rec.r_larebl_id := lx_larebl_rulv_rec.id;
7544:
7545: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7546: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7547: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: END IF;
7550:
7551: x_durv_rec.r_larebl_id := lx_larebl_rulv_rec.id;
7552:
7568: x_msg_data => x_msg_data,
7569: p_rulv_rec => lp_larebl_rulv_rec,
7570: x_rulv_rec => lx_larebl_rulv_rec);
7571:
7572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7569: p_rulv_rec => lp_larebl_rulv_rec,
7570: x_rulv_rec => lx_larebl_rulv_rec);
7571:
7572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7577: ELSIF (p_durv_rec.r_larebl_id IS NOT NULL AND p_durv_rec.r_larebl_rule_information1 IS NULL) THEN
7570: x_rulv_rec => lx_larebl_rulv_rec);
7571:
7572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7577: ELSIF (p_durv_rec.r_larebl_id IS NOT NULL AND p_durv_rec.r_larebl_rule_information1 IS NULL) THEN
7578:
7571:
7572: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7574: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7575: RAISE OKC_API.G_EXCEPTION_ERROR;
7576: END IF;
7577: ELSIF (p_durv_rec.r_larebl_id IS NOT NULL AND p_durv_rec.r_larebl_rule_information1 IS NULL) THEN
7578:
7579: lp_larebl_rulv_rec.id := p_durv_rec.r_larebl_id;
7591: x_msg_count => x_msg_count,
7592: x_msg_data => x_msg_data,
7593: p_rulv_rec => lp_larebl_rulv_rec);
7594:
7595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7598: RAISE OKC_API.G_EXCEPTION_ERROR;
7599: END IF;
7592: x_msg_data => x_msg_data,
7593: p_rulv_rec => lp_larebl_rulv_rec);
7594:
7595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7598: RAISE OKC_API.G_EXCEPTION_ERROR;
7599: END IF;
7600:
7593: p_rulv_rec => lp_larebl_rulv_rec);
7594:
7595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7598: RAISE OKC_API.G_EXCEPTION_ERROR;
7599: END IF;
7600:
7601: x_durv_rec.r_larebl_id := NULL;
7594:
7595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7598: RAISE OKC_API.G_EXCEPTION_ERROR;
7599: END IF;
7600:
7601: x_durv_rec.r_larebl_id := NULL;
7602:
7619: x_msg_data => x_msg_data,
7620: p_rgpv_rec => lp_lanntf_rgpv_rec,
7621: x_rgpv_rec => lx_lanntf_rgpv_rec);
7622:
7623: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7625: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7626: RAISE OKC_API.G_EXCEPTION_ERROR;
7627: END IF;
7620: p_rgpv_rec => lp_lanntf_rgpv_rec,
7621: x_rgpv_rec => lx_lanntf_rgpv_rec);
7622:
7623: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7625: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7626: RAISE OKC_API.G_EXCEPTION_ERROR;
7627: END IF;
7628:
7621: x_rgpv_rec => lx_lanntf_rgpv_rec);
7622:
7623: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7625: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7626: RAISE OKC_API.G_EXCEPTION_ERROR;
7627: END IF;
7628:
7629: x_durv_rec.rg_lanntf_id := lx_lanntf_rgpv_rec.id;
7622:
7623: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7625: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7626: RAISE OKC_API.G_EXCEPTION_ERROR;
7627: END IF;
7628:
7629: x_durv_rec.rg_lanntf_id := lx_lanntf_rgpv_rec.id;
7630:
7644: x_msg_data => x_msg_data,
7645: p_rgpv_rec => lp_lanntf_rgpv_rec,
7646: x_rgpv_rec => lx_lanntf_rgpv_rec);
7647:
7648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_ERROR;
7652: END IF;
7645: p_rgpv_rec => lp_lanntf_rgpv_rec,
7646: x_rgpv_rec => lx_lanntf_rgpv_rec);
7647:
7648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_ERROR;
7652: END IF;
7653:
7646: x_rgpv_rec => lx_lanntf_rgpv_rec);
7647:
7648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_ERROR;
7652: END IF;
7653:
7654: END IF;
7647:
7648: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7650: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7651: RAISE OKC_API.G_EXCEPTION_ERROR;
7652: END IF;
7653:
7654: END IF;
7655:
7672: x_msg_data => x_msg_data,
7673: p_rulv_rec => lp_lanntf_rulv_rec,
7674: x_rulv_rec => lx_lanntf_rulv_rec);
7675:
7676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: END IF;
7673: p_rulv_rec => lp_lanntf_rulv_rec,
7674: x_rulv_rec => lx_lanntf_rulv_rec);
7675:
7676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: END IF;
7681:
7674: x_rulv_rec => lx_lanntf_rulv_rec);
7675:
7676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: END IF;
7681:
7682: x_durv_rec.r_lanntf_id := lx_lanntf_rulv_rec.id;
7675:
7676: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7678: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: END IF;
7681:
7682: x_durv_rec.r_lanntf_id := lx_lanntf_rulv_rec.id;
7683:
7699: x_msg_data => x_msg_data,
7700: p_rulv_rec => lp_lanntf_rulv_rec,
7701: x_rulv_rec => lx_lanntf_rulv_rec);
7702:
7703: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7705: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7706: RAISE OKC_API.G_EXCEPTION_ERROR;
7707: END IF;
7700: p_rulv_rec => lp_lanntf_rulv_rec,
7701: x_rulv_rec => lx_lanntf_rulv_rec);
7702:
7703: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7705: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7706: RAISE OKC_API.G_EXCEPTION_ERROR;
7707: END IF;
7708:
7701: x_rulv_rec => lx_lanntf_rulv_rec);
7702:
7703: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7705: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7706: RAISE OKC_API.G_EXCEPTION_ERROR;
7707: END IF;
7708:
7709: END IF;
7702:
7703: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7705: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7706: RAISE OKC_API.G_EXCEPTION_ERROR;
7707: END IF;
7708:
7709: END IF;
7710:
7725: x_msg_data => x_msg_data,
7726: p_rgpv_rec => lp_lacpln_rgpv_rec,
7727: x_rgpv_rec => lx_lacpln_rgpv_rec);
7728:
7729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7732: RAISE OKC_API.G_EXCEPTION_ERROR;
7733: END IF;
7726: p_rgpv_rec => lp_lacpln_rgpv_rec,
7727: x_rgpv_rec => lx_lacpln_rgpv_rec);
7728:
7729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7732: RAISE OKC_API.G_EXCEPTION_ERROR;
7733: END IF;
7734:
7727: x_rgpv_rec => lx_lacpln_rgpv_rec);
7728:
7729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7732: RAISE OKC_API.G_EXCEPTION_ERROR;
7733: END IF;
7734:
7735: x_durv_rec.rg_lacpln_id := lx_lacpln_rgpv_rec.id;
7728:
7729: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7730: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7731: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7732: RAISE OKC_API.G_EXCEPTION_ERROR;
7733: END IF;
7734:
7735: x_durv_rec.rg_lacpln_id := lx_lacpln_rgpv_rec.id;
7736:
7750: x_msg_data => x_msg_data,
7751: p_rgpv_rec => lp_lacpln_rgpv_rec,
7752: x_rgpv_rec => lx_lacpln_rgpv_rec);
7753:
7754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7757: RAISE OKC_API.G_EXCEPTION_ERROR;
7758: END IF;
7751: p_rgpv_rec => lp_lacpln_rgpv_rec,
7752: x_rgpv_rec => lx_lacpln_rgpv_rec);
7753:
7754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7757: RAISE OKC_API.G_EXCEPTION_ERROR;
7758: END IF;
7759:
7752: x_rgpv_rec => lx_lacpln_rgpv_rec);
7753:
7754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7757: RAISE OKC_API.G_EXCEPTION_ERROR;
7758: END IF;
7759:
7760: END IF;
7753:
7754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7757: RAISE OKC_API.G_EXCEPTION_ERROR;
7758: END IF;
7759:
7760: END IF;
7761:
7778: x_msg_data => x_msg_data,
7779: p_rulv_rec => lp_lacpln_rulv_rec,
7780: x_rulv_rec => lx_lacpln_rulv_rec);
7781:
7782: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7785: RAISE OKC_API.G_EXCEPTION_ERROR;
7786: END IF;
7779: p_rulv_rec => lp_lacpln_rulv_rec,
7780: x_rulv_rec => lx_lacpln_rulv_rec);
7781:
7782: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7785: RAISE OKC_API.G_EXCEPTION_ERROR;
7786: END IF;
7787:
7780: x_rulv_rec => lx_lacpln_rulv_rec);
7781:
7782: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7785: RAISE OKC_API.G_EXCEPTION_ERROR;
7786: END IF;
7787:
7788: x_durv_rec.r_lacpln_id := lx_lacpln_rulv_rec.id;
7781:
7782: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7785: RAISE OKC_API.G_EXCEPTION_ERROR;
7786: END IF;
7787:
7788: x_durv_rec.r_lacpln_id := lx_lacpln_rulv_rec.id;
7789:
7817: p_edit_mode => 'N',
7818: x_clev_rec => lx_clev_rec,
7819: x_klev_rec => lx_klev_rec);
7820:
7821: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7823: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7824: RAISE OKC_API.G_EXCEPTION_ERROR;
7825: END IF;
7818: x_clev_rec => lx_clev_rec,
7819: x_klev_rec => lx_klev_rec);
7820:
7821: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7823: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7824: RAISE OKC_API.G_EXCEPTION_ERROR;
7825: END IF;
7826:
7819: x_klev_rec => lx_klev_rec);
7820:
7821: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7823: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7824: RAISE OKC_API.G_EXCEPTION_ERROR;
7825: END IF;
7826:
7827: END LOOP;
7820:
7821: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7823: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7824: RAISE OKC_API.G_EXCEPTION_ERROR;
7825: END IF;
7826:
7827: END LOOP;
7828:
7844: x_msg_data => x_msg_data,
7845: p_rulv_rec => lp_lacpln_rulv_rec,
7846: x_rulv_rec => lx_lacpln_rulv_rec);
7847:
7848: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7849: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7850: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7851: RAISE OKC_API.G_EXCEPTION_ERROR;
7852: END IF;
7845: p_rulv_rec => lp_lacpln_rulv_rec,
7846: x_rulv_rec => lx_lacpln_rulv_rec);
7847:
7848: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7849: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7850: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7851: RAISE OKC_API.G_EXCEPTION_ERROR;
7852: END IF;
7853:
7846: x_rulv_rec => lx_lacpln_rulv_rec);
7847:
7848: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7849: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7850: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7851: RAISE OKC_API.G_EXCEPTION_ERROR;
7852: END IF;
7853:
7854: END IF;
7847:
7848: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7849: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7850: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7851: RAISE OKC_API.G_EXCEPTION_ERROR;
7852: END IF;
7853:
7854: END IF;
7855:
7871: x_msg_data => x_msg_data,
7872: p_rgpv_rec => lp_lapact_rgpv_rec,
7873: x_rgpv_rec => lx_lapact_rgpv_rec);
7874:
7875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7872: p_rgpv_rec => lp_lapact_rgpv_rec,
7873: x_rgpv_rec => lx_lapact_rgpv_rec);
7874:
7875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880:
7873: x_rgpv_rec => lx_lapact_rgpv_rec);
7874:
7875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880:
7881: x_durv_rec.rg_lapact_id := lx_lapact_rgpv_rec.id;
7874:
7875: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880:
7881: x_durv_rec.rg_lapact_id := lx_lapact_rgpv_rec.id;
7882:
7896: x_msg_data => x_msg_data,
7897: p_rgpv_rec => lp_lapact_rgpv_rec,
7898: x_rgpv_rec => lx_lapact_rgpv_rec);
7899:
7900: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7901: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7903: RAISE OKC_API.G_EXCEPTION_ERROR;
7904: END IF;
7897: p_rgpv_rec => lp_lapact_rgpv_rec,
7898: x_rgpv_rec => lx_lapact_rgpv_rec);
7899:
7900: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7901: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7903: RAISE OKC_API.G_EXCEPTION_ERROR;
7904: END IF;
7905:
7898: x_rgpv_rec => lx_lapact_rgpv_rec);
7899:
7900: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7901: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7903: RAISE OKC_API.G_EXCEPTION_ERROR;
7904: END IF;
7905:
7906: END IF;
7899:
7900: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7901: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7902: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7903: RAISE OKC_API.G_EXCEPTION_ERROR;
7904: END IF;
7905:
7906: END IF;
7907:
7924: x_msg_data => x_msg_data,
7925: p_rulv_rec => lp_lapact_rulv_rec,
7926: x_rulv_rec => lx_lapact_rulv_rec);
7927:
7928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7931: RAISE OKC_API.G_EXCEPTION_ERROR;
7932: END IF;
7925: p_rulv_rec => lp_lapact_rulv_rec,
7926: x_rulv_rec => lx_lapact_rulv_rec);
7927:
7928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7931: RAISE OKC_API.G_EXCEPTION_ERROR;
7932: END IF;
7933:
7926: x_rulv_rec => lx_lapact_rulv_rec);
7927:
7928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7931: RAISE OKC_API.G_EXCEPTION_ERROR;
7932: END IF;
7933:
7934: x_durv_rec.r_lapact_id := lx_lapact_rulv_rec.id;
7927:
7928: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7929: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7930: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7931: RAISE OKC_API.G_EXCEPTION_ERROR;
7932: END IF;
7933:
7934: x_durv_rec.r_lapact_id := lx_lapact_rulv_rec.id;
7935:
7951: x_msg_data => x_msg_data,
7952: p_rulv_rec => lp_lapact_rulv_rec,
7953: x_rulv_rec => lx_lapact_rulv_rec);
7954:
7955: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7957: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7958: RAISE OKC_API.G_EXCEPTION_ERROR;
7959: END IF;
7952: p_rulv_rec => lp_lapact_rulv_rec,
7953: x_rulv_rec => lx_lapact_rulv_rec);
7954:
7955: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7957: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7958: RAISE OKC_API.G_EXCEPTION_ERROR;
7959: END IF;
7960:
7953: x_rulv_rec => lx_lapact_rulv_rec);
7954:
7955: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7957: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7958: RAISE OKC_API.G_EXCEPTION_ERROR;
7959: END IF;
7960:
7961: END IF;
7954:
7955: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7957: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7958: RAISE OKC_API.G_EXCEPTION_ERROR;
7959: END IF;
7960:
7961: END IF;
7962:
7980: p_org_id => okl_context.get_okc_org_id,
7981: p_organization_id => okl_context.get_okc_organization_id
7982: );
7983:
7984: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7987: RAISE OKC_API.G_EXCEPTION_ERROR;
7988: END IF;
7981: p_organization_id => okl_context.get_okc_organization_id
7982: );
7983:
7984: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7987: RAISE OKC_API.G_EXCEPTION_ERROR;
7988: END IF;
7989:
7982: );
7983:
7984: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7987: RAISE OKC_API.G_EXCEPTION_ERROR;
7988: END IF;
7989:
7990: END IF;
7983:
7984: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7985: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7986: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7987: RAISE OKC_API.G_EXCEPTION_ERROR;
7988: END IF;
7989:
7990: END IF;
7991:
8007: -- END, Code change to enable Business Event
8008: */
8009:
8010:
8011: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8012:
8013: EXCEPTION
8014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8015: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8010:
8011: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8012:
8013: EXCEPTION
8014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8015: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8016: p_api_name => l_api_name,
8017: p_pkg_name => g_pkg_name,
8018: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8011: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8012:
8013: EXCEPTION
8014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8015: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8016: p_api_name => l_api_name,
8017: p_pkg_name => g_pkg_name,
8018: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8019: x_msg_count => x_msg_count,
8014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8015: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8016: p_api_name => l_api_name,
8017: p_pkg_name => g_pkg_name,
8018: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8019: x_msg_count => x_msg_count,
8020: x_msg_data => x_msg_data,
8021: p_api_type => g_api_type);
8022:
8019: x_msg_count => x_msg_count,
8020: x_msg_data => x_msg_data,
8021: p_api_type => g_api_type);
8022:
8023: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8024: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8025: p_api_name => l_api_name,
8026: p_pkg_name => g_pkg_name,
8027: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8020: x_msg_data => x_msg_data,
8021: p_api_type => g_api_type);
8022:
8023: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8024: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8025: p_api_name => l_api_name,
8026: p_pkg_name => g_pkg_name,
8027: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8028: x_msg_count => x_msg_count,
8023: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8024: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8025: p_api_name => l_api_name,
8026: p_pkg_name => g_pkg_name,
8027: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8028: x_msg_count => x_msg_count,
8029: x_msg_data => x_msg_data,
8030: p_api_type => g_api_type);
8031:
8029: x_msg_data => x_msg_data,
8030: p_api_type => g_api_type);
8031:
8032: WHEN OTHERS THEN
8033: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8034: p_api_name => l_api_name,
8035: p_pkg_name => g_pkg_name,
8036: p_exc_name => 'OTHERS',
8037: x_msg_count => x_msg_count,
8040: END;
8041:
8042: PROCEDURE load_deal(
8043: p_api_version IN NUMBER,
8044: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8045: x_return_status OUT NOCOPY VARCHAR2,
8046: x_msg_count OUT NOCOPY NUMBER,
8047: x_msg_data OUT NOCOPY VARCHAR2,
8048: p_durv_rec IN deal_rec_type,
8184: l_chr_id := p_durv_rec.chr_id;
8185: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
8186: END IF;
8187:
8188: x_return_status := OKC_API.START_ACTIVITY(
8189: p_api_name => l_api_name,
8190: p_pkg_name => g_pkg_name,
8191: p_init_msg_list => p_init_msg_list,
8192: l_api_version => l_api_version,
8194: p_api_type => g_api_type,
8195: x_return_status => x_return_status);
8196:
8197: -- check if activity started successfully
8198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8201: RAISE OKC_API.G_EXCEPTION_ERROR;
8202: END IF;
8195: x_return_status => x_return_status);
8196:
8197: -- check if activity started successfully
8198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8201: RAISE OKC_API.G_EXCEPTION_ERROR;
8202: END IF;
8203: /*
8196:
8197: -- check if activity started successfully
8198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8201: RAISE OKC_API.G_EXCEPTION_ERROR;
8202: END IF;
8203: /*
8204: open l_load_hdr_csr;
8197: -- check if activity started successfully
8198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
8199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
8200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
8201: RAISE OKC_API.G_EXCEPTION_ERROR;
8202: END IF;
8203: /*
8204: open l_load_hdr_csr;
8205: fetch l_load_hdr_csr into x_durv_rec.chr_id,
8310: open l_sts_code_csr;
8311: fetch l_sts_code_csr into x_durv_rec.chr_sts_code;
8312: close l_sts_code_csr;
8313: */
8314: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8315:
8316: EXCEPTION
8317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8318: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8313: */
8314: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8315:
8316: EXCEPTION
8317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8318: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8319: p_api_name => l_api_name,
8320: p_pkg_name => g_pkg_name,
8321: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8314: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8315:
8316: EXCEPTION
8317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8318: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8319: p_api_name => l_api_name,
8320: p_pkg_name => g_pkg_name,
8321: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8322: x_msg_count => x_msg_count,
8317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8318: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8319: p_api_name => l_api_name,
8320: p_pkg_name => g_pkg_name,
8321: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
8322: x_msg_count => x_msg_count,
8323: x_msg_data => x_msg_data,
8324: p_api_type => g_api_type);
8325:
8322: x_msg_count => x_msg_count,
8323: x_msg_data => x_msg_data,
8324: p_api_type => g_api_type);
8325:
8326: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8327: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8328: p_api_name => l_api_name,
8329: p_pkg_name => g_pkg_name,
8330: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8323: x_msg_data => x_msg_data,
8324: p_api_type => g_api_type);
8325:
8326: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8327: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8328: p_api_name => l_api_name,
8329: p_pkg_name => g_pkg_name,
8330: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8331: x_msg_count => x_msg_count,
8326: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8327: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8328: p_api_name => l_api_name,
8329: p_pkg_name => g_pkg_name,
8330: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
8331: x_msg_count => x_msg_count,
8332: x_msg_data => x_msg_data,
8333: p_api_type => g_api_type);
8334:
8332: x_msg_data => x_msg_data,
8333: p_api_type => g_api_type);
8334:
8335: WHEN OTHERS THEN
8336: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
8337: p_api_name => l_api_name,
8338: p_pkg_name => g_pkg_name,
8339: p_exc_name => 'OTHERS',
8340: x_msg_count => x_msg_count,
8418: end;
8419:
8420: PROCEDURE create_party(
8421: p_api_version IN NUMBER,
8422: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8423: x_return_status OUT NOCOPY VARCHAR2,
8424: x_msg_count OUT NOCOPY NUMBER,
8425: x_msg_data OUT NOCOPY VARCHAR2,
8426: p_kpl_rec IN party_rec_type,
8531: end;
8532:
8533: PROCEDURE update_party(
8534: p_api_version IN NUMBER,
8535: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8536: x_return_status OUT NOCOPY VARCHAR2,
8537: x_msg_count OUT NOCOPY NUMBER,
8538: x_msg_data OUT NOCOPY VARCHAR2,
8539: p_kpl_rec IN party_rec_type,