[Home] [Help]
1758: l_fee_types_rec.item_id2 := l_fee_dtls_rec.item_object1_id2;
1759: l_fee_types_rec.effective_from := l_fee_dtls_rec.line_start_date;
1760: l_fee_types_rec.effective_to := l_fee_dtls_rec.line_end_date;
1761: END LOOP;
1762: -- fetch the residual value insurance amount
1763: -- get the stream header id
1764: FOR l_strm_rec IN strm_csr(p_chr_id,l_line_id,'CURR',p_purpose,l_fee_types_rec.item_id1)
1765: LOOP
1766: l_stmv_rec.id := l_strm_rec.strm_id;
2070: /*
2071: CURSOR get_rep_tax_csr(p_asset_number okl_txd_assets_b.asset_number%TYPE)
2072: IS
2073: SELECT 'Y'
2074: FROM DUAL
2075: WHERE EXISTS (SELECT 'Y'
2076: FROM okl_txd_assets_b txd
2077: WHERE txd.asset_number = p_asset_number
2078: AND txd.tax_book = fnd_profile.value('OKL_REPORTING_PDT_ASSET_BOOK'));
2132: -- To check if the chr_id has TERMINATED Line
2133: CURSOR l_hdr_ter_csr (p_chr_id NUMBER)
2134: IS
2135: SELECT 'Y'
2136: FROM dual
2137: WHERE EXISTS (SELECT 'Y'
2138: FROM okc_k_lines_b cle,
2139: okc_line_styles_b lse
2140: WHERE cle.dnz_chr_id = p_chr_id
2145: CURSOR l_lne_ter_csr (p_chr_id NUMBER,
2146: p_cle_id NUMBER)
2147: IS
2148: SELECT 'Y'
2149: FROM dual
2150: WHERE EXISTS (SELECT 'Y'
2151: FROM okc_k_lines_b cle,
2152: okc_line_styles_b lse
2153: WHERE cle.dnz_chr_id = p_chr_id
2663: DECODE(rul2.rule_information10, 'Y', 'ARREARS', 'ADVANCE') advance_arrears,
2664: FND_NUMBER.canonical_to_number(rul2.rule_information6) amount,
2665: lse.lty_code lty_code,
2666: kle.capital_amount capital_amount,
2667: kle.residual_value residual_value
2668: FROM okc_rule_groups_b rgp,
2669: okc_rules_b rul1,
2670: okc_rules_b rul2,
2671: okc_k_lines_b cle,
2687: --srsreeni bug 5869271 end add
2688: -- To get the streams information
2689: CURSOR l_stmp_yn_csr(khrid NUMBER, p VARCHAR2) IS
2690: SELECT 'Y' What
2691: FROM dual
2692: WHERE EXISTS(SELECT stm.id stmid
2693: FROM okl_streams stm
2694: WHERE stm.khr_id = khrid
2695: --AND stm.say_code = 'CURR'
3901: CURSOR l_line_csr( chrid NUMBER )
3902: IS
3903: SELECT kle.id,
3904: kle.oec,
3905: kle.residual_code,
3906: kle.capital_amount,
3907: kle.delivered_date,
3908: kle.date_funding_required,
3909: kle.residual_grnty_amount,
3905: kle.residual_code,
3906: kle.capital_amount,
3907: kle.delivered_date,
3908: kle.date_funding_required,
3909: kle.residual_grnty_amount,
3910: kle.date_funding,
3911: kle.residual_value,
3912: kle.amount,
3913: kle.price_negotiated,
3907: kle.delivered_date,
3908: kle.date_funding_required,
3909: kle.residual_grnty_amount,
3910: kle.date_funding,
3911: kle.residual_value,
3912: kle.amount,
3913: kle.price_negotiated,
3914: kle.start_date,
3915: kle.end_date,
4468: -- To check if the contract is MASS REBOOK candidate
4469: CURSOR c_chk_msrbk_csr(p_chr_id NUMBER)
4470: IS
4471: SELECT 'Y'
4472: FROM DUAL
4473: WHERE EXISTS (SELECT 'Y'
4474: FROM okl_rbk_selected_contract
4475: WHERE khr_id = p_chr_id
4476: AND status = 'UNDER REVISION');
4552: -- WHERE str.khr_id = p_chr_id
4553: -- AND str.say_code = 'CURR'
4554: -- AND nvl(str.purpose_code, 'ORIGIN') = p_purpose;
4555: SELECT OKL_SIF_SEQ.NEXTVAL
4556: FROM dual;
4557:
4558: -- Bucket to store the billed amonts
4559: TYPE bill_rec_type IS RECORD (
4560: kle_id NUMBER := NULL,
5529: -- Validate weather the stream generation is done thru internal/external stream generation
5530: CURSOR validate_esg_isg (p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
5531: IS
5532: SELECT 1
5533: FROM dual
5534: WHERE EXISTS (SELECT 1
5535: FROM okl_streams
5536: WHERE khr_id= p_dnz_chr_id
5537: AND say_code = 'WORK'
5539: -- Validate the contract has Subsidy line
5540: CURSOR validate_sub_line (p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
5541: IS
5542: SELECT 1
5543: FROM dual
5544: WHERE EXISTS (SELECT '1'
5545: FROM okl_subsidies_b subb,
5546: okc_k_lines_b cle_fin,
5547: okc_line_styles_b lse_fin,
6043: 'INVESTOR_LATE_INTEREST_PAY', 'INVESTOR_PAYABLE',
6044: 'INVESTOR_PRETAX_INCOME', 'INVESTOR_PRINCIPAL_PAYABLE',
6045: 'INVESTOR_RECEIVABLE', 'INVESTOR_RENTAL_ACCRUAL',
6046: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS',
6047: 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6048: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY',
6049: 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6050: 'PV_RV_SECURITIZED')
6051: -- INVESTOR_CNTRCT_OBLIGATION_PAY' --'INVESTOR_CONTRACT_OBLIGATION_PAYABLE'
6044: 'INVESTOR_PRETAX_INCOME', 'INVESTOR_PRINCIPAL_PAYABLE',
6045: 'INVESTOR_RECEIVABLE', 'INVESTOR_RENTAL_ACCRUAL',
6046: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS',
6047: 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6048: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY',
6049: 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6050: 'PV_RV_SECURITIZED')
6051: -- INVESTOR_CNTRCT_OBLIGATION_PAY' --'INVESTOR_CONTRACT_OBLIGATION_PAYABLE'
6052: -- ,'INVESTOR_RESIDUAL_PAY' ) --'INVESTOR_RESIDUAL_PAYABLE')
6048: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY',
6049: 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6050: 'PV_RV_SECURITIZED')
6051: -- INVESTOR_CNTRCT_OBLIGATION_PAY' --'INVESTOR_CONTRACT_OBLIGATION_PAYABLE'
6052: -- ,'INVESTOR_RESIDUAL_PAY' ) --'INVESTOR_RESIDUAL_PAYABLE')
6053:
6054: --Condition added by kthiruva for Bug 4737555 .Streams generated by Interest Calc Prog should not be historised
6055: AND (l_strms_rec.SGN_CODE NOT IN ('INTC','LATE_CALC')) -- bug 6472228
6056: AND l_hist_flag = 'Y') THEN
6493: AND STY.stream_type_purpose NOT IN
6494: ('INVESTOR_CNTRCT_OBLIGATION_PAY', 'INVESTOR_DISB_ADJUSTMENT', 'INVESTOR_EVERGREEN_RENT_PAY', 'INVESTOR_INTEREST_INCOME',
6495: 'INVESTOR_INTEREST_PAYABLE', 'INVESTOR_LATE_FEE_PAYABLE', 'INVESTOR_LATE_INTEREST_PAY', 'INVESTOR_PAYABLE',
6496: 'INVESTOR_PRETAX_INCOME', 'INVESTOR_PRINCIPAL_PAYABLE', 'INVESTOR_RECEIVABLE', 'INVESTOR_RENTAL_ACCRUAL',
6497: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS', 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6498: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY', 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6499: 'PV_RV_SECURITIZED', 'ADVANCE_RENT', 'PASS_THROUGH_EVERGREEN_FEE', 'PASS_THROUGH_EVERGREEN_RENT', 'PASS_THROUGH_EVERGREEN_SERVICE',
6500: 'PASS_THROUGH_FEE', 'PASS_THROUGH_SERVICE', 'PASS_THRU_EXP_ACCRUAL', 'PASS_THRU_REV_ACCRUAL', 'PASS_THRU_SVC_EXP_ACCRUAL',
6501: 'PASS_THRU_SVC_REV_ACCRUAL', 'PV_RV', 'PV_RV_GUARANTEED', 'PV_RV_UNGUARANTEED', 'RESIDUAL_GUARANTEED', 'RESIDUAL_VALUE',
6494: ('INVESTOR_CNTRCT_OBLIGATION_PAY', 'INVESTOR_DISB_ADJUSTMENT', 'INVESTOR_EVERGREEN_RENT_PAY', 'INVESTOR_INTEREST_INCOME',
6495: 'INVESTOR_INTEREST_PAYABLE', 'INVESTOR_LATE_FEE_PAYABLE', 'INVESTOR_LATE_INTEREST_PAY', 'INVESTOR_PAYABLE',
6496: 'INVESTOR_PRETAX_INCOME', 'INVESTOR_PRINCIPAL_PAYABLE', 'INVESTOR_RECEIVABLE', 'INVESTOR_RENTAL_ACCRUAL',
6497: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS', 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6498: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY', 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6499: 'PV_RV_SECURITIZED', 'ADVANCE_RENT', 'PASS_THROUGH_EVERGREEN_FEE', 'PASS_THROUGH_EVERGREEN_RENT', 'PASS_THROUGH_EVERGREEN_SERVICE',
6500: 'PASS_THROUGH_FEE', 'PASS_THROUGH_SERVICE', 'PASS_THRU_EXP_ACCRUAL', 'PASS_THRU_REV_ACCRUAL', 'PASS_THRU_SVC_EXP_ACCRUAL',
6501: 'PASS_THRU_SVC_REV_ACCRUAL', 'PV_RV', 'PV_RV_GUARANTEED', 'PV_RV_UNGUARANTEED', 'RESIDUAL_GUARANTEED', 'RESIDUAL_VALUE',
6502: 'SECURITY_DEPOSIT', 'SERVICE_EXPENSE', 'SERVICE_FEE_AMORT_SCHEDULE', 'SERVICE_FEE_AUDIT_LETTER', 'SERVICE_FEE_DOCUMENT_REQ',
6497: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS', 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6498: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY', 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6499: 'PV_RV_SECURITIZED', 'ADVANCE_RENT', 'PASS_THROUGH_EVERGREEN_FEE', 'PASS_THROUGH_EVERGREEN_RENT', 'PASS_THROUGH_EVERGREEN_SERVICE',
6500: 'PASS_THROUGH_FEE', 'PASS_THROUGH_SERVICE', 'PASS_THRU_EXP_ACCRUAL', 'PASS_THRU_REV_ACCRUAL', 'PASS_THRU_SVC_EXP_ACCRUAL',
6501: 'PASS_THRU_SVC_REV_ACCRUAL', 'PV_RV', 'PV_RV_GUARANTEED', 'PV_RV_UNGUARANTEED', 'RESIDUAL_GUARANTEED', 'RESIDUAL_VALUE',
6502: 'SECURITY_DEPOSIT', 'SERVICE_EXPENSE', 'SERVICE_FEE_AMORT_SCHEDULE', 'SERVICE_FEE_AUDIT_LETTER', 'SERVICE_FEE_DOCUMENT_REQ',
6503: 'SERVICE_FEE_EXCHG_REQUEST', 'SERVICE_FEE_GENERAL', 'SERVICE_FEE_INTEREST_CONV', 'SERVICE_FEE_INVOICE_DEMAND',
6504: 'SERVICE_FEE_INVOICE_REPRINT', 'SERVICE_FEE_PMT_CHANGE', 'SERVICE_FEE_REST_REQUEST', 'SERVICE_FEE_TERM_REQUEST',
6505: 'SERVICE_FEE_TRANS_REQUEST', 'SERVICE_FEE_VAR_RATE_STMNT', 'SERVICE_FEE_VAT_SCHEDULE', 'SERVICE_INCOME', 'SERVICE_PAYMENT',
6590: AND STY.stream_type_purpose NOT IN
6591: ('INVESTOR_CNTRCT_OBLIGATION_PAY', 'INVESTOR_DISB_ADJUSTMENT', 'INVESTOR_EVERGREEN_RENT_PAY', 'INVESTOR_INTEREST_INCOME',
6592: 'INVESTOR_INTEREST_PAYABLE', 'INVESTOR_LATE_FEE_PAYABLE', 'INVESTOR_LATE_INTEREST_PAY', 'INVESTOR_PAYABLE',
6593: 'INVESTOR_PRETAX_INCOME', 'INVESTOR_PRINCIPAL_PAYABLE', 'INVESTOR_RECEIVABLE', 'INVESTOR_RENTAL_ACCRUAL',
6594: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS', 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6595: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY', 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6596: 'PV_RV_SECURITIZED', 'ADVANCE_RENT', 'PASS_THROUGH_EVERGREEN_FEE', 'PASS_THROUGH_EVERGREEN_RENT', 'PASS_THROUGH_EVERGREEN_SERVICE',
6597: 'PASS_THROUGH_FEE', 'PASS_THROUGH_SERVICE', 'PASS_THRU_EXP_ACCRUAL', 'PASS_THRU_REV_ACCRUAL', 'PASS_THRU_SVC_EXP_ACCRUAL',
6598: 'PASS_THRU_SVC_REV_ACCRUAL', 'PV_RV', 'PV_RV_GUARANTEED', 'PV_RV_UNGUARANTEED', 'RESIDUAL_GUARANTEED', 'RESIDUAL_VALUE',
6591: ('INVESTOR_CNTRCT_OBLIGATION_PAY', 'INVESTOR_DISB_ADJUSTMENT', 'INVESTOR_EVERGREEN_RENT_PAY', 'INVESTOR_INTEREST_INCOME',
6592: 'INVESTOR_INTEREST_PAYABLE', 'INVESTOR_LATE_FEE_PAYABLE', 'INVESTOR_LATE_INTEREST_PAY', 'INVESTOR_PAYABLE',
6593: 'INVESTOR_PRETAX_INCOME', 'INVESTOR_PRINCIPAL_PAYABLE', 'INVESTOR_RECEIVABLE', 'INVESTOR_RENTAL_ACCRUAL',
6594: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS', 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6595: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY', 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6596: 'PV_RV_SECURITIZED', 'ADVANCE_RENT', 'PASS_THROUGH_EVERGREEN_FEE', 'PASS_THROUGH_EVERGREEN_RENT', 'PASS_THROUGH_EVERGREEN_SERVICE',
6597: 'PASS_THROUGH_FEE', 'PASS_THROUGH_SERVICE', 'PASS_THRU_EXP_ACCRUAL', 'PASS_THRU_REV_ACCRUAL', 'PASS_THRU_SVC_EXP_ACCRUAL',
6598: 'PASS_THRU_SVC_REV_ACCRUAL', 'PV_RV', 'PV_RV_GUARANTEED', 'PV_RV_UNGUARANTEED', 'RESIDUAL_GUARANTEED', 'RESIDUAL_VALUE',
6599: 'SECURITY_DEPOSIT', 'SERVICE_EXPENSE', 'SERVICE_FEE_AMORT_SCHEDULE', 'SERVICE_FEE_AUDIT_LETTER', 'SERVICE_FEE_DOCUMENT_REQ',
6594: 'INVESTOR_RENT_BUYBACK', 'INVESTOR_RENT_DISB_BASIS', 'INVESTOR_RENT_PAYABLE', 'INVESTOR_RESIDUAL_BUYBACK',
6595: 'INVESTOR_RESIDUAL_DISB_BASIS', 'INVESTOR_RESIDUAL_PAY', 'INVESTOR_VARIABLE_INTEREST', 'PV_RENT_SECURITIZED',
6596: 'PV_RV_SECURITIZED', 'ADVANCE_RENT', 'PASS_THROUGH_EVERGREEN_FEE', 'PASS_THROUGH_EVERGREEN_RENT', 'PASS_THROUGH_EVERGREEN_SERVICE',
6597: 'PASS_THROUGH_FEE', 'PASS_THROUGH_SERVICE', 'PASS_THRU_EXP_ACCRUAL', 'PASS_THRU_REV_ACCRUAL', 'PASS_THRU_SVC_EXP_ACCRUAL',
6598: 'PASS_THRU_SVC_REV_ACCRUAL', 'PV_RV', 'PV_RV_GUARANTEED', 'PV_RV_UNGUARANTEED', 'RESIDUAL_GUARANTEED', 'RESIDUAL_VALUE',
6599: 'SECURITY_DEPOSIT', 'SERVICE_EXPENSE', 'SERVICE_FEE_AMORT_SCHEDULE', 'SERVICE_FEE_AUDIT_LETTER', 'SERVICE_FEE_DOCUMENT_REQ',
6600: 'SERVICE_FEE_EXCHG_REQUEST', 'SERVICE_FEE_GENERAL', 'SERVICE_FEE_INTEREST_CONV', 'SERVICE_FEE_INVOICE_DEMAND',
6601: 'SERVICE_FEE_INVOICE_REPRINT', 'SERVICE_FEE_PMT_CHANGE', 'SERVICE_FEE_REST_REQUEST', 'SERVICE_FEE_TERM_REQUEST',
6602: 'SERVICE_FEE_TRANS_REQUEST', 'SERVICE_FEE_VAR_RATE_STMNT', 'SERVICE_FEE_VAT_SCHEDULE', 'SERVICE_INCOME', 'SERVICE_PAYMENT',
7165: -- validate the contract is reporting product or not
7166: CURSOR validate_pdt_csr(p_chr_id NUMBER)
7167: IS
7168: SELECT 'Y'
7169: FROM DUAL
7170: WHERE EXISTS (SELECT 1
7171: FROM okl_k_headers khr,
7172: okl_products_v pdt
7173: WHERE khr.id = p_chr_id
8255: l_streams_tbl(7) := 'RENTAL ACCRUAL';
8256: l_streams_tbl(8) := 'FINANCED EXTENSION FEE INCOME';
8257: l_streams_tbl(9) := 'RATE SUBSIDY';
8258: l_streams_tbl(10) := 'PRE-TAX INCOME';
8259: l_streams_tbl(11) := 'RENT';--'PRESENT VALUE RESIDUAL'; --TBC
8260: l_streams_tbl(12) := 'RENT';--'PV GUARANTEE';--TBC
8261: l_streams_tbl(13) := 'RESIDUAL VALUE INSURANCE PREMIUM';
8262: l_streams_tbl(14) := 'GUARANTEED RESIDUAL INSURED'; -- RVI takes care of requesting by default.
8263: l_streams_tbl(15) := 'RENT';--'PRESENT VALUE INSURED RESIDUAL';--TBC
8257: l_streams_tbl(9) := 'RATE SUBSIDY';
8258: l_streams_tbl(10) := 'PRE-TAX INCOME';
8259: l_streams_tbl(11) := 'RENT';--'PRESENT VALUE RESIDUAL'; --TBC
8260: l_streams_tbl(12) := 'RENT';--'PV GUARANTEE';--TBC
8261: l_streams_tbl(13) := 'RESIDUAL VALUE INSURANCE PREMIUM';
8262: l_streams_tbl(14) := 'GUARANTEED RESIDUAL INSURED'; -- RVI takes care of requesting by default.
8263: l_streams_tbl(15) := 'RENT';--'PRESENT VALUE INSURED RESIDUAL';--TBC
8264: l_streams_tbl(16) := 'RENT';--'UNEARNED INCOME';
8265: l_streams_tbl(17) := 'RENT'; --'DEFERRED INCOME';
8258: l_streams_tbl(10) := 'PRE-TAX INCOME';
8259: l_streams_tbl(11) := 'RENT';--'PRESENT VALUE RESIDUAL'; --TBC
8260: l_streams_tbl(12) := 'RENT';--'PV GUARANTEE';--TBC
8261: l_streams_tbl(13) := 'RESIDUAL VALUE INSURANCE PREMIUM';
8262: l_streams_tbl(14) := 'GUARANTEED RESIDUAL INSURED'; -- RVI takes care of requesting by default.
8263: l_streams_tbl(15) := 'RENT';--'PRESENT VALUE INSURED RESIDUAL';--TBC
8264: l_streams_tbl(16) := 'RENT';--'UNEARNED INCOME';
8265: l_streams_tbl(17) := 'RENT'; --'DEFERRED INCOME';
8266: l_streams_tbl(18) := 'TERMINATION VALUE';
8259: l_streams_tbl(11) := 'RENT';--'PRESENT VALUE RESIDUAL'; --TBC
8260: l_streams_tbl(12) := 'RENT';--'PV GUARANTEE';--TBC
8261: l_streams_tbl(13) := 'RESIDUAL VALUE INSURANCE PREMIUM';
8262: l_streams_tbl(14) := 'GUARANTEED RESIDUAL INSURED'; -- RVI takes care of requesting by default.
8263: l_streams_tbl(15) := 'RENT';--'PRESENT VALUE INSURED RESIDUAL';--TBC
8264: l_streams_tbl(16) := 'RENT';--'UNEARNED INCOME';
8265: l_streams_tbl(17) := 'RENT'; --'DEFERRED INCOME';
8266: l_streams_tbl(18) := 'TERMINATION VALUE';
8267: l_streams_tbl(19) := 'STIP LOSS VALUE';
8310: IF ((j > x_stream_types_tbl.COUNT ) AND ( l_strm_name <> l_streams_tbl(i))) THEN
8311: l_blnInclude := OKL_API.G_FALSE;
8312: -- If the Deal type Containing Lease
8313: IF (INSTR( p_deal_type, 'LEASE') > 0) THEN
8314: -- Then we can include RENT,RENT,RENT,RESIDUAL VALUE INSURANCE PREMIUM
8315: -- RENT,RENT
8316: IF l_streams_tbl(i) = 'RENT' OR
8317: l_streams_tbl(i) = 'RESIDUAL VALUE INSURANCE PREMIUM' THEN
8318: l_blnInclude := OKL_API.G_TRUE;
8313: IF (INSTR( p_deal_type, 'LEASE') > 0) THEN
8314: -- Then we can include RENT,RENT,RENT,RESIDUAL VALUE INSURANCE PREMIUM
8315: -- RENT,RENT
8316: IF l_streams_tbl(i) = 'RENT' OR
8317: l_streams_tbl(i) = 'RESIDUAL VALUE INSURANCE PREMIUM' THEN
8318: l_blnInclude := OKL_API.G_TRUE;
8319: -- then we can include PRE-TAX INCOME if Deal type is Lease Direct finance
8320: -- then we can include PRE-TAX INCOME if Deal type is Lease Sale Type
8321: ELSIF l_streams_tbl(i) = 'PRE-TAX INCOME' AND
8643:
8644: cursor l_line_rec_csr1( chrid NUMBER, lnetype VARCHAR2 ) is
8645: select kle.id,
8646: kle.oec,
8647: kle.residual_code,
8648: kle.capital_amount,
8649: kle.delivered_date,
8650: kle.date_funding_required,
8651: kle.residual_grnty_amount,
8647: kle.residual_code,
8648: kle.capital_amount,
8649: kle.delivered_date,
8650: kle.date_funding_required,
8651: kle.residual_grnty_amount,
8652: kle.date_funding,
8653: kle.residual_value,
8654: kle.amount,
8655: kle.price_negotiated,
8649: kle.delivered_date,
8650: kle.date_funding_required,
8651: kle.residual_grnty_amount,
8652: kle.date_funding,
8653: kle.residual_value,
8654: kle.amount,
8655: kle.price_negotiated,
8656: kle.start_date,
8657: kle.end_date,
8928: -- Validate the contract has Subsidy line
8929: CURSOR validate_sub_line (p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
8930: IS
8931: SELECT 1
8932: FROM dual
8933: WHERE EXISTS (SELECT '1'
8934: FROM okl_subsidies_b subb,
8935: okc_k_lines_b cle_fin,
8936: okc_line_styles_b lse_fin,
9430: tl.item_description,
9431: kle.id,
9432: kle.cle_id,
9433: kle.oec,
9434: kle.residual_code,
9435: kle.capital_amount,
9436: kle.initial_direct_cost,
9437: kle.delivered_date,
9438: kle.date_funding_required,
9435: kle.capital_amount,
9436: kle.initial_direct_cost,
9437: kle.delivered_date,
9438: kle.date_funding_required,
9439: kle.residual_grnty_amount,
9440: kle.date_funding,
9441: kle.residual_value,
9442: kle.date_delivery_expected,
9443: kle.orig_system_id1 old_line_id,
9437: kle.delivered_date,
9438: kle.date_funding_required,
9439: kle.residual_grnty_amount,
9440: kle.date_funding,
9441: kle.residual_value,
9442: kle.date_delivery_expected,
9443: kle.orig_system_id1 old_line_id,
9444: kle.amount,
9445: kle.price_negotiated,
17514: -- To check if the chr_id has Financed fee feetype defined
17515: CURSOR l_financed_type_csr (chrId NUMBER)
17516: IS
17517: SELECT 1
17518: FROM dual
17519: WHERE EXISTS (SELECT 1
17520: FROM okc_k_lines_b cle,
17521: okc_line_styles_b lse,
17522: okl_k_lines kle
17607: CURSOR l_line_rec_csr_lease(chrid NUMBER, lnetype VARCHAR2)
17608: IS
17609: SELECT kle.id,
17610: kle.oec,
17611: kle.residual_code,
17612: kle.capital_amount,
17613: kle.delivered_date,
17614: kle.date_funding_required,
17615: kle.residual_grnty_amount,
17611: kle.residual_code,
17612: kle.capital_amount,
17613: kle.delivered_date,
17614: kle.date_funding_required,
17615: kle.residual_grnty_amount,
17616: kle.date_funding,
17617: kle.date_terminated,
17618: kle.residual_value,
17619: kle.date_delivery_expected,
17614: kle.date_funding_required,
17615: kle.residual_grnty_amount,
17616: kle.date_funding,
17617: kle.date_terminated,
17618: kle.residual_value,
17619: kle.date_delivery_expected,
17620: kle.orig_system_id1 old_line_id,
17621: kle.amount,
17622: kle.price_negotiated,
17781: -- nikshah -- Bug # 5484903 Fixed,
17782: -- Removed CURSOR primary_sty_id_csr definition
17783:
17784:
17785: --added by bkatraga for residual streams. Bug 4274539
17786: l_primary_sty_id OKL_ST_GEN_TMPT_LNS.PRIMARY_STY_ID%TYPE;
17787:
17788: --To get the styid for primary stream purpose Residual Value
17789: CURSOR get_residual_primary_sty_id (l_pdt_id NUMBER, l_contract_start_date DATE)
17784:
17785: --added by bkatraga for residual streams. Bug 4274539
17786: l_primary_sty_id OKL_ST_GEN_TMPT_LNS.PRIMARY_STY_ID%TYPE;
17787:
17788: --To get the styid for primary stream purpose Residual Value
17789: CURSOR get_residual_primary_sty_id (l_pdt_id NUMBER, l_contract_start_date DATE)
17790: IS
17791: SELECT PRIMARY_STY_ID
17792: FROM OKL_STRM_TMPT_LINES_UV STL
17785: --added by bkatraga for residual streams. Bug 4274539
17786: l_primary_sty_id OKL_ST_GEN_TMPT_LNS.PRIMARY_STY_ID%TYPE;
17787:
17788: --To get the styid for primary stream purpose Residual Value
17789: CURSOR get_residual_primary_sty_id (l_pdt_id NUMBER, l_contract_start_date DATE)
17790: IS
17791: SELECT PRIMARY_STY_ID
17792: FROM OKL_STRM_TMPT_LINES_UV STL
17793: WHERE STL.PRIMARY_YN = 'Y'
17793: WHERE STL.PRIMARY_YN = 'Y'
17794: AND STL.PDT_ID = l_pdt_id
17795: AND (STL.START_DATE <= l_contract_start_date)
17796: AND (STL.END_DATE >= l_contract_start_date OR STL.END_DATE IS NULL)
17797: AND PRIMARY_STY_PURPOSE = 'RESIDUAL_VALUE';
17798: -- end bkatraga
17799:
17800:
17801: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
17979: IF(g_rep_req_yn = 'Y') THEN
17980: get_primary_stream_type(
17981: p_khr_id =>p_chr_id,
17982: p_pdt_id =>l_pdt_id_rec.report_pdt_id,
17983: p_primary_sty_purpose =>'RESIDUAL_VALUE_INSURANCE_PREMIUM',
17984: x_return_status => x_return_status,
17985: x_primary_sty_id =>l_sty_id );
17986: IF x_return_status = 'E' THEN
17987: x_return_status := 'S';
17988: END IF;
17989: ELSE
17990: get_primary_stream_type (
17991: p_khr_id => p_chr_id,
17992: p_primary_sty_purpose => 'RESIDUAL_VALUE_INSURANCE_PREMIUM',
17993: x_return_status => x_return_status,
17994: x_primary_sty_id =>l_sty_id
17995: );
17996: IF x_return_status = 'E' THEN
18082: i := i + 1;
18083: l_csm_line_details_tbl(i).kle_asset_id := l_line_rec.id;
18084: l_csm_line_details_tbl(i).state_depre_dmnshing_value_rt := 0; -- TBD
18085: l_csm_line_details_tbl(i).book_depre_dmnshing_value_rt := 0; -- TBD
18086: l_csm_line_details_tbl(i).residual_guarantee_method := l_line_rec.residual_code;
18087: l_csm_line_details_tbl(i).fed_depre_dmnshing_value_rate := 0; -- TBD
18088: l_csm_line_details_tbl(i).purchase_option := l_purchase_option;
18089: l_csm_line_details_tbl(i).purchase_option_amount := l_purchase_option_amount;
18090: IF l_line_rec.ste_code = 'TERMINATED' THEN
18087: l_csm_line_details_tbl(i).fed_depre_dmnshing_value_rate := 0; -- TBD
18088: l_csm_line_details_tbl(i).purchase_option := l_purchase_option;
18089: l_csm_line_details_tbl(i).purchase_option_amount := l_purchase_option_amount;
18090: IF l_line_rec.ste_code = 'TERMINATED' THEN
18091: l_csm_line_details_tbl(i).residual_date := l_line_rec.date_terminated;
18092: ELSE
18093: l_csm_line_details_tbl(i).residual_date := NULL;
18094: END IF;
18095: IF l_line_rec.residual_value IS NULL THEN
18089: l_csm_line_details_tbl(i).purchase_option_amount := l_purchase_option_amount;
18090: IF l_line_rec.ste_code = 'TERMINATED' THEN
18091: l_csm_line_details_tbl(i).residual_date := l_line_rec.date_terminated;
18092: ELSE
18093: l_csm_line_details_tbl(i).residual_date := NULL;
18094: END IF;
18095: IF l_line_rec.residual_value IS NULL THEN
18096: l_csm_line_details_tbl(i).residual_amount := 0;
18097: END IF; -- Added by gboomina for BUG 4384784
18091: l_csm_line_details_tbl(i).residual_date := l_line_rec.date_terminated;
18092: ELSE
18093: l_csm_line_details_tbl(i).residual_date := NULL;
18094: END IF;
18095: IF l_line_rec.residual_value IS NULL THEN
18096: l_csm_line_details_tbl(i).residual_amount := 0;
18097: END IF; -- Added by gboomina for BUG 4384784
18098: -- calling the asset mangement API
18099: -- to get the residual value of Terminated line
18092: ELSE
18093: l_csm_line_details_tbl(i).residual_date := NULL;
18094: END IF;
18095: IF l_line_rec.residual_value IS NULL THEN
18096: l_csm_line_details_tbl(i).residual_amount := 0;
18097: END IF; -- Added by gboomina for BUG 4384784
18098: -- calling the asset mangement API
18099: -- to get the residual value of Terminated line
18100: -- Changed the ELSIF to IF by gboomina for BUG 4384784
18095: IF l_line_rec.residual_value IS NULL THEN
18096: l_csm_line_details_tbl(i).residual_amount := 0;
18097: END IF; -- Added by gboomina for BUG 4384784
18098: -- calling the asset mangement API
18099: -- to get the residual value of Terminated line
18100: -- Changed the ELSIF to IF by gboomina for BUG 4384784
18101: IF l_line_rec.ste_code = 'TERMINATED' THEN
18102: -- Start fix for bug 6858487
18103: retrive_orig_hdr_id(p_chr_id, l_orig_chr_id);
18108: CLOSE c_get_orig_line_id;
18109: ELSE
18110: l_orig_cle_id := l_line_rec.id;
18111: END IF;
18112: l_csm_line_details_tbl(i).residual_amount := okl_am_util_pvt.get_actual_asset_residual(p_khr_id => l_orig_chr_id,
18113: p_kle_id => l_orig_cle_id);
18114:
18115: -- End fix for bug 6858487
18116: -- Changed the ELSE to ELSIF condition by gboomina for BUG 4384784
18113: p_kle_id => l_orig_cle_id);
18114:
18115: -- End fix for bug 6858487
18116: -- Changed the ELSE to ELSIF condition by gboomina for BUG 4384784
18117: ELSIF l_line_rec.residual_value IS NOT NULL THEN
18118: l_csm_line_details_tbl(i).residual_amount := l_line_rec.residual_value;
18119: END IF;
18120: IF l_line_rec.delivered_date IS NULL THEN
18121: l_csm_line_details_tbl(i).date_delivery := l_line_rec.start_date;
18114:
18115: -- End fix for bug 6858487
18116: -- Changed the ELSE to ELSIF condition by gboomina for BUG 4384784
18117: ELSIF l_line_rec.residual_value IS NOT NULL THEN
18118: l_csm_line_details_tbl(i).residual_amount := l_line_rec.residual_value;
18119: END IF;
18120: IF l_line_rec.delivered_date IS NULL THEN
18121: l_csm_line_details_tbl(i).date_delivery := l_line_rec.start_date;
18122: ELSE
18121: l_csm_line_details_tbl(i).date_delivery := l_line_rec.start_date;
18122: ELSE
18123: l_csm_line_details_tbl(i).date_delivery := l_line_rec.delivered_date;
18124: END IF;
18125: l_csm_line_details_tbl(i).residual_guarantee_amount := l_line_rec.residual_grnty_amount;
18126: --Modified by kthiruva for Pricing Enhancements
18127: --Currently the funding date defaults to the start date for all asset lines
18128: --The funding date is now a user enterable value and hence date_funding should
18129: --obtain its value from the date_funding_expected column.
18591: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18592: END IF;
18593:
18594:
18595: -- added by bkatraga for residual streams. Bug 4274539
18596: IF(l_line_rec.residual_value IS NOT NULL) THEN
18597: -- To get the primary stream purpose Residual Value id into l_primary_sty_id
18598: OPEN get_residual_primary_sty_id(l_hdr_rec.pid, l_hdr_rec.start_date);
18599: FETCH get_residual_primary_sty_id INTO l_primary_sty_id;
18592: END IF;
18593:
18594:
18595: -- added by bkatraga for residual streams. Bug 4274539
18596: IF(l_line_rec.residual_value IS NOT NULL) THEN
18597: -- To get the primary stream purpose Residual Value id into l_primary_sty_id
18598: OPEN get_residual_primary_sty_id(l_hdr_rec.pid, l_hdr_rec.start_date);
18599: FETCH get_residual_primary_sty_id INTO l_primary_sty_id;
18600: CLOSE get_residual_primary_sty_id;
18593:
18594:
18595: -- added by bkatraga for residual streams. Bug 4274539
18596: IF(l_line_rec.residual_value IS NOT NULL) THEN
18597: -- To get the primary stream purpose Residual Value id into l_primary_sty_id
18598: OPEN get_residual_primary_sty_id(l_hdr_rec.pid, l_hdr_rec.start_date);
18599: FETCH get_residual_primary_sty_id INTO l_primary_sty_id;
18600: CLOSE get_residual_primary_sty_id;
18601: -- To check if the product is reporting one or not
18594:
18595: -- added by bkatraga for residual streams. Bug 4274539
18596: IF(l_line_rec.residual_value IS NOT NULL) THEN
18597: -- To get the primary stream purpose Residual Value id into l_primary_sty_id
18598: OPEN get_residual_primary_sty_id(l_hdr_rec.pid, l_hdr_rec.start_date);
18599: FETCH get_residual_primary_sty_id INTO l_primary_sty_id;
18600: CLOSE get_residual_primary_sty_id;
18601: -- To check if the product is reporting one or not
18602: --vdamerla Bug61130937 starts
18595: -- added by bkatraga for residual streams. Bug 4274539
18596: IF(l_line_rec.residual_value IS NOT NULL) THEN
18597: -- To get the primary stream purpose Residual Value id into l_primary_sty_id
18598: OPEN get_residual_primary_sty_id(l_hdr_rec.pid, l_hdr_rec.start_date);
18599: FETCH get_residual_primary_sty_id INTO l_primary_sty_id;
18600: CLOSE get_residual_primary_sty_id;
18601: -- To check if the product is reporting one or not
18602: --vdamerla Bug61130937 starts
18603: IF l_line_rec.ste_code <> 'TERMINATED' THEN
18596: IF(l_line_rec.residual_value IS NOT NULL) THEN
18597: -- To get the primary stream purpose Residual Value id into l_primary_sty_id
18598: OPEN get_residual_primary_sty_id(l_hdr_rec.pid, l_hdr_rec.start_date);
18599: FETCH get_residual_primary_sty_id INTO l_primary_sty_id;
18600: CLOSE get_residual_primary_sty_id;
18601: -- To check if the product is reporting one or not
18602: --vdamerla Bug61130937 starts
18603: IF l_line_rec.ste_code <> 'TERMINATED' THEN
18604:
18602: --vdamerla Bug61130937 starts
18603: IF l_line_rec.ste_code <> 'TERMINATED' THEN
18604:
18605: IF(g_rep_req_yn = 'Y') THEN
18606: -- To get the dependant stream types of purpose Residual Value which have pricing name defined
18607: get_dependent_stream_types
18608: (
18609: p_khr_id =>p_chr_id,
18610: p_pdt_id =>l_pdt_id_rec.report_pdt_id,
20896:
20897: CURSOR c_valid_khr_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
20898: IS
20899: SELECT 1
20900: FROM DUAL
20901: WHERE EXISTS (SELECT 1
20902: FROM okc_k_headers_b
20903: WHERE id = p_khr_id);
20904: TYPE sll_date_rec_type IS RECORD (
21491: END get_so_asset_oec1;
21492: -------------------------------------------------------------------------------------------------
21493: -- Start of Commnets
21494: -- Badrinath Kuchibholta
21495: -- Procedure Name : get_so_residual_value1
21496: -- Description : get_so_residual_value1
21497: -- Business Rules :
21498: -- Parameters : Standard Parameters with p_khr_id, p_kle_id and p_subside_yn
21499: -- Version :
21492: -------------------------------------------------------------------------------------------------
21493: -- Start of Commnets
21494: -- Badrinath Kuchibholta
21495: -- Procedure Name : get_so_residual_value1
21496: -- Description : get_so_residual_value1
21497: -- Business Rules :
21498: -- Parameters : Standard Parameters with p_khr_id, p_kle_id and p_subside_yn
21499: -- Version :
21500: -- End of Commnets
21498: -- Parameters : Standard Parameters with p_khr_id, p_kle_id and p_subside_yn
21499: -- Version :
21500: -- End of Commnets
21501: -------------------------------------------------------------------------------------------------
21502: PROCEDURE get_so_residual_value1(p_khr_id IN NUMBER,
21503: p_kle_id IN NUMBER,
21504: p_subside_yn IN VARCHAR2,
21505: x_return_status OUT NOCOPY VARCHAR2,
21506: x_residual_value OUT NOCOPY NUMBER,
21502: PROCEDURE get_so_residual_value1(p_khr_id IN NUMBER,
21503: p_kle_id IN NUMBER,
21504: p_subside_yn IN VARCHAR2,
21505: x_return_status OUT NOCOPY VARCHAR2,
21506: x_residual_value OUT NOCOPY NUMBER,
21507: x_start_date OUT NOCOPY DATE)
21508: IS
21509: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
21510: l_msg_count NUMBER;
21521: p_kle_id NUMBER)
21522: IS
21523: SELECT kle_rv.id asset_line_id,
21524: kle_rv.oec oec,
21525: kle_rv.residual_percentage residual_percent,
21526: cle_so.start_date
21527: FROM okc_k_headers_b chr_rv,
21528: okc_line_styles_b lse_rv,
21529: okl_k_lines kle_rv,
21585: OKL_API.set_message(p_app_name => G_APP_NAME,
21586: p_msg_name => G_CALC_AMOUNT);
21587: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21588: END IF;
21589: IF get_rvs_rec.residual_percent IS NOT NULL THEN
21590: l_res_val := get_rvs_rec.residual_percent * (get_rvs_rec.oec - nvl(l_dis_amt,0)) /100;
21591: l_tot_res_val := l_tot_res_val + l_res_val;
21592: ELSE
21593: l_tot_res_val := 0;
21586: p_msg_name => G_CALC_AMOUNT);
21587: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21588: END IF;
21589: IF get_rvs_rec.residual_percent IS NOT NULL THEN
21590: l_res_val := get_rvs_rec.residual_percent * (get_rvs_rec.oec - nvl(l_dis_amt,0)) /100;
21591: l_tot_res_val := l_tot_res_val + l_res_val;
21592: ELSE
21593: l_tot_res_val := 0;
21594: EXIT;
21593: l_tot_res_val := 0;
21594: EXIT;
21595: END IF;
21596: ELSE
21597: IF get_rvs_rec.residual_percent IS NOT NULL THEN
21598: l_res_val := get_rvs_rec.residual_percent * get_rvs_rec.oec /100;
21599: l_tot_res_val := l_tot_res_val + l_res_val;
21600: ELSE
21601: l_tot_res_val := 0;
21594: EXIT;
21595: END IF;
21596: ELSE
21597: IF get_rvs_rec.residual_percent IS NOT NULL THEN
21598: l_res_val := get_rvs_rec.residual_percent * get_rvs_rec.oec /100;
21599: l_tot_res_val := l_tot_res_val + l_res_val;
21600: ELSE
21601: l_tot_res_val := 0;
21602: EXIT;
21606: END LOOP;
21607: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21608: RAISE OKL_API.G_EXCEPTION_ERROR;
21609: END IF;
21610: x_residual_value := l_tot_res_val;
21611: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
21612: OKL_API.set_message(p_app_name => G_APP_NAME,
21613: p_msg_name => G_INVALID_VALUE,
21614: p_token1 => G_COL_NAME_TOKEN,
21607: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21608: RAISE OKL_API.G_EXCEPTION_ERROR;
21609: END IF;
21610: x_residual_value := l_tot_res_val;
21611: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
21612: OKL_API.set_message(p_app_name => G_APP_NAME,
21613: p_msg_name => G_INVALID_VALUE,
21614: p_token1 => G_COL_NAME_TOKEN,
21615: p_token1_value => 'Residual Value');
21611: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
21612: OKL_API.set_message(p_app_name => G_APP_NAME,
21613: p_msg_name => G_INVALID_VALUE,
21614: p_token1 => G_COL_NAME_TOKEN,
21615: p_token1_value => 'Residual Value');
21616: RAISE OKL_API.G_EXCEPTION_ERROR;
21617: END IF;
21618: x_return_status := l_return_status;
21619: EXCEPTION
21626: IF get_rvs_csr%ISOPEN THEN
21627: CLOSE get_rvs_csr;
21628: END IF;
21629: x_return_status := OKL_API.G_RET_STS_ERROR;
21630: END get_so_residual_value1;
21631:
21632: -------------------------------------------------------------------------------------------------
21633: -- Start of Commnets
21634: -- Santhosh Siruvole
21638: -- Parameters : Standard Parameters with p_khr_id, p_kle_id and p_subside_yn
21639: -- Version :
21640: -- End of Commnets
21641: -------------------------------------------------------------------------------------------------
21642: PROCEDURE get_so_residual_value(p_khr_id IN NUMBER,
21643: p_kle_id IN NUMBER,
21644: p_subside_yn IN VARCHAR2,
21645: x_return_status OUT NOCOPY VARCHAR2,
21646: x_residual_value OUT NOCOPY NUMBER,
21642: PROCEDURE get_so_residual_value(p_khr_id IN NUMBER,
21643: p_kle_id IN NUMBER,
21644: p_subside_yn IN VARCHAR2,
21645: x_return_status OUT NOCOPY VARCHAR2,
21646: x_residual_value OUT NOCOPY NUMBER,
21647: x_start_date OUT NOCOPY DATE)
21648: IS
21649: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
21650: l_msg_count NUMBER;
21673: p_init_msg_list => OKL_API.G_TRUE,
21674: x_return_status => l_return_status,
21675: x_msg_count => l_msg_count,
21676: x_msg_data => l_msg_data,
21677: p_formula_name => 'LINE_RESIDUAL_VALUE',
21678: p_contract_id => p_khr_id,
21679: p_line_id => p_kle_id,
21680: x_value => x_residual_value);
21681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21676: x_msg_data => l_msg_data,
21677: p_formula_name => 'LINE_RESIDUAL_VALUE',
21678: p_contract_id => p_khr_id,
21679: p_line_id => p_kle_id,
21680: x_value => x_residual_value);
21681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21684: RAISE OKL_API.G_EXCEPTION_ERROR;
21687: x_start_date := khr_type_rec.start_date;
21688:
21689: Else
21690:
21691: get_so_residual_value1(p_khr_id => p_khr_id,
21692: p_kle_id => p_kle_id,
21693: p_subside_yn => p_subside_yn,
21694: x_return_status => x_return_status,
21695: x_residual_value => x_residual_value,
21691: get_so_residual_value1(p_khr_id => p_khr_id,
21692: p_kle_id => p_kle_id,
21693: p_subside_yn => p_subside_yn,
21694: x_return_status => x_return_status,
21695: x_residual_value => x_residual_value,
21696: x_start_date => x_start_date);
21697:
21698: End If;
21699:
21708: CLOSE khr_type_csr;
21709: END IF;
21710: x_return_status := OKL_API.G_RET_STS_ERROR;
21711:
21712: End get_so_residual_value;
21713:
21714: -------------------------------------------------------------------------------------------------
21715: -- Start of Commnets
21716: -- Santhosh Siruvole
21931: CURSOR l_line_rec_csr(chrid NUMBER, lnetype VARCHAR2)
21932: IS
21933: SELECT kle.id,
21934: kle.oec,
21935: kle.residual_code,
21936: kle.capital_amount,
21937: kle.delivered_date,
21938: kle.date_funding_required,
21939: kle.residual_grnty_amount,
21935: kle.residual_code,
21936: kle.capital_amount,
21937: kle.delivered_date,
21938: kle.date_funding_required,
21939: kle.residual_grnty_amount,
21940: kle.residual_code guarantee_type,
21941: kle.date_funding,
21942: kle.residual_value,
21943: kle.amount,
21936: kle.capital_amount,
21937: kle.delivered_date,
21938: kle.date_funding_required,
21939: kle.residual_grnty_amount,
21940: kle.residual_code guarantee_type,
21941: kle.date_funding,
21942: kle.residual_value,
21943: kle.amount,
21944: kle.price_negotiated,
21938: kle.date_funding_required,
21939: kle.residual_grnty_amount,
21940: kle.residual_code guarantee_type,
21941: kle.date_funding,
21942: kle.residual_value,
21943: kle.amount,
21944: kle.price_negotiated,
21945: kle.start_date,
21946: kle.end_date,
21967: CURSOR l_so_line_rec_csr(p_chr_id NUMBER, p_cle_id NUMBER)
21968: IS
21969: SELECT kle.id,
21970: kle.oec,
21971: kle.residual_code,
21972: kle.capital_amount,
21973: kle.delivered_date,
21974: kle.date_funding_required,
21975: kle.residual_grnty_amount,
21971: kle.residual_code,
21972: kle.capital_amount,
21973: kle.delivered_date,
21974: kle.date_funding_required,
21975: kle.residual_grnty_amount,
21976: kle.date_funding,
21977: kle.residual_value,
21978: kle.amount,
21979: kle.price_negotiated,
21973: kle.delivered_date,
21974: kle.date_funding_required,
21975: kle.residual_grnty_amount,
21976: kle.date_funding,
21977: kle.residual_value,
21978: kle.amount,
21979: kle.price_negotiated,
21980: kle.start_date,
21981: kle.end_date,
22132: -- To check if the chr_id has Financed fee feetype defined
22133: CURSOR l_financed_type_csr (chrId NUMBER)
22134: IS
22135: SELECT 1
22136: FROM dual
22137: WHERE EXISTS (SELECT 1
22138: FROM okc_k_lines_b cle,
22139: okc_line_styles_b lse,
22140: okl_k_lines kle
22364: CLOSE ib_csr;
22365: l_csm_lease_header.country := l_ib_rec.country;
22366: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
22367: l_csm_lease_header.rvi_yn := OKL_CREATE_STREAMS_PUB.G_FND_NO;
22368: -- Fetching the Header rule for Residual value insurance premium
22369: OPEN l_hdrrl_csr('LARVIN', 'LARVAU', TO_NUMBER(p_chr_id));
22370: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
22371: CLOSE l_hdrrl_csr;
22372: IF l_hdrrl_rec.rule_information1 = 'Y' THEN
22376: get_primary_stream_type
22377: (
22378: p_khr_id =>p_chr_id,
22379: p_pdt_id =>l_pdt_id_rec.report_pdt_id,
22380: p_primary_sty_purpose =>'RESIDUAL_VALUE_INSURANCE_PREMIUM',
22381: x_return_status => x_return_status,
22382: x_primary_sty_id =>l_sty_id
22383: );
22384:
22386:
22387: get_primary_stream_type
22388: (
22389: p_khr_id => p_chr_id,
22390: p_primary_sty_purpose => 'RESIDUAL_VALUE_INSURANCE_PREMIUM',
22391: x_return_status => x_return_status,
22392: x_primary_sty_id =>l_sty_id
22393: );
22394:
22397: SELECT nvl(id,-1)
22398: INTO styid
22399: FROM okl_strm_type_tl
22400: WHERE LANGUAGE = 'US'
22401: AND name = 'RESIDUAL VALUE INSURANCE PREMIUM';
22402: IF styid = -1 THEN
22403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22404: END IF;
22405: */
22445: i := i + 1;
22446: l_csm_line_details_tbl(i).kle_asset_id := l_line_rec.id;
22447: l_csm_line_details_tbl(i).state_depre_dmnshing_value_rt := 0;
22448: l_csm_line_details_tbl(i).book_depre_dmnshing_value_rt := 0;
22449: l_csm_line_details_tbl(i).residual_guarantee_method := l_line_rec.residual_code;
22450: l_csm_line_details_tbl(i).fed_depre_dmnshing_value_rate := 0;
22451: l_csm_line_details_tbl(i).purchase_option := l_purchase_option;
22452: l_csm_line_details_tbl(i).purchase_option_amount := l_purchase_option_amount;
22453:
22539: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22540: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22541: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22542: END IF;
22543: IF l_line_rec.residual_value IS NULL THEN
22544: l_csm_line_details_tbl(i).residual_amount := 0;
22545: ELSE
22546: l_csm_line_details_tbl(i).residual_amount := l_line_rec.residual_value;
22547: END IF;
22540: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22541: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22542: END IF;
22543: IF l_line_rec.residual_value IS NULL THEN
22544: l_csm_line_details_tbl(i).residual_amount := 0;
22545: ELSE
22546: l_csm_line_details_tbl(i).residual_amount := l_line_rec.residual_value;
22547: END IF;
22548: IF l_line_rec.delivered_date IS NULL THEN
22542: END IF;
22543: IF l_line_rec.residual_value IS NULL THEN
22544: l_csm_line_details_tbl(i).residual_amount := 0;
22545: ELSE
22546: l_csm_line_details_tbl(i).residual_amount := l_line_rec.residual_value;
22547: END IF;
22548: IF l_line_rec.delivered_date IS NULL THEN
22549: l_csm_line_details_tbl(i).date_delivery := l_line_rec.start_date;
22550: ELSE
22549: l_csm_line_details_tbl(i).date_delivery := l_line_rec.start_date;
22550: ELSE
22551: l_csm_line_details_tbl(i).date_delivery := l_line_rec.delivered_date;
22552: END IF;
22553: l_csm_line_details_tbl(i).residual_guarantee_amount := l_line_rec.residual_grnty_amount;
22554: IF l_line_rec.residual_grnty_amount IS NOT NULL OR
22555: l_line_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM THEN
22556: l_csm_line_details_tbl(i).guarantee_type := l_line_rec.guarantee_type;
22557: END IF;
22550: ELSE
22551: l_csm_line_details_tbl(i).date_delivery := l_line_rec.delivered_date;
22552: END IF;
22553: l_csm_line_details_tbl(i).residual_guarantee_amount := l_line_rec.residual_grnty_amount;
22554: IF l_line_rec.residual_grnty_amount IS NOT NULL OR
22555: l_line_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM THEN
22556: l_csm_line_details_tbl(i).guarantee_type := l_line_rec.guarantee_type;
22557: END IF;
22558: --smahapat changed 03/13/04
22551: l_csm_line_details_tbl(i).date_delivery := l_line_rec.delivered_date;
22552: END IF;
22553: l_csm_line_details_tbl(i).residual_guarantee_amount := l_line_rec.residual_grnty_amount;
22554: IF l_line_rec.residual_grnty_amount IS NOT NULL OR
22555: l_line_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM THEN
22556: l_csm_line_details_tbl(i).guarantee_type := l_line_rec.guarantee_type;
22557: END IF;
22558: --smahapat changed 03/13/04
22559: --cannot support until field populated by authoring since field mandatory