[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:
368: IF l_contract_curr_code <> l_func_curr_code THEN
369: -- convert amount to functional currency
370:
371: IF (is_debug_statement_on) THEN
372: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
373: 'before OKL_AM_CALCULATE_QUOTE_PVT.append_quote_line calls okl_accounting_util.convert_to_functional_currency'||l_return_status);
374: END IF;
375:
376: okl_accounting_util.convert_to_functional_currency(
385: x_currency_conversion_date => lx_currency_conversion_date,
386: x_converted_amount => lx_converted_amount );
387:
388: IF (is_debug_statement_on) THEN
389: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
390: 'After OKL_AM_CALCULATE_QUOTE_PVT.append_quote_line calls okl_accounting_util.convert_to_functional_currency'||l_return_status);
391: END IF;
392:
393: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
466:
467: END IF;
468:
469: IF (is_debug_statement_on) THEN
470: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
471: -- 'px_tqlv_tbl..'||px_tqlv_tbl);
472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
473: 'px_tbl_total..'||px_tbl_total);
474: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
468:
469: IF (is_debug_statement_on) THEN
470: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
471: -- 'px_tqlv_tbl..'||px_tqlv_tbl);
472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
473: 'px_tbl_total..'||px_tbl_total);
474: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
475: 'ret status at the end.. '||l_return_status);
476: END IF;
470: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
471: -- 'px_tqlv_tbl..'||px_tqlv_tbl);
472: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
473: 'px_tbl_total..'||px_tbl_total);
474: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
475: 'ret status at the end.. '||l_return_status);
476: END IF;
477:
478: IF (is_debug_procedure_on) THEN
475: 'ret status at the end.. '||l_return_status);
476: END IF;
477:
478: IF (is_debug_procedure_on) THEN
479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
480: END IF;
481:
482: EXCEPTION
483:
482: EXCEPTION
483:
484: WHEN OTHERS THEN
485: IF (is_debug_exception_on) THEN
486: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
487: || sqlcode || ' , SQLERRM : ' || sqlerrm);
488: END IF;
489:
490: -- store SQL error message on message stack for caller
559: -- Start : Bug 6030917 : prasjain
560: l_proration_factor NUMBER;
561: -- End : Bug 6030917 : prasjain
562: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'contract_lines';
563: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
564: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
565: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
566: BEGIN
567:
560: l_proration_factor NUMBER;
561: -- End : Bug 6030917 : prasjain
562: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'contract_lines';
563: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
564: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
565: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
566: BEGIN
567:
568: IF (is_debug_procedure_on) THEN
561: -- End : Bug 6030917 : prasjain
562: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'contract_lines';
563: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
564: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
565: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
566: BEGIN
567:
568: IF (is_debug_procedure_on) THEN
569: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
565: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
566: BEGIN
567:
568: IF (is_debug_procedure_on) THEN
569: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
570: END IF;
571:
572:
573: -- *************************************************
587: l_proration_factor := p_asset_tbl(l_asset_tbl_index).p_quote_qty/p_asset_tbl(l_asset_tbl_index).p_asset_qty;
588: -- End : Bug 6030917 : prasjain
589:
590: IF (is_debug_statement_on) THEN
591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
592: 'Before OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
593: END IF;
594:
595:
602: p_proration_factor => l_proration_factor,
603: x_return_status => l_return_status);
604:
605: IF (is_debug_statement_on) THEN
606: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
607: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_util_pvt.get_net_investment'||l_return_status);
608: END IF;
609:
610: -- Start : Bug 6030917 : prasjain
631: x_return_status => l_return_status);
632: */
633:
634: IF (is_debug_statement_on) THEN
635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
636: 'Before OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_calc_quote_stream_pvt.calc_stream_type_operand'||l_return_status);
637: END IF;
638:
639:
647: x_operand_total => l_total_line_unbilled_rec,
648: x_return_status => l_return_status);
649:
650: IF (is_debug_statement_on) THEN
651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
652: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls okl_am_calc_quote_stream_pvt.calc_stream_type_operand'||l_return_status);
653: END IF;
654:
655: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
698:
699: -- SECHAWLA - Bug 2680542 : Added p_asset_qty and p_quote_qty parameters in call to append_quote_line procedure.
700: -- Changed reference p_asset_tbl(l_asset_tbl_index) to p_asset_tbl(l_asset_tbl_index).p_asset_id
701: IF (is_debug_statement_on) THEN
702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
703: 'Before OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls append_quote_line'||l_return_status);
704: END IF;
705:
706:
728: p_asset_tbl.NEXT (l_asset_tbl_index);
729: END LOOP;
730:
731: IF (is_debug_statement_on) THEN
732: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
733: 'After OKL_AM_CALCULATE_QUOTE_PVT.contract_lines calls append_quote_line'||l_return_status);
734: END IF;
735:
736: END IF;
737:
738: x_return_status := l_overall_status;
739:
740: IF (is_debug_statement_on) THEN
741: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
742: -- 'px_tqlv_tbl :'||px_tqlv_tbl);
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
744: 'ret status at the end.. '||l_return_status);
745: END IF;
739:
740: IF (is_debug_statement_on) THEN
741: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
742: -- 'px_tqlv_tbl :'||px_tqlv_tbl);
743: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
744: 'ret status at the end.. '||l_return_status);
745: END IF;
746:
747: IF (is_debug_procedure_on) THEN
744: 'ret status at the end.. '||l_return_status);
745: END IF;
746:
747: IF (is_debug_procedure_on) THEN
748: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
749: END IF;
750:
751: EXCEPTION
752:
752:
753: WHEN OTHERS THEN
754:
755: IF (is_debug_exception_on) THEN
756: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
757: || sqlcode || ' , SQLERRM : ' || sqlerrm);
758: END IF;
759: --SECHAWLA 14-FEB-03 2749690 : Close the new cursor
760: IF l_okllines_csr%ISOPEN THEN
823: l_api_version NUMBER := 1;
824: l_msg_count NUMBER;
825: l_msg_data VARCHAR2(3000);
826: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'estimate_tax';
827: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
828: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
829: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
830: BEGIN
831:
824: l_msg_count NUMBER;
825: l_msg_data VARCHAR2(3000);
826: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'estimate_tax';
827: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
828: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
829: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
830: BEGIN
831:
832:
825: l_msg_data VARCHAR2(3000);
826: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'estimate_tax';
827: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
828: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
829: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
830: BEGIN
831:
832:
833: /* -- rmunjulu Sales_Tax_Enhancement
1031:
1032: END IF;
1033: */
1034: IF (is_debug_procedure_on) THEN
1035: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1036: END IF;
1037: -- rmunjulu Sales_Tax_Enhancement
1038: -- Call the new OKL Tax engine to calculate tax
1039: -- TAX API SHOULD CALCULATE TAX FOR ALL QUOTE LINES EXCEPT (AMCFIA, AMYOUB, AMCTAX)
1049: p_source_trx_name => 'Estimated Billing', -- TRX_NAME IS NULL
1050: p_source_table => 'OKL_TRX_QUOTES_B'); -- SOURCE_TABLE IS OKL_TRX_QUOTES_B
1051:
1052: IF (is_debug_statement_on) THEN
1053: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1054: 'After OKL_AM_CALCULATE_QUOTE_PVT.estimate_tax calls OKL_PROCESS_SALES_TAX_PUB.calculate_sales_tax :'||l_return_status);
1055: END IF;
1056: x_return_status := l_return_status; -- rmunjulu Sales_Tax_Enhancement
1057:
1058: EXCEPTION
1059:
1060: WHEN OTHERS THEN
1061: IF (is_debug_exception_on) THEN
1062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1063: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1064: END IF;
1065: -- store SQL error message on message stack for caller
1066: OKL_API.SET_MESSAGE (
1430: l_line_oec NUMBER;
1431: l_contract_oec NUMBER;
1432:
1433: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'prorate_operand';
1434: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1435: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1436: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1437: BEGIN
1438: IF (is_debug_procedure_on) THEN
1431: l_contract_oec NUMBER;
1432:
1433: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'prorate_operand';
1434: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1435: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1436: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1437: BEGIN
1438: IF (is_debug_procedure_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1432:
1433: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'prorate_operand';
1434: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1435: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1436: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1437: BEGIN
1438: IF (is_debug_procedure_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1440: END IF;
1435: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1436: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1437: BEGIN
1438: IF (is_debug_procedure_on) THEN
1439: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1440: END IF;
1441: -- ********************************************************
1442: -- Prorate operands which are treated as top formula
1443: -- ********************************************************
1441: -- ********************************************************
1442: -- Prorate operands which are treated as top formula
1443: -- ********************************************************
1444: IF (is_debug_statement_on) THEN
1445: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1446: 'Inside prorate_operand :: p_head_sub_tqlv_tbl.COUNT :'||p_head_sub_tqlv_tbl.COUNT);
1447: END IF;
1448: IF p_head_sub_tqlv_tbl.COUNT > 0 THEN
1449:
1465: x_cle_amt => l_cle_amt,
1466: x_return_status => l_return_status);
1467:
1468: IF (is_debug_statement_on) THEN
1469: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1470: 'after call to prorate_operand:'||l_return_status);
1471: END IF;
1472: px_line_sub_tqlv_tbl(l_tbl_ind) := p_head_sub_tqlv_tbl(l_tbl_ind);
1473: px_line_sub_tqlv_tbl(l_tbl_ind).amount := l_cle_amt;
1516: x_formula_value => l_line_oec,
1517: x_return_status => l_return_status);
1518:
1519: IF (is_debug_statement_on) THEN
1520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1521: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1522: END IF;
1523:
1524: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1539: x_formula_value => l_contract_oec,
1540: x_return_status => l_return_status);
1541:
1542: IF (is_debug_statement_on) THEN
1543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1544: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
1545: END IF;
1546:
1547: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1606: -- bug 5480622 -- end
1607: x_return_status := l_overall_status;
1608:
1609: IF (is_debug_procedure_on) THEN
1610: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1611: END IF;
1612:
1613:
1614: EXCEPTION
1615:
1616: WHEN OTHERS THEN
1617:
1618: IF (is_debug_exception_on) THEN
1619: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1620: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1621: END IF;
1622:
1623: -- store SQL error message on message stack for caller
1663: l_default_cnt NUMBER;
1664: l_default_total NUMBER;
1665:
1666: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_default_quote_lines';
1667: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1668: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1669: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1670: BEGIN
1671: IF (is_debug_procedure_on) THEN
1664: l_default_total NUMBER;
1665:
1666: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_default_quote_lines';
1667: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1668: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1669: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1670: BEGIN
1671: IF (is_debug_procedure_on) THEN
1672: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1665:
1666: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_default_quote_lines';
1667: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1668: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1669: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1670: BEGIN
1671: IF (is_debug_procedure_on) THEN
1672: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1673: END IF;
1668: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1669: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1670: BEGIN
1671: IF (is_debug_procedure_on) THEN
1672: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1673: END IF;
1674:
1675: IF p_default_tql.COUNT > 0 THEN
1676:
1727: p_default_tql => p_default_tql,
1728: x_return_status => l_return_status);
1729:
1730: IF (is_debug_statement_on) THEN
1731: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1732: 'after call to create_default_quote_lines :'||l_return_status);
1733: END IF;
1734:
1735: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1750:
1751: x_return_status := l_overall_status;
1752:
1753: IF (is_debug_procedure_on) THEN
1754: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1755: END IF;
1756:
1757: EXCEPTION
1758:
1757: EXCEPTION
1758:
1759: WHEN OTHERS THEN
1760: IF (is_debug_exception_on) THEN
1761: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1762: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1763: END IF;
1764: -- store SQL error message on message stack for caller
1765: OKL_API.SET_MESSAGE (
1793: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1794: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1795:
1796: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_qlt_conditions';
1797: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1798: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1799: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1800: BEGIN
1801:
1794: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1795:
1796: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_qlt_conditions';
1797: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1798: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1799: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1800: BEGIN
1801:
1802: IF (is_debug_procedure_on) THEN
1795:
1796: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_qlt_conditions';
1797: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1798: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1799: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1800: BEGIN
1801:
1802: IF (is_debug_procedure_on) THEN
1803: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1799: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1800: BEGIN
1801:
1802: IF (is_debug_procedure_on) THEN
1803: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1804: END IF;
1805: -- ************************************************
1806: -- If an operand contradicts quote type, dismiss it
1807: -- ************************************************
1850:
1851: x_return_status := l_overall_status;
1852:
1853: IF (is_debug_procedure_on) THEN
1854: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1855: END IF;
1856:
1857: EXCEPTION
1858:
1858:
1859: WHEN OTHERS THEN
1860:
1861: IF (is_debug_exception_on) THEN
1862: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1863: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1864: END IF;
1865:
1866: -- store SQL error message on message stack for caller
1906: l_line_level_yn BOOLEAN := FALSE;
1907: l_asset_cnt NUMBER;
1908: l_rule_chr_id NUMBER;
1909: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_rule_level';
1910: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1911: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1912: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1913: BEGIN
1914:
1907: l_asset_cnt NUMBER;
1908: l_rule_chr_id NUMBER;
1909: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_rule_level';
1910: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1911: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1912: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1913: BEGIN
1914:
1915: IF (is_debug_procedure_on) THEN
1908: l_rule_chr_id NUMBER;
1909: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_rule_level';
1910: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1911: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1912: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1913: BEGIN
1914:
1915: IF (is_debug_procedure_on) THEN
1916: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1912: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1913: BEGIN
1914:
1915: IF (is_debug_procedure_on) THEN
1916: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1917: END IF;
1918:
1919: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
1920:
1934: x_return_status => l_return_status,
1935: p_message_yn => FALSE);
1936:
1937: IF (is_debug_statement_on) THEN
1938: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1939: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
1940: END IF;
1941:
1942: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1975:
1976: x_return_status := l_overall_status;
1977:
1978: IF (is_debug_procedure_on) THEN
1979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1980: END IF;
1981:
1982: EXCEPTION
1983:
1983:
1984: WHEN OTHERS THEN
1985:
1986: IF (is_debug_exception_on) THEN
1987: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1988: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1989: END IF;
1990:
1991: -- store SQL error message on message stack for caller
2052: -- Bug # 3061765 MDOKAL
2053: -- Finanaced Fees - passing additonal parameter for calling generic formula
2054: l_add_params okl_execute_formula_pub.ctxt_val_tbl_type;
2055: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_rule_value';
2056: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2057: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2058: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2059: BEGIN
2060:
2053: -- Finanaced Fees - passing additonal parameter for calling generic formula
2054: l_add_params okl_execute_formula_pub.ctxt_val_tbl_type;
2055: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_rule_value';
2056: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2057: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2058: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2059: BEGIN
2060:
2061: IF (is_debug_procedure_on) THEN
2054: l_add_params okl_execute_formula_pub.ctxt_val_tbl_type;
2055: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_rule_value';
2056: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2057: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2058: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2059: BEGIN
2060:
2061: IF (is_debug_procedure_on) THEN
2062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2058: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2059: BEGIN
2060:
2061: IF (is_debug_procedure_on) THEN
2062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2063: END IF;
2064:
2065:
2066: IF p_calc_option = 'NOT_APPLICABLE' THEN
2096: x_converted_amount => lx_converted_amount
2097: );
2098:
2099: IF (is_debug_statement_on) THEN
2100: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2101: 'after call to okl_accounting_util.convert_to_contract_currency:'||l_return_status);
2102: END IF;
2103:
2104: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2126: x_formula_total => l_rule_value,
2127: x_return_status => l_return_status);
2128:
2129: IF (is_debug_statement_on) THEN
2130: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2131: 'after call to process_top_formula :'||l_return_status);
2132: END IF;
2133: l_rule_value := NULL;
2134:
2145: x_formula_value => l_rule_value,
2146: x_return_status => l_return_status);
2147:
2148: IF (is_debug_statement_on) THEN
2149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2150: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2151: END IF;
2152:
2153: END IF;
2195: x_formula_value => l_rule_value,
2196: x_return_status => l_return_status);
2197:
2198: IF (is_debug_statement_on) THEN
2199: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2200: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2201: END IF;
2202:
2203: ELSE
2223: x_rule_value := l_rule_value;
2224: x_return_status := l_overall_status;
2225:
2226: IF (is_debug_procedure_on) THEN
2227: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2228: END IF;
2229:
2230: EXCEPTION
2231:
2231:
2232: WHEN OTHERS THEN
2233:
2234: IF (is_debug_exception_on) THEN
2235: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2236: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2237: END IF;
2238: -- store SQL error message on message stack for caller
2239: OKL_API.SET_MESSAGE (
2280: l_min_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2281: l_max_value NUMBER;
2282: l_min_value NUMBER;
2283: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_min_max_rule_value';
2284: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2285: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2286: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2287: BEGIN
2288: IF (is_debug_procedure_on) THEN
2281: l_max_value NUMBER;
2282: l_min_value NUMBER;
2283: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_min_max_rule_value';
2284: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2285: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2286: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2287: BEGIN
2288: IF (is_debug_procedure_on) THEN
2289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2282: l_min_value NUMBER;
2283: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_min_max_rule_value';
2284: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2285: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2286: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2287: BEGIN
2288: IF (is_debug_procedure_on) THEN
2289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2290: END IF;
2285: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2286: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2287: BEGIN
2288: IF (is_debug_procedure_on) THEN
2289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2290: END IF;
2291:
2292: IF p_operand = 'AMCTPE' THEN
2293:
2307: x_rule_value => l_max_value,
2308: x_return_status => l_max_status);
2309:
2310: IF (is_debug_statement_on) THEN
2311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2312: 'after call to get_rule_value :'||l_max_status);
2313: END IF;
2314:
2315: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2342: x_rule_value => l_max_value,
2343: x_return_status => l_max_status);
2344:
2345: IF (is_debug_statement_on) THEN
2346: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2347: 'after call to get_rule_value :'||l_max_status);
2348: END IF;
2349:
2350: IF l_max_status <> OKL_API.G_RET_STS_SUCCESS THEN
2370: x_rule_value => l_min_value,
2371: x_return_status => l_min_status);
2372:
2373: IF (is_debug_statement_on) THEN
2374: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2375: 'after call to get_rule_value :'||l_min_status);
2376: END IF;
2377:
2378: IF l_min_status <> OKL_API.G_RET_STS_SUCCESS THEN
2425:
2426: x_return_status := l_overall_status;
2427:
2428: IF (is_debug_procedure_on) THEN
2429: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2430: END IF;
2431:
2432:
2433: EXCEPTION
2433: EXCEPTION
2434:
2435: WHEN OTHERS THEN
2436: IF (is_debug_exception_on) THEN
2437: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2438: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2439: END IF;
2440: -- store SQL error message on message stack for caller
2441: OKL_API.SET_MESSAGE (
2483: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2484: l_operand_value NUMBER;
2485: l_rule_chr_id NUMBER;
2486: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_operand_value';
2487: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2488: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2489: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2490: BEGIN
2491:
2484: l_operand_value NUMBER;
2485: l_rule_chr_id NUMBER;
2486: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_operand_value';
2487: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2488: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2489: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2490: BEGIN
2491:
2492: IF (is_debug_procedure_on) THEN
2485: l_rule_chr_id NUMBER;
2486: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_operand_value';
2487: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2488: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2489: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2490: BEGIN
2491:
2492: IF (is_debug_procedure_on) THEN
2493: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2489: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2490: BEGIN
2491:
2492: IF (is_debug_procedure_on) THEN
2493: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2494: END IF;
2495:
2496: --Print Input Variables
2497: IF (is_debug_statement_on) THEN
2494: END IF;
2495:
2496: --Print Input Variables
2497: IF (is_debug_statement_on) THEN
2498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2499: 'p_rgd_code :'||p_rgd_code);
2500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2501: 'p_operand :'||p_operand);
2502: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2496: --Print Input Variables
2497: IF (is_debug_statement_on) THEN
2498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2499: 'p_rgd_code :'||p_rgd_code);
2500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2501: 'p_operand :'||p_operand);
2502: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2503: -- 'p_qtev_rec :'||p_qtev_rec);
2504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2499: 'p_rgd_code :'||p_rgd_code);
2500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2501: 'p_operand :'||p_operand);
2502: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2503: -- 'p_qtev_rec :'||p_qtev_rec);
2504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2505: 'p_rule_cle_id :'||p_rule_cle_id);
2506: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2500: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2501: 'p_operand :'||p_operand);
2502: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2503: -- 'p_qtev_rec :'||p_qtev_rec);
2504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2505: 'p_rule_cle_id :'||p_rule_cle_id);
2506: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2507: 'p_formul_cle_id :'||p_formul_cle_id);
2508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2502: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2503: -- 'p_qtev_rec :'||p_qtev_rec);
2504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2505: 'p_rule_cle_id :'||p_rule_cle_id);
2506: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2507: 'p_formul_cle_id :'||p_formul_cle_id);
2508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2509: 'p_head_rgd_code :'||p_head_rgd_code);
2510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2505: 'p_rule_cle_id :'||p_rule_cle_id);
2506: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2507: 'p_formul_cle_id :'||p_formul_cle_id);
2508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2509: 'p_head_rgd_code :'||p_head_rgd_code);
2510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2511: 'p_line_rgd_code :'||p_line_rgd_code);
2512: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2506: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2507: 'p_formul_cle_id :'||p_formul_cle_id);
2508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2509: 'p_head_rgd_code :'||p_head_rgd_code);
2510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2511: 'p_line_rgd_code :'||p_line_rgd_code);
2512: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2513: -- 'p_asset_tbl :'||p_asset_tbl);
2514: END IF;
2508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2509: 'p_head_rgd_code :'||p_head_rgd_code);
2510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2511: 'p_line_rgd_code :'||p_line_rgd_code);
2512: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2513: -- 'p_asset_tbl :'||p_asset_tbl);
2514: END IF;
2515:
2516:
2525:
2526: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
2527:
2528: IF (is_debug_statement_on) THEN
2529: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2530: 'before call to okl_am_util_pvt.get_rule_record'||l_return_status);
2531: END IF;
2532:
2533: okl_am_util_pvt.get_rule_record (
2539: x_return_status => l_return_status,
2540: p_message_yn => FALSE);
2541:
2542: IF (is_debug_statement_on) THEN
2543: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2544: 'after call to okl_am_util_pvt.get_rule_record'||l_return_status);
2545: END IF;
2546:
2547: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2556: -- formula to use for calculations.
2557: -- ********************************************************
2558:
2559: IF (is_debug_statement_on) THEN
2560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2561: 'before call to get_rule_value'||l_return_status);
2562: END IF;
2563:
2564: get_rule_value (
2577: x_rule_value => l_operand_value,
2578: x_return_status => l_return_status);
2579:
2580: IF (is_debug_statement_on) THEN
2581: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2582: 'after call to get_rule_value'||l_return_status);
2583: END IF;
2584:
2585: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
2586: AND p_operand IN ('AMCTPE','AMBPOC')
2587: AND l_operand_value IS NOT NULL THEN
2588:
2589: IF (is_debug_statement_on) THEN
2590: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2591: 'before call to get_min_max_rule_value'||l_return_status);
2592: END IF;
2593:
2594: get_min_max_rule_value (
2602: x_min_value => x_min_value, -- rmunjulu 4102565 Added
2603: x_max_value => x_max_value); -- rmunjulu 4102565 Added
2604:
2605: IF (is_debug_statement_on) THEN
2606: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2607: 'after call to get_min_max_rule_value'||l_return_status);
2608: END IF;
2609:
2610: END IF;
2620: x_operand_value := l_operand_value;
2621: x_return_status := l_overall_status;
2622:
2623: IF (is_debug_statement_on) THEN
2624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2625: 'x_operand_value..'||x_operand_value);
2626: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2627: 'ret status at the end.. '||l_return_status);
2628:
2622:
2623: IF (is_debug_statement_on) THEN
2624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2625: 'x_operand_value..'||x_operand_value);
2626: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2627: 'ret status at the end.. '||l_return_status);
2628:
2629: END IF;
2630:
2628:
2629: END IF;
2630:
2631: IF (is_debug_procedure_on) THEN
2632: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2633: END IF;
2634:
2635:
2636: EXCEPTION
2637:
2638: WHEN OTHERS THEN
2639:
2640: IF (is_debug_exception_on) THEN
2641: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2642: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2643: END IF;
2644: -- store SQL error message on message stack for caller
2645: OKL_API.SET_MESSAGE (
2678: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2679: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
2680: l_operand_value NUMBER;
2681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_non_rule_operand_value';
2682: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2683: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2685: BEGIN
2686:
2679: l_formula_string okl_formulae_v.formula_string%TYPE := NULL;
2680: l_operand_value NUMBER;
2681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_non_rule_operand_value';
2682: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2683: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2685: BEGIN
2686:
2687: IF (is_debug_procedure_on) THEN
2680: l_operand_value NUMBER;
2681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_non_rule_operand_value';
2682: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2683: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2685: BEGIN
2686:
2687: IF (is_debug_procedure_on) THEN
2688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2685: BEGIN
2686:
2687: IF (is_debug_procedure_on) THEN
2688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2689: END IF;
2690: -- *********************************
2691: -- Try to process executable operand
2692: -- *********************************
2707: x_formula_value => l_operand_value,
2708: x_return_status => l_return_status);
2709:
2710: IF (is_debug_statement_on) THEN
2711: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2712: 'after call to okl_am_util_pvt.get_formula_value :'||l_return_status);
2713: END IF;
2714:
2715: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2737: x_operand_value := l_operand_value;
2738: x_return_status := l_overall_status;
2739:
2740: IF (is_debug_exception_on) THEN
2741: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2742: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2743: END IF;
2744:
2745: EXCEPTION
2745: EXCEPTION
2746: WHEN OTHERS THEN
2747:
2748: IF (is_debug_exception_on) THEN
2749: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2750: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2751: END IF;
2752:
2753: -- store SQL error message on message stack for caller
2829: AND cim.cle_id = to_char(p_link_line_id)
2830: AND cim.object1_id2 = '#';
2831: --akrangan Bug 5495474 end
2832: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_stream_type_operand';
2833: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2834: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2835: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2836: BEGIN
2837:
2830: AND cim.object1_id2 = '#';
2831: --akrangan Bug 5495474 end
2832: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_stream_type_operand';
2833: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2834: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2835: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2836: BEGIN
2837:
2838: IF (is_debug_procedure_on) THEN
2831: --akrangan Bug 5495474 end
2832: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_stream_type_operand';
2833: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2834: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2835: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2836: BEGIN
2837:
2838: IF (is_debug_procedure_on) THEN
2839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2835: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2836: BEGIN
2837:
2838: IF (is_debug_procedure_on) THEN
2839: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2840: END IF;
2841: -- **************
2842: -- Validate lines
2843: -- **************
2890: x_return_status => l_return_status,
2891: p_message_yn => FALSE);
2892:
2893: IF (is_debug_statement_on) THEN
2894: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2895: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2896: END IF;
2897:
2898: IF ( l_return_status <> OKL_API.G_RET_STS_SUCCESS)
2964: x_operand_total => l_line_total,
2965: x_return_status => l_return_status);
2966:
2967: IF (is_debug_statement_on) THEN
2968: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2969: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2970: END IF;
2971:
2972: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2991: x_return_status => l_return_status);
2992:
2993:
2994: IF (is_debug_statement_on) THEN
2995: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2996: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
2997: END IF;
2998:
2999:
3024: x_return_status => l_return_status);
3025:
3026:
3027: IF (is_debug_statement_on) THEN
3028: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3029: 'after call to okl_am_calc_quote_stream_pvt.calc_stream_type_operand :'||l_return_status);
3030: END IF;
3031:
3032: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3136: x_operand_total := l_operand_total;
3137: x_return_status := l_overall_status;
3138:
3139: IF (is_debug_procedure_on) THEN
3140: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3141: END IF;
3142:
3143: EXCEPTION
3144:
3144:
3145: WHEN OTHERS THEN
3146:
3147: IF (is_debug_exception_on) THEN
3148: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3149: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3150: END IF;
3151: -- store SQL error message on message stack for caller
3152: OKL_API.SET_MESSAGE (
3277: --Bug 4102565: pagarg
3278: l_min_value NUMBER;
3279: l_max_value NUMBER;
3280: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_operand';
3281: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3282: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3283: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3284: --added by akrangan for bug 7043654 begin
3285: l_qlt_indx NUMBER;
3278: l_min_value NUMBER;
3279: l_max_value NUMBER;
3280: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_operand';
3281: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3282: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3283: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3284: --added by akrangan for bug 7043654 begin
3285: l_qlt_indx NUMBER;
3286: --added by akrangan for bug 7043654 end
3279: l_max_value NUMBER;
3280: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_operand';
3281: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3282: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3283: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3284: --added by akrangan for bug 7043654 begin
3285: l_qlt_indx NUMBER;
3286: --added by akrangan for bug 7043654 end
3287:
3286: --added by akrangan for bug 7043654 end
3287:
3288: BEGIN
3289: IF (is_debug_procedure_on) THEN
3290: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3291: END IF;
3292: l_chr_id := p_qtev_rec.khr_id;
3293: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
3294:
3302: p_qtev_rec => p_qtev_rec,
3303: p_qlt_code => p_operand,
3304: x_return_status => l_return_status);
3305: IF (is_debug_statement_on) THEN
3306: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3307: 'After validate_qlt_conditions call Value of l_return_status'|| l_return_status);
3308: END IF;
3309: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3310: RAISE l_invalid_operand;
3338: x_return_status => l_return_status,
3339: p_message_yn => FALSE);
3340:
3341: IF (is_debug_statement_on) THEN
3342: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3343: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
3344: END IF;
3345:
3346: -- If the corresponding rule is not checked (<> 'Y') then set the global
3383: x_operand_total => l_operand_total,
3384: x_return_status => l_return_status);
3385:
3386: IF (is_debug_statement_on) THEN
3387: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3388: 'after call to process_stream_type_operand :'||l_return_status);
3389: END IF;
3390:
3391: END IF;
3456: x_return_status => l_return_status,
3457: x_min_value => l_min_value, -- PAGARG 4102565 Added
3458: x_max_value => l_max_value); -- PAGARG 4102565 Added
3459: IF (is_debug_statement_on) THEN
3460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3461: 'After get_operand_value call Value of l_return_status'|| l_return_status);
3462: END IF;
3463: IF G_FORMULA_VALUE_FOUND THEN
3464: G_FORMULA_VALUE_FOUND := FALSE; -- cklee added Bug: 6816439
3475: p_defaulted_yn => 'N',
3476: px_tqlv_tbl => px_tqlv_tbl,
3477: px_tbl_total => l_operand_total);
3478: IF (is_debug_statement_on) THEN
3479: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3480: 'After append_quote_line call Value of l_return_status'|| l_return_status);
3481: END IF;
3482: END IF;
3483:
3530: x_return_status => l_return_status,
3531: x_min_value => l_min_value, -- PAGARG 4102565 Added
3532: x_max_value => l_max_value); -- PAGARG 4102565 Added
3533: IF (is_debug_statement_on) THEN
3534: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3535: 'After get_operand_value call 2 Value of l_return_status'|| l_return_status);
3536: END IF;
3537: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3538: THEN
3550: p_defaulted_yn => 'N',
3551: px_tqlv_tbl => px_tqlv_tbl,
3552: px_tbl_total => l_operand_total);
3553: IF (is_debug_statement_on) THEN
3554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3555: 'After append_quote_line call 2 Value of l_return_status'|| l_return_status);
3556: END IF;
3557: END IF;
3558: END IF;
3628: px_sub_tqlv_tbl => l_sub_line_tqlv_tbl,
3629: x_rule_value => l_operand_value,
3630: x_return_status => l_return_status);
3631: IF (is_debug_statement_on) THEN
3632: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3633: 'After get_rule_value call 3 Value of l_return_status'|| l_return_status);
3634: END IF;
3635: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
3636: THEN
3649: px_tqlv_tbl => px_tqlv_tbl,
3650: px_tbl_total => l_operand_total,
3651: p_rule_information4 => l_rulv_rec.rule_information4);
3652: IF (is_debug_statement_on) THEN
3653: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3654: 'After append_quote_line call 3 Value of l_return_status'|| l_return_status);
3655: END IF;
3656: END IF;
3657: END IF;
3686: x_return_status => l_return_status,
3687: x_min_value => l_min_value, -- PAGARG 4102565 Added
3688: x_max_value => l_max_value); -- PAGARG 4102565 Added
3689: IF (is_debug_statement_on) THEN
3690: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3691: 'After get_operand_value call 4 Value of l_return_status'|| l_return_status);
3692: END IF;
3693: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3694:
3698: px_operand => l_operand,
3699: x_operand_value => l_operand_value,
3700: x_return_status => l_return_status);
3701: IF (is_debug_statement_on) THEN
3702: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3703: 'After get_non_rule_operand_value call 4 Value of l_return_status'|| l_return_status);
3704: END IF;
3705: END IF;
3706:
3716: p_defaulted_yn => 'N',
3717: px_tqlv_tbl => px_tqlv_tbl,
3718: px_tbl_total => l_operand_total);
3719: IF (is_debug_statement_on) THEN
3720: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3721: 'After append_quote_line call 5 Value of l_return_status'|| l_return_status);
3722: END IF;
3723:
3724: -- ********************************************************************
3779: x_return_status => l_return_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 6 Value of l_return_status'|| l_return_status);
3785: END IF;
3786: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3787: -- SECHAWLA - Bug 2680542 : Changed reference l_reject_asset_tbl (l_asset_cnt) to l_reject_asset_tbl (l_asset_cnt).p_asset_id
3807: p_defaulted_yn => 'N',
3808: px_tqlv_tbl => px_tqlv_tbl,
3809: px_tbl_total => l_operand_total);
3810: IF (is_debug_statement_on) THEN
3811: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3812: 'After append_quote_line call 6 Value of l_return_status'|| l_return_status);
3813: END IF;
3814: END IF;
3815:
3859: x_return_status => l_header_status,
3860: x_min_value => l_min_value, -- PAGARG 4102565 Added
3861: x_max_value => l_max_value); -- PAGARG 4102565 Added
3862: IF (is_debug_statement_on) THEN
3863: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3864: 'After get_operand_value call 7 Value of l_return_status'|| l_return_status);
3865: END IF;
3866: END IF;
3867:
3888: px_operand => l_operand,
3889: x_operand_value => l_operand_value,
3890: x_return_status => l_return_status);
3891: IF (is_debug_statement_on) THEN
3892: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3893: 'After get_non_rule_operand_value call 8 Value of l_return_status'|| l_return_status);
3894: END IF;
3895: append_quote_line (
3896: p_qtev_rec => p_qtev_rec,
3904: p_defaulted_yn => 'N',
3905: px_tqlv_tbl => px_tqlv_tbl,
3906: px_tbl_total => l_operand_total);
3907: IF (is_debug_statement_on) THEN
3908: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3909: 'After append_quote_line call 8 Value of l_return_status'|| l_return_status);
3910: END IF;
3911: -- ************************************************
3912: -- Operand-rule exist for some lines but not others
3933: p_sub_tqlv_tbl => G_EMPTY_TQLV_TBL,
3934: p_defaulted_yn => 'N',
3935: px_tbl_total => l_operand_total);
3936: IF (is_debug_statement_on) THEN
3937: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3938: 'After append_quote_line call 9 Value of l_return_status'|| l_return_status);
3939: END IF;
3940: EXIT WHEN (l_asset_cnt = l_reject_asset_tbl.LAST);
3941: l_asset_cnt :=l_reject_asset_tbl.NEXT(l_asset_cnt);
3970: x_return_status => l_return_status,
3971: x_min_value => l_min_value, -- PAGARG 4102565 Added
3972: x_max_value => l_max_value); -- PAGARG 4102565 Added
3973: IF (is_debug_statement_on) THEN
3974: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3975: 'After get_operand_value call 10 Value of l_return_status'|| l_return_status);
3976: END IF;
3977: append_quote_line (
3978: p_qtev_rec => p_qtev_rec,
3991: p_defaulted_yn => 'N',
3992: px_tqlv_tbl => px_tqlv_tbl,
3993: px_tbl_total => l_operand_total);
3994: IF (is_debug_statement_on) THEN
3995: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3996: 'After append_quote_line call 10 Value of l_return_status'|| l_return_status);
3997: END IF;
3998: -- Clear variable for the next loop cycle
3999: l_sub_line_tqlv_tbl := G_EMPTY_TQLV_TBL;
4027: px_line_sub_tqlv_tbl => l_sub_line_tqlv_tbl,
4028: x_cle_amt => l_operand_value,
4029: x_return_status => l_return_status);
4030: IF (is_debug_statement_on) THEN
4031: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4032: 'After prorate_operand call 10 Value of l_return_status'|| l_return_status);
4033: END IF;
4034: ELSE
4035: l_operand_value := l_header_value;
4082:
4083: -- Clear variable for the next loop cycle
4084: l_sub_line_tqlv_tbl := G_EMPTY_TQLV_TBL;
4085: IF (is_debug_statement_on) THEN
4086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4087: 'After append_quote_line call 11 Value of l_return_status'|| l_return_status);
4088: END IF;
4089: EXIT WHEN (l_asset_cnt = l_reject_asset_tbl.LAST);
4090: l_asset_cnt := l_reject_asset_tbl.NEXT(l_asset_cnt);
4128: p_defaulted_yn => 'N',
4129: px_tqlv_tbl => px_tqlv_tbl,
4130: px_tbl_total => l_operand_total);
4131: IF (is_debug_statement_on) THEN
4132: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4133: 'After append_quote_line call 12 Value of l_return_status'|| l_return_status);
4134: END IF;
4135: END IF;
4136:
4204: p_defaulted_yn => 'N',
4205: px_tqlv_tbl => px_tqlv_tbl,
4206: px_tbl_total => l_operand_total);
4207: IF (is_debug_statement_on) THEN
4208: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4209: 'After append_quote_line call 13 Value of l_return_status'|| l_return_status);
4210: END IF;
4211: -- *********************************************
4212: -- Header rule NO_PRORATE contradicts line rules
4234: px_tqlv_tbl => px_tqlv_tbl,
4235: px_tbl_total => l_operand_total);
4236:
4237: IF (is_debug_statement_on) THEN
4238: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4239: 'After append_quote_line call 13 Value of l_return_status'|| l_return_status);
4240: END IF;
4241: EXIT WHEN (l_asset_cnt = l_reject_asset_tbl.LAST);
4242: l_asset_cnt :=l_reject_asset_tbl.NEXT(l_asset_cnt);
4253:
4254: END IF;
4255:
4256: IF (is_debug_statement_on) THEN
4257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4258: 'Value of l_operand_total'|| l_operand_total);
4259: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4260: 'Value of l_overall_status'|| l_overall_status);
4261: END IF;
4255:
4256: IF (is_debug_statement_on) THEN
4257: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4258: 'Value of l_operand_total'|| l_operand_total);
4259: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4260: 'Value of l_overall_status'|| l_overall_status);
4261: END IF;
4262: x_operand_total := l_operand_total;
4263: x_return_status := l_overall_status;
4262: x_operand_total := l_operand_total;
4263: x_return_status := l_overall_status;
4264:
4265: IF (is_debug_procedure_on) THEN
4266: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4267: END IF;
4268:
4269:
4270: EXCEPTION
4274:
4275: WHEN OTHERS THEN
4276:
4277: IF (is_debug_exception_on) THEN
4278: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4279: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4280: END IF;
4281:
4282: -- store SQL error message on message stack for caller
4352: AND l.fma_id = f.id
4353: AND l.label = cp_operand_label
4354: AND o.id = l.opd_id;
4355: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula';
4356: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4357: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4358: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4359: BEGIN
4360:
4353: AND l.label = cp_operand_label
4354: AND o.id = l.opd_id;
4355: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula';
4356: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4357: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4358: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4359: BEGIN
4360:
4361: IF (is_debug_procedure_on) THEN
4354: AND o.id = l.opd_id;
4355: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula';
4356: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4357: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4358: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4359: BEGIN
4360:
4361: IF (is_debug_procedure_on) THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4358: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4359: BEGIN
4360:
4361: IF (is_debug_procedure_on) THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4363: END IF;
4364:
4365:
4366: -- *************************************************
4379: x_formula_value => l_dummy_value,
4380: x_return_status => l_return_status);
4381:
4382: IF (is_debug_statement_on) THEN
4383: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4384: 'before call to okl_am_util_pvt.get_formula_value :'||l_return_status);
4385: END IF;
4386:
4387:
4469: x_operand_total => l_operand_total,
4470: x_return_status => l_return_status);
4471:
4472: IF (is_debug_statement_on) THEN
4473: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4474: 'before call to oprocess_operand :'||l_return_status);
4475: END IF;
4476:
4477: ELSE
4519: x_formula_total := l_formula_total;
4520: x_return_status := l_overall_status;
4521:
4522: IF (is_debug_procedure_on) THEN
4523: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4524: END IF;
4525:
4526:
4527: EXCEPTION
4536: CLOSE l_operand_csr;
4537: END IF;
4538:
4539: IF (is_debug_exception_on) THEN
4540: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4541: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4542: END IF;
4543: -- store SQL error message on message stack for caller
4544: OKL_API.SET_MESSAGE (
4627:
4628: j NUMBER; --rmunjulu 4300443
4629: l_asset_tbl asset_tbl_type; --rmunjulu 4300443
4630: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula_new';
4631: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4632: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4633: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4634: BEGIN
4635:
4628: j NUMBER; --rmunjulu 4300443
4629: l_asset_tbl asset_tbl_type; --rmunjulu 4300443
4630: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula_new';
4631: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4632: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4633: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4634: BEGIN
4635:
4636: IF (is_debug_procedure_on) THEN
4629: l_asset_tbl asset_tbl_type; --rmunjulu 4300443
4630: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_formula_new';
4631: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4632: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4633: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4634: BEGIN
4635:
4636: IF (is_debug_procedure_on) THEN
4637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4633: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4634: BEGIN
4635:
4636: IF (is_debug_procedure_on) THEN
4637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4638: END IF;
4639: -- bug 5380712 rbruno start
4640: g_compute_qte_fee := TRUE;
4641: -- bug 5380712 rbruno end
4657: -- *************************************************
4658: -- Validate formula and get formula string to disect
4659: -- *************************************************
4660: IF (is_debug_statement_on) THEN
4661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4662: 'value of p_formula_name'|| p_formula_name);
4663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4664: 'value of p_qtev_rec.khr_id'|| p_qtev_rec.khr_id);
4665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4659: -- *************************************************
4660: IF (is_debug_statement_on) THEN
4661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4662: 'value of p_formula_name'|| p_formula_name);
4663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4664: 'value of p_qtev_rec.khr_id'|| p_qtev_rec.khr_id);
4665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4666: 'value of p_cle_id'|| p_cle_id);
4667: END IF;
4661: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4662: 'value of p_formula_name'|| p_formula_name);
4663: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4664: 'value of p_qtev_rec.khr_id'|| p_qtev_rec.khr_id);
4665: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4666: 'value of p_cle_id'|| p_cle_id);
4667: END IF;
4668: -- Make sure Formula Engine can validate the formula
4669: okl_am_util_pvt.get_formula_value (
4676: --+++++++++ rmunjulu 3797384 Future Dated Term Qte -- End ++++++++++++++++
4677: x_formula_value => l_dummy_value,
4678: x_return_status => l_return_status);
4679: IF (is_debug_statement_on) THEN
4680: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4681: 'after call to okl_am_util_pvt.get_formula_value :: value of l_return_status'|| l_return_status);
4682: END IF;
4683: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4684: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
4714: -- (operand-rule combo) or
4715: -- (b) another formula in the formula engine (executable operand).
4716: -- *******************************************************************
4717: IF (is_debug_statement_on) THEN
4718: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4719: 'value of l_overall_status'|| l_overall_status);
4720: END IF;
4721: IF l_overall_status = OKL_API.G_RET_STS_SUCCESS THEN
4722:
4779: x_return_status => l_return_status);
4780:
4781:
4782: IF (is_debug_statement_on) THEN
4783: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4784: 'after process_operand value of l_return_status'|| l_return_status);
4785: END IF;
4786: end if;
4787: ELSE
4847: END IF;
4848:
4849: END IF;
4850: IF (is_debug_statement_on) THEN
4851: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4852: 'value of l_formula_total'|| l_formula_total);
4853: END IF;
4854: IF (is_debug_statement_on) THEN
4855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4851: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4852: 'value of l_formula_total'|| l_formula_total);
4853: END IF;
4854: IF (is_debug_statement_on) THEN
4855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4856: 'value of l_overall_status'|| l_overall_status);
4857: END IF;
4858: x_formula_total := l_formula_total;
4859: x_return_status := l_overall_status;
4858: x_formula_total := l_formula_total;
4859: x_return_status := l_overall_status;
4860:
4861: IF (is_debug_procedure_on) THEN
4862: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4863: END IF;
4864:
4865: EXCEPTION
4866:
4874: CLOSE l_operand_csr;
4875: END IF;
4876:
4877: IF (is_debug_exception_on) THEN
4878: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4879: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4880: END IF;
4881: -- store SQL error message on message stack for caller
4882: OKL_API.SET_MESSAGE (
4928: l_quote_subtotal NUMBER;
4929: l_rule_chr_id NUMBER;
4930:
4931: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_rule';
4932: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4933: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4934: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4935: BEGIN
4936:
4929: l_rule_chr_id NUMBER;
4930:
4931: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_rule';
4932: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4933: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4934: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4935: BEGIN
4936:
4937: -- ******************************************************************
4930:
4931: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'process_top_rule';
4932: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4933: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4934: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4935: BEGIN
4936:
4937: -- ******************************************************************
4938: -- The API derives the top formula from the top rule for a rule group
4937: -- ******************************************************************
4938: -- The API derives the top formula from the top rule for a rule group
4939: -- ******************************************************************
4940: IF (is_debug_procedure_on) THEN
4941: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4942: END IF;
4943:
4944:
4945: IF p_head_rgd_code IS NULL AND p_line_rgd_code IS NOT NULL THEN
4956:
4957: l_rule_chr_id := okl_am_util_pvt.get_rule_chr_id (p_qtev_rec);
4958:
4959: IF (is_debug_statement_on) THEN
4960: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4961: 'Value of l_rgd_code'|| l_rgd_code);
4962: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4963: 'Value of p_rdf_code'|| p_rdf_code);
4964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4958:
4959: IF (is_debug_statement_on) THEN
4960: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4961: 'Value of l_rgd_code'|| l_rgd_code);
4962: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4963: 'Value of p_rdf_code'|| p_rdf_code);
4964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4965: 'Value of l_rule_chr_id'|| l_rule_chr_id);
4966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4960: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4961: 'Value of l_rgd_code'|| l_rgd_code);
4962: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4963: 'Value of p_rdf_code'|| p_rdf_code);
4964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4965: 'Value of l_rule_chr_id'|| l_rule_chr_id);
4966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4967: 'Value of p_cle_id'|| p_cle_id);
4968: END IF;
4962: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4963: 'Value of p_rdf_code'|| p_rdf_code);
4964: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4965: 'Value of l_rule_chr_id'|| l_rule_chr_id);
4966: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4967: 'Value of p_cle_id'|| p_cle_id);
4968: END IF;
4969: okl_am_util_pvt.get_rule_record (
4970: p_rgd_code => l_rgd_code,
4975: x_return_status => l_return_status,
4976: p_message_yn => TRUE); --FALSE); -- rmunjulu 4741168
4977:
4978: IF (is_debug_statement_on) THEN
4979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4980: 'after call to okl_am_util_pvt.get_rule_record from process_top_rule Value of l_return_status'|| l_return_status);
4981: END IF;
4982: ELSIF l_overall_status = OKL_API.G_RET_STS_SUCCESS
4983: AND p_qtev_rec.qtp_code LIKE 'TER_MAN%' THEN
5018: px_tqlv_tbl => px_tqlv_tbl,
5019: x_formula_total => l_quote_subtotal,
5020: x_return_status => l_return_status);
5021: IF (is_debug_statement_on) THEN
5022: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5023: 'after call to process_top_formula_new from process_top_rule Value of l_return_status'|| l_return_status);
5024: END IF;
5025: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5026: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR
5068: p_default_tql => p_default_tql,
5069: x_return_status => l_return_status);
5070:
5071: IF (is_debug_statement_on) THEN
5072: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5073: 'after call to create_default_quote_lines from process_top_rule Value of l_return_status'|| l_return_status);
5074: END IF;
5075: -- Overwrite previous errors
5076: l_overall_status := l_return_status;
5081: x_formula_total := l_quote_subtotal;
5082: x_return_status := l_overall_status;
5083:
5084: IF (is_debug_procedure_on) THEN
5085: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5086: END IF;
5087:
5088:
5089: EXCEPTION
5090:
5091: WHEN OTHERS THEN
5092:
5093: IF (is_debug_exception_on) THEN
5094: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5095: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5096: END IF;
5097: -- store SQL error message on message stack for caller
5098: OKL_API.SET_MESSAGE (
5164: and cim.cle_id = to_char(p_link_line_id)
5165: and cim.object1_id2 = '#';
5166: --akrangan Bug 5655680 end --
5167: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_bill_adjust';
5168: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5169: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5170: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5171: BEGIN
5172: IF (is_debug_procedure_on) THEN
5165: and cim.object1_id2 = '#';
5166: --akrangan Bug 5655680 end --
5167: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_bill_adjust';
5168: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5169: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5170: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5171: BEGIN
5172: IF (is_debug_procedure_on) THEN
5173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5166: --akrangan Bug 5655680 end --
5167: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_bill_adjust';
5168: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5169: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5170: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5171: BEGIN
5172: IF (is_debug_procedure_on) THEN
5173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5174: END IF;
5169: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5170: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5171: BEGIN
5172: IF (is_debug_procedure_on) THEN
5173: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5174: END IF;
5175: -- set the input rec for BPD API
5176: -- If partial termination
5177: IF nvl(p_qtev_rec.partial_yn, 'N') = 'Y' THEN
5201: x_msg_data => l_msg_data);
5202:
5203:
5204: IF (is_debug_statement_on) THEN
5205: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5206: 'After call to okl_am_util_pvt.get_formula_value :'||l_return_status);
5207: END IF;
5208:
5209: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5314: );
5315:
5316:
5317: IF (is_debug_statement_on) THEN
5318: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5319: 'After call to okl_streams_util.get_dependent_stream_type :'||l_return_status);
5320: END IF;
5321:
5322: --Bug 6266134 veramach end
5343: px_tqlv_tbl => px_tqlv_tbl,
5344: px_tbl_total => l_operand_total);
5345:
5346: IF (is_debug_statement_on) THEN
5347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5348: 'After call to append_quote_line :'||l_return_status);
5349: END IF;
5350:
5351: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5358:
5359: x_return_status := l_overall_status;
5360:
5361: IF (is_debug_procedure_on) THEN
5362: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5363: END IF;
5364:
5365: EXCEPTION
5366:
5365: EXCEPTION
5366:
5367: WHEN OTHERS THEN
5368: IF (is_debug_exception_on) THEN
5369: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5370: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5371: END IF;
5372: -- store SQL error message on message stack for caller
5373: OKL_API.SET_MESSAGE (
5428: l_input_tbl OKL_BPD_TERMINATION_ADJ_PVT.input_tbl_type;
5429: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
5430:
5431: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_anticipated_bill';
5432: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5433: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5434: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5435: BEGIN
5436: IF (is_debug_procedure_on) THEN
5429: lx_baj_tbl OKL_BPD_TERMINATION_ADJ_PVT.baj_tbl_type;
5430:
5431: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_anticipated_bill';
5432: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5433: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5434: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5435: BEGIN
5436: IF (is_debug_procedure_on) THEN
5437: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5430:
5431: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'calc_anticipated_bill';
5432: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5433: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5434: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5435: BEGIN
5436: IF (is_debug_procedure_on) THEN
5437: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5438: END IF;
5433: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5434: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5435: BEGIN
5436: IF (is_debug_procedure_on) THEN
5437: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5438: END IF;
5439:
5440: -- if future dated quote
5441: IF trunc(p_qtev_rec.date_requested) < trunc(p_qtev_rec.date_effective_from) THEN
5456: x_msg_count => l_msg_count,
5457: x_msg_data => l_msg_data);
5458:
5459: IF (is_debug_statement_on) THEN
5460: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5461: 'after call to OKL_BPD_TERMINATION_ADJ_PVT.get_unbilled_recvbl :'||l_return_status);
5462: END IF;
5463:
5464: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5510: x_currency_conversion_date => l_currency_conversion_date,
5511: x_converted_amount => l_converted_amount);
5512:
5513: IF (is_debug_statement_on) THEN
5514: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5515: 'after call to OKL_ACCOUNTING_UTIL.convert_to_functional_currency :'||l_return_status);
5516: END IF;
5517:
5518: -- raise exception if error
5550: p_qabv_tbl => lp_qabv_tbl,
5551: x_qabv_tbl => lx_qabv_tbl);
5552:
5553: IF (is_debug_statement_on) THEN
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5555: 'after call to OKL_TXD_QTE_ANTCPT_BILL_PUB.create_txd_qte_ant_bill:'||l_return_status);
5556: END IF;
5557:
5558: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5565:
5566: x_return_status := l_overall_status;
5567:
5568: IF (is_debug_procedure_on) THEN
5569: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5570: END IF;
5571:
5572: EXCEPTION
5573:
5579:
5580: WHEN OTHERS THEN
5581:
5582: IF (is_debug_exception_on) THEN
5583: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5584: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5585: END IF;
5586: -- store SQL error message on message stack for caller
5587: OKL_API.SET_MESSAGE (
5642: WHERE a.id = cp_art_id
5643: AND a.kle_id = cp_cle_id;
5644:
5645: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase';
5646: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5647: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5648: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5649: BEGIN
5650: IF (is_debug_procedure_on) THEN
5643: AND a.kle_id = cp_cle_id;
5644:
5645: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase';
5646: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5647: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5648: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5649: BEGIN
5650: IF (is_debug_procedure_on) THEN
5651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5644:
5645: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase';
5646: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5647: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5648: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5649: BEGIN
5650: IF (is_debug_procedure_on) THEN
5651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5652: END IF;
5647: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5648: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5649: BEGIN
5650: IF (is_debug_procedure_on) THEN
5651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5652: END IF;
5653:
5654: l_asset_cnt := p_asset_tbl.FIRST;
5655: LOOP -- All repurchase rules are stored on line level
5671: x_formula_total => l_quote_subtotal,
5672: x_return_status => l_return_status);
5673:
5674: IF (is_debug_statement_on) THEN
5675: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5676: 'after call to process_top_rule :'||l_return_status);
5677: END IF;
5678:
5679: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5717: x_tqlv_tbl := l_tqlv_tbl;
5718: x_return_status := l_overall_status;
5719:
5720: IF (is_debug_procedure_on) THEN
5721: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5722: END IF;
5723:
5724: EXCEPTION
5725:
5731: END IF;
5732:
5733:
5734: IF (is_debug_exception_on) THEN
5735: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5736: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5737: END IF;
5738: -- store SQL error message on message stack for caller
5739: OKL_API.SET_MESSAGE (
5791: FROM okl_asset_returns_b a
5792: WHERE a.id = cp_art_id;
5793:
5794: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_temp';
5795: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5796: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5797: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5798: BEGIN
5799:
5792: WHERE a.id = cp_art_id;
5793:
5794: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_temp';
5795: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5796: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5797: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5798: BEGIN
5799:
5800: IF (is_debug_procedure_on) THEN
5793:
5794: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_temp';
5795: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5796: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5797: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5798: BEGIN
5799:
5800: IF (is_debug_procedure_on) THEN
5801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5797: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5798: BEGIN
5799:
5800: IF (is_debug_procedure_on) THEN
5801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5802: END IF;
5803:
5804: -- *******************************************
5805: -- Calculate values of all quote line elements
5817: x_formula_total => l_quote_subtotal,
5818: x_return_status => l_return_status);
5819:
5820: IF (is_debug_statement_on) THEN
5821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5822: 'after call to process_top_rule :'||l_return_status);
5823: END IF;
5824:
5825: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
5857: x_tqlv_tbl := l_tqlv_tbl;
5858: x_return_status := l_overall_status;
5859:
5860: IF (is_debug_procedure_on) THEN
5861: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5862: END IF;
5863:
5864: EXCEPTION
5865:
5870: CLOSE l_floor_csr;
5871: END IF;
5872:
5873: IF (is_debug_exception_on) THEN
5874: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5875: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5876: END IF;
5877:
5878: -- store SQL error message on message stack for caller
5931:
5932: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5933: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5934: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'termination';
5935: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5936: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5937: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5938: BEGIN
5939: IF (is_debug_procedure_on) THEN
5932: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5933: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5934: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'termination';
5935: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5936: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5937: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5938: BEGIN
5939: IF (is_debug_procedure_on) THEN
5940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5933: l_overall_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5934: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'termination';
5935: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5936: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5937: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5938: BEGIN
5939: IF (is_debug_procedure_on) THEN
5940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5941: END IF;
5936: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5937: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5938: BEGIN
5939: IF (is_debug_procedure_on) THEN
5940: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5941: END IF;
5942: -- ********************************************************************
5943: -- Termination quote calculation is split
5944: -- by three different classifications:
5998: l_termination_rule_code := 'AMATQC';
5999:
6000:
6001: IF (is_debug_statement_on) THEN
6002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6003: 'Value of l_head_termin_rule_group '|| l_head_termin_rule_group);
6004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6005: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
6006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6000:
6001: IF (is_debug_statement_on) THEN
6002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6003: 'Value of l_head_termin_rule_group '|| l_head_termin_rule_group);
6004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6005: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
6006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6007: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
6008: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6002: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6003: 'Value of l_head_termin_rule_group '|| l_head_termin_rule_group);
6004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6005: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
6006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6007: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
6008: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6009: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
6010: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6004: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6005: 'Value of l_line_termin_rule_group'|| l_line_termin_rule_group);
6006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6007: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
6008: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6009: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
6010: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6011: 'Value of l_termination_rule_code'|| l_termination_rule_code);
6012:
6006: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6007: 'Value of l_head_pur_opt_rule_group'|| l_head_pur_opt_rule_group);
6008: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6009: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
6010: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6011: 'Value of l_termination_rule_code'|| l_termination_rule_code);
6012:
6013: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6014: 'Value of p_asset_tbl.count'|| p_asset_tbl.count);
6009: 'Value of l_line_pur_opt_rule_group'|| l_line_pur_opt_rule_group);
6010: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6011: 'Value of l_termination_rule_code'|| l_termination_rule_code);
6012:
6013: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6014: 'Value of p_asset_tbl.count'|| p_asset_tbl.count);
6015:
6016: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6017: 'Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6012:
6013: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6014: 'Value of p_asset_tbl.count'|| p_asset_tbl.count);
6015:
6016: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6017: 'Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6018:
6019:
6020: END IF;
6034: x_formula_total => l_quote_subtotal,
6035: x_return_status => l_return_status);
6036:
6037: IF (is_debug_statement_on) THEN
6038: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6039: 'after process_top_rule call from trmn Value of l_quote_subtotal '|| l_quote_subtotal);
6040: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6041: 'after process_top_rule call from trmn Value of l_return_status'|| l_return_status);
6042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6036:
6037: IF (is_debug_statement_on) THEN
6038: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6039: 'after process_top_rule call from trmn Value of l_quote_subtotal '|| l_quote_subtotal);
6040: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6041: 'after process_top_rule call from trmn Value of l_return_status'|| l_return_status);
6042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6043: 'after process_top_rule call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6044:
6038: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6039: 'after process_top_rule call from trmn Value of l_quote_subtotal '|| l_quote_subtotal);
6040: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6041: 'after process_top_rule call from trmn Value of l_return_status'|| l_return_status);
6042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6043: 'after process_top_rule call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6044:
6045: END IF;
6046: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6070: x_operand_total => l_pur_opt_total,
6071: x_return_status => l_return_status);
6072:
6073: IF (is_debug_statement_on) THEN
6074: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6075: 'after process_operand call from trmn Value of l_pur_opt_total '|| l_quote_subtotal);
6076: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6077: 'after process_operand call from trmn Value of l_return_status'|| l_return_status);
6078: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6072:
6073: IF (is_debug_statement_on) THEN
6074: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6075: 'after process_operand call from trmn Value of l_pur_opt_total '|| l_quote_subtotal);
6076: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6077: 'after process_operand call from trmn Value of l_return_status'|| l_return_status);
6078: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6079: 'after process_operand call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6080:
6074: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6075: 'after process_operand call from trmn Value of l_pur_opt_total '|| l_quote_subtotal);
6076: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6077: 'after process_operand call from trmn Value of l_return_status'|| l_return_status);
6078: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6079: 'after process_operand call from trmn Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6080:
6081: END IF;
6082: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6097: px_tqlv_tbl => l_tqlv_tbl,
6098: x_return_status => l_return_status);
6099:
6100: IF (is_debug_statement_on) THEN
6101: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6102: 'after calc_bill_adjust call from trmn Value of l_return_status'|| l_return_status);
6103: END IF;
6104: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6105: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6111: calc_anticipated_bill (
6112: p_qtev_rec => p_qtev_rec,
6113: x_return_status => l_return_status);
6114: IF (is_debug_statement_on) THEN
6115: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6116: 'after calc_anticipated_bill call from trmn Value of l_return_status'|| l_return_status);
6117: END IF;
6118: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6119: IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN
6121: END IF;
6122: END IF;
6123:
6124: IF (is_debug_statement_on) THEN
6125: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6126: 'Value of l_tqlv_tbl.count'|| l_tqlv_tbl.count);
6127: END IF;
6128: -- rmunjulu Added for bug 3954846
6129: -- if no quote lines calculated then create the default quote lines for each asset
6143: p_default_tql => l_termination_default_tql,
6144: x_return_status => l_return_status);
6145:
6146: IF (is_debug_statement_on) THEN
6147: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6148: 'After call to create_default_quote_lines from termination Value of l_return_status'|| l_return_status);
6149: END IF;
6150: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6151: --IF l_overall_status <> OKL_API.G_RET_STS_UNEXP_ERROR THEN -- rmunjulu 4741168 removed
6160: x_tqlv_tbl := l_tqlv_tbl;
6161: x_return_status := l_overall_status;
6162:
6163: IF (is_debug_procedure_on) THEN
6164: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6165: END IF;
6166:
6167: EXCEPTION
6168:
6168:
6169: WHEN OTHERS THEN
6170:
6171: IF (is_debug_exception_on) THEN
6172: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6173: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6174: END IF;
6175: -- store SQL error message on message stack for caller
6176: OKL_API.SET_MESSAGE (
6245: l_api_version CONSTANT NUMBER := G_API_VERSION;
6246: l_msg_count NUMBER := G_MISS_NUM;
6247: l_msg_data VARCHAR2(2000);
6248: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'generate';
6249: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6250: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6251: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6252: BEGIN
6253:
6246: l_msg_count NUMBER := G_MISS_NUM;
6247: l_msg_data VARCHAR2(2000);
6248: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'generate';
6249: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6250: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6251: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6252: BEGIN
6253:
6254: IF (is_debug_procedure_on) THEN
6247: l_msg_data VARCHAR2(2000);
6248: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'generate';
6249: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6250: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6251: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6252: BEGIN
6253:
6254: IF (is_debug_procedure_on) THEN
6255: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6251: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6252: BEGIN
6253:
6254: IF (is_debug_procedure_on) THEN
6255: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6256: END IF;
6257: --Print Input Variables
6258:
6259:
6257: --Print Input Variables
6258:
6259:
6260: IF (is_debug_statement_on) THEN
6261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6262: 'p_api_version :'||p_api_version);
6263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6264: 'p_init_msg_list :'||p_init_msg_list);
6265: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6259:
6260: IF (is_debug_statement_on) THEN
6261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6262: 'p_api_version :'||p_api_version);
6263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6264: 'p_init_msg_list :'||p_init_msg_list);
6265: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6266: -- 'p_qtev_rec :'||p_qtev_rec);
6267: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6262: 'p_api_version :'||p_api_version);
6263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6264: 'p_init_msg_list :'||p_init_msg_list);
6265: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6266: -- 'p_qtev_rec :'||p_qtev_rec);
6267: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6268: -- 'p_asset_tbl :'||p_asset_tbl);
6269: END IF;
6263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6264: 'p_init_msg_list :'||p_init_msg_list);
6265: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6266: -- 'p_qtev_rec :'||p_qtev_rec);
6267: --OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6268: -- 'p_asset_tbl :'||p_asset_tbl);
6269: END IF;
6270:
6271:
6274: -- Check API version, initialize message list and create savepoint
6275: -- ***************************************************************
6276:
6277: IF (is_debug_statement_on) THEN
6278: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6279: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6280: END IF;
6281:
6282: l_return_status := OKL_API.START_ACTIVITY (
6288: '_PVT',
6289: x_return_status);
6290:
6291: IF (is_debug_statement_on) THEN
6292: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6293: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_API.START_ACTIVITY :'||l_return_status);
6294: END IF;
6295:
6296: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6387: OR l_qtev_rec.qtp_code LIKE 'TER_MAN%'
6388: THEN
6389:
6390: IF (is_debug_statement_on) THEN
6391: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6392: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls termination :'||l_return_status);
6393: END IF;
6394:
6395: termination (
6398: x_tqlv_tbl => l_tqlv_tbl,
6399: x_return_status => l_return_status);
6400:
6401: IF (is_debug_statement_on) THEN
6402: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6403: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls termination :'||l_return_status);
6404: END IF;
6405:
6406: l_overall_status := l_return_status;
6407:
6408: ELSIF l_qtev_rec.qtp_code = 'REP_STANDARD' THEN
6409:
6410: IF (is_debug_statement_on) THEN
6411: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6412: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls repurchase_temp :'||l_return_status);
6413: END IF;
6414:
6415: repurchase_temp (
6418: x_tqlv_tbl => l_tqlv_tbl,
6419: x_return_status => l_return_status);
6420:
6421: IF (is_debug_statement_on) THEN
6422: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6423: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls repurchase_temp :'||l_return_status);
6424: END IF;
6425:
6426: l_overall_status := l_return_status;
6490: -- Create a line for every asset for performance
6491: -- *********************************************
6492:
6493: IF (is_debug_statement_on) THEN
6494: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6495: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls contract_lines :'||l_return_status);
6496: END IF;
6497:
6498: contract_lines (
6501: px_tqlv_tbl => l_tqlv_tbl,
6502: x_return_status => l_return_status);
6503:
6504: IF (is_debug_statement_on) THEN
6505: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6506: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls contract_lines :'||l_return_status);
6507: END IF;
6508:
6509: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6520: IF l_qtev_rec.qtp_code LIKE 'TER_%' THEN
6521: IF l_tqlv_tbl.COUNT > 0 THEN
6522:
6523: IF (is_debug_statement_on) THEN
6524: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6525: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TQL_PVT.insert_row_bulk :'||l_return_status);
6526: END IF;
6527:
6528: -- PAGARG Bug 4300443 Call bulk insert instead of usual insert
6535: p_tqlv_tbl => l_tqlv_tbl,
6536: x_tqlv_tbl => lx_tqlv_tbl);
6537:
6538: IF (is_debug_statement_on) THEN
6539: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6540: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TQL_PVT.insert_row_bulk :'||l_return_status);
6541: END IF;
6542:
6543: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6551: IF l_tqlv_tbl.COUNT > 0 THEN
6552:
6553:
6554: IF (is_debug_statement_on) THEN
6555: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6556: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines :'||l_return_status);
6557: END IF;
6558:
6559: OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines (
6565: p_tqlv_tbl => l_tqlv_tbl,
6566: x_tqlv_tbl => lx_tqlv_tbl);
6567:
6568: IF (is_debug_statement_on) THEN
6569: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6570: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls OKL_TXL_QUOTE_LINES_PUB.insert_txl_quote_lines :'||l_return_status);
6571: END IF;
6572:
6573: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6587:
6588: IF l_tqlv_tbl.COUNT > 0 THEN
6589:
6590: IF (is_debug_statement_on) THEN
6591: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6592: 'Before OKL_AM_CALCULATE_QUOTE_PVT.generate calls estimate_tax:'||l_return_status);
6593: END IF;
6594:
6595: estimate_tax (
6598: px_tqlv_tbl => l_tqlv_tbl,
6599: x_return_status => l_return_status);
6600:
6601: IF (is_debug_statement_on) THEN
6602: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6603: 'After OKL_AM_CALCULATE_QUOTE_PVT.generate calls estimate_tax:'||l_return_status);
6604: END IF;
6605:
6606: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6624: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
6625:
6626:
6627: IF (is_debug_statement_on) THEN
6628: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,'OKL_AM_REMARKET_ASSET_PVT.generate.',
6629: 'ret status at the end.. '||l_return_status);
6630:
6631: END IF;
6632:
6630:
6631: END IF;
6632:
6633: IF (is_debug_procedure_on) THEN
6634: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,'OKL_AM_REMARKET_ASSET_PVT.generate ','End(-)');
6635: END IF;
6636:
6637:
6638: