35: l_chr_end_date DATE;
36: l_catchup_start_date DATE;
37: l_catchup_frequency VARCHAR2(50);
38:
39: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
40: l_adder_months NUMBER := 0;
41:
42: l_chr_term_days NUMBER := 0;
43: l_chr_period_days NUMBER := 0;
120: x_return_status => l_return_status,
121: p_recurrence_date => l_catchup_start_date,
122: p_arrears_pay_dates_option => 'LAST_DAY_OF_PERIOD');
123:
124: IF(l_return_status <> OKL_API.G_RET_STS_SUCCESS)THEN
125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
126: END IF;
127:
128: OKL_VARIABLE_INTEREST_PVT.print_debug('l_start_date: '|| l_start_date);
121: p_recurrence_date => l_catchup_start_date,
122: p_arrears_pay_dates_option => 'LAST_DAY_OF_PERIOD');
123:
124: IF(l_return_status <> OKL_API.G_RET_STS_SUCCESS)THEN
125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
126: END IF;
127:
128: OKL_VARIABLE_INTEREST_PVT.print_debug('l_start_date: '|| l_start_date);
129: OKL_VARIABLE_INTEREST_PVT.print_debug('l_end_date: '|| l_end_date);
307: p_due_date IN DATE) IS
308:
309: l_api_version CONSTANT NUMBER := 1.0;
310: l_api_name CONSTANT VARCHAR2(30) := 'VARIABLE_INTEREST_CATCHUP';
311: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
312: l_msg_index_out NUMBER;
313: l_interest_calculated NUMBER := 0;
314: l_total_interest_billed NUMBER := 0;
315: l_principal_adjusted NUMBER := 0;
426: ------------------------------------------------------------
427: -- Start processing
428: ------------------------------------------------------------
429:
430: x_return_status := OKL_API.G_RET_STS_SUCCESS;
431:
432: OKL_VARIABLE_INTEREST_PVT.print_debug('Executing procedure VARIABLE_INTEREST_CATCHUP using following parameters : ');
433: OKL_VARIABLE_INTEREST_PVT.print_debug('contract ID: '|| p_contract_id);
434: OKL_VARIABLE_INTEREST_PVT.print_Debug('Principal Basis: '|| p_principal_basis);
443: OKL_VARIABLE_INT_UTIL_PVT.check_vr_asset_level_upgrade(
444: p_khr_id => p_contract_id,
445: x_return_status => x_return_status);
446:
447: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
448: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
449: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
450: RAISE var_int_catchup_failed;
451: END IF;
444: p_khr_id => p_contract_id,
445: x_return_status => x_return_status);
446:
447: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
448: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
449: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
450: RAISE var_int_catchup_failed;
451: END IF;
452:
445: x_return_status => x_return_status);
446:
447: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
448: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
449: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
450: RAISE var_int_catchup_failed;
451: END IF;
452:
453: OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl.delete;
462: x_return_status => x_return_status,
463: x_msg_count => x_msg_count,
464: x_msg_data => x_msg_data);
465:
466: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
467: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_TXNS');
468: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
470: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_TXNS');
464: x_msg_data => x_msg_data);
465:
466: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
467: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_TXNS');
468: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
470: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_TXNS');
471: RAISE var_int_catchup_failed;
472: END IF;
465:
466: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
467: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_TXNS');
468: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
470: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_TXNS');
471: RAISE var_int_catchup_failed;
472: END IF;
473:
476: p_khr_id => p_contract_id,
477: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
478: x_return_status => x_return_status);
479:
480: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_ERROR;
484: END IF;
477: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
478: x_return_status => x_return_status);
479:
480: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_ERROR;
484: END IF;
485:
478: x_return_status => x_return_status);
479:
480: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_ERROR;
484: END IF;
485:
486: --Bug# 14165508
479:
480: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_ERROR;
484: END IF;
485:
486: --Bug# 14165508
487: IF OKL_VARIABLE_INTEREST_PVT.G_DAYS_IN_A_MONTH_CODE = '30' THEN
511: FOR i IN l_payment_tbl.FIRST..l_payment_tbl.LAST LOOP
512:
513: l_interest := OKL_VARIABLE_INTEREST_PVT.calculate_total_interest_due(
514: p_api_version => 1.0,
515: p_init_msg_list => OKL_API.G_FALSE,
516: x_return_status => x_return_status,
517: x_msg_count => x_msg_count,
518: x_msg_data => x_msg_data,
519: p_contract_id => p_contract_id,
521: p_start_date => l_payment_tbl(i).period_start_date,
522: p_due_date => l_payment_tbl(i).period_end_date,
523: p_line_id => l_cle_id,
524: p_conversion_factor => l_payment_tbl(i).conversion_factor);
525: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
526: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
527: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
528: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
529: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
523: p_line_id => l_cle_id,
524: p_conversion_factor => l_payment_tbl(i).conversion_factor);
525: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
526: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
527: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
528: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
529: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
530: RAISE var_int_catchup_failed;
531: END IF;
524: p_conversion_factor => l_payment_tbl(i).conversion_factor);
525: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
526: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
527: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
528: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
529: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
530: RAISE var_int_catchup_failed;
531: END IF;
532:
536: ELSE
537:
538: l_interest_calculated := OKL_VARIABLE_INTEREST_PVT.calculate_total_interest_due(
539: p_api_version => 1.0,
540: p_init_msg_list => OKL_API.G_FALSE,
541: x_return_status => x_return_status,
542: x_msg_count => x_msg_count,
543: x_msg_data => x_msg_data,
544: p_contract_id => p_contract_id,
545: p_currency_code => p_currency_code,
546: p_start_date => p_start_date,
547: p_due_date => p_due_date,
548: p_line_id => l_cle_id);
549: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
550: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
551: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
552: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
553: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
547: p_due_date => p_due_date,
548: p_line_id => l_cle_id);
549: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
550: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
551: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
552: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
553: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
554: RAISE var_int_catchup_failed;
555: END IF;
548: p_line_id => l_cle_id);
549: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
550: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
551: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
552: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
553: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CALCULATE_TOTAL_INTEREST_DUE');
554: RAISE var_int_catchup_failed;
555: END IF;
556:
686: p_amount => l_invoice_amt,
687: --Bug# 13001695
688: p_due_date => l_invoice_date,
689: p_stream_type_purpose => l_stream_type_purpose,
690: p_create_invoice_flag => OKL_API.G_TRUE,
691: p_parent_strm_element_id => NULL,
692: x_invoice_id => l_invoice_id,
693: x_stream_element_id => l_stream_element_id);
694: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
690: p_create_invoice_flag => OKL_API.G_TRUE,
691: p_parent_strm_element_id => NULL,
692: x_invoice_id => l_invoice_id,
693: x_stream_element_id => l_stream_element_id);
694: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
695: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
696: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
697: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
698: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
692: x_invoice_id => l_invoice_id,
693: x_stream_element_id => l_stream_element_id);
694: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
695: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
696: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
697: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
698: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
699: RAISE var_int_catchup_failed;
700: END IF;
693: x_stream_element_id => l_stream_element_id);
694: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
695: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
696: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
697: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
698: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
699: RAISE var_int_catchup_failed;
700: END IF;
701:
702: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
703:
704: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
705: p_api_version => 1.0,
706: p_init_msg_list => OKL_API.G_TRUE,
707: x_return_status => x_return_status,
708: x_msg_count => x_msg_count,
709: x_msg_data => x_msg_data,
710: p_source_id => l_invoice_id,
711: p_catchup_amt => l_invoice_amt,
712: p_catchup_settlement_code => 'INTEREST_CATCHUP',
713: p_vir_tbl => i_vir_tbl,
714: x_vir_tbl => r_vir_tbl);
715: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
716: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
719: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
713: p_vir_tbl => i_vir_tbl,
714: x_vir_tbl => r_vir_tbl);
715: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
716: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
719: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
720: RAISE var_int_catchup_failed;
721: END IF;
714: x_vir_tbl => r_vir_tbl);
715: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
716: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
717: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
719: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
720: RAISE var_int_catchup_failed;
721: END IF;
722:
723: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
724:
725: OKL_VR_DATA_HANDLER_PVT.insert_vir_params(
726: p_api_version => 1.0,
727: p_init_msg_list => OKL_API.G_TRUE,
728: x_return_status => x_return_status,
729: x_msg_count => x_msg_count,
730: x_msg_data => x_msg_data,
731: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
728: x_return_status => x_return_status,
729: x_msg_count => x_msg_count,
730: x_msg_data => x_msg_data,
731: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
732: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
733: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
734: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
735: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
736: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
730: x_msg_data => x_msg_data,
731: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
732: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
733: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
734: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
735: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
736: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
737: RAISE var_int_catchup_failed;
738: END IF;
731: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
732: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
733: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
734: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
735: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
736: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
737: RAISE var_int_catchup_failed;
738: END IF;
739:
755: p_amount => l_invoice_amt,
756: --Bug# 13001695
757: p_due_date => l_invoice_date,
758: p_stream_type_purpose => l_stream_type_purpose,
759: p_create_invoice_flag => OKL_API.G_TRUE,
760: p_parent_strm_element_id => NULL,
761: x_invoice_id => l_invoice_id,
762: x_stream_element_id => l_stream_element_id);
763:
760: p_parent_strm_element_id => NULL,
761: x_invoice_id => l_invoice_id,
762: x_stream_element_id => l_stream_element_id);
763:
764: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
765: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
768: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
762: x_stream_element_id => l_stream_element_id);
763:
764: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
765: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
768: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
769: RAISE var_int_catchup_failed;
770: END IF;
763:
764: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
765: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
768: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
769: RAISE var_int_catchup_failed;
770: END IF;
771:
772: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
773:
774: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
775: p_api_version => 1.0,
776: p_init_msg_list => OKL_API.G_TRUE,
777: x_return_status => x_return_status,
778: x_msg_count => x_msg_count,
779: x_msg_data => x_msg_data,
780: p_source_id => l_invoice_id,
781: p_catchup_amt => l_invoice_amt,
782: p_catchup_settlement_code => OKL_VARIABLE_INTEREST_PVT.G_CATCHUP_SETTLEMENT_CODE,
783: p_vir_tbl => i_vir_tbl,
784: x_vir_tbl => r_vir_tbl);
785: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
786: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
787: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
788: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
789: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
783: p_vir_tbl => i_vir_tbl,
784: x_vir_tbl => r_vir_tbl);
785: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
786: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
787: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
788: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
789: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
790: RAISE var_int_catchup_failed;
791: END IF;
784: x_vir_tbl => r_vir_tbl);
785: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
786: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
787: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
788: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
789: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
790: RAISE var_int_catchup_failed;
791: END IF;
792:
793: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
794:
795: OKL_VR_DATA_HANDLER_PVT.insert_vir_params(
796: p_api_version => 1.0,
797: p_init_msg_list => OKL_API.G_TRUE,
798: x_return_status => x_return_status,
799: x_msg_count => x_msg_count,
800: x_msg_data => x_msg_data,
801: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
798: x_return_status => x_return_status,
799: x_msg_count => x_msg_count,
800: x_msg_data => x_msg_data,
801: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
802: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
803: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
804: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
805: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
806: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
800: x_msg_data => x_msg_data,
801: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
802: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
803: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
804: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
805: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
806: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
807: RAISE var_int_catchup_failed;
808: END IF;
801: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
802: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
803: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
804: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
805: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
806: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
807: RAISE var_int_catchup_failed;
808: END IF;
809:
825: p_line_id => l_cle_id,
826: p_amount => l_invoice_amt,
827: p_due_date => p_due_date,
828: p_stream_type_purpose => l_stream_type_purpose,
829: p_create_invoice_flag => OKL_API.G_FALSE,
830: p_process_flag => 'PRINCIPAL_CATCHUP',
831: p_parent_strm_element_id => NULL,
832: x_invoice_id => l_invoice_id,
833: x_stream_element_id => l_stream_element_id);
831: p_parent_strm_element_id => NULL,
832: x_invoice_id => l_invoice_id,
833: x_stream_element_id => l_stream_element_id);
834:
835: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
836: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
837: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
839: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
833: x_stream_element_id => l_stream_element_id);
834:
835: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
836: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
837: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
839: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
840: RAISE var_int_catchup_failed;
841: END IF;
834:
835: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
836: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to CREATE_STREAM_INVOICE');
837: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
839: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to CREATE_STREAM_INVOICE');
840: RAISE var_int_catchup_failed;
841: END IF;
842:
845: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
846:
847: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
848: p_api_version => 1.0,
849: p_init_msg_list => OKL_API.G_TRUE,
850: x_return_status => x_return_status,
851: x_msg_count => x_msg_count,
852: x_msg_data => x_msg_data,
853: p_source_id => l_stream_element_id,
856: p_vir_tbl => i_vir_tbl,
857: x_vir_tbl => r_vir_tbl,
858: --Bug# 12974796
859: p_source_table => 'OKL_STRM_ELEMENTS_V');
860: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
861: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
862: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
863: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
864: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
858: --Bug# 12974796
859: p_source_table => 'OKL_STRM_ELEMENTS_V');
860: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
861: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
862: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
863: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
864: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
865: RAISE var_int_catchup_failed;
866: END IF;
859: p_source_table => 'OKL_STRM_ELEMENTS_V');
860: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
861: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
862: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
863: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
864: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
865: RAISE var_int_catchup_failed;
866: END IF;
867:
868: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
869:
870: OKL_VR_DATA_HANDLER_PVT.insert_vir_params(
871: p_api_version => 1.0,
872: p_init_msg_list => OKL_API.G_TRUE,
873: x_return_status => x_return_status,
874: x_msg_count => x_msg_count,
875: x_msg_data => x_msg_data,
876: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
873: x_return_status => x_return_status,
874: x_msg_count => x_msg_count,
875: x_msg_data => x_msg_data,
876: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
877: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
878: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
879: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
881: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
875: x_msg_data => x_msg_data,
876: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
877: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
878: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
879: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
881: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
882: RAISE var_int_catchup_failed;
883: END IF;
876: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
877: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
878: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
879: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
881: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
882: RAISE var_int_catchup_failed;
883: END IF;
884: --Bug# 12974796
887: i_vir_tbl := OKL_VARIABLE_INTEREST_PVT.g_vir_tbl;
888:
889: OKL_VARIABLE_INTEREST_PVT.upd_vir_params_with_invoice (
890: p_api_version => 1.0,
891: p_init_msg_list => OKL_API.G_TRUE,
892: x_return_status => x_return_status,
893: x_msg_count => x_msg_count,
894: x_msg_data => x_msg_data,
895: p_source_id => NULL,
898: p_vir_tbl => i_vir_tbl,
899: x_vir_tbl => r_vir_tbl,
900: --Bug# 12974796
901: p_source_table => 'OKL_VAR_INT_PARAMS');
902: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
903: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
904: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
905: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
906: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
900: --Bug# 12974796
901: p_source_table => 'OKL_VAR_INT_PARAMS');
902: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
903: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
904: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
905: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
906: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
907: RAISE var_int_catchup_failed;
908: END IF;
901: p_source_table => 'OKL_VAR_INT_PARAMS');
902: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
903: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
904: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
905: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
906: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to UPD_VIR_PARAMS_WITH_INVOICE');
907: RAISE var_int_catchup_failed;
908: END IF;
909:
910: OKL_VARIABLE_INTEREST_PVT.g_vir_tbl := r_vir_tbl;
911:
912: OKL_VR_DATA_HANDLER_PVT.insert_vir_params(
913: p_api_version => 1.0,
914: p_init_msg_list => OKL_API.G_TRUE,
915: x_return_status => x_return_status,
916: x_msg_count => x_msg_count,
917: x_msg_data => x_msg_data,
918: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
915: x_return_status => x_return_status,
916: x_msg_count => x_msg_count,
917: x_msg_data => x_msg_data,
918: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
919: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
920: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
921: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
922: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
923: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
917: x_msg_data => x_msg_data,
918: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
919: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
920: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
921: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
922: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
923: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
924: RAISE var_int_catchup_failed;
925: END IF;
918: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
919: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
920: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_VIR_PARAMS');
921: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
922: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
923: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_VIR_PARAMS');
924: RAISE var_int_catchup_failed;
925: END IF;
926: END IF;
939: x_msg_count => x_msg_count,
940: x_msg_data => x_msg_data,
941: p_vpb_tbl => OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl);
942:
943: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
944: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_PRINCIPAL_BAL_TXN');
945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
946: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
947: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_PRINCIPAL_BAL_TXN');
941: p_vpb_tbl => OKL_VARIABLE_INTEREST_PVT.g_vpb_tbl);
942:
943: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
944: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_PRINCIPAL_BAL_TXN');
945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
946: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
947: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_PRINCIPAL_BAL_TXN');
948: RAISE var_int_catchup_failed;
949: END IF;
942:
943: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
944: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to POPULATE_PRINCIPAL_BAL_TXN');
945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
946: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
947: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to POPULATE_PRINCIPAL_BAL_TXN');
948: RAISE var_int_catchup_failed;
949: END IF;
950:
953:
954: EXCEPTION
955: WHEN var_int_catchup_failed THEN
956: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception var_int_catchup_failed raised in procedure VARIABLE_INTEREST_CATCHUP');
957: x_return_status := OKL_API.G_RET_STS_ERROR;
958: WHEN OTHERS THEN
959: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure VARIABLE_INTEREST_CATCHUP');
960: Okl_Api.SET_MESSAGE(
961: p_app_name => G_APP_NAME,
956: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception var_int_catchup_failed raised in procedure VARIABLE_INTEREST_CATCHUP');
957: x_return_status := OKL_API.G_RET_STS_ERROR;
958: WHEN OTHERS THEN
959: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure VARIABLE_INTEREST_CATCHUP');
960: Okl_Api.SET_MESSAGE(
961: p_app_name => G_APP_NAME,
962: p_msg_name => G_UNEXPECTED_ERROR,
963: p_token1 => G_SQLCODE_TOKEN,
964: p_token1_value => SQLCODE,
963: p_token1 => G_SQLCODE_TOKEN,
964: p_token1_value => SQLCODE,
965: p_token2 => G_SQLERRM_TOKEN,
966: p_token2_value => SQLERRM);
967: x_return_status := OKL_API.G_RET_STS_ERROR;
968: END variable_interest_catchup;
969:
970: -----------------------------------------------------------------
971: PROCEDURE process_interest_catchup(
1033: END IF;
1034:
1035: VARIABLE_INTEREST_CATCHUP(
1036: p_api_version => p_api_version,
1037: p_init_msg_list => Okl_Api.G_TRUE,
1038: x_return_status => x_return_status,
1039: x_msg_count => x_msg_count,
1040: x_msg_data => x_msg_data,
1041: p_contract_id => p_contract_id,
1045: p_currency_code => OKL_VARIABLE_INTEREST_PVT.G_CURRENCY_CODE,
1046: p_start_date => l_int_cal_start_date,
1047: p_due_date => l_catchup_date);
1048:
1049: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1050: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to VARIABLE_INTEREST_CATCHUP');
1051: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1053: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INTEREST_CATCHUP');
1047: p_due_date => l_catchup_date);
1048:
1049: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1050: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to VARIABLE_INTEREST_CATCHUP');
1051: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1053: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INTEREST_CATCHUP');
1054: RAISE process_int_catchup_failed;
1055: END IF;
1048:
1049: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1050: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to VARIABLE_INTEREST_CATCHUP');
1051: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1053: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to VARIABLE_INTEREST_CATCHUP');
1054: RAISE process_int_catchup_failed;
1055: END IF;
1056:
1057: OKL_VARIABLE_INTEREST_PVT.print_debug ('Updating contract - id : '|| p_contract_id || 'with interest calculation date : '|| l_catchup_date);
1058:
1059: OKL_VR_DATA_HANDLER_PVT.UPDATE_LAST_INT_CAL_DATE(
1060: p_api_version => p_api_version,
1061: p_init_msg_list => Okl_Api.G_TRUE,
1062: x_return_status => x_return_status,
1063: x_msg_count => x_msg_count,
1064: x_msg_data => x_msg_data,
1065: p_contract_id => p_contract_id,
1063: x_msg_count => x_msg_count,
1064: x_msg_data => x_msg_data,
1065: p_contract_id => p_contract_id,
1066: p_last_interest_cal_date => l_catchup_date);
1067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1064: x_msg_data => x_msg_data,
1065: p_contract_id => p_contract_id,
1066: p_last_interest_cal_date => l_catchup_date);
1067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1065: p_contract_id => p_contract_id,
1066: p_last_interest_cal_date => l_catchup_date);
1067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1073: l_last_interest_cal_date := l_catchup_date;
1066: p_last_interest_cal_date => l_catchup_date);
1067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1073: l_last_interest_cal_date := l_catchup_date;
1074:
1081: EXCEPTION
1082:
1083: WHEN process_int_catchup_failed THEN
1084: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception process_int_catchup_failed raised in procedure PROCESS_INTEREST_CATCHUP');
1085: x_return_status := OKL_API.G_RET_STS_ERROR;
1086: WHEN OTHERS THEN
1087: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure PROCESS_INTEREST_CATCHUP');
1088: Okl_Api.SET_MESSAGE(
1089: p_app_name => G_APP_NAME,
1084: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception process_int_catchup_failed raised in procedure PROCESS_INTEREST_CATCHUP');
1085: x_return_status := OKL_API.G_RET_STS_ERROR;
1086: WHEN OTHERS THEN
1087: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure PROCESS_INTEREST_CATCHUP');
1088: Okl_Api.SET_MESSAGE(
1089: p_app_name => G_APP_NAME,
1090: p_msg_name => G_UNEXPECTED_ERROR,
1091: p_token1 => G_SQLCODE_TOKEN,
1092: p_token1_value => SQLCODE,
1091: p_token1 => G_SQLCODE_TOKEN,
1092: p_token1_value => SQLCODE,
1093: p_token2 => G_SQLERRM_TOKEN,
1094: p_token2_value => SQLERRM);
1095: x_return_status := OKL_API.G_RET_STS_ERROR;
1096: END process_interest_catchup;
1097: END;