[Home] [Help]
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 (
208: p_app_name => G_APP_NAME
209: ,p_msg_name => 'OKL_AM_NO_OPERAND_DATA'
210: ,p_token1 => 'FORMULA'
211: ,p_token1_value => p_formula_name
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 (
240: p_app_name => G_APP_NAME
241: ,p_msg_name => 'OKL_AM_INVALID_QUOTE_LINE_TYPE'
242: ,p_token1 => 'FORMULA'
243: ,p_token1_value => p_formula_name
262: IF l_qlt_code IN ('AMCQDR','AMCSDD','AMCRIN','AMCTCD')
263: AND l_amount > 0 THEN
264:
265: -- Amount for QLT_CODE quote line is switched to negative
266: okl_am_util_pvt.set_message (
267: p_app_name => G_APP_NAME
268: ,p_msg_name => 'OKL_AM_NEGATIVE_QUOTE_LINE'
269: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
270: ,p_token1 => 'QLT_CODE'
265: -- Amount for QLT_CODE quote line is switched to negative
266: okl_am_util_pvt.set_message (
267: p_app_name => G_APP_NAME
268: ,p_msg_name => 'OKL_AM_NEGATIVE_QUOTE_LINE'
269: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
270: ,p_token1 => 'QLT_CODE'
271: ,p_token1_value => l_qlt_code);
272:
273: l_amount := - ABS (l_amount);
304: -- SECHAWLA 21-APR-03 Bug 2925120 : Added G_MISS_NUM check in the following IF statement
305: IF (p_asset_qty IS NOT NULL AND p_asset_qty <> G_MISS_NUM ) AND (p_quote_qty IS NOT NULL AND p_quote_qty <> G_MISS_NUM) THEN
306: l_amount := (l_amount / p_asset_qty) * p_quote_qty;
307: -- bug 5480622 -- start
308: l_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
309: l_amount := okl_accounting_util.round_amount(p_amount => l_amount,
310: p_currency_code => l_contract_curr_code);
311: -- bug 5480622 --end
312: END IF;
315:
316: --SECHAWLA 24-FEB-03 Bug # 2817025 : Convert the repurchase quote amount to functional currency
317: IF p_qtev_rec.qtp_code = 'REP_STANDARD' THEN
318: -- get the functional currency
319: l_func_curr_code := okl_am_util_pvt.get_functional_currency;
320: -- get the contract currency
321: l_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
322:
323: IF l_contract_curr_code <> l_func_curr_code THEN
317: IF p_qtev_rec.qtp_code = 'REP_STANDARD' THEN
318: -- get the functional currency
319: l_func_curr_code := okl_am_util_pvt.get_functional_currency;
320: -- get the contract currency
321: l_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
322:
323: IF l_contract_curr_code <> l_func_curr_code THEN
324: -- convert amount to functional currency
325:
360: ELSE
361:
362: --Added by jjuneja for Bug# 16361053
363: -- get the functional currency
364: l_func_curr_code := okl_am_util_pvt.get_functional_currency;
365: -- get the contract currency
366: l_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
367:
368: IF l_contract_curr_code <> l_func_curr_code THEN
362: --Added by jjuneja for Bug# 16361053
363: -- get the functional currency
364: l_func_curr_code := okl_am_util_pvt.get_functional_currency;
365: -- get the contract currency
366: l_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
367:
368: IF l_contract_curr_code <> l_func_curr_code THEN
369: -- convert amount to functional currency
370:
515: -- Modified code to get the Unbilled Rec using calc quote strm API, instead of using LINE_UNBILLED_STREAMS formula
516: -- RMUNJULU 2757312 Added to store p_split_asset_number
517: -- SECHAWLA 09-AUG-05 4304230 Modified to return 0 residual value if asset status is Evergreen
518: -- PRASJAIN Bug 6030917 Modified the signature of
519: -- okl_am_util_pvt.get_net_investment() and Removed the proration
520: -- after the call
521: -- End of comments
522:
523:
588: -- End : Bug 6030917 : prasjain
589:
590: IF (is_debug_statement_on) THEN
591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
592: 'Before OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
593: END IF;
594:
595:
596: -- Calculate Net Investment
593: END IF;
594:
595:
596: -- Calculate Net Investment
597: l_net_investment := okl_am_util_pvt.get_net_investment(
598: p_khr_id => p_qtev_rec.khr_id,
599: p_kle_id => p_asset_tbl(l_asset_tbl_index).p_asset_id,
600: p_quote_id => p_qtev_rec.id, -- rmunjulu LOANS_ENHANCEMENT -- pass quote id as it is required to derive eff from date in formula
601: p_message_yn => TRUE,
603: x_return_status => l_return_status);
604:
605: IF (is_debug_statement_on) THEN
606: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
607: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
608: END IF;
609:
610: -- Start : Bug 6030917 : prasjain
611: --NIV prorated okl_am_util_pvt.inside get_net_investment().
607: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
608: END IF;
609:
610: -- Start : Bug 6030917 : prasjain
611: --NIV prorated okl_am_util_pvt.inside get_net_investment().
612: /**
613:
614: -- prorate net investment
615: IF l_net_investment <> 0 THEN
622: --SECHAWLA 21-APR-03 Bug 2925120: Get the Unbilled Rec value for the financial assets using calc quote stream API
623: -- instead of using LINE_UNBILLED_STREAMS formula
624:
625: /* -- Calculate Unbilled Receivables
626: okl_am_util_pvt.get_formula_value(
627: p_formula_name => 'LINE_UNBILLED_STREAMS',
628: p_chr_id => p_qtev_rec.khr_id,
629: p_cle_id => p_asset_tbl(l_asset_tbl_index).p_asset_id,
630: x_formula_value => l_unbilled_rec,
652: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_calc_quote_stream_pvt.calc_stream_type_operand'||l_return_status);
653: END IF;
654:
655: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
656: l_asset_value := okl_am_util_pvt.get_ak_attribute(p_code => 'OKL_UNBILLED_RECIVABLES');
657: -- Unable to calculate ASSET_VALUE
658: OKL_API.set_message( p_app_name => 'OKL',
659: p_msg_name => 'OKL_AM_FORMULA_ERROR',
660: p_token1 => 'ASSET_VALUE',
984:
985: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
986:
987: IF SYS_CONTEXT('USERENV','CLIENT_INFO') IS NOT NULL THEN
988: okl_am_util_pvt.get_formula_value (
989: p_formula_name => G_TAX_FORMULA,
990: p_chr_id => p_qtev_rec.khr_id,
991: -- SECHAWLA - Bug 2680542 : Changed reference l_tax_cle_id(l_seq) to l_tax_cle_id(l_seq).p_asset_id
992: p_cle_id => l_tax_cle_id(l_seq).p_asset_id,
1491:
1492: IF NVL (p_chr_amt, 0) <> 0 THEN
1493:
1494: l_formula_name := p_operand || G_PRORATE_SUFFIX;
1495: l_formula_string := okl_am_util_pvt.get_formula_string
1496: (l_formula_name);
1497:
1498: IF l_formula_string IS NULL THEN
1499: l_formula_name := G_GENERIC_PRORATE;
1503: --line amount, then execute the formula at header level to get the contract amount. Calculate proration fraction
1504: --manually by dividing the line amount with contract amount.
1505:
1506: -- get the line oec
1507: okl_am_util_pvt.get_formula_value (
1508: p_formula_name => l_formula_name,
1509: p_chr_id => p_chr_id,
1510: p_cle_id => p_cle_id,
1511: --x_formula_value => l_proration_fraction,
1517: x_return_status => l_return_status);
1518:
1519: IF (is_debug_statement_on) THEN
1520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1521: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1522: END IF;
1523:
1524: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1525: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1527: END IF;
1528: END IF;
1529:
1530: -- get the contract oec
1531: okl_am_util_pvt.get_formula_value (
1532: p_formula_name => l_formula_name,
1533: p_chr_id => p_chr_id,
1534: p_cle_id => NULL,
1535: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
1540: x_return_status => l_return_status);
1541:
1542: IF (is_debug_statement_on) THEN
1543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1544: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1545: END IF;
1546:
1547: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1548: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
1561: ELSE
1562:
1563: -- Unable to prorate quote element
1564: -- OPERAND in FORMULA formula
1565: okl_am_util_pvt.set_message (
1566: p_app_name => G_APP_NAME
1567: ,p_msg_name => 'OKL_AM_INVALID_PRORATION'
1568: ,p_token1 => 'FORMULA'
1569: ,p_token1_value => p_formula_name
1817: THEN
1818:
1819: -- QLT_CODE quote line is not
1820: -- allowed for QTP_CODE quote type
1821: okl_am_util_pvt.set_message (
1822: p_app_name => G_APP_NAME
1823: ,p_msg_name => 'OKL_AM_ILLEGAL_OPERAND'
1824: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
1825: ,p_token1 => 'QTP_CODE'
1820: -- allowed for QTP_CODE quote type
1821: okl_am_util_pvt.set_message (
1822: p_app_name => G_APP_NAME
1823: ,p_msg_name => 'OKL_AM_ILLEGAL_OPERAND'
1824: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
1825: ,p_token1 => 'QTP_CODE'
1826: ,p_token1_value => p_qtev_rec.qtp_code
1827: ,p_token2 => 'QLT_CODE'
1828: ,p_token2_value => p_qlt_code);
1915: IF (is_debug_procedure_on) THEN
1916: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1917: END IF;
1918:
1919: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
1920:
1921: IF p_operand IN ('AMYSAM', 'AMYFEE', 'AMYOUB') THEN
1922:
1923: l_asset_cnt := p_asset_tbl.FIRST;
1923: l_asset_cnt := p_asset_tbl.FIRST;
1924:
1925: LOOP
1926:
1927: okl_am_util_pvt.get_rule_record (
1928: p_rgd_code => p_rgd_code,
1929: p_rdf_code => p_operand,
1930: p_chr_id => l_rule_chr_id,
1931: -- SECHAWLA - Bug 2680542 : Changed reference p_asset_tbl(l_asset_cnt) to p_asset_tbl(l_asset_cnt).p_asset_id
1935: p_message_yn => FALSE);
1936:
1937: IF (is_debug_statement_on) THEN
1938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1939: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
1940: END IF;
1941:
1942: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1943: l_line_level_yn := TRUE;
1952: IF l_line_level_yn THEN
1953:
1954: -- Rule for RULE quote element
1955: -- must be specified on contract level
1956: okl_am_util_pvt.set_message (
1957: p_app_name => G_APP_NAME
1958: ,p_msg_name => 'OKL_AM_WRONG_OPERAND_LEVEL'
1959: ,p_token1 => 'RULE'
1960: ,p_token1_value => p_operand);
2074:
2075: --SECHAWLA 26-FEB-03 Bug # 2819559 : Convert the fixed amount to contract curency in case of Recourse type of quotes
2076: IF p_qtev_rec.qtp_code LIKE 'TER_RECOURSE%' THEN
2077: -- get the functional currency
2078: -- l_vendor_program_curr_code := okl_am_util_pvt.get_functional_currency;
2079: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2080: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2081:
2082: -- get the contract currency
2075: --SECHAWLA 26-FEB-03 Bug # 2819559 : Convert the fixed amount to contract curency in case of Recourse type of quotes
2076: IF p_qtev_rec.qtp_code LIKE 'TER_RECOURSE%' THEN
2077: -- get the functional currency
2078: -- l_vendor_program_curr_code := okl_am_util_pvt.get_functional_currency;
2079: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2080: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2081:
2082: -- get the contract currency
2083: l_lease_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
2076: IF p_qtev_rec.qtp_code LIKE 'TER_RECOURSE%' THEN
2077: -- get the functional currency
2078: -- l_vendor_program_curr_code := okl_am_util_pvt.get_functional_currency;
2079: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2080: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2081:
2082: -- get the contract currency
2083: l_lease_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
2084: IF l_vendor_program_curr_code <> l_lease_contract_curr_code THEN
2079: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2080: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2081:
2082: -- get the contract currency
2083: l_lease_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
2084: IF l_vendor_program_curr_code <> l_lease_contract_curr_code THEN
2085: okl_accounting_util.convert_to_contract_currency
2086: (
2087: p_khr_id => p_qtev_rec.khr_id,
2133: l_rule_value := NULL;
2134:
2135: ELSE
2136:
2137: okl_am_util_pvt.get_formula_value (
2138: p_formula_name => p_formula_name,
2139: p_chr_id => p_qtev_rec.khr_id,
2140: p_cle_id => p_cle_id,
2141: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
2146: x_return_status => l_return_status);
2147:
2148: IF (is_debug_statement_on) THEN
2149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2150: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2151: END IF;
2152:
2153: END IF;
2154:
2186: -- if cle_id is passed then need to calculate for that asset only. This
2187: -- will be in case of partial termination and formula will be calculated
2188: -- for asset level streams for the fee. instead of passing null pass p_cle_id,
2189: -- value of which will be either nul or asset id
2190: okl_am_util_pvt.get_formula_value (
2191: p_formula_name => p_formula_name,
2192: p_chr_id => p_qtev_rec.khr_id,
2193: p_cle_id => p_cle_id,
2194: p_additional_parameters => l_add_params,
2196: x_return_status => l_return_status);
2197:
2198: IF (is_debug_statement_on) THEN
2199: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2200: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2201: END IF;
2202:
2203: ELSE
2204: G_FORMULA_VALUE_FOUND := FALSE;
2206: ELSE
2207:
2208: -- Invalid combination of values
2209: -- for RULE rule in GROUP group
2210: okl_am_util_pvt.set_message(
2211: p_app_name => G_APP_NAME
2212: ,p_msg_name => 'OKL_AM_INVALID_RULE_FORMULA'
2213: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
2214: ,p_token1 => 'GROUP'
2209: -- for RULE rule in GROUP group
2210: okl_am_util_pvt.set_message(
2211: p_app_name => G_APP_NAME
2212: ,p_msg_name => 'OKL_AM_INVALID_RULE_FORMULA'
2213: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
2214: ,p_token1 => 'GROUP'
2215: ,p_token1_value => p_rgd_code
2216: ,p_token2 => 'RULE'
2217: ,p_token2_value => p_operand);
2389: AND l_max_value < l_min_value THEN
2390:
2391: -- Invalid combination of values
2392: -- for RULE rule in GROUP group
2393: okl_am_util_pvt.set_message(
2394: p_app_name => G_APP_NAME
2395: ,p_msg_name => 'OKL_AM_MAX_MIN_MISMATCH'
2396: ,p_token1 => 'MAX'
2397: ,p_token1_value => l_max_value
2522: -- **********************************************
2523: -- Try to process operand as a operand-rule combo
2524: -- **********************************************
2525:
2526: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2527:
2528: IF (is_debug_statement_on) THEN
2529: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2530: 'before call to okl_am_util_pvt.get_rule_record'||l_return_status);
2526: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2527:
2528: IF (is_debug_statement_on) THEN
2529: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2530: 'before call to okl_am_util_pvt.get_rule_record'||l_return_status);
2531: END IF;
2532:
2533: okl_am_util_pvt.get_rule_record (
2534: p_rgd_code => p_rgd_code,
2529: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2530: 'before call to okl_am_util_pvt.get_rule_record'||l_return_status);
2531: END IF;
2532:
2533: okl_am_util_pvt.get_rule_record (
2534: p_rgd_code => p_rgd_code,
2535: p_rdf_code => p_operand,
2536: p_chr_id => l_rule_chr_id,
2537: p_cle_id => p_rule_cle_id,
2540: p_message_yn => FALSE);
2541:
2542: IF (is_debug_statement_on) THEN
2543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2544: 'after call to okl_am_util_pvt.get_rule_record'||l_return_status);
2545: END IF;
2546:
2547: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2548:
2690: -- *********************************
2691: -- Try to process executable operand
2692: -- *********************************
2693:
2694: l_formula_string := okl_am_util_pvt.get_formula_string
2695: (px_operand);
2696:
2697: IF l_formula_string IS NOT NULL THEN
2698:
2695: (px_operand);
2696:
2697: IF l_formula_string IS NOT NULL THEN
2698:
2699: okl_am_util_pvt.get_formula_value (
2700: p_formula_name => px_operand,
2701: p_chr_id => p_chr_id,
2702: p_cle_id => p_cle_id,
2703: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
2708: x_return_status => l_return_status);
2709:
2710: IF (is_debug_statement_on) THEN
2711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2712: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2713: END IF;
2714:
2715: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2716: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
2878:
2879: ELSIF p_operand IN ('AMYOUB', 'AMYSAM', 'AMYFEE')
2880: AND l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
2881:
2882: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2883:
2884: okl_am_util_pvt.get_rule_record (
2885: p_rgd_code => l_rgd_code,
2886: p_rdf_code => p_operand,
2880: AND l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
2881:
2882: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2883:
2884: okl_am_util_pvt.get_rule_record (
2885: p_rgd_code => l_rgd_code,
2886: p_rdf_code => p_operand,
2887: p_chr_id => l_rule_chr_id,
2888: p_cle_id => p_cle_id,
2891: p_message_yn => FALSE);
2892:
2893: IF (is_debug_statement_on) THEN
2894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2895: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2896: END IF;
2897:
2898: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS)
2899: OR ( l_return_status = OKL_API.G_RET_STS_SUCCESS
2903: IF p_qtev_rec.partial_yn = 'Y' THEN
2904:
2905: -- OPERAND quote element in FORMULA formula can
2906: -- not be fully calculated for partial quote
2907: okl_am_util_pvt.set_message (
2908: p_app_name => G_APP_NAME
2909: ,p_msg_name => 'OKL_AM_INVALID_FOR_PARTIAL'
2910: ,p_token1 => 'FORMULA'
2911: ,p_token1_value => p_formula_name
3103: ELSE
3104:
3105: -- No values found for OPERAND operand
3106: -- in FORMULA formula
3107: okl_am_util_pvt.set_message (
3108: p_app_name => G_APP_NAME
3109: ,p_msg_name => 'OKL_AM_NO_OPERAND_VALUES'
3110: ,p_token1 => 'FORMULA'
3111: ,p_token1_value => p_formula_name
3289: IF (is_debug_procedure_on) THEN
3290: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3291: END IF;
3292: l_chr_id := p_qtev_rec.khr_id;
3293: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
3294:
3295: -- ***********************************
3296: -- Validate operand against quote type
3297: -- ***********************************
3328: -- determine if the corresponding auto quote rule have the contractual fee
3329: -- option checked or unchecked.
3330: IF p_head_rgd_code = 'MANUAL' AND p_operand = 'AMYFEE' THEN
3331: --determine the contractual fee rule value
3332: okl_am_util_pvt.get_rule_record (
3333: p_rgd_code => l_head_rgd_code, -- use modified rule group
3334: p_rdf_code => p_operand,
3335: p_chr_id => l_rule_chr_id,
3336: p_cle_id => NULL,
3339: p_message_yn => FALSE);
3340:
3341: IF (is_debug_statement_on) THEN
3342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3343: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
3344: END IF;
3345:
3346: -- If the corresponding rule is not checked (<> 'Y') then set the global
3347: -- variable (G_PERFORM_CONT_FEE_CALC) to False which will ensure that
3569: -- *************************
3570: -- Processing Estimated Property Tax Operand
3571: -- *************************
3572: ELSIF p_operand = 'AMPRTX' THEN
3573: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
3574:
3575: IF p_asset_tbl.COUNT > 0
3576: THEN
3577: l_asset_cnt := p_asset_tbl.FIRST;
3575: IF p_asset_tbl.COUNT > 0
3576: THEN
3577: l_asset_cnt := p_asset_tbl.FIRST;
3578: LOOP
3579: okl_am_util_pvt.get_rule_record (
3580: p_rgd_code => p_head_rgd_code,
3581: p_rdf_code => p_operand,
3582: p_chr_id => l_rule_chr_id,
3583: p_cle_id => NULL,
3589: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3590: AND l_rulv_rec.RULE_INFORMATION4 IN ('LINE_CALCULATION', 'PRORATE')
3591: THEN
3592: --Obtain the line level rule information for applicability of Property Tax and Bill Tax
3593: okl_am_util_pvt.get_rule_record(
3594: p_rgd_code => 'LAASTX',
3595: p_rdf_code => 'LAPRTX',
3596: p_chr_id => l_rule_chr_id,
3597: p_cle_id => p_asset_tbl(l_asset_cnt).p_asset_id,
3828: IF l_reject_asset_tbl.COUNT > 0 THEN
3829:
3830: l_asset_cnt := l_reject_asset_tbl.FIRST;
3831:
3832: okl_am_util_pvt.get_rule_record (
3833: p_rgd_code => p_head_rgd_code,
3834: p_rdf_code => p_operand,
3835: p_chr_id => l_rule_chr_id,
3836: p_cle_id => NULL,
4367: -- Validate formula and get formula string to disect
4368: -- *************************************************
4369:
4370: -- Make sure Formula Engine can validate the formula
4371: okl_am_util_pvt.get_formula_value (
4372: p_formula_name => p_formula_name,
4373: p_chr_id => p_qtev_rec.khr_id,
4374: p_cle_id => p_cle_id,
4375: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
4380: x_return_status => l_return_status);
4381:
4382: IF (is_debug_statement_on) THEN
4383: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4384: 'before call to okl_am_util_pvt.get_formula_value :'||l_return_status);
4385: END IF;
4386:
4387:
4388: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4435: IF l_curr_char <> '+' THEN
4436:
4437: -- Only PLUS signs are allowed in the top quote
4438: -- formula. Other signs are treated as "+"
4439: okl_am_util_pvt.set_message (
4440: p_app_name => G_APP_NAME
4441: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4442: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4443:
4438: -- formula. Other signs are treated as "+"
4439: okl_am_util_pvt.set_message (
4440: p_app_name => G_APP_NAME
4441: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4442: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4443:
4444: END IF;
4445:
4446: IF l_temp_string IS NOT NULL THEN
4665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4666: 'value of p_cle_id'|| p_cle_id);
4667: END IF;
4668: -- Make sure Formula Engine can validate the formula
4669: okl_am_util_pvt.get_formula_value (
4670: p_formula_name => p_formula_name,
4671: p_chr_id => p_qtev_rec.khr_id,
4672: p_cle_id => p_cle_id,
4673: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
4677: x_formula_value => l_dummy_value,
4678: x_return_status => l_return_status);
4679: IF (is_debug_statement_on) THEN
4680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4681: 'after call to okl_am_util_pvt.get_formula_value :: value of l_return_status'|| l_return_status);
4682: END IF;
4683: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4684: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4685: l_overall_status := l_return_status;
4740: IF l_curr_char <> '+' THEN
4741:
4742: -- Only PLUS signs are allowed in the top quote
4743: -- formula. Other signs are treated as "+"
4744: okl_am_util_pvt.set_message (
4745: p_app_name => G_APP_NAME
4746: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4747: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4748:
4743: -- formula. Other signs are treated as "+"
4744: okl_am_util_pvt.set_message (
4745: p_app_name => G_APP_NAME
4746: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4747: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4748:
4749: END IF;
4750:
4751: IF l_temp_string IS NOT NULL THEN
4953: AND p_qtev_rec.qtp_code NOT LIKE 'TER_MAN%'
4954: AND l_rgd_code IS NOT NULL
4955: AND p_rdf_code IS NOT NULL THEN
4956:
4957: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
4958:
4959: IF (is_debug_statement_on) THEN
4960: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4961: 'Value of l_rgd_code'|| l_rgd_code);
4965: 'Value of l_rule_chr_id'|| l_rule_chr_id);
4966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4967: 'Value of p_cle_id'|| p_cle_id);
4968: END IF;
4969: okl_am_util_pvt.get_rule_record (
4970: p_rgd_code => l_rgd_code,
4971: p_rdf_code => p_rdf_code,
4972: p_chr_id => l_rule_chr_id,
4973: p_cle_id => p_cle_id,
4976: p_message_yn => TRUE); --FALSE); -- rmunjulu 4741168
4977:
4978: IF (is_debug_statement_on) THEN
4979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4980: 'after call to okl_am_util_pvt.get_rule_record from process_top_rule Value of l_return_status'|| l_return_status);
4981: END IF;
4982: ELSIF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4983: AND p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
4984:
5055:
5056: -- Unable to find Quote Formula. LINES default
5057: -- quote lines are created to be populated manually
5058: -- +1 is added to count tax line created later
5059: okl_am_util_pvt.set_message(
5060: p_app_name => G_APP_NAME
5061: ,p_msg_name => 'OKL_AM_DEFAULT_QUOTE_LINES');
5062:
5063: create_default_quote_lines (
5202:
5203:
5204: IF (is_debug_statement_on) THEN
5205: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5206: 'After call to okl_am_util_pvt.get_formula_value :'||l_return_status);
5207: END IF;
5208:
5209: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5210:
5290:
5291: -- rmunjulu LOANS_ENHANCEMENT -- create billing adjustment lines for loans refund
5292: IF nvl(p_qtev_rec.partial_yn, 'N') = 'N' THEN
5293:
5294: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5295: x_return_status => l_return_status,
5296: p_khr_id => p_qtev_rec.khr_id);
5297:
5298: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5492: -- rmunjulu EDAT Added sel_date
5493: lp_qabv_tbl(i).sel_date := lx_baj_tbl(i).stream_element_date;
5494:
5495: -- Get the functional currency from AM_Util
5496: OKL_AM_UTIL_PVT.get_func_currency_org(
5497: x_org_id => l_org_id,
5498: x_currency_code => l_functional_currency_code);
5499:
5500: -- Get the currency conversion details from ACCOUNTING_Util
5696: IF l_floor_price > l_quote_subtotal THEN
5697:
5698: -- Repurchase Quote amount QUOTE_AMOUNT
5699: -- is lower than Floor Price FLOOR_PRICE
5700: okl_am_util_pvt.set_message (
5701: p_app_name => G_APP_NAME
5702: ,p_msg_name => 'OKL_AM_LOW_REP_QUOTE_AMOUNT'
5703: ,p_token1 => 'QUOTE_AMOUNT'
5704: ,p_token1_value => l_quote_subtotal
5842: IF l_floor_price > l_quote_subtotal THEN
5843:
5844: -- Repurchase Quote amount QUOTE_AMOUNT
5845: -- is lower than Floor Price FLOOR_PRICE
5846: okl_am_util_pvt.set_message (
5847: p_app_name => G_APP_NAME
5848: ,p_msg_name => 'OKL_AM_LOW_REP_QUOTE_AMOUNT'
5849: ,p_token1 => 'QUOTE_AMOUNT'
5850: ,p_token1_value => l_quote_subtotal
6130: IF l_tqlv_tbl.count = 0 THEN
6131:
6132: -- quote lines are created to be populated manually
6133: -- +1 is added to count tax line created later
6134: okl_am_util_pvt.set_message(
6135: p_app_name => G_APP_NAME
6136: ,p_msg_name => 'OKL_AM_DEFAULT_QUOTE_LINES');
6137:
6138: create_default_quote_lines (
6342: END LOOP;
6343:
6344: END IF;
6345:
6346: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (l_qtev_rec);
6347:
6348: IF l_asset_tbl.COUNT = 0
6349: OR NVL (l_qtev_rec.id, G_MISS_NUM) = G_MISS_NUM
6350: OR NVL (l_qtev_rec.khr_id, G_MISS_NUM) = G_MISS_NUM
6352: OR l_invalid_line_yn THEN
6353:
6354: -- Please supply required information
6355: -- in order to calculate a quote
6356: okl_am_util_pvt.set_message (
6357: p_app_name => G_APP_NAME,
6358: p_msg_name => 'OKL_AM_NO_PARAMETERS');
6359:
6360: RAISE OKL_API.G_EXCEPTION_ERROR;
6427:
6428: ELSE
6429:
6430: -- Please select a valid Quote Type
6431: okl_am_util_pvt.set_message (
6432: p_app_name => G_APP_NAME,
6433: p_msg_name => 'OKL_AM_UNSUPPORTED_QUOTE_TYPE');
6434:
6435: RAISE OKL_API.G_EXCEPTION_ERROR;