[Home] [Help]
2313: -- Parameters : Standard Parameters with p_khr_id and p_csm_perd_exp_tbl
2314: -- Version :
2315: -- End of Commnets
2316: -------------------------------------------------------------------------------------------------
2317: FUNCTION append_perd_exp_tbl(p_khr_id IN OKC_K_HEADERS_B.ID%TYPE,
2318: p_csm_perd_exp_tbl IN OUT NOCOPY OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type)
2319: RETURN VARCHAR2 IS
2320: l_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type := p_csm_perd_exp_tbl;
2321: m_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2323: lx_csm_perd_exp_tbl OKL_CREATE_STREAMS_PUB.csm_periodic_expenses_tbl_type;
2324: i NUMBER := 0;
2325: m NUMBER := 0;
2326: n NUMBER := 0;
2327: ld_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
2328: g_process_error EXCEPTION;
2329: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2330: -- Cursor to get the Start of the contract
2331: -- To compare the date Start of the table of Records
2328: g_process_error EXCEPTION;
2329: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2330: -- Cursor to get the Start of the contract
2331: -- To compare the date Start of the table of Records
2332: CURSOR c_start_date_khr_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
2333: IS
2334: SELECT start_date
2335: FROM okc_k_headers_b
2336: WHERE id = p_khr_id;
2331: -- To compare the date Start of the table of Records
2332: CURSOR c_start_date_khr_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
2333: IS
2334: SELECT start_date
2335: FROM okc_k_headers_b
2336: WHERE id = p_khr_id;
2337: -- Since We are now Dealing with fee lines
2338: -- So we look for Fee lines in the Table of Records
2339: CURSOR c_fee_line_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
2335: FROM okc_k_headers_b
2336: WHERE id = p_khr_id;
2337: -- Since We are now Dealing with fee lines
2338: -- So we look for Fee lines in the Table of Records
2339: CURSOR c_fee_line_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
2340: IS
2341: SELECT cle.id id
2342: FROM okc_k_lines_b cle,
2343: okc_line_styles_b lse
2834: i BINARY_INTEGER := 0;
2835: x_msg_data VARCHAR2(4000);
2836: x_msg_count NUMBER;
2837: l_rounded_amount NUMBER;
2838: l_currency_code OKC_K_HEADERS_B.CURRENCY_CODE%TYPE;
2839: l_day_convention_month VARCHAR2(30);
2840: l_day_convention_year VARCHAR2(30);
2841:
2842: --Cursor to get the contract currency code
2842: --Cursor to get the contract currency code
2843: CURSOR get_currency_code
2844: IS
2845: SELECT CURRENCY_CODE
2846: FROM OKC_K_HEADERS_B
2847: WHERE ID = p_chr_id;
2848:
2849: BEGIN
2850:
3056: chr.end_date, --sechawla 10-aug-09 : added
3057: khr.deal_type,
3058: khr.term_duration,
3059: NVL(khr.generate_accrual_yn, 'Y')
3060: FROM okc_k_headers_b chr,
3061: okl_k_headers khr
3062: WHERE khr.id = p_chr_id
3063: AND chr.id = khr.id;
3064:
3223: vDtls.PAYMENT_FREQUENCY,
3224: chr.END_DATE CONTRACT_END_DATE
3225: FROM okl_party_payment_hdr vHdr,
3226: okl_party_payment_dtls vDtls,
3227: okc_k_headers_b chr
3228: WHERE vDtls.payment_hdr_id = vHdr.id
3229: AND vHdr.CLE_ID = cleId
3230: AND vHdr.DNZ_CHR_ID = khrId
3231: AND vHdr.PASSTHRU_TERM = 'BASE'
3828: vDtls.PAYMENT_FREQUENCY,
3829: chr.END_DATE CONTRACT_END_DATE
3830: FROM okl_party_payment_hdr vHdr,
3831: okl_party_payment_dtls vDtls,
3832: okc_k_headers_b chr
3833: WHERE vDtls.payment_hdr_id = vHdr.id
3834: AND vHdr.CLE_ID = cleId
3835: AND vHdr.DNZ_CHR_ID = khrId
3836: AND vHdr.PASSTHRU_TERM = 'BASE'
4156: vDtls.PAYMENT_FREQUENCY,
4157: chr.END_DATE CONTRACT_END_DATE
4158: FROM okl_party_payment_hdr vHdr,
4159: okl_party_payment_dtls vDtls,
4160: okc_k_headers_b chr
4161: WHERE vDtls.payment_hdr_id = vHdr.id
4162: AND vHdr.CLE_ID = cleId
4163: AND vHdr.DNZ_CHR_ID = khrId
4164: AND vHdr.PASSTHRU_TERM = 'BASE'
6844: p_chr_id IN VARCHAR2,
6845: p_trx_number IN NUMBER) AS
6846:
6847: --Cursor to get the terminated assets
6848: CURSOR c_tmt_assets (cp_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
6849: SELECT CLE.ID LINE_ID
6850: , TRUNC(CLE.DATE_TERMINATED) TERMINATION_DATE
6851: FROM OKL_K_HEADERS KHR
6852: , OKC_K_LINES_B CLE
6859: AND STS.STE_CODE = 'TERMINATED'
6860: AND KHR.ID = cp_chr_id;
6861:
6862: --Cursor to get the streams for terminated asset upto termination date
6863: CURSOR c_streams (cp_chr_id OKC_K_HEADERS_B.ID%TYPE
6864: , cp_cle_id OKC_K_LINES_B.ID%TYPE
6865: , cp_date_terminated DATE
6866: , cp_trx_number okl_streams.transaction_number%TYPE) IS
6867: SELECT STM.ID STREAM_ID
7012: p_chr_id IN VARCHAR2,
7013: p_purpose IN VARCHAR2) AS
7014:
7015: --Cursor to get the terminated assets
7016: CURSOR c_tmt_assets (cp_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
7017: SELECT CLE.ID LINE_ID
7018: FROM OKL_K_HEADERS KHR
7019: , OKC_K_LINES_B CLE
7020: , OKC_LINE_STYLES_B LSE
7026: AND STS.STE_CODE = 'TERMINATED'
7027: AND KHR.ID = cp_chr_id;
7028:
7029: --Cursor to get the stream ids for terminated asset
7030: CURSOR c_streams (cp_chr_id OKC_K_HEADERS_B.ID%TYPE
7031: , cp_cle_id OKC_K_LINES_B.ID%TYPE
7032: , cp_purpose VARCHAR2) IS
7033: SELECT STM.ID STREAM_ID
7034: FROM OKL_STREAMS STM
7044:
7045: --Cursor to check whether it is a partial termination mass rebook transaction
7046: CURSOR l_chk_mass_rbk_csr IS
7047: SELECT '!'
7048: FROM okc_k_headers_b CHR,
7049: okl_trx_contracts ktrx,
7050: okl_trx_contracts trx
7051: WHERE CHR.ID = p_chr_id
7052: AND ktrx.KHR_ID = chr.id
7786: -- Else input contract is returned as output
7787: PROCEDURE retrive_orig_hdr_id(p_chr_id IN VARCHAR2
7788: , x_chr_id OUT NOCOPY VARCHAR2
7789: ) IS
7790: l_orig_chr_id OKC_K_HEADERS_B.ID%TYPE;
7791: cursor c_online_rbk_csr(cp_chr_id in okc_k_headers_b.id%TYPE) is
7792: select ORIG_SYSTEM_ID1
7793: from okc_k_headers_b
7794: where id=cp_chr_id
7787: PROCEDURE retrive_orig_hdr_id(p_chr_id IN VARCHAR2
7788: , x_chr_id OUT NOCOPY VARCHAR2
7789: ) IS
7790: l_orig_chr_id OKC_K_HEADERS_B.ID%TYPE;
7791: cursor c_online_rbk_csr(cp_chr_id in okc_k_headers_b.id%TYPE) is
7792: select ORIG_SYSTEM_ID1
7793: from okc_k_headers_b
7794: where id=cp_chr_id
7795: and trim(ORIG_SYSTEM_SOURCE_CODE)='OKL_REBOOK';
7789: ) IS
7790: l_orig_chr_id OKC_K_HEADERS_B.ID%TYPE;
7791: cursor c_online_rbk_csr(cp_chr_id in okc_k_headers_b.id%TYPE) is
7792: select ORIG_SYSTEM_ID1
7793: from okc_k_headers_b
7794: where id=cp_chr_id
7795: and trim(ORIG_SYSTEM_SOURCE_CODE)='OKL_REBOOK';
7796:
7797: begin
7839: l_prev_stm_id OKL_STREAMS.ID%TYPE;
7840:
7841: -- vdamerla Forward Ported Bug6149951 starts
7842:
7843: l_orig_chr_id OKC_K_HEADERS_B.ID%TYPE; -- smadhava - Bug# 6149951
7844: l_new_stm_cle_id OKC_K_LINES_B.ID%TYPE; -- smadhava - Bug# 6149951
7845:
7846: -- vdamerla Forward Ported Bug6149951 ends
7847:
7851: l_selv_tbl okl_streams_pub.selv_tbl_type;
7852: lx_selv_tbl okl_streams_pub.selv_tbl_type;
7853: -- vdamerla Forward Port
7854: -- Cursor to get fees linked to a terminated Asset
7855: CURSOR c_lnk_fin_rol_trm_fee (cp_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
7856: SELECT LNK_CLE.ID LNK_ID
7857: , FEE_CLE.ID FEE_ID
7858: , LNK_CLE.DATE_TERMINATED
7859: FROM OKC_K_LINES_B LNK_CLE
7874: --AND FEE_KLE.FEE_TYPE IN (G_FEE_FINANCED,G_FEE_ROLLOVER);
7875:
7876:
7877: -- Cursor to get Terminated Asset lines of a LOAN contract
7878: CURSOR c_tmt_asset_loan (cp_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
7879: SELECT CLE.ID LINE_ID
7880: , CLE.DATE_TERMINATED
7881: FROM OKL_K_HEADERS KHR
7882: , OKC_K_LINES_B CLE
7900: -- Modified the cursor by vdamerla for bug 6344223
7901: -- Added ISG generated stream type purposes so that these streams will not be
7902: -- copied over during mass/online rebook. Streams will be regenerated by ISG
7903:
7904: CURSOR c_streams (cp_chr_id OKC_K_HEADERS_B.ID%TYPE
7905: , cp_cle_id OKC_K_LINES_B.ID%TYPE
7906: , cp_date_terminated DATE
7907: , cp_trx_number okl_streams.transaction_number%TYPE) IS
7908: SELECT STM.ID STREAM_ID
7955: --Added by vdamerla for bug 6082209
7956: --Cursor to check whether it is a partial termination mass rebook transaction
7957: CURSOR l_chk_mass_rbk_csr IS
7958: SELECT '!'
7959: FROM okc_k_headers_b CHR,
7960: okl_trx_contracts ktrx,
7961: okl_trx_contracts trx
7962: WHERE CHR.ID = p_chr_id
7963: AND ktrx.KHR_ID = chr.id
8002: --Also streams related to Investor and Interest Calc Prog should not be copied over as these streams are not historized
8003: --Modified the cursor by vdamerla for bug 6344223
8004: --Added ISG generated stream type purposes so that these streams will not be
8005: --copied over during mass/online rebook. Streams will be regenerated by ISG
8006: CURSOR c_streams1 (cp_chr_id OKC_K_HEADERS_B.ID%TYPE
8007: ,cp_trx_number okl_streams.transaction_number%TYPE) IS
8008: SELECT STM.ID STREAM_ID
8009: , STM.STY_ID
8010: , STM.SGN_CODE
8048: --smadhava - Bug# 6149951 - Added - Start
8049: -- Get Line ID in rebook copy that was copied from LINE the original contract
8050: -- cp_rbk_chr_id is the rebook copy contract
8051: -- cp_ole_id is original contract line ID
8052: CURSOR c_get_orig_line_id (cp_rbk_chr_id IN okc_k_headers_b.id%type
8053: , cp_ole_id IN OKC_K_LINES_B.ID%TYPE) is
8054: SELECT cle.id new_cle_id
8055: FROM okc_k_lines_b cle
8056: ,okc_k_lines_b ole
8100:
8101:
8102: CURSOR chk_curr_terminated_line(p_kle_id IN OKC_K_LINES_B.ID%TYPE) IS
8103: SELECT 'Y'
8104: FROM okc_k_headers_b CHR,
8105: okl_trx_contracts ktrx,
8106: okl_trx_contracts trx,
8107: okl_txl_quote_lines_b txl
8108: WHERE CHR.ID = p_chr_id
8125: AND rbk_khr.STATUS <> 'PROCESSED')
8126: AND TXL.QTE_ID = TRX.QTE_ID
8127: UNION -- 24-Mar-2008 sechawla FP fix 7445633 for base bug 7421107 : Added union part
8128: SELECT 'Y'
8129: FROM okc_k_headers_b CHR,
8130: okl_trx_contracts ktrx,
8131: okl_trx_contracts trx,
8132: okl_txl_quote_lines_b txl
8133: , OKC_K_ITEMS LNK_ITM
9559: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9560: x_return_status OUT NOCOPY VARCHAR2,
9561: x_msg_count OUT NOCOPY NUMBER,
9562: x_msg_data OUT NOCOPY VARCHAR2,
9563: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
9564: p_deal_type IN VARCHAR2,
9565: p_stream_types_tbl IN okl_create_streams_pub.csm_stream_types_tbl_type,
9566: x_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
9567: l_api_name VARCHAR2(256) := 'CHECK_FOR_MD_STRMS';
9727: AND cle.id = kle.id
9728: AND kle.subsidy_id = sub.id;
9729:
9730: -- srsreeni - Bug#5699923 - Added - Start
9731: CURSOR c_is_loan_khr(p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
9732: SELECT 'Y'
9733: FROM OKL_K_HEADERS
9734: WHERE ID = p_chr_id
9735: AND DEAL_TYPE = 'LOAN';
11206: chr.END_DATE CONTRACT_END_DATE,
11207: vDtls.ORIG_CONTRACT_LINE_ID --sechawla 21-Jul-09 8677460 : PRB ESG Enhancements
11208: from okl_party_payment_hdr vHdr,
11209: okl_party_payment_dtls vDtls,
11210: okc_k_headers_b chr
11211: where vDtls.payment_hdr_id = vHdr.id
11212: and vHdr.CLE_ID = cleId
11213: and vHdr.DNZ_CHR_ID = khrId
11214: and vHdr.PASSTHRU_TERM = 'BASE'
20059: lv_fed_only VARCHAR2(3) := 'N';
20060: ln_value NUMBER := 0;
20061: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
20062: lv_mg_tax_yn VARCHAR2(3) := 'N';
20063: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
20064: lv_currency_code okc_k_headers_b.currency_code%TYPE;
20065: l_rnd_basis_percent NUMBER;
20066: l_level_type NUMBER;
20067: l_strm_name VARCHAR2(200);
20060: ln_value NUMBER := 0;
20061: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
20062: lv_mg_tax_yn VARCHAR2(3) := 'N';
20063: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
20064: lv_currency_code okc_k_headers_b.currency_code%TYPE;
20065: l_rnd_basis_percent NUMBER;
20066: l_level_type NUMBER;
20067: l_strm_name VARCHAR2(200);
20068: ln_fin_yn NUMBER := 0;
20159: AND lse.lty_code = 'FEE'
20160: AND cle.id = kle.id
20161: AND kle.fee_type in ('ROLLOVER', 'FINANCED'));
20162: -- get the currency_code and Authoring_org_id
20163: -- from okc_k_headers_b
20164: CURSOR get_org_id(p_chr_id okc_k_headers_b.id%TYPE)
20165: IS
20166: SELECT authoring_org_id,
20167: currency_code
20160: AND cle.id = kle.id
20161: AND kle.fee_type in ('ROLLOVER', 'FINANCED'));
20162: -- get the currency_code and Authoring_org_id
20163: -- from okc_k_headers_b
20164: CURSOR get_org_id(p_chr_id okc_k_headers_b.id%TYPE)
20165: IS
20166: SELECT authoring_org_id,
20167: currency_code
20168: FROM okc_k_headers_b
20164: CURSOR get_org_id(p_chr_id okc_k_headers_b.id%TYPE)
20165: IS
20166: SELECT authoring_org_id,
20167: currency_code
20168: FROM okc_k_headers_b
20169: WHERE id = p_chr_id;
20170: -- get the Lease Contract Header info
20171: CURSOR l_hdr_csr_lease(chrId NUMBER)
20172: IS
20466: l_days_in_month_code OKL_ST_GEN_TMPT_SETS.days_in_month_code%type;
20467: l_days_in_yr_code OKL_ST_GEN_TMPT_SETS.days_in_yr_code%type;
20468:
20469: -- Start fix for bug 6858487
20470: l_orig_chr_id OKC_K_HEADERS_B.ID%TYPE;
20471: l_orig_cle_id OKC_K_LINES_B.ID%TYPE;
20472:
20473: -- Get Line ID in rebook copy that was copied from LINE the original contract
20474: -- cp_rbk_chr_id is the rebook copy contract
20472:
20473: -- Get Line ID in rebook copy that was copied from LINE the original contract
20474: -- cp_rbk_chr_id is the rebook copy contract
20475: -- cp_ole_id is original contract line ID
20476: CURSOR c_get_orig_line_id (cp_rbk_chr_id IN okc_k_headers_b.id%type
20477: , cp_ole_id IN OKC_K_LINES_B.ID%TYPE) is
20478: SELECT --cle.id new_cle_id
20479: cle.orig_system_id1
20480: FROM okc_k_lines_b cle
23155: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
23156: x_return_status OUT NOCOPY VARCHAR2,
23157: x_msg_count OUT NOCOPY NUMBER,
23158: x_msg_data OUT NOCOPY VARCHAR2,
23159: p_khr_id IN OKC_K_HEADERS_B.ID%TYPE,
23160: p_generation_ctx_code IN VARCHAR2,
23161: x_trx_number OUT NOCOPY NUMBER,
23162: x_trx_status OUT NOCOPY VARCHAR2
23163: ) AS
23611: p_init_msg_list IN VARCHAR2,
23612: x_return_status OUT NOCOPY VARCHAR2,
23613: x_msg_count OUT NOCOPY NUMBER,
23614: x_msg_data OUT NOCOPY VARCHAR2,
23615: p_khr_id IN OKC_K_HEADERS_B.ID%TYPE,
23616: p_paym_tbl IN OKL_STREAM_GENERATOR_PVT.payment_tbl_type)
23617: IS
23618: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PAYMENTS';
23619: G_APP_NAME VARCHAR2(30) := 'OKL';
23704: -- Bug 5362566: Start
23705: OKL_LA_PAYMENTS_PVT.get_display_end_date(
23706: sll.RULE_INFORMATION2, sll.RULE_INFORMATION7, sll.OBJECT1_ID1, sll.RULE_INFORMATION3,
23707: okl_la_payments_pvt.get_start_day( sll.id,sll.dnz_chr_id,sll.rgp_id,sll.object2_id1,sll.RULE_INFORMATION2)
23708: ,(SELECT end_date FROM okc_k_headers_b WHERE id = rgp.dnz_chr_id )
23709: )
23710: END_DATE,
23711: -- Bug 5362566: End
23712: -- Start of BAKUCHIB modification bug#3121708
23729: --Added by kthiruva for Bug 5130703
23730: AND slh.JTOT_OBJECT1_CODE = 'OKL_STRMTYP'
23731: ORDER BY FND_DATE.canonical_to_date(sll.rule_information2);
23732:
23733: CURSOR c_valid_khr_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
23734: IS
23735: SELECT 1
23736: FROM DUAL
23737: WHERE EXISTS (SELECT 1
23734: IS
23735: SELECT 1
23736: FROM DUAL
23737: WHERE EXISTS (SELECT 1
23738: FROM okc_k_headers_b
23739: WHERE id = p_khr_id);
23740: TYPE sll_date_rec_type IS RECORD (
23741: start_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE,
23742: end_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE);
24243: IS
24244: SELECT kle_rv.id asset_line_id,
24245: kle_rv.oec oec,
24246: cle_so.START_DATE
24247: FROM okc_k_headers_b chr_rv,
24248: okc_line_styles_b lse_rv,
24249: okl_k_lines kle_rv,
24250: okc_k_lines_b cle_rv,
24251: okc_rules_b rul_rv,
24366: SELECT kle_rv.id asset_line_id,
24367: kle_rv.oec oec,
24368: kle_rv.residual_percentage residual_percent,
24369: cle_so.start_date
24370: FROM okc_k_headers_b chr_rv,
24371: okc_line_styles_b lse_rv,
24372: okl_k_lines kle_rv,
24373: okc_k_lines_b cle_rv,
24374: okc_rules_b rul_rv,
24499:
24500: Cursor khr_type_csr IS
24501: Select SCS_CODE,
24502: START_DATE
24503: From okc_K_headers_b chr
24504: Where chr.id = p_khr_id;
24505:
24506: khr_type_rec khr_type_csr%ROWTYPE;
24507:
24581:
24582: Cursor khr_type_csr IS
24583: Select SCS_CODE,
24584: START_DATE
24585: From okc_K_headers_b chr
24586: Where chr.id = p_khr_id;
24587:
24588: khr_type_rec khr_type_csr%ROWTYPE;
24589:
24648: -------------------------------------------------------------------------------------------------
24649: PROCEDURE extract_params_so(
24650: p_api_version IN NUMBER,
24651: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
24652: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
24653: p_cle_id IN OKC_K_LINES_B.ID%TYPE,
24654: x_return_status OUT NOCOPY VARCHAR2,
24655: x_msg_count OUT NOCOPY NUMBER,
24656: x_msg_data OUT NOCOPY VARCHAR2,
24669: lv_fed_only VARCHAR2(3) := 'N';
24670: ln_value NUMBER := 0;
24671: -- Start of BAKUCHIB modification bug#3121708
24672: ln_diff_days NUMBER := 0;
24673: ld_last_start_date okc_k_headers_b.start_date%TYPE;
24674: ld_last_end_date okc_k_headers_b.start_date%TYPE;
24675: ld_chr_end_date okc_k_headers_b.end_date%TYPE;
24676: -- End of BAKUCHIB modification bug#3121708
24677: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
24670: ln_value NUMBER := 0;
24671: -- Start of BAKUCHIB modification bug#3121708
24672: ln_diff_days NUMBER := 0;
24673: ld_last_start_date okc_k_headers_b.start_date%TYPE;
24674: ld_last_end_date okc_k_headers_b.start_date%TYPE;
24675: ld_chr_end_date okc_k_headers_b.end_date%TYPE;
24676: -- End of BAKUCHIB modification bug#3121708
24677: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
24678: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
24671: -- Start of BAKUCHIB modification bug#3121708
24672: ln_diff_days NUMBER := 0;
24673: ld_last_start_date okc_k_headers_b.start_date%TYPE;
24674: ld_last_end_date okc_k_headers_b.start_date%TYPE;
24675: ld_chr_end_date okc_k_headers_b.end_date%TYPE;
24676: -- End of BAKUCHIB modification bug#3121708
24677: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
24678: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
24679: lv_currency_code okc_k_headers_b.currency_code%TYPE;
24674: ld_last_end_date okc_k_headers_b.start_date%TYPE;
24675: ld_chr_end_date okc_k_headers_b.end_date%TYPE;
24676: -- End of BAKUCHIB modification bug#3121708
24677: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
24678: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
24679: lv_currency_code okc_k_headers_b.currency_code%TYPE;
24680: l_rnd_basis_percent NUMBER;
24681: l_level_type NUMBER;
24682: l_strm_name VARCHAR2(200);
24675: ld_chr_end_date okc_k_headers_b.end_date%TYPE;
24676: -- End of BAKUCHIB modification bug#3121708
24677: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
24678: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
24679: lv_currency_code okc_k_headers_b.currency_code%TYPE;
24680: l_rnd_basis_percent NUMBER;
24681: l_level_type NUMBER;
24682: l_strm_name VARCHAR2(200);
24683: ln_fin_yn NUMBER := 0;
24986: AND lse.lty_code = 'FEE'
24987: AND cle.id = kle.id
24988: AND kle.fee_type in ('ROLLOVER', 'FINANCED'));
24989: -- get the currency_code and Authoring_org_id
24990: -- from okc_k_headers_b
24991: CURSOR get_org_id(p_chr_id okc_k_headers_b.id%TYPE)
24992: IS
24993: SELECT authoring_org_id,
24994: currency_code
24987: AND cle.id = kle.id
24988: AND kle.fee_type in ('ROLLOVER', 'FINANCED'));
24989: -- get the currency_code and Authoring_org_id
24990: -- from okc_k_headers_b
24991: CURSOR get_org_id(p_chr_id okc_k_headers_b.id%TYPE)
24992: IS
24993: SELECT authoring_org_id,
24994: currency_code
24995: FROM okc_k_headers_b
24991: CURSOR get_org_id(p_chr_id okc_k_headers_b.id%TYPE)
24992: IS
24993: SELECT authoring_org_id,
24994: currency_code
24995: FROM okc_k_headers_b
24996: WHERE id = p_chr_id;
24997: -- Get Capitalized fees amount for a contract
24998: CURSOR get_cap_fee_amt(p_chr_id okc_k_headers_b.id%TYPE)
24999: IS
24994: currency_code
24995: FROM okc_k_headers_b
24996: WHERE id = p_chr_id;
24997: -- Get Capitalized fees amount for a contract
24998: CURSOR get_cap_fee_amt(p_chr_id okc_k_headers_b.id%TYPE)
24999: IS
25000: SELECT NVL(kle.amount, 0) total_cap_fee
25001: FROM okl_k_lines kle,
25002: okc_k_lines_b cle,
25014:
25015: -- Start of BAKUCHIB modification bug#3121708
25016: -- Get diff in days between contract end_date
25017: -- and max payment leve(LASLL) end_date
25018: CURSOR c_diff_days_csr(p_chr_id okc_k_headers_b.id%TYPE,
25019: p_cle_id okc_k_lines_b.id%TYPE,
25020: p_slh_id okc_rule_groups_b.id%TYPE)
25021: IS
25022: SELECT chrv.end_date chr_end_date,
25027: (ADD_MONTHS(FND_DATE.canonical_to_date(sll.rule_information2),to_number(SLL.rule_information3)*DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12))-1))) pay_end_date
25028: FROM okc_rules_b sll,
25029: okc_rules_b slh,
25030: okc_rule_groups_b rgp,
25031: okc_k_headers_b chrv
25032: WHERE rgp.dnz_chr_id = p_chr_id
25033: AND rgp.cle_id = p_cle_id
25034: AND slh.id = p_slh_id
25035: AND rgp.rgd_code = 'LALEVL'