[Home] [Help]
21: RETURN NUMBER IS
22: x_lumpsum_qty NUMBER;
23: BEGIN
24: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
25: IF l_debug = FND_API.G_TRUE THEN
26: QP_PREQ_GRP.engine_debug('In Get_Lumpsum_Qty ..., QPXPCLPB.pls');
27: QP_PREQ_GRP.engine_debug('line_index '|| p_line_index
28: ||' line_dtl_index '|| p_line_detail_index
29: ||' level '|| p_modifier_level_code);
48: QP_PREQ_GRP.G_service_line_qty_tbl(p_line_index);
49: END IF; --p_modifier_level_code
50: END IF; --QP_PREQ_GRP.G_service_line_qty_tbl
51:
52: IF l_debug = FND_API.G_TRUE THEN
53: QP_PREQ_GRP.engine_debug('Get_Lumpsum_Qty '|| x_lumpsum_qty);
54: END IF;
55:
56: RETURN x_lumpsum_qty;
77: v_price_round_options VARCHAR2(30) := NULL; --shu, new rounding
78:
79: BEGIN
80: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
81: x_return_status := FND_API.G_RET_STS_SUCCESS;
82: IF l_debug = FND_API.G_TRUE THEN
83: QP_PREQ_GRP.engine_debug('In Calculate_List_Price ..., QPXPCLPB.pls');
84: END IF;
85: IF (p_operand_calc_code = QP_PREQ_GRP.G_UNIT_PRICE) THEN
78:
79: BEGIN
80: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
81: x_return_status := FND_API.G_RET_STS_SUCCESS;
82: IF l_debug = FND_API.G_TRUE THEN
83: QP_PREQ_GRP.engine_debug('In Calculate_List_Price ..., QPXPCLPB.pls');
84: END IF;
85: IF (p_operand_calc_code = QP_PREQ_GRP.G_UNIT_PRICE) THEN
86: x_list_price := p_operand_value * p_service_duration;
87: ELSIF(p_operand_calc_code = QP_PREQ_GRP.G_BLOCK_PRICE) THEN -- block pricing
88: IF (p_request_qty = 0) THEN
89: x_list_price := 0;
90: ELSE
91: IF l_debug = FND_API.G_TRUE THEN
92: qp_preq_grp.engine_debug('In Calculate_List_Price #1');
93: END IF;
94: x_list_price := (p_operand_value / p_request_qty);
95: IF l_debug = FND_API.G_TRUE THEN
91: IF l_debug = FND_API.G_TRUE THEN
92: qp_preq_grp.engine_debug('In Calculate_List_Price #1');
93: END IF;
94: x_list_price := (p_operand_value / p_request_qty);
95: IF l_debug = FND_API.G_TRUE THEN
96: qp_preq_grp.engine_debug('Request Qty: ' || p_request_qty);
97: qp_preq_grp.engine_debug('List Price: ' || x_list_price);
98: END IF;
99: END IF;
103: END IF;
104:
105: -- ravi passed (-1)*request_line.rounding_factor when calling this procedure, therefore needs to *(-1)
106: -- to print the original rounding_factor
107: IF l_debug = FND_API.G_TRUE THEN
108: QP_PREQ_GRP.engine_debug('In procedure Calculate_List_Price ...');
109: QP_PREQ_GRP.engine_debug('G_ROUNDING_FLAG: '|| QP_PREQ_GRP.G_ROUNDING_FLAG); -- aso rounding, shu, 2457629
110: QP_PREQ_GRP.engine_debug('rounding_factor: '|| ( - 1) * p_rounding_factor); -- ravi passed (-1)*request_line.rounding_factor
111:
115: x_list_price := ROUND(x_list_price, p_rounding_factor);
116: x_percent_price := ROUND(x_percent_price, p_rounding_factor);
117:
118: ELSIF (QP_PREQ_GRP.G_ROUNDING_FLAG = G_CHAR_Q) THEN -- check v_selling_price_rounding_options profile
119: IF l_debug = FND_API.G_TRUE THEN
120: QP_PREQ_GRP.engine_debug('are we here 2?');
121: END IF;
122: v_price_round_options := nvl(FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS'), QP_Calculate_Price_PUB.G_NO_ROUND); --shu, new rounding
123: IF l_debug = FND_API.G_TRUE THEN
119: IF l_debug = FND_API.G_TRUE THEN
120: QP_PREQ_GRP.engine_debug('are we here 2?');
121: END IF;
122: v_price_round_options := nvl(FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS'), QP_Calculate_Price_PUB.G_NO_ROUND); --shu, new rounding
123: IF l_debug = FND_API.G_TRUE THEN
124: QP_PREQ_GRP.engine_debug('selling_price_rounding_options: '|| v_price_round_options );
125: END IF;
126: IF (v_price_round_options = G_ROUND_ADJ AND p_rounding_factor IS NOT NULL) THEN
127: x_list_price := ROUND(x_list_price, p_rounding_factor);
128: x_percent_price := ROUND(x_percent_price, p_rounding_factor);
129: END IF;
130: END IF;
131:
132: IF l_debug = FND_API.G_TRUE THEN
133: QP_PREQ_GRP.engine_debug('x_list_price' || x_list_price);
134: END IF;
135: -- end shu new rounding
136: EXCEPTION
134: END IF;
135: -- end shu new rounding
136: EXCEPTION
137: WHEN OTHERS THEN
138: IF l_debug = FND_API.G_TRUE THEN
139: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
140: END IF;
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
137: WHEN OTHERS THEN
138: IF l_debug = FND_API.G_TRUE THEN
139: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
140: END IF;
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
143: END Calculate_List_Price;
144:
145: -- Local to the calculation Engine
162: v_price_round_options VARCHAR2(30) := NULL; --shu, new rounding
163:
164: BEGIN
165: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
166: x_return_status := FND_API.G_RET_STS_SUCCESS;
167: IF l_debug = FND_API.G_TRUE THEN
168: QP_PREQ_GRP.engine_debug('In Calculate_List_Price_PVT..., QPXPCLPB.pls');
169: END IF;
170: IF (p_operand_calc_code IN (QP_PREQ_GRP.G_UNIT_PRICE, QP_PREQ_GRP.G_BREAKUNIT_PRICE)) THEN
163:
164: BEGIN
165: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
166: x_return_status := FND_API.G_RET_STS_SUCCESS;
167: IF l_debug = FND_API.G_TRUE THEN
168: QP_PREQ_GRP.engine_debug('In Calculate_List_Price_PVT..., QPXPCLPB.pls');
169: END IF;
170: IF (p_operand_calc_code IN (QP_PREQ_GRP.G_UNIT_PRICE, QP_PREQ_GRP.G_BREAKUNIT_PRICE)) THEN
171: x_list_price := p_operand_value * p_service_duration;
174: x_list_price := 0;
175: x_extended_price := p_operand_value;
176: ELSE
177: IF (p_recurring_value IS NULL) THEN
178: IF l_debug = FND_API.G_TRUE THEN
179: qp_preq_grp.engine_debug('In Calculate_List_Price_PVT #1');
180: END IF;
181: x_list_price := (p_operand_value / p_request_qty);
182: x_extended_price := p_operand_value;
179: qp_preq_grp.engine_debug('In Calculate_List_Price_PVT #1');
180: END IF;
181: x_list_price := (p_operand_value / p_request_qty);
182: x_extended_price := p_operand_value;
183: IF l_debug = FND_API.G_TRUE THEN
184: qp_preq_grp.engine_debug('Extended Price #1 : ' || x_extended_price);
185: qp_preq_grp.engine_debug('Request Qty: ' || p_request_qty);
186: qp_preq_grp.engine_debug('List Price: ' || x_list_price);
187: END IF;
185: qp_preq_grp.engine_debug('Request Qty: ' || p_request_qty);
186: qp_preq_grp.engine_debug('List Price: ' || x_list_price);
187: END IF;
188: ELSE
189: IF l_debug = FND_API.G_TRUE THEN
190: qp_preq_grp.engine_debug('In Calculate_List_Price_PVT #2');
191: END IF;
192: x_list_price := p_operand_value / p_recurring_value;
193: x_extended_price := x_list_price * p_request_qty;
190: qp_preq_grp.engine_debug('In Calculate_List_Price_PVT #2');
191: END IF;
192: x_list_price := p_operand_value / p_recurring_value;
193: x_extended_price := x_list_price * p_request_qty;
194: IF l_debug = FND_API.G_TRUE THEN
195: qp_preq_grp.engine_debug('Extended Price #2: ' || x_extended_price);
196: END IF;
197: END IF;
198: END IF;
202: END IF;
203:
204: -- ravi passed (-1)*request_line.rounding_factor when calling this procedure, therefore needs to *(-1)
205: -- to print the original rounding_factor
206: IF l_debug = FND_API.G_TRUE THEN
207: QP_PREQ_GRP.engine_debug('In procedure Calculate_List_Price_PVT...');
208: QP_PREQ_GRP.engine_debug('G_ROUNDING_FLAG: '|| QP_PREQ_GRP.G_ROUNDING_FLAG); -- aso rounding, shu, 2457629
209: QP_PREQ_GRP.engine_debug('rounding_factor: '|| ( - 1) * p_rounding_factor); -- ravi passed (-1)*request_line.rounding_factor
210:
216:
217: ELSIF (QP_PREQ_GRP.G_ROUNDING_FLAG = G_CHAR_Q) THEN -- check v_selling_price_rounding_options profile
218:
219: v_price_round_options := nvl(FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS'), QP_Calculate_Price_PUB.G_NO_ROUND); --shu, new rounding
220: IF l_debug = FND_API.G_TRUE THEN
221: QP_PREQ_GRP.engine_debug('selling_price_rounding_options: '|| v_price_round_options );
222: END IF;
223:
224: IF (v_price_round_options = G_ROUND_ADJ AND p_rounding_factor IS NOT NULL) THEN
226: x_percent_price := ROUND(x_percent_price, p_rounding_factor);
227: END IF;
228: END IF; -- end rounding stuff
229:
230: IF l_debug = FND_API.G_TRUE THEN
231: QP_PREQ_GRP.engine_debug('x_list_price' || x_list_price);
232: END IF;
233: -- end shu new rounding
234: EXCEPTION
232: END IF;
233: -- end shu new rounding
234: EXCEPTION
235: WHEN OTHERS THEN
236: IF l_debug = FND_API.G_TRUE THEN
237: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
238: END IF;
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
235: WHEN OTHERS THEN
236: IF l_debug = FND_API.G_TRUE THEN
237: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
238: END IF;
239: x_return_status := FND_API.G_RET_STS_ERROR;
240: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
241: END Calculate_List_Price_PVT;
242:
243: PROCEDURE Calculate_Adjusted_Price
264: v_price_round_options VARCHAR2(30) := NULL; --shu, new rounding
265:
266: BEGIN
267: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
268: IF l_debug = FND_API.G_TRUE THEN
269: QP_PREQ_GRP.engine_debug('In Calculate_Adjusted_Price...');
270: END IF;
271: v_price_round_options := FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS'); --shu, new rounding
272: IF l_debug = FND_API.G_TRUE THEN
268: IF l_debug = FND_API.G_TRUE THEN
269: QP_PREQ_GRP.engine_debug('In Calculate_Adjusted_Price...');
270: END IF;
271: v_price_round_options := FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS'); --shu, new rounding
272: IF l_debug = FND_API.G_TRUE THEN
273: QP_PREQ_GRP.engine_debug('selling_price_rounding_options: '|| v_price_round_options );
274: QP_PREQ_GRP.engine_debug('G_ROUNDING_FLAG: '|| QP_PREQ_GRP.G_ROUNDING_FLAG); -- aso rounding, shu, 2457629
275: END IF;
276: -- ravi passed (-1)*request_line.rounding_factor when calling this procedure, therefore needs to *(-1)
274: QP_PREQ_GRP.engine_debug('G_ROUNDING_FLAG: '|| QP_PREQ_GRP.G_ROUNDING_FLAG); -- aso rounding, shu, 2457629
275: END IF;
276: -- ravi passed (-1)*request_line.rounding_factor when calling this procedure, therefore needs to *(-1)
277: -- to print the original rounding_factor
278: IF l_debug = FND_API.G_TRUE THEN
279: QP_PREQ_GRP.engine_debug('rounding_factor: '|| ( - 1) * p_rounding_factor); -- ravi passed (-1)*request_line.rounding_factor
280: END IF;
281:
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
278: IF l_debug = FND_API.G_TRUE THEN
279: QP_PREQ_GRP.engine_debug('rounding_factor: '|| ( - 1) * p_rounding_factor); -- ravi passed (-1)*request_line.rounding_factor
280: END IF;
281:
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
283: IF (p_old_pricing_sequence = p_new_pricing_sequence AND p_new_pricing_sequence IS NOT NULL) THEN
284: IF l_debug = FND_API.G_TRUE THEN
285: QP_PREQ_GRP.engine_debug('I am in Calculate Adjusted Price');
286: END IF;
280: END IF;
281:
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
283: IF (p_old_pricing_sequence = p_new_pricing_sequence AND p_new_pricing_sequence IS NOT NULL) THEN
284: IF l_debug = FND_API.G_TRUE THEN
285: QP_PREQ_GRP.engine_debug('I am in Calculate Adjusted Price');
286: END IF;
287:
288: -- G_BREAKUNIT_PRICE added for FTE breakunit
433: END IF; -- end if p_accrual_flag
434:
435: ELSIF (p_list_line_type = QP_PREQ_GRP.G_FREIGHT_CHARGE) THEN
436:
437: IF l_debug = FND_API.G_TRUE THEN
438: QP_PREQ_GRP.engine_debug('Freight Charge');
439: QP_PREQ_GRP.engine_debug('Discounted Price : ' || p_discounted_price);
440: END IF;
441: x_discounted_price := p_discounted_price;
444: x_adjusted_amount := p_operand_value;
445: ELSE
446: --4900095 added nvl to G_Lumpsum_qty
447: x_adjusted_amount := p_operand_value / nvl(G_Lumpsum_Qty, p_request_qty);
448: IF l_debug = FND_API.G_TRUE THEN
449: QP_PREQ_GRP.engine_debug('Adjusted Amount: ' || x_adjusted_amount);
450: END IF;
451: END IF; -- end IF p_request_qty
452:
638:
639: EXCEPTION
640:
641: WHEN OTHERS THEN
642: IF l_debug = FND_API.G_TRUE THEN
643: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
644: END IF;
645: x_return_status := FND_API.G_RET_STS_ERROR;
646: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
641: WHEN OTHERS THEN
642: IF l_debug = FND_API.G_TRUE THEN
643: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
644: END IF;
645: x_return_status := FND_API.G_RET_STS_ERROR;
646: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
647: END Calculate_Adjusted_Price;
648:
649: PROCEDURE Process_Price_Break(
711:
712: BEGIN
713:
714: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
715: x_return_status := FND_API.G_RET_STS_SUCCESS;
716: v_related_request_lines := p_related_request_lines;
717: v_old_pricing_sequence := p_old_pricing_grp_seq;
718:
719: -- 4061138, 5183755
724: k := p_related_request_lines.FIRST;
725: WHILE (k IS NOT NULL)
726: LOOP
727: IF (p_related_request_lines(k).LINE_DETAIL_INDEX = p_list_line_index) THEN
728: IF l_debug = FND_API.G_TRUE THEN
729: IF l_continuous_flag = 'Y' THEN
730: QP_PREQ_GRP.engine_debug ('<-------- CONTINUOUS PRICE BREAK -------->');
731: ELSE
732: QP_PREQ_GRP.engine_debug ('<---------------------------------------->');
732: QP_PREQ_GRP.engine_debug ('<---------------------------------------->');
733: END IF;
734: QP_PREQ_GRP.engine_debug ('p_list_line_id: '|| p_list_line_id);
735: QP_PREQ_GRP.engine_debug ('p_list_line_index: '|| p_list_line_index);
736: END IF; -- END IF l_debug = FND_API.G_TRUE
737:
738: -- 4061138
739: -- check if PBH is prorated, important for continuous processing later
740: IF l_continuous_flag = 'Y' AND QP_PREQ_GRP.G_BREAK_UOM_PRORATION = 'Y'
750: END;
751: END IF;
752:
753: IF (p_related_request_lines(k).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_POINT_BREAK) THEN
754: IF l_debug = FND_API.G_TRUE THEN
755: QP_PREQ_GRP.engine_debug ('i am in Point break'); -- shu dbg 2388011
756: QP_PREQ_GRP.engine_debug ('p_group_value: '|| p_group_value); -- shu dbg 2388011
757: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); -- shu dbg 2388011
758: END IF; -- END IF l_debug = FND_API.G_TRUE
754: IF l_debug = FND_API.G_TRUE THEN
755: QP_PREQ_GRP.engine_debug ('i am in Point break'); -- shu dbg 2388011
756: QP_PREQ_GRP.engine_debug ('p_group_value: '|| p_group_value); -- shu dbg 2388011
757: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); -- shu dbg 2388011
758: END IF; -- END IF l_debug = FND_API.G_TRUE
759:
760: -- 2388011, Applicable for group of lines based PBH
761: v_ord_qty := p_list_line_qty; -- Store the ordered qty
762: --IF (p_group_value > - 1) THEN --[julin/5158413]
765: ELSE
766: v_temp := p_list_line_qty;
767: END IF;
768:
769: IF l_debug = FND_API.G_TRUE THEN
770: QP_PREQ_GRP.engine_debug ('v_temp, for evaluation (either p_group_value or p_list_line_qty): '|| v_temp); -- shu dbg 2388011
771: END IF; -- END IF l_debug = FND_API.G_TRUE
772:
773: -- If it falls in the range
767: END IF;
768:
769: IF l_debug = FND_API.G_TRUE THEN
770: QP_PREQ_GRP.engine_debug ('v_temp, for evaluation (either p_group_value or p_list_line_qty): '|| v_temp); -- shu dbg 2388011
771: END IF; -- END IF l_debug = FND_API.G_TRUE
772:
773: -- If it falls in the range
774: /* rewritten for 4061138
775: IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND --2388011
783: v_temp <= nvl(p_related_request_lines(k).VALUE_TO, v_temp)) )
784: THEN
785: v_related_request_lines(k).LINE_QTY := v_temp; -- PBH line qty/v_ord_qty, 2388011
786:
787: IF l_debug = FND_API.G_TRUE THEN
788: QP_PREQ_GRP.engine_debug ('PBH operand Calc Code : ' || p_operand_calc_code);
789: END IF;
790:
791: -- Do not calculate per unit satisfied value if it is BLOCK_PRICING
803: IF (p_related_request_lines(k).OPERAND_CALCULATION_CODE = QP_PREQ_GRP.G_BREAKUNIT_PRICE) THEN
804: v_calculate_per_unit_flag := 'N';
805: END IF;
806:
807: IF l_debug = FND_API.G_TRUE THEN
808: QP_PREQ_GRP.engine_debug ('Calculate Per Unit Flag : ' || v_calculate_per_unit_flag);
809: END IF;
810:
811: -- This happens only if it is line group based Applicable for both Linegroup Amount and Item Amount
817: v_related_request_lines(k).LINE_QTY := v_temp;
818: END IF;
819:
820:
821: IF l_debug = FND_API.G_TRUE THEN
822: QP_PREQ_GRP.engine_debug('List Line Quantity: ' || v_related_request_lines(k).LINE_QTY );
823: QP_PREQ_GRP.engine_debug('PBH Type: ' || p_pbh_type);
824: END IF; -- END IF l_debug = FND_API.G_TRUE
825:
820:
821: IF l_debug = FND_API.G_TRUE THEN
822: QP_PREQ_GRP.engine_debug('List Line Quantity: ' || v_related_request_lines(k).LINE_QTY );
823: QP_PREQ_GRP.engine_debug('PBH Type: ' || p_pbh_type);
824: END IF; -- END IF l_debug = FND_API.G_TRUE
825:
826: -- Call the Calculate List Price Function
827: IF (p_pbh_type IN (QP_PREQ_GRP.G_PRICE_LIST_HEADER, QP_PREQ_GRP.G_AGR_LIST_HEADER)) THEN
828: Calculate_List_Price_PVT(
839: x_extended_price,
840: x_ret_status,
841: x_ret_status_txt);
842:
843: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
846:
847: -- This is the final list price after break evaluation
840: x_ret_status,
841: x_ret_status_txt);
842:
843: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
846:
847: -- This is the final list price after break evaluation
848: -- changed for block pricing
854:
855: x_pbh_list_price := x_list_price;
856: x_pbh_extended_price := x_extended_price; -- block pricing
857:
858: IF l_debug = FND_API.G_TRUE THEN
859: QP_PREQ_GRP.engine_debug('final list price after break evaluation..');
860: QP_PREQ_GRP.engine_debug('List Line Price: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT );
861: QP_PREQ_GRP.engine_debug('List Line Price: ' || x_pbh_list_price );
862: END IF; -- END IF l_debug = FND_API.G_TRUE
858: IF l_debug = FND_API.G_TRUE THEN
859: QP_PREQ_GRP.engine_debug('final list price after break evaluation..');
860: QP_PREQ_GRP.engine_debug('List Line Price: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT );
861: QP_PREQ_GRP.engine_debug('List Line Price: ' || x_pbh_list_price );
862: END IF; -- END IF l_debug = FND_API.G_TRUE
863:
864: ELSE -- DIS/SUR/FREIGHT_CHARGE
865:
866: IF l_debug = FND_API.G_TRUE THEN
862: END IF; -- END IF l_debug = FND_API.G_TRUE
863:
864: ELSE -- DIS/SUR/FREIGHT_CHARGE
865:
866: IF l_debug = FND_API.G_TRUE THEN
867: QP_PREQ_GRP.engine_debug('I am in Discount Break');
868: QP_PREQ_GRP.engine_debug('List Price: ' || p_list_price);
869: QP_PREQ_GRP.engine_debug('Discounted Price: ' || p_discounted_price);
870: QP_PREQ_GRP.engine_debug('Old Pricing Seq: ' || v_old_pricing_sequence);
868: QP_PREQ_GRP.engine_debug('List Price: ' || p_list_price);
869: QP_PREQ_GRP.engine_debug('Discounted Price: ' || p_discounted_price);
870: QP_PREQ_GRP.engine_debug('Old Pricing Seq: ' || v_old_pricing_sequence);
871: QP_PREQ_GRP.engine_debug('New Pricing Seq: ' || v_related_request_lines(k).PRICING_GROUP_SEQUENCE);
872: END IF; -- END IF l_debug = FND_API.G_TRUE
873:
874: Calculate_Adjusted_Price(p_list_price => p_list_price, -- List Price
875: p_discounted_price => p_discounted_price,
876: p_old_pricing_sequence => nvl(v_old_pricing_sequence,
892: x_return_status_txt => x_ret_status_txt);
893:
894: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
895:
896: IF (x_ret_status = FND_API.G_RET_STS_ERROR) THEN
897: RAISE FND_API.G_EXC_ERROR;
898: END IF;
899:
900: -- This is the final selling price after break evaluation for this discount line
893:
894: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
895:
896: IF (x_ret_status = FND_API.G_RET_STS_ERROR) THEN
897: RAISE FND_API.G_EXC_ERROR;
898: END IF;
899:
900: -- This is the final selling price after break evaluation for this discount line
901: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
899:
900: -- This is the final selling price after break evaluation for this discount line
901: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
902:
903: IF l_debug = FND_API.G_TRUE THEN
904: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT);
905: END IF; -- END IF l_debug = FND_API.G_TRUE
906: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER,QP_PREQ_GRP.G_AGR_LIST_HEADER))
907:
901: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
902:
903: IF l_debug = FND_API.G_TRUE THEN
904: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT);
905: END IF; -- END IF l_debug = FND_API.G_TRUE
906: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER,QP_PREQ_GRP.G_AGR_LIST_HEADER))
907:
908: -- ELSE IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND...
909: ELSE -- Store the break line which did not satisfy with qty 0,for other related lines
925: x_extended_price, -- block pricing
926: x_ret_status,
927: x_ret_status_txt);
928:
929: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
930: IF l_debug = FND_API.G_TRUE THEN
931: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
932: END IF;
933: RAISE FND_API.G_EXC_ERROR;
926: x_ret_status,
927: x_ret_status_txt);
928:
929: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
930: IF l_debug = FND_API.G_TRUE THEN
931: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
932: END IF;
933: RAISE FND_API.G_EXC_ERROR;
934: END IF; -- END IF(x_ret_status = FND_API.G_RET_STS_ERROR)
929: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
930: IF l_debug = FND_API.G_TRUE THEN
931: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
932: END IF;
933: RAISE FND_API.G_EXC_ERROR;
934: END IF; -- END IF(x_ret_status = FND_API.G_RET_STS_ERROR)
935:
936: -- This is the final list price after break evaluation
937: -- modified for block pricing
930: IF l_debug = FND_API.G_TRUE THEN
931: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
932: END IF;
933: RAISE FND_API.G_EXC_ERROR;
934: END IF; -- END IF(x_ret_status = FND_API.G_RET_STS_ERROR)
935:
936: -- This is the final list price after break evaluation
937: -- modified for block pricing
938: IF (p_related_request_lines(k).OPERAND_CALCULATION_CODE = qp_preq_grp.G_BLOCK_PRICE) THEN
940: ELSE
941: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_list_price;
942: END IF;
943:
944: IF l_debug = FND_API.G_TRUE THEN
945: QP_PREQ_GRP.engine_debug('List Line Price: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT );
946: END IF;
947:
948: ELSE --DIS/SUR/FREIGHT_CHARGE
967: x_return_status_txt => x_ret_status_txt);
968:
969: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
970:
971: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974:
975: -- This is the final selling price after break evaluation for this discount line
968:
969: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
970:
971: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
972: RAISE FND_API.G_EXC_ERROR;
973: END IF;
974:
975: -- This is the final selling price after break evaluation for this discount line
976: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
974:
975: -- This is the final selling price after break evaluation for this discount line
976: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
977:
978: IF l_debug = FND_API.G_TRUE THEN
979: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjustment_amount);
980: END IF; -- END IF l_debug = FND_API.G_TRUE
981: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER
982: END IF; -- END IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND
976: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
977:
978: IF l_debug = FND_API.G_TRUE THEN
979: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjustment_amount);
980: END IF; -- END IF l_debug = FND_API.G_TRUE
981: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER
982: END IF; -- END IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND
983:
984: -- RANGE BREAK
983:
984: -- RANGE BREAK
985: ELSIF (p_related_request_lines(k).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_RANGE_BREAK) THEN
986:
987: IF l_debug = FND_API.G_TRUE THEN
988: QP_PREQ_GRP.engine_debug('I am in Range Break');
989: QP_PREQ_GRP.engine_debug('The value of v_count is:' || v_count );
990: END IF;
991:
1001: -- end 2388011
1002: v_ord_qty := p_list_line_qty;
1003: END IF; -- end IF (v_count = 0)
1004:
1005: IF l_debug = FND_API.G_TRUE THEN
1006: QP_PREQ_GRP.engine_debug('p_group_value: ' || p_group_value); -- shu debug, 2388011
1007: QP_PREQ_GRP.engine_debug('p_list_line_qty (v_ord_qty): ' || p_list_line_qty); -- shu debug, 2388011
1008: QP_PREQ_GRP.engine_debug('l_qualifier_value (either p_group_value or p_list_line_qty): ' || l_qualifier_value); -- shu debug, 2388011
1009: QP_PREQ_GRP.engine_debug('v_temp (either p_group_value or p_list_line_qty): ' || v_temp); -- shu debug, 2388011
1006: QP_PREQ_GRP.engine_debug('p_group_value: ' || p_group_value); -- shu debug, 2388011
1007: QP_PREQ_GRP.engine_debug('p_list_line_qty (v_ord_qty): ' || p_list_line_qty); -- shu debug, 2388011
1008: QP_PREQ_GRP.engine_debug('l_qualifier_value (either p_group_value or p_list_line_qty): ' || l_qualifier_value); -- shu debug, 2388011
1009: QP_PREQ_GRP.engine_debug('v_temp (either p_group_value or p_list_line_qty): ' || v_temp); -- shu debug, 2388011
1010: END IF; -- END IF l_debug = FND_API.G_TRUE
1011:
1012: -- The check to see if the ordered quantity falls in the range needs to be done only once
1013: -- Ex: If Ord Qty = 50 and 100-null then u do not get it
1014:
1021: -- Ex: 100-NULL
1022: IF (p_related_request_lines(k).VALUE_TO IS NULL) THEN
1023: v_related_request_lines(k).LINE_QTY := v_temp;
1024: ELSE
1025: IF l_debug = FND_API.G_TRUE THEN
1026: QP_PREQ_GRP.engine_debug('C100# value from: ' || p_related_request_lines(k).value_from);
1027: QP_PREQ_GRP.engine_debug('C200# value to: ' || p_related_request_lines(k).value_to);
1028: QP_PREQ_GRP.engine_debug('C300# Qualifier Value: ' || l_qualifier_value); --2388011
1029: QP_PREQ_GRP.engine_debug('C400# Group Amount: ' || p_group_value); --2388011
1026: QP_PREQ_GRP.engine_debug('C100# value from: ' || p_related_request_lines(k).value_from);
1027: QP_PREQ_GRP.engine_debug('C200# value to: ' || p_related_request_lines(k).value_to);
1028: QP_PREQ_GRP.engine_debug('C300# Qualifier Value: ' || l_qualifier_value); --2388011
1029: QP_PREQ_GRP.engine_debug('C400# Group Amount: ' || p_group_value); --2388011
1030: END IF; -- END IF l_debug = FND_API.G_TRUE
1031:
1032: Get_Satisfied_Range(
1033: p_related_request_lines(k).value_from,
1034: p_related_request_lines(k).value_to,
1037: l_continuous_flag, -- 4061138
1038: l_prorated_flag, -- 4061138
1039: l_satisfied_value);
1040:
1041: IF l_debug = FND_API.G_TRUE THEN
1042: QP_PREQ_GRP.engine_debug('C500#: ' || l_satisfied_value);
1043: QP_PREQ_GRP.engine_debug('C600# list price : ' || p_list_price);
1044: END IF; -- END IF l_debug = FND_API.G_TRUE
1045:
1040:
1041: IF l_debug = FND_API.G_TRUE THEN
1042: QP_PREQ_GRP.engine_debug('C500#: ' || l_satisfied_value);
1043: QP_PREQ_GRP.engine_debug('C600# list price : ' || p_list_price);
1044: END IF; -- END IF l_debug = FND_API.G_TRUE
1045:
1046: IF l_debug = FND_API.G_TRUE THEN
1047: QP_PREQ_GRP.engine_debug ('PBH operand Calc Code : ' || p_operand_calc_code);
1048: END IF;
1042: QP_PREQ_GRP.engine_debug('C500#: ' || l_satisfied_value);
1043: QP_PREQ_GRP.engine_debug('C600# list price : ' || p_list_price);
1044: END IF; -- END IF l_debug = FND_API.G_TRUE
1045:
1046: IF l_debug = FND_API.G_TRUE THEN
1047: QP_PREQ_GRP.engine_debug ('PBH operand Calc Code : ' || p_operand_calc_code);
1048: END IF;
1049:
1050: -- Do not calculate the per unit satisfied value if it is BLOCK_PRICING
1062: IF (p_related_request_lines(k).OPERAND_CALCULATION_CODE = QP_PREQ_GRP.G_BREAKUNIT_PRICE) THEN
1063: v_calculate_per_unit_flag := 'N';
1064: END IF;
1065:
1066: IF l_debug = FND_API.G_TRUE THEN
1067: QP_PREQ_GRP.engine_debug ('Calculate Per Unit Flag : ' || v_calculate_per_unit_flag);
1068: END IF;
1069:
1070: -- 2388011_new
1093: END IF; -- END IF (l_satisfied_value = 0
1094:
1095: END IF; -- END IF (p_related_request_lines(k).VALUE_TO IS NULL)
1096:
1097: IF l_debug = FND_API.G_TRUE THEN
1098: QP_PREQ_GRP.engine_debug('List Line Quantity: ' || v_related_request_lines(k).LINE_QTY );
1099: QP_PREQ_GRP.engine_debug('Temp: ' || v_temp );
1100: END IF;
1101:
1116: x_extended_price, -- block pricing
1117: x_ret_status,
1118: x_ret_status_txt);
1119:
1120: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1121: RAISE FND_API.G_EXC_ERROR;
1122: END IF;
1123:
1124: -- This is the final list price after break evaluation
1117: x_ret_status,
1118: x_ret_status_txt);
1119:
1120: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1121: RAISE FND_API.G_EXC_ERROR;
1122: END IF;
1123:
1124: -- This is the final list price after break evaluation
1125: -- modified for block pricing
1129: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_list_price;
1130: END IF;
1131:
1132: ELSE -- DIS/SUR/FREIGHT_CHARGE
1133: IF l_debug = FND_API.G_TRUE THEN
1134: QP_PREQ_GRP.engine_debug('I am in Discount Break (RANGE BLOCK)');
1135: QP_PREQ_GRP.engine_debug('OPERAND_VALUE: '|| v_related_request_lines(k).OPERAND_VALUE); --shu debug 2388011
1136: QP_PREQ_GRP.engine_debug('LINE_QTY: '|| v_related_request_lines(k).LINE_QTY); --shu debug 2388011
1137: QP_PREQ_GRP.engine_debug('l_qualifier_value (p_request_qty)'|| l_qualifier_value); --shu debug 2388011
1163: x_return_status_txt => x_ret_status_txt);
1164:
1165: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1166:
1167: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1168: RAISE FND_API.G_EXC_ERROR;
1169: END IF;
1170:
1171: -- This is the final list price after break evaluation
1164:
1165: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1166:
1167: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1168: RAISE FND_API.G_EXC_ERROR;
1169: END IF;
1170:
1171: -- This is the final list price after break evaluation
1172: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1169: END IF;
1170:
1171: -- This is the final list price after break evaluation
1172: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1173: IF l_debug = FND_API.G_TRUE THEN
1174: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjusted_amount);
1175: END IF;
1176: END IF;
1177:
1196: x_extended_price,
1197: x_ret_status,
1198: x_ret_status_txt);
1199:
1200: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1201: RAISE FND_API.G_EXC_ERROR;
1202: END IF;
1203:
1204: -- This is the final list price after break evaluation
1197: x_ret_status,
1198: x_ret_status_txt);
1199:
1200: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1201: RAISE FND_API.G_EXC_ERROR;
1202: END IF;
1203:
1204: -- This is the final list price after break evaluation
1205: -- modified for block pricing
1208: ELSE
1209: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_list_price;
1210: END IF;
1211:
1212: IF l_debug = FND_API.G_TRUE THEN
1213: QP_PREQ_GRP.engine_debug('List Line Price: ' || x_list_price);
1214: END IF;
1215:
1216: ELSE -- DIS/SUR/FREIGHT_CHARGE
1237: x_return_status_txt => x_ret_status_txt);
1238:
1239: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1240:
1241: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: END IF;
1244:
1245: -- This is the final list price after break evaluation
1238:
1239: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1240:
1241: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1242: RAISE FND_API.G_EXC_ERROR;
1243: END IF;
1244:
1245: -- This is the final list price after break evaluation
1246: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1243: END IF;
1244:
1245: -- This is the final list price after break evaluation
1246: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1247: IF l_debug = FND_API.G_TRUE THEN
1248: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjusted_amount);
1249: END IF;
1250: END IF;
1251:
1259: END LOOP; -- END WHILE (k IS NOT NULL)
1260:
1261: -- This needs to be done only to get the averaged out value for the PBH Line
1262: IF (v_related_request_lines.COUNT > 0) THEN
1263: IF l_debug = FND_API.G_TRUE THEN
1264: QP_PREQ_GRP.engine_debug('.........Average out value for the PBH line........ ' );
1265: END IF;
1266: v_index := v_related_request_lines.FIRST;
1267: WHILE (v_index IS NOT NULL)
1266: v_index := v_related_request_lines.FIRST;
1267: WHILE (v_index IS NOT NULL)
1268: LOOP
1269: IF (v_related_request_lines(v_index).LINE_DETAIL_INDEX = p_list_line_index) THEN
1270: IF l_debug = FND_API.G_TRUE THEN
1271: QP_PREQ_GRP.engine_debug('p_list_line_index '|| p_list_line_index ); -- shu debug 2388011
1272: QP_PREQ_GRP.engine_debug('p_list_line_qty: '|| p_list_line_qty ); -- shu debug 2388011
1273: QP_PREQ_GRP.engine_debug('p_actual_line_qty: '|| p_actual_line_qty ); -- shu debug 2388011
1274: END IF;
1319: x_pbh_list_price := ROUND (x_pbh_list_price, p_rounding_factor); -- Divide by grp amount/unit or group quantity
1320: END IF; -- end if G_ROUND_ADJ
1321: END IF; --end if rounding stuff
1322:
1323: IF l_debug = FND_API.G_TRUE THEN
1324: QP_PREQ_GRP.engine_debug('x_pbh_list_price: '|| x_pbh_list_price);
1325: END IF; -- END IF l_debug
1326:
1327:
1327:
1328: ELSE
1329: v_total_amount := v_total_amount + (v_related_request_lines(v_index).LINE_QTY *
1330: v_related_request_lines(v_index).ADJUSTMENT_AMOUNT);
1331: IF l_debug = FND_API.G_TRUE THEN
1332: QP_PREQ_GRP.engine_debug ('v_index: '|| v_index); --2388011
1333: QP_PREQ_GRP.engine_debug ('LINE_QTY : '|| v_related_request_lines(v_index).LINE_QTY ); --2388011
1334: QP_PREQ_GRP.engine_debug ('ADJUSTMENT_AMOUNT for the line: '|| v_related_request_lines(v_index).ADJUSTMENT_AMOUNT); --2388011
1335: QP_PREQ_GRP.engine_debug ('v_total_amount for now: '|| v_total_amount); --2388011
1332: QP_PREQ_GRP.engine_debug ('v_index: '|| v_index); --2388011
1333: QP_PREQ_GRP.engine_debug ('LINE_QTY : '|| v_related_request_lines(v_index).LINE_QTY ); --2388011
1334: QP_PREQ_GRP.engine_debug ('ADJUSTMENT_AMOUNT for the line: '|| v_related_request_lines(v_index).ADJUSTMENT_AMOUNT); --2388011
1335: QP_PREQ_GRP.engine_debug ('v_total_amount for now: '|| v_total_amount); --2388011
1336: END IF; -- END IF l_debug = FND_API.G_TRUE
1337:
1338: -- begin 2388011_new, grp_lines_pbh,
1339:
1340:
1347: x_adjustment_amount := v_total_amount;
1348:
1349: END IF;
1350:
1351: IF l_debug = FND_API.G_TRUE THEN
1352: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); --2388011
1353: QP_PREQ_GRP.engine_debug ('x_adjustment_amount: '|| x_adjustment_amount); --2388011
1354: END IF; -- END IF l_debug = FND_API.G_TRUE
1355: -- end 2388011, grp_lines_pbh
1350:
1351: IF l_debug = FND_API.G_TRUE THEN
1352: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); --2388011
1353: QP_PREQ_GRP.engine_debug ('x_adjustment_amount: '|| x_adjustment_amount); --2388011
1354: END IF; -- END IF l_debug = FND_API.G_TRUE
1355: -- end 2388011, grp_lines_pbh
1356:
1357: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER...
1358:
1355: -- end 2388011, grp_lines_pbh
1356:
1357: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER...
1358:
1359: IF l_debug = FND_API.G_TRUE THEN
1360: QP_PREQ_GRP.engine_debug ('Total Amount : ' || v_total_amount);
1361: QP_PREQ_GRP.engine_debug ('Total Qty : ' || v_ord_qty);
1362: QP_PREQ_GRP.engine_debug ('Total Adjustment : ' || x_adjustment_amount);
1363: END IF; -- END IF l_debug = FND_API.G_TRUE THEN
1359: IF l_debug = FND_API.G_TRUE THEN
1360: QP_PREQ_GRP.engine_debug ('Total Amount : ' || v_total_amount);
1361: QP_PREQ_GRP.engine_debug ('Total Qty : ' || v_ord_qty);
1362: QP_PREQ_GRP.engine_debug ('Total Adjustment : ' || x_adjustment_amount);
1363: END IF; -- END IF l_debug = FND_API.G_TRUE THEN
1364: END IF;
1365:
1366: EXIT WHEN v_index = v_related_request_lines.LAST;
1367: v_index := v_related_request_lines.NEXT(v_index);
1368: END LOOP;
1369: END IF;
1370: x_related_request_lines_tbl := v_related_request_lines;
1371: EXCEPTION
1372: WHEN FND_API.G_EXC_ERROR THEN
1373: IF l_debug = FND_API.G_TRUE THEN
1374: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
1375: END IF;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1369: END IF;
1370: x_related_request_lines_tbl := v_related_request_lines;
1371: EXCEPTION
1372: WHEN FND_API.G_EXC_ERROR THEN
1373: IF l_debug = FND_API.G_TRUE THEN
1374: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
1375: END IF;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: x_return_status_txt := x_ret_status_txt;
1372: WHEN FND_API.G_EXC_ERROR THEN
1373: IF l_debug = FND_API.G_TRUE THEN
1374: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
1375: END IF;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: x_return_status_txt := x_ret_status_txt;
1378: WHEN OTHERS THEN
1379: IF l_debug = FND_API.G_TRUE THEN
1380: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1375: END IF;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: x_return_status_txt := x_ret_status_txt;
1378: WHEN OTHERS THEN
1379: IF l_debug = FND_API.G_TRUE THEN
1380: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1381: END IF;
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
1378: WHEN OTHERS THEN
1379: IF l_debug = FND_API.G_TRUE THEN
1380: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1381: END IF;
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
1384: END Process_Price_Break;
1385:
1386: PROCEDURE Calculate_Adjustment(p_price NUMBER
1394: l_routine VARCHAR2(50) := 'QP_Calculate_Price_PUB.Calculate_Adjustment';
1395:
1396: BEGIN
1397: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1398: IF l_debug = FND_API.G_TRUE THEN
1399: QP_PREQ_GRP.ENGINE_DEBUG('In Routine: ' || l_routine);
1400:
1401: -- begin 2892848
1402: QP_PREQ_GRP.ENGINE_DEBUG('p_price: ' || p_price);
1413: x_calc_adjustment := p_operand_value;
1414: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT THEN
1415: x_calc_adjustment := (abs(p_price) - p_operand_value);
1416: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_LUMPSUM_DISCOUNT THEN
1417: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM qty means infinity; this qty and zero qty yield no adj
1418: IF (p_priced_quantity = FND_API.G_NULL_NUM OR p_priced_quantity = 0) THEN
1419: x_calc_adjustment := 0;
1420: ELSE
1421: x_calc_adjustment := p_operand_value / p_priced_quantity;
1414: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT THEN
1415: x_calc_adjustment := (abs(p_price) - p_operand_value);
1416: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_LUMPSUM_DISCOUNT THEN
1417: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM qty means infinity; this qty and zero qty yield no adj
1418: IF (p_priced_quantity = FND_API.G_NULL_NUM OR p_priced_quantity = 0) THEN
1419: x_calc_adjustment := 0;
1420: ELSE
1421: x_calc_adjustment := p_operand_value / p_priced_quantity;
1422: END IF;
1423: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE THEN
1424: x_calc_adjustment := p_operand_value; -- FTE breakunit
1425: END IF;
1426:
1427: x_return_status := FND_API.G_RET_STS_SUCCESS;
1428: x_return_status_text := l_routine ||' SUCCESS';
1429:
1430: IF l_debug = FND_API.G_TRUE THEN
1431: QP_PREQ_GRP.ENGINE_DEBUG('Out of Routine: ' || l_routine);
1426:
1427: x_return_status := FND_API.G_RET_STS_SUCCESS;
1428: x_return_status_text := l_routine ||' SUCCESS';
1429:
1430: IF l_debug = FND_API.G_TRUE THEN
1431: QP_PREQ_GRP.ENGINE_DEBUG('Out of Routine: ' || l_routine);
1432:
1433: END IF;
1434: EXCEPTION
1432:
1433: END IF;
1434: EXCEPTION
1435: WHEN OTHERS THEN
1436: IF l_debug = FND_API.G_TRUE THEN
1437: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculating bucket price '|| SQLERRM);
1438: END IF;
1439: x_return_status := FND_API.G_RET_STS_ERROR;
1440: x_return_status_text := l_routine ||' '|| SQLERRM;
1435: WHEN OTHERS THEN
1436: IF l_debug = FND_API.G_TRUE THEN
1437: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculating bucket price '|| SQLERRM);
1438: END IF;
1439: x_return_status := FND_API.G_RET_STS_ERROR;
1440: x_return_status_text := l_routine ||' '|| SQLERRM;
1441: END Calculate_Adjustment;
1442:
1443: PROCEDURE Get_Satisfied_Range(p_value_from NUMBER,
1477:
1478: BEGIN
1479:
1480: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1481: IF l_debug = FND_API.G_TRUE THEN
1482: QP_PREQ_GRP.engine_debug('In Procedure : Get_Satisfied_Range');
1483: QP_PREQ_GRP.engine_debug(' continuous_flag = '|| p_continuous_flag);
1484: QP_PREQ_GRP.engine_debug(' prorated_flag = '|| p_prorated_flag);
1485: END IF;
1516: -- these are "cached" on the basis of list_line_id
1517: -- if list_line_id changes, then need to retrieve values from temp table
1518: -- else use previously cached values
1519: IF (p_list_line_id = l_prev_list_line_id) THEN
1520: IF l_debug = FND_API.G_TRUE THEN
1521: QP_PREQ_GRP.engine_debug(' list_line_id = '|| p_list_line_id ||', prev = '|| l_prev_list_line_id);
1522: END IF;
1523: l_accum_context := l_accum_context_cache;
1524: l_accum_attrib := l_accum_attrib_cache;
1523: l_accum_context := l_accum_context_cache;
1524: l_accum_attrib := l_accum_attrib_cache;
1525: l_accum_flag := l_accum_flag_cache;
1526: v_list_line_no := l_accum_list_line_no_cache;
1527: IF l_debug = FND_API.G_TRUE THEN
1528: QP_PREQ_GRP.engine_debug(' using cached values for accum context, attribute, etc.');
1529: END IF;
1530: ELSE
1531: BEGIN
1537: -- where created_from_list_line_id = p_list_line_id
1538: -- and rownum = 1;
1539: EXCEPTION
1540: WHEN NO_DATA_FOUND THEN
1541: IF l_debug = FND_API.G_TRUE THEN
1542: QP_PREQ_GRP.engine_debug(' No rows returned for list line ID '|| p_list_line_id);
1543: END IF;
1544: END;
1545:
1542: QP_PREQ_GRP.engine_debug(' No rows returned for list line ID '|| p_list_line_id);
1543: END IF;
1544: END;
1545:
1546: IF l_debug = FND_API.G_TRUE THEN
1547: QP_PREQ_GRP.engine_debug(' accum context, attribute, etc. not cached');
1548: END IF;
1549: -- cache the values
1550: l_accum_context_cache := l_accum_context;
1556: IF (l_accum_attrib IS NULL) THEN
1557: -- conceptually, this means no accumulation processing
1558: -- in this code, we set accum=0 and let accumulation processing fall through
1559: l_accum := 0;
1560: IF l_debug = FND_API.G_TRUE THEN
1561: QP_PREQ_GRP.engine_debug(' no accum attribute specified.');
1562: END IF;
1563: ELSE
1564: IF l_debug = FND_API.G_TRUE THEN
1560: IF l_debug = FND_API.G_TRUE THEN
1561: QP_PREQ_GRP.engine_debug(' no accum attribute specified.');
1562: END IF;
1563: ELSE
1564: IF l_debug = FND_API.G_TRUE THEN
1565: QP_PREQ_GRP.engine_debug(' accum attribute = '|| l_accum_attrib);
1566: QP_PREQ_GRP.engine_debug(' line index = '|| l_line_index);
1567: END IF;
1568:
1575: AND context = l_accum_context
1576: AND attribute = l_accum_attrib
1577: AND pricing_status_code = QP_PREQ_GRP.G_STATUS_UNCHANGED;
1578:
1579: IF l_debug = FND_API.G_TRUE THEN
1580: QP_PREQ_GRP.engine_debug(' accum value '|| l_accum ||' passed on request line.');
1581: END IF;
1582: EXCEPTION
1583: WHEN NO_DATA_FOUND THEN
1580: QP_PREQ_GRP.engine_debug(' accum value '|| l_accum ||' passed on request line.');
1581: END IF;
1582: EXCEPTION
1583: WHEN NO_DATA_FOUND THEN
1584: IF l_debug = FND_API.G_TRUE THEN
1585: QP_PREQ_GRP.engine_debug(' accum value not passed on request line.');
1586: END IF;
1587: -- accum value was not passed on request line
1588: IF l_accum_flag = 'Y'
1597: -- One select statement (a cursor) needed for step 1.
1598: -- Another select needed for steps 2 and 3.
1599: -- Last select needed to get order id.
1600: ------------------------------------------------------
1601: IF l_debug = FND_API.G_TRUE THEN
1602: QP_PREQ_GRP.engine_debug(' * Calling Custom API for accumulation *');
1603: QP_PREQ_GRP.engine_debug(' request line attr(s):');
1604: END IF;
1605: FOR attrs IN l_req_line_attrs_cur(p_list_line_id) LOOP
1608: l_req_attrs_tbl(counter).context := attrs.context;
1609: l_req_attrs_tbl(counter).attribute := attrs.attribute;
1610: l_req_attrs_tbl(counter).VALUE := attrs.value_from;
1611: l_req_attrs_tbl(counter).grouping_no := attrs.grouping_number;
1612: IF l_debug = FND_API.G_TRUE THEN
1613: QP_PREQ_GRP.engine_debug(' '|| counter ||': line index '|| attrs.line_index ||', '|| attrs.attribute_type
1614: ||', '|| attrs.context ||', '|| attrs.attribute ||', '|| attrs.value_from
1615: ||', '|| attrs.grouping_number);
1616: END IF;
1626: FROM qp_npreq_lines_tmp
1627: WHERE line_type_code = QP_PREQ_GRP.G_ORDER_LEVEL;
1628: EXCEPTION
1629: WHEN NO_DATA_FOUND THEN
1630: IF l_debug = FND_API.G_TRUE THEN
1631: QP_PREQ_GRP.engine_debug(' - summary line not present; cannot get order ID');
1632: END IF;
1633: END;
1634: IF l_debug = FND_API.G_TRUE THEN
1630: IF l_debug = FND_API.G_TRUE THEN
1631: QP_PREQ_GRP.engine_debug(' - summary line not present; cannot get order ID');
1632: END IF;
1633: END;
1634: IF l_debug = FND_API.G_TRUE THEN
1635: QP_PREQ_GRP.engine_debug(' ^ G_ORDER_ID was null, select statement got value '|| QP_PREQ_GRP.G_ORDER_ID);
1636: END IF;
1637: END IF;
1638:
1644: QP_PREQ_GRP.G_PRICE_EFF_DATE IS NULL OR
1645: -- 4613884 bugfix
1646: TO_CHAR(l_line_index || QP_PREQ_GRP.G_ORDER_ID) <> TO_CHAR(l_prev_line_index || l_prev_order_id))
1647: THEN
1648: IF l_debug = FND_API.G_TRUE THEN
1649: QP_PREQ_GRP.engine_debug(' need to cache line_id, price_eff_date!');
1650: QP_PREQ_GRP.engine_debug(' - order_id ('|| qp_preq_grp.G_ORDER_ID ||'), prev_order_id ('|| l_prev_order_id || ')');
1651: QP_PREQ_GRP.engine_debug(' - line_index ('|| l_line_index ||'), prev_line_index ('|| l_prev_line_index || ')');
1652: END IF;
1659: QP_PREQ_GRP.G_PRICE_EFF_DATE := v_price_eff_date;
1660: l_prev_order_id := QP_PREQ_GRP.G_ORDER_ID;
1661: l_prev_line_index := l_line_index;
1662: ELSE
1663: IF l_debug = FND_API.G_TRUE THEN
1664: QP_PREQ_GRP.engine_debug(' using cached line_id, price_eff_date');
1665: END IF;
1666: v_line_id := QP_PREQ_GRP.G_LINE_ID;
1667: v_price_eff_date := QP_PREQ_GRP.G_PRICE_EFF_DATE;
1666: v_line_id := QP_PREQ_GRP.G_LINE_ID;
1667: v_price_eff_date := QP_PREQ_GRP.G_PRICE_EFF_DATE;
1668: END IF;
1669:
1670: IF l_debug = FND_API.G_TRUE THEN
1671: QP_PREQ_GRP.engine_debug(' order ID '|| QP_PREQ_GRP.G_ORDER_ID ||
1672: ', line ID '|| QP_PREQ_GRP.G_LINE_ID);
1673: END IF;
1674:
1693: l_req_attrs_tbl,
1694: l_accum_rec
1695: );
1696: END IF;
1697: IF l_debug = FND_API.G_TRUE THEN
1698: QP_PREQ_GRP.engine_debug(' accum value returned from custom API = '|| l_accum);
1699: END IF;
1700: ELSE
1701: -- this case should almost never happen, but if it does, set accum=0
1698: QP_PREQ_GRP.engine_debug(' accum value returned from custom API = '|| l_accum);
1699: END IF;
1700: ELSE
1701: -- this case should almost never happen, but if it does, set accum=0
1702: IF l_debug = FND_API.G_TRUE THEN
1703: QP_PREQ_GRP.engine_debug('***oops. this should not be here!');
1704: QP_PREQ_GRP.engine_debug(' Profile Value = '|| FND_PROFILE.VALUE('QP_ACCUM_ATTR_ENABLED'));
1705: END IF;
1706: l_accum := 0;
1708: END;
1709:
1710: END IF; -- if (l_accum_attrib is null)
1711: ELSE
1712: IF l_debug = FND_API.G_TRUE THEN
1713: QP_PREQ_GRP.engine_debug(' - Accumulation Profile is not enabled');
1714: END IF;
1715: l_accum := 0;
1716: END IF; -- if ACCUM_ATTR_ENABLED profile...
1719: l_accum_global := l_accum;
1720:
1721: -- accumulation processing:
1722: -- if accumulation value, then remap the value_from and offset qualifier value as necessary
1723: IF l_debug = FND_API.G_TRUE THEN
1724: QP_PREQ_GRP.engine_debug(' * begin accumulation processing (if necessary) *');
1725: END IF;
1726: IF p_value_to <= l_accum THEN
1727: -- skip this break because no quantity is satisfied
1726: IF p_value_to <= l_accum THEN
1727: -- skip this break because no quantity is satisfied
1728: x_satisfied_value := 0;
1729: l_accum_global := nvl(l_accum_global, 0);
1730: IF l_debug = FND_API.G_TRUE THEN
1731: QP_PREQ_GRP.engine_debug(' - skipping this break');
1732: END IF;
1733: RETURN;
1734: ELSE
1742: -- so no need to remap value_from
1743: END IF;
1744: -- offset qualifier value if necessary
1745: l_new_qualifier := l_accum + p_qualifier_value;
1746: IF l_debug = FND_API.G_TRUE THEN
1747: QP_PREQ_GRP.engine_debug(' l_accum = '|| l_accum);
1748: QP_PREQ_GRP.engine_debug(' l_value_from = '|| l_value_from);
1749: QP_PREQ_GRP.engine_debug(' l_new_qualifier = '|| l_new_qualifier);
1750: END IF;
1751:
1752: -- shulin, fix bug 2372064
1753: -- 4999377, restrict shulin's fix to only 0-0 case
1754: IF (p_value_from = p_value_to AND p_value_from = 0) THEN -- for cases like 0-0, 2-2, 0.5-0.5
1755: IF l_debug = FND_API.G_TRUE THEN
1756: QP_PREQ_GRP.engine_debug('value_from is the same as value_to, x_satisfied_value is 0');
1757: END IF;
1758: x_satisfied_value := 0;
1759: ELSIF (l_new_qualifier - l_value_from + l_precision > 0) THEN
1761: ELSE
1762: x_satisfied_value := 0;
1763: END IF;
1764:
1765: IF l_debug = FND_API.G_TRUE THEN
1766: QP_PREQ_GRP.engine_debug('Out of Procedure : Get_Satisfied_Range');
1767:
1768: END IF;
1769: END Get_Satisfied_Range;
1889: OPEN get_continuous_flag_cur;
1890: FETCH get_continuous_flag_cur INTO l_continuous_flag;
1891: CLOSE get_continuous_flag_cur;
1892:
1893: IF l_debug = FND_API.G_TRUE THEN
1894: QP_PREQ_GRP.engine_debug('In Procedure '|| l_routine || '...');
1895: IF l_continuous_flag = 'Y' THEN
1896: QP_PREQ_GRP.engine_debug('---------- CONTINUOUS PRICE BREAK ----------');
1897: END IF;
1924: pbh_child_rec.qualifier_value := p_req_value_per_unit;
1925: END IF;
1926: END IF;
1927:
1928: IF l_debug = FND_API.G_TRUE THEN
1929: QP_PREQ_GRP.engine_debug('PBH Qualifier Value : ' || pbh_child_rec.qualifier_value);
1930: QP_PREQ_GRP.engine_debug('PBH Value From : ' || pbh_child_rec.value_from);
1931: QP_PREQ_GRP.engine_debug('PBH Value To : ' || pbh_child_rec.value_to);
1932: QP_PREQ_GRP.engine_debug('PBH Break Type : ' || p_break_type);
1932: QP_PREQ_GRP.engine_debug('PBH Break Type : ' || p_break_type);
1933: END IF;
1934:
1935: IF (p_break_type = QP_PREQ_GRP.G_POINT_BREAK) THEN
1936: IF l_debug = FND_API.G_TRUE THEN
1937: QP_PREQ_GRP.engine_debug('i am in POINT block...');
1938: QP_PREQ_GRP.engine_debug('Before PBH List Line Type : ' || pbh_child_rec.related_list_line_type);
1939: END IF;
1940:
1958: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
1959: l_sign := 1; -- new price discount/surcharge are the same
1960: END IF;
1961:
1962: IF l_debug = FND_API.G_TRUE THEN
1963: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
1964: END IF;
1965: -- fte breakunit
1966: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE AND
1965: -- fte breakunit
1966: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE AND
1967: p_total_value > 0)
1968: THEN
1969: IF l_debug = FND_API.G_TRUE THEN
1970: QP_PREQ_GRP.engine_debug('fte breakunit price, using p_total_value = '|| p_total_value);
1971: END IF;
1972: l_priced_quantity := p_total_value;
1973: ELSIF (p_applied_req_value_per_unit > 0) THEN -- [julin/4112395/4220399]
1975: ELSE
1976: l_priced_quantity := p_req_value_per_unit;
1977: END IF;
1978:
1979: IF l_debug = FND_API.G_TRUE THEN
1980: QP_PREQ_GRP.engine_debug('l_priced_quantity '|| l_priced_quantity);
1981: END IF; --l_debug
1982:
1983: --4900095 lumpsum
1986: IF QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE.EXISTS(p_list_line_id)
1987: AND QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE(p_list_line_id) = 'LINE' THEN
1988: l_priced_quantity := nvl(p_applied_req_value_per_unit,
1989: QP_PREQ_GRP.G_service_line_qty_tbl(p_line_index));
1990: IF l_debug = FND_API.G_TRUE THEN
1991: QP_PREQ_GRP.engine_debug('service line pbh with line level');
1992: END IF; --l_debug
1993: --p_request_qty * l_parent_qty;
1994: ELSIF QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE.EXISTS(p_list_line_id)
1994: ELSIF QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE.EXISTS(p_list_line_id)
1995: AND QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE(p_list_line_id) = 'LINEGROUP' THEN
1996: l_priced_quantity := nvl(p_applied_req_value_per_unit,
1997: QP_PREQ_GRP.G_service_ldet_qty_tbl(p_list_line_id));
1998: IF l_debug = FND_API.G_TRUE THEN
1999: QP_PREQ_GRP.engine_debug('service line pbh with linegrp level');
2000: END IF; --l_debug
2001: ELSE
2002: l_priced_quantity := nvl(p_applied_req_value_per_unit, p_req_value_per_unit);
1999: QP_PREQ_GRP.engine_debug('service line pbh with linegrp level');
2000: END IF; --l_debug
2001: ELSE
2002: l_priced_quantity := nvl(p_applied_req_value_per_unit, p_req_value_per_unit);
2003: IF l_debug = FND_API.G_TRUE THEN
2004: QP_PREQ_GRP.engine_debug('non-service line pbh with linegrp level');
2005: END IF; --l_debug
2006: END IF; --QP_PREQ_GRP.G_service_line_ind_tbl.exists
2007:
2004: QP_PREQ_GRP.engine_debug('non-service line pbh with linegrp level');
2005: END IF; --l_debug
2006: END IF; --QP_PREQ_GRP.G_service_line_ind_tbl.exists
2007:
2008: IF l_debug = FND_API.G_TRUE THEN
2009: QP_PREQ_GRP.engine_debug('lumpsum qty '|| l_priced_quantity);
2010: END IF; --l_debug
2011: END IF; --pbh_child_rec.operand_calculation_code
2012:
2019: l_adjustment_amount,
2020: l_return_status,
2021: l_return_status_text);
2022:
2023: IF l_debug = FND_API.G_TRUE THEN
2024: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2025: END IF;
2026:
2027: pbh_adjustments(i).l_adjustment_amount := l_adjustment_amount;
2028:
2029: -- begin 2892848
2030: IF (p_bucketed_flag = 'Y') THEN
2031: pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value;
2032: IF l_debug = FND_API.G_TRUE THEN
2033: QP_PREQ_GRP.engine_debug('POINT net amount break l_satisfied_value: '|| pbh_adjustments(i).l_satisfied_value);
2034: END IF; -- END IF l_debug
2035: ELSE -- end 2892848
2036:
2042: pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value; -- fte breakunit
2043: --ELSE
2044: -- pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value/v_attribute_value_per_unit; --2388011_latest
2045: --END IF;
2046: IF l_debug = FND_API.G_TRUE THEN
2047: QP_PREQ_GRP.engine_debug('p_total_value > 0');
2048: QP_PREQ_GRP.engine_debug('v_attribute_value_per_unit (p_total_value/p_req_value_per_unit): ' || v_attribute_value_per_unit);
2049: QP_PREQ_GRP.engine_debug('l_satisfied_value (qualifier_value/v_attribute_value_per_unit): '|| pbh_adjustments(i).l_satisfied_value);
2050: END IF; -- END IF l_debug
2049: QP_PREQ_GRP.engine_debug('l_satisfied_value (qualifier_value/v_attribute_value_per_unit): '|| pbh_adjustments(i).l_satisfied_value);
2050: END IF; -- END IF l_debug
2051: ELSE
2052: pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value;
2053: IF l_debug = FND_API.G_TRUE THEN
2054: QP_PREQ_GRP.engine_debug('POINT break l_satisfied_value: '|| pbh_adjustments(i).l_satisfied_value);
2055: END IF; -- END IF l_debug
2056: END IF; -- END IF (p_total_value > 0)
2057: END IF; -- END IF (p_bucketed_flag = 'Y') 2892848
2056: END IF; -- END IF (p_total_value > 0)
2057: END IF; -- END IF (p_bucketed_flag = 'Y') 2892848
2058:
2059: x_adjustment_amount := l_adjustment_amount;
2060: IF l_debug = FND_API.G_TRUE THEN
2061: QP_PREQ_GRP.engine_debug('POINT break x_adjustment_amount: '|| x_adjustment_amount);
2062: END IF; -- END IF l_debug
2063: -- fte breakunit
2064: -- Normally, point breaks assume the adj amt on the header is the same as
2068: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE AND
2069: p_total_value > 0)
2070: THEN
2071: x_adjustment_amount := l_adjustment_amount * l_priced_quantity / p_req_value_per_unit;
2072: IF l_debug = FND_API.G_TRUE THEN
2073: QP_PREQ_GRP.engine_debug('fte breakunit, PBH x_adjustment_amount: '|| x_adjustment_amount);
2074: END IF;
2075: END IF;
2076: ELSE
2083: pbh_child_dtl_tbl(i) := pbh_child_rec;
2084:
2085: ELSIF (p_break_type = QP_PREQ_GRP.G_RANGE_BREAK) THEN
2086:
2087: IF l_debug = FND_API.G_TRUE THEN
2088: QP_PREQ_GRP.engine_debug('i am in RANGE block...');
2089: END IF; -- END IF l_debug
2090:
2091: IF (pbh_child_rec.related_list_line_type = QP_PREQ_GRP.G_DISCOUNT) THEN
2097: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
2098: l_sign := 1; -- new price discount/surcharge are the same
2099: END IF;
2100:
2101: IF l_debug = FND_API.G_TRUE THEN
2102: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2103: END IF; -- END IF l_debug
2104:
2105: IF l_debug = FND_API.G_TRUE THEN
2101: IF l_debug = FND_API.G_TRUE THEN
2102: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2103: END IF; -- END IF l_debug
2104:
2105: IF l_debug = FND_API.G_TRUE THEN
2106: QP_PREQ_GRP.engine_debug('l_total_value now: '|| l_total_value || ' is used to get_satisfied_range.');
2107: END IF; -- END IF l_debug
2108:
2109: Get_Satisfied_Range(pbh_child_rec.value_from, pbh_child_rec.value_to, pbh_child_rec.qualifier_value,
2108:
2109: Get_Satisfied_Range(pbh_child_rec.value_from, pbh_child_rec.value_to, pbh_child_rec.qualifier_value,
2110: pbh_child_rec.list_line_id, l_continuous_flag, 'N', l_satisfied_value);
2111:
2112: IF l_debug = FND_API.G_TRUE THEN
2113: QP_PREQ_GRP.engine_debug('l_satisfied_range from Get_Satisfied_Range: '|| l_satisfied_value);
2114: END IF; -- END IF l_debug
2115: pbh_adjustments(i).l_raw_satisfied_value := l_satisfied_value; -- 5335689
2116: IF l_satisfied_value > 0 THEN
2124: IF (p_total_value > 0) THEN
2125: v_attribute_value_per_unit := p_total_value / p_req_value_per_unit; --2388011_latest
2126: --pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value/v_attribute_value_per_unit; --2388011_latest
2127: pbh_adjustments(i).l_satisfied_value := l_satisfied_value / v_attribute_value_per_unit; -- SHU diff RAVI
2128: IF l_debug = FND_API.G_TRUE THEN
2129: QP_PREQ_GRP.engine_debug('p_total_value >= 0');
2130: QP_PREQ_GRP.engine_debug('v_attribute_value_per_unit (p_total_value/p_req_value_per_unit): ' || v_attribute_value_per_unit);
2131: QP_PREQ_GRP.engine_debug('l_raw_satisfied_value: ' || pbh_adjustments(i).l_raw_satisfied_value);
2132: QP_PREQ_GRP.engine_debug('l_satisfied_value assigned back to this child break: '|| pbh_adjustments(i).l_satisfied_value);
2132: QP_PREQ_GRP.engine_debug('l_satisfied_value assigned back to this child break: '|| pbh_adjustments(i).l_satisfied_value);
2133: END IF; -- END IF l_debug
2134: ELSE
2135: pbh_adjustments(i).l_satisfied_value := l_satisfied_value;
2136: IF l_debug = FND_API.G_TRUE THEN
2137: QP_PREQ_GRP.engine_debug('l_satisfied_value assigned back to this child break: '|| pbh_adjustments(i).l_satisfied_value);
2138: END IF; -- END IF l_debug
2139: END IF; -- END IF (p_total_value > 0)
2140: END IF; -- END IF (p_bucketed_flag = 'Y') THEN
2156: pbh_adjustments(i).l_related_line_detail_index := pbh_child_rec.related_line_detail_index;
2157: pbh_adjustments(i).l_adjustment_amount := l_adjustment_amount;
2158: pbh_child_dtl_tbl(i) := pbh_child_rec;
2159:
2160: IF l_debug = FND_API.G_TRUE THEN
2161: QP_PREQ_GRP.engine_debug('Adjustment : (' || i || ') ' || l_adjustment_amount);
2162: QP_PREQ_GRP.engine_debug('Satisfied Value : (' || i || ') ' || l_satisfied_value);
2163: QP_PREQ_GRP.engine_debug('Total Value for next child line: (' || i || ') ' || l_total_value);
2164: END IF; -- END IF l_debug
2175:
2176: l_range_adjustment := l_range_adjustment + nvl(pbh_adjustments(i).l_adjustment_amount *
2177: pbh_adjustments(i).l_satisfied_value, 0);
2178:
2179: IF l_debug = FND_API.G_TRUE THEN
2180: QP_PREQ_GRP.engine_debug('--- '||'break child '|| i ||' ---');
2181: QP_PREQ_GRP.engine_debug('l_adjustment_amount: '|| pbh_adjustments(i).l_adjustment_amount);
2182: QP_PREQ_GRP.engine_debug('l_satisfied_value: '|| nvl(pbh_adjustments(i).l_raw_satisfied_value,
2183: pbh_adjustments(i).l_satisfied_value));
2184: QP_PREQ_GRP.engine_debug('l_range_adjustment total: '|| l_range_adjustment);
2185: END IF; -- END IF l_debug
2186: END LOOP;
2187: x_adjustment_amount := l_range_adjustment / p_req_value_per_unit; -- ravi_new
2188: IF l_debug = FND_API.G_TRUE THEN
2189: QP_PREQ_GRP.engine_debug('Range Break Averaged Adjustment : ' || x_adjustment_amount);
2190: END IF; -- END IF l_debug
2191:
2192: END IF;
2193:
2194: -- Update the adjustments/satisfied ranges info on line details
2195: IF (QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG = QP_PREQ_GRP.G_YES) THEN
2196: IF (pbh_adjustments.COUNT > 0) THEN
2197: IF l_debug = FND_API.G_TRUE THEN
2198: QP_PREQ_GRP.engine_debug('updating child pbh lines '|| pbh_adjustments.COUNT);
2199: QP_PREQ_GRP.engine_debug('l_break_qualified=' || l_break_qualified);
2200: END IF; -- END IF l_debug
2201: IF l_break_qualified = 'Y' THEN
2225: EXCEPTION
2226: WHEN OTHERS THEN
2227: NULL;
2228: END;
2229: IF l_debug = FND_API.G_TRUE THEN
2230: QP_PREQ_GRP.engine_debug('child dtl adj amt '
2231: || pbh_adjustments(i).l_adjustment_amount
2232: ||' l_satisfied_value '|| pbh_adjustments(i).l_satisfied_value
2233: ||' ordqtyadjamt '|| l_ord_qty_adj_amt
2260:
2261:
2262: EXCEPTION
2263: WHEN OTHERS THEN
2264: IF l_debug = FND_API.G_TRUE THEN
2265: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2266: END IF; -- END IF l_debug
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: x_return_status_text := l_routine ||' '|| SQLERRM;
2263: WHEN OTHERS THEN
2264: IF l_debug = FND_API.G_TRUE THEN
2265: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2266: END IF; -- END IF l_debug
2267: x_return_status := FND_API.G_RET_STS_ERROR;
2268: x_return_status_text := l_routine ||' '|| SQLERRM;
2269: END Price_Break_Calculation;
2270:
2271: PROCEDURE Price_Break_Calculation(p_list_line_id NUMBER,
2361:
2362: BEGIN
2363:
2364: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2365: IF l_debug = FND_API.G_TRUE THEN
2366: QP_PREQ_GRP.engine_debug('#90 p_id '|| p_list_line_id ||' pub_api_call_flg '
2367: || QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG);
2368: END IF;
2369: x_adjustment_amount := 0;
2367: || QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG);
2368: END IF;
2369: x_adjustment_amount := 0;
2370: l_line_index := p_line_index; -- accum range break
2371: IF l_debug = FND_API.G_TRUE THEN
2372: QP_PREQ_GRP.engine_debug('#100');
2373:
2374: END IF;
2375:
2379: CLOSE get_continuous_flag_cur;
2380:
2381: OPEN get_price_break_details;
2382:
2383: IF l_debug = FND_API.G_TRUE THEN
2384: QP_PREQ_GRP.engine_debug('#101');
2385:
2386: END IF;
2387: LOOP
2385:
2386: END IF;
2387: LOOP
2388:
2389: IF l_debug = FND_API.G_TRUE THEN
2390: QP_PREQ_GRP.engine_debug('#102');
2391: END IF;
2392:
2393: i := i + 1;
2398: IF (QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG = QP_PREQ_GRP.G_YES) THEN
2399: pbh_child_rec.qualifier_value := p_request_qty;
2400: END IF;
2401:
2402: IF l_debug = FND_API.G_TRUE THEN
2403: QP_PREQ_GRP.engine_debug('PBH Qualifier Value : ' || pbh_child_rec.qualifier_value);
2404: QP_PREQ_GRP.engine_debug('PBH Value From : ' || pbh_child_rec.value_from);
2405: QP_PREQ_GRP.engine_debug('PBH Value To : ' || pbh_child_rec.value_to);
2406: QP_PREQ_GRP.engine_debug('PBH Break Type : ' || p_break_type);
2408: END IF;
2409:
2410: IF (p_break_type = QP_PREQ_GRP.G_POINT_BREAK) THEN
2411:
2412: IF l_debug = FND_API.G_TRUE THEN
2413: QP_PREQ_GRP.engine_debug('Before PBH List Line Type : ' || pbh_child_rec.related_list_line_type);
2414: END IF;
2415: -- rewritten for 4061138
2416: IF ((l_continuous_flag <> 'Y' AND
2419: (l_continuous_flag = 'Y' AND
2420: pbh_child_rec.value_from < pbh_child_rec.qualifier_value AND
2421: pbh_child_rec.qualifier_value <= pbh_child_rec.value_to) )
2422: THEN
2423: IF l_debug = FND_API.G_TRUE THEN
2424: QP_PREQ_GRP.engine_debug('In PBH List Line Type : ' || pbh_child_rec.related_list_line_type);
2425:
2426: END IF;
2427: IF (pbh_child_rec.related_list_line_type = QP_PREQ_GRP.G_DISCOUNT) THEN
2432:
2433: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
2434: l_sign := 1; -- new price discount/surcharge are the same
2435: END IF;
2436: IF l_debug = FND_API.G_TRUE THEN
2437: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2438:
2439: END IF;
2440: Calculate_Adjustment(p_list_price,
2444: l_adjustment_amount,
2445: l_return_status,
2446: l_return_status_text);
2447:
2448: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2450: END IF;
2451: IF l_debug = FND_API.G_TRUE THEN
2452: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2445: l_return_status,
2446: l_return_status_text);
2447:
2448: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2450: END IF;
2451: IF l_debug = FND_API.G_TRUE THEN
2452: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2453:
2447:
2448: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2450: END IF;
2451: IF l_debug = FND_API.G_TRUE THEN
2452: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2453:
2454: END IF;
2455: pbh_adjustments(i).l_adjustment_amount := l_adjustment_amount;
2466:
2467: ELSIF (p_break_type = QP_PREQ_GRP.G_RANGE_BREAK) THEN
2468:
2469: IF (l_qualifier_value = 0) THEN
2470: IF l_debug = FND_API.G_TRUE THEN
2471: QP_PREQ_GRP.engine_debug('Range Break');
2472: END IF;
2473: l_qualifier_value := pbh_child_rec.qualifier_value;
2474: l_total_value := pbh_child_rec.qualifier_value;
2482:
2483: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
2484: l_sign := 1; -- new price discount/surcharge are the same
2485: END IF;
2486: IF l_debug = FND_API.G_TRUE THEN
2487: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2488:
2489: END IF;
2490: -- 3943868: was passing p_list_line_id instead of pbh_child_rec.list_line_id
2504: --l_total_value,
2505: l_adjustment_amount,
2506: l_return_status,
2507: l_return_status_text);
2508: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2510: END IF;
2511: END IF;
2512:
2505: l_adjustment_amount,
2506: l_return_status,
2507: l_return_status_text);
2508: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2510: END IF;
2511: END IF;
2512:
2513: pbh_adjustments(i).l_related_list_line_id := pbh_child_rec.related_list_line_id;
2516:
2517: --IF (l_total_value > 0) THEN
2518: --l_total_value := l_total_value - l_satisfied_value; -- this is correct to be commented out
2519:
2520: IF l_debug = FND_API.G_TRUE THEN
2521: QP_PREQ_GRP.engine_debug('Adjustment : (' || i || ') ' || l_adjustment_amount);
2522: QP_PREQ_GRP.engine_debug('Satisfied Value : (' || i || ') ' || l_satisfied_value);
2523: QP_PREQ_GRP.engine_debug('Total Value : (' || i || ') ' || l_total_value);
2524: END IF;
2538: l_range_adjustment := l_range_adjustment + nvl(pbh_adjustments(i).l_adjustment_amount * pbh_adjustments(i).l_satisfied_value, 0);
2539: END LOOP;
2540: x_adjustment_amount := l_range_adjustment / l_qualifier_value;
2541:
2542: IF l_debug = FND_API.G_TRUE THEN
2543: QP_PREQ_GRP.engine_debug('Averaged Adjustment : ' || x_adjustment_amount);
2544:
2545: END IF;
2546: END IF;
2547:
2548: -- Update the adjustments/satisfied ranges info on line details
2549: IF (QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG = QP_PREQ_GRP.G_YES) THEN
2550: IF (pbh_adjustments.COUNT > 0) THEN
2551: IF l_debug = FND_API.G_TRUE THEN
2552: QP_PREQ_GRP.engine_debug('updating child pbh lines '
2553: || pbh_adjustments.COUNT);
2554: END IF;
2555: FOR i IN pbh_adjustments.FIRST .. pbh_adjustments.LAST LOOP
2552: QP_PREQ_GRP.engine_debug('updating child pbh lines '
2553: || pbh_adjustments.COUNT);
2554: END IF;
2555: FOR i IN pbh_adjustments.FIRST .. pbh_adjustments.LAST LOOP
2556: IF l_debug = FND_API.G_TRUE THEN
2557: QP_PREQ_GRP.engine_debug('child dtl adj amt '
2558: || pbh_adjustments(i).l_adjustment_amount
2559: ||' qty '|| pbh_adjustments(i).l_satisfied_value
2560: ||' dtl index '|| pbh_adjustments(i).l_related_line_detail_index);
2574:
2575:
2576: EXCEPTION
2577: WHEN OTHERS THEN
2578: IF l_debug = FND_API.G_TRUE THEN
2579: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2580: END IF;
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: x_return_status_text := l_routine ||' '|| SQLERRM;
2577: WHEN OTHERS THEN
2578: IF l_debug = FND_API.G_TRUE THEN
2579: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2580: END IF;
2581: x_return_status := FND_API.G_RET_STS_ERROR;
2582: x_return_status_text := l_routine ||' '|| SQLERRM;
2583: END Price_Break_Calculation;
2584:
2585: PROCEDURE GSA_Max_Discount_Check(p_adjusted_unit_price NUMBER,
2626: ORDER BY 2;
2627:
2628: BEGIN
2629: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2630: x_return_status := FND_API.G_RET_STS_SUCCESS;
2631:
2632: OPEN get_source_system_code;
2633: FETCH get_source_system_code INTO v_source_system_code;
2634: CLOSE get_source_system_code;
2636: OPEN get_list_details_cur(v_source_system_code);
2637: FETCH get_list_details_cur INTO v_list_line_id, v_operand;
2638: CLOSE get_list_details_cur;
2639:
2640: IF l_debug = FND_API.G_TRUE THEN
2641: QP_PREQ_GRP.engine_debug ('GSA List Line : ' || v_list_line_id);
2642: QP_PREQ_GRP.engine_debug ('GSA Price : ' || v_operand);
2643: QP_PREQ_GRP.engine_debug('GSA List Line : ' || v_list_line_id);
2644: QP_PREQ_GRP.engine_debug('GSA Price : ' || v_operand);
2652: END IF;
2653:
2654: EXCEPTION
2655: WHEN GSA_VIOLATION THEN
2656: IF l_debug = FND_API.G_TRUE THEN
2657: QP_PREQ_GRP.engine_debug(v_routine_name || ' GSA Violation. GSA Price: ' || v_operand || 'List Line: ' || v_list_line_id);
2658: END IF;
2659: x_return_status := QP_PREQ_GRP.G_STATUS_GSA_VIOLATION;
2660: x_return_status_txt := v_operand ;
2658: END IF;
2659: x_return_status := QP_PREQ_GRP.G_STATUS_GSA_VIOLATION;
2660: x_return_status_txt := v_operand ;
2661: WHEN OTHERS THEN
2662: IF l_debug = FND_API.G_TRUE THEN
2663: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2664: END IF;
2665: x_return_status := FND_API.G_RET_STS_ERROR;
2666: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2661: WHEN OTHERS THEN
2662: IF l_debug = FND_API.G_TRUE THEN
2663: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2664: END IF;
2665: x_return_status := FND_API.G_RET_STS_ERROR;
2666: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2667: END GSA_Max_Discount_Check;
2668:
2669: PROCEDURE Calculate_Price(p_request_line IN OUT NOCOPY l_request_line_rec,
2714: --of pricing sequence(this cannot be done
2715: -- using PL/SQL table. I am assuming that I would get the records in ordered sequence
2716:
2717: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2718: IF l_debug = FND_API.G_TRUE THEN
2719: QP_PREQ_GRP.engine_debug ('In Procedure Calculate_Price...'); -- shu, aso rounding, 2457629
2720: QP_PREQ_GRP.engine_debug ('selling price rounding options : ' || v_price_round_options); -- shu
2721: QP_PREQ_GRP.engine_debug ('Rounding Flag : ' || QP_PREQ_GRP.G_ROUNDING_FLAG); -- aso rounding, 2457629
2722: QP_PREQ_GRP.engine_debug ('Rounding Factor : ' || p_request_line.rounding_factor);
2722: QP_PREQ_GRP.engine_debug ('Rounding Factor : ' || p_request_line.rounding_factor);
2723: END IF;
2724:
2725: IF (p_request_line.rounding_flag = 'Y' AND p_request_line.rounding_factor IS NULL) THEN -- shu
2726: IF l_debug = FND_API.G_TRUE THEN
2727: QP_PREQ_GRP.engine_debug ('WARNING: rounding_flag is Y, but rounding_factor is NULL!!!');
2728: END IF;
2729: END IF;
2730:
2732: l_line_index := p_request_line.line_index;
2733:
2734: -- Loop through the p_request_line_details
2735:
2736: IF l_debug = FND_API.G_TRUE THEN
2737: QP_PREQ_GRP.engine_debug('The request line tables count is: ' || p_request_line_details.COUNT);
2738: END IF;
2739:
2740: v_index := p_request_line_details.FIRST;
2740: v_index := p_request_line_details.FIRST;
2741: WHILE (v_index IS NOT NULL )
2742: LOOP
2743:
2744: IF l_debug = FND_API.G_TRUE THEN
2745: QP_PREQ_GRP.engine_debug('LOOPing through p_request_line_details........');
2746: QP_PREQ_GRP.engine_debug('The request line index is: ' || v_index);
2747: QP_PREQ_GRP.engine_debug('PBH Type123:' || p_request_line_details(v_index).CREATED_FROM_LIST_TYPE);
2748: END IF;
2755: --[julin/5158413] defaulting to -1 (instead of 0) to distinguish null qual value from 0 qual value
2756: --v_total_value := nvl(p_request_line_details(v_index).qualifier_value, - 1); -- 2388011_latest
2757: v_total_value := nvl(p_request_line_details(v_index).qualifier_value, 0); --6896139 undoing changes done as part of bug 5158413
2758:
2759: IF l_debug = FND_API.G_TRUE THEN
2760: QP_PREQ_GRP.engine_debug('ldets.qualifier_value, (v_ord_qty) : ' || v_ord_qty);
2761: QP_PREQ_GRP.engine_debug('ldets.line_quqntity, (v_total_value) : ' || v_total_value);
2762: -- If bucketed net amount flag is set to 'Y'
2763: QP_PREQ_GRP.engine_debug('Bucketed Old PGS : ' || v_old_pricing_sequence);
2761: QP_PREQ_GRP.engine_debug('ldets.line_quqntity, (v_total_value) : ' || v_total_value);
2762: -- If bucketed net amount flag is set to 'Y'
2763: QP_PREQ_GRP.engine_debug('Bucketed Old PGS : ' || v_old_pricing_sequence);
2764: QP_PREQ_GRP.engine_debug('Bucketed New PGS : ' || p_request_line_details(v_index).PRICING_GROUP_SEQUENCE);
2765: END IF; -- END IF l_debug = FND_API.G_TRUE
2766:
2767: IF (nvl(v_old_pricing_sequence, - 9999) <> p_request_line_details(v_index).PRICING_GROUP_SEQUENCE AND
2768: p_request_line_details(v_index).bucketed_flag = 'Y') THEN
2769: IF l_debug = FND_API.G_TRUE THEN
2765: END IF; -- END IF l_debug = FND_API.G_TRUE
2766:
2767: IF (nvl(v_old_pricing_sequence, - 9999) <> p_request_line_details(v_index).PRICING_GROUP_SEQUENCE AND
2768: p_request_line_details(v_index).bucketed_flag = 'Y') THEN
2769: IF l_debug = FND_API.G_TRUE THEN
2770: QP_PREQ_GRP.engine_debug('Before Bucketed Group Amount : ' || v_bucketed_value);
2771: QP_PREQ_GRP.engine_debug('Before Bucketed Line Amount : ' || v_bucketed_qty);
2772: QP_PREQ_GRP.engine_debug('Bucket Adjustment Amount: ' || nvl(v_total_adj_amt, 0));
2773: END IF; -- END IF l_debug = FND_API.G_TRUE
2769: IF l_debug = FND_API.G_TRUE THEN
2770: QP_PREQ_GRP.engine_debug('Before Bucketed Group Amount : ' || v_bucketed_value);
2771: QP_PREQ_GRP.engine_debug('Before Bucketed Line Amount : ' || v_bucketed_qty);
2772: QP_PREQ_GRP.engine_debug('Bucket Adjustment Amount: ' || nvl(v_total_adj_amt, 0));
2773: END IF; -- END IF l_debug = FND_API.G_TRUE
2774:
2775: IF (v_total_value > 0) THEN
2776: v_bucketed_value := v_total_value + nvl(v_total_adj_amt * v_actual_line_qty, 0); -- Net Group Amount
2777: v_bucketed_qty := NULL;
2779: v_bucketed_qty := v_ord_qty + nvl(v_total_adj_amt * v_actual_line_qty, 0); -- Net Item Amount
2780: v_bucketed_value := NULL;
2781: END IF; -- END IF (v_total_value > 0)
2782:
2783: IF l_debug = FND_API.G_TRUE THEN
2784: QP_PREQ_GRP.engine_debug('Net Bucketed Group Amount : ' || v_bucketed_value);
2785: QP_PREQ_GRP.engine_debug('Net Bucketed Line Amount : ' || v_bucketed_qty);
2786: END IF; -- END IF l_debug = FND_API.G_TRUE
2787: END IF; -- END IF (nvl(v_old_pricing_sequence,-9999)
2782:
2783: IF l_debug = FND_API.G_TRUE THEN
2784: QP_PREQ_GRP.engine_debug('Net Bucketed Group Amount : ' || v_bucketed_value);
2785: QP_PREQ_GRP.engine_debug('Net Bucketed Line Amount : ' || v_bucketed_qty);
2786: END IF; -- END IF l_debug = FND_API.G_TRUE
2787: END IF; -- END IF (nvl(v_old_pricing_sequence,-9999)
2788:
2789: -- end fix 2388011, grp_lines_pbh, IT bucket
2790:
2799: -- Store the related item price
2800: v_related_item_price := p_request_line.RELATED_ITEM_PRICE;
2801: v_service_duration := nvl(p_request_line.SERVICE_DURATION, 1);
2802:
2803: IF l_debug = FND_API.G_TRUE THEN
2804: QP_PREQ_GRP.engine_debug('Service Duration : ' || v_service_duration);
2805:
2806: END IF;
2807:
2818: IF (p_request_line_details(v_index).PRICING_GROUP_SEQUENCE IS NULL) THEN
2819: v_orig_list_price := p_request_line.UNIT_PRICE;
2820: ELSE
2821: IF (v_list_price IS NULL) THEN
2822: IF l_debug = FND_API.G_TRUE THEN
2823: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
2824: END IF;
2825: v_list_price := p_request_line.UNIT_PRICE;
2826:
2842: END IF; -- END IF (p_request_line_details(v_index).PRICING_GROUP_SEQUENCE IS NULL)
2843:
2844: IF (p_request_line_details(v_index).CREATED_FROM_LIST_LINE_TYPE =
2845: QP_PREQ_GRP.G_PRICE_BREAK_TYPE) THEN
2846: IF l_debug = FND_API.G_TRUE THEN
2847: QP_PREQ_GRP.engine_debug('PBH Type:' || p_request_line_details(v_index).CREATED_FROM_LIST_TYPE);
2848: QP_PREQ_GRP.engine_debug('PBH Unit Price:' || p_request_line.UNIT_PRICE);
2849: QP_PREQ_GRP.engine_debug('Old PGS:' || v_old_pricing_sequence);
2850: END IF;
2873: x_ret_status,
2874: x_ret_status_txt);
2875: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
2876:
2877: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2878: RAISE FND_API.G_EXC_ERROR;
2879: END IF;
2880:
2881: IF (p_request_line_details(v_index).CREATED_FROM_LIST_TYPE IN
2874: x_ret_status_txt);
2875: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
2876:
2877: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2878: RAISE FND_API.G_EXC_ERROR;
2879: END IF;
2880:
2881: IF (p_request_line_details(v_index).CREATED_FROM_LIST_TYPE IN
2882: (QP_PREQ_GRP.G_PRICE_LIST_HEADER, QP_PREQ_GRP.G_AGR_LIST_HEADER)) THEN
2888: p_request_line_details(v_index).LINE_QUANTITY := v_ord_qty;
2889: -- Init the price list values for input to the Calculate_Adjusted_Price function
2890: v_list_price := x_pbh_list_price;
2891: v_discounted_price := x_pbh_list_price;
2892: IF l_debug = FND_API.G_TRUE THEN
2893: QP_PREQ_GRP.engine_debug('Unit Price:' || x_pbh_list_price);
2894: QP_PREQ_GRP.engine_debug('Extended Price on the Line: ' || p_request_line.EXTENDED_PRICE);
2895: QP_PREQ_GRP.engine_debug('Related Request Lines Table Count:'|| x_related_request_lines_tbl.COUNT);
2896: END IF;
2910: p_request_line.ADJUSTED_UNIT_PRICE := p_request_line.UNIT_PRICE + nvl(v_total_adj_amt, 0);
2911: END IF;
2912: v_discounted_price := p_request_line.ADJUSTED_UNIT_PRICE;
2913:
2914: IF l_debug = FND_API.G_TRUE THEN
2915: QP_PREQ_GRP.engine_debug('Adjusted Amount:' || x_adjusted_amount);
2916: QP_PREQ_GRP.engine_debug('Unit Price:' || p_request_line.UNIT_PRICE );
2917: QP_PREQ_GRP.engine_debug('Adjusted Unit Price:' || v_discounted_price);
2918: END IF;
2928: -- Calculate List Price for Pricing Sequence 0 for a PLL Line
2929: --IF (p_request_line_details(v_index).CREATED_FROM_LIST_TYPE in
2930: -- (QP_PREQ_GRP.G_PRICE_LIST_HEADER,QP_PREQ_GRP.G_AGR_LIST_HEADER)) THEN
2931: IF (p_request_line_details(v_index).CREATED_FROM_LIST_LINE_TYPE = QP_PREQ_GRP.G_PRICE_LIST_TYPE) THEN
2932: IF l_debug = FND_API.G_TRUE THEN
2933: QP_PREQ_GRP.engine_debug('I am in PLL');
2934: END IF;
2935: Calculate_List_Price_PVT(p_request_line_details(v_index).OPERAND_CALCULATION_CODE,
2936: p_request_line_details(v_index).OPERAND_VALUE,
2945: x_percent_price,
2946: x_extended_price, -- block pricing
2947: x_ret_status,
2948: x_ret_status_txt);
2949: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2950: RAISE FND_API.G_EXC_ERROR;
2951: END IF;
2952:
2953: p_request_line.UNIT_PRICE := x_list_price;
2946: x_extended_price, -- block pricing
2947: x_ret_status,
2948: x_ret_status_txt);
2949: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2950: RAISE FND_API.G_EXC_ERROR;
2951: END IF;
2952:
2953: p_request_line.UNIT_PRICE := x_list_price;
2954: p_request_line.PERCENT_PRICE := x_percent_price;
2957:
2958: -- Init the price list values for input to the Calculate_Adjusted_Price function
2959: v_list_price := x_list_price;
2960: v_discounted_price := x_list_price;
2961: IF l_debug = FND_API.G_TRUE THEN
2962: QP_PREQ_GRP.engine_debug('The List Price23 is: ' || v_list_price);
2963:
2964: END IF;
2965: END IF;
2968: -- This can be the case if pll lines are not passed
2969: -- nvl , if the caller wants the adjustments to be applied to an already
2970: -- discounted line
2971: IF (v_list_price IS NULL) THEN
2972: IF l_debug = FND_API.G_TRUE THEN
2973: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
2974: END IF;
2975: v_list_price := p_request_line.UNIT_PRICE;
2976:
2991:
2992: -- Calculate Adjusted Price
2993: IF (p_request_line_details(v_index).CREATED_FROM_LIST_LINE_TYPE
2994: IN (QP_PREQ_GRP.G_DISCOUNT, QP_PREQ_GRP.G_SURCHARGE, QP_PREQ_GRP.G_FREIGHT_CHARGE)) THEN
2995: IF l_debug = FND_API.G_TRUE THEN
2996: QP_PREQ_GRP.engine_debug('I am in DIS');
2997: QP_PREQ_GRP.engine_debug('The List Price is: ' || v_list_price);
2998: QP_PREQ_GRP.engine_debug('The Discounted Price is: ' || v_discounted_price);
2999: QP_PREQ_GRP.engine_debug('Old Pricing Seq: ' || v_old_pricing_sequence);
3007: /* [julin/5529345] recurring logic moved to QP_PREQ_GRP.PRICE_REQUEST
3008: -- Recurring flag check
3009: IF (p_request_line_details(v_index).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_RECURRING_BREAK AND
3010: QP_PREQ_GRP.G_LIMITS_CODE_EXECUTED = QP_PREQ_GRP.G_NO) THEN
3011: IF l_debug = FND_API.G_TRUE THEN
3012: QP_PREQ_GRP.engine_debug('In Recurring Routine --- #1');
3013: QP_PREQ_GRP.engine_debug('List Line Id: ' || p_request_line_details(v_index).CREATED_FROM_LIST_LINE_ID );
3014: QP_PREQ_GRP.engine_debug('List Line Index: ' || p_request_line.LINE_INDEX );
3015: END IF;
3021: NULL,
3022: x_benefit_line_qty,
3023: x_ret_status,
3024: x_ret_status_txt);
3025: IF l_debug = FND_API.G_TRUE THEN
3026: QP_PREQ_GRP.engine_debug('Return Status Text : ' || x_ret_status_txt);
3027:
3028: END IF;
3029: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3025: IF l_debug = FND_API.G_TRUE THEN
3026: QP_PREQ_GRP.engine_debug('Return Status Text : ' || x_ret_status_txt);
3027:
3028: END IF;
3029: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3030: RAISE FND_API.G_EXC_ERROR;
3031: END IF;
3032: p_request_line_details(v_index).OPERAND_VALUE := x_benefit_line_qty;
3033:
3026: QP_PREQ_GRP.engine_debug('Return Status Text : ' || x_ret_status_txt);
3027:
3028: END IF;
3029: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3030: RAISE FND_API.G_EXC_ERROR;
3031: END IF;
3032: p_request_line_details(v_index).OPERAND_VALUE := x_benefit_line_qty;
3033:
3034: IF l_debug = FND_API.G_TRUE THEN
3030: RAISE FND_API.G_EXC_ERROR;
3031: END IF;
3032: p_request_line_details(v_index).OPERAND_VALUE := x_benefit_line_qty;
3033:
3034: IF l_debug = FND_API.G_TRUE THEN
3035: QP_PREQ_GRP.engine_debug('Limits Code Not Executed.Did call Recurring Qty Routine');
3036: QP_PREQ_GRP.engine_debug('After Recurring Routine Value --- #2 : ' || x_benefit_line_qty);
3037:
3038: END IF;
3039: END IF;
3040:
3041: IF (p_request_line_details(v_index).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_RECURRING_BREAK AND
3042: QP_PREQ_GRP.G_LIMITS_CODE_EXECUTED = QP_PREQ_GRP.G_YES) THEN
3043: IF l_debug = FND_API.G_TRUE THEN
3044: QP_PREQ_GRP.engine_debug('Limits Code Executed.Do not calculate OPERAND value 2nd time.');
3045: QP_PREQ_GRP.engine_debug('List Line Id: ' || p_request_line_details(v_index).CREATED_FROM_LIST_LINE_ID );
3046: QP_PREQ_GRP.engine_debug('List Line Index: ' || p_request_line.LINE_INDEX );
3047: QP_PREQ_GRP.engine_debug('Recurring Value: ' || p_request_line_details(v_index).OPERAND_VALUE );
3049: END IF;
3050: */
3051:
3052: IF (nvl(p_request_line_details(v_index).ACCRUAL_FLAG, QP_PREQ_GRP.G_NO) = QP_PREQ_GRP.G_YES) THEN
3053: IF l_debug = FND_API.G_TRUE THEN
3054: QP_PREQ_GRP.engine_debug('OPERAND_CALCULATION_CODE is ' || p_request_line_details(v_index).OPERAND_CALCULATION_CODE);
3055: QP_PREQ_GRP.engine_debug('v_ord_qty is ' || v_ord_qty);
3056: END IF;
3057: -- bug 4002891 - benefit_qty should be multiplied by ordered_qty for application_method other than LUMPSUM
3081: --and for a line/linegroup lumpsum DIS/PBH/SUR/FREIGHT
3082: G_Lumpsum_qty := Get_lumpsum_qty(l_line_index,
3083: p_request_line_details(v_index).line_detail_index,
3084: p_request_line_details(v_index).modifier_level_code);
3085: IF l_debug = FND_API.G_TRUE THEN
3086: QP_PREQ_GRP.engine_debug('Lumpsum_qty '
3087: || G_Lumpsum_qty);
3088: END IF;
3089: END IF; --p_request_line_details(v_index).modifier_level_code
3107: x_list_price => x_list_price, -- Output List Price
3108: x_return_status => x_ret_status,
3109: x_return_status_txt => x_ret_status_txt);
3110:
3111: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3112: RAISE FND_API.G_EXC_ERROR;
3113: END IF;
3114:
3115: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
3108: x_return_status => x_ret_status,
3109: x_return_status_txt => x_ret_status_txt);
3110:
3111: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3112: RAISE FND_API.G_EXC_ERROR;
3113: END IF;
3114:
3115: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
3116: v_discounted_price := x_discounted_price;
3115: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
3116: v_discounted_price := x_discounted_price;
3117: v_list_price := x_List_price;
3118:
3119: IF l_debug = FND_API.G_TRUE THEN
3120: QP_PREQ_GRP.engine_debug('Adjusted Amount: ' || x_adjusted_amount);
3121:
3122: END IF;
3123: -- Update the adjusted amount on the request line
3160: --[prarasto:Post Round] End post round fix
3161:
3162: END IF;
3163:
3164: IF l_debug = FND_API.G_TRUE THEN
3165: QP_PREQ_GRP.engine_debug('The Adjusted Amount is: ' || v_total_adj_amt);
3166: QP_PREQ_GRP.engine_debug('The Unit Price: ' || p_request_line.UNIT_PRICE );
3167: QP_PREQ_GRP.engine_debug('The Adjusted Price: ' || p_request_line.ADJUSTED_UNIT_PRICE );
3168:
3173: END LOOP;
3174:
3175: -- If price list is not passed , round the unit price and adjusted unit price
3176: IF (v_list_price IS NULL) THEN
3177: IF l_debug = FND_API.G_TRUE THEN
3178: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
3179: END IF;
3180: v_list_price := p_request_line.UNIT_PRICE ;
3181: IF l_debug = FND_API.G_TRUE THEN
3177: IF l_debug = FND_API.G_TRUE THEN
3178: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
3179: END IF;
3180: v_list_price := p_request_line.UNIT_PRICE ;
3181: IF l_debug = FND_API.G_TRUE THEN
3182: QP_PREQ_GRP.engine_debug ('List Price after rounding: ' || v_list_price);
3183: END IF;
3184:
3185: -- shu new rounding
3197: END IF;
3198:
3199: END IF;
3200:
3201: IF l_debug = FND_API.G_TRUE THEN
3202: QP_PREQ_GRP.engine_debug ('List Price after rounding1: ' || p_request_line.UNIT_PRICE);
3203: QP_PREQ_GRP.engine_debug ('List Price after rounding2: ' || v_list_price);
3204: END IF;
3205: v_discounted_price := nvl(p_request_line.ADJUSTED_UNIT_PRICE, v_list_price);
3218: x_return_status := QP_PREQ_GRP.G_STATUS_GSA_VIOLATION;
3219: x_return_status_txt := x_ret_status_txt;
3220: END IF;
3221: END IF;
3222: IF l_debug = FND_API.G_TRUE THEN
3223: QP_PREQ_GRP.engine_debug ('Before Update List Price after rounding1: ' || p_request_line.UNIT_PRICE);
3224:
3225: END IF;
3226: -- Populate the Output records
3227: --p_request_line := p_request_line;
3228: --p_request_line_details := p_request_line_details;
3229: --p_related_request_lines := p_related_request_lines;
3230: EXCEPTION
3231: WHEN FND_API.G_EXC_ERROR THEN
3232: IF l_debug = FND_API.G_TRUE THEN
3233: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
3234: END IF;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3228: --p_request_line_details := p_request_line_details;
3229: --p_related_request_lines := p_related_request_lines;
3230: EXCEPTION
3231: WHEN FND_API.G_EXC_ERROR THEN
3232: IF l_debug = FND_API.G_TRUE THEN
3233: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
3234: END IF;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: x_return_status_txt := v_routine_name || ' ' || x_ret_status_txt;
3231: WHEN FND_API.G_EXC_ERROR THEN
3232: IF l_debug = FND_API.G_TRUE THEN
3233: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
3234: END IF;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: x_return_status_txt := v_routine_name || ' ' || x_ret_status_txt;
3237: WHEN OTHERS THEN
3238: IF l_debug = FND_API.G_TRUE THEN
3239: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
3234: END IF;
3235: x_return_status := FND_API.G_RET_STS_ERROR;
3236: x_return_status_txt := v_routine_name || ' ' || x_ret_status_txt;
3237: WHEN OTHERS THEN
3238: IF l_debug = FND_API.G_TRUE THEN
3239: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
3240: END IF;
3241: x_return_status := FND_API.G_RET_STS_ERROR;
3242: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
3237: WHEN OTHERS THEN
3238: IF l_debug = FND_API.G_TRUE THEN
3239: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
3240: END IF;
3241: x_return_status := FND_API.G_RET_STS_ERROR;
3242: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
3243:
3244: END Calculate_Price;
3245: