[Home] [Help]
93: lx_currency_conversion_type okl_k_headers_full_v.currency_conversion_type%TYPE;
94: lx_currency_conversion_rate okl_k_headers_full_v.currency_conversion_rate%TYPE;
95: lx_currency_conversion_date okl_k_headers_full_v.currency_conversion_date%TYPE;
96: lx_converted_amount NUMBER;
97: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
98:
99: -- rmunjulu Sales_Tax_Enhancement
100: CURSOR get_try_id_csr (p_trx_name IN VARCHAR2) IS
101: SELECT try.id
170: p_qtev_rec => p_qtev_rec,
171: p_qlt_code => p_sub_tqlv_tbl(l_tbl_ind).qlt_code,
172: p_amount => p_sub_tqlv_tbl(l_tbl_ind).amount,
173: p_kle_id => p_sub_tqlv_tbl(l_tbl_ind).kle_id,
174: p_success_yn => OKL_API.G_RET_STS_SUCCESS,
175: p_sty_id => p_sub_tqlv_tbl(l_tbl_ind).sty_id,
176: p_formula_name => p_formula_name,
177: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
178: p_defaulted_yn => p_defaulted_yn,
199: -- ***********************************
200: -- Check success of operand evaluation
201: -- ***********************************
202:
203: IF p_success_yn <> OKL_API.G_RET_STS_SUCCESS THEN
204:
205: -- Unable to complete process due to missing
206: -- information (OPERAND operand in FORMULA formula)
207: okl_am_util_pvt.set_message (
231:
232: l_qlt_exists_yn := okl_util.check_lookup_code
233: (G_QUOTE_LINE_LOOKUP, p_qlt_code);
234:
235: IF l_qlt_exists_yn <> OKL_API.G_RET_STS_SUCCESS THEN
236:
237: -- Quote line type does not exist for
238: -- OPERAND operand in FORMULA formula
239: okl_am_util_pvt.set_message (
243: ,p_token1_value => p_formula_name
244: ,p_token2 => 'OPERAND'
245: ,p_token2_value => p_qlt_code);
246:
247: IF p_success_yn <> OKL_API.G_RET_STS_SUCCESS THEN
248: l_append_yn := FALSE;
249: ELSE
250: l_qlt_code := G_MISC_QLT;
251: l_defaulted_yn := 'Y';
346: 'After OKL_AM_CALCULATE_QUOTE_PVT.append_quote_line calls okl_accounting_util.convert_to_functional_currency'||l_return_status);
347: END IF;
348:
349:
350: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
351: l_tqlv_rec.amount := lx_converted_amount ;
352: ELSE
353: l_tqlv_rec.amount := l_amount;
354: END IF;
389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
390: 'After OKL_AM_CALCULATE_QUOTE_PVT.append_quote_line calls okl_accounting_util.convert_to_functional_currency'||l_return_status);
391: END IF;
392:
393: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
394: l_tqlv_rec.currency_code := l_contract_curr_code ;
395: l_tqlv_rec.currency_conversion_type := lx_currency_conversion_type ;
396: l_tqlv_rec.currency_conversion_rate := lx_currency_conversion_rate ;
397: l_tqlv_rec.currency_conversion_date := lx_currency_conversion_date ;
487: || sqlcode || ' , SQLERRM : ' || sqlerrm);
488: END IF;
489:
490: -- store SQL error message on message stack for caller
491: OKL_API.SET_MESSAGE (
492: p_app_name => G_APP_NAME
493: ,p_msg_name => G_UNEXPECTED_ERROR
494: ,p_token1 => G_SQLCODE_TOKEN
495: ,p_token1_value => sqlcode
527: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
528: x_return_status OUT NOCOPY VARCHAR2) IS
529:
530: l_quote_line_type CONSTANT VARCHAR2(30) := 'AMCFIA';
531: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
532: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
533: l_line_value NUMBER := 0;
534: l_line_total NUMBER;
535: l_asset_tbl_index NUMBER;
528: x_return_status OUT NOCOPY VARCHAR2) IS
529:
530: l_quote_line_type CONSTANT VARCHAR2(30) := 'AMCFIA';
531: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
532: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
533: l_line_value NUMBER := 0;
534: l_line_total NUMBER;
535: l_asset_tbl_index NUMBER;
536:
651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
652: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_calc_quote_stream_pvt.calc_stream_type_operand'||l_return_status);
653: END IF;
654:
655: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
656: l_asset_value := okl_am_util_pvt.get_ak_attribute(p_code => 'OKL_UNBILLED_RECIVABLES');
657: -- Unable to calculate ASSET_VALUE
658: OKL_API.set_message( p_app_name => 'OKL',
659: p_msg_name => 'OKL_AM_FORMULA_ERROR',
654:
655: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
656: l_asset_value := okl_am_util_pvt.get_ak_attribute(p_code => 'OKL_UNBILLED_RECIVABLES');
657: -- Unable to calculate ASSET_VALUE
658: OKL_API.set_message( p_app_name => 'OKL',
659: p_msg_name => 'OKL_AM_FORMULA_ERROR',
660: p_token1 => 'ASSET_VALUE',
661: p_token1_value => l_asset_value);
662: l_total_line_unbilled_rec := 0; -- SECHAWLA 21-APR-03 Bug 2925120: Changed the variable name
714: p_net_investment => l_net_investment, -- SECHAWLA 14-FEB-03 2749690 :Added another parameter
715: p_split_asset_number => p_asset_tbl(l_asset_tbl_index).p_split_asset_number, -- RMUNJULU 2757312 Added to store p_split_asset_number
716: p_unbilled_rec => l_total_line_unbilled_rec, -- SECHAWLA 14-FEB-03 2749690 :Added another parameter
717: p_residual_value => l_residual_value, -- SECHAWLA 14-FEB-03 2749690 :Added another parameter
718: p_success_yn => OKL_API.G_RET_STS_SUCCESS,
719: p_sty_id => NULL,
720: p_formula_name => NULL,
721: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
722: p_defaulted_yn => 'N',
761: CLOSE l_okllines_csr;
762: END IF;
763:
764: -- store SQL error message on message stack for caller
765: OKL_API.SET_MESSAGE (
766: p_app_name => G_APP_NAME
767: ,p_msg_name => G_UNEXPECTED_ERROR
768: ,p_token1 => G_SQLCODE_TOKEN
769: ,p_token1_value => sqlcode
770: ,p_token2 => G_SQLERRM_TOKEN
771: ,p_token2_value => sqlerrm);
772:
773: -- notify caller of an UNEXPECTED error
774: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
775:
776: END contract_lines;
777:
778:
799:
800: TYPE amount_tbl_type IS TABLE OF NUMBER
801: INDEX BY BINARY_INTEGER;
802:
803: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
804: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
805: l_tax_amount NUMBER;
806: l_asset_tbl_index NUMBER;
807: l_dummy_total NUMBER;
800: TYPE amount_tbl_type IS TABLE OF NUMBER
801: INDEX BY BINARY_INTEGER;
802:
803: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
804: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
805: l_tax_amount NUMBER;
806: l_asset_tbl_index NUMBER;
807: l_dummy_total NUMBER;
808:
966:
967: LOOP
968:
969: l_tax_amount := 0;
970: l_return_status := OKL_API.G_RET_STS_SUCCESS;
971:
972: IF NVL (l_taxable_amt(l_seq), 0) <> 0 THEN
973:
974: l_params(1).name := G_TAX_AMT_PARAM;
995: x_return_status => l_return_status);
996: ELSE
997: IF G_ORG_ID_MISSING_MSG THEN
998: -- ORG_ID is not defined
999: OKL_API.SET_MESSAGE (
1000: p_app_name => 'FND'
1001: ,p_msg_name => 'FND-ORG_ID PROFILE CANNOT READ'
1002: ,p_token1 => 'OPTION'
1003: ,p_token1_value => 'ORG_ID');
1002: ,p_token1 => 'OPTION'
1003: ,p_token1_value => 'ORG_ID');
1004: G_ORG_ID_MISSING_MSG := FALSE;
1005: END IF;
1006: l_return_status := OKL_API.G_RET_STS_ERROR;
1007: END IF;
1008:
1009: END IF;
1010:
1040: -- QUESTION :: WHAT ABT BILL_ADJST AND AMPRTX QUOTE LINES
1041: -- TAX API WILL CALCULATE TAX AND INSERT INTO TAX ENTITY THE TAX LINES
1042: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
1043: p_api_version => l_api_version,
1044: p_init_msg_list => OKL_API.G_FALSE,
1045: x_return_status => l_return_status,
1046: x_msg_count => l_msg_count,
1047: x_msg_data => l_msg_data,
1048: p_source_trx_id => p_qtev_rec.id, -- TRX_ID is QUOTE_ID
1062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1063: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1064: END IF;
1065: -- store SQL error message on message stack for caller
1066: OKL_API.SET_MESSAGE (
1067: p_app_name => G_APP_NAME
1068: ,p_msg_name => G_UNEXPECTED_ERROR
1069: ,p_token1 => G_SQLCODE_TOKEN
1070: ,p_token1_value => sqlcode
1071: ,p_token2 => G_SQLERRM_TOKEN
1072: ,p_token2_value => sqlerrm);
1073:
1074: -- notify caller of an UNEXPECTED error
1075: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1076:
1077: END estimate_tax;
1078:
1079: PROCEDURE adjust_prorated_amounts (
1127: l_ambpoc_diff NUMBER :=0;
1128:
1129: li number := G_MISS_NUM;
1130: l_ael_apply_diff OKL_SYSTEM_PARAMS.PART_TRMNT_APPLY_ROUND_DIFF%type;
1131: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1132: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1133:
1134: BEGIN
1135:
1128:
1129: li number := G_MISS_NUM;
1130: l_ael_apply_diff OKL_SYSTEM_PARAMS.PART_TRMNT_APPLY_ROUND_DIFF%type;
1131: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1132: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1133:
1134: BEGIN
1135:
1136: l_tqlv_tbl := px_tqlv_tbl;
1377: EXCEPTION
1378:
1379: WHEN OTHERS THEN
1380: -- store SQL error message on message stack for caller
1381: OKL_API.SET_MESSAGE (
1382: p_app_name => G_APP_NAME
1383: ,p_msg_name => G_UNEXPECTED_ERROR
1384: ,p_token1 => G_SQLCODE_TOKEN
1385: ,p_token1_value => sqlcode
1386: ,p_token2 => G_SQLERRM_TOKEN
1387: ,p_token2_value => sqlerrm);
1388:
1389: -- notify caller of an UNEXPECTED error
1390: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1391:
1392: END adjust_prorated_amounts;
1393:
1394: -- Start of comments
1417: px_line_sub_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
1418: x_cle_amt OUT NOCOPY NUMBER,
1419: x_return_status OUT NOCOPY VARCHAR2) IS
1420:
1421: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1422: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1423: l_formula_name okl_formulae_v.name%TYPE;
1424: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
1425: l_proration_fraction NUMBER := 0;
1418: x_cle_amt OUT NOCOPY NUMBER,
1419: x_return_status OUT NOCOPY VARCHAR2) IS
1420:
1421: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1422: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1423: l_formula_name okl_formulae_v.name%TYPE;
1424: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
1425: l_proration_fraction NUMBER := 0;
1426: l_tbl_ind NUMBER;
1520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1521: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1522: END IF;
1523:
1524: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1525: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1526: l_overall_status := l_return_status;
1527: END IF;
1528: END IF;
1521: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1522: END IF;
1523:
1524: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1525: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1526: l_overall_status := l_return_status;
1527: END IF;
1528: END IF;
1529:
1543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1544: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1545: END IF;
1546:
1547: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1548: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1549: l_overall_status := l_return_status;
1550: END IF;
1551: END IF;
1544: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1545: END IF;
1546:
1547: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1548: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1549: l_overall_status := l_return_status;
1550: END IF;
1551: END IF;
1552:
1554:
1555: --SECHAWLA 20-FEB-03 Bug # 2757368 : end modifications
1556: END IF;
1557:
1558: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
1559: AND l_proration_fraction BETWEEN 0 AND 1 THEN
1560: x_cle_amt := p_chr_amt * l_proration_fraction;
1561: ELSE
1562:
1620: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1621: END IF;
1622:
1623: -- store SQL error message on message stack for caller
1624: OKL_API.SET_MESSAGE (
1625: p_app_name => G_APP_NAME
1626: ,p_msg_name => G_UNEXPECTED_ERROR
1627: ,p_token1 => G_SQLCODE_TOKEN
1628: ,p_token1_value => sqlcode
1629: ,p_token2 => G_SQLERRM_TOKEN
1630: ,p_token2_value => sqlerrm);
1631:
1632: -- notify caller of an UNEXPECTED error
1633: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1634:
1635: END prorate_operand;
1636:
1637:
1654: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
1655: p_default_tql IN qlt_tbl_type,
1656: x_return_status OUT NOCOPY VARCHAR2) IS
1657:
1658: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1659: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1660: l_lines_created NUMBER := 0;
1661: l_default_amount NUMBER := 0;
1662: l_asset_cnt NUMBER;
1655: p_default_tql IN qlt_tbl_type,
1656: x_return_status OUT NOCOPY VARCHAR2) IS
1657:
1658: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1659: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1660: l_lines_created NUMBER := 0;
1661: l_default_amount NUMBER := 0;
1662: l_asset_cnt NUMBER;
1663: l_default_cnt NUMBER;
1691: p_qtev_rec => p_qtev_rec,
1692: p_qlt_code => p_default_tql (l_default_cnt),
1693: p_amount => l_default_amount,
1694: p_kle_id => p_cle_id,
1695: p_success_yn => OKL_API.G_RET_STS_SUCCESS,
1696: p_sty_id => NULL,
1697: p_formula_name => NULL,
1698: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
1699: p_defaulted_yn => 'Y',
1731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1732: 'after call to create_default_quote_lines :'||l_return_status);
1733: END IF;
1734:
1735: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1736: IF l_overall_status <>
1737: OKL_API.G_RET_STS_UNEXP_ERROR THEN
1738: l_overall_status := l_return_status;
1739: END IF;
1733: END IF;
1734:
1735: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1736: IF l_overall_status <>
1737: OKL_API.G_RET_STS_UNEXP_ERROR THEN
1738: l_overall_status := l_return_status;
1739: END IF;
1740: END IF;
1741:
1761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1762: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1763: END IF;
1764: -- store SQL error message on message stack for caller
1765: OKL_API.SET_MESSAGE (
1766: p_app_name => G_APP_NAME
1767: ,p_msg_name => G_UNEXPECTED_ERROR
1768: ,p_token1 => G_SQLCODE_TOKEN
1769: ,p_token1_value => sqlcode
1770: ,p_token2 => G_SQLERRM_TOKEN
1771: ,p_token2_value => sqlerrm);
1772:
1773: -- notify caller of an UNEXPECTED error
1774: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1775:
1776: END create_default_quote_lines;
1777:
1778:
1789: p_qtev_rec IN qtev_rec_type,
1790: p_qlt_code IN VARCHAR2,
1791: x_return_status OUT NOCOPY VARCHAR2) IS
1792:
1793: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1794: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1795:
1796: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_qlt_conditions';
1797: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1790: p_qlt_code IN VARCHAR2,
1791: x_return_status OUT NOCOPY VARCHAR2) IS
1792:
1793: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1794: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1795:
1796: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_qlt_conditions';
1797: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1798: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1826: ,p_token1_value => p_qtev_rec.qtp_code
1827: ,p_token2 => 'QLT_CODE'
1828: ,p_token2_value => p_qlt_code);
1829:
1830: l_return_status := OKL_API.G_RET_STS_ERROR;
1831:
1832: END IF;
1833:
1834: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1830: l_return_status := OKL_API.G_RET_STS_ERROR;
1831:
1832: END IF;
1833:
1834: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1835: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1836: l_overall_status := l_return_status;
1837: END IF;
1838: END IF;
1831:
1832: END IF;
1833:
1834: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1835: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1836: l_overall_status := l_return_status;
1837: END IF;
1838: END IF;
1839:
1838: END IF;
1839:
1840: IF p_qlt_code IN (G_TAX_QLT, 'AMBPOC') THEN
1841: -- No message needed
1842: l_return_status := OKL_API.G_RET_STS_ERROR;
1843: END IF;
1844:
1845: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1846: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1841: -- No message needed
1842: l_return_status := OKL_API.G_RET_STS_ERROR;
1843: END IF;
1844:
1845: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1846: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1847: l_overall_status := l_return_status;
1848: END IF;
1849: END IF;
1842: l_return_status := OKL_API.G_RET_STS_ERROR;
1843: END IF;
1844:
1845: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1846: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1847: l_overall_status := l_return_status;
1848: END IF;
1849: END IF;
1850:
1863: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1864: END IF;
1865:
1866: -- store SQL error message on message stack for caller
1867: OKL_API.SET_MESSAGE (
1868: p_app_name => G_APP_NAME
1869: ,p_msg_name => G_UNEXPECTED_ERROR
1870: ,p_token1 => G_SQLCODE_TOKEN
1871: ,p_token1_value => sqlcode
1873: ,p_token2_value => sqlerrm);
1874:
1875:
1876: -- notify caller of an UNEXPECTED error
1877: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1878:
1879: END validate_qlt_conditions;
1880:
1881:
1900:
1901:
1902:
1903: l_rulv_rec rulv_rec_type;
1904: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1905: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1906: l_line_level_yn BOOLEAN := FALSE;
1907: l_asset_cnt NUMBER;
1908: l_rule_chr_id NUMBER;
1901:
1902:
1903: l_rulv_rec rulv_rec_type;
1904: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1905: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1906: l_line_level_yn BOOLEAN := FALSE;
1907: l_asset_cnt NUMBER;
1908: l_rule_chr_id NUMBER;
1909: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_rule_level';
1938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1939: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
1940: END IF;
1941:
1942: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1943: l_line_level_yn := TRUE;
1944: END IF;
1945:
1946: EXIT WHEN (l_asset_cnt = p_asset_tbl.LAST
1958: ,p_msg_name => 'OKL_AM_WRONG_OPERAND_LEVEL'
1959: ,p_token1 => 'RULE'
1960: ,p_token1_value => p_operand);
1961:
1962: l_return_status := OKL_API.G_RET_STS_ERROR;
1963:
1964: ELSE
1965: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1966: END IF;
1961:
1962: l_return_status := OKL_API.G_RET_STS_ERROR;
1963:
1964: ELSE
1965: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1966: END IF;
1967:
1968: END IF;
1969:
1966: END IF;
1967:
1968: END IF;
1969:
1970: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1971: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1972: l_overall_status := l_return_status;
1973: END IF;
1974: END IF;
1967:
1968: END IF;
1969:
1970: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1971: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1972: l_overall_status := l_return_status;
1973: END IF;
1974: END IF;
1975:
1988: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1989: END IF;
1990:
1991: -- store SQL error message on message stack for caller
1992: OKL_API.SET_MESSAGE (
1993: p_app_name => G_APP_NAME
1994: ,p_msg_name => G_UNEXPECTED_ERROR
1995: ,p_token1 => G_SQLCODE_TOKEN
1996: ,p_token1_value => sqlcode
1998: ,p_token2_value => sqlerrm);
1999:
2000:
2001: -- notify caller of an UNEXPECTED error
2002: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2003:
2004: END validate_rule_level;
2005:
2006:
2034: px_sub_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
2035: x_rule_value OUT NOCOPY NUMBER,
2036: x_return_status OUT NOCOPY VARCHAR2) IS
2037:
2038: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2039: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2040: l_rule_value NUMBER;
2041:
2042: --SECHAWLA 26-FEB-03 Bug # 2819559 : New declarations
2035: x_rule_value OUT NOCOPY NUMBER,
2036: x_return_status OUT NOCOPY VARCHAR2) IS
2037:
2038: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2039: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2040: l_rule_value NUMBER;
2041:
2042: --SECHAWLA 26-FEB-03 Bug # 2819559 : New declarations
2043: l_rule_chr_id NUMBER;
2100: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2101: 'after call to okl_accounting_util.convert_to_contract_currency:'||l_return_status);
2102: END IF;
2103:
2104: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2105: l_rule_value := lx_converted_amount ;
2106: END IF;
2107: END IF;
2108: END IF;
2151: END IF;
2152:
2153: END IF;
2154:
2155: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2156: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2157: THEN
2158: l_overall_status := l_return_status;
2159: END IF;
2152:
2153: END IF;
2154:
2155: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2156: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2157: THEN
2158: l_overall_status := l_return_status;
2159: END IF;
2160: END IF;
2215: ,p_token1_value => p_rgd_code
2216: ,p_token2 => 'RULE'
2217: ,p_token2_value => p_operand);
2218:
2219: l_overall_status := OKL_API.G_RET_STS_ERROR;
2220:
2221: END IF;
2222:
2223: x_rule_value := l_rule_value;
2235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2236: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2237: END IF;
2238: -- store SQL error message on message stack for caller
2239: OKL_API.SET_MESSAGE (
2240: p_app_name => G_APP_NAME
2241: ,p_msg_name => G_UNEXPECTED_ERROR
2242: ,p_token1 => G_SQLCODE_TOKEN
2243: ,p_token1_value => sqlcode
2244: ,p_token2 => G_SQLERRM_TOKEN
2245: ,p_token2_value => sqlerrm);
2246:
2247: -- notify caller of an UNEXPECTED error
2248: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2249:
2250: END get_rule_value;
2251:
2252:
2273: x_min_value OUT NOCOPY NUMBER, -- PAGARG 4102565 Added
2274: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2275:
2276: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2277: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2278: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2279: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2280: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2281: l_max_value NUMBER;
2274: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2275:
2276: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2277: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2278: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2279: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2280: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2281: l_max_value NUMBER;
2282: l_min_value NUMBER;
2275:
2276: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2277: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2278: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2279: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2280: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2281: l_max_value NUMBER;
2282: l_min_value NUMBER;
2283: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_min_max_rule_value';
2276: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2277: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2278: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2279: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2280: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2281: l_max_value NUMBER;
2282: l_min_value NUMBER;
2283: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_min_max_rule_value';
2284: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2312: 'after call to get_rule_value :'||l_max_status);
2313: END IF;
2314:
2315: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2316: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2317: THEN
2318: l_overall_status := l_max_status;
2319: END IF;
2312: 'after call to get_rule_value :'||l_max_status);
2313: END IF;
2314:
2315: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2316: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2317: THEN
2318: l_overall_status := l_max_status;
2319: END IF;
2320: END IF;
2318: l_overall_status := l_max_status;
2319: END IF;
2320: END IF;
2321:
2322: IF l_max_status = OKL_API.G_RET_STS_SUCCESS
2323: AND l_max_value IS NOT NULL THEN
2324: px_rule_value := least (px_rule_value, l_max_value);
2325: END IF;
2326:
2346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2347: 'after call to get_rule_value :'||l_max_status);
2348: END IF;
2349:
2350: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2351: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2352: THEN
2353: l_overall_status := l_max_status;
2354: END IF;
2347: 'after call to get_rule_value :'||l_max_status);
2348: END IF;
2349:
2350: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2351: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2352: THEN
2353: l_overall_status := l_max_status;
2354: END IF;
2355: END IF;
2374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2375: 'after call to get_rule_value :'||l_min_status);
2376: END IF;
2377:
2378: IF l_min_status <> OKL_API.G_RET_STS_SUCCESS THEN
2379: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2380: THEN
2381: l_overall_status := l_min_status;
2382: END IF;
2375: 'after call to get_rule_value :'||l_min_status);
2376: END IF;
2377:
2378: IF l_min_status <> OKL_API.G_RET_STS_SUCCESS THEN
2379: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2380: THEN
2381: l_overall_status := l_min_status;
2382: END IF;
2383: END IF;
2381: l_overall_status := l_min_status;
2382: END IF;
2383: END IF;
2384:
2385: IF l_max_status = OKL_API.G_RET_STS_SUCCESS
2386: AND l_max_value IS NOT NULL
2387: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2388: AND l_min_value IS NOT NULL
2389: AND l_max_value < l_min_value THEN
2383: END IF;
2384:
2385: IF l_max_status = OKL_API.G_RET_STS_SUCCESS
2386: AND l_max_value IS NOT NULL
2387: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2388: AND l_min_value IS NOT NULL
2389: AND l_max_value < l_min_value THEN
2390:
2391: -- Invalid combination of values
2401: ,p_token3_value => p_rgd_code
2402: ,p_token4 => 'RULE'
2403: ,p_token4_value => p_operand);
2404:
2405: l_overall_status := OKL_API.G_RET_STS_ERROR;
2406:
2407: END IF;
2408:
2409: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2405: l_overall_status := OKL_API.G_RET_STS_ERROR;
2406:
2407: END IF;
2408:
2409: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2410: AND l_max_status = OKL_API.G_RET_STS_SUCCESS
2411: AND l_max_value IS NOT NULL THEN
2412: px_rule_value := least (px_rule_value, l_max_value);
2413: END IF;
2406:
2407: END IF;
2408:
2409: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2410: AND l_max_status = OKL_API.G_RET_STS_SUCCESS
2411: AND l_max_value IS NOT NULL THEN
2412: px_rule_value := least (px_rule_value, l_max_value);
2413: END IF;
2414:
2411: AND l_max_value IS NOT NULL THEN
2412: px_rule_value := least (px_rule_value, l_max_value);
2413: END IF;
2414:
2415: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2416: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2417: AND l_min_value IS NOT NULL THEN
2418: px_rule_value := greatest (px_rule_value, l_min_value);
2419: END IF;
2412: px_rule_value := least (px_rule_value, l_max_value);
2413: END IF;
2414:
2415: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2416: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2417: AND l_min_value IS NOT NULL THEN
2418: px_rule_value := greatest (px_rule_value, l_min_value);
2419: END IF;
2420:
2437: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2438: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2439: END IF;
2440: -- store SQL error message on message stack for caller
2441: OKL_API.SET_MESSAGE (
2442: p_app_name => G_APP_NAME
2443: ,p_msg_name => G_UNEXPECTED_ERROR
2444: ,p_token1 => G_SQLCODE_TOKEN
2445: ,p_token1_value => sqlcode
2446: ,p_token2 => G_SQLERRM_TOKEN
2447: ,p_token2_value => sqlerrm);
2448:
2449: -- notify caller of an UNEXPECTED error
2450: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2451:
2452: END get_min_max_rule_value;
2453:
2454:
2478: x_min_value OUT NOCOPY NUMBER, -- PAGARG 4102565 Added
2479: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2480:
2481: l_rulv_rec rulv_rec_type;
2482: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2483: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2484: l_operand_value NUMBER;
2485: l_rule_chr_id NUMBER;
2486: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_operand_value';
2479: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2480:
2481: l_rulv_rec rulv_rec_type;
2482: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2483: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2484: l_operand_value NUMBER;
2485: l_rule_chr_id NUMBER;
2486: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_operand_value';
2487: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2544: 'after call to okl_am_util_pvt.get_rule_record'||l_return_status);
2545: END IF;
2546:
2547: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2548:
2549: -- ********************************************************
2550: -- Evalute rule record: not_applicable, constant or formula
2551: -- The field INFO1 indicated if the rule is either
2581: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2582: 'after call to get_rule_value'||l_return_status);
2583: END IF;
2584:
2585: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2586: AND p_operand IN ('AMCTPE','AMBPOC')
2587: AND l_operand_value IS NOT NULL THEN
2588:
2589: IF (is_debug_statement_on) THEN
2610: END IF;
2611:
2612: END IF;
2613:
2614: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2615: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2616: l_overall_status := l_return_status;
2617: END IF;
2618: END IF;
2611:
2612: END IF;
2613:
2614: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2615: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2616: l_overall_status := l_return_status;
2617: END IF;
2618: END IF;
2619:
2641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2642: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2643: END IF;
2644: -- store SQL error message on message stack for caller
2645: OKL_API.SET_MESSAGE (
2646: p_app_name => G_APP_NAME
2647: ,p_msg_name => G_UNEXPECTED_ERROR
2648: ,p_token1 => G_SQLCODE_TOKEN
2649: ,p_token1_value => sqlcode
2650: ,p_token2 => G_SQLERRM_TOKEN
2651: ,p_token2_value => sqlerrm);
2652:
2653: -- notify caller of an UNEXPECTED error
2654: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2655:
2656: END get_operand_value;
2657:
2658:
2673: px_operand IN OUT NOCOPY VARCHAR2,
2674: x_operand_value OUT NOCOPY NUMBER,
2675: x_return_status OUT NOCOPY VARCHAR2) IS
2676:
2677: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2678: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2679: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
2680: l_operand_value NUMBER;
2681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_non_rule_operand_value';
2674: x_operand_value OUT NOCOPY NUMBER,
2675: x_return_status OUT NOCOPY VARCHAR2) IS
2676:
2677: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2678: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2679: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
2680: l_operand_value NUMBER;
2681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_non_rule_operand_value';
2682: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2712: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2713: END IF;
2714:
2715: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2716: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2717: l_overall_status := l_return_status;
2718: END IF;
2719: END IF;
2712: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2713: END IF;
2714:
2715: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2716: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2717: l_overall_status := l_return_status;
2718: END IF;
2719: END IF;
2720:
2728: l_operand_value := to_number (px_operand);
2729: px_operand := G_MISC_QLT;
2730: EXCEPTION
2731: WHEN OTHERS THEN
2732: l_overall_status := OKL_API.G_RET_STS_ERROR;
2733: END;
2734:
2735: END IF;
2736:
2750: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2751: END IF;
2752:
2753: -- store SQL error message on message stack for caller
2754: OKL_API.SET_MESSAGE (
2755: p_app_name => G_APP_NAME
2756: ,p_msg_name => G_UNEXPECTED_ERROR
2757: ,p_token1 => G_SQLCODE_TOKEN
2758: ,p_token1_value => sqlcode
2759: ,p_token2 => G_SQLERRM_TOKEN
2760: ,p_token2_value => sqlerrm);
2761:
2762: -- notify caller of an UNEXPECTED error
2763: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2764:
2765: END get_non_rule_operand_value;
2766:
2767:
2796: x_return_status OUT NOCOPY VARCHAR2) IS
2797:
2798: l_rulv_rec rulv_rec_type;
2799: l_tqlv_tbl tqlv_tbl_type;
2800: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2801: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2802: l_operand_total NUMBER;
2803: l_line_total NUMBER;
2804: l_rgd_code VARCHAR2(30);
2797:
2798: l_rulv_rec rulv_rec_type;
2799: l_tqlv_tbl tqlv_tbl_type;
2800: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2801: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2802: l_operand_total NUMBER;
2803: l_line_total NUMBER;
2804: l_rgd_code VARCHAR2(30);
2805: l_calculate_yn BOOLEAN;
2862: l_rgd_code := p_head_rgd_code;
2863:
2864: END IF;
2865:
2866: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2867: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2868: l_overall_status := l_return_status;
2869: END IF;
2870: END IF;
2863:
2864: END IF;
2865:
2866: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2867: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2868: l_overall_status := l_return_status;
2869: END IF;
2870: END IF;
2871:
2876: IF p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
2877: l_calculate_yn := TRUE;
2878:
2879: ELSIF p_operand IN ('AMYOUB', 'AMYSAM', 'AMYFEE')
2880: AND l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
2881:
2882: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2883:
2884: okl_am_util_pvt.get_rule_record (
2894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2895: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2896: END IF;
2897:
2898: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS)
2899: OR ( l_return_status = OKL_API.G_RET_STS_SUCCESS
2900: AND l_rulv_rec.RULE_INFORMATION1 = 'Y')
2901: THEN
2902: /*
2895: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2896: END IF;
2897:
2898: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS)
2899: OR ( l_return_status = OKL_API.G_RET_STS_SUCCESS
2900: AND l_rulv_rec.RULE_INFORMATION1 = 'Y')
2901: THEN
2902: /*
2903: IF p_qtev_rec.partial_yn = 'Y' THEN
2968: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2969: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2970: END IF;
2971:
2972: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2973: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2974: l_overall_status := l_return_status;
2975: END IF;
2976: END IF;
2969: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2970: END IF;
2971:
2972: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2973: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2974: l_overall_status := l_return_status;
2975: END IF;
2976: END IF;
2977:
2996: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2997: END IF;
2998:
2999:
3000: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3001: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3002: l_overall_status := l_return_status;
3003: END IF;
3004: END IF;
2997: END IF;
2998:
2999:
3000: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3001: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
3002: l_overall_status := l_return_status;
3003: END IF;
3004: END IF;
3005:
3028: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3029: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
3030: END IF;
3031:
3032: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3033: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
3034: THEN
3035: l_overall_status := l_return_status;
3036: END IF;
3029: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
3030: END IF;
3031:
3032: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3033: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
3034: THEN
3035: l_overall_status := l_return_status;
3036: END IF;
3037: END IF;
3046: -- ************
3047: -- Save results
3048: -- ************
3049:
3050: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
3051:
3052:
3053: IF l_tqlv_tbl.COUNT > 0 THEN
3054:
3148: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3149: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3150: END IF;
3151: -- store SQL error message on message stack for caller
3152: OKL_API.SET_MESSAGE (
3153: p_app_name => G_APP_NAME
3154: ,p_msg_name => G_UNEXPECTED_ERROR
3155: ,p_token1 => G_SQLCODE_TOKEN
3156: ,p_token1_value => sqlcode
3157: ,p_token2 => G_SQLERRM_TOKEN
3158: ,p_token2_value => sqlerrm);
3159:
3160: -- notify caller of an UNEXPECTED error
3161: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3162:
3163: END process_stream_type_operand;
3164:
3165:
3214: l_sub_line_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3215: l_sub_head_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3216: l_sub_head2_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3217:
3218: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3219: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3220: l_header_status VARCHAR2(1);
3221: l_operand VARCHAR2(30);
3222: l_operand_total NUMBER;
3215: l_sub_head_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3216: l_sub_head2_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3217:
3218: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3219: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3220: l_header_status VARCHAR2(1);
3221: l_operand VARCHAR2(30);
3222: l_operand_total NUMBER;
3223: l_operand_value NUMBER;
3305: IF (is_debug_statement_on) THEN
3306: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3307: 'After validate_qlt_conditions call Value of l_return_status'|| l_return_status);
3308: END IF;
3309: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3310: RAISE l_invalid_operand;
3311: END IF;
3312:
3313: END IF;
3345:
3346: -- If the corresponding rule is not checked (<> 'Y') then set the global
3347: -- variable (G_PERFORM_CONT_FEE_CALC) to False which will ensure that
3348: -- processing downstream will calculate financed fee's
3349: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3350: AND l_rulv_rec.RULE_INFORMATION1 <> 'Y'
3351: THEN
3352: G_PERFORM_CONT_FEE_CALC := FALSE;
3353: END IF;
3533: IF (is_debug_statement_on) THEN
3534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3535: 'After get_operand_value call 2 Value of l_return_status'|| l_return_status);
3536: END IF;
3537: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3538: THEN
3539: append_quote_line (
3540: p_qtev_rec => p_qtev_rec,
3541: p_qlt_code => p_operand,
3585: x_return_status => l_return_status,
3586: p_message_yn => FALSE);
3587:
3588: --Check for rule_information4 to be LINE_CLCULATION or PRORATE
3589: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3590: AND l_rulv_rec.RULE_INFORMATION4 IN ('LINE_CALCULATION', 'PRORATE')
3591: THEN
3592: --Obtain the line level rule information for applicability of Property Tax and Bill Tax
3593: okl_am_util_pvt.get_rule_record(
3598: x_rulv_rec => eptx_rulv_rec,
3599: x_return_status => l_return_status,
3600: p_message_yn => FALSE);
3601:
3602: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3603: AND eptx_rulv_rec.RULE_INFORMATION1 = 'Y' -- Property Tax Applicable
3604: THEN
3605: -- Obtain the operand value
3606:
3631: IF (is_debug_statement_on) THEN
3632: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3633: 'After get_rule_value call 3 Value of l_return_status'|| l_return_status);
3634: END IF;
3635: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3636: THEN
3637: append_quote_line (
3638: p_qtev_rec => p_qtev_rec,
3639: p_qlt_code => p_operand,
3689: IF (is_debug_statement_on) THEN
3690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3691: 'After get_operand_value call 4 Value of l_return_status'|| l_return_status);
3692: END IF;
3693: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3694:
3695: get_non_rule_operand_value (
3696: p_chr_id => l_chr_id,
3697: p_cle_id => p_cle_id,
3782: IF (is_debug_statement_on) THEN
3783: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3784: 'After get_operand_value call 6 Value of l_return_status'|| l_return_status);
3785: END IF;
3786: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3787: -- SECHAWLA - Bug 2680542 : Changed reference l_reject_asset_tbl (l_asset_cnt) to l_reject_asset_tbl (l_asset_cnt).p_asset_id
3788: -- Changed reference p_asset_tbl (l_asset_cnt) to p_asset_tbl (l_asset_cnt).p_asset_id
3789: l_reject_asset_tbl (l_asset_cnt).p_asset_id := p_asset_tbl (l_asset_cnt).p_asset_id;
3790: --SECHAWLA 20-FEB-03 Bug # 2757368 : added code to populate asset qty and quote qty in l_reject_asset_tbl
3837: x_rulv_rec => l_head_rulv_rec,
3838: x_return_status => l_return_status,
3839: p_message_yn => FALSE);
3840:
3841: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3842: AND l_head_rulv_rec.RULE_INFORMATION4 IN
3843: ('LINE_CALCULATION','PRORATE','NO_PRORATE') THEN
3844:
3845: IF l_head_rulv_rec.RULE_INFORMATION4 <>
3870: -- **********************************
3871: -- Contract-level rule does not exist
3872: -- **********************************
3873:
3874: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3875:
3876: -- *********************************************
3877: -- No line-level or header-level rules are found
3878: -- Try to find executable operand or constant
3926: p_asset_qty => l_reject_asset_tbl(l_asset_cnt).p_asset_qty,
3927: p_quote_qty => l_reject_asset_tbl(l_asset_cnt).p_quote_qty,
3928: p_rule_information4 => l_head_rulv_rec.RULE_INFORMATION4,
3929: p_formula_name => p_formula_name,
3930: p_success_yn => OKL_API.G_RET_STS_ERROR,
3931: px_tqlv_tbl => px_tqlv_tbl,
3932: p_sty_id => NULL,
3933: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
3934: p_defaulted_yn => 'N',
3947: -- ***********************************************************
3948: -- Contract-level rule is used as default for line calculation
3949: -- ***********************************************************
3950:
3951: ELSIF l_return_status = OKL_API.G_RET_STS_SUCCESS
3952: AND l_head_rulv_rec.RULE_INFORMATION4 =
3953: 'LINE_CALCULATION' THEN
3954:
3955: LOOP
4006: -- *****************************************
4007: -- Contract-level rule is used for proration
4008: -- *****************************************
4009:
4010: ELSIF l_return_status = OKL_API.G_RET_STS_SUCCESS
4011: AND l_head_rulv_rec.RULE_INFORMATION4 = 'PRORATE' THEN
4012:
4013: LOOP
4014:
4011: AND l_head_rulv_rec.RULE_INFORMATION4 = 'PRORATE' THEN
4012:
4013: LOOP
4014:
4015: IF l_header_status = OKL_API.G_RET_STS_SUCCESS THEN
4016: -- SECHAWLA 24-FEB-03 - Bug 2817025 : Do not prorate the amount in case of Repurchase quote
4017: IF p_qtev_rec.qtp_code <> 'REP_STANDARD' THEN
4018: -- Use prorated header value
4019: prorate_operand (
4121: p_qlt_code => p_operand,
4122: p_amount => NULL,
4123: p_kle_id => NULL,
4124: p_formula_name => p_formula_name,
4125: p_success_yn => OKL_API.G_RET_STS_SUCCESS,
4126: p_sub_tqlv_tbl => l_sub_head2_tqlv_tbl,
4127: p_sty_id => NULL,
4128: p_defaulted_yn => 'N',
4129: px_tqlv_tbl => px_tqlv_tbl,
4137: -- *********************************************
4138: -- Contract-level rule is used without proration
4139: -- *********************************************
4140:
4141: ELSIF l_return_status = OKL_API.G_RET_STS_SUCCESS
4142: AND l_head_rulv_rec.RULE_INFORMATION4 = 'NO_PRORATE' THEN
4143:
4144:
4145:
4226: p_asset_qty => l_reject_asset_tbl(l_asset_cnt).p_asset_qty,
4227: p_quote_qty => l_reject_asset_tbl(l_asset_cnt).p_quote_qty,
4228: p_rule_information4 => l_head_rulv_rec.RULE_INFORMATION4,
4229: p_formula_name => p_formula_name,
4230: p_success_yn => OKL_API.G_RET_STS_ERROR,
4231: p_sty_id => NULL,
4232: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
4233: p_defaulted_yn => 'N',
4234: px_tqlv_tbl => px_tqlv_tbl,
4279: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4280: END IF;
4281:
4282: -- store SQL error message on message stack for caller
4283: OKL_API.SET_MESSAGE (
4284: p_app_name => G_APP_NAME
4285: ,p_msg_name => G_UNEXPECTED_ERROR
4286: ,p_token1 => G_SQLCODE_TOKEN
4287: ,p_token1_value => sqlcode
4288: ,p_token2 => G_SQLERRM_TOKEN
4289: ,p_token2_value => sqlerrm);
4290:
4291: -- notify caller of an UNEXPECTED error
4292: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4293:
4294: END process_operand;
4295:
4296:
4319: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
4320: x_formula_total OUT NOCOPY NUMBER,
4321: x_return_status OUT NOCOPY VARCHAR2) IS
4322:
4323: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4324: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4325: l_operand_total NUMBER;
4326: l_formula_total NUMBER := 0;
4327: l_curr_char VARCHAR2(1);
4320: x_formula_total OUT NOCOPY NUMBER,
4321: x_return_status OUT NOCOPY VARCHAR2) IS
4322:
4323: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4324: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4325: l_operand_total NUMBER;
4326: l_formula_total NUMBER := 0;
4327: l_curr_char VARCHAR2(1);
4328: l_formula_id okl_formulae_v.id%TYPE := NULL;
4384: 'before call to okl_am_util_pvt.get_formula_value :'||l_return_status);
4385: END IF;
4386:
4387:
4388: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4389: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4390: l_overall_status := l_return_status;
4391: END IF;
4392: END IF;
4385: END IF;
4386:
4387:
4388: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4389: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4390: l_overall_status := l_return_status;
4391: END IF;
4392: END IF;
4393:
4401: AND l_formula_string LIKE '%' || p_operand || '%')
4402: THEN
4403: -- First condition ensures non-empty string
4404: -- Second condition ensures absence of recursive references
4405: l_return_status := OKL_API.G_RET_STS_ERROR;
4406: END IF;
4407:
4408: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4409: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4404: -- Second condition ensures absence of recursive references
4405: l_return_status := OKL_API.G_RET_STS_ERROR;
4406: END IF;
4407:
4408: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4409: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4410: l_overall_status := l_return_status;
4411: END IF;
4412: END IF;
4405: l_return_status := OKL_API.G_RET_STS_ERROR;
4406: END IF;
4407:
4408: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4409: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4410: l_overall_status := l_return_status;
4411: END IF;
4412: END IF;
4413: bug 4333243 -- End*/
4419: -- (operand-rule combo) or
4420: -- (b) another formula in the formula engine (executable operand).
4421: -- *******************************************************************
4422:
4423: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4424:
4425: -- make sure last operand is processed
4426: l_formula_string := l_formula_string || '+';
4427:
4476:
4477: ELSE
4478: -- Should never happen because
4479: -- Formula Engine validation above would fail
4480: l_return_status := OKL_API.G_RET_STS_ERROR;
4481: -- invalid id Formula Label Id
4482: OKC_API.SET_MESSAGE (
4483: p_app_name => G_OKC_APP_NAME,
4484: p_msg_name => G_INVALID_VALUE,
4485: p_token1 => G_COL_NAME_TOKEN,
4486: p_token1_value => 'Formula Label Id');
4487: END IF;
4488:
4489: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4490: IF l_overall_status <>
4491: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4492: l_overall_status := l_return_status;
4493: END IF;
4487: END IF;
4488:
4489: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4490: IF l_overall_status <>
4491: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4492: l_overall_status := l_return_status;
4493: END IF;
4494: END IF;
4495:
4506: END LOOP;
4507:
4508: ELSE
4509:
4510: l_return_status := OKL_API.G_RET_STS_ERROR;
4511: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4512: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4513: l_overall_status := l_return_status;
4514: END IF;
4507:
4508: ELSE
4509:
4510: l_return_status := OKL_API.G_RET_STS_ERROR;
4511: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4512: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4513: l_overall_status := l_return_status;
4514: END IF;
4515: END IF;
4508: ELSE
4509:
4510: l_return_status := OKL_API.G_RET_STS_ERROR;
4511: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4512: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4513: l_overall_status := l_return_status;
4514: END IF;
4515: END IF;
4516:
4540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4541: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4542: END IF;
4543: -- store SQL error message on message stack for caller
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
4549: ,p_token2 => G_SQLERRM_TOKEN
4550: ,p_token2_value => sqlerrm);
4551:
4552: -- notify caller of an UNEXPECTED error
4553: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4554:
4555: END process_top_formula;
4556:
4557: -- Start of comments
4582: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
4583: x_formula_total OUT NOCOPY NUMBER,
4584: x_return_status OUT NOCOPY VARCHAR2) IS
4585:
4586: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4587: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4588: l_operand_total NUMBER;
4589: l_formula_total NUMBER := 0;
4590: l_curr_char VARCHAR2(1);
4583: x_formula_total OUT NOCOPY NUMBER,
4584: x_return_status OUT NOCOPY VARCHAR2) IS
4585:
4586: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4587: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4588: l_operand_total NUMBER;
4589: l_formula_total NUMBER := 0;
4590: l_curr_char VARCHAR2(1);
4591: l_formula_id okl_formulae_v.id%TYPE := NULL;
4679: IF (is_debug_statement_on) THEN
4680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4681: 'after call to okl_am_util_pvt.get_formula_value :: value of l_return_status'|| l_return_status);
4682: END IF;
4683: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4684: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4685: l_overall_status := l_return_status;
4686: END IF;
4687: END IF;
4680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4681: 'after call to okl_am_util_pvt.get_formula_value :: value of l_return_status'|| l_return_status);
4682: END IF;
4683: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4684: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4685: l_overall_status := l_return_status;
4686: END IF;
4687: END IF;
4688:
4696: AND l_formula_string LIKE '%' || p_operand || '%')
4697: THEN
4698: -- First condition ensures non-empty string
4699: -- Second condition ensures absence of recursive references
4700: l_return_status := OKL_API.G_RET_STS_ERROR;
4701: END IF;
4702:
4703: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4704: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4699: -- Second condition ensures absence of recursive references
4700: l_return_status := OKL_API.G_RET_STS_ERROR;
4701: END IF;
4702:
4703: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4704: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4705: l_overall_status := l_return_status;
4706: END IF;
4707: END IF;
4700: l_return_status := OKL_API.G_RET_STS_ERROR;
4701: END IF;
4702:
4703: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4704: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4705: l_overall_status := l_return_status;
4706: END IF;
4707: END IF;
4708: */
4717: IF (is_debug_statement_on) THEN
4718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4719: 'value of l_overall_status'|| l_overall_status);
4720: END IF;
4721: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4722:
4723: -- make sure last operand is processed
4724: l_formula_string := l_formula_string || '+';
4725:
4786: end if;
4787: ELSE
4788: -- Should never happen because
4789: -- Formula Engine validation above would fail
4790: l_return_status := OKL_API.G_RET_STS_ERROR;
4791: -- invalid id Formula Label Id
4792: OKC_API.SET_MESSAGE (
4793: p_app_name => G_OKC_APP_NAME,
4794: p_msg_name => G_INVALID_VALUE,
4795: p_token1 => G_COL_NAME_TOKEN,
4796: p_token1_value => 'Formula Label Id');
4797: END IF;
4798:
4799: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4800: IF l_overall_status <>
4801: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4802: l_overall_status := l_return_status;
4803: END IF;
4797: END IF;
4798:
4799: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4800: IF l_overall_status <>
4801: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4802: l_overall_status := l_return_status;
4803: END IF;
4804: END IF;
4805:
4838: G_ROLL_FEE_CALC_DONE := FALSE;
4839: --sechawla 30-apr-09 7575939 : end
4840: ELSE
4841:
4842: l_return_status := OKL_API.G_RET_STS_ERROR;
4843: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4844: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4845: l_overall_status := l_return_status;
4846: END IF;
4839: --sechawla 30-apr-09 7575939 : end
4840: ELSE
4841:
4842: l_return_status := OKL_API.G_RET_STS_ERROR;
4843: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4844: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4845: l_overall_status := l_return_status;
4846: END IF;
4847: END IF;
4840: ELSE
4841:
4842: l_return_status := OKL_API.G_RET_STS_ERROR;
4843: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4844: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4845: l_overall_status := l_return_status;
4846: END IF;
4847: END IF;
4848:
4878: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4879: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4880: END IF;
4881: -- store SQL error message on message stack for caller
4882: OKL_API.SET_MESSAGE (
4883: p_app_name => G_APP_NAME
4884: ,p_msg_name => G_UNEXPECTED_ERROR
4885: ,p_token1 => G_SQLCODE_TOKEN
4886: ,p_token1_value => sqlcode
4887: ,p_token2 => G_SQLERRM_TOKEN
4888: ,p_token2_value => sqlerrm);
4889:
4890: -- notify caller of an UNEXPECTED error
4891: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4892:
4893: END process_top_formula_new;
4894:
4895:
4921: x_formula_total OUT NOCOPY NUMBER,
4922: x_return_status OUT NOCOPY VARCHAR2) IS
4923:
4924: l_rulv_rec rulv_rec_type;
4925: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4926: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4927: l_rgd_code VARCHAR2(30) := NULL;
4928: l_quote_subtotal NUMBER;
4929: l_rule_chr_id NUMBER;
4922: x_return_status OUT NOCOPY VARCHAR2) IS
4923:
4924: l_rulv_rec rulv_rec_type;
4925: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4926: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4927: l_rgd_code VARCHAR2(30) := NULL;
4928: l_quote_subtotal NUMBER;
4929: l_rule_chr_id NUMBER;
4930:
4948: l_rgd_code := p_head_rgd_code;
4949: END IF;
4950:
4951:
4952: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4953: AND p_qtev_rec.qtp_code NOT LIKE 'TER_MAN%'
4954: AND l_rgd_code IS NOT NULL
4955: AND p_rdf_code IS NOT NULL THEN
4956:
4978: IF (is_debug_statement_on) THEN
4979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4980: 'after call to okl_am_util_pvt.get_rule_record from process_top_rule Value of l_return_status'|| l_return_status);
4981: END IF;
4982: ELSIF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4983: AND p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
4984:
4985: l_rulv_rec.RULE_INFORMATION2 := 'QUOTE_TERMINATION_MANUAL';
4986: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4982: ELSIF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4983: AND p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
4984:
4985: l_rulv_rec.RULE_INFORMATION2 := 'QUOTE_TERMINATION_MANUAL';
4986: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4987:
4988: ELSE
4989: l_return_status := OKL_API.G_RET_STS_ERROR;
4990: END IF;
4985: l_rulv_rec.RULE_INFORMATION2 := 'QUOTE_TERMINATION_MANUAL';
4986: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4987:
4988: ELSE
4989: l_return_status := OKL_API.G_RET_STS_ERROR;
4990: END IF;
4991:
4992: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4993: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4988: ELSE
4989: l_return_status := OKL_API.G_RET_STS_ERROR;
4990: END IF;
4991:
4992: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4993: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4994: l_overall_status := l_return_status;
4995: END IF;
4996: END IF;
4989: l_return_status := OKL_API.G_RET_STS_ERROR;
4990: END IF;
4991:
4992: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4993: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4994: l_overall_status := l_return_status;
4995: END IF;
4996: END IF;
4997:
4995: END IF;
4996: END IF;
4997:
4998: -- Uncomment if you want always create default lines
4999: -- l_overall_status := OKL_API.G_RET_STS_ERROR;
5000:
5001: -- **************************************
5002: -- Disect top formula string,
5003: -- calculate each operand and their total
5002: -- Disect top formula string,
5003: -- calculate each operand and their total
5004: -- **************************************
5005:
5006: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
5007: -- AND l_rulv_rec.RULE_INFORMATION1 = 'Y' -- Field is disabled
5008: AND NVL (l_rulv_rec.RULE_INFORMATION2, G_MISS_CHAR) <> G_MISS_CHAR THEN
5009:
5010: process_top_formula_new ( -- rmunjulu 4300443 Call this new performant procedure
5021: IF (is_debug_statement_on) THEN
5022: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5023: 'after call to process_top_formula_new from process_top_rule Value of l_return_status'|| l_return_status);
5024: END IF;
5025: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5026: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
5027: THEN
5028: l_overall_status := l_return_status;
5029: END IF;
5022: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5023: 'after call to process_top_formula_new from process_top_rule Value of l_return_status'|| l_return_status);
5024: END IF;
5025: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5026: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
5027: THEN
5028: l_overall_status := l_return_status;
5029: END IF;
5030: END IF;
5029: END IF;
5030: END IF;
5031:
5032: ELSE
5033: l_return_status := OKL_API.G_RET_STS_ERROR;
5034: END IF;
5035:
5036: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5037: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5032: ELSE
5033: l_return_status := OKL_API.G_RET_STS_ERROR;
5034: END IF;
5035:
5036: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5037: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5038: l_overall_status := l_return_status;
5039: END IF;
5040: END IF;
5033: l_return_status := OKL_API.G_RET_STS_ERROR;
5034: END IF;
5035:
5036: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5037: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5038: l_overall_status := l_return_status;
5039: END IF;
5040: END IF;
5041:
5042: -- **************************************
5043: -- Create default lines if no top formula
5044: -- **************************************
5045:
5046: IF ( l_overall_status <> OKL_API.G_RET_STS_SUCCESS
5047: OR px_tqlv_tbl.COUNT = 0)
5048: AND p_qtev_rec.qtp_code NOT LIKE 'TER_MAN%'
5049: AND p_qtev_rec.qtp_code NOT IN -- rmunjulu Added this AND for bug 3954846
5050: (
5094: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5095: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5096: END IF;
5097: -- store SQL error message on message stack for caller
5098: OKL_API.SET_MESSAGE (
5099: p_app_name => G_APP_NAME
5100: ,p_msg_name => G_UNEXPECTED_ERROR
5101: ,p_token1 => G_SQLCODE_TOKEN
5102: ,p_token1_value => sqlcode
5103: ,p_token2 => G_SQLERRM_TOKEN
5104: ,p_token2_value => sqlerrm);
5105:
5106: -- notify caller of an UNEXPECTED error
5107: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5108:
5109: END process_top_rule;
5110:
5111: -- Start of comments
5124: p_asset_tbl IN asset_tbl_type,
5125: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
5126: x_return_status OUT NOCOPY VARCHAR2) IS
5127:
5128: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5129: l_sub_line_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
5130: l_bill_adjust_value NUMBER;
5131: l_kle_id NUMBER;
5132: l_sty_id NUMBER;
5132: l_sty_id NUMBER;
5133: l_operand_total NUMBER;
5134: l_prorate_ratio NUMBER;
5135:
5136: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5137:
5138: l_api_version CONSTANT NUMBER := 1;
5139: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5140: l_msg_data VARCHAR2(2000);
5135:
5136: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5137:
5138: l_api_version CONSTANT NUMBER := 1;
5139: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5140: l_msg_data VARCHAR2(2000);
5141:
5142: l_input_tbl OKL_BPD_TERMINATION_ADJ_PVT.input_tbl_type;
5143: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
5192:
5193: -- Call BPD API to get billing from quote_effective_from_date onwards
5194: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
5195: p_api_version => l_api_version,
5196: p_init_msg_list => OKL_API.G_FALSE,
5197: p_input_tbl => l_input_tbl,
5198: x_baj_tbl => lx_baj_tbl,
5199: x_return_status => l_return_status,
5200: x_msg_count => l_msg_count,
5205: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5206: 'After call to okl_am_util_pvt.get_formula_value :'||l_return_status);
5207: END IF;
5208:
5209: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5210:
5211: -- Error getting the billing adjustments for the contract.
5212: OKL_API.set_message(
5213: p_app_name => 'OKL',
5208:
5209: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5210:
5211: -- Error getting the billing adjustments for the contract.
5212: OKL_API.set_message(
5213: p_app_name => 'OKL',
5214: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5215:
5216: END IF;
5214: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5215:
5216: END IF;
5217:
5218: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5219: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5220: l_overall_status := l_return_status;
5221: END IF;
5222: END IF;
5215:
5216: END IF;
5217:
5218: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5219: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5220: l_overall_status := l_return_status;
5221: END IF;
5222: END IF;
5223:
5278: p_due_date => l_due_date, -- rmunjulu Bug 4161133 Added -- 4161133 Modified
5279: px_tqlv_tbl => px_tqlv_tbl,
5280: px_tbl_total => l_operand_total);
5281:
5282: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5283: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5284: l_overall_status := l_return_status;
5285: END IF;
5286: END IF;
5279: px_tqlv_tbl => px_tqlv_tbl,
5280: px_tbl_total => l_operand_total);
5281:
5282: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5283: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5284: l_overall_status := l_return_status;
5285: END IF;
5286: END IF;
5287:
5294: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5295: x_return_status => l_return_status,
5296: p_khr_id => p_qtev_rec.khr_id);
5297:
5298: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5299: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5300: l_overall_status := l_return_status;
5301: END IF;
5302: END IF;
5295: x_return_status => l_return_status,
5296: p_khr_id => p_qtev_rec.khr_id);
5297:
5298: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5299: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5300: l_overall_status := l_return_status;
5301: END IF;
5302: END IF;
5303:
5319: 'After call to okl_streams_util.get_dependent_stream_type :'||l_return_status);
5320: END IF;
5321:
5322: --Bug 6266134 veramach end
5323: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5324: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5325: l_overall_status := l_return_status;
5326: END IF;
5327: END IF;
5320: END IF;
5321:
5322: --Bug 6266134 veramach end
5323: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5324: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5325: l_overall_status := l_return_status;
5326: END IF;
5327: END IF;
5328:
5347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5348: 'After call to append_quote_line :'||l_return_status);
5349: END IF;
5350:
5351: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5352: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5353: l_overall_status := l_return_status;
5354: END IF;
5355: END IF;
5348: 'After call to append_quote_line :'||l_return_status);
5349: END IF;
5350:
5351: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5352: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5353: l_overall_status := l_return_status;
5354: END IF;
5355: END IF;
5356: END IF;
5369: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5370: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5371: END IF;
5372: -- store SQL error message on message stack for caller
5373: OKL_API.SET_MESSAGE (
5374: p_app_name => G_APP_NAME
5375: ,p_msg_name => G_UNEXPECTED_ERROR
5376: ,p_token1 => G_SQLCODE_TOKEN
5377: ,p_token1_value => sqlcode
5378: ,p_token2 => G_SQLERRM_TOKEN
5379: ,p_token2_value => sqlerrm);
5380:
5381: -- notify caller of an UNEXPECTED error
5382: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5383:
5384: END calc_bill_adjust;
5385:
5386:
5398: PROCEDURE calc_anticipated_bill (
5399: p_qtev_rec IN qtev_rec_type,
5400: x_return_status OUT NOCOPY VARCHAR2) IS
5401:
5402: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5403: l_kle_id NUMBER;
5404: l_sty_id NUMBER;
5405: l_api_version CONSTANT NUMBER := 1;
5406: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5402: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5403: l_kle_id NUMBER;
5404: l_sty_id NUMBER;
5405: l_api_version CONSTANT NUMBER := 1;
5406: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5407: l_msg_data VARCHAR2(2000);
5408:
5409: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5410:
5405: l_api_version CONSTANT NUMBER := 1;
5406: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5407: l_msg_data VARCHAR2(2000);
5408:
5409: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5410:
5411: l_functional_currency_code VARCHAR2(15);
5412: l_contract_currency_code VARCHAR2(15);
5413: l_currency_conversion_type VARCHAR2(30);
5448:
5449: -- Call BPD API to get unbilled amount from quote creation date till quote effective from date
5450: OKL_BPD_TERMINATION_ADJ_PVT.get_unbilled_recvbl(
5451: p_api_version => l_api_version,
5452: p_init_msg_list => OKL_API.G_FALSE,
5453: p_input_tbl => l_input_tbl,
5454: x_baj_tbl => lx_baj_tbl,
5455: x_return_status => l_return_status,
5456: x_msg_count => l_msg_count,
5460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5461: 'after call to OKL_BPD_TERMINATION_ADJ_PVT.get_unbilled_recvbl :'||l_return_status);
5462: END IF;
5463:
5464: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5465:
5466: -- Error getting the billing adjustments for the contract.
5467: OKL_API.set_message(
5468: p_app_name => 'OKL',
5463:
5464: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5465:
5466: -- Error getting the billing adjustments for the contract.
5467: OKL_API.set_message(
5468: p_app_name => 'OKL',
5469: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5470:
5471: END IF;
5469: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5470:
5471: END IF;
5472:
5473: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5474: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5475: l_overall_status := l_return_status;
5476: END IF;
5477: END IF;
5470:
5471: END IF;
5472:
5473: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5474: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5475: l_overall_status := l_return_status;
5476: END IF;
5477: END IF;
5478:
5515: 'after call to OKL_ACCOUNTING_UTIL.convert_to_functional_currency :'||l_return_status);
5516: END IF;
5517:
5518: -- raise exception if error
5519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5522: RAISE OKL_API.G_EXCEPTION_ERROR;
5523: END IF;
5516: END IF;
5517:
5518: -- raise exception if error
5519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5522: RAISE OKL_API.G_EXCEPTION_ERROR;
5523: END IF;
5524:
5517:
5518: -- raise exception if error
5519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5522: RAISE OKL_API.G_EXCEPTION_ERROR;
5523: END IF;
5524:
5525: lp_qabv_tbl(i).currency_code := l_contract_currency_code;
5518: -- raise exception if error
5519: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5521: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5522: RAISE OKL_API.G_EXCEPTION_ERROR;
5523: END IF;
5524:
5525: lp_qabv_tbl(i).currency_code := l_contract_currency_code;
5526: lp_qabv_tbl(i).currency_conversion_code := l_functional_currency_code;
5542:
5543: -- call TAPI to insert records
5544: OKL_TXD_QTE_ANTCPT_BILL_PUB.create_txd_qte_ant_bill(
5545: p_api_version => l_api_version,
5546: p_init_msg_list => OKL_API.G_FALSE,
5547: x_return_status => l_return_status,
5548: x_msg_count => l_msg_count,
5549: x_msg_data => l_msg_data,
5550: p_qabv_tbl => lp_qabv_tbl,
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5555: 'after call to OKL_TXD_QTE_ANTCPT_BILL_PUB.create_txd_qte_ant_bill:'||l_return_status);
5556: END IF;
5557:
5558: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5559: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5560: l_overall_status := l_return_status;
5561: END IF;
5562: END IF;
5555: 'after call to OKL_TXD_QTE_ANTCPT_BILL_PUB.create_txd_qte_ant_bill:'||l_return_status);
5556: END IF;
5557:
5558: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5559: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5560: l_overall_status := l_return_status;
5561: END IF;
5562: END IF;
5563:
5570: END IF;
5571:
5572: EXCEPTION
5573:
5574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5575: x_return_status := OKL_API.G_RET_STS_ERROR;
5576:
5577: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5578: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5571:
5572: EXCEPTION
5573:
5574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5575: x_return_status := OKL_API.G_RET_STS_ERROR;
5576:
5577: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5578: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5579:
5573:
5574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5575: x_return_status := OKL_API.G_RET_STS_ERROR;
5576:
5577: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5578: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5579:
5580: WHEN OTHERS THEN
5581:
5574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5575: x_return_status := OKL_API.G_RET_STS_ERROR;
5576:
5577: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5578: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5579:
5580: WHEN OTHERS THEN
5581:
5582: IF (is_debug_exception_on) THEN
5583: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5584: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5585: END IF;
5586: -- store SQL error message on message stack for caller
5587: OKL_API.SET_MESSAGE (
5588: p_app_name => G_APP_NAME
5589: ,p_msg_name => G_UNEXPECTED_ERROR
5590: ,p_token1 => G_SQLCODE_TOKEN
5591: ,p_token1_value => sqlcode
5592: ,p_token2 => G_SQLERRM_TOKEN
5593: ,p_token2_value => sqlerrm);
5594:
5595: -- notify caller of an UNEXPECTED error
5596: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5597:
5598: END calc_anticipated_bill;
5599:
5600:
5631: l_quote_subtotal NUMBER := 0; -- Sum of all quote lines
5632: l_floor_price NUMBER := 0; -- Asset floor price
5633: l_asset_cnt NUMBER; -- Asset counter
5634:
5635: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5636: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5637:
5638: -- get the floor price
5639: CURSOR l_floor_csr (cp_art_id NUMBER, cp_cle_id NUMBER) IS
5632: l_floor_price NUMBER := 0; -- Asset floor price
5633: l_asset_cnt NUMBER; -- Asset counter
5634:
5635: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5636: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5637:
5638: -- get the floor price
5639: CURSOR l_floor_csr (cp_art_id NUMBER, cp_cle_id NUMBER) IS
5640: SELECT SUM (NVL (a.floor_price, 0)) floor_price
5675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5676: 'after call to process_top_rule :'||l_return_status);
5677: END IF;
5678:
5679: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5680: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5681: l_overall_status := l_return_status;
5682: END IF;
5683: END IF;
5676: 'after call to process_top_rule :'||l_return_status);
5677: END IF;
5678:
5679: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5680: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5681: l_overall_status := l_return_status;
5682: END IF;
5683: END IF;
5684:
5735: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5736: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5737: END IF;
5738: -- store SQL error message on message stack for caller
5739: OKL_API.SET_MESSAGE (
5740: p_app_name => G_APP_NAME
5741: ,p_msg_name => G_UNEXPECTED_ERROR
5742: ,p_token1 => G_SQLCODE_TOKEN
5743: ,p_token1_value => sqlcode
5744: ,p_token2 => G_SQLERRM_TOKEN
5745: ,p_token2_value => sqlerrm);
5746:
5747: -- notify caller of an UNEXPECTED error
5748: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5749:
5750: END repurchase;
5751:
5752:
5781: l_quote_subtotal NUMBER := 0; -- Sum of all quote lines
5782: l_floor_price NUMBER := 0; -- Asset floor price
5783: l_asset_cnt NUMBER; -- Asset counter
5784:
5785: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5786: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5787:
5788: -- get the floor price
5789: CURSOR l_floor_csr (cp_art_id NUMBER) IS
5782: l_floor_price NUMBER := 0; -- Asset floor price
5783: l_asset_cnt NUMBER; -- Asset counter
5784:
5785: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5786: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5787:
5788: -- get the floor price
5789: CURSOR l_floor_csr (cp_art_id NUMBER) IS
5790: SELECT SUM (NVL (a.floor_price, 0)) floor_price
5821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5822: 'after call to process_top_rule :'||l_return_status);
5823: END IF;
5824:
5825: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5826: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5827: l_overall_status := l_return_status;
5828: END IF;
5829: END IF;
5822: 'after call to process_top_rule :'||l_return_status);
5823: END IF;
5824:
5825: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5826: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5827: l_overall_status := l_return_status;
5828: END IF;
5829: END IF;
5830:
5875: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5876: END IF;
5877:
5878: -- store SQL error message on message stack for caller
5879: OKL_API.SET_MESSAGE (
5880: p_app_name => G_APP_NAME
5881: ,p_msg_name => G_UNEXPECTED_ERROR
5882: ,p_token1 => G_SQLCODE_TOKEN
5883: ,p_token1_value => sqlcode
5884: ,p_token2 => G_SQLERRM_TOKEN
5885: ,p_token2_value => sqlerrm);
5886:
5887: -- notify caller of an UNEXPECTED error
5888: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5889:
5890: END repurchase_temp;
5891:
5892:
5928: -- Sum of all quote lines
5929: l_quote_subtotal NUMBER := 0;
5930: l_pur_opt_total NUMBER := 0;
5931:
5932: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5933: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5934: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'termination';
5935: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5936: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5929: l_quote_subtotal NUMBER := 0;
5930: l_pur_opt_total NUMBER := 0;
5931:
5932: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5933: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5934: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'termination';
5935: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5936: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5937: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6043: 'after process_top_rule call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6044:
6045: END IF;
6046: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6047: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6048: l_overall_status := l_return_status;
6049: END IF;
6050: END IF;
6043: 'after process_top_rule call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6044:
6045: END IF;
6046: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6047: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6048: l_overall_status := l_return_status;
6049: END IF;
6050: END IF;
6051:
6078: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6079: 'after process_operand call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6080:
6081: END IF;
6082: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6083: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6084: l_overall_status := l_return_status;
6085: END IF;
6086: ELSE
6079: 'after process_operand call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6080:
6081: END IF;
6082: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6083: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6084: l_overall_status := l_return_status;
6085: END IF;
6086: ELSE
6087: l_overall_status := l_return_status; -- sechawla 13-aug-08 bug 7233781
6100: IF (is_debug_statement_on) THEN
6101: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6102: 'after calc_bill_adjust call from trmn Value of l_return_status'|| l_return_status);
6103: END IF;
6104: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6105: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6106: l_overall_status := l_return_status;
6107: END IF;
6108: END IF;
6101: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6102: 'after calc_bill_adjust call from trmn Value of l_return_status'|| l_return_status);
6103: END IF;
6104: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6105: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6106: l_overall_status := l_return_status;
6107: END IF;
6108: END IF;
6109:
6114: IF (is_debug_statement_on) THEN
6115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6116: 'after calc_anticipated_bill call from trmn Value of l_return_status'|| l_return_status);
6117: END IF;
6118: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6119: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6120: l_overall_status := l_return_status;
6121: END IF;
6122: END IF;
6115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6116: 'after calc_anticipated_bill call from trmn Value of l_return_status'|| l_return_status);
6117: END IF;
6118: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6119: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6120: l_overall_status := l_return_status;
6121: END IF;
6122: END IF;
6123:
6146: IF (is_debug_statement_on) THEN
6147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6148: 'After call to create_default_quote_lines from termination Value of l_return_status'|| l_return_status);
6149: END IF;
6150: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6151: --IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN -- rmunjulu 4741168 removed
6152: l_overall_status := l_return_status;
6153: --END IF;
6154: ELSE -- rmunjulu 4741168 added so that the default lines get calculated without error on screen
6147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6148: 'After call to create_default_quote_lines from termination Value of l_return_status'|| l_return_status);
6149: END IF;
6150: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6151: --IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN -- rmunjulu 4741168 removed
6152: l_overall_status := l_return_status;
6153: --END IF;
6154: ELSE -- rmunjulu 4741168 added so that the default lines get calculated without error on screen
6155: l_overall_status := l_return_status;
6172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6173: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6174: END IF;
6175: -- store SQL error message on message stack for caller
6176: OKL_API.SET_MESSAGE (
6177: p_app_name => G_APP_NAME
6178: ,p_msg_name => G_UNEXPECTED_ERROR
6179: ,p_token1 => G_SQLCODE_TOKEN
6180: ,p_token1_value => sqlcode
6181: ,p_token2 => G_SQLERRM_TOKEN
6182: ,p_token2_value => sqlerrm);
6183:
6184: -- notify caller of an UNEXPECTED error
6185: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6186:
6187: END termination;
6188:
6189:
6232: WHERE l.id = cp_line_id
6233: AND s.id = l.lse_id
6234: AND s.lty_code = G_FIN_ASSET_STYLE;
6235:
6236: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6237: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6238:
6239: l_asset_cnt NUMBER;
6240: l_invalid_line_yn BOOLEAN;
6233: AND s.id = l.lse_id
6234: AND s.lty_code = G_FIN_ASSET_STYLE;
6235:
6236: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6237: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6238:
6239: l_asset_cnt NUMBER;
6240: l_invalid_line_yn BOOLEAN;
6241: l_temp_result VARCHAR2(1);
6275: -- ***************************************************************
6276:
6277: IF (is_debug_statement_on) THEN
6278: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6279: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6280: END IF;
6281:
6282: l_return_status := OKL_API.START_ACTIVITY (
6283: l_api_name,
6278: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6279: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6280: END IF;
6281:
6282: l_return_status := OKL_API.START_ACTIVITY (
6283: l_api_name,
6284: G_PKG_NAME,
6285: p_init_msg_list,
6286: l_api_version,
6289: x_return_status);
6290:
6291: IF (is_debug_statement_on) THEN
6292: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6293: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6294: END IF;
6295:
6296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6293: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6294: END IF;
6295:
6296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6299: RAISE OKL_API.G_EXCEPTION_ERROR;
6300: END IF;
6293: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6294: END IF;
6295:
6296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6299: RAISE OKL_API.G_EXCEPTION_ERROR;
6300: END IF;
6301:
6294: END IF;
6295:
6296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6299: RAISE OKL_API.G_EXCEPTION_ERROR;
6300: END IF;
6301:
6302: -- SECHAWLA 24-FEB-03 Bug # 2817025 : Get sysdate
6295:
6296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6298: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6299: RAISE OKL_API.G_EXCEPTION_ERROR;
6300: END IF;
6301:
6302: -- SECHAWLA 24-FEB-03 Bug # 2817025 : Get sysdate
6303: SELECT sysdate INTO G_SYSDATE from dual;
6356: okl_am_util_pvt.set_message (
6357: p_app_name => G_APP_NAME,
6358: p_msg_name => 'OKL_AM_NO_PARAMETERS');
6359:
6360: RAISE OKL_API.G_EXCEPTION_ERROR;
6361:
6362: END IF;
6363:
6364: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
6431: okl_am_util_pvt.set_message (
6432: p_app_name => G_APP_NAME,
6433: p_msg_name => 'OKL_AM_UNSUPPORTED_QUOTE_TYPE');
6434:
6435: RAISE OKL_API.G_EXCEPTION_ERROR;
6436:
6437: END IF;
6438:
6439: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6435: RAISE OKL_API.G_EXCEPTION_ERROR;
6436:
6437: END IF;
6438:
6439: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6440: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6441: l_overall_status := l_return_status;
6442: END IF;
6443: END IF;
6436:
6437: END IF;
6438:
6439: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6440: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6441: l_overall_status := l_return_status;
6442: END IF;
6443: END IF;
6444: -- bug 5480622--start
6455: x_return_status => l_return_status);
6456:
6457: END IF;
6458:
6459: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6460: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6461: l_overall_status := l_return_status;
6462: END IF;
6463: END IF;
6456:
6457: END IF;
6458:
6459: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6460: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6461: l_overall_status := l_return_status;
6462: END IF;
6463: END IF;
6464: End if;
6478: x_return_status => l_return_status);
6479:
6480: END IF;
6481:
6482: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6483: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6484: l_overall_status := l_return_status;
6485: END IF;
6486: END IF;
6479:
6480: END IF;
6481:
6482: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6483: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6484: l_overall_status := l_return_status;
6485: END IF;
6486: END IF;
6487:
6505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6506: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls contract_lines :'||l_return_status);
6507: END IF;
6508:
6509: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6510: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6511: l_overall_status := l_return_status;
6512: END IF;
6513: END IF;
6506: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls contract_lines :'||l_return_status);
6507: END IF;
6508:
6509: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6510: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6511: l_overall_status := l_return_status;
6512: END IF;
6513: END IF;
6514:
6527:
6528: -- PAGARG Bug 4300443 Call bulk insert instead of usual insert
6529: OKL_TQL_PVT.insert_row_bulk(
6530: p_api_version => l_api_version,
6531: p_init_msg_list => OKL_API.G_FALSE,
6532: x_return_status => l_return_status,
6533: x_msg_count => l_msg_count,
6534: x_msg_data => l_msg_data,
6535: p_tqlv_tbl => l_tqlv_tbl,
6539: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6540: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TQL_PVT.insert_row_bulk :'||l_return_status);
6541: END IF;
6542:
6543: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6545: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6546: RAISE OKL_API.G_EXCEPTION_ERROR;
6547: END IF;
6540: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TQL_PVT.insert_row_bulk :'||l_return_status);
6541: END IF;
6542:
6543: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6545: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6546: RAISE OKL_API.G_EXCEPTION_ERROR;
6547: END IF;
6548:
6541: END IF;
6542:
6543: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6545: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6546: RAISE OKL_API.G_EXCEPTION_ERROR;
6547: END IF;
6548:
6549: END IF;
6542:
6543: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6545: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6546: RAISE OKL_API.G_EXCEPTION_ERROR;
6547: END IF;
6548:
6549: END IF;
6550: ELSE -- Non termination quotes use normal insert
6557: END IF;
6558:
6559: OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines (
6560: p_api_version => l_api_version,
6561: p_init_msg_list => OKL_API.G_FALSE,
6562: x_return_status => l_return_status,
6563: x_msg_count => l_msg_count,
6564: x_msg_data => l_msg_data,
6565: p_tqlv_tbl => l_tqlv_tbl,
6569: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6570: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines :'||l_return_status);
6571: END IF;
6572:
6573: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6576: RAISE OKL_API.G_EXCEPTION_ERROR;
6577: END IF;
6570: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines :'||l_return_status);
6571: END IF;
6572:
6573: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6576: RAISE OKL_API.G_EXCEPTION_ERROR;
6577: END IF;
6578:
6571: END IF;
6572:
6573: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6576: RAISE OKL_API.G_EXCEPTION_ERROR;
6577: END IF;
6578:
6579: END IF;
6572:
6573: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6576: RAISE OKL_API.G_EXCEPTION_ERROR;
6577: END IF;
6578:
6579: END IF;
6580: END IF;
6602: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6603: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls estimate_tax:'||l_return_status);
6604: END IF;
6605:
6606: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6607: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6608: l_overall_status := l_return_status;
6609: END IF;
6610: END IF;
6603: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls estimate_tax:'||l_return_status);
6604: END IF;
6605:
6606: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6607: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6608: l_overall_status := l_return_status;
6609: END IF;
6610: END IF;
6611:
6620:
6621: x_tqlv_tbl := lx_tqlv_tbl;
6622: x_return_status := l_overall_status;
6623:
6624: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
6625:
6626:
6627: IF (is_debug_statement_on) THEN
6628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,'OKL_AM_REMARKET_ASSET_PVT.generate.',
6638:
6639:
6640: EXCEPTION
6641:
6642: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6643: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6644: (
6645: l_api_name,
6646: G_PKG_NAME,
6639:
6640: EXCEPTION
6641:
6642: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6643: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6644: (
6645: l_api_name,
6646: G_PKG_NAME,
6647: 'OKL_API.G_RET_STS_ERROR',
6643: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6644: (
6645: l_api_name,
6646: G_PKG_NAME,
6647: 'OKL_API.G_RET_STS_ERROR',
6648: x_msg_count,
6649: x_msg_data,
6650: '_PVT'
6651: );
6649: x_msg_data,
6650: '_PVT'
6651: );
6652:
6653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6655: (
6656: l_api_name,
6657: G_PKG_NAME,
6650: '_PVT'
6651: );
6652:
6653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6655: (
6656: l_api_name,
6657: G_PKG_NAME,
6658: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6655: (
6656: l_api_name,
6657: G_PKG_NAME,
6658: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6659: x_msg_count,
6660: x_msg_data,
6661: '_PVT'
6662: );
6666: IF l_line_csr%ISOPEN THEN
6667: CLOSE l_line_csr;
6668: END IF;
6669:
6670: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6671: (
6672: l_api_name,
6673: G_PKG_NAME,
6674: 'OTHERS',