[Home] [Help]
74: l_monthly_premium := l_amount / l_freq_factor ;
75: RETURN l_monthly_premium;
76: EXCEPTION
77: WHEN OTHERS THEN
78: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
79: p_msg_name => 'OKL_UNEXPECTED_ERROR',
80: p_token1 => 'OKL_SQLCODE',
81: p_token1_value => SQLCODE,
82: p_token2 => 'OKL_SQLERRM',
100: ----------------------------------------------------------------------------------------------------
101:
102: FUNCTION INS_REFUNDABLE_MONTHS(
103: p_contract_id IN NUMBER
104: -- ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
105: ,p_contract_line_id IN NUMBER
106: )
107: RETURN NUMBER
108: IS
148: l_total_consumed_months NUMBER;
149: l_unconsumed_months NUMBER;
150: l_cancellation_date DATE; ---++ Ins Effective Dated Term Changes ++----
151: l_cancellation_reason VARCHAR2(30);---++ Ins Effective Dated Term Changes ++----
152: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
153:
154: BEGIN
155: -- ********************************************
156: -- Extract Insurance Cancellation Date from global variables
285: END IF;
286:
287: EXCEPTION
288: WHEN OTHERS THEN
289: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
290: p_msg_name => 'OKL_UNEXPECTED_ERROR',
291: p_token1 => 'OKL_SQLCODE',
292: p_token1_value => SQLCODE,
293: p_token2 => 'OKL_SQLERRM',
341: END IF;
342: END LOOP;
343: ELSE
344: -- Additional parameters are needed to evaluate taxable basis override formula LINE_TAXABLE_BASIS.
345: OKL_API.set_message(p_app_name => 'OKL',
346: p_msg_name => 'OKL_TX_NO_TBO_PARAMS');
347: RAISE Okl_Api.G_EXCEPTION_ERROR;
348:
349: END IF;
343: ELSE
344: -- Additional parameters are needed to evaluate taxable basis override formula LINE_TAXABLE_BASIS.
345: OKL_API.set_message(p_app_name => 'OKL',
346: p_msg_name => 'OKL_TX_NO_TBO_PARAMS');
347: RAISE Okl_Api.G_EXCEPTION_ERROR;
348:
349: END IF;
350:
351: IF l_source_trx_name IS NULL THEN
348:
349: END IF;
350:
351: IF l_source_trx_name IS NULL THEN
352: OKL_API.set_message( p_app_name => 'OKC',
353: p_msg_name => G_REQUIRED_VALUE,
354: p_token1 => G_COL_NAME_TOKEN,
355: p_token1_value => 'SOURCE_TRX_NAME');
356:
353: p_msg_name => G_REQUIRED_VALUE,
354: p_token1 => G_COL_NAME_TOKEN,
355: p_token1_value => 'SOURCE_TRX_NAME');
356:
357: RAISE Okl_Api.G_EXCEPTION_ERROR;
358: END IF;
359:
360: IF l_line_taxable_basis IS NULL THEN
361: OKL_API.set_message( p_app_name => 'OKC',
357: RAISE Okl_Api.G_EXCEPTION_ERROR;
358: END IF;
359:
360: IF l_line_taxable_basis IS NULL THEN
361: OKL_API.set_message( p_app_name => 'OKC',
362: p_msg_name => G_REQUIRED_VALUE,
363: p_token1 => G_COL_NAME_TOKEN,
364: p_token1_value => 'DEFAULT_TAXABLE_BASIS');
365:
362: p_msg_name => G_REQUIRED_VALUE,
363: p_token1 => G_COL_NAME_TOKEN,
364: p_token1_value => 'DEFAULT_TAXABLE_BASIS');
365:
366: RAISE Okl_Api.G_EXCEPTION_ERROR;
367: END IF;
368:
369: IF l_source_trx_name IN ('Booking','Rebook','Sales Quote') AND l_line_name IS NULL THEN
370: --Contract Header or Sales Quote Header level tax call
374: END IF;
375:
376: EXCEPTION
377:
378: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
379: RETURN NULL;
380:
381: WHEN OTHERS THEN
382:
379: RETURN NULL;
380:
381: WHEN OTHERS THEN
382:
383: OKL_API.SET_MESSAGE (
384: p_app_name => OKL_API.G_APP_NAME,
385: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
386: p_token1 => 'SQLCODE',
387: p_token1_value => SQLCODE,
380:
381: WHEN OTHERS THEN
382:
383: OKL_API.SET_MESSAGE (
384: p_app_name => OKL_API.G_APP_NAME,
385: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
386: p_token1 => 'SQLCODE',
387: p_token1_value => SQLCODE,
388: p_token2 => 'SQLERRM',
409: p_line_id IN NUMBER) RETURN NUMBER IS
410:
411: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_SUM_OF_RENTS';
412: l_api_version CONSTANT NUMBER := 1;
413: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
414: x_msg_count NUMBER;
415: x_msg_data VARCHAR2(256);
416:
417: l_rents NUMBER := 0;
500:
501: BEGIN
502:
503: IF ( p_chr_id IS NULL ) THEN
504: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
505: END IF;
506:
507: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
508: -- If set then based on its value set l_line_type
574:
575:
576: EXCEPTION
577: WHEN OTHERS THEN
578: Okl_Api.SET_MESSAGE(
579: p_app_name => G_APP_NAME,
580: p_msg_name => G_UNEXPECTED_ERROR,
581: p_token1 => G_SQLCODE_TOKEN,
582: p_token1_value => SQLCODE,
603: p_line_id IN NUMBER) RETURN NUMBER IS
604:
605: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_INCOME';
606: l_api_version CONSTANT NUMBER := 1;
607: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
608: x_msg_count NUMBER;
609: x_msg_data VARCHAR2(256);
610:
611: l_income NUMBER := 0;
612:
613: BEGIN
614:
615: IF ( p_chr_id IS NULL ) THEN
616: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
617: END IF;
618: --
619: -- Note: User defined stream: This stream type has been identified as
620: -- "Not being used" and hence not modified with its purpose
637:
638: EXCEPTION
639:
640: WHEN OTHERS THEN
641: Okl_Api.SET_MESSAGE(
642: p_app_name => G_APP_NAME,
643: p_msg_name => G_UNEXPECTED_ERROR,
644: p_token1 => G_SQLCODE_TOKEN,
645: p_token1_value => SQLCODE,
671: p_line_id IN NUMBER) RETURN NUMBER IS
672:
673: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_RESIDUAL_VALUE';
674: l_api_version CONSTANT NUMBER := 1;
675: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
676: x_msg_count NUMBER;
677: x_msg_data VARCHAR2(256);
678:
679: l_residual_value NUMBER := 0.0;
732:
733: BEGIN
734:
735: IF ( ( p_chr_id IS NULL ) OR ( p_line_id IS NULL ) ) THEN
736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
737:
738: END IF;
739:
740: -- SECHAWLA 05-MAY-04 3578894 : check the additional parameter for rep product
764:
765: IF l_rep_prod_streams_yn = 'Y' THEN
766: IF l_trx_date IS NULL THEN
767: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
768: Okl_Api.Set_Message(p_app_name => g_app_name,
769: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
770: RAISE Okl_Api.G_EXCEPTION_ERROR;
771: END IF;
772: END IF;
766: IF l_trx_date IS NULL THEN
767: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
768: Okl_Api.Set_Message(p_app_name => g_app_name,
769: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
770: RAISE Okl_Api.G_EXCEPTION_ERROR;
771: END IF;
772: END IF;
773:
774: IF l_rep_prod_streams_yn = 'Y' THEN
801: IF l_discount_incl_terminated THEN
802: OPEN residual_csr_incl_terminated( p_chr_id, p_line_id );
803: FETCH residual_csr_incl_terminated INTO residual_rec;
804: IF( residual_csr_incl_terminated%NOTFOUND ) THEN
805: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
806: END IF;
807: CLOSE residual_csr_incl_terminated;
808: ELSE
809: OPEN residual_csr( p_chr_id, p_line_id );
808: ELSE
809: OPEN residual_csr( p_chr_id, p_line_id );
810: FETCH residual_csr INTO residual_rec;
811: IF( residual_csr%NOTFOUND ) THEN
812: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
813: END IF;
814: CLOSE residual_csr;
815: END IF;
816:
821: l_residual_value := residual_rec.Value;
822: ELSE
823: l_oec := line_oec( p_chr_id, p_line_id );
824: IF ( l_oec IS NULL ) THEN
825: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
826: END IF;
827: l_residual_value := residual_rec.Percent * l_oec / 100.00;
828: END IF;
829: END IF; --BUG 7439724
835:
836: RETURN l_residual_value;
837:
838: EXCEPTION
839: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
840: IF residual_csr%ISOPEN THEN
841: CLOSE residual_csr;
842: END IF;
843:
846: END IF;
847:
848: RETURN NULL;
849: -- SECHAWLA 02-FEB-05 4141411 : Added unexpected error exception handling block
850: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
851: IF residual_csr%ISOPEN THEN
852: CLOSE residual_csr;
853: END IF;
854:
865: IF l_contract_csr%ISOPEN THEN
866: CLOSE l_contract_csr;
867: END IF;
868:
869: Okl_Api.SET_MESSAGE(
870: p_app_name => G_APP_NAME,
871: p_msg_name => G_UNEXPECTED_ERROR,
872: p_token1 => G_SQLCODE_TOKEN,
873: p_token1_value => SQLCODE,
895: p_line_id IN NUMBER) RETURN NUMBER IS
896:
897: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';
898: l_api_version CONSTANT NUMBER := 1;
899: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
900: x_msg_count NUMBER;
901: x_msg_data VARCHAR2(256);
902:
903: l_residual_value NUMBER := 0.0;
935:
936: BEGIN
937:
938: IF ( p_chr_id IS NULL ) THEN
939: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
940: END IF;
941:
942: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
943: -- If set then based on its value set l_line_type
964:
965: FOR line_nr_rec IN lines_nr_csr( p_chr_id, l_line_type )
966: LOOP
967: IF( lines_nr_csr%NOTFOUND ) THEN
968: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
969: END IF;
970: l_lne_res_value := line_residual_value( p_chr_id, line_nr_rec.lineId );
971: IF ( l_lne_res_value IS NULL ) THEN
972: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
968: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
969: END IF;
970: l_lne_res_value := line_residual_value( p_chr_id, line_nr_rec.lineId );
971: IF ( l_lne_res_value IS NULL ) THEN
972: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
973: END IF;
974: l_residual_value := l_residual_value + l_lne_res_value;
975: END LOOP;
976:
979:
980: FOR line_rec IN lines_csr( p_chr_id )
981: LOOP
982: IF( lines_csr%NOTFOUND ) THEN
983: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
984: END IF;
985: l_lne_res_value := line_residual_value( p_chr_id, line_rec.lineId );
986: IF ( l_lne_res_value IS NULL ) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
983: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
984: END IF;
985: l_lne_res_value := line_residual_value( p_chr_id, line_rec.lineId );
986: IF ( l_lne_res_value IS NULL ) THEN
987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
988: END IF;
989: l_residual_value := l_residual_value + l_lne_res_value;
990: END LOOP;
991:
997:
998: EXCEPTION
999:
1000: WHEN OTHERS THEN
1001: Okl_Api.SET_MESSAGE(
1002: p_app_name => G_APP_NAME,
1003: p_msg_name => G_UNEXPECTED_ERROR,
1004: p_token1 => G_SQLCODE_TOKEN,
1005: p_token1_value => SQLCODE,
1027: p_line_id IN NUMBER) RETURN NUMBER IS
1028:
1029: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_OEC';
1030: l_api_version CONSTANT NUMBER := 1;
1031: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1032: x_msg_count NUMBER;
1033: x_msg_data VARCHAR2(256);
1034:
1035: BEGIN
1052: -- Version : 1.0
1053: -- End of Commnets
1054:
1055: FUNCTION line_oec(p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
1056: --p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE DEFAULT Okl_Api.G_MISS_NUM)
1057: p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE )
1058: RETURN NUMBER IS
1059: G_APP_NAME CONSTANT VARCHAR2(3) := Okl_Api.G_APP_NAME;
1060: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
1055: FUNCTION line_oec(p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
1056: --p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE DEFAULT Okl_Api.G_MISS_NUM)
1057: p_cle_id IN OKC_K_LINES_V.CLE_ID%TYPE )
1058: RETURN NUMBER IS
1059: G_APP_NAME CONSTANT VARCHAR2(3) := Okl_Api.G_APP_NAME;
1060: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
1061: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
1062: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_COL_NAME_TOKEN;
1063: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
1058: RETURN NUMBER IS
1059: G_APP_NAME CONSTANT VARCHAR2(3) := Okl_Api.G_APP_NAME;
1060: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
1061: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
1062: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := Okl_Api.G_COL_NAME_TOKEN;
1063: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
1064: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
1065: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
1066: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
1072: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
1073: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
1074: G_LEASE_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LEASE';
1075: G_LOAN_SCS_CODE OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LOAN';
1076: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
1077: l_api_name CONSTANT VARCHAR2(30) := 'FUNCTION_OEC_CALC';
1078: ln_contract_oec OKL_K_LINES_V.OEC%TYPE := 0;
1079: lv_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
1080: ln_model_line_oec OKL_K_LINES_V.OEC%TYPE := 0;
1273: FROM OKC_K_HEADERS_B CHR
1274: WHERE CHR.id = p_dnz_chr_id; --);
1275: BEGIN
1276: -- initialize return status
1277: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1278: -- data is required
1279: IF (p_dnz_chr_id = Okl_Api.G_MISS_NUM) OR
1280: (p_dnz_chr_id IS NULL) THEN
1281: -- store SQL error message on message stack
1275: BEGIN
1276: -- initialize return status
1277: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1278: -- data is required
1279: IF (p_dnz_chr_id = Okl_Api.G_MISS_NUM) OR
1280: (p_dnz_chr_id IS NULL) THEN
1281: -- store SQL error message on message stack
1282: Okl_Api.set_message(p_app_name => G_APP_NAME,
1283: p_msg_name => G_REQUIRED_VALUE,
1278: -- data is required
1279: IF (p_dnz_chr_id = Okl_Api.G_MISS_NUM) OR
1280: (p_dnz_chr_id IS NULL) THEN
1281: -- store SQL error message on message stack
1282: Okl_Api.set_message(p_app_name => G_APP_NAME,
1283: p_msg_name => G_REQUIRED_VALUE,
1284: p_token1 => G_COL_NAME_TOKEN,
1285: p_token1_value => 'P_DNZ_CHR_ID');
1286: -- halt validation as it is a required field
1291: -- we assume the cle_id will not null
1292: -- as the same is not top line and it will be sub line
1293: OPEN c_dnz_chr_id_validate(p_dnz_chr_id);
1294: IF c_dnz_chr_id_validate%NOTFOUND THEN
1295: Okl_Api.set_message(p_app_name => G_APP_NAME,
1296: p_msg_name => G_NO_MATCHING_RECORD,
1297: p_token1 => G_COL_NAME_TOKEN,
1298: p_token1_value => 'P_DNZ_CHR_ID');
1299: -- halt validation as it has no parent record
1301: END IF;
1302: FETCH c_dnz_chr_id_validate INTO ln_dummy;
1303: CLOSE c_dnz_chr_id_validate;
1304: IF (ln_dummy = 0) THEN
1305: Okl_Api.set_message(p_app_name => G_APP_NAME,
1306: p_msg_name => G_NO_MATCHING_RECORD,
1307: p_token1 => G_COL_NAME_TOKEN,
1308: p_token1_value => 'P_DNZ_CHR_ID');
1309: -- halt validation as it has no parent record
1312: EXCEPTION
1313: WHEN G_EXCEPTION_STOP_VALIDATION THEN
1314: -- We are here since the field is required
1315: -- Notify Error
1316: x_return_status := Okl_Api.G_RET_STS_ERROR;
1317: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1318: -- If the cursor is open then it has to be closed
1319: IF c_dnz_chr_id_validate%ISOPEN THEN
1320: CLOSE c_dnz_chr_id_validate;
1318: -- If the cursor is open then it has to be closed
1319: IF c_dnz_chr_id_validate%ISOPEN THEN
1320: CLOSE c_dnz_chr_id_validate;
1321: END IF;
1322: x_return_status := Okl_Api.G_RET_STS_ERROR;
1323: WHEN OTHERS THEN
1324: -- store SQL error message on message stack
1325: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1326: p_msg_name => G_UNEXPECTED_ERROR,
1321: END IF;
1322: x_return_status := Okl_Api.G_RET_STS_ERROR;
1323: WHEN OTHERS THEN
1324: -- store SQL error message on message stack
1325: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1326: p_msg_name => G_UNEXPECTED_ERROR,
1327: p_token1 => G_SQLCODE_TOKEN,
1328: p_token1_value => SQLCODE,
1329: p_token2 => G_SQLERRM_TOKEN,
1332: IF c_dnz_chr_id_validate%ISOPEN THEN
1333: CLOSE c_dnz_chr_id_validate;
1334: END IF;
1335: -- notify caller of an error as UNEXPETED error
1336: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1337: END validate_dnz_chr_id;
1338: ----------------------------------------------------------------------------------------------------
1339: BEGIN
1340: -- We need to validate the dnz_chr_id first
1340: -- We need to validate the dnz_chr_id first
1341: -- We are taking care of the validating p_cle_id via cursor we use for calculations of oec
1342: validate_dnz_chr_id(p_dnz_chr_id => p_dnz_chr_id,
1343: x_return_status => l_return_status);
1344: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1347: RAISE Okl_Api.G_EXCEPTION_ERROR;
1348: END IF;
1341: -- We are taking care of the validating p_cle_id via cursor we use for calculations of oec
1342: validate_dnz_chr_id(p_dnz_chr_id => p_dnz_chr_id,
1343: x_return_status => l_return_status);
1344: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1347: RAISE Okl_Api.G_EXCEPTION_ERROR;
1348: END IF;
1349:
1342: validate_dnz_chr_id(p_dnz_chr_id => p_dnz_chr_id,
1343: x_return_status => l_return_status);
1344: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1347: RAISE Okl_Api.G_EXCEPTION_ERROR;
1348: END IF;
1349:
1350: --Bug# 4631549
1343: x_return_status => l_return_status);
1344: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1346: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1347: RAISE Okl_Api.G_EXCEPTION_ERROR;
1348: END IF;
1349:
1350: --Bug# 4631549
1351: --Find out if re-lease contract
1384: END IF;
1385:
1386: -- Now we start calculations of the OEC
1387: IF (p_dnz_chr_id IS NOT NULL OR
1388: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1389: (p_cle_id IS NULL OR
1390: p_cle_id = Okl_Api.G_MISS_NUM) THEN
1391: -- To get the OEC of the contract
1392:
1386: -- Now we start calculations of the OEC
1387: IF (p_dnz_chr_id IS NOT NULL OR
1388: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1389: (p_cle_id IS NULL OR
1390: p_cle_id = Okl_Api.G_MISS_NUM) THEN
1391: -- To get the OEC of the contract
1392:
1393: --Bug# 4631549 :
1394: If nvl(l_chrb_rec.orig_system_source_code,okl_api.g_miss_char) = 'OKL_RELEASE' Then
1390: p_cle_id = Okl_Api.G_MISS_NUM) THEN
1391: -- To get the OEC of the contract
1392:
1393: --Bug# 4631549 :
1394: If nvl(l_chrb_rec.orig_system_source_code,okl_api.g_miss_char) = 'OKL_RELEASE' Then
1395: If l_capred_incl_terminated = TRUE Then
1396: OPEN l_chr_expcost_trmn_csr (p_chr_id => p_dnz_chr_id);
1397: FETCH l_chr_expcost_trmn_csr into ln_contract_oec;
1398: If l_chr_expcost_trmn_csr%NOTFOUND then
1395: If l_capred_incl_terminated = TRUE Then
1396: OPEN l_chr_expcost_trmn_csr (p_chr_id => p_dnz_chr_id);
1397: FETCH l_chr_expcost_trmn_csr into ln_contract_oec;
1398: If l_chr_expcost_trmn_csr%NOTFOUND then
1399: Okl_Api.set_message(p_app_name => G_APP_NAME,
1400: p_msg_name => G_NO_MATCHING_RECORD,
1401: p_token1 => G_COL_NAME_TOKEN,
1402: p_token1_value => 'p_dnz_chr_id');
1403: RAISE Okl_Api.G_EXCEPTION_ERROR;
1399: Okl_Api.set_message(p_app_name => G_APP_NAME,
1400: p_msg_name => G_NO_MATCHING_RECORD,
1401: p_token1 => G_COL_NAME_TOKEN,
1402: p_token1_value => 'p_dnz_chr_id');
1403: RAISE Okl_Api.G_EXCEPTION_ERROR;
1404: End If;
1405: Close l_chr_expcost_trmn_csr;
1406: Else
1407: OPEN l_chr_expcost_csr (p_chr_id => p_dnz_chr_id);
1406: Else
1407: OPEN l_chr_expcost_csr (p_chr_id => p_dnz_chr_id);
1408: FETCH l_chr_expcost_csr into ln_contract_oec;
1409: If l_chr_expcost_csr%NOTFOUND then
1410: Okl_Api.set_message(p_app_name => G_APP_NAME,
1411: p_msg_name => G_NO_MATCHING_RECORD,
1412: p_token1 => G_COL_NAME_TOKEN,
1413: p_token1_value => 'p_dnz_chr_id');
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1410: Okl_Api.set_message(p_app_name => G_APP_NAME,
1411: p_msg_name => G_NO_MATCHING_RECORD,
1412: p_token1 => G_COL_NAME_TOKEN,
1413: p_token1_value => 'p_dnz_chr_id');
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: End If;
1416: Close l_chr_expcost_csr;
1417: End If;
1418: Else
1426: IF l_capred_incl_terminated = TRUE THEN
1427:
1428: OPEN c_nr_con_oec_calc_incl_term(p_dnz_chr_id => p_dnz_chr_id, p_line_type => l_line_type);
1429: IF c_nr_con_oec_calc_incl_term%NOTFOUND THEN
1430: Okl_Api.set_message(p_app_name => G_APP_NAME,
1431: p_msg_name => G_NO_MATCHING_RECORD,
1432: p_token1 => G_COL_NAME_TOKEN,
1433: p_token1_value => 'p_dnz_chr_id');
1434: RAISE Okl_Api.G_EXCEPTION_ERROR;
1430: Okl_Api.set_message(p_app_name => G_APP_NAME,
1431: p_msg_name => G_NO_MATCHING_RECORD,
1432: p_token1 => G_COL_NAME_TOKEN,
1433: p_token1_value => 'p_dnz_chr_id');
1434: RAISE Okl_Api.G_EXCEPTION_ERROR;
1435: END IF;
1436: FETCH c_nr_con_oec_calc_incl_term INTO ln_contract_oec;
1437: CLOSE c_nr_con_oec_calc_incl_term;
1438: ELSE
1437: CLOSE c_nr_con_oec_calc_incl_term;
1438: ELSE
1439: OPEN c_nr_contract_oec_calc(p_dnz_chr_id => p_dnz_chr_id, p_line_type => l_line_type);
1440: IF c_nr_contract_oec_calc%NOTFOUND THEN
1441: Okl_Api.set_message(p_app_name => G_APP_NAME,
1442: p_msg_name => G_NO_MATCHING_RECORD,
1443: p_token1 => G_COL_NAME_TOKEN,
1444: p_token1_value => 'p_dnz_chr_id');
1445: RAISE Okl_Api.G_EXCEPTION_ERROR;
1441: Okl_Api.set_message(p_app_name => G_APP_NAME,
1442: p_msg_name => G_NO_MATCHING_RECORD,
1443: p_token1 => G_COL_NAME_TOKEN,
1444: p_token1_value => 'p_dnz_chr_id');
1445: RAISE Okl_Api.G_EXCEPTION_ERROR;
1446: END IF;
1447: FETCH c_nr_contract_oec_calc INTO ln_contract_oec;
1448: CLOSE c_nr_contract_oec_calc;
1449: END IF;
1456: --Bug# 15992711 , End
1457:
1458: OPEN c_contract_oec_calc_incl_term(p_dnz_chr_id => p_dnz_chr_id);
1459: IF c_contract_oec_calc_incl_term%NOTFOUND THEN
1460: Okl_Api.set_message(p_app_name => G_APP_NAME,
1461: p_msg_name => G_NO_MATCHING_RECORD,
1462: p_token1 => G_COL_NAME_TOKEN,
1463: p_token1_value => 'p_dnz_chr_id');
1464: RAISE Okl_Api.G_EXCEPTION_ERROR;
1460: Okl_Api.set_message(p_app_name => G_APP_NAME,
1461: p_msg_name => G_NO_MATCHING_RECORD,
1462: p_token1 => G_COL_NAME_TOKEN,
1463: p_token1_value => 'p_dnz_chr_id');
1464: RAISE Okl_Api.G_EXCEPTION_ERROR;
1465: END IF;
1466: FETCH c_contract_oec_calc_incl_term INTO ln_contract_oec;
1467: CLOSE c_contract_oec_calc_incl_term;
1468: ELSE
1467: CLOSE c_contract_oec_calc_incl_term;
1468: ELSE
1469: OPEN c_contract_oec_calc(p_dnz_chr_id => p_dnz_chr_id);
1470: IF c_contract_oec_calc%NOTFOUND THEN
1471: Okl_Api.set_message(p_app_name => G_APP_NAME,
1472: p_msg_name => G_NO_MATCHING_RECORD,
1473: p_token1 => G_COL_NAME_TOKEN,
1474: p_token1_value => 'p_dnz_chr_id');
1475: RAISE Okl_Api.G_EXCEPTION_ERROR;
1471: Okl_Api.set_message(p_app_name => G_APP_NAME,
1472: p_msg_name => G_NO_MATCHING_RECORD,
1473: p_token1 => G_COL_NAME_TOKEN,
1474: p_token1_value => 'p_dnz_chr_id');
1475: RAISE Okl_Api.G_EXCEPTION_ERROR;
1476: END IF;
1477: FETCH c_contract_oec_calc INTO ln_contract_oec;
1478: CLOSE c_contract_oec_calc;
1479: END IF;
1481: -- Final Total Contract OEC
1482: ln_contract_oec := NVL(ln_contract_oec,0);
1483: RETURN(ln_contract_oec);
1484: ELSIF (p_dnz_chr_id IS NOT NULL OR
1485: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1486: (p_cle_id IS NOT NULL OR
1487: p_cle_id <> Okl_Api.G_MISS_NUM) THEN
1488: -- To get the Line Style Code
1489: OPEN get_lty_code(p_cle_id => p_cle_id);
1483: RETURN(ln_contract_oec);
1484: ELSIF (p_dnz_chr_id IS NOT NULL OR
1485: p_dnz_chr_id <> Okl_Api.G_MISS_NUM) AND
1486: (p_cle_id IS NOT NULL OR
1487: p_cle_id <> Okl_Api.G_MISS_NUM) THEN
1488: -- To get the Line Style Code
1489: OPEN get_lty_code(p_cle_id => p_cle_id);
1490: IF get_lty_code%NOTFOUND THEN
1491: Okl_Api.set_message(p_app_name => G_APP_NAME,
1487: p_cle_id <> Okl_Api.G_MISS_NUM) THEN
1488: -- To get the Line Style Code
1489: OPEN get_lty_code(p_cle_id => p_cle_id);
1490: IF get_lty_code%NOTFOUND THEN
1491: Okl_Api.set_message(p_app_name => G_APP_NAME,
1492: p_msg_name => G_NO_MATCHING_RECORD,
1493: p_token1 => G_COL_NAME_TOKEN,
1494: p_token1_value => 'Financial Asset Line');
1495: RAISE Okl_Api.G_EXCEPTION_ERROR;
1491: Okl_Api.set_message(p_app_name => G_APP_NAME,
1492: p_msg_name => G_NO_MATCHING_RECORD,
1493: p_token1 => G_COL_NAME_TOKEN,
1494: p_token1_value => 'Financial Asset Line');
1495: RAISE Okl_Api.G_EXCEPTION_ERROR;
1496: END IF;
1497: FETCH get_lty_code INTO lv_lty_code;
1498: CLOSE get_lty_code;
1499: IF lv_lty_code = G_FIN_LINE_LTY_CODE THEN
1501: If l_chrb_rec.orig_system_source_code = 'OKL_RELEASE' then
1502: Open l_cle_expcost_csr (p_cle_id => p_cle_id);
1503: Fetch l_cle_expcost_csr into ln_total_line_oec;
1504: If l_cle_expcost_csr%NOTFOUND Then
1505: Okl_Api.set_message(p_app_name => G_APP_NAME,
1506: p_msg_name => G_NO_MATCHING_RECORD,
1507: p_token1 => G_COL_NAME_TOKEN,
1508: p_token1_value => 'Financial Asset Line');
1509: RAISE Okl_Api.G_EXCEPTION_ERROR;
1505: Okl_Api.set_message(p_app_name => G_APP_NAME,
1506: p_msg_name => G_NO_MATCHING_RECORD,
1507: p_token1 => G_COL_NAME_TOKEN,
1508: p_token1_value => 'Financial Asset Line');
1509: RAISE Okl_Api.G_EXCEPTION_ERROR;
1510: End If;
1511: Close l_cle_expcost_csr;
1512: ln_total_line_oec := nvl(ln_total_line_oec,0);
1513: Else --Bug# 4631549 end
1514: -- To get the OEC of the model Line
1515: OPEN c_model_oec_calc(p_top_cle_id => p_cle_id,
1516: p_dnz_chr_id => p_dnz_chr_id);
1517: IF c_model_oec_calc%NOTFOUND THEN
1518: Okl_Api.set_message(p_app_name => G_APP_NAME,
1519: p_msg_name => G_NO_MATCHING_RECORD,
1520: p_token1 => G_COL_NAME_TOKEN,
1521: p_token1_value => 'Model Line');
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1518: Okl_Api.set_message(p_app_name => G_APP_NAME,
1519: p_msg_name => G_NO_MATCHING_RECORD,
1520: p_token1 => G_COL_NAME_TOKEN,
1521: p_token1_value => 'Model Line');
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1524: FETCH c_model_oec_calc INTO ln_model_line_oec;
1525: CLOSE c_model_oec_calc;
1526: -- To get the OEC of the Addon line
1536:
1537: ln_total_line_oec := NVL(ln_model_line_oec,0) + NVL(ln_addon_line_oec,0);
1538: End If; --Bug# 4631549
1539: ELSE
1540: Okl_Api.set_message(p_app_name => G_APP_NAME,
1541: p_msg_name => G_LINE_RECORD);
1542: RAISE Okl_Api.G_EXCEPTION_ERROR;
1543: END IF;
1544: RETURN(ln_total_line_oec);
1538: End If; --Bug# 4631549
1539: ELSE
1540: Okl_Api.set_message(p_app_name => G_APP_NAME,
1541: p_msg_name => G_LINE_RECORD);
1542: RAISE Okl_Api.G_EXCEPTION_ERROR;
1543: END IF;
1544: RETURN(ln_total_line_oec);
1545: ELSE
1546: Okl_Api.set_message(p_app_name => G_APP_NAME,
1542: RAISE Okl_Api.G_EXCEPTION_ERROR;
1543: END IF;
1544: RETURN(ln_total_line_oec);
1545: ELSE
1546: Okl_Api.set_message(p_app_name => G_APP_NAME,
1547: p_msg_name => G_INVALID_CRITERIA);
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1550: EXCEPTION
1544: RETURN(ln_total_line_oec);
1545: ELSE
1546: Okl_Api.set_message(p_app_name => G_APP_NAME,
1547: p_msg_name => G_INVALID_CRITERIA);
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1550: EXCEPTION
1551: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1552: -- If the cursor is open then it has to be closed
1547: p_msg_name => G_INVALID_CRITERIA);
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1550: EXCEPTION
1551: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1552: -- If the cursor is open then it has to be closed
1553: IF get_lty_code%ISOPEN THEN
1554: CLOSE get_lty_code;
1555: END IF;
1565: IF c_addon_oec_calc%ISOPEN THEN
1566: CLOSE c_addon_oec_calc;
1567: END IF;
1568: RETURN(0);
1569: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1570: -- If the cursor is open then it has to be closed
1571: IF get_lty_code%ISOPEN THEN
1572: CLOSE get_lty_code;
1573: END IF;
1623: p_line_id IN NUMBER) RETURN NUMBER IS
1624:
1625: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_TRADEIN_VALUE';
1626: l_api_version CONSTANT NUMBER := 1;
1627: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1628: x_msg_count NUMBER;
1629: x_msg_data VARCHAR2(256);
1630:
1631: l_tradeIn_value NUMBER := 0;
1639:
1640: BEGIN
1641:
1642: IF ( p_chr_id IS NULL ) THEN
1643: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1644: END IF;
1645:
1646: -- rmunjulu 4042892
1647: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1739:
1740: EXCEPTION
1741:
1742: WHEN OTHERS THEN
1743: Okl_Api.SET_MESSAGE(
1744: p_app_name => G_APP_NAME,
1745: p_msg_name => G_UNEXPECTED_ERROR,
1746: p_token1 => G_SQLCODE_TOKEN,
1747: p_token1_value => SQLCODE,
1770: p_line_id IN NUMBER) RETURN NUMBER IS
1771:
1772: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_LINE_TRADEIN_VALUE';
1773: l_api_version CONSTANT NUMBER := 1;
1774: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1775: x_msg_count NUMBER;
1776: x_msg_data VARCHAR2(256);
1777:
1778: l_tradeIn_value NUMBER := 0.0;
1811:
1812: BEGIN
1813:
1814: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
1815: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1816: END IF;
1817:
1818: -- rmunjulu 4042892
1819: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
1833: IF l_discount_incl_terminated THEN
1834: OPEN trdinval_csr_incl_terminated ( p_chr_id, p_line_id );
1835: FETCH trdinval_csr_incl_terminated INTO l_trdinval_rec;
1836: IF( trdinval_csr_incl_terminated%NOTFOUND ) THEN
1837: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1838: END IF;
1839: CLOSE trdinval_csr_incl_terminated;
1840: ELSE
1841: OPEN trdinval_csr ( p_chr_id, p_line_id );
1840: ELSE
1841: OPEN trdinval_csr ( p_chr_id, p_line_id );
1842: FETCH trdinval_csr INTO l_trdinval_rec;
1843: IF( trdinval_csr%NOTFOUND ) THEN
1844: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1845: END IF;
1846: CLOSE trdinval_csr;
1847: END IF;
1848:
1850: RETURN l_tradeIn_value;
1851:
1852:
1853: EXCEPTION
1854: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN -- Added for bug 14617639
1855: IF trdinval_csr_incl_terminated%ISOPEN THEN
1856: CLOSE trdinval_csr_incl_terminated;
1857: END IF;
1858: IF trdinval_csr%ISOPEN THEN
1865: END IF;
1866: IF trdinval_csr%ISOPEN THEN
1867: CLOSE trdinval_csr;
1868: END IF;
1869: Okl_Api.SET_MESSAGE(
1870: p_app_name => G_APP_NAME,
1871: p_msg_name => G_UNEXPECTED_ERROR,
1872: p_token1 => G_SQLCODE_TOKEN,
1873: p_token1_value => SQLCODE,
1895: p_line_id IN NUMBER) RETURN NUMBER IS
1896:
1897: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_CONTRACT_CAPITAL_REDUCTION_VALUE';
1898: l_api_version CONSTANT NUMBER := 1;
1899: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1900: x_msg_count NUMBER;
1901: x_msg_data VARCHAR2(256);
1902:
1903: l_capred_value NUMBER := 0;
1975: l_discount_incl_terminated BOOLEAN := FALSE;
1976: BEGIN
1977:
1978: IF ( p_chr_id IS NULL ) THEN
1979: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1980: END IF;
1981:
1982: -- rmunjulu 4042892
1983: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2061: END IF;
2062: IF l_lines_csr%ISOPEN THEN
2063: CLOSE l_lines_csr;
2064: END IF;
2065: Okl_Api.SET_MESSAGE(
2066: p_app_name => G_APP_NAME,
2067: p_msg_name => G_UNEXPECTED_ERROR,
2068: p_token1 => G_SQLCODE_TOKEN,
2069: p_token1_value => SQLCODE,
2092:
2093:
2094: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_CAPITAL_REDUCTION_VALUE';
2095: l_api_version CONSTANT NUMBER := 1;
2096: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2097: x_msg_count NUMBER;
2098: x_msg_data VARCHAR2(256);
2099:
2100: l_capred_value NUMBER := 0;
2123:
2124: BEGIN
2125:
2126: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
2127: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: -- IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0
2131: --AND Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS(0).NAME = 'TERMINATED_LINES_YN'
2244:
2245: EXCEPTION
2246:
2247: WHEN OTHERS THEN
2248: Okl_Api.SET_MESSAGE(
2249: p_app_name => G_APP_NAME,
2250: p_msg_name => G_UNEXPECTED_ERROR,
2251: p_token1 => G_SQLCODE_TOKEN,
2252: p_token1_value => SQLCODE,
2275: p_line_id IN NUMBER) RETURN NUMBER IS
2276:
2277: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_FEES_CAPITAL_AMOUNT_VALUE';
2278: l_api_version CONSTANT NUMBER := 1;
2279: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2280: x_msg_count NUMBER;
2281: x_msg_data VARCHAR2(256);
2282:
2283: l_fees_value NUMBER := 0;
2330:
2331: BEGIN
2332:
2333: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL)) THEN
2334: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2335: END IF;
2336:
2337: --Bug# 5150150 -- start
2338: OPEN l_sys_source_code_csr ( p_chr_id );
2388: IF l_fee_csr%ISOPEN THEN
2389: CLOSE l_fee_csr;
2390: END IF;
2391:
2392: Okl_Api.SET_MESSAGE(
2393: p_app_name => G_APP_NAME,
2394: p_msg_name => G_UNEXPECTED_ERROR,
2395: p_token1 => G_SQLCODE_TOKEN,
2396: p_token1_value => SQLCODE,
2418: p_line_id IN NUMBER) RETURN NUMBER IS
2419:
2420: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_FEES_CAPITAL_AMOUNT_VALUE';
2421: l_api_version CONSTANT NUMBER := 1;
2422: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2423: x_msg_count NUMBER;
2424: x_msg_data VARCHAR2(256);
2425:
2426:
2486:
2487: BEGIN
2488:
2489: IF ( p_chr_id IS NULL ) THEN
2490: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2491: END IF;
2492:
2493: -- rmunjulu 4042892
2494: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
2574: END IF;
2575: IF l_lines_csr%ISOPEN THEN
2576: CLOSE l_lines_csr;
2577: END IF;
2578: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
2579: p_msg_name => G_UNEXPECTED_ERROR,
2580: p_token1 => G_SQLCODE_TOKEN,
2581: p_token1_value => SQLCODE,
2582: p_token2 => G_SQLERRM_TOKEN,
2602: p_line_id IN NUMBER) RETURN NUMBER IS
2603:
2604: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_SVC_CAP_AMNT_VALUE';
2605: l_api_version CONSTANT NUMBER := 1;
2606: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2607: x_msg_count NUMBER;
2608: x_msg_data VARCHAR2(256);
2609:
2610: l_srvcs_value NUMBER := 0;
2647:
2648: BEGIN
2649:
2650: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL))THEN
2651: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2652: END IF;
2653:
2654: OPEN srvc_strm_type_csr( p_line_id );
2655: FETCH srvc_strm_type_csr INTO l_srvcstrm_rec;
2653:
2654: OPEN srvc_strm_type_csr( p_line_id );
2655: FETCH srvc_strm_type_csr INTO l_srvcstrm_rec;
2656: IF( srvc_strm_type_csr%NOTFOUND ) THEN
2657: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2658: END IF;
2659: CLOSE srvc_strm_type_csr;
2660:
2661: IF( UPPER(l_srvcstrm_rec.capitalize_YN) = 'N' ) THEN
2664:
2665: OPEN l_srvcline_csr( p_line_id );
2666: FETCH l_srvcline_csr INTO l_srvcline_rec;
2667: IF( l_srvcline_csr%NOTFOUND ) THEN
2668: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2669: END IF;
2670: CLOSE l_srvcline_csr;
2671:
2672: l_srvcs_value := l_srvcline_rec.CapAmountSubLines;
2676:
2677: EXCEPTION
2678:
2679: WHEN OTHERS THEN
2680: Okl_Api.SET_MESSAGE(
2681: p_app_name => G_APP_NAME,
2682: p_msg_name => G_UNEXPECTED_ERROR,
2683: p_token1 => G_SQLCODE_TOKEN,
2684: p_token1_value => SQLCODE,
2738:
2739: RETURN l_amount;
2740: EXCEPTION
2741: WHEN OTHERS THEN
2742: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2743: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2744: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2745: p_token1 => 'OKL_SQLCODE',
2746: p_token1_value => SQLCODE,
2739: RETURN l_amount;
2740: EXCEPTION
2741: WHEN OTHERS THEN
2742: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2743: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2744: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2745: p_token1 => 'OKL_SQLCODE',
2746: p_token1_value => SQLCODE,
2747: p_token2 => 'OKL_SQLERRM',
2800:
2801: RETURN l_amount;
2802: EXCEPTION
2803: WHEN OTHERS THEN
2804: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2805: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2806: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2807: p_token1 => 'OKL_SQLCODE',
2808: p_token1_value => SQLCODE,
2801: RETURN l_amount;
2802: EXCEPTION
2803: WHEN OTHERS THEN
2804: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2805: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2806: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2807: p_token1 => 'OKL_SQLCODE',
2808: p_token1_value => SQLCODE,
2809: p_token2 => 'OKL_SQLERRM',
2859:
2860: RETURN l_amount;
2861: EXCEPTION
2862: WHEN OTHERS THEN
2863: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2864: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2865: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2866: p_token1 => 'OKL_SQLCODE',
2867: p_token1_value => SQLCODE,
2860: RETURN l_amount;
2861: EXCEPTION
2862: WHEN OTHERS THEN
2863: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2864: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2865: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2866: p_token1 => 'OKL_SQLCODE',
2867: p_token1_value => SQLCODE,
2868: p_token2 => 'OKL_SQLERRM',
2919: RETURN l_amount;
2920:
2921: EXCEPTION
2922: WHEN OTHERS THEN
2923: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2924: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2925: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2926: p_token1 => 'OKL_SQLCODE',
2927: p_token1_value => SQLCODE,
2920:
2921: EXCEPTION
2922: WHEN OTHERS THEN
2923: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2924: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2925: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2926: p_token1 => 'OKL_SQLCODE',
2927: p_token1_value => SQLCODE,
2928: p_token2 => 'OKL_SQLERRM',
2963:
2964: RETURN l_amount;
2965: EXCEPTION
2966: WHEN OTHERS THEN
2967: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2968: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2969: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2970: p_token1 => 'OKL_SQLCODE',
2971: p_token1_value => SQLCODE,
2964: RETURN l_amount;
2965: EXCEPTION
2966: WHEN OTHERS THEN
2967: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2968: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2969: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2970: p_token1 => 'OKL_SQLCODE',
2971: p_token1_value => SQLCODE,
2972: p_token2 => 'OKL_SQLERRM',
2996: -- l_amount_funded NUMBER := 0;
2997: -- l_amount_limit NUMBER := 0;
2998: -- l_amount_remain NUMBER := 0;
2999:
3000: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3001: l_api_version NUMBER := 1.0;
3002: x_msg_count NUMBER;
3003: x_msg_data VARCHAR2(4000);
3004: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
3000: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3001: l_api_version NUMBER := 1.0;
3002: x_msg_count NUMBER;
3003: x_msg_data VARCHAR2(4000);
3004: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
3005:
3006: x_value NUMBER := 0;
3007:
3008: BEGIN
3020: ,x_msg_data => x_msg_data
3021: ,p_creditline_id => p_contract_id
3022: ,p_credit_max => l_amount_limit);
3023:
3024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3025: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3026: l_amount_remain := 0;
3027: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3028: --RAISE OKL_API.G_EXCEPTION_ERROR;
3021: ,p_creditline_id => p_contract_id
3022: ,p_credit_max => l_amount_limit);
3023:
3024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3025: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3026: l_amount_remain := 0;
3027: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3028: --RAISE OKL_API.G_EXCEPTION_ERROR;
3029: l_amount_remain := 0;
3023:
3024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3025: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3026: l_amount_remain := 0;
3027: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3028: --RAISE OKL_API.G_EXCEPTION_ERROR;
3029: l_amount_remain := 0;
3030: END IF;
3031:
3024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3025: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3026: l_amount_remain := 0;
3027: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3028: --RAISE OKL_API.G_EXCEPTION_ERROR;
3029: l_amount_remain := 0;
3030: END IF;
3031:
3032: l_amount := l_amount_remain;
3045: p_formula_name => 'CREDIT_CHECK',
3046: p_contract_id => p_contract_id,
3047: x_value => x_value);
3048:
3049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3050: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3051: x_value := 0;
3052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: --RAISE OKL_API.G_EXCEPTION_ERROR;
3046: p_contract_id => p_contract_id,
3047: x_value => x_value);
3048:
3049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3050: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3051: x_value := 0;
3052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: --RAISE OKL_API.G_EXCEPTION_ERROR;
3054: x_value := 0;
3048:
3049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3050: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3051: x_value := 0;
3052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: --RAISE OKL_API.G_EXCEPTION_ERROR;
3054: x_value := 0;
3055: END IF;
3056:
3049: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3050: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3051: x_value := 0;
3052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3053: --RAISE OKL_API.G_EXCEPTION_ERROR;
3054: x_value := 0;
3055: END IF;
3056:
3057: l_amount := x_value;
3058:
3059: RETURN l_amount;
3060: EXCEPTION
3061: WHEN OTHERS THEN
3062: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3063: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3064: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3065: p_token1 => 'OKL_SQLCODE',
3066: p_token1_value => SQLCODE,
3059: RETURN l_amount;
3060: EXCEPTION
3061: WHEN OTHERS THEN
3062: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3063: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3064: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3065: p_token1 => 'OKL_SQLCODE',
3066: p_token1_value => SQLCODE,
3067: p_token2 => 'OKL_SQLERRM',
3083: -- End of comments
3084: ------------------------------------------------------------------------------
3085: FUNCTION creditline_total_new_limit(
3086: p_contract_id IN NUMBER
3087: --,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
3088: ,p_contract_line_id IN NUMBER
3089: ) RETURN NUMBER
3090: IS
3091: l_amount NUMBER := 0;
3107:
3108: RETURN l_amount;
3109: EXCEPTION
3110: WHEN OTHERS THEN
3111: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3112: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3113: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3114: p_token1 => 'OKL_SQLCODE',
3115: p_token1_value => SQLCODE,
3108: RETURN l_amount;
3109: EXCEPTION
3110: WHEN OTHERS THEN
3111: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3112: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3113: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3114: p_token1 => 'OKL_SQLCODE',
3115: p_token1_value => SQLCODE,
3116: p_token2 => 'OKL_SQLERRM',
3132: -- End of comments
3133: ------------------------------------------------------------------------------
3134: FUNCTION creditline_total_addition(
3135: p_contract_id IN NUMBER
3136: --,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
3137: ,p_contract_line_id IN NUMBER
3138: ) RETURN NUMBER
3139: IS
3140: l_amount NUMBER := 0;
3156:
3157: RETURN l_amount;
3158: EXCEPTION
3159: WHEN OTHERS THEN
3160: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3161: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3162: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3163: p_token1 => 'OKL_SQLCODE',
3164: p_token1_value => SQLCODE,
3157: RETURN l_amount;
3158: EXCEPTION
3159: WHEN OTHERS THEN
3160: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3161: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3162: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3163: p_token1 => 'OKL_SQLCODE',
3164: p_token1_value => SQLCODE,
3165: p_token2 => 'OKL_SQLERRM',
3181: -- End of comments
3182: ------------------------------------------------------------------------------
3183: FUNCTION creditline_total_reduction(
3184: p_contract_id IN NUMBER
3185: --,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
3186: ,p_contract_line_id IN NUMBER
3187: ) RETURN NUMBER
3188: IS
3189: l_amount NUMBER := 0;
3205:
3206: RETURN l_amount;
3207: EXCEPTION
3208: WHEN OTHERS THEN
3209: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3210: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3211: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3212: p_token1 => 'OKL_SQLCODE',
3213: p_token1_value => SQLCODE,
3206: RETURN l_amount;
3207: EXCEPTION
3208: WHEN OTHERS THEN
3209: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3210: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
3211: p_msg_name => 'OKL_UNEXPECTED_ERROR',
3212: p_token1 => 'OKL_SQLCODE',
3213: p_token1_value => SQLCODE,
3214: p_token2 => 'OKL_SQLERRM',
3225: p_trd_amnt IN NUMBER) RETURN NUMBER IS
3226:
3227: l_api_name CONSTANT VARCHAR2(60) := 'RETURN_LINE_CAP_AMNT_VALUE';
3228: l_api_version CONSTANT NUMBER := 1;
3229: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3230: x_msg_count NUMBER;
3231: x_msg_data VARCHAR2(256);
3232:
3233: l_capamnt_value NUMBER := 0;
3241:
3242: BEGIN
3243:
3244: IF ( ( p_chr_id IS NULL ) OR ( p_line_id IS NULL ) ) THEN
3245: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3246: END IF;
3247:
3248: l_oec_value := line_oec( p_chr_id, p_line_id);
3249: IF ( l_oec_value IS NULL ) THEN
3246: END IF;
3247:
3248: l_oec_value := line_oec( p_chr_id, p_line_id);
3249: IF ( l_oec_value IS NULL ) THEN
3250: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3251: END IF;
3252:
3253: l_capred := p_capred;
3254: IF(( p_capred IS NULL ) OR ( p_capred = 0)) THEN
3270: RETURN l_capamnt_value;
3271:
3272: EXCEPTION
3273: WHEN OTHERS THEN
3274: Okl_Api.SET_MESSAGE(
3275: p_app_name => G_APP_NAME,
3276: p_msg_name => G_UNEXPECTED_ERROR,
3277: p_token1 => G_SQLCODE_TOKEN,
3278: p_token1_value => SQLCODE,
3307: l_days_in_month VARCHAR2(100);
3308: l_contract_number VARCHAR2(2000);
3309: l_days_in_year VARCHAR2(100);
3310: l_advance_arrears VARCHAR2(1);
3311: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3312:
3313: -- Fetch contract days in a month
3314: CURSOR days_in_month IS
3315: SELECT days_in_a_month_code
3363: l_period_end_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3364: END IF;
3365: END LOOP;
3366: ELSE
3367: Okl_Api.Set_Message(p_app_name => g_app_name,
3368: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3369: RAISE Okl_Api.G_EXCEPTION_ERROR;
3370: END IF;
3371:
3365: END LOOP;
3366: ELSE
3367: Okl_Api.Set_Message(p_app_name => g_app_name,
3368: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3369: RAISE Okl_Api.G_EXCEPTION_ERROR;
3370: END IF;
3371:
3372: -- Validate parameters
3373: IF l_period_end_date IS NULL THEN
3370: END IF;
3371:
3372: -- Validate parameters
3373: IF l_period_end_date IS NULL THEN
3374: Okl_Api.Set_Message(p_app_name => g_app_name,
3375: p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
3376: RAISE Okl_Api.G_EXCEPTION_ERROR;
3377: END IF;
3378:
3372: -- Validate parameters
3373: IF l_period_end_date IS NULL THEN
3374: Okl_Api.Set_Message(p_app_name => g_app_name,
3375: p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
3376: RAISE Okl_Api.G_EXCEPTION_ERROR;
3377: END IF;
3378:
3379: IF l_last_int_calc_date IS NULL THEN
3380: Okl_Api.Set_Message(p_app_name => g_app_name,
3376: RAISE Okl_Api.G_EXCEPTION_ERROR;
3377: END IF;
3378:
3379: IF l_last_int_calc_date IS NULL THEN
3380: Okl_Api.Set_Message(p_app_name => g_app_name,
3381: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
3382: RAISE Okl_Api.G_EXCEPTION_ERROR;
3383: END IF;
3384:
3378:
3379: IF l_last_int_calc_date IS NULL THEN
3380: Okl_Api.Set_Message(p_app_name => g_app_name,
3381: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
3382: RAISE Okl_Api.G_EXCEPTION_ERROR;
3383: END IF;
3384:
3385: --Bug 5081876. Adding a day to last int calc date.
3386: --Bug 5162929. Undoing changes made for bug 5081876. One day is being added in accrual program
3392: l_contract_number := y.contract_number;
3393: END LOOP;
3394:
3395: IF l_contract_number IS NULL THEN
3396: Okl_Api.set_message(p_app_name => g_app_name,
3397: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3398: RAISE OKL_API.G_EXCEPTION_ERROR;
3399: END IF;
3400:
3394:
3395: IF l_contract_number IS NULL THEN
3396: Okl_Api.set_message(p_app_name => g_app_name,
3397: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3398: RAISE OKL_API.G_EXCEPTION_ERROR;
3399: END IF;
3400:
3401: FOR x IN days_in_month
3402: LOOP
3403: l_days_in_month := x.days_in_a_month_code;
3404: END LOOP;
3405:
3406: IF l_days_in_month IS NULL THEN
3407: Okl_Api.Set_Message(p_app_name => g_app_name,
3408: p_msg_name => 'OKL_AGN_FE_DAYSIN_MTH',
3409: p_token1 => 'CONTRACT_NUMBER',
3410: p_token1_value => l_contract_number);
3411: RAISE Okl_Api.G_EXCEPTION_ERROR;
3407: Okl_Api.Set_Message(p_app_name => g_app_name,
3408: p_msg_name => 'OKL_AGN_FE_DAYSIN_MTH',
3409: p_token1 => 'CONTRACT_NUMBER',
3410: p_token1_value => l_contract_number);
3411: RAISE Okl_Api.G_EXCEPTION_ERROR;
3412: END IF;
3413:
3414: FOR z IN days_in_year
3415: LOOP
3416: l_days_in_year := z.days_in_a_year_code;
3417: END LOOP;
3418:
3419: IF l_days_in_year IS NULL THEN
3420: Okl_Api.Set_Message(p_app_name => g_app_name,
3421: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
3422: p_token1 => 'CONTRACT_NUMBER',
3423: p_token1_value => l_contract_number);
3424: RAISE Okl_Api.G_EXCEPTION_ERROR;
3420: Okl_Api.Set_Message(p_app_name => g_app_name,
3421: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
3422: p_token1 => 'CONTRACT_NUMBER',
3423: p_token1_value => l_contract_number);
3424: RAISE Okl_Api.G_EXCEPTION_ERROR;
3425: END IF;
3426:
3427: FOR i in adv_arr_csr
3428: LOOP
3436: l_period_end_date,
3437: l_advance_arrears,
3438: l_return_status);
3439:
3440: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3441: Okl_Api.set_message(p_app_name => g_app_name,
3442: p_msg_name => 'OKL_GET_DAY_CNT_ERROR');
3443:
3444: RAISE OKL_API.G_EXCEPTION_ERROR;
3437: l_advance_arrears,
3438: l_return_status);
3439:
3440: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3441: Okl_Api.set_message(p_app_name => g_app_name,
3442: p_msg_name => 'OKL_GET_DAY_CNT_ERROR');
3443:
3444: RAISE OKL_API.G_EXCEPTION_ERROR;
3445: END IF;
3440: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3441: Okl_Api.set_message(p_app_name => g_app_name,
3442: p_msg_name => 'OKL_GET_DAY_CNT_ERROR');
3443:
3444: RAISE OKL_API.G_EXCEPTION_ERROR;
3445: END IF;
3446: --Bug 5046184. ***Additional Code START***
3447:
3448: --Bug 5046184. Commenting below calculation
3450:
3451: RETURN l_days_to_accrue;
3452:
3453: EXCEPTION
3454: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3455: RETURN NULL;
3456:
3457: WHEN OTHERS THEN
3458: Okl_Api.SET_MESSAGE(
3454: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3455: RETURN NULL;
3456:
3457: WHEN OTHERS THEN
3458: Okl_Api.SET_MESSAGE(
3459: p_app_name => G_APP_NAME,
3460: p_msg_name => G_UNEXPECTED_ERROR,
3461: p_token1 => G_SQLCODE_TOKEN,
3462: p_token1_value => SQLCODE,
3511: OPEN contract_num_csr(p_khr_id);
3512: FETCH contract_num_csr INTO l_contract_number;
3513: IF contract_num_csr%NOTFOUND THEN
3514: CLOSE contract_num_csr;
3515: Okl_Api.set_message(p_app_name => g_app_name,
3516: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3517: RAISE OKL_API.G_EXCEPTION_ERROR;
3518: END IF;
3519: CLOSE contract_num_csr;
3513: IF contract_num_csr%NOTFOUND THEN
3514: CLOSE contract_num_csr;
3515: Okl_Api.set_message(p_app_name => g_app_name,
3516: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3517: RAISE OKL_API.G_EXCEPTION_ERROR;
3518: END IF;
3519: CLOSE contract_num_csr;
3520:
3521: OPEN lookup_csr(p_khr_id);
3522: FETCH lookup_csr INTO l_lookup_code;
3523: CLOSE lookup_csr;
3524:
3525: IF l_lookup_code IS NULL THEN
3526: Okl_Api.Set_Message(p_app_name => g_app_name,
3527: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
3528: p_token1 => 'CONTRACT_NUMBER',
3529: p_token1_value => l_contract_number);
3530: RAISE Okl_Api.G_EXCEPTION_ERROR;
3526: Okl_Api.Set_Message(p_app_name => g_app_name,
3527: p_msg_name => 'OKL_AGN_FE_DAYSIN_YR',
3528: p_token1 => 'CONTRACT_NUMBER',
3529: p_token1_value => l_contract_number);
3530: RAISE Okl_Api.G_EXCEPTION_ERROR;
3531: END IF;
3532:
3533: IF l_lookup_code = 'ACTUAL' THEN
3534: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3538: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3539: END IF;
3540: END LOOP;
3541: ELSE
3542: Okl_Api.Set_Message(p_app_name => g_app_name,
3543:
3544:
3545: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3546: RAISE Okl_Api.G_EXCEPTION_ERROR;
3542: Okl_Api.Set_Message(p_app_name => g_app_name,
3543:
3544:
3545: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3546: RAISE Okl_Api.G_EXCEPTION_ERROR;
3547: END IF;
3548:
3549: IF l_accrual_date IS NULL THEN
3550: Okl_Api.Set_Message(p_app_name => g_app_name,
3546: RAISE Okl_Api.G_EXCEPTION_ERROR;
3547: END IF;
3548:
3549: IF l_accrual_date IS NULL THEN
3550: Okl_Api.Set_Message(p_app_name => g_app_name,
3551: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3552: RAISE Okl_Api.G_EXCEPTION_ERROR;
3553: END IF;
3554:
3548:
3549: IF l_accrual_date IS NULL THEN
3550: Okl_Api.Set_Message(p_app_name => g_app_name,
3551: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3552: RAISE Okl_Api.G_EXCEPTION_ERROR;
3553: END IF;
3554:
3555:
3556: l_year := TO_NUMBER(TO_CHAR(l_accrual_date, 'RRRR'));
3566:
3567: RETURN l_days;
3568:
3569: EXCEPTION
3570: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3571: RETURN NULL;
3572:
3573: WHEN OTHERS THEN
3574: IF lookup_csr%ISOPEN THEN
3573: WHEN OTHERS THEN
3574: IF lookup_csr%ISOPEN THEN
3575: CLOSE lookup_csr;
3576: END IF;
3577: Okl_Api.SET_MESSAGE(
3578: p_app_name => G_APP_NAME,
3579: p_msg_name => G_UNEXPECTED_ERROR,
3580: p_token1 => G_SQLCODE_TOKEN,
3581: p_token1_value => SQLCODE,
3677: OPEN contract_num_csr(p_khr_id);
3678: FETCH contract_num_csr INTO l_contract_number;
3679: IF contract_num_csr%NOTFOUND THEN
3680: CLOSE contract_num_csr;
3681: Okl_Api.set_message(p_app_name => g_app_name,
3682: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3683: RAISE OKL_API.G_EXCEPTION_ERROR;
3684: END IF;
3685: CLOSE contract_num_csr;
3679: IF contract_num_csr%NOTFOUND THEN
3680: CLOSE contract_num_csr;
3681: Okl_Api.set_message(p_app_name => g_app_name,
3682: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3683: RAISE OKL_API.G_EXCEPTION_ERROR;
3684: END IF;
3685: CLOSE contract_num_csr;
3686:
3687: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3691: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3692: END IF;
3693: END LOOP;
3694: ELSE
3695: Okl_Api.Set_Message(p_app_name => g_app_name,
3696: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3697: RAISE Okl_Api.G_EXCEPTION_ERROR;
3698: END IF;
3699:
3693: END LOOP;
3694: ELSE
3695: Okl_Api.Set_Message(p_app_name => g_app_name,
3696: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3697: RAISE Okl_Api.G_EXCEPTION_ERROR;
3698: END IF;
3699:
3700: IF l_accrual_date IS NULL THEN
3701: Okl_Api.Set_Message(p_app_name => g_app_name,
3697: RAISE Okl_Api.G_EXCEPTION_ERROR;
3698: END IF;
3699:
3700: IF l_accrual_date IS NULL THEN
3701: Okl_Api.Set_Message(p_app_name => g_app_name,
3702: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3703: RAISE Okl_Api.G_EXCEPTION_ERROR;
3704: END IF;
3705:
3699:
3700: IF l_accrual_date IS NULL THEN
3701: Okl_Api.Set_Message(p_app_name => g_app_name,
3702: p_msg_name => 'OKL_AGN_FE_ACCRUAL_DATE');
3703: RAISE Okl_Api.G_EXCEPTION_ERROR;
3704: END IF;
3705:
3706: OPEN interest_rate_csr(p_khr_id, l_accrual_date);
3707: FETCH interest_rate_csr INTO l_interest_rate;
3705:
3706: OPEN interest_rate_csr(p_khr_id, l_accrual_date);
3707: FETCH interest_rate_csr INTO l_interest_rate;
3708: IF interest_rate_csr %NOTFOUND THEN
3709: Okl_Api.Set_Message(p_app_name => g_app_name,
3710: p_msg_name => 'OKL_AGN_FE_INT_RATE',
3711: p_token1 => 'CONTRACT_NUMBER',
3712: p_token1_value => l_contract_number);
3713: CLOSE interest_rate_csr;
3710: p_msg_name => 'OKL_AGN_FE_INT_RATE',
3711: p_token1 => 'CONTRACT_NUMBER',
3712: p_token1_value => l_contract_number);
3713: CLOSE interest_rate_csr;
3714: RAISE Okl_Api.G_EXCEPTION_ERROR;
3715: END IF;
3716: CLOSE interest_rate_csr;
3717:
3718: OPEN adder_rate_csr(p_khr_id);
3717:
3718: OPEN adder_rate_csr(p_khr_id);
3719: FETCH adder_rate_csr INTO l_adder_rate;
3720: IF adder_rate_csr %NOTFOUND THEN
3721: Okl_Api.Set_Message(p_app_name => g_app_name,
3722: p_msg_name => 'OKL_AGN_FE_ADDER_RATE',
3723: p_token1 => 'CONTRACT_NUMBER',
3724: p_token1_value => l_contract_number);
3725: CLOSE interest_rate_csr;
3722: p_msg_name => 'OKL_AGN_FE_ADDER_RATE',
3723: p_token1 => 'CONTRACT_NUMBER',
3724: p_token1_value => l_contract_number);
3725: CLOSE interest_rate_csr;
3726: RAISE Okl_Api.G_EXCEPTION_ERROR;
3727: END IF;
3728: CLOSE adder_rate_csr;
3729:
3730: -- Bug# 2920174
3733:
3734: RETURN l_total_rate;
3735:
3736: EXCEPTION
3737: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3738: RETURN NULL;
3739:
3740: WHEN OTHERS THEN
3741: IF interest_rate_csr%ISOPEN THEN
3749: IF contract_num_csr%ISOPEN THEN
3750: CLOSE contract_num_csr;
3751: END IF;
3752:
3753: Okl_Api.SET_MESSAGE(
3754: p_app_name => G_APP_NAME,
3755: p_msg_name => G_UNEXPECTED_ERROR,
3756: p_token1 => G_SQLCODE_TOKEN,
3757: p_token1_value => SQLCODE,
3780: l_period_end_date DATE;
3781: l_principal_bal NUMBER;
3782: l_contract_number VARCHAR2(2000);
3783: l_last_int_calc_date DATE;
3784: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3785: l_kle_id NUMBER;
3786: -- Bug 5055714.
3787: -- l_prin_bal_id NUMBER;
3788:
3838: l_contract_number := i.contract_number;
3839: END LOOP;
3840:
3841: IF l_contract_number IS NULL THEN
3842: Okl_Api.set_message(p_app_name => g_app_name,
3843: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3844: RAISE OKL_API.G_EXCEPTION_ERROR;
3845: END IF;
3846:
3840:
3841: IF l_contract_number IS NULL THEN
3842: Okl_Api.set_message(p_app_name => g_app_name,
3843: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
3844: RAISE OKL_API.G_EXCEPTION_ERROR;
3845: END IF;
3846:
3847: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
3848: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
3857: l_last_int_calc_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
3858: END IF;
3859: END LOOP;
3860: ELSE
3861: Okl_Api.Set_Message(p_app_name => g_app_name,
3862: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3863: RAISE Okl_Api.G_EXCEPTION_ERROR;
3864: END IF;
3865:
3859: END LOOP;
3860: ELSE
3861: Okl_Api.Set_Message(p_app_name => g_app_name,
3862: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
3863: RAISE Okl_Api.G_EXCEPTION_ERROR;
3864: END IF;
3865:
3866: IF l_last_int_calc_date IS NULL THEN
3867: Okl_Api.Set_Message(p_app_name => g_app_name,
3863: RAISE Okl_Api.G_EXCEPTION_ERROR;
3864: END IF;
3865:
3866: IF l_last_int_calc_date IS NULL THEN
3867: Okl_Api.Set_Message(p_app_name => g_app_name,
3868: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
3869: RAISE Okl_Api.G_EXCEPTION_ERROR;
3870: END IF;
3871:
3865:
3866: IF l_last_int_calc_date IS NULL THEN
3867: Okl_Api.Set_Message(p_app_name => g_app_name,
3868: p_msg_name => 'OKL_AGN_FE_INT_CALC_DATE');
3869: RAISE Okl_Api.G_EXCEPTION_ERROR;
3870: END IF;
3871:
3872: -- Bug 5055714.No validation needed.
3873: -- IF l_period_end_date IS NULL THEN
3870: END IF;
3871:
3872: -- Bug 5055714.No validation needed.
3873: -- IF l_period_end_date IS NULL THEN
3874: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3875: -- p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
3876: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3877: -- END IF;
3878: --
3872: -- Bug 5055714.No validation needed.
3873: -- IF l_period_end_date IS NULL THEN
3874: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3875: -- p_msg_name => 'OKL_AGN_FE_PERD_END_DATE');
3876: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3877: -- END IF;
3878: --
3879: -- IF l_period_start_date IS NULL THEN
3880: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3876: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3877: -- END IF;
3878: --
3879: -- IF l_period_start_date IS NULL THEN
3880: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3881: -- p_msg_name => 'OKL_AGN_FE_PERD_START_DATE');
3882: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3883: -- END IF;
3884:
3878: --
3879: -- IF l_period_start_date IS NULL THEN
3880: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3881: -- p_msg_name => 'OKL_AGN_FE_PERD_START_DATE');
3882: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3883: -- END IF;
3884:
3885: -- SGIYER
3886: -- UDS Impact
3891: -- p_dependent_sty_purpose => 'PRINCIPAL_BALANCE',
3892: -- x_return_status => l_return_status,
3893: -- x_dependent_sty_id => l_prin_bal_id);
3894: --
3895: -- IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3896: -- Okl_Api.set_message(p_app_name => g_app_name,
3897: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3898: -- p_token1 => 'STREAM_NAME',
3899: -- p_token1_value => 'PRINCIPAL BALANCE');
3892: -- x_return_status => l_return_status,
3893: -- x_dependent_sty_id => l_prin_bal_id);
3894: --
3895: -- IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3896: -- Okl_Api.set_message(p_app_name => g_app_name,
3897: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3898: -- p_token1 => 'STREAM_NAME',
3899: -- p_token1_value => 'PRINCIPAL BALANCE');
3900: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3896: -- Okl_Api.set_message(p_app_name => g_app_name,
3897: -- p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
3898: -- p_token1 => 'STREAM_NAME',
3899: -- p_token1_value => 'PRINCIPAL BALANCE');
3900: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3901: -- END IF;
3902:
3903: -- Bug 5055714. Commenting below derivation. Using utility provided instead.
3904: -- OPEN principal_bal_csr (p_khr_id, l_period_start_date, l_period_end_date, l_prin_bal_id);
3906: -- CLOSE principal_bal_csr;
3907:
3908: --Added by bkatraga for bug 13447258
3909: l_kle_id := p_kle_id;
3910: IF(l_kle_id = OKL_API.G_MISS_NUM) THEN
3911: l_kle_id := NULL;
3912: END IF;
3913: --end bkatraga
3914:
3911: l_kle_id := NULL;
3912: END IF;
3913: --end bkatraga
3914:
3915: -- Bug 5060624. Passing l_kle_id which is null and not okl_api.g_miss_num
3916: l_principal_bal := OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal(
3917: x_return_status => l_return_status,
3918: p_khr_id => p_khr_id,
3919: p_kle_id => l_kle_id,
3918: p_khr_id => p_khr_id,
3919: p_kle_id => l_kle_id,
3920: p_date => l_last_int_calc_date);
3921:
3922: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3923: Okl_Api.Set_Message(p_app_name => g_app_name,
3924: p_msg_name => 'OKL_AGN_VAR_PB_ERROR');
3925: END IF;
3926:
3919: p_kle_id => l_kle_id,
3920: p_date => l_last_int_calc_date);
3921:
3922: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3923: Okl_Api.Set_Message(p_app_name => g_app_name,
3924: p_msg_name => 'OKL_AGN_VAR_PB_ERROR');
3925: END IF;
3926:
3927: IF l_principal_bal IS NULL THEN
3924: p_msg_name => 'OKL_AGN_VAR_PB_ERROR');
3925: END IF;
3926:
3927: IF l_principal_bal IS NULL THEN
3928: Okl_Api.Set_Message(p_app_name => g_app_name,
3929: p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3930: p_token1 => 'CONTRACT_NUMBER',
3931: p_token1_value => l_contract_number);
3932: RAISE Okl_Api.G_EXCEPTION_ERROR;
3928: Okl_Api.Set_Message(p_app_name => g_app_name,
3929: p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3930: p_token1 => 'CONTRACT_NUMBER',
3931: p_token1_value => l_contract_number);
3932: RAISE Okl_Api.G_EXCEPTION_ERROR;
3933: END IF;
3934:
3935: -- Bug#2920344. Commenting error message.
3936: -- If principal balance for period range not found then retrieve
3934:
3935: -- Bug#2920344. Commenting error message.
3936: -- If principal balance for period range not found then retrieve
3937: -- principal balance for available prior period. MMITTAL.
3938: --Okl_Api.Set_Message(p_app_name => g_app_name,
3939: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3940: -- p_token1 => 'CONTRACT_NUMBER',
3941: -- p_token1_value => l_contract_number);
3942: --CLOSE principal_bal_csr;
3939: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3940: -- p_token1 => 'CONTRACT_NUMBER',
3941: -- p_token1_value => l_contract_number);
3942: --CLOSE principal_bal_csr;
3943: --RAISE Okl_Api.G_EXCEPTION_ERROR;
3944:
3945: -- If principal balance not found for date range, get prior principal balance.
3946: -- As per MMITTAL.
3947: -- OPEN prior_prin_bal_csr(p_khr_id, l_period_start_date,l_prin_bal_id);
3947: -- OPEN prior_prin_bal_csr(p_khr_id, l_period_start_date,l_prin_bal_id);
3948: -- FETCH prior_prin_bal_csr INTO l_principal_bal;
3949: -- CLOSE prior_prin_bal_csr;
3950: -- IF l_principal_bal IS NULL THEN
3951: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3952: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3953: -- p_token1 => 'CONTRACT_NUMBER',
3954: -- p_token1_value => l_contract_number);
3955: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3951: -- Okl_Api.Set_Message(p_app_name => g_app_name,
3952: -- p_msg_name => 'OKL_AGN_FE_PRIN_BAL',
3953: -- p_token1 => 'CONTRACT_NUMBER',
3954: -- p_token1_value => l_contract_number);
3955: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
3956: -- END IF;
3957: -- END IF;
3958:
3959: RETURN l_principal_bal;
3958:
3959: RETURN l_principal_bal;
3960:
3961: EXCEPTION
3962: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3963: RETURN NULL;
3964:
3965: WHEN OTHERS THEN
3966: Okl_Api.SET_MESSAGE(
3962: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
3963: RETURN NULL;
3964:
3965: WHEN OTHERS THEN
3966: Okl_Api.SET_MESSAGE(
3967: p_app_name => G_APP_NAME,
3968: p_msg_name => G_UNEXPECTED_ERROR,
3969: p_token1 => G_SQLCODE_TOKEN,
3970: p_token1_value => SQLCODE,
3990: l_rent_strm_bal NUMBER := 0;
3991: l_contract_number VARCHAR2(2000);
3992: l_provision_date DATE;
3993: l_sty_id NUMBER;
3994: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3995:
3996: -- cursor to get the contract number
3997: -- 02-Oct-2003. SGIYER. Added condition ste.stream_element_date >= p_date
3998: -- on product management's instructions.
4022: FETCH contract_num_csr INTO l_contract_number;
4023: CLOSE contract_num_csr;
4024:
4025: IF l_contract_number IS NULL THEN
4026: Okl_Api.set_message(p_app_name => g_app_name,
4027: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4028: RAISE OKL_API.G_EXCEPTION_ERROR;
4029: END IF;
4030:
4024:
4025: IF l_contract_number IS NULL THEN
4026: Okl_Api.set_message(p_app_name => g_app_name,
4027: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4028: RAISE OKL_API.G_EXCEPTION_ERROR;
4029: END IF;
4030:
4031: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4032: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4035: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4036: END IF;
4037: END LOOP;
4038: ELSE
4039: Okl_Api.Set_Message(p_app_name => g_app_name,
4040: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4041: RAISE Okl_Api.G_EXCEPTION_ERROR;
4042: END IF;
4043:
4037: END LOOP;
4038: ELSE
4039: Okl_Api.Set_Message(p_app_name => g_app_name,
4040: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4041: RAISE Okl_Api.G_EXCEPTION_ERROR;
4042: END IF;
4043:
4044: IF l_provision_date IS NULL THEN
4045: Okl_Api.Set_Message(p_app_name => g_app_name,
4041: RAISE Okl_Api.G_EXCEPTION_ERROR;
4042: END IF;
4043:
4044: IF l_provision_date IS NULL THEN
4045: Okl_Api.Set_Message(p_app_name => g_app_name,
4046: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
4047: RAISE Okl_Api.G_EXCEPTION_ERROR;
4048: END IF;
4049:
4043:
4044: IF l_provision_date IS NULL THEN
4045: Okl_Api.Set_Message(p_app_name => g_app_name,
4046: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
4047: RAISE Okl_Api.G_EXCEPTION_ERROR;
4048: END IF;
4049:
4050: -- SGIYER
4051: -- UDS Impact
4054: p_primary_sty_purpose => 'RENT',
4055: x_return_status => l_return_status,
4056: x_primary_sty_id => l_sty_id);
4057:
4058: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
4059: Okl_Api.set_message(p_app_name => g_app_name,
4060: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4061: p_token1 => 'STREAM_NAME',
4062: p_token1_value => 'RENT');
4055: x_return_status => l_return_status,
4056: x_primary_sty_id => l_sty_id);
4057:
4058: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
4059: Okl_Api.set_message(p_app_name => g_app_name,
4060: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4061: p_token1 => 'STREAM_NAME',
4062: p_token1_value => 'RENT');
4063: RAISE Okl_Api.G_EXCEPTION_ERROR;
4059: Okl_Api.set_message(p_app_name => g_app_name,
4060: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4061: p_token1 => 'STREAM_NAME',
4062: p_token1_value => 'RENT');
4063: RAISE Okl_Api.G_EXCEPTION_ERROR;
4064: END IF;
4065:
4066: OPEN get_unb_rec_csr(p_khr_id, l_provision_date, l_sty_id);
4067: FETCH get_unb_rec_csr INTO l_rent_strm_bal;
4073: END IF;
4074: RETURN l_rent_strm_bal;
4075:
4076: EXCEPTION
4077: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4078: RETURN NULL;
4079:
4080: WHEN OTHERS THEN
4081: IF get_unb_rec_csr%ISOPEN THEN
4083: END IF;
4084: IF contract_num_csr%ISOPEN THEN
4085: CLOSE contract_num_csr;
4086: END IF;
4087: Okl_Api.SET_MESSAGE(
4088: p_app_name => G_APP_NAME,
4089: p_msg_name => G_UNEXPECTED_ERROR,
4090: p_token1 => G_SQLCODE_TOKEN,
4091: p_token1_value => SQLCODE,
4112: l_contract_number VARCHAR2(2000);
4113: l_provision_date DATE;
4114: l_rent_sty_id NUMBER;
4115: l_lease_inc_sty_id NUMBER;
4116: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4117:
4118: -- cursor to get the contract number
4119: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS
4120: SELECT contract_number
4230: OPEN contract_num_csr(p_khr_id);
4231: FETCH contract_num_csr INTO l_contract_number;
4232: CLOSE contract_num_csr;
4233: IF l_contract_number IS NULL THEN
4234: Okl_Api.set_message(p_app_name => g_app_name,
4235: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4236: RAISE OKL_API.G_EXCEPTION_ERROR;
4237: END IF;
4238:
4232: CLOSE contract_num_csr;
4233: IF l_contract_number IS NULL THEN
4234: Okl_Api.set_message(p_app_name => g_app_name,
4235: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4236: RAISE OKL_API.G_EXCEPTION_ERROR;
4237: END IF;
4238:
4239: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4240: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4255: END IF;
4256: --Bug# 15992711 , End
4257: END LOOP;
4258: ELSE
4259: Okl_Api.Set_Message(p_app_name => g_app_name,
4260: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4261: RAISE Okl_Api.G_EXCEPTION_ERROR;
4262: END IF;
4263:
4257: END LOOP;
4258: ELSE
4259: Okl_Api.Set_Message(p_app_name => g_app_name,
4260: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4261: RAISE Okl_Api.G_EXCEPTION_ERROR;
4262: END IF;
4263:
4264: IF l_provision_date IS NULL THEN
4265: Okl_Api.Set_Message(p_app_name => g_app_name,
4261: RAISE Okl_Api.G_EXCEPTION_ERROR;
4262: END IF;
4263:
4264: IF l_provision_date IS NULL THEN
4265: Okl_Api.Set_Message(p_app_name => g_app_name,
4266: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
4267: RAISE Okl_Api.G_EXCEPTION_ERROR;
4268: END IF;
4269:
4263:
4264: IF l_provision_date IS NULL THEN
4265: Okl_Api.Set_Message(p_app_name => g_app_name,
4266: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
4267: RAISE Okl_Api.G_EXCEPTION_ERROR;
4268: END IF;
4269:
4270: -- SGIYER
4271: -- UDS Impact
4273: p_khr_id => p_khr_id,
4274: p_primary_sty_purpose => 'RENT',
4275: x_return_status => l_return_status,
4276: x_primary_sty_id => l_rent_sty_id);
4277: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
4278: Okl_Api.set_message(p_app_name => g_app_name,
4279: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4280: p_token1 => 'STREAM_NAME',
4281: p_token1_value => 'RENT');
4274: p_primary_sty_purpose => 'RENT',
4275: x_return_status => l_return_status,
4276: x_primary_sty_id => l_rent_sty_id);
4277: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
4278: Okl_Api.set_message(p_app_name => g_app_name,
4279: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4280: p_token1 => 'STREAM_NAME',
4281: p_token1_value => 'RENT');
4282: RAISE Okl_Api.G_EXCEPTION_ERROR;
4278: Okl_Api.set_message(p_app_name => g_app_name,
4279: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4280: p_token1 => 'STREAM_NAME',
4281: p_token1_value => 'RENT');
4282: RAISE Okl_Api.G_EXCEPTION_ERROR;
4283: END IF;
4284:
4285: -- SGIYER
4286: -- UDS Impact
4289: p_primary_sty_purpose => 'RENT',
4290: p_dependent_sty_purpose => 'LEASE_INCOME',
4291: x_return_status => l_return_status,
4292: x_dependent_sty_id => l_lease_inc_sty_id);
4293: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4294: -- store SQL error message on message stack for caller and entry in log file
4295: Okl_Api.set_message(p_app_name => g_app_name,
4296: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4297: p_token1 => 'STREAM_NAME',
4291: x_return_status => l_return_status,
4292: x_dependent_sty_id => l_lease_inc_sty_id);
4293: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4294: -- store SQL error message on message stack for caller and entry in log file
4295: Okl_Api.set_message(p_app_name => g_app_name,
4296: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4297: p_token1 => 'STREAM_NAME',
4298: p_token1_value => 'LEASE INCOME');
4299: RAISE Okl_Api.G_EXCEPTION_ERROR;
4295: Okl_Api.set_message(p_app_name => g_app_name,
4296: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4297: p_token1 => 'STREAM_NAME',
4298: p_token1_value => 'LEASE INCOME');
4299: RAISE Okl_Api.G_EXCEPTION_ERROR;
4300: END IF;
4301:
4302: --Bug# 15992711 , Start
4303: -- If l_line_type is set as either 'NEW' or 'RELEASE' call
4328:
4329: RETURN l_income_strm_bal;
4330:
4331: EXCEPTION
4332: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4333: RETURN NULL;
4334:
4335: WHEN OTHERS THEN
4336: IF get_unearn_rev_csr%ISOPEN THEN
4338: END IF;
4339: IF contract_num_csr%ISOPEN THEN
4340: CLOSE contract_num_csr;
4341: END IF;
4342: Okl_Api.SET_MESSAGE(
4343: p_app_name => G_APP_NAME,
4344: p_msg_name => G_UNEXPECTED_ERROR,
4345: p_token1 => G_SQLCODE_TOKEN,
4346: p_token1_value => SQLCODE,
4381: OPEN contract_num_csr(p_khr_id);
4382: FETCH contract_num_csr INTO l_contract_number;
4383: IF contract_num_csr%NOTFOUND THEN
4384: CLOSE contract_num_csr;
4385: Okl_Api.set_message(p_app_name => g_app_name,
4386: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4387: RAISE OKL_API.G_EXCEPTION_ERROR;
4388: END IF;
4389: CLOSE contract_num_csr;
4383: IF contract_num_csr%NOTFOUND THEN
4384: CLOSE contract_num_csr;
4385: Okl_Api.set_message(p_app_name => g_app_name,
4386: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4387: RAISE OKL_API.G_EXCEPTION_ERROR;
4388: END IF;
4389: CLOSE contract_num_csr;
4390:
4391: OPEN get_ung_res_csr(p_khr_id);
4390:
4391: OPEN get_ung_res_csr(p_khr_id);
4392: FETCH get_ung_res_csr INTO l_unguaranteed_residual;
4393: IF get_ung_res_csr%NOTFOUND THEN
4394: Okl_Api.Set_Message(p_app_name => g_app_name,
4395: p_msg_name => 'OKL_LPV_FE_UNG_RES',
4396: p_token1 => 'CONTRACT_NUMBER',
4397: p_token1_value => l_contract_number);
4398: CLOSE get_ung_res_csr;
4395: p_msg_name => 'OKL_LPV_FE_UNG_RES',
4396: p_token1 => 'CONTRACT_NUMBER',
4397: p_token1_value => l_contract_number);
4398: CLOSE get_ung_res_csr;
4399: RAISE OKL_API.G_EXCEPTION_ERROR;
4400: END IF;
4401: CLOSE get_ung_res_csr;
4402:
4403: -- Bug 2969989. Return zero explicitly if nothing found.
4407:
4408: RETURN l_unguaranteed_residual;
4409:
4410: EXCEPTION
4411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4412: RETURN NULL;
4413:
4414: WHEN OTHERS THEN
4415: Okl_Api.SET_MESSAGE(
4411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4412: RETURN NULL;
4413:
4414: WHEN OTHERS THEN
4415: Okl_Api.SET_MESSAGE(
4416: p_app_name => G_APP_NAME,
4417: p_msg_name => G_UNEXPECTED_ERROR,
4418: p_token1 => G_SQLCODE_TOKEN,
4419: p_token1_value => SQLCODE,
4440: l_unaccrued_subsidy NUMBER := 0;
4441: l_contract_number VARCHAR2(2000);
4442: l_provision_date DATE;
4443: l_subsidy_inc_id NUMBER;
4444: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4445:
4446: -- cursor to get the contract number
4447: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS
4448: SELECT contract_number
4471: FETCH contract_num_csr INTO l_contract_number;
4472: CLOSE contract_num_csr;
4473:
4474: IF l_contract_number IS NULL THEN
4475: Okl_Api.set_message(p_app_name => g_app_name,
4476: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4477: RAISE OKL_API.G_EXCEPTION_ERROR;
4478: END IF;
4479:
4473:
4474: IF l_contract_number IS NULL THEN
4475: Okl_Api.set_message(p_app_name => g_app_name,
4476: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4477: RAISE OKL_API.G_EXCEPTION_ERROR;
4478: END IF;
4479:
4480: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4481: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4484: l_provision_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4485: END IF;
4486: END LOOP;
4487: ELSE
4488: Okl_Api.Set_Message(p_app_name => g_app_name,
4489: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4490: RAISE Okl_Api.G_EXCEPTION_ERROR;
4491: END IF;
4492:
4486: END LOOP;
4487: ELSE
4488: Okl_Api.Set_Message(p_app_name => g_app_name,
4489: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4490: RAISE Okl_Api.G_EXCEPTION_ERROR;
4491: END IF;
4492:
4493: IF l_provision_date IS NULL THEN
4494: Okl_Api.Set_Message(p_app_name => g_app_name,
4490: RAISE Okl_Api.G_EXCEPTION_ERROR;
4491: END IF;
4492:
4493: IF l_provision_date IS NULL THEN
4494: Okl_Api.Set_Message(p_app_name => g_app_name,
4495: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
4496: RAISE Okl_Api.G_EXCEPTION_ERROR;
4497: END IF;
4498:
4492:
4493: IF l_provision_date IS NULL THEN
4494: Okl_Api.Set_Message(p_app_name => g_app_name,
4495: p_msg_name => 'OKL_GLP_PROV_DATE_ERROR');
4496: RAISE Okl_Api.G_EXCEPTION_ERROR;
4497: END IF;
4498:
4499: -- Bug 4053623.
4500: -- Modifying error handling.
4503: p_primary_sty_purpose => 'SUBSIDY',
4504: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
4505: x_return_status => l_return_status,
4506: x_dependent_sty_id => l_subsidy_inc_id);
4507: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4508: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4509: -- subsidy income stream not defined for the contract
4510: l_unaccrued_subsidy := 0;
4511: RETURN l_unaccrued_subsidy;
4504: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
4505: x_return_status => l_return_status,
4506: x_dependent_sty_id => l_subsidy_inc_id);
4507: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4508: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4509: -- subsidy income stream not defined for the contract
4510: l_unaccrued_subsidy := 0;
4511: RETURN l_unaccrued_subsidy;
4512: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4508: IF l_return_status = OKL_API.G_RET_STS_ERROR THEN
4509: -- subsidy income stream not defined for the contract
4510: l_unaccrued_subsidy := 0;
4511: RETURN l_unaccrued_subsidy;
4512: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4513: -- store SQL error message on message stack for caller and entry in log file
4514: Okl_Api.set_message(p_app_name => g_app_name,
4515: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4516: p_token1 => 'STREAM_NAME',
4510: l_unaccrued_subsidy := 0;
4511: RETURN l_unaccrued_subsidy;
4512: ELSIF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4513: -- store SQL error message on message stack for caller and entry in log file
4514: Okl_Api.set_message(p_app_name => g_app_name,
4515: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4516: p_token1 => 'STREAM_NAME',
4517: p_token1_value => 'SUBSIDY INCOME');
4518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4514: Okl_Api.set_message(p_app_name => g_app_name,
4515: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4516: p_token1 => 'STREAM_NAME',
4517: p_token1_value => 'SUBSIDY INCOME');
4518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4519: END IF;
4520: END IF;
4521:
4522: IF l_subsidy_inc_id IS NOT NULL THEN
4530:
4531: RETURN l_unaccrued_subsidy;
4532:
4533: EXCEPTION
4534: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4535: RETURN NULL;
4536:
4537: WHEN OTHERS THEN
4538: IF unaccrued_subsidy_csr%ISOPEN THEN
4540: END IF;
4541: IF contract_num_csr%ISOPEN THEN
4542: CLOSE contract_num_csr;
4543: END IF;
4544: Okl_Api.SET_MESSAGE(
4545: p_app_name => G_APP_NAME,
4546: p_msg_name => G_UNEXPECTED_ERROR,
4547: p_token1 => G_SQLCODE_TOKEN,
4548: p_token1_value => SQLCODE,
4554: FUNCTION CONTRACT_TOTAL_ACTUAL_INT(p_khr_id IN NUMBER, p_kle_id IN NUMBER) RETURN NUMBER IS
4555:
4556: l_accrual_date DATE;
4557: l_total_actual_int NUMBER;
4558: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4559:
4560: BEGIN
4561:
4562:
4567: l_accrual_date := TO_DATE(Okl_Execute_Formula_Pub.g_additional_parameters(i).value, 'MM/DD/YYYY');
4568: END IF;
4569: END LOOP;
4570: ELSE
4571: Okl_Api.Set_Message(p_app_name => g_app_name,
4572: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4573: RAISE Okl_Api.G_EXCEPTION_ERROR;
4574: END IF;
4575:
4569: END LOOP;
4570: ELSE
4571: Okl_Api.Set_Message(p_app_name => g_app_name,
4572: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4573: RAISE Okl_Api.G_EXCEPTION_ERROR;
4574: END IF;
4575:
4576: IF l_accrual_date IS NULL THEN
4577: Okl_Api.Set_Message(p_app_name => g_app_name,
4573: RAISE Okl_Api.G_EXCEPTION_ERROR;
4574: END IF;
4575:
4576: IF l_accrual_date IS NULL THEN
4577: Okl_Api.Set_Message(p_app_name => g_app_name,
4578: p_msg_name => 'OKL_AGN_DATE_ERROR');
4579: RAISE Okl_Api.G_EXCEPTION_ERROR;
4580: END IF;
4581:
4575:
4576: IF l_accrual_date IS NULL THEN
4577: Okl_Api.Set_Message(p_app_name => g_app_name,
4578: p_msg_name => 'OKL_AGN_DATE_ERROR');
4579: RAISE Okl_Api.G_EXCEPTION_ERROR;
4580: END IF;
4581:
4582: l_total_actual_int := OKL_VARIABLE_INT_UTIL_PVT.get_interest_due(
4583: x_return_status => l_return_status,
4583: x_return_status => l_return_status,
4584: p_khr_id => p_khr_id,
4585: p_to_date => l_accrual_date);
4586:
4587: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4588: -- store SQL error message on message stack for caller and entry in log file
4589: Okl_Api.set_message(p_app_name => g_app_name,
4590: p_msg_name => 'OKL_AGN_VAR_INT_UTIL_ERROR',
4591: p_token1 => 'ERROR_STATUS',
4585: p_to_date => l_accrual_date);
4586:
4587: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4588: -- store SQL error message on message stack for caller and entry in log file
4589: Okl_Api.set_message(p_app_name => g_app_name,
4590: p_msg_name => 'OKL_AGN_VAR_INT_UTIL_ERROR',
4591: p_token1 => 'ERROR_STATUS',
4592: p_token1_value => l_return_status);
4593: RAISE Okl_Api.G_EXCEPTION_ERROR;
4589: Okl_Api.set_message(p_app_name => g_app_name,
4590: p_msg_name => 'OKL_AGN_VAR_INT_UTIL_ERROR',
4591: p_token1 => 'ERROR_STATUS',
4592: p_token1_value => l_return_status);
4593: RAISE Okl_Api.G_EXCEPTION_ERROR;
4594: ELSE
4595: IF (l_total_actual_int IS NULL) OR (l_total_actual_int = 0) THEN
4596: Okl_Api.Set_Message(p_app_name => g_app_name,
4597: p_msg_name => 'OKL_AGN_TOT_VAR_INT_ERROR');
4592: p_token1_value => l_return_status);
4593: RAISE Okl_Api.G_EXCEPTION_ERROR;
4594: ELSE
4595: IF (l_total_actual_int IS NULL) OR (l_total_actual_int = 0) THEN
4596: Okl_Api.Set_Message(p_app_name => g_app_name,
4597: p_msg_name => 'OKL_AGN_TOT_VAR_INT_ERROR');
4598: RAISE OKL_API.G_EXCEPTION_ERROR;
4599: END IF;
4600: END IF;
4594: ELSE
4595: IF (l_total_actual_int IS NULL) OR (l_total_actual_int = 0) THEN
4596: Okl_Api.Set_Message(p_app_name => g_app_name,
4597: p_msg_name => 'OKL_AGN_TOT_VAR_INT_ERROR');
4598: RAISE OKL_API.G_EXCEPTION_ERROR;
4599: END IF;
4600: END IF;
4601:
4602: RETURN l_total_actual_int;
4601:
4602: RETURN l_total_actual_int;
4603:
4604: EXCEPTION
4605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4606: RETURN NULL;
4607:
4608: WHEN OTHERS THEN
4609: Okl_Api.SET_MESSAGE(
4605: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4606: RETURN NULL;
4607:
4608: WHEN OTHERS THEN
4609: Okl_Api.SET_MESSAGE(
4610: p_app_name => G_APP_NAME,
4611: p_msg_name => G_UNEXPECTED_ERROR,
4612: p_token1 => G_SQLCODE_TOKEN,
4613: p_token1_value => SQLCODE,
4635: l_total_accrued NUMBER := 0;
4636: l_contract_number VARCHAR2(2000);
4637: l_accrual_date DATE;
4638: l_sty_id NUMBER;
4639: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4640:
4641: -- cursor to get the contract number
4642: CURSOR contract_num_csr (p_ctr_id OKL_K_HEADERS_FULL_V.ID%TYPE) IS
4643: SELECT contract_number
4671: FETCH contract_num_csr INTO l_contract_number;
4672: CLOSE contract_num_csr;
4673:
4674: IF l_contract_number IS NULL THEN
4675: Okl_Api.set_message(p_app_name => g_app_name,
4676: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4677: RAISE OKL_API.G_EXCEPTION_ERROR;
4678: END IF;
4679:
4673:
4674: IF l_contract_number IS NULL THEN
4675: Okl_Api.set_message(p_app_name => g_app_name,
4676: p_msg_name => 'OKL_REV_LPV_CNTRCT_NUM_ERROR');
4677: RAISE OKL_API.G_EXCEPTION_ERROR;
4678: END IF;
4679:
4680: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
4681: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
4688: l_rep_type := Okl_Execute_Formula_Pub.g_additional_parameters(i).value;
4689: END IF;
4690: END LOOP;
4691: ELSE
4692: Okl_Api.Set_Message(p_app_name => g_app_name,
4693: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4694: RAISE Okl_Api.G_EXCEPTION_ERROR;
4695: END IF;
4696:
4690: END LOOP;
4691: ELSE
4692: Okl_Api.Set_Message(p_app_name => g_app_name,
4693: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
4694: RAISE Okl_Api.G_EXCEPTION_ERROR;
4695: END IF;
4696:
4697: --sechawla 21-sep-09 8830506
4698: IF l_rep_type = 'PRIMARY' THEN
4710: x_return_status => l_return_status,
4711: x_dependent_sty_id => l_sty_id);
4712: END IF;
4713:
4714: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4715: -- store SQL error message on message stack for caller and entry in log file
4716: Okl_Api.set_message(p_app_name => g_app_name,
4717: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4718: p_token1 => 'STREAM_NAME',
4712: END IF;
4713:
4714: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4715: -- store SQL error message on message stack for caller and entry in log file
4716: Okl_Api.set_message(p_app_name => g_app_name,
4717: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4718: p_token1 => 'STREAM_NAME',
4719: p_token1_value => 'Actual Income Accrual');
4720: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: Okl_Api.set_message(p_app_name => g_app_name,
4717: p_msg_name => 'OKL_AGN_STRM_TYPE_ERROR',
4718: p_token1 => 'STREAM_NAME',
4719: p_token1_value => 'Actual Income Accrual');
4720: RAISE Okl_Api.G_EXCEPTION_ERROR;
4721: END IF;
4722:
4723:
4724:
4722:
4723:
4724:
4725: IF l_accrual_date IS NULL THEN
4726: Okl_Api.Set_Message(p_app_name => g_app_name,
4727: p_msg_name => 'OKL_AGN_DATE_ERROR');
4728: RAISE Okl_Api.G_EXCEPTION_ERROR;
4729: END IF;
4730:
4724:
4725: IF l_accrual_date IS NULL THEN
4726: Okl_Api.Set_Message(p_app_name => g_app_name,
4727: p_msg_name => 'OKL_AGN_DATE_ERROR');
4728: RAISE Okl_Api.G_EXCEPTION_ERROR;
4729: END IF;
4730:
4731: OPEN total_accrued_csr(p_khr_id, l_accrual_date, l_sty_id, l_rep_type); --sechawla 19-Sep-09 8830506 : added l_rep_type
4732: FETCH total_accrued_csr INTO l_total_accrued;
4738:
4739: RETURN l_total_accrued;
4740:
4741: EXCEPTION
4742: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4743: RETURN NULL;
4744:
4745: WHEN OTHERS THEN
4746: IF total_accrued_csr%ISOPEN THEN
4745: WHEN OTHERS THEN
4746: IF total_accrued_csr%ISOPEN THEN
4747: CLOSE total_accrued_csr;
4748: END IF;
4749: Okl_Api.SET_MESSAGE(
4750: p_app_name => G_APP_NAME,
4751: p_msg_name => G_UNEXPECTED_ERROR,
4752: p_token1 => G_SQLCODE_TOKEN,
4753: p_token1_value => SQLCODE,
4900: l_no_taxable_amount EXCEPTION;
4901: l_no_sys_params EXCEPTION;
4902: l_tax_tbl ARP_TAX.om_tax_out_tab_type;
4903: l_bill_to_rec okx_cust_site_uses_v%ROWTYPE;
4904: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4905: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4906: l_object_name VARCHAR2(200);
4907: l_token VARCHAR2(30);
4908:
4901: l_no_sys_params EXCEPTION;
4902: l_tax_tbl ARP_TAX.om_tax_out_tab_type;
4903: l_bill_to_rec okx_cust_site_uses_v%ROWTYPE;
4904: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4905: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4906: l_object_name VARCHAR2(200);
4907: l_token VARCHAR2(30);
4908:
4909: -- Variables to pass to taxation API
4940: l_token := 'contract_id';
4941: END IF;
4942:
4943: IF l_object_name IS NULL THEN
4944: l_overall_status := OKL_API.G_RET_STS_ERROR;
4945: OKC_API.SET_MESSAGE (
4946: p_app_name => OKC_API.G_APP_NAME,
4947: p_msg_name => OKC_API.G_INVALID_VALUE,
4948: p_token1 => OKC_API.G_COL_NAME_TOKEN,
4971: END IF;
4972:
4973: EXCEPTION
4974: WHEN OTHERS THEN
4975: l_overall_status := OKL_API.G_RET_STS_ERROR;
4976: OKL_API.SET_MESSAGE (
4977: p_app_name => OKL_API.G_APP_NAME,
4978: p_msg_name => 'OKL_AM_TAX_NO_TAXABLE_AMOUNT',
4979: p_token1 => 'OBJECT',
4972:
4973: EXCEPTION
4974: WHEN OTHERS THEN
4975: l_overall_status := OKL_API.G_RET_STS_ERROR;
4976: OKL_API.SET_MESSAGE (
4977: p_app_name => OKL_API.G_APP_NAME,
4978: p_msg_name => 'OKL_AM_TAX_NO_TAXABLE_AMOUNT',
4979: p_token1 => 'OBJECT',
4980: p_token1_value => l_object_name);
4973: EXCEPTION
4974: WHEN OTHERS THEN
4975: l_overall_status := OKL_API.G_RET_STS_ERROR;
4976: OKL_API.SET_MESSAGE (
4977: p_app_name => OKL_API.G_APP_NAME,
4978: p_msg_name => 'OKL_AM_TAX_NO_TAXABLE_AMOUNT',
4979: p_token1 => 'OBJECT',
4980: p_token1_value => l_object_name);
4981: END;
4997: END IF;
4998:
4999: EXCEPTION
5000: WHEN OTHERS THEN
5001: l_overall_status := OKL_API.G_RET_STS_ERROR;
5002: OKL_API.SET_MESSAGE (
5003: p_app_name => OKL_API.G_APP_NAME,
5004: p_msg_name => 'OKL_AM_TAX_NO_PARAMS',
5005: p_token1 => 'OBJECT',
4998:
4999: EXCEPTION
5000: WHEN OTHERS THEN
5001: l_overall_status := OKL_API.G_RET_STS_ERROR;
5002: OKL_API.SET_MESSAGE (
5003: p_app_name => OKL_API.G_APP_NAME,
5004: p_msg_name => 'OKL_AM_TAX_NO_PARAMS',
5005: p_token1 => 'OBJECT',
5006: p_token1_value => l_object_name);
4999: EXCEPTION
5000: WHEN OTHERS THEN
5001: l_overall_status := OKL_API.G_RET_STS_ERROR;
5002: OKL_API.SET_MESSAGE (
5003: p_app_name => OKL_API.G_APP_NAME,
5004: p_msg_name => 'OKL_AM_TAX_NO_PARAMS',
5005: p_token1 => 'OBJECT',
5006: p_token1_value => l_object_name);
5007: END;
5022: END LOOP;
5023:
5024: IF l_item_loc_csr%ROWCOUNT <> 1
5025: OR l_location_id IS NULL THEN
5026: l_overall_status := OKL_API.G_RET_STS_ERROR;
5027: OKL_API.SET_MESSAGE (
5028: p_app_name => OKL_API.G_APP_NAME,
5029: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
5030: p_token1 => 'OBJECT',
5023:
5024: IF l_item_loc_csr%ROWCOUNT <> 1
5025: OR l_location_id IS NULL THEN
5026: l_overall_status := OKL_API.G_RET_STS_ERROR;
5027: OKL_API.SET_MESSAGE (
5028: p_app_name => OKL_API.G_APP_NAME,
5029: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
5030: p_token1 => 'OBJECT',
5031: p_token1_value => l_object_name);
5024: IF l_item_loc_csr%ROWCOUNT <> 1
5025: OR l_location_id IS NULL THEN
5026: l_overall_status := OKL_API.G_RET_STS_ERROR;
5027: OKL_API.SET_MESSAGE (
5028: p_app_name => OKL_API.G_APP_NAME,
5029: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
5030: p_token1 => 'OBJECT',
5031: p_token1_value => l_object_name);
5032: END IF;
5044: p_message_yn => FALSE,
5045: x_bill_to_address_rec => l_bill_to_rec,
5046: x_return_status => l_return_status);
5047:
5048: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5049: l_cust_site_use_id := l_bill_to_rec.id1;
5050: l_cust_account_id := l_bill_to_rec.cust_account_id;
5051: END IF;
5052:
5049: l_cust_site_use_id := l_bill_to_rec.id1;
5050: l_cust_account_id := l_bill_to_rec.cust_account_id;
5051: END IF;
5052:
5053: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5054: OR l_cust_site_use_id IS NULL
5055: OR l_cust_account_id IS NULL THEN
5056: l_overall_status := OKL_API.G_RET_STS_ERROR;
5057: OKL_API.SET_MESSAGE (
5052:
5053: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5054: OR l_cust_site_use_id IS NULL
5055: OR l_cust_account_id IS NULL THEN
5056: l_overall_status := OKL_API.G_RET_STS_ERROR;
5057: OKL_API.SET_MESSAGE (
5058: p_app_name => OKL_API.G_APP_NAME,
5059: p_msg_name => 'OKL_AM_TAX_NO_BILL_TO',
5060: p_token1 => 'OBJECT',
5053: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5054: OR l_cust_site_use_id IS NULL
5055: OR l_cust_account_id IS NULL THEN
5056: l_overall_status := OKL_API.G_RET_STS_ERROR;
5057: OKL_API.SET_MESSAGE (
5058: p_app_name => OKL_API.G_APP_NAME,
5059: p_msg_name => 'OKL_AM_TAX_NO_BILL_TO',
5060: p_token1 => 'OBJECT',
5061: p_token1_value => l_object_name);
5054: OR l_cust_site_use_id IS NULL
5055: OR l_cust_account_id IS NULL THEN
5056: l_overall_status := OKL_API.G_RET_STS_ERROR;
5057: OKL_API.SET_MESSAGE (
5058: p_app_name => OKL_API.G_APP_NAME,
5059: p_msg_name => 'OKL_AM_TAX_NO_BILL_TO',
5060: p_token1 => 'OBJECT',
5061: p_token1_value => l_object_name);
5062: END IF;
5070: -- RMUNJULU 3394507 Reset the GLOBAL tax_info_rec rec type with empty rec type
5071: arp_tax.tax_info_rec := l_tax_rec;
5072:
5073: -- Calculate tax for positive amounts
5074: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
5075: AND l_taxable_amount > 0 THEN
5076:
5077: arp_tax.tax_info_rec.trx_date := SYSDATE;
5078: arp_tax.tax_info_rec.extended_amount := l_taxable_amount;
5098: CLOSE item_loc_csr;
5099:
5100: -- raise message if site location not found
5101: IF l_location_id IS NULL THEN
5102: OKL_API.SET_MESSAGE (
5103: p_app_name => OKL_API.G_APP_NAME,
5104: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
5105: p_token1 => 'OBJECT',
5106: p_token1_value => l_object_name);
5099:
5100: -- raise message if site location not found
5101: IF l_location_id IS NULL THEN
5102: OKL_API.SET_MESSAGE (
5103: p_app_name => OKL_API.G_APP_NAME,
5104: p_msg_name => 'OKL_AM_TAX_NO_LOCATION',
5105: p_token1 => 'OBJECT',
5106: p_token1_value => l_object_name);
5107: END IF;
5119: ,x_crm_tax_out_tbl => l_tax_tbl
5120: ,p_new_tax_amount => l_result_amount);
5121: EXCEPTION
5122: WHEN OTHERS THEN
5123: l_overall_status := OKL_API.G_RET_STS_ERROR;
5124: OKL_API.SET_MESSAGE (
5125: p_app_name => OKL_API.G_APP_NAME,
5126: p_msg_name => 'OKL_AM_TAX_ARP_FAILED',
5127: p_token1 => 'OBJECT',
5120: ,p_new_tax_amount => l_result_amount);
5121: EXCEPTION
5122: WHEN OTHERS THEN
5123: l_overall_status := OKL_API.G_RET_STS_ERROR;
5124: OKL_API.SET_MESSAGE (
5125: p_app_name => OKL_API.G_APP_NAME,
5126: p_msg_name => 'OKL_AM_TAX_ARP_FAILED',
5127: p_token1 => 'OBJECT',
5128: p_token1_value => l_object_name);
5121: EXCEPTION
5122: WHEN OTHERS THEN
5123: l_overall_status := OKL_API.G_RET_STS_ERROR;
5124: OKL_API.SET_MESSAGE (
5125: p_app_name => OKL_API.G_APP_NAME,
5126: p_msg_name => 'OKL_AM_TAX_ARP_FAILED',
5127: p_token1 => 'OBJECT',
5128: p_token1_value => l_object_name);
5129: END;
5156: END IF;
5157:
5158: -- store SQL error message on message stack for caller
5159:
5160: OKL_API.SET_MESSAGE (
5161: p_app_name => OKL_API.G_APP_NAME,
5162: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5163: p_token1 => 'SQLCODE',
5164: p_token1_value => SQLCODE,
5157:
5158: -- store SQL error message on message stack for caller
5159:
5160: OKL_API.SET_MESSAGE (
5161: p_app_name => OKL_API.G_APP_NAME,
5162: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5163: p_token1 => 'SQLCODE',
5164: p_token1_value => SQLCODE,
5165: p_token2 => 'SQLERRM',
5234: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
5235: l_tbl_cnt NUMBER;
5236: BEGIN
5237: l_api_version := '1.0';
5238: l_init_msg_list := OKL_API.G_FALSE;
5239: l_result_amount := 0;
5240:
5241: IF Okl_Execute_Formula_Pub.g_additional_parameters.COUNT > 0 THEN
5242: FOR i IN Okl_Execute_Formula_Pub.g_additional_parameters.FIRST..Okl_Execute_Formula_Pub.g_additional_parameters.LAST
5247: END LOOP;
5248: END IF;
5249:
5250: IF l_quote_id IS NOT NULL
5251: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
5252: OPEN get_quote_date_csr (l_quote_id);
5253: FETCH get_quote_date_csr INTO l_quote_date_eff;
5254: CLOSE get_quote_date_csr;
5255: END IF;
5256:
5257: SELECT SYSDATE INTO l_sysdate FROM DUAL;
5258:
5259: IF l_quote_date_eff IS NULL
5260: OR l_quote_date_eff = OKL_API.G_MISS_DATE
5261: THEN
5262: l_quote_date_eff := l_sysdate;
5263: END IF;
5264:
5287: RETURN NVL (l_result_amount, 0);
5288: EXCEPTION
5289: WHEN OTHERS THEN
5290: -- store SQL error message on message stack for caller
5291: OKL_API.SET_MESSAGE (
5292: p_app_name => OKL_API.G_APP_NAME,
5293: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5294: p_token1 => 'SQLCODE',
5295: p_token1_value => SQLCODE,
5288: EXCEPTION
5289: WHEN OTHERS THEN
5290: -- store SQL error message on message stack for caller
5291: OKL_API.SET_MESSAGE (
5292: p_app_name => OKL_API.G_APP_NAME,
5293: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5294: p_token1 => 'SQLCODE',
5295: p_token1_value => SQLCODE,
5296: p_token2 => 'SQLERRM',
5338: WHEN OTHERS THEN
5339:
5340: -- store SQL error message on message stack for caller
5341:
5342: OKL_API.SET_MESSAGE (
5343: p_app_name => OKL_API.G_APP_NAME,
5344: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5345: p_token1 => 'SQLCODE',
5346: p_token1_value => SQLCODE,
5339:
5340: -- store SQL error message on message stack for caller
5341:
5342: OKL_API.SET_MESSAGE (
5343: p_app_name => OKL_API.G_APP_NAME,
5344: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5345: p_token1 => 'SQLCODE',
5346: p_token1_value => SQLCODE,
5347: p_token2 => 'SQLERRM',
5450:
5451:
5452: -- store SQL error message on message stack for caller
5453:
5454: OKL_API.SET_MESSAGE (
5455: p_app_name => OKL_API.G_APP_NAME,
5456: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5457: p_token1 => 'SQLCODE',
5458: p_token1_value => SQLCODE,
5451:
5452: -- store SQL error message on message stack for caller
5453:
5454: OKL_API.SET_MESSAGE (
5455: p_app_name => OKL_API.G_APP_NAME,
5456: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5457: p_token1 => 'SQLCODE',
5458: p_token1_value => SQLCODE,
5459: p_token2 => 'SQLERRM',
5540: ---SECHAWLA 05-MAY-04 3578894 : end new declarations
5541:
5542: l_result_amount NUMBER := 0;
5543: l_stream_type_id NUMBER;
5544: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
5545: BEGIN
5546: --PAGARG 31-Dec-2004 Bug# 4097591 Start
5547: --UDS impact. Obtain stream type id and pass it to cursor
5548:
5550: 'RENT',
5551: l_return_status,
5552: l_stream_type_id);
5553:
5554: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5555: THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5558: THEN
5552: l_stream_type_id);
5553:
5554: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5555: THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5558: THEN
5559: RAISE OKL_API.G_EXCEPTION_ERROR;
5560: END IF;
5553:
5554: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5555: THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5558: THEN
5559: RAISE OKL_API.G_EXCEPTION_ERROR;
5560: END IF;
5561: --PAGARG 31-Dec-2004 Bug# 4097591 End
5555: THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
5558: THEN
5559: RAISE OKL_API.G_EXCEPTION_ERROR;
5560: END IF;
5561: --PAGARG 31-Dec-2004 Bug# 4097591 End
5562:
5563: /* SECHAWLA 05-MAY-04 3578894
5588:
5589: IF l_rep_prod_streams_yn = 'Y' THEN
5590: IF l_trx_date IS NULL THEN
5591: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
5592: Okl_Api.Set_Message(p_app_name => g_app_name,
5593: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
5594: RAISE Okl_Api.G_EXCEPTION_ERROR;
5595: END IF;
5596: END IF;
5590: IF l_trx_date IS NULL THEN
5591: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
5592: Okl_Api.Set_Message(p_app_name => g_app_name,
5593: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
5594: RAISE Okl_Api.G_EXCEPTION_ERROR;
5595: END IF;
5596: END IF;
5597:
5598:
5614: RETURN NVL (l_result_amount, 0);
5615:
5616:
5617: EXCEPTION
5618: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5619: -- Close open cursors
5620: IF l_unbill_stream_csr%ISOPEN THEN
5621: CLOSE l_unbill_stream_csr;
5622: END IF;
5636: IF l_unbill_reporting_stream_csr%ISOPEN THEN
5637: CLOSE l_unbill_reporting_stream_csr;
5638: END IF;
5639: -- store SQL error message on message stack for caller
5640: OKL_API.SET_MESSAGE (
5641: p_app_name => OKL_API.G_APP_NAME,
5642: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5643: p_token1 => 'SQLCODE',
5644: p_token1_value => SQLCODE,
5637: CLOSE l_unbill_reporting_stream_csr;
5638: END IF;
5639: -- store SQL error message on message stack for caller
5640: OKL_API.SET_MESSAGE (
5641: p_app_name => OKL_API.G_APP_NAME,
5642: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5643: p_token1 => 'SQLCODE',
5644: p_token1_value => SQLCODE,
5645: p_token2 => 'SQLERRM',
5734: --WHEN mg_error THEN
5735: -- IF l_get_fin_product%ISOPEN THEN
5736: -- CLOSE l_get_fin_product;
5737: -- END IF;
5738: -- x_return_status := OKL_API.G_RET_STS_ERROR;
5739: WHEN OTHERS THEN
5740: IF l_get_fin_product%ISOPEN THEN
5741: CLOSE l_get_fin_product;
5742: END IF;
5739: WHEN OTHERS THEN
5740: IF l_get_fin_product%ISOPEN THEN
5741: CLOSE l_get_fin_product;
5742: END IF;
5743: OKL_API.set_message(p_app_name => 'OKC',
5744: p_msg_name => g_unexpected_error,
5745: p_token1 => g_sqlcode_token,
5746: p_token1_value => sqlcode,
5747: p_token2 => g_sqlerrm_token,
5745: p_token1 => g_sqlcode_token,
5746: p_token1_value => sqlcode,
5747: p_token2 => g_sqlerrm_token,
5748: p_token2_value => sqlerrm);
5749: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5750: END get_reporting_product;
5751:
5752:
5753: ------------------------------------------------------------------------------
5814: AND stm.purpose_code = 'REPORT'
5815: AND sel.STREAM_ELEMENT_DATE > cp_trx_date;
5816:
5817: l_stream_type_id NUMBER;
5818: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
5819:
5820: -- sechawla 05-dec-07 6057301 - Added
5821: lx_rep_product_id OKL_PRODUCTS_V.ID%TYPE;
5822: l_api_version NUMBER := 1;
5819:
5820: -- sechawla 05-dec-07 6057301 - Added
5821: lx_rep_product_id OKL_PRODUCTS_V.ID%TYPE;
5822: l_api_version NUMBER := 1;
5823: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
5824: l_msg_count NUMBER;
5825: l_msg_data VARCHAR2(100);
5826: BEGIN
5827: -- SECHAWLA 05-MAY-04 3578894 : Validate additional parameters availability
5871: p_dependent_sty_purpose => 'LEASE_INCOME',
5872: x_return_status => l_return_status,
5873: x_dependent_sty_id => l_stream_type_id);
5874:
5875: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5878: RAISE OKL_API.G_EXCEPTION_ERROR;
5879: END IF;
5872: x_return_status => l_return_status,
5873: x_dependent_sty_id => l_stream_type_id);
5874:
5875: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5878: RAISE OKL_API.G_EXCEPTION_ERROR;
5879: END IF;
5880: --PAGARG 31-Dec-2004 Bug# 4097591 End
5873: x_dependent_sty_id => l_stream_type_id);
5874:
5875: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5878: RAISE OKL_API.G_EXCEPTION_ERROR;
5879: END IF;
5880: --PAGARG 31-Dec-2004 Bug# 4097591 End
5881:
5874:
5875: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5878: RAISE OKL_API.G_EXCEPTION_ERROR;
5879: END IF;
5880: --PAGARG 31-Dec-2004 Bug# 4097591 End
5881:
5882: END IF; -- sechawla 05-dec-07 6671849 : added
5883:
5884: IF l_rep_prod_streams_yn = 'Y' THEN
5885: IF l_trx_date IS NULL THEN
5886: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
5887: Okl_Api.Set_Message(p_app_name => g_app_name,
5888: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
5889: RAISE Okl_Api.G_EXCEPTION_ERROR;
5890: END IF;
5891: END IF;
5885: IF l_trx_date IS NULL THEN
5886: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
5887: Okl_Api.Set_Message(p_app_name => g_app_name,
5888: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
5889: RAISE Okl_Api.G_EXCEPTION_ERROR;
5890: END IF;
5891: END IF;
5892:
5893: --SECHAWLA 05-MAY-04 3578894 : check if streams required for reporting product
5919: */
5920: RETURN NVL(l_unearned_income,0);
5921:
5922: EXCEPTION
5923: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5924: IF line_csr%ISOPEN THEN
5925: CLOSE line_csr;
5926: END IF;
5927:
5944: END IF;
5945:
5946: -- store SQL error message on message stack for caller
5947:
5948: OKL_API.SET_MESSAGE (
5949: p_app_name => OKL_API.G_APP_NAME,
5950: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5951: p_token1 => 'SQLCODE',
5952: p_token1_value => SQLCODE,
5945:
5946: -- store SQL error message on message stack for caller
5947:
5948: OKL_API.SET_MESSAGE (
5949: p_app_name => OKL_API.G_APP_NAME,
5950: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
5951: p_token1 => 'SQLCODE',
5952: p_token1_value => SQLCODE,
5953: p_token2 => 'SQLERRM',
6051:
6052: RETURN l_security_deposit;
6053: EXCEPTION
6054: WHEN OTHERS THEN
6055: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6056: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6057: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6058: p_token1 => 'OKL_SQLCODE',
6059: p_token1_value => SQLCODE,
6052: RETURN l_security_deposit;
6053: EXCEPTION
6054: WHEN OTHERS THEN
6055: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6056: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6057: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6058: p_token1 => 'OKL_SQLCODE',
6059: p_token1_value => SQLCODE,
6060: p_token2 => 'OKL_SQLERRM',
6115:
6116:
6117: BEGIN
6118: IF p_contract_line_id IS NOT NULL
6119: AND p_contract_line_id <> OKL_API.G_MISS_NUM THEN -- PAGARG bug#3974997 -- check for G_MISS when checking for NULL
6120: OPEN line (p_contract_line_id);
6121: FETCH line INTO l_residual_value;
6122: CLOSE line;
6123: ELSE
6127: END IF;
6128: RETURN l_residual_value;
6129: EXCEPTION
6130: WHEN OTHERS THEN
6131: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6132: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6133: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6134: p_token1 => 'OKL_SQLCODE',
6135: p_token1_value => SQLCODE,
6128: RETURN l_residual_value;
6129: EXCEPTION
6130: WHEN OTHERS THEN
6131: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6132: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6133: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6134: p_token1 => 'OKL_SQLCODE',
6135: p_token1_value => SQLCODE,
6136: p_token2 => 'OKL_SQLERRM',
6200: AND str.khr_id = p_contract_id --sechawla 04-dec-08 : added
6201: AND str.kle_id = p_contract_line_id;
6202: BEGIN
6203: IF p_contract_line_id IS NOT NULL
6204: AND p_contract_line_id <> OKL_API.G_MISS_NUM THEN -- PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
6205: OPEN line (p_contract_id, p_contract_line_id); --sechawla 04-dec-08 : added p_contract_id
6206: FETCH line INTO l_rent_amount;
6207: CLOSE line;
6208: ELSE
6212: END IF;
6213: RETURN l_rent_amount;
6214: EXCEPTION
6215: WHEN OTHERS THEN
6216: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6217: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6218: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6219: p_token1 => 'OKL_SQLCODE',
6220: p_token1_value => SQLCODE,
6213: RETURN l_rent_amount;
6214: EXCEPTION
6215: WHEN OTHERS THEN
6216: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6217: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6218: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6219: p_token1 => 'OKL_SQLCODE',
6220: p_token1_value => SQLCODE,
6221: p_token2 => 'OKL_SQLERRM',
6312: */
6313:
6314: BEGIN
6315: IF p_contract_line_id IS NOT NULL
6316: AND p_contract_line_id <> OKL_API.G_MISS_NUM THEN -- PAGARG bug# 3974997 -- check for G_MISS when checking for NULL
6317: OPEN line (p_contract_line_id);
6318: FETCH line INTO l_unearned_income;
6319: CLOSE line;
6320: ELSE
6324: END IF;
6325: RETURN l_unearned_income;
6326: EXCEPTION
6327: WHEN OTHERS THEN
6328: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6329: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6330: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6331: p_token1 => 'OKL_SQLCODE',
6332: p_token1_value => SQLCODE,
6325: RETURN l_unearned_income;
6326: EXCEPTION
6327: WHEN OTHERS THEN
6328: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6329: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6330: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6331: p_token1 => 'OKL_SQLCODE',
6332: p_token1_value => SQLCODE,
6333: p_token2 => 'OKL_SQLERRM',
6442: x_currency_conversion_rate => p_currency_conversion_rate,
6443: x_currency_conversion_date => p_currency_conversion_date,
6444: x_converted_amount => l_converted_amount);
6445:
6446: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6447: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6448: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6449: RAISE Okl_Api.G_EXCEPTION_ERROR;
6450: END IF;
6443: x_currency_conversion_date => p_currency_conversion_date,
6444: x_converted_amount => l_converted_amount);
6445:
6446: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6447: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6448: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6449: RAISE Okl_Api.G_EXCEPTION_ERROR;
6450: END IF;
6451:
6445:
6446: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6447: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6448: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6449: RAISE Okl_Api.G_EXCEPTION_ERROR;
6450: END IF;
6451:
6452: RETURN l_converted_amount;
6453:
6481: x_currency_conversion_rate => p_currency_conversion_rate,
6482: x_currency_conversion_date => p_currency_conversion_date,
6483: x_converted_amount => l_converted_amount);
6484:
6485: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6486: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6487: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6488: RAISE Okl_Api.G_EXCEPTION_ERROR;
6489: END IF;
6482: x_currency_conversion_date => p_currency_conversion_date,
6483: x_converted_amount => l_converted_amount);
6484:
6485: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6486: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6487: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6488: RAISE Okl_Api.G_EXCEPTION_ERROR;
6489: END IF;
6490: RETURN l_converted_amount;
6484:
6485: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6486: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6487: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6488: RAISE Okl_Api.G_EXCEPTION_ERROR;
6489: END IF;
6490: RETURN l_converted_amount;
6491:
6492: END IF;
6491:
6492: END IF;
6493:
6494: EXCEPTION
6495: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6496: RETURN 0;
6497:
6498: WHEN OTHERS THEN
6499: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6495: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
6496: RETURN 0;
6497:
6498: WHEN OTHERS THEN
6499: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6500: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6501: p_token1 => 'OKL_SQLCODE',
6502: p_token1_value => SQLCODE,
6503: p_token2 => 'OKL_SQLERRM',
6585:
6586: RETURN l_amount;
6587: EXCEPTION
6588: WHEN OTHERS THEN
6589: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6590: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6591: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6592: p_token1 => 'OKL_SQLCODE',
6593: p_token1_value => SQLCODE,
6586: RETURN l_amount;
6587: EXCEPTION
6588: WHEN OTHERS THEN
6589: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6590: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6591: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6592: p_token1 => 'OKL_SQLCODE',
6593: p_token1_value => SQLCODE,
6594: p_token2 => 'OKL_SQLERRM',
6645:
6646: RETURN l_unpaid_inv;
6647: EXCEPTION
6648: WHEN OTHERS THEN
6649: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6650: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6651: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6652: p_token1 => 'OKL_SQLCODE',
6653: p_token1_value => SQLCODE,
6646: RETURN l_unpaid_inv;
6647: EXCEPTION
6648: WHEN OTHERS THEN
6649: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6650: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6651: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6652: p_token1 => 'OKL_SQLCODE',
6653: p_token1_value => SQLCODE,
6654: p_token2 => 'OKL_SQLERRM',
6707:
6708: RETURN l_unapplied_credit;
6709: EXCEPTION
6710: WHEN OTHERS THEN
6711: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6712: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6713: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6714: p_token1 => 'OKL_SQLCODE',
6715: p_token1_value => SQLCODE,
6708: RETURN l_unapplied_credit;
6709: EXCEPTION
6710: WHEN OTHERS THEN
6711: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6712: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6713: p_msg_name => 'OKL_UNEXPECTED_ERROR',
6714: p_token1 => 'OKL_SQLCODE',
6715: p_token1_value => SQLCODE,
6716: p_token2 => 'OKL_SQLERRM',
6828: SELECT SYSDATE INTO l_sysdate FROM dual;
6829:
6830: -- rmunjulu EDAT -- get eff date for quote
6831: IF l_quote_id IS NOT NULL
6832: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
6833:
6834: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
6835: l_quote_date := get_quote_date_rec.date_effective_from;
6836: END LOOP;
6838: END IF;
6839:
6840: -- rmunjulu EDAT Default the l_quote_date to sysdate if quote id not found
6841: IF l_quote_date IS NULL
6842: OR l_quote_date = OKL_API.G_MISS_DATE THEN
6843: l_quote_date := l_sysdate;
6844: END IF;
6845:
6846: IF p_contract_line_id IS NOT NULL THEN
6876: p_contract_id IN NUMBER,
6877: p_accounting_method IN VARCHAR2)
6878: RETURN NUMBER IS
6879:
6880: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6881: l_api_name CONSTANT VARCHAR2(30) := 'GET_ASSET_SUBSIDY';
6882: l_api_version CONSTANT NUMBER := 1.0;
6883: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
6884: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
6879:
6880: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6881: l_api_name CONSTANT VARCHAR2(30) := 'GET_ASSET_SUBSIDY';
6882: l_api_version CONSTANT NUMBER := 1.0;
6883: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
6884: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
6885: lx_msg_data VARCHAR2(2000);
6886:
6887: x_subsidy_amount NUMBER;
6880: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6881: l_api_name CONSTANT VARCHAR2(30) := 'GET_ASSET_SUBSIDY';
6882: l_api_version CONSTANT NUMBER := 1.0;
6883: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
6884: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
6885: lx_msg_data VARCHAR2(2000);
6886:
6887: x_subsidy_amount NUMBER;
6888:
6914: BEGIN
6915:
6916: l_asset_subsidy_amount := 0;
6917: -- START: cklee bug#4437995 if p_accounting_method has G_MISS then make it NULL
6918: IF(p_accounting_method = OKL_API.G_MISS_NUM OR p_accounting_method = OKL_API.G_MISS_CHAR) THEN
6919: l_accounting_method := NULL;
6920: END IF;
6921: -- END: cklee bug#4437995 if p_accounting_method has G_MISS then make it NULL
6922: --------------------------------------------------------------
6937:
6938: RETURN x_subsidy_amount;
6939:
6940: EXCEPTION
6941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6942: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
6943: l_api_name,
6944: G_PKG_NAME,
6945: 'OKL_API.G_RET_STS_ERROR',
6938: RETURN x_subsidy_amount;
6939:
6940: EXCEPTION
6941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6942: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
6943: l_api_name,
6944: G_PKG_NAME,
6945: 'OKL_API.G_RET_STS_ERROR',
6946: lx_msg_count,
6941: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6942: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
6943: l_api_name,
6944: G_PKG_NAME,
6945: 'OKL_API.G_RET_STS_ERROR',
6946: lx_msg_count,
6947: lx_msg_data,
6948: '_PVT');
6949: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6945: 'OKL_API.G_RET_STS_ERROR',
6946: lx_msg_count,
6947: lx_msg_data,
6948: '_PVT');
6949: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6950: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6951: l_api_name,
6952: G_PKG_NAME,
6953: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6946: lx_msg_count,
6947: lx_msg_data,
6948: '_PVT');
6949: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6950: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6951: l_api_name,
6952: G_PKG_NAME,
6953: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6954: lx_msg_count,
6949: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6950: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6951: l_api_name,
6952: G_PKG_NAME,
6953: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6954: lx_msg_count,
6955: lx_msg_data,
6956: '_PVT');
6957: WHEN OTHERS THEN
6957: WHEN OTHERS THEN
6958: IF l_sub_csr%ISOPEN THEN
6959: CLOSE l_sub_csr;
6960: END IF;
6961: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6962: l_api_name,
6963: G_PKG_NAME,
6964: 'OTHERS',
6965: lx_msg_count,
7070: x_currency_conversion_rate => p_currency_conversion_rate,
7071: x_currency_conversion_date => p_currency_conversion_date,
7072: x_converted_amount => l_converted_amount);
7073:
7074: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7075: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7076: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
7077: RAISE Okl_Api.G_EXCEPTION_ERROR;
7078: END IF;
7071: x_currency_conversion_date => p_currency_conversion_date,
7072: x_converted_amount => l_converted_amount);
7073:
7074: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7075: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7076: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
7077: RAISE Okl_Api.G_EXCEPTION_ERROR;
7078: END IF;
7079:
7073:
7074: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7075: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7076: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
7077: RAISE Okl_Api.G_EXCEPTION_ERROR;
7078: END IF;
7079:
7080: RETURN l_converted_amount;
7081:
7110: x_currency_conversion_rate => p_currency_conversion_rate,
7111: x_currency_conversion_date => p_currency_conversion_date,
7112: x_converted_amount => l_converted_amount);
7113:
7114: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7115: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7116: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
7117: RAISE Okl_Api.G_EXCEPTION_ERROR;
7118: END IF;
7111: x_currency_conversion_date => p_currency_conversion_date,
7112: x_converted_amount => l_converted_amount);
7113:
7114: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7115: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7116: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
7117: RAISE Okl_Api.G_EXCEPTION_ERROR;
7118: END IF;
7119: RETURN l_converted_amount;
7113:
7114: IF(p_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
7115: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7116: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
7117: RAISE Okl_Api.G_EXCEPTION_ERROR;
7118: END IF;
7119: RETURN l_converted_amount;
7120:
7121: END IF;
7120:
7121: END IF;
7122:
7123: EXCEPTION
7124: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
7125: RETURN 0;
7126:
7127: WHEN OTHERS THEN
7128: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7124: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
7125: RETURN 0;
7126:
7127: WHEN OTHERS THEN
7128: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
7129: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7130: p_token1 => 'OKL_SQLCODE',
7131: p_token1_value => SQLCODE,
7132: p_token2 => 'OKL_SQLERRM',
7156: ,p_contract_line_id IN NUMBER) RETURN NUMBER IS
7157:
7158: l_api_name CONSTANT VARCHAR2(30) := 'PV_OF_UNBILLED_RENTS';
7159: l_api_version CONSTANT NUMBER := 1;
7160: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7161: x_msg_count NUMBER;
7162: x_msg_data VARCHAR2(256);
7163: l_cash_flow_tbl OKL_STREAM_GENERATOR_PVT.cash_flow_tbl;
7164: i NUMBER := 0;
7269: FETCH contract_rate_csr INTO l_rate;
7270: CLOSE contract_rate_csr;
7271:
7272: IF l_rate IS NULL THEN
7273: Okl_Api.set_message(p_app_name => G_APP_NAME,
7274: p_msg_name => G_REQUIRED_VALUE,
7275: p_token1 => G_COL_NAME_TOKEN,
7276: p_token1_value => 'RATE');
7277:
7315:
7316: IF l_cash_flow_tbl.COUNT > 0 THEN
7317: OKL_STREAM_GENERATOR_PVT.get_present_value(
7318: p_api_version => l_api_version,
7319: p_init_msg_list => OKL_API.G_TRUE,
7320: p_cash_flow_tbl => l_cash_flow_tbl,
7321: p_rate => l_rate,
7322: p_pv_date => SYSDATE,
7323: x_pv_amount => x_pv_amount,
7324: x_return_status => x_return_status,
7325: x_msg_count => x_msg_count,
7326: x_msg_data => x_msg_data);
7327:
7328: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7329: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7330: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7331: RAISE okl_api.G_EXCEPTION_ERROR;
7332: END IF;
7325: x_msg_count => x_msg_count,
7326: x_msg_data => x_msg_data);
7327:
7328: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7329: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7330: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7331: RAISE okl_api.G_EXCEPTION_ERROR;
7332: END IF;
7333: END IF;
7326: x_msg_data => x_msg_data);
7327:
7328: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7329: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7330: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7331: RAISE okl_api.G_EXCEPTION_ERROR;
7332: END IF;
7333: END IF;
7334:
7327:
7328: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7329: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7330: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7331: RAISE okl_api.G_EXCEPTION_ERROR;
7332: END IF;
7333: END IF;
7334:
7335: l_total_rent := l_total_rent + NVL(x_pv_amount,0);
7369: --Call the API that does the PV calculation.
7370: IF l_cash_flow_tbl.COUNT > 0 THEN
7371: OKL_STREAM_GENERATOR_PVT.get_present_value(
7372: p_api_version => l_api_version,
7373: p_init_msg_list => OKL_API.G_TRUE,
7374: p_cash_flow_tbl => l_cash_flow_tbl,
7375: p_rate => l_rate,
7376: p_pv_date => SYSDATE,
7377: x_pv_amount => x_pv_amount,
7378: x_return_status => x_return_status,
7379: x_msg_count => x_msg_count,
7380: x_msg_data => x_msg_data);
7381:
7382: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7383: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7384: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7385: RAISE okl_api.G_EXCEPTION_ERROR;
7386: END IF;
7379: x_msg_count => x_msg_count,
7380: x_msg_data => x_msg_data);
7381:
7382: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7383: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7384: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7385: RAISE okl_api.G_EXCEPTION_ERROR;
7386: END IF;
7387: END IF;
7380: x_msg_data => x_msg_data);
7381:
7382: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7383: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7384: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7385: RAISE okl_api.G_EXCEPTION_ERROR;
7386: END IF;
7387: END IF;
7388: l_total_rent := l_total_rent + NVL(x_pv_amount,0);
7381:
7382: IF (x_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7383: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7384: ELSIF (x_return_status = okl_api.G_RET_STS_ERROR) THEN
7385: RAISE okl_api.G_EXCEPTION_ERROR;
7386: END IF;
7387: END IF;
7388: l_total_rent := l_total_rent + NVL(x_pv_amount,0);
7389: END IF;
7392: RETURN OKL_ACCOUNTING_UTIL.round_amount(l_total_rent,l_currency);
7393:
7394:
7395: EXCEPTION
7396: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7397: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7398: l_api_name,
7399: G_PKG_NAME,
7400: 'OKL_API.G_RET_STS_ERROR',
7393:
7394:
7395: EXCEPTION
7396: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7397: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7398: l_api_name,
7399: G_PKG_NAME,
7400: 'OKL_API.G_RET_STS_ERROR',
7401: x_msg_count,
7396: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7397: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7398: l_api_name,
7399: G_PKG_NAME,
7400: 'OKL_API.G_RET_STS_ERROR',
7401: x_msg_count,
7402: x_msg_data,
7403: '_PVT');
7404: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7400: 'OKL_API.G_RET_STS_ERROR',
7401: x_msg_count,
7402: x_msg_data,
7403: '_PVT');
7404: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7405: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7406: l_api_name,
7407: G_PKG_NAME,
7408: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7401: x_msg_count,
7402: x_msg_data,
7403: '_PVT');
7404: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7405: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7406: l_api_name,
7407: G_PKG_NAME,
7408: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7409: x_msg_count,
7404: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7405: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7406: l_api_name,
7407: G_PKG_NAME,
7408: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7409: x_msg_count,
7410: x_msg_data,
7411: '_PVT');
7412: WHEN OTHERS THEN
7409: x_msg_count,
7410: x_msg_data,
7411: '_PVT');
7412: WHEN OTHERS THEN
7413: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7414: l_api_name,
7415: G_PKG_NAME,
7416: 'OTHERS',
7417: x_msg_count,
7446: ,p_line_id IN NUMBER
7447: )
7448: RETURN NUMBER IS
7449: l_api_version NUMBER;
7450: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7451: l_msg_count NUMBER;
7452: l_msg_data VARCHAR2(2000);
7453: l_rent NUMBER := 0;
7454: l_residual NUMBER := 0;
7597: p_chr_id IN NUMBER
7598: )
7599: RETURN NUMBER IS
7600: l_api_version NUMBER;
7601: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7602: l_msg_count NUMBER;
7603: l_msg_data VARCHAR2(2000);
7604: l_current_rent NUMBER;
7605: l_cures_in_possession NUMBER := 0;
7652: p_chr_id IN NUMBER
7653: )
7654: RETURN NUMBER IS
7655: l_api_version NUMBER;
7656: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7657: l_msg_count NUMBER;
7658: l_msg_data VARCHAR2(2000);
7659: l_contract_rate NUMBER := 0.0;
7660: l_net_investment NUMBER := 0;
7685: ,x_id2 => l_id2
7686: ,x_value => l_value
7687: );
7688:
7689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7692: RAISE okl_api.G_EXCEPTION_ERROR;
7693: END IF;
7686: ,x_value => l_value
7687: );
7688:
7689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7692: RAISE okl_api.G_EXCEPTION_ERROR;
7693: END IF;
7694:
7687: );
7688:
7689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7692: RAISE okl_api.G_EXCEPTION_ERROR;
7693: END IF;
7694:
7695: l_contract_rate := ROUND(TO_NUMBER(l_value)/100, 3);
7688:
7689: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7690: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7691: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7692: RAISE okl_api.G_EXCEPTION_ERROR;
7693: END IF;
7694:
7695: l_contract_rate := ROUND(TO_NUMBER(l_value)/100, 3);
7696:
7697: l_return_status := okl_contract_info.get_days_past_due
7698: ( p_chr_id
7699: ,l_days_past_due );
7700:
7701: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7704: RAISE okl_api.G_EXCEPTION_ERROR;
7705: END IF;
7698: ( p_chr_id
7699: ,l_days_past_due );
7700:
7701: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7704: RAISE okl_api.G_EXCEPTION_ERROR;
7705: END IF;
7706:
7699: ,l_days_past_due );
7700:
7701: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7704: RAISE okl_api.G_EXCEPTION_ERROR;
7705: END IF;
7706:
7707: -- Get the furthest due date from current date
7700:
7701: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
7702: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
7703: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
7704: RAISE okl_api.G_EXCEPTION_ERROR;
7705: END IF;
7706:
7707: -- Get the furthest due date from current date
7708: -- when customer stopped paying
7744: AND status = 'CURES_IN_POSSESSION'; */
7745:
7746: l_unrefunded_cures NUMBER := 0;
7747: l_api_version NUMBER;
7748: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7749: l_msg_count NUMBER;
7750: l_msg_data VARCHAR2(2000);
7751:
7752: BEGIN
7818: p_line_id IN NUMBER) RETURN NUMBER IS
7819:
7820: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_SUM_OF_RENTS';
7821: l_api_version CONSTANT NUMBER := 1;
7822: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7823: x_msg_count NUMBER;
7824: x_msg_data VARCHAR2(256);
7825:
7826: l_inv_accnt_amnt NUMBER := 0;
7851:
7852: BEGIN
7853:
7854: IF ( p_chr_id IS NULL ) THEN
7855: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7856: END IF;
7857:
7858: l_cap_amnt := contract_oec( p_chr_id, NULL)
7859: - contract_tradein( p_chr_id, NULL)
7871: RETURN l_inv_accnt_amnt;
7872:
7873: EXCEPTION
7874: WHEN OTHERS THEN
7875: Okl_Api.SET_MESSAGE(
7876: p_app_name => G_APP_NAME,
7877: p_msg_name => G_UNEXPECTED_ERROR,
7878: p_token1 => G_SQLCODE_TOKEN,
7879: p_token1_value => SQLCODE,
7901: p_line_id IN NUMBER) RETURN NUMBER IS
7902:
7903: l_api_name CONSTANT VARCHAR2(256) := 'RETURN_CONTRACT_CAPITALIZED_INTEREST';
7904: l_api_version CONSTANT NUMBER := 1;
7905: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
7906: x_msg_count NUMBER;
7907: x_msg_data VARCHAR2(256);
7908:
7909: l_capz_int NUMBER := 0.0;
7942:
7943: BEGIN
7944:
7945: IF ( p_chr_id IS NULL ) THEN
7946: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7947: END IF;
7948:
7949: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
7950: -- If set then based on its value set l_line_type
7986:
7987: EXCEPTION
7988:
7989: WHEN OTHERS THEN
7990: Okl_Api.SET_MESSAGE(
7991: p_app_name => G_APP_NAME,
7992: p_msg_name => G_UNEXPECTED_ERROR,
7993: p_token1 => G_SQLCODE_TOKEN,
7994: p_token1_value => SQLCODE,
8015: p_line_id IN NUMBER) RETURN NUMBER IS
8016:
8017: l_api_name CONSTANT VARCHAR2(256) := 'RETURN_CONTRACT_CAPITALIZED_INTEREST';
8018: l_api_version CONSTANT NUMBER := 1;
8019: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
8020: x_msg_count NUMBER;
8021: x_msg_data VARCHAR2(256);
8022:
8023: l_capz_int NUMBER := 0.0;
8033:
8034: BEGIN
8035:
8036: IF (( p_chr_id IS NULL ) OR ( p_line_id IS NULL ) ) THEN
8037: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8038: END IF;
8039:
8040: OPEN capz_csr( p_chr_id, p_line_id );
8041: FETCH capz_csr INTO l_capz_int;
8045:
8046: EXCEPTION
8047:
8048: WHEN OTHERS THEN
8049: Okl_Api.SET_MESSAGE(
8050: p_app_name => G_APP_NAME,
8051: p_msg_name => G_UNEXPECTED_ERROR,
8052: p_token1 => G_SQLCODE_TOKEN,
8053: p_token1_value => SQLCODE,
8171: l_try_rsn := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
8172: END IF;
8173: END LOOP;
8174: ELSE
8175: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
8176: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
8177: RAISE OKL_API.G_EXCEPTION_ERROR;
8178: END IF;
8179:
8173: END LOOP;
8174: ELSE
8175: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
8176: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
8177: RAISE OKL_API.G_EXCEPTION_ERROR;
8178: END IF;
8179:
8180: FOR l_okl_inv_payment_event_rec IN l_okl_inv_payment_event_csr(l_khr_id)
8181: LOOP
8212: END IF;
8213: IF l_okl_unreceived_streams_csr%ISOPEN THEN
8214: CLOSE l_okl_unreceived_streams_csr;
8215: END IF;
8216: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
8217: p_msg_name => G_UNEXPECTED_ERROR,
8218: p_token1 => G_SQLCODE_TOKEN,
8219: p_token1_value => SQLCODE,
8220: p_token2 => G_SQLERRM_TOKEN,
8461: IF l_okl_percent_stake_csr%ISOPEN THEN
8462: CLOSE l_okl_percent_stake_csr;
8463: END IF;
8464:
8465: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
8466: p_msg_name => G_UNEXPECTED_ERROR,
8467: p_token1 => G_SQLCODE_TOKEN,
8468: p_token1_value => SQLCODE,
8469: p_token2 => G_SQLERRM_TOKEN,
8577: IF c_rent_accrual%ISOPEN THEN
8578: CLOSE c_rent_accrual;
8579: END IF;
8580: --Bug # 6740000 ssdeshpa added End
8581: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8582: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8583: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8584: p_token1 => 'OKL_SQLCODE',
8585: p_token1_value => SQLCODE,
8578: CLOSE c_rent_accrual;
8579: END IF;
8580: --Bug # 6740000 ssdeshpa added End
8581: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8582: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8583: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8584: p_token1 => 'OKL_SQLCODE',
8585: p_token1_value => SQLCODE,
8586: p_token2 => 'OKL_SQLERRM',
8666: IF c_add_amt_stake%ISOPEN THEN
8667: CLOSE c_add_amt_stake;
8668: END IF;
8669: --Bug # 6740000 ssdeshpa added End
8670: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8671: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8672: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8673: p_token1 => 'OKL_SQLCODE',
8674: p_token1_value => SQLCODE,
8667: CLOSE c_add_amt_stake;
8668: END IF;
8669: --Bug # 6740000 ssdeshpa added End
8670: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8671: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8672: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8673: p_token1 => 'OKL_SQLCODE',
8674: p_token1_value => SQLCODE,
8675: p_token2 => 'OKL_SQLERRM',
8873: IF l_streams_amount_pending_csr%ISOPEN THEN
8874: CLOSE l_streams_amount_pending_csr;
8875: END IF;
8876: --Bug # 6740000 ssdeshpa added End
8877: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8878: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8879: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8880: p_token1 => 'OKL_SQLCODE',
8881: p_token1_value => SQLCODE,
8874: CLOSE l_streams_amount_pending_csr;
8875: END IF;
8876: --Bug # 6740000 ssdeshpa added End
8877: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8878: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8879: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8880: p_token1 => 'OKL_SQLCODE',
8881: p_token1_value => SQLCODE,
8882: p_token2 => 'OKL_SQLERRM',
8931: RETURN l_sum_idc_amt;
8932:
8933: EXCEPTION
8934: WHEN OTHERS THEN
8935: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8936: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8937: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8938: p_token1 => 'OKL_SQLCODE',
8939: p_token1_value => SQLCODE,
8932:
8933: EXCEPTION
8934: WHEN OTHERS THEN
8935: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8936: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8937: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8938: p_token1 => 'OKL_SQLCODE',
8939: p_token1_value => SQLCODE,
8940: p_token2 => 'OKL_SQLERRM',
8948: --for cure calculation
8949:
8950: FUNCTION contract_delinquent_amt (
8951: p_contract_id IN okc_k_headers_b.id%TYPE
8952: ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
8953: ) RETURN NUMBER IS
8954:
8955: -- ASHIM CHANGE - START
8956:
9030:
9031: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9032: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, ' in contract_delinquent_amt'||SQLERRM);
9033: END IF;
9034: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
9035: p_msg_name => 'OKL_UNEXPECTED_ERROR',
9036: p_token1 => 'OKL_SQLCODE',
9037: p_token1_value => SQLCODE,
9038: p_token2 => 'OKL_SQLERRM',
9042: END contract_delinquent_amt;
9043:
9044: FUNCTION cumulative_vendor_invoice_amt (
9045: p_contract_id IN okc_k_headers_b.id%TYPE
9046: ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
9047: ) RETURN NUMBER IS
9048:
9049: CURSOR c_vendor_invoice_amt (p_contract_id IN NUMBER) IS
9050: SELECT NVL(SUM(negotiated_amount),0)
9065:
9066:
9067: FUNCTION contract_short_fund_amt (
9068: p_contract_id IN okc_k_headers_b.id%TYPE
9069: ,p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM
9070: ) RETURN NUMBER IS
9071:
9072: CURSOR c_get_short_fund_amt (p_contract_id IN NUMBER) IS
9073: SELECT NVL(SUM(short_fund_amount),0)
9106: p_chr_id IN NUMBER,
9107: p_line_id IN NUMBER) RETURN NUMBER IS
9108:
9109: l_api_version NUMBER DEFAULT 1.0;
9110: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
9111: l_msg_count NUMBER;
9112: l_msg_data VARCHAR2(2000);
9113:
9114: l_line_discount NUMBER;
9251: (l_discount_incl_terminated)) THEN
9252:
9253: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
9254: (p_api_version => l_api_version,
9255: p_init_msg_list => Okl_Api.G_FALSE,
9256: x_msg_data => l_msg_data,
9257: x_msg_count => l_msg_count,
9258: x_return_status => l_return_status,
9259: p_asset_cle_id => p_line_id,
9259: p_asset_cle_id => p_line_id,
9260: p_accounting_method => 'NET',
9261: x_subsidy_amount => l_line_discount);
9262:
9263: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9264: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9265: END IF;
9266: END IF;
9267:
9260: p_accounting_method => 'NET',
9261: x_subsidy_amount => l_line_discount);
9262:
9263: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9264: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9265: END IF;
9266: END IF;
9267:
9268: --Added OKC_API.G_MISS_NUM condition because p_line_id was having OKC_API.G_MISS_NUM value in few scenario
9289: (l_discount_incl_terminated)) THEN
9290:
9291: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
9292: (p_api_version => l_api_version,
9293: p_init_msg_list => Okl_Api.G_FALSE,
9294: x_msg_data => l_msg_data,
9295: x_msg_count => l_msg_count,
9296: x_return_status => l_return_status,
9297: p_asset_cle_id => p_line_id,
9297: p_asset_cle_id => p_line_id,
9298: p_accounting_method => 'NET',
9299: x_subsidy_amount => l_line_discount);
9300:
9301: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9302: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9303: END IF;
9304: END IF;
9305:
9298: p_accounting_method => 'NET',
9299: x_subsidy_amount => l_line_discount);
9300:
9301: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9302: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9303: END IF;
9304: END IF;
9305:
9306: --Bug# 15992711 , Start
9322: FETCH l_cleb_nr_termn_csr INTO l_cle_id;
9323: EXIT WHEN l_cleb_nr_termn_csr%NOTFOUND;
9324: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
9325: (p_api_version => l_api_version,
9326: p_init_msg_list => Okl_Api.G_FALSE,
9327: x_msg_data => l_msg_data,
9328: x_msg_count => l_msg_count,
9329: x_return_status => l_return_status,
9330: p_asset_cle_id => l_cle_id,
9329: x_return_status => l_return_status,
9330: p_asset_cle_id => l_cle_id,
9331: p_accounting_method => 'NET',
9332: x_subsidy_amount => l_discount);
9333: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9334: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9335: END IF;
9336:
9337: l_line_discount := l_line_discount + l_discount;
9330: p_asset_cle_id => l_cle_id,
9331: p_accounting_method => 'NET',
9332: x_subsidy_amount => l_discount);
9333: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9334: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9335: END IF;
9336:
9337: l_line_discount := l_line_discount + l_discount;
9338: END LOOP;
9345: FETCH l_cleb_nr_csr INTO l_cle_id;
9346: EXIT WHEN l_cleb_nr_csr%NOTFOUND;
9347: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
9348: (p_api_version => l_api_version,
9349: p_init_msg_list => Okl_Api.G_FALSE,
9350: x_msg_data => l_msg_data,
9351: x_msg_count => l_msg_count,
9352: x_return_status => l_return_status,
9353: p_asset_cle_id => l_cle_id,
9352: x_return_status => l_return_status,
9353: p_asset_cle_id => l_cle_id,
9354: p_accounting_method => 'NET',
9355: x_subsidy_amount => l_discount);
9356: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9357: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9358: END IF;
9359:
9360: l_line_discount := l_line_discount + l_discount;
9353: p_asset_cle_id => l_cle_id,
9354: p_accounting_method => 'NET',
9355: x_subsidy_amount => l_discount);
9356: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9357: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9358: END IF;
9359:
9360: l_line_discount := l_line_discount + l_discount;
9361: END LOOP;
9373: FETCH l_cleb_termn_csr INTO l_cle_id;
9374: EXIT WHEN l_cleb_termn_csr%NOTFOUND;
9375: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
9376: (p_api_version => l_api_version,
9377: p_init_msg_list => Okl_Api.G_FALSE,
9378: x_msg_data => l_msg_data,
9379: x_msg_count => l_msg_count,
9380: x_return_status => l_return_status,
9381: p_asset_cle_id => l_cle_id,
9380: x_return_status => l_return_status,
9381: p_asset_cle_id => l_cle_id,
9382: p_accounting_method => 'NET',
9383: x_subsidy_amount => l_discount);
9384: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9386: END IF;
9387:
9388: l_line_discount := l_line_discount + l_discount;
9381: p_asset_cle_id => l_cle_id,
9382: p_accounting_method => 'NET',
9383: x_subsidy_amount => l_discount);
9384: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9386: END IF;
9387:
9388: l_line_discount := l_line_discount + l_discount;
9389: END LOOP;
9396: FETCH l_cleb_csr INTO l_cle_id;
9397: EXIT WHEN l_cleb_csr%NOTFOUND;
9398: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount
9399: (p_api_version => l_api_version,
9400: p_init_msg_list => Okl_Api.G_FALSE,
9401: x_msg_data => l_msg_data,
9402: x_msg_count => l_msg_count,
9403: x_return_status => l_return_status,
9404: p_asset_cle_id => l_cle_id,
9403: x_return_status => l_return_status,
9404: p_asset_cle_id => l_cle_id,
9405: p_accounting_method => 'NET',
9406: x_subsidy_amount => l_discount);
9407: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9408: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9409: END IF;
9410:
9411: l_line_discount := l_line_discount + l_discount;
9404: p_asset_cle_id => l_cle_id,
9405: p_accounting_method => 'NET',
9406: x_subsidy_amount => l_discount);
9407: IF l_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
9408: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9409: END IF;
9410:
9411: l_line_discount := l_line_discount + l_discount;
9412: END LOOP;
9418: --Added OKC_API.G_MISS_NUM condition because p_line_id was having OKC_API.G_MISS_NUM value in few scenario
9419: --ELSIF (p_line_id IS NULL) AND (p_chr_id IS NULL) THEN
9420: ELSIF (p_line_id IS NULL OR p_line_id = OKC_API.G_MISS_NUM) AND (p_chr_id IS NULL) THEN
9421: --Bug# 15992711 , End
9422: RAISE Okl_Api.G_EXCEPTION_ERROR;
9423: END IF;
9424:
9425: RETURN (l_line_discount);
9426:
9434: END IF;
9435: IF l_line_sts_csr%ISOPEN THEN
9436: CLOSE l_line_sts_csr;
9437: END IF;
9438: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
9439: p_msg_name => 'OKL_UNEXPECTED_ERROR',
9440: p_token1 => 'OKL_SQLCODE',
9441: p_token1_value => SQLCODE,
9442: p_token2 => 'OKL_SQLERRM',
9457: p_chr_id IN NUMBER,
9458: p_line_id IN NUMBER) RETURN NUMBER IS
9459:
9460: l_api_version NUMBER DEFAULT 1.0;
9461: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
9462: l_msg_count NUMBER;
9463: l_msg_data VARCHAR2(2000);
9464:
9465: l_contract_discount NUMBER;
9467: IF (p_line_id IS NOT NULL) OR (p_chr_id IS NOT NULL) THEN
9468: l_contract_discount := line_discount(p_chr_id,p_line_id);
9469:
9470: ELSIF (p_line_id IS NULL) AND (p_chr_id IS NULL) THEN
9471: RAISE OKL_API.G_EXCEPTION_ERROR;
9472: END IF;
9473: RETURN (l_contract_discount);
9474: EXCEPTION
9475: WHEN OTHERS THEN
9472: END IF;
9473: RETURN (l_contract_discount);
9474: EXCEPTION
9475: WHEN OTHERS THEN
9476: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
9477: p_msg_name => 'OKL_UNEXPECTED_ERROR',
9478: p_token1 => 'OKL_SQLCODE',
9479: p_token1_value => SQLCODE,
9480: p_token2 => 'OKL_SQLERRM',
9504: p_line_id IN NUMBER) RETURN NUMBER IS
9505:
9506: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_AMORTIZED_EXPENSES';
9507: l_api_version CONSTANT NUMBER := 1;
9508: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
9509: x_msg_count NUMBER;
9510: x_msg_data VARCHAR2(2000);
9511:
9512: l_amortized_expenses NUMBER := 0;
9561: l_chr_amortexp_rec l_chr_amortexp_csr%ROWTYPE;
9562:
9563: BEGIN
9564:
9565: IF ( NVL(p_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM ) THEN
9566: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9567: END IF;
9568:
9569: OPEN l_line_amortexp_csr( p_chr_id );
9562:
9563: BEGIN
9564:
9565: IF ( NVL(p_chr_id,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM ) THEN
9566: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9567: END IF;
9568:
9569: OPEN l_line_amortexp_csr( p_chr_id );
9570: FETCH l_line_amortexp_csr INTO l_line_amortexp_rec;
9580:
9581:
9582: EXCEPTION
9583: WHEN OTHERS THEN
9584: Okl_Api.SET_MESSAGE(
9585: p_app_name => G_APP_NAME,
9586: p_msg_name => G_UNEXPECTED_ERROR,
9587: p_token1 => G_SQLCODE_TOKEN,
9588: p_token1_value => SQLCODE,
9749: l_quote_id NUMBER;
9750: l_quote_date DATE;
9751: l_sysdate DATE;
9752: l_sty_id OKL_STRM_TYPE_TL.ID%TYPE := 0;
9753: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
9754: --06-Dec-2004 PAGARG Bug# 3948473 variable to store investor agreement id
9755: l_inv_agr_id NUMBER;
9756: BEGIN
9757: -- ****************
9776: select sysdate into l_sysdate from dual;
9777:
9778: -- rmunjulu EDAT
9779: IF l_quote_id IS NOT NULL
9780: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
9781:
9782: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
9783: l_quote_date := get_quote_date_rec.date_effective_from;
9784: END LOOP;
9785: END IF;
9786:
9787: -- rmunjulu EDAT
9788: IF l_quote_date IS NULL
9789: OR l_quote_date = OKL_API.G_MISS_DATE THEN
9790: l_quote_date := l_sysdate;
9791: END IF;
9792:
9793: --PAGARG 19-Nov-2004 Bug# 4012614
9796: 'RENT',
9797: l_return_status,
9798: l_sty_id);
9799:
9800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9801: THEN
9802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9804: THEN
9798: l_sty_id);
9799:
9800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9801: THEN
9802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9804: THEN
9805: RAISE OKL_API.G_EXCEPTION_ERROR;
9806: END IF;
9799:
9800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9801: THEN
9802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9804: THEN
9805: RAISE OKL_API.G_EXCEPTION_ERROR;
9806: END IF;
9807:
9801: THEN
9802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9804: THEN
9805: RAISE OKL_API.G_EXCEPTION_ERROR;
9806: END IF;
9807:
9808: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9809: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
9820: 'INVESTOR_RENT_DISB_BASIS',
9821: l_return_status,
9822: l_sty_id);
9823:
9824: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9825: THEN
9826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9828: THEN
9822: l_sty_id);
9823:
9824: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9825: THEN
9826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9828: THEN
9829: RAISE OKL_API.G_EXCEPTION_ERROR;
9830: END IF;
9823:
9824: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9825: THEN
9826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9828: THEN
9829: RAISE OKL_API.G_EXCEPTION_ERROR;
9830: END IF;
9831:
9825: THEN
9826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9828: THEN
9829: RAISE OKL_API.G_EXCEPTION_ERROR;
9830: END IF;
9831:
9832: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
9833: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
9866: IF l_undisb_rent_strm_pndg_csr%ISOPEN THEN
9867: CLOSE l_undisb_rent_strm_pndg_csr;
9868: END IF;
9869: -- store SQL error message on message stack for caller
9870: OKL_API.SET_MESSAGE (
9871: p_app_name => OKL_API.G_APP_NAME,
9872: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9873: p_token1 => 'SQLCODE',
9874: p_token1_value => SQLCODE,
9867: CLOSE l_undisb_rent_strm_pndg_csr;
9868: END IF;
9869: -- store SQL error message on message stack for caller
9870: OKL_API.SET_MESSAGE (
9871: p_app_name => OKL_API.G_APP_NAME,
9872: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
9873: p_token1 => 'SQLCODE',
9874: p_token1_value => SQLCODE,
9875: p_token2 => 'SQLERRM',
9956: l_try_rsn OKL_POOL_TRANSACTIONS.TRANSACTION_REASON%TYPE;
9957: l_residual_amount NUMBER := 0;
9958: l_result_amount NUMBER := 0;
9959: l_sty_id OKL_STRM_TYPE_TL.ID%TYPE := 0;
9960: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
9961:
9962: BEGIN
9963: -- ****************
9964: -- Calculate result
9969: 'RESIDUAL_VALUE',
9970: l_return_status,
9971: l_sty_id);
9972:
9973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9974: THEN
9975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9977: THEN
9971: l_sty_id);
9972:
9973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9974: THEN
9975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9977: THEN
9978: RAISE OKL_API.G_EXCEPTION_ERROR;
9979: END IF;
9972:
9973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
9974: THEN
9975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9977: THEN
9978: RAISE OKL_API.G_EXCEPTION_ERROR;
9979: END IF;
9980:
9974: THEN
9975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9976: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
9977: THEN
9978: RAISE OKL_API.G_EXCEPTION_ERROR;
9979: END IF;
9980:
9981: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
9982: FOR I IN OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.FIRST..OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS.LAST
10023: END IF;
10024:
10025: -- store SQL error message on message stack for caller
10026:
10027: OKL_API.SET_MESSAGE (
10028: p_app_name => OKL_API.G_APP_NAME,
10029: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
10030: p_token1 => 'SQLCODE',
10031: p_token1_value => SQLCODE,
10024:
10025: -- store SQL error message on message stack for caller
10026:
10027: OKL_API.SET_MESSAGE (
10028: p_app_name => OKL_API.G_APP_NAME,
10029: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
10030: p_token1 => 'SQLCODE',
10031: p_token1_value => SQLCODE,
10032: p_token2 => 'SQLERRM',
10173: l_quote_id NUMBER;
10174: l_quote_date DATE;
10175: l_sysdate DATE;
10176: l_sty_id OKL_STRM_TYPE_TL.ID%TYPE := 0;
10177: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
10178: --06-Dec-2004 PAGARG Bug# 3948473 variable to store investor agreement id
10179: l_inv_agr_id NUMBER;
10180: BEGIN
10181: -- ****************
10200: select sysdate into l_sysdate from dual;
10201:
10202: -- rmunjulu EDAT
10203: IF l_quote_id IS NOT NULL
10204: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
10205:
10206: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
10207: l_quote_date := get_quote_date_rec.date_effective_from;
10208: END LOOP;
10209: END IF;
10210:
10211: -- rmunjulu EDAT
10212: IF l_quote_date IS NULL
10213: OR l_quote_date = OKL_API.G_MISS_DATE THEN
10214: l_quote_date := l_sysdate;
10215: END IF;
10216:
10217: --PAGARG 19-Nov-2004 Bug# 4012614
10221: 'PRINCIPAL_PAYMENT',
10222: l_return_status,
10223: l_sty_id);
10224:
10225: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10226: THEN
10227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10229: THEN
10223: l_sty_id);
10224:
10225: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10226: THEN
10227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10229: THEN
10230: RAISE OKL_API.G_EXCEPTION_ERROR;
10231: END IF;
10224:
10225: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10226: THEN
10227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10229: THEN
10230: RAISE OKL_API.G_EXCEPTION_ERROR;
10231: END IF;
10232:
10226: THEN
10227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10229: THEN
10230: RAISE OKL_API.G_EXCEPTION_ERROR;
10231: END IF;
10232:
10233: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
10234: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
10247: 'INTEREST_PAYMENT',
10248: l_return_status,
10249: l_sty_id);
10250:
10251: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10252: THEN
10253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10254: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10255: THEN
10249: l_sty_id);
10250:
10251: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10252: THEN
10253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10254: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10255: THEN
10256: RAISE OKL_API.G_EXCEPTION_ERROR;
10257: END IF;
10250:
10251: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10252: THEN
10253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10254: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10255: THEN
10256: RAISE OKL_API.G_EXCEPTION_ERROR;
10257: END IF;
10258:
10252: THEN
10253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10254: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10255: THEN
10256: RAISE OKL_API.G_EXCEPTION_ERROR;
10257: END IF;
10258:
10259: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
10260: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
10273: 'UNSCHEDULED_PRINCIPAL_PAYMENT',
10274: l_return_status,
10275: l_sty_id);
10276:
10277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10278: THEN
10279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10281: THEN
10275: l_sty_id);
10276:
10277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10278: THEN
10279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10281: THEN
10282: RAISE OKL_API.G_EXCEPTION_ERROR;
10283: END IF;
10276:
10277: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10278: THEN
10279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10281: THEN
10282: RAISE OKL_API.G_EXCEPTION_ERROR;
10283: END IF;
10284:
10278: THEN
10279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10281: THEN
10282: RAISE OKL_API.G_EXCEPTION_ERROR;
10283: END IF;
10284:
10285: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
10286: OPEN l_unbill_stream_pending_csr (p_contract_id, p_contract_line_id,l_quote_date, l_sty_id);
10301: 'INVESTOR_PRINCIPAL_DISB_BASIS',
10302: l_return_status,
10303: l_sty_id);
10304:
10305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10306: THEN
10307: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10308: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10309: THEN
10303: l_sty_id);
10304:
10305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10306: THEN
10307: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10308: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10309: THEN
10310: RAISE OKL_API.G_EXCEPTION_ERROR;
10311: END IF;
10304:
10305: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10306: THEN
10307: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10308: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10309: THEN
10310: RAISE OKL_API.G_EXCEPTION_ERROR;
10311: END IF;
10312:
10306: THEN
10307: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10308: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10309: THEN
10310: RAISE OKL_API.G_EXCEPTION_ERROR;
10311: END IF;
10312:
10313: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
10314: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
10324: 'INVESTOR_INTEREST_DISB_BASIS',
10325: l_return_status,
10326: l_sty_id);
10327:
10328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10329: THEN
10330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10332: THEN
10326: l_sty_id);
10327:
10328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10329: THEN
10330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10332: THEN
10333: RAISE OKL_API.G_EXCEPTION_ERROR;
10334: END IF;
10327:
10328: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10329: THEN
10330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10332: THEN
10333: RAISE OKL_API.G_EXCEPTION_ERROR;
10334: END IF;
10335:
10329: THEN
10330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10331: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10332: THEN
10333: RAISE OKL_API.G_EXCEPTION_ERROR;
10334: END IF;
10335:
10336: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
10337: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
10347: 'INVESTOR_PPD_DISB_BASIS',
10348: l_return_status,
10349: l_sty_id);
10350:
10351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10352: THEN
10353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10354: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10355: THEN
10349: l_sty_id);
10350:
10351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10352: THEN
10353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10354: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10355: THEN
10356: RAISE OKL_API.G_EXCEPTION_ERROR;
10357: END IF;
10350:
10351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
10352: THEN
10353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10354: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10355: THEN
10356: RAISE OKL_API.G_EXCEPTION_ERROR;
10357: END IF;
10358:
10352: THEN
10353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10354: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
10355: THEN
10356: RAISE OKL_API.G_EXCEPTION_ERROR;
10357: END IF;
10358:
10359: IF l_try_rsn IS NOT NULL AND l_try_rsn = 'ADJUSTMENTS' THEN
10360: OPEN l_undisb_rent_strm_pndg_csr (p_contract_id, p_contract_line_id, l_sty_id,l_quote_date);
10396: CLOSE l_undisb_rent_strm_pndg_csr;
10397: END IF;
10398: -- store SQL error message on message stack for caller
10399:
10400: OKL_API.SET_MESSAGE (
10401: p_app_name => OKL_API.G_APP_NAME,
10402: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
10403: p_token1 => 'SQLCODE',
10404: p_token1_value => SQLCODE,
10397: END IF;
10398: -- store SQL error message on message stack for caller
10399:
10400: OKL_API.SET_MESSAGE (
10401: p_app_name => OKL_API.G_APP_NAME,
10402: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
10403: p_token1 => 'SQLCODE',
10404: p_token1_value => SQLCODE,
10405: p_token2 => 'SQLERRM',
10521: END IF;
10522:
10523: -- store SQL error message on message stack for caller
10524:
10525: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
10526: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10527: p_token1 => 'OKL_SQLCODE',
10528: p_token1_value => SQLCODE,
10529: p_token2 => 'OKL_SQLERRM',
10701: l_quote_id := OKL_EXECUTE_FORMULA_PUB.G_ADDITIONAL_PARAMETERS(I).VALUE;
10702: END IF;
10703: END LOOP;
10704: ELSE
10705: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
10706: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
10707: RAISE OKL_API.G_EXCEPTION_ERROR;
10708: END IF;
10709:
10703: END LOOP;
10704: ELSE
10705: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
10706: p_msg_name => 'OKL_AGN_FE_ADD_PARAMS');
10707: RAISE OKL_API.G_EXCEPTION_ERROR;
10708: END IF;
10709:
10710: -- Determine the fee type passed
10711:
10735: select sysdate into l_sysdate from dual;
10736:
10737: -- rmunjulu EDAT
10738: IF l_quote_id IS NOT NULL
10739: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
10740:
10741: FOR get_quote_date_rec IN get_quote_date_csr (l_quote_id) LOOP
10742: l_quote_date := get_quote_date_rec.date_effective_from;
10743: END LOOP;
10744: END IF;
10745:
10746: -- rmunjulu EDAT
10747: IF l_quote_date IS NULL
10748: OR l_quote_date = OKL_API.G_MISS_DATE THEN
10749: l_quote_date := l_sysdate;
10750: END IF;
10751: -- ****************
10752: -- Calculate result
10758: -- Find the sum of all the asset level streams for a given fee if asset id is null
10759: -- else if asset id is not null then sum all the asset level streams for that asset
10760: -- for the given fee.
10761: -- p_contract_line_id stores the asset id
10762: IF p_contract_line_id is NULL or p_contract_line_id = OKL_API.G_MISS_NUM THEN
10763: -- Find the total payments of all the assets associated to the given
10764: -- fee type of given contract.
10765: OPEN l_unbilled_feeassets_strms_csr (p_contract_id, l_fee_type, l_quote_date); -- rmunjulu EDAT
10766: FETCH l_unbilled_feeassets_strms_csr INTO l_unbilled_fee_assets_amt;
10785: IF l_unbilled_fee_streams_csr%ISOPEN THEN
10786: CLOSE l_unbilled_fee_streams_csr;
10787: END IF;
10788: -- store SQL error message on message stack for caller
10789: OKL_API.SET_MESSAGE (
10790: p_app_name => OKL_API.G_APP_NAME,
10791: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
10792: p_token1 => 'SQLCODE',
10793: p_token1_value => SQLCODE,
10786: CLOSE l_unbilled_fee_streams_csr;
10787: END IF;
10788: -- store SQL error message on message stack for caller
10789: OKL_API.SET_MESSAGE (
10790: p_app_name => OKL_API.G_APP_NAME,
10791: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
10792: p_token1 => 'SQLCODE',
10793: p_token1_value => SQLCODE,
10794: p_token2 => 'SQLERRM',
10863: RETURN l_amount;
10864:
10865: EXCEPTION
10866: WHEN OTHERS THEN
10867: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10868: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10869: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10870: p_token1 => 'OKL_SQLCODE',
10871: p_token1_value => SQLCODE,
10864:
10865: EXCEPTION
10866: WHEN OTHERS THEN
10867: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
10868: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10869: p_msg_name => 'OKL_UNEXPECTED_ERROR',
10870: p_token1 => 'OKL_SQLCODE',
10871: p_token1_value => SQLCODE,
10872: p_token2 => 'OKL_SQLERRM',
10956: p_primary_sty_id => r_subsidy_line.sty_id,
10957: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
10958: x_return_status => l_return_status,
10959: x_dependent_sty_id => l_dependent_sty_id);
10960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10963: RAISE OKL_API.G_EXCEPTION_ERROR;
10964: END IF;
10957: p_dependent_sty_purpose => 'SUBSIDY_INCOME',
10958: x_return_status => l_return_status,
10959: x_dependent_sty_id => l_dependent_sty_id);
10960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10963: RAISE OKL_API.G_EXCEPTION_ERROR;
10964: END IF;
10965:
10958: x_return_status => l_return_status,
10959: x_dependent_sty_id => l_dependent_sty_id);
10960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10963: RAISE OKL_API.G_EXCEPTION_ERROR;
10964: END IF;
10965:
10966: OPEN c_refund_subsidy(p_contract_line_id,
10959: x_dependent_sty_id => l_dependent_sty_id);
10960: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10962: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10963: RAISE OKL_API.G_EXCEPTION_ERROR;
10964: END IF;
10965:
10966: OPEN c_refund_subsidy(p_contract_line_id,
10967: r_subsidy_line.date_terminated,
10972: l_tot_amount := l_tot_amount + l_amount;
10973:
10974: ELSE
10975: l_tot_amount := NULL; -- error
10976: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10977: p_msg_name => 'OKL_DATE_TERMINATED_REQUIRED');
10978:
10979: RAISE OKC_API.G_EXCEPTION_ERROR;
10980: END IF;
10980: END IF;
10981:
10982: ELSE -- error
10983: l_tot_amount := NULL;
10984: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
10985: p_msg_name => 'OKL_INVALID_ACCT_METHOD_CODE',
10986: p_token2 => 'COL_NAME',
10987: p_token2_value => r_subsidy_line.accounting_method_code);
10988:
10995: RETURN l_tot_amount;
10996:
10997: EXCEPTION
10998: WHEN OTHERS THEN
10999: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11000: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11001: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11002: p_token1 => 'OKL_SQLCODE',
11003: p_token1_value => SQLCODE,
10996:
10997: EXCEPTION
10998: WHEN OTHERS THEN
10999: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11000: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11001: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11002: p_token1 => 'OKL_SQLCODE',
11003: p_token1_value => SQLCODE,
11004: p_token2 => 'OKL_SQLERRM',
11029: RETURN NUMBER IS
11030:
11031: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_PRETAXINC_BOOK';
11032: l_api_version CONSTANT NUMBER := 1;
11033: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11034: x_msg_count NUMBER;
11035: x_msg_data VARCHAR2(256);
11036:
11037: l_income NUMBER := 0;
11106:
11107: BEGIN
11108:
11109: IF ( p_chr_id IS NULL ) THEN
11110: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11111: END IF;
11112:
11113: --Bug# 15992711 : Check for 'NEW_RELEASE_ASSET' global parameter is set or not
11114: -- If set then based on its value set l_line_type
11176:
11177: EXCEPTION
11178:
11179: WHEN OTHERS THEN
11180: Okl_Api.SET_MESSAGE(
11181: p_app_name => G_APP_NAME,
11182: p_msg_name => G_UNEXPECTED_ERROR,
11183: p_token1 => G_SQLCODE_TOKEN,
11184: p_token1_value => SQLCODE,
11235: RETURN l_sum_financed_fee_amt;
11236:
11237: EXCEPTION
11238: WHEN OTHERS THEN
11239: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11240: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11241: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11242: p_token1 => 'OKL_SQLCODE',
11243: p_token1_value => SQLCODE,
11236:
11237: EXCEPTION
11238: WHEN OTHERS THEN
11239: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11240: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11241: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11242: p_token1 => 'OKL_SQLCODE',
11243: p_token1_value => SQLCODE,
11244: p_token2 => 'OKL_SQLERRM',
11294: RETURN l_sum_absorbed_fee_amt;
11295:
11296: EXCEPTION
11297: WHEN OTHERS THEN
11298: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11299: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11300: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11301: p_token1 => 'OKL_SQLCODE',
11302: p_token1_value => SQLCODE,
11295:
11296: EXCEPTION
11297: WHEN OTHERS THEN
11298: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11299: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11300: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11301: p_token1 => 'OKL_SQLCODE',
11302: p_token1_value => SQLCODE,
11303: p_token2 => 'OKL_SQLERRM',
11360: l_credit_remain NUMBER := 0;
11361: l_disbursement_tot NUMBER := 0;
11362:
11363: l_amount NUMBER := 0;
11364: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
11365: l_api_version NUMBER := 1.0;
11366: x_msg_count NUMBER;
11367: x_msg_data VARCHAR2(4000);
11368: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
11364: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
11365: l_api_version NUMBER := 1.0;
11366: x_msg_count NUMBER;
11367: x_msg_data VARCHAR2(4000);
11368: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
11369:
11370: BEGIN
11371:
11372: FOR r_ast IN c_disb_tot LOOP
11395: RETURN l_credit_remain;
11396:
11397: EXCEPTION
11398: WHEN OTHERS THEN
11399: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11400: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11401: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11402: p_token1 => 'OKL_SQLCODE',
11403: p_token1_value => SQLCODE,
11396:
11397: EXCEPTION
11398: WHEN OTHERS THEN
11399: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11400: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11401: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11402: p_token1 => 'OKL_SQLCODE',
11403: p_token1_value => SQLCODE,
11404: p_token2 => 'OKL_SQLERRM',
11514: RETURN l_credit_remain;
11515:
11516: EXCEPTION
11517: WHEN OTHERS THEN
11518: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11519: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11520: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11521: p_token1 => 'OKL_SQLCODE',
11522: p_token1_value => SQLCODE,
11515:
11516: EXCEPTION
11517: WHEN OTHERS THEN
11518: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11519: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11520: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11521: p_token1 => 'OKL_SQLCODE',
11522: p_token1_value => SQLCODE,
11523: p_token2 => 'OKL_SQLERRM',
11589: l_credit_remain NUMBER := 0;
11590: l_disbursement_tot NUMBER := 0;
11591:
11592: l_amount NUMBER := 0;
11593: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
11594: l_api_version NUMBER := 1.0;
11595: x_msg_count NUMBER;
11596: x_msg_data VARCHAR2(4000);
11597: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
11593: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
11594: l_api_version NUMBER := 1.0;
11595: x_msg_count NUMBER;
11596: x_msg_data VARCHAR2(4000);
11597: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
11598:
11599: BEGIN
11600:
11601: FOR r_ast IN c_disb_tot LOOP
11609: RETURN l_disbursement_tot;
11610:
11611: EXCEPTION
11612: WHEN OTHERS THEN
11613: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11614: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11615: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11616: p_token1 => 'OKL_SQLCODE',
11617: p_token1_value => SQLCODE,
11610:
11611: EXCEPTION
11612: WHEN OTHERS THEN
11613: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11614: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11615: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11616: p_token1 => 'OKL_SQLCODE',
11617: p_token1_value => SQLCODE,
11618: p_token2 => 'OKL_SQLERRM',
11644: Replaced reference of okl_cnsld_ar_strms_b with Billing Util API call
11645: start changes
11646: */
11647: --Initialize standard API parameters
11648: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11649: x_msg_count NUMBER;
11650: x_msg_data VARCHAR2(256);
11651:
11652: -- Intialize contract_invoice_tbl variable
11662: /* Commented by bkatraga for bug 12378106
11663: -- Call to the Billing Util API replacing reference to okl_cnsld_ar_strms_b
11664: OKL_BILLING_UTIL_PVT.INVOICE_AMOUNT_FOR_STREAM(
11665: p_api_version => 1.0
11666: ,p_init_msg_list => OKL_API.G_FALSE
11667: ,x_return_status => x_return_status
11668: ,x_msg_count => x_msg_count
11669: ,x_msg_data => x_msg_data
11670: ,p_stream_purpose => 'UNSCHEDULED_PRINCIPAL_PAYMENT'
11684:
11685: --Added by bkatraga for bug 12378106
11686: OKL_BILLING_UTIL_PVT.CR_INVOICE_AMOUNT_FOR_STREAM(
11687: p_api_version => 1.0
11688: ,p_init_msg_list => OKL_API.G_FALSE
11689: ,x_return_status => x_return_status
11690: ,x_msg_count => x_msg_count
11691: ,x_msg_data => x_msg_data
11692: ,p_stream_purpose => 'UNSCHEDULED_PRINCIPAL_PAYMENT'
11697: RETURN l_payment_tot;
11698:
11699: EXCEPTION
11700: WHEN OTHERS THEN
11701: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11702: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11703: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11704: p_token1 => 'OKL_SQLCODE',
11705: p_token1_value => SQLCODE,
11698:
11699: EXCEPTION
11700: WHEN OTHERS THEN
11701: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
11702: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
11703: p_msg_name => 'OKL_UNEXPECTED_ERROR',
11704: p_token1 => 'OKL_SQLCODE',
11705: p_token1_value => SQLCODE,
11706: p_token2 => 'OKL_SQLERRM',
11733: RETURN NUMBER IS
11734:
11735: l_api_name CONSTANT VARCHAR2(30) := 'LINE_ASSET_COST';
11736: l_api_version CONSTANT NUMBER := 1;
11737: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
11738: x_msg_count NUMBER;
11739: x_msg_data VARCHAR2(256);
11740:
11741: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
11887:
11888: BEGIN
11889:
11890: IF (( p_contract_id IS NULL ) OR ( p_contract_line_id IS NULL )) THEN
11891: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11892: END IF;
11893:
11894: l_streams_repo_policy := OKL_STREAMS_SEC_PVT.GET_STREAMS_POLICY;
11895: l_book_type_code := NULL;
11940: FETCH l_nr_asset_csr_incl_terminated INTO l_asset_rec;
11941: IF( l_nr_asset_csr_incl_terminated%NOTFOUND ) THEN
11942: CLOSE l_nr_asset_csr_incl_terminated;
11943: --Commenting RAISE statement, instead returning value zero
11944: --RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11945: l_converted_amount := 0;
11946: RETURN l_converted_amount;
11947: END IF;
11948: CLOSE l_nr_asset_csr_incl_terminated;
11955: FETCH l_nr_asset_csr INTO l_asset_rec;
11956: IF( l_nr_asset_csr%NOTFOUND ) THEN
11957: CLOSE l_nr_asset_csr;
11958: --Commenting RAISE statement, instead returning value zero
11959: --RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11960: l_converted_amount := 0;
11961: RETURN l_converted_amount;
11962: END IF;
11963: CLOSE l_nr_asset_csr;
11979: IF( l_asset_csr_incl_terminated%NOTFOUND ) THEN
11980: CLOSE l_asset_csr_incl_terminated;
11981: --ndani - 15-Mar-2013 Start - Rebook Accounting Fix
11982: --Bug# 16511024, Start :Commenting RAISE statement, instead returning value zero
11983: --RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
11984: l_converted_amount := 0;
11985: RETURN l_converted_amount;
11986: --Bug# 16511024, End
11987: --ndani - 15-Mar-2013 End - Rebook Accounting Fix
11996: IF( l_asset_csr%NOTFOUND ) THEN
11997: CLOSE l_asset_csr;
11998: --ndani - 15-Mar-2013 Start - Rebook Accounting Fix
11999: --Bug# 16511024, Start :Commenting RAISE statement, instead returning value zero
12000: --RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12001: l_converted_amount := 0;
12002: RETURN l_converted_amount;
12003: --Bug# 16511024, End
12004: --ndani - 15-Mar-2013 End - Rebook Accounting Fix
12009: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
12010: l_asset_hdr_rec.book_type_code := l_asset_rec.book_type_code;
12011:
12012: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
12013: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12014: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12015: );
12016: RAISE OKL_API.G_EXCEPTION_ERROR;
12017: END IF;
12012: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
12013: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12014: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12015: );
12016: RAISE OKL_API.G_EXCEPTION_ERROR;
12017: END IF;
12018:
12019: -- To fetch Asset Current Cost
12020: IF NOT FA_UTIL_PVT.get_asset_fin_rec
12023: p_transaction_header_id => NULL,
12024: p_mrc_sob_type_code => 'P'
12025: ) THEN
12026:
12027: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12028: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
12029: );
12030: RAISE OKL_API.G_EXCEPTION_ERROR;
12031: END IF;
12026:
12027: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12028: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
12029: );
12030: RAISE OKL_API.G_EXCEPTION_ERROR;
12031: END IF;
12032:
12033: -- convert amount into contract currency
12034: OPEN contract_start_date_csr(p_chr_id => p_contract_id);
12047: x_currency_conversion_rate => l_currency_conversion_rate,
12048: x_currency_conversion_date => l_currency_conversion_date,
12049: x_converted_amount => l_converted_amount);
12050:
12051: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12052: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12053: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12054: RAISE Okl_Api.G_EXCEPTION_ERROR;
12055: END IF;
12048: x_currency_conversion_date => l_currency_conversion_date,
12049: x_converted_amount => l_converted_amount);
12050:
12051: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12052: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12053: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12054: RAISE Okl_Api.G_EXCEPTION_ERROR;
12055: END IF;
12056:
12050:
12051: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12052: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12053: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12054: RAISE Okl_Api.G_EXCEPTION_ERROR;
12055: END IF;
12056:
12057: RETURN l_converted_amount;
12058:
12057: RETURN l_converted_amount;
12058:
12059: EXCEPTION
12060:
12061: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12062: RETURN NULL;
12063:
12064: WHEN OTHERS THEN
12065: Okl_Api.SET_MESSAGE(
12061: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12062: RETURN NULL;
12063:
12064: WHEN OTHERS THEN
12065: Okl_Api.SET_MESSAGE(
12066: p_app_name => G_APP_NAME,
12067: p_msg_name => G_UNEXPECTED_ERROR,
12068: p_token1 => G_SQLCODE_TOKEN,
12069: p_token1_value => SQLCODE,
12093: RETURN NUMBER IS
12094:
12095: l_api_name CONSTANT VARCHAR2(30) := 'LINE_ACCUMULATED_DEPRN';
12096: l_api_version CONSTANT NUMBER := 1;
12097: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12098: x_msg_count NUMBER;
12099: x_msg_data VARCHAR2(256);
12100:
12101: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
12177:
12178: BEGIN
12179:
12180: IF (( p_contract_id IS NULL ) OR ( p_contract_line_id IS NULL )) THEN
12181: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12182: END IF;
12183:
12184: l_streams_repo_policy := OKL_STREAMS_SEC_PVT.GET_STREAMS_POLICY;
12185: l_book_type_code := NULL;
12212: p_book_type_code => l_book_type_code);
12213: FETCH l_asset_csr_incl_terminated INTO l_asset_rec;
12214: IF( l_asset_csr_incl_terminated%NOTFOUND ) THEN
12215: CLOSE l_asset_csr_incl_terminated;
12216: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12217: END IF;
12218: CLOSE l_asset_csr_incl_terminated;
12219: ELSE
12220: OPEN l_asset_csr(p_chr_id => p_contract_id,
12223: p_book_type_code => l_book_type_code);
12224: FETCH l_asset_csr INTO l_asset_rec;
12225: IF( l_asset_csr%NOTFOUND ) THEN
12226: CLOSE l_asset_csr;
12227: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12228: END IF;
12229: CLOSE l_asset_csr;
12230: END IF;
12231:
12232: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
12233: l_asset_hdr_rec.book_type_code := l_asset_rec.book_type_code;
12234:
12235: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
12236: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12237: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12238: );
12239: RAISE OKL_API.G_EXCEPTION_ERROR;
12240: END IF;
12235: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
12236: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12237: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12238: );
12239: RAISE OKL_API.G_EXCEPTION_ERROR;
12240: END IF;
12241:
12242: -- To fetch Depreciation Reserve
12243: IF NOT FA_UTIL_PVT.get_asset_deprn_rec
12245: px_asset_deprn_rec => l_asset_deprn_rec,
12246: p_period_counter => NULL,
12247: p_mrc_sob_type_code => 'P'
12248: ) THEN
12249: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12250: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
12251: );
12252: RAISE OKL_API.G_EXCEPTION_ERROR;
12253: END IF;
12248: ) THEN
12249: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12250: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
12251: );
12252: RAISE OKL_API.G_EXCEPTION_ERROR;
12253: END IF;
12254:
12255: -- convert amount into contract currency
12256: OPEN contract_start_date_csr(p_chr_id => p_contract_id);
12269: x_currency_conversion_rate => l_currency_conversion_rate,
12270: x_currency_conversion_date => l_currency_conversion_date,
12271: x_converted_amount => l_converted_amount);
12272:
12273: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12274: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12275: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12276: RAISE Okl_Api.G_EXCEPTION_ERROR;
12277: END IF;
12270: x_currency_conversion_date => l_currency_conversion_date,
12271: x_converted_amount => l_converted_amount);
12272:
12273: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12274: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12275: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12276: RAISE Okl_Api.G_EXCEPTION_ERROR;
12277: END IF;
12278:
12272:
12273: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12274: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12275: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12276: RAISE Okl_Api.G_EXCEPTION_ERROR;
12277: END IF;
12278:
12279: RETURN l_converted_amount;
12280:
12279: RETURN l_converted_amount;
12280:
12281: EXCEPTION
12282:
12283: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12284: RETURN NULL;
12285:
12286: WHEN OTHERS THEN
12287: Okl_Api.SET_MESSAGE(
12283: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12284: RETURN NULL;
12285:
12286: WHEN OTHERS THEN
12287: Okl_Api.SET_MESSAGE(
12288: p_app_name => G_APP_NAME,
12289: p_msg_name => G_UNEXPECTED_ERROR,
12290: p_token1 => G_SQLCODE_TOKEN,
12291: p_token1_value => SQLCODE,
12315: RETURN NUMBER IS
12316:
12317: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_ASSET_COST';
12318: l_api_version CONSTANT NUMBER := 1;
12319: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12320: x_msg_count NUMBER;
12321: x_msg_data VARCHAR2(256);
12322:
12323: CURSOR l_finast_csr(p_chr_id IN NUMBER) IS
12351:
12352: BEGIN
12353:
12354: IF ( p_contract_id IS NULL ) THEN
12355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12356: END IF;
12357:
12358: l_sum_asset_cost := 0;
12359:
12376: IF l_discount_incl_terminated THEN
12377: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
12378: l_asset_cost := line_asset_cost(p_contract_id,l_finast_rec.id);
12379: IF (l_asset_cost IS NULL) THEN
12380: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12381: END IF;
12382: l_sum_asset_cost := l_sum_asset_cost + l_asset_cost;
12383: END LOOP;
12384:
12386:
12387: FOR l_finast_rec IN l_finast_csr(p_chr_id => p_contract_id) LOOP
12388: l_asset_cost := line_asset_cost(p_contract_id,l_finast_rec.id);
12389: IF (l_asset_cost IS NULL) THEN
12390: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12391: END IF;
12392: l_sum_asset_cost := l_sum_asset_cost + l_asset_cost;
12393: END LOOP;
12394:
12397: RETURN l_sum_asset_cost;
12398:
12399: EXCEPTION
12400:
12401: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12402: RETURN NULL;
12403:
12404: WHEN OTHERS THEN
12405: Okl_Api.SET_MESSAGE(
12401: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12402: RETURN NULL;
12403:
12404: WHEN OTHERS THEN
12405: Okl_Api.SET_MESSAGE(
12406: p_app_name => G_APP_NAME,
12407: p_msg_name => G_UNEXPECTED_ERROR,
12408: p_token1 => G_SQLCODE_TOKEN,
12409: p_token1_value => SQLCODE,
12433: RETURN NUMBER IS
12434:
12435: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_ACCUMULATED_DEPRN';
12436: l_api_version CONSTANT NUMBER := 1;
12437: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12438: x_msg_count NUMBER;
12439: x_msg_data VARCHAR2(256);
12440:
12441: CURSOR l_finast_csr(p_chr_id IN NUMBER) IS
12469:
12470: BEGIN
12471:
12472: IF ( p_contract_id IS NULL ) THEN
12473: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12474: END IF;
12475:
12476: l_sum_accumulated_deprn := 0;
12477:
12494: IF l_discount_incl_terminated THEN
12495: FOR l_finast_rec IN l_finast_csr_incl_terminated(p_chr_id => p_contract_id) LOOP
12496: l_accumulated_deprn := line_accumulated_deprn(p_contract_id,l_finast_rec.id);
12497: IF (l_accumulated_deprn IS NULL) THEN
12498: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12499: END IF;
12500: l_sum_accumulated_deprn := l_sum_accumulated_deprn + l_accumulated_deprn;
12501: END LOOP;
12502:
12504:
12505: FOR l_finast_rec IN l_finast_csr(p_chr_id => p_contract_id) LOOP
12506: l_accumulated_deprn := line_accumulated_deprn(p_contract_id,l_finast_rec.id);
12507: IF (l_accumulated_deprn IS NULL) THEN
12508: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12509: END IF;
12510: l_sum_accumulated_deprn := l_sum_accumulated_deprn + l_accumulated_deprn;
12511: END LOOP;
12512:
12515: RETURN l_sum_accumulated_deprn;
12516:
12517: EXCEPTION
12518:
12519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12520: RETURN NULL;
12521:
12522: WHEN OTHERS THEN
12523: Okl_Api.SET_MESSAGE(
12519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12520: RETURN NULL;
12521:
12522: WHEN OTHERS THEN
12523: Okl_Api.SET_MESSAGE(
12524: p_app_name => G_APP_NAME,
12525: p_msg_name => G_UNEXPECTED_ERROR,
12526: p_token1 => G_SQLCODE_TOKEN,
12527: p_token1_value => SQLCODE,
12553: RETURN NUMBER IS
12554:
12555: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_CAPITAL_AMOUNT';
12556: l_api_version CONSTANT NUMBER := 1;
12557: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12558: x_msg_count NUMBER;
12559: x_msg_data VARCHAR2(256);
12560:
12561: --cursor to find total capital amount
12606:
12607: BEGIN
12608:
12609: IF ( p_contract_id IS NULL ) THEN
12610: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12611: END IF;
12612:
12613: l_capital_amount := 0;
12614: l_financed_fee := 0;
12636: RETURN l_contract_financed_amount;
12637:
12638: EXCEPTION
12639:
12640: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12641: RETURN NULL;
12642:
12643: WHEN OTHERS THEN
12644: Okl_Api.SET_MESSAGE(
12640: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12641: RETURN NULL;
12642:
12643: WHEN OTHERS THEN
12644: Okl_Api.SET_MESSAGE(
12645: p_app_name => G_APP_NAME,
12646: p_msg_name => G_UNEXPECTED_ERROR,
12647: p_token1 => G_SQLCODE_TOKEN,
12648: p_token1_value => SQLCODE,
12672: RETURN NUMBER IS
12673:
12674: l_api_name CONSTANT VARCHAR2(30) := 'ROLLOVER_FEE';
12675: l_api_version CONSTANT NUMBER := 1;
12676: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12677: x_msg_count NUMBER;
12678: x_msg_data VARCHAR2(256);
12679:
12680: --cursor to find...
12694: RETURN l_amount;
12695:
12696: EXCEPTION
12697:
12698: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12699: RETURN NULL;
12700:
12701: WHEN OTHERS THEN
12702: Okl_Api.SET_MESSAGE(
12698: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12699: RETURN NULL;
12700:
12701: WHEN OTHERS THEN
12702: Okl_Api.SET_MESSAGE(
12703: p_app_name => G_APP_NAME,
12704: p_msg_name => G_UNEXPECTED_ERROR,
12705: p_token1 => G_SQLCODE_TOKEN,
12706: p_token1_value => SQLCODE,
12729: RETURN NUMBER IS
12730:
12731: l_api_name CONSTANT VARCHAR2(30) := 'TOT_NET_TRANSFERS';
12732: l_api_version CONSTANT NUMBER := 1;
12733: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
12734: x_msg_count NUMBER;
12735: x_msg_data VARCHAR2(256);
12736:
12737: --cursor to find...
12751: RETURN l_amount;
12752:
12753: EXCEPTION
12754:
12755: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12756: RETURN NULL;
12757:
12758: WHEN OTHERS THEN
12759: Okl_Api.SET_MESSAGE(
12755: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12756: RETURN NULL;
12757:
12758: WHEN OTHERS THEN
12759: Okl_Api.SET_MESSAGE(
12760: p_app_name => G_APP_NAME,
12761: p_msg_name => G_UNEXPECTED_ERROR,
12762: p_token1 => G_SQLCODE_TOKEN,
12763: p_token1_value => SQLCODE,
12847:
12848: -- rmunjulu
12849: l_quote_eff_date DATE;
12850: l_term_date DATE;
12851: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
12852:
12853: -- Start : Bug 6030917 : prasjain
12854: --new cursor introduced for prorating and rounding the stream element amount
12855: --incase of partial unit termination
12888: l_parent_strm_rounded_tot_amt NUMBER;
12889: --declaring other local variables
12890: i NUMBER;
12891: l_api_version NUMBER := 1;
12892: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
12893: l_msg_count NUMBER;
12894: l_msg_data VARCHAR2(100);
12895: -- End : Bug 6030917 : prasjain
12896:
12961: 'RENT',
12962: l_return_status,
12963: l_stream_type_id);
12964:
12965: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
12966: THEN
12967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12968: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12969: THEN
12963: l_stream_type_id);
12964:
12965: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
12966: THEN
12967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12968: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12969: THEN
12970: RAISE OKL_API.G_EXCEPTION_ERROR;
12971: END IF;
12964:
12965: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
12966: THEN
12967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12968: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12969: THEN
12970: RAISE OKL_API.G_EXCEPTION_ERROR;
12971: END IF;
12972: --PAGARG 31-Dec-2004 Bug# 4097591 End
12966: THEN
12967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12968: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
12969: THEN
12970: RAISE OKL_API.G_EXCEPTION_ERROR;
12971: END IF;
12972: --PAGARG 31-Dec-2004 Bug# 4097591 End
12973:
12974: -- ********************************************
13006:
13007: IF l_rep_prod_streams_yn = 'Y' THEN
13008: IF l_trx_date IS NULL THEN
13009: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
13010: Okl_Api.Set_Message(p_app_name => g_app_name,
13011: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
13012: RAISE Okl_Api.G_EXCEPTION_ERROR;
13013: END IF;
13014: END IF;
13008: IF l_trx_date IS NULL THEN
13009: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
13010: Okl_Api.Set_Message(p_app_name => g_app_name,
13011: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
13012: RAISE Okl_Api.G_EXCEPTION_ERROR;
13013: END IF;
13014: END IF;
13015:
13016: -- rmunjulu
13112: p_currency_code => l_currency_code,
13113: p_round_option => 'STM',
13114: x_rounded_amount => l_parent_strm_rounded_amt
13115: );
13116: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13119: RAISE OKL_API.G_EXCEPTION_ERROR;
13120: END IF;
13113: p_round_option => 'STM',
13114: x_rounded_amount => l_parent_strm_rounded_amt
13115: );
13116: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13119: RAISE OKL_API.G_EXCEPTION_ERROR;
13120: END IF;
13121: -- calculate the parent stream rounded total
13114: x_rounded_amount => l_parent_strm_rounded_amt
13115: );
13116: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13119: RAISE OKL_API.G_EXCEPTION_ERROR;
13120: END IF;
13121: -- calculate the parent stream rounded total
13122: l_parent_strm_rounded_tot_amt := l_parent_strm_rounded_tot_amt
13115: );
13116: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13119: RAISE OKL_API.G_EXCEPTION_ERROR;
13120: END IF;
13121: -- calculate the parent stream rounded total
13122: l_parent_strm_rounded_tot_amt := l_parent_strm_rounded_tot_amt
13123: + l_parent_strm_rounded_amt;
13131:
13132: RETURN NVL (l_result_amount, 0);
13133:
13134: EXCEPTION
13135: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
13136: -- Close open cursors
13137: IF l_future_stream_csr%ISOPEN THEN
13138: CLOSE l_future_stream_csr;
13139: END IF;
13172: END IF;
13173: -- End : Bug 6030917 : prasjain
13174:
13175: -- store SQL error message on message stack for caller
13176: OKL_API.SET_MESSAGE (
13177: p_app_name => OKL_API.G_APP_NAME,
13178: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
13179: p_token1 => 'SQLCODE',
13180: p_token1_value => SQLCODE,
13173: -- End : Bug 6030917 : prasjain
13174:
13175: -- store SQL error message on message stack for caller
13176: OKL_API.SET_MESSAGE (
13177: p_app_name => OKL_API.G_APP_NAME,
13178: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
13179: p_token1 => 'SQLCODE',
13180: p_token1_value => SQLCODE,
13181: p_token2 => 'SQLERRM',
13276:
13277: -- rmunjulu
13278: l_quote_eff_date DATE;
13279: l_stream_type_id NUMBER;
13280: l_return_status VARCHAR2(3) := Okl_Api.G_RET_STS_SUCCESS;
13281:
13282: l_debug_unearned_income NUMBER := 0;
13283: -- Start : Bug 6030917 : prasjain
13284: --new cursor introduced for prorating and rounding the stream element amount
13313: l_parent_strm_rounded_amt NUMBER;
13314: l_parent_strm_rounded_tot_amt NUMBER;
13315: --declaring other local variables
13316: l_api_version NUMBER := 1;
13317: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
13318: l_msg_count NUMBER;
13319: l_msg_data VARCHAR2(100);
13320: -- End : Bug 6030917 : prasjain
13321:
13379: p_primary_sty_purpose => 'RENT',
13380: p_dependent_sty_purpose => 'LEASE_INCOME',
13381: x_return_status => l_return_status,
13382: x_dependent_sty_id => l_stream_type_id);
13383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
13384: THEN
13385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
13387: THEN
13381: x_return_status => l_return_status,
13382: x_dependent_sty_id => l_stream_type_id);
13383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
13384: THEN
13385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
13387: THEN
13388: RAISE OKL_API.G_EXCEPTION_ERROR;
13389: END IF;
13382: x_dependent_sty_id => l_stream_type_id);
13383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
13384: THEN
13385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
13387: THEN
13388: RAISE OKL_API.G_EXCEPTION_ERROR;
13389: END IF;
13390: ELSE
13384: THEN
13385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13386: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
13387: THEN
13388: RAISE OKL_API.G_EXCEPTION_ERROR;
13389: END IF;
13390: ELSE
13391: -- sechawla 05-dec-07 6671849 -- START
13392: --PAGARG 31-Dec-2004 Bug# 4097591 Start
13396: p_dependent_sty_purpose => 'LEASE_INCOME',
13397: x_return_status => l_return_status,
13398: x_dependent_sty_id => l_stream_type_id);
13399:
13400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13397: x_return_status => l_return_status,
13398: x_dependent_sty_id => l_stream_type_id);
13399:
13400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13405: --PAGARG 31-Dec-2004 Bug# 4097591 End
13398: x_dependent_sty_id => l_stream_type_id);
13399:
13400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13405: --PAGARG 31-Dec-2004 Bug# 4097591 End
13406:
13399:
13400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13405: --PAGARG 31-Dec-2004 Bug# 4097591 End
13406:
13407: END IF; -- sechawla 05-dec-07 6671849 -- added
13408:
13409: IF l_rep_prod_streams_yn = 'Y' THEN
13410: IF l_trx_date IS NULL THEN
13411: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
13412: Okl_Api.Set_Message(p_app_name => g_app_name,
13413: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
13414: RAISE Okl_Api.G_EXCEPTION_ERROR;
13415: END IF;
13416: END IF;
13410: IF l_trx_date IS NULL THEN
13411: -- Can not calculate Net Investment for the reporting product as the transaction date is missing.
13412: Okl_Api.Set_Message(p_app_name => g_app_name,
13413: p_msg_name => 'OKL_AM_AMORT_NO_TRX_DATE');
13414: RAISE Okl_Api.G_EXCEPTION_ERROR;
13415: END IF;
13416: END IF;
13417:
13418: -- 26-Aug-2004 3849355 Guru added the following code to get current accural period end date
13517: p_currency_code => l_currency_code,
13518: p_round_option => 'STM',
13519: x_rounded_amount => l_parent_strm_rounded_amt
13520: );
13521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13524: RAISE OKL_API.G_EXCEPTION_ERROR;
13525: END IF;
13518: p_round_option => 'STM',
13519: x_rounded_amount => l_parent_strm_rounded_amt
13520: );
13521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13524: RAISE OKL_API.G_EXCEPTION_ERROR;
13525: END IF;
13526:
13519: x_rounded_amount => l_parent_strm_rounded_amt
13520: );
13521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13524: RAISE OKL_API.G_EXCEPTION_ERROR;
13525: END IF;
13526:
13527: -- calculate the parent stream rounded total
13520: );
13521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13523: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13524: RAISE OKL_API.G_EXCEPTION_ERROR;
13525: END IF;
13526:
13527: -- calculate the parent stream rounded total
13528: l_parent_strm_rounded_tot_amt := l_parent_strm_rounded_tot_amt
13538: RETURN NVL(l_unearned_income,0);
13539:
13540: EXCEPTION
13541:
13542: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
13543: IF line_csr%ISOPEN THEN
13544: CLOSE line_csr;
13545: END IF;
13546:
13581: -- End : Bug 6030917 : prasjain
13582:
13583: -- store SQL error message on message stack for caller
13584:
13585: OKL_API.SET_MESSAGE (
13586: p_app_name => OKL_API.G_APP_NAME,
13587: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
13588: p_token1 => 'SQLCODE',
13589: p_token1_value => SQLCODE,
13582:
13583: -- store SQL error message on message stack for caller
13584:
13585: OKL_API.SET_MESSAGE (
13586: p_app_name => OKL_API.G_APP_NAME,
13587: p_msg_name => 'OKL_CONTRACTS_UNEXPECTED_ERROR',
13588: p_token1 => 'SQLCODE',
13589: p_token1_value => SQLCODE,
13590: p_token2 => 'SQLERRM',
13651: END LOOP;
13652: END IF;
13653:
13654: IF l_quote_id IS NULL
13655: OR l_quote_id = OKL_API.G_MISS_NUM
13656: OR p_khr_id IS NULL
13657: OR p_khr_id = OKL_API.G_MISS_NUM
13658: OR p_kle_id IS NULL
13659: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13653:
13654: IF l_quote_id IS NULL
13655: OR l_quote_id = OKL_API.G_MISS_NUM
13656: OR p_khr_id IS NULL
13657: OR p_khr_id = OKL_API.G_MISS_NUM
13658: OR p_kle_id IS NULL
13659: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13660:
13661: RAISE Expected_error;
13655: OR l_quote_id = OKL_API.G_MISS_NUM
13656: OR p_khr_id IS NULL
13657: OR p_khr_id = OKL_API.G_MISS_NUM
13658: OR p_kle_id IS NULL
13659: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13660:
13661: RAISE Expected_error;
13662: END IF;
13663:
13699:
13700: RETURN 0;
13701: WHEN OTHERS THEN
13702: -- store SQL error message on message stack for caller
13703: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
13704: p_msg_name => 'OKL_UNEXPECTED_ERROR',
13705: p_token1 => 'OKL_SQLCODE',
13706: p_token1_value => SQLCODE,
13707: p_token2 => 'OKL_SQLERRM',
13781: RETURN l_balance;
13782:
13783: EXCEPTION
13784:
13785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13786: RAISE;
13787:
13788: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13789: RAISE;
13784:
13785: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13786: RAISE;
13787:
13788: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13789: RAISE;
13790:
13791: WHEN OTHERS THEN
13792:
13789: RAISE;
13790:
13791: WHEN OTHERS THEN
13792:
13793: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
13794: p_msg_name => 'OKL_DB_ERROR',
13795: p_token1 => 'PROG_NAME',
13796: p_token1_value => l_prog_name,
13797: p_token2 => 'SQLCODE',
13798: p_token2_value => sqlcode,
13799: p_token3 => 'SQLERRM',
13800: p_token3_value => sqlerrm);
13801:
13802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13803:
13804: END principal_balance_fee_line;
13805:
13806:
13837: EXCEPTION
13838:
13839: WHEN OTHERS THEN
13840:
13841: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
13842: p_msg_name => 'OKL_DB_ERROR',
13843: p_token1 => 'PROG_NAME',
13844: p_token1_value => l_prog_name,
13845: p_token2 => 'SQLCODE',
13846: p_token2_value => sqlcode,
13847: p_token3 => 'SQLERRM',
13848: p_token3_value => sqlerrm);
13849:
13850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13851:
13852: END principal_balance_financed;
13853:
13854:
13885: EXCEPTION
13886:
13887: WHEN OTHERS THEN
13888:
13889: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
13890: p_msg_name => 'OKL_DB_ERROR',
13891: p_token1 => 'PROG_NAME',
13892: p_token1_value => l_prog_name,
13893: p_token2 => 'SQLCODE',
13894: p_token2_value => sqlcode,
13895: p_token3 => 'SQLERRM',
13896: p_token3_value => sqlerrm);
13897:
13898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13899:
13900: END principal_balance_rollover;
13901:
13902: -- rmunjulu 4299668 Added -- modified to call line_accumulated_deprn
13948: END LOOP;
13949: END IF;
13950:
13951: IF p_khr_id IS NULL
13952: OR p_khr_id = OKL_API.G_MISS_NUM
13953: OR p_kle_id IS NULL
13954: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13955:
13956: RAISE Expected_error;
13950:
13951: IF p_khr_id IS NULL
13952: OR p_khr_id = OKL_API.G_MISS_NUM
13953: OR p_kle_id IS NULL
13954: OR p_kle_id = OKL_API.G_MISS_NUM THEN
13955:
13956: RAISE Expected_error;
13957: END IF;
13958:
13956: RAISE Expected_error;
13957: END IF;
13958:
13959: IF l_quote_id IS NOT NULL
13960: AND l_quote_id <> OKL_API.G_MISS_NUM THEN
13961:
13962: OPEN get_quote_date_csr (l_quote_id);
13963: FETCH get_quote_date_csr INTO l_quote_eff_date;
13964: CLOSE get_quote_date_csr;
14005: IF get_asset_cost_csr%ISOPEN THEN
14006: CLOSE get_asset_cost_csr;
14007: END IF;
14008: -- store SQL error message on message stack for caller
14009: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
14010: p_msg_name => 'OKL_UNEXPECTED_ERROR',
14011: p_token1 => 'OKL_SQLCODE',
14012: p_token1_value => SQLCODE,
14013: p_token2 => 'OKL_SQLERRM',
14052: IF cr_unpaid_invoices%ISOPEN THEN
14053: CLOSE cr_unpaid_invoices;
14054: END IF;
14055: -- store SQL error message on message stack for caller
14056: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
14057: p_msg_name => 'OKL_UNEXPECTED_ERROR',
14058: p_token1 => 'OKL_SQLCODE',
14059: p_token1_value => SQLCODE,
14060: p_token2 => 'OKL_SQLERRM',
14106: IF cr_unbilled_streams%ISOPEN THEN
14107: CLOSE cr_unbilled_streams;
14108: END IF;
14109: -- store SQL error message on message stack for caller
14110: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
14111: p_msg_name => 'OKL_UNEXPECTED_ERROR',
14112: p_token1 => 'OKL_SQLCODE',
14113: p_token1_value => SQLCODE,
14114: p_token2 => 'OKL_SQLERRM',
14156:
14157: BEGIN
14158:
14159: IF p_khr_id IS NULL
14160: OR p_khr_id = OKL_API.G_MISS_NUM
14161: OR p_kle_id IS NULL
14162: OR p_kle_id = OKL_API.G_MISS_NUM THEN
14163:
14164: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14158:
14159: IF p_khr_id IS NULL
14160: OR p_khr_id = OKL_API.G_MISS_NUM
14161: OR p_kle_id IS NULL
14162: OR p_kle_id = OKL_API.G_MISS_NUM THEN
14163:
14164: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14165: p_msg_name => 'OKL_INVALID_VALUE',
14166: p_token1 => 'COL_NAME',
14160: OR p_khr_id = OKL_API.G_MISS_NUM
14161: OR p_kle_id IS NULL
14162: OR p_kle_id = OKL_API.G_MISS_NUM THEN
14163:
14164: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14165: p_msg_name => 'OKL_INVALID_VALUE',
14166: p_token1 => 'COL_NAME',
14167: p_token1_value => 'P_KHR_ID OR P_KLE_ID');
14168:
14178: END LOOP;
14179: END IF;
14180:
14181: IF l_retirement_id IS NULL
14182: OR l_retirement_id = OKL_API.G_MISS_NUM THEN
14183:
14184: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14185: p_msg_name => 'OKL_INVALID_VALUE',
14186: p_token1 => 'COL_NAME',
14180:
14181: IF l_retirement_id IS NULL
14182: OR l_retirement_id = OKL_API.G_MISS_NUM THEN
14183:
14184: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14185: p_msg_name => 'OKL_INVALID_VALUE',
14186: p_token1 => 'COL_NAME',
14187: p_token1_value => 'retirement_id');
14188:
14218: x_currency_conversion_rate => l_currency_conversion_rate,
14219: x_currency_conversion_date => l_currency_conversion_date,
14220: x_converted_amount => l_converted_sales_proceeds);
14221:
14222: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
14223: RAISE EXPECTED_ERROR;
14224: END IF;
14225:
14226: l_share_amount := nvl(l_converted_sales_proceeds,0) - nvl(l_residual_value,0);
14251: CLOSE get_asset_sales_proceeds_csr;
14252: END IF;
14253:
14254: -- store SQL error message on message stack for caller
14255: Okl_Api.Set_Message(p_app_name => OKL_API.G_APP_NAME,
14256: p_msg_name => 'OKL_UNEXPECTED_ERROR',
14257: p_token1 => 'OKL_SQLCODE',
14258: p_token1_value => SQLCODE,
14259: p_token2 => 'OKL_SQLERRM',
14281:
14282: BEGIN
14283:
14284: IF p_khr_id IS NULL
14285: OR p_khr_id = OKL_API.G_MISS_NUM
14286: OR p_kle_id IS NULL
14287: OR p_kle_id = OKL_API.G_MISS_NUM THEN
14288:
14289: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14283:
14284: IF p_khr_id IS NULL
14285: OR p_khr_id = OKL_API.G_MISS_NUM
14286: OR p_kle_id IS NULL
14287: OR p_kle_id = OKL_API.G_MISS_NUM THEN
14288:
14289: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14290: p_msg_name => 'OKL_INVALID_VALUE',
14291: p_token1 => 'COL_NAME',
14285: OR p_khr_id = OKL_API.G_MISS_NUM
14286: OR p_kle_id IS NULL
14287: OR p_kle_id = OKL_API.G_MISS_NUM THEN
14288:
14289: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14290: p_msg_name => 'OKL_INVALID_VALUE',
14291: p_token1 => 'COL_NAME',
14292: p_token1_value => 'P_KHR_ID OR P_KLE_ID');
14293:
14304: END IF;
14305:
14306: IF l_quote_id IS NULL THEN
14307:
14308: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14309: p_msg_name => 'OKL_INVALID_VALUE',
14310: p_token1 => 'COL_NAME',
14311: p_token1_value => 'quote_id');
14312:
14324: p_khr_id => p_khr_id,
14325: p_kle_id => p_kle_id,
14326: p_date => l_quote_eff_from);
14327:
14328: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
14329: RAISE EXPECTED_ERROR;
14330: END IF;
14331:
14332:
14348: CLOSE get_quote_date_csr;
14349: END IF;
14350:
14351: -- store SQL error message on message stack for caller
14352: Okl_Api.Set_Message(p_app_name => OKL_API.G_APP_NAME,
14353: p_msg_name => 'OKL_UNEXPECTED_ERROR',
14354: p_token1 => 'OKL_SQLCODE',
14355: p_token1_value => SQLCODE,
14356: p_token2 => 'OKL_SQLERRM',
14442: END IF;
14443:
14444: IF l_quote_id IS NULL THEN
14445:
14446: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
14447: p_msg_name => 'OKL_INVALID_VALUE',
14448: p_token1 => 'COL_NAME',
14449: p_token1_value => 'QUOTE_ID');
14450:
14464: x_return_status => l_return_status,
14465: p_khr_id => p_khr_id,
14466: p_effective_date => l_quote_eff_from);
14467:
14468: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
14469: RAISE EXPECTED_ERROR;
14470: END IF;
14471:
14472: -- use utility for getting the days (from SGT or Contract)
14476: x_days_in_month => lx_days_in_month,
14477: x_days_in_year => lx_days_in_year,
14478: x_return_status => lx_return_status);
14479:
14480: IF lx_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
14481: RAISE EXPECTED_ERROR;
14482: END IF;
14483:
14484: IF lx_days_in_year = 'ACTUAL' THEN
14549: CLOSE l_dealtype_csr;
14550: END IF;
14551:
14552: -- store SQL error message on message stack for caller
14553: Okl_Api.Set_Message(p_app_name => OKL_API.G_APP_NAME,
14554: p_msg_name => 'OKL_UNEXPECTED_ERROR',
14555: p_token1 => 'OKL_SQLCODE',
14556: p_token1_value => SQLCODE,
14557: p_token2 => 'OKL_SQLERRM',
14562: -- sjalasut, Rebook Change Control Enhancement START
14563:
14564: -- function that returns the sum of unbilled RENT for all active assets on the rebook copy of the contract
14565: FUNCTION cont_rbk_unbilled_receivables(p_contract_id okc_k_headers_b.id%TYPE
14566: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
14567:
14568: -- get all unbilled receivables for all ACTIVE assets
14569: CURSOR cle_rents_csr(cp_contract_id okc_k_headers_b.id%TYPE) IS
14570: SELECT NVL(SUM(sele.amount),0)
14591: lv_rent_assets NUMBER;
14592:
14593: lv_unbilled_recv NUMBER;
14594: BEGIN
14595: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
14596: -- initialize
14597: lv_unbilled_recv := 0;
14598: lv_rent_assets := 0;
14599:
14608: WHEN OTHERS THEN
14609: IF(cle_rents_csr%ISOPEN)THEN
14610: CLOSE cle_rents_csr;
14611: END IF;
14612: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
14613: ,p_msg_name => G_UNEXPECTED_ERROR
14614: ,p_token1 => G_SQLCODE_TOKEN
14615: ,p_token1_value => SQLCODE
14616: ,p_token2 => G_SQLERRM_TOKEN
14619: END cont_rbk_unbilled_receivables;
14620:
14621: -- function that returns the sum of pre-tax income that was not accrued for all active assets on the rebook copy of the contract
14622: FUNCTION cont_rbk_unearned_income(p_contract_id okc_k_headers_b.id%TYPE
14623: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
14624:
14625: CURSOR c_pre_tax_csr(cp_contract_id okc_k_headers_b.id%TYPE) IS
14626: SELECT NVL(SUM(sele.amount),0)
14627: FROM okl_strm_elements sele
14645: AND sts.ste_code = 'ACTIVE'
14646: AND line.chr_id = cp_contract_id;
14647: lv_pre_tax_income NUMBER;
14648: BEGIN
14649: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
14650: lv_pre_tax_income := 0;
14651: OPEN c_pre_tax_csr(cp_contract_id => p_contract_id); FETCH c_pre_tax_csr INTO lv_pre_tax_income;
14652: CLOSE c_pre_tax_csr;
14653: END IF;
14656: WHEN OTHERS THEN
14657: IF(c_pre_tax_csr%ISOPEN)THEN
14658: CLOSE c_pre_tax_csr;
14659: END IF;
14660: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
14661: ,p_msg_name => G_UNEXPECTED_ERROR
14662: ,p_token1 => G_SQLCODE_TOKEN
14663: ,p_token1_value => SQLCODE
14664: ,p_token2 => G_SQLERRM_TOKEN
14666: RETURN NULL;
14667: END cont_rbk_unearned_income;
14668:
14669: -- returns sum of rent not billed for all terminated assets
14670: -- do not send p_contract_line_id as okl_api.g_miss_num
14671: FUNCTION cont_tmt_unbilled_receivables(p_contract_id okc_k_headers_b.id%TYPE
14672: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
14673: -- get all unbilled receivables for all TERMINATED assets
14674: CURSOR cle_rents_csr(cp_contract_id okc_k_headers_b.id%TYPE
14668:
14669: -- returns sum of rent not billed for all terminated assets
14670: -- do not send p_contract_line_id as okl_api.g_miss_num
14671: FUNCTION cont_tmt_unbilled_receivables(p_contract_id okc_k_headers_b.id%TYPE
14672: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
14673: -- get all unbilled receivables for all TERMINATED assets
14674: CURSOR cle_rents_csr(cp_contract_id okc_k_headers_b.id%TYPE
14675: ,cp_contract_line_id okc_k_lines_b.id%TYPE) IS
14676: SELECT NVL(SUM(sele.amount),0)
14698: lv_rent_assets NUMBER;
14699:
14700: lv_unbilled_recv NUMBER;
14701: BEGIN
14702: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
14703: -- initialize
14704: lv_unbilled_recv := 0;
14705: lv_rent_assets := 0;
14706:
14715: WHEN OTHERS THEN
14716: IF(cle_rents_csr%ISOPEN)THEN
14717: CLOSE cle_rents_csr;
14718: END IF;
14719: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
14720: ,p_msg_name => G_UNEXPECTED_ERROR
14721: ,p_token1 => G_SQLCODE_TOKEN
14722: ,p_token1_value => SQLCODE
14723: ,p_token2 => G_SQLERRM_TOKEN
14725: RETURN NULL;
14726: END cont_tmt_unbilled_receivables;
14727:
14728: -- returns sum of pre tax income not accrued for all terminated assets
14729: -- do not send p_contract_line_id as okl_api.g_miss_num
14730: FUNCTION cont_tmt_unearned_income(p_contract_id okc_k_headers_b.id%TYPE
14731: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
14732: 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
14733: SELECT NVL(SUM(sele.amount),0)
14727:
14728: -- returns sum of pre tax income not accrued for all terminated assets
14729: -- do not send p_contract_line_id as okl_api.g_miss_num
14730: FUNCTION cont_tmt_unearned_income(p_contract_id okc_k_headers_b.id%TYPE
14731: ,p_contract_line_id okc_k_lines_b.id%TYPE DEFAULT OKL_API.G_MISS_NUM) RETURN NUMBER IS
14732: 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
14733: SELECT NVL(SUM(sele.amount),0)
14734: FROM okl_strm_elements sele
14735: --,okl_streams str MGAAP 7263041
14753: AND line.chr_id = cp_contract_id
14754: AND line.id = NVL(cp_contract_line_id, line.id);
14755: lv_pre_tax_income NUMBER;
14756: BEGIN
14757: IF(p_contract_id IS NOT NULL AND p_contract_id <> OKL_API.G_MISS_NUM)THEN
14758: lv_pre_tax_income := 0;
14759: 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;
14760: CLOSE c_pre_tax_csr;
14761: END IF;
14764: WHEN OTHERS THEN
14765: IF(c_pre_tax_csr%ISOPEN)THEN
14766: CLOSE c_pre_tax_csr;
14767: END IF;
14768: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
14769: ,p_msg_name => G_UNEXPECTED_ERROR
14770: ,p_token1 => G_SQLCODE_TOKEN
14771: ,p_token1_value => SQLCODE
14772: ,p_token2 => G_SQLERRM_TOKEN
14844: IF cr_next_payment_amt%ISOPEN THEN
14845: CLOSE cr_next_payment_amt;
14846: END IF;
14847: -- store SQL error message on message stack for caller
14848: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
14849: p_msg_name => 'OKL_UNEXPECTED_ERROR',
14850: p_token1 => 'OKL_SQLCODE',
14851: p_token1_value => SQLCODE,
14852: p_token2 => 'OKL_SQLERRM',
14891: -- This function checks for total financed amount on contract is
14892: -- equal to or less than the total amount approved on a Lease Application
14893: -- ######################################################################
14894: FUNCTION check_contract_fin_amount(p_contract_id IN NUMBER,
14895: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
14896: RETURN VARCHAR2 IS
14897:
14898: ln_contract_financed_amount NUMBER;
14899: ln_leaseapp_financed_amount NUMBER;
14947: -- This function checks for total amount funded on a contract is
14948: -- equal to or less than the total amount approved on a Lease Application
14949: -- ######################################################################
14950: FUNCTION check_fund_amount(p_contract_id IN NUMBER,
14951: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
14952: RETURN VARCHAR2 IS
14953:
14954: ln_contract_funded_amount NUMBER;
14955: ln_leaseapp_financed_amount NUMBER;
14973:
14974: BEGIN
14975: ln_contract_funded_amount := okl_funding_pvt.get_total_funded(p_contract_id => p_contract_id);
14976:
14977: IF (p_contract_line_id IS NOT NULL AND p_contract_line_id <> OKL_API.G_MISS_NUM) THEN
14978: OPEN c_get_fund_amount(p_contract_line_id => p_contract_line_id);
14979: FETCH c_get_fund_amount INTO ln_fund_amount;
14980: CLOSE c_get_fund_amount;
14981: END IF;
15018: -- This function checks for Party and Customer Account on Lease Application
15019: -- and Contract are same
15020: -- ######################################################################
15021: FUNCTION check_party_custacct_match(p_contract_id IN NUMBER,
15022: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
15023: RETURN VARCHAR2 IS
15024:
15025: ln_lease_app_id NUMBER;
15026: ln_k_party_id NUMBER;
15074: -- This function checks for Vendor Program on Lease Application and
15075: -- Contract are same
15076: -- ######################################################################
15077: FUNCTION check_vendor_prog_match(p_contract_id IN NUMBER,
15078: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
15079: RETURN VARCHAR2 IS
15080:
15081: CURSOR c_k_vendor_prog_info IS
15082: SELECT khr_id
15128: -- This function checks for Activation date of contract is within the
15129: -- effective dates of Lease Application
15130: -- ######################################################################
15131: FUNCTION check_booking_date(p_contract_id IN NUMBER,
15132: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
15133: RETURN VARCHAR2 IS
15134:
15135: CURSOR c_k_booking_date IS
15136: SELECT date_transaction_occurred
15179: -- This function checks for Funding date of Funding request is within the
15180: -- effective dates of Lease Application
15181: -- ######################################################################
15182: FUNCTION check_funding_date(p_contract_id IN NUMBER,
15183: p_contract_line_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM)
15184: RETURN VARCHAR2 IS
15185:
15186: -- sjalasut, modified the cursor to have p_contract_id mapped to okl_txl_ap_inv_lns_all_b
15187: -- changes made as part of OKLR12B disbursements project.
15236: RETURN NUMBER IS
15237:
15238: l_api_name CONSTANT VARCHAR2(30) := 'ASSET_ACCU_DEPRN_RESERVE';
15239: l_api_version CONSTANT NUMBER := 1;
15240: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
15241: x_msg_count NUMBER;
15242: x_msg_data VARCHAR2(256);
15243:
15244: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
15291:
15292: BEGIN
15293:
15294: IF (( p_contract_id IS NULL ) OR ( p_contract_line_id IS NULL )) THEN
15295: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15296: END IF;
15297:
15298: -- 7626121
15299: l_streams_repo_policy := OKL_STREAMS_SEC_PVT.GET_STREAMS_POLICY;
15313: FETCH l_asset_csr INTO l_asset_rec;
15314: IF( l_asset_csr%NOTFOUND ) THEN
15315:
15316: CLOSE l_asset_csr;
15317: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15318: END IF;
15319: CLOSE l_asset_csr;
15320:
15321: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
15321: l_asset_hdr_rec.asset_id := l_asset_rec.asset_id;
15322: l_asset_hdr_rec.book_type_code := l_asset_rec.book_type_code;
15323:
15324: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
15325: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
15326: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
15327: );
15328: RAISE OKL_API.G_EXCEPTION_ERROR;
15329: END IF;
15324: IF NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) THEN
15325: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
15326: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
15327: );
15328: RAISE OKL_API.G_EXCEPTION_ERROR;
15329: END IF;
15330:
15331:
15332: -- To fetch Depreciation Reserve
15335: px_asset_deprn_rec => l_asset_deprn_rec,
15336: p_period_counter => NULL,
15337: p_mrc_sob_type_code => 'P'
15338: ) THEN
15339: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
15340: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
15341: );
15342: RAISE OKL_API.G_EXCEPTION_ERROR;
15343: END IF;
15338: ) THEN
15339: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
15340: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
15341: );
15342: RAISE OKL_API.G_EXCEPTION_ERROR;
15343: END IF;
15344:
15345:
15346:
15362: x_currency_conversion_date => l_currency_conversion_date,
15363: x_converted_amount => l_converted_amount);
15364:
15365:
15366: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
15367: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
15368: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
15369: RAISE Okl_Api.G_EXCEPTION_ERROR;
15370: END IF;
15363: x_converted_amount => l_converted_amount);
15364:
15365:
15366: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
15367: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
15368: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
15369: RAISE Okl_Api.G_EXCEPTION_ERROR;
15370: END IF;
15371:
15365:
15366: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
15367: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
15368: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
15369: RAISE Okl_Api.G_EXCEPTION_ERROR;
15370: END IF;
15371:
15372: RETURN l_converted_amount;
15373:
15372: RETURN l_converted_amount;
15373:
15374: EXCEPTION
15375:
15376: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15377: RETURN NULL;
15378:
15379: WHEN OTHERS THEN
15380: Okl_Api.SET_MESSAGE(
15376: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15377: RETURN NULL;
15378:
15379: WHEN OTHERS THEN
15380: Okl_Api.SET_MESSAGE(
15381: p_app_name => G_APP_NAME,
15382: p_msg_name => G_UNEXPECTED_ERROR,
15383: p_token1 => G_SQLCODE_TOKEN,
15384: p_token1_value => SQLCODE,
15467: to_number(okl_execute_formula_pub.g_additional_parameters(1).value);
15468: END IF;
15469:
15470: IF (l_asset_id IS NULL) THEN
15471: RAISE OKL_API.G_EXCEPTION_ERROR;
15472: END IF;
15473:
15474: -- get asset cost
15475: l_asset_cost := 0;
15476: OPEN c_asset_cost(l_asset_id);
15477: FETCH c_asset_cost INTO l_asset_cost;
15478: IF( c_asset_cost%NOTFOUND ) THEN
15479: CLOSE c_asset_cost;
15480: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15481: END IF;
15482: CLOSE c_asset_cost;
15483:
15484: -- get add-on amount
15517: l_cap_down_pmnt - l_trade_in_amnt;
15518:
15519: RETURN l_financed_amount;
15520: EXCEPTION
15521: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15522: IF c_asset_cost%ISOPEN THEN
15523: CLOSE c_asset_cost;
15524: END IF;
15525: IF c_addOn_cost%ISOPEN THEN
15535: CLOSE c_tradein_amnt;
15536: END IF;
15537: RETURN NULL;
15538: WHEN OTHERS THEN
15539: Okl_Api.SET_MESSAGE(
15540: p_app_name => G_APP_NAME,
15541: p_msg_name => G_UNEXPECTED_ERROR,
15542: p_token1 => G_SQLCODE_TOKEN,
15543: p_token1_value => SQLCODE,
15579: FUNCTION line_financed_amount(p_contract_id IN NUMBER
15580: ,p_contract_line_id IN NUMBER)
15581: RETURN NUMBER IS
15582: G_APP_NAME CONSTANT VARCHAR2(3) :=
15583: OKL_API.G_APP_NAME;
15584: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
15585: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) :=
15586: OKL_API.G_COL_NAME_TOKEN;
15587: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) :=
15582: G_APP_NAME CONSTANT VARCHAR2(3) :=
15583: OKL_API.G_APP_NAME;
15584: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
15585: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) :=
15586: OKL_API.G_COL_NAME_TOKEN;
15587: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) :=
15588: 'OKL_LLA_NO_MATCHING_RECORD';
15589: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
15590: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
15592: 'OKL_LLA_LINE_RECORD';
15593: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) :=
15594: 'OKL_LLA_INVALID_CRITERIA';
15595: l_return_status VARCHAR2(3) :=
15596: OKL_API.G_RET_STS_SUCCESS;
15597:
15598: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
15599: l_financed_amount NUMBER;
15600: l_asset_cost NUMBER;
15711: BEGIN
15712: -- To get the Line Style Code
15713: OPEN get_lty_code(p_line_id => p_contract_line_id);
15714: IF get_lty_code%NOTFOUND THEN
15715: OKL_API.set_message(p_app_name => G_APP_NAME,
15716: p_msg_name => G_NO_MATCHING_RECORD,
15717: p_token1 => G_COL_NAME_TOKEN,
15718: p_token1_value => 'Financial Asset Line');
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15715: OKL_API.set_message(p_app_name => G_APP_NAME,
15716: p_msg_name => G_NO_MATCHING_RECORD,
15717: p_token1 => G_COL_NAME_TOKEN,
15718: p_token1_value => 'Financial Asset Line');
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15720: END IF;
15721: FETCH get_lty_code INTO l_lty_code;
15722: CLOSE get_lty_code;
15723:
15725: -- To get the asset cost
15726: OPEN c_asset_cost(p_line_id => p_contract_line_id,
15727: p_dnz_chr_id => p_contract_id);
15728: IF c_asset_cost%NOTFOUND THEN
15729: OKL_API.set_message(p_app_name => G_APP_NAME,
15730: p_msg_name => G_NO_MATCHING_RECORD,
15731: p_token1 => G_COL_NAME_TOKEN,
15732: p_token1_value => 'Model Line');
15733: RAISE OKL_API.G_EXCEPTION_ERROR;
15729: OKL_API.set_message(p_app_name => G_APP_NAME,
15730: p_msg_name => G_NO_MATCHING_RECORD,
15731: p_token1 => G_COL_NAME_TOKEN,
15732: p_token1_value => 'Model Line');
15733: RAISE OKL_API.G_EXCEPTION_ERROR;
15734: END IF;
15735: FETCH c_asset_cost INTO l_asset_cost;
15736: CLOSE c_asset_cost;
15737:
15783: l_cap_down_pmnt - l_trade_in;
15784: END IF;
15785:
15786: ELSE
15787: OKL_API.set_message(p_app_name => G_APP_NAME,
15788: p_msg_name => G_LINE_RECORD);
15789: RAISE OKL_API.G_EXCEPTION_ERROR;
15790: END IF;
15791: RETURN l_financed_amount;
15785:
15786: ELSE
15787: OKL_API.set_message(p_app_name => G_APP_NAME,
15788: p_msg_name => G_LINE_RECORD);
15789: RAISE OKL_API.G_EXCEPTION_ERROR;
15790: END IF;
15791: RETURN l_financed_amount;
15792: EXCEPTION
15793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15789: RAISE OKL_API.G_EXCEPTION_ERROR;
15790: END IF;
15791: RETURN l_financed_amount;
15792: EXCEPTION
15793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15794: -- If the cursor is open then it has to be closed
15795: IF get_lty_code%ISOPEN THEN
15796: CLOSE get_lty_code;
15797: END IF;
15849: FUNCTION front_end_financed_amount( p_contract_id IN NUMBER
15850: ,p_contract_line_id IN NUMBER)
15851: RETURN NUMBER IS
15852: G_APP_NAME CONSTANT VARCHAR2(3) :=
15853: OKL_API.G_APP_NAME;
15854: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
15855: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
15856: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
15857: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) :=
15867: l_financed_amt := lease_quote_financed_amount;
15868:
15869: -- Call from AUTHORING
15870: ELSIF (p_contract_id IS NOT NULL OR
15871: p_contract_id <> Okl_Api.G_MISS_NUM) AND
15872: (p_contract_line_id IS NOT NULL OR
15873: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
15874: l_financed_amt := line_financed_amount(p_contract_id => p_contract_id,
15875: p_contract_line_id =>
15869: -- Call from AUTHORING
15870: ELSIF (p_contract_id IS NOT NULL OR
15871: p_contract_id <> Okl_Api.G_MISS_NUM) AND
15872: (p_contract_line_id IS NOT NULL OR
15873: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
15874: l_financed_amt := line_financed_amount(p_contract_id => p_contract_id,
15875: p_contract_line_id =>
15876: p_contract_line_id);
15877:
15875: p_contract_line_id =>
15876: p_contract_line_id);
15877:
15878: ELSE
15879: RAISE OKL_API.G_EXCEPTION_ERROR;
15880: END IF;
15881:
15882: RETURN l_financed_amt;
15883:
15881:
15882: RETURN l_financed_amt;
15883:
15884: EXCEPTION
15885: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15886: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
15887: p_msg_name => G_INVALID_CRITERIA);
15888: RETURN NULL;
15889: WHEN OTHERS THEN
15882: RETURN l_financed_amt;
15883:
15884: EXCEPTION
15885: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15886: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
15887: p_msg_name => G_INVALID_CRITERIA);
15888: RETURN NULL;
15889: WHEN OTHERS THEN
15890: OKL_API.SET_MESSAGE(
15886: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
15887: p_msg_name => G_INVALID_CRITERIA);
15888: RETURN NULL;
15889: WHEN OTHERS THEN
15890: OKL_API.SET_MESSAGE(
15891: p_app_name => G_APP_NAME,
15892: p_msg_name => G_UNEXPECTED_ERROR,
15893: p_token1 => G_SQLCODE_TOKEN,
15894: p_token1_value => SQLCODE,
15909: -- --------------------------------------------------------------------
15910: FUNCTION total_asset_addon_cost ( p_contract_id IN NUMBER
15911: ,p_contract_line_id IN NUMBER)
15912: RETURN NUMBER IS
15913: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
15914: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_FORMULA_PVT';
15915: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
15916: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
15917: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
15957:
15958: BEGIN
15959:
15960: IF (p_contract_id IS NOT NULL OR
15961: p_contract_id <> Okl_Api.G_MISS_NUM) AND
15962: (p_contract_line_id IS NOT NULL OR
15963: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
15964:
15965: OPEN c_addon_cost_csr ( p_contract_id => p_contract_id,
15959:
15960: IF (p_contract_id IS NOT NULL OR
15961: p_contract_id <> Okl_Api.G_MISS_NUM) AND
15962: (p_contract_line_id IS NOT NULL OR
15963: p_contract_line_id <> Okl_Api.G_MISS_NUM) THEN
15964:
15965: OPEN c_addon_cost_csr ( p_contract_id => p_contract_id,
15966: p_contract_line_id => p_contract_line_id);
15967:
15978: RETURN(l_addon_cost);
15979:
15980:
15981: EXCEPTION
15982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15983: IF c_addon_cost_csr%ISOPEN THEN
15984: CLOSE c_addon_cost_csr;
15985: END IF;
15986:
15983: IF c_addon_cost_csr%ISOPEN THEN
15984: CLOSE c_addon_cost_csr;
15985: END IF;
15986:
15987: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
15988: p_msg_name => G_INVALID_CRITERIA);
15989: RETURN NULL;
15990:
15991:
15993: --sechawla 18-nov-08 : close cursor
15994: IF c_addon_cost_csr%ISOPEN THEN
15995: CLOSE c_addon_cost_csr;
15996: END IF;
15997: OKL_API.SET_MESSAGE(
15998: p_app_name => G_APP_NAME,
15999: p_msg_name => G_UNEXPECTED_ERROR,
16000: p_token1 => G_SQLCODE_TOKEN,
16001: p_token1_value => SQLCODE,
16024: p_fin_asset_line_id IN NUMBER,
16025: p_accounting_method IN VARCHAR2)
16026: RETURN NUMBER IS
16027:
16028: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16029: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY';
16030: l_api_version CONSTANT NUMBER := 1.0;
16031: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
16032: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
16027:
16028: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16029: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY';
16030: l_api_version CONSTANT NUMBER := 1.0;
16031: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
16032: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
16033: lx_msg_data VARCHAR2(2000);
16034:
16035: x_subsidy_amount NUMBER;
16028: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16029: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY';
16030: l_api_version CONSTANT NUMBER := 1.0;
16031: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
16032: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
16033: lx_msg_data VARCHAR2(2000);
16034:
16035: x_subsidy_amount NUMBER;
16036:
16066:
16067: x_subsidy_amount := 0;
16068:
16069:
16070: IF(p_accounting_method IS NULL OR p_accounting_method = OKL_API.G_MISS_CHAR) THEN
16071: l_accounting_method := NULL;
16072: ELSE
16073: l_accounting_method := p_accounting_method;
16074: END IF;
16087:
16088: RETURN x_subsidy_amount;
16089:
16090: EXCEPTION
16091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16092: IF l_sub_csr%ISOPEN THEN
16093: CLOSE l_sub_csr;
16094: END IF;
16095: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
16091: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16092: IF l_sub_csr%ISOPEN THEN
16093: CLOSE l_sub_csr;
16094: END IF;
16095: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
16096: l_api_name,
16097: G_PKG_NAME,
16098: 'OKL_API.G_RET_STS_ERROR',
16099: lx_msg_count,
16094: END IF;
16095: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
16096: l_api_name,
16097: G_PKG_NAME,
16098: 'OKL_API.G_RET_STS_ERROR',
16099: lx_msg_count,
16100: lx_msg_data,
16101: '_PVT');
16102: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16098: 'OKL_API.G_RET_STS_ERROR',
16099: lx_msg_count,
16100: lx_msg_data,
16101: '_PVT');
16102: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16103: IF l_sub_csr%ISOPEN THEN
16104: CLOSE l_sub_csr;
16105: END IF;
16106: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16102: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16103: IF l_sub_csr%ISOPEN THEN
16104: CLOSE l_sub_csr;
16105: END IF;
16106: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16107: l_api_name,
16108: G_PKG_NAME,
16109: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16110: lx_msg_count,
16105: END IF;
16106: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16107: l_api_name,
16108: G_PKG_NAME,
16109: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16110: lx_msg_count,
16111: lx_msg_data,
16112: '_PVT');
16113: WHEN OTHERS THEN
16113: WHEN OTHERS THEN
16114: IF l_sub_csr%ISOPEN THEN
16115: CLOSE l_sub_csr;
16116: END IF;
16117: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16118: l_api_name,
16119: G_PKG_NAME,
16120: 'OTHERS',
16121: lx_msg_count,
16144: p_fin_asset_line_id IN NUMBER,
16145: p_accounting_method IN VARCHAR2)
16146: RETURN NUMBER IS
16147:
16148: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16149: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY_OVRD';
16150: l_api_version CONSTANT NUMBER := 1.0;
16151: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
16152: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
16147:
16148: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16149: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY_OVRD';
16150: l_api_version CONSTANT NUMBER := 1.0;
16151: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
16152: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
16153: lx_msg_data VARCHAR2(2000);
16154:
16155: x_subsidy_amount NUMBER;
16148: lx_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16149: l_api_name CONSTANT VARCHAR2(30) := 'GET_LINE_ASSET_SUBSIDY_OVRD';
16150: l_api_version CONSTANT NUMBER := 1.0;
16151: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
16152: lx_msg_count NUMBER := OKL_API.G_MISS_NUM;
16153: lx_msg_data VARCHAR2(2000);
16154:
16155: x_subsidy_amount NUMBER;
16156:
16185: l_asset_line_subs_ovrd_amn := 0;
16186:
16187: x_subsidy_amount := 0;
16188:
16189: IF(p_accounting_method IS NULL OR p_accounting_method = OKL_API.G_MISS_CHAR) THEN
16190: l_accounting_method := NULL;
16191: ELSE
16192: l_accounting_method := p_accounting_method;
16193: END IF;
16206:
16207: RETURN x_subsidy_amount;
16208:
16209: EXCEPTION
16210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16211: IF l_sub_csr%ISOPEN THEN
16212: CLOSE l_sub_csr;
16213: END IF;
16214: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
16210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16211: IF l_sub_csr%ISOPEN THEN
16212: CLOSE l_sub_csr;
16213: END IF;
16214: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
16215: l_api_name,
16216: G_PKG_NAME,
16217: 'OKL_API.G_RET_STS_ERROR',
16218: lx_msg_count,
16213: END IF;
16214: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
16215: l_api_name,
16216: G_PKG_NAME,
16217: 'OKL_API.G_RET_STS_ERROR',
16218: lx_msg_count,
16219: lx_msg_data,
16220: '_PVT');
16221: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16217: 'OKL_API.G_RET_STS_ERROR',
16218: lx_msg_count,
16219: lx_msg_data,
16220: '_PVT');
16221: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16222: IF l_sub_csr%ISOPEN THEN
16223: CLOSE l_sub_csr;
16224: END IF;
16225: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16221: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16222: IF l_sub_csr%ISOPEN THEN
16223: CLOSE l_sub_csr;
16224: END IF;
16225: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16226: l_api_name,
16227: G_PKG_NAME,
16228: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16229: lx_msg_count,
16224: END IF;
16225: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16226: l_api_name,
16227: G_PKG_NAME,
16228: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16229: lx_msg_count,
16230: lx_msg_data,
16231: '_PVT');
16232: WHEN OTHERS THEN
16232: WHEN OTHERS THEN
16233: IF l_sub_csr%ISOPEN THEN
16234: CLOSE l_sub_csr;
16235: END IF;
16236: lx_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16237: l_api_name,
16238: G_PKG_NAME,
16239: 'OTHERS',
16240: lx_msg_count,
16260: p_chr_id IN NUMBER,
16261: p_line_id IN NUMBER) RETURN NUMBER IS
16262:
16263: l_api_version CONSTANT NUMBER := 1;
16264: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
16265: x_msg_count NUMBER;
16266: x_msg_data VARCHAR2(256);
16267:
16268: l_Asset_Fin_fees_amt NUMBER := 0;
16316:
16317: BEGIN
16318:
16319: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL)) THEN
16320: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
16321: END IF;
16322:
16323:
16324: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16355: IF l_fee_csr%ISOPEN THEN
16356: CLOSE l_fee_csr;
16357: END IF;
16358:
16359: Okl_Api.SET_MESSAGE(
16360: p_app_name => G_APP_NAME,
16361: p_msg_name => G_UNEXPECTED_ERROR,
16362: p_token1 => G_SQLCODE_TOKEN,
16363: p_token1_value => SQLCODE,
16384: p_chr_id IN NUMBER,
16385: p_line_id IN NUMBER) RETURN NUMBER IS
16386:
16387: l_api_version CONSTANT NUMBER := 1;
16388: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
16389: x_msg_count NUMBER;
16390: x_msg_data VARCHAR2(256);
16391:
16392: l_Asset_Roll_fees_amt NUMBER := 0;
16440:
16441: BEGIN
16442:
16443: IF (( p_chr_id IS NULL ) OR (p_line_id IS NULL)) THEN
16444: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
16445: END IF;
16446:
16447:
16448: IF Okl_Execute_Formula_Pub.G_ADDITIONAL_PARAMETERS.COUNT > 0 THEN
16479: IF l_fee_csr%ISOPEN THEN
16480: CLOSE l_fee_csr;
16481: END IF;
16482:
16483: Okl_Api.SET_MESSAGE(
16484: p_app_name => G_APP_NAME,
16485: p_msg_name => G_UNEXPECTED_ERROR,
16486: p_token1 => G_SQLCODE_TOKEN,
16487: p_token1_value => SQLCODE,