134: l_api_version CONSTANT NUMBER := 1;
135: l_api_name CONSTANT VARCHAR2(30) := 'get_payment_summary';
136:
137: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_payment_summary';
138: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
139: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
140: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
141: BEGIN
142:
135: l_api_name CONSTANT VARCHAR2(30) := 'get_payment_summary';
136:
137: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_payment_summary';
138: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
139: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
140: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
141: BEGIN
142:
143: IF (is_debug_procedure_on) THEN
136:
137: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_payment_summary';
138: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
139: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
140: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
141: BEGIN
142:
143: IF (is_debug_procedure_on) THEN
144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
140: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
141: BEGIN
142:
143: IF (is_debug_procedure_on) THEN
144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
145: END IF;
146:
147: --Print Input Variables
148: IF (is_debug_statement_on) THEN
145: END IF;
146:
147: --Print Input Variables
148: IF (is_debug_statement_on) THEN
149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
150: 'p_qte_id :'||p_qte_id);
151:
152: END IF;
153:
206:
207: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
208:
209: IF (is_debug_procedure_on) THEN
210: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
211: END IF;
212:
213: EXCEPTION
214: WHEN OKL_API.G_EXCEPTION_ERROR THEN
212:
213: EXCEPTION
214: WHEN OKL_API.G_EXCEPTION_ERROR THEN
215: IF (is_debug_exception_on) THEN
216: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
217: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
218: END IF;
219:
220: IF l_pymtsummary_csr%ISOPEN THEN
222: END IF;
223: x_return_status := OKL_API.G_RET_STS_ERROR;
224: WHEN OTHERS THEN
225: IF (is_debug_exception_on) THEN
226: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
227: 'EXCEPTION :'||sqlerrm);
228: END IF;
229: -- Close open cursors
230:
327: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
328: l_dummy VARCHAR2(1);
329:
330: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flow_object';
331: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
332: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
333: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
334: BEGIN
335:
328: l_dummy VARCHAR2(1);
329:
330: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flow_object';
331: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
332: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
333: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
334: BEGIN
335:
336: IF (is_debug_procedure_on) THEN
329:
330: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flow_object';
331: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
332: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
333: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
334: BEGIN
335:
336: IF (is_debug_procedure_on) THEN
337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
333: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
334: BEGIN
335:
336: IF (is_debug_procedure_on) THEN
337: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
338: END IF;
339:
340: --Print Input Variables
341: IF (is_debug_statement_on) THEN
338: END IF;
339:
340: --Print Input Variables
341: IF (is_debug_statement_on) THEN
342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
343: 'p_obj_type_code :'||p_obj_type_code);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
345: 'p_src_table :'||p_src_table);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
340: --Print Input Variables
341: IF (is_debug_statement_on) THEN
342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
343: 'p_obj_type_code :'||p_obj_type_code);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
345: 'p_src_table :'||p_src_table);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
347: 'p_src_id :'||p_src_id);
348: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
343: 'p_obj_type_code :'||p_obj_type_code);
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
345: 'p_src_table :'||p_src_table);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
347: 'p_src_id :'||p_src_id);
348: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
349: 'p_base_src_id :'||p_base_src_id);
350: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
344: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
345: 'p_src_table :'||p_src_table);
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
347: 'p_src_id :'||p_src_id);
348: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
349: 'p_base_src_id :'||p_base_src_id);
350: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
351: 'p_sts_code :'||p_sts_code);
352: END IF;
346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
347: 'p_src_id :'||p_src_id);
348: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
349: 'p_base_src_id :'||p_base_src_id);
350: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
351: 'p_sts_code :'||p_sts_code);
352: END IF;
353:
354: -- Check if Object already exists
386:
387: x_return_status := l_return_status;
388:
389: IF (is_debug_procedure_on) THEN
390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'end(-)');
391: END IF;
392:
393: EXCEPTION
394: WHEN OKL_API.G_EXCEPTION_ERROR THEN
393: EXCEPTION
394: WHEN OKL_API.G_EXCEPTION_ERROR THEN
395:
396: IF (is_debug_exception_on) THEN
397: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
398: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
399: END IF;
400:
401: IF l_cash_flow_objects_csr%ISOPEN THEN
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
406:
407: IF (is_debug_exception_on) THEN
408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
409: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
410: END IF;
411:
412: IF l_cash_flow_objects_csr%ISOPEN THEN
415: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
416: WHEN OTHERS THEN
417:
418: IF (is_debug_exception_on) THEN
419: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
420: 'EXCEPTION :'||sqlerrm);
421: END IF;
422:
423: IF l_cash_flow_objects_csr%ISOPEN THEN
511: l_amount NUMBER;
512: l_stub_amount NUMBER;
513:
514: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flows';
515: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
516: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
517: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
518: BEGIN
519:
512: l_stub_amount NUMBER;
513:
514: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flows';
515: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
516: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
517: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
518: BEGIN
519:
520: IF (is_debug_procedure_on) THEN
513:
514: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_cash_flows';
515: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
516: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
517: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
518: BEGIN
519:
520: IF (is_debug_procedure_on) THEN
521: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
517: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
518: BEGIN
519:
520: IF (is_debug_procedure_on) THEN
521: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
522: END IF;
523:
524: --Print Input Variables
525: IF (is_debug_statement_on) THEN
522: END IF;
523:
524: --Print Input Variables
525: IF (is_debug_statement_on) THEN
526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
527: 'p_cashflow_rec.p_cfo_id :'||p_cashflow_rec.p_cfo_id);
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
529: 'p_cashflow_rec.p_sts_code :'||p_cashflow_rec.p_sts_code);
530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
524: --Print Input Variables
525: IF (is_debug_statement_on) THEN
526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
527: 'p_cashflow_rec.p_cfo_id :'||p_cashflow_rec.p_cfo_id);
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
529: 'p_cashflow_rec.p_sts_code :'||p_cashflow_rec.p_sts_code);
530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
531: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
526: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
527: 'p_cashflow_rec.p_cfo_id :'||p_cashflow_rec.p_cfo_id);
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
529: 'p_cashflow_rec.p_sts_code :'||p_cashflow_rec.p_sts_code);
530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
531: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
533: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
529: 'p_cashflow_rec.p_sts_code :'||p_cashflow_rec.p_sts_code);
530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
531: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
533: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
535: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
530: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
531: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
533: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
535: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
537: 'p_cashflow_rec.p_due_arrears_yn :'||p_cashflow_rec.p_due_arrears_yn);
538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
533: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
535: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
537: 'p_cashflow_rec.p_due_arrears_yn :'||p_cashflow_rec.p_due_arrears_yn);
538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
539: 'p_cashflow_rec.p_start_date :'||p_cashflow_rec.p_start_date);
540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
535: 'p_cashflow_rec.p_sty_id :'||p_cashflow_rec.p_sty_id);
536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
537: 'p_cashflow_rec.p_due_arrears_yn :'||p_cashflow_rec.p_due_arrears_yn);
538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
539: 'p_cashflow_rec.p_start_date :'||p_cashflow_rec.p_start_date);
540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
541: 'p_cashflow_rec.p_advance_periods :'||p_cashflow_rec.p_advance_periods);
542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
536: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
537: 'p_cashflow_rec.p_due_arrears_yn :'||p_cashflow_rec.p_due_arrears_yn);
538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
539: 'p_cashflow_rec.p_start_date :'||p_cashflow_rec.p_start_date);
540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
541: 'p_cashflow_rec.p_advance_periods :'||p_cashflow_rec.p_advance_periods);
542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
543: 'p_cashflow_rec.p_khr_id :'||p_cashflow_rec.p_khr_id);
544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
539: 'p_cashflow_rec.p_start_date :'||p_cashflow_rec.p_start_date);
540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
541: 'p_cashflow_rec.p_advance_periods :'||p_cashflow_rec.p_advance_periods);
542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
543: 'p_cashflow_rec.p_khr_id :'||p_cashflow_rec.p_khr_id);
544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
545: 'p_cashflow_rec.p_quote_id :'||p_cashflow_rec.p_quote_id);
546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
541: 'p_cashflow_rec.p_advance_periods :'||p_cashflow_rec.p_advance_periods);
542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
543: 'p_cashflow_rec.p_khr_id :'||p_cashflow_rec.p_khr_id);
544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
545: 'p_cashflow_rec.p_quote_id :'||p_cashflow_rec.p_quote_id);
546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
547: 'p_cashflow_rec.p_amount :'||p_cashflow_rec.p_amount);
548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
542: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
543: 'p_cashflow_rec.p_khr_id :'||p_cashflow_rec.p_khr_id);
544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
545: 'p_cashflow_rec.p_quote_id :'||p_cashflow_rec.p_quote_id);
546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
547: 'p_cashflow_rec.p_amount :'||p_cashflow_rec.p_amount);
548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
549: 'p_cashflow_rec.p_period_in_months :'||p_cashflow_rec.p_period_in_months);
550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
544: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
545: 'p_cashflow_rec.p_quote_id :'||p_cashflow_rec.p_quote_id);
546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
547: 'p_cashflow_rec.p_amount :'||p_cashflow_rec.p_amount);
548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
549: 'p_cashflow_rec.p_period_in_months :'||p_cashflow_rec.p_period_in_months);
550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
551: 'p_cashflow_rec.p_frequency :'||p_cashflow_rec.p_frequency);
552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
547: 'p_cashflow_rec.p_amount :'||p_cashflow_rec.p_amount);
548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
549: 'p_cashflow_rec.p_period_in_months :'||p_cashflow_rec.p_period_in_months);
550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
551: 'p_cashflow_rec.p_frequency :'||p_cashflow_rec.p_frequency);
552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
553: 'p_cashflow_rec.p_seq_num :'||p_cashflow_rec.p_seq_num);
554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
548: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
549: 'p_cashflow_rec.p_period_in_months :'||p_cashflow_rec.p_period_in_months);
550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
551: 'p_cashflow_rec.p_frequency :'||p_cashflow_rec.p_frequency);
552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
553: 'p_cashflow_rec.p_seq_num :'||p_cashflow_rec.p_seq_num);
554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
555: 'p_cashflow_rec.p_stub_days :'||p_cashflow_rec.p_stub_days);
556: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
551: 'p_cashflow_rec.p_frequency :'||p_cashflow_rec.p_frequency);
552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
553: 'p_cashflow_rec.p_seq_num :'||p_cashflow_rec.p_seq_num);
554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
555: 'p_cashflow_rec.p_stub_days :'||p_cashflow_rec.p_stub_days);
556: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
557: 'px_new_cash_flow :'||px_new_cash_flow);
558:
552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
553: 'p_cashflow_rec.p_seq_num :'||p_cashflow_rec.p_seq_num);
554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
555: 'p_cashflow_rec.p_stub_days :'||p_cashflow_rec.p_stub_days);
556: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
557: 'px_new_cash_flow :'||px_new_cash_flow);
558:
559: END IF;
560:
665:
666: END IF;
667: x_return_status := l_return_status;
668: IF (is_debug_procedure_on) THEN
669: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
670: END IF;
671:
672: EXCEPTION
673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
672: EXCEPTION
673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
674:
675: IF (is_debug_exception_on) THEN
676: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
677: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
678: END IF;
679:
680: IF l_cashflow_csr%ISOPEN THEN
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
688:
689: IF (is_debug_exception_on) THEN
690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
691: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
692: END IF;
693:
694: IF l_cashflow_csr%ISOPEN THEN
700: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
701: WHEN OTHERS THEN
702:
703: IF (is_debug_exception_on) THEN
704: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
705: 'EXCEPTION :'||sqlerrm);
706: END IF;
707:
708: IF l_cashflow_csr%ISOPEN THEN
887: lx_new_cash_flow VARCHAR2(1);
888:
889: l_prev_sty_id NUMBER := -99;
890: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_current_payments';
891: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
892: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
893: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
894: BEGIN
895:
888:
889: l_prev_sty_id NUMBER := -99;
890: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_current_payments';
891: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
892: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
893: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
894: BEGIN
895:
896: IF (is_debug_procedure_on) THEN
889: l_prev_sty_id NUMBER := -99;
890: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_current_payments';
891: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
892: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
893: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
894: BEGIN
895:
896: IF (is_debug_procedure_on) THEN
897: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
893: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
894: BEGIN
895:
896: IF (is_debug_procedure_on) THEN
897: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
898: END IF;
899:
900: --Print Input Variables
901: IF (is_debug_statement_on) THEN
898: END IF;
899:
900: --Print Input Variables
901: IF (is_debug_statement_on) THEN
902: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
903: 'p_quote_id :'||p_quote_id);
904: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
905: 'p_khr_id :'||p_khr_id );
906:
900: --Print Input Variables
901: IF (is_debug_statement_on) THEN
902: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
903: 'p_quote_id :'||p_quote_id);
904: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
905: 'p_khr_id :'||p_khr_id );
906:
907: END IF;
908:
928: x_cfo_id => l_cfo_id,
929: x_return_status => l_return_status);
930:
931: IF (is_debug_statement_on) THEN
932: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
933: 'after call to create_cash_flow_object :'||l_return_status);
934: END IF;
935:
936: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
980: px_new_cash_flow => lx_new_cash_flow,
981: x_return_status => l_return_status);
982:
983: IF (is_debug_statement_on) THEN
984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
985: 'after call to create_cash_flows :'||l_return_status);
986: END IF;
987:
988: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1032: x_cfo_id => l_cfo_id,
1033: x_return_status => l_return_status);
1034:
1035: IF (is_debug_statement_on) THEN
1036: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1037: 'after call to create_cash_flow_object :'||l_return_status);
1038: END IF;
1039:
1040:
1082: px_new_cash_flow => lx_new_cash_flow,
1083: x_return_status => l_return_status);
1084:
1085: IF (is_debug_statement_on) THEN
1086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1087: 'after call to create_cash_flows :'||l_return_status);
1088: END IF;
1089:
1090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1122: x_cfo_id => l_cfo_id,
1123: x_return_status => l_return_status);
1124:
1125: IF (is_debug_statement_on) THEN
1126: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1127: 'after call to create_cash_flow_object :'||l_return_status);
1128: END IF;
1129: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1171: px_new_cash_flow => lx_new_cash_flow,
1172: x_return_status => l_return_status);
1173:
1174: IF (is_debug_statement_on) THEN
1175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1176: 'after call to create_cash_flows :'||l_return_status);
1177: END IF;
1178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1214: x_cfo_id => l_cfo_id,
1215: x_return_status => l_return_status);
1216:
1217: IF (is_debug_statement_on) THEN
1218: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1219: 'after call to create_cash_flow_object :'||l_return_status);
1220: END IF;
1221:
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
1263: px_new_cash_flow => lx_new_cash_flow,
1264: x_return_status => l_return_status);
1265:
1266: IF (is_debug_statement_on) THEN
1267: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1268: 'after call to create_cash_flows :'||l_return_status);
1269: END IF;
1270: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1271: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1291: p_cfov_tbl => g_cfov_tbl_type,
1292: x_cfov_tbl => gx_cfov_tbl_type);
1293:
1294: IF (is_debug_statement_on) THEN
1295: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1296: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1297: END IF;
1298:
1299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1310: p_qcov_tbl => g_qcov_tbl_type,
1311: x_qcov_tbl => gx_qcov_tbl_type);
1312:
1313: IF (is_debug_statement_on) THEN
1314: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1315: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1316: END IF;
1317:
1318: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1329: p_cafv_tbl => g_cafv_tbl_type,
1330: x_cafv_tbl => gx_cafv_tbl_type);
1331:
1332: IF (is_debug_statement_on) THEN
1333: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1334: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1335: END IF;
1336:
1337: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1348: p_cflv_tbl => g_cflv_tbl_type,
1349: x_cflv_tbl => gx_cflv_tbl_type);
1350:
1351: IF (is_debug_statement_on) THEN
1352: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1353: 'after call to okl_cfo_pvt.insert_row_bulk :'||l_return_status);
1354: END IF;
1355:
1356: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1363: -- set the return status and out variables
1364: x_return_status := l_return_status;
1365:
1366: IF (is_debug_procedure_on) THEN
1367: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1368: END IF;
1369: EXCEPTION
1370: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1371: IF (is_debug_exception_on) THEN
1368: END IF;
1369: EXCEPTION
1370: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1371: IF (is_debug_exception_on) THEN
1372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1373: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
1374: END IF;
1375:
1376:
1391: END IF;
1392: x_return_status := OKL_API.G_RET_STS_ERROR;
1393: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1394: IF (is_debug_exception_on) THEN
1395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1396: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1397: END IF;
1398:
1399: IF l_kpayments_csr%ISOPEN THEN
1412: END IF;
1413: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1414: WHEN OTHERS THEN
1415: IF (is_debug_exception_on) THEN
1416: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
1417: 'EXCEPTION :'||sqlerrm);
1418: END IF;
1419:
1420: IF l_kpayments_csr%ISOPEN THEN
1552: --SECHAWLA 20-SEP-04 3816891 : new declaration
1553: l_months_to_check_last_day NUMBER;
1554:
1555: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_prop_line_payments';
1556: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1557: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1558: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1559: BEGIN
1560: IF (is_debug_procedure_on) THEN
1553: l_months_to_check_last_day NUMBER;
1554:
1555: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_prop_line_payments';
1556: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1557: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1558: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1559: BEGIN
1560: IF (is_debug_procedure_on) THEN
1561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1554:
1555: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_prop_line_payments';
1556: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1557: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1558: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1559: BEGIN
1560: IF (is_debug_procedure_on) THEN
1561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1562: END IF;
1557: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1558: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1559: BEGIN
1560: IF (is_debug_procedure_on) THEN
1561: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1562: END IF;
1563:
1564: --Print Input Variables
1565: IF (is_debug_statement_on) THEN
1562: END IF;
1563:
1564: --Print Input Variables
1565: IF (is_debug_statement_on) THEN
1566: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1567: 'p_curr_cfo_id :'||p_curr_cfo_id);
1568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1569: 'p_prop_obj_type_code :'||p_prop_obj_type_code);
1570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1564: --Print Input Variables
1565: IF (is_debug_statement_on) THEN
1566: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1567: 'p_curr_cfo_id :'||p_curr_cfo_id);
1568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1569: 'p_prop_obj_type_code :'||p_prop_obj_type_code);
1570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1571: 'p_prop_base_source_id :'||p_prop_base_source_id);
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1566: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1567: 'p_curr_cfo_id :'||p_curr_cfo_id);
1568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1569: 'p_prop_obj_type_code :'||p_prop_obj_type_code);
1570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1571: 'p_prop_base_source_id :'||p_prop_base_source_id);
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1573: 'p_prorate_ratio :'||p_prorate_ratio);
1574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1569: 'p_prop_obj_type_code :'||p_prop_obj_type_code);
1570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1571: 'p_prop_base_source_id :'||p_prop_base_source_id);
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1573: 'p_prorate_ratio :'||p_prorate_ratio);
1574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1575: 'p_date_eff_from :'||p_date_eff_from);
1576: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1571: 'p_prop_base_source_id :'||p_prop_base_source_id);
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1573: 'p_prorate_ratio :'||p_prorate_ratio);
1574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1575: 'p_date_eff_from :'||p_date_eff_from);
1576: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1577: 'p_quote_id :'||p_quote_id);
1578: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1572: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1573: 'p_prorate_ratio :'||p_prorate_ratio);
1574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1575: 'p_date_eff_from :'||p_date_eff_from);
1576: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1577: 'p_quote_id :'||p_quote_id);
1578: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1579: 'p_khr_id :'||p_khr_id);
1580: END IF;
1574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1575: 'p_date_eff_from :'||p_date_eff_from);
1576: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1577: 'p_quote_id :'||p_quote_id);
1578: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1579: 'p_khr_id :'||p_khr_id);
1580: END IF;
1581:
1582: l_pymt_Count := 0;
1598: x_cfo_id => l_cfo_id,
1599: x_return_status => l_return_status);
1600:
1601: IF (is_debug_statement_on) THEN
1602: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1603: 'after call to create_cash_flow_object :'||l_return_status);
1604: END IF;
1605:
1606: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1671: px_new_cash_flow => lx_new_cash_flow,
1672: x_return_status => l_return_status);
1673:
1674: IF (is_debug_statement_on) THEN
1675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1676: 'after call to create_cash_flows:'||l_return_status);
1677: END IF;
1678:
1679: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1736: px_new_cash_flow => lx_new_cash_flow,
1737: x_return_status => l_return_status);
1738:
1739: IF (is_debug_statement_on) THEN
1740: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1741: 'after call to create_cash_flows :'||l_return_status);
1742: END IF;
1743:
1744: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1894: px_new_cash_flow => lx_new_cash_flow,
1895: x_return_status => l_return_status);
1896:
1897: IF (is_debug_statement_on) THEN
1898: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1899: 'after call to create_cash_flows :'||l_return_status);
1900: END IF;
1901:
1902: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1999: px_new_cash_flow => lx_new_cash_flow,
2000: x_return_status => l_return_status);
2001:
2002: IF (is_debug_statement_on) THEN
2003: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2004: 'after call to create_cash_flows :'||l_return_status);
2005: END IF;
2006:
2007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2025:
2026: x_return_status := l_return_status;
2027:
2028: IF (is_debug_procedure_on) THEN
2029: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2030: END IF;
2031:
2032: EXCEPTION
2033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2032: EXCEPTION
2033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2034:
2035: IF (is_debug_exception_on) THEN
2036: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2037: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2038: END IF;
2039:
2040: IF l_cashflows_csr%ISOPEN THEN
2050: x_return_status := OKL_API.G_RET_STS_ERROR;
2051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2052:
2053: IF (is_debug_exception_on) THEN
2054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2055: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2056: END IF;
2057:
2058: IF l_cashflows_csr%ISOPEN THEN
2068: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2069: WHEN OTHERS THEN
2070:
2071: IF (is_debug_exception_on) THEN
2072: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
2073: 'EXCEPTION :'||sqlerrm);
2074: END IF;
2075:
2076: IF l_cashflows_csr%ISOPEN THEN
2223:
2224: l_fin_asset_id NUMBER;
2225: lp_cashflow_rec cashflow_rec_type;
2226: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_proposed_payments';
2227: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2228: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2229: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2230: BEGIN
2231:
2224: l_fin_asset_id NUMBER;
2225: lp_cashflow_rec cashflow_rec_type;
2226: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_proposed_payments';
2227: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2228: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2229: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2230: BEGIN
2231:
2232:
2225: lp_cashflow_rec cashflow_rec_type;
2226: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_proposed_payments';
2227: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2228: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2229: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2230: BEGIN
2231:
2232:
2233: IF (is_debug_procedure_on) THEN
2230: BEGIN
2231:
2232:
2233: IF (is_debug_procedure_on) THEN
2234: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2235: END IF;
2236:
2237: --Print Input Variables
2238: IF (is_debug_statement_on) THEN
2235: END IF;
2236:
2237: --Print Input Variables
2238: IF (is_debug_statement_on) THEN
2239: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2240: 'p_quote_id :'||p_quote_id);
2241: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2242: 'p_khr_id :'||p_khr_id);
2243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2237: --Print Input Variables
2238: IF (is_debug_statement_on) THEN
2239: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2240: 'p_quote_id :'||p_quote_id);
2241: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2242: 'p_khr_id :'||p_khr_id);
2243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2244: 'p_date_eff_from :'||p_date_eff_from);
2245: END IF;
2239: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2240: 'p_quote_id :'||p_quote_id);
2241: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2242: 'p_khr_id :'||p_khr_id);
2243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2244: 'p_date_eff_from :'||p_date_eff_from);
2245: END IF;
2246:
2247: -------------------------- Get proposed K Level payments ----------------------------------
2270: x_cfo_id => l_cfo_id,
2271: x_return_status => l_return_status);
2272:
2273: IF (is_debug_statement_on) THEN
2274: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2275: 'after call to create_cash_flow_object :'||l_return_status);
2276: END IF;
2277:
2278:
2320: px_new_cash_flow => lx_new_cash_flow,
2321: x_return_status => l_return_status);
2322:
2323: IF (is_debug_statement_on) THEN
2324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2325: 'after call to create_cash_flows:'||l_return_status);
2326: END IF;
2327:
2328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2362: p_khr_id => p_khr_id ,
2363: x_return_status => l_return_status);
2364:
2365: IF (is_debug_statement_on) THEN
2366: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2367: 'after call to calc_prop_line_payments :'||l_return_status);
2368: END IF;
2369: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2396: x_cfo_id => l_cfo_id,
2397: x_return_status => l_return_status);
2398:
2399: IF (is_debug_statement_on) THEN
2400: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2401: 'after call to calc_prop_line_payments :'||l_return_status);
2402: END IF;
2403:
2404:
2446: px_new_cash_flow => lx_new_cash_flow,
2447: x_return_status => l_return_status);
2448:
2449: IF (is_debug_statement_on) THEN
2450: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2451: 'after call to create_cash_flows :'||l_return_status);
2452: END IF;
2453:
2454:
2493: x_value => l_curr_cap_cost);
2494:
2495:
2496: IF (is_debug_statement_on) THEN
2497: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2498: 'after call to OKL_EXECUTE_FORMULA_PUB.EXECUTE :'||l_return_status);
2499: END IF;
2500:
2501: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2541: p_khr_id => p_khr_id ,
2542: x_return_status => l_return_status);
2543:
2544: IF (is_debug_statement_on) THEN
2545: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2546: 'after call to calc_prop_line_payments :'||l_return_status);
2547: END IF;
2548:
2549: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2580: x_cfo_id => l_cfo_id,
2581: x_return_status => l_return_status);
2582:
2583: IF (is_debug_statement_on) THEN
2584: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2585: 'after call to create_cash_flow_object :'||l_return_status);
2586: END IF;
2587:
2588: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2629: px_new_cash_flow => lx_new_cash_flow,
2630: x_return_status => l_return_status);
2631:
2632: IF (is_debug_statement_on) THEN
2633: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2634: 'after call to create_cash_flows :'||l_return_status);
2635: END IF;
2636:
2637:
2714: p_khr_id => p_khr_id ,
2715: x_return_status => l_return_status);
2716:
2717: IF (is_debug_statement_on) THEN
2718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2719: 'after call to calc_prop_line_payments :'||l_return_status);
2720: END IF;
2721:
2722: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2754: x_cfo_id => l_cfo_id,
2755: x_return_status => l_return_status);
2756:
2757: IF (is_debug_statement_on) THEN
2758: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2759: 'after call to create_cash_flow_object :'||l_return_status);
2760: END IF;
2761:
2762: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: px_new_cash_flow => lx_new_cash_flow,
2804: x_return_status => l_return_status);
2805:
2806: IF (is_debug_statement_on) THEN
2807: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2808: 'after call to create_cash_flows :'||l_return_status);
2809: END IF;
2810:
2811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2851: p_khr_id => p_khr_id ,
2852: x_return_status => l_return_status);
2853:
2854: IF (is_debug_statement_on) THEN
2855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2856: 'after call to calc_prop_line_payments :'||l_return_status);
2857: END IF;
2858:
2859: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3112: x_return_status := l_return_status;
3113: --Bug #3921591: pagarg +++ Rollover +++++++ End ++++++++++
3114:
3115: IF (is_debug_procedure_on) THEN
3116: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3117: END IF;
3118:
3119: EXCEPTION
3120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: EXCEPTION
3120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3121:
3122: IF (is_debug_exception_on) THEN
3123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3124: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3125: END IF;
3126:
3127: IF l_currpymtlines_csr%ISOPEN THEN
3145: x_return_status := OKL_API.G_RET_STS_ERROR;
3146: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3147:
3148: IF (is_debug_exception_on) THEN
3149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3150: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3151: END IF;
3152:
3153: IF l_currpymtlines_csr%ISOPEN THEN
3171: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3172: WHEN OTHERS THEN
3173:
3174: IF (is_debug_exception_on) THEN
3175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3176: 'EXCEPTION :'||sqlerrm);
3177: END IF;
3178:
3179: IF l_currpymtlines_csr%ISOPEN THEN
3260:
3261: l_khr_id NUMBER;
3262: l_date_eff_from DATE;
3263: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_quote_payments';
3264: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3265: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3266: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3267: BEGIN
3268:
3261: l_khr_id NUMBER;
3262: l_date_eff_from DATE;
3263: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_quote_payments';
3264: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3265: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3266: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3267: BEGIN
3268:
3269: IF (is_debug_procedure_on) THEN
3262: l_date_eff_from DATE;
3263: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_quote_payments';
3264: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3265: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3266: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3267: BEGIN
3268:
3269: IF (is_debug_procedure_on) THEN
3270: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3266: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3267: BEGIN
3268:
3269: IF (is_debug_procedure_on) THEN
3270: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3271: END IF;
3272:
3273:
3274: --Print Input Variables
3272:
3273:
3274: --Print Input Variables
3275: IF (is_debug_statement_on) THEN
3276: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3277: 'p_quote_id :'||p_quote_id);
3278: END IF;
3279:
3280: --Check API version, initialize message list and create savepoint.
3379: -- end the transaction
3380: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3381:
3382: IF (is_debug_procedure_on) THEN
3383: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3384: END IF;
3385:
3386: EXCEPTION
3387: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3386: EXCEPTION
3387: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3388:
3389: IF (is_debug_exception_on) THEN
3390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3391: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
3392: END IF;
3393:
3394: IF l_quotehdr_csr%ISOPEN THEN
3404: '_PVT'
3405: );
3406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3407: IF (is_debug_exception_on) THEN
3408: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3409: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
3410: END IF;
3411:
3412: IF l_quotehdr_csr%ISOPEN THEN
3423: );
3424: WHEN OTHERS THEN
3425:
3426: IF (is_debug_exception_on) THEN
3427: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME,
3428: 'EXCEPTION :'||sqlerrm);
3429: END IF;
3430:
3431: IF l_quotehdr_csr%ISOPEN THEN