[Home] [Help]
104:
105: l_try_id NUMBER;
106: l_trx_name okl_trx_types_v.name%TYPE;
107: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'append_quote_line';
108: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
109: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
110: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
111: BEGIN
112:
105: l_try_id NUMBER;
106: l_trx_name okl_trx_types_v.name%TYPE;
107: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'append_quote_line';
108: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
109: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
110: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
111: BEGIN
112:
113: IF (is_debug_procedure_on) THEN
106: l_trx_name okl_trx_types_v.name%TYPE;
107: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'append_quote_line';
108: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
109: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
110: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
111: BEGIN
112:
113: IF (is_debug_procedure_on) THEN
114: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
110: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
111: BEGIN
112:
113: IF (is_debug_procedure_on) THEN
114: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
115: END IF;
116:
117: --Print Input Variables
118: IF (is_debug_statement_on) THEN
115: END IF;
116:
117: --Print Input Variables
118: IF (is_debug_statement_on) THEN
119: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
120: -- 'p_qtev_rec :'||p_qtev_rec);
121: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
122: 'p_qlt_code :'||p_qlt_code);
123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
117: --Print Input Variables
118: IF (is_debug_statement_on) THEN
119: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
120: -- 'p_qtev_rec :'||p_qtev_rec);
121: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
122: 'p_qlt_code :'||p_qlt_code);
123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
124: 'p_amount :'||p_amount);
125: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
119: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
120: -- 'p_qtev_rec :'||p_qtev_rec);
121: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
122: 'p_qlt_code :'||p_qlt_code);
123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
124: 'p_amount :'||p_amount);
125: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
126: 'p_kle_id :'||p_kle_id);
127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
121: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
122: 'p_qlt_code :'||p_qlt_code);
123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
124: 'p_amount :'||p_amount);
125: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
126: 'p_kle_id :'||p_kle_id);
127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
128: 'p_asset_qty :'||p_asset_qty);
129: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
123: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
124: 'p_amount :'||p_amount);
125: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
126: 'p_kle_id :'||p_kle_id);
127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
128: 'p_asset_qty :'||p_asset_qty);
129: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
130: 'p_quote_qty :'||p_quote_qty);
131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
125: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
126: 'p_kle_id :'||p_kle_id);
127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
128: 'p_asset_qty :'||p_asset_qty);
129: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
130: 'p_quote_qty :'||p_quote_qty);
131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
132: 'p_net_investment :'||p_net_investment);
133: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
127: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
128: 'p_asset_qty :'||p_asset_qty);
129: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
130: 'p_quote_qty :'||p_quote_qty);
131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
132: 'p_net_investment :'||p_net_investment);
133: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
134: 'p_unbilled_rec :'||p_unbilled_rec);
135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
129: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
130: 'p_quote_qty :'||p_quote_qty);
131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
132: 'p_net_investment :'||p_net_investment);
133: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
134: 'p_unbilled_rec :'||p_unbilled_rec);
135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
136: 'p_residual_value :'||p_residual_value);
137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
131: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
132: 'p_net_investment :'||p_net_investment);
133: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
134: 'p_unbilled_rec :'||p_unbilled_rec);
135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
136: 'p_residual_value :'||p_residual_value);
137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
138: 'p_split_asset_number :'||p_split_asset_number);
139: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
133: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
134: 'p_unbilled_rec :'||p_unbilled_rec);
135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
136: 'p_residual_value :'||p_residual_value);
137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
138: 'p_split_asset_number :'||p_split_asset_number);
139: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
140: 'p_rule_information4 :'||p_rule_information4);
141: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
136: 'p_residual_value :'||p_residual_value);
137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
138: 'p_split_asset_number :'||p_split_asset_number);
139: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
140: 'p_rule_information4 :'||p_rule_information4);
141: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
142: 'p_success_yn :'||p_success_yn);
143: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
138: 'p_split_asset_number :'||p_split_asset_number);
139: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
140: 'p_rule_information4 :'||p_rule_information4);
141: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
142: 'p_success_yn :'||p_success_yn);
143: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
144: 'p_formula_name :'||p_formula_name);
145: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
139: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
140: 'p_rule_information4 :'||p_rule_information4);
141: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
142: 'p_success_yn :'||p_success_yn);
143: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
144: 'p_formula_name :'||p_formula_name);
145: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
146: -- 'p_sub_tqlv_tbl :'||p_sub_tqlv_tbl);
147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
141: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
142: 'p_success_yn :'||p_success_yn);
143: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
144: 'p_formula_name :'||p_formula_name);
145: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
146: -- 'p_sub_tqlv_tbl :'||p_sub_tqlv_tbl);
147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
148: 'p_defaulted_yn :'||p_defaulted_yn);
149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
143: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
144: 'p_formula_name :'||p_formula_name);
145: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
146: -- 'p_sub_tqlv_tbl :'||p_sub_tqlv_tbl);
147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
148: 'p_defaulted_yn :'||p_defaulted_yn);
149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
150: 'p_due_date :'||p_due_date);
151: END IF;
145: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
146: -- 'p_sub_tqlv_tbl :'||p_sub_tqlv_tbl);
147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
148: 'p_defaulted_yn :'||p_defaulted_yn);
149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
150: 'p_due_date :'||p_due_date);
151: END IF;
152:
153: -- ********************************************************
156:
157: IF p_sub_tqlv_tbl.COUNT > 0 THEN
158:
159: IF (is_debug_statement_on) THEN
160: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
161: 'before OKL_AM_CALCULATE_QUOTE_PVT.append_quote_line calls append_quote_line'||l_return_status);
162:
163: END IF;
164:
188:
189: END LOOP;
190:
191: IF (is_debug_statement_on) THEN
192: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
193: 'After OKL_AM_CALCULATE_QUOTE_PVT.append_quote_line calls append_quote_line'||l_return_status);
194: END IF;
195:
196:
323: IF l_contract_curr_code <> l_func_curr_code THEN
324: -- convert amount to functional currency
325:
326: IF (is_debug_statement_on) THEN
327: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
328: 'before OKL_AM_CALCULATE_QUOTE_PVT.append_quote_line calls okl_accounting_util.convert_to_functional_currency'||l_return_status);
329: END IF;
330:
331:
341: x_currency_conversion_date => lx_currency_conversion_date,
342: x_converted_amount => lx_converted_amount );
343:
344: IF (is_debug_statement_on) THEN
345: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
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:
425:
426: END IF;
427:
428: IF (is_debug_statement_on) THEN
429: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
430: -- 'px_tqlv_tbl..'||px_tqlv_tbl);
431: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
432: 'px_tbl_total..'||px_tbl_total);
433: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
427:
428: IF (is_debug_statement_on) THEN
429: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
430: -- 'px_tqlv_tbl..'||px_tqlv_tbl);
431: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
432: 'px_tbl_total..'||px_tbl_total);
433: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
434: 'ret status at the end.. '||l_return_status);
435: END IF;
429: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
430: -- 'px_tqlv_tbl..'||px_tqlv_tbl);
431: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
432: 'px_tbl_total..'||px_tbl_total);
433: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
434: 'ret status at the end.. '||l_return_status);
435: END IF;
436:
437: IF (is_debug_procedure_on) THEN
434: 'ret status at the end.. '||l_return_status);
435: END IF;
436:
437: IF (is_debug_procedure_on) THEN
438: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
439: END IF;
440:
441: EXCEPTION
442:
441: EXCEPTION
442:
443: WHEN OTHERS THEN
444: IF (is_debug_exception_on) THEN
445: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
446: || sqlcode || ' , SQLERRM : ' || sqlerrm);
447: END IF;
448:
449: -- store SQL error message on message stack for caller
518: -- Start : Bug 6030917 : prasjain
519: l_proration_factor NUMBER;
520: -- End : Bug 6030917 : prasjain
521: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'contract_lines';
522: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
523: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
524: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
525: BEGIN
526:
519: l_proration_factor NUMBER;
520: -- End : Bug 6030917 : prasjain
521: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'contract_lines';
522: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
523: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
524: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
525: BEGIN
526:
527: IF (is_debug_procedure_on) THEN
520: -- End : Bug 6030917 : prasjain
521: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'contract_lines';
522: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
523: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
524: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
525: BEGIN
526:
527: IF (is_debug_procedure_on) THEN
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
524: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
525: BEGIN
526:
527: IF (is_debug_procedure_on) THEN
528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
529: END IF;
530:
531:
532: -- *************************************************
546: l_proration_factor := p_asset_tbl(l_asset_tbl_index).p_quote_qty/p_asset_tbl(l_asset_tbl_index).p_asset_qty;
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:
561: p_proration_factor => l_proration_factor,
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
590: x_return_status => l_return_status);
591: */
592:
593: IF (is_debug_statement_on) THEN
594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
595: 'Before OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_calc_quote_stream_pvt.calc_stream_type_operand'||l_return_status);
596: END IF;
597:
598:
606: x_operand_total => l_total_line_unbilled_rec,
607: x_return_status => l_return_status);
608:
609: IF (is_debug_statement_on) THEN
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
657:
658: -- SECHAWLA - Bug 2680542 : Added p_asset_qty and p_quote_qty parameters in call to append_quote_line procedure.
659: -- Changed reference p_asset_tbl(l_asset_tbl_index) to p_asset_tbl(l_asset_tbl_index).p_asset_id
660: IF (is_debug_statement_on) THEN
661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
662: 'Before OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls append_quote_line'||l_return_status);
663: END IF;
664:
665:
687: p_asset_tbl.NEXT (l_asset_tbl_index);
688: END LOOP;
689:
690: IF (is_debug_statement_on) THEN
691: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
692: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls append_quote_line'||l_return_status);
693: END IF;
694:
695: END IF;
696:
697: x_return_status := l_overall_status;
698:
699: IF (is_debug_statement_on) THEN
700: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
701: -- 'px_tqlv_tbl :'||px_tqlv_tbl);
702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
703: 'ret status at the end.. '||l_return_status);
704: END IF;
698:
699: IF (is_debug_statement_on) THEN
700: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
701: -- 'px_tqlv_tbl :'||px_tqlv_tbl);
702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
703: 'ret status at the end.. '||l_return_status);
704: END IF;
705:
706: IF (is_debug_procedure_on) THEN
703: 'ret status at the end.. '||l_return_status);
704: END IF;
705:
706: IF (is_debug_procedure_on) THEN
707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
708: END IF;
709:
710: EXCEPTION
711:
711:
712: WHEN OTHERS THEN
713:
714: IF (is_debug_exception_on) THEN
715: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
716: || sqlcode || ' , SQLERRM : ' || sqlerrm);
717: END IF;
718: --SECHAWLA 14-FEB-03 2749690 : Close the new cursor
719: IF l_okllines_csr%ISOPEN THEN
782: l_api_version NUMBER := 1;
783: l_msg_count NUMBER;
784: l_msg_data VARCHAR2(3000);
785: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'estimate_tax';
786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
789: BEGIN
790:
783: l_msg_count NUMBER;
784: l_msg_data VARCHAR2(3000);
785: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'estimate_tax';
786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
789: BEGIN
790:
791:
784: l_msg_data VARCHAR2(3000);
785: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'estimate_tax';
786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
789: BEGIN
790:
791:
792: /* -- rmunjulu Sales_Tax_Enhancement
990:
991: END IF;
992: */
993: IF (is_debug_procedure_on) THEN
994: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
995: END IF;
996: -- rmunjulu Sales_Tax_Enhancement
997: -- Call the new OKL Tax engine to calculate tax
998: -- TAX API SHOULD CALCULATE TAX FOR ALL QUOTE LINES EXCEPT (AMCFIA, AMYOUB, AMCTAX)
1008: p_source_trx_name => 'Estimated Billing', -- TRX_NAME IS NULL
1009: p_source_table => 'OKL_TRX_QUOTES_B'); -- SOURCE_TABLE IS OKL_TRX_QUOTES_B
1010:
1011: IF (is_debug_statement_on) THEN
1012: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1013: 'After OKL_AM_CALCULATE_QUOTE_PVT.estimate_tax calls OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax :'||l_return_status);
1014: END IF;
1015: x_return_status := l_return_status; -- rmunjulu Sales_Tax_Enhancement
1016:
1017: EXCEPTION
1018:
1019: WHEN OTHERS THEN
1020: IF (is_debug_exception_on) THEN
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 (
1389: l_line_oec NUMBER;
1390: l_contract_oec NUMBER;
1391:
1392: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'prorate_operand';
1393: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1394: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1395: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1396: BEGIN
1397: IF (is_debug_procedure_on) THEN
1390: l_contract_oec NUMBER;
1391:
1392: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'prorate_operand';
1393: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1394: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1395: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1396: BEGIN
1397: IF (is_debug_procedure_on) THEN
1398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1391:
1392: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'prorate_operand';
1393: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1394: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1395: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1396: BEGIN
1397: IF (is_debug_procedure_on) THEN
1398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1399: END IF;
1394: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1395: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1396: BEGIN
1397: IF (is_debug_procedure_on) THEN
1398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1399: END IF;
1400: -- ********************************************************
1401: -- Prorate operands which are treated as top formula
1402: -- ********************************************************
1400: -- ********************************************************
1401: -- Prorate operands which are treated as top formula
1402: -- ********************************************************
1403: IF (is_debug_statement_on) THEN
1404: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1405: 'Inside prorate_operand :: p_head_sub_tqlv_tbl.COUNT :'||p_head_sub_tqlv_tbl.COUNT);
1406: END IF;
1407: IF p_head_sub_tqlv_tbl.COUNT > 0 THEN
1408:
1424: x_cle_amt => l_cle_amt,
1425: x_return_status => l_return_status);
1426:
1427: IF (is_debug_statement_on) THEN
1428: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1429: 'after call to prorate_operand:'||l_return_status);
1430: END IF;
1431: px_line_sub_tqlv_tbl(l_tbl_ind) := p_head_sub_tqlv_tbl(l_tbl_ind);
1432: px_line_sub_tqlv_tbl(l_tbl_ind).amount := l_cle_amt;
1475: x_formula_value => l_line_oec,
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
1498: x_formula_value => l_contract_oec,
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
1560: -- bug 5480622 -- end
1561: x_return_status := l_overall_status;
1562:
1563: IF (is_debug_procedure_on) THEN
1564: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1565: END IF;
1566:
1567:
1568: EXCEPTION
1569:
1570: WHEN OTHERS THEN
1571:
1572: IF (is_debug_exception_on) THEN
1573: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1574: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1575: END IF;
1576:
1577: -- store SQL error message on message stack for caller
1617: l_default_cnt NUMBER;
1618: l_default_total NUMBER;
1619:
1620: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_default_quote_lines';
1621: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1622: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1623: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1624: BEGIN
1625: IF (is_debug_procedure_on) THEN
1618: l_default_total NUMBER;
1619:
1620: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_default_quote_lines';
1621: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1622: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1623: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1624: BEGIN
1625: IF (is_debug_procedure_on) THEN
1626: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1619:
1620: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_default_quote_lines';
1621: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1622: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1623: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1624: BEGIN
1625: IF (is_debug_procedure_on) THEN
1626: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1627: END IF;
1622: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1623: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1624: BEGIN
1625: IF (is_debug_procedure_on) THEN
1626: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1627: END IF;
1628:
1629: IF p_default_tql.COUNT > 0 THEN
1630:
1681: p_default_tql => p_default_tql,
1682: x_return_status => l_return_status);
1683:
1684: IF (is_debug_statement_on) THEN
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
1704:
1705: x_return_status := l_overall_status;
1706:
1707: IF (is_debug_procedure_on) THEN
1708: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1709: END IF;
1710:
1711: EXCEPTION
1712:
1711: EXCEPTION
1712:
1713: WHEN OTHERS THEN
1714: IF (is_debug_exception_on) THEN
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 (
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);
1753: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1754: BEGIN
1755:
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);
1753: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1754: BEGIN
1755:
1756: IF (is_debug_procedure_on) THEN
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);
1753: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1754: BEGIN
1755:
1756: IF (is_debug_procedure_on) THEN
1757: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1753: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1754: BEGIN
1755:
1756: IF (is_debug_procedure_on) THEN
1757: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1758: END IF;
1759: -- ************************************************
1760: -- If an operand contradicts quote type, dismiss it
1761: -- ************************************************
1803:
1804: x_return_status := l_overall_status;
1805:
1806: IF (is_debug_procedure_on) THEN
1807: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1808: END IF;
1809:
1810: EXCEPTION
1811:
1811:
1812: WHEN OTHERS THEN
1813:
1814: IF (is_debug_exception_on) THEN
1815: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1816: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1817: END IF;
1818:
1819: -- store SQL error message on message stack for caller
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';
1863: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1864: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1865: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1866: BEGIN
1867:
1860: l_asset_cnt NUMBER;
1861: l_rule_chr_id NUMBER;
1862: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_rule_level';
1863: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1864: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1865: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1866: BEGIN
1867:
1868: IF (is_debug_procedure_on) THEN
1861: l_rule_chr_id NUMBER;
1862: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_rule_level';
1863: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1864: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1865: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1866: BEGIN
1867:
1868: IF (is_debug_procedure_on) THEN
1869: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1865: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1866: BEGIN
1867:
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:
1887: x_return_status => l_return_status,
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
1928:
1929: x_return_status := l_overall_status;
1930:
1931: IF (is_debug_procedure_on) THEN
1932: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1933: END IF;
1934:
1935: EXCEPTION
1936:
1936:
1937: WHEN OTHERS THEN
1938:
1939: IF (is_debug_exception_on) THEN
1940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1941: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1942: END IF;
1943:
1944: -- store SQL error message on message stack for caller
2005: -- Bug # 3061765 MDOKAL
2006: -- Finanaced Fees - passing additonal parameter for calling generic formula
2007: l_add_params okl_execute_formula_pub.ctxt_val_tbl_type;
2008: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_rule_value';
2009: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2010: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2011: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2012: BEGIN
2013:
2006: -- Finanaced Fees - passing additonal parameter for calling generic formula
2007: l_add_params okl_execute_formula_pub.ctxt_val_tbl_type;
2008: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_rule_value';
2009: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2010: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2011: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2012: BEGIN
2013:
2014: IF (is_debug_procedure_on) THEN
2007: l_add_params okl_execute_formula_pub.ctxt_val_tbl_type;
2008: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_rule_value';
2009: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2010: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2011: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2012: BEGIN
2013:
2014: IF (is_debug_procedure_on) THEN
2015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2011: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2012: BEGIN
2013:
2014: IF (is_debug_procedure_on) THEN
2015: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2016: END IF;
2017:
2018:
2019: IF p_calc_option = 'NOT_APPLICABLE' THEN
2049: x_converted_amount => lx_converted_amount
2050: );
2051:
2052: IF (is_debug_statement_on) THEN
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
2079: x_formula_total => l_rule_value,
2080: x_return_status => l_return_status);
2081:
2082: IF (is_debug_statement_on) THEN
2083: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2084: 'after call to process_top_formula :'||l_return_status);
2085: END IF;
2086: l_rule_value := NULL;
2087:
2098: x_formula_value => l_rule_value,
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;
2148: x_formula_value => l_rule_value,
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
2176: x_rule_value := l_rule_value;
2177: x_return_status := l_overall_status;
2178:
2179: IF (is_debug_procedure_on) THEN
2180: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2181: END IF;
2182:
2183: EXCEPTION
2184:
2184:
2185: WHEN OTHERS THEN
2186:
2187: IF (is_debug_exception_on) THEN
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 (
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);
2238: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2239: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2240: BEGIN
2241: IF (is_debug_procedure_on) THEN
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);
2238: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2239: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2240: BEGIN
2241: IF (is_debug_procedure_on) THEN
2242: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
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);
2238: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2239: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2240: BEGIN
2241: IF (is_debug_procedure_on) THEN
2242: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2243: END IF;
2238: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2239: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2240: BEGIN
2241: IF (is_debug_procedure_on) THEN
2242: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2243: END IF;
2244:
2245: IF p_operand = 'AMCTPE' THEN
2246:
2260: x_rule_value => l_max_value,
2261: x_return_status => l_max_status);
2262:
2263: IF (is_debug_statement_on) THEN
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
2295: x_rule_value => l_max_value,
2296: x_return_status => l_max_status);
2297:
2298: IF (is_debug_statement_on) THEN
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
2323: x_rule_value => l_min_value,
2324: x_return_status => l_min_status);
2325:
2326: IF (is_debug_statement_on) THEN
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
2378:
2379: x_return_status := l_overall_status;
2380:
2381: IF (is_debug_procedure_on) THEN
2382: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2383: END IF;
2384:
2385:
2386: EXCEPTION
2386: EXCEPTION
2387:
2388: WHEN OTHERS THEN
2389: IF (is_debug_exception_on) THEN
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 (
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);
2441: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2442: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2443: BEGIN
2444:
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);
2441: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2442: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2443: BEGIN
2444:
2445: IF (is_debug_procedure_on) THEN
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);
2441: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2442: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2443: BEGIN
2444:
2445: IF (is_debug_procedure_on) THEN
2446: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2442: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2443: BEGIN
2444:
2445: IF (is_debug_procedure_on) THEN
2446: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2447: END IF;
2448:
2449: --Print Input Variables
2450: IF (is_debug_statement_on) THEN
2447: END IF;
2448:
2449: --Print Input Variables
2450: IF (is_debug_statement_on) THEN
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2452: 'p_rgd_code :'||p_rgd_code);
2453: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2454: 'p_operand :'||p_operand);
2455: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2449: --Print Input Variables
2450: IF (is_debug_statement_on) THEN
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2452: 'p_rgd_code :'||p_rgd_code);
2453: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2454: 'p_operand :'||p_operand);
2455: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2456: -- 'p_qtev_rec :'||p_qtev_rec);
2457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2451: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2452: 'p_rgd_code :'||p_rgd_code);
2453: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2454: 'p_operand :'||p_operand);
2455: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2456: -- 'p_qtev_rec :'||p_qtev_rec);
2457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2458: 'p_rule_cle_id :'||p_rule_cle_id);
2459: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2453: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2454: 'p_operand :'||p_operand);
2455: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2456: -- 'p_qtev_rec :'||p_qtev_rec);
2457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2458: 'p_rule_cle_id :'||p_rule_cle_id);
2459: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2460: 'p_formul_cle_id :'||p_formul_cle_id);
2461: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2455: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2456: -- 'p_qtev_rec :'||p_qtev_rec);
2457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2458: 'p_rule_cle_id :'||p_rule_cle_id);
2459: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2460: 'p_formul_cle_id :'||p_formul_cle_id);
2461: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2462: 'p_head_rgd_code :'||p_head_rgd_code);
2463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2457: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2458: 'p_rule_cle_id :'||p_rule_cle_id);
2459: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2460: 'p_formul_cle_id :'||p_formul_cle_id);
2461: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2462: 'p_head_rgd_code :'||p_head_rgd_code);
2463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2464: 'p_line_rgd_code :'||p_line_rgd_code);
2465: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2459: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2460: 'p_formul_cle_id :'||p_formul_cle_id);
2461: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2462: 'p_head_rgd_code :'||p_head_rgd_code);
2463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2464: 'p_line_rgd_code :'||p_line_rgd_code);
2465: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2466: -- 'p_asset_tbl :'||p_asset_tbl);
2467: END IF;
2461: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2462: 'p_head_rgd_code :'||p_head_rgd_code);
2463: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2464: 'p_line_rgd_code :'||p_line_rgd_code);
2465: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2466: -- 'p_asset_tbl :'||p_asset_tbl);
2467: END IF;
2468:
2469:
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);
2484: END IF;
2485:
2486: okl_am_util_pvt.get_rule_record (
2492: x_return_status => l_return_status,
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
2509: -- formula to use for calculations.
2510: -- ********************************************************
2511:
2512: IF (is_debug_statement_on) THEN
2513: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2514: 'before call to get_rule_value'||l_return_status);
2515: END IF;
2516:
2517: get_rule_value (
2530: x_rule_value => l_operand_value,
2531: x_return_status => l_return_status);
2532:
2533: IF (is_debug_statement_on) THEN
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
2543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2544: 'before call to get_min_max_rule_value'||l_return_status);
2545: END IF;
2546:
2547: get_min_max_rule_value (
2555: x_min_value => x_min_value, -- rmunjulu 4102565 Added
2556: x_max_value => x_max_value); -- rmunjulu 4102565 Added
2557:
2558: IF (is_debug_statement_on) THEN
2559: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2560: 'after call to get_min_max_rule_value'||l_return_status);
2561: END IF;
2562:
2563: END IF;
2573: x_operand_value := l_operand_value;
2574: x_return_status := l_overall_status;
2575:
2576: IF (is_debug_statement_on) THEN
2577: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2578: 'x_operand_value..'||x_operand_value);
2579: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2580: 'ret status at the end.. '||l_return_status);
2581:
2575:
2576: IF (is_debug_statement_on) THEN
2577: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2578: 'x_operand_value..'||x_operand_value);
2579: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2580: 'ret status at the end.. '||l_return_status);
2581:
2582: END IF;
2583:
2581:
2582: END IF;
2583:
2584: IF (is_debug_procedure_on) THEN
2585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2586: END IF;
2587:
2588:
2589: EXCEPTION
2590:
2591: WHEN OTHERS THEN
2592:
2593: IF (is_debug_exception_on) THEN
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 (
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);
2636: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2637: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2638: BEGIN
2639:
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);
2636: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2637: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2638: BEGIN
2639:
2640: IF (is_debug_procedure_on) THEN
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);
2636: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2637: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2638: BEGIN
2639:
2640: IF (is_debug_procedure_on) THEN
2641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2637: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2638: BEGIN
2639:
2640: IF (is_debug_procedure_on) THEN
2641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2642: END IF;
2643: -- *********************************
2644: -- Try to process executable operand
2645: -- *********************************
2660: x_formula_value => l_operand_value,
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
2690: x_operand_value := l_operand_value;
2691: x_return_status := l_overall_status;
2692:
2693: IF (is_debug_exception_on) THEN
2694: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2695: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2696: END IF;
2697:
2698: EXCEPTION
2698: EXCEPTION
2699: WHEN OTHERS THEN
2700:
2701: IF (is_debug_exception_on) THEN
2702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2703: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2704: END IF;
2705:
2706: -- store SQL error message on message stack for caller
2782: AND cim.cle_id = to_char(p_link_line_id)
2783: AND cim.object1_id2 = '#';
2784: --akrangan Bug 5495474 end
2785: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_stream_type_operand';
2786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2789: BEGIN
2790:
2783: AND cim.object1_id2 = '#';
2784: --akrangan Bug 5495474 end
2785: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_stream_type_operand';
2786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2789: BEGIN
2790:
2791: IF (is_debug_procedure_on) THEN
2784: --akrangan Bug 5495474 end
2785: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_stream_type_operand';
2786: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2787: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2789: BEGIN
2790:
2791: IF (is_debug_procedure_on) THEN
2792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2788: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2789: BEGIN
2790:
2791: IF (is_debug_procedure_on) THEN
2792: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2793: END IF;
2794: -- **************
2795: -- Validate lines
2796: -- **************
2843: x_return_status => l_return_status,
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)
2917: x_operand_total => l_line_total,
2918: x_return_status => l_return_status);
2919:
2920: IF (is_debug_statement_on) 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
2944: x_return_status => l_return_status);
2945:
2946:
2947: IF (is_debug_statement_on) THEN
2948: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2949: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2950: END IF;
2951:
2952:
2977: x_return_status => l_return_status);
2978:
2979:
2980: IF (is_debug_statement_on) THEN
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
3089: x_operand_total := l_operand_total;
3090: x_return_status := l_overall_status;
3091:
3092: IF (is_debug_procedure_on) THEN
3093: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3094: END IF;
3095:
3096: EXCEPTION
3097:
3097:
3098: WHEN OTHERS THEN
3099:
3100: IF (is_debug_exception_on) THEN
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 (
3230: --Bug 4102565: pagarg
3231: l_min_value NUMBER;
3232: l_max_value NUMBER;
3233: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_operand';
3234: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3235: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3236: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3237: --added by akrangan for bug 7043654 begin
3238: l_qlt_indx NUMBER;
3231: l_min_value NUMBER;
3232: l_max_value NUMBER;
3233: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_operand';
3234: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3235: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3236: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3237: --added by akrangan for bug 7043654 begin
3238: l_qlt_indx NUMBER;
3239: --added by akrangan for bug 7043654 end
3232: l_max_value NUMBER;
3233: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_operand';
3234: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3235: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3236: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3237: --added by akrangan for bug 7043654 begin
3238: l_qlt_indx NUMBER;
3239: --added by akrangan for bug 7043654 end
3240: BEGIN
3238: l_qlt_indx NUMBER;
3239: --added by akrangan for bug 7043654 end
3240: BEGIN
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:
3254: p_qtev_rec => p_qtev_rec,
3255: p_qlt_code => p_operand,
3256: x_return_status => l_return_status);
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;
3290: x_return_status => l_return_status,
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
3335: x_operand_total => l_operand_total,
3336: x_return_status => l_return_status);
3337:
3338: IF (is_debug_statement_on) THEN
3339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3340: 'after call to process_stream_type_operand :'||l_return_status);
3341: END IF;
3342:
3343: END IF;
3397: x_return_status => l_return_status,
3398: x_min_value => l_min_value, -- PAGARG 4102565 Added
3399: x_max_value => l_max_value); -- PAGARG 4102565 Added
3400: IF (is_debug_statement_on) THEN
3401: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3402: 'After get_operand_value call Value of l_return_status'|| l_return_status);
3403: END IF;
3404: IF G_FORMULA_VALUE_FOUND THEN
3405: G_FORMULA_VALUE_FOUND := FALSE; -- cklee added Bug: 6816439
3416: p_defaulted_yn => 'N',
3417: px_tqlv_tbl => px_tqlv_tbl,
3418: px_tbl_total => l_operand_total);
3419: IF (is_debug_statement_on) THEN
3420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3421: 'After append_quote_line call Value of l_return_status'|| l_return_status);
3422: END IF;
3423: END IF;
3424: --Bug #3921591: pagarg +++ Rollover +++++++ Start ++++++++++
3450: x_return_status => l_return_status,
3451: x_min_value => l_min_value, -- PAGARG 4102565 Added
3452: x_max_value => l_max_value); -- PAGARG 4102565 Added
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
3470: p_defaulted_yn => 'N',
3471: px_tqlv_tbl => px_tqlv_tbl,
3472: px_tbl_total => l_operand_total);
3473: IF (is_debug_statement_on) THEN
3474: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3475: 'After append_quote_line call 2 Value of l_return_status'|| l_return_status);
3476: END IF;
3477: END IF;
3478: END IF;
3548: px_sub_tqlv_tbl => l_sub_line_tqlv_tbl,
3549: x_rule_value => l_operand_value,
3550: x_return_status => l_return_status);
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
3569: px_tqlv_tbl => px_tqlv_tbl,
3570: px_tbl_total => l_operand_total,
3571: p_rule_information4 => l_rulv_rec.rule_information4);
3572: IF (is_debug_statement_on) THEN
3573: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3574: 'After append_quote_line call 3 Value of l_return_status'|| l_return_status);
3575: END IF;
3576: END IF;
3577: END IF;
3606: x_return_status => l_return_status,
3607: x_min_value => l_min_value, -- PAGARG 4102565 Added
3608: x_max_value => l_max_value); -- PAGARG 4102565 Added
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:
3618: px_operand => l_operand,
3619: x_operand_value => l_operand_value,
3620: x_return_status => l_return_status);
3621: IF (is_debug_statement_on) THEN
3622: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3623: 'After get_non_rule_operand_value call 4 Value of l_return_status'|| l_return_status);
3624: END IF;
3625: END IF;
3626:
3636: p_defaulted_yn => 'N',
3637: px_tqlv_tbl => px_tqlv_tbl,
3638: px_tbl_total => l_operand_total);
3639: IF (is_debug_statement_on) THEN
3640: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3641: 'After append_quote_line call 5 Value of l_return_status'|| l_return_status);
3642: END IF;
3643:
3644: -- ********************************************************************
3699: x_return_status => l_return_status,
3700: x_min_value => l_min_value, -- PAGARG 4102565 Added
3701: x_max_value => l_max_value); -- PAGARG 4102565 Added
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
3727: p_defaulted_yn => 'N',
3728: px_tqlv_tbl => px_tqlv_tbl,
3729: px_tbl_total => l_operand_total);
3730: IF (is_debug_statement_on) THEN
3731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3732: 'After append_quote_line call 6 Value of l_return_status'|| l_return_status);
3733: END IF;
3734: END IF;
3735:
3779: x_return_status => l_header_status,
3780: x_min_value => l_min_value, -- PAGARG 4102565 Added
3781: x_max_value => l_max_value); -- PAGARG 4102565 Added
3782: IF (is_debug_statement_on) THEN
3783: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3784: 'After get_operand_value call 7 Value of l_return_status'|| l_return_status);
3785: END IF;
3786: END IF;
3787:
3808: px_operand => l_operand,
3809: x_operand_value => l_operand_value,
3810: x_return_status => l_return_status);
3811: IF (is_debug_statement_on) THEN
3812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3813: 'After get_non_rule_operand_value call 8 Value of l_return_status'|| l_return_status);
3814: END IF;
3815: append_quote_line (
3816: p_qtev_rec => p_qtev_rec,
3824: p_defaulted_yn => 'N',
3825: px_tqlv_tbl => px_tqlv_tbl,
3826: px_tbl_total => l_operand_total);
3827: IF (is_debug_statement_on) THEN
3828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3829: 'After append_quote_line call 8 Value of l_return_status'|| l_return_status);
3830: END IF;
3831: -- ************************************************
3832: -- Operand-rule exist for some lines but not others
3853: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
3854: p_defaulted_yn => 'N',
3855: px_tbl_total => l_operand_total);
3856: IF (is_debug_statement_on) THEN
3857: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3858: 'After append_quote_line call 9 Value of l_return_status'|| l_return_status);
3859: END IF;
3860: EXIT WHEN (l_asset_cnt = l_reject_asset_tbl.LAST);
3861: l_asset_cnt :=l_reject_asset_tbl.NEXT(l_asset_cnt);
3890: x_return_status => l_return_status,
3891: x_min_value => l_min_value, -- PAGARG 4102565 Added
3892: x_max_value => l_max_value); -- PAGARG 4102565 Added
3893: IF (is_debug_statement_on) THEN
3894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3895: 'After get_operand_value call 10 Value of l_return_status'|| l_return_status);
3896: END IF;
3897: append_quote_line (
3898: p_qtev_rec => p_qtev_rec,
3911: p_defaulted_yn => 'N',
3912: px_tqlv_tbl => px_tqlv_tbl,
3913: px_tbl_total => l_operand_total);
3914: IF (is_debug_statement_on) THEN
3915: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3916: 'After append_quote_line call 10 Value of l_return_status'|| l_return_status);
3917: END IF;
3918: -- Clear variable for the next loop cycle
3919: l_sub_line_tqlv_tbl := G_EMPTY_TQLV_TBL;
3947: px_line_sub_tqlv_tbl => l_sub_line_tqlv_tbl,
3948: x_cle_amt => l_operand_value,
3949: x_return_status => l_return_status);
3950: IF (is_debug_statement_on) THEN
3951: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3952: 'After prorate_operand call 10 Value of l_return_status'|| l_return_status);
3953: END IF;
3954: ELSE
3955: l_operand_value := l_header_value;
4002:
4003: -- Clear variable for the next loop cycle
4004: l_sub_line_tqlv_tbl := G_EMPTY_TQLV_TBL;
4005: IF (is_debug_statement_on) THEN
4006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4007: 'After append_quote_line call 11 Value of l_return_status'|| l_return_status);
4008: END IF;
4009: EXIT WHEN (l_asset_cnt = l_reject_asset_tbl.LAST);
4010: l_asset_cnt := l_reject_asset_tbl.NEXT(l_asset_cnt);
4048: p_defaulted_yn => 'N',
4049: px_tqlv_tbl => px_tqlv_tbl,
4050: px_tbl_total => l_operand_total);
4051: IF (is_debug_statement_on) THEN
4052: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4053: 'After append_quote_line call 12 Value of l_return_status'|| l_return_status);
4054: END IF;
4055: END IF;
4056:
4122: p_defaulted_yn => 'N',
4123: px_tqlv_tbl => px_tqlv_tbl,
4124: px_tbl_total => l_operand_total);
4125: IF (is_debug_statement_on) THEN
4126: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4127: 'After append_quote_line call 13 Value of l_return_status'|| l_return_status);
4128: END IF;
4129: -- *********************************************
4130: -- Header rule NO_PRORATE contradicts line rules
4152: px_tqlv_tbl => px_tqlv_tbl,
4153: px_tbl_total => l_operand_total);
4154:
4155: IF (is_debug_statement_on) THEN
4156: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4157: 'After append_quote_line call 13 Value of l_return_status'|| l_return_status);
4158: END IF;
4159: EXIT WHEN (l_asset_cnt = l_reject_asset_tbl.LAST);
4160: l_asset_cnt :=l_reject_asset_tbl.NEXT(l_asset_cnt);
4171:
4172: END IF;
4173:
4174: IF (is_debug_statement_on) THEN
4175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4176: 'Value of l_operand_total'|| l_operand_total);
4177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4178: 'Value of l_overall_status'|| l_overall_status);
4179: END IF;
4173:
4174: IF (is_debug_statement_on) THEN
4175: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4176: 'Value of l_operand_total'|| l_operand_total);
4177: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4178: 'Value of l_overall_status'|| l_overall_status);
4179: END IF;
4180: x_operand_total := l_operand_total;
4181: x_return_status := l_overall_status;
4180: x_operand_total := l_operand_total;
4181: x_return_status := l_overall_status;
4182:
4183: IF (is_debug_procedure_on) THEN
4184: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4185: END IF;
4186:
4187:
4188: EXCEPTION
4192:
4193: WHEN OTHERS THEN
4194:
4195: IF (is_debug_exception_on) THEN
4196: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4197: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4198: END IF;
4199:
4200: -- store SQL error message on message stack for caller
4270: AND l.fma_id = f.id
4271: AND l.label = cp_operand_label
4272: AND o.id = l.opd_id;
4273: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula';
4274: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4275: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4276: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4277: BEGIN
4278:
4271: AND l.label = cp_operand_label
4272: AND o.id = l.opd_id;
4273: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula';
4274: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4275: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4276: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4277: BEGIN
4278:
4279: IF (is_debug_procedure_on) THEN
4272: AND o.id = l.opd_id;
4273: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula';
4274: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4275: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4276: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4277: BEGIN
4278:
4279: IF (is_debug_procedure_on) THEN
4280: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4276: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4277: BEGIN
4278:
4279: IF (is_debug_procedure_on) THEN
4280: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4281: END IF;
4282:
4283:
4284: -- *************************************************
4297: x_formula_value => l_dummy_value,
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:
4387: x_operand_total => l_operand_total,
4388: x_return_status => l_return_status);
4389:
4390: IF (is_debug_statement_on) THEN
4391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4392: 'before call to oprocess_operand :'||l_return_status);
4393: END IF;
4394:
4395: ELSE
4437: x_formula_total := l_formula_total;
4438: x_return_status := l_overall_status;
4439:
4440: IF (is_debug_procedure_on) THEN
4441: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4442: END IF;
4443:
4444:
4445: EXCEPTION
4454: CLOSE l_operand_csr;
4455: END IF;
4456:
4457: IF (is_debug_exception_on) THEN
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 (
4536:
4537: j NUMBER; --rmunjulu 4300443
4538: l_asset_tbl asset_tbl_type; --rmunjulu 4300443
4539: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula_new';
4540: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4541: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4542: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4543: BEGIN
4544:
4537: j NUMBER; --rmunjulu 4300443
4538: l_asset_tbl asset_tbl_type; --rmunjulu 4300443
4539: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula_new';
4540: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4541: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4542: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4543: BEGIN
4544:
4545: IF (is_debug_procedure_on) THEN
4538: l_asset_tbl asset_tbl_type; --rmunjulu 4300443
4539: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula_new';
4540: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4541: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4542: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4543: BEGIN
4544:
4545: IF (is_debug_procedure_on) THEN
4546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4542: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4543: BEGIN
4544:
4545: IF (is_debug_procedure_on) THEN
4546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4547: END IF;
4548: -- bug 5380712 rbruno start
4549: g_compute_qte_fee := TRUE;
4550: -- bug 5380712 rbruno end
4554: -- *************************************************
4555: -- Validate formula and get formula string to disect
4556: -- *************************************************
4557: IF (is_debug_statement_on) THEN
4558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4559: 'value of p_formula_name'|| p_formula_name);
4560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4561: 'value of p_qtev_rec.khr_id'|| p_qtev_rec.khr_id);
4562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4556: -- *************************************************
4557: IF (is_debug_statement_on) THEN
4558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4559: 'value of p_formula_name'|| p_formula_name);
4560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4561: 'value of p_qtev_rec.khr_id'|| p_qtev_rec.khr_id);
4562: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4563: 'value of p_cle_id'|| p_cle_id);
4564: END IF;
4558: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4559: 'value of p_formula_name'|| p_formula_name);
4560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4561: 'value of p_qtev_rec.khr_id'|| p_qtev_rec.khr_id);
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 (
4573: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- End ++++++++++++++++
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
4611: -- (operand-rule combo) or
4612: -- (b) another formula in the formula engine (executable operand).
4613: -- *******************************************************************
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:
4671: x_operand_total => l_operand_total,
4672: x_return_status => l_return_status);
4673:
4674: IF (is_debug_statement_on) THEN
4675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4676: 'after process_operand value of l_return_status'|| l_return_status);
4677: END IF;
4678: ELSE
4679: -- Should never happen because
4728: END IF;
4729:
4730: END IF;
4731: IF (is_debug_statement_on) THEN
4732: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4733: 'value of l_formula_total'|| l_formula_total);
4734: END IF;
4735: IF (is_debug_statement_on) THEN
4736: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4732: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4733: 'value of l_formula_total'|| l_formula_total);
4734: END IF;
4735: IF (is_debug_statement_on) THEN
4736: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4737: 'value of l_overall_status'|| l_overall_status);
4738: END IF;
4739: x_formula_total := l_formula_total;
4740: x_return_status := l_overall_status;
4739: x_formula_total := l_formula_total;
4740: x_return_status := l_overall_status;
4741:
4742: IF (is_debug_procedure_on) THEN
4743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4744: END IF;
4745:
4746: EXCEPTION
4747:
4755: CLOSE l_operand_csr;
4756: END IF;
4757:
4758: IF (is_debug_exception_on) THEN
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 (
4809: l_quote_subtotal NUMBER;
4810: l_rule_chr_id NUMBER;
4811:
4812: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_rule';
4813: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4814: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4815: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4816: BEGIN
4817:
4810: l_rule_chr_id NUMBER;
4811:
4812: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_rule';
4813: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4814: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4815: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4816: BEGIN
4817:
4818: -- ******************************************************************
4811:
4812: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_rule';
4813: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4814: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4815: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4816: BEGIN
4817:
4818: -- ******************************************************************
4819: -- The API derives the top formula from the top rule for a rule group
4818: -- ******************************************************************
4819: -- The API derives the top formula from the top rule for a rule group
4820: -- ******************************************************************
4821: IF (is_debug_procedure_on) THEN
4822: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4823: END IF;
4824:
4825:
4826: IF p_head_rgd_code IS NULL AND p_line_rgd_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);
4843: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4844: 'Value of p_rdf_code'|| p_rdf_code);
4845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
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);
4843: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4844: 'Value of p_rdf_code'|| p_rdf_code);
4845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4846: 'Value of l_rule_chr_id'|| l_rule_chr_id);
4847: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4841: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4842: 'Value of l_rgd_code'|| l_rgd_code);
4843: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4844: 'Value of p_rdf_code'|| p_rdf_code);
4845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
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;
4843: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4844: 'Value of p_rdf_code'|| p_rdf_code);
4845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
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,
4856: x_return_status => l_return_status,
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
4899: px_tqlv_tbl => px_tqlv_tbl,
4900: x_formula_total => l_quote_subtotal,
4901: x_return_status => l_return_status);
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
4949: p_default_tql => p_default_tql,
4950: x_return_status => l_return_status);
4951:
4952: IF (is_debug_statement_on) THEN
4953: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4954: 'after call to create_default_quote_lines from process_top_rule Value of l_return_status'|| l_return_status);
4955: END IF;
4956: -- Overwrite previous errors
4957: l_overall_status := l_return_status;
4962: x_formula_total := l_quote_subtotal;
4963: x_return_status := l_overall_status;
4964:
4965: IF (is_debug_procedure_on) THEN
4966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4967: END IF;
4968:
4969:
4970: EXCEPTION
4971:
4972: WHEN OTHERS THEN
4973:
4974: IF (is_debug_exception_on) THEN
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 (
5045: and cim.cle_id = to_char(p_link_line_id)
5046: and cim.object1_id2 = '#';
5047: --akrangan Bug 5655680 end --
5048: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_bill_adjust';
5049: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5050: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5051: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5052: BEGIN
5053: IF (is_debug_procedure_on) THEN
5046: and cim.object1_id2 = '#';
5047: --akrangan Bug 5655680 end --
5048: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_bill_adjust';
5049: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5050: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5051: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5052: BEGIN
5053: IF (is_debug_procedure_on) THEN
5054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5047: --akrangan Bug 5655680 end --
5048: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_bill_adjust';
5049: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5050: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5051: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5052: BEGIN
5053: IF (is_debug_procedure_on) THEN
5054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5055: END IF;
5050: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5051: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5052: BEGIN
5053: IF (is_debug_procedure_on) THEN
5054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5055: END IF;
5056: -- set the input rec for BPD API
5057: -- If partial termination
5058: IF nvl(p_qtev_rec.partial_yn, 'N') = 'Y' THEN
5082: x_msg_data => l_msg_data);
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
5195: );
5196:
5197:
5198: IF (is_debug_statement_on) THEN
5199: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5200: 'After call to okl_streams_util.get_dependent_stream_type :'||l_return_status);
5201: END IF;
5202:
5203: --Bug 6266134 veramach end
5224: px_tqlv_tbl => px_tqlv_tbl,
5225: px_tbl_total => l_operand_total);
5226:
5227: IF (is_debug_statement_on) THEN
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
5239:
5240: x_return_status := l_overall_status;
5241:
5242: IF (is_debug_procedure_on) THEN
5243: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5244: END IF;
5245:
5246: EXCEPTION
5247:
5246: EXCEPTION
5247:
5248: WHEN OTHERS THEN
5249: IF (is_debug_exception_on) THEN
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 (
5309: l_input_tbl OKL_BPD_TERMINATION_ADJ_PVT.input_tbl_type;
5310: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
5311:
5312: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_anticipated_bill';
5313: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5314: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5316: BEGIN
5317: IF (is_debug_procedure_on) THEN
5310: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
5311:
5312: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_anticipated_bill';
5313: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5314: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5316: BEGIN
5317: IF (is_debug_procedure_on) THEN
5318: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5311:
5312: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_anticipated_bill';
5313: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5314: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5316: BEGIN
5317: IF (is_debug_procedure_on) THEN
5318: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5319: END IF;
5314: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5315: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5316: BEGIN
5317: IF (is_debug_procedure_on) THEN
5318: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5319: END IF;
5320:
5321: -- if future dated quote
5322: IF trunc(p_qtev_rec.date_requested) < trunc(p_qtev_rec.date_effective_from) THEN
5337: x_msg_count => l_msg_count,
5338: x_msg_data => l_msg_data);
5339:
5340: IF (is_debug_statement_on) THEN
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
5391: x_currency_conversion_date => l_currency_conversion_date,
5392: x_converted_amount => l_converted_amount);
5393:
5394: IF (is_debug_statement_on) THEN
5395: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5396: 'after call to OKL_ACCOUNTING_UTIL.convert_to_functional_currency :'||l_return_status);
5397: END IF;
5398:
5399: -- raise exception if error
5431: p_qabv_tbl => lp_qabv_tbl,
5432: x_qabv_tbl => lx_qabv_tbl);
5433:
5434: IF (is_debug_statement_on) THEN
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
5446:
5447: x_return_status := l_overall_status;
5448:
5449: IF (is_debug_procedure_on) THEN
5450: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5451: END IF;
5452:
5453: EXCEPTION
5454:
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 (
5523: WHERE a.id = cp_art_id
5524: AND a.kle_id = cp_cle_id;
5525:
5526: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase';
5527: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5528: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5530: BEGIN
5531: IF (is_debug_procedure_on) THEN
5524: AND a.kle_id = cp_cle_id;
5525:
5526: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase';
5527: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5528: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5530: BEGIN
5531: IF (is_debug_procedure_on) THEN
5532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5525:
5526: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase';
5527: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5528: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5530: BEGIN
5531: IF (is_debug_procedure_on) THEN
5532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5533: END IF;
5528: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5529: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5530: BEGIN
5531: IF (is_debug_procedure_on) THEN
5532: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5533: END IF;
5534:
5535: l_asset_cnt := p_asset_tbl.FIRST;
5536: LOOP -- All repurchase rules are stored on line level
5552: x_formula_total => l_quote_subtotal,
5553: x_return_status => l_return_status);
5554:
5555: IF (is_debug_statement_on) THEN
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
5598: x_tqlv_tbl := l_tqlv_tbl;
5599: x_return_status := l_overall_status;
5600:
5601: IF (is_debug_procedure_on) THEN
5602: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5603: END IF;
5604:
5605: EXCEPTION
5606:
5612: END IF;
5613:
5614:
5615: IF (is_debug_exception_on) THEN
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 (
5672: FROM okl_asset_returns_b a
5673: WHERE a.id = cp_art_id;
5674:
5675: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_temp';
5676: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5677: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5678: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5679: BEGIN
5680:
5673: WHERE a.id = cp_art_id;
5674:
5675: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_temp';
5676: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5677: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5678: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5679: BEGIN
5680:
5681: IF (is_debug_procedure_on) THEN
5674:
5675: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_temp';
5676: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5677: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5678: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5679: BEGIN
5680:
5681: IF (is_debug_procedure_on) THEN
5682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5678: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5679: BEGIN
5680:
5681: IF (is_debug_procedure_on) THEN
5682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5683: END IF;
5684:
5685: -- *******************************************
5686: -- Calculate values of all quote line elements
5698: x_formula_total => l_quote_subtotal,
5699: x_return_status => l_return_status);
5700:
5701: IF (is_debug_statement_on) THEN
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
5738: x_tqlv_tbl := l_tqlv_tbl;
5739: x_return_status := l_overall_status;
5740:
5741: IF (is_debug_procedure_on) THEN
5742: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5743: END IF;
5744:
5745: EXCEPTION
5746:
5751: CLOSE l_floor_csr;
5752: END IF;
5753:
5754: IF (is_debug_exception_on) THEN
5755: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5756: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5757: END IF;
5758:
5759: -- store SQL error message on message stack for caller
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);
5819: BEGIN
5820: IF (is_debug_procedure_on) THEN
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);
5819: BEGIN
5820: IF (is_debug_procedure_on) THEN
5821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
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);
5819: BEGIN
5820: IF (is_debug_procedure_on) THEN
5821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5822: END IF;
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);
5819: BEGIN
5820: IF (is_debug_procedure_on) THEN
5821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5822: END IF;
5823: -- ********************************************************************
5824: -- Termination quote calculation is split
5825: -- by three different classifications:
5879: l_termination_rule_code := 'AMATQC';
5880:
5881:
5882: IF (is_debug_statement_on) THEN
5883: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5884: 'Value of l_head_termin_rule_group '|| l_head_termin_rule_group);
5885: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5886: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
5887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5881:
5882: IF (is_debug_statement_on) THEN
5883: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5884: 'Value of l_head_termin_rule_group '|| l_head_termin_rule_group);
5885: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5886: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
5887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5888: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
5889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5883: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5884: 'Value of l_head_termin_rule_group '|| l_head_termin_rule_group);
5885: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5886: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
5887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5888: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
5889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5890: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
5891: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5885: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5886: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
5887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5888: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
5889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5890: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
5891: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5892: 'Value of l_termination_rule_code'|| l_termination_rule_code);
5893:
5887: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5888: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
5889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5890: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
5891: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5892: 'Value of l_termination_rule_code'|| l_termination_rule_code);
5893:
5894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5895: 'Value of p_asset_tbl.count'|| p_asset_tbl.count);
5890: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
5891: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5892: 'Value of l_termination_rule_code'|| l_termination_rule_code);
5893:
5894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5895: 'Value of p_asset_tbl.count'|| p_asset_tbl.count);
5896:
5897: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5898: 'Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
5893:
5894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5895: 'Value of p_asset_tbl.count'|| p_asset_tbl.count);
5896:
5897: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5898: 'Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
5899:
5900:
5901: END IF;
5915: x_formula_total => l_quote_subtotal,
5916: x_return_status => l_return_status);
5917:
5918: IF (is_debug_statement_on) THEN
5919: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5920: 'after process_top_rule call from trmn Value of l_quote_subtotal '|| l_quote_subtotal);
5921: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5922: 'after process_top_rule call from trmn Value of l_return_status'|| l_return_status);
5923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5917:
5918: IF (is_debug_statement_on) THEN
5919: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5920: 'after process_top_rule call from trmn Value of l_quote_subtotal '|| l_quote_subtotal);
5921: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5922: 'after process_top_rule call from trmn Value of l_return_status'|| l_return_status);
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:
5919: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5920: 'after process_top_rule call from trmn Value of l_quote_subtotal '|| l_quote_subtotal);
5921: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5922: 'after process_top_rule call from trmn Value of l_return_status'|| l_return_status);
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
5951: x_operand_total => l_pur_opt_total,
5952: x_return_status => l_return_status);
5953:
5954: IF (is_debug_statement_on) THEN
5955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5956: 'after process_operand call from trmn Value of l_pur_opt_total '|| l_quote_subtotal);
5957: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5958: 'after process_operand call from trmn Value of l_return_status'|| l_return_status);
5959: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5953:
5954: IF (is_debug_statement_on) THEN
5955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5956: 'after process_operand call from trmn Value of l_pur_opt_total '|| l_quote_subtotal);
5957: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5958: 'after process_operand call from trmn Value of l_return_status'|| l_return_status);
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:
5955: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5956: 'after process_operand call from trmn Value of l_pur_opt_total '|| l_quote_subtotal);
5957: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5958: 'after process_operand call from trmn Value of l_return_status'|| l_return_status);
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
5978: px_tqlv_tbl => l_tqlv_tbl,
5979: x_return_status => l_return_status);
5980:
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
5992: calc_anticipated_bill (
5993: p_qtev_rec => p_qtev_rec,
5994: x_return_status => l_return_status);
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
6002: END IF;
6003: END IF;
6004:
6005: IF (is_debug_statement_on) THEN
6006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6007: 'Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6008: END IF;
6009: -- rmunjulu Added for bug 3954846
6010: -- if no quote lines calculated then create the default quote lines for each asset
6024: p_default_tql => l_termination_default_tql,
6025: x_return_status => l_return_status);
6026:
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
6041: x_tqlv_tbl := l_tqlv_tbl;
6042: x_return_status := l_overall_status;
6043:
6044: IF (is_debug_procedure_on) THEN
6045: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6046: END IF;
6047:
6048: EXCEPTION
6049:
6049:
6050: WHEN OTHERS THEN
6051:
6052: IF (is_debug_exception_on) THEN
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 (
6126: l_api_version CONSTANT NUMBER := G_API_VERSION;
6127: l_msg_count NUMBER := G_MISS_NUM;
6128: l_msg_data VARCHAR2(2000);
6129: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'generate';
6130: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6131: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6132: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6133: BEGIN
6134:
6127: l_msg_count NUMBER := G_MISS_NUM;
6128: l_msg_data VARCHAR2(2000);
6129: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'generate';
6130: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6131: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6132: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6133: BEGIN
6134:
6135: IF (is_debug_procedure_on) THEN
6128: l_msg_data VARCHAR2(2000);
6129: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'generate';
6130: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6131: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6132: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6133: BEGIN
6134:
6135: IF (is_debug_procedure_on) THEN
6136: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6132: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6133: BEGIN
6134:
6135: IF (is_debug_procedure_on) THEN
6136: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6137: END IF;
6138: --Print Input Variables
6139:
6140:
6138: --Print Input Variables
6139:
6140:
6141: IF (is_debug_statement_on) THEN
6142: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6143: 'p_api_version :'||p_api_version);
6144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6145: 'p_init_msg_list :'||p_init_msg_list);
6146: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6140:
6141: IF (is_debug_statement_on) THEN
6142: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6143: 'p_api_version :'||p_api_version);
6144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6145: 'p_init_msg_list :'||p_init_msg_list);
6146: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6147: -- 'p_qtev_rec :'||p_qtev_rec);
6148: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6142: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6143: 'p_api_version :'||p_api_version);
6144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6145: 'p_init_msg_list :'||p_init_msg_list);
6146: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6147: -- 'p_qtev_rec :'||p_qtev_rec);
6148: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6149: -- 'p_asset_tbl :'||p_asset_tbl);
6150: END IF;
6144: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6145: 'p_init_msg_list :'||p_init_msg_list);
6146: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6147: -- 'p_qtev_rec :'||p_qtev_rec);
6148: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6149: -- 'p_asset_tbl :'||p_asset_tbl);
6150: END IF;
6151:
6152:
6155: -- Check API version, initialize message list and create savepoint
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 (
6169: '_PVT',
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
6268: OR l_qtev_rec.qtp_code LIKE 'TER_MAN%'
6269: THEN
6270:
6271: IF (is_debug_statement_on) THEN
6272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6273: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls termination :'||l_return_status);
6274: END IF;
6275:
6276: termination (
6279: x_tqlv_tbl => l_tqlv_tbl,
6280: x_return_status => l_return_status);
6281:
6282: IF (is_debug_statement_on) THEN
6283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6284: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls termination :'||l_return_status);
6285: END IF;
6286:
6287: l_overall_status := l_return_status;
6288:
6289: ELSIF l_qtev_rec.qtp_code = 'REP_STANDARD' THEN
6290:
6291: IF (is_debug_statement_on) THEN
6292: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6293: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls repurchase_temp :'||l_return_status);
6294: END IF;
6295:
6296: repurchase_temp (
6299: x_tqlv_tbl => l_tqlv_tbl,
6300: x_return_status => l_return_status);
6301:
6302: IF (is_debug_statement_on) THEN
6303: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6304: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls repurchase_temp :'||l_return_status);
6305: END IF;
6306:
6307: l_overall_status := l_return_status;
6371: -- Create a line for every asset for performance
6372: -- *********************************************
6373:
6374: IF (is_debug_statement_on) THEN
6375: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6376: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls contract_lines :'||l_return_status);
6377: END IF;
6378:
6379: contract_lines (
6382: px_tqlv_tbl => l_tqlv_tbl,
6383: x_return_status => l_return_status);
6384:
6385: IF (is_debug_statement_on) THEN
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
6401: IF l_qtev_rec.qtp_code LIKE 'TER_%' THEN
6402: IF l_tqlv_tbl.COUNT > 0 THEN
6403:
6404: IF (is_debug_statement_on) THEN
6405: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6406: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TQL_PVT.insert_row_bulk :'||l_return_status);
6407: END IF;
6408:
6409: -- PAGARG Bug 4300443 Call bulk insert instead of usual insert
6416: p_tqlv_tbl => l_tqlv_tbl,
6417: x_tqlv_tbl => lx_tqlv_tbl);
6418:
6419: IF (is_debug_statement_on) THEN
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
6432: IF l_tqlv_tbl.COUNT > 0 THEN
6433:
6434:
6435: IF (is_debug_statement_on) THEN
6436: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6437: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines :'||l_return_status);
6438: END IF;
6439:
6440: OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines (
6446: p_tqlv_tbl => l_tqlv_tbl,
6447: x_tqlv_tbl => lx_tqlv_tbl);
6448:
6449: IF (is_debug_statement_on) THEN
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
6468:
6469: IF l_tqlv_tbl.COUNT > 0 THEN
6470:
6471: IF (is_debug_statement_on) THEN
6472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6473: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls estimate_tax:'||l_return_status);
6474: END IF;
6475:
6476: estimate_tax (
6479: px_tqlv_tbl => l_tqlv_tbl,
6480: x_return_status => l_return_status);
6481:
6482: IF (is_debug_statement_on) THEN
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
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.',
6510: 'ret status at the end.. '||l_return_status);
6511:
6512: END IF;
6513:
6511:
6512: END IF;
6513:
6514: IF (is_debug_procedure_on) THEN
6515: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,'OKL_AM_REMARKET_ASSET_PVT.generate ','End(-)');
6516: END IF;
6517:
6518:
6519: