[Home] [Help]
581: ----------------------------------------------------------------------------------------------------
582:
583: -- Start of Comments
584: -- Created By: Santhosh Siruvole (ssiruvol)
585: -- Function Name line_residualvalue
586: -- Description: returns the residual_value of the a financial asset line.
587: -- Dependencies:
588: -- Parameters: contract id and line id
589: -- Version: 1.0
582:
583: -- Start of Comments
584: -- Created By: Santhosh Siruvole (ssiruvol)
585: -- Function Name line_residualvalue
586: -- Description: returns the residual_value of the a financial asset line.
587: -- Dependencies:
588: -- Parameters: contract id and line id
589: -- Version: 1.0
590: -- SECHAWLA 05-MAY-04 3578894 : Modified to accomodate additional parameters for Reporting product
592: -- PRASJAIN Bug 6030917 : Added Proration Logic
593: -- End of Commnets
594:
595: ----------------------------------------------------------------------------------------------------
596: FUNCTION line_residual_value(
597: p_chr_id IN NUMBER,
598: p_line_id IN NUMBER) RETURN NUMBER IS
599:
600: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_RESIDUAL_VALUE';
596: FUNCTION line_residual_value(
597: p_chr_id IN NUMBER,
598: p_line_id IN NUMBER) RETURN NUMBER IS
599:
600: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_RESIDUAL_VALUE';
601: l_api_version CONSTANT NUMBER := 1;
602: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
603: x_msg_count NUMBER;
604: x_msg_data VARCHAR2(256);
602: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
603: x_msg_count NUMBER;
604: x_msg_data VARCHAR2(256);
605:
606: l_residual_value NUMBER := 0.0;
607: l_oec NUMBER := 0.0;
608:
609: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
610: SELECT NVL(kle.residual_value,0) Value,
605:
606: l_residual_value NUMBER := 0.0;
607: l_oec NUMBER := 0.0;
608:
609: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
610: SELECT NVL(kle.residual_value,0) Value,
611: NVL(kle.residual_percentage,0) Percent
612: FROM OKC_LINE_STYLES_B LS,
613: okl_K_lines_full_v kle,
606: l_residual_value NUMBER := 0.0;
607: l_oec NUMBER := 0.0;
608:
609: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
610: SELECT NVL(kle.residual_value,0) Value,
611: NVL(kle.residual_percentage,0) Percent
612: FROM OKC_LINE_STYLES_B LS,
613: okl_K_lines_full_v kle,
614: okc_statuses_b sts
607: l_oec NUMBER := 0.0;
608:
609: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
610: SELECT NVL(kle.residual_value,0) Value,
611: NVL(kle.residual_percentage,0) Percent
612: FROM OKC_LINE_STYLES_B LS,
613: okl_K_lines_full_v kle,
614: okc_statuses_b sts
615: WHERE LS.ID = KLE.LSE_ID
618: AND KLE.DNZ_CHR_ID = chrId
619: AND kle.sts_code = sts.code
620: AND sts.ste_code NOT IN ('TERMINATED', 'EXPIRED', 'CANCELLED', 'HOLD');
621:
622: CURSOR residual_csr_incl_terminated( chrId NUMBER, lineId NUMBER ) IS
623: SELECT NVL(kle.residual_value,0) Value,
624: NVL(kle.residual_percentage,0) Percent
625: FROM OKC_LINE_STYLES_B LS,
626: okl_K_lines_full_v kle,
619: AND kle.sts_code = sts.code
620: AND sts.ste_code NOT IN ('TERMINATED', 'EXPIRED', 'CANCELLED', 'HOLD');
621:
622: CURSOR residual_csr_incl_terminated( chrId NUMBER, lineId NUMBER ) IS
623: SELECT NVL(kle.residual_value,0) Value,
624: NVL(kle.residual_percentage,0) Percent
625: FROM OKC_LINE_STYLES_B LS,
626: okl_K_lines_full_v kle,
627: okc_statuses_b sts
620: AND sts.ste_code NOT IN ('TERMINATED', 'EXPIRED', 'CANCELLED', 'HOLD');
621:
622: CURSOR residual_csr_incl_terminated( chrId NUMBER, lineId NUMBER ) IS
623: SELECT NVL(kle.residual_value,0) Value,
624: NVL(kle.residual_percentage,0) Percent
625: FROM OKC_LINE_STYLES_B LS,
626: okl_K_lines_full_v kle,
627: okc_statuses_b sts
628: WHERE LS.ID = KLE.LSE_ID
631: AND KLE.DNZ_CHR_ID = chrId
632: AND kle.sts_code = sts.code
633: AND sts.ste_code NOT IN ('EXPIRED', 'CANCELLED', 'HOLD');
634:
635: residual_rec residual_csr%ROWTYPE;
636: --SECHAWLA 05-MAY-04 3578894 : new declarations
637: l_rep_prod_streams_yn VARCHAR2(1) := 'N';
638: l_trx_date DATE;
639: l_k_end_date DATE;
715: END LOOP;
716: END IF;
717: -- rmunjulu 4042892
718: IF l_discount_incl_terminated THEN
719: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );
720: FETCH residual_csr_incl_terminated INTO residual_rec;
721: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
723: END IF;
716: END IF;
717: -- rmunjulu 4042892
718: IF l_discount_incl_terminated THEN
719: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );
720: FETCH residual_csr_incl_terminated INTO residual_rec;
721: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
723: END IF;
724: CLOSE residual_csr_incl_terminated;
717: -- rmunjulu 4042892
718: IF l_discount_incl_terminated THEN
719: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );
720: FETCH residual_csr_incl_terminated INTO residual_rec;
721: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
723: END IF;
724: CLOSE residual_csr_incl_terminated;
725: ELSE
720: FETCH residual_csr_incl_terminated INTO residual_rec;
721: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
723: END IF;
724: CLOSE residual_csr_incl_terminated;
725: ELSE
726: OPEN residual_csr( p_chr_id, p_line_id );
727: FETCH residual_csr INTO residual_rec;
728: IF( residual_csr%NOTFOUND ) THEN
722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
723: END IF;
724: CLOSE residual_csr_incl_terminated;
725: ELSE
726: OPEN residual_csr( p_chr_id, p_line_id );
727: FETCH residual_csr INTO residual_rec;
728: IF( residual_csr%NOTFOUND ) THEN
729: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
730: END IF;
723: END IF;
724: CLOSE residual_csr_incl_terminated;
725: ELSE
726: OPEN residual_csr( p_chr_id, p_line_id );
727: FETCH residual_csr INTO residual_rec;
728: IF( residual_csr%NOTFOUND ) THEN
729: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
730: END IF;
731: CLOSE residual_csr;
724: CLOSE residual_csr_incl_terminated;
725: ELSE
726: OPEN residual_csr( p_chr_id, p_line_id );
727: FETCH residual_csr INTO residual_rec;
728: IF( residual_csr%NOTFOUND ) THEN
729: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
730: END IF;
731: CLOSE residual_csr;
732: END IF;
727: FETCH residual_csr INTO residual_rec;
728: IF( residual_csr%NOTFOUND ) THEN
729: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
730: END IF;
731: CLOSE residual_csr;
732: END IF;
733:
734: IF ( residual_rec.Value <> 0 ) THEN
735: l_residual_value := residual_rec.Value;
730: END IF;
731: CLOSE residual_csr;
732: END IF;
733:
734: IF ( residual_rec.Value <> 0 ) THEN
735: l_residual_value := residual_rec.Value;
736: ELSE
737: l_oec := line_oec( p_chr_id, p_line_id );
738: IF ( l_oec IS NULL ) THEN
731: CLOSE residual_csr;
732: END IF;
733:
734: IF ( residual_rec.Value <> 0 ) THEN
735: l_residual_value := residual_rec.Value;
736: ELSE
737: l_oec := line_oec( p_chr_id, p_line_id );
738: IF ( l_oec IS NULL ) THEN
739: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
737: l_oec := line_oec( p_chr_id, p_line_id );
738: IF ( l_oec IS NULL ) THEN
739: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
740: END IF;
741: l_residual_value := residual_rec.Percent * l_oec / 100.00;
742: END IF;
743:
744: -- Start : Bug 6030917 : prasjain
745: IF nvl(l_proration_factor,1) <> 1 THEN
742: END IF;
743:
744: -- Start : Bug 6030917 : prasjain
745: IF nvl(l_proration_factor,1) <> 1 THEN
746: l_residual_value := l_residual_value * l_proration_factor;
747: END IF;
748: -- End : Bug 6030917 : prasjain
749:
750: RETURN l_residual_value;
746: l_residual_value := l_residual_value * l_proration_factor;
747: END IF;
748: -- End : Bug 6030917 : prasjain
749:
750: RETURN l_residual_value;
751:
752: EXCEPTION
753: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
754: IF residual_csr%ISOPEN THEN
750: RETURN l_residual_value;
751:
752: EXCEPTION
753: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
754: IF residual_csr%ISOPEN THEN
755: CLOSE residual_csr;
756: END IF;
757:
758: IF l_contract_csr%ISOPEN THEN
751:
752: EXCEPTION
753: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
754: IF residual_csr%ISOPEN THEN
755: CLOSE residual_csr;
756: END IF;
757:
758: IF l_contract_csr%ISOPEN THEN
759: CLOSE l_contract_csr;
761:
762: RETURN NULL;
763: -- SECHAWLA 02-FEB-05 4141411 : Added unexpected error exception handling block
764: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
765: IF residual_csr%ISOPEN THEN
766: CLOSE residual_csr;
767: END IF;
768:
769: IF l_contract_csr%ISOPEN THEN
762: RETURN NULL;
763: -- SECHAWLA 02-FEB-05 4141411 : Added unexpected error exception handling block
764: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
765: IF residual_csr%ISOPEN THEN
766: CLOSE residual_csr;
767: END IF;
768:
769: IF l_contract_csr%ISOPEN THEN
770: CLOSE l_contract_csr;
771: END IF;
772:
773: RETURN NULL;
774: WHEN OTHERS THEN
775: IF residual_csr%ISOPEN THEN
776: CLOSE residual_csr;
777: END IF;
778:
779: IF l_contract_csr%ISOPEN THEN
772:
773: RETURN NULL;
774: WHEN OTHERS THEN
775: IF residual_csr%ISOPEN THEN
776: CLOSE residual_csr;
777: END IF;
778:
779: IF l_contract_csr%ISOPEN THEN
780: CLOSE l_contract_csr;
789: p_token2_value => SQLERRM);
790: RETURN NULL;
791:
792:
793: END line_residual_value;
794:
795: ----------------------------------------------------------------------------------------------------
796:
797: -- Start of Comments
795: ----------------------------------------------------------------------------------------------------
796:
797: -- Start of Comments
798: -- Created By: Santhosh Siruvole (ssiruvol)
799: -- Function Name contract_residualvalue
800: -- Description: returns the sum of residual_value of all financial asset lines of a contract.
801: -- Dependencies:
802: -- Parameters: contract id.
803: -- Version: 1.0
796:
797: -- Start of Comments
798: -- Created By: Santhosh Siruvole (ssiruvol)
799: -- Function Name contract_residualvalue
800: -- Description: returns the sum of residual_value of all financial asset lines of a contract.
801: -- Dependencies:
802: -- Parameters: contract id.
803: -- Version: 1.0
804: -- End of Commnets
803: -- Version: 1.0
804: -- End of Commnets
805:
806: ----------------------------------------------------------------------------------------------------
807: FUNCTION contract_residual_value(
808: p_chr_id IN NUMBER,
809: p_line_id IN NUMBER) RETURN NUMBER IS
810:
811: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';
807: FUNCTION contract_residual_value(
808: p_chr_id IN NUMBER,
809: p_line_id IN NUMBER) RETURN NUMBER IS
810:
811: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';
812: l_api_version CONSTANT NUMBER := 1;
813: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
814: x_msg_count NUMBER;
815: x_msg_data VARCHAR2(256);
813: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
814: x_msg_count NUMBER;
815: x_msg_data VARCHAR2(256);
816:
817: l_residual_value NUMBER := 0.0;
818: l_lne_res_value NUMBER := 0.0;
819:
820: CURSOR lines_csr( chrId NUMBER ) IS
821: SELECT kle.id lineId
840: LOOP
841: IF( lines_csr%NOTFOUND ) THEN
842: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
843: END IF;
844: l_lne_res_value := line_residual_value( p_chr_id, line_rec.lineId );
845: IF ( l_lne_res_value IS NULL ) THEN
846: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
847: END IF;
848: l_residual_value := l_residual_value + l_lne_res_value;
844: l_lne_res_value := line_residual_value( p_chr_id, line_rec.lineId );
845: IF ( l_lne_res_value IS NULL ) THEN
846: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
847: END IF;
848: l_residual_value := l_residual_value + l_lne_res_value;
849: END LOOP;
850:
851: RETURN l_residual_value;
852:
847: END IF;
848: l_residual_value := l_residual_value + l_lne_res_value;
849: END LOOP;
850:
851: RETURN l_residual_value;
852:
853: EXCEPTION
854:
855: WHEN OTHERS THEN
861: p_token2 => G_SQLERRM_TOKEN,
862: p_token2_value => SQLERRM);
863: RETURN NULL;
864:
865: END contract_residual_value;
866:
867:
868: ----------------------------------------------------------------------------------------------------
869:
1070: x_return_status OUT NOCOPY VARCHAR2) IS
1071: ln_dummy NUMBER := 0;
1072: CURSOR c_dnz_chr_id_validate(p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
1073: SELECT 1
1074: --FROM DUAL
1075: --WHERE EXISTS (SELECT 1
1076: FROM OKC_K_HEADERS_B CHR
1077: WHERE CHR.id = p_dnz_chr_id; --);
1078: BEGIN
3789: ----------------------------------------------------------------------------------------------------
3790:
3791: -- Start of Comments
3792: -- Created By : Shri Iyer
3793: -- Function Name : CONTRACT_UNGUARANTEED_RESIDUAL
3794: -- Description : This function returns the unguaranteed residual for a contract
3795: -- Dependencies : None
3796: -- Parameters : contract id, contract line id
3797: -- Version : 1.0
3790:
3791: -- Start of Comments
3792: -- Created By : Shri Iyer
3793: -- Function Name : CONTRACT_UNGUARANTEED_RESIDUAL
3794: -- Description : This function returns the unguaranteed residual for a contract
3795: -- Dependencies : None
3796: -- Parameters : contract id, contract line id
3797: -- Version : 1.0
3798: -- End of Commnets
3798: -- End of Commnets
3799:
3800: ----------------------------------------------------------------------------------------------------
3801:
3802: FUNCTION CONTRACT_UNGUARANTEED_RESIDUAL(p_khr_id IN NUMBER, p_kle_id IN NUMBER) RETURN NUMBER IS
3803: l_unguaranteed_residual NUMBER := 0;
3804: l_contract_number VARCHAR2(2000);
3805:
3806: -- cursor to get the contract number
3799:
3800: ----------------------------------------------------------------------------------------------------
3801:
3802: FUNCTION CONTRACT_UNGUARANTEED_RESIDUAL(p_khr_id IN NUMBER, p_kle_id IN NUMBER) RETURN NUMBER IS
3803: l_unguaranteed_residual NUMBER := 0;
3804: l_contract_number VARCHAR2(2000);
3805:
3806: -- cursor to get the contract number
3807: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS
3809: FROM OKL_K_HEADERS_FULL_V
3810: WHERE id = p_ctr_id;
3811:
3812: CURSOR get_ung_res_csr(p_ctr_id NUMBER) IS
3813: SELECT SUM(NVL(RESIDUAL_VALUE,0)) - SUM(NVL(RESIDUAL_GRNTY_AMOUNT, 0))
3814: FROM OKL_K_LINES_FULL_V
3815: WHERE DNZ_CHR_ID = p_ctr_id;
3816:
3817: BEGIN
3825: END IF;
3826: CLOSE contract_num_csr;
3827:
3828: OPEN get_ung_res_csr(p_khr_id);
3829: FETCH get_ung_res_csr INTO l_unguaranteed_residual;
3830: IF get_ung_res_csr%NOTFOUND THEN
3831: Okl_Api.Set_Message(p_app_name => g_app_name,
3832: p_msg_name => 'OKL_LPV_FE_UNG_RES',
3833: p_token1 => 'CONTRACT_NUMBER',
3837: END IF;
3838: CLOSE get_ung_res_csr;
3839:
3840: -- Bug 2969989. Return zero explicitly if nothing found.
3841: IF l_unguaranteed_residual IS NULL THEN
3842: l_unguaranteed_residual := 0;
3843: END IF;
3844:
3845: RETURN l_unguaranteed_residual;
3838: CLOSE get_ung_res_csr;
3839:
3840: -- Bug 2969989. Return zero explicitly if nothing found.
3841: IF l_unguaranteed_residual IS NULL THEN
3842: l_unguaranteed_residual := 0;
3843: END IF;
3844:
3845: RETURN l_unguaranteed_residual;
3846:
3841: IF l_unguaranteed_residual IS NULL THEN
3842: l_unguaranteed_residual := 0;
3843: END IF;
3844:
3845: RETURN l_unguaranteed_residual;
3846:
3847: EXCEPTION
3848: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3849: RETURN NULL;
3856: p_token1_value => SQLCODE,
3857: p_token2 => G_SQLERRM_TOKEN,
3858: p_token2_value => SQLERRM);
3859: RETURN NULL;
3860: END CONTRACT_UNGUARANTEED_RESIDUAL;
3861:
3862: ----------------------------------------------------------------------------------------------------
3863:
3864: -- Start of Comments
4669: FETCH get_quote_date_csr INTO l_quote_date_eff;
4670: CLOSE get_quote_date_csr;
4671: END IF;
4672:
4673: SELECT SYSDATE INTO l_sysdate FROM DUAL;
4674:
4675: IF l_quote_date_eff IS NULL
4676: OR l_quote_date_eff = OKL_API.G_MISS_DATE
4677: THEN
5384:
5385: ------------------------------------------------------------------------------
5386: -- Start of Comments
5387: -- Created By: [email protected] - 24-APR-2002
5388: -- Function Name: line_calculate_residual_value
5389: -- Description: Returns the residual value for a given contract line
5390: -- using an hook to an external system.
5391: -- Just a shell for now
5392: -- Dependencies:
5385: ------------------------------------------------------------------------------
5386: -- Start of Comments
5387: -- Created By: [email protected] - 24-APR-2002
5388: -- Function Name: line_calculate_residual_value
5389: -- Description: Returns the residual value for a given contract line
5390: -- using an hook to an external system.
5391: -- Just a shell for now
5392: -- Dependencies:
5393: -- Parameters: IN: p_contract_id, p_line_id
5395: -- Version: 1.0
5396: -- End of Commnets
5397: ------------------------------------------------------------------------------
5398:
5399: FUNCTION line_calculate_residual_value (
5400: p_contract_id IN NUMBER,
5401: p_contract_line_id IN NUMBER)
5402: RETURN NUMBER IS
5403: BEGIN
5401: p_contract_line_id IN NUMBER)
5402: RETURN NUMBER IS
5403: BEGIN
5404: RETURN 0;
5405: END line_calculate_residual_value;
5406:
5407: ---------------------------------------------
5408: -- CS Functions
5409: ---------------------------------------------
5468: ----------------------------------------------------------------------------------------------------
5469:
5470: -- Start of Comments
5471: -- Created By: Ranu Srivastava (rsrivast)
5472: -- Function Name contract_residual_amount
5473: -- Description: returns the residual value for given contract
5474: -- Dependencies:
5475: -- Parameters: contract id,contract line id
5476: -- Version: 1.0
5469:
5470: -- Start of Comments
5471: -- Created By: Ranu Srivastava (rsrivast)
5472: -- Function Name contract_residual_amount
5473: -- Description: returns the residual value for given contract
5474: -- Dependencies:
5475: -- Parameters: contract id,contract line id
5476: -- Version: 1.0
5477: -- 20-Dec-02 rsrivast Added new cursor line to calculate contract residual amount for line
5473: -- Description: returns the residual value for given contract
5474: -- Dependencies:
5475: -- Parameters: contract id,contract line id
5476: -- Version: 1.0
5477: -- 20-Dec-02 rsrivast Added new cursor line to calculate contract residual amount for line
5478: -- 27-Oct-04 PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
5479: -- End of Commnets
5480: ----------------------------------------------------------------------------------------------------
5481:
5478: -- 27-Oct-04 PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
5479: -- End of Commnets
5480: ----------------------------------------------------------------------------------------------------
5481:
5482: FUNCTION contract_residual_amount( p_contract_id IN NUMBER
5483: ,p_contract_line_id IN NUMBER) RETURN NUMBER
5484: IS
5485: l_residual_value NUMBER := 0;
5486:
5481:
5482: FUNCTION contract_residual_amount( p_contract_id IN NUMBER
5483: ,p_contract_line_id IN NUMBER) RETURN NUMBER
5484: IS
5485: l_residual_value NUMBER := 0;
5486:
5487: CURSOR C (p_contract_id NUMBER)
5488:
5489: IS
5486:
5487: CURSOR C (p_contract_id NUMBER)
5488:
5489: IS
5490: SELECT NVL(SUM(RESIDUAL_VALUE),0)
5491: FROM okl_k_lines_full_v
5492: WHERE dnz_chr_id= p_contract_id
5493: AND sts_code <> 'TERMINATED';
5494:
5500: okl_streams str,
5501: okl_strm_type_v sty
5502: WHERE cs.stm_id = asv.id AND bs.id = asv.sty_id
5503: AND str.sty_id = sty.id
5504: AND UPPER(sty.name) = 'RESIDUAL VALUE'
5505: AND str.say_code = 'CURR'
5506: --multigaap changes
5507: AND STR.ACTIVE_YN = 'Y'
5508: AND STR.PURPOSE_CODE is NULL --end multigaap changes AND
5510: asv.khr_id = p_contract_id; */
5511:
5512: CURSOR line(p_contract_line_id NUMBER)
5513: IS
5514: SELECT NVL(RESIDUAL_VALUE,0)
5515: FROM okl_k_lines
5516: WHERE id = p_contract_line_id;
5517:
5518:
5519: BEGIN
5520: IF p_contract_line_id IS NOT NULL
5521: AND p_contract_line_id <> OKL_API.G_MISS_NUM THEN -- PAGARG bug#3974997 -- check for G_MISS when checking for NULL
5522: OPEN line (p_contract_line_id);
5523: FETCH line INTO l_residual_value;
5524: CLOSE line;
5525: ELSE
5526: OPEN C (p_contract_id);
5527: FETCH C INTO l_residual_value;
5523: FETCH line INTO l_residual_value;
5524: CLOSE line;
5525: ELSE
5526: OPEN C (p_contract_id);
5527: FETCH C INTO l_residual_value;
5528: CLOSE C;
5529: END IF;
5530: RETURN l_residual_value;
5531: EXCEPTION
5526: OPEN C (p_contract_id);
5527: FETCH C INTO l_residual_value;
5528: CLOSE C;
5529: END IF;
5530: RETURN l_residual_value;
5531: EXCEPTION
5532: WHEN OTHERS THEN
5533: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5534: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6226: END LOOP;
6227: END IF;
6228:
6229: -- rmunjulu EDAT
6230: SELECT SYSDATE INTO l_sysdate FROM dual;
6231:
6232: -- rmunjulu EDAT -- get eff date for quote
6233: IF l_quote_id IS NOT NULL
6234: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
6833: -- Start of Comments
6834: -- Created By: Punitharaj Devaraju (pdevaraj)
6835: -- Function Name: contract_net_investment
6836: -- Description: Get net investment for a contract.
6837: -- Dependencies: OKL_SEEDED_FUNCTIONS_PVT.contract_residual_value
6838: -- OKL_SEEDED_FUNCTIONS_PVT.contract_sum_of_rents
6839: -- OKL_SEEDED_FUNCTIONS_PVT.contract_income
6840: -- Parameters: contract id.
6841: -- Version: 1.0
6852: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6853: l_msg_count NUMBER;
6854: l_msg_data VARCHAR2(2000);
6855: l_rent NUMBER := 0;
6856: l_residual NUMBER := 0;
6857: l_income NUMBER := 0;
6858: l_net_investment NUMBER := 0;
6859:
6860: BEGIN
6858: l_net_investment NUMBER := 0;
6859:
6860: BEGIN
6861:
6862: -- Get Residual Value
6863: l_residual := Okl_Seeded_Functions_Pvt.contract_residual_value(p_chr_id => p_chr_id, p_line_id => NULL);
6864:
6865: -- Get Rent
6866: l_rent := Okl_Seeded_Functions_Pvt.contract_sum_of_rents(p_chr_id, NULL);
6859:
6860: BEGIN
6861:
6862: -- Get Residual Value
6863: l_residual := Okl_Seeded_Functions_Pvt.contract_residual_value(p_chr_id => p_chr_id, p_line_id => NULL);
6864:
6865: -- Get Rent
6866: l_rent := Okl_Seeded_Functions_Pvt.contract_sum_of_rents(p_chr_id, NULL);
6867:
6868: -- Get Rent
6869: l_income := Okl_Seeded_Functions_Pvt.contract_income(p_chr_id, NULL);
6870:
6871: -- Calculate Net Investment
6872: l_net_investment := l_rent + l_residual - l_income;
6873:
6874: RETURN l_net_investment;
6875: EXCEPTION
6876: WHEN OTHERS THEN
7450: AND pocb.sty_id = p_sty_id
7451: -- mvasudev, 03/30/2004
7452: AND pocb.status_Code = 'ACTIVE'
7453: /*
7454: ankushar --Bug 6594724: Unable to terminate Investor Agreement with Residual Streams
7455: Start changes
7456: */
7457: AND stmb.sty_id = styv.id
7458: AND pocb.khr_id = chrb.id
7457: AND stmb.sty_id = styv.id
7458: AND pocb.khr_id = chrb.id
7459: AND(selb.stream_element_date > SYSDATE
7460: OR
7461: (styv.stream_type_subclass = 'RESIDUAL'
7462: and chrb.STS_CODE IN ('TERMINATED','EXPIRED')
7463: )
7464: )
7465: /* ankushar Bug 6594724
7675:
7676: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
7677: FOR l_okl_pv_amounts_pending_rec IN l_okl_pv_amounts_pending_csr('PV_RV_SECURITIZED')
7678: LOOP
7679: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
7680: LOOP
7681: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
7682: END LOOP;
7683: IF (l_total_percent >0 AND l_total_percent <=100) THEN
7686: END LOOP; -- PV_RV_SECURITIZED
7687: ELSE
7688: FOR l_okl_pv_amounts_rec IN l_okl_pv_amounts_csr('PV_RV_SECURITIZED')
7689: LOOP
7690: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
7691: LOOP
7692: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
7693: END LOOP;
7694: IF (l_total_percent >0 AND l_total_percent <=100) THEN
8135: l_total_percent := 0;
8136: l_per_subclass_amount := 0;
8137:
8138: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8139: FOR l_streams_amount_pending_rec IN l_streams_amount_pending_csr(l_pol_id, 'RESIDUAL')
8140: LOOP
8141: l_per_subclass_amount := l_streams_amount_pending_rec.amount;
8142: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8143: LOOP
8138: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8139: FOR l_streams_amount_pending_rec IN l_streams_amount_pending_csr(l_pol_id, 'RESIDUAL')
8140: LOOP
8141: l_per_subclass_amount := l_streams_amount_pending_rec.amount;
8142: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8143: LOOP
8144: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8145: END LOOP;
8146: END LOOP;
8144: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8145: END LOOP;
8146: END LOOP;
8147: ELSE
8148: FOR l_streams_amount_csr_rec IN l_streams_amount_csr(l_pol_id, 'RESIDUAL')
8149: LOOP
8150: l_per_subclass_amount := l_streams_amount_csr_rec.amount;
8151: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8152: LOOP
8147: ELSE
8148: FOR l_streams_amount_csr_rec IN l_streams_amount_csr(l_pol_id, 'RESIDUAL')
8149: LOOP
8150: l_per_subclass_amount := l_streams_amount_csr_rec.amount;
8151: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8152: LOOP
8153: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8154: END LOOP;
8155: END LOOP;
8920: END LOOP;
8921: END IF;
8922:
8923: -- rmunjulu EDAT
8924: select sysdate into l_sysdate from dual;
8925:
8926: -- rmunjulu EDAT
8927: IF l_quote_id IS NOT NULL
8928: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
9031: ------------------------------------------------------------------------------
9032: -- Start of Comments
9033: -- Created By: Manjit Dokal - 18-JUL-2003
9034: -- Function Name: investor_rv_factor
9035: -- Description: Calculate Investor Residual Value Factor
9036: -- Dependencies: OKL building blocks AMTX and AMUV,
9037: -- Parameters: IN: p_contract_id, p_contract_line_id (optional)
9038: -- OUT: amount
9039: -- History rmunjulu EDAT Changed to get all residual streams amount
9035: -- Description: Calculate Investor Residual Value Factor
9036: -- Dependencies: OKL building blocks AMTX and AMUV,
9037: -- Parameters: IN: p_contract_id, p_contract_line_id (optional)
9038: -- OUT: amount
9039: -- History rmunjulu EDAT Changed to get all residual streams amount
9040: -- : PAGARG 19-Nov-2004 Bug# 4012614
9041: -- : Fetching the l_unbill_stream_csr value into correct variable
9042: -- : UDS impact and modified to use correct stream type purpose
9043: -- Version: 1.0
9049: p_contract_line_id IN NUMBER)
9050: RETURN NUMBER IS
9051:
9052: --Bug# 4012614 PAGARG modified the cursor for User Defined Streams Impact
9053: -- Get Residual Streams
9054: -- Get Residual Streams
9055: CURSOR l_unbill_stream_csr (
9056: cp_contract_id NUMBER,
9057: cp_contract_line_id NUMBER,
9050: RETURN NUMBER IS
9051:
9052: --Bug# 4012614 PAGARG modified the cursor for User Defined Streams Impact
9053: -- Get Residual Streams
9054: -- Get Residual Streams
9055: CURSOR l_unbill_stream_csr (
9056: cp_contract_id NUMBER,
9057: cp_contract_line_id NUMBER,
9058: cp_sty_id NUMBER) IS
9075: AND pocb.khr_id = stm.khr_id
9076: AND pocb.kle_id = stm.kle_id
9077: AND pocb.sty_id = stm.sty_id;
9078:
9079: -- Get Residual Streams
9080: CURSOR l_unbill_stream_pending_csr (
9081: cp_contract_id NUMBER,
9082: cp_contract_line_id NUMBER,
9083: cp_sty_id NUMBER) IS
9101: AND pocb.kle_id = stm.kle_id
9102: AND pocb.sty_id = stm.sty_id;
9103:
9104: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
9105: l_residual_amount NUMBER := 0;
9106: l_result_amount NUMBER := 0;
9107: l_sty_id OKL_STRM_TYPE_TL.ID%TYPE := 0;
9108: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
9109:
9113: -- ****************
9114: --PAGARG 19-Nov-2004 Bug# 4012614
9115: --UDS impact. Obtain stream type id and pass it to cursor
9116: OKL_STREAMS_UTIL.get_primary_stream_type(p_contract_id,
9117: 'RESIDUAL_VALUE',
9118: l_return_status,
9119: l_sty_id);
9120:
9121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9136: END IF;
9137:
9138: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9139: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id, l_sty_id);
9140: FETCH l_unbill_stream_pending_csr INTO l_residual_amount;
9141: CLOSE l_unbill_stream_pending_csr;
9142: ELSE
9143: --PAGARG 19-Nov-2004 Bug# 4012614
9144: --Fetch cursor value into correct variable l_residual_amount
9140: FETCH l_unbill_stream_pending_csr INTO l_residual_amount;
9141: CLOSE l_unbill_stream_pending_csr;
9142: ELSE
9143: --PAGARG 19-Nov-2004 Bug# 4012614
9144: --Fetch cursor value into correct variable l_residual_amount
9145: OPEN l_unbill_stream_csr (p_contract_id, p_contract_line_id, l_sty_id);
9146: FETCH l_unbill_stream_csr INTO l_residual_amount;
9147: CLOSE l_unbill_stream_csr;
9148: END IF;
9142: ELSE
9143: --PAGARG 19-Nov-2004 Bug# 4012614
9144: --Fetch cursor value into correct variable l_residual_amount
9145: OPEN l_unbill_stream_csr (p_contract_id, p_contract_line_id, l_sty_id);
9146: FETCH l_unbill_stream_csr INTO l_residual_amount;
9147: CLOSE l_unbill_stream_csr;
9148: END IF;
9149:
9150: -- this condition is included to prevent 'ORA-01476: divisor is equal to zero' error
9148: END IF;
9149:
9150: -- this condition is included to prevent 'ORA-01476: divisor is equal to zero' error
9151: -- need to seed a new message
9152: IF l_residual_amount = 0 THEN
9153: l_result_amount := 0;
9154: ELSE
9155: l_result_amount := l_residual_amount/l_residual_amount;
9156: END IF;
9151: -- need to seed a new message
9152: IF l_residual_amount = 0 THEN
9153: l_result_amount := 0;
9154: ELSE
9155: l_result_amount := l_residual_amount/l_residual_amount;
9156: END IF;
9157:
9158: RETURN l_result_amount;
9159:
9344: END LOOP;
9345: END IF;
9346:
9347: -- rmunjulu EDAT
9348: select sysdate into l_sysdate from dual;
9349:
9350: -- rmunjulu EDAT
9351: IF l_quote_id IS NOT NULL
9352: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
9600: l_total_invest NUMBER := 0;
9601: l_line_asset_invest NUMBER := 0 ;
9602: l_return_status VARCHAR2(1);
9603: l_unbilled_rent NUMBER;
9604: l_residual_value NUMBER;
9605: l_unearned_income NUMBER;
9606:
9607: BEGIN
9608:
9623: FOR l_line IN c_quote_asset_line(l_quote_id)
9624: LOOP
9625:
9626: l_unbilled_rent := line_unbilled_rent(p_khr_id,l_line.kle_id);
9627: l_residual_value := line_residual_value(p_khr_id,l_line.kle_id);
9628: l_unearned_income := line_unearned_income(p_khr_id,l_line.kle_id);
9629:
9630: l_line_asset_invest := l_unbilled_rent + l_residual_value -l_unearned_income;
9631:
9626: l_unbilled_rent := line_unbilled_rent(p_khr_id,l_line.kle_id);
9627: l_residual_value := line_residual_value(p_khr_id,l_line.kle_id);
9628: l_unearned_income := line_unearned_income(p_khr_id,l_line.kle_id);
9629:
9630: l_line_asset_invest := l_unbilled_rent + l_residual_value -l_unearned_income;
9631:
9632: l_total_invest := l_total_invest + l_line_asset_invest;
9633:
9634: END LOOP;
9874: l_fee_type := l_amrfee;
9875: END IF;
9876:
9877: -- rmunjulu EDAT
9878: select sysdate into l_sysdate from dual;
9879:
9880: -- rmunjulu EDAT
9881: IF l_quote_id IS NOT NULL
9882: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
12362:
12363: END line_future_income;
12364:
12365: -- Start of Comments
12366: -- Function Name: Asset_Residual
12367: -- Description: Returns the Residual value for an asset
12368: -- Dependencies:
12369: -- Parameters: IN: p_contract_id, p_contract_line_id ,p_additional_paams(quote_id, kle_id)
12370: -- OUT: amount
12363: END line_future_income;
12364:
12365: -- Start of Comments
12366: -- Function Name: Asset_Residual
12367: -- Description: Returns the Residual value for an asset
12368: -- Dependencies:
12369: -- Parameters: IN: p_contract_id, p_contract_line_id ,p_additional_paams(quote_id, kle_id)
12370: -- OUT: amount
12371: -- rmunjulu 3816891 created
12372: -- Version: 1.0
12373: -- End of Commnets
12374: ------------------------------------------------------------------------------
12375:
12376: FUNCTION asset_residual(
12377: p_khr_id IN NUMBER,
12378: p_kle_id IN NUMBER)
12379: RETURN NUMBER IS
12380:
12387: WHERE qte.id = p_quote_id;
12388:
12389: -- get asset niv from quote lines
12390: CURSOR get_asset_niv_csr (p_kle_id IN NUMBER, p_quote_id IN NUMBER) IS
12391: SELECT nvl(tql.asset_value,0) residual_value
12392: FROM okl_txl_quote_lines_v tql
12393: WHERE tql.qte_id = p_quote_id
12394: AND tql.qlt_code = 'AMCFIA'
12395: AND tql.kle_id = p_kle_id;
12402: AND tal_type = 'AML'
12403: AND ROWNUM < 2;
12404:
12405: l_quote_id NUMBER;
12406: l_asset_residual NUMBER;
12407: l_quote_type VARCHAR2(300);
12408: l_residual NUMBER;
12409: l_corp_book_cost NUMBER;
12410:
12404:
12405: l_quote_id NUMBER;
12406: l_asset_residual NUMBER;
12407: l_quote_type VARCHAR2(300);
12408: l_residual NUMBER;
12409: l_corp_book_cost NUMBER;
12410:
12411: BEGIN
12412:
12441:
12442: -- Get the asset NIV from the quoted quote line
12443: FOR get_asset_niv_rec IN get_asset_niv_csr (p_kle_id,l_quote_id ) LOOP
12444:
12445: l_asset_residual := get_asset_niv_rec.residual_value;
12446: END LOOP;
12447:
12448: ELSE -- termination without purchase
12449:
12449:
12450: -- Get the Off-lease trn value
12451: FOR get_deprn_cost_rec IN get_deprn_cost_csr (p_kle_id ) LOOP
12452:
12453: l_asset_residual := get_deprn_cost_rec.depreciation_cost;
12454: END LOOP;
12455: END IF;
12456:
12457: IF l_asset_residual IS NULL THEN
12453: l_asset_residual := get_deprn_cost_rec.depreciation_cost;
12454: END LOOP;
12455: END IF;
12456:
12457: IF l_asset_residual IS NULL THEN
12458:
12459: l_asset_residual := 0;
12460: END IF;
12461:
12455: END IF;
12456:
12457: IF l_asset_residual IS NULL THEN
12458:
12459: l_asset_residual := 0;
12460: END IF;
12461:
12462: RETURN l_asset_residual;
12463:
12458:
12459: l_asset_residual := 0;
12460: END IF;
12461:
12462: RETURN l_asset_residual;
12463:
12464: EXCEPTION
12465:
12466: WHEN Expected_error THEN
12474: p_token1_value => SQLCODE,
12475: p_token2 => 'OKL_SQLERRM',
12476: p_token2_value => SQLERRM);
12477: RETURN NULL;
12478: END asset_residual;
12479:
12480: -- rfedane 4058562
12481: FUNCTION principal_balance_fee_line (p_contract_id IN NUMBER,
12482: p_contract_line_id IN NUMBER) RETURN NUMBER IS
12885: END contract_unbilled_streams;
12886: -- varangan Bug#5036582 end
12887:
12888:
12889: -- rmunjulu VENDOR_RESIDUAL_SHARE PROJECT
12890: FUNCTION vendor_residual_share_amount(
12891: p_khr_id IN NUMBER,
12892: p_kle_id IN NUMBER)
12893: RETURN NUMBER IS
12886: -- varangan Bug#5036582 end
12887:
12888:
12889: -- rmunjulu VENDOR_RESIDUAL_SHARE PROJECT
12890: FUNCTION vendor_residual_share_amount(
12891: p_khr_id IN NUMBER,
12892: p_kle_id IN NUMBER)
12893: RETURN NUMBER IS
12894:
12891: p_khr_id IN NUMBER,
12892: p_kle_id IN NUMBER)
12893: RETURN NUMBER IS
12894:
12895: CURSOR get_asset_residual_csr (p_kle_id IN NUMBER) IS
12896: SELECT nvl(KLE.residual_value,0) residual_value
12897: FROM OKL_K_LINES KLE
12898: WHERE KLE.id = p_kle_id;
12899:
12892: p_kle_id IN NUMBER)
12893: RETURN NUMBER IS
12894:
12895: CURSOR get_asset_residual_csr (p_kle_id IN NUMBER) IS
12896: SELECT nvl(KLE.residual_value,0) residual_value
12897: FROM OKL_K_LINES KLE
12898: WHERE KLE.id = p_kle_id;
12899:
12900: CURSOR get_asset_sales_proceeds_csr (p_retirement_id IN NUMBER) IS
12910: EXPECTED_ERROR EXCEPTION;
12911:
12912: l_sales_proceeds NUMBER;
12913: l_share_percent NUMBER;
12914: l_residual_value NUMBER;
12915: l_share_amount NUMBER;
12916: l_currency_code VARCHAR2(15);
12917: l_contract_currency_code VARCHAR2(15);
12918: l_currency_conversion_type VARCHAR2(30);
12957: RAISE EXPECTED_ERROR;
12958: END IF;
12959:
12960: l_sales_proceeds := 0;
12961: l_residual_value := 0;
12962: l_share_percent := 0;
12963: l_share_amount := 0;
12964:
12965: OPEN get_asset_residual_csr (p_kle_id);
12961: l_residual_value := 0;
12962: l_share_percent := 0;
12963: l_share_amount := 0;
12964:
12965: OPEN get_asset_residual_csr (p_kle_id);
12966: FETCH get_asset_residual_csr INTO l_residual_value;
12967: CLOSE get_asset_residual_csr;
12968:
12969: -- get sales proceeds for the retirement id
12962: l_share_percent := 0;
12963: l_share_amount := 0;
12964:
12965: OPEN get_asset_residual_csr (p_kle_id);
12966: FETCH get_asset_residual_csr INTO l_residual_value;
12967: CLOSE get_asset_residual_csr;
12968:
12969: -- get sales proceeds for the retirement id
12970: OPEN get_asset_sales_proceeds_csr (l_retirement_id);
12963: l_share_amount := 0;
12964:
12965: OPEN get_asset_residual_csr (p_kle_id);
12966: FETCH get_asset_residual_csr INTO l_residual_value;
12967: CLOSE get_asset_residual_csr;
12968:
12969: -- get sales proceeds for the retirement id
12970: OPEN get_asset_sales_proceeds_csr (l_retirement_id);
12971: FETCH get_asset_sales_proceeds_csr INTO l_sales_proceeds;
12990: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
12991: RAISE EXPECTED_ERROR;
12992: END IF;
12993:
12994: l_share_amount := nvl(l_converted_sales_proceeds,0) - nvl(l_residual_value,0);
12995:
12996: RETURN l_share_amount; -- has no share percent included, percent will be applied later
12997:
12998: EXCEPTION
12998: EXCEPTION
12999:
13000: WHEN EXPECTED_ERROR THEN
13001:
13002: IF get_asset_residual_csr%ISOPEN THEN
13003: CLOSE get_asset_residual_csr;
13004: END IF;
13005:
13006: IF get_asset_sales_proceeds_csr%ISOPEN THEN
12999:
13000: WHEN EXPECTED_ERROR THEN
13001:
13002: IF get_asset_residual_csr%ISOPEN THEN
13003: CLOSE get_asset_residual_csr;
13004: END IF;
13005:
13006: IF get_asset_sales_proceeds_csr%ISOPEN THEN
13007: CLOSE get_asset_sales_proceeds_csr;
13010: RETURN NULL;
13011:
13012: WHEN OTHERS THEN
13013:
13014: IF get_asset_residual_csr%ISOPEN THEN
13015: CLOSE get_asset_residual_csr;
13016: END IF;
13017:
13018: IF get_asset_sales_proceeds_csr%ISOPEN THEN
13011:
13012: WHEN OTHERS THEN
13013:
13014: IF get_asset_residual_csr%ISOPEN THEN
13015: CLOSE get_asset_residual_csr;
13016: END IF;
13017:
13018: IF get_asset_sales_proceeds_csr%ISOPEN THEN
13019: CLOSE get_asset_sales_proceeds_csr;
13026: p_token1_value => SQLCODE,
13027: p_token2 => 'OKL_SQLERRM',
13028: p_token2_value => SQLERRM);
13029: RETURN NULL;
13030: END vendor_residual_share_amount;
13031:
13032: -- rmunjulu LOANS_ENHANCEMENTS PROJECT
13033: FUNCTION loan_asset_prin_bal(
13034: p_khr_id IN NUMBER,