eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_SEEDED_FUNCTIONS_PVT dependencies on DUAL

Line 658: -- Function Name line_residualvalue

654: ----------------------------------------------------------------------------------------------------
655:
656: -- Start of Comments
657: -- Created By: Santhosh Siruvole (ssiruvol)
658: -- Function Name line_residualvalue
659: -- Description: returns the residual_value of the a financial asset line.
660: -- Dependencies:
661: -- Parameters: contract id and line id
662: -- Version: 1.0

Line 659: -- Description: returns the residual_value of the a financial asset line.

655:
656: -- Start of Comments
657: -- Created By: Santhosh Siruvole (ssiruvol)
658: -- Function Name line_residualvalue
659: -- Description: returns the residual_value of the a financial asset line.
660: -- Dependencies:
661: -- Parameters: contract id and line id
662: -- Version: 1.0
663: -- SECHAWLA 05-MAY-04 3578894 : Modified to accomodate additional parameters for Reporting product

Line 669: FUNCTION line_residual_value(

665: -- PRASJAIN Bug 6030917 : Added Proration Logic
666: -- End of Commnets
667:
668: ----------------------------------------------------------------------------------------------------
669: FUNCTION line_residual_value(
670: p_chr_id IN NUMBER,
671: p_line_id IN NUMBER) RETURN NUMBER IS
672:
673: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_RESIDUAL_VALUE';

Line 673: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_RESIDUAL_VALUE';

669: FUNCTION line_residual_value(
670: p_chr_id IN NUMBER,
671: p_line_id IN NUMBER) RETURN NUMBER IS
672:
673: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_RESIDUAL_VALUE';
674: l_api_version CONSTANT NUMBER := 1;
675: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
676: x_msg_count NUMBER;
677: x_msg_data VARCHAR2(256);

Line 679: l_residual_value NUMBER := 0.0;

675: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
676: x_msg_count NUMBER;
677: x_msg_data VARCHAR2(256);
678:
679: l_residual_value NUMBER := 0.0;
680: l_oec NUMBER := 0.0;
681:
682: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
683: SELECT NVL(kle.residual_value,0) Value,

Line 682: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS

678:
679: l_residual_value NUMBER := 0.0;
680: l_oec NUMBER := 0.0;
681:
682: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
683: SELECT NVL(kle.residual_value,0) Value,
684: NVL(kle.residual_percentage,0) Percent
685: ,ls.lty_code lty_Code --added bug 7439724
686: FROM OKC_LINE_STYLES_B LS,

Line 683: SELECT NVL(kle.residual_value,0) Value,

679: l_residual_value NUMBER := 0.0;
680: l_oec NUMBER := 0.0;
681:
682: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
683: SELECT NVL(kle.residual_value,0) Value,
684: NVL(kle.residual_percentage,0) Percent
685: ,ls.lty_code lty_Code --added bug 7439724
686: FROM OKC_LINE_STYLES_B LS,
687: okl_K_lines_full_v kle,

Line 684: NVL(kle.residual_percentage,0) Percent

680: l_oec NUMBER := 0.0;
681:
682: CURSOR residual_csr( chrId NUMBER, lineId NUMBER ) IS
683: SELECT NVL(kle.residual_value,0) Value,
684: NVL(kle.residual_percentage,0) Percent
685: ,ls.lty_code lty_Code --added bug 7439724
686: FROM OKC_LINE_STYLES_B LS,
687: okl_K_lines_full_v kle,
688: okc_statuses_b sts

Line 700: CURSOR residual_csr_incl_terminated( chrId NUMBER, lineId NUMBER ) IS

696: AND KLE.DNZ_CHR_ID = chrId
697: AND kle.sts_code = sts.code
698: AND sts.ste_code NOT IN ('TERMINATED', 'EXPIRED', 'CANCELLED', 'HOLD');
699:
700: CURSOR residual_csr_incl_terminated( chrId NUMBER, lineId NUMBER ) IS
701: SELECT NVL(kle.residual_value,0) Value,
702: NVL(kle.residual_percentage,0) Percent
703: ,ls.lty_code lty_Code --added bug 7439724
704: FROM OKC_LINE_STYLES_B LS,

Line 701: SELECT NVL(kle.residual_value,0) Value,

697: AND kle.sts_code = sts.code
698: AND sts.ste_code NOT IN ('TERMINATED', 'EXPIRED', 'CANCELLED', 'HOLD');
699:
700: CURSOR residual_csr_incl_terminated( chrId NUMBER, lineId NUMBER ) IS
701: SELECT NVL(kle.residual_value,0) Value,
702: NVL(kle.residual_percentage,0) Percent
703: ,ls.lty_code lty_Code --added bug 7439724
704: FROM OKC_LINE_STYLES_B LS,
705: okl_K_lines_full_v kle,

Line 702: NVL(kle.residual_percentage,0) Percent

698: AND sts.ste_code NOT IN ('TERMINATED', 'EXPIRED', 'CANCELLED', 'HOLD');
699:
700: CURSOR residual_csr_incl_terminated( chrId NUMBER, lineId NUMBER ) IS
701: SELECT NVL(kle.residual_value,0) Value,
702: NVL(kle.residual_percentage,0) Percent
703: ,ls.lty_code lty_Code --added bug 7439724
704: FROM OKC_LINE_STYLES_B LS,
705: okl_K_lines_full_v kle,
706: okc_statuses_b sts

Line 718: residual_rec residual_csr%ROWTYPE;

714: AND KLE.DNZ_CHR_ID = chrId
715: AND kle.sts_code = sts.code
716: AND sts.ste_code NOT IN ('EXPIRED', 'CANCELLED', 'HOLD');
717:
718: residual_rec residual_csr%ROWTYPE;
719: --SECHAWLA 05-MAY-04 3578894 : new declarations
720: l_rep_prod_streams_yn VARCHAR2(1) := 'N';
721: l_trx_date DATE;
722: l_k_end_date DATE;

Line 802: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );

798: END LOOP;
799: END IF;
800: -- rmunjulu 4042892
801: IF l_discount_incl_terminated THEN
802: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );
803: FETCH residual_csr_incl_terminated INTO residual_rec;
804: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
805: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;

Line 803: FETCH residual_csr_incl_terminated INTO residual_rec;

799: END IF;
800: -- rmunjulu 4042892
801: IF l_discount_incl_terminated THEN
802: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );
803: FETCH residual_csr_incl_terminated INTO residual_rec;
804: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
805: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;
807: CLOSE residual_csr_incl_terminated;

Line 804: IF( residual_csr_incl_terminated%NOTFOUND ) THEN

800: -- rmunjulu 4042892
801: IF l_discount_incl_terminated THEN
802: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );
803: FETCH residual_csr_incl_terminated INTO residual_rec;
804: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
805: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;
807: CLOSE residual_csr_incl_terminated;
808: ELSE

Line 807: CLOSE residual_csr_incl_terminated;

803: FETCH residual_csr_incl_terminated INTO residual_rec;
804: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
805: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;
807: CLOSE residual_csr_incl_terminated;
808: ELSE
809: OPEN residual_csr( p_chr_id, p_line_id );
810: FETCH residual_csr INTO residual_rec;
811: IF( residual_csr%NOTFOUND ) THEN

Line 809: OPEN residual_csr( p_chr_id, p_line_id );

805: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;
807: CLOSE residual_csr_incl_terminated;
808: ELSE
809: OPEN residual_csr( p_chr_id, p_line_id );
810: FETCH residual_csr INTO residual_rec;
811: IF( residual_csr%NOTFOUND ) THEN
812: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
813: END IF;

Line 810: FETCH residual_csr INTO residual_rec;

806: END IF;
807: CLOSE residual_csr_incl_terminated;
808: ELSE
809: OPEN residual_csr( p_chr_id, p_line_id );
810: FETCH residual_csr INTO residual_rec;
811: IF( residual_csr%NOTFOUND ) THEN
812: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
813: END IF;
814: CLOSE residual_csr;

Line 811: IF( residual_csr%NOTFOUND ) THEN

807: CLOSE residual_csr_incl_terminated;
808: ELSE
809: OPEN residual_csr( p_chr_id, p_line_id );
810: FETCH residual_csr INTO residual_rec;
811: IF( residual_csr%NOTFOUND ) THEN
812: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
813: END IF;
814: CLOSE residual_csr;
815: END IF;

Line 814: CLOSE residual_csr;

810: FETCH residual_csr INTO residual_rec;
811: IF( residual_csr%NOTFOUND ) THEN
812: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
813: END IF;
814: CLOSE residual_csr;
815: END IF;
816:
817: -- BUG 7439724 -- evaluate l_oec only for asset line
818: --because l_oec will return null for fee and service lines

Line 819: IF residual_rec.lty_code = 'FREE_FORM1' THEN

815: END IF;
816:
817: -- BUG 7439724 -- evaluate l_oec only for asset line
818: --because l_oec will return null for fee and service lines
819: IF residual_rec.lty_code = 'FREE_FORM1' THEN
820: IF ( residual_rec.Value <> 0 ) THEN
821: l_residual_value := residual_rec.Value;
822: ELSE
823: l_oec := line_oec( p_chr_id, p_line_id );

Line 820: IF ( residual_rec.Value <> 0 ) THEN

816:
817: -- BUG 7439724 -- evaluate l_oec only for asset line
818: --because l_oec will return null for fee and service lines
819: IF residual_rec.lty_code = 'FREE_FORM1' THEN
820: IF ( residual_rec.Value <> 0 ) THEN
821: l_residual_value := residual_rec.Value;
822: ELSE
823: l_oec := line_oec( p_chr_id, p_line_id );
824: IF ( l_oec IS NULL ) THEN

Line 821: l_residual_value := residual_rec.Value;

817: -- BUG 7439724 -- evaluate l_oec only for asset line
818: --because l_oec will return null for fee and service lines
819: IF residual_rec.lty_code = 'FREE_FORM1' THEN
820: IF ( residual_rec.Value <> 0 ) THEN
821: l_residual_value := residual_rec.Value;
822: ELSE
823: l_oec := line_oec( p_chr_id, p_line_id );
824: IF ( l_oec IS NULL ) THEN
825: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

Line 827: l_residual_value := residual_rec.Percent * l_oec / 100.00;

823: l_oec := line_oec( p_chr_id, p_line_id );
824: IF ( l_oec IS NULL ) THEN
825: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
826: END IF;
827: l_residual_value := residual_rec.Percent * l_oec / 100.00;
828: END IF;
829: END IF; --BUG 7439724
830: -- Start : Bug 6030917 : prasjain
831: IF nvl(l_proration_factor,1) <> 1 THEN

Line 832: l_residual_value := l_residual_value * l_proration_factor;

828: END IF;
829: END IF; --BUG 7439724
830: -- Start : Bug 6030917 : prasjain
831: IF nvl(l_proration_factor,1) <> 1 THEN
832: l_residual_value := l_residual_value * l_proration_factor;
833: END IF;
834: -- End : Bug 6030917 : prasjain
835:
836: RETURN l_residual_value;

Line 836: RETURN l_residual_value;

832: l_residual_value := l_residual_value * l_proration_factor;
833: END IF;
834: -- End : Bug 6030917 : prasjain
835:
836: RETURN l_residual_value;
837:
838: EXCEPTION
839: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
840: IF residual_csr%ISOPEN THEN

Line 840: IF residual_csr%ISOPEN THEN

836: RETURN l_residual_value;
837:
838: EXCEPTION
839: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
840: IF residual_csr%ISOPEN THEN
841: CLOSE residual_csr;
842: END IF;
843:
844: IF l_contract_csr%ISOPEN THEN

Line 841: CLOSE residual_csr;

837:
838: EXCEPTION
839: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
840: IF residual_csr%ISOPEN THEN
841: CLOSE residual_csr;
842: END IF;
843:
844: IF l_contract_csr%ISOPEN THEN
845: CLOSE l_contract_csr;

Line 851: IF residual_csr%ISOPEN THEN

847:
848: RETURN NULL;
849: -- SECHAWLA 02-FEB-05 4141411 : Added unexpected error exception handling block
850: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
851: IF residual_csr%ISOPEN THEN
852: CLOSE residual_csr;
853: END IF;
854:
855: IF l_contract_csr%ISOPEN THEN

Line 852: CLOSE residual_csr;

848: RETURN NULL;
849: -- SECHAWLA 02-FEB-05 4141411 : Added unexpected error exception handling block
850: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
851: IF residual_csr%ISOPEN THEN
852: CLOSE residual_csr;
853: END IF;
854:
855: IF l_contract_csr%ISOPEN THEN
856: CLOSE l_contract_csr;

Line 861: IF residual_csr%ISOPEN THEN

857: END IF;
858:
859: RETURN NULL;
860: WHEN OTHERS THEN
861: IF residual_csr%ISOPEN THEN
862: CLOSE residual_csr;
863: END IF;
864:
865: IF l_contract_csr%ISOPEN THEN

Line 862: CLOSE residual_csr;

858:
859: RETURN NULL;
860: WHEN OTHERS THEN
861: IF residual_csr%ISOPEN THEN
862: CLOSE residual_csr;
863: END IF;
864:
865: IF l_contract_csr%ISOPEN THEN
866: CLOSE l_contract_csr;

Line 879: END line_residual_value;

875: p_token2_value => SQLERRM);
876: RETURN NULL;
877:
878:
879: END line_residual_value;
880:
881: ----------------------------------------------------------------------------------------------------
882:
883: -- Start of Comments

Line 885: -- Function Name contract_residualvalue

881: ----------------------------------------------------------------------------------------------------
882:
883: -- Start of Comments
884: -- Created By: Santhosh Siruvole (ssiruvol)
885: -- Function Name contract_residualvalue
886: -- Description: returns the sum of residual_value of all financial asset lines of a contract.
887: -- Dependencies:
888: -- Parameters: contract id.
889: -- Version: 1.0

Line 886: -- Description: returns the sum of residual_value of all financial asset lines of a contract.

882:
883: -- Start of Comments
884: -- Created By: Santhosh Siruvole (ssiruvol)
885: -- Function Name contract_residualvalue
886: -- Description: returns the sum of residual_value of all financial asset lines of a contract.
887: -- Dependencies:
888: -- Parameters: contract id.
889: -- Version: 1.0
890: -- End of Commnets

Line 893: FUNCTION contract_residual_value(

889: -- Version: 1.0
890: -- End of Commnets
891:
892: ----------------------------------------------------------------------------------------------------
893: FUNCTION contract_residual_value(
894: p_chr_id IN NUMBER,
895: p_line_id IN NUMBER) RETURN NUMBER IS
896:
897: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';

Line 897: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';

893: FUNCTION contract_residual_value(
894: p_chr_id IN NUMBER,
895: p_line_id IN NUMBER) RETURN NUMBER IS
896:
897: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';
898: l_api_version CONSTANT NUMBER := 1;
899: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
900: x_msg_count NUMBER;
901: x_msg_data VARCHAR2(256);

Line 903: l_residual_value NUMBER := 0.0;

899: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
900: x_msg_count NUMBER;
901: x_msg_data VARCHAR2(256);
902:
903: l_residual_value NUMBER := 0.0;
904: l_lne_res_value NUMBER := 0.0;
905:
906: CURSOR lines_csr( chrId NUMBER ) IS
907: SELECT kle.id lineId

Line 970: l_lne_res_value := line_residual_value( p_chr_id, line_nr_rec.lineId );

966: LOOP
967: IF( lines_nr_csr%NOTFOUND ) THEN
968: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
969: END IF;
970: l_lne_res_value := line_residual_value( p_chr_id, line_nr_rec.lineId );
971: IF ( l_lne_res_value IS NULL ) THEN
972: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
973: END IF;
974: l_residual_value := l_residual_value + l_lne_res_value;

Line 974: l_residual_value := l_residual_value + l_lne_res_value;

970: l_lne_res_value := line_residual_value( p_chr_id, line_nr_rec.lineId );
971: IF ( l_lne_res_value IS NULL ) THEN
972: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
973: END IF;
974: l_residual_value := l_residual_value + l_lne_res_value;
975: END LOOP;
976:
977: ELSE
978: --Bug# 15992711 , End

Line 985: l_lne_res_value := line_residual_value( p_chr_id, line_rec.lineId );

981: LOOP
982: IF( lines_csr%NOTFOUND ) THEN
983: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
984: END IF;
985: l_lne_res_value := line_residual_value( p_chr_id, line_rec.lineId );
986: IF ( l_lne_res_value IS NULL ) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
988: END IF;
989: l_residual_value := l_residual_value + l_lne_res_value;

Line 989: l_residual_value := l_residual_value + l_lne_res_value;

985: l_lne_res_value := line_residual_value( p_chr_id, line_rec.lineId );
986: IF ( l_lne_res_value IS NULL ) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
988: END IF;
989: l_residual_value := l_residual_value + l_lne_res_value;
990: END LOOP;
991:
992: --Bug# 15992711 , Start
993: END IF;

Line 996: RETURN l_residual_value;

992: --Bug# 15992711 , Start
993: END IF;
994: --Bug# 15992711 , End
995:
996: RETURN l_residual_value;
997:
998: EXCEPTION
999:
1000: WHEN OTHERS THEN

Line 1010: END contract_residual_value;

1006: p_token2 => G_SQLERRM_TOKEN,
1007: p_token2_value => SQLERRM);
1008: RETURN NULL;
1009:
1010: END contract_residual_value;
1011:
1012:
1013: ----------------------------------------------------------------------------------------------------
1014:

Line 1271: --FROM DUAL

1267: x_return_status OUT NOCOPY VARCHAR2) IS
1268: ln_dummy NUMBER := 0;
1269: CURSOR c_dnz_chr_id_validate(p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
1270: SELECT 1
1271: --FROM DUAL
1272: --WHERE EXISTS (SELECT 1
1273: FROM OKC_K_HEADERS_B CHR
1274: WHERE CHR.id = p_dnz_chr_id; --);
1275: BEGIN

Line 4356: -- Function Name : CONTRACT_UNGUARANTEED_RESIDUAL

4352: ----------------------------------------------------------------------------------------------------
4353:
4354: -- Start of Comments
4355: -- Created By : Shri Iyer
4356: -- Function Name : CONTRACT_UNGUARANTEED_RESIDUAL
4357: -- Description : This function returns the unguaranteed residual for a contract
4358: -- Dependencies : None
4359: -- Parameters : contract id, contract line id
4360: -- Version : 1.0

Line 4357: -- Description : This function returns the unguaranteed residual for a contract

4353:
4354: -- Start of Comments
4355: -- Created By : Shri Iyer
4356: -- Function Name : CONTRACT_UNGUARANTEED_RESIDUAL
4357: -- Description : This function returns the unguaranteed residual for a contract
4358: -- Dependencies : None
4359: -- Parameters : contract id, contract line id
4360: -- Version : 1.0
4361: -- End of Commnets

Line 4365: FUNCTION CONTRACT_UNGUARANTEED_RESIDUAL(p_khr_id IN NUMBER, p_kle_id IN NUMBER) RETURN NUMBER IS

4361: -- End of Commnets
4362:
4363: ----------------------------------------------------------------------------------------------------
4364:
4365: FUNCTION CONTRACT_UNGUARANTEED_RESIDUAL(p_khr_id IN NUMBER, p_kle_id IN NUMBER) RETURN NUMBER IS
4366: l_unguaranteed_residual NUMBER := 0;
4367: l_contract_number VARCHAR2(2000);
4368:
4369: -- cursor to get the contract number

Line 4366: l_unguaranteed_residual NUMBER := 0;

4362:
4363: ----------------------------------------------------------------------------------------------------
4364:
4365: FUNCTION CONTRACT_UNGUARANTEED_RESIDUAL(p_khr_id IN NUMBER, p_kle_id IN NUMBER) RETURN NUMBER IS
4366: l_unguaranteed_residual NUMBER := 0;
4367: l_contract_number VARCHAR2(2000);
4368:
4369: -- cursor to get the contract number
4370: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS

Line 4376: SELECT SUM(NVL(RESIDUAL_VALUE,0)) - SUM(NVL(RESIDUAL_GRNTY_AMOUNT, 0))

4372: FROM OKL_K_HEADERS_FULL_V
4373: WHERE id = p_ctr_id;
4374:
4375: CURSOR get_ung_res_csr(p_ctr_id NUMBER) IS
4376: SELECT SUM(NVL(RESIDUAL_VALUE,0)) - SUM(NVL(RESIDUAL_GRNTY_AMOUNT, 0))
4377: FROM OKL_K_LINES_FULL_V
4378: WHERE DNZ_CHR_ID = p_ctr_id;
4379:
4380: BEGIN

Line 4392: FETCH get_ung_res_csr INTO l_unguaranteed_residual;

4388: END IF;
4389: CLOSE contract_num_csr;
4390:
4391: OPEN get_ung_res_csr(p_khr_id);
4392: FETCH get_ung_res_csr INTO l_unguaranteed_residual;
4393: IF get_ung_res_csr%NOTFOUND THEN
4394: Okl_Api.Set_Message(p_app_name => g_app_name,
4395: p_msg_name => 'OKL_LPV_FE_UNG_RES',
4396: p_token1 => 'CONTRACT_NUMBER',

Line 4404: IF l_unguaranteed_residual IS NULL THEN

4400: END IF;
4401: CLOSE get_ung_res_csr;
4402:
4403: -- Bug 2969989. Return zero explicitly if nothing found.
4404: IF l_unguaranteed_residual IS NULL THEN
4405: l_unguaranteed_residual := 0;
4406: END IF;
4407:
4408: RETURN l_unguaranteed_residual;

Line 4405: l_unguaranteed_residual := 0;

4401: CLOSE get_ung_res_csr;
4402:
4403: -- Bug 2969989. Return zero explicitly if nothing found.
4404: IF l_unguaranteed_residual IS NULL THEN
4405: l_unguaranteed_residual := 0;
4406: END IF;
4407:
4408: RETURN l_unguaranteed_residual;
4409:

Line 4408: RETURN l_unguaranteed_residual;

4404: IF l_unguaranteed_residual IS NULL THEN
4405: l_unguaranteed_residual := 0;
4406: END IF;
4407:
4408: RETURN l_unguaranteed_residual;
4409:
4410: EXCEPTION
4411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4412: RETURN NULL;

Line 4423: END CONTRACT_UNGUARANTEED_RESIDUAL;

4419: p_token1_value => SQLCODE,
4420: p_token2 => G_SQLERRM_TOKEN,
4421: p_token2_value => SQLERRM);
4422: RETURN NULL;
4423: END CONTRACT_UNGUARANTEED_RESIDUAL;
4424:
4425: ----------------------------------------------------------------------------------------------------
4426:
4427: -- Start of Comments

Line 5257: SELECT SYSDATE INTO l_sysdate FROM DUAL;

5253: FETCH get_quote_date_csr INTO l_quote_date_eff;
5254: CLOSE get_quote_date_csr;
5255: END IF;
5256:
5257: SELECT SYSDATE INTO l_sysdate FROM DUAL;
5258:
5259: IF l_quote_date_eff IS NULL
5260: OR l_quote_date_eff = OKL_API.G_MISS_DATE
5261: THEN

Line 5986: -- Function Name: line_calculate_residual_value

5982:
5983: ------------------------------------------------------------------------------
5984: -- Start of Comments
5985: -- Created By: [email protected] - 24-APR-2002
5986: -- Function Name: line_calculate_residual_value
5987: -- Description: Returns the residual value for a given contract line
5988: -- using an hook to an external system.
5989: -- Just a shell for now
5990: -- Dependencies:

Line 5987: -- Description: Returns the residual value for a given contract line

5983: ------------------------------------------------------------------------------
5984: -- Start of Comments
5985: -- Created By: [email protected] - 24-APR-2002
5986: -- Function Name: line_calculate_residual_value
5987: -- Description: Returns the residual value for a given contract line
5988: -- using an hook to an external system.
5989: -- Just a shell for now
5990: -- Dependencies:
5991: -- Parameters: IN: p_contract_id, p_line_id

Line 5997: FUNCTION line_calculate_residual_value (

5993: -- Version: 1.0
5994: -- End of Commnets
5995: ------------------------------------------------------------------------------
5996:
5997: FUNCTION line_calculate_residual_value (
5998: p_contract_id IN NUMBER,
5999: p_contract_line_id IN NUMBER)
6000: RETURN NUMBER IS
6001: BEGIN

Line 6003: END line_calculate_residual_value;

5999: p_contract_line_id IN NUMBER)
6000: RETURN NUMBER IS
6001: BEGIN
6002: RETURN 0;
6003: END line_calculate_residual_value;
6004:
6005: ---------------------------------------------
6006: -- CS Functions
6007: ---------------------------------------------

Line 6070: -- Function Name contract_residual_amount

6066: ----------------------------------------------------------------------------------------------------
6067:
6068: -- Start of Comments
6069: -- Created By: Ranu Srivastava (rsrivast)
6070: -- Function Name contract_residual_amount
6071: -- Description: returns the residual value for given contract
6072: -- Dependencies:
6073: -- Parameters: contract id,contract line id
6074: -- Version: 1.0

Line 6071: -- Description: returns the residual value for given contract

6067:
6068: -- Start of Comments
6069: -- Created By: Ranu Srivastava (rsrivast)
6070: -- Function Name contract_residual_amount
6071: -- Description: returns the residual value for given contract
6072: -- Dependencies:
6073: -- Parameters: contract id,contract line id
6074: -- Version: 1.0
6075: -- 20-Dec-02 rsrivast Added new cursor line to calculate contract residual amount for line

Line 6075: -- 20-Dec-02 rsrivast Added new cursor line to calculate contract residual amount for line

6071: -- Description: returns the residual value for given contract
6072: -- Dependencies:
6073: -- Parameters: contract id,contract line id
6074: -- Version: 1.0
6075: -- 20-Dec-02 rsrivast Added new cursor line to calculate contract residual amount for line
6076: -- 27-Oct-04 PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
6077: -- End of Commnets
6078: ----------------------------------------------------------------------------------------------------
6079:

Line 6080: FUNCTION contract_residual_amount( p_contract_id IN NUMBER

6076: -- 27-Oct-04 PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
6077: -- End of Commnets
6078: ----------------------------------------------------------------------------------------------------
6079:
6080: FUNCTION contract_residual_amount( p_contract_id IN NUMBER
6081: ,p_contract_line_id IN NUMBER) RETURN NUMBER
6082: IS
6083: l_residual_value NUMBER := 0;
6084:

Line 6083: l_residual_value NUMBER := 0;

6079:
6080: FUNCTION contract_residual_amount( p_contract_id IN NUMBER
6081: ,p_contract_line_id IN NUMBER) RETURN NUMBER
6082: IS
6083: l_residual_value NUMBER := 0;
6084:
6085: CURSOR C (p_contract_id NUMBER)
6086:
6087: IS

Line 6088: SELECT NVL(SUM(RESIDUAL_VALUE),0)

6084:
6085: CURSOR C (p_contract_id NUMBER)
6086:
6087: IS
6088: SELECT NVL(SUM(RESIDUAL_VALUE),0)
6089: FROM okl_k_lines_full_v
6090: WHERE dnz_chr_id= p_contract_id
6091: AND sts_code <> 'TERMINATED';
6092:

Line 6102: AND UPPER(sty.name) = 'RESIDUAL VALUE'

6098: okl_streams str,
6099: okl_strm_type_v sty
6100: WHERE cs.stm_id = asv.id AND bs.id = asv.sty_id
6101: AND str.sty_id = sty.id
6102: AND UPPER(sty.name) = 'RESIDUAL VALUE'
6103: AND str.say_code = 'CURR'
6104: --multigaap changes
6105: AND STR.ACTIVE_YN = 'Y'
6106: AND STR.PURPOSE_CODE is NULL --end multigaap changes AND

Line 6112: SELECT NVL(RESIDUAL_VALUE,0)

6108: asv.khr_id = p_contract_id; */
6109:
6110: CURSOR line(p_contract_line_id NUMBER)
6111: IS
6112: SELECT NVL(RESIDUAL_VALUE,0)
6113: FROM okl_k_lines
6114: WHERE id = p_contract_line_id;
6115:
6116:

Line 6121: FETCH line INTO l_residual_value;

6117: BEGIN
6118: IF p_contract_line_id IS NOT NULL
6119: AND p_contract_line_id <> OKL_API.G_MISS_NUM THEN -- PAGARG bug#3974997 -- check for G_MISS when checking for NULL
6120: OPEN line (p_contract_line_id);
6121: FETCH line INTO l_residual_value;
6122: CLOSE line;
6123: ELSE
6124: OPEN C (p_contract_id);
6125: FETCH C INTO l_residual_value;

Line 6125: FETCH C INTO l_residual_value;

6121: FETCH line INTO l_residual_value;
6122: CLOSE line;
6123: ELSE
6124: OPEN C (p_contract_id);
6125: FETCH C INTO l_residual_value;
6126: CLOSE C;
6127: END IF;
6128: RETURN l_residual_value;
6129: EXCEPTION

Line 6128: RETURN l_residual_value;

6124: OPEN C (p_contract_id);
6125: FETCH C INTO l_residual_value;
6126: CLOSE C;
6127: END IF;
6128: RETURN l_residual_value;
6129: EXCEPTION
6130: WHEN OTHERS THEN
6131: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6132: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,

Line 6828: SELECT SYSDATE INTO l_sysdate FROM dual;

6824: END LOOP;
6825: END IF;
6826:
6827: -- rmunjulu EDAT
6828: SELECT SYSDATE INTO l_sysdate FROM dual;
6829:
6830: -- rmunjulu EDAT -- get eff date for quote
6831: IF l_quote_id IS NOT NULL
6832: AND l_quote_id <> OKL_API.G_MISS_NUM THEN

Line 7435: -- Dependencies: OKL_SEEDED_FUNCTIONS_PVT.contract_residual_value

7431: -- Start of Comments
7432: -- Created By: Punitharaj Devaraju (pdevaraj)
7433: -- Function Name: contract_net_investment
7434: -- Description: Get net investment for a contract.
7435: -- Dependencies: OKL_SEEDED_FUNCTIONS_PVT.contract_residual_value
7436: -- OKL_SEEDED_FUNCTIONS_PVT.contract_sum_of_rents
7437: -- OKL_SEEDED_FUNCTIONS_PVT.contract_income
7438: -- Parameters: contract id.
7439: -- Version: 1.0

Line 7454: l_residual NUMBER := 0;

7450: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7451: l_msg_count NUMBER;
7452: l_msg_data VARCHAR2(2000);
7453: l_rent NUMBER := 0;
7454: l_residual NUMBER := 0;
7455: l_income NUMBER := 0;
7456: l_net_investment NUMBER := 0;
7457:
7458: BEGIN

Line 7460: -- Get Residual Value

7456: l_net_investment NUMBER := 0;
7457:
7458: BEGIN
7459:
7460: -- Get Residual Value
7461: l_residual := Okl_Seeded_Functions_Pvt.contract_residual_value(p_chr_id => p_chr_id, p_line_id => NULL);
7462:
7463: -- Get Rent
7464: l_rent := Okl_Seeded_Functions_Pvt.contract_sum_of_rents(p_chr_id, NULL);

Line 7461: l_residual := Okl_Seeded_Functions_Pvt.contract_residual_value(p_chr_id => p_chr_id, p_line_id => NULL);

7457:
7458: BEGIN
7459:
7460: -- Get Residual Value
7461: l_residual := Okl_Seeded_Functions_Pvt.contract_residual_value(p_chr_id => p_chr_id, p_line_id => NULL);
7462:
7463: -- Get Rent
7464: l_rent := Okl_Seeded_Functions_Pvt.contract_sum_of_rents(p_chr_id, NULL);
7465:

Line 7470: l_net_investment := l_rent + l_residual - l_income;

7466: -- Get Rent
7467: l_income := Okl_Seeded_Functions_Pvt.contract_income(p_chr_id, NULL);
7468:
7469: -- Calculate Net Investment
7470: l_net_investment := l_rent + l_residual - l_income;
7471:
7472: RETURN l_net_investment;
7473: EXCEPTION
7474: WHEN OTHERS THEN

Line 8103: ankushar --Bug 6594724: Unable to terminate Investor Agreement with Residual Streams

8099: AND pocb.sty_id = p_sty_id
8100: -- mvasudev, 03/30/2004
8101: AND pocb.status_Code = 'ACTIVE'
8102: /*
8103: ankushar --Bug 6594724: Unable to terminate Investor Agreement with Residual Streams
8104: Start changes
8105: */
8106: AND stmb.sty_id = styv.id
8107: AND pocb.khr_id = chrb.id

Line 8110: (styv.stream_type_subclass = 'RESIDUAL'

8106: AND stmb.sty_id = styv.id
8107: AND pocb.khr_id = chrb.id
8108: AND(selb.stream_element_date > SYSDATE
8109: OR
8110: (styv.stream_type_subclass = 'RESIDUAL'
8111: and chrb.STS_CODE IN ('TERMINATED','EXPIRED')
8112: )
8113: )
8114: /* ankushar Bug 6594724

Line 8231: --Bug# 12557486: Added p_poc_sty_purpose to identify whether RENT, RESIDUAL_VALUE or

8227: ,p_line_id IN NUMBER)
8228: RETURN NUMBER
8229: IS
8230: -- mvasudev, 09/29/2004, Bug#3909240
8231: --Bug# 12557486: Added p_poc_sty_purpose to identify whether RENT, RESIDUAL_VALUE or
8232: -- LOAN_PAYMENT stream type purpose
8233: CURSOR l_okl_pv_amounts_csr(p_sty_purpose IN VARCHAR2, p_poc_sty_purpose IN VARCHAR2)
8234: IS
8235: SELECT NVL(SUM(selb.amount),0) total_amount

Line 8253: --Bug# 12557486: Added p_poc_sty_purpose to identify whether RENT, RESIDUAL_VALUE or

8249: AND pocb.kle_id = stmb.kle_id
8250: AND pocb.sty_code = styv1.code
8251: AND styv1.stream_type_purpose = p_poc_sty_purpose;
8252:
8253: --Bug# 12557486: Added p_poc_sty_purpose to identify whether RENT, RESIDUAL_VALUE or
8254: -- LOAN_PAYMENT stream type purpose
8255: CURSOR l_okl_pv_amounts_pending_csr(p_sty_purpose IN VARCHAR2, p_poc_sty_purpose IN VARCHAR2)
8256: IS
8257: SELECT NVL(SUM(selb.amount),0) total_amount

Line 8296: l_residual_sty_purpose okl_strm_type_b.stream_type_purpose%TYPE := 'RESIDUAL_VALUE';

8292: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
8293:
8294: --Bug# 12557486
8295: l_rent_sty_purpose okl_strm_type_b.stream_type_purpose%TYPE := 'RENT';
8296: l_residual_sty_purpose okl_strm_type_b.stream_type_purpose%TYPE := 'RESIDUAL_VALUE';
8297: l_loan_pymt_sty_purpose okl_strm_type_b.stream_type_purpose%TYPE := 'LOAN_PAYMENT';
8298:
8299: BEGIN
8300:

Line 8344: FOR l_okl_pv_amounts_pending_rec IN l_okl_pv_amounts_pending_csr('PV_RV_SECURITIZED', l_residual_sty_purpose)

8340: l_total_percent := 0;
8341:
8342: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8343: --Bug# 12557486
8344: FOR l_okl_pv_amounts_pending_rec IN l_okl_pv_amounts_pending_csr('PV_RV_SECURITIZED', l_residual_sty_purpose)
8345: LOOP
8346: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8347: LOOP
8348: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;

Line 8346: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')

8342: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8343: --Bug# 12557486
8344: FOR l_okl_pv_amounts_pending_rec IN l_okl_pv_amounts_pending_csr('PV_RV_SECURITIZED', l_residual_sty_purpose)
8345: LOOP
8346: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8347: LOOP
8348: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8349: END LOOP;
8350: IF (l_total_percent >0 AND l_total_percent <=100) THEN

Line 8356: FOR l_okl_pv_amounts_rec IN l_okl_pv_amounts_csr('PV_RV_SECURITIZED', l_residual_sty_purpose)

8352: END IF;
8353: END LOOP; -- PV_RV_SECURITIZED
8354: ELSE
8355: --Bug# 12557486
8356: FOR l_okl_pv_amounts_rec IN l_okl_pv_amounts_csr('PV_RV_SECURITIZED', l_residual_sty_purpose)
8357: LOOP
8358: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8359: LOOP
8360: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;

Line 8358: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')

8354: ELSE
8355: --Bug# 12557486
8356: FOR l_okl_pv_amounts_rec IN l_okl_pv_amounts_csr('PV_RV_SECURITIZED', l_residual_sty_purpose)
8357: LOOP
8358: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8359: LOOP
8360: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8361: END LOOP;
8362: IF (l_total_percent >0 AND l_total_percent <=100) THEN

Line 8813: FOR l_streams_amount_pending_rec IN l_streams_amount_pending_csr(l_pol_id, 'RESIDUAL')

8809: l_total_percent := 0;
8810: l_per_subclass_amount := 0;
8811:
8812: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8813: FOR l_streams_amount_pending_rec IN l_streams_amount_pending_csr(l_pol_id, 'RESIDUAL')
8814: LOOP
8815: l_per_subclass_amount := l_streams_amount_pending_rec.amount;
8816: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8817: LOOP

Line 8816: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')

8812: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8813: FOR l_streams_amount_pending_rec IN l_streams_amount_pending_csr(l_pol_id, 'RESIDUAL')
8814: LOOP
8815: l_per_subclass_amount := l_streams_amount_pending_rec.amount;
8816: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8817: LOOP
8818: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8819: END LOOP;
8820: END LOOP;

Line 8822: FOR l_streams_amount_csr_rec IN l_streams_amount_csr(l_pol_id, 'RESIDUAL')

8818: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8819: END LOOP;
8820: END LOOP;
8821: ELSE
8822: FOR l_streams_amount_csr_rec IN l_streams_amount_csr(l_pol_id, 'RESIDUAL')
8823: LOOP
8824: l_per_subclass_amount := l_streams_amount_csr_rec.amount;
8825: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8826: LOOP

Line 8825: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')

8821: ELSE
8822: FOR l_streams_amount_csr_rec IN l_streams_amount_csr(l_pol_id, 'RESIDUAL')
8823: LOOP
8824: l_per_subclass_amount := l_streams_amount_csr_rec.amount;
8825: FOR l_okl_percent_stake_rec IN l_okl_percent_stake_csr('RESIDUAL')
8826: LOOP
8827: l_total_percent := l_total_percent + l_okl_percent_stake_rec.percent_stake;
8828: END LOOP;
8829: END LOOP;

Line 9776: select sysdate into l_sysdate from dual;

9772: END LOOP;
9773: END IF;
9774:
9775: -- rmunjulu EDAT
9776: select sysdate into l_sysdate from dual;
9777:
9778: -- rmunjulu EDAT
9779: IF l_quote_id IS NOT NULL
9780: AND l_quote_id <> OKL_API.G_MISS_NUM THEN

Line 9887: -- Description: Calculate Investor Residual Value Factor

9883: ------------------------------------------------------------------------------
9884: -- Start of Comments
9885: -- Created By: Manjit Dokal - 18-JUL-2003
9886: -- Function Name: investor_rv_factor
9887: -- Description: Calculate Investor Residual Value Factor
9888: -- Dependencies: OKL building blocks AMTX and AMUV,
9889: -- Parameters: IN: p_contract_id, p_contract_line_id (optional)
9890: -- OUT: amount
9891: -- History rmunjulu EDAT Changed to get all residual streams amount

Line 9891: -- History rmunjulu EDAT Changed to get all residual streams amount

9887: -- Description: Calculate Investor Residual Value Factor
9888: -- Dependencies: OKL building blocks AMTX and AMUV,
9889: -- Parameters: IN: p_contract_id, p_contract_line_id (optional)
9890: -- OUT: amount
9891: -- History rmunjulu EDAT Changed to get all residual streams amount
9892: -- : PAGARG 19-Nov-2004 Bug# 4012614
9893: -- : Fetching the l_unbill_stream_csr value into correct variable
9894: -- : UDS impact and modified to use correct stream type purpose
9895: -- Version: 1.0

Line 9905: -- Get Residual Streams

9901: p_contract_line_id IN NUMBER)
9902: RETURN NUMBER IS
9903:
9904: --Bug# 4012614 PAGARG modified the cursor for User Defined Streams Impact
9905: -- Get Residual Streams
9906: -- Get Residual Streams
9907: CURSOR l_unbill_stream_csr (
9908: cp_contract_id NUMBER,
9909: cp_contract_line_id NUMBER,

Line 9906: -- Get Residual Streams

9902: RETURN NUMBER IS
9903:
9904: --Bug# 4012614 PAGARG modified the cursor for User Defined Streams Impact
9905: -- Get Residual Streams
9906: -- Get Residual Streams
9907: CURSOR l_unbill_stream_csr (
9908: cp_contract_id NUMBER,
9909: cp_contract_line_id NUMBER,
9910: cp_sty_id NUMBER) IS

Line 9931: -- Get Residual Streams

9927: AND pocb.khr_id = stm.khr_id
9928: AND pocb.kle_id = stm.kle_id
9929: AND pocb.sty_id = stm.sty_id;
9930:
9931: -- Get Residual Streams
9932: CURSOR l_unbill_stream_pending_csr (
9933: cp_contract_id NUMBER,
9934: cp_contract_line_id NUMBER,
9935: cp_sty_id NUMBER) IS

Line 9957: l_residual_amount NUMBER := 0;

9953: AND pocb.kle_id = stm.kle_id
9954: AND pocb.sty_id = stm.sty_id;
9955:
9956: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
9957: l_residual_amount NUMBER := 0;
9958: l_result_amount NUMBER := 0;
9959: l_sty_id OKL_STRM_TYPE_TL.ID%TYPE := 0;
9960: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
9961:

Line 9969: 'RESIDUAL_VALUE',

9965: -- ****************
9966: --PAGARG 19-Nov-2004 Bug# 4012614
9967: --UDS impact. Obtain stream type id and pass it to cursor
9968: OKL_STREAMS_UTIL.get_primary_stream_type(p_contract_id,
9969: 'RESIDUAL_VALUE',
9970: l_return_status,
9971: l_sty_id);
9972:
9973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)

Line 9992: FETCH l_unbill_stream_pending_csr INTO l_residual_amount;

9988: END IF;
9989:
9990: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9991: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id, l_sty_id);
9992: FETCH l_unbill_stream_pending_csr INTO l_residual_amount;
9993: CLOSE l_unbill_stream_pending_csr;
9994: ELSE
9995: --PAGARG 19-Nov-2004 Bug# 4012614
9996: --Fetch cursor value into correct variable l_residual_amount

Line 9996: --Fetch cursor value into correct variable l_residual_amount

9992: FETCH l_unbill_stream_pending_csr INTO l_residual_amount;
9993: CLOSE l_unbill_stream_pending_csr;
9994: ELSE
9995: --PAGARG 19-Nov-2004 Bug# 4012614
9996: --Fetch cursor value into correct variable l_residual_amount
9997: OPEN l_unbill_stream_csr (p_contract_id, p_contract_line_id, l_sty_id);
9998: FETCH l_unbill_stream_csr INTO l_residual_amount;
9999: CLOSE l_unbill_stream_csr;
10000: END IF;

Line 9998: FETCH l_unbill_stream_csr INTO l_residual_amount;

9994: ELSE
9995: --PAGARG 19-Nov-2004 Bug# 4012614
9996: --Fetch cursor value into correct variable l_residual_amount
9997: OPEN l_unbill_stream_csr (p_contract_id, p_contract_line_id, l_sty_id);
9998: FETCH l_unbill_stream_csr INTO l_residual_amount;
9999: CLOSE l_unbill_stream_csr;
10000: END IF;
10001:
10002: -- this condition is included to prevent 'ORA-01476: divisor is equal to zero' error

Line 10004: IF l_residual_amount = 0 THEN

10000: END IF;
10001:
10002: -- this condition is included to prevent 'ORA-01476: divisor is equal to zero' error
10003: -- need to seed a new message
10004: IF l_residual_amount = 0 THEN
10005: l_result_amount := 0;
10006: ELSE
10007: l_result_amount := l_residual_amount/l_residual_amount;
10008: END IF;

Line 10007: l_result_amount := l_residual_amount/l_residual_amount;

10003: -- need to seed a new message
10004: IF l_residual_amount = 0 THEN
10005: l_result_amount := 0;
10006: ELSE
10007: l_result_amount := l_residual_amount/l_residual_amount;
10008: END IF;
10009:
10010: RETURN l_result_amount;
10011:

Line 10200: select sysdate into l_sysdate from dual;

10196: END LOOP;
10197: END IF;
10198:
10199: -- rmunjulu EDAT
10200: select sysdate into l_sysdate from dual;
10201:
10202: -- rmunjulu EDAT
10203: IF l_quote_id IS NOT NULL
10204: AND l_quote_id <> OKL_API.G_MISS_NUM THEN

Line 10461: l_residual_value NUMBER;

10457: l_total_invest NUMBER := 0;
10458: l_line_asset_invest NUMBER := 0 ;
10459: l_return_status VARCHAR2(1);
10460: l_unbilled_rent NUMBER;
10461: l_residual_value NUMBER;
10462: l_unearned_income NUMBER;
10463:
10464: BEGIN
10465:

Line 10484: l_residual_value := line_residual_value(p_khr_id,l_line.kle_id);

10480: FOR l_line IN c_quote_asset_line(l_quote_id)
10481: LOOP
10482:
10483: l_unbilled_rent := line_unbilled_rent(p_khr_id,l_line.kle_id);
10484: l_residual_value := line_residual_value(p_khr_id,l_line.kle_id);
10485: l_unearned_income := line_unearned_income(p_khr_id,l_line.kle_id);
10486:
10487: l_line_asset_invest := l_unbilled_rent + l_residual_value -l_unearned_income;
10488:

Line 10487: l_line_asset_invest := l_unbilled_rent + l_residual_value -l_unearned_income;

10483: l_unbilled_rent := line_unbilled_rent(p_khr_id,l_line.kle_id);
10484: l_residual_value := line_residual_value(p_khr_id,l_line.kle_id);
10485: l_unearned_income := line_unearned_income(p_khr_id,l_line.kle_id);
10486:
10487: l_line_asset_invest := l_unbilled_rent + l_residual_value -l_unearned_income;
10488:
10489: l_total_invest := l_total_invest + l_line_asset_invest;
10490:
10491: END LOOP;

Line 10735: select sysdate into l_sysdate from dual;

10731: l_fee_type := l_amrfee;
10732: END IF;
10733:
10734: -- rmunjulu EDAT
10735: select sysdate into l_sysdate from dual;
10736:
10737: -- rmunjulu EDAT
10738: IF l_quote_id IS NOT NULL
10739: AND l_quote_id <> OKL_API.G_MISS_NUM THEN

Line 13598: -- Function Name: Asset_Residual

13594:
13595: END line_future_income;
13596:
13597: -- Start of Comments
13598: -- Function Name: Asset_Residual
13599: -- Description: Returns the Residual value for an asset
13600: -- Dependencies:
13601: -- Parameters: IN: p_contract_id, p_contract_line_id ,p_additional_paams(quote_id, kle_id)
13602: -- OUT: amount

Line 13599: -- Description: Returns the Residual value for an asset

13595: END line_future_income;
13596:
13597: -- Start of Comments
13598: -- Function Name: Asset_Residual
13599: -- Description: Returns the Residual value for an asset
13600: -- Dependencies:
13601: -- Parameters: IN: p_contract_id, p_contract_line_id ,p_additional_paams(quote_id, kle_id)
13602: -- OUT: amount
13603: -- rmunjulu 3816891 created

Line 13608: FUNCTION asset_residual(

13604: -- Version: 1.0
13605: -- End of Commnets
13606: ------------------------------------------------------------------------------
13607:
13608: FUNCTION asset_residual(
13609: p_khr_id IN NUMBER,
13610: p_kle_id IN NUMBER)
13611: RETURN NUMBER IS
13612:

Line 13623: SELECT nvl(tql.asset_value,0) residual_value

13619: WHERE qte.id = p_quote_id;
13620:
13621: -- get asset niv from quote lines
13622: CURSOR get_asset_niv_csr (p_kle_id IN NUMBER, p_quote_id IN NUMBER) IS
13623: SELECT nvl(tql.asset_value,0) residual_value
13624: FROM okl_txl_quote_lines_v tql
13625: WHERE tql.qte_id = p_quote_id
13626: AND tql.qlt_code = 'AMCFIA'
13627: AND tql.kle_id = p_kle_id;

Line 13638: l_asset_residual NUMBER;

13634: AND tal_type = 'AML'
13635: AND ROWNUM < 2;
13636:
13637: l_quote_id NUMBER;
13638: l_asset_residual NUMBER;
13639: l_quote_type VARCHAR2(300);
13640: l_residual NUMBER;
13641: l_corp_book_cost NUMBER;
13642:

Line 13640: l_residual NUMBER;

13636:
13637: l_quote_id NUMBER;
13638: l_asset_residual NUMBER;
13639: l_quote_type VARCHAR2(300);
13640: l_residual NUMBER;
13641: l_corp_book_cost NUMBER;
13642:
13643: BEGIN
13644:

Line 13677: l_asset_residual := get_asset_niv_rec.residual_value;

13673:
13674: -- Get the asset NIV from the quoted quote line
13675: FOR get_asset_niv_rec IN get_asset_niv_csr (p_kle_id,l_quote_id ) LOOP
13676:
13677: l_asset_residual := get_asset_niv_rec.residual_value;
13678: END LOOP;
13679:
13680: ELSE -- termination without purchase
13681:

Line 13685: l_asset_residual := get_deprn_cost_rec.depreciation_cost;

13681:
13682: -- Get the Off-lease trn value
13683: FOR get_deprn_cost_rec IN get_deprn_cost_csr (p_kle_id ) LOOP
13684:
13685: l_asset_residual := get_deprn_cost_rec.depreciation_cost;
13686: END LOOP;
13687: END IF;
13688:
13689: IF l_asset_residual IS NULL THEN

Line 13689: IF l_asset_residual IS NULL THEN

13685: l_asset_residual := get_deprn_cost_rec.depreciation_cost;
13686: END LOOP;
13687: END IF;
13688:
13689: IF l_asset_residual IS NULL THEN
13690:
13691: l_asset_residual := 0;
13692: END IF;
13693:

Line 13691: l_asset_residual := 0;

13687: END IF;
13688:
13689: IF l_asset_residual IS NULL THEN
13690:
13691: l_asset_residual := 0;
13692: END IF;
13693:
13694: RETURN l_asset_residual;
13695:

Line 13694: RETURN l_asset_residual;

13690:
13691: l_asset_residual := 0;
13692: END IF;
13693:
13694: RETURN l_asset_residual;
13695:
13696: EXCEPTION
13697:
13698: WHEN Expected_error THEN

Line 13710: END asset_residual;

13706: p_token1_value => SQLCODE,
13707: p_token2 => 'OKL_SQLERRM',
13708: p_token2_value => SQLERRM);
13709: RETURN NULL;
13710: END asset_residual;
13711:
13712: -- rfedane 4058562
13713: FUNCTION principal_balance_fee_line (p_contract_id IN NUMBER,
13714: p_contract_line_id IN NUMBER) RETURN NUMBER IS

Line 14121: -- rmunjulu VENDOR_RESIDUAL_SHARE PROJECT

14117: END contract_unbilled_streams;
14118: -- varangan Bug#5036582 end
14119:
14120:
14121: -- rmunjulu VENDOR_RESIDUAL_SHARE PROJECT
14122: FUNCTION vendor_residual_share_amount(
14123: p_khr_id IN NUMBER,
14124: p_kle_id IN NUMBER)
14125: RETURN NUMBER IS

Line 14122: FUNCTION vendor_residual_share_amount(

14118: -- varangan Bug#5036582 end
14119:
14120:
14121: -- rmunjulu VENDOR_RESIDUAL_SHARE PROJECT
14122: FUNCTION vendor_residual_share_amount(
14123: p_khr_id IN NUMBER,
14124: p_kle_id IN NUMBER)
14125: RETURN NUMBER IS
14126:

Line 14127: CURSOR get_asset_residual_csr (p_kle_id IN NUMBER) IS

14123: p_khr_id IN NUMBER,
14124: p_kle_id IN NUMBER)
14125: RETURN NUMBER IS
14126:
14127: CURSOR get_asset_residual_csr (p_kle_id IN NUMBER) IS
14128: SELECT nvl(KLE.residual_value,0) residual_value
14129: FROM OKL_K_LINES KLE
14130: WHERE KLE.id = p_kle_id;
14131:

Line 14128: SELECT nvl(KLE.residual_value,0) residual_value

14124: p_kle_id IN NUMBER)
14125: RETURN NUMBER IS
14126:
14127: CURSOR get_asset_residual_csr (p_kle_id IN NUMBER) IS
14128: SELECT nvl(KLE.residual_value,0) residual_value
14129: FROM OKL_K_LINES KLE
14130: WHERE KLE.id = p_kle_id;
14131:
14132: CURSOR get_asset_sales_proceeds_csr (p_retirement_id IN NUMBER) IS

Line 14146: l_residual_value NUMBER;

14142: EXPECTED_ERROR EXCEPTION;
14143:
14144: l_sales_proceeds NUMBER;
14145: l_share_percent NUMBER;
14146: l_residual_value NUMBER;
14147: l_share_amount NUMBER;
14148: l_currency_code VARCHAR2(15);
14149: l_contract_currency_code VARCHAR2(15);
14150: l_currency_conversion_type VARCHAR2(30);

Line 14193: l_residual_value := 0;

14189: RAISE EXPECTED_ERROR;
14190: END IF;
14191:
14192: l_sales_proceeds := 0;
14193: l_residual_value := 0;
14194: l_share_percent := 0;
14195: l_share_amount := 0;
14196:
14197: OPEN get_asset_residual_csr (p_kle_id);

Line 14197: OPEN get_asset_residual_csr (p_kle_id);

14193: l_residual_value := 0;
14194: l_share_percent := 0;
14195: l_share_amount := 0;
14196:
14197: OPEN get_asset_residual_csr (p_kle_id);
14198: FETCH get_asset_residual_csr INTO l_residual_value;
14199: CLOSE get_asset_residual_csr;
14200:
14201: -- get sales proceeds for the retirement id

Line 14198: FETCH get_asset_residual_csr INTO l_residual_value;

14194: l_share_percent := 0;
14195: l_share_amount := 0;
14196:
14197: OPEN get_asset_residual_csr (p_kle_id);
14198: FETCH get_asset_residual_csr INTO l_residual_value;
14199: CLOSE get_asset_residual_csr;
14200:
14201: -- get sales proceeds for the retirement id
14202: OPEN get_asset_sales_proceeds_csr (l_retirement_id);

Line 14199: CLOSE get_asset_residual_csr;

14195: l_share_amount := 0;
14196:
14197: OPEN get_asset_residual_csr (p_kle_id);
14198: FETCH get_asset_residual_csr INTO l_residual_value;
14199: CLOSE get_asset_residual_csr;
14200:
14201: -- get sales proceeds for the retirement id
14202: OPEN get_asset_sales_proceeds_csr (l_retirement_id);
14203: FETCH get_asset_sales_proceeds_csr INTO l_sales_proceeds;

Line 14226: l_share_amount := nvl(l_converted_sales_proceeds,0) - nvl(l_residual_value,0);

14222: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
14223: RAISE EXPECTED_ERROR;
14224: END IF;
14225:
14226: l_share_amount := nvl(l_converted_sales_proceeds,0) - nvl(l_residual_value,0);
14227:
14228: RETURN l_share_amount; -- has no share percent included, percent will be applied later
14229:
14230: EXCEPTION

Line 14234: IF get_asset_residual_csr%ISOPEN THEN

14230: EXCEPTION
14231:
14232: WHEN EXPECTED_ERROR THEN
14233:
14234: IF get_asset_residual_csr%ISOPEN THEN
14235: CLOSE get_asset_residual_csr;
14236: END IF;
14237:
14238: IF get_asset_sales_proceeds_csr%ISOPEN THEN

Line 14235: CLOSE get_asset_residual_csr;

14231:
14232: WHEN EXPECTED_ERROR THEN
14233:
14234: IF get_asset_residual_csr%ISOPEN THEN
14235: CLOSE get_asset_residual_csr;
14236: END IF;
14237:
14238: IF get_asset_sales_proceeds_csr%ISOPEN THEN
14239: CLOSE get_asset_sales_proceeds_csr;

Line 14246: IF get_asset_residual_csr%ISOPEN THEN

14242: RETURN NULL;
14243:
14244: WHEN OTHERS THEN
14245:
14246: IF get_asset_residual_csr%ISOPEN THEN
14247: CLOSE get_asset_residual_csr;
14248: END IF;
14249:
14250: IF get_asset_sales_proceeds_csr%ISOPEN THEN

Line 14247: CLOSE get_asset_residual_csr;

14243:
14244: WHEN OTHERS THEN
14245:
14246: IF get_asset_residual_csr%ISOPEN THEN
14247: CLOSE get_asset_residual_csr;
14248: END IF;
14249:
14250: IF get_asset_sales_proceeds_csr%ISOPEN THEN
14251: CLOSE get_asset_sales_proceeds_csr;

Line 14262: END vendor_residual_share_amount;

14258: p_token1_value => SQLCODE,
14259: p_token2 => 'OKL_SQLERRM',
14260: p_token2_value => SQLERRM);
14261: RETURN NULL;
14262: END vendor_residual_share_amount;
14263:
14264: -- rmunjulu LOANS_ENHANCEMENTS PROJECT
14265: FUNCTION loan_asset_prin_bal(
14266: p_khr_id IN NUMBER,