[Home] [Help]
1: PACKAGE BODY OKL_VARIABLE_INTEREST_PVT AS
2: /* $Header: OKLRVARB.pls 120.79.12010000.10 2009/01/06 20:12:47 sgiyer ship $ */
3:
4: G_DEBUG CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
5: G_INIT_NUMBER CONSTANT NUMBER := -9999;
5394: --for all other types of contracts, the last int calc date
5395: --defaults to start date minus 1
5396: , decode(p_process_flag, 'DAILY_INTEREST', get_last_int_calc_date(chr.id),
5397: decode(ppm.quality_val, 'REAMORT', NVL(khr.date_last_interim_interest_cal,
5398: decode(OKL_VARIABLE_INTEREST_PVT.G_CALC_METHOD_CODE, 'REAMORT', chr.start_date, chr.start_date-1)), NVL(khr.date_last_interim_interest_cal, chr.start_date - 1))) date_last_interim_interest_cal
5399: , chr.start_date contract_start_date
5400: , chr.end_date contract_end_date
5401: , chr.id khr_id
5402: , ppm.quality_val interest_calculation_basis
5766: l_end_date := p_end_date;
5767:
5768: print_debug('cal start date : ' || l_start_date);
5769: print_debug('cal end date : ' || l_end_date);
5770: print_debug('value of global variable okl_variable_interest_pvt.g_calc_method_code : ' || OKL_VARIABLE_INTEREST_PVT.G_CALC_METHOD_CODE);
5771:
5772: --check for interest start date
5773: print_debug('in procedure interest_date_range - check for interest start date');
5774: IF (cur_int_param.interest_start_date < l_start_date) THEN
5783:
5784: --check for date last interim interest calculated
5785: print_debug('in procedure interest_date_range - check for date last interim interest calculated');
5786: IF ((l_start_date <= cur_int_param.date_last_interim_interest_cal) AND
5787: (((cur_int_param.interest_calculation_basis = 'REAMORT') AND (OKL_VARIABLE_INTEREST_PVT.G_CALC_METHOD_CODE = 'REAMORT')) OR
5788: (cur_int_param.interest_calculation_basis <> 'REAMORT'))) THEN
5789: --check if the start date is before last int calc date and
5790: --if the proc is not called from the variable rate - initiate request
5791: --then derive the rates for the date range passed
10221: l_interest_rate_tbl interest_rate_tbl_type;
10222: l_interest_rate_tbl_count NUMBER;
10223: l_interest_rate_tbl_index NUMBER;
10224: l_contract_number okc_k_headers_b.contract_number%type;
10225: l_principal_balance_tbl okl_variable_interest_pvt.principal_balance_tbl_typ;
10226: l_total_lending NUMBER;
10227:
10228: l_rent_date_start DATE;
10229: l_rent_cntr NUMBER;
10630: -- Additionally, we assume the l_csm_loan_levels_tbl_in is group by kle_loan_id (p_line_id), otherwise
10631: -- the follow if statement won't work properly to get the nly one p_line_id.
10632: IF l_line_id_buf <> l_csm_loan_levels_tbl_in(l_loan_levels_cntr).kle_loan_id then
10633: --end | 19-May-08 cklee fixed Bug 7043360 |
10634: OKL_VARIABLE_INTEREST_PVT.prin_date_range_var_rate_ctr (
10635: p_api_version => p_api_version,
10636: p_init_msg_list => p_init_msg_list,
10637: x_return_status => x_return_status,
10638: x_msg_count => x_msg_count,