1: PACKAGE BODY OKL_SERVICE_INTEGRATION_PVT AS
2: /* $Header: OKLRSRIB.pls 120.9 2006/08/11 10:39:26 gboomina noship $*/
3:
4: G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_esg_transport_pvt';
5: G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6: G_IS_DEBUG_STATEMENT_ON BOOLEAN;
7:
8: -- Global Variables
9: G_INIT_NUMBER NUMBER := -9999;
180: l_okl_service_line_id OKC_K_HEADERS_V.ID%TYPE;
181:
182: BEGIN
183: IF (G_DEBUG_ENABLED = 'Y') THEN
184: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
185: END IF;
186:
187: x_return_status := OKC_API.G_RET_STS_SUCCESS;
188: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
185: END IF;
186:
187: x_return_status := OKC_API.G_RET_STS_SUCCESS;
188: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
189: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
190: END IF;
191:
192: -- call START_ACTIVITY to create savepoint, check compatibility
193: -- and initialize message list
333: bill_to_failed EXCEPTION;
334:
335: BEGIN
336: IF (G_DEBUG_ENABLED = 'Y') THEN
337: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
338: END IF;
339: x_return_status := OKL_API.G_RET_STS_SUCCESS;
340: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
341: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
337: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
338: END IF;
339: x_return_status := OKL_API.G_RET_STS_SUCCESS;
340: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
341: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
342: END IF;
343:
344: x_bill_to_id := NULL;
345: OPEN bill_to_csr (p_chr_id);
474:
475: validation_failed EXCEPTION;
476: BEGIN
477: IF (G_DEBUG_ENABLED = 'Y') THEN
478: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
479: END IF;
480:
481: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
478: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
479: END IF;
480:
481: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
482: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
483: END IF;
484:
485: l_oks_ver := '?';
486: OPEN check_oks_ver;
771: x_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
772:
773: BEGIN -- main process begins here
774: IF (G_DEBUG_ENABLED = 'Y') THEN
775: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
776: END IF;
777:
778: x_return_status := OKC_API.G_RET_STS_SUCCESS;
779: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
776: END IF;
777:
778: x_return_status := OKC_API.G_RET_STS_SUCCESS;
779: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
780: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
781: END IF;
782:
783: -- call START_ACTIVITY to create savepoint, check compatibility
784: -- and initialize message list
857: l_srv_amount := srv_amt_rec.tot_amount;
858: END LOOP;
859:
860: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
861: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount: '||l_srv_amount);
862: END IF;
863: IF (l_srv_amount = 0 ) THEN
864: okl_api.set_message(
865: G_APP_NAME,
966: p_cimv_rec.jtot_object1_code := 'OKX_SERVICE';
967: p_cimv_rec.exception_yn := 'N';
968:
969: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
970: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Item: '||l_inv_item_id);
971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Org : '||l_inv_org_id);
972: END IF;
973:
974: OKL_OKC_MIGRATION_PVT.create_contract_item(
967: p_cimv_rec.exception_yn := 'N';
968:
969: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
970: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Item: '||l_inv_item_id);
971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Org : '||l_inv_org_id);
972: END IF;
973:
974: OKL_OKC_MIGRATION_PVT.create_contract_item(
975: p_api_version => 1.0,
1167: l_oks_service_line_id OKC_K_LINES_V.ID%TYPE;
1168:
1169: BEGIN -- main process begins here
1170: IF (G_DEBUG_ENABLED = 'Y') THEN
1171: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1172: END IF;
1173:
1174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1175: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1172: END IF;
1173:
1174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1175: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1176: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1177: END IF;
1178: -- call START_ACTIVITY to create savepoint, check compatibility
1179: -- and initialize message list
1180: x_return_status := OKC_API.START_ACTIVITY(
1223: RAISE OKC_API.G_EXCEPTION_ERROR;
1224: END IF;
1225:
1226: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1227: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before creating link');
1228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL :'||p_okl_chr_id);
1229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS :'||p_oks_chr_id);
1230: END IF;
1231: --
1224: END IF;
1225:
1226: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1227: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before creating link');
1228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL :'||p_okl_chr_id);
1229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS :'||p_oks_chr_id);
1230: END IF;
1231: --
1232: -- Link OKL and OKS Contract at Header level
1225:
1226: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1227: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before creating link');
1228: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL :'||p_okl_chr_id);
1229: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS :'||p_oks_chr_id);
1230: END IF;
1231: --
1232: -- Link OKL and OKS Contract at Header level
1233: --
1249: raise OKC_API.G_EXCEPTION_ERROR;
1250: END IF;
1251:
1252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1253: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS Line: '||l_oks_service_line_id);
1254: END IF;
1255:
1256: IF (l_service_contract_id IS NULL) THEN -- create a new header link
1257: l_crjv_rec := NULL;
1261: l_crjv_rec.object1_id2 := '#';
1262: l_crjv_rec.jtot_object1_code := 'OKL_SERVICE_CONNECTOR'; -- Fix Bug# 2872267
1263:
1264: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1265: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling 1'||':'||x_return_status);
1266: END IF;
1267: OKC_K_REL_OBJS_PUB.create_row (
1268: p_api_version => 1.0,
1269: p_init_msg_list => OKC_API.G_FALSE,
1274: x_crjv_rec => x_crjv_rec
1275: );
1276:
1277: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1278: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling 1'||':'||x_return_status);
1279: END IF;
1280: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1281: RAISE OKC_API.G_EXCEPTION_ERROR;
1282: END IF;
1282: END IF;
1283: END IF; -- l_service_contract is NULL
1284:
1285: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1286: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After creating header link');
1287: END IF;
1288: --
1289: -- Link OKL and OKS Contract at Line level
1290: --
1295: l_crjv_rec.object1_id2 := '#';
1296: l_crjv_rec.jtot_object1_code := 'OKL_SERVICE_LINE';
1297:
1298: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1299: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL Line ID: '|| p_okl_service_line_id);
1300: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS Line ID: '|| p_oks_service_line_id);
1301: END IF;
1302:
1303: OKC_K_REL_OBJS_PUB.create_row (
1296: l_crjv_rec.jtot_object1_code := 'OKL_SERVICE_LINE';
1297:
1298: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1299: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKL Line ID: '|| p_okl_service_line_id);
1300: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS Line ID: '|| p_oks_service_line_id);
1301: END IF;
1302:
1303: OKC_K_REL_OBJS_PUB.create_row (
1304: p_api_version => 1.0,
1314: RAISE OKC_API.G_EXCEPTION_ERROR;
1315: END IF;
1316:
1317: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1318: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After line link creation');
1319: END IF;
1320:
1321: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1322:
1397: /*
1398: * sjalsut: aug 18, 04 added cursors to fetch the service contract id and
1399: * service line id from the context contract and contract top line. BEGIN.
1400: IF (G_DEBUG_ENABLED = 'Y') THEN
1401: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1402: END IF;
1403: */
1404:
1405: CURSOR get_service_top_line IS
1441: BEGIN -- main process begins here
1442:
1443: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1444: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1445: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1446: END IF;
1447: -- call START_ACTIVITY to create savepoint, check compatibility
1448: -- and initialize message list
1449: x_return_status := OKC_API.START_ACTIVITY(
1464:
1465: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1466:
1467: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1468: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 1');
1469: END IF;
1470: -- First delete the link
1471: l_line_rel_id := NULL;
1472: OPEN line_link_csr(p_clev_rec.id); -- Service top line ID
1491: END IF;
1492:
1493:
1494: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1495: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 2');
1496: END IF;
1497: --
1498: -- Check for any more link left, if not, delete header link
1499: --
1525: END IF;
1526:
1527: END IF;
1528: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1529: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 3');
1530: END IF;
1531: --
1532: -- delete service line
1533: --
1548: raise OKC_API.G_EXCEPTION_ERROR;
1549: END IF;
1550:
1551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 4');
1553: END IF;
1554: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1555: /*
1556: * sjalasut: aug 18, 04 added code to enable business event. BEGIN
1651: l_api_version CONSTANT NUMBER := 1;
1652:
1653: BEGIN -- main process begins here
1654: IF (G_DEBUG_ENABLED = 'Y') THEN
1655: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1656: END IF;
1657:
1658: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1659: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1656: END IF;
1657:
1658: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1659: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1661: END IF;
1662: -- call START_ACTIVITY to create savepoint, check compatibility
1663: -- and initialize message list
1664: x_return_status := OKC_API.START_ACTIVITY(
1801: l_ret_val VARCHAR2(1) := '?';
1802:
1803: BEGIN -- main process begins here
1804: IF (G_DEBUG_ENABLED = 'Y') THEN
1805: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1806: END IF;
1807:
1808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1806: END IF;
1807:
1808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1810: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1811: END IF;
1812: -- call START_ACTIVITY to create savepoint, check compatibility
1813: -- and initialize message list
1814: x_return_status := OKC_API.START_ACTIVITY(
1828: END IF;
1829:
1830: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1831: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1832: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cursor');
1833: END IF;
1834: x_service_contract_id := NULL;
1835:
1836: FOR link_rec IN link_csr(p_lease_contract_id)
1852: );
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1854: END IF;
1855: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1856: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Cursor');
1857: END IF;
1858:
1859: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1860:
1930: x_crjv_rec crjv_rec_type;
1931:
1932: BEGIN
1933: IF (G_DEBUG_ENABLED = 'Y') THEN
1934: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1935: END IF;
1936:
1937: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1938: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1935: END IF;
1936:
1937: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1938: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1939: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
1940: END IF;
1941:
1942: -- call START_ACTIVITY to create savepoint, check compatibility
1943: -- and initialize message list
2080: AND rty_code = 'OKLSRV'; -- ???
2081:
2082: BEGIN -- main process begins here
2083: IF (G_DEBUG_ENABLED = 'Y') THEN
2084: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2085: END IF;
2086:
2087: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2088: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2085: END IF;
2086:
2087: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2088: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2089: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2090: END IF;
2091: -- call START_ACTIVITY to create savepoint, check compatibility
2092: -- and initialize message list
2093: x_return_status := OKC_API.START_ACTIVITY(
2107: END IF;
2108:
2109: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2110: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2111: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Cursor');
2112: END IF;
2113: FOR link_rec IN link_csr(p_lease_contract_id)
2114: LOOP
2115: x_service_contract_id := link_rec.object1_id1;
2115: x_service_contract_id := link_rec.object1_id1;
2116: END LOOP;
2117:
2118: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2119: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Cursor');
2120: END IF;
2121:
2122: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2123:
2352: instance_failed EXCEPTION;
2353:
2354: BEGIN
2355: IF (G_DEBUG_ENABLED = 'Y') THEN
2356: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2357: END IF;
2358: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2359: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2356: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2357: END IF;
2358: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2359: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2361: END IF;
2362:
2363: OPEN csi_csr (p_instance_id);
2364: FETCH csi_csr INTO l_location_id,
2510: cov_link_error EXCEPTION;
2511:
2512: BEGIN
2513: IF (G_DEBUG_ENABLED = 'Y') THEN
2514: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2515: END IF;
2516:
2517: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2518: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2515: END IF;
2516:
2517: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2518: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2519: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2520: END IF;
2521:
2522: OPEN cov_link_csr (p_okl_cov_line_id,
2523: p_oks_cov_line_id);
2632: l_item_description OKL_LA_COV_ASSET_UV.item_description%TYPE;
2633:
2634: BEGIN -- main process begins here
2635: IF (G_DEBUG_ENABLED = 'Y') THEN
2636: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2637: END IF;
2638:
2639: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2640: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2637: END IF;
2638:
2639: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2640: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2641: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2642: END IF;
2643: -- call START_ACTIVITY to create savepoint, check compatibility
2644: -- and initialize message list
2645: x_return_status := OKC_API.START_ACTIVITY(
2820: l_ok VARCHAR2(1);
2821:
2822: BEGIN -- main process begins here
2823: IF (G_DEBUG_ENABLED = 'Y') THEN
2824: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2825: END IF;
2826:
2827: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2828: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2825: END IF;
2826:
2827: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2828: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2830: END IF;
2831: -- call START_ACTIVITY to create savepoint, check compatibility
2832: -- and initialize message list
2833: x_return_status := OKC_API.START_ACTIVITY(
2980: l_arintf_rule_id OKC_RULES_V.ID%TYPE;
2981:
2982: BEGIN
2983: IF (G_DEBUG_ENABLED = 'Y') THEN
2984: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2985: END IF;
2986:
2987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2988: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2984: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2985: END IF;
2986:
2987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2988: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2989: END IF;
2990: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2991:
2992: OPEN arintf_csr(p_oks_chr_id);
3140: l_item_desc OKL_LA_COV_ASSET_UV.item_description%TYPE;
3141:
3142: BEGIN -- main process begins here
3143: IF (G_DEBUG_ENABLED = 'Y') THEN
3144: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3145: END IF;
3146:
3147: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3148: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3145: END IF;
3146:
3147: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3148: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3150: END IF;
3151:
3152: -- call START_ACTIVITY to create savepoint, check compatibility
3153: -- and initialize message list
3181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: END IF;
3183:
3184: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3185: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Service contract ID: '||l_oks_chr_id);
3186: END IF;
3187:
3188: IF (l_oks_chr_id IS NOT NULL) THEN -- Service line is linked to OKS Contract
3189:
3295: l_ib_object1_id2;
3296: CLOSE ib_csr;
3297:
3298: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3299: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'IB: '||l_ib_line_id||', '||l_ib_item_id||', '||l_ib_object1_id1);
3300: END IF;
3301:
3302: IF (l_ib_line_id IS NOT NULL
3303: AND
3439: x_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
3440:
3441: BEGIN
3442: IF (G_DEBUG_ENABLED = 'Y') THEN
3443: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3444: END IF;
3445:
3446: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3447:
3489: p_line_item_tbl => l_line_item_tbl,
3490: x_line_item_tbl => x_line_item_tbl
3491: );
3492: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3493: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3494: END IF;
3495: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3496: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3497: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3631: x_tcnv_rec tcnv_rec_type;
3632:
3633: BEGIN
3634: IF (G_DEBUG_ENABLED = 'Y') THEN
3635: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3636: END IF;
3637:
3638: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3639: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3636: END IF;
3637:
3638: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3639: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3640: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
3641: END IF;
3642:
3643: -- call START_ACTIVITY to create savepoint, check compatibility
3644: -- and initialize message list
3677:
3678: FOR oks_serv_rec IN oks_serv_csr(p_oks_chr_id)
3679: LOOP
3680: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3681: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling create_link_service_line');
3682: END IF;
3683: create_link_service_line(
3684: p_api_version => 1.0,
3685: p_init_msg_list => OKL_API.G_FALSE,
3692: p_supplier_id => p_supplier_id,
3693: x_okl_service_line_id => x_okl_service_line_id
3694: );
3695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling create_link_service_line');
3697: END IF;
3698:
3699: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3753: FOR oks_cov_rec IN oks_cov_csr(oks_serv_rec.cle_id)
3754: LOOP
3755:
3756: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3757: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS COV LINE: '||oks_cov_rec.id);
3758: END IF;
3759:
3760: OPEN okl_asset_csr(oks_cov_rec.id,
3761: x_okl_service_line_id
3778:
3779: CLOSE okl_asset_csr;
3780:
3781: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3782: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Asset number: '||l_asset_number);
3783: END IF;
3784:
3785: i := i + 1;
3786: l_line_item_tbl(i).chr_id := p_okl_chr_id;
3795: END LOOP;
3796:
3797: IF (i > 0) THEN -- Covered line found
3798: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3799: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling okl_contract_line_item_pub.create_contract_line_item');
3800: END IF;
3801: okl_contract_line_item_pub.create_contract_line_item(
3802: p_api_version => 1.0,
3803: p_init_msg_list => OKL_API.G_FALSE,
3807: p_line_item_tbl => l_line_item_tbl,
3808: x_line_item_tbl => x_line_item_tbl
3809: );
3810: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3811: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3812: END IF;
3813: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3814: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
3824:
3825: FOR oks_serv_rec IN oks_serv_csr9(p_oks_chr_id)
3826: LOOP
3827: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling create_link_service_line');
3829: END IF;
3830: create_link_service_line(
3831: p_api_version => 1.0,
3832: p_init_msg_list => OKL_API.G_FALSE,
3839: p_supplier_id => p_supplier_id,
3840: x_okl_service_line_id => x_okl_service_line_id
3841: );
3842: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3843: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling create_link_service_line');
3844: END IF;
3845:
3846: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3847: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3900: FOR oks_cov_rec IN oks_cov_csr(oks_serv_rec.cle_id)
3901: LOOP
3902:
3903: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3904: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'OKS COV LINE: '||oks_cov_rec.id);
3905: END IF;
3906:
3907: OPEN okl_asset_csr(oks_cov_rec.id,
3908: x_okl_service_line_id
3926:
3927: CLOSE okl_asset_csr;
3928:
3929: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3930: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Asset number: '||l_asset_number);
3931: END IF;
3932:
3933: i := i + 1;
3934: l_line_item_tbl(i).chr_id := p_okl_chr_id;
3943: END LOOP;
3944:
3945: IF (i > 0) THEN -- Covered line found
3946: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3947: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling okl_contract_line_item_pub.create_contract_line_item');
3948: END IF;
3949: okl_contract_line_item_pub.create_contract_line_item(
3950: p_api_version => 1.0,
3951: p_init_msg_list => OKL_API.G_FALSE,
3955: p_line_item_tbl => l_line_item_tbl,
3956: x_line_item_tbl => x_line_item_tbl
3957: );
3958: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3959: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>After calling okl_contract_line_item_pub.create_contract_line_item');
3960: END IF;
3961: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3962: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3963: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
4059: x_tcnv_rec tcnv_rec_type;
4060:
4061: BEGIN
4062: IF (G_DEBUG_ENABLED = 'Y') THEN
4063: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4064: END IF;
4065:
4066: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4064: END IF;
4065:
4066: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4069: END IF;
4070:
4071: -- call START_ACTIVITY to create savepoint, check compatibility
4072: -- and initialize message list
4109: END LOOP;
4110:
4111: IF (i = 0) THEN
4112: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4113: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'No Serviec contract is linked to the lease contract');
4114: END IF;
4115: RAISE OKC_API.G_EXCEPTION_ERROR;
4116: ELSE
4117:
4156: raise OKC_API.G_EXCEPTION_ERROR;
4157: END IF;
4158:
4159: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4160: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'De-linked...');
4161: END IF;
4162: --
4163: -- ABANDON the de-linked service line in OKL
4164: --
4174: x_klev_tbl => x_klev_tbl
4175: );
4176:
4177: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4178: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error: '||x_msg_data);
4179: END IF;
4180:
4181: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
4182: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4184: raise OKC_API.G_EXCEPTION_ERROR;
4185: END IF;
4186:
4187: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4188: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Abandoned...');
4189: END IF;
4190:
4191: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4192:
4378: x_cimv_rec cimv_rec_type;
4379:
4380: BEGIN
4381: IF (G_DEBUG_ENABLED = 'Y') THEN
4382: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4383: END IF;
4384:
4385: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4386: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4383: END IF;
4384:
4385: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4386: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4387: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4388: END IF;
4389:
4390: -- call START_ACTIVITY to create savepoint, check compatibility
4391: -- and initialize message list
4559: l_api_version CONSTANT NUMBER := 1;
4560:
4561: BEGIN
4562: IF (G_DEBUG_ENABLED = 'Y') THEN
4563: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4564: END IF;
4565:
4566: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4567: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4564: END IF;
4565:
4566: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4567: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4568: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
4569: END IF;
4570:
4571: -- call START_ACTIVITY to create savepoint, check compatibility
4572: -- and initialize message list