720: OPEN orig_csr(p_chr_id);
721: FETCH orig_csr INTO l_orig_contract_number;
722:
723: IF orig_csr%NOTFOUND THEN
724: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: END IF;
726:
727: CLOSE orig_csr;
728: l_new_contract_number := l_orig_contract_number||'-PPD'||l_seq_no;
728: l_new_contract_number := l_orig_contract_number||'-PPD'||l_seq_no;
729:
730: okl_copy_contract_pub.copy_lease_contract(
731: p_api_version => 1.0,
732: p_init_msg_list => OKC_API.G_FALSE,
733: x_return_status => x_return_status,
734: x_msg_count => x_msg_count,
735: x_msg_data => x_msg_data,
736: p_chr_id => p_chr_id,
740: p_trans_type => 'CRB',
741: x_chr_id => x_chr_id
742: );
743:
744: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
745: RAISE OKC_API.G_EXCEPTION_ERROR;
746: END IF;
747: --
748: -- Update Rebook Contract Status to 'ABANDONED'
741: x_chr_id => x_chr_id
742: );
743:
744: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
745: RAISE OKC_API.G_EXCEPTION_ERROR;
746: END IF;
747: --
748: -- Update Rebook Contract Status to 'ABANDONED'
749: --
756: p_init_msg_list => p_init_msg_list,
757: x_return_status => x_return_status,
758: x_msg_count => x_msg_count,
759: x_msg_data => x_msg_data,
760: p_restricted_update => OKC_API.G_FALSE,
761: p_chrv_rec => l_chrv_rec,
762: p_khrv_rec => l_khrv_rec,
763: x_chrv_rec => x_chrv_rec,
764: x_khrv_rec => x_khrv_rec
764: x_khrv_rec => x_khrv_rec
765: );
766:
767:
768: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
769: RAISE OKC_API.G_EXCEPTION_ERROR;
770: END IF;
771:
772: --**********************************************************
765: );
766:
767:
768: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
769: RAISE OKC_API.G_EXCEPTION_ERROR;
770: END IF;
771:
772: --**********************************************************
773: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
771:
772: --**********************************************************
773: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
774: x_msg_data => x_msg_data);
775: if p_commit= OKC_API.G_TRUE then
776: commit;
777: end if;
778:
779: EXCEPTION
776: commit;
777: end if;
778:
779: EXCEPTION
780: when OKC_API.G_EXCEPTION_ERROR then
781: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
782: p_api_name => l_api_name,
783: p_pkg_name => G_PKG_NAME,
784: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
777: end if;
778:
779: EXCEPTION
780: when OKC_API.G_EXCEPTION_ERROR then
781: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
782: p_api_name => l_api_name,
783: p_pkg_name => G_PKG_NAME,
784: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
785: x_msg_count => x_msg_count,
780: when OKC_API.G_EXCEPTION_ERROR then
781: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
782: p_api_name => l_api_name,
783: p_pkg_name => G_PKG_NAME,
784: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
785: x_msg_count => x_msg_count,
786: x_msg_data => x_msg_data,
787: p_api_type => '_PVT');
788:
785: x_msg_count => x_msg_count,
786: x_msg_data => x_msg_data,
787: p_api_type => '_PVT');
788:
789: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
790: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
791: p_api_name => l_api_name,
792: p_pkg_name => G_PKG_NAME,
793: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
786: x_msg_data => x_msg_data,
787: p_api_type => '_PVT');
788:
789: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
790: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
791: p_api_name => l_api_name,
792: p_pkg_name => G_PKG_NAME,
793: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
794: x_msg_count => x_msg_count,
789: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
790: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
791: p_api_name => l_api_name,
792: p_pkg_name => G_PKG_NAME,
793: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
794: x_msg_count => x_msg_count,
795: x_msg_data => x_msg_data,
796: p_api_type => '_PVT');
797:
795: x_msg_data => x_msg_data,
796: p_api_type => '_PVT');
797:
798: when OTHERS then
799: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
800: p_api_name => l_api_name,
801: p_pkg_name => G_PKG_NAME,
802: p_exc_name => 'OTHERS',
803: x_msg_count => x_msg_count,
827: x_chrv_rec chrv_rec_type;
828:
829: update_failed EXCEPTION;
830: BEGIN
831: x_return_status := OKC_API.G_RET_STS_SUCCESS;
832: l_khrv_rec := get_khrv_rec(
833: p_khr_id => p_working_copy_chr_id,
834: x_return_status => x_return_status
835: );
852: l_chrv_rec.end_date := p_end_date;
853:
854: okl_contract_pub.update_contract_header(
855: p_api_version => 1.0,
856: p_init_msg_list => OKC_API.G_FALSE,
857: x_return_status => x_return_status,
858: x_msg_count => x_msg_count,
859: x_msg_data => x_msg_data,
860: p_restricted_update => OKC_API.G_FALSE,
856: p_init_msg_list => OKC_API.G_FALSE,
857: x_return_status => x_return_status,
858: x_msg_count => x_msg_count,
859: x_msg_data => x_msg_data,
860: p_restricted_update => OKC_API.G_FALSE,
861: p_chrv_rec => l_chrv_rec,
862: p_khrv_rec => l_khrv_rec,
863: x_chrv_rec => x_chrv_rec,
864: x_khrv_rec => x_khrv_rec
862: p_khrv_rec => l_khrv_rec,
863: x_chrv_rec => x_chrv_rec,
864: x_khrv_rec => x_khrv_rec
865: );
866: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
867: x_return_status := Okc_Api.G_RET_STS_ERROR;
868: RAISE update_failed;
869: END IF;
870:
863: x_chrv_rec => x_chrv_rec,
864: x_khrv_rec => x_khrv_rec
865: );
866: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
867: x_return_status := Okc_Api.G_RET_STS_ERROR;
868: RAISE update_failed;
869: END IF;
870:
871: --END LOOP;
873: --RETURN;
874:
875: EXCEPTION
876: WHEN update_failed THEN
877: x_return_status := OKC_API.G_RET_STS_ERROR;
878: END update_hdr_info;
879:
880: --
881: /*
1991:
1992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: in modify principal payments'|| l_asset_cost);
1994: END IF;
1995: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1996: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1998: raise OKC_API.G_EXCEPTION_ERROR;
1999: End If;
1992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: in modify principal payments'|| l_asset_cost);
1994: END IF;
1995: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1996: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1998: raise OKC_API.G_EXCEPTION_ERROR;
1999: End If;
2000:
1993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: in modify principal payments'|| l_asset_cost);
1994: END IF;
1995: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1996: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1998: raise OKC_API.G_EXCEPTION_ERROR;
1999: End If;
2000:
2001: --Pro rate the ppd amt for this line
1994: END IF;
1995: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1996: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1998: raise OKC_API.G_EXCEPTION_ERROR;
1999: End If;
2000:
2001: --Pro rate the ppd amt for this line
2002: l_raw_ppd_for_asset := (l_asset_cost/p_total_k_cost)
2805:
2806: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
2808: END IF;
2809: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2806: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
2808: END IF;
2809: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2814:
2807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
2808: END IF;
2809: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2814:
2815: --Pro rate the ppd amt for this line
2808: END IF;
2809: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2814:
2815: --Pro rate the ppd amt for this line
2816: l_raw_ppd_for_asset := (l_asset_cost/l_total_k_cost)
3320: x_value => l_asset_cost);
3321:
3322: print_to_log('Asset Cost After executing LINE_CAP_AMNT: '|| l_asset_cost);
3323:
3324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3327: raise OKC_API.G_EXCEPTION_ERROR;
3328: End If;
3321:
3322: print_to_log('Asset Cost After executing LINE_CAP_AMNT: '|| l_asset_cost);
3323:
3324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3327: raise OKC_API.G_EXCEPTION_ERROR;
3328: End If;
3329:
3322: print_to_log('Asset Cost After executing LINE_CAP_AMNT: '|| l_asset_cost);
3323:
3324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3327: raise OKC_API.G_EXCEPTION_ERROR;
3328: End If;
3329:
3330:
3323:
3324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3327: raise OKC_API.G_EXCEPTION_ERROR;
3328: End If;
3329:
3330:
3331: l_csm_loan_levels_tbl(knt).DESCRIPTION := 'Funding';
4057: --************************************************************************
4058:
4059: PROCEDURE cancel_ppd(
4060: p_api_version IN NUMBER
4061: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
4062: ,x_return_status OUT NOCOPY VARCHAR2
4063: ,x_msg_count OUT NOCOPY NUMBER
4064: ,x_msg_data OUT NOCOPY VARCHAR2
4065: ,p_khr_id IN NUMBER) IS
4189: --************************************************************************
4190:
4191: PROCEDURE invoice_apply_ppd(
4192: p_api_version IN NUMBER
4193: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
4194: ,x_return_status OUT NOCOPY VARCHAR2
4195: ,x_msg_count OUT NOCOPY NUMBER
4196: ,x_msg_data OUT NOCOPY VARCHAR2
4197: ,p_khr_id IN NUMBER
4964:
4965: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4966: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
4967: END IF;
4968: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
4969: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4970: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
4971: raise OKC_API.G_EXCEPTION_ERROR;
4972: End If;
4965: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4966: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
4967: END IF;
4968: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
4969: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4970: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
4971: raise OKC_API.G_EXCEPTION_ERROR;
4972: End If;
4973:
4966: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
4967: END IF;
4968: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
4969: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4970: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
4971: raise OKC_API.G_EXCEPTION_ERROR;
4972: End If;
4973:
4974: --Pro rate the ppd amt for this line
4967: END IF;
4968: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
4969: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4970: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
4971: raise OKC_API.G_EXCEPTION_ERROR;
4972: End If;
4973:
4974: --Pro rate the ppd amt for this line
4975: l_raw_ppd_for_asset := (l_asset_cost/l_total_k_cost)
6375:
6376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
6378: END IF;
6379: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
6380: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6381: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
6382: raise OKC_API.G_EXCEPTION_ERROR;
6383: End If;
6376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
6378: END IF;
6379: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
6380: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6381: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
6382: raise OKC_API.G_EXCEPTION_ERROR;
6383: End If;
6384:
6377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
6378: END IF;
6379: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
6380: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6381: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
6382: raise OKC_API.G_EXCEPTION_ERROR;
6383: End If;
6384:
6385: --Pro rate the ppd amt for this line
6378: END IF;
6379: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
6380: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6381: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
6382: raise OKC_API.G_EXCEPTION_ERROR;
6383: End If;
6384:
6385: --Pro rate the ppd amt for this line
6386: l_raw_ppd_for_asset := (l_asset_cost/l_total_k_cost)
6950:
6951:
6952: PROCEDURE invoice_bill_apply(
6953: p_api_version IN NUMBER
6954: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
6955: ,x_return_status OUT NOCOPY VARCHAR2
6956: ,x_msg_count OUT NOCOPY NUMBER
6957: ,x_msg_data OUT NOCOPY VARCHAR2
6958: ,p_khr_id IN NUMBER
7401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'AFTER calling okl_trx_contracts_pub.create_trx_contracts');
7403: END IF;
7404:
7405: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7406: RAISE OKC_API.G_EXCEPTION_ERROR;
7407: END IF;
7408:
7409:
7402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'AFTER calling okl_trx_contracts_pub.create_trx_contracts');
7403: END IF;
7404:
7405: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7406: RAISE OKC_API.G_EXCEPTION_ERROR;
7407: END IF;
7408:
7409:
7410: