[Home] [Help]
1: PACKAGE BODY OKL_QUOTE_TO_CONTRACT_PVT AS
2: /* $Header: OKLRLQCB.pls 120.46.12020000.3 2012/08/28 14:15:36 racheruv ship $ */
3:
4: L_MODULE FND_LOG_MESSAGES.MODULE%TYPE;
5: L_DEBUG_ENABLED VARCHAR2(10);
1247: FETCH RGP_CLE_CSR into l_rgrp_id;
1248: CLOSE RGP_CLE_CSR;
1249: IF(l_rgrp_id IS NULL OR l_rgrp_id = OKL_API.G_MISS_NUM) THEN
1250: IF(l_debug_enabled='Y') THEN
1251: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1252: ,'begin debug call create_rule_group');
1253: END IF;
1254: -- call create rule group
1255: create_rule_group(p_api_version => p_api_version,
1261: p_chr_id => p_chr_id,
1262: p_rgd_code => 'LALEVL',
1263: x_rgp_id => l_rgp_id);
1264: IF(l_debug_enabled='Y') THEN
1265: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1266: ,'end debug call create_rule_group');
1267: END IF;
1268: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1312: IF (p_payment_levels_tbl.COUNT > 0) THEN
1313: SELECT start_date INTO l_start_date FROM okc_k_lines_b where id = p_cle_id;
1314:
1315: IF(l_debug_enabled='Y') THEN
1316: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.validate_payment_details'
1317: ,'begin debug call validate_payment_details');
1318: END IF;
1319: validate_payment_details(p_api_version => p_api_version,
1320: p_init_msg_list => p_init_msg_list,
1331: p_payment_levels_tbl => p_payment_levels_tbl,
1332: x_payment_levels_tbl => l_payment_levels_tbl
1333: );
1334: IF(l_debug_enabled='Y') THEN
1335: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.validate_payment_details'
1336: ,'end debug call validate_payment_details');
1337: END IF;
1338: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1351: line_number := l_payment_levels_tbl.FIRST;
1352: FOR line_number IN l_payment_levels_tbl.FIRST..l_payment_levels_tbl.LAST
1353: LOOP
1354: IF(l_debug_enabled='Y') THEN
1355: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1356: ,'begin debug call populate_rule_record');
1357: END IF;
1358: -- populate the defaults and mandatory fields
1359: populate_rule_record(p_chr_id => p_chr_id,
1360: p_rgp_id => l_rgp_id,
1361: p_rule_name => 'LASLL',
1362: x_rulv_rec => l_lasll_rec);
1363: IF(l_debug_enabled='Y') THEN
1364: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1365: ,'end debug call populate_rule_record');
1366: END IF;
1367:
1368: l_lasll_rec.object1_id1 := p_payment_frequency;
1761: END LOOP;
1762: IF(l_rgp_id IS NULL) THEN
1763: -- create rule group for service expenses
1764: IF(l_debug_enabled='Y') THEN
1765: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1766: ,'begin debug call create_rule_group');
1767: END IF;
1768: create_rule_group(p_api_version => p_api_version,
1769: p_init_msg_list => p_init_msg_list,
1774: p_chr_id => p_chr_id,
1775: p_rgd_code => 'LAFEXP',
1776: x_rgp_id => l_rgp_id);
1777: IF(l_debug_enabled='Y') THEN
1778: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1779: ,'end debug call create_rule_group');
1780: END IF;
1781: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1786: END IF; -- end of creating rule group
1787: -- create rule for frequency
1788: -- populate defaults and mandatory fields
1789: IF(l_debug_enabled='Y') THEN
1790: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1791: ,'begin debug call populate_rule_record');
1792: END IF;
1793: populate_rule_record(p_chr_id => p_chr_id,
1794: p_rgp_id => l_rgp_id,
1794: p_rgp_id => l_rgp_id,
1795: p_rule_name => 'LAFREQ',
1796: x_rulv_rec => l_lafreq_rec);
1797: IF(l_debug_enabled='Y') THEN
1798: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1799: ,'end debug call populate_rule_record');
1800: END IF;
1801: l_lafreq_rec.object1_id1 := p_exp_frequency;
1802: l_lafreq_rec.object1_id2 := '#';
1825: END IF;
1826: END IF; -- end of create
1827: -- populate defaults and mandatory fields
1828: IF(l_debug_enabled='Y') THEN
1829: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1830: ,'begin debug call creatpopulate_rule_record');
1831: END IF;
1832: populate_rule_record(p_chr_id => p_chr_id,
1833: p_rgp_id => l_rgp_id,
1833: p_rgp_id => l_rgp_id,
1834: p_rule_name => 'LAFEXP',
1835: x_rulv_rec => l_lafexp_rec);
1836: IF(l_debug_enabled='Y') THEN
1837: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1838: ,'end debug call creatpopulate_rule_record');
1839: END IF;
1840: l_lafexp_rec.rule_information1 := p_periods;
1841: l_lafexp_rec.rule_information2 := p_periodic_amount;
2175: RAISE OKL_API.G_EXCEPTION_ERROR;
2176: END IF;
2177: l_cle_id := lx_clev_rec.id;
2178: IF(l_debug_enabled='Y') THEN
2179: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2180: ,'begin debug call create_link_assets');
2181: END IF;
2182:
2183: create_link_assets ( p_api_version => p_api_version,
2191: p_qte_fee_srv_id => l_quote_service_rec.ID,
2192: --p_derive_assoc_amt => l_derive_assoc_amt, -- Commented by rravikir for Bug#6707125
2193: p_line_type => 'SERVICE');
2194: IF(l_debug_enabled='Y') THEN
2195: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2196: ,'end debug call create_link_assets');
2197: END IF;
2198: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2201: RAISE OKL_API.G_EXCEPTION_ERROR;
2202: END IF;
2203: -- method for creating service expense details
2204: IF(l_debug_enabled='Y') THEN
2205: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2206: ,'begin debug call create_expense_dtls');
2207: END IF;
2208: create_expense_dtls(p_api_version => p_api_version,
2209: p_init_msg_list => p_init_msg_list,
2215: p_periods => l_expense_levels_tbl(0).periods,
2216: p_periodic_amount => l_expense_levels_tbl(0).amount,
2217: p_exp_frequency => l_expense_levels_tbl(0).frequency_code);
2218: IF(l_debug_enabled='Y') THEN
2219: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2220: ,'end debug call create_expense_dtls');
2221: END IF;
2222: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2226: END IF;
2227: -- create EPT payment
2228: IF l_payment_levels_tbl.COUNT > 0 THEN
2229: IF(l_debug_enabled='Y') THEN
2230: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2231: ,'begin debug call create_payment_plans');
2232: END IF;
2233: create_payment_plans(p_api_version => p_api_version,
2234: p_init_msg_list => p_init_msg_list,
2244: p_payment_structure => NULL,
2245: p_rate_type => NULL,
2246: p_payment_levels_tbl => l_payment_levels_tbl);
2247: IF(l_debug_enabled='Y') THEN
2248: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2249: ,'end debug call create_payment_plans');
2250: END IF;
2251: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2256: END IF;
2257: -- create the party as vendor for the supplier present on the service
2258: IF l_quote_service_rec.supplier_id IS NOT NULL THEN
2259: IF(l_debug_enabled='Y') THEN
2260: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2261: ,'begin debug call create_vendor');
2262: END IF;
2263:
2264: create_vendor( p_api_version => p_api_version,
2270: p_cle_id => NULL,
2271: p_vendor_id => l_quote_service_rec.supplier_id);
2272:
2273: IF(l_debug_enabled='Y') THEN
2274: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2275: ,'end debug call create_vendor');
2276: END IF;
2277: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2280: RAISE OKL_API.G_EXCEPTION_ERROR;
2281: END IF;
2282:
2283: IF(l_debug_enabled='Y') THEN
2284: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2285: ,'begin debug call create_vendor');
2286: END IF;
2287: create_vendor( p_api_version => p_api_version,
2288: p_init_msg_list => p_init_msg_list,
2293: p_cle_id => lx_clev_rec.id,
2294: p_vendor_id => l_quote_service_rec.supplier_id);
2295:
2296: IF(l_debug_enabled='Y') THEN
2297: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2298: ,'end debug call create_vendor');
2299: END IF;
2300: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2515: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'EXPENSE', 'CAPITALIZED', 'FINANCED') THEN
2516: -- create the party as vendor for the supplier present on the subsidy
2517: IF l_quote_fee_rec.supplier_id IS NOT NULL THEN
2518: IF(l_debug_enabled='Y') THEN
2519: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2520: ,'begin debug call create_vendor');
2521: END IF;
2522: create_vendor( p_api_version => p_api_version,
2523: p_init_msg_list => p_init_msg_list,
2528: p_cle_id => NULL,
2529: p_vendor_id => l_quote_fee_rec.supplier_id);
2530:
2531: IF(l_debug_enabled='Y') THEN
2532: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2533: ,'end debug call create_vendor');
2534: END IF;
2535: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: IF l_quote_fee_rec.fee_type = 'CAPITALIZED' THEN
2588: l_capitalize_yn := 'Y';
2589: END IF;
2590: IF(l_debug_enabled='Y') THEN
2591: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2592: ,'begin debug call create_link_assets');
2593: END IF;
2594: create_link_assets (p_api_version => p_api_version,
2595: p_init_msg_list => p_init_msg_list,
2602: p_qte_fee_srv_id => l_quote_fee_rec.ID,
2603: --p_derive_assoc_amt => l_derive_assoc_amt, -- Commented by rravikir for Bug#6707125
2604: p_line_type => l_quote_fee_rec.fee_type);
2605: IF(l_debug_enabled='Y') THEN
2606: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2607: ,'end debug call create_link_assets');
2608: END IF;
2609: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: END IF;
2615:
2616: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'EXPENSE', 'ABSORBED', 'FINANCED') THEN
2617: IF(l_debug_enabled='Y') THEN
2618: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2619: ,'begin debug call create_expense_dtls');
2620: END IF;
2621: create_expense_dtls(p_api_version => p_api_version,
2622: p_init_msg_list => p_init_msg_list,
2628: p_periods => l_periods,
2629: p_periodic_amount => l_periodic_amount,
2630: p_exp_frequency => l_exp_frequency);
2631: IF(l_debug_enabled='Y') THEN
2632: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2633: ,'end debug call create_expense_dtls');
2634: END IF;
2635: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2655: -- create EPT payment
2656: IF l_payment_levels_tbl.COUNT > 0 THEN
2657:
2658: IF(l_debug_enabled='Y') THEN
2659: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2660: ,'begin debug call create_payment_plans');
2661: END IF;
2662: create_payment_plans(p_api_version => p_api_version,
2663: p_init_msg_list => p_init_msg_list,
2673: p_payment_structure => NULL,
2674: p_rate_type => NULL,
2675: p_payment_levels_tbl => l_payment_levels_tbl);
2676: IF(l_debug_enabled='Y') THEN
2677: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2678: ,'end debug call create_payment_plans');
2679: END IF;
2680: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2887:
2888: -- create the party as vendor for the supplier present on the asset
2889: IF l_asset_addon_rec.supplier_id IS NOT NULL THEN
2890: IF(l_debug_enabled='Y') THEN
2891: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2892: ,'begin debug call create_vendor');
2893: END IF;
2894:
2895: create_vendor( p_api_version => p_api_version,
2901: p_cle_id => NULL,
2902: p_vendor_id => l_asset_addon_rec.supplier_id);
2903:
2904: IF(l_debug_enabled='Y') THEN
2905: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2906: ,'end debug call create_vendor');
2907: END IF;
2908: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2910: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2911: RAISE OKL_API.G_EXCEPTION_ERROR;
2912: END IF;
2913: IF(l_debug_enabled='Y') THEN
2914: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2915: ,'begin debug call create_vendor');
2916: END IF;
2917: create_vendor( p_api_version => p_api_version,
2918: p_init_msg_list => p_init_msg_list,
2923: p_cle_id => lx_cre_clev_tbl(lx_cre_clev_tbl.FIRST).id,
2924: p_vendor_id => l_asset_addon_rec.supplier_id);
2925:
2926: IF(l_debug_enabled='Y') THEN
2927: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2928: ,'end debug call create_vendor');
2929: END IF;
2930: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066:
3067: -- create the party as vendor for the supplier present on the subsidy
3068: IF l_asset_subsidy_rec.SUPPLIER_ID IS NOT NULL THEN
3069: IF(l_debug_enabled='Y') THEN
3070: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3071: ,'begin debug call create_vendor');
3072: END IF;
3073:
3074: create_vendor( p_api_version => p_api_version,
3080: p_cle_id => NULL,
3081: p_vendor_id => l_asset_subsidy_rec.SUPPLIER_ID);
3082:
3083: IF(l_debug_enabled='Y') THEN
3084: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3085: ,'end debug call create_vendor');
3086: END IF;
3087: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3815: l_qte_cntrct_ast_tbl(l_ast_counter).cntrct_asset_id := lx_clev_fin_rec.id;
3816: l_ast_counter := l_ast_counter+1;
3817: -- create addons lines
3818: IF(l_debug_enabled='Y') THEN
3819: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_addon'
3820: ,'begin debug call create_asset_addon');
3821: END IF;
3822: create_asset_addon(p_api_version => p_api_version,
3823: p_init_msg_list => p_init_msg_list,
3827: p_clev_fin_rec => lx_clev_fin_rec,
3828: p_asset_id => l_quote_asset_rec.ID);
3829:
3830: IF(l_debug_enabled='Y') THEN
3831: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_addon'
3832: ,'end debug call create_asset_addon');
3833: END IF;
3834: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3838: END IF;
3839: -- create the party as vendor for the supplier present on the asset
3840: IF l_quote_asset_rec.supplier_id IS NOT NULL THEN
3841: IF(l_debug_enabled='Y') THEN
3842: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3843: ,'begin debug call create_vendor');
3844: END IF;
3845:
3846: create_vendor( p_api_version => p_api_version,
3852: p_cle_id => NULL,
3853: p_vendor_id => l_quote_asset_rec.supplier_id);
3854:
3855: IF(l_debug_enabled='Y') THEN
3856: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3857: ,'end debug call create_vendor');
3858: END IF;
3859: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3861: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3862: RAISE OKL_API.G_EXCEPTION_ERROR;
3863: END IF;
3864: IF(l_debug_enabled='Y') THEN
3865: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3866: ,'begin debug call create_vendor');
3867: END IF;
3868: create_vendor( p_api_version => p_api_version,
3869: p_init_msg_list => p_init_msg_list,
3874: p_cle_id => lx_clev_model_rec.id,
3875: p_vendor_id => l_quote_asset_rec.supplier_id);
3876:
3877: IF(l_debug_enabled='Y') THEN
3878: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3879: ,'end debug call create_vendor');
3880: END IF;
3881: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3893: -- and Fee Lines
3894:
3895: -- create subsidy lines
3896: IF(l_debug_enabled='Y') THEN
3897: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_subsidy'
3898: ,'begin debug call create_asset_subsidy');
3899: END IF;
3900: create_asset_subsidy( p_api_version => p_api_version,
3901: p_init_msg_list => p_init_msg_list,
3906: p_asset_id => l_quote_asset_rec.ID,
3907: p_chr_id => p_chr_id);
3908:
3909: IF(l_debug_enabled='Y') THEN
3910: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_subsidy'
3911: ,'end debug call create_asset_subsidy');
3912: END IF;
3913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3920: */
3921:
3922: -- create down payment
3923: IF(l_debug_enabled='Y') THEN
3924: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_down_payment'
3925: ,'begin debug call create_asset_down_payment');
3926: END IF;
3927: create_asset_down_payment( p_api_version => p_api_version,
3928: p_init_msg_list => p_init_msg_list,
3932: p_clev_fin_rec => lx_clev_fin_rec,
3933: p_asset_id => l_quote_asset_rec.ID);
3934:
3935: IF(l_debug_enabled='Y') THEN
3936: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_down_payment'
3937: ,'end debug call create_asset_down_payment');
3938: END IF;
3939: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3942: RAISE OKL_API.G_EXCEPTION_ERROR;
3943: END IF;
3944: -- create trade in
3945: IF(l_debug_enabled='Y') THEN
3946: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
3947: ,'begin debug call create_asset_tradein');
3948: END IF;
3949:
3950: create_asset_tradein( p_api_version => p_api_version,
3955: p_clev_fin_rec => lx_clev_fin_rec,
3956: p_asset_id => l_quote_asset_rec.ID);
3957:
3958: IF(l_debug_enabled='Y') THEN
3959: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
3960: ,'end debug call create_asset_tradein');
3961: END IF;
3962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3980: END LOOP;
3981: -- create EPT payment
3982: IF l_payment_levels_tbl.COUNT > 0 THEN
3983: IF(l_debug_enabled='Y') THEN
3984: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3985: ,'begin call create_payment_plans');
3986: END IF;
3987: create_payment_plans(p_api_version => p_api_version,
3988: p_init_msg_list => p_init_msg_list,
3998: p_payment_structure => NULL,
3999: p_rate_type => NULL,
4000: p_payment_levels_tbl => l_payment_levels_tbl);
4001: IF(l_debug_enabled='Y') THEN
4002: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4003: ,'end debug call create_payment_plans');
4004: END IF;
4005: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4025: END LOOP;
4026:
4027: IF l_payment_levels_tbl.COUNT > 0 THEN
4028: IF(l_debug_enabled='Y') THEN
4029: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4030: ,'begin call create_payment_plans');
4031: END IF;
4032: create_payment_plans(p_api_version => p_api_version,
4033: p_init_msg_list => p_init_msg_list,
4043: p_payment_structure => NULL,
4044: p_rate_type => NULL,
4045: p_payment_levels_tbl => l_payment_levels_tbl);
4046: IF(l_debug_enabled='Y') THEN
4047: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4048: ,'end debug call create_payment_plans');
4049: END IF;
4050: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4070: END LOOP;
4071: -- create EPT payment
4072: IF l_payment_levels_tbl.COUNT > 0 THEN
4073: IF(l_debug_enabled='Y') THEN
4074: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4075: ,'begin call create_payment_plans');
4076: END IF;
4077: create_payment_plans(p_api_version => p_api_version,
4078: p_init_msg_list => p_init_msg_list,
4088: p_payment_structure => NULL,
4089: p_rate_type => NULL,
4090: p_payment_levels_tbl => l_payment_levels_tbl);
4091: IF(l_debug_enabled='Y') THEN
4092: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4093: ,'end debug call create_payment_plans');
4094: END IF;
4095: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4108: l_ti_desc := l_ti_des_rec.description;
4109: END LOOP;
4110: IF l_ti_amt IS NOT NULL THEN
4111: IF(l_debug_enabled='Y') THEN
4112: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
4113: ,'begin debug call create_asset_tradein');
4114: END IF;
4115: okl_la_tradein_pvt.update_contract( p_api_version => p_api_version,
4116: p_init_msg_list => p_init_msg_list,
4122: p_tradein_amount => l_ti_amt,
4123: p_tradein_desc => l_ti_desc);
4124:
4125: IF(l_debug_enabled='Y') THEN
4126: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
4127: ,'end debug call create_asset_tradein');
4128: END IF;
4129: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4148: END LOOP;
4149: -- createcontract level payment
4150: IF l_pym_tbl.COUNT > 0 THEN
4151: IF(l_debug_enabled='Y') THEN
4152: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4153: ,'begin call okl_la_payments_pvt.process_payment');
4154: END IF;
4155: okl_la_payments_pvt.process_payment(p_api_version => p_api_version,
4156: p_init_msg_list => p_init_msg_list,
4165: p_pym_tbl => l_pym_tbl,
4166: p_update_type => 'UPDATE',
4167: x_rulv_tbl => lx_rulv_tbl);
4168: IF(l_debug_enabled='Y') THEN
4169: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4170: ,'end debug call okl_la_payments_pvt.process_payment');
4171: END IF;
4172: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5887: x_return_status := OKL_API.g_ret_sts_error;
5888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5889: END IF;
5890: IF(l_debug_enabled='Y') THEN
5891: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5892: ,'begin debug call create_contract_header');
5893: END IF;
5894:
5895: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
5927: p_lapv_rec => l_lapv_rec,
5928: x_chr_id => l_chr_id);
5929:
5930: IF(l_debug_enabled='Y') THEN
5931: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5932: ,'end debug call create_contract_header');
5933: END IF;
5934: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5937: RAISE OKL_API.G_EXCEPTION_ERROR;
5938: END IF;
5939: IF(l_debug_enabled='Y') THEN
5940: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_party_roles'
5941: ,'begin debug call create_party_roles');
5942: END IF;
5943:
5944:
5959: p_chr_id => l_chr_id,
5960: p_lapv_rec => l_lapv_rec);
5961:
5962: IF(l_debug_enabled='Y') THEN
5963: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_ccreate_party_roles'
5964: ,'end debug call create_party_roles');
5965: END IF;
5966: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5969: RAISE OKL_API.G_EXCEPTION_ERROR;
5970: END IF;
5971: IF(l_debug_enabled='Y') THEN
5972: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_pcreate_rulesarty_roles'
5973: ,'begin debug call create_rules');
5974: END IF;
5975: create_rules(p_api_version => p_api_version,
5976: p_init_msg_list => OKC_API.G_FALSE,
5980: p_chr_id => l_chr_id,
5981: p_lapv_rec => l_lapv_rec);
5982:
5983: IF(l_debug_enabled='Y') THEN
5984: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rules'
5985: ,'end debug call create_rules');
5986: END IF;
5987: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5990: RAISE OKL_API.G_EXCEPTION_ERROR;
5991: END IF;
5992: --create asset lines
5993: IF(l_debug_enabled='Y') THEN
5994: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_lines'
5995: ,'begin debug call create_asset_lines');
5996: END IF;
5997:
5998: create_asset_lines(p_api_version => p_api_version,
6003: p_chr_id => l_chr_id,
6004: p_lapv_rec => l_lapv_rec);
6005:
6006: IF(l_debug_enabled='Y') THEN
6007: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_lines'
6008: ,'end debug call create_asset_lines');
6009: END IF;
6010: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6014: END IF;
6015:
6016: --create fee lines
6017: IF(l_debug_enabled='Y') THEN
6018: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_fee_lines'
6019: ,'begin debug call create_fee_lines');
6020: END IF;
6021: create_fee_lines(p_api_version => p_api_version,
6022: p_init_msg_list => p_init_msg_list,
6025: x_msg_data => x_msg_data,
6026: p_quote_id => l_lapv_rec.quote_id,
6027: p_chr_id => l_chr_id);
6028: IF(l_debug_enabled='Y') THEN
6029: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_fee_lines'
6030: ,'end debug call create_fee_lines');
6031: END IF;
6032: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6037:
6038: --Start : Added by rravikir for Bug#6707125
6039: --create asset subsidy
6040: IF(l_debug_enabled='Y') THEN
6041: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create asset subsidy'
6042: ,'begin debug call create_asset_subsidy');
6043: END IF;
6044: create_asset_subsidy(p_api_version => p_api_version,
6045: p_init_msg_list => OKC_API.G_FALSE,
6048: x_msg_data => x_msg_data,
6049: p_quote_id => l_lapv_rec.quote_id,
6050: p_chr_id => l_chr_id);
6051: IF(l_debug_enabled='Y') THEN
6052: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create asset subsidy'
6053: ,'end debug call create_asset_subsidy');
6054: END IF;
6055: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6060: --End : Added by rravikir for Bug#6707125
6061:
6062: --create service lines
6063: IF(l_debug_enabled='Y') THEN
6064: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_service_lines'
6065: ,'begin debug call create_service_lines');
6066: END IF;
6067: create_service_lines(p_api_version => p_api_version,
6068: p_init_msg_list => p_init_msg_list,
6071: x_msg_data => x_msg_data,
6072: p_quote_id => l_lapv_rec.quote_id,
6073: p_chr_id => l_chr_id);
6074: IF(l_debug_enabled='Y') THEN
6075: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_service_lines'
6076: ,'end debug call create_service_lines');
6077: END IF;
6078: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6081: RAISE OKL_API.G_EXCEPTION_ERROR;
6082: END IF;
6083: IF l_parent_object_code = 'LEASEAPP' THEN
6084: IF(l_debug_enabled='Y') THEN
6085: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_insurance_lines'
6086: ,'begin debug call create_insurance_lines');
6087: END IF;
6088: create_insurance_lines (p_api_version => p_api_version,
6089: p_init_msg_list => p_init_msg_list,
6091: x_msg_count => x_msg_count,
6092: x_msg_data => x_msg_data,
6093: p_chr_id => l_chr_id);
6094: IF(l_debug_enabled='Y') THEN
6095: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_insurance_lines'
6096: ,'end debug call create_insurance_lines');
6097: END IF;
6098: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6116: END IF;
6117: --asawanka bug 4930456 changes end
6118: --Update Lease App status
6119: IF(l_debug_enabled='Y') THEN
6120: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.update_leaseapp_status'
6121: ,'begin debug call update_leaseapp_status');
6122: END IF;
6123: update_leaseapp_status(p_api_version => p_api_version,
6124: p_init_msg_list => p_init_msg_list,
6127: x_msg_data => x_msg_data,
6128: p_lap_id => l_lapv_rec.id);
6129:
6130: IF(l_debug_enabled='Y') THEN
6131: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.update_leaseapp_status'
6132: ,'end debug call update_leaseapp_status');
6133: END IF;
6134: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6212: x_msg_count => x_msg_count,
6213: x_msg_data => x_msg_data,
6214: p_api_type => g_api_type);
6215: END create_contract;
6216: END OKL_QUOTE_TO_CONTRACT_PVT;