[Home] [Help]
1: PACKAGE BODY OKL_QUOTE_TO_CONTRACT_PVT AS
2: /* $Header: OKLRLQCB.pls 120.35.12010000.2 2008/11/17 12:02:31 gboomina ship $ */
3:
4: L_MODULE FND_LOG_MESSAGES.MODULE%TYPE;
5: L_DEBUG_ENABLED VARCHAR2(10);
1242: FETCH RGP_CLE_CSR into l_rgrp_id;
1243: CLOSE RGP_CLE_CSR;
1244: IF(l_rgrp_id IS NULL OR l_rgrp_id = OKL_API.G_MISS_NUM) THEN
1245: IF(l_debug_enabled='Y') THEN
1246: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1247: ,'begin debug call create_rule_group');
1248: END IF;
1249: -- call create rule group
1250: create_rule_group(p_api_version => p_api_version,
1256: p_chr_id => p_chr_id,
1257: p_rgd_code => 'LALEVL',
1258: x_rgp_id => l_rgp_id);
1259: IF(l_debug_enabled='Y') THEN
1260: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1261: ,'end debug call create_rule_group');
1262: END IF;
1263: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1307: IF (p_payment_levels_tbl.COUNT > 0) THEN
1308: SELECT start_date INTO l_start_date FROM okc_k_lines_b where id = p_cle_id;
1309:
1310: IF(l_debug_enabled='Y') THEN
1311: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.validate_payment_details'
1312: ,'begin debug call validate_payment_details');
1313: END IF;
1314: validate_payment_details(p_api_version => p_api_version,
1315: p_init_msg_list => p_init_msg_list,
1326: p_payment_levels_tbl => p_payment_levels_tbl,
1327: x_payment_levels_tbl => l_payment_levels_tbl
1328: );
1329: IF(l_debug_enabled='Y') THEN
1330: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.validate_payment_details'
1331: ,'end debug call validate_payment_details');
1332: END IF;
1333: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1346: line_number := l_payment_levels_tbl.FIRST;
1347: FOR line_number IN l_payment_levels_tbl.FIRST..l_payment_levels_tbl.LAST
1348: LOOP
1349: IF(l_debug_enabled='Y') THEN
1350: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1351: ,'begin debug call populate_rule_record');
1352: END IF;
1353: -- populate the defaults and mandatory fields
1354: populate_rule_record(p_chr_id => p_chr_id,
1355: p_rgp_id => l_rgp_id,
1356: p_rule_name => 'LASLL',
1357: x_rulv_rec => l_lasll_rec);
1358: IF(l_debug_enabled='Y') THEN
1359: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1360: ,'end debug call populate_rule_record');
1361: END IF;
1362:
1363: l_lasll_rec.object1_id1 := p_payment_frequency;
1757: END LOOP;
1758: IF(l_rgp_id IS NULL) THEN
1759: -- create rule group for service expenses
1760: IF(l_debug_enabled='Y') THEN
1761: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1762: ,'begin debug call create_rule_group');
1763: END IF;
1764: create_rule_group(p_api_version => p_api_version,
1765: p_init_msg_list => p_init_msg_list,
1770: p_chr_id => p_chr_id,
1771: p_rgd_code => 'LAFEXP',
1772: x_rgp_id => l_rgp_id);
1773: IF(l_debug_enabled='Y') THEN
1774: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rule_group'
1775: ,'end debug call create_rule_group');
1776: END IF;
1777: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1782: END IF; -- end of creating rule group
1783: -- create rule for frequency
1784: -- populate defaults and mandatory fields
1785: IF(l_debug_enabled='Y') THEN
1786: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1787: ,'begin debug call populate_rule_record');
1788: END IF;
1789: populate_rule_record(p_chr_id => p_chr_id,
1790: p_rgp_id => l_rgp_id,
1790: p_rgp_id => l_rgp_id,
1791: p_rule_name => 'LAFREQ',
1792: x_rulv_rec => l_lafreq_rec);
1793: IF(l_debug_enabled='Y') THEN
1794: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1795: ,'end debug call populate_rule_record');
1796: END IF;
1797: l_lafreq_rec.object1_id1 := p_exp_frequency;
1798: l_lafreq_rec.object1_id2 := '#';
1821: END IF;
1822: END IF; -- end of create
1823: -- populate defaults and mandatory fields
1824: IF(l_debug_enabled='Y') THEN
1825: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1826: ,'begin debug call creatpopulate_rule_record');
1827: END IF;
1828: populate_rule_record(p_chr_id => p_chr_id,
1829: p_rgp_id => l_rgp_id,
1829: p_rgp_id => l_rgp_id,
1830: p_rule_name => 'LAFEXP',
1831: x_rulv_rec => l_lafexp_rec);
1832: IF(l_debug_enabled='Y') THEN
1833: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.populate_rule_record'
1834: ,'end debug call creatpopulate_rule_record');
1835: END IF;
1836: l_lafexp_rec.rule_information1 := p_periods;
1837: l_lafexp_rec.rule_information2 := p_periodic_amount;
2165: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: END IF;
2167: l_cle_id := lx_clev_rec.id;
2168: IF(l_debug_enabled='Y') THEN
2169: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2170: ,'begin debug call create_link_assets');
2171: END IF;
2172:
2173: create_link_assets ( p_api_version => p_api_version,
2181: p_qte_fee_srv_id => l_quote_service_rec.ID,
2182: --p_derive_assoc_amt => l_derive_assoc_amt, -- Commented by rravikir for Bug#6707125
2183: p_line_type => 'SERVICE');
2184: IF(l_debug_enabled='Y') THEN
2185: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2186: ,'end debug call create_link_assets');
2187: END IF;
2188: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2191: RAISE OKL_API.G_EXCEPTION_ERROR;
2192: END IF;
2193: -- method for creating service expense details
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_expense_dtls'
2196: ,'begin debug call create_expense_dtls');
2197: END IF;
2198: create_expense_dtls(p_api_version => p_api_version,
2199: p_init_msg_list => p_init_msg_list,
2205: p_periods => l_expense_levels_tbl(0).periods,
2206: p_periodic_amount => l_expense_levels_tbl(0).amount,
2207: p_exp_frequency => l_expense_levels_tbl(0).frequency_code);
2208: IF(l_debug_enabled='Y') THEN
2209: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2210: ,'end debug call create_expense_dtls');
2211: END IF;
2212: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2216: END IF;
2217: -- create EPT payment
2218: IF l_payment_levels_tbl.COUNT > 0 THEN
2219: IF(l_debug_enabled='Y') THEN
2220: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2221: ,'begin debug call create_payment_plans');
2222: END IF;
2223: create_payment_plans(p_api_version => p_api_version,
2224: p_init_msg_list => p_init_msg_list,
2234: p_payment_structure => NULL,
2235: p_rate_type => NULL,
2236: p_payment_levels_tbl => l_payment_levels_tbl);
2237: IF(l_debug_enabled='Y') THEN
2238: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2239: ,'end debug call create_payment_plans');
2240: END IF;
2241: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2246: END IF;
2247: -- create the party as vendor for the supplier present on the service
2248: IF l_quote_service_rec.supplier_id IS NOT NULL THEN
2249: IF(l_debug_enabled='Y') THEN
2250: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2251: ,'begin debug call create_vendor');
2252: END IF;
2253:
2254: create_vendor( p_api_version => p_api_version,
2260: p_cle_id => NULL,
2261: p_vendor_id => l_quote_service_rec.supplier_id);
2262:
2263: IF(l_debug_enabled='Y') THEN
2264: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2265: ,'end debug call create_vendor');
2266: END IF;
2267: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: RAISE OKL_API.G_EXCEPTION_ERROR;
2271: END IF;
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: ,'begin debug call create_vendor');
2276: END IF;
2277: create_vendor( p_api_version => p_api_version,
2278: p_init_msg_list => p_init_msg_list,
2283: p_cle_id => lx_clev_rec.id,
2284: p_vendor_id => l_quote_service_rec.supplier_id);
2285:
2286: IF(l_debug_enabled='Y') THEN
2287: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2288: ,'end debug call create_vendor');
2289: END IF;
2290: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2490: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'EXPENSE', 'CAPITALIZED', 'FINANCED') THEN
2491: -- create the party as vendor for the supplier present on the subsidy
2492: IF l_quote_fee_rec.supplier_id IS NOT NULL THEN
2493: IF(l_debug_enabled='Y') THEN
2494: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2495: ,'begin debug call create_vendor');
2496: END IF;
2497: create_vendor( p_api_version => p_api_version,
2498: p_init_msg_list => p_init_msg_list,
2503: p_cle_id => NULL,
2504: p_vendor_id => l_quote_fee_rec.supplier_id);
2505:
2506: IF(l_debug_enabled='Y') THEN
2507: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2508: ,'end debug call create_vendor');
2509: END IF;
2510: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2549: IF l_quote_fee_rec.fee_type = 'CAPITALIZED' THEN
2550: l_capitalize_yn := 'Y';
2551: END IF;
2552: IF(l_debug_enabled='Y') THEN
2553: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2554: ,'begin debug call create_link_assets');
2555: END IF;
2556: create_link_assets (p_api_version => p_api_version,
2557: p_init_msg_list => p_init_msg_list,
2564: p_qte_fee_srv_id => l_quote_fee_rec.ID,
2565: --p_derive_assoc_amt => l_derive_assoc_amt, -- Commented by rravikir for Bug#6707125
2566: p_line_type => l_quote_fee_rec.fee_type);
2567: IF(l_debug_enabled='Y') THEN
2568: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_link_assets'
2569: ,'end debug call create_link_assets');
2570: END IF;
2571: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2576: END IF;
2577:
2578: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'EXPENSE', 'ABSORBED', 'FINANCED') THEN
2579: IF(l_debug_enabled='Y') THEN
2580: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2581: ,'begin debug call create_expense_dtls');
2582: END IF;
2583: create_expense_dtls(p_api_version => p_api_version,
2584: p_init_msg_list => p_init_msg_list,
2590: p_periods => l_periods,
2591: p_periodic_amount => l_periodic_amount,
2592: p_exp_frequency => l_exp_frequency);
2593: IF(l_debug_enabled='Y') THEN
2594: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_expense_dtls'
2595: ,'end debug call create_expense_dtls');
2596: END IF;
2597: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2617: -- create EPT payment
2618: IF l_payment_levels_tbl.COUNT > 0 THEN
2619:
2620: IF(l_debug_enabled='Y') THEN
2621: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2622: ,'begin debug call create_payment_plans');
2623: END IF;
2624: create_payment_plans(p_api_version => p_api_version,
2625: p_init_msg_list => p_init_msg_list,
2635: p_payment_structure => NULL,
2636: p_rate_type => NULL,
2637: p_payment_levels_tbl => l_payment_levels_tbl);
2638: IF(l_debug_enabled='Y') THEN
2639: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
2640: ,'end debug call create_payment_plans');
2641: END IF;
2642: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849:
2850: -- create the party as vendor for the supplier present on the asset
2851: IF l_asset_addon_rec.supplier_id IS NOT NULL THEN
2852: IF(l_debug_enabled='Y') THEN
2853: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2854: ,'begin debug call create_vendor');
2855: END IF;
2856:
2857: create_vendor( p_api_version => p_api_version,
2863: p_cle_id => NULL,
2864: p_vendor_id => l_asset_addon_rec.supplier_id);
2865:
2866: IF(l_debug_enabled='Y') THEN
2867: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2868: ,'end debug call create_vendor');
2869: END IF;
2870: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2871: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2872: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_ERROR;
2874: END IF;
2875: IF(l_debug_enabled='Y') THEN
2876: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2877: ,'begin debug call create_vendor');
2878: END IF;
2879: create_vendor( p_api_version => p_api_version,
2880: p_init_msg_list => p_init_msg_list,
2885: p_cle_id => lx_cre_clev_tbl(lx_cre_clev_tbl.FIRST).id,
2886: p_vendor_id => l_asset_addon_rec.supplier_id);
2887:
2888: IF(l_debug_enabled='Y') THEN
2889: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
2890: ,'end debug call create_vendor');
2891: END IF;
2892: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3028:
3029: -- create the party as vendor for the supplier present on the subsidy
3030: IF l_asset_subsidy_rec.SUPPLIER_ID IS NOT NULL THEN
3031: IF(l_debug_enabled='Y') THEN
3032: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3033: ,'begin debug call create_vendor');
3034: END IF;
3035:
3036: create_vendor( p_api_version => p_api_version,
3042: p_cle_id => NULL,
3043: p_vendor_id => l_asset_subsidy_rec.SUPPLIER_ID);
3044:
3045: IF(l_debug_enabled='Y') THEN
3046: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3047: ,'end debug call create_vendor');
3048: END IF;
3049: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3708: l_qte_cntrct_ast_tbl(l_ast_counter).cntrct_asset_id := lx_clev_fin_rec.id;
3709: l_ast_counter := l_ast_counter+1;
3710: -- create addons lines
3711: IF(l_debug_enabled='Y') THEN
3712: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_addon'
3713: ,'begin debug call create_asset_addon');
3714: END IF;
3715: create_asset_addon(p_api_version => p_api_version,
3716: p_init_msg_list => p_init_msg_list,
3720: p_clev_fin_rec => lx_clev_fin_rec,
3721: p_asset_id => l_quote_asset_rec.ID);
3722:
3723: IF(l_debug_enabled='Y') THEN
3724: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_addon'
3725: ,'end debug call create_asset_addon');
3726: END IF;
3727: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3731: END IF;
3732: -- create the party as vendor for the supplier present on the asset
3733: IF l_quote_asset_rec.supplier_id IS NOT NULL THEN
3734: IF(l_debug_enabled='Y') THEN
3735: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3736: ,'begin debug call create_vendor');
3737: END IF;
3738:
3739: create_vendor( p_api_version => p_api_version,
3745: p_cle_id => NULL,
3746: p_vendor_id => l_quote_asset_rec.supplier_id);
3747:
3748: IF(l_debug_enabled='Y') THEN
3749: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3750: ,'end debug call create_vendor');
3751: END IF;
3752: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3754: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3755: RAISE OKL_API.G_EXCEPTION_ERROR;
3756: END IF;
3757: IF(l_debug_enabled='Y') THEN
3758: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3759: ,'begin debug call create_vendor');
3760: END IF;
3761: create_vendor( p_api_version => p_api_version,
3762: p_init_msg_list => p_init_msg_list,
3767: p_cle_id => lx_clev_model_rec.id,
3768: p_vendor_id => l_quote_asset_rec.supplier_id);
3769:
3770: IF(l_debug_enabled='Y') THEN
3771: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_vendor'
3772: ,'end debug call create_vendor');
3773: END IF;
3774: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3786: -- and Fee Lines
3787:
3788: -- create subsidy lines
3789: IF(l_debug_enabled='Y') THEN
3790: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_subsidy'
3791: ,'begin debug call create_asset_subsidy');
3792: END IF;
3793: create_asset_subsidy( p_api_version => p_api_version,
3794: p_init_msg_list => p_init_msg_list,
3799: p_asset_id => l_quote_asset_rec.ID,
3800: p_chr_id => p_chr_id);
3801:
3802: IF(l_debug_enabled='Y') THEN
3803: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_subsidy'
3804: ,'end debug call create_asset_subsidy');
3805: END IF;
3806: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3813: */
3814:
3815: -- create down payment
3816: IF(l_debug_enabled='Y') THEN
3817: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_down_payment'
3818: ,'begin debug call create_asset_down_payment');
3819: END IF;
3820: create_asset_down_payment( p_api_version => p_api_version,
3821: p_init_msg_list => p_init_msg_list,
3825: p_clev_fin_rec => lx_clev_fin_rec,
3826: p_asset_id => l_quote_asset_rec.ID);
3827:
3828: IF(l_debug_enabled='Y') THEN
3829: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_down_payment'
3830: ,'end debug call create_asset_down_payment');
3831: END IF;
3832: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3835: RAISE OKL_API.G_EXCEPTION_ERROR;
3836: END IF;
3837: -- create trade in
3838: IF(l_debug_enabled='Y') THEN
3839: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
3840: ,'begin debug call create_asset_tradein');
3841: END IF;
3842:
3843: create_asset_tradein( p_api_version => p_api_version,
3848: p_clev_fin_rec => lx_clev_fin_rec,
3849: p_asset_id => l_quote_asset_rec.ID);
3850:
3851: IF(l_debug_enabled='Y') THEN
3852: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
3853: ,'end debug call create_asset_tradein');
3854: END IF;
3855: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3873: END LOOP;
3874: -- create EPT payment
3875: IF l_payment_levels_tbl.COUNT > 0 THEN
3876: IF(l_debug_enabled='Y') THEN
3877: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3878: ,'begin call create_payment_plans');
3879: END IF;
3880: create_payment_plans(p_api_version => p_api_version,
3881: p_init_msg_list => p_init_msg_list,
3891: p_payment_structure => NULL,
3892: p_rate_type => NULL,
3893: p_payment_levels_tbl => l_payment_levels_tbl);
3894: IF(l_debug_enabled='Y') THEN
3895: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3896: ,'end debug call create_payment_plans');
3897: END IF;
3898: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3918: END LOOP;
3919:
3920: IF l_payment_levels_tbl.COUNT > 0 THEN
3921: IF(l_debug_enabled='Y') THEN
3922: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3923: ,'begin call create_payment_plans');
3924: END IF;
3925: create_payment_plans(p_api_version => p_api_version,
3926: p_init_msg_list => p_init_msg_list,
3936: p_payment_structure => NULL,
3937: p_rate_type => NULL,
3938: p_payment_levels_tbl => l_payment_levels_tbl);
3939: IF(l_debug_enabled='Y') THEN
3940: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3941: ,'end debug call create_payment_plans');
3942: END IF;
3943: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3963: END LOOP;
3964: -- create EPT payment
3965: IF l_payment_levels_tbl.COUNT > 0 THEN
3966: IF(l_debug_enabled='Y') THEN
3967: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3968: ,'begin call create_payment_plans');
3969: END IF;
3970: create_payment_plans(p_api_version => p_api_version,
3971: p_init_msg_list => p_init_msg_list,
3981: p_payment_structure => NULL,
3982: p_rate_type => NULL,
3983: p_payment_levels_tbl => l_payment_levels_tbl);
3984: IF(l_debug_enabled='Y') THEN
3985: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
3986: ,'end debug call create_payment_plans');
3987: END IF;
3988: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4001: l_ti_desc := l_ti_des_rec.description;
4002: END LOOP;
4003: IF l_ti_amt IS NOT NULL THEN
4004: IF(l_debug_enabled='Y') THEN
4005: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
4006: ,'begin debug call create_asset_tradein');
4007: END IF;
4008: okl_la_tradein_pvt.update_contract( p_api_version => p_api_version,
4009: p_init_msg_list => p_init_msg_list,
4015: p_tradein_amount => l_ti_amt,
4016: p_tradein_desc => l_ti_desc);
4017:
4018: IF(l_debug_enabled='Y') THEN
4019: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_tradein'
4020: ,'end debug call create_asset_tradein');
4021: END IF;
4022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4041: END LOOP;
4042: -- createcontract level payment
4043: IF l_pym_tbl.COUNT > 0 THEN
4044: IF(l_debug_enabled='Y') THEN
4045: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4046: ,'begin call okl_la_payments_pvt.process_payment');
4047: END IF;
4048: okl_la_payments_pvt.process_payment(p_api_version => p_api_version,
4049: p_init_msg_list => p_init_msg_list,
4058: p_pym_tbl => l_pym_tbl,
4059: p_update_type => 'UPDATE',
4060: x_rulv_tbl => lx_rulv_tbl);
4061: IF(l_debug_enabled='Y') THEN
4062: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_payment_plans'
4063: ,'end debug call okl_la_payments_pvt.process_payment');
4064: END IF;
4065: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5247: x_return_status := OKL_API.g_ret_sts_error;
5248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5249: END IF;
5250: IF(l_debug_enabled='Y') THEN
5251: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5252: ,'begin debug call create_contract_header');
5253: END IF;
5254:
5255: OKC_CONTEXT.SET_OKC_ORG_CONTEXT(
5287: p_lapv_rec => l_lapv_rec,
5288: x_chr_id => l_chr_id);
5289:
5290: IF(l_debug_enabled='Y') THEN
5291: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_contract_header'
5292: ,'end debug call create_contract_header');
5293: END IF;
5294: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_ERROR;
5298: END IF;
5299: IF(l_debug_enabled='Y') THEN
5300: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_party_roles'
5301: ,'begin debug call create_party_roles');
5302: END IF;
5303:
5304: create_party_roles(p_api_version => p_api_version,
5309: p_chr_id => l_chr_id,
5310: p_lapv_rec => l_lapv_rec);
5311:
5312: IF(l_debug_enabled='Y') THEN
5313: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_ccreate_party_roles'
5314: ,'end debug call create_party_roles');
5315: END IF;
5316: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5319: RAISE OKL_API.G_EXCEPTION_ERROR;
5320: END IF;
5321: IF(l_debug_enabled='Y') THEN
5322: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_pcreate_rulesarty_roles'
5323: ,'begin debug call create_rules');
5324: END IF;
5325: create_rules(p_api_version => p_api_version,
5326: p_init_msg_list => OKC_API.G_FALSE,
5330: p_chr_id => l_chr_id,
5331: p_lapv_rec => l_lapv_rec);
5332:
5333: IF(l_debug_enabled='Y') THEN
5334: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_rules'
5335: ,'end debug call create_rules');
5336: END IF;
5337: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5342: --create asset lines
5343: IF(l_debug_enabled='Y') THEN
5344: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_lines'
5345: ,'begin debug call create_asset_lines');
5346: END IF;
5347:
5348: create_asset_lines(p_api_version => p_api_version,
5353: p_chr_id => l_chr_id,
5354: p_lapv_rec => l_lapv_rec);
5355:
5356: IF(l_debug_enabled='Y') THEN
5357: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_asset_lines'
5358: ,'end debug call create_asset_lines');
5359: END IF;
5360: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5364: END IF;
5365:
5366: --create fee lines
5367: IF(l_debug_enabled='Y') THEN
5368: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_fee_lines'
5369: ,'begin debug call create_fee_lines');
5370: END IF;
5371: create_fee_lines(p_api_version => p_api_version,
5372: p_init_msg_list => p_init_msg_list,
5375: x_msg_data => x_msg_data,
5376: p_quote_id => l_lapv_rec.quote_id,
5377: p_chr_id => l_chr_id);
5378: IF(l_debug_enabled='Y') THEN
5379: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_fee_lines'
5380: ,'end debug call create_fee_lines');
5381: END IF;
5382: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5387:
5388: --Start : Added by rravikir for Bug#6707125
5389: --create asset subsidy
5390: IF(l_debug_enabled='Y') THEN
5391: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create asset subsidy'
5392: ,'begin debug call create_asset_subsidy');
5393: END IF;
5394: create_asset_subsidy(p_api_version => p_api_version,
5395: p_init_msg_list => OKC_API.G_FALSE,
5398: x_msg_data => x_msg_data,
5399: p_quote_id => l_lapv_rec.quote_id,
5400: p_chr_id => l_chr_id);
5401: IF(l_debug_enabled='Y') THEN
5402: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create asset subsidy'
5403: ,'end debug call create_asset_subsidy');
5404: END IF;
5405: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5410: --End : Added by rravikir for Bug#6707125
5411:
5412: --create service lines
5413: IF(l_debug_enabled='Y') THEN
5414: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_service_lines'
5415: ,'begin debug call create_service_lines');
5416: END IF;
5417: create_service_lines(p_api_version => p_api_version,
5418: p_init_msg_list => p_init_msg_list,
5421: x_msg_data => x_msg_data,
5422: p_quote_id => l_lapv_rec.quote_id,
5423: p_chr_id => l_chr_id);
5424: IF(l_debug_enabled='Y') THEN
5425: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_service_lines'
5426: ,'end debug call create_service_lines');
5427: END IF;
5428: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5431: RAISE OKL_API.G_EXCEPTION_ERROR;
5432: END IF;
5433: IF l_parent_object_code = 'LEASEAPP' THEN
5434: IF(l_debug_enabled='Y') THEN
5435: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_insurance_lines'
5436: ,'begin debug call create_insurance_lines');
5437: END IF;
5438: create_insurance_lines (p_api_version => p_api_version,
5439: p_init_msg_list => p_init_msg_list,
5441: x_msg_count => x_msg_count,
5442: x_msg_data => x_msg_data,
5443: p_chr_id => l_chr_id);
5444: IF(l_debug_enabled='Y') THEN
5445: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.create_insurance_lines'
5446: ,'end debug call create_insurance_lines');
5447: END IF;
5448: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5449: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5466: END IF;
5467: --asawanka bug 4930456 changes end
5468: --Update Lease App status
5469: IF(l_debug_enabled='Y') THEN
5470: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.update_leaseapp_status'
5471: ,'begin debug call update_leaseapp_status');
5472: END IF;
5473: update_leaseapp_status(p_api_version => p_api_version,
5474: p_init_msg_list => p_init_msg_list,
5477: x_msg_data => x_msg_data,
5478: p_lap_id => l_lapv_rec.id);
5479:
5480: IF(l_debug_enabled='Y') THEN
5481: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_quote_to_contract_pvt.update_leaseapp_status'
5482: ,'end debug call update_leaseapp_status');
5483: END IF;
5484: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5562: x_msg_count => x_msg_count,
5563: x_msg_data => x_msg_data,
5564: p_api_type => g_api_type);
5565: END create_contract;
5566: END OKL_QUOTE_TO_CONTRACT_PVT;