[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;
446: || sqlcode || ' , SQLERRM : ' || sqlerrm);
447: END IF;
448:
449: -- store SQL error message on message stack for caller
450: OKL_API.SET_MESSAGE (
451: p_app_name => G_APP_NAME
452: ,p_msg_name => G_UNEXPECTED_ERROR
453: ,p_token1 => G_SQLCODE_TOKEN
454: ,p_token1_value => sqlcode
486: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
487: x_return_status OUT NOCOPY VARCHAR2) IS
488:
489: l_quote_line_type CONSTANT VARCHAR2(30) := 'AMCFIA';
490: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
491: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
492: l_line_value NUMBER := 0;
493: l_line_total NUMBER;
494: l_asset_tbl_index NUMBER;
487: x_return_status OUT NOCOPY VARCHAR2) IS
488:
489: l_quote_line_type CONSTANT VARCHAR2(30) := 'AMCFIA';
490: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
491: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
492: l_line_value NUMBER := 0;
493: l_line_total NUMBER;
494: l_asset_tbl_index NUMBER;
495:
610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
611: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_calc_quote_stream_pvt.calc_stream_type_operand'||l_return_status);
612: END IF;
613:
614: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
615: l_asset_value := okl_am_util_pvt.get_ak_attribute(p_code => 'OKL_UNBILLED_RECIVABLES');
616: -- Unable to calculate ASSET_VALUE
617: OKL_API.set_message( p_app_name => 'OKL',
618: p_msg_name => 'OKL_AM_FORMULA_ERROR',
613:
614: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
615: l_asset_value := okl_am_util_pvt.get_ak_attribute(p_code => 'OKL_UNBILLED_RECIVABLES');
616: -- Unable to calculate ASSET_VALUE
617: OKL_API.set_message( p_app_name => 'OKL',
618: p_msg_name => 'OKL_AM_FORMULA_ERROR',
619: p_token1 => 'ASSET_VALUE',
620: p_token1_value => l_asset_value);
621: l_total_line_unbilled_rec := 0; -- SECHAWLA 21-APR-03 Bug 2925120: Changed the variable name
673: p_net_investment => l_net_investment, -- SECHAWLA 14-FEB-03 2749690 :Added another parameter
674: p_split_asset_number => p_asset_tbl(l_asset_tbl_index).p_split_asset_number, -- RMUNJULU 2757312 Added to store p_split_asset_number
675: p_unbilled_rec => l_total_line_unbilled_rec, -- SECHAWLA 14-FEB-03 2749690 :Added another parameter
676: p_residual_value => l_residual_value, -- SECHAWLA 14-FEB-03 2749690 :Added another parameter
677: p_success_yn => OKL_API.G_RET_STS_SUCCESS,
678: p_sty_id => NULL,
679: p_formula_name => NULL,
680: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
681: p_defaulted_yn => 'N',
720: CLOSE l_okllines_csr;
721: END IF;
722:
723: -- store SQL error message on message stack for caller
724: OKL_API.SET_MESSAGE (
725: p_app_name => G_APP_NAME
726: ,p_msg_name => G_UNEXPECTED_ERROR
727: ,p_token1 => G_SQLCODE_TOKEN
728: ,p_token1_value => sqlcode
729: ,p_token2 => G_SQLERRM_TOKEN
730: ,p_token2_value => sqlerrm);
731:
732: -- notify caller of an UNEXPECTED error
733: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
734:
735: END contract_lines;
736:
737:
758:
759: TYPE amount_tbl_type IS TABLE OF NUMBER
760: INDEX BY BINARY_INTEGER;
761:
762: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
763: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
764: l_tax_amount NUMBER;
765: l_asset_tbl_index NUMBER;
766: l_dummy_total NUMBER;
759: TYPE amount_tbl_type IS TABLE OF NUMBER
760: INDEX BY BINARY_INTEGER;
761:
762: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
763: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
764: l_tax_amount NUMBER;
765: l_asset_tbl_index NUMBER;
766: l_dummy_total NUMBER;
767:
925:
926: LOOP
927:
928: l_tax_amount := 0;
929: l_return_status := OKL_API.G_RET_STS_SUCCESS;
930:
931: IF NVL (l_taxable_amt(l_seq), 0) <> 0 THEN
932:
933: l_params(1).name := G_TAX_AMT_PARAM;
954: x_return_status => l_return_status);
955: ELSE
956: IF G_ORG_ID_MISSING_MSG THEN
957: -- ORG_ID is not defined
958: OKL_API.SET_MESSAGE (
959: p_app_name => 'FND'
960: ,p_msg_name => 'FND-ORG_ID PROFILE CANNOT READ'
961: ,p_token1 => 'OPTION'
962: ,p_token1_value => 'ORG_ID');
961: ,p_token1 => 'OPTION'
962: ,p_token1_value => 'ORG_ID');
963: G_ORG_ID_MISSING_MSG := FALSE;
964: END IF;
965: l_return_status := OKL_API.G_RET_STS_ERROR;
966: END IF;
967:
968: END IF;
969:
999: -- QUESTION :: WHAT ABT BILL_ADJST AND AMPRTX QUOTE LINES
1000: -- TAX API WILL CALCULATE TAX AND INSERT INTO TAX ENTITY THE TAX LINES
1001: OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax(
1002: p_api_version => l_api_version,
1003: p_init_msg_list => OKL_API.G_FALSE,
1004: x_return_status => l_return_status,
1005: x_msg_count => l_msg_count,
1006: x_msg_data => l_msg_data,
1007: p_source_trx_id => p_qtev_rec.id, -- TRX_ID is QUOTE_ID
1021: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1022: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1023: END IF;
1024: -- store SQL error message on message stack for caller
1025: OKL_API.SET_MESSAGE (
1026: p_app_name => G_APP_NAME
1027: ,p_msg_name => G_UNEXPECTED_ERROR
1028: ,p_token1 => G_SQLCODE_TOKEN
1029: ,p_token1_value => sqlcode
1030: ,p_token2 => G_SQLERRM_TOKEN
1031: ,p_token2_value => sqlerrm);
1032:
1033: -- notify caller of an UNEXPECTED error
1034: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1035:
1036: END estimate_tax;
1037:
1038: PROCEDURE adjust_prorated_amounts (
1086: l_ambpoc_diff NUMBER :=0;
1087:
1088: li number := G_MISS_NUM;
1089: l_ael_apply_diff OKL_SYSTEM_PARAMS.PART_TRMNT_APPLY_ROUND_DIFF%type;
1090: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1091: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1092:
1093: BEGIN
1094:
1087:
1088: li number := G_MISS_NUM;
1089: l_ael_apply_diff OKL_SYSTEM_PARAMS.PART_TRMNT_APPLY_ROUND_DIFF%type;
1090: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1091: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1092:
1093: BEGIN
1094:
1095: l_tqlv_tbl := px_tqlv_tbl;
1336: EXCEPTION
1337:
1338: WHEN OTHERS THEN
1339: -- store SQL error message on message stack for caller
1340: OKL_API.SET_MESSAGE (
1341: p_app_name => G_APP_NAME
1342: ,p_msg_name => G_UNEXPECTED_ERROR
1343: ,p_token1 => G_SQLCODE_TOKEN
1344: ,p_token1_value => sqlcode
1345: ,p_token2 => G_SQLERRM_TOKEN
1346: ,p_token2_value => sqlerrm);
1347:
1348: -- notify caller of an UNEXPECTED error
1349: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1350:
1351: END adjust_prorated_amounts;
1352:
1353: -- Start of comments
1376: px_line_sub_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
1377: x_cle_amt OUT NOCOPY NUMBER,
1378: x_return_status OUT NOCOPY VARCHAR2) IS
1379:
1380: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1381: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1382: l_formula_name okl_formulae_v.name%TYPE;
1383: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
1384: l_proration_fraction NUMBER := 0;
1377: x_cle_amt OUT NOCOPY NUMBER,
1378: x_return_status OUT NOCOPY VARCHAR2) IS
1379:
1380: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1381: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1382: l_formula_name okl_formulae_v.name%TYPE;
1383: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
1384: l_proration_fraction NUMBER := 0;
1385: l_tbl_ind NUMBER;
1479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1480: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1481: END IF;
1482:
1483: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1484: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1485: l_overall_status := l_return_status;
1486: END IF;
1487: END IF;
1480: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1481: END IF;
1482:
1483: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1484: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1485: l_overall_status := l_return_status;
1486: END IF;
1487: END IF;
1488:
1502: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1503: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1504: END IF;
1505:
1506: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1507: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1508: l_overall_status := l_return_status;
1509: END IF;
1510: END IF;
1503: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1504: END IF;
1505:
1506: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1507: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1508: l_overall_status := l_return_status;
1509: END IF;
1510: END IF;
1511:
1513:
1514: --SECHAWLA 20-FEB-03 Bug # 2757368 : end modifications
1515: END IF;
1516:
1517: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
1518: AND l_proration_fraction BETWEEN 0 AND 1 THEN
1519: x_cle_amt := p_chr_amt * l_proration_fraction;
1520: ELSE
1521:
1574: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1575: END IF;
1576:
1577: -- store SQL error message on message stack for caller
1578: OKL_API.SET_MESSAGE (
1579: p_app_name => G_APP_NAME
1580: ,p_msg_name => G_UNEXPECTED_ERROR
1581: ,p_token1 => G_SQLCODE_TOKEN
1582: ,p_token1_value => sqlcode
1583: ,p_token2 => G_SQLERRM_TOKEN
1584: ,p_token2_value => sqlerrm);
1585:
1586: -- notify caller of an UNEXPECTED error
1587: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1588:
1589: END prorate_operand;
1590:
1591:
1608: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
1609: p_default_tql IN qlt_tbl_type,
1610: x_return_status OUT NOCOPY VARCHAR2) IS
1611:
1612: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1613: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1614: l_lines_created NUMBER := 0;
1615: l_default_amount NUMBER := 0;
1616: l_asset_cnt NUMBER;
1609: p_default_tql IN qlt_tbl_type,
1610: x_return_status OUT NOCOPY VARCHAR2) IS
1611:
1612: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1613: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1614: l_lines_created NUMBER := 0;
1615: l_default_amount NUMBER := 0;
1616: l_asset_cnt NUMBER;
1617: l_default_cnt NUMBER;
1645: p_qtev_rec => p_qtev_rec,
1646: p_qlt_code => p_default_tql (l_default_cnt),
1647: p_amount => l_default_amount,
1648: p_kle_id => p_cle_id,
1649: p_success_yn => OKL_API.G_RET_STS_SUCCESS,
1650: p_sty_id => NULL,
1651: p_formula_name => NULL,
1652: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
1653: p_defaulted_yn => 'Y',
1685: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1686: 'after call to create_default_quote_lines :'||l_return_status);
1687: END IF;
1688:
1689: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1690: IF l_overall_status <>
1691: OKL_API.G_RET_STS_UNEXP_ERROR THEN
1692: l_overall_status := l_return_status;
1693: END IF;
1687: END IF;
1688:
1689: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1690: IF l_overall_status <>
1691: OKL_API.G_RET_STS_UNEXP_ERROR THEN
1692: l_overall_status := l_return_status;
1693: END IF;
1694: END IF;
1695:
1715: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1716: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1717: END IF;
1718: -- store SQL error message on message stack for caller
1719: OKL_API.SET_MESSAGE (
1720: p_app_name => G_APP_NAME
1721: ,p_msg_name => G_UNEXPECTED_ERROR
1722: ,p_token1 => G_SQLCODE_TOKEN
1723: ,p_token1_value => sqlcode
1724: ,p_token2 => G_SQLERRM_TOKEN
1725: ,p_token2_value => sqlerrm);
1726:
1727: -- notify caller of an UNEXPECTED error
1728: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1729:
1730: END create_default_quote_lines;
1731:
1732:
1743: p_qtev_rec IN qtev_rec_type,
1744: p_qlt_code IN VARCHAR2,
1745: x_return_status OUT NOCOPY VARCHAR2) IS
1746:
1747: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1748: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1749:
1750: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_qlt_conditions';
1751: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1744: p_qlt_code IN VARCHAR2,
1745: x_return_status OUT NOCOPY VARCHAR2) IS
1746:
1747: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1748: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1749:
1750: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_qlt_conditions';
1751: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1752: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1779: ,p_token1_value => p_qtev_rec.qtp_code
1780: ,p_token2 => 'QLT_CODE'
1781: ,p_token2_value => p_qlt_code);
1782:
1783: l_return_status := OKL_API.G_RET_STS_ERROR;
1784:
1785: END IF;
1786:
1787: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1783: l_return_status := OKL_API.G_RET_STS_ERROR;
1784:
1785: END IF;
1786:
1787: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1788: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1789: l_overall_status := l_return_status;
1790: END IF;
1791: END IF;
1784:
1785: END IF;
1786:
1787: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1788: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1789: l_overall_status := l_return_status;
1790: END IF;
1791: END IF;
1792:
1791: END IF;
1792:
1793: IF p_qlt_code IN (G_TAX_QLT, 'AMBPOC') THEN
1794: -- No message needed
1795: l_return_status := OKL_API.G_RET_STS_ERROR;
1796: END IF;
1797:
1798: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1799: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1794: -- No message needed
1795: l_return_status := OKL_API.G_RET_STS_ERROR;
1796: END IF;
1797:
1798: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1799: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1800: l_overall_status := l_return_status;
1801: END IF;
1802: END IF;
1795: l_return_status := OKL_API.G_RET_STS_ERROR;
1796: END IF;
1797:
1798: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1799: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1800: l_overall_status := l_return_status;
1801: END IF;
1802: END IF;
1803:
1816: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1817: END IF;
1818:
1819: -- store SQL error message on message stack for caller
1820: OKL_API.SET_MESSAGE (
1821: p_app_name => G_APP_NAME
1822: ,p_msg_name => G_UNEXPECTED_ERROR
1823: ,p_token1 => G_SQLCODE_TOKEN
1824: ,p_token1_value => sqlcode
1826: ,p_token2_value => sqlerrm);
1827:
1828:
1829: -- notify caller of an UNEXPECTED error
1830: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1831:
1832: END validate_qlt_conditions;
1833:
1834:
1853:
1854:
1855:
1856: l_rulv_rec rulv_rec_type;
1857: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1858: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1859: l_line_level_yn BOOLEAN := FALSE;
1860: l_asset_cnt NUMBER;
1861: l_rule_chr_id NUMBER;
1854:
1855:
1856: l_rulv_rec rulv_rec_type;
1857: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1858: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1859: l_line_level_yn BOOLEAN := FALSE;
1860: l_asset_cnt NUMBER;
1861: l_rule_chr_id NUMBER;
1862: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_rule_level';
1891: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1892: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
1893: END IF;
1894:
1895: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1896: l_line_level_yn := TRUE;
1897: END IF;
1898:
1899: EXIT WHEN (l_asset_cnt = p_asset_tbl.LAST
1911: ,p_msg_name => 'OKL_AM_WRONG_OPERAND_LEVEL'
1912: ,p_token1 => 'RULE'
1913: ,p_token1_value => p_operand);
1914:
1915: l_return_status := OKL_API.G_RET_STS_ERROR;
1916:
1917: ELSE
1918: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1919: END IF;
1914:
1915: l_return_status := OKL_API.G_RET_STS_ERROR;
1916:
1917: ELSE
1918: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1919: END IF;
1920:
1921: END IF;
1922:
1919: END IF;
1920:
1921: END IF;
1922:
1923: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1924: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1925: l_overall_status := l_return_status;
1926: END IF;
1927: END IF;
1920:
1921: END IF;
1922:
1923: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1924: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1925: l_overall_status := l_return_status;
1926: END IF;
1927: END IF;
1928:
1941: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1942: END IF;
1943:
1944: -- store SQL error message on message stack for caller
1945: OKL_API.SET_MESSAGE (
1946: p_app_name => G_APP_NAME
1947: ,p_msg_name => G_UNEXPECTED_ERROR
1948: ,p_token1 => G_SQLCODE_TOKEN
1949: ,p_token1_value => sqlcode
1951: ,p_token2_value => sqlerrm);
1952:
1953:
1954: -- notify caller of an UNEXPECTED error
1955: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1956:
1957: END validate_rule_level;
1958:
1959:
1987: px_sub_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
1988: x_rule_value OUT NOCOPY NUMBER,
1989: x_return_status OUT NOCOPY VARCHAR2) IS
1990:
1991: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1992: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1993: l_rule_value NUMBER;
1994:
1995: --SECHAWLA 26-FEB-03 Bug # 2819559 : New declarations
1988: x_rule_value OUT NOCOPY NUMBER,
1989: x_return_status OUT NOCOPY VARCHAR2) IS
1990:
1991: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1992: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1993: l_rule_value NUMBER;
1994:
1995: --SECHAWLA 26-FEB-03 Bug # 2819559 : New declarations
1996: l_rule_chr_id NUMBER;
2053: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2054: 'after call to okl_accounting_util.convert_to_contract_currency:'||l_return_status);
2055: END IF;
2056:
2057: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2058: l_rule_value := lx_converted_amount ;
2059: END IF;
2060: END IF;
2061: END IF;
2104: END IF;
2105:
2106: END IF;
2107:
2108: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2109: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2110: THEN
2111: l_overall_status := l_return_status;
2112: END IF;
2105:
2106: END IF;
2107:
2108: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2109: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2110: THEN
2111: l_overall_status := l_return_status;
2112: END IF;
2113: END IF;
2168: ,p_token1_value => p_rgd_code
2169: ,p_token2 => 'RULE'
2170: ,p_token2_value => p_operand);
2171:
2172: l_overall_status := OKL_API.G_RET_STS_ERROR;
2173:
2174: END IF;
2175:
2176: x_rule_value := l_rule_value;
2188: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2189: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2190: END IF;
2191: -- store SQL error message on message stack for caller
2192: OKL_API.SET_MESSAGE (
2193: p_app_name => G_APP_NAME
2194: ,p_msg_name => G_UNEXPECTED_ERROR
2195: ,p_token1 => G_SQLCODE_TOKEN
2196: ,p_token1_value => sqlcode
2197: ,p_token2 => G_SQLERRM_TOKEN
2198: ,p_token2_value => sqlerrm);
2199:
2200: -- notify caller of an UNEXPECTED error
2201: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2202:
2203: END get_rule_value;
2204:
2205:
2226: x_min_value OUT NOCOPY NUMBER, -- PAGARG 4102565 Added
2227: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2228:
2229: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2230: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2231: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2232: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2233: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2234: l_max_value NUMBER;
2227: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2228:
2229: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2230: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2231: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2232: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2233: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2234: l_max_value NUMBER;
2235: l_min_value NUMBER;
2228:
2229: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2230: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2231: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2232: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2233: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2234: l_max_value NUMBER;
2235: l_min_value NUMBER;
2236: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_min_max_rule_value';
2229: l_dummy_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
2230: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2231: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2232: l_max_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2233: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2234: l_max_value NUMBER;
2235: l_min_value NUMBER;
2236: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_min_max_rule_value';
2237: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2264: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2265: 'after call to get_rule_value :'||l_max_status);
2266: END IF;
2267:
2268: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2269: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2270: THEN
2271: l_overall_status := l_max_status;
2272: END IF;
2265: 'after call to get_rule_value :'||l_max_status);
2266: END IF;
2267:
2268: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2269: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2270: THEN
2271: l_overall_status := l_max_status;
2272: END IF;
2273: END IF;
2271: l_overall_status := l_max_status;
2272: END IF;
2273: END IF;
2274:
2275: IF l_max_status = OKL_API.G_RET_STS_SUCCESS
2276: AND l_max_value IS NOT NULL THEN
2277: px_rule_value := least (px_rule_value, l_max_value);
2278: END IF;
2279:
2299: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2300: 'after call to get_rule_value :'||l_max_status);
2301: END IF;
2302:
2303: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2304: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2305: THEN
2306: l_overall_status := l_max_status;
2307: END IF;
2300: 'after call to get_rule_value :'||l_max_status);
2301: END IF;
2302:
2303: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2304: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2305: THEN
2306: l_overall_status := l_max_status;
2307: END IF;
2308: END IF;
2327: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2328: 'after call to get_rule_value :'||l_min_status);
2329: END IF;
2330:
2331: IF l_min_status <> OKL_API.G_RET_STS_SUCCESS THEN
2332: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2333: THEN
2334: l_overall_status := l_min_status;
2335: END IF;
2328: 'after call to get_rule_value :'||l_min_status);
2329: END IF;
2330:
2331: IF l_min_status <> OKL_API.G_RET_STS_SUCCESS THEN
2332: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2333: THEN
2334: l_overall_status := l_min_status;
2335: END IF;
2336: END IF;
2334: l_overall_status := l_min_status;
2335: END IF;
2336: END IF;
2337:
2338: IF l_max_status = OKL_API.G_RET_STS_SUCCESS
2339: AND l_max_value IS NOT NULL
2340: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2341: AND l_min_value IS NOT NULL
2342: AND l_max_value < l_min_value THEN
2336: END IF;
2337:
2338: IF l_max_status = OKL_API.G_RET_STS_SUCCESS
2339: AND l_max_value IS NOT NULL
2340: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2341: AND l_min_value IS NOT NULL
2342: AND l_max_value < l_min_value THEN
2343:
2344: -- Invalid combination of values
2354: ,p_token3_value => p_rgd_code
2355: ,p_token4 => 'RULE'
2356: ,p_token4_value => p_operand);
2357:
2358: l_overall_status := OKL_API.G_RET_STS_ERROR;
2359:
2360: END IF;
2361:
2362: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2358: l_overall_status := OKL_API.G_RET_STS_ERROR;
2359:
2360: END IF;
2361:
2362: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2363: AND l_max_status = OKL_API.G_RET_STS_SUCCESS
2364: AND l_max_value IS NOT NULL THEN
2365: px_rule_value := least (px_rule_value, l_max_value);
2366: END IF;
2359:
2360: END IF;
2361:
2362: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2363: AND l_max_status = OKL_API.G_RET_STS_SUCCESS
2364: AND l_max_value IS NOT NULL THEN
2365: px_rule_value := least (px_rule_value, l_max_value);
2366: END IF;
2367:
2364: AND l_max_value IS NOT NULL THEN
2365: px_rule_value := least (px_rule_value, l_max_value);
2366: END IF;
2367:
2368: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2369: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2370: AND l_min_value IS NOT NULL THEN
2371: px_rule_value := greatest (px_rule_value, l_min_value);
2372: END IF;
2365: px_rule_value := least (px_rule_value, l_max_value);
2366: END IF;
2367:
2368: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
2369: AND l_min_status = OKL_API.G_RET_STS_SUCCESS
2370: AND l_min_value IS NOT NULL THEN
2371: px_rule_value := greatest (px_rule_value, l_min_value);
2372: END IF;
2373:
2390: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2391: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2392: END IF;
2393: -- store SQL error message on message stack for caller
2394: OKL_API.SET_MESSAGE (
2395: p_app_name => G_APP_NAME
2396: ,p_msg_name => G_UNEXPECTED_ERROR
2397: ,p_token1 => G_SQLCODE_TOKEN
2398: ,p_token1_value => sqlcode
2399: ,p_token2 => G_SQLERRM_TOKEN
2400: ,p_token2_value => sqlerrm);
2401:
2402: -- notify caller of an UNEXPECTED error
2403: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2404:
2405: END get_min_max_rule_value;
2406:
2407:
2431: x_min_value OUT NOCOPY NUMBER, -- PAGARG 4102565 Added
2432: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2433:
2434: l_rulv_rec rulv_rec_type;
2435: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2436: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2437: l_operand_value NUMBER;
2438: l_rule_chr_id NUMBER;
2439: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_operand_value';
2432: x_max_value OUT NOCOPY NUMBER) IS -- PAGARG 4102565 Added
2433:
2434: l_rulv_rec rulv_rec_type;
2435: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2436: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2437: l_operand_value NUMBER;
2438: l_rule_chr_id NUMBER;
2439: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_operand_value';
2440: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2496: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2497: 'after call to okl_am_util_pvt.get_rule_record'||l_return_status);
2498: END IF;
2499:
2500: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2501:
2502: -- ********************************************************
2503: -- Evalute rule record: not_applicable, constant or formula
2504: -- The field INFO1 indicated if the rule is either
2534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2535: 'after call to get_rule_value'||l_return_status);
2536: END IF;
2537:
2538: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2539: AND p_operand IN ('AMCTPE','AMBPOC')
2540: AND l_operand_value IS NOT NULL THEN
2541:
2542: IF (is_debug_statement_on) THEN
2563: END IF;
2564:
2565: END IF;
2566:
2567: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2568: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2569: l_overall_status := l_return_status;
2570: END IF;
2571: END IF;
2564:
2565: END IF;
2566:
2567: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2568: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2569: l_overall_status := l_return_status;
2570: END IF;
2571: END IF;
2572:
2594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2595: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2596: END IF;
2597: -- store SQL error message on message stack for caller
2598: OKL_API.SET_MESSAGE (
2599: p_app_name => G_APP_NAME
2600: ,p_msg_name => G_UNEXPECTED_ERROR
2601: ,p_token1 => G_SQLCODE_TOKEN
2602: ,p_token1_value => sqlcode
2603: ,p_token2 => G_SQLERRM_TOKEN
2604: ,p_token2_value => sqlerrm);
2605:
2606: -- notify caller of an UNEXPECTED error
2607: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2608:
2609: END get_operand_value;
2610:
2611:
2626: px_operand IN OUT NOCOPY VARCHAR2,
2627: x_operand_value OUT NOCOPY NUMBER,
2628: x_return_status OUT NOCOPY VARCHAR2) IS
2629:
2630: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2631: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2632: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
2633: l_operand_value NUMBER;
2634: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_non_rule_operand_value';
2627: x_operand_value OUT NOCOPY NUMBER,
2628: x_return_status OUT NOCOPY VARCHAR2) IS
2629:
2630: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2631: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2632: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
2633: l_operand_value NUMBER;
2634: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_non_rule_operand_value';
2635: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2664: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2665: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2666: END IF;
2667:
2668: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2669: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2670: l_overall_status := l_return_status;
2671: END IF;
2672: END IF;
2665: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2666: END IF;
2667:
2668: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2669: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2670: l_overall_status := l_return_status;
2671: END IF;
2672: END IF;
2673:
2681: l_operand_value := to_number (px_operand);
2682: px_operand := G_MISC_QLT;
2683: EXCEPTION
2684: WHEN OTHERS THEN
2685: l_overall_status := OKL_API.G_RET_STS_ERROR;
2686: END;
2687:
2688: END IF;
2689:
2703: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2704: END IF;
2705:
2706: -- store SQL error message on message stack for caller
2707: OKL_API.SET_MESSAGE (
2708: p_app_name => G_APP_NAME
2709: ,p_msg_name => G_UNEXPECTED_ERROR
2710: ,p_token1 => G_SQLCODE_TOKEN
2711: ,p_token1_value => sqlcode
2712: ,p_token2 => G_SQLERRM_TOKEN
2713: ,p_token2_value => sqlerrm);
2714:
2715: -- notify caller of an UNEXPECTED error
2716: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2717:
2718: END get_non_rule_operand_value;
2719:
2720:
2749: x_return_status OUT NOCOPY VARCHAR2) IS
2750:
2751: l_rulv_rec rulv_rec_type;
2752: l_tqlv_tbl tqlv_tbl_type;
2753: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2754: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2755: l_operand_total NUMBER;
2756: l_line_total NUMBER;
2757: l_rgd_code VARCHAR2(30);
2750:
2751: l_rulv_rec rulv_rec_type;
2752: l_tqlv_tbl tqlv_tbl_type;
2753: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2754: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2755: l_operand_total NUMBER;
2756: l_line_total NUMBER;
2757: l_rgd_code VARCHAR2(30);
2758: l_calculate_yn BOOLEAN;
2815: l_rgd_code := p_head_rgd_code;
2816:
2817: END IF;
2818:
2819: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2820: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2821: l_overall_status := l_return_status;
2822: END IF;
2823: END IF;
2816:
2817: END IF;
2818:
2819: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2820: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2821: l_overall_status := l_return_status;
2822: END IF;
2823: END IF;
2824:
2829: IF p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
2830: l_calculate_yn := TRUE;
2831:
2832: ELSIF p_operand IN ('AMYOUB', 'AMYSAM', 'AMYFEE')
2833: AND l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
2834:
2835: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2836:
2837: okl_am_util_pvt.get_rule_record (
2847: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2848: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2849: END IF;
2850:
2851: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS)
2852: OR ( l_return_status = OKL_API.G_RET_STS_SUCCESS
2853: AND l_rulv_rec.RULE_INFORMATION1 = 'Y')
2854: THEN
2855: /*
2848: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2849: END IF;
2850:
2851: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS)
2852: OR ( l_return_status = OKL_API.G_RET_STS_SUCCESS
2853: AND l_rulv_rec.RULE_INFORMATION1 = 'Y')
2854: THEN
2855: /*
2856: IF p_qtev_rec.partial_yn = 'Y' THEN
2921: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2922: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2923: END IF;
2924:
2925: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2926: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2927: l_overall_status := l_return_status;
2928: END IF;
2929: END IF;
2922: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2923: END IF;
2924:
2925: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2926: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2927: l_overall_status := l_return_status;
2928: END IF;
2929: END IF;
2930:
2949: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2950: END IF;
2951:
2952:
2953: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2954: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2955: l_overall_status := l_return_status;
2956: END IF;
2957: END IF;
2950: END IF;
2951:
2952:
2953: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2954: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2955: l_overall_status := l_return_status;
2956: END IF;
2957: END IF;
2958:
2981: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2982: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2983: END IF;
2984:
2985: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2986: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2987: THEN
2988: l_overall_status := l_return_status;
2989: END IF;
2982: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2983: END IF;
2984:
2985: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2986: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
2987: THEN
2988: l_overall_status := l_return_status;
2989: END IF;
2990: END IF;
2999: -- ************
3000: -- Save results
3001: -- ************
3002:
3003: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
3004:
3005:
3006: IF l_tqlv_tbl.COUNT > 0 THEN
3007:
3101: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3102: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3103: END IF;
3104: -- store SQL error message on message stack for caller
3105: OKL_API.SET_MESSAGE (
3106: p_app_name => G_APP_NAME
3107: ,p_msg_name => G_UNEXPECTED_ERROR
3108: ,p_token1 => G_SQLCODE_TOKEN
3109: ,p_token1_value => sqlcode
3110: ,p_token2 => G_SQLERRM_TOKEN
3111: ,p_token2_value => sqlerrm);
3112:
3113: -- notify caller of an UNEXPECTED error
3114: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3115:
3116: END process_stream_type_operand;
3117:
3118:
3167: l_sub_line_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3168: l_sub_head_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3169: l_sub_head2_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3170:
3171: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3172: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3173: l_header_status VARCHAR2(1);
3174: l_operand VARCHAR2(30);
3175: l_operand_total NUMBER;
3168: l_sub_head_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3169: l_sub_head2_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
3170:
3171: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3172: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3173: l_header_status VARCHAR2(1);
3174: l_operand VARCHAR2(30);
3175: l_operand_total NUMBER;
3176: l_operand_value NUMBER;
3257: IF (is_debug_statement_on) THEN
3258: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3259: 'After validate_qlt_conditions call Value of l_return_status'|| l_return_status);
3260: END IF;
3261: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3262: RAISE l_invalid_operand;
3263: END IF;
3264:
3265: END IF;
3297:
3298: -- If the corresponding rule is not checked (<> 'Y') then set the global
3299: -- variable (G_PERFORM_CONT_FEE_CALC) to False which will ensure that
3300: -- processing downstream will calculate financed fee's
3301: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3302: AND l_rulv_rec.RULE_INFORMATION1 <> 'Y'
3303: THEN
3304: G_PERFORM_CONT_FEE_CALC := FALSE;
3305: END IF;
3453: IF (is_debug_statement_on) THEN
3454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3455: 'After get_operand_value call 2 Value of l_return_status'|| l_return_status);
3456: END IF;
3457: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3458: THEN
3459: append_quote_line (
3460: p_qtev_rec => p_qtev_rec,
3461: p_qlt_code => p_operand,
3505: x_return_status => l_return_status,
3506: p_message_yn => FALSE);
3507:
3508: --Check for rule_information4 to be LINE_CLCULATION or PRORATE
3509: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3510: AND l_rulv_rec.RULE_INFORMATION4 IN ('LINE_CALCULATION', 'PRORATE')
3511: THEN
3512: --Obtain the line level rule information for applicability of Property Tax and Bill Tax
3513: okl_am_util_pvt.get_rule_record(
3518: x_rulv_rec => eptx_rulv_rec,
3519: x_return_status => l_return_status,
3520: p_message_yn => FALSE);
3521:
3522: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3523: AND eptx_rulv_rec.RULE_INFORMATION1 = 'Y' -- Property Tax Applicable
3524: THEN
3525: -- Obtain the operand value
3526:
3551: IF (is_debug_statement_on) THEN
3552: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3553: 'After get_rule_value call 3 Value of l_return_status'|| l_return_status);
3554: END IF;
3555: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3556: THEN
3557: append_quote_line (
3558: p_qtev_rec => p_qtev_rec,
3559: p_qlt_code => p_operand,
3609: IF (is_debug_statement_on) THEN
3610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3611: 'After get_operand_value call 4 Value of l_return_status'|| l_return_status);
3612: END IF;
3613: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3614:
3615: get_non_rule_operand_value (
3616: p_chr_id => l_chr_id,
3617: p_cle_id => p_cle_id,
3702: IF (is_debug_statement_on) THEN
3703: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3704: 'After get_operand_value call 6 Value of l_return_status'|| l_return_status);
3705: END IF;
3706: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3707: -- SECHAWLA - Bug 2680542 : Changed reference l_reject_asset_tbl (l_asset_cnt) to l_reject_asset_tbl (l_asset_cnt).p_asset_id
3708: -- Changed reference p_asset_tbl (l_asset_cnt) to p_asset_tbl (l_asset_cnt).p_asset_id
3709: l_reject_asset_tbl (l_asset_cnt).p_asset_id := p_asset_tbl (l_asset_cnt).p_asset_id;
3710: --SECHAWLA 20-FEB-03 Bug # 2757368 : added code to populate asset qty and quote qty in l_reject_asset_tbl
3757: x_rulv_rec => l_head_rulv_rec,
3758: x_return_status => l_return_status,
3759: p_message_yn => FALSE);
3760:
3761: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3762: AND l_head_rulv_rec.RULE_INFORMATION4 IN
3763: ('LINE_CALCULATION','PRORATE','NO_PRORATE') THEN
3764:
3765: IF l_head_rulv_rec.RULE_INFORMATION4 <>
3790: -- **********************************
3791: -- Contract-level rule does not exist
3792: -- **********************************
3793:
3794: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3795:
3796: -- *********************************************
3797: -- No line-level or header-level rules are found
3798: -- Try to find executable operand or constant
3846: p_asset_qty => l_reject_asset_tbl(l_asset_cnt).p_asset_qty,
3847: p_quote_qty => l_reject_asset_tbl(l_asset_cnt).p_quote_qty,
3848: p_rule_information4 => l_head_rulv_rec.RULE_INFORMATION4,
3849: p_formula_name => p_formula_name,
3850: p_success_yn => OKL_API.G_RET_STS_ERROR,
3851: px_tqlv_tbl => px_tqlv_tbl,
3852: p_sty_id => NULL,
3853: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
3854: p_defaulted_yn => 'N',
3867: -- ***********************************************************
3868: -- Contract-level rule is used as default for line calculation
3869: -- ***********************************************************
3870:
3871: ELSIF l_return_status = OKL_API.G_RET_STS_SUCCESS
3872: AND l_head_rulv_rec.RULE_INFORMATION4 =
3873: 'LINE_CALCULATION' THEN
3874:
3875: LOOP
3926: -- *****************************************
3927: -- Contract-level rule is used for proration
3928: -- *****************************************
3929:
3930: ELSIF l_return_status = OKL_API.G_RET_STS_SUCCESS
3931: AND l_head_rulv_rec.RULE_INFORMATION4 = 'PRORATE' THEN
3932:
3933: LOOP
3934:
3931: AND l_head_rulv_rec.RULE_INFORMATION4 = 'PRORATE' THEN
3932:
3933: LOOP
3934:
3935: IF l_header_status = OKL_API.G_RET_STS_SUCCESS THEN
3936: -- SECHAWLA 24-FEB-03 - Bug 2817025 : Do not prorate the amount in case of Repurchase quote
3937: IF p_qtev_rec.qtp_code <> 'REP_STANDARD' THEN
3938: -- Use prorated header value
3939: prorate_operand (
4041: p_qlt_code => p_operand,
4042: p_amount => NULL,
4043: p_kle_id => NULL,
4044: p_formula_name => p_formula_name,
4045: p_success_yn => OKL_API.G_RET_STS_SUCCESS,
4046: p_sub_tqlv_tbl => l_sub_head2_tqlv_tbl,
4047: p_sty_id => NULL,
4048: p_defaulted_yn => 'N',
4049: px_tqlv_tbl => px_tqlv_tbl,
4057: -- *********************************************
4058: -- Contract-level rule is used without proration
4059: -- *********************************************
4060:
4061: ELSIF l_return_status = OKL_API.G_RET_STS_SUCCESS
4062: AND l_head_rulv_rec.RULE_INFORMATION4 = 'NO_PRORATE' THEN
4063:
4064: -- ********************************************
4065: -- Save one non-prorate header-level quote line
4144: p_asset_qty => l_reject_asset_tbl(l_asset_cnt).p_asset_qty,
4145: p_quote_qty => l_reject_asset_tbl(l_asset_cnt).p_quote_qty,
4146: p_rule_information4 => l_head_rulv_rec.RULE_INFORMATION4,
4147: p_formula_name => p_formula_name,
4148: p_success_yn => OKL_API.G_RET_STS_ERROR,
4149: p_sty_id => NULL,
4150: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
4151: p_defaulted_yn => 'N',
4152: px_tqlv_tbl => px_tqlv_tbl,
4197: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4198: END IF;
4199:
4200: -- store SQL error message on message stack for caller
4201: OKL_API.SET_MESSAGE (
4202: p_app_name => G_APP_NAME
4203: ,p_msg_name => G_UNEXPECTED_ERROR
4204: ,p_token1 => G_SQLCODE_TOKEN
4205: ,p_token1_value => sqlcode
4206: ,p_token2 => G_SQLERRM_TOKEN
4207: ,p_token2_value => sqlerrm);
4208:
4209: -- notify caller of an UNEXPECTED error
4210: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4211:
4212: END process_operand;
4213:
4214:
4237: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
4238: x_formula_total OUT NOCOPY NUMBER,
4239: x_return_status OUT NOCOPY VARCHAR2) IS
4240:
4241: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4242: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4243: l_operand_total NUMBER;
4244: l_formula_total NUMBER := 0;
4245: l_curr_char VARCHAR2(1);
4238: x_formula_total OUT NOCOPY NUMBER,
4239: x_return_status OUT NOCOPY VARCHAR2) IS
4240:
4241: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4242: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4243: l_operand_total NUMBER;
4244: l_formula_total NUMBER := 0;
4245: l_curr_char VARCHAR2(1);
4246: l_formula_id okl_formulae_v.id%TYPE := NULL;
4302: 'before call to okl_am_util_pvt.get_formula_value :'||l_return_status);
4303: END IF;
4304:
4305:
4306: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4307: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4308: l_overall_status := l_return_status;
4309: END IF;
4310: END IF;
4303: END IF;
4304:
4305:
4306: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4307: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4308: l_overall_status := l_return_status;
4309: END IF;
4310: END IF;
4311:
4319: AND l_formula_string LIKE '%' || p_operand || '%')
4320: THEN
4321: -- First condition ensures non-empty string
4322: -- Second condition ensures absence of recursive references
4323: l_return_status := OKL_API.G_RET_STS_ERROR;
4324: END IF;
4325:
4326: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4327: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4322: -- Second condition ensures absence of recursive references
4323: l_return_status := OKL_API.G_RET_STS_ERROR;
4324: END IF;
4325:
4326: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4327: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4328: l_overall_status := l_return_status;
4329: END IF;
4330: END IF;
4323: l_return_status := OKL_API.G_RET_STS_ERROR;
4324: END IF;
4325:
4326: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4327: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4328: l_overall_status := l_return_status;
4329: END IF;
4330: END IF;
4331: bug 4333243 -- End*/
4337: -- (operand-rule combo) or
4338: -- (b) another formula in the formula engine (executable operand).
4339: -- *******************************************************************
4340:
4341: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4342:
4343: -- make sure last operand is processed
4344: l_formula_string := l_formula_string || '+';
4345:
4394:
4395: ELSE
4396: -- Should never happen because
4397: -- Formula Engine validation above would fail
4398: l_return_status := OKL_API.G_RET_STS_ERROR;
4399: -- invalid id Formula Label Id
4400: OKC_API.SET_MESSAGE (
4401: p_app_name => G_OKC_APP_NAME,
4402: p_msg_name => G_INVALID_VALUE,
4403: p_token1 => G_COL_NAME_TOKEN,
4404: p_token1_value => 'Formula Label Id');
4405: END IF;
4406:
4407: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4408: IF l_overall_status <>
4409: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4410: l_overall_status := l_return_status;
4411: END IF;
4405: END IF;
4406:
4407: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4408: IF l_overall_status <>
4409: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4410: l_overall_status := l_return_status;
4411: END IF;
4412: END IF;
4413:
4424: END LOOP;
4425:
4426: ELSE
4427:
4428: l_return_status := OKL_API.G_RET_STS_ERROR;
4429: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4430: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4431: l_overall_status := l_return_status;
4432: END IF;
4425:
4426: ELSE
4427:
4428: l_return_status := OKL_API.G_RET_STS_ERROR;
4429: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4430: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4431: l_overall_status := l_return_status;
4432: END IF;
4433: END IF;
4426: ELSE
4427:
4428: l_return_status := OKL_API.G_RET_STS_ERROR;
4429: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4430: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4431: l_overall_status := l_return_status;
4432: END IF;
4433: END IF;
4434:
4458: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4459: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4460: END IF;
4461: -- store SQL error message on message stack for caller
4462: OKL_API.SET_MESSAGE (
4463: p_app_name => G_APP_NAME
4464: ,p_msg_name => G_UNEXPECTED_ERROR
4465: ,p_token1 => G_SQLCODE_TOKEN
4466: ,p_token1_value => sqlcode
4467: ,p_token2 => G_SQLERRM_TOKEN
4468: ,p_token2_value => sqlerrm);
4469:
4470: -- notify caller of an UNEXPECTED error
4471: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4472:
4473: END process_top_formula;
4474:
4475: -- Start of comments
4500: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
4501: x_formula_total OUT NOCOPY NUMBER,
4502: x_return_status OUT NOCOPY VARCHAR2) IS
4503:
4504: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4505: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4506: l_operand_total NUMBER;
4507: l_formula_total NUMBER := 0;
4508: l_curr_char VARCHAR2(1);
4501: x_formula_total OUT NOCOPY NUMBER,
4502: x_return_status OUT NOCOPY VARCHAR2) IS
4503:
4504: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4505: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4506: l_operand_total NUMBER;
4507: l_formula_total NUMBER := 0;
4508: l_curr_char VARCHAR2(1);
4509: l_formula_id okl_formulae_v.id%TYPE := NULL;
4576: IF (is_debug_statement_on) THEN
4577: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4578: 'after call to okl_am_util_pvt.get_formula_value :: value of l_return_status'|| l_return_status);
4579: END IF;
4580: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4581: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4582: l_overall_status := l_return_status;
4583: END IF;
4584: END IF;
4577: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4578: 'after call to okl_am_util_pvt.get_formula_value :: value of l_return_status'|| l_return_status);
4579: END IF;
4580: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4581: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4582: l_overall_status := l_return_status;
4583: END IF;
4584: END IF;
4585:
4593: AND l_formula_string LIKE '%' || p_operand || '%')
4594: THEN
4595: -- First condition ensures non-empty string
4596: -- Second condition ensures absence of recursive references
4597: l_return_status := OKL_API.G_RET_STS_ERROR;
4598: END IF;
4599:
4600: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4601: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4596: -- Second condition ensures absence of recursive references
4597: l_return_status := OKL_API.G_RET_STS_ERROR;
4598: END IF;
4599:
4600: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4601: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4602: l_overall_status := l_return_status;
4603: END IF;
4604: END IF;
4597: l_return_status := OKL_API.G_RET_STS_ERROR;
4598: END IF;
4599:
4600: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4601: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4602: l_overall_status := l_return_status;
4603: END IF;
4604: END IF;
4605: */
4614: IF (is_debug_statement_on) THEN
4615: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4616: 'value of l_overall_status'|| l_overall_status);
4617: END IF;
4618: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4619:
4620: -- make sure last operand is processed
4621: l_formula_string := l_formula_string || '+';
4622:
4677: END IF;
4678: ELSE
4679: -- Should never happen because
4680: -- Formula Engine validation above would fail
4681: l_return_status := OKL_API.G_RET_STS_ERROR;
4682: -- invalid id Formula Label Id
4683: OKC_API.SET_MESSAGE (
4684: p_app_name => G_OKC_APP_NAME,
4685: p_msg_name => G_INVALID_VALUE,
4686: p_token1 => G_COL_NAME_TOKEN,
4687: p_token1_value => 'Formula Label Id');
4688: END IF;
4689:
4690: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4691: IF l_overall_status <>
4692: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4693: l_overall_status := l_return_status;
4694: END IF;
4688: END IF;
4689:
4690: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4691: IF l_overall_status <>
4692: OKL_API.G_RET_STS_UNEXP_ERROR THEN
4693: l_overall_status := l_return_status;
4694: END IF;
4695: END IF;
4696:
4719: G_PERFORM_CONT_FEE_CALC := TRUE; -- ansethur fix for bug 5579808 - resetting this global variable.
4720:
4721: ELSE
4722:
4723: l_return_status := OKL_API.G_RET_STS_ERROR;
4724: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4725: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4726: l_overall_status := l_return_status;
4727: END IF;
4720:
4721: ELSE
4722:
4723: l_return_status := OKL_API.G_RET_STS_ERROR;
4724: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4725: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4726: l_overall_status := l_return_status;
4727: END IF;
4728: END IF;
4721: ELSE
4722:
4723: l_return_status := OKL_API.G_RET_STS_ERROR;
4724: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4725: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4726: l_overall_status := l_return_status;
4727: END IF;
4728: END IF;
4729:
4759: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4760: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4761: END IF;
4762: -- store SQL error message on message stack for caller
4763: OKL_API.SET_MESSAGE (
4764: p_app_name => G_APP_NAME
4765: ,p_msg_name => G_UNEXPECTED_ERROR
4766: ,p_token1 => G_SQLCODE_TOKEN
4767: ,p_token1_value => sqlcode
4768: ,p_token2 => G_SQLERRM_TOKEN
4769: ,p_token2_value => sqlerrm);
4770:
4771: -- notify caller of an UNEXPECTED error
4772: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4773:
4774: END process_top_formula_new;
4775:
4776:
4802: x_formula_total OUT NOCOPY NUMBER,
4803: x_return_status OUT NOCOPY VARCHAR2) IS
4804:
4805: l_rulv_rec rulv_rec_type;
4806: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4807: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4808: l_rgd_code VARCHAR2(30) := NULL;
4809: l_quote_subtotal NUMBER;
4810: l_rule_chr_id NUMBER;
4803: x_return_status OUT NOCOPY VARCHAR2) IS
4804:
4805: l_rulv_rec rulv_rec_type;
4806: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4807: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4808: l_rgd_code VARCHAR2(30) := NULL;
4809: l_quote_subtotal NUMBER;
4810: l_rule_chr_id NUMBER;
4811:
4829: l_rgd_code := p_head_rgd_code;
4830: END IF;
4831:
4832:
4833: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4834: AND p_qtev_rec.qtp_code NOT LIKE 'TER_MAN%'
4835: AND l_rgd_code IS NOT NULL
4836: AND p_rdf_code IS NOT NULL THEN
4837:
4859: IF (is_debug_statement_on) THEN
4860: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4861: 'after call to okl_am_util_pvt.get_rule_record from process_top_rule Value of l_return_status'|| l_return_status);
4862: END IF;
4863: ELSIF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4864: AND p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
4865:
4866: l_rulv_rec.RULE_INFORMATION2 := 'QUOTE_TERMINATION_MANUAL';
4867: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4863: ELSIF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4864: AND p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
4865:
4866: l_rulv_rec.RULE_INFORMATION2 := 'QUOTE_TERMINATION_MANUAL';
4867: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4868:
4869: ELSE
4870: l_return_status := OKL_API.G_RET_STS_ERROR;
4871: END IF;
4866: l_rulv_rec.RULE_INFORMATION2 := 'QUOTE_TERMINATION_MANUAL';
4867: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4868:
4869: ELSE
4870: l_return_status := OKL_API.G_RET_STS_ERROR;
4871: END IF;
4872:
4873: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4874: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4869: ELSE
4870: l_return_status := OKL_API.G_RET_STS_ERROR;
4871: END IF;
4872:
4873: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4874: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4875: l_overall_status := l_return_status;
4876: END IF;
4877: END IF;
4870: l_return_status := OKL_API.G_RET_STS_ERROR;
4871: END IF;
4872:
4873: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4874: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4875: l_overall_status := l_return_status;
4876: END IF;
4877: END IF;
4878:
4876: END IF;
4877: END IF;
4878:
4879: -- Uncomment if you want always create default lines
4880: -- l_overall_status := OKL_API.G_RET_STS_ERROR;
4881:
4882: -- **************************************
4883: -- Disect top formula string,
4884: -- calculate each operand and their total
4883: -- Disect top formula string,
4884: -- calculate each operand and their total
4885: -- **************************************
4886:
4887: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4888: -- AND l_rulv_rec.RULE_INFORMATION1 = 'Y' -- Field is disabled
4889: AND NVL (l_rulv_rec.RULE_INFORMATION2, G_MISS_CHAR) <> G_MISS_CHAR THEN
4890:
4891: process_top_formula_new ( -- rmunjulu 4300443 Call this new performant procedure
4902: IF (is_debug_statement_on) THEN
4903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4904: 'after call to process_top_formula_new from process_top_rule Value of l_return_status'|| l_return_status);
4905: END IF;
4906: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4907: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
4908: THEN
4909: l_overall_status := l_return_status;
4910: END IF;
4903: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4904: 'after call to process_top_formula_new from process_top_rule Value of l_return_status'|| l_return_status);
4905: END IF;
4906: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4907: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
4908: THEN
4909: l_overall_status := l_return_status;
4910: END IF;
4911: END IF;
4910: END IF;
4911: END IF;
4912:
4913: ELSE
4914: l_return_status := OKL_API.G_RET_STS_ERROR;
4915: END IF;
4916:
4917: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4918: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4913: ELSE
4914: l_return_status := OKL_API.G_RET_STS_ERROR;
4915: END IF;
4916:
4917: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4918: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4919: l_overall_status := l_return_status;
4920: END IF;
4921: END IF;
4914: l_return_status := OKL_API.G_RET_STS_ERROR;
4915: END IF;
4916:
4917: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4918: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4919: l_overall_status := l_return_status;
4920: END IF;
4921: END IF;
4922:
4923: -- **************************************
4924: -- Create default lines if no top formula
4925: -- **************************************
4926:
4927: IF ( l_overall_status <> OKL_API.G_RET_STS_SUCCESS
4928: OR px_tqlv_tbl.COUNT = 0)
4929: AND p_qtev_rec.qtp_code NOT LIKE 'TER_MAN%'
4930: AND p_qtev_rec.qtp_code NOT IN -- rmunjulu Added this AND for bug 3954846
4931: (
4975: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4976: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4977: END IF;
4978: -- store SQL error message on message stack for caller
4979: OKL_API.SET_MESSAGE (
4980: p_app_name => G_APP_NAME
4981: ,p_msg_name => G_UNEXPECTED_ERROR
4982: ,p_token1 => G_SQLCODE_TOKEN
4983: ,p_token1_value => sqlcode
4984: ,p_token2 => G_SQLERRM_TOKEN
4985: ,p_token2_value => sqlerrm);
4986:
4987: -- notify caller of an UNEXPECTED error
4988: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4989:
4990: END process_top_rule;
4991:
4992: -- Start of comments
5005: p_asset_tbl IN asset_tbl_type,
5006: px_tqlv_tbl IN OUT NOCOPY tqlv_tbl_type,
5007: x_return_status OUT NOCOPY VARCHAR2) IS
5008:
5009: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5010: l_sub_line_tqlv_tbl tqlv_tbl_type := G_EMPTY_TQLV_TBL;
5011: l_bill_adjust_value NUMBER;
5012: l_kle_id NUMBER;
5013: l_sty_id NUMBER;
5013: l_sty_id NUMBER;
5014: l_operand_total NUMBER;
5015: l_prorate_ratio NUMBER;
5016:
5017: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5018:
5019: l_api_version CONSTANT NUMBER := 1;
5020: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5021: l_msg_data VARCHAR2(2000);
5016:
5017: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5018:
5019: l_api_version CONSTANT NUMBER := 1;
5020: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5021: l_msg_data VARCHAR2(2000);
5022:
5023: l_input_tbl OKL_BPD_TERMINATION_ADJ_PVT.input_tbl_type;
5024: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
5073:
5074: -- Call BPD API to get billing from quote_effective_from_date onwards
5075: OKL_BPD_TERMINATION_ADJ_PVT.get_billing_adjust(
5076: p_api_version => l_api_version,
5077: p_init_msg_list => OKL_API.G_FALSE,
5078: p_input_tbl => l_input_tbl,
5079: x_baj_tbl => lx_baj_tbl,
5080: x_return_status => l_return_status,
5081: x_msg_count => l_msg_count,
5086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5087: 'After call to okl_am_util_pvt.get_formula_value :'||l_return_status);
5088: END IF;
5089:
5090: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5091:
5092: -- Error getting the billing adjustments for the contract.
5093: OKL_API.set_message(
5094: p_app_name => 'OKL',
5089:
5090: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5091:
5092: -- Error getting the billing adjustments for the contract.
5093: OKL_API.set_message(
5094: p_app_name => 'OKL',
5095: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5096:
5097: END IF;
5095: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5096:
5097: END IF;
5098:
5099: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5100: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5101: l_overall_status := l_return_status;
5102: END IF;
5103: END IF;
5096:
5097: END IF;
5098:
5099: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5100: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5101: l_overall_status := l_return_status;
5102: END IF;
5103: END IF;
5104:
5159: p_due_date => l_due_date, -- rmunjulu Bug 4161133 Added -- 4161133 Modified
5160: px_tqlv_tbl => px_tqlv_tbl,
5161: px_tbl_total => l_operand_total);
5162:
5163: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5164: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5165: l_overall_status := l_return_status;
5166: END IF;
5167: END IF;
5160: px_tqlv_tbl => px_tqlv_tbl,
5161: px_tbl_total => l_operand_total);
5162:
5163: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5164: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5165: l_overall_status := l_return_status;
5166: END IF;
5167: END IF;
5168:
5175: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5176: x_return_status => l_return_status,
5177: p_khr_id => p_qtev_rec.khr_id);
5178:
5179: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5180: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5181: l_overall_status := l_return_status;
5182: END IF;
5183: END IF;
5176: x_return_status => l_return_status,
5177: p_khr_id => p_qtev_rec.khr_id);
5178:
5179: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5180: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5181: l_overall_status := l_return_status;
5182: END IF;
5183: END IF;
5184:
5200: 'After call to okl_streams_util.get_dependent_stream_type :'||l_return_status);
5201: END IF;
5202:
5203: --Bug 6266134 veramach end
5204: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5205: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5206: l_overall_status := l_return_status;
5207: END IF;
5208: END IF;
5201: END IF;
5202:
5203: --Bug 6266134 veramach end
5204: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5205: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5206: l_overall_status := l_return_status;
5207: END IF;
5208: END IF;
5209:
5228: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5229: 'After call to append_quote_line :'||l_return_status);
5230: END IF;
5231:
5232: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5233: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5234: l_overall_status := l_return_status;
5235: END IF;
5236: END IF;
5229: 'After call to append_quote_line :'||l_return_status);
5230: END IF;
5231:
5232: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5233: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5234: l_overall_status := l_return_status;
5235: END IF;
5236: END IF;
5237: END IF;
5250: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5251: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5252: END IF;
5253: -- store SQL error message on message stack for caller
5254: OKL_API.SET_MESSAGE (
5255: p_app_name => G_APP_NAME
5256: ,p_msg_name => G_UNEXPECTED_ERROR
5257: ,p_token1 => G_SQLCODE_TOKEN
5258: ,p_token1_value => sqlcode
5259: ,p_token2 => G_SQLERRM_TOKEN
5260: ,p_token2_value => sqlerrm);
5261:
5262: -- notify caller of an UNEXPECTED error
5263: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5264:
5265: END calc_bill_adjust;
5266:
5267:
5279: PROCEDURE calc_anticipated_bill (
5280: p_qtev_rec IN qtev_rec_type,
5281: x_return_status OUT NOCOPY VARCHAR2) IS
5282:
5283: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5284: l_kle_id NUMBER;
5285: l_sty_id NUMBER;
5286: l_api_version CONSTANT NUMBER := 1;
5287: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5283: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5284: l_kle_id NUMBER;
5285: l_sty_id NUMBER;
5286: l_api_version CONSTANT NUMBER := 1;
5287: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5288: l_msg_data VARCHAR2(2000);
5289:
5290: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5291:
5286: l_api_version CONSTANT NUMBER := 1;
5287: l_msg_count NUMBER := OKL_API.G_MISS_NUM;
5288: l_msg_data VARCHAR2(2000);
5289:
5290: l_overall_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
5291:
5292: l_functional_currency_code VARCHAR2(15);
5293: l_contract_currency_code VARCHAR2(15);
5294: l_currency_conversion_type VARCHAR2(30);
5329:
5330: -- Call BPD API to get unbilled amount from quote creation date till quote effective from date
5331: OKL_BPD_TERMINATION_ADJ_PVT.get_unbilled_recvbl(
5332: p_api_version => l_api_version,
5333: p_init_msg_list => OKL_API.G_FALSE,
5334: p_input_tbl => l_input_tbl,
5335: x_baj_tbl => lx_baj_tbl,
5336: x_return_status => l_return_status,
5337: x_msg_count => l_msg_count,
5341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5342: 'after call to OKL_BPD_TERMINATION_ADJ_PVT.get_unbilled_recvbl :'||l_return_status);
5343: END IF;
5344:
5345: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5346:
5347: -- Error getting the billing adjustments for the contract.
5348: OKL_API.set_message(
5349: p_app_name => 'OKL',
5344:
5345: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5346:
5347: -- Error getting the billing adjustments for the contract.
5348: OKL_API.set_message(
5349: p_app_name => 'OKL',
5350: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5351:
5352: END IF;
5350: p_msg_name => 'OKL_AM_ERROR_BILL_ADJST');
5351:
5352: END IF;
5353:
5354: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5355: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5356: l_overall_status := l_return_status;
5357: END IF;
5358: END IF;
5351:
5352: END IF;
5353:
5354: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5355: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5356: l_overall_status := l_return_status;
5357: END IF;
5358: END IF;
5359:
5396: 'after call to OKL_ACCOUNTING_UTIL.convert_to_functional_currency :'||l_return_status);
5397: END IF;
5398:
5399: -- raise exception if error
5400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_ERROR;
5404: END IF;
5397: END IF;
5398:
5399: -- raise exception if error
5400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_ERROR;
5404: END IF;
5405:
5398:
5399: -- raise exception if error
5400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_ERROR;
5404: END IF;
5405:
5406: lp_qabv_tbl(i).currency_code := l_contract_currency_code;
5399: -- raise exception if error
5400: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5402: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5403: RAISE OKL_API.G_EXCEPTION_ERROR;
5404: END IF;
5405:
5406: lp_qabv_tbl(i).currency_code := l_contract_currency_code;
5407: lp_qabv_tbl(i).currency_conversion_code := l_functional_currency_code;
5423:
5424: -- call TAPI to insert records
5425: OKL_TXD_QTE_ANTCPT_BILL_PUB.create_txd_qte_ant_bill(
5426: p_api_version => l_api_version,
5427: p_init_msg_list => OKL_API.G_FALSE,
5428: x_return_status => l_return_status,
5429: x_msg_count => l_msg_count,
5430: x_msg_data => l_msg_data,
5431: p_qabv_tbl => lp_qabv_tbl,
5435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5436: 'after call to OKL_TXD_QTE_ANTCPT_BILL_PUB.create_txd_qte_ant_bill:'||l_return_status);
5437: END IF;
5438:
5439: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5440: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5441: l_overall_status := l_return_status;
5442: END IF;
5443: END IF;
5436: 'after call to OKL_TXD_QTE_ANTCPT_BILL_PUB.create_txd_qte_ant_bill:'||l_return_status);
5437: END IF;
5438:
5439: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5440: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5441: l_overall_status := l_return_status;
5442: END IF;
5443: END IF;
5444:
5451: END IF;
5452:
5453: EXCEPTION
5454:
5455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5456: x_return_status := OKL_API.G_RET_STS_ERROR;
5457:
5458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5459: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5452:
5453: EXCEPTION
5454:
5455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5456: x_return_status := OKL_API.G_RET_STS_ERROR;
5457:
5458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5459: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5460:
5454:
5455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5456: x_return_status := OKL_API.G_RET_STS_ERROR;
5457:
5458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5459: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5460:
5461: WHEN OTHERS THEN
5462:
5455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5456: x_return_status := OKL_API.G_RET_STS_ERROR;
5457:
5458: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5459: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5460:
5461: WHEN OTHERS THEN
5462:
5463: IF (is_debug_exception_on) THEN
5464: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5465: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5466: END IF;
5467: -- store SQL error message on message stack for caller
5468: OKL_API.SET_MESSAGE (
5469: p_app_name => G_APP_NAME
5470: ,p_msg_name => G_UNEXPECTED_ERROR
5471: ,p_token1 => G_SQLCODE_TOKEN
5472: ,p_token1_value => sqlcode
5473: ,p_token2 => G_SQLERRM_TOKEN
5474: ,p_token2_value => sqlerrm);
5475:
5476: -- notify caller of an UNEXPECTED error
5477: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5478:
5479: END calc_anticipated_bill;
5480:
5481:
5512: l_quote_subtotal NUMBER := 0; -- Sum of all quote lines
5513: l_floor_price NUMBER := 0; -- Asset floor price
5514: l_asset_cnt NUMBER; -- Asset counter
5515:
5516: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5517: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5518:
5519: -- get the floor price
5520: CURSOR l_floor_csr (cp_art_id NUMBER, cp_cle_id NUMBER) IS
5513: l_floor_price NUMBER := 0; -- Asset floor price
5514: l_asset_cnt NUMBER; -- Asset counter
5515:
5516: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5517: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5518:
5519: -- get the floor price
5520: CURSOR l_floor_csr (cp_art_id NUMBER, cp_cle_id NUMBER) IS
5521: SELECT SUM (NVL (a.floor_price, 0)) floor_price
5556: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5557: 'after call to process_top_rule :'||l_return_status);
5558: END IF;
5559:
5560: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5561: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5562: l_overall_status := l_return_status;
5563: END IF;
5564: END IF;
5557: 'after call to process_top_rule :'||l_return_status);
5558: END IF;
5559:
5560: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5561: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5562: l_overall_status := l_return_status;
5563: END IF;
5564: END IF;
5565:
5616: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5617: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5618: END IF;
5619: -- store SQL error message on message stack for caller
5620: OKL_API.SET_MESSAGE (
5621: p_app_name => G_APP_NAME
5622: ,p_msg_name => G_UNEXPECTED_ERROR
5623: ,p_token1 => G_SQLCODE_TOKEN
5624: ,p_token1_value => sqlcode
5625: ,p_token2 => G_SQLERRM_TOKEN
5626: ,p_token2_value => sqlerrm);
5627:
5628: -- notify caller of an UNEXPECTED error
5629: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5630:
5631: END repurchase;
5632:
5633:
5662: l_quote_subtotal NUMBER := 0; -- Sum of all quote lines
5663: l_floor_price NUMBER := 0; -- Asset floor price
5664: l_asset_cnt NUMBER; -- Asset counter
5665:
5666: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5667: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5668:
5669: -- get the floor price
5670: CURSOR l_floor_csr (cp_art_id NUMBER) IS
5663: l_floor_price NUMBER := 0; -- Asset floor price
5664: l_asset_cnt NUMBER; -- Asset counter
5665:
5666: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5667: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5668:
5669: -- get the floor price
5670: CURSOR l_floor_csr (cp_art_id NUMBER) IS
5671: SELECT SUM (NVL (a.floor_price, 0)) floor_price
5702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5703: 'after call to process_top_rule :'||l_return_status);
5704: END IF;
5705:
5706: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5707: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5708: l_overall_status := l_return_status;
5709: END IF;
5710: END IF;
5703: 'after call to process_top_rule :'||l_return_status);
5704: END IF;
5705:
5706: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5707: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5708: l_overall_status := l_return_status;
5709: END IF;
5710: END IF;
5711:
5756: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5757: END IF;
5758:
5759: -- store SQL error message on message stack for caller
5760: OKL_API.SET_MESSAGE (
5761: p_app_name => G_APP_NAME
5762: ,p_msg_name => G_UNEXPECTED_ERROR
5763: ,p_token1 => G_SQLCODE_TOKEN
5764: ,p_token1_value => sqlcode
5765: ,p_token2 => G_SQLERRM_TOKEN
5766: ,p_token2_value => sqlerrm);
5767:
5768: -- notify caller of an UNEXPECTED error
5769: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5770:
5771: END repurchase_temp;
5772:
5773:
5809: -- Sum of all quote lines
5810: l_quote_subtotal NUMBER := 0;
5811: l_pur_opt_total NUMBER := 0;
5812:
5813: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5814: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5815: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'termination';
5816: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5817: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5810: l_quote_subtotal NUMBER := 0;
5811: l_pur_opt_total NUMBER := 0;
5812:
5813: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5814: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5815: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'termination';
5816: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5817: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5818: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5924: 'after process_top_rule call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
5925:
5926: END IF;
5927: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5928: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5929: l_overall_status := l_return_status;
5930: END IF;
5931: END IF;
5924: 'after process_top_rule call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
5925:
5926: END IF;
5927: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5928: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5929: l_overall_status := l_return_status;
5930: END IF;
5931: END IF;
5932:
5959: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5960: 'after process_operand call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
5961:
5962: END IF;
5963: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5964: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5965: l_overall_status := l_return_status;
5966: END IF;
5967: ELSE
5960: 'after process_operand call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
5961:
5962: END IF;
5963: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5964: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5965: l_overall_status := l_return_status;
5966: END IF;
5967: ELSE
5968: l_overall_status := l_return_status; -- sechawla 13-aug-08 bug 7233781
5981: IF (is_debug_statement_on) THEN
5982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5983: 'after calc_bill_adjust call from trmn Value of l_return_status'|| l_return_status);
5984: END IF;
5985: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5986: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5987: l_overall_status := l_return_status;
5988: END IF;
5989: END IF;
5982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5983: 'after calc_bill_adjust call from trmn Value of l_return_status'|| l_return_status);
5984: END IF;
5985: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5986: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
5987: l_overall_status := l_return_status;
5988: END IF;
5989: END IF;
5990:
5995: IF (is_debug_statement_on) THEN
5996: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5997: 'after calc_anticipated_bill call from trmn Value of l_return_status'|| l_return_status);
5998: END IF;
5999: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6000: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6001: l_overall_status := l_return_status;
6002: END IF;
6003: END IF;
5996: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5997: 'after calc_anticipated_bill call from trmn Value of l_return_status'|| l_return_status);
5998: END IF;
5999: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6000: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6001: l_overall_status := l_return_status;
6002: END IF;
6003: END IF;
6004:
6027: IF (is_debug_statement_on) THEN
6028: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6029: 'After call to create_default_quote_lines from termination Value of l_return_status'|| l_return_status);
6030: END IF;
6031: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6032: --IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN -- rmunjulu 4741168 removed
6033: l_overall_status := l_return_status;
6034: --END IF;
6035: ELSE -- rmunjulu 4741168 added so that the default lines get calculated without error on screen
6028: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6029: 'After call to create_default_quote_lines from termination Value of l_return_status'|| l_return_status);
6030: END IF;
6031: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6032: --IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN -- rmunjulu 4741168 removed
6033: l_overall_status := l_return_status;
6034: --END IF;
6035: ELSE -- rmunjulu 4741168 added so that the default lines get calculated without error on screen
6036: l_overall_status := l_return_status;
6053: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6054: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6055: END IF;
6056: -- store SQL error message on message stack for caller
6057: OKL_API.SET_MESSAGE (
6058: p_app_name => G_APP_NAME
6059: ,p_msg_name => G_UNEXPECTED_ERROR
6060: ,p_token1 => G_SQLCODE_TOKEN
6061: ,p_token1_value => sqlcode
6062: ,p_token2 => G_SQLERRM_TOKEN
6063: ,p_token2_value => sqlerrm);
6064:
6065: -- notify caller of an UNEXPECTED error
6066: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6067:
6068: END termination;
6069:
6070:
6113: WHERE l.id = cp_line_id
6114: AND s.id = l.lse_id
6115: AND s.lty_code = G_FIN_ASSET_STYLE;
6116:
6117: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6118: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6119:
6120: l_asset_cnt NUMBER;
6121: l_invalid_line_yn BOOLEAN;
6114: AND s.id = l.lse_id
6115: AND s.lty_code = G_FIN_ASSET_STYLE;
6116:
6117: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6118: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6119:
6120: l_asset_cnt NUMBER;
6121: l_invalid_line_yn BOOLEAN;
6122: l_temp_result VARCHAR2(1);
6156: -- ***************************************************************
6157:
6158: IF (is_debug_statement_on) THEN
6159: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6160: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6161: END IF;
6162:
6163: l_return_status := OKL_API.START_ACTIVITY (
6164: l_api_name,
6159: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6160: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6161: END IF;
6162:
6163: l_return_status := OKL_API.START_ACTIVITY (
6164: l_api_name,
6165: G_PKG_NAME,
6166: p_init_msg_list,
6167: l_api_version,
6170: x_return_status);
6171:
6172: IF (is_debug_statement_on) THEN
6173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6174: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6175: END IF;
6176:
6177: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6174: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6175: END IF;
6176:
6177: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6179: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6180: RAISE OKL_API.G_EXCEPTION_ERROR;
6181: END IF;
6174: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6175: END IF;
6176:
6177: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6179: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6180: RAISE OKL_API.G_EXCEPTION_ERROR;
6181: END IF;
6182:
6175: END IF;
6176:
6177: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6179: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6180: RAISE OKL_API.G_EXCEPTION_ERROR;
6181: END IF;
6182:
6183: -- SECHAWLA 24-FEB-03 Bug # 2817025 : Get sysdate
6176:
6177: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6179: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6180: RAISE OKL_API.G_EXCEPTION_ERROR;
6181: END IF;
6182:
6183: -- SECHAWLA 24-FEB-03 Bug # 2817025 : Get sysdate
6184: SELECT sysdate INTO G_SYSDATE from dual;
6237: okl_am_util_pvt.set_message (
6238: p_app_name => G_APP_NAME,
6239: p_msg_name => 'OKL_AM_NO_PARAMETERS');
6240:
6241: RAISE OKL_API.G_EXCEPTION_ERROR;
6242:
6243: END IF;
6244:
6245: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
6312: okl_am_util_pvt.set_message (
6313: p_app_name => G_APP_NAME,
6314: p_msg_name => 'OKL_AM_UNSUPPORTED_QUOTE_TYPE');
6315:
6316: RAISE OKL_API.G_EXCEPTION_ERROR;
6317:
6318: END IF;
6319:
6320: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6316: RAISE OKL_API.G_EXCEPTION_ERROR;
6317:
6318: END IF;
6319:
6320: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6321: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6322: l_overall_status := l_return_status;
6323: END IF;
6324: END IF;
6317:
6318: END IF;
6319:
6320: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6321: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6322: l_overall_status := l_return_status;
6323: END IF;
6324: END IF;
6325: -- bug 5480622--start
6336: x_return_status => l_return_status);
6337:
6338: END IF;
6339:
6340: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6341: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6342: l_overall_status := l_return_status;
6343: END IF;
6344: END IF;
6337:
6338: END IF;
6339:
6340: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6341: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6342: l_overall_status := l_return_status;
6343: END IF;
6344: END IF;
6345: End if;
6359: x_return_status => l_return_status);
6360:
6361: END IF;
6362:
6363: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6364: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6365: l_overall_status := l_return_status;
6366: END IF;
6367: END IF;
6360:
6361: END IF;
6362:
6363: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6364: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6365: l_overall_status := l_return_status;
6366: END IF;
6367: END IF;
6368:
6386: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6387: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls contract_lines :'||l_return_status);
6388: END IF;
6389:
6390: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6391: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6392: l_overall_status := l_return_status;
6393: END IF;
6394: END IF;
6387: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls contract_lines :'||l_return_status);
6388: END IF;
6389:
6390: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6391: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6392: l_overall_status := l_return_status;
6393: END IF;
6394: END IF;
6395:
6408:
6409: -- PAGARG Bug 4300443 Call bulk insert instead of usual insert
6410: OKL_TQL_PVT.insert_row_bulk(
6411: p_api_version => l_api_version,
6412: p_init_msg_list => OKL_API.G_FALSE,
6413: x_return_status => l_return_status,
6414: x_msg_count => l_msg_count,
6415: x_msg_data => l_msg_data,
6416: p_tqlv_tbl => l_tqlv_tbl,
6420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6421: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TQL_PVT.insert_row_bulk :'||l_return_status);
6422: END IF;
6423:
6424: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6426: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6427: RAISE OKL_API.G_EXCEPTION_ERROR;
6428: END IF;
6421: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TQL_PVT.insert_row_bulk :'||l_return_status);
6422: END IF;
6423:
6424: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6426: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6427: RAISE OKL_API.G_EXCEPTION_ERROR;
6428: END IF;
6429:
6422: END IF;
6423:
6424: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6426: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6427: RAISE OKL_API.G_EXCEPTION_ERROR;
6428: END IF;
6429:
6430: END IF;
6423:
6424: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6426: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6427: RAISE OKL_API.G_EXCEPTION_ERROR;
6428: END IF;
6429:
6430: END IF;
6431: ELSE -- Non termination quotes use normal insert
6438: END IF;
6439:
6440: OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines (
6441: p_api_version => l_api_version,
6442: p_init_msg_list => OKL_API.G_FALSE,
6443: x_return_status => l_return_status,
6444: x_msg_count => l_msg_count,
6445: x_msg_data => l_msg_data,
6446: p_tqlv_tbl => l_tqlv_tbl,
6450: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6451: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines :'||l_return_status);
6452: END IF;
6453:
6454: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6451: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines :'||l_return_status);
6452: END IF;
6453:
6454: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6452: END IF;
6453:
6454: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6460: END IF;
6453:
6454: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6460: END IF;
6461: END IF;
6483: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6484: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls estimate_tax:'||l_return_status);
6485: END IF;
6486:
6487: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6488: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6489: l_overall_status := l_return_status;
6490: END IF;
6491: END IF;
6484: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls estimate_tax:'||l_return_status);
6485: END IF;
6486:
6487: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6488: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6489: l_overall_status := l_return_status;
6490: END IF;
6491: END IF;
6492:
6501:
6502: x_tqlv_tbl := lx_tqlv_tbl;
6503: x_return_status := l_overall_status;
6504:
6505: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
6506:
6507:
6508: IF (is_debug_statement_on) THEN
6509: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,'OKL_AM_REMARKET_ASSET_PVT.generate.',
6519:
6520:
6521: EXCEPTION
6522:
6523: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6524: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6525: (
6526: l_api_name,
6527: G_PKG_NAME,
6520:
6521: EXCEPTION
6522:
6523: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6524: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6525: (
6526: l_api_name,
6527: G_PKG_NAME,
6528: 'OKL_API.G_RET_STS_ERROR',
6524: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6525: (
6526: l_api_name,
6527: G_PKG_NAME,
6528: 'OKL_API.G_RET_STS_ERROR',
6529: x_msg_count,
6530: x_msg_data,
6531: '_PVT'
6532: );
6530: x_msg_data,
6531: '_PVT'
6532: );
6533:
6534: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6535: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6536: (
6537: l_api_name,
6538: G_PKG_NAME,
6531: '_PVT'
6532: );
6533:
6534: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6535: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6536: (
6537: l_api_name,
6538: G_PKG_NAME,
6539: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6535: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6536: (
6537: l_api_name,
6538: G_PKG_NAME,
6539: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6540: x_msg_count,
6541: x_msg_data,
6542: '_PVT'
6543: );
6547: IF l_line_csr%ISOPEN THEN
6548: CLOSE l_line_csr;
6549: END IF;
6550:
6551: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6552: (
6553: l_api_name,
6554: G_PKG_NAME,
6555: 'OTHERS',