[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:
474: -- Modified code to get the Unbilled Rec using calc quote strm API, instead of using LINE_UNBILLED_STREAMS formula
475: -- RMUNJULU 2757312 Added to store p_split_asset_number
476: -- SECHAWLA 09-AUG-05 4304230 Modified to return 0 residual value if asset status is Evergreen
477: -- PRASJAIN Bug 6030917 Modified the signature of
478: -- okl_am_util_pvt.get_net_investment() and Removed the proration
479: -- after the call
480: -- End of comments
481:
482:
547: -- End : Bug 6030917 : prasjain
548:
549: IF (is_debug_statement_on) THEN
550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
551: 'Before OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
552: END IF;
553:
554:
555: -- Calculate Net Investment
552: END IF;
553:
554:
555: -- Calculate Net Investment
556: l_net_investment := okl_am_util_pvt.get_net_investment(
557: p_khr_id => p_qtev_rec.khr_id,
558: p_kle_id => p_asset_tbl(l_asset_tbl_index).p_asset_id,
559: p_quote_id => p_qtev_rec.id, -- rmunjulu LOANS_ENHANCEMENT -- pass quote id as it is required to derive eff from date in formula
560: p_message_yn => TRUE,
562: x_return_status => l_return_status);
563:
564: IF (is_debug_statement_on) THEN
565: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
566: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
567: END IF;
568:
569: -- Start : Bug 6030917 : prasjain
570: --NIV prorated okl_am_util_pvt.inside get_net_investment().
566: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
567: END IF;
568:
569: -- Start : Bug 6030917 : prasjain
570: --NIV prorated okl_am_util_pvt.inside get_net_investment().
571: /**
572:
573: -- prorate net investment
574: IF l_net_investment <> 0 THEN
581: --SECHAWLA 21-APR-03 Bug 2925120: Get the Unbilled Rec value for the financial assets using calc quote stream API
582: -- instead of using LINE_UNBILLED_STREAMS formula
583:
584: /* -- Calculate Unbilled Receivables
585: okl_am_util_pvt.get_formula_value(
586: p_formula_name => 'LINE_UNBILLED_STREAMS',
587: p_chr_id => p_qtev_rec.khr_id,
588: p_cle_id => p_asset_tbl(l_asset_tbl_index).p_asset_id,
589: x_formula_value => l_unbilled_rec,
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',
619: p_token1 => 'ASSET_VALUE',
943:
944: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
945:
946: IF SYS_CONTEXT('USERENV','CLIENT_INFO') IS NOT NULL THEN
947: okl_am_util_pvt.get_formula_value (
948: p_formula_name => G_TAX_FORMULA,
949: p_chr_id => p_qtev_rec.khr_id,
950: -- SECHAWLA - Bug 2680542 : Changed reference l_tax_cle_id(l_seq) to l_tax_cle_id(l_seq).p_asset_id
951: p_cle_id => l_tax_cle_id(l_seq).p_asset_id,
1450:
1451: IF NVL (p_chr_amt, 0) <> 0 THEN
1452:
1453: l_formula_name := p_operand || G_PRORATE_SUFFIX;
1454: l_formula_string := okl_am_util_pvt.get_formula_string
1455: (l_formula_name);
1456:
1457: IF l_formula_string IS NULL THEN
1458: l_formula_name := G_GENERIC_PRORATE;
1462: --line amount, then execute the formula at header level to get the contract amount. Calculate proration fraction
1463: --manually by dividing the line amount with contract amount.
1464:
1465: -- get the line oec
1466: okl_am_util_pvt.get_formula_value (
1467: p_formula_name => l_formula_name,
1468: p_chr_id => p_chr_id,
1469: p_cle_id => p_cle_id,
1470: --x_formula_value => l_proration_fraction,
1476: x_return_status => l_return_status);
1477:
1478: IF (is_debug_statement_on) THEN
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
1486: END IF;
1487: END IF;
1488:
1489: -- get the contract oec
1490: okl_am_util_pvt.get_formula_value (
1491: p_formula_name => l_formula_name,
1492: p_chr_id => p_chr_id,
1493: p_cle_id => NULL,
1494: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
1499: x_return_status => l_return_status);
1500:
1501: IF (is_debug_statement_on) THEN
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
1520: ELSE
1521:
1522: -- Unable to prorate quote element
1523: -- OPERAND in FORMULA formula
1524: okl_am_util_pvt.set_message (
1525: p_app_name => G_APP_NAME
1526: ,p_msg_name => 'OKL_AM_INVALID_PRORATION'
1527: ,p_token1 => 'FORMULA'
1528: ,p_token1_value => p_formula_name
1770: THEN
1771:
1772: -- QLT_CODE quote line is not
1773: -- allowed for QTP_CODE quote type
1774: okl_am_util_pvt.set_message (
1775: p_app_name => G_APP_NAME
1776: ,p_msg_name => 'OKL_AM_ILLEGAL_OPERAND'
1777: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
1778: ,p_token1 => 'QTP_CODE'
1773: -- allowed for QTP_CODE quote type
1774: okl_am_util_pvt.set_message (
1775: p_app_name => G_APP_NAME
1776: ,p_msg_name => 'OKL_AM_ILLEGAL_OPERAND'
1777: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
1778: ,p_token1 => 'QTP_CODE'
1779: ,p_token1_value => p_qtev_rec.qtp_code
1780: ,p_token2 => 'QLT_CODE'
1781: ,p_token2_value => p_qlt_code);
1868: IF (is_debug_procedure_on) THEN
1869: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1870: END IF;
1871:
1872: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
1873:
1874: IF p_operand IN ('AMYSAM', 'AMYFEE', 'AMYOUB') THEN
1875:
1876: l_asset_cnt := p_asset_tbl.FIRST;
1876: l_asset_cnt := p_asset_tbl.FIRST;
1877:
1878: LOOP
1879:
1880: okl_am_util_pvt.get_rule_record (
1881: p_rgd_code => p_rgd_code,
1882: p_rdf_code => p_operand,
1883: p_chr_id => l_rule_chr_id,
1884: -- SECHAWLA - Bug 2680542 : Changed reference p_asset_tbl(l_asset_cnt) to p_asset_tbl(l_asset_cnt).p_asset_id
1888: p_message_yn => FALSE);
1889:
1890: IF (is_debug_statement_on) THEN
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;
1905: IF l_line_level_yn THEN
1906:
1907: -- Rule for RULE quote element
1908: -- must be specified on contract level
1909: okl_am_util_pvt.set_message (
1910: p_app_name => G_APP_NAME
1911: ,p_msg_name => 'OKL_AM_WRONG_OPERAND_LEVEL'
1912: ,p_token1 => 'RULE'
1913: ,p_token1_value => p_operand);
2027:
2028: --SECHAWLA 26-FEB-03 Bug # 2819559 : Convert the fixed amount to contract curency in case of Recourse type of quotes
2029: IF p_qtev_rec.qtp_code LIKE 'TER_RECOURSE%' THEN
2030: -- get the functional currency
2031: -- l_vendor_program_curr_code := okl_am_util_pvt.get_functional_currency;
2032: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2033: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2034:
2035: -- get the contract currency
2028: --SECHAWLA 26-FEB-03 Bug # 2819559 : Convert the fixed amount to contract curency in case of Recourse type of quotes
2029: IF p_qtev_rec.qtp_code LIKE 'TER_RECOURSE%' THEN
2030: -- get the functional currency
2031: -- l_vendor_program_curr_code := okl_am_util_pvt.get_functional_currency;
2032: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2033: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2034:
2035: -- get the contract currency
2036: l_lease_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
2029: IF p_qtev_rec.qtp_code LIKE 'TER_RECOURSE%' THEN
2030: -- get the functional currency
2031: -- l_vendor_program_curr_code := okl_am_util_pvt.get_functional_currency;
2032: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2033: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2034:
2035: -- get the contract currency
2036: l_lease_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
2037: IF l_vendor_program_curr_code <> l_lease_contract_curr_code THEN
2032: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2033: l_vendor_program_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => l_rule_chr_id);
2034:
2035: -- get the contract currency
2036: l_lease_contract_curr_code := okl_am_util_pvt.get_chr_currency( p_chr_id => p_qtev_rec.khr_id);
2037: IF l_vendor_program_curr_code <> l_lease_contract_curr_code THEN
2038: okl_accounting_util.convert_to_contract_currency
2039: (
2040: p_khr_id => p_qtev_rec.khr_id,
2086: l_rule_value := NULL;
2087:
2088: ELSE
2089:
2090: okl_am_util_pvt.get_formula_value (
2091: p_formula_name => p_formula_name,
2092: p_chr_id => p_qtev_rec.khr_id,
2093: p_cle_id => p_cle_id,
2094: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
2099: x_return_status => l_return_status);
2100:
2101: IF (is_debug_statement_on) THEN
2102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2103: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2104: END IF;
2105:
2106: END IF;
2107:
2139: -- if cle_id is passed then need to calculate for that asset only. This
2140: -- will be in case of partial termination and formula will be calculated
2141: -- for asset level streams for the fee. instead of passing null pass p_cle_id,
2142: -- value of which will be either nul or asset id
2143: okl_am_util_pvt.get_formula_value (
2144: p_formula_name => p_formula_name,
2145: p_chr_id => p_qtev_rec.khr_id,
2146: p_cle_id => p_cle_id,
2147: p_additional_parameters => l_add_params,
2149: x_return_status => l_return_status);
2150:
2151: IF (is_debug_statement_on) THEN
2152: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2153: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2154: END IF;
2155:
2156: ELSE
2157: G_FORMULA_VALUE_FOUND := FALSE;
2159: ELSE
2160:
2161: -- Invalid combination of values
2162: -- for RULE rule in GROUP group
2163: okl_am_util_pvt.set_message(
2164: p_app_name => G_APP_NAME
2165: ,p_msg_name => 'OKL_AM_INVALID_RULE_FORMULA'
2166: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
2167: ,p_token1 => 'GROUP'
2162: -- for RULE rule in GROUP group
2163: okl_am_util_pvt.set_message(
2164: p_app_name => G_APP_NAME
2165: ,p_msg_name => 'OKL_AM_INVALID_RULE_FORMULA'
2166: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL
2167: ,p_token1 => 'GROUP'
2168: ,p_token1_value => p_rgd_code
2169: ,p_token2 => 'RULE'
2170: ,p_token2_value => p_operand);
2342: AND l_max_value < l_min_value THEN
2343:
2344: -- Invalid combination of values
2345: -- for RULE rule in GROUP group
2346: okl_am_util_pvt.set_message(
2347: p_app_name => G_APP_NAME
2348: ,p_msg_name => 'OKL_AM_MAX_MIN_MISMATCH'
2349: ,p_token1 => 'MAX'
2350: ,p_token1_value => l_max_value
2475: -- **********************************************
2476: -- Try to process operand as a operand-rule combo
2477: -- **********************************************
2478:
2479: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2480:
2481: IF (is_debug_statement_on) THEN
2482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2483: 'before call to okl_am_util_pvt.get_rule_record'||l_return_status);
2479: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2480:
2481: IF (is_debug_statement_on) THEN
2482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2483: 'before call to okl_am_util_pvt.get_rule_record'||l_return_status);
2484: END IF;
2485:
2486: okl_am_util_pvt.get_rule_record (
2487: p_rgd_code => p_rgd_code,
2482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2483: 'before call to okl_am_util_pvt.get_rule_record'||l_return_status);
2484: END IF;
2485:
2486: okl_am_util_pvt.get_rule_record (
2487: p_rgd_code => p_rgd_code,
2488: p_rdf_code => p_operand,
2489: p_chr_id => l_rule_chr_id,
2490: p_cle_id => p_rule_cle_id,
2493: p_message_yn => FALSE);
2494:
2495: IF (is_debug_statement_on) THEN
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:
2643: -- *********************************
2644: -- Try to process executable operand
2645: -- *********************************
2646:
2647: l_formula_string := okl_am_util_pvt.get_formula_string
2648: (px_operand);
2649:
2650: IF l_formula_string IS NOT NULL THEN
2651:
2648: (px_operand);
2649:
2650: IF l_formula_string IS NOT NULL THEN
2651:
2652: okl_am_util_pvt.get_formula_value (
2653: p_formula_name => px_operand,
2654: p_chr_id => p_chr_id,
2655: p_cle_id => p_cle_id,
2656: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
2661: x_return_status => l_return_status);
2662:
2663: IF (is_debug_statement_on) THEN
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
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 (
2838: p_rgd_code => l_rgd_code,
2839: p_rdf_code => p_operand,
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 (
2838: p_rgd_code => l_rgd_code,
2839: p_rdf_code => p_operand,
2840: p_chr_id => l_rule_chr_id,
2841: p_cle_id => p_cle_id,
2844: p_message_yn => FALSE);
2845:
2846: IF (is_debug_statement_on) THEN
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
2856: IF p_qtev_rec.partial_yn = 'Y' THEN
2857:
2858: -- OPERAND quote element in FORMULA formula can
2859: -- not be fully calculated for partial quote
2860: okl_am_util_pvt.set_message (
2861: p_app_name => G_APP_NAME
2862: ,p_msg_name => 'OKL_AM_INVALID_FOR_PARTIAL'
2863: ,p_token1 => 'FORMULA'
2864: ,p_token1_value => p_formula_name
3056: ELSE
3057:
3058: -- No values found for OPERAND operand
3059: -- in FORMULA formula
3060: okl_am_util_pvt.set_message (
3061: p_app_name => G_APP_NAME
3062: ,p_msg_name => 'OKL_AM_NO_OPERAND_VALUES'
3063: ,p_token1 => 'FORMULA'
3064: ,p_token1_value => p_formula_name
3241: IF (is_debug_procedure_on) THEN
3242: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3243: END IF;
3244: l_chr_id := p_qtev_rec.khr_id;
3245: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
3246:
3247: -- ***********************************
3248: -- Validate operand against quote type
3249: -- ***********************************
3280: -- determine if the corresponding auto quote rule have the contractual fee
3281: -- option checked or unchecked.
3282: IF p_head_rgd_code = 'MANUAL' AND p_operand = 'AMYFEE' THEN
3283: --determine the contractual fee rule value
3284: okl_am_util_pvt.get_rule_record (
3285: p_rgd_code => l_head_rgd_code, -- use modified rule group
3286: p_rdf_code => p_operand,
3287: p_chr_id => l_rule_chr_id,
3288: p_cle_id => NULL,
3291: p_message_yn => FALSE);
3292:
3293: IF (is_debug_statement_on) THEN
3294: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3295: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
3296: 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
3489: -- *************************
3490: -- Processing Estimated Property Tax Operand
3491: -- *************************
3492: ELSIF p_operand = 'AMPRTX' THEN
3493: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
3494:
3495: IF p_asset_tbl.COUNT > 0
3496: THEN
3497: l_asset_cnt := p_asset_tbl.FIRST;
3495: IF p_asset_tbl.COUNT > 0
3496: THEN
3497: l_asset_cnt := p_asset_tbl.FIRST;
3498: LOOP
3499: okl_am_util_pvt.get_rule_record (
3500: p_rgd_code => p_head_rgd_code,
3501: p_rdf_code => p_operand,
3502: p_chr_id => l_rule_chr_id,
3503: p_cle_id => NULL,
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(
3514: p_rgd_code => 'LAASTX',
3515: p_rdf_code => 'LAPRTX',
3516: p_chr_id => l_rule_chr_id,
3517: p_cle_id => p_asset_tbl(l_asset_cnt).p_asset_id,
3748: IF l_reject_asset_tbl.COUNT > 0 THEN
3749:
3750: l_asset_cnt := l_reject_asset_tbl.FIRST;
3751:
3752: okl_am_util_pvt.get_rule_record (
3753: p_rgd_code => p_head_rgd_code,
3754: p_rdf_code => p_operand,
3755: p_chr_id => l_rule_chr_id,
3756: p_cle_id => NULL,
4285: -- Validate formula and get formula string to disect
4286: -- *************************************************
4287:
4288: -- Make sure Formula Engine can validate the formula
4289: okl_am_util_pvt.get_formula_value (
4290: p_formula_name => p_formula_name,
4291: p_chr_id => p_qtev_rec.khr_id,
4292: p_cle_id => p_cle_id,
4293: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
4298: x_return_status => l_return_status);
4299:
4300: IF (is_debug_statement_on) THEN
4301: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
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
4353: IF l_curr_char <> '+' THEN
4354:
4355: -- Only PLUS signs are allowed in the top quote
4356: -- formula. Other signs are treated as "+"
4357: okl_am_util_pvt.set_message (
4358: p_app_name => G_APP_NAME
4359: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4360: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4361:
4356: -- formula. Other signs are treated as "+"
4357: okl_am_util_pvt.set_message (
4358: p_app_name => G_APP_NAME
4359: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4360: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4361:
4362: END IF;
4363:
4364: IF l_temp_string IS NOT NULL THEN
4562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4563: 'value of p_cle_id'|| p_cle_id);
4564: END IF;
4565: -- Make sure Formula Engine can validate the formula
4566: okl_am_util_pvt.get_formula_value (
4567: p_formula_name => p_formula_name,
4568: p_chr_id => p_qtev_rec.khr_id,
4569: p_cle_id => p_cle_id,
4570: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- Start ++++++++++++++++
4574: x_formula_value => l_dummy_value,
4575: x_return_status => l_return_status);
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;
4637: IF l_curr_char <> '+' THEN
4638:
4639: -- Only PLUS signs are allowed in the top quote
4640: -- formula. Other signs are treated as "+"
4641: okl_am_util_pvt.set_message (
4642: p_app_name => G_APP_NAME
4643: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4644: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4645:
4640: -- formula. Other signs are treated as "+"
4641: okl_am_util_pvt.set_message (
4642: p_app_name => G_APP_NAME
4643: ,p_msg_name => 'OKL_AM_INVALID_FORMULA_SIGN'
4644: ,p_msg_level => OKL_AM_UTIL_PVT.G_DEBUG_LEVEL);
4645:
4646: END IF;
4647:
4648: IF l_temp_string IS NOT NULL THEN
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:
4838: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
4839:
4840: IF (is_debug_statement_on) THEN
4841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4842: 'Value of l_rgd_code'|| l_rgd_code);
4846: 'Value of l_rule_chr_id'|| l_rule_chr_id);
4847: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4848: 'Value of p_cle_id'|| p_cle_id);
4849: END IF;
4850: okl_am_util_pvt.get_rule_record (
4851: p_rgd_code => l_rgd_code,
4852: p_rdf_code => p_rdf_code,
4853: p_chr_id => l_rule_chr_id,
4854: p_cle_id => p_cle_id,
4857: p_message_yn => TRUE); --FALSE); -- rmunjulu 4741168
4858:
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:
4936:
4937: -- Unable to find Quote Formula. LINES default
4938: -- quote lines are created to be populated manually
4939: -- +1 is added to count tax line created later
4940: okl_am_util_pvt.set_message(
4941: p_app_name => G_APP_NAME
4942: ,p_msg_name => 'OKL_AM_DEFAULT_QUOTE_LINES');
4943:
4944: create_default_quote_lines (
5083:
5084:
5085: IF (is_debug_statement_on) THEN
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:
5171:
5172: -- rmunjulu LOANS_ENHANCEMENT -- create billing adjustment lines for loans refund
5173: IF nvl(p_qtev_rec.partial_yn, 'N') = 'N' THEN
5174:
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
5373: -- rmunjulu EDAT Added sel_date
5374: lp_qabv_tbl(i).sel_date := lx_baj_tbl(i).stream_element_date;
5375:
5376: -- Get the functional currency from AM_Util
5377: OKL_AM_UTIL_PVT.get_func_currency_org(
5378: x_org_id => l_org_id,
5379: x_currency_code => l_functional_currency_code);
5380:
5381: -- Get the currency conversion details from ACCOUNTING_Util
5577: IF l_floor_price > l_quote_subtotal THEN
5578:
5579: -- Repurchase Quote amount QUOTE_AMOUNT
5580: -- is lower than Floor Price FLOOR_PRICE
5581: okl_am_util_pvt.set_message (
5582: p_app_name => G_APP_NAME
5583: ,p_msg_name => 'OKL_AM_LOW_REP_QUOTE_AMOUNT'
5584: ,p_token1 => 'QUOTE_AMOUNT'
5585: ,p_token1_value => l_quote_subtotal
5723: IF l_floor_price > l_quote_subtotal THEN
5724:
5725: -- Repurchase Quote amount QUOTE_AMOUNT
5726: -- is lower than Floor Price FLOOR_PRICE
5727: okl_am_util_pvt.set_message (
5728: p_app_name => G_APP_NAME
5729: ,p_msg_name => 'OKL_AM_LOW_REP_QUOTE_AMOUNT'
5730: ,p_token1 => 'QUOTE_AMOUNT'
5731: ,p_token1_value => l_quote_subtotal
6011: IF l_tqlv_tbl.count = 0 THEN
6012:
6013: -- quote lines are created to be populated manually
6014: -- +1 is added to count tax line created later
6015: okl_am_util_pvt.set_message(
6016: p_app_name => G_APP_NAME
6017: ,p_msg_name => 'OKL_AM_DEFAULT_QUOTE_LINES');
6018:
6019: create_default_quote_lines (
6223: END LOOP;
6224:
6225: END IF;
6226:
6227: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (l_qtev_rec);
6228:
6229: IF l_asset_tbl.COUNT = 0
6230: OR NVL (l_qtev_rec.id, G_MISS_NUM) = G_MISS_NUM
6231: OR NVL (l_qtev_rec.khr_id, G_MISS_NUM) = G_MISS_NUM
6233: OR l_invalid_line_yn THEN
6234:
6235: -- Please supply required information
6236: -- in order to calculate a quote
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;
6308:
6309: ELSE
6310:
6311: -- Please select a valid Quote Type
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;