[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
441: END IF; -- end if p_accrual_flag
442:
443: ELSIF (p_list_line_type = QP_PREQ_GRP.G_FREIGHT_CHARGE) THEN
444:
445: IF l_debug = FND_API.G_TRUE THEN
446: QP_PREQ_GRP.engine_debug('Freight Charge');
447: QP_PREQ_GRP.engine_debug('Discounted Price : ' || p_discounted_price);
448: END IF;
449: x_discounted_price := p_discounted_price;
452: x_adjusted_amount := p_operand_value;
453: ELSE
454: --4900095 added nvl to G_Lumpsum_qty
455: x_adjusted_amount := p_operand_value / nvl(G_Lumpsum_Qty, p_request_qty);
456: IF l_debug = FND_API.G_TRUE THEN
457: QP_PREQ_GRP.engine_debug('Adjusted Amount: ' || x_adjusted_amount);
458: END IF;
459: END IF; -- end IF p_request_qty
460:
646:
647: EXCEPTION
648:
649: WHEN OTHERS THEN
650: IF l_debug = FND_API.G_TRUE THEN
651: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
652: END IF;
653: x_return_status := FND_API.G_RET_STS_ERROR;
654: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
649: WHEN OTHERS THEN
650: IF l_debug = FND_API.G_TRUE THEN
651: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
652: END IF;
653: x_return_status := FND_API.G_RET_STS_ERROR;
654: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
655: END Calculate_Adjusted_Price;
656:
657: PROCEDURE Process_Price_Break(
719:
720: BEGIN
721:
722: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
724: v_related_request_lines := p_related_request_lines;
725: v_old_pricing_sequence := p_old_pricing_grp_seq;
726:
727: -- 4061138, 5183755
732: k := p_related_request_lines.FIRST;
733: WHILE (k IS NOT NULL)
734: LOOP
735: IF (p_related_request_lines(k).LINE_DETAIL_INDEX = p_list_line_index) THEN
736: IF l_debug = FND_API.G_TRUE THEN
737: IF l_continuous_flag = 'Y' THEN
738: QP_PREQ_GRP.engine_debug ('<-------- CONTINUOUS PRICE BREAK -------->');
739: ELSE
740: QP_PREQ_GRP.engine_debug ('<---------------------------------------->');
740: QP_PREQ_GRP.engine_debug ('<---------------------------------------->');
741: END IF;
742: QP_PREQ_GRP.engine_debug ('p_list_line_id: '|| p_list_line_id);
743: QP_PREQ_GRP.engine_debug ('p_list_line_index: '|| p_list_line_index);
744: END IF; -- END IF l_debug = FND_API.G_TRUE
745:
746: -- 4061138
747: -- check if PBH is prorated, important for continuous processing later
748: IF l_continuous_flag = 'Y' AND QP_PREQ_GRP.G_BREAK_UOM_PRORATION = 'Y'
758: END;
759: END IF;
760:
761: IF (p_related_request_lines(k).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_POINT_BREAK) THEN
762: IF l_debug = FND_API.G_TRUE THEN
763: QP_PREQ_GRP.engine_debug ('i am in Point break'); -- shu dbg 2388011
764: QP_PREQ_GRP.engine_debug ('p_group_value: '|| p_group_value); -- shu dbg 2388011
765: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); -- shu dbg 2388011
766: END IF; -- END IF l_debug = FND_API.G_TRUE
762: IF l_debug = FND_API.G_TRUE THEN
763: QP_PREQ_GRP.engine_debug ('i am in Point break'); -- shu dbg 2388011
764: QP_PREQ_GRP.engine_debug ('p_group_value: '|| p_group_value); -- shu dbg 2388011
765: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); -- shu dbg 2388011
766: END IF; -- END IF l_debug = FND_API.G_TRUE
767:
768: -- 2388011, Applicable for group of lines based PBH
769: v_ord_qty := p_list_line_qty; -- Store the ordered qty
770: --IF (p_group_value > - 1) THEN --[julin/5158413]
773: ELSE
774: v_temp := p_list_line_qty;
775: END IF;
776:
777: IF l_debug = FND_API.G_TRUE THEN
778: QP_PREQ_GRP.engine_debug ('v_temp, for evaluation (either p_group_value or p_list_line_qty): '|| v_temp); -- shu dbg 2388011
779: END IF; -- END IF l_debug = FND_API.G_TRUE
780:
781: -- If it falls in the range
775: END IF;
776:
777: IF l_debug = FND_API.G_TRUE THEN
778: QP_PREQ_GRP.engine_debug ('v_temp, for evaluation (either p_group_value or p_list_line_qty): '|| v_temp); -- shu dbg 2388011
779: END IF; -- END IF l_debug = FND_API.G_TRUE
780:
781: -- If it falls in the range
782: /* rewritten for 4061138
783: IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND --2388011
791: v_temp <= nvl(p_related_request_lines(k).VALUE_TO, v_temp)) )
792: THEN
793: v_related_request_lines(k).LINE_QTY := v_temp; -- PBH line qty/v_ord_qty, 2388011
794:
795: IF l_debug = FND_API.G_TRUE THEN
796: QP_PREQ_GRP.engine_debug ('PBH operand Calc Code : ' || p_operand_calc_code);
797: END IF;
798:
799: -- Do not calculate per unit satisfied value if it is BLOCK_PRICING
811: IF (p_related_request_lines(k).OPERAND_CALCULATION_CODE = QP_PREQ_GRP.G_BREAKUNIT_PRICE) THEN
812: v_calculate_per_unit_flag := 'N';
813: END IF;
814:
815: IF l_debug = FND_API.G_TRUE THEN
816: QP_PREQ_GRP.engine_debug ('Calculate Per Unit Flag : ' || v_calculate_per_unit_flag);
817: END IF;
818:
819: -- This happens only if it is line group based Applicable for both Linegroup Amount and Item Amount
825: v_related_request_lines(k).LINE_QTY := v_temp;
826: END IF;
827:
828:
829: IF l_debug = FND_API.G_TRUE THEN
830: QP_PREQ_GRP.engine_debug('List Line Quantity: ' || v_related_request_lines(k).LINE_QTY );
831: QP_PREQ_GRP.engine_debug('PBH Type: ' || p_pbh_type);
832: END IF; -- END IF l_debug = FND_API.G_TRUE
833:
828:
829: IF l_debug = FND_API.G_TRUE THEN
830: QP_PREQ_GRP.engine_debug('List Line Quantity: ' || v_related_request_lines(k).LINE_QTY );
831: QP_PREQ_GRP.engine_debug('PBH Type: ' || p_pbh_type);
832: END IF; -- END IF l_debug = FND_API.G_TRUE
833:
834: -- Call the Calculate List Price Function
835: IF (p_pbh_type IN (QP_PREQ_GRP.G_PRICE_LIST_HEADER, QP_PREQ_GRP.G_AGR_LIST_HEADER)) THEN
836: Calculate_List_Price_PVT(
847: x_extended_price,
848: x_ret_status,
849: x_ret_status_txt);
850:
851: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854:
855: -- This is the final list price after break evaluation
848: x_ret_status,
849: x_ret_status_txt);
850:
851: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854:
855: -- This is the final list price after break evaluation
856: -- changed for block pricing
862:
863: x_pbh_list_price := x_list_price;
864: x_pbh_extended_price := x_extended_price; -- block pricing
865:
866: IF l_debug = FND_API.G_TRUE THEN
867: QP_PREQ_GRP.engine_debug('final list price after break evaluation..');
868: QP_PREQ_GRP.engine_debug('List Line Price: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT );
869: QP_PREQ_GRP.engine_debug('List Line Price: ' || x_pbh_list_price );
870: END IF; -- END IF l_debug = FND_API.G_TRUE
866: IF l_debug = FND_API.G_TRUE THEN
867: QP_PREQ_GRP.engine_debug('final list price after break evaluation..');
868: QP_PREQ_GRP.engine_debug('List Line Price: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT );
869: QP_PREQ_GRP.engine_debug('List Line Price: ' || x_pbh_list_price );
870: END IF; -- END IF l_debug = FND_API.G_TRUE
871:
872: ELSE -- DIS/SUR/FREIGHT_CHARGE
873:
874: IF l_debug = FND_API.G_TRUE THEN
870: END IF; -- END IF l_debug = FND_API.G_TRUE
871:
872: ELSE -- DIS/SUR/FREIGHT_CHARGE
873:
874: IF l_debug = FND_API.G_TRUE THEN
875: QP_PREQ_GRP.engine_debug('I am in Discount Break');
876: QP_PREQ_GRP.engine_debug('List Price: ' || p_list_price);
877: QP_PREQ_GRP.engine_debug('Discounted Price: ' || p_discounted_price);
878: QP_PREQ_GRP.engine_debug('Old Pricing Seq: ' || v_old_pricing_sequence);
876: QP_PREQ_GRP.engine_debug('List Price: ' || p_list_price);
877: QP_PREQ_GRP.engine_debug('Discounted Price: ' || p_discounted_price);
878: QP_PREQ_GRP.engine_debug('Old Pricing Seq: ' || v_old_pricing_sequence);
879: QP_PREQ_GRP.engine_debug('New Pricing Seq: ' || v_related_request_lines(k).PRICING_GROUP_SEQUENCE);
880: END IF; -- END IF l_debug = FND_API.G_TRUE
881:
882: Calculate_Adjusted_Price(p_list_price => p_list_price, -- List Price
883: p_discounted_price => p_discounted_price,
884: p_old_pricing_sequence => nvl(v_old_pricing_sequence,
900: x_return_status_txt => x_ret_status_txt);
901:
902: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
903:
904: IF (x_ret_status = FND_API.G_RET_STS_ERROR) THEN
905: RAISE FND_API.G_EXC_ERROR;
906: END IF;
907:
908: -- This is the final selling price after break evaluation for this discount line
901:
902: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
903:
904: IF (x_ret_status = FND_API.G_RET_STS_ERROR) THEN
905: RAISE FND_API.G_EXC_ERROR;
906: END IF;
907:
908: -- This is the final selling price after break evaluation for this discount line
909: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
907:
908: -- This is the final selling price after break evaluation for this discount line
909: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
910:
911: IF l_debug = FND_API.G_TRUE THEN
912: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT);
913: END IF; -- END IF l_debug = FND_API.G_TRUE
914: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER,QP_PREQ_GRP.G_AGR_LIST_HEADER))
915:
909: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
910:
911: IF l_debug = FND_API.G_TRUE THEN
912: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT);
913: END IF; -- END IF l_debug = FND_API.G_TRUE
914: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER,QP_PREQ_GRP.G_AGR_LIST_HEADER))
915:
916: -- ELSE IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND...
917: ELSE -- Store the break line which did not satisfy with qty 0,for other related lines
933: x_extended_price, -- block pricing
934: x_ret_status,
935: x_ret_status_txt);
936:
937: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
938: IF l_debug = FND_API.G_TRUE THEN
939: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
940: END IF;
941: RAISE FND_API.G_EXC_ERROR;
934: x_ret_status,
935: x_ret_status_txt);
936:
937: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
938: IF l_debug = FND_API.G_TRUE THEN
939: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
940: END IF;
941: RAISE FND_API.G_EXC_ERROR;
942: END IF; -- END IF(x_ret_status = FND_API.G_RET_STS_ERROR)
937: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
938: IF l_debug = FND_API.G_TRUE THEN
939: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
940: END IF;
941: RAISE FND_API.G_EXC_ERROR;
942: END IF; -- END IF(x_ret_status = FND_API.G_RET_STS_ERROR)
943:
944: -- This is the final list price after break evaluation
945: -- modified for block pricing
938: IF l_debug = FND_API.G_TRUE THEN
939: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
940: END IF;
941: RAISE FND_API.G_EXC_ERROR;
942: END IF; -- END IF(x_ret_status = FND_API.G_RET_STS_ERROR)
943:
944: -- This is the final list price after break evaluation
945: -- modified for block pricing
946: IF (p_related_request_lines(k).OPERAND_CALCULATION_CODE = qp_preq_grp.G_BLOCK_PRICE) THEN
948: ELSE
949: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_list_price;
950: END IF;
951:
952: IF l_debug = FND_API.G_TRUE THEN
953: QP_PREQ_GRP.engine_debug('List Line Price: ' || v_related_request_lines(k).ADJUSTMENT_AMOUNT );
954: END IF;
955:
956: ELSE --DIS/SUR/FREIGHT_CHARGE
975: x_return_status_txt => x_ret_status_txt);
976:
977: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
978:
979: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
980: RAISE FND_API.G_EXC_ERROR;
981: END IF;
982:
983: -- This is the final selling price after break evaluation for this discount line
976:
977: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
978:
979: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
980: RAISE FND_API.G_EXC_ERROR;
981: END IF;
982:
983: -- This is the final selling price after break evaluation for this discount line
984: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
982:
983: -- This is the final selling price after break evaluation for this discount line
984: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
985:
986: IF l_debug = FND_API.G_TRUE THEN
987: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjustment_amount);
988: END IF; -- END IF l_debug = FND_API.G_TRUE
989: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER
990: END IF; -- END IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND
984: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
985:
986: IF l_debug = FND_API.G_TRUE THEN
987: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjustment_amount);
988: END IF; -- END IF l_debug = FND_API.G_TRUE
989: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER
990: END IF; -- END IF (v_temp >= p_related_request_lines(k).VALUE_FROM AND
991:
992: -- RANGE BREAK
991:
992: -- RANGE BREAK
993: ELSIF (p_related_request_lines(k).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_RANGE_BREAK) THEN
994:
995: IF l_debug = FND_API.G_TRUE THEN
996: QP_PREQ_GRP.engine_debug('I am in Range Break');
997: QP_PREQ_GRP.engine_debug('The value of v_count is:' || v_count );
998: END IF;
999:
1009: -- end 2388011
1010: v_ord_qty := p_list_line_qty;
1011: END IF; -- end IF (v_count = 0)
1012:
1013: IF l_debug = FND_API.G_TRUE THEN
1014: QP_PREQ_GRP.engine_debug('p_group_value: ' || p_group_value); -- shu debug, 2388011
1015: QP_PREQ_GRP.engine_debug('p_list_line_qty (v_ord_qty): ' || p_list_line_qty); -- shu debug, 2388011
1016: QP_PREQ_GRP.engine_debug('l_qualifier_value (either p_group_value or p_list_line_qty): ' || l_qualifier_value); -- shu debug, 2388011
1017: QP_PREQ_GRP.engine_debug('v_temp (either p_group_value or p_list_line_qty): ' || v_temp); -- shu debug, 2388011
1014: QP_PREQ_GRP.engine_debug('p_group_value: ' || p_group_value); -- shu debug, 2388011
1015: QP_PREQ_GRP.engine_debug('p_list_line_qty (v_ord_qty): ' || p_list_line_qty); -- shu debug, 2388011
1016: QP_PREQ_GRP.engine_debug('l_qualifier_value (either p_group_value or p_list_line_qty): ' || l_qualifier_value); -- shu debug, 2388011
1017: QP_PREQ_GRP.engine_debug('v_temp (either p_group_value or p_list_line_qty): ' || v_temp); -- shu debug, 2388011
1018: END IF; -- END IF l_debug = FND_API.G_TRUE
1019:
1020: -- The check to see if the ordered quantity falls in the range needs to be done only once
1021: -- Ex: If Ord Qty = 50 and 100-null then u do not get it
1022:
1029: -- Ex: 100-NULL
1030: IF (p_related_request_lines(k).VALUE_TO IS NULL) THEN
1031: v_related_request_lines(k).LINE_QTY := v_temp;
1032: ELSE
1033: IF l_debug = FND_API.G_TRUE THEN
1034: QP_PREQ_GRP.engine_debug('C100# value from: ' || p_related_request_lines(k).value_from);
1035: QP_PREQ_GRP.engine_debug('C200# value to: ' || p_related_request_lines(k).value_to);
1036: QP_PREQ_GRP.engine_debug('C300# Qualifier Value: ' || l_qualifier_value); --2388011
1037: QP_PREQ_GRP.engine_debug('C400# Group Amount: ' || p_group_value); --2388011
1034: QP_PREQ_GRP.engine_debug('C100# value from: ' || p_related_request_lines(k).value_from);
1035: QP_PREQ_GRP.engine_debug('C200# value to: ' || p_related_request_lines(k).value_to);
1036: QP_PREQ_GRP.engine_debug('C300# Qualifier Value: ' || l_qualifier_value); --2388011
1037: QP_PREQ_GRP.engine_debug('C400# Group Amount: ' || p_group_value); --2388011
1038: END IF; -- END IF l_debug = FND_API.G_TRUE
1039:
1040: Get_Satisfied_Range(
1041: p_related_request_lines(k).value_from,
1042: p_related_request_lines(k).value_to,
1045: l_continuous_flag, -- 4061138
1046: l_prorated_flag, -- 4061138
1047: l_satisfied_value);
1048:
1049: IF l_debug = FND_API.G_TRUE THEN
1050: QP_PREQ_GRP.engine_debug('C500#: ' || l_satisfied_value);
1051: QP_PREQ_GRP.engine_debug('C600# list price : ' || p_list_price);
1052: END IF; -- END IF l_debug = FND_API.G_TRUE
1053:
1048:
1049: IF l_debug = FND_API.G_TRUE THEN
1050: QP_PREQ_GRP.engine_debug('C500#: ' || l_satisfied_value);
1051: QP_PREQ_GRP.engine_debug('C600# list price : ' || p_list_price);
1052: END IF; -- END IF l_debug = FND_API.G_TRUE
1053:
1054: IF l_debug = FND_API.G_TRUE THEN
1055: QP_PREQ_GRP.engine_debug ('PBH operand Calc Code : ' || p_operand_calc_code);
1056: END IF;
1050: QP_PREQ_GRP.engine_debug('C500#: ' || l_satisfied_value);
1051: QP_PREQ_GRP.engine_debug('C600# list price : ' || p_list_price);
1052: END IF; -- END IF l_debug = FND_API.G_TRUE
1053:
1054: IF l_debug = FND_API.G_TRUE THEN
1055: QP_PREQ_GRP.engine_debug ('PBH operand Calc Code : ' || p_operand_calc_code);
1056: END IF;
1057:
1058: -- Do not calculate the per unit satisfied value if it is BLOCK_PRICING
1070: IF (p_related_request_lines(k).OPERAND_CALCULATION_CODE = QP_PREQ_GRP.G_BREAKUNIT_PRICE) THEN
1071: v_calculate_per_unit_flag := 'N';
1072: END IF;
1073:
1074: IF l_debug = FND_API.G_TRUE THEN
1075: QP_PREQ_GRP.engine_debug ('Calculate Per Unit Flag : ' || v_calculate_per_unit_flag);
1076: END IF;
1077:
1078: -- 2388011_new
1101: END IF; -- END IF (l_satisfied_value = 0
1102:
1103: END IF; -- END IF (p_related_request_lines(k).VALUE_TO IS NULL)
1104:
1105: IF l_debug = FND_API.G_TRUE THEN
1106: QP_PREQ_GRP.engine_debug('List Line Quantity: ' || v_related_request_lines(k).LINE_QTY );
1107: QP_PREQ_GRP.engine_debug('Temp: ' || v_temp );
1108: END IF;
1109:
1124: x_extended_price, -- block pricing
1125: x_ret_status,
1126: x_ret_status_txt);
1127:
1128: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131:
1132: -- This is the final list price after break evaluation
1125: x_ret_status,
1126: x_ret_status_txt);
1127:
1128: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131:
1132: -- This is the final list price after break evaluation
1133: -- modified for block pricing
1137: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_list_price;
1138: END IF;
1139:
1140: ELSE -- DIS/SUR/FREIGHT_CHARGE
1141: IF l_debug = FND_API.G_TRUE THEN
1142: QP_PREQ_GRP.engine_debug('I am in Discount Break (RANGE BLOCK)');
1143: QP_PREQ_GRP.engine_debug('OPERAND_VALUE: '|| v_related_request_lines(k).OPERAND_VALUE); --shu debug 2388011
1144: QP_PREQ_GRP.engine_debug('LINE_QTY: '|| v_related_request_lines(k).LINE_QTY); --shu debug 2388011
1145: QP_PREQ_GRP.engine_debug('l_qualifier_value (p_request_qty)'|| l_qualifier_value); --shu debug 2388011
1171: x_return_status_txt => x_ret_status_txt);
1172:
1173: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1174:
1175: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1176: RAISE FND_API.G_EXC_ERROR;
1177: END IF;
1178:
1179: -- This is the final list price after break evaluation
1172:
1173: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1174:
1175: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1176: RAISE FND_API.G_EXC_ERROR;
1177: END IF;
1178:
1179: -- This is the final list price after break evaluation
1180: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1177: END IF;
1178:
1179: -- This is the final list price after break evaluation
1180: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1181: IF l_debug = FND_API.G_TRUE THEN
1182: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjusted_amount);
1183: END IF;
1184: END IF;
1185:
1204: x_extended_price,
1205: x_ret_status,
1206: x_ret_status_txt);
1207:
1208: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1209: RAISE FND_API.G_EXC_ERROR;
1210: END IF;
1211:
1212: -- This is the final list price after break evaluation
1205: x_ret_status,
1206: x_ret_status_txt);
1207:
1208: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1209: RAISE FND_API.G_EXC_ERROR;
1210: END IF;
1211:
1212: -- This is the final list price after break evaluation
1213: -- modified for block pricing
1216: ELSE
1217: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_list_price;
1218: END IF;
1219:
1220: IF l_debug = FND_API.G_TRUE THEN
1221: QP_PREQ_GRP.engine_debug('List Line Price: ' || x_list_price);
1222: END IF;
1223:
1224: ELSE -- DIS/SUR/FREIGHT_CHARGE
1245: x_return_status_txt => x_ret_status_txt);
1246:
1247: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1248:
1249: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252:
1253: -- This is the final list price after break evaluation
1246:
1247: v_old_pricing_sequence := v_related_request_lines(k).PRICING_GROUP_SEQUENCE;
1248:
1249: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252:
1253: -- This is the final list price after break evaluation
1254: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1251: END IF;
1252:
1253: -- This is the final list price after break evaluation
1254: v_related_request_lines(k).ADJUSTMENT_AMOUNT := x_adjusted_amount;
1255: IF l_debug = FND_API.G_TRUE THEN
1256: QP_PREQ_GRP.engine_debug('Adjusted Line Amount: ' || x_adjusted_amount);
1257: END IF;
1258: END IF;
1259:
1267: END LOOP; -- END WHILE (k IS NOT NULL)
1268:
1269: -- This needs to be done only to get the averaged out value for the PBH Line
1270: IF (v_related_request_lines.COUNT > 0) THEN
1271: IF l_debug = FND_API.G_TRUE THEN
1272: QP_PREQ_GRP.engine_debug('.........Average out value for the PBH line........ ' );
1273: END IF;
1274: v_index := v_related_request_lines.FIRST;
1275: WHILE (v_index IS NOT NULL)
1274: v_index := v_related_request_lines.FIRST;
1275: WHILE (v_index IS NOT NULL)
1276: LOOP
1277: IF (v_related_request_lines(v_index).LINE_DETAIL_INDEX = p_list_line_index) THEN
1278: IF l_debug = FND_API.G_TRUE THEN
1279: QP_PREQ_GRP.engine_debug('p_list_line_index '|| p_list_line_index ); -- shu debug 2388011
1280: QP_PREQ_GRP.engine_debug('p_list_line_qty: '|| p_list_line_qty ); -- shu debug 2388011
1281: QP_PREQ_GRP.engine_debug('p_actual_line_qty: '|| p_actual_line_qty ); -- shu debug 2388011
1282: END IF;
1327: x_pbh_list_price := ROUND (x_pbh_list_price, p_rounding_factor); -- Divide by grp amount/unit or group quantity
1328: END IF; -- end if G_ROUND_ADJ
1329: END IF; --end if rounding stuff
1330:
1331: IF l_debug = FND_API.G_TRUE THEN
1332: QP_PREQ_GRP.engine_debug('x_pbh_list_price: '|| x_pbh_list_price);
1333: END IF; -- END IF l_debug
1334:
1335:
1335:
1336: ELSE
1337: v_total_amount := v_total_amount + (v_related_request_lines(v_index).LINE_QTY *
1338: v_related_request_lines(v_index).ADJUSTMENT_AMOUNT);
1339: IF l_debug = FND_API.G_TRUE THEN
1340: QP_PREQ_GRP.engine_debug ('v_index: '|| v_index); --2388011
1341: QP_PREQ_GRP.engine_debug ('LINE_QTY : '|| v_related_request_lines(v_index).LINE_QTY ); --2388011
1342: QP_PREQ_GRP.engine_debug ('ADJUSTMENT_AMOUNT for the line: '|| v_related_request_lines(v_index).ADJUSTMENT_AMOUNT); --2388011
1343: QP_PREQ_GRP.engine_debug ('v_total_amount for now: '|| v_total_amount); --2388011
1340: QP_PREQ_GRP.engine_debug ('v_index: '|| v_index); --2388011
1341: QP_PREQ_GRP.engine_debug ('LINE_QTY : '|| v_related_request_lines(v_index).LINE_QTY ); --2388011
1342: QP_PREQ_GRP.engine_debug ('ADJUSTMENT_AMOUNT for the line: '|| v_related_request_lines(v_index).ADJUSTMENT_AMOUNT); --2388011
1343: QP_PREQ_GRP.engine_debug ('v_total_amount for now: '|| v_total_amount); --2388011
1344: END IF; -- END IF l_debug = FND_API.G_TRUE
1345:
1346: -- begin 2388011_new, grp_lines_pbh,
1347:
1348:
1355: x_adjustment_amount := v_total_amount;
1356:
1357: END IF;
1358:
1359: IF l_debug = FND_API.G_TRUE THEN
1360: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); --2388011
1361: QP_PREQ_GRP.engine_debug ('x_adjustment_amount: '|| x_adjustment_amount); --2388011
1362: END IF; -- END IF l_debug = FND_API.G_TRUE
1363: -- end 2388011, grp_lines_pbh
1358:
1359: IF l_debug = FND_API.G_TRUE THEN
1360: QP_PREQ_GRP.engine_debug ('p_list_line_qty: '|| p_list_line_qty); --2388011
1361: QP_PREQ_GRP.engine_debug ('x_adjustment_amount: '|| x_adjustment_amount); --2388011
1362: END IF; -- END IF l_debug = FND_API.G_TRUE
1363: -- end 2388011, grp_lines_pbh
1364:
1365: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER...
1366:
1363: -- end 2388011, grp_lines_pbh
1364:
1365: END IF; -- END IF (p_pbh_type in (QP_PREQ_GRP.G_PRICE_LIST_HEADER...
1366:
1367: IF l_debug = FND_API.G_TRUE THEN
1368: QP_PREQ_GRP.engine_debug ('Total Amount : ' || v_total_amount);
1369: QP_PREQ_GRP.engine_debug ('Total Qty : ' || v_ord_qty);
1370: QP_PREQ_GRP.engine_debug ('Total Adjustment : ' || x_adjustment_amount);
1371: END IF; -- END IF l_debug = FND_API.G_TRUE THEN
1367: IF l_debug = FND_API.G_TRUE THEN
1368: QP_PREQ_GRP.engine_debug ('Total Amount : ' || v_total_amount);
1369: QP_PREQ_GRP.engine_debug ('Total Qty : ' || v_ord_qty);
1370: QP_PREQ_GRP.engine_debug ('Total Adjustment : ' || x_adjustment_amount);
1371: END IF; -- END IF l_debug = FND_API.G_TRUE THEN
1372: END IF;
1373:
1374: EXIT WHEN v_index = v_related_request_lines.LAST;
1375: v_index := v_related_request_lines.NEXT(v_index);
1376: END LOOP;
1377: END IF;
1378: x_related_request_lines_tbl := v_related_request_lines;
1379: EXCEPTION
1380: WHEN FND_API.G_EXC_ERROR THEN
1381: IF l_debug = FND_API.G_TRUE THEN
1382: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
1383: END IF;
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1377: END IF;
1378: x_related_request_lines_tbl := v_related_request_lines;
1379: EXCEPTION
1380: WHEN FND_API.G_EXC_ERROR THEN
1381: IF l_debug = FND_API.G_TRUE THEN
1382: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
1383: END IF;
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: x_return_status_txt := x_ret_status_txt;
1380: WHEN FND_API.G_EXC_ERROR THEN
1381: IF l_debug = FND_API.G_TRUE THEN
1382: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
1383: END IF;
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: x_return_status_txt := x_ret_status_txt;
1386: WHEN OTHERS THEN
1387: IF l_debug = FND_API.G_TRUE THEN
1388: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1383: END IF;
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: x_return_status_txt := x_ret_status_txt;
1386: WHEN OTHERS THEN
1387: IF l_debug = FND_API.G_TRUE THEN
1388: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1389: END IF;
1390: x_return_status := FND_API.G_RET_STS_ERROR;
1391: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
1386: WHEN OTHERS THEN
1387: IF l_debug = FND_API.G_TRUE THEN
1388: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1389: END IF;
1390: x_return_status := FND_API.G_RET_STS_ERROR;
1391: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
1392: END Process_Price_Break;
1393:
1394: PROCEDURE Calculate_Adjustment(p_price NUMBER
1402: l_routine VARCHAR2(50) := 'QP_Calculate_Price_PUB.Calculate_Adjustment';
1403:
1404: BEGIN
1405: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1406: IF l_debug = FND_API.G_TRUE THEN
1407: QP_PREQ_GRP.ENGINE_DEBUG('In Routine: ' || l_routine);
1408:
1409: -- begin 2892848
1410: QP_PREQ_GRP.ENGINE_DEBUG('p_price: ' || p_price);
1421: x_calc_adjustment := p_operand_value;
1422: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT THEN
1423: x_calc_adjustment := (abs(p_price) - p_operand_value);
1424: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_LUMPSUM_DISCOUNT THEN
1425: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM qty means infinity; this qty and zero qty yield no adj
1426: IF (p_priced_quantity = FND_API.G_NULL_NUM OR p_priced_quantity = 0) THEN
1427: x_calc_adjustment := 0;
1428: ELSE
1429: x_calc_adjustment := p_operand_value / p_priced_quantity;
1422: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT THEN
1423: x_calc_adjustment := (abs(p_price) - p_operand_value);
1424: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_LUMPSUM_DISCOUNT THEN
1425: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM qty means infinity; this qty and zero qty yield no adj
1426: IF (p_priced_quantity = FND_API.G_NULL_NUM OR p_priced_quantity = 0) THEN
1427: x_calc_adjustment := 0;
1428: ELSE
1429: x_calc_adjustment := p_operand_value / p_priced_quantity;
1430: END IF;
1431: ELSIF p_operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE THEN
1432: x_calc_adjustment := p_operand_value; -- FTE breakunit
1433: END IF;
1434:
1435: x_return_status := FND_API.G_RET_STS_SUCCESS;
1436: x_return_status_text := l_routine ||' SUCCESS';
1437:
1438: IF l_debug = FND_API.G_TRUE THEN
1439: QP_PREQ_GRP.ENGINE_DEBUG('Out of Routine: ' || l_routine);
1434:
1435: x_return_status := FND_API.G_RET_STS_SUCCESS;
1436: x_return_status_text := l_routine ||' SUCCESS';
1437:
1438: IF l_debug = FND_API.G_TRUE THEN
1439: QP_PREQ_GRP.ENGINE_DEBUG('Out of Routine: ' || l_routine);
1440:
1441: END IF;
1442: EXCEPTION
1440:
1441: END IF;
1442: EXCEPTION
1443: WHEN OTHERS THEN
1444: IF l_debug = FND_API.G_TRUE THEN
1445: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculating bucket price '|| SQLERRM);
1446: END IF;
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: x_return_status_text := l_routine ||' '|| SQLERRM;
1443: WHEN OTHERS THEN
1444: IF l_debug = FND_API.G_TRUE THEN
1445: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculating bucket price '|| SQLERRM);
1446: END IF;
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: x_return_status_text := l_routine ||' '|| SQLERRM;
1449: END Calculate_Adjustment;
1450:
1451: PROCEDURE Get_Satisfied_Range(p_value_from NUMBER,
1485:
1486: BEGIN
1487:
1488: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1489: IF l_debug = FND_API.G_TRUE THEN
1490: QP_PREQ_GRP.engine_debug('In Procedure : Get_Satisfied_Range');
1491: QP_PREQ_GRP.engine_debug(' continuous_flag = '|| p_continuous_flag);
1492: QP_PREQ_GRP.engine_debug(' prorated_flag = '|| p_prorated_flag);
1493: END IF;
1524: -- these are "cached" on the basis of list_line_id
1525: -- if list_line_id changes, then need to retrieve values from temp table
1526: -- else use previously cached values
1527: IF (p_list_line_id = l_prev_list_line_id) THEN
1528: IF l_debug = FND_API.G_TRUE THEN
1529: QP_PREQ_GRP.engine_debug(' list_line_id = '|| p_list_line_id ||', prev = '|| l_prev_list_line_id);
1530: END IF;
1531: l_accum_context := l_accum_context_cache;
1532: l_accum_attrib := l_accum_attrib_cache;
1531: l_accum_context := l_accum_context_cache;
1532: l_accum_attrib := l_accum_attrib_cache;
1533: l_accum_flag := l_accum_flag_cache;
1534: v_list_line_no := l_accum_list_line_no_cache;
1535: IF l_debug = FND_API.G_TRUE THEN
1536: QP_PREQ_GRP.engine_debug(' using cached values for accum context, attribute, etc.');
1537: END IF;
1538: ELSE
1539: BEGIN
1545: -- where created_from_list_line_id = p_list_line_id
1546: -- and rownum = 1;
1547: EXCEPTION
1548: WHEN NO_DATA_FOUND THEN
1549: IF l_debug = FND_API.G_TRUE THEN
1550: QP_PREQ_GRP.engine_debug(' No rows returned for list line ID '|| p_list_line_id);
1551: END IF;
1552: END;
1553:
1550: QP_PREQ_GRP.engine_debug(' No rows returned for list line ID '|| p_list_line_id);
1551: END IF;
1552: END;
1553:
1554: IF l_debug = FND_API.G_TRUE THEN
1555: QP_PREQ_GRP.engine_debug(' accum context, attribute, etc. not cached');
1556: END IF;
1557: -- cache the values
1558: l_accum_context_cache := l_accum_context;
1564: IF (l_accum_attrib IS NULL) THEN
1565: -- conceptually, this means no accumulation processing
1566: -- in this code, we set accum=0 and let accumulation processing fall through
1567: l_accum := 0;
1568: IF l_debug = FND_API.G_TRUE THEN
1569: QP_PREQ_GRP.engine_debug(' no accum attribute specified.');
1570: END IF;
1571: ELSE
1572: IF l_debug = FND_API.G_TRUE THEN
1568: IF l_debug = FND_API.G_TRUE THEN
1569: QP_PREQ_GRP.engine_debug(' no accum attribute specified.');
1570: END IF;
1571: ELSE
1572: IF l_debug = FND_API.G_TRUE THEN
1573: QP_PREQ_GRP.engine_debug(' accum attribute = '|| l_accum_attrib);
1574: QP_PREQ_GRP.engine_debug(' line index = '|| l_line_index);
1575: END IF;
1576:
1583: AND context = l_accum_context
1584: AND attribute = l_accum_attrib
1585: AND pricing_status_code = QP_PREQ_GRP.G_STATUS_UNCHANGED;
1586:
1587: IF l_debug = FND_API.G_TRUE THEN
1588: QP_PREQ_GRP.engine_debug(' accum value '|| l_accum ||' passed on request line.');
1589: END IF;
1590: EXCEPTION
1591: WHEN NO_DATA_FOUND THEN
1588: QP_PREQ_GRP.engine_debug(' accum value '|| l_accum ||' passed on request line.');
1589: END IF;
1590: EXCEPTION
1591: WHEN NO_DATA_FOUND THEN
1592: IF l_debug = FND_API.G_TRUE THEN
1593: QP_PREQ_GRP.engine_debug(' accum value not passed on request line.');
1594: END IF;
1595: -- accum value was not passed on request line
1596: IF l_accum_flag = 'Y'
1605: -- One select statement (a cursor) needed for step 1.
1606: -- Another select needed for steps 2 and 3.
1607: -- Last select needed to get order id.
1608: ------------------------------------------------------
1609: IF l_debug = FND_API.G_TRUE THEN
1610: QP_PREQ_GRP.engine_debug(' * Calling Custom API for accumulation *');
1611: QP_PREQ_GRP.engine_debug(' request line attr(s):');
1612: END IF;
1613: FOR attrs IN l_req_line_attrs_cur(p_list_line_id) LOOP
1616: l_req_attrs_tbl(counter).context := attrs.context;
1617: l_req_attrs_tbl(counter).attribute := attrs.attribute;
1618: l_req_attrs_tbl(counter).VALUE := attrs.value_from;
1619: l_req_attrs_tbl(counter).grouping_no := attrs.grouping_number;
1620: IF l_debug = FND_API.G_TRUE THEN
1621: QP_PREQ_GRP.engine_debug(' '|| counter ||': line index '|| attrs.line_index ||', '|| attrs.attribute_type
1622: ||', '|| attrs.context ||', '|| attrs.attribute ||', '|| attrs.value_from
1623: ||', '|| attrs.grouping_number);
1624: END IF;
1634: FROM qp_npreq_lines_tmp
1635: WHERE line_type_code = QP_PREQ_GRP.G_ORDER_LEVEL;
1636: EXCEPTION
1637: WHEN NO_DATA_FOUND THEN
1638: IF l_debug = FND_API.G_TRUE THEN
1639: QP_PREQ_GRP.engine_debug(' - summary line not present; cannot get order ID');
1640: END IF;
1641: END;
1642: IF l_debug = FND_API.G_TRUE THEN
1638: IF l_debug = FND_API.G_TRUE THEN
1639: QP_PREQ_GRP.engine_debug(' - summary line not present; cannot get order ID');
1640: END IF;
1641: END;
1642: IF l_debug = FND_API.G_TRUE THEN
1643: QP_PREQ_GRP.engine_debug(' ^ G_ORDER_ID was null, select statement got value '|| QP_PREQ_GRP.G_ORDER_ID);
1644: END IF;
1645: END IF;
1646:
1652: QP_PREQ_GRP.G_PRICE_EFF_DATE IS NULL OR
1653: -- 4613884 bugfix
1654: TO_CHAR(l_line_index || QP_PREQ_GRP.G_ORDER_ID) <> TO_CHAR(l_prev_line_index || l_prev_order_id))
1655: THEN*/
1656: IF l_debug = FND_API.G_TRUE THEN
1657: QP_PREQ_GRP.engine_debug(' need to cache line_id, price_eff_date!');
1658: QP_PREQ_GRP.engine_debug(' - order_id ('|| qp_preq_grp.G_ORDER_ID ||'), prev_order_id ('|| l_prev_order_id || ')');
1659: QP_PREQ_GRP.engine_debug(' - line_index ('|| l_line_index ||'), prev_line_index ('|| l_prev_line_index || ')');
1660: END IF;
1667: QP_PREQ_GRP.G_PRICE_EFF_DATE := v_price_eff_date;
1668: l_prev_order_id := QP_PREQ_GRP.G_ORDER_ID;
1669: l_prev_line_index := l_line_index;
1670: /*ELSE
1671: IF l_debug = FND_API.G_TRUE THEN
1672: QP_PREQ_GRP.engine_debug(' using cached line_id, price_eff_date');
1673: END IF;
1674: v_line_id := QP_PREQ_GRP.G_LINE_ID;
1675: v_price_eff_date := QP_PREQ_GRP.G_PRICE_EFF_DATE;
1674: v_line_id := QP_PREQ_GRP.G_LINE_ID;
1675: v_price_eff_date := QP_PREQ_GRP.G_PRICE_EFF_DATE;
1676: END IF;*/
1677:
1678: IF l_debug = FND_API.G_TRUE THEN
1679: QP_PREQ_GRP.engine_debug(' order ID '|| QP_PREQ_GRP.G_ORDER_ID ||
1680: ', line ID '|| QP_PREQ_GRP.G_LINE_ID);
1681: END IF;
1682:
1712: l_req_attrs_tbl,
1713: l_accum_rec
1714: );
1715: END IF;
1716: IF l_debug = FND_API.G_TRUE THEN
1717: QP_PREQ_GRP.engine_debug(' accum value returned from custom API = '|| l_accum);
1718: END IF;
1719: ELSE
1720: -- this case should almost never happen, but if it does, set accum=0
1717: QP_PREQ_GRP.engine_debug(' accum value returned from custom API = '|| l_accum);
1718: END IF;
1719: ELSE
1720: -- this case should almost never happen, but if it does, set accum=0
1721: IF l_debug = FND_API.G_TRUE THEN
1722: QP_PREQ_GRP.engine_debug('***oops. this should not be here!');
1723: QP_PREQ_GRP.engine_debug(' Profile Value = '|| FND_PROFILE.VALUE('QP_ACCUM_ATTR_ENABLED'));
1724: END IF;
1725: l_accum := 0;
1727: END;
1728:
1729: END IF; -- if (l_accum_attrib is null)
1730: ELSE
1731: IF l_debug = FND_API.G_TRUE THEN
1732: QP_PREQ_GRP.engine_debug(' - Accumulation Profile is not enabled');
1733: END IF;
1734: l_accum := 0;
1735: END IF; -- if ACCUM_ATTR_ENABLED profile...
1738: l_accum_global := l_accum;
1739:
1740: -- accumulation processing:
1741: -- if accumulation value, then remap the value_from and offset qualifier value as necessary
1742: IF l_debug = FND_API.G_TRUE THEN
1743: QP_PREQ_GRP.engine_debug(' * begin accumulation processing (if necessary) *');
1744: END IF;
1745: l_new_qualifier := l_accum + p_qualifier_value; --bug#15895472
1746:
1747: IF (p_value_to <= l_accum AND p_qualifier_value > 0) OR (p_value_to <= l_new_qualifier AND p_qualifier_value < 0) THEN --bug#15895472
1748: -- skip this break because no quantity is satisfied
1749: x_satisfied_value := 0;
1750: l_accum_global := nvl(l_accum_global, 0);
1751: IF l_debug = FND_API.G_TRUE THEN
1752: QP_PREQ_GRP.engine_debug(' - skipping this break');
1753: END IF;
1754: RETURN;
1755: ELSE
1767: -- so no need to remap value_from
1768: END IF;
1769: -- offset qualifier value if necessary
1770: -- l_new_qualifier := l_accum + p_qualifier_value; --bug#15895472
1771: IF l_debug = FND_API.G_TRUE THEN
1772: QP_PREQ_GRP.engine_debug(' l_accum = '|| l_accum);
1773: QP_PREQ_GRP.engine_debug(' l_value_from = '|| l_value_from);
1774: QP_PREQ_GRP.engine_debug(' l_new_qualifier = '|| l_new_qualifier);
1775: END IF;
1776:
1777: -- shulin, fix bug 2372064
1778: -- 4999377, restrict shulin's fix to only 0-0 case
1779: IF (p_value_from = p_value_to AND p_value_from = 0) THEN -- for cases like 0-0, 2-2, 0.5-0.5
1780: IF l_debug = FND_API.G_TRUE THEN
1781: QP_PREQ_GRP.engine_debug('value_from is the same as value_to, x_satisfied_value is 0');
1782: END IF;
1783: x_satisfied_value := 0;
1784: ELSIF (l_new_qualifier - l_value_from + l_precision > 0) THEN
1788: ELSE
1789: x_satisfied_value := 0;
1790: END IF;
1791:
1792: IF l_debug = FND_API.G_TRUE THEN
1793: QP_PREQ_GRP.engine_debug('Out of Procedure : Get_Satisfied_Range');
1794:
1795: END IF;
1796: END Get_Satisfied_Range;
1926: OPEN get_continuous_flag_cur;
1927: FETCH get_continuous_flag_cur INTO l_continuous_flag;
1928: CLOSE get_continuous_flag_cur;
1929:
1930: IF l_debug = FND_API.G_TRUE THEN
1931: QP_PREQ_GRP.engine_debug('In Procedure '|| l_routine || '...');
1932: IF l_continuous_flag = 'Y' THEN
1933: QP_PREQ_GRP.engine_debug('---------- CONTINUOUS PRICE BREAK ----------');
1934: END IF;
1972: --bug#12916970
1973: END IF;
1974: END IF;
1975:
1976: IF l_debug = FND_API.G_TRUE THEN
1977: QP_PREQ_GRP.engine_debug('PBH Qualifier Value : ' || pbh_child_rec.qualifier_value);
1978: QP_PREQ_GRP.engine_debug('PBH Value From : ' || pbh_child_rec.value_from);
1979: QP_PREQ_GRP.engine_debug('PBH Value To : ' || pbh_child_rec.value_to);
1980: QP_PREQ_GRP.engine_debug('PBH Break Type : ' || p_break_type);
1980: QP_PREQ_GRP.engine_debug('PBH Break Type : ' || p_break_type);
1981: END IF;
1982:
1983: IF (p_break_type = QP_PREQ_GRP.G_POINT_BREAK) THEN
1984: IF l_debug = FND_API.G_TRUE THEN
1985: QP_PREQ_GRP.engine_debug('i am in POINT block...');
1986: QP_PREQ_GRP.engine_debug('Before PBH List Line Type : ' || pbh_child_rec.related_list_line_type);
1987: END IF;
1988:
2007: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
2008: l_sign := 1; -- new price discount/surcharge are the same
2009: END IF;
2010:
2011: IF l_debug = FND_API.G_TRUE THEN
2012: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2013: END IF;
2014: -- fte breakunit
2015: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE AND
2014: -- fte breakunit
2015: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE AND
2016: p_total_value <> 0) --bug#15895472
2017: THEN
2018: IF l_debug = FND_API.G_TRUE THEN
2019: QP_PREQ_GRP.engine_debug('fte breakunit price, using p_total_value = '|| p_total_value);
2020: END IF;
2021: l_priced_quantity := p_total_value;
2022: ELSIF (p_applied_req_value_per_unit > 0) THEN -- [julin/4112395/4220399]
2024: ELSE
2025: l_priced_quantity := p_req_value_per_unit;
2026: END IF;
2027:
2028: IF l_debug = FND_API.G_TRUE THEN
2029: QP_PREQ_GRP.engine_debug('l_priced_quantity '|| l_priced_quantity);
2030: END IF; --l_debug
2031:
2032: --4900095 lumpsum
2035: IF QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE.EXISTS(p_list_line_id)
2036: AND QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE(p_list_line_id) = 'LINE' THEN
2037: l_priced_quantity := nvl(p_applied_req_value_per_unit,
2038: QP_PREQ_GRP.G_service_line_qty_tbl(p_line_index));
2039: IF l_debug = FND_API.G_TRUE THEN
2040: QP_PREQ_GRP.engine_debug('service line pbh with line level');
2041: END IF; --l_debug
2042: --p_request_qty * l_parent_qty;
2043: ELSIF QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE.EXISTS(p_list_line_id)
2043: ELSIF QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE.EXISTS(p_list_line_id)
2044: AND QP_PREQ_PUB.G_PBH_MOD_LEVEL_CODE(p_list_line_id) = 'LINEGROUP' THEN
2045: l_priced_quantity := nvl(p_applied_req_value_per_unit,
2046: QP_PREQ_GRP.G_service_ldet_qty_tbl(p_list_line_id));
2047: IF l_debug = FND_API.G_TRUE THEN
2048: QP_PREQ_GRP.engine_debug('service line pbh with linegrp level');
2049: END IF; --l_debug
2050: ELSE
2051: l_priced_quantity := nvl(p_applied_req_value_per_unit, p_req_value_per_unit);
2048: QP_PREQ_GRP.engine_debug('service line pbh with linegrp level');
2049: END IF; --l_debug
2050: ELSE
2051: l_priced_quantity := nvl(p_applied_req_value_per_unit, p_req_value_per_unit);
2052: IF l_debug = FND_API.G_TRUE THEN
2053: QP_PREQ_GRP.engine_debug('non-service line pbh with linegrp level');
2054: END IF; --l_debug
2055: END IF; --QP_PREQ_GRP.G_service_line_ind_tbl.exists
2056:
2053: QP_PREQ_GRP.engine_debug('non-service line pbh with linegrp level');
2054: END IF; --l_debug
2055: END IF; --QP_PREQ_GRP.G_service_line_ind_tbl.exists
2056:
2057: IF l_debug = FND_API.G_TRUE THEN
2058: QP_PREQ_GRP.engine_debug('lumpsum qty '|| l_priced_quantity);
2059: END IF; --l_debug
2060: END IF; --pbh_child_rec.operand_calculation_code
2061:
2068: l_adjustment_amount,
2069: l_return_status,
2070: l_return_status_text);
2071:
2072: IF l_debug = FND_API.G_TRUE THEN
2073: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2074: END IF;
2075:
2076: pbh_adjustments(i).l_adjustment_amount := l_adjustment_amount;
2077:
2078: -- begin 2892848
2079: IF (p_bucketed_flag = 'Y') THEN
2080: pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value;
2081: IF l_debug = FND_API.G_TRUE THEN
2082: QP_PREQ_GRP.engine_debug('POINT net amount break l_satisfied_value: '|| pbh_adjustments(i).l_satisfied_value);
2083: END IF; -- END IF l_debug
2084: ELSE -- end 2892848
2085:
2091: pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value; -- fte breakunit
2092: --ELSE
2093: -- pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value/v_attribute_value_per_unit; --2388011_latest
2094: --END IF;
2095: IF l_debug = FND_API.G_TRUE THEN
2096: QP_PREQ_GRP.engine_debug('p_total_value > 0');
2097: QP_PREQ_GRP.engine_debug('v_attribute_value_per_unit (p_total_value/p_req_value_per_unit): ' || v_attribute_value_per_unit);
2098: QP_PREQ_GRP.engine_debug('l_satisfied_value (qualifier_value/v_attribute_value_per_unit): '|| pbh_adjustments(i).l_satisfied_value);
2099: END IF; -- END IF l_debug
2098: QP_PREQ_GRP.engine_debug('l_satisfied_value (qualifier_value/v_attribute_value_per_unit): '|| pbh_adjustments(i).l_satisfied_value);
2099: END IF; -- END IF l_debug
2100: ELSE
2101: pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value;
2102: IF l_debug = FND_API.G_TRUE THEN
2103: QP_PREQ_GRP.engine_debug('POINT break l_satisfied_value: '|| pbh_adjustments(i).l_satisfied_value);
2104: END IF; -- END IF l_debug
2105: END IF; -- END IF (p_total_value > 0)
2106: END IF; -- END IF (p_bucketed_flag = 'Y') 2892848
2105: END IF; -- END IF (p_total_value > 0)
2106: END IF; -- END IF (p_bucketed_flag = 'Y') 2892848
2107:
2108: x_adjustment_amount := l_adjustment_amount;
2109: IF l_debug = FND_API.G_TRUE THEN
2110: QP_PREQ_GRP.engine_debug('POINT break x_adjustment_amount: '|| x_adjustment_amount);
2111: END IF; -- END IF l_debug
2112: -- fte breakunit
2113: -- Normally, point breaks assume the adj amt on the header is the same as
2117: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_BREAKUNIT_PRICE AND
2118: p_total_value <> 0) --bug#15895472
2119: THEN
2120: x_adjustment_amount := l_adjustment_amount * l_priced_quantity / p_req_value_per_unit;
2121: IF l_debug = FND_API.G_TRUE THEN
2122: QP_PREQ_GRP.engine_debug('fte breakunit, PBH x_adjustment_amount: '|| x_adjustment_amount);
2123: END IF;
2124: END IF;
2125: ELSE
2132: pbh_child_dtl_tbl(i) := pbh_child_rec;
2133:
2134: ELSIF (p_break_type = QP_PREQ_GRP.G_RANGE_BREAK) THEN
2135:
2136: IF l_debug = FND_API.G_TRUE THEN
2137: QP_PREQ_GRP.engine_debug('i am in RANGE block...');
2138: END IF; -- END IF l_debug
2139:
2140: IF (pbh_child_rec.related_list_line_type = QP_PREQ_GRP.G_DISCOUNT) THEN
2146: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
2147: l_sign := 1; -- new price discount/surcharge are the same
2148: END IF;
2149:
2150: IF l_debug = FND_API.G_TRUE THEN
2151: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2152: END IF; -- END IF l_debug
2153:
2154: IF l_debug = FND_API.G_TRUE THEN
2150: IF l_debug = FND_API.G_TRUE THEN
2151: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2152: END IF; -- END IF l_debug
2153:
2154: IF l_debug = FND_API.G_TRUE THEN
2155: QP_PREQ_GRP.engine_debug('l_total_value now: '|| l_total_value || ' is used to get_satisfied_range.');
2156: END IF; -- END IF l_debug
2157:
2158: Get_Satisfied_Range(pbh_child_rec.value_from, pbh_child_rec.value_to, pbh_child_rec.qualifier_value,
2157:
2158: Get_Satisfied_Range(pbh_child_rec.value_from, pbh_child_rec.value_to, pbh_child_rec.qualifier_value,
2159: pbh_child_rec.list_line_id, l_continuous_flag, 'N', l_satisfied_value);
2160:
2161: IF l_debug = FND_API.G_TRUE THEN
2162: QP_PREQ_GRP.engine_debug('l_satisfied_range from Get_Satisfied_Range: '|| l_satisfied_value);
2163: END IF; -- END IF l_debug
2164: pbh_adjustments(i).l_raw_satisfied_value := l_satisfied_value; -- 5335689
2165: IF (pbh_child_rec.qualifier_value > 0 AND l_satisfied_value > 0) OR (pbh_child_rec.qualifier_value < 0 AND l_satisfied_value < 0)THEN --bug#15895472
2173: IF (p_total_value <> 0) THEN --bug#15895472
2174: v_attribute_value_per_unit := p_total_value / p_req_value_per_unit; --2388011_latest
2175: --pbh_adjustments(i).l_satisfied_value := pbh_child_rec.qualifier_value/v_attribute_value_per_unit; --2388011_latest
2176: pbh_adjustments(i).l_satisfied_value := l_satisfied_value / v_attribute_value_per_unit; -- SHU diff RAVI
2177: IF l_debug = FND_API.G_TRUE THEN
2178: QP_PREQ_GRP.engine_debug('p_total_value >= 0');
2179: QP_PREQ_GRP.engine_debug('v_attribute_value_per_unit (p_total_value/p_req_value_per_unit): ' || v_attribute_value_per_unit);
2180: QP_PREQ_GRP.engine_debug('l_raw_satisfied_value: ' || pbh_adjustments(i).l_raw_satisfied_value);
2181: QP_PREQ_GRP.engine_debug('l_satisfied_value assigned back to this child break: '|| pbh_adjustments(i).l_satisfied_value);
2181: QP_PREQ_GRP.engine_debug('l_satisfied_value assigned back to this child break: '|| pbh_adjustments(i).l_satisfied_value);
2182: END IF; -- END IF l_debug
2183: ELSE
2184: pbh_adjustments(i).l_satisfied_value := l_satisfied_value;
2185: IF l_debug = FND_API.G_TRUE THEN
2186: QP_PREQ_GRP.engine_debug('l_satisfied_value assigned back to this child break: '|| pbh_adjustments(i).l_satisfied_value);
2187: END IF; -- END IF l_debug
2188: END IF; -- END IF (p_total_value > 0)
2189: END IF; -- END IF (p_bucketed_flag = 'Y') THEN
2205: pbh_adjustments(i).l_related_line_detail_index := pbh_child_rec.related_line_detail_index;
2206: pbh_adjustments(i).l_adjustment_amount := l_adjustment_amount;
2207: pbh_child_dtl_tbl(i) := pbh_child_rec;
2208:
2209: IF l_debug = FND_API.G_TRUE THEN
2210: QP_PREQ_GRP.engine_debug('Adjustment : (' || i || ') ' || l_adjustment_amount);
2211: QP_PREQ_GRP.engine_debug('Satisfied Value : (' || i || ') ' || l_satisfied_value);
2212: QP_PREQ_GRP.engine_debug('Total Value for next child line: (' || i || ') ' || l_total_value);
2213: END IF; -- END IF l_debug
2224:
2225: l_range_adjustment := l_range_adjustment + nvl(pbh_adjustments(i).l_adjustment_amount *
2226: pbh_adjustments(i).l_satisfied_value, 0);
2227:
2228: IF l_debug = FND_API.G_TRUE THEN
2229: QP_PREQ_GRP.engine_debug('--- '||'break child '|| i ||' ---');
2230: QP_PREQ_GRP.engine_debug('l_adjustment_amount: '|| pbh_adjustments(i).l_adjustment_amount);
2231: QP_PREQ_GRP.engine_debug('l_satisfied_value: '|| nvl(pbh_adjustments(i).l_raw_satisfied_value,
2232: pbh_adjustments(i).l_satisfied_value));
2240: ELSE
2241: x_adjustment_amount := l_range_adjustment / p_req_value_per_unit;
2242: END IF;
2243: --bug#13776174
2244: IF l_debug = FND_API.G_TRUE THEN
2245: QP_PREQ_GRP.engine_debug('Range Break Averaged Adjustment : ' || x_adjustment_amount);
2246: END IF; -- END IF l_debug
2247:
2248: -- END IF; --bug#12916970
2249:
2250: -- Update the adjustments/satisfied ranges info on line details
2251: IF (QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG = QP_PREQ_GRP.G_YES) THEN
2252: IF (pbh_adjustments.COUNT > 0) THEN
2253: IF l_debug = FND_API.G_TRUE THEN
2254: QP_PREQ_GRP.engine_debug('updating child pbh lines '|| pbh_adjustments.COUNT);
2255: QP_PREQ_GRP.engine_debug('l_break_qualified=' || l_break_qualified);
2256: END IF; -- END IF l_debug
2257: IF l_break_qualified = 'Y' THEN
2281: EXCEPTION
2282: WHEN OTHERS THEN
2283: NULL;
2284: END;
2285: IF l_debug = FND_API.G_TRUE THEN
2286: QP_PREQ_GRP.engine_debug('child dtl adj amt '
2287: || pbh_adjustments(i).l_adjustment_amount
2288: ||' l_satisfied_value '|| pbh_adjustments(i).l_satisfied_value
2289: ||' ordqtyadjamt '|| l_ord_qty_adj_amt
2316:
2317:
2318: EXCEPTION
2319: WHEN OTHERS THEN
2320: IF l_debug = FND_API.G_TRUE THEN
2321: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2322: END IF; -- END IF l_debug
2323: x_return_status := FND_API.G_RET_STS_ERROR;
2324: x_return_status_text := l_routine ||' '|| SQLERRM;
2319: WHEN OTHERS THEN
2320: IF l_debug = FND_API.G_TRUE THEN
2321: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2322: END IF; -- END IF l_debug
2323: x_return_status := FND_API.G_RET_STS_ERROR;
2324: x_return_status_text := l_routine ||' '|| SQLERRM;
2325: END Price_Break_Calculation;
2326:
2327: PROCEDURE Price_Break_Calculation(p_list_line_id NUMBER,
2417:
2418: BEGIN
2419:
2420: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2421: IF l_debug = FND_API.G_TRUE THEN
2422: QP_PREQ_GRP.engine_debug('#90 p_id '|| p_list_line_id ||' pub_api_call_flg '
2423: || QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG);
2424: END IF;
2425: x_adjustment_amount := 0;
2423: || QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG);
2424: END IF;
2425: x_adjustment_amount := 0;
2426: l_line_index := p_line_index; -- accum range break
2427: IF l_debug = FND_API.G_TRUE THEN
2428: QP_PREQ_GRP.engine_debug('#100');
2429:
2430: END IF;
2431:
2435: CLOSE get_continuous_flag_cur;
2436:
2437: OPEN get_price_break_details;
2438:
2439: IF l_debug = FND_API.G_TRUE THEN
2440: QP_PREQ_GRP.engine_debug('#101');
2441:
2442: END IF;
2443: LOOP
2441:
2442: END IF;
2443: LOOP
2444:
2445: IF l_debug = FND_API.G_TRUE THEN
2446: QP_PREQ_GRP.engine_debug('#102');
2447: END IF;
2448:
2449: i := i + 1;
2454: IF (QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG = QP_PREQ_GRP.G_YES) THEN
2455: pbh_child_rec.qualifier_value := p_request_qty;
2456: END IF;
2457:
2458: IF l_debug = FND_API.G_TRUE THEN
2459: QP_PREQ_GRP.engine_debug('PBH Qualifier Value : ' || pbh_child_rec.qualifier_value);
2460: QP_PREQ_GRP.engine_debug('PBH Value From : ' || pbh_child_rec.value_from);
2461: QP_PREQ_GRP.engine_debug('PBH Value To : ' || pbh_child_rec.value_to);
2462: QP_PREQ_GRP.engine_debug('PBH Break Type : ' || p_break_type);
2464: END IF;
2465:
2466: IF (p_break_type = QP_PREQ_GRP.G_POINT_BREAK) THEN
2467:
2468: IF l_debug = FND_API.G_TRUE THEN
2469: QP_PREQ_GRP.engine_debug('Before PBH List Line Type : ' || pbh_child_rec.related_list_line_type);
2470: END IF;
2471: -- rewritten for 4061138
2472: IF ((l_continuous_flag <> 'Y' AND
2475: (l_continuous_flag = 'Y' AND
2476: pbh_child_rec.value_from < pbh_child_rec.qualifier_value AND
2477: pbh_child_rec.qualifier_value <= pbh_child_rec.value_to) )
2478: THEN
2479: IF l_debug = FND_API.G_TRUE THEN
2480: QP_PREQ_GRP.engine_debug('In PBH List Line Type : ' || pbh_child_rec.related_list_line_type);
2481:
2482: END IF;
2483: IF (pbh_child_rec.related_list_line_type = QP_PREQ_GRP.G_DISCOUNT) THEN
2488:
2489: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
2490: l_sign := 1; -- new price discount/surcharge are the same
2491: END IF;
2492: IF l_debug = FND_API.G_TRUE THEN
2493: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2494:
2495: END IF;
2496: Calculate_Adjustment(p_list_price,
2500: l_adjustment_amount,
2501: l_return_status,
2502: l_return_status_text);
2503:
2504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2506: END IF;
2507: IF l_debug = FND_API.G_TRUE THEN
2508: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2501: l_return_status,
2502: l_return_status_text);
2503:
2504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2506: END IF;
2507: IF l_debug = FND_API.G_TRUE THEN
2508: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2509:
2503:
2504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2506: END IF;
2507: IF l_debug = FND_API.G_TRUE THEN
2508: QP_PREQ_GRP.engine_debug('PBH Adjustment : ' || l_adjustment_amount);
2509:
2510: END IF;
2511: pbh_adjustments(i).l_adjustment_amount := l_adjustment_amount;
2522:
2523: ELSIF (p_break_type = QP_PREQ_GRP.G_RANGE_BREAK) THEN
2524:
2525: IF (l_qualifier_value = 0) THEN
2526: IF l_debug = FND_API.G_TRUE THEN
2527: QP_PREQ_GRP.engine_debug('Range Break');
2528: END IF;
2529: l_qualifier_value := pbh_child_rec.qualifier_value;
2530: l_total_value := pbh_child_rec.qualifier_value;
2538:
2539: IF (pbh_child_rec.operand_calculation_code = QP_PREQ_GRP.G_NEWPRICE_DISCOUNT) THEN
2540: l_sign := 1; -- new price discount/surcharge are the same
2541: END IF;
2542: IF l_debug = FND_API.G_TRUE THEN
2543: QP_PREQ_GRP.engine_debug('l sign: '|| l_sign);
2544:
2545: END IF;
2546: -- 3943868: was passing p_list_line_id instead of pbh_child_rec.list_line_id
2560: --l_total_value,
2561: l_adjustment_amount,
2562: l_return_status,
2563: l_return_status_text);
2564: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: END IF;
2567: END IF;
2568:
2561: l_adjustment_amount,
2562: l_return_status,
2563: l_return_status_text);
2564: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: END IF;
2567: END IF;
2568:
2569: pbh_adjustments(i).l_related_list_line_id := pbh_child_rec.related_list_line_id;
2572:
2573: --IF (l_total_value > 0) THEN
2574: --l_total_value := l_total_value - l_satisfied_value; -- this is correct to be commented out
2575:
2576: IF l_debug = FND_API.G_TRUE THEN
2577: QP_PREQ_GRP.engine_debug('Adjustment : (' || i || ') ' || l_adjustment_amount);
2578: QP_PREQ_GRP.engine_debug('Satisfied Value : (' || i || ') ' || l_satisfied_value);
2579: QP_PREQ_GRP.engine_debug('Total Value : (' || i || ') ' || l_total_value);
2580: END IF;
2594: l_range_adjustment := l_range_adjustment + nvl(pbh_adjustments(i).l_adjustment_amount * pbh_adjustments(i).l_satisfied_value, 0);
2595: END LOOP;
2596: x_adjustment_amount := l_range_adjustment / l_qualifier_value;
2597:
2598: IF l_debug = FND_API.G_TRUE THEN
2599: QP_PREQ_GRP.engine_debug('Averaged Adjustment : ' || x_adjustment_amount);
2600:
2601: END IF;
2602: END IF;
2603:
2604: -- Update the adjustments/satisfied ranges info on line details
2605: IF (QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG = QP_PREQ_GRP.G_YES) THEN
2606: IF (pbh_adjustments.COUNT > 0) THEN
2607: IF l_debug = FND_API.G_TRUE THEN
2608: QP_PREQ_GRP.engine_debug('updating child pbh lines '
2609: || pbh_adjustments.COUNT);
2610: END IF;
2611: FOR i IN pbh_adjustments.FIRST .. pbh_adjustments.LAST LOOP
2608: QP_PREQ_GRP.engine_debug('updating child pbh lines '
2609: || pbh_adjustments.COUNT);
2610: END IF;
2611: FOR i IN pbh_adjustments.FIRST .. pbh_adjustments.LAST LOOP
2612: IF l_debug = FND_API.G_TRUE THEN
2613: QP_PREQ_GRP.engine_debug('child dtl adj amt '
2614: || pbh_adjustments(i).l_adjustment_amount
2615: ||' qty '|| pbh_adjustments(i).l_satisfied_value
2616: ||' dtl index '|| pbh_adjustments(i).l_related_line_detail_index);
2630:
2631:
2632: EXCEPTION
2633: WHEN OTHERS THEN
2634: IF l_debug = FND_API.G_TRUE THEN
2635: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2636: END IF;
2637: x_return_status := FND_API.G_RET_STS_ERROR;
2638: x_return_status_text := l_routine ||' '|| SQLERRM;
2633: WHEN OTHERS THEN
2634: IF l_debug = FND_API.G_TRUE THEN
2635: QP_PREQ_GRP.ENGINE_DEBUG('Error in price break calculation: '|| SQLERRM);
2636: END IF;
2637: x_return_status := FND_API.G_RET_STS_ERROR;
2638: x_return_status_text := l_routine ||' '|| SQLERRM;
2639: END Price_Break_Calculation;
2640:
2641: PROCEDURE GSA_Max_Discount_Check(p_adjusted_unit_price NUMBER,
2682: ORDER BY 2;
2683:
2684: BEGIN
2685: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2686: x_return_status := FND_API.G_RET_STS_SUCCESS;
2687:
2688: OPEN get_source_system_code;
2689: FETCH get_source_system_code INTO v_source_system_code;
2690: CLOSE get_source_system_code;
2692: OPEN get_list_details_cur(v_source_system_code);
2693: FETCH get_list_details_cur INTO v_list_line_id, v_operand;
2694: CLOSE get_list_details_cur;
2695:
2696: IF l_debug = FND_API.G_TRUE THEN
2697: QP_PREQ_GRP.engine_debug ('GSA List Line : ' || v_list_line_id);
2698: QP_PREQ_GRP.engine_debug ('GSA Price : ' || v_operand);
2699: QP_PREQ_GRP.engine_debug('GSA List Line : ' || v_list_line_id);
2700: QP_PREQ_GRP.engine_debug('GSA Price : ' || v_operand);
2708: END IF;
2709:
2710: EXCEPTION
2711: WHEN GSA_VIOLATION THEN
2712: IF l_debug = FND_API.G_TRUE THEN
2713: QP_PREQ_GRP.engine_debug(v_routine_name || ' GSA Violation. GSA Price: ' || v_operand || 'List Line: ' || v_list_line_id);
2714: END IF;
2715: x_return_status := QP_PREQ_GRP.G_STATUS_GSA_VIOLATION;
2716: x_return_status_txt := v_operand ;
2714: END IF;
2715: x_return_status := QP_PREQ_GRP.G_STATUS_GSA_VIOLATION;
2716: x_return_status_txt := v_operand ;
2717: WHEN OTHERS THEN
2718: IF l_debug = FND_API.G_TRUE THEN
2719: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2720: END IF;
2721: x_return_status := FND_API.G_RET_STS_ERROR;
2722: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2717: WHEN OTHERS THEN
2718: IF l_debug = FND_API.G_TRUE THEN
2719: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2720: END IF;
2721: x_return_status := FND_API.G_RET_STS_ERROR;
2722: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2723: END GSA_Max_Discount_Check;
2724:
2725: PROCEDURE Calculate_Price(p_request_line IN OUT NOCOPY l_request_line_rec,
2770: --of pricing sequence(this cannot be done
2771: -- using PL/SQL table. I am assuming that I would get the records in ordered sequence
2772:
2773: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2774: IF l_debug = FND_API.G_TRUE THEN
2775: QP_PREQ_GRP.engine_debug ('In Procedure Calculate_Price...'); -- shu, aso rounding, 2457629
2776: QP_PREQ_GRP.engine_debug ('selling price rounding options : ' || v_price_round_options); -- shu
2777: QP_PREQ_GRP.engine_debug ('Rounding Flag : ' || QP_PREQ_GRP.G_ROUNDING_FLAG); -- aso rounding, 2457629
2778: QP_PREQ_GRP.engine_debug ('Rounding Factor : ' || p_request_line.rounding_factor);
2778: QP_PREQ_GRP.engine_debug ('Rounding Factor : ' || p_request_line.rounding_factor);
2779: END IF;
2780:
2781: IF (p_request_line.rounding_flag = 'Y' AND p_request_line.rounding_factor IS NULL) THEN -- shu
2782: IF l_debug = FND_API.G_TRUE THEN
2783: QP_PREQ_GRP.engine_debug ('WARNING: rounding_flag is Y, but rounding_factor is NULL!!!');
2784: END IF;
2785: END IF;
2786:
2788: l_line_index := p_request_line.line_index;
2789:
2790: -- Loop through the p_request_line_details
2791:
2792: IF l_debug = FND_API.G_TRUE THEN
2793: QP_PREQ_GRP.engine_debug('The request line tables count is: ' || p_request_line_details.COUNT);
2794: END IF;
2795:
2796: v_index := p_request_line_details.FIRST;
2796: v_index := p_request_line_details.FIRST;
2797: WHILE (v_index IS NOT NULL )
2798: LOOP
2799:
2800: IF l_debug = FND_API.G_TRUE THEN
2801: QP_PREQ_GRP.engine_debug('LOOPing through p_request_line_details........');
2802: QP_PREQ_GRP.engine_debug('The request line index is: ' || v_index);
2803: QP_PREQ_GRP.engine_debug('PBH Type123:' || p_request_line_details(v_index).CREATED_FROM_LIST_TYPE);
2804: END IF;
2811: --[julin/5158413] defaulting to -1 (instead of 0) to distinguish null qual value from 0 qual value
2812: --v_total_value := nvl(p_request_line_details(v_index).qualifier_value, - 1); -- 2388011_latest
2813: v_total_value := nvl(p_request_line_details(v_index).qualifier_value, 0); --6896139 undoing changes done as part of bug 5158413
2814:
2815: IF l_debug = FND_API.G_TRUE THEN
2816: QP_PREQ_GRP.engine_debug('ldets.qualifier_value, (v_ord_qty) : ' || v_ord_qty);
2817: QP_PREQ_GRP.engine_debug('ldets.line_quqntity, (v_total_value) : ' || v_total_value);
2818: -- If bucketed net amount flag is set to 'Y'
2819: QP_PREQ_GRP.engine_debug('Bucketed Old PGS : ' || v_old_pricing_sequence);
2817: QP_PREQ_GRP.engine_debug('ldets.line_quqntity, (v_total_value) : ' || v_total_value);
2818: -- If bucketed net amount flag is set to 'Y'
2819: QP_PREQ_GRP.engine_debug('Bucketed Old PGS : ' || v_old_pricing_sequence);
2820: QP_PREQ_GRP.engine_debug('Bucketed New PGS : ' || p_request_line_details(v_index).PRICING_GROUP_SEQUENCE);
2821: END IF; -- END IF l_debug = FND_API.G_TRUE
2822:
2823: IF (nvl(v_old_pricing_sequence, - 9999) <> p_request_line_details(v_index).PRICING_GROUP_SEQUENCE AND
2824: p_request_line_details(v_index).bucketed_flag = 'Y') THEN
2825: IF l_debug = FND_API.G_TRUE THEN
2821: END IF; -- END IF l_debug = FND_API.G_TRUE
2822:
2823: IF (nvl(v_old_pricing_sequence, - 9999) <> p_request_line_details(v_index).PRICING_GROUP_SEQUENCE AND
2824: p_request_line_details(v_index).bucketed_flag = 'Y') THEN
2825: IF l_debug = FND_API.G_TRUE THEN
2826: QP_PREQ_GRP.engine_debug('Before Bucketed Group Amount : ' || v_bucketed_value);
2827: QP_PREQ_GRP.engine_debug('Before Bucketed Line Amount : ' || v_bucketed_qty);
2828: QP_PREQ_GRP.engine_debug('Bucket Adjustment Amount: ' || nvl(v_total_adj_amt, 0));
2829: END IF; -- END IF l_debug = FND_API.G_TRUE
2825: IF l_debug = FND_API.G_TRUE THEN
2826: QP_PREQ_GRP.engine_debug('Before Bucketed Group Amount : ' || v_bucketed_value);
2827: QP_PREQ_GRP.engine_debug('Before Bucketed Line Amount : ' || v_bucketed_qty);
2828: QP_PREQ_GRP.engine_debug('Bucket Adjustment Amount: ' || nvl(v_total_adj_amt, 0));
2829: END IF; -- END IF l_debug = FND_API.G_TRUE
2830:
2831: IF (v_total_value > 0) THEN
2832: v_bucketed_value := v_total_value + nvl(v_total_adj_amt * v_actual_line_qty, 0); -- Net Group Amount
2833: v_bucketed_qty := NULL;
2835: v_bucketed_qty := v_ord_qty + nvl(v_total_adj_amt * v_actual_line_qty, 0); -- Net Item Amount
2836: v_bucketed_value := NULL;
2837: END IF; -- END IF (v_total_value > 0)
2838:
2839: IF l_debug = FND_API.G_TRUE THEN
2840: QP_PREQ_GRP.engine_debug('Net Bucketed Group Amount : ' || v_bucketed_value);
2841: QP_PREQ_GRP.engine_debug('Net Bucketed Line Amount : ' || v_bucketed_qty);
2842: END IF; -- END IF l_debug = FND_API.G_TRUE
2843: END IF; -- END IF (nvl(v_old_pricing_sequence,-9999)
2838:
2839: IF l_debug = FND_API.G_TRUE THEN
2840: QP_PREQ_GRP.engine_debug('Net Bucketed Group Amount : ' || v_bucketed_value);
2841: QP_PREQ_GRP.engine_debug('Net Bucketed Line Amount : ' || v_bucketed_qty);
2842: END IF; -- END IF l_debug = FND_API.G_TRUE
2843: END IF; -- END IF (nvl(v_old_pricing_sequence,-9999)
2844:
2845: -- end fix 2388011, grp_lines_pbh, IT bucket
2846:
2855: -- Store the related item price
2856: v_related_item_price := p_request_line.RELATED_ITEM_PRICE;
2857: v_service_duration := nvl(p_request_line.SERVICE_DURATION, 1);
2858:
2859: IF l_debug = FND_API.G_TRUE THEN
2860: QP_PREQ_GRP.engine_debug('Service Duration : ' || v_service_duration);
2861:
2862: END IF;
2863:
2874: IF (p_request_line_details(v_index).PRICING_GROUP_SEQUENCE IS NULL) THEN
2875: v_orig_list_price := p_request_line.UNIT_PRICE;
2876: ELSE
2877: IF (v_list_price IS NULL) THEN
2878: IF l_debug = FND_API.G_TRUE THEN
2879: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
2880: END IF;
2881: v_list_price := p_request_line.UNIT_PRICE;
2882:
2898: END IF; -- END IF (p_request_line_details(v_index).PRICING_GROUP_SEQUENCE IS NULL)
2899:
2900: IF (p_request_line_details(v_index).CREATED_FROM_LIST_LINE_TYPE =
2901: QP_PREQ_GRP.G_PRICE_BREAK_TYPE) THEN
2902: IF l_debug = FND_API.G_TRUE THEN
2903: QP_PREQ_GRP.engine_debug('PBH Type:' || p_request_line_details(v_index).CREATED_FROM_LIST_TYPE);
2904: QP_PREQ_GRP.engine_debug('PBH Unit Price:' || p_request_line.UNIT_PRICE);
2905: QP_PREQ_GRP.engine_debug('Old PGS:' || v_old_pricing_sequence);
2906: END IF;
2935: x_ret_status,
2936: x_ret_status_txt);
2937: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
2938:
2939: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2940: RAISE FND_API.G_EXC_ERROR;
2941: END IF;
2942:
2943: IF (p_request_line_details(v_index).CREATED_FROM_LIST_TYPE IN
2936: x_ret_status_txt);
2937: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
2938:
2939: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2940: RAISE FND_API.G_EXC_ERROR;
2941: END IF;
2942:
2943: IF (p_request_line_details(v_index).CREATED_FROM_LIST_TYPE IN
2944: (QP_PREQ_GRP.G_PRICE_LIST_HEADER, QP_PREQ_GRP.G_AGR_LIST_HEADER)) THEN
2950: p_request_line_details(v_index).LINE_QUANTITY := v_ord_qty;
2951: -- Init the price list values for input to the Calculate_Adjusted_Price function
2952: v_list_price := x_pbh_list_price;
2953: v_discounted_price := x_pbh_list_price;
2954: IF l_debug = FND_API.G_TRUE THEN
2955: QP_PREQ_GRP.engine_debug('Unit Price:' || x_pbh_list_price);
2956: QP_PREQ_GRP.engine_debug('Extended Price on the Line: ' || p_request_line.EXTENDED_PRICE);
2957: QP_PREQ_GRP.engine_debug('Related Request Lines Table Count:'|| x_related_request_lines_tbl.COUNT);
2958: END IF;
2972: p_request_line.ADJUSTED_UNIT_PRICE := p_request_line.UNIT_PRICE + nvl(v_total_adj_amt, 0);
2973: END IF;
2974: v_discounted_price := p_request_line.ADJUSTED_UNIT_PRICE;
2975:
2976: IF l_debug = FND_API.G_TRUE THEN
2977: QP_PREQ_GRP.engine_debug('Adjusted Amount:' || x_adjusted_amount);
2978: QP_PREQ_GRP.engine_debug('Unit Price:' || p_request_line.UNIT_PRICE );
2979: QP_PREQ_GRP.engine_debug('Adjusted Unit Price:' || v_discounted_price);
2980: END IF;
2990: -- Calculate List Price for Pricing Sequence 0 for a PLL Line
2991: --IF (p_request_line_details(v_index).CREATED_FROM_LIST_TYPE in
2992: -- (QP_PREQ_GRP.G_PRICE_LIST_HEADER,QP_PREQ_GRP.G_AGR_LIST_HEADER)) THEN
2993: IF (p_request_line_details(v_index).CREATED_FROM_LIST_LINE_TYPE = QP_PREQ_GRP.G_PRICE_LIST_TYPE) THEN
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('I am in PLL');
2996: END IF;
2997: Calculate_List_Price_PVT(p_request_line_details(v_index).OPERAND_CALCULATION_CODE,
2998: p_request_line_details(v_index).OPERAND_VALUE,
3007: x_percent_price,
3008: x_extended_price, -- block pricing
3009: x_ret_status,
3010: x_ret_status_txt);
3011: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3012: RAISE FND_API.G_EXC_ERROR;
3013: END IF;
3014:
3015: p_request_line.UNIT_PRICE := x_list_price;
3008: x_extended_price, -- block pricing
3009: x_ret_status,
3010: x_ret_status_txt);
3011: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3012: RAISE FND_API.G_EXC_ERROR;
3013: END IF;
3014:
3015: p_request_line.UNIT_PRICE := x_list_price;
3016: p_request_line.PERCENT_PRICE := x_percent_price;
3019:
3020: -- Init the price list values for input to the Calculate_Adjusted_Price function
3021: v_list_price := x_list_price;
3022: v_discounted_price := x_list_price;
3023: IF l_debug = FND_API.G_TRUE THEN
3024: QP_PREQ_GRP.engine_debug('The List Price23 is: ' || v_list_price);
3025:
3026: END IF;
3027: END IF;
3030: -- This can be the case if pll lines are not passed
3031: -- nvl , if the caller wants the adjustments to be applied to an already
3032: -- discounted line
3033: IF (v_list_price IS NULL) THEN
3034: IF l_debug = FND_API.G_TRUE THEN
3035: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
3036: END IF;
3037: v_list_price := p_request_line.UNIT_PRICE;
3038:
3053:
3054: -- Calculate Adjusted Price
3055: IF (p_request_line_details(v_index).CREATED_FROM_LIST_LINE_TYPE
3056: IN (QP_PREQ_GRP.G_DISCOUNT, QP_PREQ_GRP.G_SURCHARGE, QP_PREQ_GRP.G_FREIGHT_CHARGE)) THEN
3057: IF l_debug = FND_API.G_TRUE THEN
3058: QP_PREQ_GRP.engine_debug('I am in DIS');
3059: QP_PREQ_GRP.engine_debug('The List Price is: ' || v_list_price);
3060: QP_PREQ_GRP.engine_debug('The Discounted Price is: ' || v_discounted_price);
3061: QP_PREQ_GRP.engine_debug('Old Pricing Seq: ' || v_old_pricing_sequence);
3069: /* [julin/5529345] recurring logic moved to QP_PREQ_GRP.PRICE_REQUEST
3070: -- Recurring flag check
3071: IF (p_request_line_details(v_index).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_RECURRING_BREAK AND
3072: QP_PREQ_GRP.G_LIMITS_CODE_EXECUTED = QP_PREQ_GRP.G_NO) THEN
3073: IF l_debug = FND_API.G_TRUE THEN
3074: QP_PREQ_GRP.engine_debug('In Recurring Routine --- #1');
3075: QP_PREQ_GRP.engine_debug('List Line Id: ' || p_request_line_details(v_index).CREATED_FROM_LIST_LINE_ID );
3076: QP_PREQ_GRP.engine_debug('List Line Index: ' || p_request_line.LINE_INDEX );
3077: END IF;
3083: NULL,
3084: x_benefit_line_qty,
3085: x_ret_status,
3086: x_ret_status_txt);
3087: IF l_debug = FND_API.G_TRUE THEN
3088: QP_PREQ_GRP.engine_debug('Return Status Text : ' || x_ret_status_txt);
3089:
3090: END IF;
3091: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3087: IF l_debug = FND_API.G_TRUE THEN
3088: QP_PREQ_GRP.engine_debug('Return Status Text : ' || x_ret_status_txt);
3089:
3090: END IF;
3091: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094: p_request_line_details(v_index).OPERAND_VALUE := x_benefit_line_qty;
3095:
3088: QP_PREQ_GRP.engine_debug('Return Status Text : ' || x_ret_status_txt);
3089:
3090: END IF;
3091: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094: p_request_line_details(v_index).OPERAND_VALUE := x_benefit_line_qty;
3095:
3096: IF l_debug = FND_API.G_TRUE THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094: p_request_line_details(v_index).OPERAND_VALUE := x_benefit_line_qty;
3095:
3096: IF l_debug = FND_API.G_TRUE THEN
3097: QP_PREQ_GRP.engine_debug('Limits Code Not Executed.Did call Recurring Qty Routine');
3098: QP_PREQ_GRP.engine_debug('After Recurring Routine Value --- #2 : ' || x_benefit_line_qty);
3099:
3100: END IF;
3101: END IF;
3102:
3103: IF (p_request_line_details(v_index).PRICE_BREAK_TYPE_CODE = QP_PREQ_GRP.G_RECURRING_BREAK AND
3104: QP_PREQ_GRP.G_LIMITS_CODE_EXECUTED = QP_PREQ_GRP.G_YES) THEN
3105: IF l_debug = FND_API.G_TRUE THEN
3106: QP_PREQ_GRP.engine_debug('Limits Code Executed.Do not calculate OPERAND value 2nd time.');
3107: QP_PREQ_GRP.engine_debug('List Line Id: ' || p_request_line_details(v_index).CREATED_FROM_LIST_LINE_ID );
3108: QP_PREQ_GRP.engine_debug('List Line Index: ' || p_request_line.LINE_INDEX );
3109: QP_PREQ_GRP.engine_debug('Recurring Value: ' || p_request_line_details(v_index).OPERAND_VALUE );
3111: END IF;
3112: */
3113:
3114: IF (nvl(p_request_line_details(v_index).ACCRUAL_FLAG, QP_PREQ_GRP.G_NO) = QP_PREQ_GRP.G_YES) THEN
3115: IF l_debug = FND_API.G_TRUE THEN
3116: QP_PREQ_GRP.engine_debug('OPERAND_CALCULATION_CODE is ' || p_request_line_details(v_index).OPERAND_CALCULATION_CODE);
3117: QP_PREQ_GRP.engine_debug('v_ord_qty is ' || v_ord_qty);
3118: END IF;
3119: -- bug 4002891 - benefit_qty should be multiplied by ordered_qty for application_method other than LUMPSUM
3143: --and for a line/linegroup lumpsum DIS/PBH/SUR/FREIGHT
3144: G_Lumpsum_qty := Get_lumpsum_qty(l_line_index,
3145: p_request_line_details(v_index).line_detail_index,
3146: p_request_line_details(v_index).modifier_level_code);
3147: IF l_debug = FND_API.G_TRUE THEN
3148: QP_PREQ_GRP.engine_debug('Lumpsum_qty '
3149: || G_Lumpsum_qty);
3150: END IF;
3151: END IF; --p_request_line_details(v_index).modifier_level_code
3169: x_list_price => x_list_price, -- Output List Price
3170: x_return_status => x_ret_status,
3171: x_return_status_txt => x_ret_status_txt);
3172:
3173: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3174: RAISE FND_API.G_EXC_ERROR;
3175: END IF;
3176:
3177: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
3170: x_return_status => x_ret_status,
3171: x_return_status_txt => x_ret_status_txt);
3172:
3173: IF(x_ret_status = FND_API.G_RET_STS_ERROR) THEN
3174: RAISE FND_API.G_EXC_ERROR;
3175: END IF;
3176:
3177: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
3178: v_discounted_price := x_discounted_price;
3177: v_old_pricing_sequence := p_request_line_details(v_index).PRICING_GROUP_SEQUENCE;
3178: v_discounted_price := x_discounted_price;
3179: v_list_price := x_List_price;
3180:
3181: IF l_debug = FND_API.G_TRUE THEN
3182: QP_PREQ_GRP.engine_debug('Adjusted Amount: ' || x_adjusted_amount);
3183:
3184: END IF;
3185: -- Update the adjusted amount on the request line
3222: --[prarasto:Post Round] End post round fix
3223:
3224: END IF;
3225:
3226: IF l_debug = FND_API.G_TRUE THEN
3227: QP_PREQ_GRP.engine_debug('The Adjusted Amount is: ' || v_total_adj_amt);
3228: QP_PREQ_GRP.engine_debug('The Unit Price: ' || p_request_line.UNIT_PRICE );
3229: QP_PREQ_GRP.engine_debug('The Adjusted Price: ' || p_request_line.ADJUSTED_UNIT_PRICE );
3230:
3235: END LOOP;
3236:
3237: -- If price list is not passed , round the unit price and adjusted unit price
3238: IF (v_list_price IS NULL) THEN
3239: IF l_debug = FND_API.G_TRUE THEN
3240: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
3241: END IF;
3242: v_list_price := p_request_line.UNIT_PRICE ;
3243: IF l_debug = FND_API.G_TRUE THEN
3239: IF l_debug = FND_API.G_TRUE THEN
3240: QP_PREQ_GRP.engine_debug ('V_List_Price is null');
3241: END IF;
3242: v_list_price := p_request_line.UNIT_PRICE ;
3243: IF l_debug = FND_API.G_TRUE THEN
3244: QP_PREQ_GRP.engine_debug ('List Price after rounding: ' || v_list_price);
3245: END IF;
3246:
3247: -- shu new rounding
3259: END IF;
3260:
3261: END IF;
3262:
3263: IF l_debug = FND_API.G_TRUE THEN
3264: QP_PREQ_GRP.engine_debug ('List Price after rounding1: ' || p_request_line.UNIT_PRICE);
3265: QP_PREQ_GRP.engine_debug ('List Price after rounding2: ' || v_list_price);
3266: END IF;
3267: v_discounted_price := nvl(p_request_line.ADJUSTED_UNIT_PRICE, v_list_price);
3280: x_return_status := QP_PREQ_GRP.G_STATUS_GSA_VIOLATION;
3281: x_return_status_txt := x_ret_status_txt;
3282: END IF;
3283: END IF;
3284: IF l_debug = FND_API.G_TRUE THEN
3285: QP_PREQ_GRP.engine_debug ('Before Update List Price after rounding1: ' || p_request_line.UNIT_PRICE);
3286:
3287: END IF;
3288: -- Populate the Output records
3289: --p_request_line := p_request_line;
3290: --p_request_line_details := p_request_line_details;
3291: --p_related_request_lines := p_related_request_lines;
3292: EXCEPTION
3293: WHEN FND_API.G_EXC_ERROR THEN
3294: IF l_debug = FND_API.G_TRUE THEN
3295: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
3296: END IF;
3297: x_return_status := FND_API.G_RET_STS_ERROR;
3290: --p_request_line_details := p_request_line_details;
3291: --p_related_request_lines := p_related_request_lines;
3292: EXCEPTION
3293: WHEN FND_API.G_EXC_ERROR THEN
3294: IF l_debug = FND_API.G_TRUE THEN
3295: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
3296: END IF;
3297: x_return_status := FND_API.G_RET_STS_ERROR;
3298: x_return_status_txt := v_routine_name || ' ' || x_ret_status_txt;
3293: WHEN FND_API.G_EXC_ERROR THEN
3294: IF l_debug = FND_API.G_TRUE THEN
3295: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || x_ret_status_txt);
3296: END IF;
3297: x_return_status := FND_API.G_RET_STS_ERROR;
3298: x_return_status_txt := v_routine_name || ' ' || x_ret_status_txt;
3299: WHEN OTHERS THEN
3300: IF l_debug = FND_API.G_TRUE THEN
3301: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
3296: END IF;
3297: x_return_status := FND_API.G_RET_STS_ERROR;
3298: x_return_status_txt := v_routine_name || ' ' || x_ret_status_txt;
3299: WHEN OTHERS THEN
3300: IF l_debug = FND_API.G_TRUE THEN
3301: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
3302: END IF;
3303: x_return_status := FND_API.G_RET_STS_ERROR;
3304: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
3299: WHEN OTHERS THEN
3300: IF l_debug = FND_API.G_TRUE THEN
3301: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
3302: END IF;
3303: x_return_status := FND_API.G_RET_STS_ERROR;
3304: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
3305:
3306: END Calculate_Price;
3307: