[Home] [Help]
75: l_monthly_premium := l_amount / l_freq_factor ;
76: RETURN l_monthly_premium;
77: EXCEPTION
78: WHEN OTHERS THEN
79: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
80: p_msg_name => 'OKL_UNEXPECTED_ERROR',
81: p_token1 => 'OKL_SQLCODE',
82: p_token1_value => SQLCODE,
83: p_token2 => 'OKL_SQLERRM',
101: ----------------------------------------------------------------------------------------------------
102:
103: FUNCTION INS_REFUNDABLE_MONTHS(
104: p_contract_id IN NUMBER
105: -- ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
106: ,p_contract_line_id IN NUMBER
107: )
108: RETURN NUMBER
109: IS
149: l_total_consumed_months NUMBER;
150: l_unconsumed_months NUMBER;
151: l_cancellation_date DATE; ---++ Ins Effective Dated Term Changes ++----
152: l_cancellation_reason VARCHAR2(30);---++ Ins Effective Dated Term Changes ++----
153: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
154:
155: BEGIN
156: -- ********************************************
157: -- Extract Insurance Cancellation Date from global variables
286: END IF;
287:
288: EXCEPTION
289: WHEN OTHERS THEN
290: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
291: p_msg_name => 'OKL_UNEXPECTED_ERROR',
292: p_token1 => 'OKL_SQLCODE',
293: p_token1_value => SQLCODE,
294: p_token2 => 'OKL_SQLERRM',
342: END IF;
343: END LOOP;
344: ELSE
345: -- Additional parameters are needed to evaluate taxable basis override formula LINE_TAXABLE_BASIS.
346: OKL_API.set_message(p_app_name => 'OKL',
347: p_msg_name => 'OKL_TX_NO_TBO_PARAMS');
348: RAISE Okl_Api.G_EXCEPTION_ERROR;
349:
350: END IF;
344: ELSE
345: -- Additional parameters are needed to evaluate taxable basis override formula LINE_TAXABLE_BASIS.
346: OKL_API.set_message(p_app_name => 'OKL',
347: p_msg_name => 'OKL_TX_NO_TBO_PARAMS');
348: RAISE Okl_Api.G_EXCEPTION_ERROR;
349:
350: END IF;
351:
352: IF l_source_trx_name IS NULL THEN
349:
350: END IF;
351:
352: IF l_source_trx_name IS NULL THEN
353: OKL_API.set_message( p_app_name => 'OKC',
354: p_msg_name => G_REQUIRED_VALUE,
355: p_token1 => G_COL_NAME_TOKEN,
356: p_token1_value => 'SOURCE_TRX_NAME');
357:
354: p_msg_name => G_REQUIRED_VALUE,
355: p_token1 => G_COL_NAME_TOKEN,
356: p_token1_value => 'SOURCE_TRX_NAME');
357:
358: RAISE Okl_Api.G_EXCEPTION_ERROR;
359: END IF;
360:
361: IF l_line_taxable_basis IS NULL THEN
362: OKL_API.set_message( p_app_name => 'OKC',
358: RAISE Okl_Api.G_EXCEPTION_ERROR;
359: END IF;
360:
361: IF l_line_taxable_basis IS NULL THEN
362: OKL_API.set_message( p_app_name => 'OKC',
363: p_msg_name => G_REQUIRED_VALUE,
364: p_token1 => G_COL_NAME_TOKEN,
365: p_token1_value => 'DEFAULT_TAXABLE_BASIS');
366:
363: p_msg_name => G_REQUIRED_VALUE,
364: p_token1 => G_COL_NAME_TOKEN,
365: p_token1_value => 'DEFAULT_TAXABLE_BASIS');
366:
367: RAISE Okl_Api.G_EXCEPTION_ERROR;
368: END IF;
369:
370: IF l_source_trx_name IN ('Booking','Rebook','Sales Quote') AND l_line_name IS NULL THEN
371: --Contract Header or Sales Quote Header level tax call
375: END IF;
376:
377: EXCEPTION
378:
379: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
380: RETURN NULL;
381:
382: WHEN OTHERS THEN
383:
380: RETURN NULL;
381:
382: WHEN OTHERS THEN
383:
384: OKL_API.SET_MESSAGE (
385: p_app_name => OKL_API.G_APP_NAME,
386: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
387: p_token1 => 'SQLCODE',
388: p_token1_value => SQLCODE,
381:
382: WHEN OTHERS THEN
383:
384: OKL_API.SET_MESSAGE (
385: p_app_name => OKL_API.G_APP_NAME,
386: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
387: p_token1 => 'SQLCODE',
388: p_token1_value => SQLCODE,
389: p_token2 => 'SQLERRM',
410: p_line_id IN NUMBER) RETURN NUMBER IS
411:
412: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_SUM_OF_RENTS';
413: l_api_version CONSTANT NUMBER := 1;
414: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
415: x_msg_count NUMBER;
416: x_msg_data VARCHAR2(256);
417:
418: l_rents NUMBER := 0;
470:
471: BEGIN
472:
473: IF ( p_chr_id IS NULL ) THEN
474: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
475: END IF;
476:
477: l_line_rents_amount := 0;
478: FOR l_line_rents_rec IN l_line_rents_csr (p_chr_id)
501:
502:
503: EXCEPTION
504: WHEN OTHERS THEN
505: Okl_Api.SET_MESSAGE(
506: p_app_name => G_APP_NAME,
507: p_msg_name => G_UNEXPECTED_ERROR,
508: p_token1 => G_SQLCODE_TOKEN,
509: p_token1_value => SQLCODE,
530: p_line_id IN NUMBER) RETURN NUMBER IS
531:
532: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_INCOME';
533: l_api_version CONSTANT NUMBER := 1;
534: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
535: x_msg_count NUMBER;
536: x_msg_data VARCHAR2(256);
537:
538: l_income NUMBER := 0;
539:
540: BEGIN
541:
542: IF ( p_chr_id IS NULL ) THEN
543: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
544: END IF;
545: --
546: -- Note: User defined stream: This stream type has been identified as
547: -- "Not being used" and hence not modified with its purpose
564:
565: EXCEPTION
566:
567: WHEN OTHERS THEN
568: Okl_Api.SET_MESSAGE(
569: p_app_name => G_APP_NAME,
570: p_msg_name => G_UNEXPECTED_ERROR,
571: p_token1 => G_SQLCODE_TOKEN,
572: p_token1_value => SQLCODE,
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);
605:
606: l_residual_value NUMBER := 0.0;
649:
650: BEGIN
651:
652: IF ( ( p_chr_id IS NULL ) OR ( p_line_id IS NULL ) ) THEN
653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
654:
655: END IF;
656:
657: -- SECHAWLA 05-MAY-04 3578894 : check the additional parameter for rep product
681:
682: IF l_rep_prod_streams_yn = 'Y' THEN
683: IF l_trx_date IS NULL THEN
684: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
685: Okl_Api.Set_Message(p_app_name => g_app_name,
686: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
687: RAISE Okl_Api.G_EXCEPTION_ERROR;
688: END IF;
689: END IF;
683: IF l_trx_date IS NULL THEN
684: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
685: Okl_Api.Set_Message(p_app_name => g_app_name,
686: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
687: RAISE Okl_Api.G_EXCEPTION_ERROR;
688: END IF;
689: END IF;
690:
691: IF l_rep_prod_streams_yn = 'Y' THEN
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
726: OPEN residual_csr( p_chr_id, p_line_id );
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;
733:
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;
740: END IF;
741: l_residual_value := residual_rec.Percent * l_oec / 100.00;
742: END IF;
743:
749:
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:
760: END IF;
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:
779: IF l_contract_csr%ISOPEN THEN
780: CLOSE l_contract_csr;
781: END IF;
782:
783: Okl_Api.SET_MESSAGE(
784: p_app_name => G_APP_NAME,
785: p_msg_name => G_UNEXPECTED_ERROR,
786: p_token1 => G_SQLCODE_TOKEN,
787: p_token1_value => SQLCODE,
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);
816:
817: l_residual_value NUMBER := 0.0;
832:
833: BEGIN
834:
835: IF ( p_chr_id IS NULL ) THEN
836: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
837: END IF;
838:
839: FOR line_rec IN lines_csr( p_chr_id )
840: LOOP
838:
839: FOR line_rec IN lines_csr( p_chr_id )
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;
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;
849: END LOOP;
850:
852:
853: EXCEPTION
854:
855: WHEN OTHERS THEN
856: Okl_Api.SET_MESSAGE(
857: p_app_name => G_APP_NAME,
858: p_msg_name => G_UNEXPECTED_ERROR,
859: p_token1 => G_SQLCODE_TOKEN,
860: p_token1_value => SQLCODE,
882: p_line_id IN NUMBER) RETURN NUMBER IS
883:
884: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_OEC';
885: l_api_version CONSTANT NUMBER := 1;
886: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
887: x_msg_count NUMBER;
888: x_msg_data VARCHAR2(256);
889:
890: BEGIN
907: -- Version : 1.0
908: -- End of Commnets
909:
910: FUNCTION line_oec(p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
911: --p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE DEFAULT Okl_Api.G_MISS_NUM)
912: p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE )
913: RETURN NUMBER IS
914: G_APP_NAME CONSTANT VARCHAR2(3) := Okl_Api.G_APP_NAME;
915: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
910: FUNCTION line_oec(p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
911: --p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE DEFAULT Okl_Api.G_MISS_NUM)
912: p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE )
913: RETURN NUMBER IS
914: G_APP_NAME CONSTANT VARCHAR2(3) := Okl_Api.G_APP_NAME;
915: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
916: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
917: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_COL_NAME_TOKEN;
918: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
913: RETURN NUMBER IS
914: G_APP_NAME CONSTANT VARCHAR2(3) := Okl_Api.G_APP_NAME;
915: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
916: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
917: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_COL_NAME_TOKEN;
918: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
919: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
920: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
921: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
927: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
928: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
929: G_LEASE_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LEASE';
930: G_LOAN_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LOAN';
931: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
932: l_api_name CONSTANT VARCHAR2(30) := 'FUNCTION_OEC_CALC';
933: ln_contract_oec OKL_K_LINES_V.OEC%TYPE := 0;
934: lv_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
935: ln_model_line_oec OKL_K_LINES_V.OEC%TYPE := 0;
1076: FROM OKC_K_HEADERS_B CHR
1077: WHERE CHR.id = p_dnz_chr_id; --);
1078: BEGIN
1079: -- initialize return status
1080: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1081: -- data is required
1082: IF (p_dnz_chr_id = Okl_Api.G_MISS_NUM) OR
1083: (p_dnz_chr_id IS NULL) THEN
1084: -- store SQL error message on message stack
1078: BEGIN
1079: -- initialize return status
1080: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1081: -- data is required
1082: IF (p_dnz_chr_id = Okl_Api.G_MISS_NUM) OR
1083: (p_dnz_chr_id IS NULL) THEN
1084: -- store SQL error message on message stack
1085: Okl_Api.set_message(p_app_name => G_APP_NAME,
1086: p_msg_name => G_REQUIRED_VALUE,
1081: -- data is required
1082: IF (p_dnz_chr_id = Okl_Api.G_MISS_NUM) OR
1083: (p_dnz_chr_id IS NULL) THEN
1084: -- store SQL error message on message stack
1085: Okl_Api.set_message(p_app_name => G_APP_NAME,
1086: p_msg_name => G_REQUIRED_VALUE,
1087: p_token1 => G_COL_NAME_TOKEN,
1088: p_token1_value => 'P_DNZ_CHR_ID');
1089: -- halt validation as it is a required field
1094: -- we assume the cle_id will not null
1095: -- as the same is not top line and it will be sub line
1096: OPEN c_dnz_chr_id_validate(p_dnz_chr_id);
1097: IF c_dnz_chr_id_validate%NOTFOUND THEN
1098: Okl_Api.set_message(p_app_name => G_APP_NAME,
1099: p_msg_name => G_NO_MATCHING_RECORD,
1100: p_token1 => G_COL_NAME_TOKEN,
1101: p_token1_value => 'P_DNZ_CHR_ID');
1102: -- halt validation as it has no parent record
1104: END IF;
1105: FETCH c_dnz_chr_id_validate INTO ln_dummy;
1106: CLOSE c_dnz_chr_id_validate;
1107: IF (ln_dummy = 0) THEN
1108: Okl_Api.set_message(p_app_name => G_APP_NAME,
1109: p_msg_name => G_NO_MATCHING_RECORD,
1110: p_token1 => G_COL_NAME_TOKEN,
1111: p_token1_value => 'P_DNZ_CHR_ID');
1112: -- halt validation as it has no parent record
1115: EXCEPTION
1116: WHEN G_EXCEPTION_STOP_VALIDATION THEN
1117: -- We are here since the field is required
1118: -- Notify Error
1119: x_return_status := Okl_Api.G_RET_STS_ERROR;
1120: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1121: -- If the cursor is open then it has to be closed
1122: IF c_dnz_chr_id_validate%ISOPEN THEN
1123: CLOSE c_dnz_chr_id_validate;
1121: -- If the cursor is open then it has to be closed
1122: IF c_dnz_chr_id_validate%ISOPEN THEN
1123: CLOSE c_dnz_chr_id_validate;
1124: END IF;
1125: x_return_status := Okl_Api.G_RET_STS_ERROR;
1126: WHEN OTHERS THEN
1127: -- store SQL error message on message stack
1128: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1129: p_msg_name => G_UNEXPECTED_ERROR,
1124: END IF;
1125: x_return_status := Okl_Api.G_RET_STS_ERROR;
1126: WHEN OTHERS THEN
1127: -- store SQL error message on message stack
1128: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1129: p_msg_name => G_UNEXPECTED_ERROR,
1130: p_token1 => G_SQLCODE_TOKEN,
1131: p_token1_value => SQLCODE,
1132: p_token2 => G_SQLERRM_TOKEN,
1135: IF c_dnz_chr_id_validate%ISOPEN THEN
1136: CLOSE c_dnz_chr_id_validate;
1137: END IF;
1138: -- notify caller of an error as UNEXPETED error
1139: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1140: END validate_dnz_chr_id;
1141: ----------------------------------------------------------------------------------------------------
1142: BEGIN
1143: -- We need to validate the dnz_chr_id first
1143: -- We need to validate the dnz_chr_id first
1144: -- We are taking care of the validating p_cle_id via cursor we use for calculations of oec
1145: validate_dnz_chr_id(p_dnz_chr_id => p_dnz_chr_id,
1146: x_return_status => l_return_status);
1147: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1148: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1150: RAISE Okl_Api.G_EXCEPTION_ERROR;
1151: END IF;
1144: -- We are taking care of the validating p_cle_id via cursor we use for calculations of oec
1145: validate_dnz_chr_id(p_dnz_chr_id => p_dnz_chr_id,
1146: x_return_status => l_return_status);
1147: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1148: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1150: RAISE Okl_Api.G_EXCEPTION_ERROR;
1151: END IF;
1152:
1145: validate_dnz_chr_id(p_dnz_chr_id => p_dnz_chr_id,
1146: x_return_status => l_return_status);
1147: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1148: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1150: RAISE Okl_Api.G_EXCEPTION_ERROR;
1151: END IF;
1152:
1153: --Bug# 4631549
1146: x_return_status => l_return_status);
1147: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1148: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1149: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1150: RAISE Okl_Api.G_EXCEPTION_ERROR;
1151: END IF;
1152:
1153: --Bug# 4631549
1154: --Find out if re-lease contract
1176: END IF;
1177:
1178: -- Now we start calculations of the OEC
1179: IF (p_dnz_chr_id IS NOT NULL OR
1180: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1181: (p_cle_id IS NULL OR
1182: p_cle_id = Okl_Api.G_MISS_NUM) THEN
1183: -- To get the OEC of the contract
1184:
1178: -- Now we start calculations of the OEC
1179: IF (p_dnz_chr_id IS NOT NULL OR
1180: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1181: (p_cle_id IS NULL OR
1182: p_cle_id = Okl_Api.G_MISS_NUM) THEN
1183: -- To get the OEC of the contract
1184:
1185: --Bug# 4631549 :
1186: If nvl(l_chrb_rec.orig_system_source_code,okl_api.g_miss_char) = 'OKL_RELEASE' Then
1182: p_cle_id = Okl_Api.G_MISS_NUM) THEN
1183: -- To get the OEC of the contract
1184:
1185: --Bug# 4631549 :
1186: If nvl(l_chrb_rec.orig_system_source_code,okl_api.g_miss_char) = 'OKL_RELEASE' Then
1187: If l_capred_incl_terminated = TRUE Then
1188: OPEN l_chr_expcost_trmn_csr (p_chr_id => p_dnz_chr_id);
1189: FETCH l_chr_expcost_trmn_csr into ln_contract_oec;
1190: If l_chr_expcost_trmn_csr%NOTFOUND then
1187: If l_capred_incl_terminated = TRUE Then
1188: OPEN l_chr_expcost_trmn_csr (p_chr_id => p_dnz_chr_id);
1189: FETCH l_chr_expcost_trmn_csr into ln_contract_oec;
1190: If l_chr_expcost_trmn_csr%NOTFOUND then
1191: Okl_Api.set_message(p_app_name => G_APP_NAME,
1192: p_msg_name => G_NO_MATCHING_RECORD,
1193: p_token1 => G_COL_NAME_TOKEN,
1194: p_token1_value => 'p_dnz_chr_id');
1195: RAISE Okl_Api.G_EXCEPTION_ERROR;
1191: Okl_Api.set_message(p_app_name => G_APP_NAME,
1192: p_msg_name => G_NO_MATCHING_RECORD,
1193: p_token1 => G_COL_NAME_TOKEN,
1194: p_token1_value => 'p_dnz_chr_id');
1195: RAISE Okl_Api.G_EXCEPTION_ERROR;
1196: End If;
1197: Close l_chr_expcost_trmn_csr;
1198: Else
1199: OPEN l_chr_expcost_csr (p_chr_id => p_dnz_chr_id);
1198: Else
1199: OPEN l_chr_expcost_csr (p_chr_id => p_dnz_chr_id);
1200: FETCH l_chr_expcost_csr into ln_contract_oec;
1201: If l_chr_expcost_csr%NOTFOUND then
1202: Okl_Api.set_message(p_app_name => G_APP_NAME,
1203: p_msg_name => G_NO_MATCHING_RECORD,
1204: p_token1 => G_COL_NAME_TOKEN,
1205: p_token1_value => 'p_dnz_chr_id');
1206: RAISE Okl_Api.G_EXCEPTION_ERROR;
1202: Okl_Api.set_message(p_app_name => G_APP_NAME,
1203: p_msg_name => G_NO_MATCHING_RECORD,
1204: p_token1 => G_COL_NAME_TOKEN,
1205: p_token1_value => 'p_dnz_chr_id');
1206: RAISE Okl_Api.G_EXCEPTION_ERROR;
1207: End If;
1208: Close l_chr_expcost_csr;
1209: End If;
1210: Else
1211: --End Bug 4631549
1212: IF l_capred_incl_terminated = TRUE THEN
1213: OPEN c_contract_oec_calc_incl_term(p_dnz_chr_id => p_dnz_chr_id);
1214: IF c_contract_oec_calc_incl_term%NOTFOUND THEN
1215: Okl_Api.set_message(p_app_name => G_APP_NAME,
1216: p_msg_name => G_NO_MATCHING_RECORD,
1217: p_token1 => G_COL_NAME_TOKEN,
1218: p_token1_value => 'p_dnz_chr_id');
1219: RAISE Okl_Api.G_EXCEPTION_ERROR;
1215: Okl_Api.set_message(p_app_name => G_APP_NAME,
1216: p_msg_name => G_NO_MATCHING_RECORD,
1217: p_token1 => G_COL_NAME_TOKEN,
1218: p_token1_value => 'p_dnz_chr_id');
1219: RAISE Okl_Api.G_EXCEPTION_ERROR;
1220: END IF;
1221: FETCH c_contract_oec_calc_incl_term INTO ln_contract_oec;
1222: CLOSE c_contract_oec_calc_incl_term;
1223: ELSE
1222: CLOSE c_contract_oec_calc_incl_term;
1223: ELSE
1224: OPEN c_contract_oec_calc(p_dnz_chr_id => p_dnz_chr_id);
1225: IF c_contract_oec_calc%NOTFOUND THEN
1226: Okl_Api.set_message(p_app_name => G_APP_NAME,
1227: p_msg_name => G_NO_MATCHING_RECORD,
1228: p_token1 => G_COL_NAME_TOKEN,
1229: p_token1_value => 'p_dnz_chr_id');
1230: RAISE Okl_Api.G_EXCEPTION_ERROR;
1226: Okl_Api.set_message(p_app_name => G_APP_NAME,
1227: p_msg_name => G_NO_MATCHING_RECORD,
1228: p_token1 => G_COL_NAME_TOKEN,
1229: p_token1_value => 'p_dnz_chr_id');
1230: RAISE Okl_Api.G_EXCEPTION_ERROR;
1231: END IF;
1232: FETCH c_contract_oec_calc INTO ln_contract_oec;
1233: CLOSE c_contract_oec_calc;
1234: END IF;
1236: -- Final Total Contract OEC
1237: ln_contract_oec := NVL(ln_contract_oec,0);
1238: RETURN(ln_contract_oec);
1239: ELSIF (p_dnz_chr_id IS NOT NULL OR
1240: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1241: (p_cle_id IS NOT NULL OR
1242: p_cle_id <> Okl_Api.G_MISS_NUM) THEN
1243: -- To get the Line Style Code
1244: OPEN get_lty_code(p_cle_id => p_cle_id);
1238: RETURN(ln_contract_oec);
1239: ELSIF (p_dnz_chr_id IS NOT NULL OR
1240: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1241: (p_cle_id IS NOT NULL OR
1242: p_cle_id <> Okl_Api.G_MISS_NUM) THEN
1243: -- To get the Line Style Code
1244: OPEN get_lty_code(p_cle_id => p_cle_id);
1245: IF get_lty_code%NOTFOUND THEN
1246: Okl_Api.set_message(p_app_name => G_APP_NAME,
1242: p_cle_id <> Okl_Api.G_MISS_NUM) THEN
1243: -- To get the Line Style Code
1244: OPEN get_lty_code(p_cle_id => p_cle_id);
1245: IF get_lty_code%NOTFOUND THEN
1246: Okl_Api.set_message(p_app_name => G_APP_NAME,
1247: p_msg_name => G_NO_MATCHING_RECORD,
1248: p_token1 => G_COL_NAME_TOKEN,
1249: p_token1_value => 'Financial Asset Line');
1250: RAISE Okl_Api.G_EXCEPTION_ERROR;
1246: Okl_Api.set_message(p_app_name => G_APP_NAME,
1247: p_msg_name => G_NO_MATCHING_RECORD,
1248: p_token1 => G_COL_NAME_TOKEN,
1249: p_token1_value => 'Financial Asset Line');
1250: RAISE Okl_Api.G_EXCEPTION_ERROR;
1251: END IF;
1252: FETCH get_lty_code INTO lv_lty_code;
1253: CLOSE get_lty_code;
1254: IF lv_lty_code = G_FIN_LINE_LTY_CODE THEN
1256: If l_chrb_rec.orig_system_source_code = 'OKL_RELEASE' then
1257: Open l_cle_expcost_csr (p_cle_id => p_cle_id);
1258: Fetch l_cle_expcost_csr into ln_total_line_oec;
1259: If l_cle_expcost_csr%NOTFOUND Then
1260: Okl_Api.set_message(p_app_name => G_APP_NAME,
1261: p_msg_name => G_NO_MATCHING_RECORD,
1262: p_token1 => G_COL_NAME_TOKEN,
1263: p_token1_value => 'Financial Asset Line');
1264: RAISE Okl_Api.G_EXCEPTION_ERROR;
1260: Okl_Api.set_message(p_app_name => G_APP_NAME,
1261: p_msg_name => G_NO_MATCHING_RECORD,
1262: p_token1 => G_COL_NAME_TOKEN,
1263: p_token1_value => 'Financial Asset Line');
1264: RAISE Okl_Api.G_EXCEPTION_ERROR;
1265: End If;
1266: Close l_cle_expcost_csr;
1267: ln_total_line_oec := nvl(ln_total_line_oec,0);
1268: Else --Bug# 4631549 end
1269: -- To get the OEC of the model Line
1270: OPEN c_model_oec_calc(p_top_cle_id => p_cle_id,
1271: p_dnz_chr_id => p_dnz_chr_id);
1272: IF c_model_oec_calc%NOTFOUND THEN
1273: Okl_Api.set_message(p_app_name => G_APP_NAME,
1274: p_msg_name => G_NO_MATCHING_RECORD,
1275: p_token1 => G_COL_NAME_TOKEN,
1276: p_token1_value => 'Model Line');
1277: RAISE Okl_Api.G_EXCEPTION_ERROR;
1273: Okl_Api.set_message(p_app_name => G_APP_NAME,
1274: p_msg_name => G_NO_MATCHING_RECORD,
1275: p_token1 => G_COL_NAME_TOKEN,
1276: p_token1_value => 'Model Line');
1277: RAISE Okl_Api.G_EXCEPTION_ERROR;
1278: END IF;
1279: FETCH c_model_oec_calc INTO ln_model_line_oec;
1280: CLOSE c_model_oec_calc;
1281: -- To get the OEC of the Addon line
1291:
1292: ln_total_line_oec := NVL(ln_model_line_oec,0) + NVL(ln_addon_line_oec,0);
1293: End If; --Bug# 4631549
1294: ELSE
1295: Okl_Api.set_message(p_app_name => G_APP_NAME,
1296: p_msg_name => G_LINE_RECORD);
1297: RAISE Okl_Api.G_EXCEPTION_ERROR;
1298: END IF;
1299: RETURN(ln_total_line_oec);
1293: End If; --Bug# 4631549
1294: ELSE
1295: Okl_Api.set_message(p_app_name => G_APP_NAME,
1296: p_msg_name => G_LINE_RECORD);
1297: RAISE Okl_Api.G_EXCEPTION_ERROR;
1298: END IF;
1299: RETURN(ln_total_line_oec);
1300: ELSE
1301: Okl_Api.set_message(p_app_name => G_APP_NAME,
1297: RAISE Okl_Api.G_EXCEPTION_ERROR;
1298: END IF;
1299: RETURN(ln_total_line_oec);
1300: ELSE
1301: Okl_Api.set_message(p_app_name => G_APP_NAME,
1302: p_msg_name => G_INVALID_CRITERIA);
1303: RAISE Okl_Api.G_EXCEPTION_ERROR;
1304: END IF;
1305: EXCEPTION
1299: RETURN(ln_total_line_oec);
1300: ELSE
1301: Okl_Api.set_message(p_app_name => G_APP_NAME,
1302: p_msg_name => G_INVALID_CRITERIA);
1303: RAISE Okl_Api.G_EXCEPTION_ERROR;
1304: END IF;
1305: EXCEPTION
1306: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1307: -- If the cursor is open then it has to be closed
1302: p_msg_name => G_INVALID_CRITERIA);
1303: RAISE Okl_Api.G_EXCEPTION_ERROR;
1304: END IF;
1305: EXCEPTION
1306: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1307: -- If the cursor is open then it has to be closed
1308: IF get_lty_code%ISOPEN THEN
1309: CLOSE get_lty_code;
1310: END IF;
1320: IF c_addon_oec_calc%ISOPEN THEN
1321: CLOSE c_addon_oec_calc;
1322: END IF;
1323: RETURN(0);
1324: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1325: -- If the cursor is open then it has to be closed
1326: IF get_lty_code%ISOPEN THEN
1327: CLOSE get_lty_code;
1328: END IF;
1378: p_line_id IN NUMBER) RETURN NUMBER IS
1379:
1380: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_TRADEIN_VALUE';
1381: l_api_version CONSTANT NUMBER := 1;
1382: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1383: x_msg_count NUMBER;
1384: x_msg_data VARCHAR2(256);
1385:
1386: l_tradeIn_value NUMBER := 0;
1389:
1390: BEGIN
1391:
1392: IF ( p_chr_id IS NULL ) THEN
1393: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1394: END IF;
1395:
1396: -- rmunjulu 4042892
1397: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1435:
1436: EXCEPTION
1437:
1438: WHEN OTHERS THEN
1439: Okl_Api.SET_MESSAGE(
1440: p_app_name => G_APP_NAME,
1441: p_msg_name => G_UNEXPECTED_ERROR,
1442: p_token1 => G_SQLCODE_TOKEN,
1443: p_token1_value => SQLCODE,
1466: p_line_id IN NUMBER) RETURN NUMBER IS
1467:
1468: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_TRADEIN_VALUE';
1469: l_api_version CONSTANT NUMBER := 1;
1470: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1471: x_msg_count NUMBER;
1472: x_msg_data VARCHAR2(256);
1473:
1474: l_tradeIn_value NUMBER := 0.0;
1507:
1508: BEGIN
1509:
1510: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
1511: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1512: END IF;
1513:
1514: -- rmunjulu 4042892
1515: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1529: IF l_discount_incl_terminated THEN
1530: OPEN trdinval_csr_incl_terminated ( p_chr_id, p_line_id );
1531: FETCH trdinval_csr_incl_terminated INTO l_trdinval_rec;
1532: IF( trdinval_csr_incl_terminated%NOTFOUND ) THEN
1533: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1534: END IF;
1535: CLOSE trdinval_csr_incl_terminated;
1536: ELSE
1537: OPEN trdinval_csr ( p_chr_id, p_line_id );
1536: ELSE
1537: OPEN trdinval_csr ( p_chr_id, p_line_id );
1538: FETCH trdinval_csr INTO l_trdinval_rec;
1539: IF( trdinval_csr%NOTFOUND ) THEN
1540: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1541: END IF;
1542: CLOSE trdinval_csr;
1543: END IF;
1544:
1553: END IF;
1554: IF trdinval_csr%ISOPEN THEN
1555: CLOSE trdinval_csr;
1556: END IF;
1557: Okl_Api.SET_MESSAGE(
1558: p_app_name => G_APP_NAME,
1559: p_msg_name => G_UNEXPECTED_ERROR,
1560: p_token1 => G_SQLCODE_TOKEN,
1561: p_token1_value => SQLCODE,
1583: p_line_id IN NUMBER) RETURN NUMBER IS
1584:
1585: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_CONTRACT_CAPITAL_REDUCTION_VALUE';
1586: l_api_version CONSTANT NUMBER := 1;
1587: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1588: x_msg_count NUMBER;
1589: x_msg_data VARCHAR2(256);
1590:
1591: l_capred_value NUMBER := 0;
1625: l_discount_incl_terminated BOOLEAN := FALSE;
1626: BEGIN
1627:
1628: IF ( p_chr_id IS NULL ) THEN
1629: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1630: END IF;
1631:
1632: -- rmunjulu 4042892
1633: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1670: END IF;
1671: IF l_lines_csr%ISOPEN THEN
1672: CLOSE l_lines_csr;
1673: END IF;
1674: Okl_Api.SET_MESSAGE(
1675: p_app_name => G_APP_NAME,
1676: p_msg_name => G_UNEXPECTED_ERROR,
1677: p_token1 => G_SQLCODE_TOKEN,
1678: p_token1_value => SQLCODE,
1701:
1702:
1703: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_CAPITAL_REDUCTION_VALUE';
1704: l_api_version CONSTANT NUMBER := 1;
1705: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1706: x_msg_count NUMBER;
1707: x_msg_data VARCHAR2(256);
1708:
1709: l_capred_value NUMBER := 0;
1732:
1733: BEGIN
1734:
1735: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
1736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1737: END IF;
1738:
1739: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
1740: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
1853:
1854: EXCEPTION
1855:
1856: WHEN OTHERS THEN
1857: Okl_Api.SET_MESSAGE(
1858: p_app_name => G_APP_NAME,
1859: p_msg_name => G_UNEXPECTED_ERROR,
1860: p_token1 => G_SQLCODE_TOKEN,
1861: p_token1_value => SQLCODE,
1884: p_line_id IN NUMBER) RETURN NUMBER IS
1885:
1886: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_FEES_CAPITAL_AMOUNT_VALUE';
1887: l_api_version CONSTANT NUMBER := 1;
1888: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1889: x_msg_count NUMBER;
1890: x_msg_data VARCHAR2(256);
1891:
1892: l_fees_value NUMBER := 0;
1939:
1940: BEGIN
1941:
1942: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL)) THEN
1943: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1944: END IF;
1945:
1946: --Bug# 5150150 -- start
1947: OPEN l_sys_source_code_csr ( p_chr_id );
1997: IF l_fee_csr%ISOPEN THEN
1998: CLOSE l_fee_csr;
1999: END IF;
2000:
2001: Okl_Api.SET_MESSAGE(
2002: p_app_name => G_APP_NAME,
2003: p_msg_name => G_UNEXPECTED_ERROR,
2004: p_token1 => G_SQLCODE_TOKEN,
2005: p_token1_value => SQLCODE,
2027: p_line_id IN NUMBER) RETURN NUMBER IS
2028:
2029: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_FEES_CAPITAL_AMOUNT_VALUE';
2030: l_api_version CONSTANT NUMBER := 1;
2031: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2032: x_msg_count NUMBER;
2033: x_msg_data VARCHAR2(256);
2034:
2035:
2065:
2066: BEGIN
2067:
2068: IF ( p_chr_id IS NULL ) THEN
2069: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2070: END IF;
2071:
2072: -- rmunjulu 4042892
2073: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2110: END IF;
2111: IF l_lines_csr%ISOPEN THEN
2112: CLOSE l_lines_csr;
2113: END IF;
2114: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
2115: p_msg_name => G_UNEXPECTED_ERROR,
2116: p_token1 => G_SQLCODE_TOKEN,
2117: p_token1_value => SQLCODE,
2118: p_token2 => G_SQLERRM_TOKEN,
2138: p_line_id IN NUMBER) RETURN NUMBER IS
2139:
2140: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_SVC_CAP_AMNT_VALUE';
2141: l_api_version CONSTANT NUMBER := 1;
2142: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2143: x_msg_count NUMBER;
2144: x_msg_data VARCHAR2(256);
2145:
2146: l_srvcs_value NUMBER := 0;
2183:
2184: BEGIN
2185:
2186: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
2187: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2188: END IF;
2189:
2190: OPEN srvc_strm_type_csr( p_line_id );
2191: FETCH srvc_strm_type_csr INTO l_srvcstrm_rec;
2189:
2190: OPEN srvc_strm_type_csr( p_line_id );
2191: FETCH srvc_strm_type_csr INTO l_srvcstrm_rec;
2192: IF( srvc_strm_type_csr%NOTFOUND ) THEN
2193: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2194: END IF;
2195: CLOSE srvc_strm_type_csr;
2196:
2197: IF( UPPER(l_srvcstrm_rec.capitalize_YN) = 'N' ) THEN
2200:
2201: OPEN l_srvcline_csr( p_line_id );
2202: FETCH l_srvcline_csr INTO l_srvcline_rec;
2203: IF( l_srvcline_csr%NOTFOUND ) THEN
2204: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2205: END IF;
2206: CLOSE l_srvcline_csr;
2207:
2208: l_srvcs_value := l_srvcline_rec.CapAmountSubLines;
2212:
2213: EXCEPTION
2214:
2215: WHEN OTHERS THEN
2216: Okl_Api.SET_MESSAGE(
2217: p_app_name => G_APP_NAME,
2218: p_msg_name => G_UNEXPECTED_ERROR,
2219: p_token1 => G_SQLCODE_TOKEN,
2220: p_token1_value => SQLCODE,
2274:
2275: RETURN l_amount;
2276: EXCEPTION
2277: WHEN OTHERS THEN
2278: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2279: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2280: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2281: p_token1 => 'OKL_SQLCODE',
2282: p_token1_value => SQLCODE,
2275: RETURN l_amount;
2276: EXCEPTION
2277: WHEN OTHERS THEN
2278: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2279: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2280: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2281: p_token1 => 'OKL_SQLCODE',
2282: p_token1_value => SQLCODE,
2283: p_token2 => 'OKL_SQLERRM',
2336:
2337: RETURN l_amount;
2338: EXCEPTION
2339: WHEN OTHERS THEN
2340: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2341: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2342: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2343: p_token1 => 'OKL_SQLCODE',
2344: p_token1_value => SQLCODE,
2337: RETURN l_amount;
2338: EXCEPTION
2339: WHEN OTHERS THEN
2340: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2341: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2342: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2343: p_token1 => 'OKL_SQLCODE',
2344: p_token1_value => SQLCODE,
2345: p_token2 => 'OKL_SQLERRM',
2395:
2396: RETURN l_amount;
2397: EXCEPTION
2398: WHEN OTHERS THEN
2399: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2400: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2401: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2402: p_token1 => 'OKL_SQLCODE',
2403: p_token1_value => SQLCODE,
2396: RETURN l_amount;
2397: EXCEPTION
2398: WHEN OTHERS THEN
2399: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2400: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2401: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2402: p_token1 => 'OKL_SQLCODE',
2403: p_token1_value => SQLCODE,
2404: p_token2 => 'OKL_SQLERRM',
2455: RETURN l_amount;
2456:
2457: EXCEPTION
2458: WHEN OTHERS THEN
2459: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2460: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2461: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2462: p_token1 => 'OKL_SQLCODE',
2463: p_token1_value => SQLCODE,
2456:
2457: EXCEPTION
2458: WHEN OTHERS THEN
2459: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2460: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2461: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2462: p_token1 => 'OKL_SQLCODE',
2463: p_token1_value => SQLCODE,
2464: p_token2 => 'OKL_SQLERRM',
2499:
2500: RETURN l_amount;
2501: EXCEPTION
2502: WHEN OTHERS THEN
2503: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2504: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2505: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2506: p_token1 => 'OKL_SQLCODE',
2507: p_token1_value => SQLCODE,
2500: RETURN l_amount;
2501: EXCEPTION
2502: WHEN OTHERS THEN
2503: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2504: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2505: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2506: p_token1 => 'OKL_SQLCODE',
2507: p_token1_value => SQLCODE,
2508: p_token2 => 'OKL_SQLERRM',
2532: -- l_amount_funded NUMBER := 0;
2533: -- l_amount_limit NUMBER := 0;
2534: -- l_amount_remain NUMBER := 0;
2535:
2536: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2537: l_api_version NUMBER := 1.0;
2538: x_msg_count NUMBER;
2539: x_msg_data VARCHAR2(4000);
2540: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
2536: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2537: l_api_version NUMBER := 1.0;
2538: x_msg_count NUMBER;
2539: x_msg_data VARCHAR2(4000);
2540: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
2541:
2542: x_value NUMBER := 0;
2543:
2544: BEGIN
2556: ,x_msg_data => x_msg_data
2557: ,p_creditline_id => p_contract_id
2558: ,p_credit_max => l_amount_limit);
2559:
2560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: l_amount_remain := 0;
2563: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2564: --RAISE OKL_API.G_EXCEPTION_ERROR;
2557: ,p_creditline_id => p_contract_id
2558: ,p_credit_max => l_amount_limit);
2559:
2560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: l_amount_remain := 0;
2563: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2564: --RAISE OKL_API.G_EXCEPTION_ERROR;
2565: l_amount_remain := 0;
2559:
2560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: l_amount_remain := 0;
2563: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2564: --RAISE OKL_API.G_EXCEPTION_ERROR;
2565: l_amount_remain := 0;
2566: END IF;
2567:
2560: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: l_amount_remain := 0;
2563: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2564: --RAISE OKL_API.G_EXCEPTION_ERROR;
2565: l_amount_remain := 0;
2566: END IF;
2567:
2568: l_amount := l_amount_remain;
2581: p_formula_name => 'CREDIT_CHECK',
2582: p_contract_id => p_contract_id,
2583: x_value => x_value);
2584:
2585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2586: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: x_value := 0;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2589: --RAISE OKL_API.G_EXCEPTION_ERROR;
2582: p_contract_id => p_contract_id,
2583: x_value => x_value);
2584:
2585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2586: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: x_value := 0;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2589: --RAISE OKL_API.G_EXCEPTION_ERROR;
2590: x_value := 0;
2584:
2585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2586: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: x_value := 0;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2589: --RAISE OKL_API.G_EXCEPTION_ERROR;
2590: x_value := 0;
2591: END IF;
2592:
2585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2586: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: x_value := 0;
2588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2589: --RAISE OKL_API.G_EXCEPTION_ERROR;
2590: x_value := 0;
2591: END IF;
2592:
2593: l_amount := x_value;
2594:
2595: RETURN l_amount;
2596: EXCEPTION
2597: WHEN OTHERS THEN
2598: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2599: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2600: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2601: p_token1 => 'OKL_SQLCODE',
2602: p_token1_value => SQLCODE,
2595: RETURN l_amount;
2596: EXCEPTION
2597: WHEN OTHERS THEN
2598: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2599: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2600: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2601: p_token1 => 'OKL_SQLCODE',
2602: p_token1_value => SQLCODE,
2603: p_token2 => 'OKL_SQLERRM',
2619: -- End of comments
2620: ------------------------------------------------------------------------------
2621: FUNCTION creditline_total_new_limit(
2622: p_contract_id IN NUMBER
2623: --,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
2624: ,p_contract_line_id IN NUMBER
2625: ) RETURN NUMBER
2626: IS
2627: l_amount NUMBER := 0;
2643:
2644: RETURN l_amount;
2645: EXCEPTION
2646: WHEN OTHERS THEN
2647: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2648: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2649: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2650: p_token1 => 'OKL_SQLCODE',
2651: p_token1_value => SQLCODE,
2644: RETURN l_amount;
2645: EXCEPTION
2646: WHEN OTHERS THEN
2647: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2648: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2649: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2650: p_token1 => 'OKL_SQLCODE',
2651: p_token1_value => SQLCODE,
2652: p_token2 => 'OKL_SQLERRM',
2668: -- End of comments
2669: ------------------------------------------------------------------------------
2670: FUNCTION creditline_total_addition(
2671: p_contract_id IN NUMBER
2672: --,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
2673: ,p_contract_line_id IN NUMBER
2674: ) RETURN NUMBER
2675: IS
2676: l_amount NUMBER := 0;
2692:
2693: RETURN l_amount;
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2697: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2698: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2699: p_token1 => 'OKL_SQLCODE',
2700: p_token1_value => SQLCODE,
2693: RETURN l_amount;
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2697: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2698: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2699: p_token1 => 'OKL_SQLCODE',
2700: p_token1_value => SQLCODE,
2701: p_token2 => 'OKL_SQLERRM',
2717: -- End of comments
2718: ------------------------------------------------------------------------------
2719: FUNCTION creditline_total_reduction(
2720: p_contract_id IN NUMBER
2721: --,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
2722: ,p_contract_line_id IN NUMBER
2723: ) RETURN NUMBER
2724: IS
2725: l_amount NUMBER := 0;
2741:
2742: RETURN l_amount;
2743: EXCEPTION
2744: WHEN OTHERS THEN
2745: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2746: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2747: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2748: p_token1 => 'OKL_SQLCODE',
2749: p_token1_value => SQLCODE,
2742: RETURN l_amount;
2743: EXCEPTION
2744: WHEN OTHERS THEN
2745: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2746: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2747: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2748: p_token1 => 'OKL_SQLCODE',
2749: p_token1_value => SQLCODE,
2750: p_token2 => 'OKL_SQLERRM',
2761: p_trd_amnt IN NUMBER) RETURN NUMBER IS
2762:
2763: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_CAP_AMNT_VALUE';
2764: l_api_version CONSTANT NUMBER := 1;
2765: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2766: x_msg_count NUMBER;
2767: x_msg_data VARCHAR2(256);
2768:
2769: l_capamnt_value NUMBER := 0;
2777:
2778: BEGIN
2779:
2780: IF ( ( p_chr_id IS NULL ) OR ( p_line_id IS NULL ) ) THEN
2781: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2782: END IF;
2783:
2784: l_oec_value := line_oec( p_chr_id, p_line_id);
2785: IF ( l_oec_value IS NULL ) THEN
2782: END IF;
2783:
2784: l_oec_value := line_oec( p_chr_id, p_line_id);
2785: IF ( l_oec_value IS NULL ) THEN
2786: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2787: END IF;
2788:
2789: l_capred := p_capred;
2790: IF(( p_capred IS NULL ) OR ( p_capred = 0)) THEN
2806: RETURN l_capamnt_value;
2807:
2808: EXCEPTION
2809: WHEN OTHERS THEN
2810: Okl_Api.SET_MESSAGE(
2811: p_app_name => G_APP_NAME,
2812: p_msg_name => G_UNEXPECTED_ERROR,
2813: p_token1 => G_SQLCODE_TOKEN,
2814: p_token1_value => SQLCODE,
2843: l_days_in_month VARCHAR2(100);
2844: l_contract_number VARCHAR2(2000);
2845: l_days_in_year VARCHAR2(100);
2846: l_advance_arrears VARCHAR2(1);
2847: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2848:
2849: -- Fetch contract days in a month
2850: CURSOR days_in_month IS
2851: SELECT days_in_a_month_code
2899: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
2900: END IF;
2901: END LOOP;
2902: ELSE
2903: Okl_Api.Set_Message(p_app_name => g_app_name,
2904: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
2905: RAISE Okl_Api.G_EXCEPTION_ERROR;
2906: END IF;
2907:
2901: END LOOP;
2902: ELSE
2903: Okl_Api.Set_Message(p_app_name => g_app_name,
2904: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
2905: RAISE Okl_Api.G_EXCEPTION_ERROR;
2906: END IF;
2907:
2908: -- Validate parameters
2909: IF l_period_end_date IS NULL THEN
2906: END IF;
2907:
2908: -- Validate parameters
2909: IF l_period_end_date IS NULL THEN
2910: Okl_Api.Set_Message(p_app_name => g_app_name,
2911: p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
2912: RAISE Okl_Api.G_EXCEPTION_ERROR;
2913: END IF;
2914:
2908: -- Validate parameters
2909: IF l_period_end_date IS NULL THEN
2910: Okl_Api.Set_Message(p_app_name => g_app_name,
2911: p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
2912: RAISE Okl_Api.G_EXCEPTION_ERROR;
2913: END IF;
2914:
2915: IF l_last_int_calc_date IS NULL THEN
2916: Okl_Api.Set_Message(p_app_name => g_app_name,
2912: RAISE Okl_Api.G_EXCEPTION_ERROR;
2913: END IF;
2914:
2915: IF l_last_int_calc_date IS NULL THEN
2916: Okl_Api.Set_Message(p_app_name => g_app_name,
2917: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
2918: RAISE Okl_Api.G_EXCEPTION_ERROR;
2919: END IF;
2920:
2914:
2915: IF l_last_int_calc_date IS NULL THEN
2916: Okl_Api.Set_Message(p_app_name => g_app_name,
2917: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
2918: RAISE Okl_Api.G_EXCEPTION_ERROR;
2919: END IF;
2920:
2921: --Bug 5081876. Adding a day to last int calc date.
2922: --Bug 5162929. Undoing changes made for bug 5081876. One day is being added in accrual program
2928: l_contract_number := y.contract_number;
2929: END LOOP;
2930:
2931: IF l_contract_number IS NULL THEN
2932: Okl_Api.set_message(p_app_name => g_app_name,
2933: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
2934: RAISE OKL_API.G_EXCEPTION_ERROR;
2935: END IF;
2936:
2930:
2931: IF l_contract_number IS NULL THEN
2932: Okl_Api.set_message(p_app_name => g_app_name,
2933: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
2934: RAISE OKL_API.G_EXCEPTION_ERROR;
2935: END IF;
2936:
2937: FOR x IN days_in_month
2938: LOOP
2939: l_days_in_month := x.days_in_a_month_code;
2940: END LOOP;
2941:
2942: IF l_days_in_month IS NULL THEN
2943: Okl_Api.Set_Message(p_app_name => g_app_name,
2944: p_msg_name => 'OKL_AGN_FE_DAYSIN_MTH',
2945: p_token1 => 'CONTRACT_NUMBER',
2946: p_token1_value => l_contract_number);
2947: RAISE Okl_Api.G_EXCEPTION_ERROR;
2943: Okl_Api.Set_Message(p_app_name => g_app_name,
2944: p_msg_name => 'OKL_AGN_FE_DAYSIN_MTH',
2945: p_token1 => 'CONTRACT_NUMBER',
2946: p_token1_value => l_contract_number);
2947: RAISE Okl_Api.G_EXCEPTION_ERROR;
2948: END IF;
2949:
2950: FOR z IN days_in_year
2951: LOOP
2952: l_days_in_year := z.days_in_a_year_code;
2953: END LOOP;
2954:
2955: IF l_days_in_year IS NULL THEN
2956: Okl_Api.Set_Message(p_app_name => g_app_name,
2957: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
2958: p_token1 => 'CONTRACT_NUMBER',
2959: p_token1_value => l_contract_number);
2960: RAISE Okl_Api.G_EXCEPTION_ERROR;
2956: Okl_Api.Set_Message(p_app_name => g_app_name,
2957: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
2958: p_token1 => 'CONTRACT_NUMBER',
2959: p_token1_value => l_contract_number);
2960: RAISE Okl_Api.G_EXCEPTION_ERROR;
2961: END IF;
2962:
2963: FOR i in adv_arr_csr
2964: LOOP
2972: l_period_end_date,
2973: l_advance_arrears,
2974: l_return_status);
2975:
2976: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2977: Okl_Api.set_message(p_app_name => g_app_name,
2978: p_msg_name => 'OKL_GET_DAY_CNT_ERROR');
2979:
2980: RAISE OKL_API.G_EXCEPTION_ERROR;
2973: l_advance_arrears,
2974: l_return_status);
2975:
2976: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2977: Okl_Api.set_message(p_app_name => g_app_name,
2978: p_msg_name => 'OKL_GET_DAY_CNT_ERROR');
2979:
2980: RAISE OKL_API.G_EXCEPTION_ERROR;
2981: END IF;
2976: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2977: Okl_Api.set_message(p_app_name => g_app_name,
2978: p_msg_name => 'OKL_GET_DAY_CNT_ERROR');
2979:
2980: RAISE OKL_API.G_EXCEPTION_ERROR;
2981: END IF;
2982: --Bug 5046184. ***Additional Code START***
2983:
2984: --Bug 5046184. Commenting below calculation
2986:
2987: RETURN l_days_to_accrue;
2988:
2989: EXCEPTION
2990: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2991: RETURN NULL;
2992:
2993: WHEN OTHERS THEN
2994: Okl_Api.SET_MESSAGE(
2990: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2991: RETURN NULL;
2992:
2993: WHEN OTHERS THEN
2994: Okl_Api.SET_MESSAGE(
2995: p_app_name => G_APP_NAME,
2996: p_msg_name => G_UNEXPECTED_ERROR,
2997: p_token1 => G_SQLCODE_TOKEN,
2998: p_token1_value => SQLCODE,
3047: OPEN contract_num_csr(p_khr_id);
3048: FETCH contract_num_csr INTO l_contract_number;
3049: IF contract_num_csr%NOTFOUND THEN
3050: CLOSE contract_num_csr;
3051: Okl_Api.set_message(p_app_name => g_app_name,
3052: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3053: RAISE OKL_API.G_EXCEPTION_ERROR;
3054: END IF;
3055: CLOSE contract_num_csr;
3049: IF contract_num_csr%NOTFOUND THEN
3050: CLOSE contract_num_csr;
3051: Okl_Api.set_message(p_app_name => g_app_name,
3052: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3053: RAISE OKL_API.G_EXCEPTION_ERROR;
3054: END IF;
3055: CLOSE contract_num_csr;
3056:
3057: OPEN lookup_csr(p_khr_id);
3058: FETCH lookup_csr INTO l_lookup_code;
3059: CLOSE lookup_csr;
3060:
3061: IF l_lookup_code IS NULL THEN
3062: Okl_Api.Set_Message(p_app_name => g_app_name,
3063: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
3064: p_token1 => 'CONTRACT_NUMBER',
3065: p_token1_value => l_contract_number);
3066: RAISE Okl_Api.G_EXCEPTION_ERROR;
3062: Okl_Api.Set_Message(p_app_name => g_app_name,
3063: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
3064: p_token1 => 'CONTRACT_NUMBER',
3065: p_token1_value => l_contract_number);
3066: RAISE Okl_Api.G_EXCEPTION_ERROR;
3067: END IF;
3068:
3069: IF l_lookup_code = 'ACTUAL' THEN
3070: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3074: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3075: END IF;
3076: END LOOP;
3077: ELSE
3078: Okl_Api.Set_Message(p_app_name => g_app_name,
3079:
3080:
3081: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3082: RAISE Okl_Api.G_EXCEPTION_ERROR;
3078: Okl_Api.Set_Message(p_app_name => g_app_name,
3079:
3080:
3081: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3082: RAISE Okl_Api.G_EXCEPTION_ERROR;
3083: END IF;
3084:
3085: IF l_accrual_date IS NULL THEN
3086: Okl_Api.Set_Message(p_app_name => g_app_name,
3082: RAISE Okl_Api.G_EXCEPTION_ERROR;
3083: END IF;
3084:
3085: IF l_accrual_date IS NULL THEN
3086: Okl_Api.Set_Message(p_app_name => g_app_name,
3087: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3088: RAISE Okl_Api.G_EXCEPTION_ERROR;
3089: END IF;
3090:
3084:
3085: IF l_accrual_date IS NULL THEN
3086: Okl_Api.Set_Message(p_app_name => g_app_name,
3087: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3088: RAISE Okl_Api.G_EXCEPTION_ERROR;
3089: END IF;
3090:
3091:
3092: l_year := TO_NUMBER(TO_CHAR(l_accrual_date, 'RRRR'));
3102:
3103: RETURN l_days;
3104:
3105: EXCEPTION
3106: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3107: RETURN NULL;
3108:
3109: WHEN OTHERS THEN
3110: IF lookup_csr%ISOPEN THEN
3109: WHEN OTHERS THEN
3110: IF lookup_csr%ISOPEN THEN
3111: CLOSE lookup_csr;
3112: END IF;
3113: Okl_Api.SET_MESSAGE(
3114: p_app_name => G_APP_NAME,
3115: p_msg_name => G_UNEXPECTED_ERROR,
3116: p_token1 => G_SQLCODE_TOKEN,
3117: p_token1_value => SQLCODE,
3213: OPEN contract_num_csr(p_khr_id);
3214: FETCH contract_num_csr INTO l_contract_number;
3215: IF contract_num_csr%NOTFOUND THEN
3216: CLOSE contract_num_csr;
3217: Okl_Api.set_message(p_app_name => g_app_name,
3218: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3219: RAISE OKL_API.G_EXCEPTION_ERROR;
3220: END IF;
3221: CLOSE contract_num_csr;
3215: IF contract_num_csr%NOTFOUND THEN
3216: CLOSE contract_num_csr;
3217: Okl_Api.set_message(p_app_name => g_app_name,
3218: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3219: RAISE OKL_API.G_EXCEPTION_ERROR;
3220: END IF;
3221: CLOSE contract_num_csr;
3222:
3223: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3227: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3228: END IF;
3229: END LOOP;
3230: ELSE
3231: Okl_Api.Set_Message(p_app_name => g_app_name,
3232: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3233: RAISE Okl_Api.G_EXCEPTION_ERROR;
3234: END IF;
3235:
3229: END LOOP;
3230: ELSE
3231: Okl_Api.Set_Message(p_app_name => g_app_name,
3232: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3233: RAISE Okl_Api.G_EXCEPTION_ERROR;
3234: END IF;
3235:
3236: IF l_accrual_date IS NULL THEN
3237: Okl_Api.Set_Message(p_app_name => g_app_name,
3233: RAISE Okl_Api.G_EXCEPTION_ERROR;
3234: END IF;
3235:
3236: IF l_accrual_date IS NULL THEN
3237: Okl_Api.Set_Message(p_app_name => g_app_name,
3238: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3239: RAISE Okl_Api.G_EXCEPTION_ERROR;
3240: END IF;
3241:
3235:
3236: IF l_accrual_date IS NULL THEN
3237: Okl_Api.Set_Message(p_app_name => g_app_name,
3238: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3239: RAISE Okl_Api.G_EXCEPTION_ERROR;
3240: END IF;
3241:
3242: OPEN interest_rate_csr(p_khr_id, l_accrual_date);
3243: FETCH interest_rate_csr INTO l_interest_rate;
3241:
3242: OPEN interest_rate_csr(p_khr_id, l_accrual_date);
3243: FETCH interest_rate_csr INTO l_interest_rate;
3244: IF interest_rate_csr %NOTFOUND THEN
3245: Okl_Api.Set_Message(p_app_name => g_app_name,
3246: p_msg_name => 'OKL_AGN_FE_INT_RATE',
3247: p_token1 => 'CONTRACT_NUMBER',
3248: p_token1_value => l_contract_number);
3249: CLOSE interest_rate_csr;
3246: p_msg_name => 'OKL_AGN_FE_INT_RATE',
3247: p_token1 => 'CONTRACT_NUMBER',
3248: p_token1_value => l_contract_number);
3249: CLOSE interest_rate_csr;
3250: RAISE Okl_Api.G_EXCEPTION_ERROR;
3251: END IF;
3252: CLOSE interest_rate_csr;
3253:
3254: OPEN adder_rate_csr(p_khr_id);
3253:
3254: OPEN adder_rate_csr(p_khr_id);
3255: FETCH adder_rate_csr INTO l_adder_rate;
3256: IF adder_rate_csr %NOTFOUND THEN
3257: Okl_Api.Set_Message(p_app_name => g_app_name,
3258: p_msg_name => 'OKL_AGN_FE_ADDER_RATE',
3259: p_token1 => 'CONTRACT_NUMBER',
3260: p_token1_value => l_contract_number);
3261: CLOSE interest_rate_csr;
3258: p_msg_name => 'OKL_AGN_FE_ADDER_RATE',
3259: p_token1 => 'CONTRACT_NUMBER',
3260: p_token1_value => l_contract_number);
3261: CLOSE interest_rate_csr;
3262: RAISE Okl_Api.G_EXCEPTION_ERROR;
3263: END IF;
3264: CLOSE adder_rate_csr;
3265:
3266: -- Bug# 2920174
3269:
3270: RETURN l_total_rate;
3271:
3272: EXCEPTION
3273: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3274: RETURN NULL;
3275:
3276: WHEN OTHERS THEN
3277: IF interest_rate_csr%ISOPEN THEN
3285: IF contract_num_csr%ISOPEN THEN
3286: CLOSE contract_num_csr;
3287: END IF;
3288:
3289: Okl_Api.SET_MESSAGE(
3290: p_app_name => G_APP_NAME,
3291: p_msg_name => G_UNEXPECTED_ERROR,
3292: p_token1 => G_SQLCODE_TOKEN,
3293: p_token1_value => SQLCODE,
3316: l_period_end_date DATE;
3317: l_principal_bal NUMBER;
3318: l_contract_number VARCHAR2(2000);
3319: l_last_int_calc_date DATE;
3320: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3321: l_kle_id NUMBER;
3322: -- Bug 5055714.
3323: -- l_prin_bal_id NUMBER;
3324:
3374: l_contract_number := i.contract_number;
3375: END LOOP;
3376:
3377: IF l_contract_number IS NULL THEN
3378: Okl_Api.set_message(p_app_name => g_app_name,
3379: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3380: RAISE OKL_API.G_EXCEPTION_ERROR;
3381: END IF;
3382:
3376:
3377: IF l_contract_number IS NULL THEN
3378: Okl_Api.set_message(p_app_name => g_app_name,
3379: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3380: RAISE OKL_API.G_EXCEPTION_ERROR;
3381: END IF;
3382:
3383: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3384: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3393: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3394: END IF;
3395: END LOOP;
3396: ELSE
3397: Okl_Api.Set_Message(p_app_name => g_app_name,
3398: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3399: RAISE Okl_Api.G_EXCEPTION_ERROR;
3400: END IF;
3401:
3395: END LOOP;
3396: ELSE
3397: Okl_Api.Set_Message(p_app_name => g_app_name,
3398: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3399: RAISE Okl_Api.G_EXCEPTION_ERROR;
3400: END IF;
3401:
3402: IF l_last_int_calc_date IS NULL THEN
3403: Okl_Api.Set_Message(p_app_name => g_app_name,
3399: RAISE Okl_Api.G_EXCEPTION_ERROR;
3400: END IF;
3401:
3402: IF l_last_int_calc_date IS NULL THEN
3403: Okl_Api.Set_Message(p_app_name => g_app_name,
3404: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
3405: RAISE Okl_Api.G_EXCEPTION_ERROR;
3406: END IF;
3407:
3401:
3402: IF l_last_int_calc_date IS NULL THEN
3403: Okl_Api.Set_Message(p_app_name => g_app_name,
3404: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
3405: RAISE Okl_Api.G_EXCEPTION_ERROR;
3406: END IF;
3407:
3408: -- Bug 5055714.No validation needed.
3409: -- IF l_period_end_date IS NULL THEN
3406: END IF;
3407:
3408: -- Bug 5055714.No validation needed.
3409: -- IF l_period_end_date IS NULL THEN
3410: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3411: -- p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
3412: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3413: -- END IF;
3414: --
3408: -- Bug 5055714.No validation needed.
3409: -- IF l_period_end_date IS NULL THEN
3410: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3411: -- p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
3412: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3413: -- END IF;
3414: --
3415: -- IF l_period_start_date IS NULL THEN
3416: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3412: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3413: -- END IF;
3414: --
3415: -- IF l_period_start_date IS NULL THEN
3416: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3417: -- p_msg_name => 'OKL_AGN_FE_PERD_START_DATE');
3418: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3419: -- END IF;
3420:
3414: --
3415: -- IF l_period_start_date IS NULL THEN
3416: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3417: -- p_msg_name => 'OKL_AGN_FE_PERD_START_DATE');
3418: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3419: -- END IF;
3420:
3421: -- SGIYER
3422: -- UDS Impact
3427: -- p_dependent_sty_purpose => 'PRINCIPAL_BALANCE',
3428: -- x_return_status => l_return_status,
3429: -- x_dependent_sty_id => l_prin_bal_id);
3430: --
3431: -- IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3432: -- Okl_Api.set_message(p_app_name => g_app_name,
3433: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3434: -- p_token1 => 'STREAM_NAME',
3435: -- p_token1_value => 'PRINCIPAL BALANCE');
3428: -- x_return_status => l_return_status,
3429: -- x_dependent_sty_id => l_prin_bal_id);
3430: --
3431: -- IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3432: -- Okl_Api.set_message(p_app_name => g_app_name,
3433: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3434: -- p_token1 => 'STREAM_NAME',
3435: -- p_token1_value => 'PRINCIPAL BALANCE');
3436: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3432: -- Okl_Api.set_message(p_app_name => g_app_name,
3433: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3434: -- p_token1 => 'STREAM_NAME',
3435: -- p_token1_value => 'PRINCIPAL BALANCE');
3436: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3437: -- END IF;
3438:
3439: -- Bug 5055714. Commenting below derivation. Using utility provided instead.
3440: -- OPEN principal_bal_csr (p_khr_id, l_period_start_date, l_period_end_date, l_prin_bal_id);
3440: -- OPEN principal_bal_csr (p_khr_id, l_period_start_date, l_period_end_date, l_prin_bal_id);
3441: -- FETCH principal_bal_csr INTO l_principal_bal;
3442: -- CLOSE principal_bal_csr;
3443:
3444: -- Bug 5060624. Passing l_kle_id which is null and not okl_api.g_miss_num
3445: l_principal_bal := OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal(
3446: x_return_status => l_return_status,
3447: p_khr_id => p_khr_id,
3448: p_kle_id => l_kle_id,
3447: p_khr_id => p_khr_id,
3448: p_kle_id => l_kle_id,
3449: p_date => l_last_int_calc_date);
3450:
3451: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3452: Okl_Api.Set_Message(p_app_name => g_app_name,
3453: p_msg_name => 'OKL_AGN_VAR_PB_ERROR');
3454: END IF;
3455:
3448: p_kle_id => l_kle_id,
3449: p_date => l_last_int_calc_date);
3450:
3451: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3452: Okl_Api.Set_Message(p_app_name => g_app_name,
3453: p_msg_name => 'OKL_AGN_VAR_PB_ERROR');
3454: END IF;
3455:
3456: IF l_principal_bal IS NULL THEN
3453: p_msg_name => 'OKL_AGN_VAR_PB_ERROR');
3454: END IF;
3455:
3456: IF l_principal_bal IS NULL THEN
3457: Okl_Api.Set_Message(p_app_name => g_app_name,
3458: p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3459: p_token1 => 'CONTRACT_NUMBER',
3460: p_token1_value => l_contract_number);
3461: RAISE Okl_Api.G_EXCEPTION_ERROR;
3457: Okl_Api.Set_Message(p_app_name => g_app_name,
3458: p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3459: p_token1 => 'CONTRACT_NUMBER',
3460: p_token1_value => l_contract_number);
3461: RAISE Okl_Api.G_EXCEPTION_ERROR;
3462: END IF;
3463:
3464: -- Bug#2920344. Commenting error message.
3465: -- If principal balance for period range not found then retrieve
3463:
3464: -- Bug#2920344. Commenting error message.
3465: -- If principal balance for period range not found then retrieve
3466: -- principal balance for available prior period. MMITTAL.
3467: --Okl_Api.Set_Message(p_app_name => g_app_name,
3468: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3469: -- p_token1 => 'CONTRACT_NUMBER',
3470: -- p_token1_value => l_contract_number);
3471: --CLOSE principal_bal_csr;
3468: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3469: -- p_token1 => 'CONTRACT_NUMBER',
3470: -- p_token1_value => l_contract_number);
3471: --CLOSE principal_bal_csr;
3472: --RAISE Okl_Api.G_EXCEPTION_ERROR;
3473:
3474: -- If principal balance not found for date range, get prior principal balance.
3475: -- As per MMITTAL.
3476: -- OPEN prior_prin_bal_csr(p_khr_id, l_period_start_date,l_prin_bal_id);
3476: -- OPEN prior_prin_bal_csr(p_khr_id, l_period_start_date,l_prin_bal_id);
3477: -- FETCH prior_prin_bal_csr INTO l_principal_bal;
3478: -- CLOSE prior_prin_bal_csr;
3479: -- IF l_principal_bal IS NULL THEN
3480: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3481: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3482: -- p_token1 => 'CONTRACT_NUMBER',
3483: -- p_token1_value => l_contract_number);
3484: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3480: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3481: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3482: -- p_token1 => 'CONTRACT_NUMBER',
3483: -- p_token1_value => l_contract_number);
3484: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3485: -- END IF;
3486: -- END IF;
3487:
3488: RETURN l_principal_bal;
3487:
3488: RETURN l_principal_bal;
3489:
3490: EXCEPTION
3491: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3492: RETURN NULL;
3493:
3494: WHEN OTHERS THEN
3495: Okl_Api.SET_MESSAGE(
3491: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3492: RETURN NULL;
3493:
3494: WHEN OTHERS THEN
3495: Okl_Api.SET_MESSAGE(
3496: p_app_name => G_APP_NAME,
3497: p_msg_name => G_UNEXPECTED_ERROR,
3498: p_token1 => G_SQLCODE_TOKEN,
3499: p_token1_value => SQLCODE,
3519: l_rent_strm_bal NUMBER := 0;
3520: l_contract_number VARCHAR2(2000);
3521: l_provision_date DATE;
3522: l_sty_id NUMBER;
3523: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3524:
3525: -- cursor to get the contract number
3526: -- 02-Oct-2003. SGIYER. Added condition ste.stream_element_date >= p_date
3527: -- on product management's instructions.
3551: FETCH contract_num_csr INTO l_contract_number;
3552: CLOSE contract_num_csr;
3553:
3554: IF l_contract_number IS NULL THEN
3555: Okl_Api.set_message(p_app_name => g_app_name,
3556: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3559:
3553:
3554: IF l_contract_number IS NULL THEN
3555: Okl_Api.set_message(p_app_name => g_app_name,
3556: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3557: RAISE OKL_API.G_EXCEPTION_ERROR;
3558: END IF;
3559:
3560: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3561: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3564: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3565: END IF;
3566: END LOOP;
3567: ELSE
3568: Okl_Api.Set_Message(p_app_name => g_app_name,
3569: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3570: RAISE Okl_Api.G_EXCEPTION_ERROR;
3571: END IF;
3572:
3566: END LOOP;
3567: ELSE
3568: Okl_Api.Set_Message(p_app_name => g_app_name,
3569: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3570: RAISE Okl_Api.G_EXCEPTION_ERROR;
3571: END IF;
3572:
3573: IF l_provision_date IS NULL THEN
3574: Okl_Api.Set_Message(p_app_name => g_app_name,
3570: RAISE Okl_Api.G_EXCEPTION_ERROR;
3571: END IF;
3572:
3573: IF l_provision_date IS NULL THEN
3574: Okl_Api.Set_Message(p_app_name => g_app_name,
3575: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
3576: RAISE Okl_Api.G_EXCEPTION_ERROR;
3577: END IF;
3578:
3572:
3573: IF l_provision_date IS NULL THEN
3574: Okl_Api.Set_Message(p_app_name => g_app_name,
3575: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
3576: RAISE Okl_Api.G_EXCEPTION_ERROR;
3577: END IF;
3578:
3579: -- SGIYER
3580: -- UDS Impact
3583: p_primary_sty_purpose => 'RENT',
3584: x_return_status => l_return_status,
3585: x_primary_sty_id => l_sty_id);
3586:
3587: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3588: Okl_Api.set_message(p_app_name => g_app_name,
3589: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3590: p_token1 => 'STREAM_NAME',
3591: p_token1_value => 'RENT');
3584: x_return_status => l_return_status,
3585: x_primary_sty_id => l_sty_id);
3586:
3587: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3588: Okl_Api.set_message(p_app_name => g_app_name,
3589: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3590: p_token1 => 'STREAM_NAME',
3591: p_token1_value => 'RENT');
3592: RAISE Okl_Api.G_EXCEPTION_ERROR;
3588: Okl_Api.set_message(p_app_name => g_app_name,
3589: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3590: p_token1 => 'STREAM_NAME',
3591: p_token1_value => 'RENT');
3592: RAISE Okl_Api.G_EXCEPTION_ERROR;
3593: END IF;
3594:
3595: OPEN get_unb_rec_csr(p_khr_id, l_provision_date, l_sty_id);
3596: FETCH get_unb_rec_csr INTO l_rent_strm_bal;
3602: END IF;
3603: RETURN l_rent_strm_bal;
3604:
3605: EXCEPTION
3606: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3607: RETURN NULL;
3608:
3609: WHEN OTHERS THEN
3610: IF get_unb_rec_csr%ISOPEN THEN
3612: END IF;
3613: IF contract_num_csr%ISOPEN THEN
3614: CLOSE contract_num_csr;
3615: END IF;
3616: Okl_Api.SET_MESSAGE(
3617: p_app_name => G_APP_NAME,
3618: p_msg_name => G_UNEXPECTED_ERROR,
3619: p_token1 => G_SQLCODE_TOKEN,
3620: p_token1_value => SQLCODE,
3641: l_contract_number VARCHAR2(2000);
3642: l_provision_date DATE;
3643: l_rent_sty_id NUMBER;
3644: l_lease_inc_sty_id NUMBER;
3645: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3646:
3647: -- cursor to get the contract number
3648: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS
3649: SELECT contract_number
3697: OPEN contract_num_csr(p_khr_id);
3698: FETCH contract_num_csr INTO l_contract_number;
3699: CLOSE contract_num_csr;
3700: IF l_contract_number IS NULL THEN
3701: Okl_Api.set_message(p_app_name => g_app_name,
3702: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3703: RAISE OKL_API.G_EXCEPTION_ERROR;
3704: END IF;
3705:
3699: CLOSE contract_num_csr;
3700: IF l_contract_number IS NULL THEN
3701: Okl_Api.set_message(p_app_name => g_app_name,
3702: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3703: RAISE OKL_API.G_EXCEPTION_ERROR;
3704: END IF;
3705:
3706: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3707: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3710: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3711: END IF;
3712: END LOOP;
3713: ELSE
3714: Okl_Api.Set_Message(p_app_name => g_app_name,
3715: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3716: RAISE Okl_Api.G_EXCEPTION_ERROR;
3717: END IF;
3718:
3712: END LOOP;
3713: ELSE
3714: Okl_Api.Set_Message(p_app_name => g_app_name,
3715: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3716: RAISE Okl_Api.G_EXCEPTION_ERROR;
3717: END IF;
3718:
3719: IF l_provision_date IS NULL THEN
3720: Okl_Api.Set_Message(p_app_name => g_app_name,
3716: RAISE Okl_Api.G_EXCEPTION_ERROR;
3717: END IF;
3718:
3719: IF l_provision_date IS NULL THEN
3720: Okl_Api.Set_Message(p_app_name => g_app_name,
3721: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
3722: RAISE Okl_Api.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3718:
3719: IF l_provision_date IS NULL THEN
3720: Okl_Api.Set_Message(p_app_name => g_app_name,
3721: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
3722: RAISE Okl_Api.G_EXCEPTION_ERROR;
3723: END IF;
3724:
3725: -- SGIYER
3726: -- UDS Impact
3728: p_khr_id => p_khr_id,
3729: p_primary_sty_purpose => 'RENT',
3730: x_return_status => l_return_status,
3731: x_primary_sty_id => l_rent_sty_id);
3732: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3733: Okl_Api.set_message(p_app_name => g_app_name,
3734: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3735: p_token1 => 'STREAM_NAME',
3736: p_token1_value => 'RENT');
3729: p_primary_sty_purpose => 'RENT',
3730: x_return_status => l_return_status,
3731: x_primary_sty_id => l_rent_sty_id);
3732: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
3733: Okl_Api.set_message(p_app_name => g_app_name,
3734: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3735: p_token1 => 'STREAM_NAME',
3736: p_token1_value => 'RENT');
3737: RAISE Okl_Api.G_EXCEPTION_ERROR;
3733: Okl_Api.set_message(p_app_name => g_app_name,
3734: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3735: p_token1 => 'STREAM_NAME',
3736: p_token1_value => 'RENT');
3737: RAISE Okl_Api.G_EXCEPTION_ERROR;
3738: END IF;
3739:
3740: -- SGIYER
3741: -- UDS Impact
3744: p_primary_sty_purpose => 'RENT',
3745: p_dependent_sty_purpose => 'LEASE_INCOME',
3746: x_return_status => l_return_status,
3747: x_dependent_sty_id => l_lease_inc_sty_id);
3748: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3749: -- store SQL error message on message stack for caller and entry in log file
3750: Okl_Api.set_message(p_app_name => g_app_name,
3751: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3752: p_token1 => 'STREAM_NAME',
3746: x_return_status => l_return_status,
3747: x_dependent_sty_id => l_lease_inc_sty_id);
3748: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3749: -- store SQL error message on message stack for caller and entry in log file
3750: Okl_Api.set_message(p_app_name => g_app_name,
3751: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3752: p_token1 => 'STREAM_NAME',
3753: p_token1_value => 'LEASE INCOME');
3754: RAISE Okl_Api.G_EXCEPTION_ERROR;
3750: Okl_Api.set_message(p_app_name => g_app_name,
3751: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3752: p_token1 => 'STREAM_NAME',
3753: p_token1_value => 'LEASE INCOME');
3754: RAISE Okl_Api.G_EXCEPTION_ERROR;
3755: END IF;
3756:
3757: OPEN get_unearn_rev_csr (p_khr_id, l_provision_date, l_rent_sty_id, l_lease_inc_sty_id);
3758: FETCH get_unearn_rev_csr INTO l_income_strm_bal;
3765:
3766: RETURN l_income_strm_bal;
3767:
3768: EXCEPTION
3769: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3770: RETURN NULL;
3771:
3772: WHEN OTHERS THEN
3773: IF get_unearn_rev_csr%ISOPEN THEN
3775: END IF;
3776: IF contract_num_csr%ISOPEN THEN
3777: CLOSE contract_num_csr;
3778: END IF;
3779: Okl_Api.SET_MESSAGE(
3780: p_app_name => G_APP_NAME,
3781: p_msg_name => G_UNEXPECTED_ERROR,
3782: p_token1 => G_SQLCODE_TOKEN,
3783: p_token1_value => SQLCODE,
3818: OPEN contract_num_csr(p_khr_id);
3819: FETCH contract_num_csr INTO l_contract_number;
3820: IF contract_num_csr%NOTFOUND THEN
3821: CLOSE contract_num_csr;
3822: Okl_Api.set_message(p_app_name => g_app_name,
3823: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3824: RAISE OKL_API.G_EXCEPTION_ERROR;
3825: END IF;
3826: CLOSE contract_num_csr;
3820: IF contract_num_csr%NOTFOUND THEN
3821: CLOSE contract_num_csr;
3822: Okl_Api.set_message(p_app_name => g_app_name,
3823: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3824: RAISE OKL_API.G_EXCEPTION_ERROR;
3825: END IF;
3826: CLOSE contract_num_csr;
3827:
3828: OPEN get_ung_res_csr(p_khr_id);
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',
3834: p_token1_value => l_contract_number);
3835: CLOSE get_ung_res_csr;
3832: p_msg_name => 'OKL_LPV_FE_UNG_RES',
3833: p_token1 => 'CONTRACT_NUMBER',
3834: p_token1_value => l_contract_number);
3835: CLOSE get_ung_res_csr;
3836: RAISE OKL_API.G_EXCEPTION_ERROR;
3837: END IF;
3838: CLOSE get_ung_res_csr;
3839:
3840: -- Bug 2969989. Return zero explicitly if nothing found.
3844:
3845: RETURN l_unguaranteed_residual;
3846:
3847: EXCEPTION
3848: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3849: RETURN NULL;
3850:
3851: WHEN OTHERS THEN
3852: Okl_Api.SET_MESSAGE(
3848: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3849: RETURN NULL;
3850:
3851: WHEN OTHERS THEN
3852: Okl_Api.SET_MESSAGE(
3853: p_app_name => G_APP_NAME,
3854: p_msg_name => G_UNEXPECTED_ERROR,
3855: p_token1 => G_SQLCODE_TOKEN,
3856: p_token1_value => SQLCODE,
3877: l_unaccrued_subsidy NUMBER := 0;
3878: l_contract_number VARCHAR2(2000);
3879: l_provision_date DATE;
3880: l_subsidy_inc_id NUMBER;
3881: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3882:
3883: -- cursor to get the contract number
3884: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS
3885: SELECT contract_number
3908: FETCH contract_num_csr INTO l_contract_number;
3909: CLOSE contract_num_csr;
3910:
3911: IF l_contract_number IS NULL THEN
3912: Okl_Api.set_message(p_app_name => g_app_name,
3913: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3914: RAISE OKL_API.G_EXCEPTION_ERROR;
3915: END IF;
3916:
3910:
3911: IF l_contract_number IS NULL THEN
3912: Okl_Api.set_message(p_app_name => g_app_name,
3913: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3914: RAISE OKL_API.G_EXCEPTION_ERROR;
3915: END IF;
3916:
3917: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3918: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3921: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3922: END IF;
3923: END LOOP;
3924: ELSE
3925: Okl_Api.Set_Message(p_app_name => g_app_name,
3926: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3927: RAISE Okl_Api.G_EXCEPTION_ERROR;
3928: END IF;
3929:
3923: END LOOP;
3924: ELSE
3925: Okl_Api.Set_Message(p_app_name => g_app_name,
3926: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3927: RAISE Okl_Api.G_EXCEPTION_ERROR;
3928: END IF;
3929:
3930: IF l_provision_date IS NULL THEN
3931: Okl_Api.Set_Message(p_app_name => g_app_name,
3927: RAISE Okl_Api.G_EXCEPTION_ERROR;
3928: END IF;
3929:
3930: IF l_provision_date IS NULL THEN
3931: Okl_Api.Set_Message(p_app_name => g_app_name,
3932: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
3933: RAISE Okl_Api.G_EXCEPTION_ERROR;
3934: END IF;
3935:
3929:
3930: IF l_provision_date IS NULL THEN
3931: Okl_Api.Set_Message(p_app_name => g_app_name,
3932: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
3933: RAISE Okl_Api.G_EXCEPTION_ERROR;
3934: END IF;
3935:
3936: -- Bug 4053623.
3937: -- Modifying error handling.
3940: p_primary_sty_purpose => 'SUBSIDY',
3941: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
3942: x_return_status => l_return_status,
3943: x_dependent_sty_id => l_subsidy_inc_id);
3944: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3945: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3946: -- subsidy income stream not defined for the contract
3947: l_unaccrued_subsidy := 0;
3948: RETURN l_unaccrued_subsidy;
3941: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
3942: x_return_status => l_return_status,
3943: x_dependent_sty_id => l_subsidy_inc_id);
3944: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3945: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3946: -- subsidy income stream not defined for the contract
3947: l_unaccrued_subsidy := 0;
3948: RETURN l_unaccrued_subsidy;
3949: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3945: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
3946: -- subsidy income stream not defined for the contract
3947: l_unaccrued_subsidy := 0;
3948: RETURN l_unaccrued_subsidy;
3949: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3950: -- store SQL error message on message stack for caller and entry in log file
3951: Okl_Api.set_message(p_app_name => g_app_name,
3952: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3953: p_token1 => 'STREAM_NAME',
3947: l_unaccrued_subsidy := 0;
3948: RETURN l_unaccrued_subsidy;
3949: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3950: -- store SQL error message on message stack for caller and entry in log file
3951: Okl_Api.set_message(p_app_name => g_app_name,
3952: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3953: p_token1 => 'STREAM_NAME',
3954: p_token1_value => 'SUBSIDY INCOME');
3955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3951: Okl_Api.set_message(p_app_name => g_app_name,
3952: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3953: p_token1 => 'STREAM_NAME',
3954: p_token1_value => 'SUBSIDY INCOME');
3955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3956: END IF;
3957: END IF;
3958:
3959: IF l_subsidy_inc_id IS NOT NULL THEN
3967:
3968: RETURN l_unaccrued_subsidy;
3969:
3970: EXCEPTION
3971: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3972: RETURN NULL;
3973:
3974: WHEN OTHERS THEN
3975: IF unaccrued_subsidy_csr%ISOPEN THEN
3977: END IF;
3978: IF contract_num_csr%ISOPEN THEN
3979: CLOSE contract_num_csr;
3980: END IF;
3981: Okl_Api.SET_MESSAGE(
3982: p_app_name => G_APP_NAME,
3983: p_msg_name => G_UNEXPECTED_ERROR,
3984: p_token1 => G_SQLCODE_TOKEN,
3985: p_token1_value => SQLCODE,
3991: FUNCTION CONTRACT_TOTAL_ACTUAL_INT(p_khr_id IN NUMBER, p_kle_id IN NUMBER) RETURN NUMBER IS
3992:
3993: l_accrual_date DATE;
3994: l_total_actual_int NUMBER;
3995: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3996:
3997: BEGIN
3998:
3999:
4004: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4005: END IF;
4006: END LOOP;
4007: ELSE
4008: Okl_Api.Set_Message(p_app_name => g_app_name,
4009: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4010: RAISE Okl_Api.G_EXCEPTION_ERROR;
4011: END IF;
4012:
4006: END LOOP;
4007: ELSE
4008: Okl_Api.Set_Message(p_app_name => g_app_name,
4009: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4010: RAISE Okl_Api.G_EXCEPTION_ERROR;
4011: END IF;
4012:
4013: IF l_accrual_date IS NULL THEN
4014: Okl_Api.Set_Message(p_app_name => g_app_name,
4010: RAISE Okl_Api.G_EXCEPTION_ERROR;
4011: END IF;
4012:
4013: IF l_accrual_date IS NULL THEN
4014: Okl_Api.Set_Message(p_app_name => g_app_name,
4015: p_msg_name => 'OKL_AGN_DATE_ERROR');
4016: RAISE Okl_Api.G_EXCEPTION_ERROR;
4017: END IF;
4018:
4012:
4013: IF l_accrual_date IS NULL THEN
4014: Okl_Api.Set_Message(p_app_name => g_app_name,
4015: p_msg_name => 'OKL_AGN_DATE_ERROR');
4016: RAISE Okl_Api.G_EXCEPTION_ERROR;
4017: END IF;
4018:
4019: l_total_actual_int := OKL_VARIABLE_INT_UTIL_PVT.get_interest_due(
4020: x_return_status => l_return_status,
4020: x_return_status => l_return_status,
4021: p_khr_id => p_khr_id,
4022: p_to_date => l_accrual_date);
4023:
4024: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4025: -- store SQL error message on message stack for caller and entry in log file
4026: Okl_Api.set_message(p_app_name => g_app_name,
4027: p_msg_name => 'OKL_AGN_VAR_INT_UTIL_ERROR',
4028: p_token1 => 'ERROR_STATUS',
4022: p_to_date => l_accrual_date);
4023:
4024: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4025: -- store SQL error message on message stack for caller and entry in log file
4026: Okl_Api.set_message(p_app_name => g_app_name,
4027: p_msg_name => 'OKL_AGN_VAR_INT_UTIL_ERROR',
4028: p_token1 => 'ERROR_STATUS',
4029: p_token1_value => l_return_status);
4030: RAISE Okl_Api.G_EXCEPTION_ERROR;
4026: Okl_Api.set_message(p_app_name => g_app_name,
4027: p_msg_name => 'OKL_AGN_VAR_INT_UTIL_ERROR',
4028: p_token1 => 'ERROR_STATUS',
4029: p_token1_value => l_return_status);
4030: RAISE Okl_Api.G_EXCEPTION_ERROR;
4031: ELSE
4032: IF (l_total_actual_int IS NULL) OR (l_total_actual_int = 0) THEN
4033: Okl_Api.Set_Message(p_app_name => g_app_name,
4034: p_msg_name => 'OKL_AGN_TOT_VAR_INT_ERROR');
4029: p_token1_value => l_return_status);
4030: RAISE Okl_Api.G_EXCEPTION_ERROR;
4031: ELSE
4032: IF (l_total_actual_int IS NULL) OR (l_total_actual_int = 0) THEN
4033: Okl_Api.Set_Message(p_app_name => g_app_name,
4034: p_msg_name => 'OKL_AGN_TOT_VAR_INT_ERROR');
4035: RAISE OKL_API.G_EXCEPTION_ERROR;
4036: END IF;
4037: END IF;
4031: ELSE
4032: IF (l_total_actual_int IS NULL) OR (l_total_actual_int = 0) THEN
4033: Okl_Api.Set_Message(p_app_name => g_app_name,
4034: p_msg_name => 'OKL_AGN_TOT_VAR_INT_ERROR');
4035: RAISE OKL_API.G_EXCEPTION_ERROR;
4036: END IF;
4037: END IF;
4038:
4039: RETURN l_total_actual_int;
4038:
4039: RETURN l_total_actual_int;
4040:
4041: EXCEPTION
4042: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4043: RETURN NULL;
4044:
4045: WHEN OTHERS THEN
4046: Okl_Api.SET_MESSAGE(
4042: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4043: RETURN NULL;
4044:
4045: WHEN OTHERS THEN
4046: Okl_Api.SET_MESSAGE(
4047: p_app_name => G_APP_NAME,
4048: p_msg_name => G_UNEXPECTED_ERROR,
4049: p_token1 => G_SQLCODE_TOKEN,
4050: p_token1_value => SQLCODE,
4072: l_total_accrued NUMBER := 0;
4073: l_contract_number VARCHAR2(2000);
4074: l_accrual_date DATE;
4075: l_sty_id NUMBER;
4076: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4077:
4078: -- cursor to get the contract number
4079: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS
4080: SELECT contract_number
4103: FETCH contract_num_csr INTO l_contract_number;
4104: CLOSE contract_num_csr;
4105:
4106: IF l_contract_number IS NULL THEN
4107: Okl_Api.set_message(p_app_name => g_app_name,
4108: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4109: RAISE OKL_API.G_EXCEPTION_ERROR;
4110: END IF;
4111:
4105:
4106: IF l_contract_number IS NULL THEN
4107: Okl_Api.set_message(p_app_name => g_app_name,
4108: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4109: RAISE OKL_API.G_EXCEPTION_ERROR;
4110: END IF;
4111:
4112: OKL_STREAMS_UTIL.get_dependent_stream_type(
4113: p_khr_id => p_khr_id,
4115: p_dependent_sty_purpose => 'ACTUAL_INCOME_ACCRUAL',
4116: x_return_status => l_return_status,
4117: x_dependent_sty_id => l_sty_id);
4118:
4119: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4120: -- store SQL error message on message stack for caller and entry in log file
4121: Okl_Api.set_message(p_app_name => g_app_name,
4122: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4123: p_token1 => 'STREAM_NAME',
4117: x_dependent_sty_id => l_sty_id);
4118:
4119: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4120: -- store SQL error message on message stack for caller and entry in log file
4121: Okl_Api.set_message(p_app_name => g_app_name,
4122: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4123: p_token1 => 'STREAM_NAME',
4124: p_token1_value => 'Actual Income Accrual');
4125: RAISE Okl_Api.G_EXCEPTION_ERROR;
4121: Okl_Api.set_message(p_app_name => g_app_name,
4122: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4123: p_token1 => 'STREAM_NAME',
4124: p_token1_value => 'Actual Income Accrual');
4125: RAISE Okl_Api.G_EXCEPTION_ERROR;
4126: END IF;
4127:
4128: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4129: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4132: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4133: END IF;
4134: END LOOP;
4135: ELSE
4136: Okl_Api.Set_Message(p_app_name => g_app_name,
4137: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4138: RAISE Okl_Api.G_EXCEPTION_ERROR;
4139: END IF;
4140:
4134: END LOOP;
4135: ELSE
4136: Okl_Api.Set_Message(p_app_name => g_app_name,
4137: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4138: RAISE Okl_Api.G_EXCEPTION_ERROR;
4139: END IF;
4140:
4141: IF l_accrual_date IS NULL THEN
4142: Okl_Api.Set_Message(p_app_name => g_app_name,
4138: RAISE Okl_Api.G_EXCEPTION_ERROR;
4139: END IF;
4140:
4141: IF l_accrual_date IS NULL THEN
4142: Okl_Api.Set_Message(p_app_name => g_app_name,
4143: p_msg_name => 'OKL_AGN_DATE_ERROR');
4144: RAISE Okl_Api.G_EXCEPTION_ERROR;
4145: END IF;
4146:
4140:
4141: IF l_accrual_date IS NULL THEN
4142: Okl_Api.Set_Message(p_app_name => g_app_name,
4143: p_msg_name => 'OKL_AGN_DATE_ERROR');
4144: RAISE Okl_Api.G_EXCEPTION_ERROR;
4145: END IF;
4146:
4147: OPEN total_accrued_csr(p_khr_id, l_accrual_date, l_sty_id);
4148: FETCH total_accrued_csr INTO l_total_accrued;
4154:
4155: RETURN l_total_accrued;
4156:
4157: EXCEPTION
4158: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4159: RETURN NULL;
4160:
4161: WHEN OTHERS THEN
4162: IF total_accrued_csr%ISOPEN THEN
4161: WHEN OTHERS THEN
4162: IF total_accrued_csr%ISOPEN THEN
4163: CLOSE total_accrued_csr;
4164: END IF;
4165: Okl_Api.SET_MESSAGE(
4166: p_app_name => G_APP_NAME,
4167: p_msg_name => G_UNEXPECTED_ERROR,
4168: p_token1 => G_SQLCODE_TOKEN,
4169: p_token1_value => SQLCODE,
4316: l_no_taxable_amount EXCEPTION;
4317: l_no_sys_params EXCEPTION;
4318: l_tax_tbl ARP_TAX.om_tax_out_tab_type;
4319: l_bill_to_rec okx_cust_site_uses_v%ROWTYPE;
4320: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4321: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4322: l_object_name VARCHAR2(200);
4323: l_token VARCHAR2(30);
4324:
4317: l_no_sys_params EXCEPTION;
4318: l_tax_tbl ARP_TAX.om_tax_out_tab_type;
4319: l_bill_to_rec okx_cust_site_uses_v%ROWTYPE;
4320: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4321: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4322: l_object_name VARCHAR2(200);
4323: l_token VARCHAR2(30);
4324:
4325: -- Variables to pass to taxation API
4356: l_token := 'contract_id';
4357: END IF;
4358:
4359: IF l_object_name IS NULL THEN
4360: l_overall_status := OKL_API.G_RET_STS_ERROR;
4361: OKC_API.SET_MESSAGE (
4362: p_app_name => OKC_API.G_APP_NAME,
4363: p_msg_name => OKC_API.G_INVALID_VALUE,
4364: p_token1 => OKC_API.G_COL_NAME_TOKEN,
4387: END IF;
4388:
4389: EXCEPTION
4390: WHEN OTHERS THEN
4391: l_overall_status := OKL_API.G_RET_STS_ERROR;
4392: OKL_API.SET_MESSAGE (
4393: p_app_name => OKL_API.G_APP_NAME,
4394: p_msg_name => 'OKL_AM_TAX_NO_TAXABLE_AMOUNT',
4395: p_token1 => 'OBJECT',
4388:
4389: EXCEPTION
4390: WHEN OTHERS THEN
4391: l_overall_status := OKL_API.G_RET_STS_ERROR;
4392: OKL_API.SET_MESSAGE (
4393: p_app_name => OKL_API.G_APP_NAME,
4394: p_msg_name => 'OKL_AM_TAX_NO_TAXABLE_AMOUNT',
4395: p_token1 => 'OBJECT',
4396: p_token1_value => l_object_name);
4389: EXCEPTION
4390: WHEN OTHERS THEN
4391: l_overall_status := OKL_API.G_RET_STS_ERROR;
4392: OKL_API.SET_MESSAGE (
4393: p_app_name => OKL_API.G_APP_NAME,
4394: p_msg_name => 'OKL_AM_TAX_NO_TAXABLE_AMOUNT',
4395: p_token1 => 'OBJECT',
4396: p_token1_value => l_object_name);
4397: END;
4413: END IF;
4414:
4415: EXCEPTION
4416: WHEN OTHERS THEN
4417: l_overall_status := OKL_API.G_RET_STS_ERROR;
4418: OKL_API.SET_MESSAGE (
4419: p_app_name => OKL_API.G_APP_NAME,
4420: p_msg_name => 'OKL_AM_TAX_NO_PARAMS',
4421: p_token1 => 'OBJECT',
4414:
4415: EXCEPTION
4416: WHEN OTHERS THEN
4417: l_overall_status := OKL_API.G_RET_STS_ERROR;
4418: OKL_API.SET_MESSAGE (
4419: p_app_name => OKL_API.G_APP_NAME,
4420: p_msg_name => 'OKL_AM_TAX_NO_PARAMS',
4421: p_token1 => 'OBJECT',
4422: p_token1_value => l_object_name);
4415: EXCEPTION
4416: WHEN OTHERS THEN
4417: l_overall_status := OKL_API.G_RET_STS_ERROR;
4418: OKL_API.SET_MESSAGE (
4419: p_app_name => OKL_API.G_APP_NAME,
4420: p_msg_name => 'OKL_AM_TAX_NO_PARAMS',
4421: p_token1 => 'OBJECT',
4422: p_token1_value => l_object_name);
4423: END;
4438: END LOOP;
4439:
4440: IF l_item_loc_csr%ROWCOUNT <> 1
4441: OR l_location_id IS NULL THEN
4442: l_overall_status := OKL_API.G_RET_STS_ERROR;
4443: OKL_API.SET_MESSAGE (
4444: p_app_name => OKL_API.G_APP_NAME,
4445: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
4446: p_token1 => 'OBJECT',
4439:
4440: IF l_item_loc_csr%ROWCOUNT <> 1
4441: OR l_location_id IS NULL THEN
4442: l_overall_status := OKL_API.G_RET_STS_ERROR;
4443: OKL_API.SET_MESSAGE (
4444: p_app_name => OKL_API.G_APP_NAME,
4445: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
4446: p_token1 => 'OBJECT',
4447: p_token1_value => l_object_name);
4440: IF l_item_loc_csr%ROWCOUNT <> 1
4441: OR l_location_id IS NULL THEN
4442: l_overall_status := OKL_API.G_RET_STS_ERROR;
4443: OKL_API.SET_MESSAGE (
4444: p_app_name => OKL_API.G_APP_NAME,
4445: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
4446: p_token1 => 'OBJECT',
4447: p_token1_value => l_object_name);
4448: END IF;
4460: p_message_yn => FALSE,
4461: x_bill_to_address_rec => l_bill_to_rec,
4462: x_return_status => l_return_status);
4463:
4464: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
4465: l_cust_site_use_id := l_bill_to_rec.id1;
4466: l_cust_account_id := l_bill_to_rec.cust_account_id;
4467: END IF;
4468:
4465: l_cust_site_use_id := l_bill_to_rec.id1;
4466: l_cust_account_id := l_bill_to_rec.cust_account_id;
4467: END IF;
4468:
4469: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4470: OR l_cust_site_use_id IS NULL
4471: OR l_cust_account_id IS NULL THEN
4472: l_overall_status := OKL_API.G_RET_STS_ERROR;
4473: OKL_API.SET_MESSAGE (
4468:
4469: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4470: OR l_cust_site_use_id IS NULL
4471: OR l_cust_account_id IS NULL THEN
4472: l_overall_status := OKL_API.G_RET_STS_ERROR;
4473: OKL_API.SET_MESSAGE (
4474: p_app_name => OKL_API.G_APP_NAME,
4475: p_msg_name => 'OKL_AM_TAX_NO_BILL_TO',
4476: p_token1 => 'OBJECT',
4469: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4470: OR l_cust_site_use_id IS NULL
4471: OR l_cust_account_id IS NULL THEN
4472: l_overall_status := OKL_API.G_RET_STS_ERROR;
4473: OKL_API.SET_MESSAGE (
4474: p_app_name => OKL_API.G_APP_NAME,
4475: p_msg_name => 'OKL_AM_TAX_NO_BILL_TO',
4476: p_token1 => 'OBJECT',
4477: p_token1_value => l_object_name);
4470: OR l_cust_site_use_id IS NULL
4471: OR l_cust_account_id IS NULL THEN
4472: l_overall_status := OKL_API.G_RET_STS_ERROR;
4473: OKL_API.SET_MESSAGE (
4474: p_app_name => OKL_API.G_APP_NAME,
4475: p_msg_name => 'OKL_AM_TAX_NO_BILL_TO',
4476: p_token1 => 'OBJECT',
4477: p_token1_value => l_object_name);
4478: END IF;
4486: -- RMUNJULU 3394507 Reset the GLOBAL tax_info_rec rec type with empty rec type
4487: arp_tax.tax_info_rec := l_tax_rec;
4488:
4489: -- Calculate tax for positive amounts
4490: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4491: AND l_taxable_amount > 0 THEN
4492:
4493: arp_tax.tax_info_rec.trx_date := SYSDATE;
4494: arp_tax.tax_info_rec.extended_amount := l_taxable_amount;
4514: CLOSE item_loc_csr;
4515:
4516: -- raise message if site location not found
4517: IF l_location_id IS NULL THEN
4518: OKL_API.SET_MESSAGE (
4519: p_app_name => OKL_API.G_APP_NAME,
4520: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
4521: p_token1 => 'OBJECT',
4522: p_token1_value => l_object_name);
4515:
4516: -- raise message if site location not found
4517: IF l_location_id IS NULL THEN
4518: OKL_API.SET_MESSAGE (
4519: p_app_name => OKL_API.G_APP_NAME,
4520: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
4521: p_token1 => 'OBJECT',
4522: p_token1_value => l_object_name);
4523: END IF;
4535: ,x_crm_tax_out_tbl => l_tax_tbl
4536: ,p_new_tax_amount => l_result_amount);
4537: EXCEPTION
4538: WHEN OTHERS THEN
4539: l_overall_status := OKL_API.G_RET_STS_ERROR;
4540: OKL_API.SET_MESSAGE (
4541: p_app_name => OKL_API.G_APP_NAME,
4542: p_msg_name => 'OKL_AM_TAX_ARP_FAILED',
4543: p_token1 => 'OBJECT',
4536: ,p_new_tax_amount => l_result_amount);
4537: EXCEPTION
4538: WHEN OTHERS THEN
4539: l_overall_status := OKL_API.G_RET_STS_ERROR;
4540: OKL_API.SET_MESSAGE (
4541: p_app_name => OKL_API.G_APP_NAME,
4542: p_msg_name => 'OKL_AM_TAX_ARP_FAILED',
4543: p_token1 => 'OBJECT',
4544: p_token1_value => l_object_name);
4537: EXCEPTION
4538: WHEN OTHERS THEN
4539: l_overall_status := OKL_API.G_RET_STS_ERROR;
4540: OKL_API.SET_MESSAGE (
4541: p_app_name => OKL_API.G_APP_NAME,
4542: p_msg_name => 'OKL_AM_TAX_ARP_FAILED',
4543: p_token1 => 'OBJECT',
4544: p_token1_value => l_object_name);
4545: END;
4572: END IF;
4573:
4574: -- store SQL error message on message stack for caller
4575:
4576: OKL_API.SET_MESSAGE (
4577: p_app_name => OKL_API.G_APP_NAME,
4578: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4579: p_token1 => 'SQLCODE',
4580: p_token1_value => SQLCODE,
4573:
4574: -- store SQL error message on message stack for caller
4575:
4576: OKL_API.SET_MESSAGE (
4577: p_app_name => OKL_API.G_APP_NAME,
4578: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4579: p_token1 => 'SQLCODE',
4580: p_token1_value => SQLCODE,
4581: p_token2 => 'SQLERRM',
4650: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
4651: l_tbl_cnt NUMBER;
4652: BEGIN
4653: l_api_version := '1.0';
4654: l_init_msg_list := OKL_API.G_FALSE;
4655: l_result_amount := 0;
4656:
4657: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4658: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4663: END LOOP;
4664: END IF;
4665:
4666: IF l_quote_id IS NOT NULL
4667: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
4668: OPEN get_quote_date_csr (l_quote_id);
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
4678: l_quote_date_eff := l_sysdate;
4679: END IF;
4680:
4703: RETURN NVL (l_result_amount, 0);
4704: EXCEPTION
4705: WHEN OTHERS THEN
4706: -- store SQL error message on message stack for caller
4707: OKL_API.SET_MESSAGE (
4708: p_app_name => OKL_API.G_APP_NAME,
4709: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4710: p_token1 => 'SQLCODE',
4711: p_token1_value => SQLCODE,
4704: EXCEPTION
4705: WHEN OTHERS THEN
4706: -- store SQL error message on message stack for caller
4707: OKL_API.SET_MESSAGE (
4708: p_app_name => OKL_API.G_APP_NAME,
4709: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4710: p_token1 => 'SQLCODE',
4711: p_token1_value => SQLCODE,
4712: p_token2 => 'SQLERRM',
4754: WHEN OTHERS THEN
4755:
4756: -- store SQL error message on message stack for caller
4757:
4758: OKL_API.SET_MESSAGE (
4759: p_app_name => OKL_API.G_APP_NAME,
4760: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4761: p_token1 => 'SQLCODE',
4762: p_token1_value => SQLCODE,
4755:
4756: -- store SQL error message on message stack for caller
4757:
4758: OKL_API.SET_MESSAGE (
4759: p_app_name => OKL_API.G_APP_NAME,
4760: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4761: p_token1 => 'SQLCODE',
4762: p_token1_value => SQLCODE,
4763: p_token2 => 'SQLERRM',
4852:
4853:
4854: -- store SQL error message on message stack for caller
4855:
4856: OKL_API.SET_MESSAGE (
4857: p_app_name => OKL_API.G_APP_NAME,
4858: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4859: p_token1 => 'SQLCODE',
4860: p_token1_value => SQLCODE,
4853:
4854: -- store SQL error message on message stack for caller
4855:
4856: OKL_API.SET_MESSAGE (
4857: p_app_name => OKL_API.G_APP_NAME,
4858: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
4859: p_token1 => 'SQLCODE',
4860: p_token1_value => SQLCODE,
4861: p_token2 => 'SQLERRM',
4942: ---SECHAWLA 05-MAY-04 3578894 : end new declarations
4943:
4944: l_result_amount NUMBER := 0;
4945: l_stream_type_id NUMBER;
4946: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
4947: BEGIN
4948: --PAGARG 31-Dec-2004 Bug# 4097591 Start
4949: --UDS impact. Obtain stream type id and pass it to cursor
4950:
4952: 'RENT',
4953: l_return_status,
4954: l_stream_type_id);
4955:
4956: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4957: THEN
4958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4960: THEN
4954: l_stream_type_id);
4955:
4956: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4957: THEN
4958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4960: THEN
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4955:
4956: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
4957: THEN
4958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4960: THEN
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4963: --PAGARG 31-Dec-2004 Bug# 4097591 End
4957: THEN
4958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
4960: THEN
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4963: --PAGARG 31-Dec-2004 Bug# 4097591 End
4964:
4965: /* SECHAWLA 05-MAY-04 3578894
4990:
4991: IF l_rep_prod_streams_yn = 'Y' THEN
4992: IF l_trx_date IS NULL THEN
4993: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
4994: Okl_Api.Set_Message(p_app_name => g_app_name,
4995: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
4996: RAISE Okl_Api.G_EXCEPTION_ERROR;
4997: END IF;
4998: END IF;
4992: IF l_trx_date IS NULL THEN
4993: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
4994: Okl_Api.Set_Message(p_app_name => g_app_name,
4995: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
4996: RAISE Okl_Api.G_EXCEPTION_ERROR;
4997: END IF;
4998: END IF;
4999:
5000:
5016: RETURN NVL (l_result_amount, 0);
5017:
5018:
5019: EXCEPTION
5020: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5021: -- Close open cursors
5022: IF l_unbill_stream_csr%ISOPEN THEN
5023: CLOSE l_unbill_stream_csr;
5024: END IF;
5038: IF l_unbill_reporting_stream_csr%ISOPEN THEN
5039: CLOSE l_unbill_reporting_stream_csr;
5040: END IF;
5041: -- store SQL error message on message stack for caller
5042: OKL_API.SET_MESSAGE (
5043: p_app_name => OKL_API.G_APP_NAME,
5044: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5045: p_token1 => 'SQLCODE',
5046: p_token1_value => SQLCODE,
5039: CLOSE l_unbill_reporting_stream_csr;
5040: END IF;
5041: -- store SQL error message on message stack for caller
5042: OKL_API.SET_MESSAGE (
5043: p_app_name => OKL_API.G_APP_NAME,
5044: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5045: p_token1 => 'SQLCODE',
5046: p_token1_value => SQLCODE,
5047: p_token2 => 'SQLERRM',
5136: --WHEN mg_error THEN
5137: -- IF l_get_fin_product%ISOPEN THEN
5138: -- CLOSE l_get_fin_product;
5139: -- END IF;
5140: -- x_return_status := OKL_API.G_RET_STS_ERROR;
5141: WHEN OTHERS THEN
5142: IF l_get_fin_product%ISOPEN THEN
5143: CLOSE l_get_fin_product;
5144: END IF;
5141: WHEN OTHERS THEN
5142: IF l_get_fin_product%ISOPEN THEN
5143: CLOSE l_get_fin_product;
5144: END IF;
5145: OKL_API.set_message(p_app_name => 'OKC',
5146: p_msg_name => g_unexpected_error,
5147: p_token1 => g_sqlcode_token,
5148: p_token1_value => sqlcode,
5149: p_token2 => g_sqlerrm_token,
5147: p_token1 => g_sqlcode_token,
5148: p_token1_value => sqlcode,
5149: p_token2 => g_sqlerrm_token,
5150: p_token2_value => sqlerrm);
5151: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5152: END get_reporting_product;
5153:
5154:
5155: ------------------------------------------------------------------------------
5216: AND stm.purpose_code = 'REPORT'
5217: AND sel.STREAM_ELEMENT_DATE > cp_trx_date;
5218:
5219: l_stream_type_id NUMBER;
5220: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
5221:
5222: -- sechawla 05-dec-07 6057301 - Added
5223: lx_rep_product_id OKL_PRODUCTS_V.ID%TYPE;
5224: l_api_version NUMBER := 1;
5221:
5222: -- sechawla 05-dec-07 6057301 - Added
5223: lx_rep_product_id OKL_PRODUCTS_V.ID%TYPE;
5224: l_api_version NUMBER := 1;
5225: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
5226: l_msg_count NUMBER;
5227: l_msg_data VARCHAR2(100);
5228: BEGIN
5229: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5273: p_dependent_sty_purpose => 'LEASE_INCOME',
5274: x_return_status => l_return_status,
5275: x_dependent_sty_id => l_stream_type_id);
5276:
5277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_ERROR;
5281: END IF;
5274: x_return_status => l_return_status,
5275: x_dependent_sty_id => l_stream_type_id);
5276:
5277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_ERROR;
5281: END IF;
5282: --PAGARG 31-Dec-2004 Bug# 4097591 End
5275: x_dependent_sty_id => l_stream_type_id);
5276:
5277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_ERROR;
5281: END IF;
5282: --PAGARG 31-Dec-2004 Bug# 4097591 End
5283:
5276:
5277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5279: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: RAISE OKL_API.G_EXCEPTION_ERROR;
5281: END IF;
5282: --PAGARG 31-Dec-2004 Bug# 4097591 End
5283:
5284: END IF; -- sechawla 05-dec-07 6671849 : added
5285:
5286: IF l_rep_prod_streams_yn = 'Y' THEN
5287: IF l_trx_date IS NULL THEN
5288: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
5289: Okl_Api.Set_Message(p_app_name => g_app_name,
5290: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
5291: RAISE Okl_Api.G_EXCEPTION_ERROR;
5292: END IF;
5293: END IF;
5287: IF l_trx_date IS NULL THEN
5288: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
5289: Okl_Api.Set_Message(p_app_name => g_app_name,
5290: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
5291: RAISE Okl_Api.G_EXCEPTION_ERROR;
5292: END IF;
5293: END IF;
5294:
5295: --SECHAWLA 05-MAY-04 3578894 : check if streams required for reporting product
5321: */
5322: RETURN NVL(l_unearned_income,0);
5323:
5324: EXCEPTION
5325: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5326: IF line_csr%ISOPEN THEN
5327: CLOSE line_csr;
5328: END IF;
5329:
5346: END IF;
5347:
5348: -- store SQL error message on message stack for caller
5349:
5350: OKL_API.SET_MESSAGE (
5351: p_app_name => OKL_API.G_APP_NAME,
5352: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5353: p_token1 => 'SQLCODE',
5354: p_token1_value => SQLCODE,
5347:
5348: -- store SQL error message on message stack for caller
5349:
5350: OKL_API.SET_MESSAGE (
5351: p_app_name => OKL_API.G_APP_NAME,
5352: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5353: p_token1 => 'SQLCODE',
5354: p_token1_value => SQLCODE,
5355: p_token2 => 'SQLERRM',
5453:
5454: RETURN l_security_deposit;
5455: EXCEPTION
5456: WHEN OTHERS THEN
5457: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5458: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5459: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5460: p_token1 => 'OKL_SQLCODE',
5461: p_token1_value => SQLCODE,
5454: RETURN l_security_deposit;
5455: EXCEPTION
5456: WHEN OTHERS THEN
5457: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5458: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5459: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5460: p_token1 => 'OKL_SQLCODE',
5461: p_token1_value => SQLCODE,
5462: p_token2 => 'OKL_SQLERRM',
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
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,
5535: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5536: p_token1 => 'OKL_SQLCODE',
5537: p_token1_value => SQLCODE,
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,
5535: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5536: p_token1 => 'OKL_SQLCODE',
5537: p_token1_value => SQLCODE,
5538: p_token2 => 'OKL_SQLERRM',
5602: AND str.khr_id = p_contract_id --sechawla 04-dec-08 : added
5603: AND str.kle_id = p_contract_line_id;
5604: BEGIN
5605: IF p_contract_line_id IS NOT NULL
5606: AND p_contract_line_id <> OKL_API.G_MISS_NUM THEN -- PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
5607: OPEN line (p_contract_id, p_contract_line_id); --sechawla 04-dec-08 : added p_contract_id
5608: FETCH line INTO l_rent_amount;
5609: CLOSE line;
5610: ELSE
5614: END IF;
5615: RETURN l_rent_amount;
5616: EXCEPTION
5617: WHEN OTHERS THEN
5618: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5619: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5620: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5621: p_token1 => 'OKL_SQLCODE',
5622: p_token1_value => SQLCODE,
5615: RETURN l_rent_amount;
5616: EXCEPTION
5617: WHEN OTHERS THEN
5618: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5619: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5620: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5621: p_token1 => 'OKL_SQLCODE',
5622: p_token1_value => SQLCODE,
5623: p_token2 => 'OKL_SQLERRM',
5714: */
5715:
5716: BEGIN
5717: IF p_contract_line_id IS NOT NULL
5718: AND p_contract_line_id <> OKL_API.G_MISS_NUM THEN -- PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
5719: OPEN line (p_contract_line_id);
5720: FETCH line INTO l_unearned_income;
5721: CLOSE line;
5722: ELSE
5726: END IF;
5727: RETURN l_unearned_income;
5728: EXCEPTION
5729: WHEN OTHERS THEN
5730: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5731: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5732: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5733: p_token1 => 'OKL_SQLCODE',
5734: p_token1_value => SQLCODE,
5727: RETURN l_unearned_income;
5728: EXCEPTION
5729: WHEN OTHERS THEN
5730: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5731: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5732: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5733: p_token1 => 'OKL_SQLCODE',
5734: p_token1_value => SQLCODE,
5735: p_token2 => 'OKL_SQLERRM',
5844: x_currency_conversion_rate => p_currency_conversion_rate,
5845: x_currency_conversion_date => p_currency_conversion_date,
5846: x_converted_amount => l_converted_amount);
5847:
5848: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5849: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5850: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
5851: RAISE Okl_Api.G_EXCEPTION_ERROR;
5852: END IF;
5845: x_currency_conversion_date => p_currency_conversion_date,
5846: x_converted_amount => l_converted_amount);
5847:
5848: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5849: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5850: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
5851: RAISE Okl_Api.G_EXCEPTION_ERROR;
5852: END IF;
5853:
5847:
5848: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5849: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5850: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
5851: RAISE Okl_Api.G_EXCEPTION_ERROR;
5852: END IF;
5853:
5854: RETURN l_converted_amount;
5855:
5883: x_currency_conversion_rate => p_currency_conversion_rate,
5884: x_currency_conversion_date => p_currency_conversion_date,
5885: x_converted_amount => l_converted_amount);
5886:
5887: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5888: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5889: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
5890: RAISE Okl_Api.G_EXCEPTION_ERROR;
5891: END IF;
5884: x_currency_conversion_date => p_currency_conversion_date,
5885: x_converted_amount => l_converted_amount);
5886:
5887: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5888: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5889: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
5890: RAISE Okl_Api.G_EXCEPTION_ERROR;
5891: END IF;
5892: RETURN l_converted_amount;
5886:
5887: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
5888: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5889: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
5890: RAISE Okl_Api.G_EXCEPTION_ERROR;
5891: END IF;
5892: RETURN l_converted_amount;
5893:
5894: END IF;
5893:
5894: END IF;
5895:
5896: EXCEPTION
5897: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5898: RETURN 0;
5899:
5900: WHEN OTHERS THEN
5901: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5897: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5898: RETURN 0;
5899:
5900: WHEN OTHERS THEN
5901: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5902: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5903: p_token1 => 'OKL_SQLCODE',
5904: p_token1_value => SQLCODE,
5905: p_token2 => 'OKL_SQLERRM',
5987:
5988: RETURN l_amount;
5989: EXCEPTION
5990: WHEN OTHERS THEN
5991: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5992: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5993: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5994: p_token1 => 'OKL_SQLCODE',
5995: p_token1_value => SQLCODE,
5988: RETURN l_amount;
5989: EXCEPTION
5990: WHEN OTHERS THEN
5991: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5992: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
5993: p_msg_name => 'OKL_UNEXPECTED_ERROR',
5994: p_token1 => 'OKL_SQLCODE',
5995: p_token1_value => SQLCODE,
5996: p_token2 => 'OKL_SQLERRM',
6047:
6048: RETURN l_unpaid_inv;
6049: EXCEPTION
6050: WHEN OTHERS THEN
6051: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6052: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6053: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6054: p_token1 => 'OKL_SQLCODE',
6055: p_token1_value => SQLCODE,
6048: RETURN l_unpaid_inv;
6049: EXCEPTION
6050: WHEN OTHERS THEN
6051: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6052: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6053: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6054: p_token1 => 'OKL_SQLCODE',
6055: p_token1_value => SQLCODE,
6056: p_token2 => 'OKL_SQLERRM',
6109:
6110: RETURN l_unapplied_credit;
6111: EXCEPTION
6112: WHEN OTHERS THEN
6113: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6114: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6115: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6116: p_token1 => 'OKL_SQLCODE',
6117: p_token1_value => SQLCODE,
6110: RETURN l_unapplied_credit;
6111: EXCEPTION
6112: WHEN OTHERS THEN
6113: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6114: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6115: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6116: p_token1 => 'OKL_SQLCODE',
6117: p_token1_value => SQLCODE,
6118: p_token2 => 'OKL_SQLERRM',
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
6235:
6236: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
6237: l_quote_date := get_quote_date_rec.date_effective_from;
6238: END LOOP;
6240: END IF;
6241:
6242: -- rmunjulu EDAT Default the l_quote_date to sysdate if quote id not found
6243: IF l_quote_date IS NULL
6244: OR l_quote_date = OKL_API.G_MISS_DATE THEN
6245: l_quote_date := l_sysdate;
6246: END IF;
6247:
6248: IF p_contract_line_id IS NOT NULL THEN
6278: p_contract_id IN NUMBER,
6279: p_accounting_method IN VARCHAR2)
6280: RETURN NUMBER IS
6281:
6282: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6283: l_api_name CONSTANT VARCHAR2(30) := 'GET_ASSET_SUBSIDY';
6284: l_api_version CONSTANT NUMBER := 1.0;
6285: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
6286: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
6281:
6282: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6283: l_api_name CONSTANT VARCHAR2(30) := 'GET_ASSET_SUBSIDY';
6284: l_api_version CONSTANT NUMBER := 1.0;
6285: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
6286: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
6287: lx_msg_data VARCHAR2(2000);
6288:
6289: x_subsidy_amount NUMBER;
6282: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6283: l_api_name CONSTANT VARCHAR2(30) := 'GET_ASSET_SUBSIDY';
6284: l_api_version CONSTANT NUMBER := 1.0;
6285: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
6286: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
6287: lx_msg_data VARCHAR2(2000);
6288:
6289: x_subsidy_amount NUMBER;
6290:
6316: BEGIN
6317:
6318: l_asset_subsidy_amount := 0;
6319: -- START: cklee bug#4437995 if p_accounting_method has G_MISS then make it NULL
6320: IF(p_accounting_method = OKL_API.G_MISS_NUM OR p_accounting_method = OKL_API.G_MISS_CHAR) THEN
6321: l_accounting_method := NULL;
6322: END IF;
6323: -- END: cklee bug#4437995 if p_accounting_method has G_MISS then make it NULL
6324: --------------------------------------------------------------
6339:
6340: RETURN x_subsidy_amount;
6341:
6342: EXCEPTION
6343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6344: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
6345: l_api_name,
6346: G_PKG_NAME,
6347: 'OKL_API.G_RET_STS_ERROR',
6340: RETURN x_subsidy_amount;
6341:
6342: EXCEPTION
6343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6344: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
6345: l_api_name,
6346: G_PKG_NAME,
6347: 'OKL_API.G_RET_STS_ERROR',
6348: lx_msg_count,
6343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6344: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
6345: l_api_name,
6346: G_PKG_NAME,
6347: 'OKL_API.G_RET_STS_ERROR',
6348: lx_msg_count,
6349: lx_msg_data,
6350: '_PVT');
6351: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6347: 'OKL_API.G_RET_STS_ERROR',
6348: lx_msg_count,
6349: lx_msg_data,
6350: '_PVT');
6351: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6352: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6353: l_api_name,
6354: G_PKG_NAME,
6355: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6348: lx_msg_count,
6349: lx_msg_data,
6350: '_PVT');
6351: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6352: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6353: l_api_name,
6354: G_PKG_NAME,
6355: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6356: lx_msg_count,
6351: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6352: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6353: l_api_name,
6354: G_PKG_NAME,
6355: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6356: lx_msg_count,
6357: lx_msg_data,
6358: '_PVT');
6359: WHEN OTHERS THEN
6359: WHEN OTHERS THEN
6360: IF l_sub_csr%ISOPEN THEN
6361: CLOSE l_sub_csr;
6362: END IF;
6363: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6364: l_api_name,
6365: G_PKG_NAME,
6366: 'OTHERS',
6367: lx_msg_count,
6472: x_currency_conversion_rate => p_currency_conversion_rate,
6473: x_currency_conversion_date => p_currency_conversion_date,
6474: x_converted_amount => l_converted_amount);
6475:
6476: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6477: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6478: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6479: RAISE Okl_Api.G_EXCEPTION_ERROR;
6480: END IF;
6473: x_currency_conversion_date => p_currency_conversion_date,
6474: x_converted_amount => l_converted_amount);
6475:
6476: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6477: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6478: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6479: RAISE Okl_Api.G_EXCEPTION_ERROR;
6480: END IF;
6481:
6475:
6476: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6477: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6478: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6479: RAISE Okl_Api.G_EXCEPTION_ERROR;
6480: END IF;
6481:
6482: RETURN l_converted_amount;
6483:
6512: x_currency_conversion_rate => p_currency_conversion_rate,
6513: x_currency_conversion_date => p_currency_conversion_date,
6514: x_converted_amount => l_converted_amount);
6515:
6516: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6517: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6518: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6519: RAISE Okl_Api.G_EXCEPTION_ERROR;
6520: END IF;
6513: x_currency_conversion_date => p_currency_conversion_date,
6514: x_converted_amount => l_converted_amount);
6515:
6516: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6517: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6518: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6519: RAISE Okl_Api.G_EXCEPTION_ERROR;
6520: END IF;
6521: RETURN l_converted_amount;
6515:
6516: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6517: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6518: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6519: RAISE Okl_Api.G_EXCEPTION_ERROR;
6520: END IF;
6521: RETURN l_converted_amount;
6522:
6523: END IF;
6522:
6523: END IF;
6524:
6525: EXCEPTION
6526: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6527: RETURN 0;
6528:
6529: WHEN OTHERS THEN
6530: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6526: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6527: RETURN 0;
6528:
6529: WHEN OTHERS THEN
6530: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6531: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6532: p_token1 => 'OKL_SQLCODE',
6533: p_token1_value => SQLCODE,
6534: p_token2 => 'OKL_SQLERRM',
6558: ,p_contract_line_id IN NUMBER) RETURN NUMBER IS
6559:
6560: l_api_name CONSTANT VARCHAR2(30) := 'PV_OF_UNBILLED_RENTS';
6561: l_api_version CONSTANT NUMBER := 1;
6562: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
6563: x_msg_count NUMBER;
6564: x_msg_data VARCHAR2(256);
6565: l_cash_flow_tbl OKL_STREAM_GENERATOR_PVT.cash_flow_tbl;
6566: i NUMBER := 0;
6671: FETCH contract_rate_csr INTO l_rate;
6672: CLOSE contract_rate_csr;
6673:
6674: IF l_rate IS NULL THEN
6675: Okl_Api.set_message(p_app_name => G_APP_NAME,
6676: p_msg_name => G_REQUIRED_VALUE,
6677: p_token1 => G_COL_NAME_TOKEN,
6678: p_token1_value => 'RATE');
6679:
6717:
6718: IF l_cash_flow_tbl.COUNT > 0 THEN
6719: OKL_STREAM_GENERATOR_PVT.get_present_value(
6720: p_api_version => l_api_version,
6721: p_init_msg_list => OKL_API.G_TRUE,
6722: p_cash_flow_tbl => l_cash_flow_tbl,
6723: p_rate => l_rate,
6724: p_pv_date => SYSDATE,
6725: x_pv_amount => x_pv_amount,
6726: x_return_status => x_return_status,
6727: x_msg_count => x_msg_count,
6728: x_msg_data => x_msg_data);
6729:
6730: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6731: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6732: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6733: RAISE okl_api.G_EXCEPTION_ERROR;
6734: END IF;
6727: x_msg_count => x_msg_count,
6728: x_msg_data => x_msg_data);
6729:
6730: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6731: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6732: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6733: RAISE okl_api.G_EXCEPTION_ERROR;
6734: END IF;
6735: END IF;
6728: x_msg_data => x_msg_data);
6729:
6730: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6731: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6732: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6733: RAISE okl_api.G_EXCEPTION_ERROR;
6734: END IF;
6735: END IF;
6736:
6729:
6730: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6731: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6732: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6733: RAISE okl_api.G_EXCEPTION_ERROR;
6734: END IF;
6735: END IF;
6736:
6737: l_total_rent := l_total_rent + NVL(x_pv_amount,0);
6771: --Call the API that does the PV calculation.
6772: IF l_cash_flow_tbl.COUNT > 0 THEN
6773: OKL_STREAM_GENERATOR_PVT.get_present_value(
6774: p_api_version => l_api_version,
6775: p_init_msg_list => OKL_API.G_TRUE,
6776: p_cash_flow_tbl => l_cash_flow_tbl,
6777: p_rate => l_rate,
6778: p_pv_date => SYSDATE,
6779: x_pv_amount => x_pv_amount,
6780: x_return_status => x_return_status,
6781: x_msg_count => x_msg_count,
6782: x_msg_data => x_msg_data);
6783:
6784: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6787: RAISE okl_api.G_EXCEPTION_ERROR;
6788: END IF;
6781: x_msg_count => x_msg_count,
6782: x_msg_data => x_msg_data);
6783:
6784: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6787: RAISE okl_api.G_EXCEPTION_ERROR;
6788: END IF;
6789: END IF;
6782: x_msg_data => x_msg_data);
6783:
6784: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6787: RAISE okl_api.G_EXCEPTION_ERROR;
6788: END IF;
6789: END IF;
6790: l_total_rent := l_total_rent + NVL(x_pv_amount,0);
6783:
6784: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
6787: RAISE okl_api.G_EXCEPTION_ERROR;
6788: END IF;
6789: END IF;
6790: l_total_rent := l_total_rent + NVL(x_pv_amount,0);
6791: END IF;
6794: RETURN OKL_ACCOUNTING_UTIL.round_amount(l_total_rent,l_currency);
6795:
6796:
6797: EXCEPTION
6798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6799: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6800: l_api_name,
6801: G_PKG_NAME,
6802: 'OKL_API.G_RET_STS_ERROR',
6795:
6796:
6797: EXCEPTION
6798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6799: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6800: l_api_name,
6801: G_PKG_NAME,
6802: 'OKL_API.G_RET_STS_ERROR',
6803: x_msg_count,
6798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6799: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6800: l_api_name,
6801: G_PKG_NAME,
6802: 'OKL_API.G_RET_STS_ERROR',
6803: x_msg_count,
6804: x_msg_data,
6805: '_PVT');
6806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6802: 'OKL_API.G_RET_STS_ERROR',
6803: x_msg_count,
6804: x_msg_data,
6805: '_PVT');
6806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6807: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6808: l_api_name,
6809: G_PKG_NAME,
6810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6803: x_msg_count,
6804: x_msg_data,
6805: '_PVT');
6806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6807: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6808: l_api_name,
6809: G_PKG_NAME,
6810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6811: x_msg_count,
6806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6807: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6808: l_api_name,
6809: G_PKG_NAME,
6810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6811: x_msg_count,
6812: x_msg_data,
6813: '_PVT');
6814: WHEN OTHERS THEN
6811: x_msg_count,
6812: x_msg_data,
6813: '_PVT');
6814: WHEN OTHERS THEN
6815: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6816: l_api_name,
6817: G_PKG_NAME,
6818: 'OTHERS',
6819: x_msg_count,
6848: ,p_line_id IN NUMBER
6849: )
6850: RETURN NUMBER IS
6851: l_api_version NUMBER;
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;
6999: p_chr_id IN NUMBER
7000: )
7001: RETURN NUMBER IS
7002: l_api_version NUMBER;
7003: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7004: l_msg_count NUMBER;
7005: l_msg_data VARCHAR2(2000);
7006: l_current_rent NUMBER;
7007: l_cures_in_possession NUMBER := 0;
7054: p_chr_id IN NUMBER
7055: )
7056: RETURN NUMBER IS
7057: l_api_version NUMBER;
7058: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7059: l_msg_count NUMBER;
7060: l_msg_data VARCHAR2(2000);
7061: l_contract_rate NUMBER := 0.0;
7062: l_net_investment NUMBER := 0;
7087: ,x_id2 => l_id2
7088: ,x_value => l_value
7089: );
7090:
7091: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7092: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7093: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7094: RAISE okl_api.G_EXCEPTION_ERROR;
7095: END IF;
7088: ,x_value => l_value
7089: );
7090:
7091: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7092: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7093: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7094: RAISE okl_api.G_EXCEPTION_ERROR;
7095: END IF;
7096:
7089: );
7090:
7091: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7092: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7093: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7094: RAISE okl_api.G_EXCEPTION_ERROR;
7095: END IF;
7096:
7097: l_contract_rate := ROUND(TO_NUMBER(l_value)/100, 3);
7090:
7091: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7092: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7093: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7094: RAISE okl_api.G_EXCEPTION_ERROR;
7095: END IF;
7096:
7097: l_contract_rate := ROUND(TO_NUMBER(l_value)/100, 3);
7098:
7099: l_return_status := okl_contract_info.get_days_past_due
7100: ( p_chr_id
7101: ,l_days_past_due );
7102:
7103: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7104: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7105: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7106: RAISE okl_api.G_EXCEPTION_ERROR;
7107: END IF;
7100: ( p_chr_id
7101: ,l_days_past_due );
7102:
7103: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7104: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7105: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7106: RAISE okl_api.G_EXCEPTION_ERROR;
7107: END IF;
7108:
7101: ,l_days_past_due );
7102:
7103: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7104: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7105: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7106: RAISE okl_api.G_EXCEPTION_ERROR;
7107: END IF;
7108:
7109: -- Get the furthest due date from current date
7102:
7103: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7104: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7105: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7106: RAISE okl_api.G_EXCEPTION_ERROR;
7107: END IF;
7108:
7109: -- Get the furthest due date from current date
7110: -- when customer stopped paying
7146: AND status = 'CURES_IN_POSSESSION'; */
7147:
7148: l_unrefunded_cures NUMBER := 0;
7149: l_api_version NUMBER;
7150: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7151: l_msg_count NUMBER;
7152: l_msg_data VARCHAR2(2000);
7153:
7154: BEGIN
7220: p_line_id IN NUMBER) RETURN NUMBER IS
7221:
7222: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_SUM_OF_RENTS';
7223: l_api_version CONSTANT NUMBER := 1;
7224: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7225: x_msg_count NUMBER;
7226: x_msg_data VARCHAR2(256);
7227:
7228: l_inv_accnt_amnt NUMBER := 0;
7253:
7254: BEGIN
7255:
7256: IF ( p_chr_id IS NULL ) THEN
7257: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7258: END IF;
7259:
7260: l_cap_amnt := contract_oec( p_chr_id, NULL)
7261: - contract_tradein( p_chr_id, NULL)
7273: RETURN l_inv_accnt_amnt;
7274:
7275: EXCEPTION
7276: WHEN OTHERS THEN
7277: Okl_Api.SET_MESSAGE(
7278: p_app_name => G_APP_NAME,
7279: p_msg_name => G_UNEXPECTED_ERROR,
7280: p_token1 => G_SQLCODE_TOKEN,
7281: p_token1_value => SQLCODE,
7303: p_line_id IN NUMBER) RETURN NUMBER IS
7304:
7305: l_api_name CONSTANT VARCHAR2(256) := 'RETURN_CONTRACT_CAPITALIZED_INTEREST';
7306: l_api_version CONSTANT NUMBER := 1;
7307: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7308: x_msg_count NUMBER;
7309: x_msg_data VARCHAR2(256);
7310:
7311: l_capz_int NUMBER := 0.0;
7325:
7326: BEGIN
7327:
7328: IF ( p_chr_id IS NULL ) THEN
7329: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7330: END IF;
7331:
7332: OPEN capz_csr( p_chr_id );
7333: FETCH capz_csr INTO l_capz_int;
7337:
7338: EXCEPTION
7339:
7340: WHEN OTHERS THEN
7341: Okl_Api.SET_MESSAGE(
7342: p_app_name => G_APP_NAME,
7343: p_msg_name => G_UNEXPECTED_ERROR,
7344: p_token1 => G_SQLCODE_TOKEN,
7345: p_token1_value => SQLCODE,
7366: p_line_id IN NUMBER) RETURN NUMBER IS
7367:
7368: l_api_name CONSTANT VARCHAR2(256) := 'RETURN_CONTRACT_CAPITALIZED_INTEREST';
7369: l_api_version CONSTANT NUMBER := 1;
7370: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7371: x_msg_count NUMBER;
7372: x_msg_data VARCHAR2(256);
7373:
7374: l_capz_int NUMBER := 0.0;
7384:
7385: BEGIN
7386:
7387: IF (( p_chr_id IS NULL ) OR ( p_line_id IS NULL ) ) THEN
7388: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7389: END IF;
7390:
7391: OPEN capz_csr( p_chr_id, p_line_id );
7392: FETCH capz_csr INTO l_capz_int;
7396:
7397: EXCEPTION
7398:
7399: WHEN OTHERS THEN
7400: Okl_Api.SET_MESSAGE(
7401: p_app_name => G_APP_NAME,
7402: p_msg_name => G_UNEXPECTED_ERROR,
7403: p_token1 => G_SQLCODE_TOKEN,
7404: p_token1_value => SQLCODE,
7522: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
7523: END IF;
7524: END LOOP;
7525: ELSE
7526: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
7527: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
7528: RAISE OKL_API.G_EXCEPTION_ERROR;
7529: END IF;
7530:
7524: END LOOP;
7525: ELSE
7526: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
7527: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
7528: RAISE OKL_API.G_EXCEPTION_ERROR;
7529: END IF;
7530:
7531: FOR l_okl_inv_payment_event_rec IN l_okl_inv_payment_event_csr(l_khr_id)
7532: LOOP
7563: END IF;
7564: IF l_okl_unreceived_streams_csr%ISOPEN THEN
7565: CLOSE l_okl_unreceived_streams_csr;
7566: END IF;
7567: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
7568: p_msg_name => G_UNEXPECTED_ERROR,
7569: p_token1 => G_SQLCODE_TOKEN,
7570: p_token1_value => SQLCODE,
7571: p_token2 => G_SQLERRM_TOKEN,
7787: IF l_okl_percent_stake_csr%ISOPEN THEN
7788: CLOSE l_okl_percent_stake_csr;
7789: END IF;
7790:
7791: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
7792: p_msg_name => G_UNEXPECTED_ERROR,
7793: p_token1 => G_SQLCODE_TOKEN,
7794: p_token1_value => SQLCODE,
7795: p_token2 => G_SQLERRM_TOKEN,
7903: IF c_rent_accrual%ISOPEN THEN
7904: CLOSE c_rent_accrual;
7905: END IF;
7906: --Bug # 6740000 ssdeshpa added End
7907: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7908: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7909: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7910: p_token1 => 'OKL_SQLCODE',
7911: p_token1_value => SQLCODE,
7904: CLOSE c_rent_accrual;
7905: END IF;
7906: --Bug # 6740000 ssdeshpa added End
7907: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7908: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7909: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7910: p_token1 => 'OKL_SQLCODE',
7911: p_token1_value => SQLCODE,
7912: p_token2 => 'OKL_SQLERRM',
7992: IF c_add_amt_stake%ISOPEN THEN
7993: CLOSE c_add_amt_stake;
7994: END IF;
7995: --Bug # 6740000 ssdeshpa added End
7996: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7997: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7998: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7999: p_token1 => 'OKL_SQLCODE',
8000: p_token1_value => SQLCODE,
7993: CLOSE c_add_amt_stake;
7994: END IF;
7995: --Bug # 6740000 ssdeshpa added End
7996: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7997: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7998: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7999: p_token1 => 'OKL_SQLCODE',
8000: p_token1_value => SQLCODE,
8001: p_token2 => 'OKL_SQLERRM',
8199: IF l_streams_amount_pending_csr%ISOPEN THEN
8200: CLOSE l_streams_amount_pending_csr;
8201: END IF;
8202: --Bug # 6740000 ssdeshpa added End
8203: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8204: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8205: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8206: p_token1 => 'OKL_SQLCODE',
8207: p_token1_value => SQLCODE,
8200: CLOSE l_streams_amount_pending_csr;
8201: END IF;
8202: --Bug # 6740000 ssdeshpa added End
8203: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8204: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8205: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8206: p_token1 => 'OKL_SQLCODE',
8207: p_token1_value => SQLCODE,
8208: p_token2 => 'OKL_SQLERRM',
8257: RETURN l_sum_idc_amt;
8258:
8259: EXCEPTION
8260: WHEN OTHERS THEN
8261: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8262: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8263: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8264: p_token1 => 'OKL_SQLCODE',
8265: p_token1_value => SQLCODE,
8258:
8259: EXCEPTION
8260: WHEN OTHERS THEN
8261: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8262: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8263: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8264: p_token1 => 'OKL_SQLCODE',
8265: p_token1_value => SQLCODE,
8266: p_token2 => 'OKL_SQLERRM',
8274: --for cure calculation
8275:
8276: FUNCTION contract_delinquent_amt (
8277: p_contract_id IN okc_k_headers_b.id%TYPE
8278: ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
8279: ) RETURN NUMBER IS
8280:
8281: -- ASHIM CHANGE - START
8282:
8356:
8357: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8358: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, ' in contract_delinquent_amt'||SQLERRM);
8359: END IF;
8360: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8361: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8362: p_token1 => 'OKL_SQLCODE',
8363: p_token1_value => SQLCODE,
8364: p_token2 => 'OKL_SQLERRM',
8368: END contract_delinquent_amt;
8369:
8370: FUNCTION cumulative_vendor_invoice_amt (
8371: p_contract_id IN okc_k_headers_b.id%TYPE
8372: ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
8373: ) RETURN NUMBER IS
8374:
8375: CURSOR c_vendor_invoice_amt (p_contract_id IN NUMBER) IS
8376: SELECT NVL(SUM(negotiated_amount),0)
8391:
8392:
8393: FUNCTION contract_short_fund_amt (
8394: p_contract_id IN okc_k_headers_b.id%TYPE
8395: ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
8396: ) RETURN NUMBER IS
8397:
8398: CURSOR c_get_short_fund_amt (p_contract_id IN NUMBER) IS
8399: SELECT NVL(SUM(short_fund_amount),0)
8432: p_chr_id IN NUMBER,
8433: p_line_id IN NUMBER) RETURN NUMBER IS
8434:
8435: l_api_version NUMBER DEFAULT 1.0;
8436: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
8437: l_msg_count NUMBER;
8438: l_msg_data VARCHAR2(2000);
8439:
8440: l_line_discount NUMBER;
8514: (l_discount_incl_terminated)) THEN
8515:
8516: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
8517: (p_api_version => l_api_version,
8518: p_init_msg_list => Okl_Api.G_FALSE,
8519: x_msg_data => l_msg_data,
8520: x_msg_count => l_msg_count,
8521: x_return_status => l_return_status,
8522: p_asset_cle_id => p_line_id,
8521: x_return_status => l_return_status,
8522: p_asset_cle_id => p_line_id,
8523: p_accounting_method => 'NET',
8524: x_subsidy_amount => l_line_discount);
8525: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
8526: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8527: END IF;
8528: END IF;
8529:
8522: p_asset_cle_id => p_line_id,
8523: p_accounting_method => 'NET',
8524: x_subsidy_amount => l_line_discount);
8525: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
8526: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8527: END IF;
8528: END IF;
8529:
8530: ELSIF (p_line_id IS NULL) AND (p_chr_id IS NOT NULL) THEN
8535: FETCH l_cleb_termn_csr INTO l_cle_id;
8536: EXIT WHEN l_cleb_termn_csr%NOTFOUND;
8537: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
8538: (p_api_version => l_api_version,
8539: p_init_msg_list => Okl_Api.G_FALSE,
8540: x_msg_data => l_msg_data,
8541: x_msg_count => l_msg_count,
8542: x_return_status => l_return_status,
8543: p_asset_cle_id => l_cle_id,
8542: x_return_status => l_return_status,
8543: p_asset_cle_id => l_cle_id,
8544: p_accounting_method => 'NET',
8545: x_subsidy_amount => l_discount);
8546: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
8547: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8548: END IF;
8549: l_line_discount := l_line_discount + l_discount;
8550: END LOOP;
8543: p_asset_cle_id => l_cle_id,
8544: p_accounting_method => 'NET',
8545: x_subsidy_amount => l_discount);
8546: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
8547: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8548: END IF;
8549: l_line_discount := l_line_discount + l_discount;
8550: END LOOP;
8551: CLOSE l_cleb_termn_csr;
8555: FETCH l_cleb_csr INTO l_cle_id;
8556: EXIT WHEN l_cleb_csr%NOTFOUND;
8557: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
8558: (p_api_version => l_api_version,
8559: p_init_msg_list => Okl_Api.G_FALSE,
8560: x_msg_data => l_msg_data,
8561: x_msg_count => l_msg_count,
8562: x_return_status => l_return_status,
8563: p_asset_cle_id => l_cle_id,
8562: x_return_status => l_return_status,
8563: p_asset_cle_id => l_cle_id,
8564: p_accounting_method => 'NET',
8565: x_subsidy_amount => l_discount);
8566: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
8567: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8568: END IF;
8569: l_line_discount := l_line_discount + l_discount;
8570: END LOOP;
8563: p_asset_cle_id => l_cle_id,
8564: p_accounting_method => 'NET',
8565: x_subsidy_amount => l_discount);
8566: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
8567: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8568: END IF;
8569: l_line_discount := l_line_discount + l_discount;
8570: END LOOP;
8571: CLOSE l_cleb_csr;
8570: END LOOP;
8571: CLOSE l_cleb_csr;
8572: END IF;
8573: ELSIF (p_line_id IS NULL) AND (p_chr_id IS NULL) THEN
8574: RAISE Okl_Api.G_EXCEPTION_ERROR;
8575: END IF;
8576: RETURN (l_line_discount);
8577:
8578: EXCEPTION
8585: END IF;
8586: IF l_line_sts_csr%ISOPEN THEN
8587: CLOSE l_line_sts_csr;
8588: END IF;
8589: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
8590: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8591: p_token1 => 'OKL_SQLCODE',
8592: p_token1_value => SQLCODE,
8593: p_token2 => 'OKL_SQLERRM',
8608: p_chr_id IN NUMBER,
8609: p_line_id IN NUMBER) RETURN NUMBER IS
8610:
8611: l_api_version NUMBER DEFAULT 1.0;
8612: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
8613: l_msg_count NUMBER;
8614: l_msg_data VARCHAR2(2000);
8615:
8616: l_contract_discount NUMBER;
8617: BEGIN
8618: IF (p_line_id IS NOT NULL) OR (p_chr_id IS NOT NULL) THEN
8619: l_contract_discount := line_discount(p_chr_id,p_line_id);
8620: ELSIF (p_line_id IS NULL) AND (p_chr_id IS NULL) THEN
8621: RAISE OKL_API.G_EXCEPTION_ERROR;
8622: END IF;
8623: RETURN (l_contract_discount);
8624: EXCEPTION
8625: WHEN OTHERS THEN
8622: END IF;
8623: RETURN (l_contract_discount);
8624: EXCEPTION
8625: WHEN OTHERS THEN
8626: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8627: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8628: p_token1 => 'OKL_SQLCODE',
8629: p_token1_value => SQLCODE,
8630: p_token2 => 'OKL_SQLERRM',
8654: p_line_id IN NUMBER) RETURN NUMBER IS
8655:
8656: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_AMORTIZED_EXPENSES';
8657: l_api_version CONSTANT NUMBER := 1;
8658: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
8659: x_msg_count NUMBER;
8660: x_msg_data VARCHAR2(2000);
8661:
8662: l_amortized_expenses NUMBER := 0;
8711: l_chr_amortexp_rec l_chr_amortexp_csr%ROWTYPE;
8712:
8713: BEGIN
8714:
8715: IF ( NVL(p_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM ) THEN
8716: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8717: END IF;
8718:
8719: OPEN l_line_amortexp_csr( p_chr_id );
8712:
8713: BEGIN
8714:
8715: IF ( NVL(p_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM ) THEN
8716: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8717: END IF;
8718:
8719: OPEN l_line_amortexp_csr( p_chr_id );
8720: FETCH l_line_amortexp_csr INTO l_line_amortexp_rec;
8730:
8731:
8732: EXCEPTION
8733: WHEN OTHERS THEN
8734: Okl_Api.SET_MESSAGE(
8735: p_app_name => G_APP_NAME,
8736: p_msg_name => G_UNEXPECTED_ERROR,
8737: p_token1 => G_SQLCODE_TOKEN,
8738: p_token1_value => SQLCODE,
8897: l_quote_id NUMBER;
8898: l_quote_date DATE;
8899: l_sysdate DATE;
8900: l_sty_id OKL_STRM_TYPE_TL.ID%TYPE := 0;
8901: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
8902: --06-Dec-2004 PAGARG Bug# 3948473 variable to store investor agreement id
8903: l_inv_agr_id NUMBER;
8904: BEGIN
8905: -- ****************
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
8929:
8930: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
8931: l_quote_date := get_quote_date_rec.date_effective_from;
8932: END LOOP;
8933: END IF;
8934:
8935: -- rmunjulu EDAT
8936: IF l_quote_date IS NULL
8937: OR l_quote_date = OKL_API.G_MISS_DATE THEN
8938: l_quote_date := l_sysdate;
8939: END IF;
8940:
8941: --PAGARG 19-Nov-2004 Bug# 4012614
8944: 'RENT',
8945: l_return_status,
8946: l_sty_id);
8947:
8948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8949: THEN
8950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8952: THEN
8946: l_sty_id);
8947:
8948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8949: THEN
8950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8952: THEN
8953: RAISE OKL_API.G_EXCEPTION_ERROR;
8954: END IF;
8947:
8948: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8949: THEN
8950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8952: THEN
8953: RAISE OKL_API.G_EXCEPTION_ERROR;
8954: END IF;
8955:
8949: THEN
8950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8951: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8952: THEN
8953: RAISE OKL_API.G_EXCEPTION_ERROR;
8954: END IF;
8955:
8956: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8957: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
8968: 'INVESTOR_RENT_DISB_BASIS',
8969: l_return_status,
8970: l_sty_id);
8971:
8972: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8973: THEN
8974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8976: THEN
8970: l_sty_id);
8971:
8972: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8973: THEN
8974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8976: THEN
8977: RAISE OKL_API.G_EXCEPTION_ERROR;
8978: END IF;
8971:
8972: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
8973: THEN
8974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8976: THEN
8977: RAISE OKL_API.G_EXCEPTION_ERROR;
8978: END IF;
8979:
8973: THEN
8974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
8976: THEN
8977: RAISE OKL_API.G_EXCEPTION_ERROR;
8978: END IF;
8979:
8980: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
8981: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
9014: IF l_undisb_rent_strm_pndg_csr%ISOPEN THEN
9015: CLOSE l_undisb_rent_strm_pndg_csr;
9016: END IF;
9017: -- store SQL error message on message stack for caller
9018: OKL_API.SET_MESSAGE (
9019: p_app_name => OKL_API.G_APP_NAME,
9020: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9021: p_token1 => 'SQLCODE',
9022: p_token1_value => SQLCODE,
9015: CLOSE l_undisb_rent_strm_pndg_csr;
9016: END IF;
9017: -- store SQL error message on message stack for caller
9018: OKL_API.SET_MESSAGE (
9019: p_app_name => OKL_API.G_APP_NAME,
9020: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9021: p_token1 => 'SQLCODE',
9022: p_token1_value => SQLCODE,
9023: p_token2 => 'SQLERRM',
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:
9110: BEGIN
9111: -- ****************
9112: -- Calculate result
9117: 'RESIDUAL_VALUE',
9118: l_return_status,
9119: l_sty_id);
9120:
9121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9122: THEN
9123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9124: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9125: THEN
9119: l_sty_id);
9120:
9121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9122: THEN
9123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9124: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9125: THEN
9126: RAISE OKL_API.G_EXCEPTION_ERROR;
9127: END IF;
9120:
9121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9122: THEN
9123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9124: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9125: THEN
9126: RAISE OKL_API.G_EXCEPTION_ERROR;
9127: END IF;
9128:
9122: THEN
9123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9124: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9125: THEN
9126: RAISE OKL_API.G_EXCEPTION_ERROR;
9127: END IF;
9128:
9129: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9130: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
9171: END IF;
9172:
9173: -- store SQL error message on message stack for caller
9174:
9175: OKL_API.SET_MESSAGE (
9176: p_app_name => OKL_API.G_APP_NAME,
9177: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9178: p_token1 => 'SQLCODE',
9179: p_token1_value => SQLCODE,
9172:
9173: -- store SQL error message on message stack for caller
9174:
9175: OKL_API.SET_MESSAGE (
9176: p_app_name => OKL_API.G_APP_NAME,
9177: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9178: p_token1 => 'SQLCODE',
9179: p_token1_value => SQLCODE,
9180: p_token2 => 'SQLERRM',
9321: l_quote_id NUMBER;
9322: l_quote_date DATE;
9323: l_sysdate DATE;
9324: l_sty_id OKL_STRM_TYPE_TL.ID%TYPE := 0;
9325: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
9326: --06-Dec-2004 PAGARG Bug# 3948473 variable to store investor agreement id
9327: l_inv_agr_id NUMBER;
9328: BEGIN
9329: -- ****************
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
9353:
9354: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
9355: l_quote_date := get_quote_date_rec.date_effective_from;
9356: END LOOP;
9357: END IF;
9358:
9359: -- rmunjulu EDAT
9360: IF l_quote_date IS NULL
9361: OR l_quote_date = OKL_API.G_MISS_DATE THEN
9362: l_quote_date := l_sysdate;
9363: END IF;
9364:
9365: --PAGARG 19-Nov-2004 Bug# 4012614
9368: 'PRINCIPAL_PAYMENT',
9369: l_return_status,
9370: l_sty_id);
9371:
9372: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9373: THEN
9374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9376: THEN
9370: l_sty_id);
9371:
9372: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9373: THEN
9374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9376: THEN
9377: RAISE OKL_API.G_EXCEPTION_ERROR;
9378: END IF;
9371:
9372: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9373: THEN
9374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9376: THEN
9377: RAISE OKL_API.G_EXCEPTION_ERROR;
9378: END IF;
9379:
9373: THEN
9374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9376: THEN
9377: RAISE OKL_API.G_EXCEPTION_ERROR;
9378: END IF;
9379:
9380: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9381: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
9393: 'INTEREST_PAYMENT',
9394: l_return_status,
9395: l_sty_id);
9396:
9397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9398: THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9401: THEN
9395: l_sty_id);
9396:
9397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9398: THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9401: THEN
9402: RAISE OKL_API.G_EXCEPTION_ERROR;
9403: END IF;
9396:
9397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9398: THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9401: THEN
9402: RAISE OKL_API.G_EXCEPTION_ERROR;
9403: END IF;
9404:
9398: THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9401: THEN
9402: RAISE OKL_API.G_EXCEPTION_ERROR;
9403: END IF;
9404:
9405: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9406: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
9418: 'UNSCHEDULED_PRINCIPAL_PAYMENT',
9419: l_return_status,
9420: l_sty_id);
9421:
9422: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9423: THEN
9424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9426: THEN
9420: l_sty_id);
9421:
9422: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9423: THEN
9424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9426: THEN
9427: RAISE OKL_API.G_EXCEPTION_ERROR;
9428: END IF;
9421:
9422: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9423: THEN
9424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9426: THEN
9427: RAISE OKL_API.G_EXCEPTION_ERROR;
9428: END IF;
9429:
9423: THEN
9424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9425: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9426: THEN
9427: RAISE OKL_API.G_EXCEPTION_ERROR;
9428: END IF;
9429:
9430: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9431: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
9445: 'INVESTOR_PRINCIPAL_DISB_BASIS',
9446: l_return_status,
9447: l_sty_id);
9448:
9449: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9450: THEN
9451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9452: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9453: THEN
9447: l_sty_id);
9448:
9449: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9450: THEN
9451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9452: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9453: THEN
9454: RAISE OKL_API.G_EXCEPTION_ERROR;
9455: END IF;
9448:
9449: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9450: THEN
9451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9452: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9453: THEN
9454: RAISE OKL_API.G_EXCEPTION_ERROR;
9455: END IF;
9456:
9450: THEN
9451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9452: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9453: THEN
9454: RAISE OKL_API.G_EXCEPTION_ERROR;
9455: END IF;
9456:
9457: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9458: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
9468: 'INVESTOR_INTEREST_DISB_BASIS',
9469: l_return_status,
9470: l_sty_id);
9471:
9472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9473: THEN
9474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9475: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9476: THEN
9470: l_sty_id);
9471:
9472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9473: THEN
9474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9475: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9476: THEN
9477: RAISE OKL_API.G_EXCEPTION_ERROR;
9478: END IF;
9471:
9472: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9473: THEN
9474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9475: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9476: THEN
9477: RAISE OKL_API.G_EXCEPTION_ERROR;
9478: END IF;
9479:
9473: THEN
9474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9475: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9476: THEN
9477: RAISE OKL_API.G_EXCEPTION_ERROR;
9478: END IF;
9479:
9480: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9481: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
9491: 'INVESTOR_PPD_DISB_BASIS',
9492: l_return_status,
9493: l_sty_id);
9494:
9495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9496: THEN
9497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9499: THEN
9493: l_sty_id);
9494:
9495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9496: THEN
9497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9499: THEN
9500: RAISE OKL_API.G_EXCEPTION_ERROR;
9501: END IF;
9494:
9495: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9496: THEN
9497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9499: THEN
9500: RAISE OKL_API.G_EXCEPTION_ERROR;
9501: END IF;
9502:
9496: THEN
9497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9498: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9499: THEN
9500: RAISE OKL_API.G_EXCEPTION_ERROR;
9501: END IF;
9502:
9503: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9504: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
9539: CLOSE l_undisb_rent_strm_pndg_csr;
9540: END IF;
9541: -- store SQL error message on message stack for caller
9542:
9543: OKL_API.SET_MESSAGE (
9544: p_app_name => OKL_API.G_APP_NAME,
9545: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9546: p_token1 => 'SQLCODE',
9547: p_token1_value => SQLCODE,
9540: END IF;
9541: -- store SQL error message on message stack for caller
9542:
9543: OKL_API.SET_MESSAGE (
9544: p_app_name => OKL_API.G_APP_NAME,
9545: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9546: p_token1 => 'SQLCODE',
9547: p_token1_value => SQLCODE,
9548: p_token2 => 'SQLERRM',
9664: END IF;
9665:
9666: -- store SQL error message on message stack for caller
9667:
9668: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
9669: p_msg_name => 'OKL_UNEXPECTED_ERROR',
9670: p_token1 => 'OKL_SQLCODE',
9671: p_token1_value => SQLCODE,
9672: p_token2 => 'OKL_SQLERRM',
9844: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
9845: END IF;
9846: END LOOP;
9847: ELSE
9848: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
9849: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
9850: RAISE OKL_API.G_EXCEPTION_ERROR;
9851: END IF;
9852:
9846: END LOOP;
9847: ELSE
9848: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
9849: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
9850: RAISE OKL_API.G_EXCEPTION_ERROR;
9851: END IF;
9852:
9853: -- Determine the fee type passed
9854:
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
9883:
9884: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
9885: l_quote_date := get_quote_date_rec.date_effective_from;
9886: END LOOP;
9887: END IF;
9888:
9889: -- rmunjulu EDAT
9890: IF l_quote_date IS NULL
9891: OR l_quote_date = OKL_API.G_MISS_DATE THEN
9892: l_quote_date := l_sysdate;
9893: END IF;
9894: -- ****************
9895: -- Calculate result
9901: -- Find the sum of all the asset level streams for a given fee if asset id is null
9902: -- else if asset id is not null then sum all the asset level streams for that asset
9903: -- for the given fee.
9904: -- p_contract_line_id stores the asset id
9905: IF p_contract_line_id is NULL or p_contract_line_id = OKL_API.G_MISS_NUM THEN
9906: -- Find the total payments of all the assets associated to the given
9907: -- fee type of given contract.
9908: OPEN l_unbilled_feeassets_strms_csr (p_contract_id, l_fee_type, l_quote_date); -- rmunjulu EDAT
9909: FETCH l_unbilled_feeassets_strms_csr INTO l_unbilled_fee_assets_amt;
9928: IF l_unbilled_fee_streams_csr%ISOPEN THEN
9929: CLOSE l_unbilled_fee_streams_csr;
9930: END IF;
9931: -- store SQL error message on message stack for caller
9932: OKL_API.SET_MESSAGE (
9933: p_app_name => OKL_API.G_APP_NAME,
9934: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9935: p_token1 => 'SQLCODE',
9936: p_token1_value => SQLCODE,
9929: CLOSE l_unbilled_fee_streams_csr;
9930: END IF;
9931: -- store SQL error message on message stack for caller
9932: OKL_API.SET_MESSAGE (
9933: p_app_name => OKL_API.G_APP_NAME,
9934: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9935: p_token1 => 'SQLCODE',
9936: p_token1_value => SQLCODE,
9937: p_token2 => 'SQLERRM',
10006: RETURN l_amount;
10007:
10008: EXCEPTION
10009: WHEN OTHERS THEN
10010: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10011: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10012: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10013: p_token1 => 'OKL_SQLCODE',
10014: p_token1_value => SQLCODE,
10007:
10008: EXCEPTION
10009: WHEN OTHERS THEN
10010: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10011: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10012: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10013: p_token1 => 'OKL_SQLCODE',
10014: p_token1_value => SQLCODE,
10015: p_token2 => 'OKL_SQLERRM',
10099: p_primary_sty_id => r_subsidy_line.sty_id,
10100: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
10101: x_return_status => l_return_status,
10102: x_dependent_sty_id => l_dependent_sty_id);
10103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_ERROR;
10107: END IF;
10100: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
10101: x_return_status => l_return_status,
10102: x_dependent_sty_id => l_dependent_sty_id);
10103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_ERROR;
10107: END IF;
10108:
10101: x_return_status => l_return_status,
10102: x_dependent_sty_id => l_dependent_sty_id);
10103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_ERROR;
10107: END IF;
10108:
10109: OPEN c_refund_subsidy(p_contract_line_id,
10102: x_dependent_sty_id => l_dependent_sty_id);
10103: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10105: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_ERROR;
10107: END IF;
10108:
10109: OPEN c_refund_subsidy(p_contract_line_id,
10110: r_subsidy_line.date_terminated,
10115: l_tot_amount := l_tot_amount + l_amount;
10116:
10117: ELSE
10118: l_tot_amount := NULL; -- error
10119: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10120: p_msg_name => 'OKL_DATE_TERMINATED_REQUIRED');
10121:
10122: RAISE OKC_API.G_EXCEPTION_ERROR;
10123: END IF;
10123: END IF;
10124:
10125: ELSE -- error
10126: l_tot_amount := NULL;
10127: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10128: p_msg_name => 'OKL_INVALID_ACCT_METHOD_CODE',
10129: p_token2 => 'COL_NAME',
10130: p_token2_value => r_subsidy_line.accounting_method_code);
10131:
10138: RETURN l_tot_amount;
10139:
10140: EXCEPTION
10141: WHEN OTHERS THEN
10142: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10143: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10144: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10145: p_token1 => 'OKL_SQLCODE',
10146: p_token1_value => SQLCODE,
10139:
10140: EXCEPTION
10141: WHEN OTHERS THEN
10142: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10143: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10144: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10145: p_token1 => 'OKL_SQLCODE',
10146: p_token1_value => SQLCODE,
10147: p_token2 => 'OKL_SQLERRM',
10172: RETURN NUMBER IS
10173:
10174: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_PRETAXINC_BOOK';
10175: l_api_version CONSTANT NUMBER := 1;
10176: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10177: x_msg_count NUMBER;
10178: x_msg_data VARCHAR2(256);
10179:
10180: l_income NUMBER := 0;
10213:
10214: BEGIN
10215:
10216: IF ( p_chr_id IS NULL ) THEN
10217: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
10218: END IF;
10219:
10220: l_line_income_amount := 0;
10221: FOR l_line_income_rec IN l_line_income_csr (p_chr_id)
10239:
10240: EXCEPTION
10241:
10242: WHEN OTHERS THEN
10243: Okl_Api.SET_MESSAGE(
10244: p_app_name => G_APP_NAME,
10245: p_msg_name => G_UNEXPECTED_ERROR,
10246: p_token1 => G_SQLCODE_TOKEN,
10247: p_token1_value => SQLCODE,
10298: RETURN l_sum_financed_fee_amt;
10299:
10300: EXCEPTION
10301: WHEN OTHERS THEN
10302: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10303: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10304: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10305: p_token1 => 'OKL_SQLCODE',
10306: p_token1_value => SQLCODE,
10299:
10300: EXCEPTION
10301: WHEN OTHERS THEN
10302: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10303: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10304: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10305: p_token1 => 'OKL_SQLCODE',
10306: p_token1_value => SQLCODE,
10307: p_token2 => 'OKL_SQLERRM',
10357: RETURN l_sum_absorbed_fee_amt;
10358:
10359: EXCEPTION
10360: WHEN OTHERS THEN
10361: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10362: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10363: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10364: p_token1 => 'OKL_SQLCODE',
10365: p_token1_value => SQLCODE,
10358:
10359: EXCEPTION
10360: WHEN OTHERS THEN
10361: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10362: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10363: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10364: p_token1 => 'OKL_SQLCODE',
10365: p_token1_value => SQLCODE,
10366: p_token2 => 'OKL_SQLERRM',
10423: l_credit_remain NUMBER := 0;
10424: l_disbursement_tot NUMBER := 0;
10425:
10426: l_amount NUMBER := 0;
10427: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
10428: l_api_version NUMBER := 1.0;
10429: x_msg_count NUMBER;
10430: x_msg_data VARCHAR2(4000);
10431: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
10427: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
10428: l_api_version NUMBER := 1.0;
10429: x_msg_count NUMBER;
10430: x_msg_data VARCHAR2(4000);
10431: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
10432:
10433: BEGIN
10434:
10435: FOR r_ast IN c_disb_tot LOOP
10458: RETURN l_credit_remain;
10459:
10460: EXCEPTION
10461: WHEN OTHERS THEN
10462: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10463: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10464: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10465: p_token1 => 'OKL_SQLCODE',
10466: p_token1_value => SQLCODE,
10459:
10460: EXCEPTION
10461: WHEN OTHERS THEN
10462: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10463: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10464: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10465: p_token1 => 'OKL_SQLCODE',
10466: p_token1_value => SQLCODE,
10467: p_token2 => 'OKL_SQLERRM',
10575: RETURN l_credit_remain;
10576:
10577: EXCEPTION
10578: WHEN OTHERS THEN
10579: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10580: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10581: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10582: p_token1 => 'OKL_SQLCODE',
10583: p_token1_value => SQLCODE,
10576:
10577: EXCEPTION
10578: WHEN OTHERS THEN
10579: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10580: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10581: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10582: p_token1 => 'OKL_SQLCODE',
10583: p_token1_value => SQLCODE,
10584: p_token2 => 'OKL_SQLERRM',
10650: l_credit_remain NUMBER := 0;
10651: l_disbursement_tot NUMBER := 0;
10652:
10653: l_amount NUMBER := 0;
10654: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
10655: l_api_version NUMBER := 1.0;
10656: x_msg_count NUMBER;
10657: x_msg_data VARCHAR2(4000);
10658: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
10654: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
10655: l_api_version NUMBER := 1.0;
10656: x_msg_count NUMBER;
10657: x_msg_data VARCHAR2(4000);
10658: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
10659:
10660: BEGIN
10661:
10662: FOR r_ast IN c_disb_tot LOOP
10670: RETURN l_disbursement_tot;
10671:
10672: EXCEPTION
10673: WHEN OTHERS THEN
10674: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10675: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10676: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10677: p_token1 => 'OKL_SQLCODE',
10678: p_token1_value => SQLCODE,
10671:
10672: EXCEPTION
10673: WHEN OTHERS THEN
10674: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10675: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10676: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10677: p_token1 => 'OKL_SQLCODE',
10678: p_token1_value => SQLCODE,
10679: p_token2 => 'OKL_SQLERRM',
10705: Replaced reference of okl_cnsld_ar_strms_b with Billing Util API call
10706: start changes
10707: */
10708: --Initialize standard API parameters
10709: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10710: x_msg_count NUMBER;
10711: x_msg_data VARCHAR2(256);
10712:
10713: -- Intialize contract_invoice_tbl variable
10722:
10723: -- Call to the Billing Util API replacing reference to okl_cnsld_ar_strms_b
10724: OKL_BILLING_UTIL_PVT.INVOICE_AMOUNT_FOR_STREAM(
10725: p_api_version => 1.0
10726: ,p_init_msg_list => OKL_API.G_FALSE
10727: ,x_return_status => x_return_status
10728: ,x_msg_count => x_msg_count
10729: ,x_msg_data => x_msg_data
10730: ,p_stream_purpose => 'UNSCHEDULED_PRINCIPAL_PAYMENT'
10746: RETURN l_payment_tot;
10747:
10748: EXCEPTION
10749: WHEN OTHERS THEN
10750: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10751: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10752: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10753: p_token1 => 'OKL_SQLCODE',
10754: p_token1_value => SQLCODE,
10747:
10748: EXCEPTION
10749: WHEN OTHERS THEN
10750: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10751: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10752: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10753: p_token1 => 'OKL_SQLCODE',
10754: p_token1_value => SQLCODE,
10755: p_token2 => 'OKL_SQLERRM',
10782: RETURN NUMBER IS
10783:
10784: l_api_name CONSTANT VARCHAR2(30) := 'LINE_ASSET_COST';
10785: l_api_version CONSTANT NUMBER := 1;
10786: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
10787: x_msg_count NUMBER;
10788: x_msg_data VARCHAR2(256);
10789:
10790: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
10865: l_book_type_code FA_BOOK_CONTROLS.BOOK_TYPE_CODE%TYPE;
10866: BEGIN
10867:
10868: IF (( p_contract_id IS NULL ) OR ( p_contract_line_id IS NULL )) THEN
10869: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
10870: END IF;
10871:
10872: l_streams_repo_policy := OKL_STREAMS_SEC_PVT.GET_STREAMS_POLICY;
10873: l_book_type_code := NULL;
10901: p_book_type_code => l_book_type_code);
10902: FETCH l_asset_csr_incl_terminated INTO l_asset_rec;
10903: IF( l_asset_csr_incl_terminated%NOTFOUND ) THEN
10904: CLOSE l_asset_csr_incl_terminated;
10905: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
10906: END IF;
10907: CLOSE l_asset_csr_incl_terminated;
10908: ELSE
10909: OPEN l_asset_csr(p_chr_id => p_contract_id,
10912: p_book_type_code => l_book_type_code);
10913: FETCH l_asset_csr INTO l_asset_rec;
10914: IF( l_asset_csr%NOTFOUND ) THEN
10915: CLOSE l_asset_csr;
10916: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
10917: END IF;
10918: CLOSE l_asset_csr;
10919: END IF;
10920:
10921: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
10922: l_asset_hdr_rec.book_type_code := l_asset_rec.book_type_code;
10923:
10924: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
10925: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10926: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
10927: );
10928: RAISE OKL_API.G_EXCEPTION_ERROR;
10929: END IF;
10924: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
10925: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10926: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
10927: );
10928: RAISE OKL_API.G_EXCEPTION_ERROR;
10929: END IF;
10930:
10931: -- To fetch Asset Current Cost
10932: IF NOT FA_UTIL_PVT.get_asset_fin_rec
10935: p_transaction_header_id => NULL,
10936: p_mrc_sob_type_code => 'P'
10937: ) THEN
10938:
10939: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10940: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
10941: );
10942: RAISE OKL_API.G_EXCEPTION_ERROR;
10943: END IF;
10938:
10939: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
10940: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
10941: );
10942: RAISE OKL_API.G_EXCEPTION_ERROR;
10943: END IF;
10944:
10945: -- convert amount into contract currency
10946: OPEN contract_start_date_csr(p_chr_id => p_contract_id);
10959: x_currency_conversion_rate => l_currency_conversion_rate,
10960: x_currency_conversion_date => l_currency_conversion_date,
10961: x_converted_amount => l_converted_amount);
10962:
10963: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10964: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
10965: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
10966: RAISE Okl_Api.G_EXCEPTION_ERROR;
10967: END IF;
10960: x_currency_conversion_date => l_currency_conversion_date,
10961: x_converted_amount => l_converted_amount);
10962:
10963: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10964: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
10965: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
10966: RAISE Okl_Api.G_EXCEPTION_ERROR;
10967: END IF;
10968:
10962:
10963: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
10964: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
10965: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
10966: RAISE Okl_Api.G_EXCEPTION_ERROR;
10967: END IF;
10968:
10969: RETURN l_converted_amount;
10970:
10969: RETURN l_converted_amount;
10970:
10971: EXCEPTION
10972:
10973: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10974: RETURN NULL;
10975:
10976: WHEN OTHERS THEN
10977: Okl_Api.SET_MESSAGE(
10973: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10974: RETURN NULL;
10975:
10976: WHEN OTHERS THEN
10977: Okl_Api.SET_MESSAGE(
10978: p_app_name => G_APP_NAME,
10979: p_msg_name => G_UNEXPECTED_ERROR,
10980: p_token1 => G_SQLCODE_TOKEN,
10981: p_token1_value => SQLCODE,
11005: RETURN NUMBER IS
11006:
11007: l_api_name CONSTANT VARCHAR2(30) := 'LINE_ACCUMULATED_DEPRN';
11008: l_api_version CONSTANT NUMBER := 1;
11009: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11010: x_msg_count NUMBER;
11011: x_msg_data VARCHAR2(256);
11012:
11013: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
11089:
11090: BEGIN
11091:
11092: IF (( p_contract_id IS NULL ) OR ( p_contract_line_id IS NULL )) THEN
11093: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11094: END IF;
11095:
11096: l_streams_repo_policy := OKL_STREAMS_SEC_PVT.GET_STREAMS_POLICY;
11097: l_book_type_code := NULL;
11124: p_book_type_code => l_book_type_code);
11125: FETCH l_asset_csr_incl_terminated INTO l_asset_rec;
11126: IF( l_asset_csr_incl_terminated%NOTFOUND ) THEN
11127: CLOSE l_asset_csr_incl_terminated;
11128: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11129: END IF;
11130: CLOSE l_asset_csr_incl_terminated;
11131: ELSE
11132: OPEN l_asset_csr(p_chr_id => p_contract_id,
11135: p_book_type_code => l_book_type_code);
11136: FETCH l_asset_csr INTO l_asset_rec;
11137: IF( l_asset_csr%NOTFOUND ) THEN
11138: CLOSE l_asset_csr;
11139: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11140: END IF;
11141: CLOSE l_asset_csr;
11142: END IF;
11143:
11144: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
11145: l_asset_hdr_rec.book_type_code := l_asset_rec.book_type_code;
11146:
11147: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
11148: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11149: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
11150: );
11151: RAISE OKL_API.G_EXCEPTION_ERROR;
11152: END IF;
11147: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
11148: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11149: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
11150: );
11151: RAISE OKL_API.G_EXCEPTION_ERROR;
11152: END IF;
11153:
11154: -- To fetch Depreciation Reserve
11155: IF NOT FA_UTIL_PVT.get_asset_deprn_rec
11157: px_asset_deprn_rec => l_asset_deprn_rec,
11158: p_period_counter => NULL,
11159: p_mrc_sob_type_code => 'P'
11160: ) THEN
11161: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11162: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
11163: );
11164: RAISE OKL_API.G_EXCEPTION_ERROR;
11165: END IF;
11160: ) THEN
11161: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11162: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
11163: );
11164: RAISE OKL_API.G_EXCEPTION_ERROR;
11165: END IF;
11166:
11167: -- convert amount into contract currency
11168: OPEN contract_start_date_csr(p_chr_id => p_contract_id);
11181: x_currency_conversion_rate => l_currency_conversion_rate,
11182: x_currency_conversion_date => l_currency_conversion_date,
11183: x_converted_amount => l_converted_amount);
11184:
11185: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11186: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
11187: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
11188: RAISE Okl_Api.G_EXCEPTION_ERROR;
11189: END IF;
11182: x_currency_conversion_date => l_currency_conversion_date,
11183: x_converted_amount => l_converted_amount);
11184:
11185: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11186: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
11187: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
11188: RAISE Okl_Api.G_EXCEPTION_ERROR;
11189: END IF;
11190:
11184:
11185: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
11186: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
11187: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
11188: RAISE Okl_Api.G_EXCEPTION_ERROR;
11189: END IF;
11190:
11191: RETURN l_converted_amount;
11192:
11191: RETURN l_converted_amount;
11192:
11193: EXCEPTION
11194:
11195: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11196: RETURN NULL;
11197:
11198: WHEN OTHERS THEN
11199: Okl_Api.SET_MESSAGE(
11195: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11196: RETURN NULL;
11197:
11198: WHEN OTHERS THEN
11199: Okl_Api.SET_MESSAGE(
11200: p_app_name => G_APP_NAME,
11201: p_msg_name => G_UNEXPECTED_ERROR,
11202: p_token1 => G_SQLCODE_TOKEN,
11203: p_token1_value => SQLCODE,
11227: RETURN NUMBER IS
11228:
11229: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_ASSET_COST';
11230: l_api_version CONSTANT NUMBER := 1;
11231: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11232: x_msg_count NUMBER;
11233: x_msg_data VARCHAR2(256);
11234:
11235: CURSOR l_finast_csr(p_chr_id IN NUMBER) IS
11263:
11264: BEGIN
11265:
11266: IF ( p_contract_id IS NULL ) THEN
11267: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11268: END IF;
11269:
11270: l_sum_asset_cost := 0;
11271:
11288: IF l_discount_incl_terminated THEN
11289: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
11290: l_asset_cost := line_asset_cost(p_contract_id,l_finast_rec.id);
11291: IF (l_asset_cost IS NULL) THEN
11292: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11293: END IF;
11294: l_sum_asset_cost := l_sum_asset_cost + l_asset_cost;
11295: END LOOP;
11296:
11298:
11299: FOR l_finast_rec IN l_finast_csr(p_chr_id => p_contract_id) LOOP
11300: l_asset_cost := line_asset_cost(p_contract_id,l_finast_rec.id);
11301: IF (l_asset_cost IS NULL) THEN
11302: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11303: END IF;
11304: l_sum_asset_cost := l_sum_asset_cost + l_asset_cost;
11305: END LOOP;
11306:
11309: RETURN l_sum_asset_cost;
11310:
11311: EXCEPTION
11312:
11313: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11314: RETURN NULL;
11315:
11316: WHEN OTHERS THEN
11317: Okl_Api.SET_MESSAGE(
11313: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11314: RETURN NULL;
11315:
11316: WHEN OTHERS THEN
11317: Okl_Api.SET_MESSAGE(
11318: p_app_name => G_APP_NAME,
11319: p_msg_name => G_UNEXPECTED_ERROR,
11320: p_token1 => G_SQLCODE_TOKEN,
11321: p_token1_value => SQLCODE,
11345: RETURN NUMBER IS
11346:
11347: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_ACCUMULATED_DEPRN';
11348: l_api_version CONSTANT NUMBER := 1;
11349: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11350: x_msg_count NUMBER;
11351: x_msg_data VARCHAR2(256);
11352:
11353: CURSOR l_finast_csr(p_chr_id IN NUMBER) IS
11381:
11382: BEGIN
11383:
11384: IF ( p_contract_id IS NULL ) THEN
11385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11386: END IF;
11387:
11388: l_sum_accumulated_deprn := 0;
11389:
11406: IF l_discount_incl_terminated THEN
11407: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
11408: l_accumulated_deprn := line_accumulated_deprn(p_contract_id,l_finast_rec.id);
11409: IF (l_accumulated_deprn IS NULL) THEN
11410: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11411: END IF;
11412: l_sum_accumulated_deprn := l_sum_accumulated_deprn + l_accumulated_deprn;
11413: END LOOP;
11414:
11416:
11417: FOR l_finast_rec IN l_finast_csr(p_chr_id => p_contract_id) LOOP
11418: l_accumulated_deprn := line_accumulated_deprn(p_contract_id,l_finast_rec.id);
11419: IF (l_accumulated_deprn IS NULL) THEN
11420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11421: END IF;
11422: l_sum_accumulated_deprn := l_sum_accumulated_deprn + l_accumulated_deprn;
11423: END LOOP;
11424:
11427: RETURN l_sum_accumulated_deprn;
11428:
11429: EXCEPTION
11430:
11431: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11432: RETURN NULL;
11433:
11434: WHEN OTHERS THEN
11435: Okl_Api.SET_MESSAGE(
11431: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11432: RETURN NULL;
11433:
11434: WHEN OTHERS THEN
11435: Okl_Api.SET_MESSAGE(
11436: p_app_name => G_APP_NAME,
11437: p_msg_name => G_UNEXPECTED_ERROR,
11438: p_token1 => G_SQLCODE_TOKEN,
11439: p_token1_value => SQLCODE,
11465: RETURN NUMBER IS
11466:
11467: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_CAPITAL_AMOUNT';
11468: l_api_version CONSTANT NUMBER := 1;
11469: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11470: x_msg_count NUMBER;
11471: x_msg_data VARCHAR2(256);
11472:
11473: --cursor to find total capital amount
11518:
11519: BEGIN
11520:
11521: IF ( p_contract_id IS NULL ) THEN
11522: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11523: END IF;
11524:
11525: l_capital_amount := 0;
11526: l_financed_fee := 0;
11548: RETURN l_contract_financed_amount;
11549:
11550: EXCEPTION
11551:
11552: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11553: RETURN NULL;
11554:
11555: WHEN OTHERS THEN
11556: Okl_Api.SET_MESSAGE(
11552: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11553: RETURN NULL;
11554:
11555: WHEN OTHERS THEN
11556: Okl_Api.SET_MESSAGE(
11557: p_app_name => G_APP_NAME,
11558: p_msg_name => G_UNEXPECTED_ERROR,
11559: p_token1 => G_SQLCODE_TOKEN,
11560: p_token1_value => SQLCODE,
11584: RETURN NUMBER IS
11585:
11586: l_api_name CONSTANT VARCHAR2(30) := 'ROLLOVER_FEE';
11587: l_api_version CONSTANT NUMBER := 1;
11588: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11589: x_msg_count NUMBER;
11590: x_msg_data VARCHAR2(256);
11591:
11592: --cursor to find...
11606: RETURN l_amount;
11607:
11608: EXCEPTION
11609:
11610: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11611: RETURN NULL;
11612:
11613: WHEN OTHERS THEN
11614: Okl_Api.SET_MESSAGE(
11610: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11611: RETURN NULL;
11612:
11613: WHEN OTHERS THEN
11614: Okl_Api.SET_MESSAGE(
11615: p_app_name => G_APP_NAME,
11616: p_msg_name => G_UNEXPECTED_ERROR,
11617: p_token1 => G_SQLCODE_TOKEN,
11618: p_token1_value => SQLCODE,
11641: RETURN NUMBER IS
11642:
11643: l_api_name CONSTANT VARCHAR2(30) := 'TOT_NET_TRANSFERS';
11644: l_api_version CONSTANT NUMBER := 1;
11645: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11646: x_msg_count NUMBER;
11647: x_msg_data VARCHAR2(256);
11648:
11649: --cursor to find...
11663: RETURN l_amount;
11664:
11665: EXCEPTION
11666:
11667: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11668: RETURN NULL;
11669:
11670: WHEN OTHERS THEN
11671: Okl_Api.SET_MESSAGE(
11667: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11668: RETURN NULL;
11669:
11670: WHEN OTHERS THEN
11671: Okl_Api.SET_MESSAGE(
11672: p_app_name => G_APP_NAME,
11673: p_msg_name => G_UNEXPECTED_ERROR,
11674: p_token1 => G_SQLCODE_TOKEN,
11675: p_token1_value => SQLCODE,
11759:
11760: -- rmunjulu
11761: l_quote_eff_date DATE;
11762: l_term_date DATE;
11763: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
11764:
11765: -- Start : Bug 6030917 : prasjain
11766: --new cursor introduced for prorating and rounding the stream element amount
11767: --incase of partial unit termination
11800: l_parent_strm_rounded_tot_amt NUMBER;
11801: --declaring other local variables
11802: i NUMBER;
11803: l_api_version NUMBER := 1;
11804: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
11805: l_msg_count NUMBER;
11806: l_msg_data VARCHAR2(100);
11807: -- End : Bug 6030917 : prasjain
11808:
11814: 'RENT',
11815: l_return_status,
11816: l_stream_type_id);
11817:
11818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
11819: THEN
11820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
11822: THEN
11816: l_stream_type_id);
11817:
11818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
11819: THEN
11820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
11822: THEN
11823: RAISE OKL_API.G_EXCEPTION_ERROR;
11824: END IF;
11817:
11818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
11819: THEN
11820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
11822: THEN
11823: RAISE OKL_API.G_EXCEPTION_ERROR;
11824: END IF;
11825: --PAGARG 31-Dec-2004 Bug# 4097591 End
11819: THEN
11820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11821: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
11822: THEN
11823: RAISE OKL_API.G_EXCEPTION_ERROR;
11824: END IF;
11825: --PAGARG 31-Dec-2004 Bug# 4097591 End
11826:
11827: -- ********************************************
11859:
11860: IF l_rep_prod_streams_yn = 'Y' THEN
11861: IF l_trx_date IS NULL THEN
11862: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
11863: Okl_Api.Set_Message(p_app_name => g_app_name,
11864: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
11865: RAISE Okl_Api.G_EXCEPTION_ERROR;
11866: END IF;
11867: END IF;
11861: IF l_trx_date IS NULL THEN
11862: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
11863: Okl_Api.Set_Message(p_app_name => g_app_name,
11864: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
11865: RAISE Okl_Api.G_EXCEPTION_ERROR;
11866: END IF;
11867: END IF;
11868:
11869: -- rmunjulu
11916: p_currency_code => l_currency_code,
11917: p_round_option => 'STM',
11918: x_rounded_amount => l_parent_strm_rounded_amt
11919: );
11920: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11922: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11923: RAISE OKL_API.G_EXCEPTION_ERROR;
11924: END IF;
11917: p_round_option => 'STM',
11918: x_rounded_amount => l_parent_strm_rounded_amt
11919: );
11920: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11922: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11923: RAISE OKL_API.G_EXCEPTION_ERROR;
11924: END IF;
11925: -- calculate the parent stream rounded total
11918: x_rounded_amount => l_parent_strm_rounded_amt
11919: );
11920: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11922: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11923: RAISE OKL_API.G_EXCEPTION_ERROR;
11924: END IF;
11925: -- calculate the parent stream rounded total
11926: l_parent_strm_rounded_tot_amt := l_parent_strm_rounded_tot_amt
11919: );
11920: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11922: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
11923: RAISE OKL_API.G_EXCEPTION_ERROR;
11924: END IF;
11925: -- calculate the parent stream rounded total
11926: l_parent_strm_rounded_tot_amt := l_parent_strm_rounded_tot_amt
11927: + l_parent_strm_rounded_amt;
11934:
11935: RETURN NVL (l_result_amount, 0);
11936:
11937: EXCEPTION
11938: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
11939: -- Close open cursors
11940: IF l_future_stream_csr%ISOPEN THEN
11941: CLOSE l_future_stream_csr;
11942: END IF;
11975: END IF;
11976: -- End : Bug 6030917 : prasjain
11977:
11978: -- store SQL error message on message stack for caller
11979: OKL_API.SET_MESSAGE (
11980: p_app_name => OKL_API.G_APP_NAME,
11981: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
11982: p_token1 => 'SQLCODE',
11983: p_token1_value => SQLCODE,
11976: -- End : Bug 6030917 : prasjain
11977:
11978: -- store SQL error message on message stack for caller
11979: OKL_API.SET_MESSAGE (
11980: p_app_name => OKL_API.G_APP_NAME,
11981: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
11982: p_token1 => 'SQLCODE',
11983: p_token1_value => SQLCODE,
11984: p_token2 => 'SQLERRM',
12079:
12080: -- rmunjulu
12081: l_quote_eff_date DATE;
12082: l_stream_type_id NUMBER;
12083: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
12084:
12085: l_debug_unearned_income NUMBER := 0;
12086: -- Start : Bug 6030917 : prasjain
12087: --new cursor introduced for prorating and rounding the stream element amount
12116: l_parent_strm_rounded_amt NUMBER;
12117: l_parent_strm_rounded_tot_amt NUMBER;
12118: --declaring other local variables
12119: l_api_version NUMBER := 1;
12120: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
12121: l_msg_count NUMBER;
12122: l_msg_data VARCHAR2(100);
12123: -- End : Bug 6030917 : prasjain
12124:
12173: p_primary_sty_purpose => 'RENT',
12174: p_dependent_sty_purpose => 'LEASE_INCOME',
12175: x_return_status => l_return_status,
12176: x_dependent_sty_id => l_stream_type_id);
12177: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
12178: THEN
12179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12181: THEN
12175: x_return_status => l_return_status,
12176: x_dependent_sty_id => l_stream_type_id);
12177: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
12178: THEN
12179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12181: THEN
12182: RAISE OKL_API.G_EXCEPTION_ERROR;
12183: END IF;
12176: x_dependent_sty_id => l_stream_type_id);
12177: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
12178: THEN
12179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12181: THEN
12182: RAISE OKL_API.G_EXCEPTION_ERROR;
12183: END IF;
12184: ELSE
12178: THEN
12179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12180: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12181: THEN
12182: RAISE OKL_API.G_EXCEPTION_ERROR;
12183: END IF;
12184: ELSE
12185: -- sechawla 05-dec-07 6671849 -- START
12186: --PAGARG 31-Dec-2004 Bug# 4097591 Start
12190: p_dependent_sty_purpose => 'LEASE_INCOME',
12191: x_return_status => l_return_status,
12192: x_dependent_sty_id => l_stream_type_id);
12193:
12194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12197: RAISE OKL_API.G_EXCEPTION_ERROR;
12198: END IF;
12191: x_return_status => l_return_status,
12192: x_dependent_sty_id => l_stream_type_id);
12193:
12194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12197: RAISE OKL_API.G_EXCEPTION_ERROR;
12198: END IF;
12199: --PAGARG 31-Dec-2004 Bug# 4097591 End
12192: x_dependent_sty_id => l_stream_type_id);
12193:
12194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12197: RAISE OKL_API.G_EXCEPTION_ERROR;
12198: END IF;
12199: --PAGARG 31-Dec-2004 Bug# 4097591 End
12200:
12193:
12194: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12196: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12197: RAISE OKL_API.G_EXCEPTION_ERROR;
12198: END IF;
12199: --PAGARG 31-Dec-2004 Bug# 4097591 End
12200:
12201: END IF; -- sechawla 05-dec-07 6671849 -- added
12202:
12203: IF l_rep_prod_streams_yn = 'Y' THEN
12204: IF l_trx_date IS NULL THEN
12205: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
12206: Okl_Api.Set_Message(p_app_name => g_app_name,
12207: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
12208: RAISE Okl_Api.G_EXCEPTION_ERROR;
12209: END IF;
12210: END IF;
12204: IF l_trx_date IS NULL THEN
12205: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
12206: Okl_Api.Set_Message(p_app_name => g_app_name,
12207: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
12208: RAISE Okl_Api.G_EXCEPTION_ERROR;
12209: END IF;
12210: END IF;
12211:
12212: -- 26-Aug-2004 3849355 Guru added the following code to get current accural period end date
12285: p_currency_code => l_currency_code,
12286: p_round_option => 'STM',
12287: x_rounded_amount => l_parent_strm_rounded_amt
12288: );
12289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12292: RAISE OKL_API.G_EXCEPTION_ERROR;
12293: END IF;
12286: p_round_option => 'STM',
12287: x_rounded_amount => l_parent_strm_rounded_amt
12288: );
12289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12292: RAISE OKL_API.G_EXCEPTION_ERROR;
12293: END IF;
12294:
12287: x_rounded_amount => l_parent_strm_rounded_amt
12288: );
12289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12292: RAISE OKL_API.G_EXCEPTION_ERROR;
12293: END IF;
12294:
12295: -- calculate the parent stream rounded total
12288: );
12289: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12291: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12292: RAISE OKL_API.G_EXCEPTION_ERROR;
12293: END IF;
12294:
12295: -- calculate the parent stream rounded total
12296: l_parent_strm_rounded_tot_amt := l_parent_strm_rounded_tot_amt
12306: RETURN NVL(l_unearned_income,0);
12307:
12308: EXCEPTION
12309:
12310: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
12311: IF line_csr%ISOPEN THEN
12312: CLOSE line_csr;
12313: END IF;
12314:
12349: -- End : Bug 6030917 : prasjain
12350:
12351: -- store SQL error message on message stack for caller
12352:
12353: OKL_API.SET_MESSAGE (
12354: p_app_name => OKL_API.G_APP_NAME,
12355: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
12356: p_token1 => 'SQLCODE',
12357: p_token1_value => SQLCODE,
12350:
12351: -- store SQL error message on message stack for caller
12352:
12353: OKL_API.SET_MESSAGE (
12354: p_app_name => OKL_API.G_APP_NAME,
12355: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
12356: p_token1 => 'SQLCODE',
12357: p_token1_value => SQLCODE,
12358: p_token2 => 'SQLERRM',
12419: END LOOP;
12420: END IF;
12421:
12422: IF l_quote_id IS NULL
12423: OR l_quote_id = OKL_API.G_MISS_NUM
12424: OR p_khr_id IS NULL
12425: OR p_khr_id = OKL_API.G_MISS_NUM
12426: OR p_kle_id IS NULL
12427: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12421:
12422: IF l_quote_id IS NULL
12423: OR l_quote_id = OKL_API.G_MISS_NUM
12424: OR p_khr_id IS NULL
12425: OR p_khr_id = OKL_API.G_MISS_NUM
12426: OR p_kle_id IS NULL
12427: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12428:
12429: RAISE Expected_error;
12423: OR l_quote_id = OKL_API.G_MISS_NUM
12424: OR p_khr_id IS NULL
12425: OR p_khr_id = OKL_API.G_MISS_NUM
12426: OR p_kle_id IS NULL
12427: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12428:
12429: RAISE Expected_error;
12430: END IF;
12431:
12467:
12468: RETURN 0;
12469: WHEN OTHERS THEN
12470: -- store SQL error message on message stack for caller
12471: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12472: p_msg_name => 'OKL_UNEXPECTED_ERROR',
12473: p_token1 => 'OKL_SQLCODE',
12474: p_token1_value => SQLCODE,
12475: p_token2 => 'OKL_SQLERRM',
12549: RETURN l_balance;
12550:
12551: EXCEPTION
12552:
12553: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12554: RAISE;
12555:
12556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12557: RAISE;
12552:
12553: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12554: RAISE;
12555:
12556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12557: RAISE;
12558:
12559: WHEN OTHERS THEN
12560:
12557: RAISE;
12558:
12559: WHEN OTHERS THEN
12560:
12561: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
12562: p_msg_name => 'OKL_DB_ERROR',
12563: p_token1 => 'PROG_NAME',
12564: p_token1_value => l_prog_name,
12565: p_token2 => 'SQLCODE',
12566: p_token2_value => sqlcode,
12567: p_token3 => 'SQLERRM',
12568: p_token3_value => sqlerrm);
12569:
12570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12571:
12572: END principal_balance_fee_line;
12573:
12574:
12605: EXCEPTION
12606:
12607: WHEN OTHERS THEN
12608:
12609: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
12610: p_msg_name => 'OKL_DB_ERROR',
12611: p_token1 => 'PROG_NAME',
12612: p_token1_value => l_prog_name,
12613: p_token2 => 'SQLCODE',
12614: p_token2_value => sqlcode,
12615: p_token3 => 'SQLERRM',
12616: p_token3_value => sqlerrm);
12617:
12618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12619:
12620: END principal_balance_financed;
12621:
12622:
12653: EXCEPTION
12654:
12655: WHEN OTHERS THEN
12656:
12657: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
12658: p_msg_name => 'OKL_DB_ERROR',
12659: p_token1 => 'PROG_NAME',
12660: p_token1_value => l_prog_name,
12661: p_token2 => 'SQLCODE',
12662: p_token2_value => sqlcode,
12663: p_token3 => 'SQLERRM',
12664: p_token3_value => sqlerrm);
12665:
12666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12667:
12668: END principal_balance_rollover;
12669:
12670: -- rmunjulu 4299668 Added -- modified to call line_accumulated_deprn
12716: END LOOP;
12717: END IF;
12718:
12719: IF p_khr_id IS NULL
12720: OR p_khr_id = OKL_API.G_MISS_NUM
12721: OR p_kle_id IS NULL
12722: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12723:
12724: RAISE Expected_error;
12718:
12719: IF p_khr_id IS NULL
12720: OR p_khr_id = OKL_API.G_MISS_NUM
12721: OR p_kle_id IS NULL
12722: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12723:
12724: RAISE Expected_error;
12725: END IF;
12726:
12724: RAISE Expected_error;
12725: END IF;
12726:
12727: IF l_quote_id IS NOT NULL
12728: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
12729:
12730: OPEN get_quote_date_csr (l_quote_id);
12731: FETCH get_quote_date_csr INTO l_quote_eff_date;
12732: CLOSE get_quote_date_csr;
12773: IF get_asset_cost_csr%ISOPEN THEN
12774: CLOSE get_asset_cost_csr;
12775: END IF;
12776: -- store SQL error message on message stack for caller
12777: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12778: p_msg_name => 'OKL_UNEXPECTED_ERROR',
12779: p_token1 => 'OKL_SQLCODE',
12780: p_token1_value => SQLCODE,
12781: p_token2 => 'OKL_SQLERRM',
12820: IF cr_unpaid_invoices%ISOPEN THEN
12821: CLOSE cr_unpaid_invoices;
12822: END IF;
12823: -- store SQL error message on message stack for caller
12824: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12825: p_msg_name => 'OKL_UNEXPECTED_ERROR',
12826: p_token1 => 'OKL_SQLCODE',
12827: p_token1_value => SQLCODE,
12828: p_token2 => 'OKL_SQLERRM',
12874: IF cr_unbilled_streams%ISOPEN THEN
12875: CLOSE cr_unbilled_streams;
12876: END IF;
12877: -- store SQL error message on message stack for caller
12878: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12879: p_msg_name => 'OKL_UNEXPECTED_ERROR',
12880: p_token1 => 'OKL_SQLCODE',
12881: p_token1_value => SQLCODE,
12882: p_token2 => 'OKL_SQLERRM',
12924:
12925: BEGIN
12926:
12927: IF p_khr_id IS NULL
12928: OR p_khr_id = OKL_API.G_MISS_NUM
12929: OR p_kle_id IS NULL
12930: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12931:
12932: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
12926:
12927: IF p_khr_id IS NULL
12928: OR p_khr_id = OKL_API.G_MISS_NUM
12929: OR p_kle_id IS NULL
12930: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12931:
12932: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
12933: p_msg_name => 'OKL_INVALID_VALUE',
12934: p_token1 => 'COL_NAME',
12928: OR p_khr_id = OKL_API.G_MISS_NUM
12929: OR p_kle_id IS NULL
12930: OR p_kle_id = OKL_API.G_MISS_NUM THEN
12931:
12932: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
12933: p_msg_name => 'OKL_INVALID_VALUE',
12934: p_token1 => 'COL_NAME',
12935: p_token1_value => 'P_KHR_ID OR P_KLE_ID');
12936:
12946: END LOOP;
12947: END IF;
12948:
12949: IF l_retirement_id IS NULL
12950: OR l_retirement_id = OKL_API.G_MISS_NUM THEN
12951:
12952: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
12953: p_msg_name => 'OKL_INVALID_VALUE',
12954: p_token1 => 'COL_NAME',
12948:
12949: IF l_retirement_id IS NULL
12950: OR l_retirement_id = OKL_API.G_MISS_NUM THEN
12951:
12952: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
12953: p_msg_name => 'OKL_INVALID_VALUE',
12954: p_token1 => 'COL_NAME',
12955: p_token1_value => 'retirement_id');
12956:
12986: x_currency_conversion_rate => l_currency_conversion_rate,
12987: x_currency_conversion_date => l_currency_conversion_date,
12988: x_converted_amount => l_converted_sales_proceeds);
12989:
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);
13019: CLOSE get_asset_sales_proceeds_csr;
13020: END IF;
13021:
13022: -- store SQL error message on message stack for caller
13023: Okl_Api.Set_Message(p_app_name => OKL_API.G_APP_NAME,
13024: p_msg_name => 'OKL_UNEXPECTED_ERROR',
13025: p_token1 => 'OKL_SQLCODE',
13026: p_token1_value => SQLCODE,
13027: p_token2 => 'OKL_SQLERRM',
13049:
13050: BEGIN
13051:
13052: IF p_khr_id IS NULL
13053: OR p_khr_id = OKL_API.G_MISS_NUM
13054: OR p_kle_id IS NULL
13055: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13056:
13057: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
13051:
13052: IF p_khr_id IS NULL
13053: OR p_khr_id = OKL_API.G_MISS_NUM
13054: OR p_kle_id IS NULL
13055: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13056:
13057: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
13058: p_msg_name => 'OKL_INVALID_VALUE',
13059: p_token1 => 'COL_NAME',
13053: OR p_khr_id = OKL_API.G_MISS_NUM
13054: OR p_kle_id IS NULL
13055: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13056:
13057: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
13058: p_msg_name => 'OKL_INVALID_VALUE',
13059: p_token1 => 'COL_NAME',
13060: p_token1_value => 'P_KHR_ID OR P_KLE_ID');
13061:
13072: END IF;
13073:
13074: IF l_quote_id IS NULL THEN
13075:
13076: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
13077: p_msg_name => 'OKL_INVALID_VALUE',
13078: p_token1 => 'COL_NAME',
13079: p_token1_value => 'quote_id');
13080:
13092: p_khr_id => p_khr_id,
13093: p_kle_id => p_kle_id,
13094: p_date => l_quote_eff_from);
13095:
13096: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
13097: RAISE EXPECTED_ERROR;
13098: END IF;
13099:
13100:
13116: CLOSE get_quote_date_csr;
13117: END IF;
13118:
13119: -- store SQL error message on message stack for caller
13120: Okl_Api.Set_Message(p_app_name => OKL_API.G_APP_NAME,
13121: p_msg_name => 'OKL_UNEXPECTED_ERROR',
13122: p_token1 => 'OKL_SQLCODE',
13123: p_token1_value => SQLCODE,
13124: p_token2 => 'OKL_SQLERRM',
13210: END IF;
13211:
13212: IF l_quote_id IS NULL THEN
13213:
13214: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
13215: p_msg_name => 'OKL_INVALID_VALUE',
13216: p_token1 => 'COL_NAME',
13217: p_token1_value => 'QUOTE_ID');
13218:
13232: x_return_status => l_return_status,
13233: p_khr_id => p_khr_id,
13234: p_effective_date => l_quote_eff_from);
13235:
13236: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
13237: RAISE EXPECTED_ERROR;
13238: END IF;
13239:
13240: -- use utility for getting the days (from SGT or Contract)
13244: x_days_in_month => lx_days_in_month,
13245: x_days_in_year => lx_days_in_year,
13246: x_return_status => lx_return_status);
13247:
13248: IF lx_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
13249: RAISE EXPECTED_ERROR;
13250: END IF;
13251:
13252: IF lx_days_in_year = 'ACTUAL' THEN
13317: CLOSE l_dealtype_csr;
13318: END IF;
13319:
13320: -- store SQL error message on message stack for caller
13321: Okl_Api.Set_Message(p_app_name => OKL_API.G_APP_NAME,
13322: p_msg_name => 'OKL_UNEXPECTED_ERROR',
13323: p_token1 => 'OKL_SQLCODE',
13324: p_token1_value => SQLCODE,
13325: p_token2 => 'OKL_SQLERRM',
13330: -- sjalasut, Rebook Change Control Enhancement START
13331:
13332: -- function that returns the sum of unbilled RENT for all active assets on the rebook copy of the contract
13333: FUNCTION cont_rbk_unbilled_receivables(p_contract_id okc_k_headers_b.id%TYPE
13334: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
13335:
13336: -- get all unbilled receivables for all ACTIVE assets
13337: CURSOR cle_rents_csr(cp_contract_id okc_k_headers_b.id%TYPE) IS
13338: SELECT NVL(SUM(sele.amount),0)
13359: lv_rent_assets NUMBER;
13360:
13361: lv_unbilled_recv NUMBER;
13362: BEGIN
13363: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
13364: -- initialize
13365: lv_unbilled_recv := 0;
13366: lv_rent_assets := 0;
13367:
13376: WHEN OTHERS THEN
13377: IF(cle_rents_csr%ISOPEN)THEN
13378: CLOSE cle_rents_csr;
13379: END IF;
13380: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
13381: ,p_msg_name => G_UNEXPECTED_ERROR
13382: ,p_token1 => G_SQLCODE_TOKEN
13383: ,p_token1_value => SQLCODE
13384: ,p_token2 => G_SQLERRM_TOKEN
13387: END cont_rbk_unbilled_receivables;
13388:
13389: -- function that returns the sum of pre-tax income that was not accrued for all active assets on the rebook copy of the contract
13390: FUNCTION cont_rbk_unearned_income(p_contract_id okc_k_headers_b.id%TYPE
13391: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
13392:
13393: CURSOR c_pre_tax_csr(cp_contract_id okc_k_headers_b.id%TYPE) IS
13394: SELECT NVL(SUM(sele.amount),0)
13395: FROM okl_strm_elements sele
13413: AND sts.ste_code = 'ACTIVE'
13414: AND line.chr_id = cp_contract_id;
13415: lv_pre_tax_income NUMBER;
13416: BEGIN
13417: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
13418: lv_pre_tax_income := 0;
13419: OPEN c_pre_tax_csr(cp_contract_id => p_contract_id); FETCH c_pre_tax_csr INTO lv_pre_tax_income;
13420: CLOSE c_pre_tax_csr;
13421: END IF;
13424: WHEN OTHERS THEN
13425: IF(c_pre_tax_csr%ISOPEN)THEN
13426: CLOSE c_pre_tax_csr;
13427: END IF;
13428: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
13429: ,p_msg_name => G_UNEXPECTED_ERROR
13430: ,p_token1 => G_SQLCODE_TOKEN
13431: ,p_token1_value => SQLCODE
13432: ,p_token2 => G_SQLERRM_TOKEN
13434: RETURN NULL;
13435: END cont_rbk_unearned_income;
13436:
13437: -- returns sum of rent not billed for all terminated assets
13438: -- do not send p_contract_line_id as okl_api.g_miss_num
13439: FUNCTION cont_tmt_unbilled_receivables(p_contract_id okc_k_headers_b.id%TYPE
13440: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
13441: -- get all unbilled receivables for all TERMINATED assets
13442: CURSOR cle_rents_csr(cp_contract_id okc_k_headers_b.id%TYPE
13436:
13437: -- returns sum of rent not billed for all terminated assets
13438: -- do not send p_contract_line_id as okl_api.g_miss_num
13439: FUNCTION cont_tmt_unbilled_receivables(p_contract_id okc_k_headers_b.id%TYPE
13440: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
13441: -- get all unbilled receivables for all TERMINATED assets
13442: CURSOR cle_rents_csr(cp_contract_id okc_k_headers_b.id%TYPE
13443: ,cp_contract_line_id okc_k_lines_b.id%TYPE) IS
13444: SELECT NVL(SUM(sele.amount),0)
13466: lv_rent_assets NUMBER;
13467:
13468: lv_unbilled_recv NUMBER;
13469: BEGIN
13470: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
13471: -- initialize
13472: lv_unbilled_recv := 0;
13473: lv_rent_assets := 0;
13474:
13483: WHEN OTHERS THEN
13484: IF(cle_rents_csr%ISOPEN)THEN
13485: CLOSE cle_rents_csr;
13486: END IF;
13487: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
13488: ,p_msg_name => G_UNEXPECTED_ERROR
13489: ,p_token1 => G_SQLCODE_TOKEN
13490: ,p_token1_value => SQLCODE
13491: ,p_token2 => G_SQLERRM_TOKEN
13493: RETURN NULL;
13494: END cont_tmt_unbilled_receivables;
13495:
13496: -- returns sum of pre tax income not accrued for all terminated assets
13497: -- do not send p_contract_line_id as okl_api.g_miss_num
13498: FUNCTION cont_tmt_unearned_income(p_contract_id okc_k_headers_b.id%TYPE
13499: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
13500: CURSOR c_pre_tax_csr(cp_contract_id okc_k_headers_b.id%TYPE ,cp_contract_line_id okc_k_lines_b.id%TYPE) IS
13501: SELECT NVL(SUM(sele.amount),0)
13495:
13496: -- returns sum of pre tax income not accrued for all terminated assets
13497: -- do not send p_contract_line_id as okl_api.g_miss_num
13498: FUNCTION cont_tmt_unearned_income(p_contract_id okc_k_headers_b.id%TYPE
13499: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
13500: CURSOR c_pre_tax_csr(cp_contract_id okc_k_headers_b.id%TYPE ,cp_contract_line_id okc_k_lines_b.id%TYPE) IS
13501: SELECT NVL(SUM(sele.amount),0)
13502: FROM okl_strm_elements sele
13503: --,okl_streams str MGAAP 7263041
13521: AND line.chr_id = cp_contract_id
13522: AND line.id = NVL(cp_contract_line_id, line.id);
13523: lv_pre_tax_income NUMBER;
13524: BEGIN
13525: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
13526: lv_pre_tax_income := 0;
13527: OPEN c_pre_tax_csr(cp_contract_id => p_contract_id, cp_contract_line_id => p_contract_line_id); FETCH c_pre_tax_csr INTO lv_pre_tax_income;
13528: CLOSE c_pre_tax_csr;
13529: END IF;
13532: WHEN OTHERS THEN
13533: IF(c_pre_tax_csr%ISOPEN)THEN
13534: CLOSE c_pre_tax_csr;
13535: END IF;
13536: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
13537: ,p_msg_name => G_UNEXPECTED_ERROR
13538: ,p_token1 => G_SQLCODE_TOKEN
13539: ,p_token1_value => SQLCODE
13540: ,p_token2 => G_SQLERRM_TOKEN
13612: IF cr_next_payment_amt%ISOPEN THEN
13613: CLOSE cr_next_payment_amt;
13614: END IF;
13615: -- store SQL error message on message stack for caller
13616: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
13617: p_msg_name => 'OKL_UNEXPECTED_ERROR',
13618: p_token1 => 'OKL_SQLCODE',
13619: p_token1_value => SQLCODE,
13620: p_token2 => 'OKL_SQLERRM',
13659: -- This function checks for total financed amount on contract is
13660: -- equal to or less than the total amount approved on a Lease Application
13661: -- ######################################################################
13662: FUNCTION check_contract_fin_amount(p_contract_id IN NUMBER,
13663: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
13664: RETURN VARCHAR2 IS
13665:
13666: ln_contract_financed_amount NUMBER;
13667: ln_leaseapp_financed_amount NUMBER;
13715: -- This function checks for total amount funded on a contract is
13716: -- equal to or less than the total amount approved on a Lease Application
13717: -- ######################################################################
13718: FUNCTION check_fund_amount(p_contract_id IN NUMBER,
13719: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
13720: RETURN VARCHAR2 IS
13721:
13722: ln_contract_funded_amount NUMBER;
13723: ln_leaseapp_financed_amount NUMBER;
13741:
13742: BEGIN
13743: ln_contract_funded_amount := okl_funding_pvt.get_total_funded(p_contract_id => p_contract_id);
13744:
13745: IF (p_contract_line_id IS NOT NULL AND p_contract_line_id <> OKL_API.G_MISS_NUM) THEN
13746: OPEN c_get_fund_amount(p_contract_line_id => p_contract_line_id);
13747: FETCH c_get_fund_amount INTO ln_fund_amount;
13748: CLOSE c_get_fund_amount;
13749: END IF;
13786: -- This function checks for Party and Customer Account on Lease Application
13787: -- and Contract are same
13788: -- ######################################################################
13789: FUNCTION check_party_custacct_match(p_contract_id IN NUMBER,
13790: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
13791: RETURN VARCHAR2 IS
13792:
13793: ln_lease_app_id NUMBER;
13794: ln_k_party_id NUMBER;
13842: -- This function checks for Vendor Program on Lease Application and
13843: -- Contract are same
13844: -- ######################################################################
13845: FUNCTION check_vendor_prog_match(p_contract_id IN NUMBER,
13846: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
13847: RETURN VARCHAR2 IS
13848:
13849: CURSOR c_k_vendor_prog_info IS
13850: SELECT khr_id
13896: -- This function checks for Activation date of contract is within the
13897: -- effective dates of Lease Application
13898: -- ######################################################################
13899: FUNCTION check_booking_date(p_contract_id IN NUMBER,
13900: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
13901: RETURN VARCHAR2 IS
13902:
13903: CURSOR c_k_booking_date IS
13904: SELECT date_transaction_occurred
13947: -- This function checks for Funding date of Funding request is within the
13948: -- effective dates of Lease Application
13949: -- ######################################################################
13950: FUNCTION check_funding_date(p_contract_id IN NUMBER,
13951: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
13952: RETURN VARCHAR2 IS
13953:
13954: -- sjalasut, modified the cursor to have p_contract_id mapped to okl_txl_ap_inv_lns_all_b
13955: -- changes made as part of OKLR12B disbursements project.
14004: RETURN NUMBER IS
14005:
14006: l_api_name CONSTANT VARCHAR2(30) := 'ASSET_ACCU_DEPRN_RESERVE';
14007: l_api_version CONSTANT NUMBER := 1;
14008: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
14009: x_msg_count NUMBER;
14010: x_msg_data VARCHAR2(256);
14011:
14012: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
14059:
14060: BEGIN
14061:
14062: IF (( p_contract_id IS NULL ) OR ( p_contract_line_id IS NULL )) THEN
14063: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14064: END IF;
14065:
14066: -- 7626121
14067: l_streams_repo_policy := OKL_STREAMS_SEC_PVT.GET_STREAMS_POLICY;
14081: FETCH l_asset_csr INTO l_asset_rec;
14082: IF( l_asset_csr%NOTFOUND ) THEN
14083:
14084: CLOSE l_asset_csr;
14085: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14086: END IF;
14087: CLOSE l_asset_csr;
14088:
14089: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
14089: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
14090: l_asset_hdr_rec.book_type_code := l_asset_rec.book_type_code;
14091:
14092: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
14093: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
14094: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
14095: );
14096: RAISE OKL_API.G_EXCEPTION_ERROR;
14097: END IF;
14092: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
14093: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
14094: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
14095: );
14096: RAISE OKL_API.G_EXCEPTION_ERROR;
14097: END IF;
14098:
14099:
14100: -- To fetch Depreciation Reserve
14103: px_asset_deprn_rec => l_asset_deprn_rec,
14104: p_period_counter => NULL,
14105: p_mrc_sob_type_code => 'P'
14106: ) THEN
14107: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
14108: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
14109: );
14110: RAISE OKL_API.G_EXCEPTION_ERROR;
14111: END IF;
14106: ) THEN
14107: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
14108: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
14109: );
14110: RAISE OKL_API.G_EXCEPTION_ERROR;
14111: END IF;
14112:
14113:
14114:
14130: x_currency_conversion_date => l_currency_conversion_date,
14131: x_converted_amount => l_converted_amount);
14132:
14133:
14134: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
14135: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
14136: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
14137: RAISE Okl_Api.G_EXCEPTION_ERROR;
14138: END IF;
14131: x_converted_amount => l_converted_amount);
14132:
14133:
14134: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
14135: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
14136: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
14137: RAISE Okl_Api.G_EXCEPTION_ERROR;
14138: END IF;
14139:
14133:
14134: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
14135: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
14136: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
14137: RAISE Okl_Api.G_EXCEPTION_ERROR;
14138: END IF;
14139:
14140: RETURN l_converted_amount;
14141:
14140: RETURN l_converted_amount;
14141:
14142: EXCEPTION
14143:
14144: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14145: RETURN NULL;
14146:
14147: WHEN OTHERS THEN
14148: Okl_Api.SET_MESSAGE(
14144: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14145: RETURN NULL;
14146:
14147: WHEN OTHERS THEN
14148: Okl_Api.SET_MESSAGE(
14149: p_app_name => G_APP_NAME,
14150: p_msg_name => G_UNEXPECTED_ERROR,
14151: p_token1 => G_SQLCODE_TOKEN,
14152: p_token1_value => SQLCODE,
14235: to_number(okl_execute_formula_pub.g_additional_parameters(1).value);
14236: END IF;
14237:
14238: IF (l_asset_id IS NULL) THEN
14239: RAISE OKL_API.G_EXCEPTION_ERROR;
14240: END IF;
14241:
14242: -- get asset cost
14243: l_asset_cost := 0;
14244: OPEN c_asset_cost(l_asset_id);
14245: FETCH c_asset_cost INTO l_asset_cost;
14246: IF( c_asset_cost%NOTFOUND ) THEN
14247: CLOSE c_asset_cost;
14248: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14249: END IF;
14250: CLOSE c_asset_cost;
14251:
14252: -- get add-on amount
14285: l_cap_down_pmnt - l_trade_in_amnt;
14286:
14287: RETURN l_financed_amount;
14288: EXCEPTION
14289: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14290: IF c_asset_cost%ISOPEN THEN
14291: CLOSE c_asset_cost;
14292: END IF;
14293: IF c_addOn_cost%ISOPEN THEN
14303: CLOSE c_tradein_amnt;
14304: END IF;
14305: RETURN NULL;
14306: WHEN OTHERS THEN
14307: Okl_Api.SET_MESSAGE(
14308: p_app_name => G_APP_NAME,
14309: p_msg_name => G_UNEXPECTED_ERROR,
14310: p_token1 => G_SQLCODE_TOKEN,
14311: p_token1_value => SQLCODE,
14347: FUNCTION line_financed_amount(p_contract_id IN NUMBER
14348: ,p_contract_line_id IN NUMBER)
14349: RETURN NUMBER IS
14350: G_APP_NAME CONSTANT VARCHAR2(3) :=
14351: OKL_API.G_APP_NAME;
14352: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
14353: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) :=
14354: OKL_API.G_COL_NAME_TOKEN;
14355: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) :=
14350: G_APP_NAME CONSTANT VARCHAR2(3) :=
14351: OKL_API.G_APP_NAME;
14352: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
14353: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) :=
14354: OKL_API.G_COL_NAME_TOKEN;
14355: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) :=
14356: 'OKL_LLA_NO_MATCHING_RECORD';
14357: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
14358: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
14360: 'OKL_LLA_LINE_RECORD';
14361: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) :=
14362: 'OKL_LLA_INVALID_CRITERIA';
14363: l_return_status VARCHAR2(3) :=
14364: OKL_API.G_RET_STS_SUCCESS;
14365:
14366: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
14367: l_financed_amount NUMBER;
14368: l_asset_cost NUMBER;
14479: BEGIN
14480: -- To get the Line Style Code
14481: OPEN get_lty_code(p_line_id => p_contract_line_id);
14482: IF get_lty_code%NOTFOUND THEN
14483: OKL_API.set_message(p_app_name => G_APP_NAME,
14484: p_msg_name => G_NO_MATCHING_RECORD,
14485: p_token1 => G_COL_NAME_TOKEN,
14486: p_token1_value => 'Financial Asset Line');
14487: RAISE OKL_API.G_EXCEPTION_ERROR;
14483: OKL_API.set_message(p_app_name => G_APP_NAME,
14484: p_msg_name => G_NO_MATCHING_RECORD,
14485: p_token1 => G_COL_NAME_TOKEN,
14486: p_token1_value => 'Financial Asset Line');
14487: RAISE OKL_API.G_EXCEPTION_ERROR;
14488: END IF;
14489: FETCH get_lty_code INTO l_lty_code;
14490: CLOSE get_lty_code;
14491:
14493: -- To get the asset cost
14494: OPEN c_asset_cost(p_line_id => p_contract_line_id,
14495: p_dnz_chr_id => p_contract_id);
14496: IF c_asset_cost%NOTFOUND THEN
14497: OKL_API.set_message(p_app_name => G_APP_NAME,
14498: p_msg_name => G_NO_MATCHING_RECORD,
14499: p_token1 => G_COL_NAME_TOKEN,
14500: p_token1_value => 'Model Line');
14501: RAISE OKL_API.G_EXCEPTION_ERROR;
14497: OKL_API.set_message(p_app_name => G_APP_NAME,
14498: p_msg_name => G_NO_MATCHING_RECORD,
14499: p_token1 => G_COL_NAME_TOKEN,
14500: p_token1_value => 'Model Line');
14501: RAISE OKL_API.G_EXCEPTION_ERROR;
14502: END IF;
14503: FETCH c_asset_cost INTO l_asset_cost;
14504: CLOSE c_asset_cost;
14505:
14551: l_cap_down_pmnt - l_trade_in;
14552: END IF;
14553:
14554: ELSE
14555: OKL_API.set_message(p_app_name => G_APP_NAME,
14556: p_msg_name => G_LINE_RECORD);
14557: RAISE OKL_API.G_EXCEPTION_ERROR;
14558: END IF;
14559: RETURN l_financed_amount;
14553:
14554: ELSE
14555: OKL_API.set_message(p_app_name => G_APP_NAME,
14556: p_msg_name => G_LINE_RECORD);
14557: RAISE OKL_API.G_EXCEPTION_ERROR;
14558: END IF;
14559: RETURN l_financed_amount;
14560: EXCEPTION
14561: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14557: RAISE OKL_API.G_EXCEPTION_ERROR;
14558: END IF;
14559: RETURN l_financed_amount;
14560: EXCEPTION
14561: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14562: -- If the cursor is open then it has to be closed
14563: IF get_lty_code%ISOPEN THEN
14564: CLOSE get_lty_code;
14565: END IF;
14617: FUNCTION front_end_financed_amount( p_contract_id IN NUMBER
14618: ,p_contract_line_id IN NUMBER)
14619: RETURN NUMBER IS
14620: G_APP_NAME CONSTANT VARCHAR2(3) :=
14621: OKL_API.G_APP_NAME;
14622: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
14623: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
14624: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
14625: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) :=
14635: l_financed_amt := lease_quote_financed_amount;
14636:
14637: -- Call from AUTHORING
14638: ELSIF (p_contract_id IS NOT NULL OR
14639: p_contract_id <> Okl_Api.G_MISS_NUM) AND
14640: (p_contract_line_id IS NOT NULL OR
14641: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
14642: l_financed_amt := line_financed_amount(p_contract_id => p_contract_id,
14643: p_contract_line_id =>
14637: -- Call from AUTHORING
14638: ELSIF (p_contract_id IS NOT NULL OR
14639: p_contract_id <> Okl_Api.G_MISS_NUM) AND
14640: (p_contract_line_id IS NOT NULL OR
14641: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
14642: l_financed_amt := line_financed_amount(p_contract_id => p_contract_id,
14643: p_contract_line_id =>
14644: p_contract_line_id);
14645:
14643: p_contract_line_id =>
14644: p_contract_line_id);
14645:
14646: ELSE
14647: RAISE OKL_API.G_EXCEPTION_ERROR;
14648: END IF;
14649:
14650: RETURN l_financed_amt;
14651:
14649:
14650: RETURN l_financed_amt;
14651:
14652: EXCEPTION
14653: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14654: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
14655: p_msg_name => G_INVALID_CRITERIA);
14656: RETURN NULL;
14657: WHEN OTHERS THEN
14650: RETURN l_financed_amt;
14651:
14652: EXCEPTION
14653: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14654: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
14655: p_msg_name => G_INVALID_CRITERIA);
14656: RETURN NULL;
14657: WHEN OTHERS THEN
14658: OKL_API.SET_MESSAGE(
14654: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
14655: p_msg_name => G_INVALID_CRITERIA);
14656: RETURN NULL;
14657: WHEN OTHERS THEN
14658: OKL_API.SET_MESSAGE(
14659: p_app_name => G_APP_NAME,
14660: p_msg_name => G_UNEXPECTED_ERROR,
14661: p_token1 => G_SQLCODE_TOKEN,
14662: p_token1_value => SQLCODE,
14677: -- --------------------------------------------------------------------
14678: FUNCTION total_asset_addon_cost ( p_contract_id IN NUMBER
14679: ,p_contract_line_id IN NUMBER)
14680: RETURN NUMBER IS
14681: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
14682: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
14683: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
14684: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
14685: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
14725:
14726: BEGIN
14727:
14728: IF (p_contract_id IS NOT NULL OR
14729: p_contract_id <> Okl_Api.G_MISS_NUM) AND
14730: (p_contract_line_id IS NOT NULL OR
14731: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
14732:
14733: OPEN c_addon_cost_csr ( p_contract_id => p_contract_id,
14727:
14728: IF (p_contract_id IS NOT NULL OR
14729: p_contract_id <> Okl_Api.G_MISS_NUM) AND
14730: (p_contract_line_id IS NOT NULL OR
14731: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
14732:
14733: OPEN c_addon_cost_csr ( p_contract_id => p_contract_id,
14734: p_contract_line_id => p_contract_line_id);
14735:
14746: RETURN(l_addon_cost);
14747:
14748:
14749: EXCEPTION
14750: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14751: IF c_addon_cost_csr%ISOPEN THEN
14752: CLOSE c_addon_cost_csr;
14753: END IF;
14754:
14751: IF c_addon_cost_csr%ISOPEN THEN
14752: CLOSE c_addon_cost_csr;
14753: END IF;
14754:
14755: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
14756: p_msg_name => G_INVALID_CRITERIA);
14757: RETURN NULL;
14758:
14759:
14761: --sechawla 18-nov-08 : close cursor
14762: IF c_addon_cost_csr%ISOPEN THEN
14763: CLOSE c_addon_cost_csr;
14764: END IF;
14765: OKL_API.SET_MESSAGE(
14766: p_app_name => G_APP_NAME,
14767: p_msg_name => G_UNEXPECTED_ERROR,
14768: p_token1 => G_SQLCODE_TOKEN,
14769: p_token1_value => SQLCODE,
14792: p_fin_asset_line_id IN NUMBER,
14793: p_accounting_method IN VARCHAR2)
14794: RETURN NUMBER IS
14795:
14796: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14797: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY';
14798: l_api_version CONSTANT NUMBER := 1.0;
14799: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
14800: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
14795:
14796: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14797: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY';
14798: l_api_version CONSTANT NUMBER := 1.0;
14799: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
14800: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
14801: lx_msg_data VARCHAR2(2000);
14802:
14803: x_subsidy_amount NUMBER;
14796: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14797: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY';
14798: l_api_version CONSTANT NUMBER := 1.0;
14799: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
14800: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
14801: lx_msg_data VARCHAR2(2000);
14802:
14803: x_subsidy_amount NUMBER;
14804:
14834:
14835: x_subsidy_amount := 0;
14836:
14837:
14838: IF(p_accounting_method IS NULL OR p_accounting_method = OKL_API.G_MISS_CHAR) THEN
14839: l_accounting_method := NULL;
14840: ELSE
14841: l_accounting_method := p_accounting_method;
14842: END IF;
14855:
14856: RETURN x_subsidy_amount;
14857:
14858: EXCEPTION
14859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14860: IF l_sub_csr%ISOPEN THEN
14861: CLOSE l_sub_csr;
14862: END IF;
14863: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
14859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14860: IF l_sub_csr%ISOPEN THEN
14861: CLOSE l_sub_csr;
14862: END IF;
14863: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
14864: l_api_name,
14865: G_PKG_NAME,
14866: 'OKL_API.G_RET_STS_ERROR',
14867: lx_msg_count,
14862: END IF;
14863: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
14864: l_api_name,
14865: G_PKG_NAME,
14866: 'OKL_API.G_RET_STS_ERROR',
14867: lx_msg_count,
14868: lx_msg_data,
14869: '_PVT');
14870: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14866: 'OKL_API.G_RET_STS_ERROR',
14867: lx_msg_count,
14868: lx_msg_data,
14869: '_PVT');
14870: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14871: IF l_sub_csr%ISOPEN THEN
14872: CLOSE l_sub_csr;
14873: END IF;
14874: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14870: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14871: IF l_sub_csr%ISOPEN THEN
14872: CLOSE l_sub_csr;
14873: END IF;
14874: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14875: l_api_name,
14876: G_PKG_NAME,
14877: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14878: lx_msg_count,
14873: END IF;
14874: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14875: l_api_name,
14876: G_PKG_NAME,
14877: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14878: lx_msg_count,
14879: lx_msg_data,
14880: '_PVT');
14881: WHEN OTHERS THEN
14881: WHEN OTHERS THEN
14882: IF l_sub_csr%ISOPEN THEN
14883: CLOSE l_sub_csr;
14884: END IF;
14885: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14886: l_api_name,
14887: G_PKG_NAME,
14888: 'OTHERS',
14889: lx_msg_count,
14912: p_fin_asset_line_id IN NUMBER,
14913: p_accounting_method IN VARCHAR2)
14914: RETURN NUMBER IS
14915:
14916: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14917: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY_OVRD';
14918: l_api_version CONSTANT NUMBER := 1.0;
14919: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
14920: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
14915:
14916: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14917: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY_OVRD';
14918: l_api_version CONSTANT NUMBER := 1.0;
14919: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
14920: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
14921: lx_msg_data VARCHAR2(2000);
14922:
14923: x_subsidy_amount NUMBER;
14916: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14917: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY_OVRD';
14918: l_api_version CONSTANT NUMBER := 1.0;
14919: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
14920: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
14921: lx_msg_data VARCHAR2(2000);
14922:
14923: x_subsidy_amount NUMBER;
14924:
14953: l_asset_line_subs_ovrd_amn := 0;
14954:
14955: x_subsidy_amount := 0;
14956:
14957: IF(p_accounting_method IS NULL OR p_accounting_method = OKL_API.G_MISS_CHAR) THEN
14958: l_accounting_method := NULL;
14959: ELSE
14960: l_accounting_method := p_accounting_method;
14961: END IF;
14974:
14975: RETURN x_subsidy_amount;
14976:
14977: EXCEPTION
14978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14979: IF l_sub_csr%ISOPEN THEN
14980: CLOSE l_sub_csr;
14981: END IF;
14982: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
14978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14979: IF l_sub_csr%ISOPEN THEN
14980: CLOSE l_sub_csr;
14981: END IF;
14982: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
14983: l_api_name,
14984: G_PKG_NAME,
14985: 'OKL_API.G_RET_STS_ERROR',
14986: lx_msg_count,
14981: END IF;
14982: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
14983: l_api_name,
14984: G_PKG_NAME,
14985: 'OKL_API.G_RET_STS_ERROR',
14986: lx_msg_count,
14987: lx_msg_data,
14988: '_PVT');
14989: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14985: 'OKL_API.G_RET_STS_ERROR',
14986: lx_msg_count,
14987: lx_msg_data,
14988: '_PVT');
14989: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14990: IF l_sub_csr%ISOPEN THEN
14991: CLOSE l_sub_csr;
14992: END IF;
14993: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14989: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14990: IF l_sub_csr%ISOPEN THEN
14991: CLOSE l_sub_csr;
14992: END IF;
14993: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14994: l_api_name,
14995: G_PKG_NAME,
14996: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14997: lx_msg_count,
14992: END IF;
14993: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14994: l_api_name,
14995: G_PKG_NAME,
14996: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14997: lx_msg_count,
14998: lx_msg_data,
14999: '_PVT');
15000: WHEN OTHERS THEN
15000: WHEN OTHERS THEN
15001: IF l_sub_csr%ISOPEN THEN
15002: CLOSE l_sub_csr;
15003: END IF;
15004: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15005: l_api_name,
15006: G_PKG_NAME,
15007: 'OTHERS',
15008: lx_msg_count,
15028: p_chr_id IN NUMBER,
15029: p_line_id IN NUMBER) RETURN NUMBER IS
15030:
15031: l_api_version CONSTANT NUMBER := 1;
15032: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
15033: x_msg_count NUMBER;
15034: x_msg_data VARCHAR2(256);
15035:
15036: l_Asset_Fin_fees_amt NUMBER := 0;
15084:
15085: BEGIN
15086:
15087: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL)) THEN
15088: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15089: END IF;
15090:
15091:
15092: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15123: IF l_fee_csr%ISOPEN THEN
15124: CLOSE l_fee_csr;
15125: END IF;
15126:
15127: Okl_Api.SET_MESSAGE(
15128: p_app_name => G_APP_NAME,
15129: p_msg_name => G_UNEXPECTED_ERROR,
15130: p_token1 => G_SQLCODE_TOKEN,
15131: p_token1_value => SQLCODE,
15152: p_chr_id IN NUMBER,
15153: p_line_id IN NUMBER) RETURN NUMBER IS
15154:
15155: l_api_version CONSTANT NUMBER := 1;
15156: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
15157: x_msg_count NUMBER;
15158: x_msg_data VARCHAR2(256);
15159:
15160: l_Asset_Roll_fees_amt NUMBER := 0;
15208:
15209: BEGIN
15210:
15211: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL)) THEN
15212: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15213: END IF;
15214:
15215:
15216: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
15247: IF l_fee_csr%ISOPEN THEN
15248: CLOSE l_fee_csr;
15249: END IF;
15250:
15251: Okl_Api.SET_MESSAGE(
15252: p_app_name => G_APP_NAME,
15253: p_msg_name => G_UNEXPECTED_ERROR,
15254: p_token1 => G_SQLCODE_TOKEN,
15255: p_token1_value => SQLCODE,