[Home] [Help]
114: -- End of comments
115: PROCEDURE create_contract_val(
116: p_api_version IN NUMBER,
117: p_init_msg_list IN VARCHAR2,
118: p_quote_id IN OKL_LEASE_QUOTES_B.ID%TYPE,
119: x_return_status OUT NOCOPY VARCHAR2,
120: x_msg_count OUT NOCOPY NUMBER,
121: x_msg_data OUT NOCOPY VARCHAR2)
122: IS
131: IS
132: SELECT LAB.REFERENCE_NUMBER LSE_APP
133: , CHR.CONTRACT_NUMBER CONTRACT_NUMBER
134: FROM OKL_LEASE_APPLICATIONS_B LAB
135: , OKL_LEASE_QUOTES_B QTE
136: , OKC_K_HEADERS_B CHR
137: , OKC_STATUSES_V CSTS
138: WHERE LAB.LEASE_OPPORTUNITY_ID = QTE.PARENT_OBJECT_ID
139: AND QTE.PARENT_OBJECT_CODE = 'LEASEOPP'
150: IS
151: SELECT LSQ.REFERENCE_NUMBER LSE_QTE
152: , LOP.REFERENCE_NUMBER LSE_OPP
153: , CHR.CONTRACT_NUMBER CONTRACT_NUMBER
154: FROM OKL_LEASE_QUOTES_B LSQ
155: , OKL_LEASE_OPPORTUNITIES_B LOP
156: , OKC_K_HEADERS_B CHR
157: , OKC_STATUSES_V CSTS
158: WHERE CHR.ORIG_SYSTEM_ID1 = LOP.ID
2040: l_exp_counter NUMBER := 0;
2041: l_payment_levels_tbl payment_levels_tbl_type;
2042: l_expense_levels_tbl payment_levels_tbl_type;
2043:
2044: CURSOR c_get_service_dtls(p_qte_id okl_lease_quotes_b.ID%TYPE) IS
2045: SELECT ID,
2046: INV_ITEM_ID,
2047: EFFECTIVE_FROM,
2048: SUPPLIER_ID
2375: l_exp_frequency VARCHAR2(1);
2376: l_pymnt_counter NUMBER := 0;
2377: l_payment_levels_tbl payment_levels_tbl_type;
2378:
2379: CURSOR c_get_fee_dtls(p_qte_id okl_lease_quotes_b.ID%TYPE) IS
2380: SELECT ID,
2381: STREAM_TYPE_ID,
2382: FEE_TYPE ,
2383: RATE_CARD_ID,
3000: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3001: l_debug_enabled VARCHAR2(10);
3002:
3003: -- Start : Added by rravikir for Bug#6707125
3004: CURSOR c_get_asset_id(p_qte_id okl_lease_quotes_b.ID%TYPE) IS
3005: SELECT oab.ID asset_id
3006: FROM okl_assets_v oab,
3007: okl_asset_components_b oacb
3008: WHERE oab.ID = oacb.ASSET_ID
3508: --sechawla 7-dec-09 9120203 : end
3509:
3510: --Cursor declarations
3511: --Get asset line details
3512: CURSOR c_get_asset_dtls(p_qte_id okl_lease_quotes_b.ID%TYPE) IS
3513: SELECT oab.ID,
3514: oab.ASSET_NUMBER,
3515: oab.INSTALL_SITE_ID,
3516: oab.RATE_CARD_ID,
3597: AND cfo.OTY_CODE = 'QUOTED_ASSET_PROPERTY_TAX'
3598: AND cfo.SOURCE_ID = p_ast_id;
3599:
3600: --Get quote level payment details
3601: CURSOR c_get_quote_payment_dtls(p_qte_id okl_lease_quotes_b.ID%TYPE) IS
3602: SELECT ocf.STY_ID payment_type_id,
3603: ocf.DUE_ARREARS_YN Arrears_YN,
3604: cfl.FQY_CODE Frequency_Code,
3605: cfl.START_DATE,
3611: OKL_CASH_FLOWS ocf,
3612: OKL_CASH_FLOW_LEVELS cfl
3613: WHERE cfl.caf_id = ocf.ID
3614: AND ocf.CFO_ID = cfo.ID
3615: AND cfo.SOURCE_TABLE = 'OKL_LEASE_QUOTES_B'
3616: AND cfo.SOURCE_ID = p_qte_id;
3617:
3618: --get the item description
3619: CURSOR itm_dtls_csr(p_inv_itm_id IN NUMBER, p_organization_id IN NUMBER) IS
3623: AND TL.INVENTORY_ITEM_ID = p_inv_itm_id
3624: AND TL.LANGUAGE = USERENV('LANG');
3625:
3626: --get the eot type
3627: CURSOR c_get_eot_type(p_qte_id IN okl_lease_quotes_b.ID%TYPE) IS
3628: SELECT eoth.eot_type_code
3629: FROM OKL_FE_EO_TERM_VERS EOTV,
3630: OKL_FE_EO_TERMS_ALL_B EOTH,
3631: OKL_LEASE_QUOTES_B QTE
3627: CURSOR c_get_eot_type(p_qte_id IN okl_lease_quotes_b.ID%TYPE) IS
3628: SELECT eoth.eot_type_code
3629: FROM OKL_FE_EO_TERM_VERS EOTV,
3630: OKL_FE_EO_TERMS_ALL_B EOTH,
3631: OKL_LEASE_QUOTES_B QTE
3632: WHERE QTE.END_OF_TERM_OPTION_ID = EOTV.END_OF_TERM_VER_ID
3633: AND EOTV.END_OF_TERM_ID = EOTH.END_OF_TERM_ID
3634: AND QTE.ID = p_qte_id;
3635:
3633: AND EOTV.END_OF_TERM_ID = EOTH.END_OF_TERM_ID
3634: AND QTE.ID = p_qte_id;
3635:
3636: --cursor to fetch total trade in amount and description
3637: CURSOR get_ti_amt(p_qte_id IN okl_lease_quotes_b.ID%TYPE) IS
3638: SELECT sum(cdj.value) total_tradein
3639: FROM OKL_COST_ADJUSTMENTS_b cdj,
3640: OKL_ASSETS_B ast
3641: WHERE cdj.parent_object_id = ast.id
3644: AND ast.parent_object_id = p_qte_id
3645: AND ast.parent_object_code ='LEASEQUOTE';
3646:
3647: --cursor to fetch trade in description for any one asset
3648: CURSOR get_ti_desc(p_qte_id IN okl_lease_quotes_b.ID%TYPE) IS
3649: SELECT cdj.description
3650: FROM OKL_COST_ADJUSTMENTS_V cdj,
3651: OKL_ASSETS_B ast
3652: WHERE cdj.parent_object_id = ast.id
5688: WHERE contract_number like p_contract_number || '%';
5689:
5690: CURSOR c_get_leaseopp IS
5691: SELECT parent_object_id
5692: FROM okl_lease_quotes_b
5693: WHERE id = p_parent_object_id;
5694:
5695: BEGIN
5696: x_return_status := OKL_API.G_RET_STS_SUCCESS;