[Home] [Help]
101: OPEN l_contract_csr(p_khr_id);
102: FETCH l_contract_csr INTO l_chr_term_days;
103: CLOSE l_contract_csr;
104:
105: OKL_VARIABLE_INTEREST_PVT.print_debug('l_chr_term_days: '|| l_chr_term_days);
106:
107: OPEN l_periods_csr(p_khr_id);
108: FETCH l_periods_csr INTO l_chr_period_days;
109: CLOSE l_periods_csr;
107: OPEN l_periods_csr(p_khr_id);
108: FETCH l_periods_csr INTO l_chr_period_days;
109: CLOSE l_periods_csr;
110:
111: OKL_VARIABLE_INTEREST_PVT.print_debug('l_chr_period_days: '|| l_chr_period_days);
112:
113: l_chr_stub_days := l_chr_term_days - NVL(l_chr_period_days,0);
114:
115: OKL_VARIABLE_INTEREST_PVT.print_debug('l_chr_stub_days : '|| l_chr_stub_days);
111: OKL_VARIABLE_INTEREST_PVT.print_debug('l_chr_period_days: '|| l_chr_period_days);
112:
113: l_chr_stub_days := l_chr_term_days - NVL(l_chr_period_days,0);
114:
115: OKL_VARIABLE_INTEREST_PVT.print_debug('l_chr_stub_days : '|| l_chr_stub_days);
116:
117: OPEN l_stubs_csr(p_khr_id);
118: FETCH l_stubs_csr INTO l_actual_stub_days;
119: CLOSE l_stubs_csr;
117: OPEN l_stubs_csr(p_khr_id);
118: FETCH l_stubs_csr INTO l_actual_stub_days;
119: CLOSE l_stubs_csr;
120:
121: OKL_VARIABLE_INTEREST_PVT.print_debug('l_actual_stub_days : '|| l_actual_stub_days);
122:
123: IF (NVL(l_actual_stub_days,0) <> 0 AND l_chr_stub_days <> 0) THEN
124: l_stub_conversion_factor := l_chr_stub_days/l_actual_stub_days;
125: END IF;
123: IF (NVL(l_actual_stub_days,0) <> 0 AND l_chr_stub_days <> 0) THEN
124: l_stub_conversion_factor := l_chr_stub_days/l_actual_stub_days;
125: END IF;
126:
127: OKL_VARIABLE_INTEREST_PVT.print_debug('l_stub_conversion_factor : '|| l_stub_conversion_factor);
128:
129: i := 0;
130:
131: FOR l_payment_line in l_payment_line_csr(p_khr_id)
134: IF(l_recurrence_date IS NULL) THEN
135: l_recurrence_date := l_payment_line.start_date;
136: END IF;
137:
138: OKL_VARIABLE_INTEREST_PVT.print_debug('l_payment_line_start_date: '|| l_payment_line.start_date);
139:
140: OKL_VARIABLE_INTEREST_PVT.print_debug('l_recurrence_date: '|| l_recurrence_date);
141:
142: IF (p_due_date >= l_payment_line.start_date) THEN
136: END IF;
137:
138: OKL_VARIABLE_INTEREST_PVT.print_debug('l_payment_line_start_date: '|| l_payment_line.start_date);
139:
140: OKL_VARIABLE_INTEREST_PVT.print_debug('l_recurrence_date: '|| l_recurrence_date);
141:
142: IF (p_due_date >= l_payment_line.start_date) THEN
143:
144: IF(l_payment_line.stub_days IS NOT NULL) THEN
152: x_payment_tbl(i).period_end_date := l_end_date;
153: x_payment_tbl(i).period_or_stub_flag := 'S';
154: x_payment_tbl(i).conversion_factor := l_stub_conversion_factor;
155:
156: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
157: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
158: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
159: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
160: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
153: x_payment_tbl(i).period_or_stub_flag := 'S';
154: x_payment_tbl(i).conversion_factor := l_stub_conversion_factor;
155:
156: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
157: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
158: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
159: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
160: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
161: END IF;
154: x_payment_tbl(i).conversion_factor := l_stub_conversion_factor;
155:
156: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
157: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
158: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
159: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
160: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
161: END IF;
162:
155:
156: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
157: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
158: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
159: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
160: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
161: END IF;
162:
163: ELSIF(l_payment_line.level_periods IS NOT NULL) THEN
156: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
157: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
158: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
159: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
160: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
161: END IF;
162:
163: ELSIF(l_payment_line.level_periods IS NOT NULL) THEN
164: l_frequency := l_payment_line.frequency;
187: IF(l_return_status <> OKL_API.G_RET_STS_SUCCESS)THEN
188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
189: END IF;
190:
191: OKL_VARIABLE_INTEREST_PVT.print_debug('l_start_date: '|| l_start_date);
192: OKL_VARIABLE_INTEREST_PVT.print_debug('l_end_date: '|| l_end_date);
193:
194: IF(l_end_date < p_start_date) THEN
195: l_start_date := l_end_date + 1;
188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
189: END IF;
190:
191: OKL_VARIABLE_INTEREST_PVT.print_debug('l_start_date: '|| l_start_date);
192: OKL_VARIABLE_INTEREST_PVT.print_debug('l_end_date: '|| l_end_date);
193:
194: IF(l_end_date < p_start_date) THEN
195: l_start_date := l_end_date + 1;
196:
201: x_payment_tbl(i).period_end_date := l_end_date;
202: x_payment_tbl(i).period_or_stub_flag := 'P';
203: x_payment_tbl(i).conversion_factor := (30 * l_adder_months)/(l_end_date - l_start_date + 1);
204:
205: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
206: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
207: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
208: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
209: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
202: x_payment_tbl(i).period_or_stub_flag := 'P';
203: x_payment_tbl(i).conversion_factor := (30 * l_adder_months)/(l_end_date - l_start_date + 1);
204:
205: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
206: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
207: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
208: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
209: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
210:
203: x_payment_tbl(i).conversion_factor := (30 * l_adder_months)/(l_end_date - l_start_date + 1);
204:
205: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
206: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
207: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
208: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
209: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
210:
211: l_start_date := l_end_date + 1;
204:
205: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
206: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
207: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
208: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
209: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
210:
211: l_start_date := l_end_date + 1;
212: ELSE
205: OKL_VARIABLE_INTEREST_PVT.print_debug('i : '|| i);
206: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_start_date : '|| x_payment_tbl(i).period_start_date);
207: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_end_date : '|| x_payment_tbl(i).period_end_date);
208: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).period_or_stub_flag : '|| x_payment_tbl(i).period_or_stub_flag);
209: OKL_VARIABLE_INTEREST_PVT.print_debug('x_payment_tbl(i).conversion_factor : '|| x_payment_tbl(i).conversion_factor);
210:
211: l_start_date := l_end_date + 1;
212: ELSE
213: EXIT;
260: l_invoice_id NUMBER;
261: l_invoice_amt NUMBER := 0;
262: l_interest_paid NUMBER := 0;
263: l_stream_type_purpose OKL_STRM_TYPE_V.stream_type_purpose%TYPE;
264: i_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
265: r_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
266: l_stream_element_id OKL_STRM_ELEMENTS_v.id%TYPE;
267: variable_int_rev_loan_float EXCEPTION;
268:
261: l_invoice_amt NUMBER := 0;
262: l_interest_paid NUMBER := 0;
263: l_stream_type_purpose OKL_STRM_TYPE_V.stream_type_purpose%TYPE;
264: i_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
265: r_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
266: l_stream_element_id OKL_STRM_ELEMENTS_v.id%TYPE;
267: variable_int_rev_loan_float EXCEPTION;
268:
269: CURSOR loan_payment_amount_csr (cp_khr_id NUMBER, cp_start_date DATE, cp_due_date DATE, cp_stream_type_purpose VARCHAR2) IS
292: ------------------------------------------------------------
293: -- Start processing
294: ------------------------------------------------------------
295:
296: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INT_REV_LOAN_FLOAT using the foll. parameters:');
297: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
298: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
293: -- Start processing
294: ------------------------------------------------------------
295:
296: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INT_REV_LOAN_FLOAT using the foll. parameters:');
297: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
298: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
301: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
294: ------------------------------------------------------------
295:
296: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INT_REV_LOAN_FLOAT using the foll. parameters:');
297: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
298: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
301: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
302: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
295:
296: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INT_REV_LOAN_FLOAT using the foll. parameters:');
297: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
298: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
301: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
302: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
303: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
296: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INT_REV_LOAN_FLOAT using the foll. parameters:');
297: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
298: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
301: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
302: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
303: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
304:
297: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
298: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
301: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
302: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
303: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
304:
305: x_return_status := OKL_API.G_RET_STS_SUCCESS;
298: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
301: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
302: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
303: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
304:
305: x_return_status := OKL_API.G_RET_STS_SUCCESS;
306: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
299: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
300: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
301: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
302: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
303: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
304:
305: x_return_status := OKL_API.G_RET_STS_SUCCESS;
306: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
307: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
302: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
303: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
304:
305: x_return_status := OKL_API.G_RET_STS_SUCCESS;
306: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
307: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
308: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
309: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
310:
303: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
304:
305: x_return_status := OKL_API.G_RET_STS_SUCCESS;
306: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
307: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
308: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
309: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
310:
311: OKL_VARIABLE_INTEREST_PVT.populate_txns (p_api_version => p_api_version,
304:
305: x_return_status := OKL_API.G_RET_STS_SUCCESS;
306: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
307: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
308: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
309: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
310:
311: OKL_VARIABLE_INTEREST_PVT.populate_txns (p_api_version => p_api_version,
312: p_init_msg_list => p_init_msg_list,
305: x_return_status := OKL_API.G_RET_STS_SUCCESS;
306: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
307: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
308: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
309: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
310:
311: OKL_VARIABLE_INTEREST_PVT.populate_txns (p_api_version => p_api_version,
312: p_init_msg_list => p_init_msg_list,
313: p_khr_id => p_contract_id,
307: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
308: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
309: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
310:
311: OKL_VARIABLE_INTEREST_PVT.populate_txns (p_api_version => p_api_version,
312: p_init_msg_list => p_init_msg_list,
313: p_khr_id => p_contract_id,
314: p_from_date => p_start_date,
315: p_to_date => p_due_date,
317: x_msg_count => x_msg_count,
318: x_msg_data => x_msg_data);
319:
320: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
321: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_TXNS');
322: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
323: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
324: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_TXNS');
325: RAISE variable_int_rev_loan_float;
320: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
321: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_TXNS');
322: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
323: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
324: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_TXNS');
325: RAISE variable_int_rev_loan_float;
326: END IF;
327:
328: --Bug# 14165508
325: RAISE variable_int_rev_loan_float;
326: END IF;
327:
328: --Bug# 14165508
329: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
330:
331: l_payment_tbl := get_conversion_factor(p_khr_id => p_contract_id,
332: p_start_date => p_start_date,
333: p_due_date => p_due_date);
334: END IF;
335: --Bug# 14165508
336:
337: --Bug# 14165508
338: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
339:
340: l_interest_calculated := 0;
341: OKL_VARIABLE_INTEREST_PVT.print_debug('l_payment_tbl COUNT '|| l_payment_tbl.COUNT);
342: IF (l_payment_tbl.COUNT > 0) THEN
337: --Bug# 14165508
338: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
339:
340: l_interest_calculated := 0;
341: OKL_VARIABLE_INTEREST_PVT.print_debug('l_payment_tbl COUNT '|| l_payment_tbl.COUNT);
342: IF (l_payment_tbl.COUNT > 0) THEN
343: FOR i IN l_payment_tbl.FIRST..l_payment_tbl.LAST LOOP
344:
345: l_interest := OKL_VARIABLE_INTEREST_PVT.calculate_total_interest_due(
341: OKL_VARIABLE_INTEREST_PVT.print_debug('l_payment_tbl COUNT '|| l_payment_tbl.COUNT);
342: IF (l_payment_tbl.COUNT > 0) THEN
343: FOR i IN l_payment_tbl.FIRST..l_payment_tbl.LAST LOOP
344:
345: l_interest := OKL_VARIABLE_INTEREST_PVT.calculate_total_interest_due(
346: p_api_version => 1.0,
347: p_init_msg_list => OKL_API.G_FALSE,
348: x_return_status => x_return_status,
349: x_msg_count => x_msg_count,
353: p_start_date => l_payment_tbl(i).period_start_date,
354: p_due_date => l_payment_tbl(i).period_end_date,
355: p_conversion_factor => l_payment_tbl(i).conversion_factor);
356: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
357: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
358: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
360: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
361: RAISE variable_int_rev_loan_float;
356: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
357: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
358: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
360: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
361: RAISE variable_int_rev_loan_float;
362: END IF;
363:
364: l_interest_calculated := l_interest_calculated + NVL(l_interest,0);
364: l_interest_calculated := l_interest_calculated + NVL(l_interest,0);
365: END LOOP;
366: END IF;
367: ELSE
368: l_interest_calculated := OKL_VARIABLE_INTEREST_PVT.calculate_total_interest_due(
369: p_api_version => 1.0,
370: p_init_msg_list => OKL_API.G_FALSE,
371: x_return_status => x_return_status,
372: x_msg_count => x_msg_count,
375: p_currency_code => p_currency_code,
376: p_start_date => p_start_date,
377: p_due_date => p_due_date);
378: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
379: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
380: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
381: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
382: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
383: RAISE variable_int_rev_loan_float;
378: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
379: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
380: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
381: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
382: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
383: RAISE variable_int_rev_loan_float;
384: END IF;
385: END IF;
386: --Bug# 14165508
438: END IF;
439: END IF;
440:
441: --sechawla : print the invoice amount
442: OKL_VARIABLE_INTEREST_PVT.Print_debug ('Invoice Amount : '|| l_invoice_amt);
443:
444: IF (p_rev_rec_method = 'ACTUAL') THEN
445: l_stream_type_purpose := 'VARIABLE_LOAN_PAYMENT';
446: ELSE
465: x_invoice_id => l_invoice_id,
466: x_stream_element_id => l_stream_element_id);
467:
468: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
469: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
470: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
471: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
472: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
473: RAISE variable_int_rev_loan_float;
468: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
469: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
470: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
471: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
472: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
473: RAISE variable_int_rev_loan_float;
474: END IF;
475: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
476:
471: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
472: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
473: RAISE variable_int_rev_loan_float;
474: END IF;
475: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
476:
477: --checkwhat does it do
478: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
479: p_api_version => 1.0,
474: END IF;
475: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
476:
477: --checkwhat does it do
478: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
479: p_api_version => 1.0,
480: p_init_msg_list => OKL_API.G_TRUE,
481: x_return_status => x_return_status,
482: x_msg_count => x_msg_count,
484: p_source_id => l_invoice_id,
485: p_vir_tbl => i_vir_tbl,
486: x_vir_tbl => r_vir_tbl);
487: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
488: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
489: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
491: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
492: RAISE variable_int_rev_loan_float;
487: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
488: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
489: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
491: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
492: RAISE variable_int_rev_loan_float;
493: END IF;
494:
495: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
491: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
492: RAISE variable_int_rev_loan_float;
493: END IF;
494:
495: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
496:
497: OKL_VR_DATA_HANDLER_PVT.INSERT_VIR_PARAMS(
498: p_api_version => 1.0,
499: p_init_msg_list => OKL_API.G_TRUE,
499: p_init_msg_list => OKL_API.G_TRUE,
500: x_return_status => x_return_status,
501: x_msg_count => x_msg_count,
502: x_msg_data => x_msg_data,
503: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
505: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
506: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
507: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
501: x_msg_count => x_msg_count,
502: x_msg_data => x_msg_data,
503: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
505: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
506: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
507: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
508: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_VIR_PARAMS');
509: RAISE variable_int_rev_loan_float;
504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
505: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
506: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
507: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
508: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_VIR_PARAMS');
509: RAISE variable_int_rev_loan_float;
510: END IF;
511:
512: OKL_VR_DATA_HANDLER_PVT.INSERT_PRINCIPAL_BAL_TXN(
514: p_init_msg_list => p_init_msg_list,
515: x_return_status => x_return_status,
516: x_msg_count => x_msg_count,
517: x_msg_data => x_msg_data,
518: p_vpb_tbl => OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl);
519:
520: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
521: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_PRINCIPAL_BAL_TXN');
522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
517: x_msg_data => x_msg_data,
518: p_vpb_tbl => OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl);
519:
520: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
521: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_PRINCIPAL_BAL_TXN');
522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
523: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
524: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_PRINCIPAL_BAL_TXN');
525: RAISE variable_int_rev_loan_float;
520: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
521: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_PRINCIPAL_BAL_TXN');
522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
523: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
524: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_PRINCIPAL_BAL_TXN');
525: RAISE variable_int_rev_loan_float;
526: END IF;
527:
528: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
524: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_PRINCIPAL_BAL_TXN');
525: RAISE variable_int_rev_loan_float;
526: END IF;
527:
528: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
529: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
530:
531: END IF; --sechawla
532:
525: RAISE variable_int_rev_loan_float;
526: END IF;
527:
528: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
529: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
530:
531: END IF; --sechawla
532:
533: EXCEPTION
531: END IF; --sechawla
532:
533: EXCEPTION
534: WHEN variable_int_rev_loan_float THEN
535: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception var_int_float_failed raised in procedure VARIABLE_INT_REV_LOAN_FLOAT');
536: x_return_status := OKL_API.G_RET_STS_ERROR;
537: WHEN OTHERS THEN
538: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure VARIABLE_INT_REV_LOAN_FLOAT');
539: Okl_Api.SET_MESSAGE(
534: WHEN variable_int_rev_loan_float THEN
535: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception var_int_float_failed raised in procedure VARIABLE_INT_REV_LOAN_FLOAT');
536: x_return_status := OKL_API.G_RET_STS_ERROR;
537: WHEN OTHERS THEN
538: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure VARIABLE_INT_REV_LOAN_FLOAT');
539: Okl_Api.SET_MESSAGE(
540: p_app_name => G_APP_NAME,
541: p_msg_name => G_UNEXPECTED_ERROR,
542: p_token1 => G_SQLCODE_TOKEN,
586: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
587: l_msg_index_out NUMBER;
588: l_principal_balance NUMBER := 0;
589: l_interest_calculated NUMBER := 0;
590: r_principal_balance_tbl OKL_VARIABLE_INTEREST_PVT.principal_balance_tbl_typ;
591: l_total_loan_pmt NUMBER := 0;
592: l_total_principal_pmt NUMBER := 0;
593: l_scheduled_prin_pmnt_amt NUMBER := 0;
594: l_invoice_id NUMBER;
594: l_invoice_id NUMBER;
595: l_invoice_amt NUMBER := 0;
596: l_interest_paid NUMBER := 0;
597: l_stream_type_purpose OKL_STRM_TYPE_V.stream_type_purpose%TYPE;
598: i_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
599: r_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
600: l_stream_element_id OKL_STRM_ELEMENTS_v.id%TYPE;
601: l_kle_id OKL_K_LINES.id%TYPE;
602: l_strm_element_date OKL_STRM_ELEMENTS.stream_element_date%TYPE;
595: l_invoice_amt NUMBER := 0;
596: l_interest_paid NUMBER := 0;
597: l_stream_type_purpose OKL_STRM_TYPE_V.stream_type_purpose%TYPE;
598: i_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
599: r_vir_tbl OKL_VARIABLE_INTEREST_PVT.vir_tbl_type;
600: l_stream_element_id OKL_STRM_ELEMENTS_v.id%TYPE;
601: l_kle_id OKL_K_LINES.id%TYPE;
602: l_strm_element_date OKL_STRM_ELEMENTS.stream_element_date%TYPE;
603: l_parent_strm_element_id OKL_STRM_ELEMENTS.id%TYPE;
638: CURSOR contract_line_csr (cp_khr_id NUMBER, cp_due_date DATE) IS
639: SELECT id
640: FROM okl_k_lines_full_v
641: WHERE chr_id = cp_khr_id
642: AND lse_id = OKL_VARIABLE_INTEREST_PVT.G_FIN_LINE_LTY_ID
643: AND nvl(date_terminated, cp_due_date + 1) > cp_due_date
644: ORDER BY id;
645:
646: CURSOR Principal_payment_streams_csr (cp_khr_id NUMBER, cp_kle_id NUMBER, cp_due_date DATE) IS
683: CURSOR l_assets_csr(p_contract_id NUMBER) IS
684: SELECT cle.id
685: FROM okc_k_lines_b cle,
686: okc_statuses_b sts
687: WHERE cle.lse_id = OKL_VARIABLE_INTEREST_PVT.G_FIN_LINE_LTY_ID
688: AND cle.dnz_chr_id = p_contract_id
689: AND cle.chr_id = p_contract_id
690: AND cle.sts_code = sts.code
691: AND sts.ste_code NOT IN ('TERMINATED', 'CANCELLED');
704: ------------------------------------------------------------
705: -- Start processing
706: ------------------------------------------------------------
707:
708: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INTEREST_LOAN_FLOAT using the foll. parameters:');
709: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
710: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
705: -- Start processing
706: ------------------------------------------------------------
707:
708: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INTEREST_LOAN_FLOAT using the foll. parameters:');
709: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
710: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
713: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
706: ------------------------------------------------------------
707:
708: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INTEREST_LOAN_FLOAT using the foll. parameters:');
709: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
710: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
713: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
714: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
707:
708: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INTEREST_LOAN_FLOAT using the foll. parameters:');
709: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
710: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
713: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
714: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
715: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
708: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INTEREST_LOAN_FLOAT using the foll. parameters:');
709: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
710: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
713: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
714: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
715: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
716:
709: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
710: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
713: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
714: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
715: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
716:
717: x_return_status := OKL_API.G_RET_STS_SUCCESS;
710: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
713: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
714: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
715: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
716:
717: x_return_status := OKL_API.G_RET_STS_SUCCESS;
718:
711: OKL_VARIABLE_INTEREST_PVT.print_debug('Revenue Recognition Method: '|| p_rev_rec_method);
712: OKL_VARIABLE_INTEREST_PVT.print_debug('Deal Type: '|| p_deal_type);
713: OKL_VARIABLE_INTEREST_PVT.Print_debug('Currency Code: '|| p_currency_code);
714: OKL_VARIABLE_INTEREST_PVT.print_debug('Start Date: '|| p_start_date);
715: OKL_VARIABLE_INTEREST_PVT.print_debug('Due Date: '|| p_due_date);
716:
717: x_return_status := OKL_API.G_RET_STS_SUCCESS;
718:
719: --Bug# 13447258: Variable Rate processing is not allowed for Float Loan contracts if
727: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
728: RAISE var_int_loan_float_failed;
729: END IF;
730:
731: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
732: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
733:
734: OKL_VARIABLE_INTEREST_PVT.populate_txns (p_api_version => p_api_version,
735: p_init_msg_list => p_init_msg_list,
728: RAISE var_int_loan_float_failed;
729: END IF;
730:
731: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
732: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
733:
734: OKL_VARIABLE_INTEREST_PVT.populate_txns (p_api_version => p_api_version,
735: p_init_msg_list => p_init_msg_list,
736: p_khr_id => p_contract_id,
730:
731: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
732: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
733:
734: OKL_VARIABLE_INTEREST_PVT.populate_txns (p_api_version => p_api_version,
735: p_init_msg_list => p_init_msg_list,
736: p_khr_id => p_contract_id,
737: p_from_date => p_start_date,
738: p_to_date => p_due_date,
740: x_msg_count => x_msg_count,
741: x_msg_data => x_msg_data);
742:
743: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
744: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_TXNS');
745: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
747: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_TXNS');
748: RAISE var_int_loan_float_failed;
743: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
744: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_TXNS');
745: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
746: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
747: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_TXNS');
748: RAISE var_int_loan_float_failed;
749: END IF;
750:
751: --Added by bkatraga for bug 13447258
759: RAISE OKL_API.G_EXCEPTION_ERROR;
760: END IF;
761:
762: --Bug# 14165508
763: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
764:
765: l_payment_tbl := get_conversion_factor(p_khr_id => p_contract_id,
766: p_start_date => p_start_date,
767: p_due_date => p_due_date);
769: --Bug# 14165508
770:
771: FOR l_asset_rec in l_assets_csr(p_contract_id)
772: LOOP
773: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
774: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
775: --end bkatraga
776:
777: --Bug# 14165508
770:
771: FOR l_asset_rec in l_assets_csr(p_contract_id)
772: LOOP
773: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl.delete;
774: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
775: --end bkatraga
776:
777: --Bug# 14165508
778: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
774: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl_counter := 0;
775: --end bkatraga
776:
777: --Bug# 14165508
778: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
779:
780: l_interest_calculated := 0;
781: OKL_VARIABLE_INTEREST_PVT.print_debug('l_payment_tbl COUNT '|| l_payment_tbl.COUNT);
782: IF (l_payment_tbl.COUNT > 0) THEN
777: --Bug# 14165508
778: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
779:
780: l_interest_calculated := 0;
781: OKL_VARIABLE_INTEREST_PVT.print_debug('l_payment_tbl COUNT '|| l_payment_tbl.COUNT);
782: IF (l_payment_tbl.COUNT > 0) THEN
783: FOR i IN l_payment_tbl.FIRST..l_payment_tbl.LAST LOOP
784:
785: --Added parameter p_line_id by bkatraga for bug 13447258
782: IF (l_payment_tbl.COUNT > 0) THEN
783: FOR i IN l_payment_tbl.FIRST..l_payment_tbl.LAST LOOP
784:
785: --Added parameter p_line_id by bkatraga for bug 13447258
786: l_interest := OKL_VARIABLE_INTEREST_PVT.calculate_total_interest_due(
787: p_api_version => 1.0,
788: p_init_msg_list => OKL_API.G_FALSE,
789: x_return_status => x_return_status,
790: x_msg_count => x_msg_count,
795: p_due_date => l_payment_tbl(i).period_end_date,
796: p_line_id => l_asset_rec.id,
797: p_conversion_factor => l_payment_tbl(i).conversion_factor);
798: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
799: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
800: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
802: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
803: RAISE var_int_loan_float_failed;
798: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
799: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
800: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
802: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
803: RAISE var_int_loan_float_failed;
804: END IF;
805:
806: l_interest_calculated := l_interest_calculated + NVL(l_interest,0);
808: END IF;
809: ELSE
810:
811: --Added parameter p_line_id by bkatraga for bug 13447258
812: l_interest_calculated := OKL_VARIABLE_INTEREST_PVT.calculate_total_interest_due(
813: p_api_version => 1.0,
814: p_init_msg_list => OKL_API.G_FALSE,
815: x_return_status => x_return_status,
816: x_msg_count => x_msg_count,
820: p_start_date => p_start_date,
821: p_due_date => p_due_date,
822: p_line_id => l_asset_rec.id);
823: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
824: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
825: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
827: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
828: RAISE var_int_loan_float_failed;
823: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
824: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
825: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
826: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
827: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
828: RAISE var_int_loan_float_failed;
829: END IF;
830:
831: END IF;
854: END IF;
855:
856: CLOSE interest_payment_amount_csr;
857:
858: OKL_VARIABLE_INTEREST_PVT.Print_debug ('Total Interest Payment = '|| l_interest_paid);
859:
860: l_invoice_amt := l_interest_calculated - l_interest_paid;
861:
862: ELSE /* Estimated and Billed */
873: CLOSE loan_payment_amount_csr;
874:
875: --Bug# 13001695
876:
877: OKL_VARIABLE_INTEREST_PVT.Print_debug ('Total Interest Payment = '|| l_interest_paid);
878:
879: l_invoice_amt := l_interest_calculated - l_interest_paid;
880:
881: END IF;
883: l_invoice_amt := l_interest_calculated;
884: END IF;
885:
886: --sechawla : print the invoice amount
887: OKL_VARIABLE_INTEREST_PVT.Print_debug ('Invoice Amount : '|| l_invoice_amt);
888:
889: IF (p_rev_rec_method = 'ACTUAL') THEN
890: l_stream_type_purpose := 'VARIABLE_LOAN_PAYMENT';
891: ELSE
911: x_invoice_id => l_invoice_id,
912: x_stream_element_id => l_stream_element_id);
913:
914: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
915: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
916: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
918: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
919: RAISE var_int_loan_float_failed;
914: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
915: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
916: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
918: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
919: RAISE var_int_loan_float_failed;
920: END IF;
921: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
922:
917: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
918: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
919: RAISE var_int_loan_float_failed;
920: END IF;
921: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
922:
923: --checkwhat does it do
924: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
925: p_api_version => 1.0,
920: END IF;
921: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
922:
923: --checkwhat does it do
924: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
925: p_api_version => 1.0,
926: p_init_msg_list => OKL_API.G_TRUE,
927: x_return_status => x_return_status,
928: x_msg_count => x_msg_count,
930: p_source_id => l_invoice_id,
931: p_vir_tbl => i_vir_tbl,
932: x_vir_tbl => r_vir_tbl);
933: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
934: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
935: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
937: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
938: RAISE var_int_loan_float_failed;
933: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
934: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
935: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
937: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
938: RAISE var_int_loan_float_failed;
939: END IF;
940:
941: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
937: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
938: RAISE var_int_loan_float_failed;
939: END IF;
940:
941: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
942:
943: OKL_VR_DATA_HANDLER_PVT.INSERT_VIR_PARAMS(
944: p_api_version => 1.0,
945: p_init_msg_list => OKL_API.G_TRUE,
945: p_init_msg_list => OKL_API.G_TRUE,
946: x_return_status => x_return_status,
947: x_msg_count => x_msg_count,
948: x_msg_data => x_msg_data,
949: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
950: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
951: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
952: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
947: x_msg_count => x_msg_count,
948: x_msg_data => x_msg_data,
949: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
950: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
951: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
952: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
954: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_VIR_PARAMS');
955: RAISE var_int_loan_float_failed;
950: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
951: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
952: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
954: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_VIR_PARAMS');
955: RAISE var_int_loan_float_failed;
956: END IF;
957:
958: END IF; --sechawla
964: p_init_msg_list => p_init_msg_list,
965: x_return_status => x_return_status,
966: x_msg_count => x_msg_count,
967: x_msg_data => x_msg_data,
968: p_vpb_tbl => OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl);
969:
970: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
971: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_PRINCIPAL_BAL_TXN');
972: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
967: x_msg_data => x_msg_data,
968: p_vpb_tbl => OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl);
969:
970: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
971: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_PRINCIPAL_BAL_TXN');
972: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
974: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_PRINCIPAL_BAL_TXN');
975: RAISE var_int_loan_float_failed;
970: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
971: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_PRINCIPAL_BAL_TXN');
972: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
974: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_PRINCIPAL_BAL_TXN');
975: RAISE var_int_loan_float_failed;
976: END IF;
977:
978: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
974: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_PRINCIPAL_BAL_TXN');
975: RAISE var_int_loan_float_failed;
976: END IF;
977:
978: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
979: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
980: --end bkatraga
981:
982: --4731205
975: RAISE var_int_loan_float_failed;
976: END IF;
977:
978: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
979: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl_counter := 0;
980: --end bkatraga
981:
982: --4731205
983: IF (p_principal_basis = 'ACTUAL' AND p_rev_rec_method = 'ACTUAL') THEN
998: l_strm_element_date := current_stream_element.stream_element_date;
999: l_parent_strm_element_id := current_stream_element.id;
1000:
1001: --sechawla : print the invoice amount
1002: OKL_VARIABLE_INTEREST_PVT.Print_debug ('Invoice Amount : '|| l_invoice_amt);
1003:
1004: IF (l_invoice_amt <> 0 )THEN --sechawla : added
1005: OKL_VR_DOCUMENT_PVT.create_stream_invoice (
1006: p_api_version => 1.0,
1017: p_parent_strm_element_id => l_parent_strm_element_id,
1018: x_invoice_id => l_invoice_id,
1019: x_stream_element_id => l_stream_element_id);
1020: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1021: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
1022: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1023: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1024: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
1025: RAISE var_int_loan_float_failed;
1020: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1021: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
1022: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1023: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1024: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
1025: RAISE var_int_loan_float_failed;
1026: END IF;
1027:
1028: END IF; --sechawla
1031: END IF;
1032:
1033: EXCEPTION
1034: WHEN var_int_loan_float_failed THEN
1035: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception var_int_loan_float_failed raised in procedure VARIABLE_INTEREST_LOAN_FLOAT');
1036: x_return_status := OKL_API.G_RET_STS_ERROR;
1037: WHEN OTHERS THEN
1038: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure VARIABLE_INTEREST_LOAN_FLOAT');
1039: Okl_Api.SET_MESSAGE(
1034: WHEN var_int_loan_float_failed THEN
1035: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception var_int_loan_float_failed raised in procedure VARIABLE_INTEREST_LOAN_FLOAT');
1036: x_return_status := OKL_API.G_RET_STS_ERROR;
1037: WHEN OTHERS THEN
1038: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure VARIABLE_INTEREST_LOAN_FLOAT');
1039: Okl_Api.SET_MESSAGE(
1040: p_app_name => G_APP_NAME,
1041: p_msg_name => G_UNEXPECTED_ERROR,
1042: p_token1 => G_SQLCODE_TOKEN,
1101:
1102: BEGIN
1103:
1104: --Bug# 13026821
1105: OPEN l_varint_sll_csr(OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID);
1106: FETCH l_varint_sll_csr into l_arrears_yn;
1107: CLOSE l_varint_sll_csr;
1108:
1109: OKL_VARIABLE_INTEREST_PVT.print_debug('Arrears Option for Variable Interest Schedule: '|| l_arrears_yn);
1105: OPEN l_varint_sll_csr(OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID);
1106: FETCH l_varint_sll_csr into l_arrears_yn;
1107: CLOSE l_varint_sll_csr;
1108:
1109: OKL_VARIABLE_INTEREST_PVT.print_debug('Arrears Option for Variable Interest Schedule: '|| l_arrears_yn);
1110:
1111: IF l_arrears_yn = 'Y' THEN
1112: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing OKL_ISG_UTILS_PVT.get_arrears_pay_dates_option');
1113:
1108:
1109: OKL_VARIABLE_INTEREST_PVT.print_debug('Arrears Option for Variable Interest Schedule: '|| l_arrears_yn);
1110:
1111: IF l_arrears_yn = 'Y' THEN
1112: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing OKL_ISG_UTILS_PVT.get_arrears_pay_dates_option');
1113:
1114: OKL_ISG_UTILS_PVT.get_arrears_pay_dates_option(
1115: p_khr_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1116: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
1111: IF l_arrears_yn = 'Y' THEN
1112: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing OKL_ISG_UTILS_PVT.get_arrears_pay_dates_option');
1113:
1114: OKL_ISG_UTILS_PVT.get_arrears_pay_dates_option(
1115: p_khr_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1116: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
1117: x_return_status => x_return_status);
1118:
1119: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1121: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1122: RAISE OKL_API.G_EXCEPTION_ERROR;
1123: END IF;
1124:
1125: OKL_VARIABLE_INTEREST_PVT.print_debug('Internal Arrears Pay Date Option : '|| l_arrears_pay_dates_option);
1126: END IF;
1127: --Bug# 13026821
1128:
1129: l_end_of_process := FALSE;
1128:
1129: l_end_of_process := FALSE;
1130: l_calculate_from_khr_start := 'Y';
1131:
1132: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract Id: '||OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID);
1133: OKL_VARIABLE_INTEREST_PVT.print_debug ('To Date: '||p_to_date);
1134:
1135: l_end_of_process := FALSE;
1136: l_bill_date := null;
1129: l_end_of_process := FALSE;
1130: l_calculate_from_khr_start := 'Y';
1131:
1132: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract Id: '||OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID);
1133: OKL_VARIABLE_INTEREST_PVT.print_debug ('To Date: '||p_to_date);
1134:
1135: l_end_of_process := FALSE;
1136: l_bill_date := null;
1137: l_due_date := null;
1135: l_end_of_process := FALSE;
1136: l_bill_date := null;
1137: l_due_date := null;
1138: LOOP
1139: IF ((OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE = 'LOAN' or OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE ='LOAN-REVOLVING') AND
1140: ( NOT(l_end_of_process))) THEN
1141:
1142: --Removed and clause in IF condition by bkatraga for bug 14639377
1143: --Bug# 13026821
1150: END IF;
1151: --Bug# 13026821
1152:
1153: ELSE
1154: l_stm_date := OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE;
1155:
1156: --Bug# 14696586
1157: IF (l_arrears_yn = 'Y' AND l_arrears_pay_dates_option = 'LAST_DAY_OF_PERIOD') THEN
1158: l_stm_date := l_stm_date - 1;
1160: --Bug# 14696586
1161:
1162: END IF;
1163:
1164: OKL_VARIABLE_INTEREST_PVT.print_debug('Stream Start Date: '||l_stm_date);
1165:
1166: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing OKL_STREAM_GENERATOR_PVT.get_next_billing_date ');
1167: OKL_VARIABLE_INTEREST_PVT.print_debug('Billing Date : '|| nvl(l_stm_date, OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE) );
1168:
1162: END IF;
1163:
1164: OKL_VARIABLE_INTEREST_PVT.print_debug('Stream Start Date: '||l_stm_date);
1165:
1166: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing OKL_STREAM_GENERATOR_PVT.get_next_billing_date ');
1167: OKL_VARIABLE_INTEREST_PVT.print_debug('Billing Date : '|| nvl(l_stm_date, OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE) );
1168:
1169: OKL_STREAM_GENERATOR_PVT.get_next_billing_date(
1170: p_api_version => p_api_version,
1163:
1164: OKL_VARIABLE_INTEREST_PVT.print_debug('Stream Start Date: '||l_stm_date);
1165:
1166: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing OKL_STREAM_GENERATOR_PVT.get_next_billing_date ');
1167: OKL_VARIABLE_INTEREST_PVT.print_debug('Billing Date : '|| nvl(l_stm_date, OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE) );
1168:
1169: OKL_STREAM_GENERATOR_PVT.get_next_billing_date(
1170: p_api_version => p_api_version,
1171: p_init_msg_list => p_init_msg_list,
1168:
1169: OKL_STREAM_GENERATOR_PVT.get_next_billing_date(
1170: p_api_version => p_api_version,
1171: p_init_msg_list => p_init_msg_list,
1172: p_khr_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1173: --Bug# 13026821
1174: p_billing_date => nvl(l_stm_date, OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE),
1175: x_next_due_date => l_due_date,
1176: x_next_period_start_date => l_period_start_date,
1170: p_api_version => p_api_version,
1171: p_init_msg_list => p_init_msg_list,
1172: p_khr_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1173: --Bug# 13026821
1174: p_billing_date => nvl(l_stm_date, OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE),
1175: x_next_due_date => l_due_date,
1176: x_next_period_start_date => l_period_start_date,
1177: x_next_period_end_date => l_period_end_date,
1178: x_return_status => x_return_status,
1179: x_msg_count => x_msg_count,
1180: x_msg_data => x_msg_data);
1181:
1182: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to OKL_STREAM_GENERATOR_PVT.get_next_billing_date');
1184: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1186: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to OKL_STREAM_GENERATOR_PVT.get_next_billing_date');
1187: RAISE process_int_float_failed;
1182: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1183: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to OKL_STREAM_GENERATOR_PVT.get_next_billing_date');
1184: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1186: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to OKL_STREAM_GENERATOR_PVT.get_next_billing_date');
1187: RAISE process_int_float_failed;
1188: END IF;
1189:
1190: --Bug# 13026821
1192:
1193: IF (l_arrears_yn = 'Y' AND l_arrears_pay_dates_option = 'FIRST_DAY_OF_NEXT_PERIOD') THEN
1194: l_due_date := l_due_date - 1;
1195:
1196: IF l_period_start_date > OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE THEN
1197: l_period_start_date := l_period_start_date - 1;
1198: END IF;
1199: l_period_end_date := l_period_end_date - 1;
1200: END IF;
1199: l_period_end_date := l_period_end_date - 1;
1200: END IF;
1201: --Bug# 13026821
1202:
1203: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Due Date : '|| l_due_date );
1204: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period Start Date : '|| l_period_start_date );
1205: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period End Date : ' || l_period_end_date );
1206: OKL_VARIABLE_INTEREST_PVT.print_debug(' Last Interest calculation date : '|| p_last_interest_cal_date);
1207:
1200: END IF;
1201: --Bug# 13026821
1202:
1203: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Due Date : '|| l_due_date );
1204: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period Start Date : '|| l_period_start_date );
1205: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period End Date : ' || l_period_end_date );
1206: OKL_VARIABLE_INTEREST_PVT.print_debug(' Last Interest calculation date : '|| p_last_interest_cal_date);
1207:
1208: END IF;
1201: --Bug# 13026821
1202:
1203: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Due Date : '|| l_due_date );
1204: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period Start Date : '|| l_period_start_date );
1205: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period End Date : ' || l_period_end_date );
1206: OKL_VARIABLE_INTEREST_PVT.print_debug(' Last Interest calculation date : '|| p_last_interest_cal_date);
1207:
1208: END IF;
1209:
1202:
1203: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Due Date : '|| l_due_date );
1204: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period Start Date : '|| l_period_start_date );
1205: OKL_VARIABLE_INTEREST_PVT.print_debug(' Next Period End Date : ' || l_period_end_date );
1206: OKL_VARIABLE_INTEREST_PVT.print_debug(' Last Interest calculation date : '|| p_last_interest_cal_date);
1207:
1208: END IF;
1209:
1210: IF (trunc(l_due_date) = p_last_interest_cal_date OR
1214: trunc(l_invoice_date) > trunc(p_to_date)+ NVL(p_print_lead_days,0)) THEN
1215: l_end_of_process := TRUE;
1216: END IF;
1217:
1218: OKL_VARIABLE_INTEREST_PVT.print_debug('Stream Element Date: '||l_due_date);
1219:
1220: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1221: ----------------------------------------------------
1222: -- Create new transaction header for every
1221: ----------------------------------------------------
1222: -- Create new transaction header for every
1223: -- contract and bill_date combination
1224: ----------------------------------------------------
1225: OKL_VARIABLE_INTEREST_PVT.print_debug('Bill Date: '||l_due_date);
1226:
1227: IF NOT(l_end_of_process) THEN
1228: ------------------------------------------------------------
1229: OKL_VARIABLE_INTEREST_PVT.print_debug ('Executing procedure variable_interest_float');
1225: OKL_VARIABLE_INTEREST_PVT.print_debug('Bill Date: '||l_due_date);
1226:
1227: IF NOT(l_end_of_process) THEN
1228: ------------------------------------------------------------
1229: OKL_VARIABLE_INTEREST_PVT.print_debug ('Executing procedure variable_interest_float');
1230: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract ID : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID );
1231: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Principal Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE);
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1226:
1227: IF NOT(l_end_of_process) THEN
1228: ------------------------------------------------------------
1229: OKL_VARIABLE_INTEREST_PVT.print_debug ('Executing procedure variable_interest_float');
1230: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract ID : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID );
1231: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Principal Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE);
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1227: IF NOT(l_end_of_process) THEN
1228: ------------------------------------------------------------
1229: OKL_VARIABLE_INTEREST_PVT.print_debug ('Executing procedure variable_interest_float');
1230: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract ID : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID );
1231: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Principal Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE);
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1228: ------------------------------------------------------------
1229: OKL_VARIABLE_INTEREST_PVT.print_debug ('Executing procedure variable_interest_float');
1230: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract ID : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID );
1231: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Principal Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE);
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1236: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Start Date : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE );
1229: OKL_VARIABLE_INTEREST_PVT.print_debug ('Executing procedure variable_interest_float');
1230: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract ID : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID );
1231: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Principal Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE);
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1236: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Start Date : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE );
1237: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Period Start Date : '|| l_period_start_date );
1230: OKL_VARIABLE_INTEREST_PVT.print_debug ('Contract ID : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID );
1231: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Principal Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE);
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1236: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Start Date : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE );
1237: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Period Start Date : '|| l_period_start_date );
1238: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Due Date : '|| l_due_date);
1231: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Principal Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE);
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1236: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Start Date : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE );
1237: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Period Start Date : '|| l_period_start_date );
1238: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Due Date : '|| l_due_date);
1239:
1232: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Revenue Recognition Method : '|| OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD );
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1236: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Start Date : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE );
1237: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Period Start Date : '|| l_period_start_date );
1238: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Due Date : '|| l_due_date);
1239:
1240: -- BUG 4748287
1233: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Calculation Basis : '|| OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS );
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1236: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Start Date : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE );
1237: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Period Start Date : '|| l_period_start_date );
1238: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Due Date : '|| l_due_date);
1239:
1240: -- BUG 4748287
1241: IF (OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE = 'SCHEDULED') THEN
1234: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Deal Type : '|| OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE);
1235: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Currency Code : '|| OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE );
1236: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Start Date : '|| OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE );
1237: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Period Start Date : '|| l_period_start_date );
1238: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Due Date : '|| l_due_date);
1239:
1240: -- BUG 4748287
1241: IF (OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE = 'SCHEDULED') THEN
1242: l_int_cal_start_date := l_period_start_date;
1237: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Period Start Date : '|| l_period_start_date );
1238: OKL_VARIABLE_INTEREST_PVT.print_debug( 'Due Date : '|| l_due_date);
1239:
1240: -- BUG 4748287
1241: IF (OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE = 'SCHEDULED') THEN
1242: l_int_cal_start_date := l_period_start_date;
1243: ELSE
1244: l_calculate_from_khr_start := OKL_VARIABLE_INTEREST_PVT.calculate_from_khr_start_date(p_khr_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1245: p_from_date => l_period_start_date);
1240: -- BUG 4748287
1241: IF (OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE = 'SCHEDULED') THEN
1242: l_int_cal_start_date := l_period_start_date;
1243: ELSE
1244: l_calculate_from_khr_start := OKL_VARIABLE_INTEREST_PVT.calculate_from_khr_start_date(p_khr_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1245: p_from_date => l_period_start_date);
1246:
1247: IF (l_calculate_from_khr_start = 'Y') THEN
1248: l_int_cal_start_date := OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE;
1244: l_calculate_from_khr_start := OKL_VARIABLE_INTEREST_PVT.calculate_from_khr_start_date(p_khr_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1245: p_from_date => l_period_start_date);
1246:
1247: IF (l_calculate_from_khr_start = 'Y') THEN
1248: l_int_cal_start_date := OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE;
1249: OKL_VARIABLE_INTEREST_PVT.print_debug('Float interest calculation will start from contract start date : ' || l_int_cal_start_date);
1250: ELSE
1251: l_int_cal_start_date := l_period_start_date;
1252: OKL_VARIABLE_INTEREST_PVT.print_debug('Float interest calculation will start from billing period start date : ' || l_int_cal_start_date);
1245: p_from_date => l_period_start_date);
1246:
1247: IF (l_calculate_from_khr_start = 'Y') THEN
1248: l_int_cal_start_date := OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE;
1249: OKL_VARIABLE_INTEREST_PVT.print_debug('Float interest calculation will start from contract start date : ' || l_int_cal_start_date);
1250: ELSE
1251: l_int_cal_start_date := l_period_start_date;
1252: OKL_VARIABLE_INTEREST_PVT.print_debug('Float interest calculation will start from billing period start date : ' || l_int_cal_start_date);
1253: END IF;
1248: l_int_cal_start_date := OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_START_DATE;
1249: OKL_VARIABLE_INTEREST_PVT.print_debug('Float interest calculation will start from contract start date : ' || l_int_cal_start_date);
1250: ELSE
1251: l_int_cal_start_date := l_period_start_date;
1252: OKL_VARIABLE_INTEREST_PVT.print_debug('Float interest calculation will start from billing period start date : ' || l_int_cal_start_date);
1253: END IF;
1254: END IF;
1255:
1256: IF (OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE = 'LOAN') THEN
1252: OKL_VARIABLE_INTEREST_PVT.print_debug('Float interest calculation will start from billing period start date : ' || l_int_cal_start_date);
1253: END IF;
1254: END IF;
1255:
1256: IF (OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE = 'LOAN') THEN
1257: variable_interest_loan_float(
1258: p_api_version => 1.0,
1259: p_init_msg_list => OKL_API.G_TRUE,
1260: x_return_status => x_return_status,
1259: p_init_msg_list => OKL_API.G_TRUE,
1260: x_return_status => x_return_status,
1261: x_msg_count => x_msg_count,
1262: x_msg_data => x_msg_data,
1263: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1264: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1265: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1266: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1267: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1260: x_return_status => x_return_status,
1261: x_msg_count => x_msg_count,
1262: x_msg_data => x_msg_data,
1263: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1264: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1265: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1266: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1267: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1268: p_start_date => l_int_cal_start_date,
1261: x_msg_count => x_msg_count,
1262: x_msg_data => x_msg_data,
1263: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1264: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1265: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1266: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1267: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1268: p_start_date => l_int_cal_start_date,
1269: p_due_date => l_due_date,
1262: x_msg_data => x_msg_data,
1263: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1264: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1265: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1266: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1267: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1268: p_start_date => l_int_cal_start_date,
1269: p_due_date => l_due_date,
1270: --Bug# 13026821
1263: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1264: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1265: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1266: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1267: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1268: p_start_date => l_int_cal_start_date,
1269: p_due_date => l_due_date,
1270: --Bug# 13026821
1271: p_invoice_date => l_invoice_date);
1269: p_due_date => l_due_date,
1270: --Bug# 13026821
1271: p_invoice_date => l_invoice_date);
1272: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1273: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to VARIABLE_INTEREST_LOAN_FLOAT');
1274: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1275: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1276: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INTEREST_LOAN_FLOAT');
1277: RAISE process_int_float_failed;
1272: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1273: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to VARIABLE_INTEREST_LOAN_FLOAT');
1274: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1275: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1276: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INTEREST_LOAN_FLOAT');
1277: RAISE process_int_float_failed;
1278: END IF;
1279: ELSIF (OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE = 'LOAN-REVOLVING') THEN
1280: variable_int_rev_loan_float(
1275: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1276: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INTEREST_LOAN_FLOAT');
1277: RAISE process_int_float_failed;
1278: END IF;
1279: ELSIF (OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE = 'LOAN-REVOLVING') THEN
1280: variable_int_rev_loan_float(
1281: p_api_version => 1.0,
1282: p_init_msg_list => OKL_API.G_TRUE,
1283: x_return_status => x_return_status,
1282: p_init_msg_list => OKL_API.G_TRUE,
1283: x_return_status => x_return_status,
1284: x_msg_count => x_msg_count,
1285: x_msg_data => x_msg_data,
1286: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1287: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1288: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1289: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1290: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1283: x_return_status => x_return_status,
1284: x_msg_count => x_msg_count,
1285: x_msg_data => x_msg_data,
1286: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1287: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1288: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1289: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1290: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1291: p_start_date => l_int_cal_start_date,
1284: x_msg_count => x_msg_count,
1285: x_msg_data => x_msg_data,
1286: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1287: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1288: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1289: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1290: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1291: p_start_date => l_int_cal_start_date,
1292: p_due_date => l_due_date,
1285: x_msg_data => x_msg_data,
1286: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1287: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1288: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1289: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1290: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1291: p_start_date => l_int_cal_start_date,
1292: p_due_date => l_due_date,
1293: --Bug# 13026821
1286: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1287: p_principal_basis => OKL_VARIABLE_INTEREST_PVT.G_PRINCIPAL_BASIS_CODE,
1288: p_rev_rec_method => OKL_VARIABLE_INTEREST_PVT.G_REVENUE_RECOGNITION_METHOD,
1289: p_deal_type => OKL_VARIABLE_INTEREST_PVT.G_DEAL_TYPE,
1290: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1291: p_start_date => l_int_cal_start_date,
1292: p_due_date => l_due_date,
1293: --Bug# 13026821
1294: p_invoice_date => l_invoice_date);
1292: p_due_date => l_due_date,
1293: --Bug# 13026821
1294: p_invoice_date => l_invoice_date);
1295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1296: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to VARIABLE_INT_REV_LOAN_FLOAT');
1297: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1298: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1299: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INT_REV_LOAN_FLOAT');
1300: RAISE process_int_float_failed;
1295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1296: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to VARIABLE_INT_REV_LOAN_FLOAT');
1297: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1298: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1299: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INT_REV_LOAN_FLOAT');
1300: RAISE process_int_float_failed;
1301: END IF;
1302: END IF;
1303:
1300: RAISE process_int_float_failed;
1301: END IF;
1302: END IF;
1303:
1304: OKL_VARIABLE_INTEREST_PVT.print_debug ('Variable interest Calculation completed successfully for Billing period : '|| l_due_date);
1305: ELSE
1306: EXIT;
1307: END IF;
1308:
1313: p_init_msg_list => OKL_API.G_TRUE,
1314: x_return_status => x_return_status,
1315: x_msg_count => x_msg_count,
1316: x_msg_data => x_msg_data,
1317: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1318: p_last_interest_cal_date => l_due_date);
1319: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1320: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPDATE_LAST_INT_CAL_DATE');
1321: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1316: x_msg_data => x_msg_data,
1317: p_contract_id => OKL_VARIABLE_INTEREST_PVT.G_CONTRACT_ID,
1318: p_last_interest_cal_date => l_due_date);
1319: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1320: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPDATE_LAST_INT_CAL_DATE');
1321: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1322: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1323: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPDATE_LAST_INT_CAL_DATE');
1324: RAISE process_int_float_failed;
1319: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1320: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPDATE_LAST_INT_CAL_DATE');
1321: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1322: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1323: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPDATE_LAST_INT_CAL_DATE');
1324: RAISE process_int_float_failed;
1325: END IF;
1326:
1327: p_last_interest_cal_date := l_due_date;
1327: p_last_interest_cal_date := l_due_date;
1328:
1329: COMMIT;
1330:
1331: OKL_VARIABLE_INTEREST_PVT.Print_debug('Processing complete for due date : '|| l_due_date);
1332: END LOOP;
1333:
1334: EXCEPTION
1335: WHEN process_int_float_failed THEN
1332: END LOOP;
1333:
1334: EXCEPTION
1335: WHEN process_int_float_failed THEN
1336: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception process_int_float_failed raised in procedure PROCESS_INTEREST_FLOAT');
1337: x_return_status := OKL_API.G_RET_STS_ERROR;
1338: WHEN OTHERS THEN
1339: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure PROCESS_INTEREST_FLOAT');
1340: Okl_Api.SET_MESSAGE(
1335: WHEN process_int_float_failed THEN
1336: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception process_int_float_failed raised in procedure PROCESS_INTEREST_FLOAT');
1337: x_return_status := OKL_API.G_RET_STS_ERROR;
1338: WHEN OTHERS THEN
1339: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure PROCESS_INTEREST_FLOAT');
1340: Okl_Api.SET_MESSAGE(
1341: p_app_name => G_APP_NAME,
1342: p_msg_name => G_UNEXPECTED_ERROR,
1343: p_token1 => G_SQLCODE_TOKEN,