301: -- History : 28-Oct-2005 SKGAUTAM created
302: --
303: -- End of comments
304: PROCEDURE update_leaseapp_status(p_api_version IN NUMBER,
305: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
306: x_return_status OUT NOCOPY VARCHAR2,
307: x_msg_count OUT NOCOPY NUMBER,
308: x_msg_data OUT NOCOPY VARCHAR2,
309: p_lap_id IN OKL_LEASE_APPLICATIONS_B.ID%TYPE) IS
357: RAISE OKL_API.G_EXCEPTION_ERROR;
358: END IF;
359:
360:
361: x_return_status := okc_api.G_RET_STS_SUCCESS;
362: OKL_API.END_ACTIVITY(
363: x_msg_count => x_msg_count
364: ,x_msg_data => x_msg_data);
365: EXCEPTION
397: -- Description : This procedure is a wrapper that creates create_vendor
398:
399: -- End of comments
400: PROCEDURE create_vendor(p_api_version IN NUMBER,
401: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
402: x_return_status OUT NOCOPY VARCHAR2,
403: x_msg_count OUT NOCOPY NUMBER,
404: x_msg_data OUT NOCOPY VARCHAR2,
405: p_chr_id IN NUMBER,
458: RAISE OKL_API.G_EXCEPTION_ERROR;
459: END IF;
460:
461: lp_cplv_rec.object_version_number := 1.0;
462: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
463: lp_cplv_rec.dnz_chr_id := p_chr_id;
464: lp_cplv_rec.chr_id := p_chr_id;
465: lp_cplv_rec.cle_id := p_cle_id;
466: lp_cplv_rec.object1_id1 := p_vendor_id;
499: IF(l_debug_enabled='Y') THEN
500: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
501: ,'end debug call create_k_party_role');
502: END IF;
503: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
505: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
506: RAISE OKL_API.G_EXCEPTION_ERROR;
507: END IF;
501: ,'end debug call create_k_party_role');
502: END IF;
503: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
505: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
506: RAISE OKL_API.G_EXCEPTION_ERROR;
507: END IF;
508: END IF;
509: x_return_status := okc_api.G_RET_STS_SUCCESS;
505: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
506: RAISE OKL_API.G_EXCEPTION_ERROR;
507: END IF;
508: END IF;
509: x_return_status := okc_api.G_RET_STS_SUCCESS;
510: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
511: ,x_msg_data => x_msg_data);
512: EXCEPTION
513: WHEN OKL_API.G_EXCEPTION_ERROR THEN
608: -- History : 20-Jun-2005 SKGAUTAM created
609: --
610: -- End of comments
611: PROCEDURE create_rule_group(p_api_version IN NUMBER,
612: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
613: x_return_status OUT NOCOPY VARCHAR2,
614: x_msg_count OUT NOCOPY NUMBER,
615: x_msg_data OUT NOCOPY VARCHAR2,
616: p_cle_id IN NUMBER,
669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
670: RAISE OKL_API.G_EXCEPTION_ERROR;
671: END IF;
672: x_rgp_id := lx_rgpv_rec.id;
673: x_return_status := okc_api.G_RET_STS_SUCCESS;
674: OKL_API.END_ACTIVITY(
675: x_msg_count => x_msg_count
676: ,x_msg_data => x_msg_data);
677: EXCEPTION
893: -- History : 20-Jun-2005 SKGAUTAM created
894: --
895: -- End of comments
896: PROCEDURE validate_payment_details(p_api_version IN NUMBER,
897: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
898: x_return_status OUT NOCOPY VARCHAR2,
899: x_msg_count OUT NOCOPY NUMBER,
900: x_msg_data OUT NOCOPY VARCHAR2,
901: p_chr_id IN NUMBER,
1115: RAISE OKL_API.G_EXCEPTION_ERROR;
1116: END IF;
1117: END IF;
1118: x_payment_levels_tbl := l_payment_levels_tbl;
1119: x_return_status := okc_api.G_RET_STS_SUCCESS;
1120: OKL_API.END_ACTIVITY(
1121: x_msg_count => x_msg_count
1122: ,x_msg_data => x_msg_data);
1123: EXCEPTION
1402: RAISE OKL_API.G_EXCEPTION_ERROR;
1403: END IF;
1404: END LOOP; -- end of payment_level_table
1405: END IF; -- if payment_level_tbl has any records
1406: x_return_status := okc_api.G_RET_STS_SUCCESS;
1407: OKL_API.END_ACTIVITY(
1408: x_msg_count => x_msg_count
1409: ,x_msg_data => x_msg_data);
1410: EXCEPTION
1449: -- 04-Jan-2008 RRAVIKIR modified for Bug#6707125 for correct allocation of
1450: -- amount to associated assets of a Fee Line
1451: -- End of comments
1452: PROCEDURE create_link_assets (p_api_version IN NUMBER,
1453: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1454: x_return_status OUT NOCOPY VARCHAR2,
1455: x_msg_count OUT NOCOPY NUMBER,
1456: x_msg_data OUT NOCOPY VARCHAR2,
1457: p_cle_id IN NUMBER,
1649: IF(l_debug_enabled='Y') THEN
1650: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_contract_line_item_pvt.create_contract_line_item'
1651: ,'end debug call create_contract_line_item');
1652: END IF;
1653: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1651: ,'end debug call create_contract_line_item');
1652: END IF;
1653: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: END IF;
1659: END IF;
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: END IF;
1659: END IF;
1660: x_return_status := okc_api.G_RET_STS_SUCCESS;
1661: OKL_API.END_ACTIVITY(
1662: x_msg_count => x_msg_count
1663: ,x_msg_data => x_msg_data);
1664: EXCEPTION
1701: -- History : 20-Jun-2005 SKGAUTAM created
1702: --
1703: -- End of comments
1704: PROCEDURE create_expense_dtls(p_api_version IN NUMBER,
1705: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1706: x_return_status OUT NOCOPY VARCHAR2,
1707: x_msg_count OUT NOCOPY NUMBER,
1708: x_msg_data OUT NOCOPY VARCHAR2,
1709: p_cle_id IN NUMBER,
1861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1862: RAISE OKL_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: END IF; -- end of create
1865: x_return_status := okc_api.G_RET_STS_SUCCESS;
1866: OKL_API.END_ACTIVITY(
1867: x_msg_count => x_msg_count
1868: ,x_msg_data => x_msg_data);
1869: EXCEPTION
1906: -- History : 20-Jun-2005 SKGAUTAM created
1907: --
1908: -- End of comments
1909: PROCEDURE create_insurance_lines (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_chr_id IN NUMBER) IS
1960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1962: RAISE OKL_API.G_EXCEPTION_ERROR;
1963: END IF;
1964: x_return_status := okc_api.G_RET_STS_SUCCESS;
1965: OKL_API.END_ACTIVITY(
1966: x_msg_count => x_msg_count
1967: ,x_msg_data => x_msg_data);
1968: EXCEPTION
2006: -- History : 20-Jun-2005 SKGAUTAM created
2007: --
2008: -- End of comments
2009: PROCEDURE create_service_lines (p_api_version IN NUMBER,
2010: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2011: x_return_status OUT NOCOPY VARCHAR2,
2012: x_msg_count OUT NOCOPY NUMBER,
2013: x_msg_data OUT NOCOPY VARCHAR2,
2014: p_quote_id IN NUMBER,
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;
2279: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_ERROR;
2281: END IF;
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;
2279: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2280: RAISE OKL_API.G_EXCEPTION_ERROR;
2281: END IF;
2282:
2283: IF(l_debug_enabled='Y') THEN
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;
2302: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2303: RAISE OKL_API.G_EXCEPTION_ERROR;
2304: END IF;
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;
2302: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2303: RAISE OKL_API.G_EXCEPTION_ERROR;
2304: END IF;
2305: END IF;
2306:
2304: END IF;
2305: END IF;
2306:
2307: END LOOP;
2308: x_return_status := okc_api.G_RET_STS_SUCCESS;
2309: OKL_API.END_ACTIVITY(
2310: x_msg_count => x_msg_count
2311: ,x_msg_data => x_msg_data);
2312: EXCEPTION
2350: -- Version : 1.0
2351: -- History : 20-Jun-2005 SKGAUTAM created
2352: -- End of comments
2353: PROCEDURE create_fee_lines(p_api_version IN NUMBER,
2354: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2355: x_return_status OUT NOCOPY VARCHAR2,
2356: x_msg_count OUT NOCOPY NUMBER,
2357: x_msg_data OUT NOCOPY VARCHAR2,
2358: p_quote_id IN NUMBER,
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;
2537: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2538: RAISE OKL_API.G_EXCEPTION_ERROR;
2539: END IF;
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;
2537: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2538: RAISE OKL_API.G_EXCEPTION_ERROR;
2539: END IF;
2540: END IF;
2541: END IF;
2576: IF(l_debug_enabled='Y') THEN
2577: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_maintain_fee_pvt.create_fee_type'
2578: ,'end debug call create_fee_type');
2579: END IF;
2580: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2582: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2583: RAISE OKL_API.G_EXCEPTION_ERROR;
2584: END IF;
2578: ,'end debug call create_fee_type');
2579: END IF;
2580: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2582: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2583: RAISE OKL_API.G_EXCEPTION_ERROR;
2584: END IF;
2585: l_cle_id := lx_fee_types_rec.line_id;
2586: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'EXPENSE', 'CAPITALIZED', 'FINANCED','INCOME','ROLLOVER') THEN
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;
2611: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2612: RAISE OKL_API.G_EXCEPTION_ERROR;
2613: END IF;
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;
2611: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2612: RAISE OKL_API.G_EXCEPTION_ERROR;
2613: END IF;
2614: END IF;
2615:
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;
2637: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2638: RAISE OKL_API.G_EXCEPTION_ERROR;
2639: END IF;
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;
2637: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2638: RAISE OKL_API.G_EXCEPTION_ERROR;
2639: END IF;
2640: END IF;
2641: IF l_quote_fee_rec.fee_type IN ('MISCELLANEOUS', 'PASSTHROUGH', 'FINANCED', 'INCOME', 'ROLLOVER', 'SEC_DEPOSIT') THEN
2684: END IF;
2685: END IF;
2686: END IF;
2687: END LOOP;
2688: x_return_status := okc_api.G_RET_STS_SUCCESS;
2689: OKL_API.END_ACTIVITY(
2690: x_msg_count => x_msg_count
2691: ,x_msg_data => x_msg_data);
2692: EXCEPTION
2731: -- History : 20-Jun-2005 SKGAUTAM created
2732: --
2733: -- End of comments
2734: PROCEDURE create_asset_addon( p_api_version IN NUMBER,
2735: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2736: x_return_status OUT NOCOPY VARCHAR2,
2737: x_msg_count OUT NOCOPY NUMBER,
2738: x_msg_data OUT NOCOPY VARCHAR2,
2739: p_clev_fin_rec IN clev_fin_rec,
2878: IF(l_debug_enabled='Y') THEN
2879: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CREATE_KLE_PVT.create_add_on_line'
2880: ,'end debug call create_add_on_line');
2881: END IF;
2882: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2884: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2885: RAISE OKL_API.G_EXCEPTION_ERROR;
2886: END IF;
2880: ,'end debug call create_add_on_line');
2881: END IF;
2882: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2884: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2885: RAISE OKL_API.G_EXCEPTION_ERROR;
2886: END IF;
2887:
2888: -- create the party as vendor for the supplier present on the asset
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;
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'
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;
2932: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2933: RAISE OKL_API.G_EXCEPTION_ERROR;
2934: END IF;
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;
2932: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2933: RAISE OKL_API.G_EXCEPTION_ERROR;
2934: END IF;
2935: END IF;
2936:
2936:
2937:
2938: END LOOP;
2939: -- END IF;
2940: x_return_status := okc_api.G_RET_STS_SUCCESS;
2941: OKL_API.END_ACTIVITY(
2942: x_msg_count => x_msg_count
2943: ,x_msg_data => x_msg_data);
2944: EXCEPTION
2985: -- Amount Subsidy
2986: --
2987: -- End of comments
2988: PROCEDURE create_asset_subsidy (p_api_version IN NUMBER,
2989: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2990: x_return_status OUT NOCOPY VARCHAR2,
2991: x_msg_count OUT NOCOPY NUMBER,
2992: x_msg_data OUT NOCOPY VARCHAR2,
2993: --p_clev_fin_rec IN clev_fin_rec, -- Commented by rravikir for bug#6707125
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;
3089: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3090: RAISE OKL_API.G_EXCEPTION_ERROR;
3091: END IF;
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;
3089: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3090: RAISE OKL_API.G_EXCEPTION_ERROR;
3091: END IF;
3092: END IF;
3093:
3111: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_asset_subsidy_pvt.create_asset_subsidy'
3112: ,'end debug call create_asset_subsidy');
3113: END IF;
3114:
3115: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3117: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3118: RAISE OKL_API.G_EXCEPTION_ERROR;
3119: END IF;
3113: END IF;
3114:
3115: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3117: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3118: RAISE OKL_API.G_EXCEPTION_ERROR;
3119: END IF;
3120: END IF;
3121: END IF;
3120: END IF;
3121: END IF;
3122: END LOOP; -- Outer Loop Added by rravikir for bug#6707125
3123:
3124: x_return_status := okc_api.G_RET_STS_SUCCESS;
3125:
3126: OKL_API.END_ACTIVITY(
3127: x_msg_count => x_msg_count
3128: ,x_msg_data => x_msg_data);
3161: -- Procedure Name : create_asset_down_payment
3162: -- Description : This procedure creates down payment for an asset
3163: -- End of comments
3164: PROCEDURE create_asset_down_payment (p_api_version IN NUMBER,
3165: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3166: x_return_status OUT NOCOPY VARCHAR2,
3167: x_msg_count OUT NOCOPY NUMBER,
3168: x_msg_data OUT NOCOPY VARCHAR2,
3169: p_clev_fin_rec IN clev_fin_rec,
3269: IF(l_debug_enabled='Y') THEN
3270: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.Okl_La_Asset_Pvt.update_Fin_Cap_Cost'
3271: ,'end debug call update_Fin_Cap_Cost');
3272: END IF;
3273: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3275: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3276: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: END IF;
3271: ,'end debug call update_Fin_Cap_Cost');
3272: END IF;
3273: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3275: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3276: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: END IF;
3278: END IF;
3279: x_return_status := okc_api.G_RET_STS_SUCCESS;
3275: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3276: RAISE OKL_API.G_EXCEPTION_ERROR;
3277: END IF;
3278: END IF;
3279: x_return_status := okc_api.G_RET_STS_SUCCESS;
3280:
3281: OKL_API.END_ACTIVITY(
3282: x_msg_count => x_msg_count
3283: ,x_msg_data => x_msg_data);
3315: -- Procedure Name : create_asset_tradein
3316: -- Description : This procedure creates trade in for an asset
3317: -- End of comments
3318: PROCEDURE create_asset_tradein (p_api_version IN NUMBER,
3319: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3320: x_return_status OUT NOCOPY VARCHAR2,
3321: x_msg_count OUT NOCOPY NUMBER,
3322: x_msg_data OUT NOCOPY VARCHAR2,
3323: p_clev_fin_rec IN clev_fin_rec,
3404: IF(l_debug_enabled='Y') THEN
3405: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.Okl_La_Tradein_Pvt.create_Tradein'
3406: ,'end debug call create_Tradein');
3407: END IF;
3408: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3406: ,'end debug call create_Tradein');
3407: END IF;
3408: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413:
3414: END IF;
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413:
3414: END IF;
3415: x_return_status := okc_api.G_RET_STS_SUCCESS;
3416:
3417: OKL_API.END_ACTIVITY(
3418: x_msg_count => x_msg_count
3419: ,x_msg_data => x_msg_data);
3459: -- Version : 1.0
3460: -- History : 20-Jun-2005 SKGAUTAM created
3461: -- End of comments
3462: PROCEDURE create_asset_lines(p_api_version IN NUMBER,
3463: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3464: x_return_status OUT NOCOPY VARCHAR2,
3465: x_msg_count OUT NOCOPY NUMBER,
3466: x_msg_data OUT NOCOPY VARCHAR2,
3467: p_chr_id IN NUMBER,
3804: IF(l_debug_enabled='Y') THEN
3805: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_create_kle_pvt.create_all_line'
3806: ,'end debug call create_all_line');
3807: END IF;
3808: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3810: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3811: RAISE OKL_API.G_EXCEPTION_ERROR;
3812: END IF;
3806: ,'end debug call create_all_line');
3807: END IF;
3808: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3810: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3811: RAISE OKL_API.G_EXCEPTION_ERROR;
3812: END IF;
3813: --populate quote contract asset id mapping table
3814: l_qte_cntrct_ast_tbl(l_ast_counter).qte_asset_id := l_quote_asset_rec.ID;
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;
3836: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3837: RAISE OKL_API.G_EXCEPTION_ERROR;
3838: END IF;
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;
3836: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3837: RAISE OKL_API.G_EXCEPTION_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
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;
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'
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;
3883: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
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;
3883: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
3886: END IF;
3887:
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;
3915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
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;
3915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3918:
3919: End : Commented by rravikir for bug#6707125
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;
3941: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3942: RAISE OKL_API.G_EXCEPTION_ERROR;
3943: END IF;
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;
3941: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3942: RAISE OKL_API.G_EXCEPTION_ERROR;
3943: END IF;
3944: -- create trade in
3945: IF(l_debug_enabled='Y') THEN
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;
3964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3965: RAISE OKL_API.G_EXCEPTION_ERROR;
3966: END IF;
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;
3964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3965: RAISE OKL_API.G_EXCEPTION_ERROR;
3966: END IF;
3967: --create asset rent payments
3968: l_pymnt_counter := 0;
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;
4007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4008: RAISE OKL_API.G_EXCEPTION_ERROR;
4009: END IF;
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;
4007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4008: RAISE OKL_API.G_EXCEPTION_ERROR;
4009: END IF;
4010: END IF;
4011:
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;
4052: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4053: RAISE OKL_API.G_EXCEPTION_ERROR;
4054: END IF;
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;
4052: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4053: RAISE OKL_API.G_EXCEPTION_ERROR;
4054: END IF;
4055: END IF;
4056:
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;
4097: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4098: RAISE OKL_API.G_EXCEPTION_ERROR;
4099: END IF;
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;
4097: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4098: RAISE OKL_API.G_EXCEPTION_ERROR;
4099: END IF;
4100: END IF;
4101: END LOOP;
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;
4131: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4132: RAISE OKL_API.G_EXCEPTION_ERROR;
4133: END IF;
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;
4131: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4132: RAISE OKL_API.G_EXCEPTION_ERROR;
4133: END IF;
4134: END IF;
4135: /*
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;
4174: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4175: RAISE OKL_API.G_EXCEPTION_ERROR;
4176: END IF;
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;
4174: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4175: RAISE OKL_API.G_EXCEPTION_ERROR;
4176: END IF;
4177: END IF;
4178: */
4175: RAISE OKL_API.G_EXCEPTION_ERROR;
4176: END IF;
4177: END IF;
4178: */
4179: x_return_status := okc_api.G_RET_STS_SUCCESS;
4180: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4181: ,x_msg_data => x_msg_data);
4182: EXCEPTION
4183: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4220: -- Version : 1.0
4221: -- History : 20-Jun-2005 SKGAUTAM created
4222: -- End of comments
4223: PROCEDURE create_rules(p_api_version IN NUMBER,
4224: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4225: x_return_status OUT NOCOPY VARCHAR2,
4226: x_msg_count OUT NOCOPY NUMBER,
4227: x_msg_data OUT NOCOPY VARCHAR2,
4228: p_chr_id IN NUMBER,
4315: IF(l_debug_enabled='Y') THEN
4316: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_COPY_CONTRACT_PUB.copy_rules'
4317: ,'end debug call copy_rules');
4318: END IF;
4319: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4321: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4322: RAISE OKL_API.G_EXCEPTION_ERROR;
4323: END IF;
4317: ,'end debug call copy_rules');
4318: END IF;
4319: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4321: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4322: RAISE OKL_API.G_EXCEPTION_ERROR;
4323: END IF;
4324: END LOOP;
4325: END IF;
4330: THEN
4331: lp_rgr_tbl(i).rgd_code := 'LAHDTX';
4332: --Made change by bkatraga for bug 11685220
4333: lp_rgr_tbl(i).object_version_number := 1;
4334: lp_rgr_tbl(i).sfwt_flag := OKC_API.G_FALSE;
4335: lp_rgr_tbl(i).std_template_yn := 'N';
4336: lp_rgr_tbl(i).warn_yn := 'N';
4337: lp_rgr_tbl(i).template_yn := 'N';
4338: lp_rgr_tbl(i).rule_information_category := 'LAPRTX';
4347: THEN
4348: lp_rgr_tbl(i).rgd_code := 'LAHDTX';
4349: --Made change by bkatraga for bug 11685220
4350: lp_rgr_tbl(i).object_version_number := 1;
4351: lp_rgr_tbl(i).sfwt_flag := OKC_API.G_FALSE;
4352: lp_rgr_tbl(i).std_template_yn := 'N';
4353: lp_rgr_tbl(i).warn_yn := 'N';
4354: lp_rgr_tbl(i).template_yn := 'N';
4355: lp_rgr_tbl(i).rule_information_category := 'LASTPR';
4369: THEN
4370: lp_rgr_tbl(i).rgd_code := 'LAHDTX';
4371: --Made change by bkatraga for bug 11685220
4372: lp_rgr_tbl(i).object_version_number := 1;
4373: lp_rgr_tbl(i).sfwt_flag := OKC_API.G_FALSE;
4374: lp_rgr_tbl(i).std_template_yn := 'N';
4375: lp_rgr_tbl(i).warn_yn := 'N';
4376: lp_rgr_tbl(i).template_yn := 'N';
4377: lp_rgr_tbl(i).rule_information_category := 'LASTCL';
4388: lp_rgr_tbl(i).rgd_code := 'LAHDTX';
4389: --Made change by bkatraga for bug 11685220
4390: lp_rgr_tbl(i).object_version_number := 1;
4391: -- create all rules under this rule group
4392: lp_rgr_tbl(i).sfwt_flag := OKC_API.G_FALSE;
4393: lp_rgr_tbl(i).std_template_yn := 'N';
4394: lp_rgr_tbl(i).warn_yn := 'N';
4395: lp_rgr_tbl(i).template_yn := 'N';
4396: lp_rgr_tbl(i).rule_information_category := 'LAMETX';
4400: lp_rgr_tbl(i).rgd_code := 'LAHDTX';
4401: --Made change by bkatraga for bug 11685220
4402: lp_rgr_tbl(i).object_version_number := 1;
4403: -- create all rules under this rule group
4404: lp_rgr_tbl(i).sfwt_flag := OKC_API.G_FALSE;
4405: lp_rgr_tbl(i).std_template_yn := 'N';
4406: lp_rgr_tbl(i).warn_yn := 'N';
4407: lp_rgr_tbl(i).template_yn := 'N';
4408: lp_rgr_tbl(i).rule_information_category := 'LAAUTX';
4425: IF(l_debug_enabled='Y') THEN
4426: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_RGRP_RULES_PROCESS_PUB.process_rule_group_rules'
4427: ,'end debug call process_rule_group_rules');
4428: END IF;
4429: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4431: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4432: RAISE OKL_API.G_EXCEPTION_ERROR;
4433: END IF;
4427: ,'end debug call process_rule_group_rules');
4428: END IF;
4429: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4431: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4432: RAISE OKL_API.G_EXCEPTION_ERROR;
4433: END IF;
4434:
4435: x_return_status := okc_api.G_RET_STS_SUCCESS;
4431: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4432: RAISE OKL_API.G_EXCEPTION_ERROR;
4433: END IF;
4434:
4435: x_return_status := okc_api.G_RET_STS_SUCCESS;
4436: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
4437: ,x_msg_data => x_msg_data);
4438: EXCEPTION
4439: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4476: -- Version : 1.0
4477: -- History : 20-Jun-2005 SKGAUTAM created
4478: -- End of comments
4479: PROCEDURE create_party_roles(p_api_version IN NUMBER,
4480: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4481: x_return_status OUT NOCOPY VARCHAR2,
4482: x_msg_count OUT NOCOPY NUMBER,
4483: x_msg_data OUT NOCOPY VARCHAR2,
4484: p_chr_id IN NUMBER,
4697: p_chr_id => l_chr_id,
4698: p_rle_code => c_get_party_rec.rle_code,
4699: x_cpl_id => lx_cpl_id
4700: );
4701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4699: x_cpl_id => lx_cpl_id
4700: );
4701: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706:
4707: -- Set the flag to false so that lessee is not created again
4716: lp_kplv_rec := null_kplv_rec; -- ER# 9161779
4717:
4718: -- now we attach the party to the header
4719: lp_cplv_rec.object_version_number := 1.0;
4720: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
4721: lp_cplv_rec.dnz_chr_id := l_chr_id;
4722: lp_cplv_rec.chr_id := l_chr_id;
4723: lp_cplv_rec.cle_id := NULL;
4724: lp_cplv_rec.object1_id1 := l_lapv_rec.PROSPECT_ID;
4729: OPEN check_party_csr(l_chr_id,l_lapv_rec.PROSPECT_ID);
4730: FETCH check_party_csr INTO row_count;
4731: CLOSE check_party_csr;
4732: IF row_count = 1 THEN
4733: x_return_status := OKC_API.g_ret_sts_error;
4734: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
4735: RAISE OKL_API.G_EXCEPTION_ERROR;
4736: END IF;
4737:
4730: FETCH check_party_csr INTO row_count;
4731: CLOSE check_party_csr;
4732: IF row_count = 1 THEN
4733: x_return_status := OKC_API.g_ret_sts_error;
4734: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
4735: RAISE OKL_API.G_EXCEPTION_ERROR;
4736: END IF;
4737:
4738: -- Validate the JTOT Object code, ID1 and ID2
4744: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
4745: ,'begin debug call VALIDATE_ROLE_JTOT');
4746: END IF;
4747: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
4748: p_init_msg_list => OKC_API.G_FALSE,
4749: x_return_status => x_return_status,
4750: x_msg_count => x_msg_count,
4751: x_msg_data => x_msg_data,
4752: p_object_name => lp_cplv_rec.jtot_object1_code,
4755: IF(l_debug_enabled='Y') THEN
4756: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
4757: ,'end debug call VALIDATE_ROLE_JTOT');
4758: END IF;
4759: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4757: ,'end debug call VALIDATE_ROLE_JTOT');
4758: END IF;
4759: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4762: RAISE OKL_API.G_EXCEPTION_ERROR;
4763: END IF;
4764: END IF;
4765: IF(l_debug_enabled='Y') THEN
4782: IF(l_debug_enabled='Y') THEN
4783: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
4784: ,'end debug call create_k_party_role');
4785: END IF;
4786: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4788: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4789: RAISE OKL_API.G_EXCEPTION_ERROR;
4790: END IF;
4784: ,'end debug call create_k_party_role');
4785: END IF;
4786: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4788: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4789: RAISE OKL_API.G_EXCEPTION_ERROR;
4790: END IF;
4791: END IF; -- ER# 9161779
4792:
4814: p_chr_id => l_chr_id,
4815: p_rle_code => c_get_party_rec.rle_code,
4816: x_cpl_id => lx_cpl_id
4817: );
4818: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4820: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4821: RAISE OKL_API.G_EXCEPTION_ERROR;
4822: END IF;
4816: x_cpl_id => lx_cpl_id
4817: );
4818: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4820: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4821: RAISE OKL_API.G_EXCEPTION_ERROR;
4822: END IF;
4823:
4824: l_cplv_id := lx_cpl_id; --Added by bkatraga for bug 9439724
4835: lp_kplv_rec := null_kplv_rec; -- ER# 9161779
4836:
4837: -- now we attach the party to the header
4838: lp_cplv_rec.object_version_number := 1.0;
4839: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
4840: lp_cplv_rec.dnz_chr_id := l_chr_id;
4841: lp_cplv_rec.chr_id := l_chr_id;
4842: lp_cplv_rec.cle_id := NULL;
4843: lp_cplv_rec.object1_id1 := l_lapv_rec.ORG_ID;
4848: OPEN check_party_csr(l_chr_id,l_lapv_rec.ORG_ID);
4849: FETCH check_party_csr INTO row_count;
4850: CLOSE check_party_csr;
4851: IF row_count = 1 THEN
4852: x_return_status := OKC_API.g_ret_sts_error;
4853: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
4854: RAISE OKL_API.G_EXCEPTION_ERROR;
4855: END IF;
4856: --Validate the JTOT Object code, ID1 and ID2
4849: FETCH check_party_csr INTO row_count;
4850: CLOSE check_party_csr;
4851: IF row_count = 1 THEN
4852: x_return_status := OKC_API.g_ret_sts_error;
4853: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
4854: RAISE OKL_API.G_EXCEPTION_ERROR;
4855: END IF;
4856: --Validate the JTOT Object code, ID1 and ID2
4857: OPEN role_csr(lp_cplv_rec.rle_code);
4862: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
4863: ,'begin debug call VALIDATE_ROLE_JTOT');
4864: END IF;
4865: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
4866: p_init_msg_list => OKC_API.G_FALSE,
4867: x_return_status => x_return_status,
4868: x_msg_count => x_msg_count,
4869: x_msg_data => x_msg_data,
4870: p_object_name => lp_cplv_rec.jtot_object1_code,
4873: IF(l_debug_enabled='Y') THEN
4874: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
4875: ,'end debug call VALIDATE_ROLE_JTOT');
4876: END IF;
4877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;
4875: ,'end debug call VALIDATE_ROLE_JTOT');
4876: END IF;
4877: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4879: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4880: RAISE OKL_API.G_EXCEPTION_ERROR;
4881: END IF;
4882: END IF;
4883: IF(l_debug_enabled='Y') THEN
4900: IF(l_debug_enabled='Y') THEN
4901: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
4902: ,'end debug call create_k_party_role');
4903: END IF;
4904: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4907: RAISE OKL_API.G_EXCEPTION_ERROR;
4908: END IF;
4902: ,'end debug call create_k_party_role');
4903: END IF;
4904: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4905: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4906: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4907: RAISE OKL_API.G_EXCEPTION_ERROR;
4908: END IF;
4909:
4910: l_cplv_id := lx_cplv_rec.ID; --Added by bkatraga for bug 9439724
4933: IF(l_debug_enabled='Y') THEN
4934: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKC_CONTRACT_PARTY_PUB.create_contact'
4935: ,'end debug call create_contact');
4936: END IF;
4937: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: x_return_status := l_return_status;
4940: RAISE G_EXCEPTION_HALT_VALIDATION;
4941: ELSE
4934: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKC_CONTRACT_PARTY_PUB.create_contact'
4935: ,'end debug call create_contact');
4936: END IF;
4937: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: x_return_status := l_return_status;
4940: RAISE G_EXCEPTION_HALT_VALIDATION;
4941: ELSE
4942: x_return_status := OKC_API.G_RET_STS_WARNING;
4938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: x_return_status := l_return_status;
4940: RAISE G_EXCEPTION_HALT_VALIDATION;
4941: ELSE
4942: x_return_status := OKC_API.G_RET_STS_WARNING;
4943: okc_util.get_name_desc_from_jtfv(p_object_code => lx_cplv_rec.jtot_object1_code,
4944: p_id1 => lx_cplv_rec.object1_id1,
4945: p_id2 => lx_cplv_rec.object1_id2,
4946: x_name => l_party_name,
4944: p_id1 => lx_cplv_rec.object1_id1,
4945: p_id2 => lx_cplv_rec.object1_id2,
4946: x_name => l_party_name,
4947: x_description => l_party_desc);
4948: OKC_API.set_message(G_APP_NAME,'OKC_CONTACT_NOT_COPIED','PARTY_NAME',l_party_name);
4949: END IF;
4950: END IF;
4951: -- create vendor
4952: -- ER# 9161779 - Start
4965: p_chr_id => l_chr_id,
4966: p_rle_code => c_get_party_rec.rle_code,
4967: x_cpl_id => lx_cpl_id
4968: );
4969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4972: RAISE OKL_API.G_EXCEPTION_ERROR;
4973: END IF;
4967: x_cpl_id => lx_cpl_id
4968: );
4969: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4972: RAISE OKL_API.G_EXCEPTION_ERROR;
4973: END IF;
4974: END LOOP;
4975: END IF;
4991: lp_cplv_rec := null_cplv_rec; -- ER# 9161779
4992: lp_kplv_rec := null_kplv_rec; -- ER# 9161779
4993:
4994: lp_cplv_rec.object_version_number := 1.0;
4995: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
4996: lp_cplv_rec.dnz_chr_id := l_chr_id;
4997: lp_cplv_rec.chr_id := l_chr_id;
4998: lp_cplv_rec.cle_id := NULL;
4999: lp_cplv_rec.object1_id1 := l_c_cplv.object1_id1;
5004: OPEN check_party_csr(l_chr_id,l_c_cplv.object1_id1);
5005: FETCH check_party_csr INTO row_count;
5006: CLOSE check_party_csr;
5007: IF row_count = 1 THEN
5008: x_return_status := OKC_API.g_ret_sts_error;
5009: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
5010: RAISE OKL_API.G_EXCEPTION_ERROR;
5011: END IF;
5012: --Validate the JTOT Object code, ID1 and ID2
5005: FETCH check_party_csr INTO row_count;
5006: CLOSE check_party_csr;
5007: IF row_count = 1 THEN
5008: x_return_status := OKC_API.g_ret_sts_error;
5009: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'Party_already_exists');
5010: RAISE OKL_API.G_EXCEPTION_ERROR;
5011: END IF;
5012: --Validate the JTOT Object code, ID1 and ID2
5013: OPEN role_csr(lp_cplv_rec.rle_code);
5018: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
5019: ,'begin debug call VALIDATE_ROLE_JTOT');
5020: END IF;
5021: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
5022: p_init_msg_list => OKC_API.G_FALSE,
5023: x_return_status => x_return_status,
5024: x_msg_count => x_msg_count,
5025: x_msg_data => x_msg_data,
5026: p_object_name => lp_cplv_rec.jtot_object1_code,
5029: IF(l_debug_enabled='Y') THEN
5030: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT'
5031: ,'end debug call VALIDATE_ROLE_JTOT');
5032: END IF;
5033: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5035: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5036: RAISE OKL_API.G_EXCEPTION_ERROR;
5037: END IF;
5031: ,'end debug call VALIDATE_ROLE_JTOT');
5032: END IF;
5033: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5035: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5036: RAISE OKL_API.G_EXCEPTION_ERROR;
5037: END IF;
5038: END IF;
5039: IF(l_debug_enabled='Y') THEN
5056: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.okl_k_party_roles_pvt.create_k_party_role'
5057: ,'end debug call create_k_party_role');
5058: END IF;
5059:
5060: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5061: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5062: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5063: RAISE OKL_API.G_EXCEPTION_ERROR;
5064: END IF;
5058: END IF;
5059:
5060: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5061: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5062: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5063: RAISE OKL_API.G_EXCEPTION_ERROR;
5064: END IF;
5065: END IF;-- ER# 9161779
5066: END LOOP;
5096: p_id2 => lp_cplv_rec.object1_id2,
5097: --Bug# 12748315: Use party_name from hz_parties
5098: p_name => c_get_guarantors_rec.PARTY_NAME,
5099: p_object_code => 'OKX_PARTY');
5100: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5102: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5103: RAISE OKL_API.G_EXCEPTION_ERROR;
5104: END IF;
5098: p_name => c_get_guarantors_rec.PARTY_NAME,
5099: p_object_code => 'OKX_PARTY');
5100: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5102: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5103: RAISE OKL_API.G_EXCEPTION_ERROR;
5104: END IF;
5105:
5106: ----------------------------------------
5115: p_cplv_rec => lp_cplv_rec,
5116: x_cplv_rec => lx_cplv_rec,
5117: p_kplv_rec => lp_kplv_rec,
5118: x_kplv_rec => lx_kplv_rec);
5119: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5121: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5122: RAISE OKL_API.G_EXCEPTION_ERROR;
5123: END IF;
5117: p_kplv_rec => lp_kplv_rec,
5118: x_kplv_rec => lx_kplv_rec);
5119: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5121: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5122: RAISE OKL_API.G_EXCEPTION_ERROR;
5123: END IF;
5124:
5125: ---------------------------------------------------------------------
5136: x_msg_count=> x_msg_count,
5137: x_msg_data=> x_msg_data,
5138: p_rgpv_rec => lp_rgpv_rec,
5139: x_rgpv_rec => lx_rgpv_rec);
5140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_ERROR;
5144: END IF;
5138: p_rgpv_rec => lp_rgpv_rec,
5139: x_rgpv_rec => lx_rgpv_rec);
5140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5143: RAISE OKL_API.G_EXCEPTION_ERROR;
5144: END IF;
5145:
5146: IF l_rulv_tbl.COUNT > 0 THEN
5205: x_msg_count=> x_msg_count,
5206: x_msg_data=> x_msg_data,
5207: p_rulv_tbl => l_rulv_tbl,
5208: x_rulv_tbl => x_rulv_tbl);
5209: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5211: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5212: RAISE OKL_API.G_EXCEPTION_ERROR;
5213: END IF;
5207: p_rulv_tbl => l_rulv_tbl,
5208: x_rulv_tbl => x_rulv_tbl);
5209: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5211: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5212: RAISE OKL_API.G_EXCEPTION_ERROR;
5213: END IF;
5214:
5215: ---------------------------------------------------
5229: x_msg_count=> x_msg_count,
5230: x_msg_data=> x_msg_data,
5231: p_rmpv_rec => lp_rmpv_rec,
5232: x_rmpv_rec =>lx_rmpv_rec);
5233: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5231: p_rmpv_rec => lp_rmpv_rec,
5232: x_rmpv_rec =>lx_rmpv_rec);
5233: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5238:
5239: END LOOP; -- End of guarantors loop
5254: p_chr_id => l_chr_id,
5255: p_rle_code => c_get_other_party_rec.rle_code,
5256: x_cpl_id => lx_cpl_id
5257: );
5258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;
5256: x_cpl_id => lx_cpl_id
5257: );
5258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;
5263: END LOOP;
5264: END IF;
5263: END LOOP;
5264: END IF;
5265: -- ER# 9161779 - End
5266:
5267: x_return_status := okc_api.G_RET_STS_SUCCESS;
5268: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
5269: ,x_msg_data => x_msg_data);
5270: EXCEPTION
5271: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5308: -- Version : 1.0
5309: -- History : 20-Jun-2005 SKGAUTAM created
5310: -- End of comments
5311: PROCEDURE create_contract_header(p_api_version IN NUMBER,
5312: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5313: x_return_status OUT NOCOPY VARCHAR2,
5314: x_msg_count OUT NOCOPY NUMBER,
5315: x_msg_data OUT NOCOPY VARCHAR2,
5316: p_contract_number IN VARCHAR2,
5495: IF(l_debug_enabled='Y') THEN
5496: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CONTRACT_PUB.validate_contract_header'
5497: ,'end debug call validate_contract_header');
5498: END IF;
5499: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5501: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5502: RAISE OKL_API.G_EXCEPTION_ERROR;
5503: END IF;
5497: ,'end debug call validate_contract_header');
5498: END IF;
5499: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5501: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5502: RAISE OKL_API.G_EXCEPTION_ERROR;
5503: END IF;
5504: IF(l_debug_enabled='Y') THEN
5505: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CONTRACT_PUB.create_contract_header'
5518: IF(l_debug_enabled='Y') THEN
5519: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_CONTRACT_PUB.create_contract_header'
5520: ,'end debug call create_contract_header');
5521: END IF;
5522: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5524: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5525: RAISE OKL_API.G_EXCEPTION_ERROR;
5526: END IF;
5520: ,'end debug call create_contract_header');
5521: END IF;
5522: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5524: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5525: RAISE OKL_API.G_EXCEPTION_ERROR;
5526: END IF;
5527: x_chr_id := lx_chrv_rec.id;
5528: -- copy master lease
5547: IF(l_debug_enabled='Y') THEN
5548: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_OKC_MIGRATION_PVT.create_governance'
5549: ,'end debug call create_governance');
5550: END IF;
5551: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5552: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5553: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5554: RAISE OKL_API.G_EXCEPTION_ERROR;
5555: END IF;
5549: ,'end debug call create_governance');
5550: END IF;
5551: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5552: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5553: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5554: RAISE OKL_API.G_EXCEPTION_ERROR;
5555: END IF;
5556: END IF;
5557: -- copy credit line
5576: IF(l_debug_enabled='Y') THEN
5577: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,'okl.plsql.OKL_OKC_MIGRATION_PVT.create_governance'
5578: ,'end debug call create_governance');
5579: END IF;
5580: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5582: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5583: RAISE OKL_API.G_EXCEPTION_ERROR;
5584: END IF;
5578: ,'end debug call create_governance');
5579: END IF;
5580: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5582: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5583: RAISE OKL_API.G_EXCEPTION_ERROR;
5584: END IF;
5585: END IF;
5586: x_return_status := okc_api.G_RET_STS_SUCCESS;
5582: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5583: RAISE OKL_API.G_EXCEPTION_ERROR;
5584: END IF;
5585: END IF;
5586: x_return_status := okc_api.G_RET_STS_SUCCESS;
5587: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
5588: ,x_msg_data => x_msg_data);
5589: EXCEPTION
5590: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5645: -- History : 20-Jun-2005 SKGAUTAM created
5646: -- 04-Jan-2008 RRAVIKIR code added to invoke procedure create_asset_subsidy for subsidy creation
5647: -- End of comments
5648: PROCEDURE create_contract(p_api_version IN NUMBER,
5649: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5650: x_return_status OUT NOCOPY VARCHAR2,
5651: x_msg_count OUT NOCOPY NUMBER,
5652: x_msg_data OUT NOCOPY VARCHAR2,
5653: p_contract_number IN VARCHAR2,
5917: END IF;
5918: -- moved code here for bug#6765840 End
5919:
5920: create_contract_header(p_api_version => p_api_version,
5921: p_init_msg_list => OKC_API.G_FALSE,
5922: x_return_status => x_return_status,
5923: x_msg_count => x_msg_count,
5924: x_msg_data => x_msg_data,
5925: p_contract_number => l_contract_number,
5951: END IF;
5952: -- End of Code added as part of Bug# 14068174
5953:
5954: create_party_roles(p_api_version => p_api_version,
5955: p_init_msg_list => OKC_API.G_FALSE,
5956: x_return_status => x_return_status,
5957: x_msg_count => x_msg_count,
5958: x_msg_data => x_msg_data,
5959: p_chr_id => l_chr_id,
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,
5977: x_return_status => x_return_status,
5978: x_msg_count => x_msg_count,
5979: x_msg_data => x_msg_data,
5980: p_chr_id => l_chr_id,
5995: ,'begin debug call create_asset_lines');
5996: END IF;
5997:
5998: create_asset_lines(p_api_version => p_api_version,
5999: p_init_msg_list => OKC_API.G_FALSE,
6000: x_return_status => x_return_status,
6001: x_msg_count => x_msg_count,
6002: x_msg_data => x_msg_data,
6003: p_chr_id => l_chr_id,
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,
6046: x_return_status => x_return_status,
6047: x_msg_count => x_msg_count,
6048: x_msg_data => x_msg_data,
6049: p_quote_id => l_lapv_rec.quote_id,
6183:
6184: END IF;
6185: -- Bug#4741121 - viselvar - Modified - End
6186:
6187: x_return_status := okc_api.G_RET_STS_SUCCESS;
6188: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
6189: ,x_msg_data => x_msg_data);
6190: EXCEPTION
6191: WHEN OKL_API.G_EXCEPTION_ERROR THEN