[Home] [Help]
65:
66:
67: G_NOT_MAX_FRT_CHARGE CONSTANT VARCHAR2(100) := 'QP_PREQ_PUB:DELETED TO RETURN MAX/OVERRID FREIGHT CHARGE';
68: G_FREEZE_OVERRIDE_FLAG VARCHAR2(1) := '';
69: G_GSA_ENABLED_FLAG VARCHAR2(1) := NULL; --FND_API.G_MISS_CHAR;
70:
71: FUNCTION Get_Version RETURN VARCHAR2 IS
72: BEGIN
73: RETURN G_Version;
151: E_OTHER_ERRORS EXCEPTION;
152:
153: BEGIN
154: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
155: IF l_debug = FND_API.G_TRUE THEN
156: QP_PREQ_GRP.engine_debug('begin initialize_constants');
157:
158: END IF;
159:
174: UPDATE qp_npreq_lines_tmp
175: SET request_type_code = p_control_rec.request_type_code
176: WHERE request_type_code IS NULL;
177:
178: IF l_debug = FND_API.G_TRUE THEN
179: QP_PREQ_GRP.engine_debug('1 initialize_constants');
180:
181: END IF;
182: --populate G_PRICE_LIST_SEQUENCE,G_PRICE_LIST_PHASE_ID
184: FETCH l_init_pricelist_phase_cur INTO G_PRICE_LIST_SEQUENCE, G_PRICE_LIST_PHASE_ID;
185: CLOSE l_init_pricelist_phase_cur;
186:
187:
188: IF(G_PRICE_LIST_SEQUENCE = NULL OR G_PRICE_LIST_SEQUENCE = FND_API.G_MISS_NUM
189: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
190: RAISE E_INVALID_PHASE;
191: END IF;
192:
185: CLOSE l_init_pricelist_phase_cur;
186:
187:
188: IF(G_PRICE_LIST_SEQUENCE = NULL OR G_PRICE_LIST_SEQUENCE = FND_API.G_MISS_NUM
189: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
190: RAISE E_INVALID_PHASE;
191: END IF;
192:
193: IF l_debug = FND_API.G_TRUE THEN
189: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
190: RAISE E_INVALID_PHASE;
191: END IF;
192:
193: IF l_debug = FND_API.G_TRUE THEN
194: QP_PREQ_GRP.engine_debug('2 initialize_constants');
195:
196: END IF;
197: IF (l_bypass_pricing = 'Y' ) THEN
205: adjusted_unit_price = l_FIXED_PRICE,
206: pricing_status_code = G_STATUS_UPDATED
207: WHERE unit_price IS NULL
208: OR adjusted_unit_price IS NULL
209: OR unit_price = FND_API.G_MISS_NUM
210: OR adjusted_unit_price = FND_API.G_MISS_NUM;
211: EXCEPTION
212: WHEN OTHERS THEN
213: IF l_debug = FND_API.G_TRUE THEN
206: pricing_status_code = G_STATUS_UPDATED
207: WHERE unit_price IS NULL
208: OR adjusted_unit_price IS NULL
209: OR unit_price = FND_API.G_MISS_NUM
210: OR adjusted_unit_price = FND_API.G_MISS_NUM;
211: EXCEPTION
212: WHEN OTHERS THEN
213: IF l_debug = FND_API.G_TRUE THEN
214: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB: Init_cons update status '|| SQLERRM);
209: OR unit_price = FND_API.G_MISS_NUM
210: OR adjusted_unit_price = FND_API.G_MISS_NUM;
211: EXCEPTION
212: WHEN OTHERS THEN
213: IF l_debug = FND_API.G_TRUE THEN
214: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB: Init_cons update status '|| SQLERRM);
215: END IF;
216: x_return_status_text := SQLERRM;
217: RAISE E_OTHER_ERRORS;
218: END;
219: RAISE E_BYPASS_PRICING;
220:
221: END IF;
222: IF l_debug = FND_API.G_TRUE THEN
223: QP_PREQ_GRP.engine_debug('3 initialize_constants');
224:
225: END IF;
226: OPEN l_check_pricing_phase_exists(p_control_rec.PRICING_EVENT);
236: END IF;
237:
238: G_FREEZE_OVERRIDE_FLAG := l_freeze_override_flag;
239:
240: IF l_debug = FND_API.G_TRUE THEN
241: QP_PREQ_GRP.engine_debug('4 initialize_constants');
242:
243:
244: END IF;
250: IF G_CURRENCY_CODE IS NULL THEN
251: RAISE E_CURRENCY_CODE_IS_NULL;
252: END IF;
253:
254: IF l_debug = FND_API.G_TRUE THEN
255: QP_PREQ_GRP.engine_debug('5 initialize_constants');
256:
257: END IF;
258: OPEN l_min_max_eff_date_cur;
259: FETCH l_min_max_eff_date_cur INTO G_MIN_PRICING_DATE, G_MAX_PRICING_DATE;
260: CLOSE l_min_max_eff_date_cur;
261:
262:
263: IF l_debug = FND_API.G_TRUE THEN
264: QP_PREQ_GRP.engine_debug('5.5 initialize_constants');
265: END IF;
266: --update the price flag on summary line to 'P' if there is at least
267: --one line with price flag 'P'
276: and exists(select 'Y' from qp_npreq_lines_tmp
277: where price_flag in (G_PHASE,G_NO,G_CALCULATE_ONLY)
278: and line_type_code = G_LINE_LEVEL); */
279:
280: IF l_debug = FND_API.G_TRUE THEN
281: QP_PREQ_GRP.engine_debug('5.6 initialize_constants');
282: END IF;
283: --fix for bug 2374591 ask for promotions not getting applied
284: --updating the list_header_id in the attribute where list_line_id is passed
288: WHERE attr.context = 'MODLIST'
289: AND attribute = 'QUALIFIER_ATTRIBUTE2'
290: AND pricing_status_code = 'X';
291:
292: IF l_debug = FND_API.G_TRUE THEN
293: QP_PREQ_GRP.engine_debug('6 initialize_constants');
294: QP_PREQ_GRP.engine_debug('Before update_rounding_factor:calculate_flag '
295: || p_control_rec.calculate_flag ||' rounding_flag '
296: || p_control_rec.rounding_flag);
305: THEN
306: QP_PREQ_GRP.update_rounding_factor(G_USE_MULTI_CURRENCY_PUB,
307: x_return_status,
308: x_return_status_text);
309: IF x_return_status = FND_API.G_RET_STS_ERROR
310: THEN
311: RAISE E_OTHER_ERRORS;
312: END IF;
313: END IF;
311: RAISE E_OTHER_ERRORS;
312: END IF;
313: END IF;
314:
315: IF l_debug = FND_API.G_TRUE THEN
316: QP_PREQ_GRP.engine_debug('6.5 initialize_constants');
317:
318: END IF;
319: BEGIN
316: QP_PREQ_GRP.engine_debug('6.5 initialize_constants');
317:
318: END IF;
319: BEGIN
320: IF l_debug = FND_API.G_TRUE THEN
321: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB before insert source line quantity ');
322: END IF;
323: --sourcing volume attributes performance changes
324: l_source_qty_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME', 'PRICING_ATTRIBUTE10');
323: --sourcing volume attributes performance changes
324: l_source_qty_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME', 'PRICING_ATTRIBUTE10');
325: IF l_source_qty_flag = G_YES
326: THEN
327: IF l_debug = FND_API.G_TRUE THEN
328: QP_PREQ_GRP.engine_debug('Sourcing Line Quantity');
329:
330: END IF;
331: /*
393: , NULL
394: , NULL
395: FROM qp_npreq_lines_tmp;
396:
397: IF l_debug = FND_API.G_TRUE THEN
398: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB after insert source line quantity ');
399: END IF;
400: END IF; --sourcing volume attributes performance changes
401: EXCEPTION
399: END IF;
400: END IF; --sourcing volume attributes performance changes
401: EXCEPTION
402: WHEN OTHERS THEN
403: IF l_debug = FND_API.G_TRUE THEN
404: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB init_cons sourceqty exp '|| SQLERRM);
405: END IF;
406: x_return_status_text := SQLERRM;
407: RAISE E_OTHER_ERRORS;
409:
410:
411:
412: BEGIN
413: IF l_debug = FND_API.G_TRUE THEN
414: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB before insert source line amt ');
415: END IF;
416: --sourcing volume attributes performance changes
417: l_source_amt_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME', 'PRICING_ATTRIBUTE12');
416: --sourcing volume attributes performance changes
417: l_source_amt_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME', 'PRICING_ATTRIBUTE12');
418: IF l_source_amt_flag = G_YES
419: THEN
420: IF l_debug = FND_API.G_TRUE THEN
421: QP_PREQ_GRP.engine_debug('Sourcing Line Amount');
422: END IF;
423: /*
424: indxno index used
484: , NULL
485: , NULL
486: , NULL
487: FROM qp_npreq_lines_tmp;
488: IF l_debug = FND_API.G_TRUE THEN
489: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB after insert source line amt ');
490: END IF;
491: END IF; --sourcing volume attributes performance changes
492: EXCEPTION
490: END IF;
491: END IF; --sourcing volume attributes performance changes
492: EXCEPTION
493: WHEN OTHERS THEN
494: IF l_debug = FND_API.G_TRUE THEN
495: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB init_cons sourceamt exp '|| SQLERRM);
496: END IF;
497: x_return_status_text := SQLERRM;
498: RAISE E_OTHER_ERRORS;
499: END;
500:
501: -- limits check commented out per Ravi, part of accum range break changes
502: --IF G_LIMITS_INSTALLED = G_YES THEN
503: IF l_debug = FND_API.G_TRUE THEN
504: QP_PREQ_GRP.engine_debug('7.5 initialize_constants');
505: END IF;
506: BEGIN
507: --populate G_ORDER_PRICE_REQUEST_CODE for limits
508: SELECT line_id
509: INTO l_order_header_id
510: FROM qp_npreq_lines_tmp
511: WHERE line_type_code = G_ORDER_LEVEL;
512: IF l_debug = FND_API.G_TRUE THEN
513: QP_PREQ_GRP.engine_debug('l_order_header_id '|| l_order_header_id);
514: END IF;
515: QP_PREQ_GRP.G_ORDER_ID := l_order_header_id; -- accum range break
516: QP_PREQ_GRP.G_LINE_ID := null; -- 5706129, accum range break
518: QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE := G_REQUEST_TYPE_CODE || '-' || l_missing_header;
519: ELSE
520: QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE := G_REQUEST_TYPE_CODE || '-' || l_order_header_id;
521: END IF; --l_order_header_id
522: IF l_debug = FND_API.G_TRUE THEN
523: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE '|| QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE);
524: END IF;
525: EXCEPTION
526: WHEN OTHERS THEN
529: END;
530: --END IF;--G_LIMITS_INSTALLED
531:
532: IF G_LIMITS_INSTALLED = G_YES THEN
533: IF l_debug = FND_API.G_TRUE THEN
534: QP_PREQ_GRP.engine_debug('7.6 initialize_constants');
535: END IF;
536: BEGIN
537: --populate price_request_code if not passed
551: END IF; --l_null_price_req_code
552: EXCEPTION
553: WHEN OTHERS THEN
554: --this is not an error
555: IF l_debug = FND_API.G_TRUE THEN
556: QP_PREQ_GRP.engine_debug('populate price_request_code excep '|| SQLERRM);
557: END IF;
558: NULL;
559: END;
559: END;
560: END IF; --G_LIMITS_INSTALLED
561:
562:
563: IF l_debug = FND_API.G_TRUE THEN
564: QP_PREQ_GRP.engine_debug('8.0 initialize_constants');
565: END IF;
566: -------------------------------------------------------------------------
567: EXCEPTION
565: END IF;
566: -------------------------------------------------------------------------
567: EXCEPTION
568: WHEN E_CURRENCY_CODE_IS_NULL THEN
569: IF l_debug = FND_API.G_TRUE THEN
570: QP_PREQ_GRP.engine_debug('Currency code can not be null');
571: END IF;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: x_return_status_text := l_routine ||' Error : Currency can not be null';
568: WHEN E_CURRENCY_CODE_IS_NULL THEN
569: IF l_debug = FND_API.G_TRUE THEN
570: QP_PREQ_GRP.engine_debug('Currency code can not be null');
571: END IF;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: x_return_status_text := l_routine ||' Error : Currency can not be null';
574: WHEN E_INVALID_CONTROL_RECORD THEN
575: x_return_status := FND_API.G_RET_STS_ERROR;
576: x_return_status_text := l_routine ||' INVALID CONTROL RECORD';
571: END IF;
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: x_return_status_text := l_routine ||' Error : Currency can not be null';
574: WHEN E_INVALID_CONTROL_RECORD THEN
575: x_return_status := FND_API.G_RET_STS_ERROR;
576: x_return_status_text := l_routine ||' INVALID CONTROL RECORD';
577: IF l_debug = FND_API.G_TRUE THEN
578: QP_PREQ_GRP.engine_debug(x_return_status_text);
579: END IF;
573: x_return_status_text := l_routine ||' Error : Currency can not be null';
574: WHEN E_INVALID_CONTROL_RECORD THEN
575: x_return_status := FND_API.G_RET_STS_ERROR;
576: x_return_status_text := l_routine ||' INVALID CONTROL RECORD';
577: IF l_debug = FND_API.G_TRUE THEN
578: QP_PREQ_GRP.engine_debug(x_return_status_text);
579: END IF;
580: WHEN E_INVALID_PHASE THEN
581: x_return_status := FND_API.G_RET_STS_ERROR;
577: IF l_debug = FND_API.G_TRUE THEN
578: QP_PREQ_GRP.engine_debug(x_return_status_text);
579: END IF;
580: WHEN E_INVALID_PHASE THEN
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: x_return_status_text := l_routine ||' Invalid phase sequence for Price List phase, Check setup data';
583: IF l_debug = FND_API.G_TRUE THEN
584: QP_PREQ_GRP.engine_debug('Invalid phase sequence for Price List phase');
585: END IF;
579: END IF;
580: WHEN E_INVALID_PHASE THEN
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: x_return_status_text := l_routine ||' Invalid phase sequence for Price List phase, Check setup data';
583: IF l_debug = FND_API.G_TRUE THEN
584: QP_PREQ_GRP.engine_debug('Invalid phase sequence for Price List phase');
585: END IF;
586: WHEN E_BYPASS_PRICING THEN
587: x_return_status := 'BYPASS_PRICING';
586: WHEN E_BYPASS_PRICING THEN
587: x_return_status := 'BYPASS_PRICING';
588: x_return_status_text := l_routine ||' Pricing Bypassed';
589: WHEN E_OTHER_ERRORS THEN
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: x_return_status_text := l_routine ||' '|| x_return_status_text;
592: WHEN OTHERS THEN
593: IF l_debug = FND_API.G_TRUE THEN
594: QP_PREQ_GRP.engine_debug(l_routine || l_status_text ||' '|| SQLERRM);
589: WHEN E_OTHER_ERRORS THEN
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: x_return_status_text := l_routine ||' '|| x_return_status_text;
592: WHEN OTHERS THEN
593: IF l_debug = FND_API.G_TRUE THEN
594: QP_PREQ_GRP.engine_debug(l_routine || l_status_text ||' '|| SQLERRM);
595: END IF;
596: x_return_status := FND_API.G_RET_STS_ERROR;
597: x_return_status_text := l_routine ||' '|| SQLERRM;
592: WHEN OTHERS THEN
593: IF l_debug = FND_API.G_TRUE THEN
594: QP_PREQ_GRP.engine_debug(l_routine || l_status_text ||' '|| SQLERRM);
595: END IF;
596: x_return_status := FND_API.G_RET_STS_ERROR;
597: x_return_status_text := l_routine ||' '|| SQLERRM;
598: END INITIALIZE_CONSTANTS;
599:
600:
611: TYPE num_indxbyvarchar_type IS TABLE OF NUMBER INDEX BY VARCHAR2(2000);
612: l_lumpsum_qty num_indxbyvarchar_type;
613: BEGIN
614: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
615: IF l_debug = FND_API.G_TRUE THEN
616: QP_PREQ_GRP.engine_debug('Begin Determine_svc_item_quantity');
617: END IF;
618: --bug 4900095 get service qty for lumpsum
619: i:= QP_PREQ_GRP.G_service_line_ind_tbl.FIRST;
616: QP_PREQ_GRP.engine_debug('Begin Determine_svc_item_quantity');
617: END IF;
618: --bug 4900095 get service qty for lumpsum
619: i:= QP_PREQ_GRP.G_service_line_ind_tbl.FIRST;
620: IF l_debug = FND_API.G_TRUE THEN
621: QP_PREQ_GRP.engine_debug('loop index '||i);
622: END IF;
623: While i IS NOT NULL and QP_PREQ_GRP.G_service_line_ind_tbl(i) IS NOT NULL
624: LOOP
622: END IF;
623: While i IS NOT NULL and QP_PREQ_GRP.G_service_line_ind_tbl(i) IS NOT NULL
624: LOOP
625: l_line_index := QP_PREQ_GRP.G_service_line_ind_tbl(i);
626: IF l_debug = FND_API.G_TRUE THEN
627: QP_PREQ_GRP.engine_debug('line_index of svc line: '||l_line_index);
628: END IF;--l_debug
629:
630: for cl in
646: ('DIS', 'SUR', 'PBH', 'FREIGHT_CHARGE')
647: and ldet.modifier_level_code in
648: (QP_PREQ_GRP.G_LINE_LEVEL, QP_PREQ_GRP.G_LINE_GROUP))
649: loop
650: IF l_debug = FND_API.G_TRUE THEN
651: QP_PREQ_GRP.engine_debug('line_dtl_index of lumpsum adj '
652: ||cl.line_detail_index||' list_line_id '||cl.created_from_list_line_id
653: ||' modlevel '||cl.modifier_level_code||' parent_qty '
654: ||cl.parent_quantity||' priced_qty '||cl.priced_quantity
655: ||' unit_price '||cl.unit_price);
656: END IF;--l_debug
657: QP_PREQ_GRP.G_service_line_qty_tbl(cl.line_index) :=
658: cl.parent_quantity * cl.priced_quantity;
659: IF l_debug = FND_API.G_TRUE THEN
660: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(cl.line_index) THEN
661: QP_PREQ_GRP.engine_debug('service_qty of lumpsum adj '
662: ||QP_PREQ_GRP.G_service_line_qty_tbl(cl.line_index));
663: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl
677: from qp_npreq_line_attrs_tmp
678: where line_detail_index = cl.line_detail_index
679: and context = QP_PREQ_GRP.G_PRIC_VOLUME_CONTEXT;
680:
681: IF l_debug = FND_API.G_TRUE THEN
682: QP_PREQ_GRP.engine_debug('vol attr for linegrp modifier'
683: ||l_lgrp_vol_attr);
684: END IF;--l_debug
685: EXCEPTION
684: END IF;--l_debug
685: EXCEPTION
686: When OTHERS then
687: l_lgrp_vol_attr := NULL;
688: IF l_debug = FND_API.G_TRUE THEN
689: QP_PREQ_GRP.engine_debug('null vol attr for linegrp modifier');
690: END IF;--l_debug
691: END;
692: --initialize lumpsum_qty for list_line_id
720: l_lumpsum_qty(cl.created_from_list_line_id) +
721: cl1.value_from;
722: END IF;--QP_PREQ_GRP.G_service_line_ind_tbl.exists
723:
724: IF l_debug = FND_API.G_TRUE THEN
725: QP_PREQ_GRP.engine_debug('lumpsum dtls for this pass '
726: ||'llid '||cl.created_from_list_line_id
727: ||' line_index '||cl1.line_index
728: ||' dtl_index '||cl1.line_detail_index
740: ELSE
741: QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index) :=
742: l_lumpsum_qty(cl.created_from_list_line_id);
743: END IF;
744: IF l_debug = FND_API.G_TRUE THEN
745: IF QP_PREQ_GRP.G_Service_ldet_qty_tbl.exists(cl.line_detail_index)
746: THEN
747: QP_PREQ_GRP.engine_debug('linegrp lumpsum qty for list_line_id '
748: ||cl.created_from_list_line_id||' dtl_index '
773: where ldet.created_from_list_line_id = cl.created_from_list_line_id
774: and ldet.modifier_level_code = QP_PREQ_GRP.G_LINE_GROUP
775: and ldet.pricing_status_code = QP_PREQ_GRP.G_STATUS_NEW))
776: loop
777: IF l_debug = FND_API.G_TRUE THEN
778: QP_PREQ_GRP.engine_debug('dtl_index '||cl.line_detail_index||' sum '||cl3.lumpsum_qty);
779: END IF;
780: QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index) := cl3.lumpsum_qty;
781: end loop; --cl3
781: end loop; --cl3
782: */
783: EXCEPTION
784: When OTHERS Then
785: IF l_debug = FND_API.G_TRUE THEN
786: QP_PREQ_GRP.engine_debug('EXCEPTION Determine_svc_item_quantity');
787: END IF;
788: null;
789: END Determine_svc_item_quantity;
794: , p_priced_quantity NUMBER := 1
795: , p_operand_calculation_code IN QP_LIST_LINES.ARITHMETIC_OPERATOR%TYPE
796: , p_operand_value IN NUMBER
797: , x_calc_adjustment OUT NOCOPY NUMBER
798: , x_return_status OUT NOCOPY VARCHAR2 --DEFAULT FND_API.G_RET_STS_SUCCESS
799: , x_return_status_text OUT NOCOPY VARCHAR2)
800: IS
801:
802: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.CALCULATE_BUCKET_PRICE';
801:
802: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.CALCULATE_BUCKET_PRICE';
803: BEGIN
804: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
805: IF l_debug = FND_API.G_TRUE THEN
806: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate bucket price qty'
807: || p_priced_quantity ||' operator '|| p_operand_calculation_code);
808:
809: END IF;
814: --fix for bug 2245528
815: --included abs function for -ve price to get right adj amt
816: -- Bug#3002549 reverted the fix done for bug 2245528
817: x_calc_adjustment := p_price * p_operand_value / 100;
818: IF l_debug = FND_API.G_TRUE THEN
819: QP_PREQ_GRP.ENGINE_DEBUG('calculate % price ' || x_calc_adjustment);
820: END IF;
821: ELSIF p_operand_calculation_code = G_AMOUNT_DISCOUNT
822: THEN
820: END IF;
821: ELSIF p_operand_calculation_code = G_AMOUNT_DISCOUNT
822: THEN
823: x_calc_adjustment := p_operand_value;
824: IF l_debug = FND_API.G_TRUE THEN
825: QP_PREQ_GRP.ENGINE_DEBUG('calculate amt price '|| x_calc_adjustment);
826: END IF;
827: ELSIF p_operand_calculation_code = G_NEWPRICE_DISCOUNT
828: THEN
828: THEN
829: --removed absolute value to account for negative newprice
830: --bug 2065609
831: x_calc_adjustment := - 1 * (p_price - (p_operand_value));
832: IF l_debug = FND_API.G_TRUE THEN
833: QP_PREQ_GRP.ENGINE_DEBUG('calculate newp price '|| x_calc_adjustment);
834: END IF;
835: ELSIF p_operand_calculation_code = G_LUMPSUM_DISCOUNT
836: THEN
835: ELSIF p_operand_calculation_code = G_LUMPSUM_DISCOUNT
836: THEN
837: --fix for bug 2394680 for zero list price qty can be 0
838: --in case of line group lumpsum based on item amount
839: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM qty means infinity; this qty and zero qty yield no adj
840: IF (p_priced_quantity = FND_API.G_NULL_NUM or p_priced_quantity = 0) THEN
841: x_calc_adjustment := 0;
842: ELSE
843: x_calc_adjustment := p_operand_value / nvl(p_priced_quantity, 1);
836: THEN
837: --fix for bug 2394680 for zero list price qty can be 0
838: --in case of line group lumpsum based on item amount
839: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM qty means infinity; this qty and zero qty yield no adj
840: IF (p_priced_quantity = FND_API.G_NULL_NUM or p_priced_quantity = 0) THEN
841: x_calc_adjustment := 0;
842: ELSE
843: x_calc_adjustment := p_operand_value / nvl(p_priced_quantity, 1);
844: END IF;
841: x_calc_adjustment := 0;
842: ELSE
843: x_calc_adjustment := p_operand_value / nvl(p_priced_quantity, 1);
844: END IF;
845: IF l_debug = FND_API.G_TRUE THEN
846: QP_PREQ_GRP.ENGINE_DEBUG('calculate lump price qty '
847: || p_priced_quantity || x_calc_adjustment);
848: END IF;
849: ELSE NULL;
848: END IF;
849: ELSE NULL;
850: END IF; --p_operand_calculation_code
851:
852: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
853: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS';
854:
855:
856: x_calc_adjustment := nvl(x_calc_adjustment, 0);
855:
856: x_calc_adjustment := nvl(x_calc_adjustment, 0);
857:
858:
859: IF l_debug = FND_API.G_TRUE THEN
860: QP_PREQ_GRP.ENGINE_DEBUG('end calculate bucket price: passed price '
861: || p_price ||' passed_operand '|| p_operand_value ||
862: ' calculated rounded adjustment '|| x_calc_adjustment);
863:
863:
864: END IF;
865: EXCEPTION
866: WHEN OTHERS THEN
867: IF l_debug = FND_API.G_TRUE THEN
868: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculating bucket price '|| SQLERRM);
869: END IF;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: x_return_status_text := l_routine ||' '|| SQLERRM;
866: WHEN OTHERS THEN
867: IF l_debug = FND_API.G_TRUE THEN
868: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculating bucket price '|| SQLERRM);
869: END IF;
870: x_return_status := FND_API.G_RET_STS_ERROR;
871: x_return_status_text := l_routine ||' '|| SQLERRM;
872: END CALCULATE_BUCKET_PRICE;
873:
874:
882: , p_adjustment_type IN VARCHAR2
883: , x_adjustment_amount OUT NOCOPY NUMBER
884: , x_operand_value OUT NOCOPY NUMBER
885: , x_process_code OUT NOCOPY BOOLEAN
886: , x_return_status OUT NOCOPY VARCHAR2 --DEFAULT FND_API.G_RET_STS_SUCCESS
887: , x_return_status_text OUT NOCOPY VARCHAR2) IS --DEFAULT FND_API.G_RET_STS_SUCCESS) IS
888:
889: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.BACK_CALCULATE_PRICE';
890: ZERO_LIST_PRICE EXCEPTION;
883: , x_adjustment_amount OUT NOCOPY NUMBER
884: , x_operand_value OUT NOCOPY NUMBER
885: , x_process_code OUT NOCOPY BOOLEAN
886: , x_return_status OUT NOCOPY VARCHAR2 --DEFAULT FND_API.G_RET_STS_SUCCESS
887: , x_return_status_text OUT NOCOPY VARCHAR2) IS --DEFAULT FND_API.G_RET_STS_SUCCESS) IS
888:
889: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.BACK_CALCULATE_PRICE';
890: ZERO_LIST_PRICE EXCEPTION;
891:
890: ZERO_LIST_PRICE EXCEPTION;
891:
892: BEGIN
893: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
894: IF l_debug = FND_API.G_TRUE THEN
895: QP_PREQ_GRP.ENGINE_DEBUG('start back calculate adjustment:
896: adjustment type '|| p_adjustment_type ||
897: ' amount changed passed '|| p_amount_changed ||
898: ' price passed '|| p_list_price ||
918: ELSIF p_operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
919: x_operand_value := ABS(x_adjustment_amount) * p_priced_quantity;
920: END IF;
921:
922: IF l_debug = FND_API.G_TRUE THEN
923: QP_PREQ_GRP.ENGINE_DEBUG('adjustment amt calculated'
924: || x_adjustment_amount);
925:
926: END IF;
925:
926: END IF;
927: IF p_adjustment_type = G_DISCOUNT AND (x_adjustment_amount <= 0
928: OR p_operand_calculation_code = G_NEWPRICE_DISCOUNT) THEN
929: IF l_debug = FND_API.G_TRUE THEN
930: QP_PREQ_GRP.ENGINE_DEBUG('Manual Adjustment is Discount '|| p_adjustment_type);
931: END IF;
932: x_process_code := TRUE;
933: ELSIF p_adjustment_type = G_SURCHARGE AND x_adjustment_amount >= 0 THEN
930: QP_PREQ_GRP.ENGINE_DEBUG('Manual Adjustment is Discount '|| p_adjustment_type);
931: END IF;
932: x_process_code := TRUE;
933: ELSIF p_adjustment_type = G_SURCHARGE AND x_adjustment_amount >= 0 THEN
934: IF l_debug = FND_API.G_TRUE THEN
935: QP_PREQ_GRP.ENGINE_DEBUG('Manual Adjustment is Surcharge '|| p_adjustment_type);
936: END IF;
937: x_process_code := TRUE;
938: ELSE
935: QP_PREQ_GRP.ENGINE_DEBUG('Manual Adjustment is Surcharge '|| p_adjustment_type);
936: END IF;
937: x_process_code := TRUE;
938: ELSE
939: IF l_debug = FND_API.G_TRUE THEN
940: QP_PREQ_GRP.ENGINE_DEBUG('Manual Adjustment is not DIS/SUR'|| p_adjustment_type);
941: END IF;
942: x_process_code := FALSE;
943: END IF;
943: END IF;
944:
945:
946:
947: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
948: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS';
949:
950:
951: IF l_debug = FND_API.G_TRUE THEN
947: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
948: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS';
949:
950:
951: IF l_debug = FND_API.G_TRUE THEN
952: QP_PREQ_GRP.ENGINE_DEBUG('end back calculate adjustment:
953: adjustment amoutn calculated '|| x_adjustment_amount ||
954: ' operand calculated '|| x_operand_value);
955:
955:
956: END IF;
957: EXCEPTION
958: WHEN ZERO_LIST_PRICE THEN
959: IF l_debug = FND_API.G_TRUE THEN
960: QP_PREQ_GRP.ENGINE_DEBUG('exception back calculate adj '|| SQLERRM);
961: END IF;
962: x_return_status := FND_API.G_RET_STS_ERROR;
963: x_return_status_text := l_routine ||' '||'CANNOT OVERRIDE ZERO OR NULL LIST PRICE WITH % BASED ADJUSTMENT';
958: WHEN ZERO_LIST_PRICE THEN
959: IF l_debug = FND_API.G_TRUE THEN
960: QP_PREQ_GRP.ENGINE_DEBUG('exception back calculate adj '|| SQLERRM);
961: END IF;
962: x_return_status := FND_API.G_RET_STS_ERROR;
963: x_return_status_text := l_routine ||' '||'CANNOT OVERRIDE ZERO OR NULL LIST PRICE WITH % BASED ADJUSTMENT';
964: WHEN OTHERS THEN
965: IF l_debug = FND_API.G_TRUE THEN
966: QP_PREQ_GRP.ENGINE_DEBUG('exception back calculate adj '|| SQLERRM);
961: END IF;
962: x_return_status := FND_API.G_RET_STS_ERROR;
963: x_return_status_text := l_routine ||' '||'CANNOT OVERRIDE ZERO OR NULL LIST PRICE WITH % BASED ADJUSTMENT';
964: WHEN OTHERS THEN
965: IF l_debug = FND_API.G_TRUE THEN
966: QP_PREQ_GRP.ENGINE_DEBUG('exception back calculate adj '|| SQLERRM);
967: END IF;
968: x_return_status := FND_API.G_RET_STS_ERROR;
969: x_return_status_text := l_routine ||' '|| SQLERRM;
964: WHEN OTHERS THEN
965: IF l_debug = FND_API.G_TRUE THEN
966: QP_PREQ_GRP.ENGINE_DEBUG('exception back calculate adj '|| SQLERRM);
967: END IF;
968: x_return_status := FND_API.G_RET_STS_ERROR;
969: x_return_status_text := l_routine ||' '|| SQLERRM;
970:
971: END BACK_CALCULATE_PRICE;
972:
1003: --needs to be zero
1004: --we will default the null qty to 1 so that we can avoid divide_by_zero
1005:
1006: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1007: x_return_status := FND_API.G_RET_STS_SUCCESS;
1008:
1009: IF l_debug = FND_API.G_TRUE THEN
1010: QP_PREQ_GRP.engine_debug('BEGIN GET_ORDERQTY_VALUES: line_qty '
1011: || p_ordered_qty ||' priced_qty '|| p_priced_qty ||' catchwtqty '
1005:
1006: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1007: x_return_status := FND_API.G_RET_STS_SUCCESS;
1008:
1009: IF l_debug = FND_API.G_TRUE THEN
1010: QP_PREQ_GRP.engine_debug('BEGIN GET_ORDERQTY_VALUES: line_qty '
1011: || p_ordered_qty ||' priced_qty '|| p_priced_qty ||' catchwtqty '
1012: || p_catchweight_qty || 'actual order qty ' || p_actual_order_qty || ' unitprice '
1013: || p_unit_price ||' sellingprice '
1094: END IF;
1095:
1096: END IF; --p_input_type
1097:
1098: IF l_debug = FND_API.G_TRUE THEN
1099: QP_PREQ_GRP.engine_debug('Output GET_ORDERQTY_VALUES '||'output1 '
1100: || x_ordqty_output1 ||' output2 '|| x_ordqty_output2);
1101: END IF; --l_debug
1102:
1099: QP_PREQ_GRP.engine_debug('Output GET_ORDERQTY_VALUES '||'output1 '
1100: || x_ordqty_output1 ||' output2 '|| x_ordqty_output2);
1101: END IF; --l_debug
1102:
1103: x_return_status := FND_API.G_RET_STS_SUCCESS;
1104:
1105: EXCEPTION
1106: WHEN OTHERS THEN
1107: IF l_debug = FND_API.G_TRUE THEN
1103: x_return_status := FND_API.G_RET_STS_SUCCESS;
1104:
1105: EXCEPTION
1106: WHEN OTHERS THEN
1107: IF l_debug = FND_API.G_TRUE THEN
1108: QP_PREQ_GRP.engine_debug('Exception in GET_ORDERQTY_VALUES '|| SQLERRM);
1109: END IF; --l_debug
1110: x_ordqty_output1 := 0;
1111: x_ordqty_output2 := 0;
1108: QP_PREQ_GRP.engine_debug('Exception in GET_ORDERQTY_VALUES '|| SQLERRM);
1109: END IF; --l_debug
1110: x_ordqty_output1 := 0;
1111: x_ordqty_output2 := 0;
1112: x_return_status := FND_API.G_RET_STS_ERROR;
1113: END GET_ORDERQTY_VALUES;
1114:
1115: --This procedure is to update the order_qty_adj_amt and order_qty_operand
1116: --on manual adjustments which do not go through calculation cursor
1154: BEGIN
1155: --initialise
1156: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1157:
1158: IF (l_debug = FND_API.G_TRUE) THEN
1159: QP_PREQ_GRP.engine_debug('Begin Update_Adj_orderqty_cols');
1160: END IF; --l_debug
1161:
1162: OPEN l_update_adj_cur;
1179: l_ordqty_catchweight_qty,
1180: l_ordqty_ordered_qty;
1181: CLOSE l_update_adj_cur;
1182:
1183: IF (l_debug = FND_API.G_TRUE) THEN
1184: QP_PREQ_GRP.engine_debug('After cur Update_Adj_orderqty_cols');
1185: END IF; --l_debug
1186:
1187: IF l_ordqty_line_dtl_index.COUNT > 0 THEN
1187: IF l_ordqty_line_dtl_index.COUNT > 0 THEN
1188: FOR i IN l_ordqty_line_dtl_index.FIRST..l_ordqty_line_dtl_index.LAST
1189: LOOP
1190: IF (l_ordqty_ordered_qty(i) <> 0 OR l_ordqty_mod_lvl(i) = G_ORDER_LEVEL) THEN
1191: IF (l_debug = FND_API.G_TRUE) THEN
1192: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #5');
1193: END IF;
1194:
1195: GET_ORDERQTY_VALUES(p_ordered_qty => l_ordqty_ordered_qty(i),
1206: x_ordqty_output2 => l_dummy,
1207: x_return_status => x_return_status,
1208: x_return_status_text => x_return_status_text);
1209: ELSE --l_ordqty_ordered_qty
1210: IF l_debug = FND_API.G_TRUE THEN
1211: QP_PREQ_GRP.engine_debug('Ordered Qty #5: '|| l_ordqty_ordered_qty(i));
1212: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty=0 or modlvlcode <> ORDER');
1213: END IF; --l_debug
1214: l_ordqty_ord_qty_operand(i) := 0;
1216: END LOOP; --i
1217: END IF; --l_ordqty_line_dtl_index
1218:
1219: IF l_ordqty_line_dtl_index.COUNT > 0 THEN
1220: IF l_debug = FND_API.G_TRUE THEN
1221: FOR j IN l_ordqty_line_dtl_index.FIRST..l_ordqty_line_dtl_index.LAST
1222: LOOP
1223: QP_PREQ_GRP.engine_debug('Ordqty update line_dtl_index '
1224: || l_ordqty_line_dtl_index(j) ||' ordqty_operand '
1230: UPDATE qp_npreq_ldets_tmp SET order_qty_operand = l_ordqty_ord_qty_operand(i)
1231: WHERE line_detail_index = l_ordqty_line_dtl_index(i);
1232: END IF; --l_ordqty_line_dtl_index.COUNT
1233:
1234: IF (l_debug = FND_API.G_TRUE) THEN
1235: QP_PREQ_GRP.engine_debug('End Update_Adj_orderqty_cols');
1236: END IF; --l_debug
1237:
1238: EXCEPTION
1236: END IF; --l_debug
1237:
1238: EXCEPTION
1239: WHEN OTHERS THEN
1240: IF l_debug = FND_API.G_TRUE THEN
1241: QP_PREQ_GRP.engine_debug('Exception in Update_Adj_orderqty_cols '|| SQLERRM);
1242: END IF; --l_debug
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: x_return_status_text := 'Exception in Update_Adj_orderqty_cols '|| SQLERRM;
1239: WHEN OTHERS THEN
1240: IF l_debug = FND_API.G_TRUE THEN
1241: QP_PREQ_GRP.engine_debug('Exception in Update_Adj_orderqty_cols '|| SQLERRM);
1242: END IF; --l_debug
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: x_return_status_text := 'Exception in Update_Adj_orderqty_cols '|| SQLERRM;
1245: END Update_Adj_orderqty_cols;
1246:
1247: --For bug 2447181 for changed lines functionality
1267: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1268: l_header_id := NULL;
1269: l_exist_changed_order_adj := G_NO;
1270:
1271: IF l_debug = FND_API.G_TRUE THEN
1272: QP_PREQ_GRP.engine_debug('Begin Check_order_lines_change: chk_cust '
1273: || G_CHECK_CUST_VIEW_FLAG ||' full_pricing_call '|| p_full_pricing_call);
1274:
1275: END IF;
1282: THEN
1283: --this is for OM/OC direct insert performance code path
1284: --there cannot be manual adjustments on the order header
1285:
1286: IF l_debug = FND_API.G_TRUE THEN
1287: QP_PREQ_GRP.engine_debug('starting order line check ');
1288: END IF;
1289: BEGIN
1290: SELECT line_id INTO l_header_id
1296: WHEN OTHERS THEN
1297: l_header_id := NULL;
1298: END;
1299:
1300: IF l_debug = FND_API.G_TRUE THEN
1301: QP_PREQ_GRP.engine_debug('checking header id '|| l_header_id);
1302:
1303: END IF;
1304: IF l_header_id IS NOT NULL THEN
1316: ELSE --l_header_id
1317: l_exist_changed_order_adj := G_NO;
1318: END IF; --l_header_id
1319:
1320: IF l_debug = FND_API.G_TRUE THEN
1321: QP_PREQ_GRP.engine_debug('there are header adj changes '
1322: || l_exist_changed_order_adj);
1323:
1324: END IF;
1326: --and there are new or updated summary level automatic adjustments
1327: -- IF l_header_id is not null
1328: IF l_exist_changed_order_adj = G_YES
1329: THEN
1330: IF l_debug = FND_API.G_TRUE THEN
1331: QP_PREQ_GRP.engine_debug('checking header adj operand changes');
1332: END IF;
1333: BEGIN
1334: SELECT SUM(operand_value) INTO l_ldet_sum_operand
1344:
1345: l_adj_sum_operand :=
1346: QP_CLEANUP_ADJUSTMENTS_PVT.get_sum_operand(l_header_id);
1347:
1348: IF l_debug = FND_API.G_TRUE THEN
1349: QP_PREQ_GRP.engine_debug('ldet header adj sum operand '
1350: || l_ldet_sum_operand);
1351: QP_PREQ_GRP.engine_debug('oe_price_adj header adj sum operand '
1352: || l_adj_sum_operand);
1370: -- they pass reqtype ONT and insert adj into ldets
1371: ELSIF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG <> G_YES
1372: AND p_full_pricing_call = G_NO THEN
1373: --this is for non-OM calling applications
1374: IF l_debug = FND_API.G_TRUE THEN
1375: QP_PREQ_GRP.engine_debug('starting order line check ');
1376: END IF;
1377: --check if there is a summary line passed and it has no errors
1378: BEGIN
1385: WHEN OTHERS THEN
1386: l_header_id := NULL;
1387: END;
1388:
1389: IF l_debug = FND_API.G_TRUE THEN
1390: QP_PREQ_GRP.engine_debug('checking header id '|| l_header_id);
1391: END IF;
1392: --if there is a summary line, make sure there are applied adj against it
1393: IF l_header_id IS NOT NULL THEN
1404: ELSE --l_header_id
1405: l_exist_changed_order_adj := G_NO;
1406: END IF; --l_header_id
1407:
1408: IF l_debug = FND_API.G_TRUE THEN
1409: QP_PREQ_GRP.engine_debug('there are header adj changes '
1410: || l_exist_changed_order_adj);
1411: END IF;
1412: --do this only if the header does not have error status
1413: --and there are new or updated summary level automatic adjustments
1414: -- IF l_header_id is not null
1415: IF l_exist_changed_order_adj = G_YES
1416: THEN
1417: IF l_debug = FND_API.G_TRUE THEN
1418: QP_PREQ_GRP.engine_debug('checking header adj operand changes');
1419: END IF;
1420: BEGIN
1421: SELECT SUM(operand_value) INTO l_ldet_sum_operand
1440: WHEN OTHERS THEN
1441: l_adj_sum_operand := 0;
1442: END;
1443:
1444: IF l_debug = FND_API.G_TRUE THEN
1445: QP_PREQ_GRP.engine_debug('ldet header adj sum operand '
1446: || l_ldet_sum_operand);
1447: QP_PREQ_GRP.engine_debug('oe_price_adj header adj sum operand '
1448: || l_adj_sum_operand);
1462: END IF; --l_ldet_sum_operand
1463: END IF; --l_exist_changed_order_adj
1464: ELSE
1465: --the p_full_pricing_call is 'Y'
1466: IF l_debug = FND_API.G_TRUE THEN
1467: QP_PREQ_GRP.engine_debug('no change header adj');
1468: END IF;
1469: END IF; --p_request_type_code
1470: x_return_status := FND_API.G_RET_STS_SUCCESS;
1466: IF l_debug = FND_API.G_TRUE THEN
1467: QP_PREQ_GRP.engine_debug('no change header adj');
1468: END IF;
1469: END IF; --p_request_type_code
1470: x_return_status := FND_API.G_RET_STS_SUCCESS;
1471:
1472: EXCEPTION
1473: WHEN OTHERS THEN
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1470: x_return_status := FND_API.G_RET_STS_SUCCESS;
1471:
1472: EXCEPTION
1473: WHEN OTHERS THEN
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: x_return_status_text := l_routine ||' '|| SQLERRM;
1476: IF l_debug = FND_API.G_TRUE THEN
1477: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
1478: END IF;
1472: EXCEPTION
1473: WHEN OTHERS THEN
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: x_return_status_text := l_routine ||' '|| SQLERRM;
1476: IF l_debug = FND_API.G_TRUE THEN
1477: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
1478: END IF;
1479: END CHECK_ORDER_LINE_CHANGES;
1480:
2022: l_pbh_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2023: l_prg_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2024:
2025: BEGIN
2026: x_return_status := FND_API.G_RET_STS_SUCCESS;
2027: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2028:
2029: --per bug3238607, no need to check HVOP
2030: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2028:
2029: --per bug3238607, no need to check HVOP
2030: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2031: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2032: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2033: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2034: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2036: END IF;
2099: l_BREAK_UOM_CONTEXT.DELETE;
2100: l_BREAK_UOM_ATTRIBUTE.DELETE;
2101: l_PROCESS_CODE.DELETE; -- 3215497
2102:
2103: IF l_debug = FND_API.G_TRUE THEN
2104: QP_PREQ_GRP.engine_debug('fetching l_ldets_cur');
2105: END IF;
2106:
2107: FETCH l_ldets_cur
2170: l_PROCESS_CODE; -- 3215497
2171: -- LIMIT nrows;
2172: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2173:
2174: IF l_debug = FND_API.G_TRUE THEN
2175: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2176: END IF;
2177:
2178: IF l_LINE_DETAIL_index.COUNT > 0
2175: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2176: END IF;
2177:
2178: IF l_LINE_DETAIL_index.COUNT > 0
2179: AND l_debug = FND_API.G_TRUE
2180: THEN
2181: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2182: LOOP
2183: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2250: END LOOP;
2251: END IF; --l_line_detail_index.COUNT
2252:
2253: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2254: IF l_debug = FND_API.G_TRUE THEN
2255: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2256: END IF;
2257: QP_PREQ_GRP.INSERT_LDETS2
2258: (l_LINE_DETAIL_index,
2322: END IF;
2323: END LOOP;
2324: CLOSE l_ldets_cur;
2325:
2326: IF l_debug = FND_API.G_TRUE THEN
2327: QP_PREQ_GRP.engine_debug('close l_ldets_cur');
2328: END IF;
2329:
2330:
2327: QP_PREQ_GRP.engine_debug('close l_ldets_cur');
2328: END IF;
2329:
2330:
2331: IF l_debug = FND_API.G_TRUE THEN
2332: QP_PREQ_GRP.engine_debug('Begin Insert rltd lines');
2333: END IF;
2334:
2335: OPEN l_pbh_adj_exists_cur;
2339: OPEN l_prg_adj_exists_cur;
2340: FETCH l_prg_adj_exists_cur INTO l_prg_adj_exists;
2341: CLOSE l_prg_adj_exists_cur;
2342:
2343: IF l_debug = FND_API.G_TRUE THEN
2344: QP_PREQ_GRP.engine_debug('Check l_pbh_adj_exists '|| l_pbh_adj_exists);
2345: QP_PREQ_GRP.engine_debug('Check l_prg_adj_exists '|| l_prg_adj_exists);
2346: END IF;
2347:
2358: l_LIST_LINE_ID.DELETE;
2359: l_RLTD_LIST_LINE_ID.DELETE;
2360: l_pricing_status_text.DELETE;
2361:
2362: IF l_debug = FND_API.G_TRUE THEN
2363: QP_PREQ_GRP.engine_debug('fetching l_rltd_lines_cur');
2364: END IF;
2365:
2366: FETCH l_rltd_lines_cur
2375: l_pricing_status_text;
2376: -- LIMIT nrows;
2377: EXIT WHEN l_LINE_index1.COUNT = 0;
2378:
2379: IF l_debug = FND_API.G_TRUE THEN
2380: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_index1.COUNT);
2381: END IF;
2382:
2383: IF l_LINE_index1.COUNT > 0
2380: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_index1.COUNT);
2381: END IF;
2382:
2383: IF l_LINE_index1.COUNT > 0
2384: AND l_debug = FND_API.G_TRUE
2385: THEN
2386: FOR i IN l_LINE_index1.FIRST..l_LINE_index1.LAST
2387: LOOP
2388: QP_PREQ_GRP.engine_debug('======line_index: '|| l_LINE_index1(i) ||
2395: ' pricing_status_text:' || l_pricing_status_text(i));
2396: END LOOP;
2397: END IF; --l_LINE_index1.COUNT
2398:
2399: IF l_debug = FND_API.G_TRUE THEN
2400: QP_PREQ_GRP.engine_debug('calling INSERT_RLTD_LDETS2');
2401: END IF;
2402: QP_PREQ_GRP.INSERT_RLTD_LINES2
2403: (l_LINE_INDEX1
2417: */ --need to delete them later
2418: END LOOP;
2419: CLOSE l_rltd_lines_cur;
2420:
2421: IF l_debug = FND_API.G_TRUE THEN
2422: QP_PREQ_GRP.engine_debug('close l_rltd_lines_cur');
2423: END IF;
2424:
2425: IF l_prg_adj_exists = 'Y' THEN
2487: l_BREAK_UOM_CONTEXT.DELETE;
2488: l_BREAK_UOM_ATTRIBUTE.DELETE;
2489: l_PROCESS_CODE.DELETE; -- 3215497
2490:
2491: IF l_debug = FND_API.G_TRUE THEN
2492: QP_PREQ_GRP.engine_debug('fetching l_getline_dis_cur');
2493: END IF;
2494:
2495: FETCH l_getline_dis_cur
2558: l_PROCESS_CODE; -- 3215497
2559: -- LIMIT nrows;
2560: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2561:
2562: IF l_debug = FND_API.G_TRUE THEN
2563: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2564: END IF;
2565:
2566: IF l_LINE_DETAIL_index.COUNT > 0
2563: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2564: END IF;
2565:
2566: IF l_LINE_DETAIL_index.COUNT > 0
2567: AND l_debug = FND_API.G_TRUE
2568: THEN
2569: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2570: LOOP
2571: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2638: END LOOP;
2639: END IF; --l_line_detail_index.COUNT
2640:
2641: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2642: IF l_debug = FND_API.G_TRUE THEN
2643: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2644: END IF;
2645: QP_PREQ_GRP.INSERT_LDETS2
2646: (l_LINE_DETAIL_index,
2711: END LOOP;
2712: --CLOSE l_ldets_cur;
2713: CLOSE l_getline_dis_cur;
2714:
2715: IF l_debug = FND_API.G_TRUE THEN
2716: QP_PREQ_GRP.engine_debug('close l_getline_dis_cur');
2717: END IF;
2718:
2719: END IF;
2787: AND ldet.created_from_list_line_type = G_PRICE_BREAK_TYPE)
2788: AND rltd.relationship_type_code = G_PBH_LINE
2789: AND rltd.pricing_status_code = G_STATUS_NEW;
2790:
2791: IF (l_debug = FND_API.G_TRUE) THEN
2792: QP_PREQ_GRP.engine_debug('Updating PBH rltd dlts COUNT: '
2793: || SQL%ROWCOUNT);
2794: QP_PREQ_GRP.engine_debug('Updating the child detail type code');
2795: END IF;
2800: FROM qp_npreq_rltd_lines_tmp
2801: WHERE relationship_type_code = G_PBH_LINE
2802: AND pricing_status_code = G_STATUS_NEW);
2803:
2804: IF (l_debug = FND_API.G_TRUE) THEN
2805: FOR i IN (SELECT line_detail_index
2806: FROM qp_npreq_ldets_tmp
2807: WHERE line_detail_type_code = QP_PREQ_PUB.G_CHILD_DETAIL_TYPE)
2808: LOOP
2811:
2812: END IF;
2813:
2814:
2815: x_return_status := FND_API.G_RET_STS_SUCCESS;
2816: EXCEPTION
2817: WHEN OTHERS THEN
2818: x_return_status := FND_API.G_RET_STS_ERROR;
2819: x_return_status_text := 'Exception in updated_passed_pbh '|| SQLERRM;
2814:
2815: x_return_status := FND_API.G_RET_STS_SUCCESS;
2816: EXCEPTION
2817: WHEN OTHERS THEN
2818: x_return_status := FND_API.G_RET_STS_ERROR;
2819: x_return_status_text := 'Exception in updated_passed_pbh '|| SQLERRM;
2820: END Update_passed_in_pbh;
2821:
2822: FUNCTION CHECK_GSA_INDICATOR RETURN VARCHAR2 IS
2834:
2835: l_gsa_indicator VARCHAR2(1) := 'N';
2836: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.CHECK_GSA_INDICATOR';
2837: BEGIN
2838: IF l_debug = FND_API.G_TRUE THEN
2839: QP_PREQ_GRP.engine_debug('Begin CHECK_GSA_INDICATOR '|| l_gsa_indicator);
2840:
2841: END IF;
2842: OPEN l_check_gsa_ind_cur;
2842: OPEN l_check_gsa_ind_cur;
2843: FETCH l_check_gsa_ind_cur INTO l_gsa_indicator;
2844: CLOSE l_check_gsa_ind_cur;
2845:
2846: IF l_debug = FND_API.G_TRUE THEN
2847: QP_PREQ_GRP.engine_debug('Cursor fetched '|| l_gsa_indicator);
2848:
2849: END IF;
2850: RETURN l_gsa_indicator;
2848:
2849: END IF;
2850: RETURN l_gsa_indicator;
2851:
2852: IF l_debug = FND_API.G_TRUE THEN
2853: QP_PREQ_GRP.engine_debug('END CHECK_GSA_INDICATOR ');
2854: END IF;
2855: EXCEPTION
2856: WHEN OTHERS THEN
2853: QP_PREQ_GRP.engine_debug('END CHECK_GSA_INDICATOR ');
2854: END IF;
2855: EXCEPTION
2856: WHEN OTHERS THEN
2857: IF l_debug = FND_API.G_TRUE THEN
2858: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
2859: END IF;
2860: RETURN l_gsa_indicator;
2861: END CHECK_GSA_INDICATOR;
2962: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2963: l_gsa_line_index_tbl.DELETE;
2964: l_gsa_sts_text_tbl.DELETE;
2965:
2966: IF l_debug = FND_API.G_TRUE THEN
2967: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
2968:
2969: END IF;
2970: -- Call GSA Check only for non-gsa customers(GSA_QUALIFIER_FLAG IS NULL)
2971: IF G_GSA_CHECK_FLAG = G_YES
2972: AND G_GSA_ENABLED_FLAG = G_YES
2973: AND G_GSA_INDICATOR = G_NO
2974: THEN
2975: IF l_debug = FND_API.G_TRUE THEN
2976: QP_PREQ_GRP.engine_debug('IN GSA check attrmgr '|| G_ATTR_MGR_INSTALLED);
2977:
2978: END IF;
2979: IF G_ATTR_MGR_INSTALLED = G_NO
2980: THEN
2981: FOR GSA IN l_gsa_check_cur
2982: LOOP
2983: -- I := I + 1; bug2426025 placed the counter in the if condition
2984: IF l_debug = FND_API.G_TRUE THEN
2985: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2986: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2987: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2988: END IF;
2990: THEN
2991: I := I + 1;
2992: l_gsa_line_index_tbl(I) := GSA.line_index;
2993: l_gsa_sts_text_tbl(I) := GSA.operand;
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
2996: || l_gsa_line_index_tbl(I));
2997: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
2998: || l_gsa_sts_text_tbl(I));
3002: ELSE --G_ATTR_MGR_INSTALLED --not installed
3003: FOR GSA IN l_attrmgr_gsa_check_cur
3004: LOOP
3005: -- I := I + 1; bug2426025 placed the counter in the if condition
3006: IF l_debug = FND_API.G_TRUE THEN
3007: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3008: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3009: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3010: END IF;
3012: THEN
3013: I := I + 1;
3014: l_gsa_line_index_tbl(I) := GSA.line_index;
3015: l_gsa_sts_text_tbl(I) := GSA.operand;
3016: IF l_debug = FND_API.G_TRUE THEN
3017: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3018: || l_gsa_line_index_tbl(I));
3019: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3020: || l_gsa_sts_text_tbl(I));
3022: END IF;
3023: END LOOP; --l_attrmgr_gsa_check_cur
3024: END IF; --G_ATTR_MGR_INSTALLED --not installed
3025:
3026: IF l_debug = FND_API.G_TRUE THEN
3027: QP_PREQ_GRP.engine_debug('AFTER GSA check');
3028: END IF;
3029: END IF;
3030:
3029: END IF;
3030:
3031: IF l_gsa_line_index_tbl.COUNT > 0
3032: THEN
3033: IF l_debug = FND_API.G_TRUE THEN
3034: QP_PREQ_GRP.engine_debug('Before GSA update '|| l_gsa_line_index_tbl.COUNT);
3035: END IF;
3036: FORALL I IN l_gsa_line_index_tbl.FIRST..l_gsa_line_index_tbl.LAST
3037: UPDATE qp_npreq_lines_tmp
3040: 'GSA VIOLATION - GSA PRICE '|| l_gsa_sts_text_tbl(I)
3041: WHERE line_index = l_gsa_line_index_tbl(I);
3042: END IF; --l_gsa_line_index_tbl.COUNT
3043:
3044: IF l_debug = FND_API.G_TRUE THEN
3045: QP_PREQ_GRP.engine_debug('Pub GSA check completed');
3046:
3047: END IF;
3048: --GSA VIOLATION CHECK
3049:
3050:
3051: EXCEPTION
3052: WHEN OTHERS THEN
3053: IF l_debug = FND_API.G_TRUE THEN
3054: QP_PREQ_GRP.ENGINE_DEBUG('exception QP_PREQ_PUB.check gsa_violation: '|| SQLERRM);
3055: END IF;
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: x_return_status_text := 'QP_PREQ_PUB.check gsa_violation: '|| SQLERRM;
3052: WHEN OTHERS THEN
3053: IF l_debug = FND_API.G_TRUE THEN
3054: QP_PREQ_GRP.ENGINE_DEBUG('exception QP_PREQ_PUB.check gsa_violation: '|| SQLERRM);
3055: END IF;
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: x_return_status_text := 'QP_PREQ_PUB.check gsa_violation: '|| SQLERRM;
3058: END CHECK_GSA_VIOLATION;
3059:
3060:
3174: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3175: --**************************************************************
3176: --BACK CALCULATION ROUTINE
3177: --**************************************************************
3178: IF l_debug = FND_API.G_TRUE THEN
3179: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE '
3180: || G_BACK_CALCULATION_CODE);
3181:
3182:
3182:
3183: END IF;
3184: OPEN l_back_calculate_cur;
3185: --LOOP
3186: IF l_debug = FND_API.G_TRUE THEN
3187: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE1');
3188: END IF;
3189: l_back_list_line_id_tbl.DELETE;
3190: l_back_line_index_tbl.DELETE;
3247: l_back_bucket_tbl,
3248: l_back_list_line_no_tbl,
3249: l_back_calculation_code_tbl,
3250: l_back_calc_precedence_tbl;
3251: IF l_debug = FND_API.G_TRUE THEN
3252: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2');
3253: END IF;
3254: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3255: CLOSE l_back_calculate_cur;
3253: END IF;
3254: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3255: CLOSE l_back_calculate_cur;
3256:
3257: IF l_debug = FND_API.G_TRUE THEN
3258: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3259: END IF;
3260: --DEBUG
3261: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3257: IF l_debug = FND_API.G_TRUE THEN
3258: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3259: END IF;
3260: --DEBUG
3261: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3262: AND l_back_list_line_id_tbl.COUNT>0
3263: THEN
3264: IF l_debug = FND_API.G_TRUE THEN
3265: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3260: --DEBUG
3261: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3262: AND l_back_list_line_id_tbl.COUNT>0
3263: THEN
3264: IF l_debug = FND_API.G_TRUE THEN
3265: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3266: END IF;
3267: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3268: LOOP
3265: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3266: END IF;
3267: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3268: LOOP
3269: IF l_debug = FND_API.G_TRUE THEN
3270: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4');
3271: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ADJ '
3272: || l_back_list_line_id_tbl(i) ||' line index '
3273: || l_back_line_index_tbl(i) ||' detail index '
3288: END IF;
3289: END LOOP;
3290: END IF;
3291:
3292: IF l_debug = FND_API.G_TRUE THEN
3293: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4.5');
3294: END IF;
3295: IF l_back_line_index_tbl.COUNT > 0
3296: THEN
3298: THEN
3299: FOR I IN
3300: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3301: LOOP
3302: IF l_debug = FND_API.G_TRUE THEN
3303: QP_PREQ_GRP.ENGINE_DEBUG('forward loop '|| i);
3304: END IF;
3305:
3306: --fix for bug 2790460 to add the amount_changed to the
3329: , l_return_status
3330: , l_return_status_text);
3331:
3332: IF BACK_CALCULATE_SUCC
3333: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3334: THEN
3335: IF l_debug = FND_API.G_TRUE THEN
3336: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3337: || l_adjustment_amount ||' list_line_id '
3331:
3332: IF BACK_CALCULATE_SUCC
3333: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3334: THEN
3335: IF l_debug = FND_API.G_TRUE THEN
3336: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3337: || l_adjustment_amount ||' list_line_id '
3338: || l_back_list_line_id_tbl(i) ||' operand val '
3339: || l_operand_value);
3411: ELSE --p_amount_changed is positive, then its a surcharge
3412: FOR I IN REVERSE
3413: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3414: LOOP
3415: IF l_debug = FND_API.G_TRUE THEN
3416: QP_PREQ_GRP.ENGINE_DEBUG('reverse loop '|| i);
3417: END IF;
3418: --fix for bug 2790460 to add the amount_changed to the
3419: --adjustment_amount if the adj
3441: , l_return_status
3442: , l_return_status_text);
3443:
3444: IF BACK_CALCULATE_SUCC
3445: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3446: THEN
3447: IF l_debug = FND_API.G_TRUE THEN
3448: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3449: || l_adjustment_amount ||' list_line_id '
3443:
3444: IF BACK_CALCULATE_SUCC
3445: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3446: THEN
3447: IF l_debug = FND_API.G_TRUE THEN
3448: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3449: || l_adjustment_amount ||' list_line_id '
3450: || l_back_list_line_id_tbl(i) ||' operand val '
3451: || l_operand_value);
3520: END IF; --p_amount_changed
3521:
3522: IF BACK_CALCULATE_SUCC
3523: THEN
3524: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3525: THEN
3526: IF l_debug = FND_API.G_TRUE THEN
3527: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ set status');
3528: END IF;
3522: IF BACK_CALCULATE_SUCC
3523: THEN
3524: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3525: THEN
3526: IF l_debug = FND_API.G_TRUE THEN
3527: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ set status');
3528: END IF;
3529: x_return_status := l_return_status;
3530: x_return_status_text := l_return_status_text;
3530: x_return_status_text := l_return_status_text;
3531: x_back_calc_rec := l_back_calc_rec;
3532: END IF;
3533: ELSE
3534: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3535: THEN
3536: IF l_debug = FND_API.G_TRUE THEN
3537: QP_PREQ_GRP.ENGINE_DEBUG('back cal fail set status');
3538: END IF;
3532: END IF;
3533: ELSE
3534: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3535: THEN
3536: IF l_debug = FND_API.G_TRUE THEN
3537: QP_PREQ_GRP.ENGINE_DEBUG('back cal fail set status');
3538: END IF;
3539: x_return_status := G_BACK_CALCULATION_STS;
3540: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3539: x_return_status := G_BACK_CALCULATION_STS;
3540: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3541: x_back_calc_rec := l_back_calc_rec;
3542: ELSE
3543: IF l_debug = FND_API.G_TRUE THEN
3544: QP_PREQ_GRP.ENGINE_DEBUG('back cal error set status');
3545: END IF;
3546: x_return_status := G_BACK_CALCULATION_STS;
3547: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION ERROR '|| l_return_status_text;
3549: END IF;
3550: END IF;
3551:
3552: ELSE
3553: IF l_debug = FND_API.G_TRUE THEN
3554: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3555: END IF;
3556: x_return_status := G_BACK_CALCULATION_STS;
3557: IF l_debug = FND_API.G_TRUE THEN
3553: IF l_debug = FND_API.G_TRUE THEN
3554: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3555: END IF;
3556: x_return_status := G_BACK_CALCULATION_STS;
3557: IF l_debug = FND_API.G_TRUE THEN
3558: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3559: END IF;
3560: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3561: IF l_debug = FND_API.G_TRUE THEN
3557: IF l_debug = FND_API.G_TRUE THEN
3558: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3559: END IF;
3560: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3561: IF l_debug = FND_API.G_TRUE THEN
3562: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3563: END IF;
3564: END IF;
3565: IF l_debug = FND_API.G_TRUE THEN
3561: IF l_debug = FND_API.G_TRUE THEN
3562: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3563: END IF;
3564: END IF;
3565: IF l_debug = FND_API.G_TRUE THEN
3566: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE7');
3567:
3568: END IF;
3569: EXCEPTION
3567:
3568: END IF;
3569: EXCEPTION
3570: WHEN OTHERS THEN
3571: IF l_debug = FND_API.G_TRUE THEN
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION EXCEPTION '|| SQLERRM);
3573: END IF;
3574: x_return_status := FND_API.G_RET_STS_ERROR;
3575: x_return_status_text := 'Error QP_PREQ_PUB.BACK_CALCULATION '|| SQLERRM;
3570: WHEN OTHERS THEN
3571: IF l_debug = FND_API.G_TRUE THEN
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION EXCEPTION '|| SQLERRM);
3573: END IF;
3574: x_return_status := FND_API.G_RET_STS_ERROR;
3575: x_return_status_text := 'Error QP_PREQ_PUB.BACK_CALCULATION '|| SQLERRM;
3576: END BACK_CALCULATION;
3577:
3578: --procedure to update the line's adjusted_unit_price with unit_price
3688: --[prarasto:Post Round] End : new variables
3689:
3690: BEGIN
3691: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3692: IF l_debug = FND_API.G_TRUE THEN
3693: QP_PREQ_GRP.engine_debug('Begin update_unit_price');
3694:
3695: END IF;
3696: OPEN l_check_adjustments_cur;
3731: l_amount_changed_tbl,
3732: l_line_unit_price_tbl;
3733: CLOSE l_check_adjustments_cur;
3734:
3735: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3736: AND l_line_index_tbl.COUNT > 0
3737: THEN
3738: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3739: LOOP
3736: AND l_line_index_tbl.COUNT > 0
3737: THEN
3738: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3739: LOOP
3740: IF l_debug = FND_API.G_TRUE THEN
3741: QP_PREQ_GRP.engine_debug('line_index '
3742: || l_line_index_tbl(i) ||' unit_price '
3743: || l_unit_price_tbl(i) ||' adj_unit_price '
3744: || l_adj_unit_price_tbl(i) ||' price_qty '
3758: --for bug 2926554 back calculation needs to be done here
3759: --if the caller has overridden the selling price
3760: --and if the line did not go thru calculation
3761: IF l_upd_adj_unit_price_tbl(i) IS NOT NULL THEN
3762: IF l_debug = FND_API.G_TRUE THEN
3763: QP_PREQ_GRP.engine_debug('back calculation for line '
3764: || l_line_index_tbl(i));
3765: END IF; --l_debug
3766:
3779: l_amount_changed_tbl(i) :=
3780: (l_upd_adj_unit_price_tbl(i) - l_adj_unit_price_tbl(i));
3781:
3782:
3783: IF l_debug = FND_API.G_TRUE THEN
3784: QP_PREQ_GRP.engine_debug('amt chg '|| l_amount_changed_tbl(i));
3785: END IF; --l_debug
3786:
3787: IF l_amount_changed_tbl(i) <= 0 THEN
3795: , l_back_calc_ret_rec
3796: , l_return_status
3797: , l_return_status_text);
3798:
3799: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3800: --need to do this check for bug 2833753
3801: IF l_debug = FND_API.G_TRUE THEN
3802: QP_PREQ_GRP.engine_debug('back cal succ insert rec ');
3803: END IF; --l_debug
3797: , l_return_status_text);
3798:
3799: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3800: --need to do this check for bug 2833753
3801: IF l_debug = FND_API.G_TRUE THEN
3802: QP_PREQ_GRP.engine_debug('back cal succ insert rec ');
3803: END IF; --l_debug
3804:
3805: l_adj_unit_price_tbl(i) := l_upd_adj_unit_price_tbl(i);
3810: --which is the line_quantity on lines_tmp
3811: -- Ravi bug# 2745337-divisor by zero
3812: IF (l_line_qty_tbl(i) <> 0
3813: OR l_back_calc_ret_rec.modifier_level_code = G_ORDER_LEVEL) THEN
3814: IF (l_debug = FND_API.G_TRUE) THEN
3815: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6');
3816: END IF; --l_debug
3817: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3818: p_priced_qty => l_priced_qty_tbl(i),
3828: x_ordqty_output2 => l_ord_qty_adj_amt,
3829: x_return_status => x_return_status,
3830: x_return_status_text => x_return_status_text);
3831: ELSE --l_line_qty_tbl(i)
3832: IF l_debug = FND_API.G_TRUE THEN
3833: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_line_qty_tbl(i));
3834: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
3835: END IF; --l_debug
3836: l_ord_qty_operand := 0;
3875: l_ldet_ord_qty_adj_amt(l_ldet_dtl_index.COUNT) :=
3876: l_ord_qty_adj_amt; --3057395
3877:
3878: ELSE --l_ret_status
3879: IF l_debug = FND_API.G_TRUE THEN
3880: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
3881: END IF; --l_debug
3882: l_pricing_sts_code_tbl(i) := l_return_status;
3883: l_pricing_sts_text_tbl(i) := l_return_status_text;
3888: --selling price needs to be replaced as the selling price
3889: l_adj_unit_price_tbl(i) := l_unit_price_tbl(i);
3890: END IF; --l_upd_adj_unit_price_tbl IS NOT NULL
3891:
3892: IF l_debug = FND_API.G_TRUE THEN
3893: QP_PREQ_GRP.engine_debug('end back calc for line '
3894: ||' unit price '|| l_unit_price_tbl(i)
3895: ||' adj_unit_price '|| l_adj_unit_price_tbl(i)
3896: ||' upd_adj_unit_price '|| l_upd_adj_unit_price_tbl(i));
3900: --changes to calculate the order_uom_selling_price
3901: IF (l_line_qty_tbl(i) <> 0
3902: OR l_back_calc_ret_rec.modifier_level_code =
3903: G_ORDER_LEVEL) THEN
3904: IF (l_debug = FND_API.G_TRUE) THEN
3905: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6.5');
3906: END IF; --l_debug
3907: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3908: p_priced_qty => l_priced_qty_tbl(i),
3916: x_ordqty_output2 => l_ord_uom_selling_price_tbl(i),
3917: x_return_status => x_return_status,
3918: x_return_status_text => x_return_status_text);
3919: ELSE --ordered_qty
3920: IF l_debug = FND_API.G_TRUE THEN
3921: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
3922: || l_line_qty_tbl(i));
3923: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
3924: ||'0 or modifier level code is not ORDER');
3951: END IF;
3952: END IF;
3953:
3954:
3955: IF l_debug = FND_API.G_TRUE THEN
3956: QP_PREQ_GRP.engine_debug('roundingfac to round sellingprice: '
3957: || l_rounding_factor_tbl(i));
3958: END IF; --l_debug
3959:
3967: l_unit_selling_price(i) := round(l_unit_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
3968: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
3969: END IF;
3970:
3971: IF l_debug = FND_API.G_TRUE THEN
3972: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3973: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3974: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3975: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3994: l_ord_uom_selling_price_tbl(i) := round(l_ord_uom_selling_price_tbl(i), (-1 * l_rounding_factor_tbl(i)));
3995: END IF;--l_rounding_factor_tbl
3996: */
3997:
3998: IF l_debug = FND_API.G_TRUE THEN
3999: QP_PREQ_GRP.engine_debug('line_index '
4000: || l_line_index_tbl(i) ||' ord_uom_selling_price '
4001: || l_ord_uom_selling_price_tbl(i));
4002: END IF; --l_debug
4027:
4028: IF l_line_index_tbl.COUNT > 0
4029: THEN
4030:
4031: IF l_debug = FND_API.G_TRUE THEN
4032: QP_PREQ_GRP.engine_debug('unit price needs to be updated');
4033: END IF;
4034:
4035: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
4052: END IF;
4053:
4054: EXCEPTION
4055: WHEN OTHERS THEN
4056: x_return_status := FND_API.G_RET_STS_ERROR;
4057: x_return_status_text := l_routine ||' '|| SQLERRM;
4058: IF l_debug = FND_API.G_TRUE THEN
4059: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
4060: END IF;
4054: EXCEPTION
4055: WHEN OTHERS THEN
4056: x_return_status := FND_API.G_RET_STS_ERROR;
4057: x_return_status_text := l_routine ||' '|| SQLERRM;
4058: IF l_debug = FND_API.G_TRUE THEN
4059: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
4060: END IF;
4061: END UPDATE_UNIT_PRICE;
4062:
4069: x_return_status_text OUT NOCOPY VARCHAR2) IS
4070:
4071: BEGIN
4072: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4073: IF l_debug = FND_API.G_TRUE THEN
4074: QP_PREQ_GRP.engine_debug('Begin Update_Line_Status:calculate_flag '|| G_CALCULATE_FLAG);
4075:
4076: END IF;
4077:
4164: END IF;
4165:
4166: EXCEPTION
4167: WHEN OTHERS THEN
4168: x_return_status := FND_API.G_RET_STS_ERROR;
4169: x_return_status_text := 'Exception in QP_PREQ_PUB.Update_Line_Status: '|| SQLERRM;
4170: END Update_Line_Status;
4171:
4172: --overloaded for QP.G reqts
4414: l_line_ind_ind_lookup_tbl QP_PREQ_GRP.NUMBER_TYPE;
4415:
4416: BEGIN
4417: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4418: IF l_debug = FND_API.G_TRUE THEN
4419: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4420:
4421: QP_PREQ_GRP.engine_debug('Display related records ');
4422: END IF;
4419: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4420:
4421: QP_PREQ_GRP.engine_debug('Display related records ');
4422: END IF;
4423: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4424: THEN
4425: --fix for bug 2515762 to print in debug the rltd info
4426: FOR cl IN l_rltd_lines_cur
4427: LOOP
4424: THEN
4425: --fix for bug 2515762 to print in debug the rltd info
4426: FOR cl IN l_rltd_lines_cur
4427: LOOP
4428: IF l_debug = FND_API.G_TRUE THEN
4429: QP_PREQ_GRP.engine_debug('related records with status N '
4430: ||' line_dtl_index '|| cl.line_detail_index
4431: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
4432: ||' line_index '|| cl.line_index
4517: l_ntamt_adj_unit_price.DELETE; --3126019
4518:
4519: l_adj_tbl := p_adj_tbl;
4520:
4521: IF l_debug = FND_API.G_TRUE THEN
4522: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4523: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4524:
4525: END IF;
4522: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4523: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4524:
4525: END IF;
4526: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4527: THEN
4528: IF l_debug = FND_API.G_TRUE THEN
4529: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4530: END IF;
4524:
4525: END IF;
4526: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4527: THEN
4528: IF l_debug = FND_API.G_TRUE THEN
4529: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4530: END IF;
4531: FOR z IN 1..l_adj_tbl.COUNT
4532: LOOP
4529: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4530: END IF;
4531: FOR z IN 1..l_adj_tbl.COUNT
4532: LOOP
4533: IF l_debug = FND_API.G_TRUE THEN
4534: QP_PREQ_GRP.engine_debug('Processing Adjustments:
4535: line index '|| l_adj_tbl(z).line_ind ||' '||
4536: ' line dtl index '|| l_adj_tbl(z).line_detail_index ||
4537: ' pricing_status '|| l_adj_tbl(z).pricing_status_code ||
4544: END IF;
4545:
4546: -- back_calculate := false;
4547: -- line_change := true;
4548: -- l_prev_line_index := fnd_api.g_miss_num;
4549: i := l_ldet_line_dtl_index_tbl.COUNT;
4550: j := l_adj_tbl.COUNT;
4551: x := l_line_index_tbl.COUNT;
4552: --l_pbh_net_adj_amount := 0; -- 2892848 no need
4565: CLOSE l_net_amount_flag_cur;
4566: END IF;
4567: -- end 2892848
4568:
4569: IF l_debug = FND_API.G_TRUE THEN
4570: QP_PREQ_GRP.engine_debug('Processing Line: Line Index '
4571: || l_adj_tbl(j).line_ind ||
4572: ' list price: '|| l_adj_tbl(j).unit_price ||
4573: ' l_adj_tbl(j).updated_adjusted_unit_price: '|| l_adj_tbl(j).updated_adjusted_unit_price ||
4588: -- defaulting l_sub_total_price and l_adjusted_price
4589:
4590: -- l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0); -- SL_more, do not reset, since we need USP from prev bucket sometimes
4591: IF (l_ntamt_adj_unit_price.EXISTS(l_adj_tbl(j).line_ind)) THEN
4592: IF l_debug = FND_API.G_TRUE THEN
4593: QP_PREQ_GRP.engine_debug('l_ntamt_adj_unit_price(cur_line_ind): '|| l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind));
4594: END IF; -- Added For Bug No - 4033618
4595: l_adjusted_price := nvl(l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind), l_adj_tbl(j).unit_price);
4596: ELSE
4600: IF (l_adjusted_price IS NULL) THEN -- SL_more
4601: l_adjusted_price := 0; -- NULL cause nvl(l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind),l_adj_tbl(j).unit_price) being null
4602: END IF; -- end debug
4603:
4604: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4605: QP_PREQ_GRP.engine_debug('l_adjusted_price default: '|| l_adjusted_price);
4606: END IF; -- end debug
4607:
4608: IF (l_adj_tbl(j).pricing_group_sequence IS NULL OR
4626: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) :=
4627: l_adjusted_price *l_adj_tbl(j).line_priced_quantity;
4628: */
4629:
4630: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4631: QP_PREQ_GRP.engine_debug('l_prev_line_index: '|| l_prev_line_index);
4632: END IF; -- end debug
4633:
4634: -- same line
4663:
4664: -- [julin/4055310]
4665: l_prev_bucket_amt_tbl := l_bucket_amt_tbl;
4666:
4667: IF l_debug = FND_API.G_TRUE THEN
4668: QP_PREQ_GRP.engine_debug('same line, different bucket.'
4669: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4670: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4671: || l_adjusted_price || '*' ||
4672: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4673: END IF; -- end debug
4674:
4675: ELSE -- SL_more, same line same bucket, ELSE IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4676: IF l_debug = FND_API.G_TRUE THEN
4677: QP_PREQ_GRP.engine_debug('same line, same bucket.'
4678: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4679: END IF; -- end debug
4680: END IF; -- END IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4708: ELSE
4709: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4710: l_adjusted_price := l_sub_total_price;
4711: END IF;
4712: IF l_debug = FND_API.G_TRUE THEN
4713: QP_PREQ_GRP.engine_debug('different line, different bucket. '
4714: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4715: END IF; -- end debug
4716:
4715: END IF; -- end debug
4716:
4717: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4718: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity;
4719: IF l_debug = FND_API.G_TRUE THEN
4720: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
4721: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4722: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4723: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4725:
4726: -- bucket change, line change and not the 1st line
4727: ELSE -- l_prev_line_index <> -9999
4728:
4729: IF l_debug = FND_API.G_TRUE THEN
4730: QP_PREQ_GRP.engine_debug('bucket change, line change and not the 1st line, sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4731: END IF; -- END DEBUG
4732: IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index)) THEN
4733: -- moment to capture current USP for prev line_index,
4733: -- moment to capture current USP for prev line_index,
4734: -- so we have correct amts in l_bucket_amt_tbl when using it
4735: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_ntamt_adj_unit_price(l_prev_line_index), l_adj_tbl(j).unit_price) * l_prev_qty;
4736:
4737: IF l_debug = FND_API.G_TRUE THEN
4738: QP_PREQ_GRP.engine_debug('capture bucket amt of prev_line_index l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4739: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), l_adj_tbl(j).unit_price) || '*' ||
4740: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4741: END IF; -- end debug
4741: END IF; -- end debug
4742:
4743: ELSE -- ELSE IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index))
4744: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_adj_tbl(j).unit_price, 0) * l_prev_qty;
4745: IF l_debug = FND_API.G_TRUE THEN
4746:
4747: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
4748: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4749: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4764: l_adjusted_price := l_sub_total_price;
4765:
4766: END IF;
4767:
4768: IF l_debug = FND_API.G_TRUE THEN
4769: QP_PREQ_GRP.engine_debug('different line, same bucket');
4770: QP_PREQ_GRP.engine_debug('sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4771: END IF; -- end debug
4772:
4773: -- moment to capture current USP for prev line_index,
4774: -- so we have correct amts in l_bucket_amt_tbl when using it
4775: IF l_ntamt_adj_unit_price.EXISTS(l_prev_line_index) THEN
4776: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) * l_prev_qty;
4777: IF l_debug = FND_API.G_TRUE THEN
4778: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4779: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) || '*' ||
4780: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4781: END IF; -- end debug
4787:
4788: -- SL_more, default, 1st bucket for this line has no prev buckets no prev adjs
4789: IF l_1st_bucket = 'Y' THEN -- 1st bucket for this line, bucket at lease 1 up
4790: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity; -- for line level net amt we need this
4791: IF l_debug = FND_API.G_TRUE THEN
4792: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_adj_tbl(j).line_ind ||'): '
4793: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4794: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4795: END IF; -- end debug
4801: l_prev_qty := l_adj_tbl(j).line_priced_quantity;
4802: END IF; --l_prev_line_index = line_index
4803: END IF; -- end if bucket is null or 0
4804:
4805: IF l_debug = FND_API.G_TRUE THEN
4806:
4807: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4808: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4809: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4822: -- l_sub_total_price is bucketed unit price, l_adjusted_price is the current USP (diff data for diff line_index)
4823: ---Bucket calculations
4824: IF l_prev_line_index = l_adj_tbl(j).line_ind
4825: THEN
4826: IF l_debug = FND_API.G_TRUE THEN
4827: QP_PREQ_GRP.engine_debug('no line change'
4828: ||' prev_line_index '||l_prev_line_index
4829: ||' prev_bucket '||l_prev_bucket);
4830: END IF;
4830: END IF;
4831: line_change := false;
4832:
4833:
4834: IF l_debug = FND_API.G_TRUE THEN
4835: QP_PREQ_GRP.engine_debug('same line.');
4836: --||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4837: END IF;
4838: ELSE
4855: l_adjusted_price := l_adj_tbl(j).unit_price;
4856:
4857: END IF; -- end index exists
4858:
4859: IF l_debug = FND_API.G_TRUE THEN
4860: QP_PREQ_GRP.engine_debug('line change '
4861: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4862: END IF;
4863:
4868: -- MOVE TO HERE
4869: IF l_adj_tbl(J).pricing_group_sequence <> 0 AND l_adj_tbl(J).pricing_group_sequence IS NOT NULL THEN -- bucket 0 is line event list price
4870: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
4871: IF l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence THEN
4872: IF l_debug = FND_API.G_TRUE THEN
4873: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to debug adj_amts or unit_adjs up to prev bucket.');
4874: END IF; -- END debug
4875:
4876: -- for LINE GROUP
4879: -- prev_lg_adj_amt is the sum of adj_amts for all lines up to prev buckets
4880:
4881: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
4882: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
4883: IF l_debug = FND_API.G_TRUE THEN
4884: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
4885: END IF; -- END debug
4886:
4887: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
4897: ELSE
4898: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4899: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4900:
4901: IF l_debug = FND_API.G_TRUE THEN
4902: QP_PREQ_GRP.engine_debug ('debug LINE unit adjs up to prev bucket for line index'||l_adj_tbl(j).line_ind ||': '||l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) );
4903: END IF; -- END debug
4904: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4905:
4906: -- begin shu fix bug for special case, bucket change within same line index
4907: IF line_change = false THEN
4908: l_sub_total_price :=l_adj_unit_price_tbl(l_adj_tbl(j).line_ind);
4909:
4910: IF l_debug = FND_API.G_TRUE THEN
4911: QP_PREQ_GRP.engine_debug('bucket change within same line'
4912: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4913: END IF;
4914: END IF; -- END IF line_change = flase
4925: ELSE
4926: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4927: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4928:
4929: IF l_debug = FND_API.G_TRUE THEN
4930: QP_PREQ_GRP.engine_debug ('line change, debug LINE unit adjs up to prev bucket for line index'||l_adj_tbl(j).line_ind ||': '||l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) );
4931: END IF; -- END debug
4932: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4933: END IF; -- END IF line_change true
4936:
4937: ELSE -- bucket is 0 or null -- begin shu fix bug
4938: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4939: l_adjusted_price :=nvl (l_adj_unit_price_tbl(l_adj_tbl(j).line_ind),0);
4940: IF l_debug = FND_API.G_TRUE THEN
4941: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
4942: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4943: END IF;
4944: -- end shu fix bug
5009: -- priced_quantity is 4000, group_amount i.e. 20*100 + 10* 200
5010: -- group_amount is 40, group_amount_per_unit
5011: -- line_priced_quantity is 20, order qty for line 1
5012:
5013: IF l_debug = FND_API.G_TRUE THEN -- SHU
5014: QP_PREQ_GRP.engine_debug(
5015: 'figuring out qty level '|| l_adj_tbl(j).modifier_level_code
5016: ||' priced_quantity '|| l_adj_tbl(j).priced_quantity -- from ldets.line_quantity
5017: ||' group_quantity '|| l_adj_tbl(j).group_quantity
5023: IF l_adj_tbl(j).created_from_list_line_type = G_PRICE_BREAK_TYPE
5024: AND l_adj_tbl(j).pricing_status_code
5025: IN (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5026: THEN
5027: IF l_debug = FND_API.G_TRUE THEN
5028: QP_PREQ_GRP.engine_debug('Processing Price Break. call Price_Break_Calculation');
5029:
5030: END IF;
5031:
5074: l_total_value := l_adj_tbl(j).priced_quantity; --4000
5075: l_req_value_per_unit := l_adj_tbl(j).line_priced_quantity; --20
5076: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848 SL_latest move to here as default
5077: END IF;
5078: IF l_debug = FND_API.G_TRUE THEN
5079: QP_PREQ_GRP.engine_debug('l_qualifier_value default: '|| l_adj_tbl(j).priced_quantity);
5080: QP_PREQ_GRP.engine_debug('l_qualifier_value : '|| l_qualifier_value);
5081: END IF; -- end debug
5082: -- begin 2892848
5081: END IF; -- end debug
5082: -- begin 2892848
5083: -- net_amount line level (not group of line) modifier
5084: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5085: IF l_debug = FND_API.G_TRUE THEN
5086: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_adj_tbl(J).created_from_list_line_id);
5087: END IF; -- end debug
5088:
5089: /* SL_latest 2892848
5089: /* SL_latest 2892848
5090: IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5091: -- priced_quantity is line amount, line_priced_quantity is order qty
5092: l_qualifier_value:= l_adj_tbl(j).priced_quantity + nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0)* l_adj_tbl(j).line_priced_quantity;
5093: IF l_debug = FND_API.G_TRUE THEN
5094: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5095: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5096: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0) );
5097: END IF; -- end debug
5098: ELSE
5099: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5100: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j))
5101:
5102: IF l_debug = FND_API.G_TRUE THEN
5103: QP_PREQ_GRP.engine_debug('line level net amount: '||l_qualifier_value);
5104: END IF; -- end debug
5105: ELSE -- not net_amount modifier
5106: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5104: END IF; -- end debug
5105: ELSE -- not net_amount modifier
5106: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5107:
5108: IF l_debug = FND_API.G_TRUE THEN
5109: QP_PREQ_GRP.engine_debug('not net amount pbh qualifier value: '||l_qualifier_value);
5110: END IF; -- end debug
5111: */
5112: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5110: END IF; -- end debug
5111: */
5112: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5113: l_qualifier_value := l_bucket_amt_tbl(l_adj_tbl(j).line_ind);
5114: IF l_debug = FND_API.G_TRUE THEN
5115: QP_PREQ_GRP.engine_debug('line level net amount: '|| l_qualifier_value);
5116: END IF; -- end debug
5117: END IF; -- END IF l_bucket_amt_tbl.EXISTs
5118: END IF; -- END IF net_amount modifier
5119: -- end 2892848
5120:
5121: END IF; --G_pbhvolattr_attribute
5122:
5123: IF l_debug = FND_API.G_TRUE THEN
5124: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5125: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5126: ||' l_total_value '|| l_total_value ||' l_req_value_per_unit '
5127: || l_req_value_per_unit);
5151: --fetch adj from OM, group_amt is range_break_qty which
5152: --is the line_qty returned by the pricing engine and the
5153: --the group_amt passed back by engine is not stored by OM
5154: --so we need to do this for adj not searched by engine
5155: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5156: IF (l_adj_tbl(j).unit_price = 0) THEN
5157: l_req_value_per_unit := FND_API.G_NULL_NUM;
5158: ELSE
5159: l_req_value_per_unit := l_adj_tbl(j).group_amount / l_adj_tbl(j).unit_price;
5153: --the group_amt passed back by engine is not stored by OM
5154: --so we need to do this for adj not searched by engine
5155: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5156: IF (l_adj_tbl(j).unit_price = 0) THEN
5157: l_req_value_per_unit := FND_API.G_NULL_NUM;
5158: ELSE
5159: l_req_value_per_unit := l_adj_tbl(j).group_amount / l_adj_tbl(j).unit_price;
5160: END IF;
5161: END IF;
5163: -- begin 2892848
5164: -- IF net amount linegroup modifier
5165: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5166:
5167: IF l_debug = FND_API.G_TRUE THEN
5168: QP_PREQ_GRP.engine_debug('net amount linegroup modifier list_line_id: '|| l_adj_tbl(J).created_from_list_line_id);
5169: END IF; -- end debug
5170:
5171: -- begin SL_latest 2892848
5195: -- calculate the list price * qty for those lines.
5196: IF nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P' THEN
5197: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5198: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id);
5199: IF l_debug = FND_API.G_TRUE THEN
5200: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5201: END IF; --end debug
5202: ELSE -- need to calculate l_lg_net_amt
5203: IF l_debug = FND_API.G_TRUE THEN
5199: IF l_debug = FND_API.G_TRUE THEN
5200: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5201: END IF; --end debug
5202: ELSE -- need to calculate l_lg_net_amt
5203: IF l_debug = FND_API.G_TRUE THEN
5204: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
5205: END IF;
5206: -- calculate amount using product attribute net amount grouping
5207: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5206: -- calculate amount using product attribute net amount grouping
5207: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5208: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
5209: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
5210: IF l_debug = FND_API.G_TRUE THEN
5211: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
5212: END IF; --end debug
5213: ELSE
5214: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5212: END IF; --end debug
5213: ELSE
5214: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5215: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5216: IF l_debug = FND_API.G_TRUE THEN
5217: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
5218: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
5219: END IF;
5220: END IF;
5219: END IF;
5220: END IF;
5221: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5222:
5223: IF l_debug = FND_API.G_TRUE THEN
5224: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
5225: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
5226: END IF;
5227: END LOOP;
5231: END IF; -- end l_adj_tbl(j).net_amount_flag = 'P' -- [julin/3265308]
5232:
5233: IF (l_1st_bucket = 'Y') THEN
5234:
5235: IF l_debug = FND_API.G_TRUE THEN
5236: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
5237: END IF; -- end debug
5238: l_lg_net_amt := l_adj_tbl(j).priced_quantity;
5239:
5238: l_lg_net_amt := l_adj_tbl(j).priced_quantity;
5239:
5240: ELSE -- l_1st_bucket='N'
5241:
5242: IF l_debug = FND_API.G_TRUE THEN
5243: QP_PREQ_GRP.engine_debug(' - not first bucket');
5244: END IF; --Added For Bug No - 4033618
5245: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5246: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5243: QP_PREQ_GRP.engine_debug(' - not first bucket');
5244: END IF; --Added For Bug No - 4033618
5245: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5246: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5247: IF l_debug = FND_API.G_TRUE THEN
5248: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5249: END IF; --end debug
5250: ELSE -- need to calculate l_lg_net_amt
5251: IF l_debug = FND_API.G_TRUE THEN
5247: IF l_debug = FND_API.G_TRUE THEN
5248: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5249: END IF; --end debug
5250: ELSE -- need to calculate l_lg_net_amt
5251: IF l_debug = FND_API.G_TRUE THEN
5252: QP_PREQ_GRP.engine_debug('lg_net_amt for list line '|| l_adj_tbl(j).created_from_list_line_id ||' not cached');
5253: END IF;
5254: -- regular net amount processing
5255: l_adj_exists_in_tmp_tbl := 'N'; -- reset bug 3618464
5256: FOR t IN l_net_mod_index_cur(l_adj_tbl(j).created_from_list_line_id) LOOP
5257: l_adj_exists_in_tmp_tbl := 'Y'; -- bug 3618464
5258: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
5259: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
5260: IF l_debug = FND_API.G_TRUE THEN
5261: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
5262: END IF; --end debug
5263: ELSE
5264: l_line_bucket_amt := 0;
5264: l_line_bucket_amt := 0;
5265: END IF;
5266: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5267:
5268: IF l_debug = FND_API.G_TRUE THEN
5269: QP_PREQ_GRP.engine_debug('l_line_bucket_amt: ' || l_line_bucket_amt);
5270: QP_PREQ_GRP.engine_debug('up-tp-date l_lg_net_amt: ' || l_lg_net_amt); -- grp amt
5271: END IF; --end debug
5272: END LOOP; -- end l_net_mod_index_cur
5276: IF l_adj_exists_in_tmp_tbl = 'N' THEN
5277: IF G_LINE_INDEXES_FOR_LINE_ID.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5278: l_line_index_str := G_LINE_INDEXES_FOR_LINE_ID(l_adj_tbl(j).created_from_list_line_id);
5279: END IF;
5280: IF l_debug = FND_API.G_TRUE THEN
5281: QP_PREQ_GRP.engine_debug('l_line_index_str = ' || l_line_index_str);
5282: END IF;
5283: IF l_line_index_str IS NOT NULL THEN
5284: LOOP
5289: l_line_index_str := substr(l_line_index_str, l_instr_pos + 1);
5290:
5291: IF l_bucket_amt_tbl.EXISTS(l_index) THEN
5292: l_line_bucket_amt := nvl(l_bucket_amt_tbl(l_index), 0);
5293: IF l_debug = FND_API.G_TRUE THEN
5294: QP_PREQ_GRP.engine_debug('Net Amount Override PBH LINEGROUP ' || l_index || ':' || l_bucket_amt_tbl(l_index));
5295: END IF; --end debug
5296: ELSE
5297: l_line_bucket_amt := 0;
5297: l_line_bucket_amt := 0;
5298: END IF;
5299: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5300:
5301: IF l_debug = FND_API.G_TRUE THEN
5302: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_index ||'): '|| l_line_bucket_amt);
5303: END IF; --end debug
5304: END LOOP;
5305: END IF; --if l_line_index_str is not null
5310: END IF; --l_mod_lg_net_amt_tbl.EXIST
5311:
5312: END IF; -- END IF l_prev_bucket = -9999
5313:
5314: IF l_debug = FND_API.G_TRUE THEN
5315: QP_PREQ_GRP.engine_debug('final l_lg_net_amt: '|| l_lg_net_amt);
5316: END IF; --end debug
5317: -- end SL_latest
5318:
5318:
5319: -- [julin/4112395/4220399]
5320: IF (nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P') THEN
5321: l_qualifier_value := l_lg_prod_net_amt;
5322: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5323: IF (l_sub_total_price = 0) THEN
5324: l_req_value_per_unit := FND_API.G_NULL_NUM;
5325: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
5326: ELSE
5320: IF (nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P') THEN
5321: l_qualifier_value := l_lg_prod_net_amt;
5322: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5323: IF (l_sub_total_price = 0) THEN
5324: l_req_value_per_unit := FND_API.G_NULL_NUM;
5325: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
5326: ELSE
5327: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
5328: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
5321: l_qualifier_value := l_lg_prod_net_amt;
5322: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5323: IF (l_sub_total_price = 0) THEN
5324: l_req_value_per_unit := FND_API.G_NULL_NUM;
5325: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
5326: ELSE
5327: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
5328: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
5329: END IF;
5328: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
5329: END IF;
5330: ELSE
5331: l_qualifier_value := l_lg_net_amt;
5332: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5333: IF (l_sub_total_price = 0) THEN
5334: l_req_value_per_unit := FND_API.G_NULL_NUM;
5335: ELSE
5336: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
5330: ELSE
5331: l_qualifier_value := l_lg_net_amt;
5332: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5333: IF (l_sub_total_price = 0) THEN
5334: l_req_value_per_unit := FND_API.G_NULL_NUM;
5335: ELSE
5336: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
5337: END IF;
5338: END IF;
5336: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
5337: END IF;
5338: END IF;
5339:
5340: IF l_debug = FND_API.G_TRUE THEN
5341: QP_PREQ_GRP.engine_debug('group amount: ' || l_adj_tbl(j).priced_quantity); -- grp amt
5342: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
5343: END IF; --end debug
5344:
5348: -- end 2892848
5349:
5350: END IF; --G_pbhvolattr_attribute
5351:
5352: IF l_debug = FND_API.G_TRUE THEN
5353: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5354: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5355: ||' l_total_value '|| l_total_value --4000
5356: ||' l_req_value_per_unit '|| l_req_value_per_unit); --40
5406:
5407: l_return_adjustment := - 1 * nvl(l_return_adjustment, 0);
5408:
5409: -- 2892848
5410: IF l_debug = FND_API.G_TRUE THEN
5411: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
5412: END IF; --l_debug
5413: -- end 2892848
5414:
5415: END IF; --l_adj_tbl(j).price_flag
5416:
5417:
5418: ELSE --created_from_list_line_type not PBH, 2892848 change comment only
5419: IF l_debug = FND_API.G_TRUE THEN
5420: QP_PREQ_GRP.engine_debug('Processing DIS/SUR/FRT: '|| l_adj_tbl(j).created_from_list_line_id); -- 2892848, change debug msg
5421: END IF; -- end debug
5422:
5423: IF l_adj_tbl(j).created_from_list_line_type = G_DISCOUNT
5428: ELSE
5429: l_sign := 1;
5430: END IF; --l_adj_tbl(j).created_from_list_line_type=g_discount
5431:
5432: IF l_debug = FND_API.G_TRUE THEN
5433: QP_PREQ_GRP.engine_debug('this check '
5434: || l_adj_tbl(j).line_type_code ||' '
5435: || l_calc_quantity ||' '|| l_adj_tbl(j).operand_calculation_code);
5436:
5439: AND l_calc_quantity = 0
5440: AND l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT
5441: THEN
5442: l_calc_quantity := 1;
5443: IF l_debug = FND_API.G_TRUE THEN
5444: QP_PREQ_GRP.engine_debug('Order lvl qty '||
5445: l_calc_quantity);
5446: END IF;
5447: END IF;
5445: l_calc_quantity);
5446: END IF;
5447: END IF;
5448:
5449: IF l_debug = FND_API.G_TRUE THEN
5450: QP_PREQ_GRP.engine_debug('this sign '|| l_sign);
5451: END IF;
5452:
5453: IF l_adj_tbl(j).PRICING_STATUS_CODE IN
5456: /*
5457: IF l_adj_tbl(j).updated_flag = G_YES
5458: and nvl(l_adj_tbl(j).automatic_flag,G_NO) = G_NO
5459: and (l_adj_tbl(j).adjustment_amount IS NOT NULL
5460: and l_adj_tbl(j).adjustment_amount <> g_miss_num) --FND_API.G_MISS_NUM)
5461: THEN
5462: --to avoid rounding issues in rev calculations
5463: --for user-overridden adjustments
5464: IF l_debug = FND_API.G_TRUE THEN
5460: and l_adj_tbl(j).adjustment_amount <> g_miss_num) --FND_API.G_MISS_NUM)
5461: THEN
5462: --to avoid rounding issues in rev calculations
5463: --for user-overridden adjustments
5464: IF l_debug = FND_API.G_TRUE THEN
5465: qp_preq_grp.engine_debug(' adj amt manual adj '||
5466: l_adj_tbl(j).adjustment_amount);
5467: END IF;
5468: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5467: END IF;
5468: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5469: ELSE
5470: */--commented to avoid overriding errors
5471: IF l_debug = FND_API.G_TRUE THEN
5472: qp_preq_grp.engine_debug(' adj amt manual adj '||
5473: l_adj_tbl(j).adjustment_amount);
5474:
5475: END IF;
5486: l_adj_tbl(j).operand_value :=
5487: l_adj_tbl(j).line_priced_quantity *
5488: l_adj_tbl(j).adjustment_amount *
5489: l_sign;
5490: IF l_debug = FND_API.G_TRUE THEN
5491: QP_PREQ_GRP.engine_debug('return line frtchg operand '
5492: || l_adj_tbl(j).operand_value ||' adj amt '
5493: || l_return_adjustment);
5494: END IF; --l_debug
5522: --fetch adj from OM, group_amt is range_break_qty which
5523: --is the line_qty returned by the pricing engine and the
5524: --the group_amt passed back by engine is not stored by OM
5525: --so we need to do this for adj not searched by engine
5526: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5527: IF (l_adj_tbl(j).unit_price = 0) THEN
5528: l_calc_quantity := FND_API.G_NULL_NUM;
5529: ELSE
5530: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5524: --the group_amt passed back by engine is not stored by OM
5525: --so we need to do this for adj not searched by engine
5526: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5527: IF (l_adj_tbl(j).unit_price = 0) THEN
5528: l_calc_quantity := FND_API.G_NULL_NUM;
5529: ELSE
5530: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5531: END IF;
5532: END IF; --l_pricing_attribute
5529: ELSE
5530: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5531: END IF;
5532: END IF; --l_pricing_attribute
5533: IF l_debug = FND_API.G_TRUE THEN
5534: QP_PREQ_GRP.engine_debug('l_calc_qty for lumpsum '
5535: || l_calc_quantity);
5536: END IF; --l_debug
5537: END IF; --l_adj_tbl(j).operand_calculation_code
5546: , l_return_status
5547: , l_return_status_text);
5548: END IF; --l_adj_tbl(j).created_from_list_line_type = frt
5549:
5550: IF l_return_status = FND_API.G_RET_STS_ERROR
5551: THEN
5552: x_return_status := l_return_status;
5553: x_return_status_text := l_return_status_text;
5554: END IF;
5559: --This code is to avoid the order level adjustments being
5560: --returned with each line and to return only one order level
5561: --adjustment with the summary line
5562:
5563: IF (l_debug = FND_API.G_TRUE) THEN
5564: QP_PREQ_GRP.engine_debug('Is Ldet Rec : ' || l_adj_tbl(j).is_ldet_rec);
5565: END IF;
5566:
5567: IF ((l_adj_tbl(j).is_ldet_rec IN
5574: i := i + 1;
5575: l_ldet_line_dtl_index_tbl(i) := l_adj_tbl(j).line_detail_index;
5576: --need to store this for bug 2833753
5577: G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)) := i;
5578: IF (l_debug = FND_API.G_TRUE) THEN
5579: QP_PREQ_GRP.engine_debug('Adding line details : '
5580: || l_ldet_line_dtl_index_tbl(i) ||' plsqlind '
5581: || G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)));
5582: END IF;
5584: l_ldet_list_hdr_id_tbl(i) :=
5585: l_adj_tbl(j).created_from_list_header_id;
5586: l_ldet_list_line_id_tbl(i) :=
5587: l_adj_tbl(j).created_from_list_line_id;
5588: IF l_debug = FND_API.G_TRUE THEN
5589: QP_PREQ_GRP.engine_debug('adjusted amt 1 ');
5590: END IF;
5591: l_ldet_list_line_type_tbl(i) :=
5592: l_adj_tbl(j).created_from_list_line_type;
5589: QP_PREQ_GRP.engine_debug('adjusted amt 1 ');
5590: END IF;
5591: l_ldet_list_line_type_tbl(i) :=
5592: l_adj_tbl(j).created_from_list_line_type;
5593: IF l_debug = FND_API.G_TRUE THEN
5594: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5595: END IF;
5596: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5597: IF l_debug = FND_API.G_TRUE THEN
5593: IF l_debug = FND_API.G_TRUE THEN
5594: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5595: END IF;
5596: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5597: IF l_debug = FND_API.G_TRUE THEN
5598: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5599: END IF;
5600:
5601: -- begin 2892848
5598: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5599: END IF;
5600:
5601: -- begin 2892848
5602: IF l_debug = FND_API.G_TRUE THEN
5603: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_ldet_adj_amt_tbl('|| i ||'): '|| l_ldet_adj_amt_tbl(i)); -- 2892848
5604: END IF; --END IF l_debug
5605: /* SL_latest 2892848
5606: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
5606: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
5607: -- only for bucket modifiers, 0 is price list line, null is reg modifier
5608: IF l_adj_tbl(j).pricing_group_sequence IS NOT NULL AND l_adj_tbl(j).pricing_group_sequence <> 0 THEN
5609: IF l_bucket_adj_amt_tbl.EXISTS(l_adj_tbl(j).pricing_group_sequence) THEN -- avoid no data found or table index not exists for 1st rec
5610: IF l_debug = FND_API.G_TRUE THEN
5611: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5612: END IF; -- end debug
5613: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence),0) +
5614: nvl(l_ldet_adj_amt_tbl(i),0)* l_adj_tbl(j).line_priced_quantity;
5615:
5616: ELSE -- avoid no data found err
5617: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_ldet_adj_amt_tbl(i),0) * l_adj_tbl(j).line_priced_quantity;
5618: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5619: IF l_debug = FND_API.G_TRUE THEN
5620: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5621: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5622: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5623: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5624: END IF; -- END debug
5625:
5626: -- for LINE LEVEL
5627: IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5628: IF l_debug = FND_API.G_TRUE THEN
5629: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0));
5630: END IF; -- end debug
5631: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0) + nvl(l_ldet_adj_amt_tbl(i), 0);
5632: ELSE -- avoid no datat found err
5631: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0) + nvl(l_ldet_adj_amt_tbl(i), 0);
5632: ELSE -- avoid no datat found err
5633: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5634: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
5635: IF l_debug = FND_API.G_TRUE THEN
5636: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_adj_tbl(j).line_ind);
5637: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind));
5638: END IF; -- END debug
5639: END IF; -- END IF bucket is not null and 0
5642: */
5643: /* out 2892848
5644: --begin net_amount, 2720717
5645: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5646: IF l_debug = FND_API.G_TRUE THEN
5647: QP_PREQ_GRP.engine_debug('------ ');
5648: QP_PREQ_GRP.engine_debug('i: '||i);
5649: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5650: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5658: l_back_calc_adj_amt(l_adj_tbl(j).line_ind)
5659: := nvl(l_return_adjustment, 0);
5660: l_back_calc_plsql_tbl_index(l_adj_tbl(j).line_ind)
5661: := i;
5662: IF l_debug = FND_API.G_TRUE THEN
5663: QP_PREQ_GRP.engine_debug('Back calc line index '
5664: || l_back_calc_dtl_index(l_adj_tbl(j).line_ind)
5665: ||' adjamt '|| l_back_calc_adj_amt(l_adj_tbl(j).line_ind)
5666: ||' plsql ind '
5672: --selling_price,adjustment_amount and operand in ordered_qty
5673: --which is the line_quantity on lines_tmp
5674: -- Ravi bug# 2745337-divisor by zero
5675: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
5676: IF (l_debug = FND_API.G_TRUE) THEN
5677: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #1');
5678: END IF;
5679: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
5680: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
5690: x_ordqty_output2 => l_ldet_ordqty_adjamt_tbl(i),
5691: x_return_status => x_return_status,
5692: x_return_status_text => x_return_status_text);
5693: ELSE
5694: IF l_debug = FND_API.G_TRUE THEN
5695: QP_PREQ_GRP.engine_debug('Ordered Qty #1: ' || l_adj_tbl(j).ordered_qty);
5696: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
5697: END IF;
5698: l_ldet_ordqty_operand_tbl(i) := 0;
5698: l_ldet_ordqty_operand_tbl(i) := 0;
5699: l_ldet_ordqty_adjamt_tbl(i) := 0;
5700: END IF;
5701:
5702: IF l_debug = FND_API.G_TRUE THEN
5703: QP_PREQ_GRP.engine_debug('Printing ordqty_operand '
5704: || l_ldet_ordqty_operand_tbl(i) ||' ordqty_adjamt '
5705: || l_ldet_ordqty_adjamt_tbl(i));
5706: END IF; --l_debug
5718: round(l_ldet_ordqty_adjamt_tbl(i),
5719: ( - 1 * l_adj_tbl(j).rounding_factor));
5720: END IF;
5721:
5722: IF l_debug = FND_API.G_TRUE THEN
5723: QP_PREQ_GRP.engine_debug('rounded adj: '|| l_ldet_adj_amt_tbl(i) ||
5724: ' rounding fac '|| l_adj_tbl(j).rounding_factor ||
5725: ' ordqty_adjamt '|| l_ldet_ordqty_adjamt_tbl(i) ||
5726: ' '|| l_adj_tbl(j).curr_line_index ||' '|| l_adj_tbl(j).line_ind ||
5748: --to store gro/line qty in line qty based on mod level
5749: --l_ldet_line_quantity_tbl(i) := nvl(l_calc_quantity,1); -- 40,SHU, this is inconsistent with PL/SQL path
5750: l_ldet_line_quantity_tbl(i) := l_adj_tbl(j).priced_quantity; -- -- 2388011, SHU FIX diff PRIYA,to be the same as PL/SQL path
5751: l_ldet_is_max_frt_tbl(i) := G_NO;
5752: IF l_debug = FND_API.G_TRUE THEN
5753: QP_PREQ_GRP.engine_debug('adjusted amt 4 ');
5754:
5755: QP_PREQ_GRP.engine_debug('Returned adj : '|| i
5756: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
5757: ||' adj amt '|| l_ldet_adj_amt_tbl(i));
5758:
5759:
5760: END IF;
5761: IF l_return_status = FND_API.G_RET_STS_ERROR
5762: THEN
5763: IF l_debug = FND_API.G_TRUE THEN
5764: QP_PREQ_GRP.engine_debug('Calc Error');
5765: END IF;
5759:
5760: END IF;
5761: IF l_return_status = FND_API.G_RET_STS_ERROR
5762: THEN
5763: IF l_debug = FND_API.G_TRUE THEN
5764: QP_PREQ_GRP.engine_debug('Calc Error');
5765: END IF;
5766: l_ldet_pricing_sts_code_tbl(i) := G_STATUS_CALC_ERROR;
5767: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5766: l_ldet_pricing_sts_code_tbl(i) := G_STATUS_CALC_ERROR;
5767: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5768: l_ldet_applied_flag_tbl(i) := G_NO;
5769: ELSE
5770: IF l_debug = FND_API.G_TRUE THEN
5771: QP_PREQ_GRP.engine_debug('Calc Succ');
5772: END IF;
5773: l_ldet_pricing_sts_code_tbl(i) :=
5774: l_adj_tbl(j).pricing_status_code;
5796: END IF;
5797: */
5798: l_ldet_pricing_sts_txt_tbl(i) :=
5799: l_adj_tbl(j).pricing_status_text;
5800: END IF; --l_return_status = FND_API.G_RET_STS_ERROR
5801:
5802: IF l_adj_tbl(j).created_from_list_line_type = G_FREIGHT_CHARGE
5803: AND nvl(l_adj_tbl(j).automatic_flag, G_NO) = G_YES
5804: AND l_adj_tbl(j).pricing_status_code IN
5803: AND nvl(l_adj_tbl(j).automatic_flag, G_NO) = G_YES
5804: AND l_adj_tbl(j).pricing_status_code IN
5805: (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5806: THEN
5807: IF l_debug = FND_API.G_TRUE THEN
5808: QP_PREQ_GRP.engine_debug('looping thru FRT for list_line id '
5809: || l_adj_tbl(j).created_from_list_line_id ||' adj amt '
5810: || l_ldet_adj_amt_tbl(i) ||' upd '
5811: || l_adj_tbl(j).updated_flag
5817: IF l_frt_tbl.COUNT = 0
5818: THEN
5819: --no record for charge type subtype combn
5820: --so insert into l_frt_tbl
5821: IF l_debug = FND_API.G_TRUE THEN
5822: QP_PREQ_GRP.engine_debug('No frtcharge in tbl: insert rec');
5823: END IF;
5824: l_frt_tbl(1).line_index := l_adj_tbl(j).line_ind;
5825: l_frt_tbl(1).line_detail_index :=
5845: l_frt_tbl(1).LEVEL := G_ORDER_LEVEL;
5846: END IF;
5847: ELSIF l_frt_tbl.COUNT > 0
5848: THEN
5849: IF l_debug = FND_API.G_TRUE THEN
5850: QP_PREQ_GRP.engine_debug('frtchrg records exist');
5851:
5852: END IF;
5853: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5851:
5852: END IF;
5853: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5854: LOOP
5855: IF l_debug = FND_API.G_TRUE THEN
5856: QP_PREQ_GRP.engine_debug('existing frt record id '
5857: || l_frt_tbl(N).created_from_list_line_id
5858: ||' level '|| l_frt_tbl(N).LEVEL);
5859:
5867: OR (l_frt_tbl(N).LEVEL = G_LINE_LEVEL AND
5868: l_adj_tbl(j).modifier_level_code = G_LINE_GROUP))
5869: THEN
5870: --record exists for charge type subtype combn
5871: IF l_debug = FND_API.G_TRUE THEN
5872: QP_PREQ_GRP.engine_debug('charge combn match');
5873:
5874: END IF;
5875: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5873:
5874: END IF;
5875: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5876: THEN
5877: IF l_debug = FND_API.G_TRUE THEN
5878: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
5879: END IF;
5880: --only if user has not overridden
5881: --replace the record with the ct adj
5881: --replace the record with the ct adj
5882:
5883: IF nvl(l_adj_tbl(j).updated_flag, G_NO) = G_YES
5884: THEN
5885: IF l_debug = FND_API.G_TRUE THEN
5886: QP_PREQ_GRP.engine_debug('Repl overridden rec');
5887: END IF;
5888: --if ct adj is overridden
5889: l_frt_tbl(N).line_detail_index
5902: AND l_ldet_adj_amt_tbl(i)
5903: > l_frt_tbl(N).adjustment_amount
5904: THEN
5905: --if ct adj's adj amt is greater
5906: IF l_debug = FND_API.G_TRUE THEN
5907: QP_PREQ_GRP.engine_debug('replace high adjamt');
5908: END IF;
5909: l_frt_tbl(N).line_detail_index
5910: := l_adj_tbl(j).line_detail_index;
5924: EXIT;
5925: ELSE
5926: --no match for charge type subtype combn
5927: --so insert into l_frt_tbl
5928: IF l_debug = FND_API.G_TRUE THEN
5929: QP_PREQ_GRP.engine_debug('charge combn no match');
5930:
5931: END IF;
5932: IF N = l_frt_tbl.LAST
5932: IF N = l_frt_tbl.LAST
5933: THEN
5934: --this is the last record and the
5935: --charge type subtype combn not match
5936: IF l_debug = FND_API.G_TRUE THEN
5937: QP_PREQ_GRP.engine_debug('lastrec:insert new record');
5938: END IF;
5939: l_frt_tbl(N + 1).line_index :=
5940: l_adj_tbl(j).line_ind;
5979: G_ORDER_LEVEL
5980: AND l_adj_tbl(j).created_from_list_line_type
5981: <> G_FREIGHT_CHARGE
5982: THEN
5983: IF l_debug = FND_API.G_TRUE THEN
5984: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
5985: || l_adj_tbl(j).modifier_level_code ||' listlineid '
5986: || l_adj_tbl(j).created_from_list_line_id ||' adj '
5987: || l_return_adjustment ||'qty '
5988: || l_adj_tbl(j).line_priced_quantity);
5989: END IF;
5990: IF l_ord_dtl_index_tbl.COUNT = 0
5991: THEN
5992: IF l_debug = FND_API.G_TRUE THEN
5993: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
5994: END IF;
5995: l_ord_dtl_index_tbl(1) :=
5996: l_adj_tbl(j).line_detail_index;
5998: l_ord_adj_amt_tbl(1) :=
5999: nvl(l_return_adjustment, 0) *
6000: nvl(l_adj_tbl(j).line_priced_quantity, 0);
6001:
6002: IF l_debug = FND_API.G_TRUE THEN
6003: QP_PREQ_GRP.engine_debug('ord lvl1');
6004: QP_PREQ_GRP.engine_debug('ord lvl2'
6005: || l_adj_tbl(j).line_priced_quantity);
6006: QP_PREQ_GRP.engine_debug('ord lvl3'
6046:
6047: l_ord_qty_operand_tbl(1) := l_ord_qty_operand;
6048: l_ord_qty_adj_amt_tbl(1) := l_ord_qty_adj_amt;
6049:
6050: IF l_debug = FND_API.G_TRUE THEN
6051: QP_PREQ_GRP.engine_debug('ord lvl firstrec'
6052: ||' adjamt '|| l_ord_adj_amt_tbl(1)
6053: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(1)
6054: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(1));
6056: ELSE ---l_ord_dtl_index_tbl.COUNT
6057: FOR n IN
6058: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
6059: LOOP
6060: IF l_debug = FND_API.G_TRUE THEN
6061: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
6062: l_ord_dtl_index_tbl(n) ||' current rec index '
6063: || l_adj_tbl(j).line_detail_index
6064: ||' count '|| l_ord_dtl_index_tbl.COUNT
6068: END IF;
6069: IF l_ord_dtl_index_tbl(n) =
6070: l_adj_tbl(j).line_detail_index
6071: THEN
6072: IF l_debug = FND_API.G_TRUE THEN
6073: QP_PREQ_GRP.engine_debug('found match '
6074: ||' ct adjamt '|| l_ord_adj_amt_tbl(n));
6075: END IF;
6076: --fix for bug2424931 multiply by priced_qty
6105: l_ord_qty_adj_amt_tbl(n) :=
6106: l_ord_qty_adj_amt_tbl(n) + l_ord_qty_adj_amt;
6107: l_ord_qty_operand_tbl(n) := l_ord_qty_operand;
6108:
6109: IF l_debug = FND_API.G_TRUE THEN
6110: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
6111: l_ord_adj_amt_tbl(n)
6112: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6113: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(n));
6117: l_ord_dtl_index_tbl(l_ord_dtl_index_tbl.LAST)
6118: AND l_ord_dtl_index_tbl(n) <>
6119: l_adj_tbl(j).line_detail_index
6120: THEN
6121: IF l_debug = FND_API.G_TRUE THEN
6122: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
6123: l_adj_tbl(j).line_detail_index ||' adjamt '
6124: || l_return_adjustment
6125: ||' qty '|| l_adj_tbl(j).line_priced_quantity);
6159: := l_ord_qty_operand;
6160: l_ord_qty_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
6161: := l_ord_qty_adj_amt;
6162:
6163: IF l_debug = FND_API.G_TRUE THEN
6164: QP_PREQ_GRP.engine_debug('ord lvl lastadjamt '||
6165: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6166: END IF;
6167: END IF; -----l_ord_dtl_index_tbl(n)
6164: QP_PREQ_GRP.engine_debug('ord lvl lastadjamt '||
6165: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6166: END IF;
6167: END IF; -----l_ord_dtl_index_tbl(n)
6168: IF l_debug = FND_API.G_TRUE THEN
6169: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
6170: || l_ord_dtl_index_tbl(n) ||' adj amt '
6171: || l_ord_adj_amt_tbl(n)
6172: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6193: THEN
6194: l_return_adjustment := round (l_return_adjustment, - 1 * l_adj_tbl(j).rounding_factor);
6195: END IF; -- end rounding
6196: -- end 2892848_latest
6197: IF l_debug = FND_API.G_TRUE THEN
6198: QP_PREQ_GRP.engine_debug('prev USP: '|| l_adjusted_price);
6199: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6200: END IF;
6201:
6199: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6200: END IF;
6201:
6202: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6203: IF l_debug = FND_API.G_TRUE THEN
6204: QP_PREQ_GRP.engine_debug('adjusted price, i.e. current USP : '|| l_adjusted_price); -- 2892848, good place to debug current USP
6205: END IF;
6206: END IF; --created_from_list_line_type
6207:
6204: QP_PREQ_GRP.engine_debug('adjusted price, i.e. current USP : '|| l_adjusted_price); -- 2892848, good place to debug current USP
6205: END IF;
6206: END IF; --created_from_list_line_type
6207:
6208: IF l_debug = FND_API.G_TRUE THEN
6209:
6210: QP_PREQ_GRP.engine_debug('Processed lines: line index'
6211: || l_adj_tbl(j).line_ind ||' adjusted price '
6212: --||l_adj_tbl(j).updated_adjusted_unit_price -- 2892848
6220: /* out 2892848*/
6221:
6222: IF line_change = TRUE
6223: THEN
6224: IF l_debug = FND_API.G_TRUE THEN
6225: QP_PREQ_GRP.engine_debug('line change ');
6226: END IF;
6227:
6228: --[julin/5025231]
6238:
6239:
6240: --x:=l_adj_tbl(j).line_ind; -- 2892848, 3126019
6241:
6242: IF l_debug = FND_API.G_TRUE THEN
6243: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6244: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6245: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6246:
6266: -- End Ravi
6267:
6268: -- Ravi bug# 2745337-divisor by zero
6269: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
6270: IF (l_debug = FND_API.G_TRUE) THEN
6271: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #2');
6272: END IF;
6273: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
6274: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
6282: x_ordqty_output2 => l_ordqty_selling_price_tbl(x),
6283: x_return_status => x_return_status,
6284: x_return_status_text => x_return_status_text);
6285: ELSE
6286: IF l_debug = FND_API.G_TRUE THEN
6287: QP_PREQ_GRP.engine_debug('Ordered Qty #2 : ' || l_adj_tbl(j).ordered_qty);
6288: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is 0 or modifier level code is not ORDER');
6289: END IF;
6290: l_ordqty_unit_price_tbl(x) := 0;
6290: l_ordqty_unit_price_tbl(x) := 0;
6291: l_ordqty_selling_price_tbl(x) := 0;
6292: END IF;
6293:
6294: IF l_debug = FND_API.G_TRUE THEN
6295: QP_PREQ_GRP.engine_debug('Printing ordqty_selling_price '
6296: || l_ordqty_selling_price_tbl(x) ||' unit_price '
6297: || l_ordqty_unit_price_tbl(x));
6298: END IF; --l_debug
6324: -- this is not the final USP since now we order by bucket
6325:
6326: and l_rounding_factor_tbl(x) IS NOT NULL
6327: THEN
6328: IF l_debug = FND_API.G_TRUE THEN
6329: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6330: ||l_rounding_factor_tbl(x));
6331: END IF;
6332: l_adj_unit_price_tbl(x) :=
6344: --fix for bug 2831270
6345: G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))) :=
6346: l_adj_unit_price_tbl(x);
6347:
6348: IF l_debug = FND_API.G_TRUE THEN
6349: QP_PREQ_GRP.engine_debug('oldfgline line ind '
6350: || l_line_index_tbl(x) ||' adjprice '
6351: || G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))));
6352: END IF; --l_debug
6351: || G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))));
6352: END IF; --l_debug
6353: END IF; --G_PRG_UNCH_LINE_IND_TBL
6354:
6355: IF l_debug = FND_API.G_TRUE THEN
6356: QP_PREQ_GRP.engine_debug('price in line_tbl'
6357: ||' table index '|| x
6358: ||' line index '|| l_line_index_tbl(x)
6359: ||' adjusted price '|| l_adj_unit_price_tbl(x)
6367: || i ||' x '|| x);
6368: END IF;
6369: J := l_adj_tbl.NEXT(j);
6370: END LOOP;
6371: IF l_debug = FND_API.G_TRUE THEN
6372: QP_PREQ_GRP.engine_debug('----------------------------------');
6373:
6374: END IF;
6375: IF l_frt_tbl.COUNT > 0
6377: THEN
6378: x := l_ldet_line_dtl_index_tbl.FIRST;
6379: WHILE x IS NOT NULL
6380: LOOP
6381: IF l_debug = FND_API.G_TRUE THEN
6382: QP_PREQ_GRP.engine_debug('frt charge processing listlineid1 ');
6383: QP_PREQ_GRP.engine_debug('frt charge processing listlineid '
6384: || l_ldet_line_dtl_index_tbl(x) ||' type '
6385: || l_ldet_list_line_type_tbl(x) ||' is max frt ');
6386: END IF;
6387: -- ||l_ldet_is_max_frt_tbl(x));
6388:
6389: --fix for bug2424931 update order lvl adj amt
6390: IF (l_debug = FND_API.G_TRUE) THEN
6391: QP_PREQ_GRP.engine_debug('Modifier Level : ' || l_ldet_modifier_level_tbl(x));
6392: END IF;
6393:
6394: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6392: END IF;
6393:
6394: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6395: THEN
6396: IF l_debug = FND_API.G_TRUE THEN
6397: QP_PREQ_GRP.engine_debug('update ord lvl adj amt '
6398: ||'looping thru dtlind '|| l_ldet_line_dtl_index_tbl(x));
6399: END IF;
6400: i := l_ord_dtl_index_tbl.FIRST;
6402: LOOP
6403: IF l_ord_dtl_index_tbl(i) =
6404: l_ldet_line_dtl_index_tbl(x)
6405: THEN
6406: IF l_debug = FND_API.G_TRUE THEN
6407: QP_PREQ_GRP.engine_debug('update ord lvl '
6408: ||' line_dtl_index '|| l_ord_dtl_index_tbl(i)
6409: ||'adj amt '|| l_ord_adj_amt_tbl(i));
6410: END IF;
6422: END IF; --l_ldet_modifier_level_tbl
6423:
6424: IF l_ldet_list_line_type_tbl(x) = G_FREIGHT_CHARGE
6425: THEN
6426: IF l_debug = FND_API.G_TRUE THEN
6427: QP_PREQ_GRP.engine_debug('frt charge processing listlineid2 ');
6428: END IF;
6429: y := l_frt_tbl.FIRST;
6430: WHILE y IS NOT NULL
6428: END IF;
6429: y := l_frt_tbl.FIRST;
6430: WHILE y IS NOT NULL
6431: LOOP
6432: IF l_debug = FND_API.G_TRUE THEN
6433: QP_PREQ_GRP.engine_debug('frt charge processing listlineid3 ');
6434: QP_PREQ_GRP.engine_debug('l_ldet_line_index_tbl(x): '|| l_ldet_line_index_tbl(x));
6435: END IF;
6436: IF l_frt_tbl(y).line_detail_index =
6437: l_ldet_line_dtl_index_tbl(x)
6438: AND l_ldet_line_index_tbl(x) = -- 2892848 fix bug,
6439: l_frt_tbl(y).line_index -- 2892848 fix bug
6440: THEN
6441: IF l_debug = FND_API.G_TRUE THEN
6442: QP_PREQ_GRP.engine_debug('frt charge processing listlineid4 ');
6443: END IF;
6444: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6445: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6443: END IF;
6444: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6445: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6446: l_frt_tbl.DELETE(y);
6447: IF l_debug = FND_API.G_TRUE THEN
6448: QP_PREQ_GRP.engine_debug('frt charge retaind '
6449: || l_ldet_list_line_id_tbl(x) ||' '
6450: || l_ldet_pricing_sts_code_tbl(x));
6451: END IF;
6454: END LOOP; --frt_tbl
6455: END IF; --frt_charge
6456: x := l_ldet_line_dtl_index_tbl.NEXT(x);
6457: END LOOP; --ldet_line_dtl_index_tbl
6458: IF l_debug = FND_API.G_TRUE THEN
6459: QP_PREQ_GRP.engine_debug('----------------------------------');
6460: END IF;
6461: END IF; --frt_tbl.count
6462:
6459: QP_PREQ_GRP.engine_debug('----------------------------------');
6460: END IF;
6461: END IF; --frt_tbl.count
6462:
6463: IF l_debug = FND_API.G_TRUE THEN
6464: QP_PREQ_GRP.engine_debug('----------------------------------');
6465:
6466: END IF;
6467: --**************************************************************
6468: --BACK CALCULATION ROUTINE
6469: --**************************************************************
6470: --xxxxxxxxxxxxxx
6471:
6472: IF l_debug = FND_API.G_TRUE THEN
6473: QP_PREQ_GRP.engine_debug('back calculation for line ');
6474: END IF;
6475: IF l_line_index_tbl.COUNT > 0
6476: THEN
6473: QP_PREQ_GRP.engine_debug('back calculation for line ');
6474: END IF;
6475: IF l_line_index_tbl.COUNT > 0
6476: THEN
6477: IF l_debug = FND_API.G_TRUE THEN
6478: QP_PREQ_GRP.engine_debug('back calculation1 for line ');
6479: END IF;
6480: i := l_line_index_tbl.FIRST;
6481: WHILE i IS NOT NULL
6479: END IF;
6480: i := l_line_index_tbl.FIRST;
6481: WHILE i IS NOT NULL
6482: LOOP
6483: IF l_debug = FND_API.G_TRUE THEN
6484: QP_PREQ_GRP.engine_debug('back calculation2 for line '
6485: || l_amount_changed_tbl(i));
6486: END IF; --l_debug
6487:
6493: l_back_calc_adj_amount := 0;
6494: l_back_calc_dtl_ind := 0;
6495: l_back_calc_plsql_index := 0;
6496: END IF;
6497: IF l_debug = FND_API.G_TRUE THEN
6498: QP_PREQ_GRP.engine_debug('prev back calculation rec '
6499: || l_back_calc_dtl_ind
6500: ||' plsql '|| l_back_calc_plsql_index
6501: ||' adj amt '|| l_back_calc_adj_amount);
6508: IF l_upd_adj_unit_price_tbl(i) IS NOT NULL
6509: AND ((l_upd_adj_unit_price_tbl(i) -
6510: l_adj_unit_price_tbl(i)) <> 0)
6511: THEN
6512: IF l_debug = FND_API.G_TRUE THEN
6513: QP_PREQ_GRP.engine_debug('back calculation for line '
6514: || l_line_index_tbl(i));
6515:
6516: END IF;
6535: (l_upd_adj_unit_price_tbl(i) +
6536: l_back_calc_adj_amount)
6537: - l_adj_unit_price_tbl(i);
6538:
6539: IF l_debug = FND_API.G_TRUE THEN
6540: QP_PREQ_GRP.engine_debug('amt changed '
6541: || l_amount_changed_tbl(i));
6542: END IF; --l_debug
6543:
6552: , l_back_calc_ret_rec
6553: , l_return_status
6554: , l_return_status_text);
6555:
6556: IF l_return_status = FND_API.G_RET_STS_SUCCESS
6557: THEN
6558:
6559: --need to do this check for bug 2833753
6560: IF G_ldet_plsql_index_tbl.EXISTS(l_back_calc_ret_rec.line_detail_index) THEN
6563: ELSE
6564: l_tbl_index := l_ldet_line_dtl_index_tbl.COUNT + 1;
6565: END IF; --G_ldet_plsql_index_tbl
6566:
6567: IF l_debug = FND_API.G_TRUE THEN
6568: QP_PREQ_GRP.engine_debug('back cal succ insert rec '
6569: || l_tbl_index);
6570: END IF;
6571: l_ldet_line_dtl_index_tbl(l_tbl_index) :=
6646: --changes to calculate the order_uom_selling_price
6647: IF (l_ordered_qty_tbl(i) <> 0
6648: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6649: G_ORDER_LEVEL) THEN
6650: IF (l_debug = FND_API.G_TRUE) THEN
6651: QP_PREQ_GRP.engine_debug('Before Going into '
6652: ||'GET_ORDERQTY_VALUES #2.5');
6653: END IF; --l_debug
6654: GET_ORDERQTY_VALUES(p_ordered_qty =>
6664: x_ordqty_output2 => l_ordqty_selling_price_tbl(i),
6665: x_return_status => x_return_status,
6666: x_return_status_text => x_return_status_text);
6667: ELSE --ordered_qty
6668: IF l_debug = FND_API.G_TRUE THEN
6669: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
6670: || l_ordered_qty_tbl(i));
6671: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
6672: ||'0 or modifier level code is not ORDER');
6687: -- Ravi bug# 2745337-divisor by zero
6688: IF (l_ordered_qty_tbl(i) <> 0
6689: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6690: G_ORDER_LEVEL) THEN
6691: IF (l_debug = FND_API.G_TRUE) THEN
6692: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #3');
6693: END IF;
6694: GET_ORDERQTY_VALUES(p_ordered_qty => l_ordered_qty_tbl(i),
6695: p_priced_qty => l_line_priced_qty_tbl(i),
6705: x_ordqty_output2 => l_ldet_ordqty_adjamt_tbl(l_tbl_index),
6706: x_return_status => x_return_status,
6707: x_return_status_text => x_return_status_text);
6708: ELSE
6709: IF l_debug = FND_API.G_TRUE THEN
6710: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_ordered_qty_tbl(i));
6711: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
6712: END IF;
6713: l_ldet_ordqty_operand_tbl(l_tbl_index) := 0;
6734: IF G_ROUND_INDIVIDUAL_ADJ = G_NO_ROUND_ADJ -- 2892848_latest, not to round current USP for G_ROUND_ADJ case since it is not final USP yet
6735: --IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu fix 2239061
6736: AND l_rounding_factor_tbl(i) IS NOT NULL
6737: THEN
6738: IF l_debug = FND_API.G_TRUE THEN
6739: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6740: || l_rounding_factor_tbl(i));
6741: END IF;
6742: l_adj_unit_price_tbl(i) :=
6750: , - 1 * l_rounding_factor_tbl(i));
6751: END IF;
6752:
6753: ELSE --ret_status
6754: IF l_debug = FND_API.G_TRUE THEN
6755: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
6756: END IF;
6757: l_pricing_sts_code_tbl(i) := l_return_status;
6758: l_pricing_sts_txt_tbl(i) :=
6761: END IF;
6762: i := l_line_index_tbl.NEXT(i);
6763: END LOOP;
6764: END IF; --count > 0
6765: IF l_debug = FND_API.G_TRUE THEN
6766: QP_PREQ_GRP.engine_debug('end back calc for line ');
6767:
6768: END IF;
6769: ---------------------------------------------------------------------
6768: END IF;
6769: ---------------------------------------------------------------------
6770: --Debug Info
6771: ---------------------------------------------------------------------
6772: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6773: THEN
6774: IF l_debug = FND_API.G_TRUE THEN
6775: QP_PREQ_GRP.engine_debug('in debug --------------');
6776: END IF;
6770: --Debug Info
6771: ---------------------------------------------------------------------
6772: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6773: THEN
6774: IF l_debug = FND_API.G_TRUE THEN
6775: QP_PREQ_GRP.engine_debug('in debug --------------');
6776: END IF;
6777: j := l_line_index_tbl.FIRST;
6778: WHILE j IS NOT NULL
6792: ,-1*l_rounding_factor_tbl(j));
6793: END IF; -- end rounding 2892848
6794: */
6795:
6796: IF l_debug = FND_API.G_TRUE THEN
6797: QP_PREQ_GRP.engine_debug('(No final rounding) Line Info '|| j
6798: ||' line index '|| l_line_index_tbl(j)
6799: ||' unit price '|| l_unit_price_tbl(j)
6800: ||' final adjusted_unit_price '|| l_adj_unit_price_tbl(j)
6802: ||' pricing_status_text '|| l_pricing_sts_txt_tbl(j));
6803: END IF;
6804: -- ||' processed_flag '||l_processed_flag_tbl(j));
6805: -- ||' processed_code '||l_processed_code_tbl(j));
6806: IF l_debug = FND_API.G_TRUE THEN
6807: QP_PREQ_GRP.engine_debug('----------------------------------');
6808: END IF;
6809: i := l_ldet_line_dtl_index_tbl.FIRST;
6810: WHILE i IS NOT NULL
6810: WHILE i IS NOT NULL
6811: LOOP
6812: IF l_line_index_tbl(j) = l_ldet_line_index_tbl(i)
6813: THEN
6814: IF l_debug = FND_API.G_TRUE THEN
6815: QP_PREQ_GRP.engine_debug('Line detail Info '|| i
6816: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
6817: ||' list_line_id '|| l_ldet_list_line_id_tbl(i)
6818: ||' operand '|| l_ldet_operand_value_tbl(i)
6824: END IF;
6825: END IF;
6826: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6827: END LOOP;
6828: IF l_debug = FND_API.G_TRUE THEN
6829: QP_PREQ_GRP.engine_debug('----------------------------------');
6830: END IF;
6831: j := l_line_index_tbl.NEXT(j);
6832: END LOOP;
6829: QP_PREQ_GRP.engine_debug('----------------------------------');
6830: END IF;
6831: j := l_line_index_tbl.NEXT(j);
6832: END LOOP;
6833: IF l_debug = FND_API.G_TRUE THEN
6834: QP_PREQ_GRP.engine_debug('-------------------------------------------');
6835:
6836: END IF;
6837: END IF;
6835:
6836: END IF;
6837: END IF;
6838:
6839: IF l_debug = FND_API.G_TRUE THEN
6840: QP_PREQ_GRP.engine_debug('Updating the line details ------------------------');
6841:
6842: END IF;
6843: ---------------------------------------------------------------------
6844: --Update Adjustments
6845: ---------------------------------------------------------------------
6846: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6847: THEN
6848: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
6849: THEN
6850: i := l_ldet_line_dtl_index_tbl.FIRST;
6851: WHILE i IS NOT NULL
6852: LOOP
6849: THEN
6850: i := l_ldet_line_dtl_index_tbl.FIRST;
6851: WHILE i IS NOT NULL
6852: LOOP
6853: IF l_debug = FND_API.G_TRUE THEN
6854: QP_PREQ_GRP.engine_debug('line details: line index '
6855: || l_ldet_line_index_tbl(i) ||' detail index '
6856: || l_ldet_line_dtl_index_tbl(i) ||' operand '
6857: || l_ldet_operand_value_tbl(i) ||' adjamt '
6870: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6871: END LOOP;
6872: END IF;
6873:
6874: IF l_debug = FND_API.G_TRUE THEN
6875: QP_PREQ_GRP.engine_debug('line details: before update ');
6876: END IF;
6877: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6878: THEN
6893: -- AND line_index = l_ldet_line_index_tbl(i)
6894: AND pricing_status_code <> G_STATUS_DELETED --[julin/4671446]
6895: AND l_ldet_process_code_tbl(i) IN (G_STATUS_NEW,
6896: G_STATUS_DELETED);
6897: IF l_debug = FND_API.G_TRUE THEN
6898: QP_PREQ_GRP.engine_debug('line details: before insert ');
6899: END IF;
6900: END IF; --l_ldet_line_dtl_index_tbl.count > 0
6901:
6967: WHERE l_ldet_process_code_tbl(i) = G_STATUS_UPDATED;
6968: END IF;
6969:
6970: ---------------------------------------------------------------------
6971: IF l_debug = FND_API.G_TRUE THEN
6972: QP_PREQ_GRP.engine_debug('Updating the line info ------------------------');
6973: END IF;
6974: ---------------------------------------------------------------------
6975: --Update Order Lines
6979: IF l_line_index_tbl.COUNT > 0
6980: THEN
6981: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
6982: LOOP
6983: IF l_debug = FND_API.G_TRUE THEN
6984: QP_PREQ_GRP.engine_debug('line info '|| l_line_index_tbl(i)
6985: ||' unit price '|| l_unit_price_tbl(i)
6986: ||' adj unit price '|| l_adj_unit_price_tbl(i));
6987: END IF;
7020: l_unit_selling_price(i) := round(l_unit_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
7021: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
7022: END IF;
7023:
7024: IF l_debug = FND_API.G_TRUE THEN
7025: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7026: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7074:
7075: -- QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments('ONTVIEW',G_YES);
7076:
7077:
7078: --X_RETURN_STATUS:= FND_API.G_RET_STS_SUCCESS;
7079: --X_RETURN_STATUS_TEXT:= l_routine||' SUCCESS ';
7080:
7081: IF l_debug = FND_API.G_TRUE THEN
7082: QP_PREQ_GRP.engine_debug('end calculate price');
7077:
7078: --X_RETURN_STATUS:= FND_API.G_RET_STS_SUCCESS;
7079: --X_RETURN_STATUS_TEXT:= l_routine||' SUCCESS ';
7080:
7081: IF l_debug = FND_API.G_TRUE THEN
7082: QP_PREQ_GRP.engine_debug('end calculate price');
7083: END IF;
7084: EXCEPTION
7085: WHEN Calculate_exc THEN
7082: QP_PREQ_GRP.engine_debug('end calculate price');
7083: END IF;
7084: EXCEPTION
7085: WHEN Calculate_exc THEN
7086: IF l_debug = FND_API.G_TRUE THEN
7087: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7088: END IF;
7089: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7090: WHEN OTHERS THEN
7085: WHEN Calculate_exc THEN
7086: IF l_debug = FND_API.G_TRUE THEN
7087: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7088: END IF;
7089: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7090: WHEN OTHERS THEN
7091: IF l_debug = FND_API.G_TRUE THEN
7092: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7093: END IF;
7087: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7088: END IF;
7089: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7090: WHEN OTHERS THEN
7091: IF l_debug = FND_API.G_TRUE THEN
7092: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7093: END IF;
7094: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7095: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
7090: WHEN OTHERS THEN
7091: IF l_debug = FND_API.G_TRUE THEN
7092: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7093: END IF;
7094: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7095: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
7096:
7097: END CALCULATE_PRICE;
7098:
7276: WHERE list_line_id = p_list_line_id;
7277:
7278: l_bucket_price_rec l_bucket_price_cur%ROWTYPE;
7279: l_line_rec l_line_cur%ROWTYPE;
7280: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7281: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7282: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7283: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7284:
7277:
7278: l_bucket_price_rec l_bucket_price_cur%ROWTYPE;
7279: l_line_rec l_line_cur%ROWTYPE;
7280: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7281: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7282: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7283: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7284:
7285:
7278: l_bucket_price_rec l_bucket_price_cur%ROWTYPE;
7279: l_line_rec l_line_cur%ROWTYPE;
7280: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7281: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7282: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7283: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7284:
7285:
7286:
7279: l_line_rec l_line_cur%ROWTYPE;
7280: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7281: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7282: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7283: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7284:
7285:
7286:
7287: TYPE LINES_TBL_TYPE IS TABLE OF l_line_rec%TYPE INDEX BY BINARY_INTEGER;
7293: l_back_calc_ret_rec back_calc_rec_type;
7294:
7295: BACK_CALCULATE BOOLEAN := TRUE;
7296:
7297: --l_prev_line_index NUMBER := g_miss_num;--FND_API.G_MISS_NUM;
7298: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7299: l_1st_bucket VARCHAR2(1) := 'N';
7300: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7301: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7296:
7297: --l_prev_line_index NUMBER := g_miss_num;--FND_API.G_MISS_NUM;
7298: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7299: l_1st_bucket VARCHAR2(1) := 'N';
7300: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7301: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7302: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7303: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7304: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7297: --l_prev_line_index NUMBER := g_miss_num;--FND_API.G_MISS_NUM;
7298: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7299: l_1st_bucket VARCHAR2(1) := 'N';
7300: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7301: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7302: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7303: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7304: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7305: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7298: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7299: l_1st_bucket VARCHAR2(1) := 'N';
7300: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7301: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7302: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7303: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7304: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7305: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7306: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7299: l_1st_bucket VARCHAR2(1) := 'N';
7300: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7301: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7302: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7303: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7304: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7305: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7306: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7307: l_back_calc_dtl_index NUMBER := 0;
7300: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7301: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7302: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7303: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7304: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7305: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7306: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7307: l_back_calc_dtl_index NUMBER := 0;
7308: l_back_calc_adj_amt NUMBER := 0;
7302: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7303: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7304: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7305: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7306: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7307: l_back_calc_dtl_index NUMBER := 0;
7308: l_back_calc_adj_amt NUMBER := 0;
7309:
7310: l_ldet_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7307: l_back_calc_dtl_index NUMBER := 0;
7308: l_back_calc_adj_amt NUMBER := 0;
7309:
7310: l_ldet_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7311: l_line_index NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7312: l_calc_quantity NUMBER := 0;
7313:
7314: --added to calculate order level adjustments' adj amt
7315: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7424:
7425: BEGIN
7426:
7427: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7428: IF l_debug = FND_API.G_TRUE THEN
7429: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7430: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7431:
7432: END IF;
7457: --has been coded with an assumption that only one line is dealt
7458: --with in the l_bucket_price_cur below
7459: l_lines_tbl(l_line_rec.line_index) := l_line_rec; -- bug 3306349
7460:
7461: IF l_debug = FND_API.G_TRUE THEN
7462: QP_PREQ_GRP.ENGINE_DEBUG('Gather lines passed: Line_Index '|| l_line_rec.line_index ||
7463: ' list price '|| l_line_rec.unit_price ||
7464: ' adjusted unit price '|| l_line_rec.adjusted_unit_price ||
7465: ' updated adjusted unit price '|| l_line_rec.updated_adjusted_unit_price);
7482: BACK_CALCULATE := FALSE;
7483: --l_list_price := l_lines_tbl(j).unit_price; -- 2892848
7484: --l_sub_total_price := l_list_price; -- 2892848
7485: --l_adjusted_price := l_list_price; -- 2892848
7486: --l_prev_bucket := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7487: l_amount_changed := 0;
7488: l_BACK_CALCULATE_START_TYPE := G_BACK_CALCULATION_STS_NONE;
7489: l_return_status := '';
7490: l_return_status_text := '';
7488: l_BACK_CALCULATE_START_TYPE := G_BACK_CALCULATION_STS_NONE;
7489: l_return_status := '';
7490: l_return_status_text := '';
7491:
7492: IF l_debug = FND_API.G_TRUE THEN
7493: /* 2892848
7494: QP_PREQ_GRP.ENGINE_DEBUG('************************ looping through request lines');
7495: QP_PREQ_GRP.ENGINE_DEBUG('Processing
7496: Line Index'||l_lines_tbl(j).line_index||
7527: END IF;
7528: l_return_adjustment := 0; -- diff other path ???
7529: -- end 2892848
7530:
7531: IF l_debug = FND_API.G_TRUE THEN
7532: QP_PREQ_GRP.ENGINE_DEBUG('------------------- looping through ldet lines');
7533: QP_PREQ_GRP.ENGINE_DEBUG('Processing Adjustments:
7534: line index '|| l_bucket_price_rec.line_ind ||
7535: ' list line id '|| l_bucket_price_rec.created_from_list_line_id ||
7602: IF (l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)) THEN
7603: l_sub_total_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7604: l_adjusted_price := l_sub_total_price;
7605: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) * l_bucket_price_rec.priced_qty;
7606: IF l_debug = FND_API.G_TRUE THEN
7607: QP_PREQ_GRP.engine_debug('bucket change within same line.'
7608: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7609: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7610: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) || '*' ||
7640: ELSE
7641: l_sub_total_price := 0;
7642: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7643: l_adjusted_price := l_sub_total_price;
7644: IF l_debug = FND_API.G_TRUE THEN
7645: QP_PREQ_GRP.engine_debug('bucket change, line change. '
7646: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7647: END IF; -- end debug
7648:
7648:
7649: IF l_prev_line_index = - 9999 THEN
7650: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7651: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty;
7652: IF l_debug = FND_API.G_TRUE THEN
7653: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
7654: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7655: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7656: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7659:
7660: ELSE -- l_prev_line_index <> -9999
7661: IF (l_lines_tbl.EXISTS(l_prev_line_index)) THEN
7662: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7663: IF l_debug = FND_API.G_TRUE THEN
7664: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
7665: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7666: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7667: END IF; -- end debug
7679: l_sub_total_price := 0;
7680: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7681: l_adjusted_price := l_sub_total_price;
7682:
7683: IF l_debug = FND_API.G_TRUE THEN
7684: QP_PREQ_GRP.engine_debug('line change, same bucket');
7685: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
7686: END IF; -- end debug
7687:
7686: END IF; -- end debug
7687:
7688: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7689: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7690: IF l_debug = FND_API.G_TRUE THEN
7691: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
7692: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7693: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7694: END IF; -- end debug
7697: -- SL_more, to default and for line level net amt, in case no further line to set this
7698: IF l_1st_bucket = 'Y' THEN
7699: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7700: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty; -- for line level net amt we need this
7701: IF l_debug = FND_API.G_TRUE THEN
7702: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_bucket_price_rec.line_ind ||'): '
7703: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7704: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7705: END IF; -- end debug
7719: -- MOVE TO HERE
7720: IF l_bucket_price_rec.pricing_group_sequence <> 0 AND l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN -- bucket 0 is line event list price
7721: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
7722: IF l_prev_bucket <> l_bucket_price_rec.pricing_group_sequence THEN
7723: IF l_debug = FND_API.G_TRUE THEN
7724: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to record bucket USP for each line_index');
7725: END IF; -- END debug
7726:
7727: -- for LINE GROUP
7730: -- prev_lg_adj_amt is the sum of adj_amts for all lines up to prev buckets
7731:
7732: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
7733: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
7734: IF l_debug = FND_API.G_TRUE THEN
7735: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
7736: END IF; -- END debug
7737:
7738: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
7748: ELSE
7749: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7750: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7751:
7752: IF l_debug = FND_API.G_TRUE THEN
7753: QP_PREQ_GRP.engine_debug ('debug LINE unit adjs up to prev bucket for line index'||l_bucket_price_rec.line_ind ||': '||l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) );
7754: END IF; -- END debug
7755: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7756:
7757:
7758: -- begin shu fix bug for special case, bucket change within same line index
7759: IF line_change = false THEN
7760: l_sub_total_price := nvl(l_adjusted_price, l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7761: IF l_debug = FND_API.G_TRUE THEN
7762: QP_PREQ_GRP.engine_debug('bucket change within same line'
7763: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7764: END IF;
7765: END IF; -- END IF line_change = flase
7778: ELSE
7779: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7780: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7781:
7782: IF l_debug = FND_API.G_TRUE THEN
7783: QP_PREQ_GRP.engine_debug ('line change, debug LINE unit adjs up to prev bucket for line index'||l_bucket_price_rec.line_ind ||': '||l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) );
7784: END IF; -- END debug
7785: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7786: END IF; -- END IF line_change true
7789:
7790: ELSE -- bucket is 0 or null -- begin shu fix bug
7791: l_sub_total_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0);
7792: l_adjusted_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price,l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7793: IF l_debug = FND_API.G_TRUE THEN
7794: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
7795: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7796: END IF;
7797: -- end shu fix bug
7809: --for bug2897524 retain line_quantity for zerounitprice
7810: IF l_bucket_price_rec.priced_quantity = 0
7811: AND l_bucket_price_rec.unit_price <> 0
7812: THEN
7813: IF l_debug = FND_API.G_TRUE THEN
7814: QP_PREQ_GRP.engine_debug('line_qty zero changed to null');
7815: END IF;
7816: l_bucket_price_rec.priced_quantity := NULL;
7817: END IF;
7872:
7873: --fix for bug2424931
7874: l_calc_quantity := nvl(l_calc_quantity, 1);
7875:
7876: IF l_debug = FND_API.G_TRUE THEN
7877: QP_PREQ_GRP.engine_debug('figuring out qty level '
7878: || l_bucket_price_rec.modifier_level_code
7879: ||' pricedqty '|| l_bucket_price_rec.priced_quantity
7880: ||' grpqty '|| l_bucket_price_rec.group_quantity
7932:
7933: -- begin 2892848
7934: -- net_amount line level (not group of line) modifier
7935: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
7936: IF l_debug = FND_API.G_TRUE THEN
7937: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_bucket_price_rec.created_from_list_line_id);
7938: END IF; -- end debug
7939: /* SL_latest
7940: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7939: /* SL_latest
7940: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7941: l_qualifier_value:= l_bucket_price_rec.priced_quantity
7942: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
7943: IF l_debug = FND_API.G_TRUE THEN
7944: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
7945: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
7946: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0) );
7947: END IF; -- end debug
7950: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec)
7951: */
7952: IF l_bucket_amt_tbl.EXISTS(l_bucket_price_rec.line_ind)THEN
7953: l_qualifier_value := l_bucket_amt_tbl(l_bucket_price_rec.line_ind);
7954: IF l_debug = FND_API.G_TRUE THEN
7955: QP_PREQ_GRP.engine_debug('line level net amount, SL_latest ?: '|| l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7956: END IF; -- end debug
7957: END IF; -- END IF l_bucket_amt_tbl.EXISTs
7958: END IF; -- END IF net_amount modifier
7970: -- begin 2892848
7971: -- IF net amount linegroup modifier
7972: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
7973:
7974: IF l_debug = FND_API.G_TRUE THEN
7975: QP_PREQ_GRP.engine_debug('net amount linegroup modifier id: '|| l_bucket_price_rec.created_from_list_line_id);
7976: END IF; -- end debug
7977:
7978: l_lg_net_amt := 0;
7999: -- calculate the list price * qty for those lines.
8000: IF nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P' THEN
8001: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8002: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8003: IF l_debug = FND_API.G_TRUE THEN
8004: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8005: END IF; --end debug
8006: ELSE -- need to calculate l_lg_net_amt
8007: IF l_debug = FND_API.G_TRUE THEN
8003: IF l_debug = FND_API.G_TRUE THEN
8004: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8005: END IF; --end debug
8006: ELSE -- need to calculate l_lg_net_amt
8007: IF l_debug = FND_API.G_TRUE THEN
8008: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
8009: END IF;
8010: -- calculate amount using product attribute net amount grouping
8011: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8010: -- calculate amount using product attribute net amount grouping
8011: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8012: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
8013: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
8014: IF l_debug = FND_API.G_TRUE THEN
8015: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
8016: END IF; --end debug
8017: ELSE
8018: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8016: END IF; --end debug
8017: ELSE
8018: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8019: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8020: IF l_debug = FND_API.G_TRUE THEN
8021: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
8022: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
8023: END IF;
8024: END IF;
8023: END IF;
8024: END IF;
8025: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8026:
8027: IF l_debug = FND_API.G_TRUE THEN
8028: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
8029: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
8030: END IF;
8031: END LOOP;
8035: END IF; -- end l_bucket_price_rec.net_amount_flag = 'P' -- [julin/3265308]
8036:
8037: IF l_1st_bucket = 'Y' THEN
8038:
8039: IF l_debug = FND_API.G_TRUE THEN
8040: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
8041: END IF; -- end debug
8042: l_lg_net_amt := l_bucket_price_rec.priced_quantity;
8043:
8042: l_lg_net_amt := l_bucket_price_rec.priced_quantity;
8043:
8044: ELSE -- l_1st_bucket <>'Y'
8045:
8046: IF l_debug = FND_API.G_TRUE THEN
8047: QP_PREQ_GRP.engine_debug(' - not first bucket');
8048: END IF;
8049: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8050: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8047: QP_PREQ_GRP.engine_debug(' - not first bucket');
8048: END IF;
8049: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8050: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8051: IF l_debug = FND_API.G_TRUE THEN
8052: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl('|| l_bucket_price_rec.line_ind ||'): '|| l_qualifier_value);
8053: END IF; --end debug
8054:
8055: ELSE -- ELSE IF l_mod_lg_net_amt_tbl.EXISTS
8068:
8069: FOR t IN l_net_mod_index_cur(l_bucket_price_rec.created_from_list_line_id) LOOP
8070: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
8071: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
8072: IF l_debug = FND_API.G_TRUE THEN
8073: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
8074: END IF; --end debug
8075: ELSE
8076: l_line_bucket_amt := 0;
8076: l_line_bucket_amt := 0;
8077: END IF;
8078: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
8079:
8080: IF l_debug = FND_API.G_TRUE THEN
8081: QP_PREQ_GRP.engine_debug('net amount l_bucket_amt_tbl('|| t.line_index ||'): '|| l_line_bucket_amt);
8082: END IF; --end debug
8083:
8084: END LOOP; -- end l_net_mod_index_cur
8092:
8093: -- [julin/4112395/4220399]
8094: IF (nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P') THEN
8095: l_qualifier_value := l_lg_prod_net_amt;
8096: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8097: IF (l_sub_total_price = 0) THEN
8098: l_req_value_per_unit := FND_API.G_NULL_NUM;
8099: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
8100: ELSE
8094: IF (nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P') THEN
8095: l_qualifier_value := l_lg_prod_net_amt;
8096: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8097: IF (l_sub_total_price = 0) THEN
8098: l_req_value_per_unit := FND_API.G_NULL_NUM;
8099: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
8100: ELSE
8101: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
8102: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
8095: l_qualifier_value := l_lg_prod_net_amt;
8096: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8097: IF (l_sub_total_price = 0) THEN
8098: l_req_value_per_unit := FND_API.G_NULL_NUM;
8099: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
8100: ELSE
8101: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
8102: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
8103: END IF;
8102: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
8103: END IF;
8104: ELSE
8105: l_qualifier_value := l_lg_net_amt;
8106: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8107: IF (l_sub_total_price = 0) THEN
8108: l_req_value_per_unit := FND_API.G_NULL_NUM;
8109: ELSE
8110: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
8104: ELSE
8105: l_qualifier_value := l_lg_net_amt;
8106: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8107: IF (l_sub_total_price = 0) THEN
8108: l_req_value_per_unit := FND_API.G_NULL_NUM;
8109: ELSE
8110: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
8111: END IF;
8112: END IF;
8110: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
8111: END IF;
8112: END IF;
8113:
8114: IF l_debug = FND_API.G_TRUE THEN
8115: QP_PREQ_GRP.engine_debug('group amount: ' || l_bucket_price_rec.priced_quantity); -- grp amt
8116: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
8117:
8118: END IF; --end debug
8125:
8126: END IF; --l_pbh_pricing_attr
8127: END IF; --modifier level code
8128:
8129: IF l_debug = FND_API.G_TRUE THEN
8130: QP_PREQ_GRP.engine_debug('PBH break dtls attribute '
8131: || l_pbh_pricing_attr ||' l_total_value '|| l_total_value
8132: ||' l_req_value_per_unit '|| l_req_value_per_unit);
8133: END IF; --l_debug
8175: l_return_adjustment :=
8176: - 1 * nvl(l_return_adjustment, 0);
8177:
8178: -- 2892848
8179: IF l_debug = FND_API.G_TRUE THEN
8180: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
8181: END IF; --l_debug
8182: -- end 2892848
8183:
8186: IF l_bucket_price_rec.updated_flag = G_YES
8187: and nvl(l_bucket_price_rec.automatic_flag,G_NO) = G_NO
8188: and (l_bucket_price_rec.adjustment_amount IS NOT NULL
8189: and l_bucket_price_rec.adjustment_amount <>
8190: G_MISS_NUM) --FND_API.G_MISS_NUM)
8191: THEN
8192: --to avoid rounding issues in rev calculations
8193: --for user-overridden adjustments
8194: l_return_adjustment :=
8207: , l_return_status_text);
8208: -- END IF;
8209: END IF;
8210:
8211: IF l_return_status = FND_API.G_RET_STS_ERROR
8212: THEN
8213: x_return_status := l_return_status;
8214: x_return_status_text := l_return_status_text;
8215: RAISE Calculate_Exc;
8215: RAISE Calculate_Exc;
8216: END IF;
8217:
8218: -- 2892848
8219: IF l_debug = FND_API.G_TRUE THEN
8220: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_return_adjustment '|| l_return_adjustment); -- 2892848, will be rounded later, ok
8221: END IF; --END IF l_debug
8222: /* SL_latest
8223: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8222: /* SL_latest
8223: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8224: IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN
8225: IF l_bucket_adj_amt_tbl.EXISTS(l_bucket_price_rec.pricing_group_sequence) THEN -- avoid no data found or table index not exists for 1st rec
8226: IF l_debug = FND_API.G_TRUE THEN
8227: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8228: END IF; -- end debug
8229: l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence):= nvl(l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence),0) +
8230: nvl(l_return_adjustment,0)* l_bucket_price_rec.priced_qty;
8232: ELSE -- avoid no data found err
8233: l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence):= nvl(l_return_adjustment,0) * l_bucket_price_rec.priced_qty;
8234: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
8235:
8236: IF l_debug = FND_API.G_TRUE THEN
8237: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8238: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8239: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8240: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8241: END IF; -- END debug
8242:
8243: -- for LINE LEVEL
8244: IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8245: IF l_debug = FND_API.G_TRUE THEN
8246: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind), 0));
8247: END IF; -- end debug
8248: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind), 0) + nvl(l_return_adjustment, 0);
8249: ELSE -- avoid no datat found err
8249: ELSE -- avoid no datat found err
8250: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_return_adjustment, 0);
8251: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
8252:
8253: IF l_debug = FND_API.G_TRUE THEN
8254: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_bucket_price_rec.line_ind);
8255: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind));
8256: END IF; -- END debug
8257: END IF; -- END IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL
8267: round(l_return_adjustment,
8268: ( - 1 * l_bucket_price_rec.rounding_factor));
8269: END IF;
8270:
8271: IF l_debug = FND_API.G_TRUE THEN
8272: QP_PREQ_GRP.engine_debug('rounded adj: '||
8273: l_return_adjustment
8274: ||' roundingfac: '|| l_bucket_price_rec.rounding_factor);
8275:
8279:
8280: /* SL_latest 2892848
8281: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_bucket_price_rec.adjustment_amount; -- 2892848 SL_latest
8282:
8283: IF l_debug = FND_API.G_TRUE THEN
8284: QP_PREQ_GRP.engine_debug('adjustment_amount: '||l_bucket_price_rec.adjustment_amount);
8285: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
8286: END IF; -- END IF l_debug
8287: */
8291: G_ORDER_LEVEL
8292: AND l_bucket_price_rec.created_from_list_line_type
8293: <> G_FREIGHT_CHARGE
8294: THEN
8295: IF l_debug = FND_API.G_TRUE THEN
8296: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
8297: || l_bucket_price_rec.line_type ||' listlineid '
8298: || l_bucket_price_rec.created_from_list_line_id);
8299: END IF;
8298: || l_bucket_price_rec.created_from_list_line_id);
8299: END IF;
8300: IF l_ord_dtl_index_tbl.COUNT = 0
8301: THEN
8302: IF l_debug = FND_API.G_TRUE THEN
8303: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
8304: END IF;
8305: l_ord_dtl_index_tbl(1) :=
8306: l_bucket_price_rec.line_detail_index;
8307: --fix for bug2424931 multiply by priced_qty
8308: l_ord_adj_amt_tbl(1) :=
8309: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8310: nvl(l_bucket_price_rec.priced_qty, 0);
8311: IF l_debug = FND_API.G_TRUE THEN
8312: QP_PREQ_GRP.engine_debug('ordlvl firstrec adj '
8313: || l_ord_adj_amt_tbl(1));
8314: END IF;
8315: ELSE
8315: ELSE
8316: FOR n IN
8317: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
8318: LOOP
8319: IF l_debug = FND_API.G_TRUE THEN
8320: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
8321: l_ord_dtl_index_tbl(n) ||' current rec index '
8322: || l_bucket_price_rec.line_detail_index
8323: ||' count '|| l_ord_dtl_index_tbl.COUNT
8330: --fix for bug2424931 multiply by priced_qty
8331: l_ord_adj_amt_tbl(n) := l_ord_adj_amt_tbl(n) +
8332: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8333: nvl(l_bucket_price_rec.priced_qty, 0);
8334: IF l_debug = FND_API.G_TRUE THEN
8335: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8336: l_ord_adj_amt_tbl(n));
8337: END IF;
8338: EXIT; --exit the loop once matches
8340: l_ord_dtl_index_tbl(l_ord_dtl_index_tbl.LAST)
8341: AND l_ord_dtl_index_tbl(n) <>
8342: l_bucket_price_rec.line_detail_index
8343: THEN
8344: IF l_debug = FND_API.G_TRUE THEN
8345: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
8346: l_bucket_price_rec.line_detail_index ||' adjamt '
8347: || l_bucket_price_rec.adjustment_amount
8348: ||' qty '|| l_bucket_price_rec.priced_qty);
8352: --fix for bug2424931 multiply by priced_qty
8353: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
8354: := nvl(l_bucket_price_rec.adjustment_amount, 0) *
8355: nvl(l_bucket_price_rec.priced_qty, 0);
8356: IF l_debug = FND_API.G_TRUE THEN
8357: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8358: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8359: END IF;
8360: END IF;
8357: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8358: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8359: END IF;
8360: END IF;
8361: IF l_debug = FND_API.G_TRUE THEN
8362: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
8363: || l_ord_dtl_index_tbl(n) ||' adj amt '
8364: || l_ord_adj_amt_tbl(n));
8365: END IF;
8378: ELSE
8379: l_bucket_price_rec.applied_flag := G_NO;
8380: END IF;
8381:
8382: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8383:
8384: l_bucket_price_rec.process_code :=
8385: FND_API.G_RET_STS_ERROR;
8386: l_bucket_price_rec.pricing_status_text :=
8381:
8382: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8383:
8384: l_bucket_price_rec.process_code :=
8385: FND_API.G_RET_STS_ERROR;
8386: l_bucket_price_rec.pricing_status_text :=
8387: l_return_status_text;
8388: END IF;
8389:
8392: l_bucket_price_rec.priced_quantity :=
8393: l_bucket_price_rec.priced_quantity;
8394: l_ldet_tbl(i) := l_bucket_price_rec;
8395:
8396: IF l_debug = FND_API.G_TRUE THEN
8397: QP_PREQ_GRP.ENGINE_DEBUG('Passed to table:
8398: line index '|| l_ldet_tbl(i).line_ind ||
8399: ' list_line_id '|| l_ldet_tbl(i).created_from_list_line_id ||
8400: ' adjustment amount '|| l_ldet_tbl(i).adjustment_amount ||
8409: AND nvl(l_bucket_price_rec.accrual_flag, G_NO) = G_NO
8410: THEN
8411:
8412: l_adjusted_price := (l_adjusted_price + nvl(l_return_adjustment, 0));
8413: IF l_debug = FND_API.G_TRUE THEN
8414: QP_PREQ_GRP.ENGINE_DEBUG('Display price: price '
8415: --||l_list_price||' sub-t '||l_sub_total_price -- 2892848
8416: ||' adj price (USP) '|| l_adjusted_price
8417: ||' ret adj '|| l_return_adjustment);
8429: /*
8430: IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu, fix bug 2239061
8431: and l_lines_tbl(j).rounding_factor IS NOT NULL
8432: THEN
8433: IF l_debug = FND_API.G_TRUE THEN
8434: QP_PREQ_GRP.engine_debug('round current USP, rounding_factor: '
8435: ||l_lines_tbl(j).rounding_factor);
8436: END IF;
8437: l_lines_tbl(j).adjusted_unit_price :=
8439: -1*l_lines_tbl(j).rounding_factor);
8440: END IF; -- END IF G_ROUND_INDIVIDUAL_ADJ = G_ROUND_ADJ
8441: */
8442:
8443: IF l_debug = FND_API.G_TRUE THEN
8444: QP_PREQ_GRP.ENGINE_DEBUG('adjusted_price'
8445: || l_lines_tbl(j).adjusted_unit_price ||
8446: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
8447: ' list_line_id '|| l_bucket_price_rec.created_from_list_line_id);
8453: IF l_bucket_price_rec.created_from_list_line_type =
8454: G_FREIGHT_CHARGE
8455: AND nvl(l_bucket_price_rec.automatic_flag, G_NO) = G_YES
8456: THEN
8457: IF l_debug = FND_API.G_TRUE THEN
8458: QP_PREQ_GRP.engine_debug('frt chrge func '
8459: ||'looping thru freight charge for list_line id '
8460: || l_bucket_price_rec.created_from_list_line_id
8461: ||' adj amt '
8471: IF l_frt_charge_tbl.COUNT = 0
8472: THEN
8473: --no record for charge type subtype combn
8474: --so insert into l_frt_charge_tbl
8475: IF l_debug = FND_API.G_TRUE THEN
8476: QP_PREQ_GRP.engine_debug('No frt charge so far'
8477: ||' insert new frt record ');
8478: END IF;
8479: l_frt_charge_tbl(1).line_index :=
8502: l_frt_charge_tbl(1).LEVEL := G_ORDER_LEVEL;
8503: END IF;
8504: ELSIF l_frt_charge_tbl.COUNT > 0
8505: THEN
8506: IF l_debug = FND_API.G_TRUE THEN
8507: QP_PREQ_GRP.engine_debug('frtchrg records exist');
8508:
8509: END IF;
8510: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8508:
8509: END IF;
8510: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8511: LOOP
8512: IF l_debug = FND_API.G_TRUE THEN
8513: QP_PREQ_GRP.engine_debug('existing frt record id '
8514: || l_frt_charge_tbl(N).created_from_list_line_id);
8515: -- begin 2892848
8516: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8535: l_bucket_price_rec.modifier_level_code =
8536: G_LINE_GROUP))
8537: THEN
8538: --record exists for charge type subtype combn
8539: IF l_debug = FND_API.G_TRUE THEN
8540: QP_PREQ_GRP.engine_debug('charge combn match'
8541: || l_frt_charge_tbl(N).updated_flag);
8542: END IF;
8543: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8541: || l_frt_charge_tbl(N).updated_flag);
8542: END IF;
8543: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8544: THEN
8545: IF l_debug = FND_API.G_TRUE THEN
8546: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
8547: END IF;
8548: --only if user has not overridden
8549: --replace the record with the ct adj
8549: --replace the record with the ct adj
8550: IF nvl(l_bucket_price_rec.updated_flag, G_NO) =
8551: G_YES
8552: THEN
8553: IF l_debug = FND_API.G_TRUE THEN
8554: QP_PREQ_GRP.engine_debug('Repl overridden rec');
8555: END IF;
8556: --if ct adj is overridden
8557: l_frt_charge_tbl(N).line_detail_index
8569: AND l_bucket_price_rec.adjustment_amount
8570: > l_frt_charge_tbl(N).adjustment_amount
8571: THEN
8572: --if ct adj's adj amt is greater
8573: IF l_debug = FND_API.G_TRUE THEN
8574: QP_PREQ_GRP.engine_debug('replace high adjamt');
8575: END IF;
8576: l_frt_charge_tbl(N).line_detail_index
8577: := l_bucket_price_rec.line_detail_index;
8588: EXIT;
8589: ELSE
8590: --no match for charge type subtype combn
8591: --so insert into l_frt_charge_tbl
8592: IF l_debug = FND_API.G_TRUE THEN
8593: QP_PREQ_GRP.engine_debug('charge combn no match');
8594: END IF;
8595: IF N = l_frt_charge_tbl.LAST
8596: THEN
8595: IF N = l_frt_charge_tbl.LAST
8596: THEN
8597: --this is the last record and the
8598: --charge type subtype combn not match
8599: IF l_debug = FND_API.G_TRUE THEN
8600: QP_PREQ_GRP.engine_debug('hit last rec in tbl'
8601: ||' insert new record ');
8602: QP_PREQ_GRP.engine_debug('shu debug, l_bucket_price_rec.adjustment_amount: '-- shu, 2892848
8603: || l_bucket_price_rec.adjustment_amount); -- 2892848
8641:
8642: --Freight Charge Functionality update status of frt charge adj
8643: IF l_frt_charge_tbl.COUNT > 0
8644: THEN
8645: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
8646: THEN
8647: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8648: LOOP
8649: IF l_debug = FND_API.G_TRUE THEN
8645: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
8646: THEN
8647: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8648: LOOP
8649: IF l_debug = FND_API.G_TRUE THEN
8650: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8651: || l_frt_charge_tbl(s).line_index); -- 2892848
8652: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8653: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8658: END LOOP;
8659: END IF;
8660: FOR N IN l_ldet_tbl.FIRST..l_ldet_tbl.LAST
8661: LOOP
8662: IF l_debug = FND_API.G_TRUE THEN
8663: QP_PREQ_GRP.engine_debug('in frt charge loop (SL, l_ldet_tbl loop) '-- 2892848
8664: || l_ldet_tbl(N).created_from_list_line_id
8665: ||' '|| l_ldet_tbl(N).created_from_list_line_type
8666: ||' sts '|| l_ldet_tbl(N).pricing_status_code
8681: G_STATUS_NEW;
8682: l_ldet_tbl(N).pricing_status_text :=
8683: 'MAX FRT CHARGE';
8684: l_frt_charge_tbl.DELETE(M);
8685: IF l_debug = FND_API.G_TRUE THEN
8686: QP_PREQ_GRP.engine_debug('applied frt charge '
8687: || l_ldet_tbl(N).created_from_list_line_id);
8688: END IF;
8689: END IF;
8698:
8699: j := l_lines_tbl.FIRST;
8700: WHILE j IS NOT NULL LOOP -- end 2892848
8701:
8702: IF l_debug = FND_API.G_TRUE THEN
8703: QP_PREQ_GRP.ENGINE_DEBUG('Processed lines:
8704: line index'|| l_lines_tbl(j).line_index
8705: ||' updated adjusted price '
8706: || l_lines_tbl(j).updated_adjusted_unit_price
8708:
8709: END IF;
8710: x := l_ldet_tbl.FIRST;
8711: WHILE x IS NOT NULL LOOP
8712: IF l_debug = FND_API.G_TRUE THEN
8713: QP_PREQ_GRP.ENGINE_DEBUG('line_detail_index '
8714: || l_ldet_tbl(x).line_detail_index
8715: ||'up adj price1 '
8716: || l_ldet_tbl(x).created_from_list_line_id
8738: /*****************************************************************
8739: BACK CALCULATION ROUTINE
8740: ******************************************************************/
8741:
8742: IF l_debug = FND_API.G_TRUE THEN
8743: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE ');
8744:
8745: END IF;
8746: l_ldet_tbl.DELETE;
8750: --price there is no point to check for back_calculate at the beginning
8751: --as l_amount_changed will be zero whereas at this point
8752: --l_amount_changed will not be zero
8753:
8754: IF l_debug = FND_API.G_TRUE THEN
8755: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION check: upd adj price '
8756: || l_lines_tbl(j).updated_adjusted_unit_price
8757: ||' adj price '|| l_lines_tbl(j).adjusted_unit_price);
8758:
8778: - 1 * l_lines_tbl(j).rounding_factor);
8779: END IF;
8780:
8781: -- 2892848
8782: IF l_debug = FND_API.G_TRUE THEN
8783: QP_PREQ_GRP.ENGINE_DEBUG('AFTER ROUNDING, adjusted_unit_price:'
8784: || l_lines_tbl(j).adjusted_unit_price
8785: ||' updated_adjusted_unit_price: '|| l_lines_tbl(j).adjusted_unit_price);
8786:
8796: --Back calculation
8797: IF (l_lines_tbl(j).updated_adjusted_unit_price IS NULL
8798: OR l_amount_changed = 0) --no back cal if no amt change
8799: THEN
8800: IF l_debug = FND_API.G_TRUE THEN
8801: QP_PREQ_GRP.ENGINE_DEBUG('no back calculation');
8802: END IF;
8803: BACK_CALCULATE := FALSE;
8804: ELSE
8801: QP_PREQ_GRP.ENGINE_DEBUG('no back calculation');
8802: END IF;
8803: BACK_CALCULATE := FALSE;
8804: ELSE
8805: IF l_debug = FND_API.G_TRUE THEN
8806: QP_PREQ_GRP.ENGINE_DEBUG('back calculation set');
8807: END IF;
8808: BACK_CALCULATE := TRUE;
8809:
8815: l_back_calc_dtl_index :=
8816: nvl(l_back_calc_dtl_index, 0);
8817: l_back_calc_adj_amt :=
8818: nvl(l_back_calc_adj_amt, 0);
8819: IF l_debug = FND_API.G_TRUE THEN
8820: QP_PREQ_GRP.engine_debug('back cal dtl '||
8821: l_back_calc_dtl_index ||' adjamt '|| l_back_calc_adj_amt);
8822: END IF;
8823:
8830: --second time or thereafter
8831: l_amount_changed := l_amount_changed +
8832: l_back_calc_adj_amt;
8833:
8834: IF l_debug = FND_API.G_TRUE THEN
8835: QP_PREQ_GRP.engine_debug('back cal dtl '||
8836: ' amt changed '|| l_amount_changed);
8837:
8838: END IF;
8840: l_BACK_CALCULATE_START_TYPE := G_DISCOUNT;
8841: ELSIF l_amount_changed > 0 THEN
8842: l_BACK_CALCULATE_START_TYPE := G_SURCHARGE;
8843: END IF;
8844: IF l_debug = FND_API.G_TRUE THEN
8845: QP_PREQ_GRP.ENGINE_DEBUG('back calculation start type'
8846: || l_BACK_CALCULATE_START_TYPE
8847: ||' amount changed '|| l_amount_changed);
8848:
8849: END IF;
8850: l_return_status := '';
8851: l_return_status_text := '';
8852:
8853: IF l_debug = FND_API.G_TRUE THEN
8854: QP_PREQ_GRP.ENGINE_DEBUG('before back calculation '
8855: || l_lines_tbl(j).line_index
8856: ||' amt changed '|| l_amount_changed);
8857: END IF;
8864: , l_amount_changed
8865: , l_back_calc_ret_rec
8866: , l_return_status
8867: , l_return_status_text);
8868: IF l_debug = FND_API.G_TRUE THEN
8869: QP_PREQ_GRP.ENGINE_DEBUG('after back calculation ');
8870:
8871: END IF;
8872:
8877: --it must have been rounded already
8878: l_back_calc_ret_rec.adjustment_amount :=
8879: round(l_back_calc_ret_rec.adjustment_amount,
8880: - 1 * l_back_calc_ret_rec.rounding_factor);
8881: IF l_debug = FND_API.G_TRUE THEN
8882: QP_PREQ_GRP.ENGINE_DEBUG('back calc rounded '
8883: || l_back_calc_ret_rec.adjustment_amount
8884: ||' roundingfac '
8885: || l_back_calc_ret_rec.rounding_factor);
8892:
8893:
8894: IF BACK_CALCULATE
8895: THEN
8896: IF l_debug = FND_API.G_TRUE THEN
8897: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
8898: END IF;
8899: IF l_back_calc_ret_rec.calculation_code
8900: = G_BACK_CALCULATE
8899: IF l_back_calc_ret_rec.calculation_code
8900: = G_BACK_CALCULATE
8901: THEN
8902:
8903: IF l_debug = FND_API.G_TRUE THEN
8904: QP_PREQ_GRP.ENGINE_DEBUG('Back Calculate: '
8905: ||'before update ldets: line_detail_index '
8906: || l_back_calc_ret_rec.line_detail_index
8907: ||' list line id '
8957: l_back_calc_ret_rec.list_line_id;
8958: END IF;
8959: END IF; --back_calculate
8960:
8961: IF l_debug = FND_API.G_TRUE THEN
8962: QP_PREQ_GRP.engine_debug('return sts '|| l_return_status);
8963: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
8964: END IF;
8965: IF BACK_CALCULATE
8963: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
8964: END IF;
8965: IF BACK_CALCULATE
8966: THEN
8967: IF l_debug = FND_API.G_TRUE THEN
8968: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
8969:
8970: END IF;
8971: IF l_return_status = FND_API.G_RET_STS_SUCCESS
8967: IF l_debug = FND_API.G_TRUE THEN
8968: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
8969:
8970: END IF;
8971: IF l_return_status = FND_API.G_RET_STS_SUCCESS
8972: THEN
8973: IF l_debug = FND_API.G_TRUE THEN
8974: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Success');
8975: END IF;
8969:
8970: END IF;
8971: IF l_return_status = FND_API.G_RET_STS_SUCCESS
8972: THEN
8973: IF l_debug = FND_API.G_TRUE THEN
8974: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Success');
8975: END IF;
8976: l_lines_tbl(j).processed_flag := G_PROCESSED;
8977: --change for bug 2146050
8991: IF G_ROUND_INDIVIDUAL_ADJ not in ( G_NO_ROUND, G_POST_ROUND ) --[prarasto:Post Round] added check to
8992: --skip rounding for Post Round option
8993: AND l_lines_tbl(j).rounding_factor IS NOT NULL
8994: THEN
8995: IF l_debug = FND_API.G_TRUE THEN
8996: QP_PREQ_GRP.engine_debug('need to round selling price, rounding_factor: '
8997: || l_lines_tbl(j).rounding_factor);
8998: END IF;
8999: l_lines_tbl(j).adjusted_unit_price :=
9000: round(l_lines_tbl(j).adjusted_unit_price,
9001: - 1 * l_lines_tbl(j).rounding_factor);
9002: END IF;
9003: ELSE
9004: IF l_debug = FND_API.G_TRUE THEN
9005: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Failure');
9006: END IF;
9007: l_lines_tbl(j).processed_flag := G_NOT_PROCESSED;
9008: l_lines_tbl(j).processed_code :=
9011: QP_PREQ_PUB.G_BACK_CALCULATION_STS;
9012: l_lines_tbl(j).pricing_status_text := l_return_status_text;
9013: END IF; --l_return_status
9014: ELSE
9015: IF l_debug = FND_API.G_TRUE THEN
9016: QP_PREQ_GRP.ENGINE_DEBUG('NO Back calculate');
9017: END IF;
9018: l_lines_tbl(j).processed_flag := G_PROCESSED;
9019: END IF; --back_calculate
9037: , QUALIFIERS_EXIST_FLAG = G_CALCULATE_ONLY
9038: WHERE line_index = l_lines_tbl(j).line_index;
9039:
9040:
9041: IF l_debug = FND_API.G_TRUE THEN
9042: QP_PREQ_GRP.ENGINE_DEBUG('Processed Price:
9043: line index'|| l_lines_tbl(j).line_index ||
9044: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9045: 'processed_code' || l_lines_tbl(j).processed_code);
9060: , QUALIFIERS_EXIST_FLAG = G_CALCULATE_ONLY
9061: WHERE line_index = l_lines_tbl(j).line_index;
9062:
9063:
9064: IF l_debug = FND_API.G_TRUE THEN
9065: QP_PREQ_GRP.ENGINE_DEBUG('Failed Process price:
9066: line index '|| l_lines_tbl(j).line_index ||
9067: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9068: 'processed_code' || l_lines_tbl(j).processed_code);
9075:
9076:
9077:
9078: j := l_lines_tbl.NEXT(j);
9079: IF l_debug = FND_API.G_TRUE THEN
9080: QP_PREQ_GRP.ENGINE_DEBUG('-----------------------------------');
9081: END IF;
9082: END LOOP;
9083:
9083:
9084: --to update adj amt on order level adjustments
9085: IF l_ord_dtl_index_tbl.COUNT > 0
9086: THEN
9087: IF l_debug = FND_API.G_TRUE THEN
9088: QP_PREQ_GRP.engine_debug('updating order lvl adj amt: '||
9089: l_ord_dtl_index_tbl.COUNT);
9090: END IF;
9091: FORALL i IN l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
9101: -- Call GSA Check only for non-gsa customers(GSA_QUALIFIER_FLAG IS NULL)
9102: IF G_GSA_CHECK_FLAG = G_YES
9103: AND G_GSA_ENABLED_FLAG = G_YES
9104: THEN
9105: IF l_debug = FND_API.G_TRUE THEN
9106: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
9107:
9108: END IF;
9109: /*
9127: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_HEADERS_B_N1,LIST_HEADER_ID,5
9128: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_HEADERS_B_N1,GSA_INDICATOR,6
9129: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_LINES_PK,LIST_LINE_ID,1
9130: */
9131: IF l_debug = FND_API.G_TRUE THEN
9132: QP_PREQ_GRP.engine_debug('Pub GSA attr_mgr_installed '
9133: || G_ATTR_MGR_INSTALLED);
9134: END IF;
9135: IF G_ATTR_MGR_INSTALLED = G_NO
9241: , line.pricing_effective_date))
9242: AND trunc(nvl(ql.End_date_active
9243: , line.pricing_effective_date)));
9244: END IF;
9245: IF l_debug = FND_API.G_TRUE THEN
9246: QP_PREQ_GRP.engine_debug('End Pub GSA check');
9247: END IF;
9248: END IF;
9249:
9251:
9252: --GSA VIOLATION CHECK
9253:
9254:
9255: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9256: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9257:
9258: IF l_debug = FND_API.G_TRUE THEN
9259: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9254:
9255: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9256: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9257:
9258: IF l_debug = FND_API.G_TRUE THEN
9259: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9260: END IF;
9261: EXCEPTION
9262: WHEN Calculate_Exc THEN
9259: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9260: END IF;
9261: EXCEPTION
9262: WHEN Calculate_Exc THEN
9263: IF l_debug = FND_API.G_TRUE THEN
9264: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9265: END IF;
9266: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9267: WHEN OTHERS THEN
9262: WHEN Calculate_Exc THEN
9263: IF l_debug = FND_API.G_TRUE THEN
9264: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9265: END IF;
9266: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9267: WHEN OTHERS THEN
9268: IF l_debug = FND_API.G_TRUE THEN
9269: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9270: END IF;
9264: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9265: END IF;
9266: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9267: WHEN OTHERS THEN
9268: IF l_debug = FND_API.G_TRUE THEN
9269: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9270: END IF;
9271: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9272: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
9267: WHEN OTHERS THEN
9268: IF l_debug = FND_API.G_TRUE THEN
9269: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9270: END IF;
9271: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9272: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
9273: END CALCULATE_PRICE;
9274:
9275:
9288: FROM qp_npreq_rltd_lines_tmp rltd
9289: WHERE rltd.relationship_type_code = G_PBH_LINE;
9290: BEGIN
9291: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9292: IF l_debug = FND_API.G_TRUE
9293: THEN
9294: QP_PREQ_GRP.engine_debug('------------------------------');
9295: FOR cl IN l_dbg_cleanup_cur
9296: LOOP
9321: FROM qp_npreq_rltd_lines_tmp rltd
9322: WHERE rltd.relationship_type_code = G_PBH_LINE
9323: AND rltd.pricing_status_code = G_STATUS_DELETED);
9324:
9325: IF l_debug = FND_API.G_TRUE THEN
9326: QP_PREQ_GRP.engine_debug('------------------------------');
9327: FOR cl IN l_dbg_cleanup_cur
9328: LOOP
9329: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9334: END LOOP;
9335: END IF;
9336: EXCEPTION
9337: WHEN OTHERS THEN
9338: x_return_status := FND_API.G_RET_STS_ERROR;
9339: x_return_status_text := 'Exception in QP_PREQ_PUB.Cleanup_rltd_lines '|| SQLERRM;
9340: END Cleanup_rltd_lines;
9341:
9342:
9395: AND rltd.relationship_type_code = G_PBH_LINE;
9396:
9397: BEGIN
9398:
9399: IF l_debug = FND_API.G_TRUE THEN
9400: QP_PREQ_GRP.engine_debug('-------------------------------------');
9401: FOR cl IN l_dbg_rltd_cur
9402: LOOP
9403: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9461: AND ldet.created_from_list_line_type = G_PRICE_BREAK_TYPE)
9462: AND rltd.relationship_type_code = G_PBH_LINE
9463: AND rltd.pricing_status_code = G_STATUS_NEW;
9464:
9465: IF l_debug = FND_API.G_TRUE
9466: THEN
9467: QP_PREQ_GRP.engine_debug('-------------------------------------');
9468: FOR cl IN l_dbg_rltd_upd_cur
9469: LOOP
9481: END LOOP;
9482: END IF;
9483: EXCEPTION
9484: WHEN OTHERS THEN
9485: x_return_status := FND_API.G_RET_STS_ERROR;
9486: x_return_status_text := 'Exception in QP_PREQ_PUB.Update_Related_Line_Info '|| SQLERRM;
9487: END Update_Related_Line_Info;
9488:
9489:
9573: /*
9574: open lcur;LOOP
9575: fetch lcur into lrec;
9576: EXIT when lcur%NOTFOUND;
9577: IF l_debug = FND_API.G_TRUE THEN
9578: QP_PREQ_GRP.ENGINE_DEBUG(lrec.line_index||
9579: ' user passed list_line_id '||lrec.created_from_list_line_id||
9580: ' pricing_status_code '||lrec.pricing_status_code||
9581: ' applied_flag '||lrec.applied_flag||
9582: ' updated_flag '||lrec.updated_flag||
9583: ' operand '||lrec.operand_value);
9584: END IF;
9585: END LOOP;
9586: IF l_debug = FND_API.G_TRUE THEN
9587: QP_PREQ_GRP.ENGINE_DEBUG('--------------------------------------------------');
9588: END IF;
9589: CLOSE lcur;
9590: */
9594: --pricing engine in the temporary tables, compare the adjustments passes
9595: --by the calling application and mark the temporary table qp_npreq_ldets_tmp
9596: --field process_code with a value G_STATUS_NEW
9597: ----------------------------------------------------------------------------
9598: IF l_debug = FND_API.G_TRUE THEN
9599: QP_PREQ_GRP.ENGINE_DEBUG('START PROCESS ADJUSTMENTS '|| p_pricing_event);
9600:
9601: END IF;
9602: --Step 0: Update all user passed adjustments to process_code 'DELETED'
9628: AND ((nvl(Get_buy_line_price_flag(ldet.created_from_list_line_id, ldet.line_index), line.price_flag) = G_YES)
9629: OR ((nvl(Get_buy_line_price_flag(ldet.created_from_list_line_id, ldet.line_index), line.price_flag) = G_PHASE)
9630: AND (nvl(ph.user_freeze_override_flag, ph.freeze_override_flag) = G_YES))));
9631:
9632: IF l_debug = FND_API.G_TRUE THEN
9633: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1');
9634:
9635: END IF;
9636: --Second Step: Retain adjustments input by user
9652: -- (select rltd.related_line_detail_index
9653: -- from qp_npreq_rltd_lines_tmp rltd
9654: -- where rltd.relationship_type_code = G_PBH_LINE)));
9655:
9656: IF l_debug = FND_API.G_TRUE THEN
9657: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1.5');
9658: END IF;
9659: --summary line adjustments with price flag 'N' need to be considered for calc
9660: --reqt from contracts for performance
9663: (SELECT line.line_index FROM qp_npreq_lines_tmp line
9664: WHERE line.line_type_code = G_ORDER_LEVEL
9665: AND line.price_flag = G_NO);
9666:
9667: IF l_debug = FND_API.G_TRUE THEN
9668: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step2');
9669:
9670:
9671: END IF;
9683: /*
9684: open lcur1; LOOP
9685: fetch lcur1 into lrec1;
9686: EXIT when lcur1%NOTFOUND;
9687: IF l_debug = FND_API.G_TRUE THEN
9688: QP_PREQ_GRP.ENGINE_DEBUG('list_line_id'||lrec1.created_from_list_line_id);
9689: END IF;
9690: END LOOP;
9691: CLOSE lcur1;
9690: END LOOP;
9691: CLOSE lcur1;
9692: */
9693:
9694: IF l_debug = FND_API.G_TRUE THEN
9695: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step3');
9696:
9697: END IF;
9698: --Fourth Step : Among the lines with process_code = G_STATUS_NEW
9712: i := i + 1;
9713:
9714:
9715:
9716: IF l_debug = FND_API.G_TRUE THEN
9717: QP_PREQ_GRP.ENGINE_DEBUG('DUPLICATE REC:
9718: line index '|| l_duplicate_rec.line_index ||
9719: ' detail_index '|| l_duplicate_rec.line_detail_index ||
9720: 'list_line_id '|| l_duplicate_rec.created_from_list_line_id ||
9736: IF (l_duplicate_rec.pricing_status_code = G_STATUS_UNCHANGED AND
9737: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_YES)
9738: OR (nvl(l_duplicate_rec.applied_flag, G_NO) = G_YES))) THEN
9739: --retain adj passed by user
9740: IF l_debug = FND_API.G_TRUE THEN
9741: QP_PREQ_GRP.ENGINE_DEBUG('retain user passed');
9742: END IF;
9743: l_duplicate_rec.process_code := G_STATUS_NEW;
9744: l_duplicate_rec1.process_code := G_STATUS_UNCHANGED;
9748: ELSIF (l_duplicate_rec.pricing_status_code = G_STATUS_UNCHANGED AND
9749: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO) OR
9750: (nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO))) THEN
9751: --retain adj passed by user
9752: IF l_debug = FND_API.G_TRUE THEN
9753: QP_PREQ_GRP.ENGINE_DEBUG('retain engine passed');
9754: END IF;
9755: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9756: l_duplicate_rec.pricing_status_code := G_STATUS_DELETED;
9757: l_duplicate_rec1.pricing_status_text := 'QP_PREQ_PUB:DUPLICATE RECORD';
9758: l_duplicate_rec1.process_code := G_STATUS_NEW;
9759: ELSE
9760: --retain adj passed by engine
9761: IF l_debug = FND_API.G_TRUE THEN
9762: QP_PREQ_GRP.ENGINE_DEBUG('else retain engine');
9763:
9764: END IF;
9765: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9772: END IF;
9773:
9774: l_dup_adj_tbl(i) := l_duplicate_rec;
9775:
9776: IF l_debug = FND_API.G_TRUE THEN
9777: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9778: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9779: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9780: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9782: ' updated_flag '|| l_dup_adj_tbl(i).updated_flag);
9783: END IF;
9784: i := i + 1;
9785: l_dup_adj_tbl(i) := l_duplicate_rec1;
9786: IF l_debug = FND_API.G_TRUE THEN
9787: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9788: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9789: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9790: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9805: , pricing_status_code = l_dup_adj_tbl(i).pricing_status_code
9806: , pricing_status_text = l_dup_adj_tbl(i).pricing_status_text
9807: WHERE line_detail_index = l_dup_adj_tbl(i).line_detail_index;
9808:
9809: IF l_debug = FND_API.G_TRUE THEN
9810: QP_PREQ_GRP.ENGINE_DEBUG('Update processed adjustments:
9811: list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9812: ' pricing_status_code '|| l_dup_adj_tbl(i).pricing_status_code ||
9813: 'process_code '|| l_dup_adj_tbl(i).process_code);
9815: END IF;
9816: i := l_dup_adj_tbl.NEXT(i);
9817: END LOOP;
9818:
9819: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9820:
9821: OPEN lcur1; LOOP
9822: FETCH lcur1 INTO lrec1;
9823: EXIT WHEN lcur1%NOTFOUND;
9820:
9821: OPEN lcur1; LOOP
9822: FETCH lcur1 INTO lrec1;
9823: EXIT WHEN lcur1%NOTFOUND;
9824: IF l_debug = FND_API.G_TRUE THEN
9825: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9826: ' line_dtl_index '|| lrec1.line_detail_index ||
9827: ' line_qty '|| lrec1.line_quantity ||
9828: ' list_line_id '|| lrec1.created_from_list_line_id ||
9832: END LOOP;
9833: CLOSE lcur1;
9834: END IF;
9835: Cleanup_rltd_lines(x_return_status, x_return_status_text);
9836: IF l_debug = FND_API.G_TRUE THEN
9837: QP_PREQ_GRP.engine_debug('------------------------------------------');
9838:
9839: END IF;
9840: IF x_return_status = FND_API.G_RET_STS_ERROR
9836: IF l_debug = FND_API.G_TRUE THEN
9837: QP_PREQ_GRP.engine_debug('------------------------------------------');
9838:
9839: END IF;
9840: IF x_return_status = FND_API.G_RET_STS_ERROR
9841: THEN
9842: RAISE Process_Exc;
9843: END IF;
9844:
9842: RAISE Process_Exc;
9843: END IF;
9844:
9845: Update_Related_Line_Info(x_return_status, x_return_status_text);
9846: IF l_debug = FND_API.G_TRUE THEN
9847: QP_PREQ_GRP.engine_debug('------------------------------------------');
9848: END IF;
9849: IF x_return_status = FND_API.G_RET_STS_ERROR
9850: THEN
9845: Update_Related_Line_Info(x_return_status, x_return_status_text);
9846: IF l_debug = FND_API.G_TRUE THEN
9847: QP_PREQ_GRP.engine_debug('------------------------------------------');
9848: END IF;
9849: IF x_return_status = FND_API.G_RET_STS_ERROR
9850: THEN
9851: RAISE Process_Exc;
9852: END IF;
9853:
9850: THEN
9851: RAISE Process_Exc;
9852: END IF;
9853:
9854: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9855:
9856: OPEN lcur1; LOOP
9857: FETCH lcur1 INTO lrec1;
9858: EXIT WHEN lcur1%NOTFOUND;
9855:
9856: OPEN lcur1; LOOP
9857: FETCH lcur1 INTO lrec1;
9858: EXIT WHEN lcur1%NOTFOUND;
9859: IF l_debug = FND_API.G_TRUE THEN
9860: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9861: ' list_line_id '|| lrec1.created_from_list_line_id ||
9862: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code ||
9863: ' updated '|| lrec1.updated_flag ||' process '|| lrec1.process_code);
9865: END LOOP;
9866: CLOSE lcur1;
9867: END IF;
9868:
9869: IF l_debug = FND_API.G_TRUE THEN
9870: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step4');
9871:
9872: END IF;
9873: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9869: IF l_debug = FND_API.G_TRUE THEN
9870: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step4');
9871:
9872: END IF;
9873: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9874: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9875:
9876: IF l_debug = FND_API.G_TRUE THEN
9877: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9872: END IF;
9873: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9874: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9875:
9876: IF l_debug = FND_API.G_TRUE THEN
9877: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9878: END IF;
9879: EXCEPTION
9880: WHEN Process_Exc THEN
9877: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9878: END IF;
9879: EXCEPTION
9880: WHEN Process_Exc THEN
9881: IF l_debug = FND_API.G_TRUE THEN
9882: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9883: END IF;
9884: WHEN OTHERS THEN
9885: IF l_debug = FND_API.G_TRUE THEN
9881: IF l_debug = FND_API.G_TRUE THEN
9882: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9883: END IF;
9884: WHEN OTHERS THEN
9885: IF l_debug = FND_API.G_TRUE THEN
9886: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9887: END IF;
9888: x_return_status := FND_API.G_RET_STS_ERROR;
9889: x_return_status_text := l_routine ||' '|| SQLERRM;
9884: WHEN OTHERS THEN
9885: IF l_debug = FND_API.G_TRUE THEN
9886: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9887: END IF;
9888: x_return_status := FND_API.G_RET_STS_ERROR;
9889: x_return_status_text := l_routine ||' '|| SQLERRM;
9890: END PROCESS_ADJUSTMENTS;
9891:
9892:
9901: x_return_status_text OUT NOCOPY VARCHAR2)
9902: IS
9903: BEGIN
9904: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9905: IF l_debug = FND_API.G_TRUE THEN
9906: QP_PREQ_GRP.engine_debug('Begin UPDATE_QUALIFIER_VALUE routine');
9907:
9908: END IF;
9909: UPDATE qp_npreq_rltd_lines_tmp rltd
9927: (G_STATUS_UNCHANGED, G_STATUS_UPDATED,
9928: G_STATUS_GSA_VIOLATION)
9929: AND line.usage_pricing_type =
9930: QP_PREQ_GRP.G_BILLING_TYPE);
9931: IF l_debug = FND_API.G_TRUE THEN
9932: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
9933: END IF;
9934: EXCEPTION
9935: WHEN OTHERS THEN
9932: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
9933: END IF;
9934: EXCEPTION
9935: WHEN OTHERS THEN
9936: IF l_debug = FND_API.G_TRUE THEN
9937: QP_PREQ_GRP.engine_debug('Error UPDATE_QUALIFIER_VALUE routine '|| SQLERRM);
9938: END IF;
9939: x_return_status := FND_API.G_RET_STS_ERROR;
9940: x_return_status_text := 'QP_PREQ_PUB.UPDATE_QUALIFIER_VALUE: '|| SQLERRM;
9935: WHEN OTHERS THEN
9936: IF l_debug = FND_API.G_TRUE THEN
9937: QP_PREQ_GRP.engine_debug('Error UPDATE_QUALIFIER_VALUE routine '|| SQLERRM);
9938: END IF;
9939: x_return_status := FND_API.G_RET_STS_ERROR;
9940: x_return_status_text := 'QP_PREQ_PUB.UPDATE_QUALIFIER_VALUE: '|| SQLERRM;
9941: END UPDATE_QUALIFIER_VALUE;
9942:
9943: --This is to update the status on the child break lines after calculation
9966: I PLS_INTEGER;
9967: BEGIN
9968: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9969: --This is to update the status on the child break lines after calculation
9970: IF l_debug = FND_API.G_TRUE THEN
9971: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
9972: END IF;
9973: OPEN l_child_break_cur;
9974: IF l_debug = FND_API.G_TRUE THEN
9970: IF l_debug = FND_API.G_TRUE THEN
9971: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
9972: END IF;
9973: OPEN l_child_break_cur;
9974: IF l_debug = FND_API.G_TRUE THEN
9975: QP_PREQ_GRP.engine_debug('open l_child_break_cur');
9976: END IF;
9977: -- LOOP
9978: l_child_sts_code_tbl.DELETE;
9978: l_child_sts_code_tbl.DELETE;
9979: l_line_dtl_index_tbl.DELETE;
9980: FETCH l_child_break_cur
9981: BULK COLLECT INTO l_child_sts_code_tbl, l_line_dtl_index_tbl;
9982: IF l_debug = FND_API.G_TRUE THEN
9983: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
9984: END IF;
9985: -- LIMIT nRows;
9986: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
9982: IF l_debug = FND_API.G_TRUE THEN
9983: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
9984: END IF;
9985: -- LIMIT nRows;
9986: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
9987: THEN
9988: I := l_line_dtl_index_tbl.FIRST;
9989: WHILE I IS NOT NULL
9990: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
9988: I := l_line_dtl_index_tbl.FIRST;
9989: WHILE I IS NOT NULL
9990: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
9991: LOOP
9992: IF l_debug = FND_API.G_TRUE THEN
9993: QP_PREQ_GRP.engine_debug('l_child_break_cur count '|| i
9994: ||' childdtl index '|| l_line_dtl_index_tbl(i)
9995: ||' status code '|| l_child_sts_code_tbl(i));
9996: END IF;
9999: END IF;
10000:
10001: IF l_line_dtl_index_tbl.COUNT > 0
10002: THEN
10003: IF l_debug = FND_API.G_TRUE THEN
10004: QP_PREQ_GRP.engine_debug('before update');
10005: END IF;
10006: FORALL j IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10007: UPDATE qp_npreq_ldets_tmp
10006: FORALL j IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10007: UPDATE qp_npreq_ldets_tmp
10008: SET process_code = l_child_sts_code_tbl(j)
10009: WHERE line_detail_index = l_line_dtl_index_tbl(j);
10010: IF l_debug = FND_API.G_TRUE THEN
10011: QP_PREQ_GRP.engine_debug('after update');
10012: END IF;
10013: END IF;
10014: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10012: END IF;
10013: END IF;
10014: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10015: -- END LOOP;
10016: IF l_debug = FND_API.G_TRUE THEN
10017: QP_PREQ_GRP.engine_debug('END LOOP');
10018: END IF;
10019: CLOSE l_child_break_cur;
10020: IF l_debug = FND_API.G_TRUE THEN
10016: IF l_debug = FND_API.G_TRUE THEN
10017: QP_PREQ_GRP.engine_debug('END LOOP');
10018: END IF;
10019: CLOSE l_child_break_cur;
10020: IF l_debug = FND_API.G_TRUE THEN
10021: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10022: END IF;
10023:
10024: IF l_debug = FND_API.G_TRUE THEN
10020: IF l_debug = FND_API.G_TRUE THEN
10021: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10022: END IF;
10023:
10024: IF l_debug = FND_API.G_TRUE THEN
10025: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10026: END IF;
10027: EXCEPTION
10028: WHEN OTHERS THEN
10025: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10026: END IF;
10027: EXCEPTION
10028: WHEN OTHERS THEN
10029: IF l_debug = FND_API.G_TRUE THEN
10030: QP_PREQ_GRP.engine_debug('Error Update_Child_break_lines routine '|| SQLERRM);
10031: END IF;
10032: x_return_status := FND_API.G_RET_STS_ERROR;
10033: x_return_status_text := 'QP_PREQ_PUB.Update_Child_Break_lines: '|| SQLERRM;
10028: WHEN OTHERS THEN
10029: IF l_debug = FND_API.G_TRUE THEN
10030: QP_PREQ_GRP.engine_debug('Error Update_Child_break_lines routine '|| SQLERRM);
10031: END IF;
10032: x_return_status := FND_API.G_RET_STS_ERROR;
10033: x_return_status_text := 'QP_PREQ_PUB.Update_Child_Break_lines: '|| SQLERRM;
10034:
10035: END Update_Child_Break_Lines;
10036:
10107:
10108: BEGIN
10109:
10110: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10111: IF l_debug = FND_API.G_TRUE THEN
10112: QP_PREQ_GRP.engine_debug('Begin process_price_break');
10113:
10114: END IF;
10115: FOR I IN l_request_line_detail_cur(p_processing_order)
10113:
10114: END IF;
10115: FOR I IN l_request_line_detail_cur(p_processing_order)
10116: LOOP
10117: IF l_debug = FND_API.G_TRUE THEN
10118: QP_PREQ_GRP.engine_debug('Loop thru child break '|| I.parent_detail_index
10119: ||' child index '|| I.child_detail_index ||' list_line_id '
10120: || I.created_from_list_line_id ||' level '|| I.modifier_level_code
10121: ||' parent price '|| I.parent_price
10126: END IF;
10127: --this is not applicable for price lists
10128: IF I.modifier_level_code = G_LINE_GROUP
10129: THEN
10130: IF l_debug = FND_API.G_TRUE THEN
10131: QP_PREQ_GRP.engine_debug('this is line group');
10132: END IF;
10133: l_quantity := nvl(nvl(nvl(I.group_quantity
10134: , I.group_amount),
10133: l_quantity := nvl(nvl(nvl(I.group_quantity
10134: , I.group_amount),
10135: nvl(I.break_quantity, I.ordered_quantity)), 0);
10136: ELSE
10137: IF l_debug = FND_API.G_TRUE THEN
10138: QP_PREQ_GRP.engine_debug('this is not line group');
10139: END IF;
10140: l_quantity := nvl(nvl(I.break_quantity,
10141: I.ordered_quantity), 0);
10149: THEN
10150: l_break_satisfied := G_NO;
10151: END IF;
10152:
10153: IF l_debug = FND_API.G_TRUE THEN
10154: QP_PREQ_GRP.engine_debug('process_price_break1');
10155: END IF;
10156: IF I.price_break_type = G_POINT_BREAK
10157: THEN
10154: QP_PREQ_GRP.engine_debug('process_price_break1');
10155: END IF;
10156: IF I.price_break_type = G_POINT_BREAK
10157: THEN
10158: IF l_debug = FND_API.G_TRUE THEN
10159: QP_PREQ_GRP.engine_debug('this is point break');
10160: END IF;
10161: IF l_quantity BETWEEN I.value_from AND I.value_to
10162: THEN
10159: QP_PREQ_GRP.engine_debug('this is point break');
10160: END IF;
10161: IF l_quantity BETWEEN I.value_from AND I.value_to
10162: THEN
10163: IF l_debug = FND_API.G_TRUE THEN
10164: QP_PREQ_GRP.engine_debug('point break satisfied');
10165: END IF;
10166: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10167: := l_quantity;
10170: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_YES;
10171: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10172: := I.child_detail_index;
10173: ELSE
10174: IF l_debug = FND_API.G_TRUE THEN
10175: QP_PREQ_GRP.engine_debug('point break not satisfied');
10176: END IF;
10177: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10178: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10183: END IF;
10184:
10185: ELSIF I.price_break_type = G_RANGE_BREAK
10186: THEN
10187: IF l_debug = FND_API.G_TRUE THEN
10188: QP_PREQ_GRP.engine_debug('this is range break');
10189: END IF;
10190: l_satisfied_qty := 0;
10191: QP_Calculate_Price_PUB.Get_Satisfied_Range
10192: (p_value_from => I.value_from
10193: , p_value_to => I.value_to
10194: , p_qualifier_value => l_quantity
10195: , x_satisfied_value => l_satisfied_qty);
10196: IF l_debug = FND_API.G_TRUE THEN
10197: QP_PREQ_GRP.engine_debug('range break '|| l_satisfied_qty);
10198:
10199: END IF;
10200: IF l_satisfied_qty <> 0
10198:
10199: END IF;
10200: IF l_satisfied_qty <> 0
10201: THEN
10202: IF l_debug = FND_API.G_TRUE THEN
10203: QP_PREQ_GRP.engine_debug('range break satisfied');
10204: END IF;
10205: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10206: := l_satisfied_qty;
10209: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_YES;
10210: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10211: := I.child_detail_index;
10212: ELSE
10213: IF l_debug = FND_API.G_TRUE THEN
10214: QP_PREQ_GRP.engine_debug('range break not satisfied');
10215: END IF;
10216: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10217: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_NO;
10238: l_percent_price_tbl(l_line_quantity_tbl.COUNT),
10239: x_return_status,
10240: x_return_status_text);
10241:
10242: IF l_debug = FND_API.G_TRUE THEN
10243: QP_PREQ_GRP.engine_debug('plsql tbl info dtlindex '
10244: || l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT)
10245: ||' appl flag '|| l_applied_flag_tbl(l_line_dtl_index_tbl.COUNT)
10246: ||' line qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10259: I.ordered_quantity;
10260: l_total_price_tbl(x_line_index_tbl.COUNT) :=
10261: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10262: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10263: IF l_debug = FND_API.G_TRUE THEN
10264: QP_PREQ_GRP.engine_debug('first line '
10265: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10266: || l_total_price_tbl(x_line_index_tbl.COUNT)
10267: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10275: l_total_price_tbl(x_line_index_tbl.COUNT) :=
10276: l_total_price_tbl(x_line_index_tbl.COUNT) +
10277: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10278: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10279: IF l_debug = FND_API.G_TRUE THEN
10280: QP_PREQ_GRP.engine_debug('same line '
10281: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10282: || l_total_price_tbl(x_line_index_tbl.COUNT)
10283: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10303: G_STATUS_UPDATED;
10304: x_pricing_sts_txt_tbl(x_line_index_tbl.COUNT) :=
10305: '';
10306: END IF;
10307: IF l_debug = FND_API.G_TRUE THEN
10308: QP_PREQ_GRP.engine_debug('next line ');
10309: END IF;
10310: x_line_index_tbl(x_line_index_tbl.COUNT + 1) :=
10311: l_line_index_tbl(l_line_index_tbl.COUNT);
10310: x_line_index_tbl(x_line_index_tbl.COUNT + 1) :=
10311: l_line_index_tbl(l_line_index_tbl.COUNT);
10312: l_total_qty_tbl(x_line_index_tbl.COUNT) :=
10313: I.ordered_quantity;
10314: IF l_debug = FND_API.G_TRUE THEN
10315: QP_PREQ_GRP.engine_debug('price info: line index '
10316: || x_line_index_tbl(x_line_index_tbl.COUNT)
10317: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT)
10318: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10324:
10325: IF x_line_index_tbl.COUNT > 0
10326: --for the last line
10327: THEN
10328: IF l_debug = FND_API.G_TRUE THEN
10329: QP_PREQ_GRP.engine_debug('price info: line index ');
10330: END IF;
10331: IF l_break_satisfied = G_NO
10332: THEN
10342: END IF;
10343: x_list_price_tbl(x_line_index_tbl.COUNT) :=
10344: l_total_price_tbl(x_line_index_tbl.COUNT) /
10345: l_total_qty_tbl(x_line_index_tbl.COUNT);
10346: IF l_debug = FND_API.G_TRUE THEN
10347: QP_PREQ_GRP.engine_debug('price info: line index '
10348: || x_line_index_tbl(x_line_index_tbl.COUNT)
10349: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT) ||' '
10350: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10356: END IF;
10357:
10358: IF l_line_quantity_tbl.COUNT > 0
10359: THEN
10360: IF l_debug = FND_API.G_TRUE THEN
10361: QP_PREQ_GRP.engine_debug('process_price_break5: count '
10362: || l_line_quantity_tbl.COUNT ||' first '
10363: || l_line_quantity_tbl.FIRST ||' last '
10364: || l_line_quantity_tbl.LAST);
10370: , adjustment_amount = l_adj_amt_tbl(i)
10371: WHERE line_detail_index = l_line_dtl_index_tbl(i);
10372: END IF;
10373:
10374: IF l_debug = FND_API.G_TRUE THEN
10375: QP_PREQ_GRP.engine_debug('process_price_break5');
10376:
10377: END IF;
10378: IF x_line_index_tbl.COUNT > 0
10376:
10377: END IF;
10378: IF x_line_index_tbl.COUNT > 0
10379: THEN
10380: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10381: THEN
10382: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10383: LOOP
10384: IF l_debug = FND_API.G_TRUE THEN
10380: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10381: THEN
10382: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10383: LOOP
10384: IF l_debug = FND_API.G_TRUE THEN
10385: QP_PREQ_GRP.engine_debug('line details '|| x_line_index_tbl(i)
10386: ||' price '|| x_list_price_tbl(i) ||' sts '
10387: || x_pricing_sts_code_tbl(i));
10388: END IF;
10387: || x_pricing_sts_code_tbl(i));
10388: END IF;
10389: END LOOP;
10390: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
10391: IF l_debug = FND_API.G_TRUE THEN
10392: QP_PREQ_GRP.engine_debug('update PBH ');
10393: END IF;
10394: FORALL i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10395: UPDATE qp_npreq_ldets_tmp
10409: AND created_from_list_type_code IN
10410: (G_PRICE_LIST_HEADER, G_AGR_LIST_HEADER)
10411: AND adjustment_amount IS NULL;
10412:
10413: IF l_debug = FND_API.G_TRUE THEN
10414: QP_PREQ_GRP.engine_debug('End process_price_break');
10415: END IF;
10416: EXCEPTION
10417: WHEN OTHERS THEN
10414: QP_PREQ_GRP.engine_debug('End process_price_break');
10415: END IF;
10416: EXCEPTION
10417: WHEN OTHERS THEN
10418: x_return_status := FND_API.G_RET_STS_ERROR;
10419: x_return_status_text := 'QP_PREQ_PUB.Process_Price_Break Exception: '
10420: || SQLERRM;
10421: IF l_debug = FND_API.G_TRUE THEN
10422: QP_PREQ_GRP.engine_debug('Exception process_price_break '|| SQLERRM);
10417: WHEN OTHERS THEN
10418: x_return_status := FND_API.G_RET_STS_ERROR;
10419: x_return_status_text := 'QP_PREQ_PUB.Process_Price_Break Exception: '
10420: || SQLERRM;
10421: IF l_debug = FND_API.G_TRUE THEN
10422: QP_PREQ_GRP.engine_debug('Exception process_price_break '|| SQLERRM);
10423: END IF;
10424: END PROCESS_PRICE_BREAK;
10425:
10448:
10449: BEGIN
10450:
10451: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10452: IF l_debug = FND_API.G_TRUE THEN
10453: QP_PREQ_GRP.engine_debug('Begin Update_Service_Lines');
10454:
10455: END IF;
10456: OPEN l_Service_Cur;
10477: SET processing_order = 1
10478: WHERE line_index = l_parent_line_tbl(i);
10479: END IF;
10480:
10481: IF l_debug = FND_API.G_TRUE THEN
10482: QP_PREQ_GRP.engine_debug('End Update_Service_Lines');
10483: END IF;
10484: EXCEPTION
10485: WHEN OTHERS THEN
10482: QP_PREQ_GRP.engine_debug('End Update_Service_Lines');
10483: END IF;
10484: EXCEPTION
10485: WHEN OTHERS THEN
10486: x_return_status := FND_API.G_RET_STS_ERROR;
10487: x_return_status_text := 'QP_PREQ_PUB.Update_Service_Lines Exception: '
10488: || SQLERRM;
10489: IF l_debug = FND_API.G_TRUE THEN
10490: QP_PREQ_GRP.engine_debug('Exception Update_Service_Lines '|| SQLERRM);
10485: WHEN OTHERS THEN
10486: x_return_status := FND_API.G_RET_STS_ERROR;
10487: x_return_status_text := 'QP_PREQ_PUB.Update_Service_Lines Exception: '
10488: || SQLERRM;
10489: IF l_debug = FND_API.G_TRUE THEN
10490: QP_PREQ_GRP.engine_debug('Exception Update_Service_Lines '|| SQLERRM);
10491: END IF;
10492: END Update_Service_Lines;
10493:
10548: USAGE_EXCEPTION EXCEPTION;
10549: BEGIN
10550:
10551: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10552: IF l_debug = FND_API.G_TRUE THEN
10553: QP_PREQ_GRP.engine_debug('Begin Usage Pricing');
10554:
10555:
10556: END IF;
10561: x_pricing_sts_code_tbl => l_pricing_sts_code_tbl,
10562: x_pricing_sts_txt_tbl => l_pricing_sts_txt_tbl,
10563: x_return_status => x_return_status,
10564: x_return_status_text => x_return_status_text);
10565: IF x_return_status = FND_API.G_RET_STS_ERROR
10566: THEN
10567: RAISE Usage_Exception;
10568: END IF;
10569: FOR cl IN l_get_price_cur(1)
10567: RAISE Usage_Exception;
10568: END IF;
10569: FOR cl IN l_get_price_cur(1)
10570: LOOP
10571: IF l_debug = FND_API.G_TRUE THEN
10572: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP');
10573: QP_PREQ_GRP.engine_debug('PRL line type '
10574: || cl.created_from_list_line_type ||' operator '
10575: || cl.OPERAND_CALCULATION_CODE ||' operand '
10613: l_pricing_sts_txt_tbl(l_pricing_sts_txt_tbl.COUNT + 1)
10614: := '';
10615: END IF; --l_unit_price_tbl
10616:
10617: IF l_debug = FND_API.G_TRUE THEN
10618: QP_PREQ_GRP.engine_debug('price returned '
10619: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10620: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10621: ||' line index '|| l_line_index_tbl(l_line_index_tbl.COUNT)
10628: END LOOP;
10629:
10630: IF l_line_dtl_index_tbl.COUNT > 0
10631: THEN
10632: IF l_debug = FND_API.G_TRUE THEN
10633: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP1');
10634: END IF;
10635: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10636: UPDATE qp_npreq_ldets_tmp
10639: END IF; --l_line_dtl_index_tbl.COUNT
10640:
10641: IF l_line_index_tbl.COUNT > 0
10642: THEN
10643: IF l_debug = FND_API.G_TRUE THEN
10644: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP1');
10645: END IF;
10646: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10647: UPDATE qp_npreq_lines_tmp
10661:
10662:
10663: Update_Service_Lines(x_return_status, x_return_status_text);
10664:
10665: IF x_return_status = FND_API.G_RET_STS_ERROR
10666: THEN
10667: RAISE Usage_Exception;
10668: END IF;
10669:
10675: x_pricing_sts_code_tbl => l_pricing_sts_code_tbl,
10676: x_pricing_sts_txt_tbl => l_pricing_sts_txt_tbl,
10677: x_return_status => x_return_status,
10678: x_return_status_text => x_return_status_text);
10679: IF x_return_status = FND_API.G_RET_STS_ERROR
10680: THEN
10681: RAISE Usage_Exception;
10682: END IF;
10683:
10682: END IF;
10683:
10684: FOR cl IN l_get_price_cur(2)
10685: LOOP
10686: IF l_debug = FND_API.G_TRUE THEN
10687: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10688: QP_PREQ_GRP.engine_debug('PRL line type '
10689: || cl.created_from_list_line_type ||' operator '
10690: || cl.OPERAND_CALCULATION_CODE ||' operand '
10727: := G_STATUS_UPDATED;
10728: l_pricing_sts_txt_tbl(l_pricing_sts_txt_tbl.COUNT + 1)
10729: := '';
10730: END IF; --l_unit_price_tbl
10731: IF l_debug = FND_API.G_TRUE THEN
10732: QP_PREQ_GRP.engine_debug('price returned '
10733: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10734: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10735: ||' unit price '|| l_unit_price_tbl(l_unit_price_tbl.COUNT)
10741: END LOOP;
10742:
10743: IF l_line_dtl_index_tbl.COUNT > 0
10744: THEN
10745: IF l_debug = FND_API.G_TRUE THEN
10746: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10747: END IF;
10748: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10749: UPDATE qp_npreq_ldets_tmp
10752: END IF; --l_line_dtl_index_tbl.COUNT
10753:
10754: IF l_line_index_tbl.COUNT > 0
10755: THEN
10756: IF l_debug = FND_API.G_TRUE THEN
10757: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP2');
10758: END IF;
10759: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10760: UPDATE qp_npreq_lines_tmp
10765: END IF; --l_line_index_tbl.COUNT
10766:
10767:
10768:
10769: IF l_debug = FND_API.G_TRUE THEN
10770: QP_PREQ_GRP.engine_debug('End Usage Pricing');
10771:
10772: END IF;
10773: EXCEPTION
10771:
10772: END IF;
10773: EXCEPTION
10774: WHEN USAGE_EXCEPTION THEN
10775: IF l_debug = FND_API.G_TRUE THEN
10776: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10777: END IF;
10778: x_return_status := FND_API.G_RET_STS_ERROR;
10779: WHEN OTHERS THEN
10774: WHEN USAGE_EXCEPTION THEN
10775: IF l_debug = FND_API.G_TRUE THEN
10776: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10777: END IF;
10778: x_return_status := FND_API.G_RET_STS_ERROR;
10779: WHEN OTHERS THEN
10780: IF l_debug = FND_API.G_TRUE THEN
10781: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10782: END IF;
10776: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10777: END IF;
10778: x_return_status := FND_API.G_RET_STS_ERROR;
10779: WHEN OTHERS THEN
10780: IF l_debug = FND_API.G_TRUE THEN
10781: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10782: END IF;
10783: x_return_status := FND_API.G_RET_STS_ERROR;
10784: x_return_status_text := 'QP_PREQ_PUB.Usage_Pricing Exception: '
10779: WHEN OTHERS THEN
10780: IF l_debug = FND_API.G_TRUE THEN
10781: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10782: END IF;
10783: x_return_status := FND_API.G_RET_STS_ERROR;
10784: x_return_status_text := 'QP_PREQ_PUB.Usage_Pricing Exception: '
10785: || SQLERRM;
10786: END Usage_pricing;
10787:
10801: CLOSE l_chk_usage_cur;
10802: RETURN x_call_usage_pricing;
10803: EXCEPTION
10804: WHEN OTHERS THEN
10805: IF l_debug = FND_API.G_TRUE THEN
10806: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Call_Usage_Pricing Exception: '|| SQLERRM);
10807: END IF;
10808: x_call_usage_pricing := NULL;
10809: END Call_Usage_Pricing;
11006:
11007: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Identify_freegood_lines ';
11008: BEGIN
11009: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11010: IF l_debug = FND_API.G_TRUE THEN
11011: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11012:
11013: END IF;
11014: x_return_status := FND_API.G_RET_STS_SUCCESS;
11010: IF l_debug = FND_API.G_TRUE THEN
11011: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11012:
11013: END IF;
11014: x_return_status := FND_API.G_RET_STS_SUCCESS;
11015: x_return_status_text := '';
11016:
11017: IF l_debug = FND_API.G_TRUE THEN
11018: -- bug 3639169 - changed from dynamic sql to static sql for performance
11013: END IF;
11014: x_return_status := FND_API.G_RET_STS_SUCCESS;
11015: x_return_status_text := '';
11016:
11017: IF l_debug = FND_API.G_TRUE THEN
11018: -- bug 3639169 - changed from dynamic sql to static sql for performance
11019: FOR cl IN l_prg_debug
11020: LOOP
11021: QP_PREQ_GRP.engine_debug('Printing out all PRGs irrespective of phases: '
11025: ||' fgpriceadjid '|| cl.fg_price_adj_id ||' prg_phase_id '|| cl.prg_phase_id);
11026: END LOOP;
11027: END IF; --l_debug
11028:
11029: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11030: AND l_debug = FND_API.G_TRUE
11031: THEN
11032: FOR cl IN
11033: (SELECT buyline.line_index
11026: END LOOP;
11027: END IF; --l_debug
11028:
11029: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11030: AND l_debug = FND_API.G_TRUE
11031: THEN
11032: FOR cl IN
11033: (SELECT buyline.line_index
11034: , oldprg.list_line_id, oldfgdis.line_id
11060: AND oldrltd.price_adjustment_id = oldprg.price_adjustment_id
11061: AND oldfgdis.price_adjustment_id = oldrltd.rltd_price_adj_id
11062: AND oldfgdis.list_line_type_code = 'DIS')
11063: LOOP
11064: IF l_debug = FND_API.G_TRUE THEN
11065: qp_preq_grp.engine_debug('ident fg dtls: buylineindex '|| cl.line_index
11066: ||' prg-list_line_id '|| cl.list_line_id
11067: ||' fgline_id '|| cl.line_id ||' updated_flag '|| cl.updated_flag);
11068: END IF;
11087: CLOSE l_Identify_freegood_cur;
11088:
11089: IF l_fg_line_index_tbl.COUNT > 0
11090: THEN
11091: IF l_debug = FND_API.G_TRUE THEN
11092: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11093:
11094: END IF;
11095: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11091: IF l_debug = FND_API.G_TRUE THEN
11092: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11093:
11094: END IF;
11095: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11096: THEN
11097: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11098: LOOP
11099: IF l_debug = FND_API.G_TRUE THEN
11095: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11096: THEN
11097: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11098: LOOP
11099: IF l_debug = FND_API.G_TRUE THEN
11100: QP_PREQ_GRP.engine_debug('process_sts: line_ind '
11101: || l_fg_line_index_tbl(i) ||' fglist_line_id '
11102: || l_fg_list_line_id_tbl(i) ||' fgdis operand '
11103: || l_fg_operand_tbl(i) ||' fgdis operator '
11120: WHERE line_index = l_fg_line_index_tbl(i);
11121:
11122: END IF; --l_fg_line_index_tbl.count
11123:
11124: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11125: THEN
11126: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11127: WHERE instr(process_status, G_FREEGOOD) > 0)
11128: LOOP
11125: THEN
11126: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11127: WHERE instr(process_status, G_FREEGOOD) > 0)
11128: LOOP
11129: IF l_debug = FND_API.G_TRUE THEN
11130: QP_PREQ_GRP.engine_debug('Freegood line dtl: line_ind '
11131: || cl.line_index ||' process_sts '|| cl.process_status);
11132: END IF;
11133: END LOOP; --for cl
11132: END IF;
11133: END LOOP; --for cl
11134: END IF; --debug
11135:
11136: IF l_debug = FND_API.G_TRUE THEN
11137: QP_PREQ_GRP.engine_debug('End Identify_freegood_lines');
11138: END IF;
11139: EXCEPTION
11140: WHEN OTHERS THEN
11137: QP_PREQ_GRP.engine_debug('End Identify_freegood_lines');
11138: END IF;
11139: EXCEPTION
11140: WHEN OTHERS THEN
11141: x_return_status := FND_API.G_RET_STS_ERROR;
11142: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11143: IF l_debug = FND_API.G_TRUE THEN
11144: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11145: END IF;
11139: EXCEPTION
11140: WHEN OTHERS THEN
11141: x_return_status := FND_API.G_RET_STS_ERROR;
11142: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11143: IF l_debug = FND_API.G_TRUE THEN
11144: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11145: END IF;
11146: END Identify_freegood_lines;
11147:
11169: l_debug VARCHAR2(3);
11170: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11171: BEGIN
11172: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11173: IF l_debug = FND_API.G_TRUE THEN
11174: QP_PREQ_GRP.engine_debug('Begin Update_prg_pricing_status');
11175: END IF;
11176: OPEN l_mark_prg_delete_cur;
11177: l_mark_prg_delete_index.DELETE;
11180: l_mark_prg_delete_index, l_mark_fgdis_delete_index;
11181: CLOSE l_mark_prg_delete_cur;
11182:
11183: IF l_mark_prg_delete_index.COUNT > 0 THEN
11184: IF l_debug = FND_API.G_TRUE THEN
11185: FOR i IN l_mark_prg_delete_index.FIRST..l_mark_prg_delete_index.LAST
11186: LOOP
11187: BEGIN
11188: SELECT created_from_list_line_id INTO l_prg_list_line_id
11204: END IF; --l_mark_prg_delete_index.COUNT
11205:
11206: IF l_mark_fgdis_delete_index.COUNT > 0 THEN
11207:
11208: IF l_debug = FND_API.G_TRUE THEN
11209: FOR i IN l_mark_fgdis_delete_index.FIRST..l_mark_fgdis_delete_index.LAST
11210: LOOP
11211: BEGIN
11212: SELECT created_from_list_line_id INTO l_prg_list_line_id
11224: FORALL i IN l_mark_fgdis_delete_index.FIRST..l_mark_fgdis_delete_index.LAST
11225: UPDATE qp_npreq_ldets_tmp SET pricing_status_code = G_STATUS_DELETED
11226: WHERE line_detail_index = l_mark_fgdis_delete_index(i);
11227: END IF; --l_mark_fgdis_delete_index.count
11228: IF l_debug = FND_API.G_TRUE THEN
11229: QP_PREQ_GRP.engine_debug('End Update_prg_pricing_status');
11230: END IF;
11231: x_return_status := FND_API.G_RET_STS_SUCCESS;
11232: EXCEPTION
11227: END IF; --l_mark_fgdis_delete_index.count
11228: IF l_debug = FND_API.G_TRUE THEN
11229: QP_PREQ_GRP.engine_debug('End Update_prg_pricing_status');
11230: END IF;
11231: x_return_status := FND_API.G_RET_STS_SUCCESS;
11232: EXCEPTION
11233: WHEN OTHERS THEN
11234: x_return_status := FND_API.G_RET_STS_ERROR;
11235: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11230: END IF;
11231: x_return_status := FND_API.G_RET_STS_SUCCESS;
11232: EXCEPTION
11233: WHEN OTHERS THEN
11234: x_return_status := FND_API.G_RET_STS_ERROR;
11235: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11236: IF l_debug = FND_API.G_TRUE THEN
11237: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11238: END IF;
11232: EXCEPTION
11233: WHEN OTHERS THEN
11234: x_return_status := FND_API.G_RET_STS_ERROR;
11235: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11236: IF l_debug = FND_API.G_TRUE THEN
11237: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11238: END IF;
11239: END Update_prg_pricing_status;
11240:
11571:
11572: i PLS_INTEGER;
11573: BEGIN
11574: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11575: IF l_debug = FND_API.G_TRUE THEN
11576: QP_PREQ_GRP.engine_debug('Begin process_prg');
11577: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11578:
11579: END IF;
11599: AND applied_flag = 'Y'
11600: AND ROWNUM = 1;
11601: EXCEPTION
11602: WHEN NO_DATA_FOUND THEN
11603: IF l_debug = FND_API.G_TRUE THEN
11604: QP_PREQ_GRP.engine_debug('No PRG: ');
11605: END IF;
11606: l_Process_PRG := G_NO;
11607: WHEN OTHERS THEN
11604: QP_PREQ_GRP.engine_debug('No PRG: ');
11605: END IF;
11606: l_Process_PRG := G_NO;
11607: WHEN OTHERS THEN
11608: IF l_debug = FND_API.G_TRUE THEN
11609: QP_PREQ_GRP.engine_debug('Error in PRG: '|| SQLERRM);
11610: END IF;
11611: --x_return_status := FND_API.G_RET_STS_ERROR;
11612: --x_return_status_text := l_routine||SQLERRM;
11607: WHEN OTHERS THEN
11608: IF l_debug = FND_API.G_TRUE THEN
11609: QP_PREQ_GRP.engine_debug('Error in PRG: '|| SQLERRM);
11610: END IF;
11611: --x_return_status := FND_API.G_RET_STS_ERROR;
11612: --x_return_status_text := l_routine||SQLERRM;
11613: RAISE PRG_Exception;
11614: END;
11615:
11612: --x_return_status_text := l_routine||SQLERRM;
11613: RAISE PRG_Exception;
11614: END;
11615:
11616: IF l_debug = FND_API.G_TRUE THEN
11617: QP_PREQ_GRP.engine_debug('Value of process_PRG '|| l_Process_PRG);
11618:
11619:
11620: END IF;
11627: G_STATUS_UPDATED, G_STATUS_NEW, G_STATUS_GSA_VIOLATION, G_STATUS_INVALID_PRICE_LIST)
11628: AND instr(line.process_status, G_FREEGOOD) > 0
11629: AND ROWNUM = 1;
11630:
11631: IF l_debug = FND_API.G_TRUE THEN
11632: QP_PREQ_GRP.engine_debug('Value of process_PRG after fg '|| l_Process_PRG);
11633: END IF; --l_debug
11634:
11635: IF l_Process_PRG = G_NO THEN
11655: WHERE adj.created_from_list_line_type = G_PROMO_GOODS_DISCOUNT
11656: AND adj.pricing_status_code = G_STATUS_UNCHANGED
11657: AND adj.updated_flag = G_YES);
11658: END IF; --l_PROCESS_PRG
11659: IF l_debug = FND_API.G_TRUE THEN
11660: QP_PREQ_GRP.engine_debug('Value of process_PRG after over '|| l_Process_PRG);
11661: END IF; --Bug No - 4033618
11662: EXCEPTION
11663: WHEN NO_DATA_FOUND THEN
11661: END IF; --Bug No - 4033618
11662: EXCEPTION
11663: WHEN NO_DATA_FOUND THEN
11664: l_Process_PRG := G_NO;
11665: IF l_debug = FND_API.G_TRUE THEN
11666: QP_PREQ_GRP.engine_debug('No PRG in oe_price_adj');
11667: END IF;
11668: WHEN OTHERS THEN
11669: l_Process_PRG := G_NO;
11666: QP_PREQ_GRP.engine_debug('No PRG in oe_price_adj');
11667: END IF;
11668: WHEN OTHERS THEN
11669: l_Process_PRG := G_NO;
11670: IF l_debug = FND_API.G_TRUE THEN
11671: QP_PREQ_GRP.engine_debug('Exception in prg '|| SQLERRM);
11672: END IF;
11673: END;
11674: END IF; --l_Process_PRG
11672: END IF;
11673: END;
11674: END IF; --l_Process_PRG
11675:
11676: IF l_debug = FND_API.G_TRUE THEN
11677: QP_PREQ_GRP.engine_debug('Value of process_PRG after query '|| l_Process_PRG);
11678:
11679: END IF;
11680:
11677: QP_PREQ_GRP.engine_debug('Value of process_PRG after query '|| l_Process_PRG);
11678:
11679: END IF;
11680:
11681: IF l_debug = FND_API.G_TRUE THEN
11682: FOR cl IN
11683: (SELECT adj.list_line_id, adj.updated_flag, line.line_index,
11684: adj.pricing_phase_id, adj.price_adjustment_id, adj.line_id
11685: FROM qp_npreq_lines_tmp line, oe_price_adjustments adj
11731: --has not been deleted as the PRG has been overridden
11732: --pricing_status_code needs to be set to G_NOT_VALID so that this does not get into OM's
11733: --update statement to update lines with UPDATE status
11734:
11735: IF l_debug = FND_API.G_TRUE THEN
11736: QP_PREQ_GRP.engine_debug('Updated PRGs No. of passed-in fg lines updated '
11737: || SQL%ROWCOUNT);
11738: END IF; --l_debug
11739:
11743: BULK COLLECT INTO
11744: l_upd_engine_fg_index; --, l_upd_passedin_fg_index;
11745: CLOSE l_updated_prg_fg_cur;
11746:
11747: IF l_debug = FND_API.G_TRUE THEN
11748: -- QP_PREQ_GRP.engine_debug('Count. of passed-in fg lines '
11749: -- ||l_upd_passedin_fg_index.count);
11750: QP_PREQ_GRP.engine_debug('Count. of engine-created fg lines '
11751: || l_upd_engine_fg_index.COUNT);
11770:
11771: IF l_Process_PRG = G_YES
11772: THEN
11773: --only if there are prg based modifiers
11774: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11775: AND l_debug = FND_API.G_TRUE
11776: THEN
11777: FOR cl IN (SELECT newprg.line_index line_ind
11778: , newprg.created_from_list_line_id
11771: IF l_Process_PRG = G_YES
11772: THEN
11773: --only if there are prg based modifiers
11774: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11775: AND l_debug = FND_API.G_TRUE
11776: THEN
11777: FOR cl IN (SELECT newprg.line_index line_ind
11778: , newprg.created_from_list_line_id
11779: FROM qp_npreq_lines_tmp oldfgline
11785: AND newprg.pricing_status_code = G_STATUS_NEW
11786: AND instr(oldfgline.process_status
11787: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11788: LOOP
11789: IF l_debug = FND_API.G_TRUE THEN
11790: QP_PREQ_GRP.engine_debug('prg fgline: ind '|| cl.line_ind
11791: ||' prg '|| cl.created_from_list_line_id);
11792: END IF;
11793: END LOOP; --for cl
11811: AND instr(oldfgline.process_status
11812: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11813: AND instr(oldfgline.process_status, G_FREEGOOD) > 0;
11814:
11815: IF l_debug = FND_API.G_TRUE THEN
11816: QP_PREQ_GRP.engine_debug('updated delete prg lines rowcnt: '|| SQL%ROWCOUNT);
11817:
11818: END IF;
11819: FOR freegood IN l_compare_freegood_cur
11817:
11818: END IF;
11819: FOR freegood IN l_compare_freegood_cur
11820: LOOP
11821: IF l_debug = FND_API.G_TRUE THEN
11822: QP_PREQ_GRP.engine_debug('In compare_cur '
11823: ||' new_priced_qty '|| freegood.new_priced_quantity
11824: ||' old_priced_qty '|| freegood.old_priced_quantity
11825: ||' new_priced_uom '|| freegood.new_priced_uom_code
11854: l_old_operand := REPLACE(substr(freegood.old_list_line_id,
11855: instr(freegood.old_list_line_id, G_STATUS_UPDATED) + 7),
11856: G_PROMO_GOODS_DISCOUNT, '');
11857:
11858: IF l_debug = FND_API.G_TRUE THEN
11859: QP_PREQ_GRP.engine_debug(' The old_fg_list_line_id is '
11860: || l_oldfgdis_list_line_id
11861: ||' the old_operand is '|| l_old_operand);
11862: END IF; --l_debug
11897: AND (nvl(l_oldfgdis_list_line_id, 0) =
11898: nvl(freegood.newfgdis_list_line_id, 0))
11899: AND (nvl(l_old_operand, 0) = nvl(freegood.newfgdis_operand, 0))
11900: THEN
11901: IF l_debug = FND_API.G_TRUE THEN
11902: QP_PREQ_GRP.engine_debug('In PRG if data unchanged ');
11903: END IF;
11904: G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT + 1) :=
11905: freegood.old_line_index;
11917: --this will be used in calculation
11918: G_prg_unch_line_ind_tbl(freegood.old_line_index) :=
11919: G_prg_unch_line_index_tbl.COUNT;
11920:
11921: IF l_debug = FND_API.G_TRUE THEN
11922: QP_PREQ_GRP.engine_debug('if data unchanged: oldfg_lineindex '
11923: || G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT) ||' selprice '
11924: || G_prg_unch_calc_price_tbl(G_prg_unch_line_index_tbl.COUNT));
11925: END IF; --l_debug
11935: -- 'NEW'||G_STATUS_UNCHANGED;
11936: l_prg_line_id_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_line_id;
11937: l_prg_price_flag_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_price_flag; -- Ravi
11938: ELSE --freegood cur
11939: IF l_debug = FND_API.G_TRUE THEN
11940: QP_PREQ_GRP.engine_debug('In PRG if data updated ');
11941: END IF;
11942: l_prg_line_ind_tbl(l_prg_line_ind_tbl.COUNT + 1) := freegood.old_line_index;
11943: l_prg_process_sts_tbl(l_prg_line_ind_tbl.COUNT) := G_NOT_VALID;
11951: END LOOP; --freegood
11952:
11953: IF l_prg_line_ind_tbl.COUNT > 0
11954: THEN
11955: IF l_debug = FND_API.G_TRUE THEN
11956: QP_PREQ_GRP.engine_debug('prg details Here #1000');
11957: END IF; -- Bug No 4033618
11958: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11959: THEN
11954: THEN
11955: IF l_debug = FND_API.G_TRUE THEN
11956: QP_PREQ_GRP.engine_debug('prg details Here #1000');
11957: END IF; -- Bug No 4033618
11958: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11959: THEN
11960: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
11961: LOOP
11962: IF l_debug = FND_API.G_TRUE THEN
11958: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11959: THEN
11960: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
11961: LOOP
11962: IF l_debug = FND_API.G_TRUE THEN
11963: QP_PREQ_GRP.engine_debug('prg details: line_index '
11964: || l_prg_line_ind_tbl(i) ||' process_status '
11965: || l_prg_process_sts_tbl(i) ||' line_id '|| l_prg_line_id_tbl(i)
11966: || 'price flag ' || l_prg_price_flag_tbl(i));
11967: END IF;
11968: END LOOP; --l_prg_line_ind_tbl
11969: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
11970:
11971: IF l_debug = FND_API.G_TRUE THEN
11972: QP_PREQ_GRP.engine_debug('passed in frg update '|| l_prg_line_ind_tbl.COUNT);
11973:
11974: END IF;
11975: FORALL i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
11986: , line.price_flag = l_prg_price_flag_tbl(i) -- Ravi
11987: WHERE line.line_index = l_prg_line_ind_tbl(i);
11988: END IF; --l_prg_line_ind_tbl.COUNT
11989:
11990: IF l_debug = FND_API.G_TRUE THEN
11991: QP_PREQ_GRP.engine_debug('End process_prg');
11992: END IF;
11993: END IF; --l_process_prg
11994:
12003: -- for ASO, not OM, but we discovered it needs to go for OM as well.
12004: --IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG <> G_YES THEN
12005: update_prg_pricing_status(x_return_status, x_return_status_text);
12006:
12007: x_return_status := FND_API.G_RET_STS_SUCCESS;
12008: x_return_status_text := NULL;
12009: EXCEPTION
12010: WHEN PRG_Exception THEN
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12007: x_return_status := FND_API.G_RET_STS_SUCCESS;
12008: x_return_status_text := NULL;
12009: EXCEPTION
12010: WHEN PRG_Exception THEN
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12012: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12013: IF l_debug = FND_API.G_TRUE THEN
12014: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12015: END IF;
12009: EXCEPTION
12010: WHEN PRG_Exception THEN
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12012: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12013: IF l_debug = FND_API.G_TRUE THEN
12014: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12015: END IF;
12016: WHEN OTHERS THEN
12017: x_return_status := FND_API.G_RET_STS_ERROR;
12013: IF l_debug = FND_API.G_TRUE THEN
12014: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12015: END IF;
12016: WHEN OTHERS THEN
12017: x_return_status := FND_API.G_RET_STS_ERROR;
12018: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12019: IF l_debug = FND_API.G_TRUE THEN
12020: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12021: END IF;
12015: END IF;
12016: WHEN OTHERS THEN
12017: x_return_status := FND_API.G_RET_STS_ERROR;
12018: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12019: IF l_debug = FND_API.G_TRUE THEN
12020: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12021: END IF;
12022: END Process_PRG;
12023:
12030: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_PRG_Process_status ';
12031:
12032: BEGIN
12033: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12034: IF l_debug = FND_API.G_TRUE THEN
12035: QP_PREQ_GRP.engine_debug('Begin Update_PRG_Process_status');
12036:
12037: END IF;
12038: IF G_prg_unch_line_index_tbl.COUNT > 0
12036:
12037: END IF;
12038: IF G_prg_unch_line_index_tbl.COUNT > 0
12039: THEN
12040: IF l_debug = FND_API.G_TRUE THEN
12041: QP_PREQ_GRP.engine_debug('unchanged prg update '
12042: || G_prg_unch_line_index_tbl.COUNT);
12043:
12044: END IF;
12041: QP_PREQ_GRP.engine_debug('unchanged prg update '
12042: || G_prg_unch_line_index_tbl.COUNT);
12043:
12044: END IF;
12045: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12046: THEN
12047: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12048: LOOP
12049: IF l_debug = FND_API.G_TRUE THEN
12045: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12046: THEN
12047: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12048: LOOP
12049: IF l_debug = FND_API.G_TRUE THEN
12050: QP_PREQ_GRP.engine_debug('Unchanged details unch line_index '
12051: || G_prg_unch_line_index_tbl(j) ||' new line_index '
12052: || G_prg_unch_new_index_tbl(j) ||' adj_unit_price '
12053: || G_prg_unch_calc_price_tbl(j));
12090: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG <> G_YES THEN
12091: update_prg_pricing_status(x_return_status, x_return_status_text);
12092: END IF; --G_REQUEST_TYPE_CODE
12093:
12094: x_return_status := FND_API.G_RET_STS_SUCCESS;
12095:
12096: IF l_debug = FND_API.G_TRUE THEN
12097: QP_PREQ_GRP.engine_debug('End Update_PRG_Process_status');
12098:
12092: END IF; --G_REQUEST_TYPE_CODE
12093:
12094: x_return_status := FND_API.G_RET_STS_SUCCESS;
12095:
12096: IF l_debug = FND_API.G_TRUE THEN
12097: QP_PREQ_GRP.engine_debug('End Update_PRG_Process_status');
12098:
12099: END IF;
12100: EXCEPTION
12098:
12099: END IF;
12100: EXCEPTION
12101: WHEN OTHERS THEN
12102: x_return_status := FND_API.G_RET_STS_ERROR;
12103: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12104: IF l_debug = FND_API.G_TRUE THEN
12105: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12106: END IF;
12100: EXCEPTION
12101: WHEN OTHERS THEN
12102: x_return_status := FND_API.G_RET_STS_ERROR;
12103: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12104: IF l_debug = FND_API.G_TRUE THEN
12105: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12106: END IF;
12107: END Update_PRG_Process_status;
12108:
12131:
12132: I PLS_INTEGER;
12133: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Populate_buy_line_price_flag';
12134: BEGIN
12135: IF l_debug = FND_API.G_TRUE THEN
12136: QP_PREQ_GRP.engine_debug('Begin Populate_buy_line_price_flag');
12137:
12138: END IF;
12139: --G_buyline_price_flag.delete;
12138: END IF;
12139: --G_buyline_price_flag.delete;
12140: G_BUYLINE_INDEXES_FOR_LINE_ID.DELETE;
12141:
12142: IF l_debug = FND_API.G_TRUE THEN
12143: FOR c1 IN (SELECT line_detail_index, related_line_detail_index, line_index
12144: FROM qp_npreq_rltd_lines_tmp WHERE pricing_status_code = G_STATUS_NEW
12145: AND relationship_type_code = G_GENERATED_LINE)
12146: LOOP
12143: FOR c1 IN (SELECT line_detail_index, related_line_detail_index, line_index
12144: FROM qp_npreq_rltd_lines_tmp WHERE pricing_status_code = G_STATUS_NEW
12145: AND relationship_type_code = G_GENERATED_LINE)
12146: LOOP
12147: IF l_debug = FND_API.G_TRUE THEN
12148: QP_PREQ_GRP.engine_debug('loop linedtl '|| c1.line_detail_index ||' rltddtl '
12149: || c1.related_line_detail_index ||' lineind '|| c1.line_index);
12150: END IF;
12151: FOR c2 IN (SELECT line_index, line_detail_index FROM qp_npreq_ldets_tmp
12153: AND pricing_status_code = G_STATUS_NEW
12154: AND created_from_list_line_type IN
12155: (G_OTHER_ITEM_DISCOUNT, G_PROMO_GOODS_DISCOUNT))
12156: LOOP
12157: IF l_debug = FND_API.G_TRUE THEN
12158: QP_PREQ_GRP.engine_debug('loop ldet linedtl '|| c2.line_detail_index);
12159: END IF;
12160: END LOOP; --c2
12161: END LOOP; --c1
12162: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12163:
12164: FOR buyline IN l_buyline_price_flag_cur
12165: LOOP
12166: IF l_debug = FND_API.G_TRUE THEN
12167: QP_PREQ_GRP.engine_debug('In buyline loop list_line_id '
12168: || buyline.created_from_list_line_id
12169: ||' w/PRG ldet '|| buyline.line_detail_index -- 3493716
12170: ||' price_flag '|| buyline.price_flag
12178: G_BUYLINE_INDEXES_FOR_LINE_ID(buyline.created_from_list_line_id) := ',' || buyline.line_index || ',';
12179: END IF;
12180: END LOOP;
12181: /*
12182: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12183: i := G_buyline_price_flag.FIRST;
12184: WHILE i IS NOT NULL
12185: LOOP
12186: IF l_debug = FND_API.G_TRUE THEN
12182: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12183: i := G_buyline_price_flag.FIRST;
12184: WHILE i IS NOT NULL
12185: LOOP
12186: IF l_debug = FND_API.G_TRUE THEN
12187: QP_PREQ_GRP.engine_debug('In g_buyline loop list_line_id '
12188: ||I||' price_flag '||G_buyline_price_flag(I));
12189: END IF;
12190: I := G_buyline_price_flag.NEXT(I);
12212: and rltd.relationship_type_code = G_GENERATED_LINE
12213: and rltd.line_detail_index = freegood_dis.line_detail_index);
12214: */
12215:
12216: IF l_debug = FND_API.G_TRUE THEN
12217: QP_PREQ_GRP.engine_debug('End Populate_buy_line_price_flag');
12218: END IF;
12219: x_return_status := FND_API.G_RET_STS_SUCCESS;
12220: EXCEPTION
12215:
12216: IF l_debug = FND_API.G_TRUE THEN
12217: QP_PREQ_GRP.engine_debug('End Populate_buy_line_price_flag');
12218: END IF;
12219: x_return_status := FND_API.G_RET_STS_SUCCESS;
12220: EXCEPTION
12221: WHEN OTHERS THEN
12222: x_return_status := FND_API.G_RET_STS_ERROR;
12223: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12218: END IF;
12219: x_return_status := FND_API.G_RET_STS_SUCCESS;
12220: EXCEPTION
12221: WHEN OTHERS THEN
12222: x_return_status := FND_API.G_RET_STS_ERROR;
12223: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12224: IF l_debug = FND_API.G_TRUE THEN
12225: QP_PREQ_GRP.Engine_debug(x_return_status_text);
12226: END IF;
12220: EXCEPTION
12221: WHEN OTHERS THEN
12222: x_return_status := FND_API.G_RET_STS_ERROR;
12223: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12224: IF l_debug = FND_API.G_TRUE THEN
12225: QP_PREQ_GRP.Engine_debug(x_return_status_text);
12226: END IF;
12227: END Populate_buy_line_price_flag;
12228:
12234: i PLS_INTEGER;
12235: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Get_buy_line_price_flag';
12236: l_count NUMBER;
12237: BEGIN
12238: IF l_debug = FND_API.G_TRUE THEN
12239: QP_PREQ_GRP.engine_debug('Begin Get_buy_line_price_flag, p_list_line_id p_line_index: '|| p_list_line_id || ' ' || p_line_index);
12240:
12241: END IF;
12242: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12241: END IF;
12242: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12243: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12244: l_count := instr(G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id), ',' || p_line_index || ',');
12245: IF l_debug = FND_API.G_TRUE THEN
12246: QP_PREQ_GRP.engine_debug('G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id) ' || G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id));
12247: QP_PREQ_GRP.engine_debug('l_count ' || l_count);
12248: END IF;
12249: IF l_count > 0 THEN
12259: END IF; --G_BUYLINE_INDEXES_FOR_LINE_ID.count
12260:
12261: EXCEPTION
12262: WHEN OTHERS THEN
12263: IF l_debug = FND_API.G_TRUE THEN
12264: QP_PREQ_GRP.Engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12265: END IF;
12266: RETURN NULL;
12267: END Get_buy_line_price_flag;
12320: p_line_quantity => ldet.line_quantity,
12321: p_simulation_flag => p_simulation_flag,
12322: x_return_status => x_return_status,
12323: x_return_status_txt => x_return_status_text);
12324: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
12325: RAISE Coupon_Exception;
12326: END IF; --x_return_status
12327: END LOOP; --get_list_lines_cur
12328:
12327: END LOOP; --get_list_lines_cur
12328:
12329: EXCEPTION
12330: WHEN Coupon_Exception THEN
12331: IF l_debug = FND_API.G_TRUE THEN
12332: QP_PREQ_GRP.engine_debug('Exception in QP_PREQ_PUB.Process_coupon_issue '|| x_return_status_text);
12333: END IF;
12334: WHEN OTHERS THEN
12335: x_return_status := FND_API.G_RET_STS_ERROR;
12331: IF l_debug = FND_API.G_TRUE THEN
12332: QP_PREQ_GRP.engine_debug('Exception in QP_PREQ_PUB.Process_coupon_issue '|| x_return_status_text);
12333: END IF;
12334: WHEN OTHERS THEN
12335: x_return_status := FND_API.G_RET_STS_ERROR;
12336: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12337: IF l_debug = FND_API.G_TRUE THEN
12338: QP_PREQ_GRP.engine_debug(x_return_status_text);
12339: END IF;
12333: END IF;
12334: WHEN OTHERS THEN
12335: x_return_status := FND_API.G_RET_STS_ERROR;
12336: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12337: IF l_debug = FND_API.G_TRUE THEN
12338: QP_PREQ_GRP.engine_debug(x_return_status_text);
12339: END IF;
12340: END Process_coupon_issue;
12341:
12391: l_recur_tot_benefit_qty_tbl.DELETE;
12392:
12393: FOR recurring IN l_get_recurring_cur
12394: LOOP
12395: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12396: QP_PREQ_GRP.engine_debug ('------in l_get_recurring_cur loop------');
12397: END IF; -- END IF l_debug
12398:
12399: IF recurring.created_from_list_line_type IN (G_DISCOUNT, G_SURCHARGE,
12409: ELSIF recurring.created_from_list_line_type = G_COUPON_ISSUE THEN
12410: l_recur_benefit_qty := 1;
12411: END IF; --recurring.created_from_list_line_type
12412:
12413: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12414: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty);
12415: END IF;
12416:
12417: IF recurring.modifier_level_code IN (G_LINE_LEVEL, G_ORDER_LEVEL) THEN
12441: l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT) :=
12442: recurring.benefit_qty;
12443: END IF;
12444:
12445: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12446: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12447: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12448: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12449: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12452: END IF; --recurring.created_from_list_line_type
12453: END LOOP; --recurring
12454:
12455: IF l_recur_dtl_index_tbl.COUNT > 0 THEN
12456: IF l_debug = FND_API.G_TRUE THEN
12457: QP_PREQ_GRP.engine_debug('Updating recurring qty '|| l_recur_dtl_index_tbl.COUNT);
12458: END IF;
12459: FORALL i IN l_recur_dtl_index_tbl.FIRST .. l_recur_dtl_index_tbl.LAST
12460: UPDATE qp_npreq_ldets_tmp recur SET operand_value = -- shu fix 2702384
12463: WHERE recur.line_detail_index = l_recur_dtl_index_tbl(i);
12464: END IF; --l_recur_dtl_index_tbl.COUNT
12465: EXCEPTION
12466: WHEN OTHERS THEN
12467: x_return_status := FND_API.G_RET_STS_ERROR;
12468: x_return_status_text := l_routine ||' '|| SQLERRM;
12469: IF l_debug = FND_API.G_TRUE THEN
12470: QP_PREQ_GRP.engine_debug('Exception in '|| x_return_status_text);
12471: END IF;
12465: EXCEPTION
12466: WHEN OTHERS THEN
12467: x_return_status := FND_API.G_RET_STS_ERROR;
12468: x_return_status_text := l_routine ||' '|| SQLERRM;
12469: IF l_debug = FND_API.G_TRUE THEN
12470: QP_PREQ_GRP.engine_debug('Exception in '|| x_return_status_text);
12471: END IF;
12472: END Update_recurring_quantity;
12473:
12584: AND a.PRICING_STATUS_CODE = G_STATUS_NEW;
12585:
12586: BEGIN
12587:
12588: IF l_debug = FND_API.G_TRUE THEN
12589: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12590: END IF;
12591:
12592: FOR l_line IN l_lines_cur LOOP
12589: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12590: END IF;
12591:
12592: FOR l_line IN l_lines_cur LOOP
12593: IF l_debug = FND_API.G_TRUE THEN
12594: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12595: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12596: END IF;
12597:
12594: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12595: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12596: END IF;
12597:
12598: IF l_debug = FND_API.G_TRUE THEN
12599: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12600: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12627: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12628: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12629: END IF;
12630:
12631: IF l_debug = FND_API.G_TRUE THEN
12632: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12633:
12634: END IF;
12635: --Populate Line detail
12634: END IF;
12635: --Populate Line detail
12636: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12637:
12638: IF l_debug = FND_API.G_TRUE THEN
12639: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12640: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12671: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12672: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12673: END IF;
12674: --Pass throuh components
12675: IF l_debug = FND_API.G_TRUE THEN
12676: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12677: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12697: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12698: END IF;
12699: END LOOP; --l_ldets_cur
12700: END LOOP; --end l_lines_cur
12701: IF l_debug = FND_API.G_TRUE THEN
12702: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12703:
12704: END IF;
12705: EXCEPTION
12703:
12704: END IF;
12705: EXCEPTION
12706: WHEN OTHERS THEN
12707: IF l_debug = FND_API.G_TRUE THEN
12708: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM);
12709: END IF;
12710: x_return_status := FND_API.G_RET_STS_ERROR;
12711: x_return_status_text := 'QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM;
12706: WHEN OTHERS THEN
12707: IF l_debug = FND_API.G_TRUE THEN
12708: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM);
12709: END IF;
12710: x_return_status := FND_API.G_RET_STS_ERROR;
12711: x_return_status_text := 'QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM;
12712: END Populate_Output_INT;
12713: --added by yangli for Java Engine project
12714:
12824: AND a.PRICING_STATUS_CODE = G_STATUS_NEW;
12825:
12826: BEGIN
12827:
12828: IF l_debug = FND_API.G_TRUE THEN
12829: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12830: END IF;
12831:
12832: FOR l_line IN l_lines_cur LOOP
12829: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12830: END IF;
12831:
12832: FOR l_line IN l_lines_cur LOOP
12833: IF l_debug = FND_API.G_TRUE THEN
12834: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12835: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12836: END IF;
12837:
12834: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12835: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12836: END IF;
12837:
12838: IF l_debug = FND_API.G_TRUE THEN
12839: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12840: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12867: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12868: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12869: END IF;
12870:
12871: IF l_debug = FND_API.G_TRUE THEN
12872: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12873:
12874: END IF;
12875: --Populate Line detail
12874: END IF;
12875: --Populate Line detail
12876: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12877:
12878: IF l_debug = FND_API.G_TRUE THEN
12879: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12880: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12911: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12912: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12913: END IF;
12914: --Pass throuh components
12915: IF l_debug = FND_API.G_TRUE THEN
12916: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12917: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12937: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12938: END IF;
12939: END LOOP; --l_ldets_cur
12940: END LOOP; --end l_lines_cur
12941: IF l_debug = FND_API.G_TRUE THEN
12942: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12943:
12944: END IF;
12945: EXCEPTION
12943:
12944: END IF;
12945: EXCEPTION
12946: WHEN OTHERS THEN
12947: IF l_debug = FND_API.G_TRUE THEN
12948: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output: '|| SQLERRM);
12949: END IF;
12950: x_return_status := FND_API.G_RET_STS_ERROR;
12951: x_return_status_text := 'QP_PREQ_PUB.Populate_Output: '|| SQLERRM;
12946: WHEN OTHERS THEN
12947: IF l_debug = FND_API.G_TRUE THEN
12948: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output: '|| SQLERRM);
12949: END IF;
12950: x_return_status := FND_API.G_RET_STS_ERROR;
12951: x_return_status_text := 'QP_PREQ_PUB.Populate_Output: '|| SQLERRM;
12952: END Populate_Output;
12953:
12954:
13102: WHERE v$mystat.statistic# = v$statname.statistic#
13103: AND v$statname.name = 'redo size';
13104: EXCEPTION
13105: WHEN OTHERS THEN
13106: IF l_debug = FND_API.G_TRUE THEN
13107: QP_PREQ_GRP.engine_debug('Error in looking up debug in PUB '|| SQLERRM);
13108: END IF; -- Bug No 4033618
13109: END;
13110: END IF;
13141: --from the freight charge phases
13142: G_GET_FREIGHT_FLAG := nvl(l_control_rec.get_freight_flag, G_NO);
13143:
13144: -- for QP-PO integration
13145: IF l_debug = FND_API.G_TRUE THEN
13146: QP_PREQ_GRP.engine_debug('G_REQUEST_TYPE_CODE = ' || G_REQUEST_TYPE_CODE);
13147: END IF;
13148:
13149: IF G_REQUEST_TYPE_CODE IN ('PO', 'ICX') THEN
13150: IF G_LICENSED_FOR_PRODUCT IS NULL THEN
13151: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13152: END IF;
13153:
13154: IF l_debug = FND_API.G_TRUE THEN
13155: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13156: END IF;
13157:
13158: IF G_LICENSED_FOR_PRODUCT = 'PO' THEN
13157:
13158: IF G_LICENSED_FOR_PRODUCT = 'PO' THEN
13159: NULL;
13160: ELSE
13161: x_return_status := FND_API.G_RET_STS_ERROR;
13162: FND_MESSAGE.SET_NAME('QP', 'QP_NOT_LICENSED_PO');
13163: x_return_status_text := FND_MESSAGE.get;
13164: RETURN;
13165: END IF;
13170: IF G_LICENSED_FOR_PRODUCT IS NULL THEN
13171: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13172: END IF;
13173:
13174: IF l_debug = FND_API.G_TRUE THEN
13175: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13176: END IF;
13177:
13178: IF G_LICENSED_FOR_PRODUCT = 'AHL' THEN
13177:
13178: IF G_LICENSED_FOR_PRODUCT = 'AHL' THEN
13179: NULL;
13180: ELSE
13181: x_return_status := FND_API.G_RET_STS_ERROR;
13182: FND_MESSAGE.SET_NAME('QP', 'QP_NOT_LICENSED_CMRO');
13183: x_return_status_text := FND_MESSAGE.get;
13184: RETURN;
13185: END IF;
13192: QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq(l_return_status,
13193: l_return_status_text);
13194: x_return_status := l_return_status;
13195: x_return_status_text := l_return_status_text;
13196: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13197: RAISE E_DEBUG_ROUTINE_ERROR;
13198: END IF;
13199:
13200: END IF;
13203:
13204: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
13205: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13206: --===========START: Globals Initialization specific only to PL/SQL Engine=======
13207: IF l_debug = FND_API.G_TRUE THEN
13208: QP_PREQ_GRP.ENGINE_DEBUG('01 Java Engine not Installed ----------');
13209: END IF;
13210:
13211: -- Changes made for bug 3169430 Customer Handleman as this customer has price lists only, no modifiers.
13242: -- Q - look at the QP profile
13243: --Change for 2635440 - pass 'Q' as default value for OC if request_type is 'ASO'
13244: ----------------------------------------------------
13245: G_ROUNDING_OPTIONS := FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS');
13246: IF (l_debug = FND_API.G_TRUE) THEN
13247: QP_PREQ_GRP.engine_debug('Rounding profile value '|| G_ROUNDING_OPTIONS);
13248: END IF;
13249:
13250: /*--ASO is not passing request_type_code on control_rec, it is passed
13319: oe_debug_pub.SetDebugLevel(10);
13320: oe_debug_pub.Initialize;
13321: oe_debug_pub.debug_on;
13322: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13323: IF l_debug = FND_API.G_TRUE THEN
13324: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13325: END IF;
13326: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13327: ELSE
13322: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13323: IF l_debug = FND_API.G_TRUE THEN
13324: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13325: END IF;
13326: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13327: ELSE
13328: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13329: END IF;
13330: ELSE
13324: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13325: END IF;
13326: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13327: ELSE
13328: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13329: END IF;
13330: ELSE
13331: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13332: END IF;
13327: ELSE
13328: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13329: END IF;
13330: ELSE
13331: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13332: END IF;
13333:
13334: */
13335:
13341: QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq(l_return_status,
13342: l_return_status_text);
13343: x_return_status := l_return_status;
13344: x_return_status_text := l_return_status_text;
13345: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13346: RAISE E_DEBUG_ROUTINE_ERROR;
13347: END IF;
13348:
13349: END IF;
13349: END IF;
13350: */
13351:
13352: --GSA Check
13353: IF l_debug = FND_API.G_TRUE THEN
13354: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13355: END IF;
13356: G_GSA_INDICATOR := Check_GSA_Indicator;
13357: IF l_debug = FND_API.G_TRUE THEN
13353: IF l_debug = FND_API.G_TRUE THEN
13354: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13355: END IF;
13356: G_GSA_INDICATOR := Check_GSA_Indicator;
13357: IF l_debug = FND_API.G_TRUE THEN
13358: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13359: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '|| G_GSA_ENABLED_FLAG);
13360:
13361: END IF;
13362: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13363: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13364:
13365:
13366: IF l_debug = FND_API.G_TRUE THEN
13367: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13368: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13369: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13370:
13372: --===========END: Globals Initialization specific only to PL/SQL Engine=======
13373: END IF; --java engine is not installed
13374:
13375: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13376: IF l_debug = FND_API.G_TRUE THEN
13377: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13378: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13387: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13388:
13389: /*
13390: --GSA Check
13391: IF l_debug = FND_API.G_TRUE THEN
13392: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13393: END IF;
13394: G_GSA_INDICATOR := Check_GSA_Indicator;
13395: IF l_debug = FND_API.G_TRUE THEN
13391: IF l_debug = FND_API.G_TRUE THEN
13392: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13393: END IF;
13394: G_GSA_INDICATOR := Check_GSA_Indicator;
13395: IF l_debug = FND_API.G_TRUE THEN
13396: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13397: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '||G_GSA_ENABLED_FLAG);
13398:
13399: END IF;
13400: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13401: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13402:
13403:
13404: IF l_debug = FND_API.G_TRUE THEN
13405: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13406: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13407: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13408:
13413: --to convert multiple events passed as string to a readable format
13414: --to remove the commas and single quotes in the pricing_event in ctrl rec
13415: IF instr(l_control_rec.pricing_event, ',') > 0
13416: THEN
13417: IF l_debug = FND_API.G_TRUE THEN
13418: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13419: END IF;
13420: --Changes for bug 2258525: Introduced local vairable l_pricing_event
13421: --instead of changing the control_rec
13429:
13430: --this is to make the cursor work for the last event
13431: l_pricing_event := l_pricing_event || ',';
13432: l_control_rec.pricing_event := l_pricing_event;
13433: IF l_debug = FND_API.G_TRUE THEN
13434: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13435: END IF;
13436: l_control_rec.GSA_DUP_CHECK_FLAG := G_NO;
13437: l_control_rec.temp_table_insert_flag :=
13454: --============END: l_control_rec needed by JAVA and PL/SQL Engine====
13455:
13456: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13457: --===========START: specific only to PL/SQL Engine=======
13458: IF l_debug = FND_API.G_TRUE THEN
13459: QP_PREQ_GRP.ENGINE_DEBUG('02 Java Engine not Installed ----------');
13460: END IF;
13461: -----------------------------------------------------------------
13462: --Need to set the global constants for the engine to see
13474: IF (G_NO_ADJ_PROCESSING = G_YES) AND (G_QP_INSTALL_STATUS = 'I') THEN -- Added for 3169430
13475: Identify_freegood_lines(l_control_rec.pricing_event
13476: , x_return_status, x_return_status_text);
13477:
13478: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13479: IF l_debug = FND_API.G_TRUE THEN
13480: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '
13481: || x_return_status_text);
13482: END IF;
13475: Identify_freegood_lines(l_control_rec.pricing_event
13476: , x_return_status, x_return_status_text);
13477:
13478: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13479: IF l_debug = FND_API.G_TRUE THEN
13480: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '
13481: || x_return_status_text);
13482: END IF;
13483: RAISE PRICE_REQUEST_EXC;
13487: l_control_rec
13488: , x_return_status_text
13489: , x_return_status);
13490:
13491: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13492:
13493: IF l_debug = FND_API.G_TRUE THEN
13494: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '|| x_return_status_text);
13495: END IF;
13489: , x_return_status);
13490:
13491: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13492:
13493: IF l_debug = FND_API.G_TRUE THEN
13494: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '|| x_return_status_text);
13495: END IF;
13496: RAISE PRICE_REQUEST_EXC;
13497: ELSIF X_RETURN_STATUS = 'BYPASS_PRICING'
13504:
13505: --added by yangli for Java Engine PUB 3086881
13506: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13507: --=======START: Specific only to PL/SQL Engine==================
13508: IF l_debug = FND_API.G_TRUE THEN
13509: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine not Installed ----------');
13510: END IF;
13511: --added by yangli for Java Engine PUB 3086881
13512: IF l_control_rec.calculate_flag IN
13517: BEGIN
13518: SELECT VALUE INTO l_old_dynamic_sampling_level
13519: FROM v$parameter
13520: WHERE name = 'optimizer_dynamic_sampling';
13521: IF l_debug = FND_API.G_TRUE THEN
13522: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13523: END IF;
13524: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13525: IF l_debug = FND_API.G_TRUE THEN
13521: IF l_debug = FND_API.G_TRUE THEN
13522: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13523: END IF;
13524: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13525: IF l_debug = FND_API.G_TRUE THEN
13526: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13527: END If;
13528: EXCEPTION
13529: WHEN OTHERS THEN
13526: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13527: END If;
13528: EXCEPTION
13529: WHEN OTHERS THEN
13530: IF l_debug = FND_API.G_TRUE THEN
13531: QP_PREQ_GRP.engine_debug('Error in looking up Dynamic sampling level '|| SQLERRM);
13532: QP_PREQ_GRP.engine_debug('Setting Dynamic Sampling level to 1');
13533: END IF;
13534: l_dynamic_sampling_level := 1;
13534: l_dynamic_sampling_level := 1;
13535: END;
13536:
13537: IF (l_dynamic_sampling_level IN (1) AND l_dynamic_sampling_level <> l_old_dynamic_sampling_level) THEN
13538: IF l_debug = FND_API.G_TRUE THEN
13539: QP_PREQ_GRP.ENGINE_DEBUG('Setting dynamic sampling level to '|| l_dynamic_sampling_level);
13540: END IF;
13541: BEGIN
13542: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13541: BEGIN
13542: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13543: EXCEPTION
13544: WHEN OTHERS THEN
13545: IF l_debug = FND_API.G_TRUE THEN
13546: QP_PREQ_GRP.engine_debug('Error in setting dynamic sampling level'|| SQLERRM);
13547: END IF;
13548: END;
13549: END IF;
13571: );
13572: END IF;
13573:
13574:
13575: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13576: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13577:
13578: IF l_debug = FND_API.G_TRUE THEN
13579: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13572: END IF;
13573:
13574:
13575: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13576: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13577:
13578: IF l_debug = FND_API.G_TRUE THEN
13579: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13580: END IF;
13574:
13575: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13576: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13577:
13578: IF l_debug = FND_API.G_TRUE THEN
13579: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13580: END IF;
13581: RAISE PRICE_REQUEST_EXC;
13582: END IF;
13580: END IF;
13581: RAISE PRICE_REQUEST_EXC;
13582: END IF;
13583:
13584: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13585: OPEN lcur1; LOOP
13586: FETCH lcur1 INTO lrec1;
13587: EXIT WHEN lcur1%NOTFOUND;
13588: IF l_debug = FND_API.G_TRUE THEN
13584: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13585: OPEN lcur1; LOOP
13586: FETCH lcur1 INTO lrec1;
13587: EXIT WHEN lcur1%NOTFOUND;
13588: IF l_debug = FND_API.G_TRUE THEN
13589: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
13590: ' list_line_id '|| lrec1.created_from_list_line_id ||
13591: ' line_detail_index '|| lrec1.line_detail_index ||
13592: ' pricess_sts '|| lrec1.process_status ||
13610: --rounding of list price will be taken care of in Calculate_price_pub
13611: Usage_pricing(l_control_rec.rounding_flag,
13612: x_return_status, x_return_status_text);
13613:
13614: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13615: , FND_API.G_RET_STS_UNEXP_ERROR)
13616: THEN
13617: IF l_debug = FND_API.G_TRUE THEN
13618: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13611: Usage_pricing(l_control_rec.rounding_flag,
13612: x_return_status, x_return_status_text);
13613:
13614: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13615: , FND_API.G_RET_STS_UNEXP_ERROR)
13616: THEN
13617: IF l_debug = FND_API.G_TRUE THEN
13618: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13619: || x_return_status_text);
13613:
13614: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13615: , FND_API.G_RET_STS_UNEXP_ERROR)
13616: THEN
13617: IF l_debug = FND_API.G_TRUE THEN
13618: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13619: || x_return_status_text);
13620: END IF;
13621: RAISE PRICE_REQUEST_EXC;
13620: END IF;
13621: RAISE PRICE_REQUEST_EXC;
13622: END IF;
13623: Update_Qualifier_Value(x_return_status, x_return_status_text);
13624: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13625: , FND_API.G_RET_STS_UNEXP_ERROR)
13626: THEN
13627: IF l_debug = FND_API.G_TRUE THEN
13628: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13621: RAISE PRICE_REQUEST_EXC;
13622: END IF;
13623: Update_Qualifier_Value(x_return_status, x_return_status_text);
13624: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13625: , FND_API.G_RET_STS_UNEXP_ERROR)
13626: THEN
13627: IF l_debug = FND_API.G_TRUE THEN
13628: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13629: || x_return_status_text);
13623: Update_Qualifier_Value(x_return_status, x_return_status_text);
13624: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13625: , FND_API.G_RET_STS_UNEXP_ERROR)
13626: THEN
13627: IF l_debug = FND_API.G_TRUE THEN
13628: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13629: || x_return_status_text);
13630: END IF;
13631: RAISE PRICE_REQUEST_EXC;
13634: END IF;
13635: IF (G_NO_ADJ_PROCESSING = G_YES) AND (G_QP_INSTALL_STATUS = 'I') THEN -- Added for 3169430
13636: QP_PREQ_PUB.process_prg(x_return_status, x_return_status_text);
13637:
13638: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13639: RAISE PRICE_REQUEST_EXC;
13640: END IF; --x_return_status
13641: END IF;
13642:
13652: Process_Adjustments(l_CONTROL_REC.PRICING_EVENT
13653: , x_return_status
13654: , x_return_status_text);
13655:
13656: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13657:
13658: IF l_debug = FND_API.G_TRUE THEN
13659: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Adjustments: '|| x_return_status_text);
13660: END IF;
13654: , x_return_status_text);
13655:
13656: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13657:
13658: IF l_debug = FND_API.G_TRUE THEN
13659: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Adjustments: '|| x_return_status_text);
13660: END IF;
13661: RAISE PRICE_REQUEST_EXC;
13662: END IF;
13674: Calculate_price(nvl(l_control_rec.rounding_flag, G_YES)
13675: , x_return_status
13676: , x_return_status_text);
13677:
13678: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13679:
13680: IF l_debug = FND_API.G_TRUE THEN
13681: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13682: END IF;
13676: , x_return_status_text);
13677:
13678: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13679:
13680: IF l_debug = FND_API.G_TRUE THEN
13681: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13682: END IF;
13683: RAISE PRICE_REQUEST_EXC;
13684: END IF;
13685:
13686: -- begin 2892848 instructed to add this
13687: Update_Unit_Price (x_return_status
13688: , x_return_status_text);
13689: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13690:
13691: IF l_debug = FND_API.G_TRUE THEN
13692: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Unit_Price: '|| x_return_status_text);
13693: END IF; -- end debug
13687: Update_Unit_Price (x_return_status
13688: , x_return_status_text);
13689: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13690:
13691: IF l_debug = FND_API.G_TRUE THEN
13692: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Unit_Price: '|| x_return_status_text);
13693: END IF; -- end debug
13694: RAISE PRICE_REQUEST_EXC;
13695: END IF;
13708:
13709: --before doing calculation we need to populate g_buyline_price_flag
13710: Populate_buy_line_price_flag(x_return_status, x_return_status_text);
13711:
13712: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13713: IF l_debug = FND_API.G_TRUE THEN
13714: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_buy_line_price_flag: '
13715: || x_return_status_text);
13716: END IF; --l_debug
13709: --before doing calculation we need to populate g_buyline_price_flag
13710: Populate_buy_line_price_flag(x_return_status, x_return_status_text);
13711:
13712: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13713: IF l_debug = FND_API.G_TRUE THEN
13714: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_buy_line_price_flag: '
13715: || x_return_status_text);
13716: END IF; --l_debug
13717: RAISE PRICE_REQUEST_EXC;
13718: END IF;
13719:
13720: Update_recurring_quantity(x_return_status, x_return_status_text);
13721:
13722: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13723: IF l_debug = FND_API.G_TRUE THEN
13724: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_recurring_quantity: '
13725: || x_return_status_text);
13726: END IF; --l_debug
13719:
13720: Update_recurring_quantity(x_return_status, x_return_status_text);
13721:
13722: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13723: IF l_debug = FND_API.G_TRUE THEN
13724: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_recurring_quantity: '
13725: || x_return_status_text);
13726: END IF; --l_debug
13727: RAISE PRICE_REQUEST_EXC;
13730: IF G_QP_INSTALL_STATUS = 'I' THEN -- Added for 3169430
13731: Process_Coupon_issue(l_control_rec.pricing_event,
13732: l_control_rec.simulation_flag,
13733: x_return_status, x_return_status_text);
13734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13735: IF l_debug = FND_API.G_TRUE THEN
13736: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Coupon_issue: '
13737: || x_return_status_text);
13738: END IF; --debug
13731: Process_Coupon_issue(l_control_rec.pricing_event,
13732: l_control_rec.simulation_flag,
13733: x_return_status, x_return_status_text);
13734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13735: IF l_debug = FND_API.G_TRUE THEN
13736: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Coupon_issue: '
13737: || x_return_status_text);
13738: END IF; --debug
13739: RAISE PRICE_REQUEST_EXC;
13754: -- Update_Child_Break_Lines(x_return_status,
13755: -- x_return_status_text);
13756:
13757:
13758: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13759:
13760: IF l_debug = FND_API.G_TRUE THEN
13761: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13762: END IF;
13756:
13757:
13758: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13759:
13760: IF l_debug = FND_API.G_TRUE THEN
13761: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13762: END IF;
13763: RAISE PRICE_REQUEST_EXC;
13764: END IF;
13763: RAISE PRICE_REQUEST_EXC;
13764: END IF;
13765: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13766: Cleanup_rltd_lines(x_return_status, x_return_status_text);
13767: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13768: IF l_debug = FND_API.G_TRUE THEN
13769: QP_PREQ_GRP.ENGINE_DEBUG('Exception Cleanup_rltd_lines: '|| x_return_status_text);
13770: END IF;
13771: RAISE PRICE_REQUEST_EXC;
13764: END IF;
13765: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13766: Cleanup_rltd_lines(x_return_status, x_return_status_text);
13767: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13768: IF l_debug = FND_API.G_TRUE THEN
13769: QP_PREQ_GRP.ENGINE_DEBUG('Exception Cleanup_rltd_lines: '|| x_return_status_text);
13770: END IF;
13771: RAISE PRICE_REQUEST_EXC;
13772: END IF;
13771: RAISE PRICE_REQUEST_EXC;
13772: END IF;
13773:
13774: Update_Adj_orderqty_cols(x_return_status, x_return_status_text);
13775: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13776: IF l_debug = FND_API.G_TRUE THEN
13777: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Adj_orderqty_cols: '
13778: || x_return_status_text);
13779: END IF; --debug
13772: END IF;
13773:
13774: Update_Adj_orderqty_cols(x_return_status, x_return_status_text);
13775: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13776: IF l_debug = FND_API.G_TRUE THEN
13777: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Adj_orderqty_cols: '
13778: || x_return_status_text);
13779: END IF; --debug
13780: RAISE PRICE_REQUEST_EXC;
13783: --to check if new order level adj are inserted when changed
13784: --lines are passed
13785: IF l_control_rec.full_pricing_call = G_NO
13786: THEN
13787: IF l_debug = FND_API.G_TRUE THEN
13788: QP_PREQ_GRP.engine_debug('Starting changed lines check');
13789: END IF;
13790: CHECK_ORDER_LINE_CHANGES(p_request_type_code =>
13791: G_REQUEST_TYPE_CODE,
13792: p_full_pricing_call =>
13793: l_control_rec.full_pricing_call,
13794: x_return_status => x_return_status,
13795: x_return_status_text => x_return_status_text);
13796: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13797: IF l_debug = FND_API.G_TRUE THEN
13798: QP_PREQ_GRP.ENGINE_DEBUG('Exception CHECK_ORDER_LINE_CHANGES: '|| x_return_status_text);
13799: END IF;
13800: RAISE PRICE_REQUEST_EXC;
13793: l_control_rec.full_pricing_call,
13794: x_return_status => x_return_status,
13795: x_return_status_text => x_return_status_text);
13796: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13797: IF l_debug = FND_API.G_TRUE THEN
13798: QP_PREQ_GRP.ENGINE_DEBUG('Exception CHECK_ORDER_LINE_CHANGES: '|| x_return_status_text);
13799: END IF;
13800: RAISE PRICE_REQUEST_EXC;
13801: END IF;
13801: END IF;
13802: END IF;
13803:
13804: -- Update_PRG_Process_status(x_return_status, x_return_status_text);
13805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13806: IF l_debug = FND_API.G_TRUE THEN
13807: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_PRG_Process_status: '
13808: || x_return_status_text);
13809: END IF; --debug
13802: END IF;
13803:
13804: -- Update_PRG_Process_status(x_return_status, x_return_status_text);
13805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13806: IF l_debug = FND_API.G_TRUE THEN
13807: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_PRG_Process_status: '
13808: || x_return_status_text);
13809: END IF; --debug
13810: RAISE PRICE_REQUEST_EXC;
13822: AND (applied_flag = G_YES OR updated_flag = G_YES)
13823: AND pricing_status_code = G_STATUS_UNCHANGED;
13824:
13825:
13826: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
13827: THEN
13828: Populate_Output(x_return_status, x_return_status);
13829:
13830: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
13826: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
13827: THEN
13828: Populate_Output(x_return_status, x_return_status);
13829:
13830: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
13831: THEN
13832: IF l_debug = FND_API.G_TRUE THEN
13833: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
13834: END IF;
13828: Populate_Output(x_return_status, x_return_status);
13829:
13830: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
13831: THEN
13832: IF l_debug = FND_API.G_TRUE THEN
13833: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
13834: END IF;
13835: RAISE PRICE_REQUEST_EXC;
13836: END IF; --X_RETURN_STATUS
13835: RAISE PRICE_REQUEST_EXC;
13836: END IF; --X_RETURN_STATUS
13837: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
13838:
13839: IF l_debug = FND_API.G_TRUE THEN
13840: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
13841:
13842: END IF;
13843: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13839: IF l_debug = FND_API.G_TRUE THEN
13840: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
13841:
13842: END IF;
13843: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13844: --this is for debug for rltd lines
13845: FOR cl IN (SELECT line_index,
13846: related_line_index,
13847: line_detail_index,
13858: qualifier_value
13859: FROM qp_npreq_rltd_lines_tmp
13860: WHERE pricing_status_code = G_STATUS_NEW)
13861: LOOP
13862: IF l_debug = FND_API.G_TRUE THEN
13863: QP_PREQ_GRP.engine_debug('related records with status N '
13864: ||' line_dtl_index '|| cl.line_detail_index
13865: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
13866: ||' line_index '|| cl.line_index
13880: END IF;
13881:
13882:
13883:
13884: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13885: OPEN lcur1; LOOP
13886: FETCH lcur1 INTO lrec1;
13887: EXIT WHEN lcur1%NOTFOUND;
13888: IF l_debug = FND_API.G_TRUE THEN
13884: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13885: OPEN lcur1; LOOP
13886: FETCH lcur1 INTO lrec1;
13887: EXIT WHEN lcur1%NOTFOUND;
13888: IF l_debug = FND_API.G_TRUE THEN
13889: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
13890: ' list_line_id '|| lrec1.created_from_list_line_id ||
13891: ' line_detail_index '|| lrec1.line_detail_index ||
13892: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code
13901: BEGIN
13902: Execute immediate 'alter session set optimizer_dynamic_sampling = '||l_old_dynamic_sampling_level;
13903: EXCEPTION
13904: WHEN OTHERS THEN
13905: IF l_debug = FND_API.G_TRUE THEN
13906: QP_PREQ_GRP.engine_debug('Error in resetting the dynamic sampling level to old value'|| SQLERRM);
13907: END IF;
13908: END;
13909: END IF;
13913: --=======END: Specific only to PL/SQL Engine==================
13914: --added by yangli for Java Engine PUB 3086881
13915: ELSE -- java engine is installed
13916: --=======START: Specific only to JAVA Engine==================
13917: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13918: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
13919: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
13920: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
13921: END IF;
13931: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = G_YES THEN
13932: --Preinsert Logic for OM call
13933: --to fetch out-of-phases modifiers and in-phase PRG modifiers
13934: --to fetch rltd information
13935: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13936: QP_PREQ_GRP.ENGINE_DEBUG('Before calling INT_TABLES_PREINSERT');
13937: END IF;
13938: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
13939: p_event_code => l_control_rec.pricing_event,
13938: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
13939: p_event_code => l_control_rec.pricing_event,
13940: x_return_status => l_return_status,
13941: x_return_status_text => l_status_Text);
13942: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13943: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
13944: END IF;
13945: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
13946: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
13941: x_return_status_text => l_status_Text);
13942: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13943: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
13944: END IF;
13945: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
13946: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
13947: RAISE E_ROUTINE_ERRORS;
13948: END IF;
13949: END IF;
13950: END IF;
13951:
13952: IF l_control_rec.temp_table_insert_flag = G_NO THEN
13953: l_request_id := QP_Price_Request_Context.GET_REQUEST_ID;
13954: IF l_debug = FND_API.G_TRUE THEN
13955: QP_PREQ_GRP.engine_debug('Request Id:'|| l_request_id);
13956: END IF;
13957: QP_JAVA_ENGINE.request_price(request_id => l_request_id,
13958: p_control_rec => l_control_rec,
13958: p_control_rec => l_control_rec,
13959: x_return_status => l_return_status,
13960: x_return_status_text => l_status_Text);
13961:
13962: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
13963: --l_status_text:= 'QP_JAVA_ENGINE.request_price failed for request id:'||l_request_id||l_status_text;
13964: IF l_debug = FND_API.G_TRUE THEN
13965: QP_PREQ_GRP.engine_debug(l_status_text);
13966: END IF; --Bug No 4033618
13960: x_return_status_text => l_status_Text);
13961:
13962: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
13963: --l_status_text:= 'QP_JAVA_ENGINE.request_price failed for request id:'||l_request_id||l_status_text;
13964: IF l_debug = FND_API.G_TRUE THEN
13965: QP_PREQ_GRP.engine_debug(l_status_text);
13966: END IF; --Bug No 4033618
13967: x_return_status := l_return_status;
13968: x_return_status_text := l_status_text;
13968: x_return_status_text := l_status_text;
13969: RAISE JAVA_ENGINE_PRICING_EXCEPTION;
13970: END IF;
13971: ELSE
13972: IF l_debug = FND_API.G_TRUE THEN
13973: QP_PREQ_GRP.engine_debug('Before calling QP_PREQ_GRP.PRICE_REQUEST.....');
13974: END IF;
13975: QP_PREQ_GRP.PRICE_REQUEST
13976: (p_line_tbl => p_line_tbl,
13990: x_related_lines_tbl => x_related_lines_tbl,
13991: x_return_status => x_return_status,
13992: x_return_status_text => x_return_status_text
13993: );
13994: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13995: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13996:
13997: IF l_debug = FND_API.G_TRUE THEN
13998: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13991: x_return_status => x_return_status,
13992: x_return_status_text => x_return_status_text
13993: );
13994: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13995: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13996:
13997: IF l_debug = FND_API.G_TRUE THEN
13998: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13999: END IF;
13993: );
13994: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13995: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13996:
13997: IF l_debug = FND_API.G_TRUE THEN
13998: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13999: END IF;
14000: RAISE PRICE_REQUEST_EXC;
14001: END IF;
14009: -- and Populate_Price_Adj_Id logic
14010: -- from QP_CLEANUP_ADJUSTMENTS_PVT.Fetch_Adjustments
14011: --call cleanup of adj only for OM
14012:
14013: IF l_debug = FND_API.G_TRUE THEN
14014: QP_PREQ_GRP.engine_debug('deleting related lines');
14015: END IF;
14016: DELETE FROM qp_int_rltd_lines
14017: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14016: DELETE FROM qp_int_rltd_lines
14017: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14018: AND relationship_type_code = QP_PREQ_PUB.G_PBH_LINE
14019: AND pricing_status_text = 'INSERTED FOR CALCULATION';
14020: IF l_debug = FND_API.G_TRUE THEN
14021: QP_PREQ_GRP.engine_debug('deleted related lines '|| SQL%ROWCOUNT);
14022: END IF;
14023:
14024: IF l_control_rec.calculate_flag IN
14026: THEN
14027: l_cleanup_flag := QP_PREQ_PUB.G_YES;
14028: --added for bug 3399997 by yangli
14029: Update_Line_Status(x_return_status, x_return_status_text);
14030: IF x_return_status = FND_API.G_RET_STS_ERROR
14031: THEN
14032: RAISE Pricing_Exception;
14033: END IF;
14034: --added for bug 3399997 by yangli
14032: RAISE Pricing_Exception;
14033: END IF;
14034: --added for bug 3399997 by yangli
14035:
14036: IF l_debug = FND_API.G_TRUE THEN
14037: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments');
14038: END IF;
14039: QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments('ONTVIEW',
14040: G_REQUEST_TYPE_CODE,
14040: G_REQUEST_TYPE_CODE,
14041: l_cleanup_flag,
14042: x_return_status,
14043: x_return_status_text);
14044: IF x_return_status = FND_API.G_RET_STS_ERROR
14045: THEN
14046: RAISE Pricing_Exception;
14047: END IF;
14048: --moved down per bug3238607
14045: THEN
14046: RAISE Pricing_Exception;
14047: END IF;
14048: --moved down per bug3238607
14049: /*IF l_debug = FND_API.G_TRUE THEN
14050: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14051: END IF;
14052:
14053: --populate the price adjustment id from sequence for rec with process_code = N
14052:
14053: --populate the price adjustment id from sequence for rec with process_code = N
14054: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status,x_return_status_text);
14055:
14056: IF x_return_status = FND_API.G_RET_STS_ERROR
14057: THEN
14058: Raise Pricing_Exception;
14059: END IF;*/
14060: --moved down per bug3238607
14066: l_control_rec.simulation_flag = G_NO THEN
14067: IF l_control_rec.calculate_flag IN
14068: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14069: THEN
14070: IF l_debug = FND_API.G_TRUE THEN
14071: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14072: END IF;
14073:
14074: --populate the price adjustment id from sequence for rec with process_code = N
14073:
14074: --populate the price adjustment id from sequence for rec with process_code = N
14075: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status, x_return_status_text);
14076:
14077: IF x_return_status = FND_API.G_RET_STS_ERROR
14078: THEN
14079: RAISE Pricing_Exception;
14080: END IF;
14081: END IF;
14080: END IF;
14081: END IF;
14082: END IF;
14083:
14084: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14085: THEN
14086: Populate_Output_INT(x_return_status, x_return_status);
14087:
14088: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14084: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14085: THEN
14086: Populate_Output_INT(x_return_status, x_return_status);
14087:
14088: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14089: THEN
14090: IF l_debug = FND_API.G_TRUE THEN
14091: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14092: END IF;
14086: Populate_Output_INT(x_return_status, x_return_status);
14087:
14088: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14089: THEN
14090: IF l_debug = FND_API.G_TRUE THEN
14091: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14092: END IF;
14093: RAISE PRICE_REQUEST_EXC;
14094: END IF; --X_RETURN_STATUS
14110: ------------------------------------------------------------
14111: --POPULATE OUT PROCESS CODE IN PRICING_STATUS_CODE
14112: --ONLY UPDATE THE RECORDS INPUT BY USER WHCH WERE USED IN CALCULATION
14113: ------------------------------------------------------------
14114: IF l_debug = FND_API.G_TRUE THEN
14115: QP_PREQ_GRP.ENGINE_DEBUG('Java Engine not Installed ----------');
14116: END IF;
14117: --added by yangli for Java Engine PUB 3086881
14118:
14115: QP_PREQ_GRP.ENGINE_DEBUG('Java Engine not Installed ----------');
14116: END IF;
14117: --added by yangli for Java Engine PUB 3086881
14118:
14119: IF l_debug = FND_API.G_TRUE THEN
14120: QP_PREQ_GRP.ENGINE_DEBUG('Update Process code to Pricing Code ');
14121: END IF;
14122: /*
14123: indxno index used Ravi
14142: x_line_detail_attr_tbl => x_line_detail_attr_tbl,
14143: x_related_lines_tbl => x_related_lines_tbl);
14144:
14145:
14146: IF l_debug = FND_API.G_TRUE THEN
14147: QP_PREQ_GRP.ENGINE_DEBUG('Line Detail Count : ' || x_line_detail_tbl.COUNT);
14148:
14149: END IF;
14150: --*******************************************************************
14149: END IF;
14150: --*******************************************************************
14151: --DEBUG
14152:
14153: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14154: j := x_line_tbl.FIRST;
14155: WHILE j IS NOT NULL
14156: LOOP
14157: IF l_debug = FND_API.G_TRUE THEN
14153: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14154: j := x_line_tbl.FIRST;
14155: WHILE j IS NOT NULL
14156: LOOP
14157: IF l_debug = FND_API.G_TRUE THEN
14158: QP_PREQ_GRP.ENGINE_DEBUG('PRICE LINE : '||
14159: x_line_tbl(j).line_index ||
14160: ' list price '|| x_line_tbl(j).unit_price ||
14161: ' adj price '|| x_line_tbl(j).adjusted_unit_price ||
14167: i := x_line_detail_tbl.FIRST;
14168: WHILE i IS NOT NULL
14169: LOOP
14170: IF x_line_detail_tbl(i).line_index = x_line_tbl(j).line_index THEN
14171: IF l_debug = FND_API.G_TRUE THEN
14172: QP_PREQ_GRP.ENGINE_DEBUG('PRICE ADJUSTMENTS: '
14173: ||' mod_id '|| x_line_detail_tbl(i).list_line_id
14174: ||' dtl_index '|| x_line_detail_tbl(i).line_detail_index
14175: ||' adj amount '|| x_line_detail_tbl(i).adjustment_amount
14182: END IF;
14183: END IF;
14184: i := x_line_detail_tbl.NEXT(i);
14185: END LOOP;
14186: IF l_debug = FND_API.G_TRUE THEN
14187: QP_PREQ_GRP.ENGINE_DEBUG('---------------------------------------------------');
14188: END IF;
14189: j := x_line_tbl.NEXT(j);
14190: END LOOP;
14189: j := x_line_tbl.NEXT(j);
14190: END LOOP;
14191:
14192: --fix for bug 2515762 automatic overrideable break debug for rltd info
14193: IF l_debug = FND_API.G_TRUE THEN
14194: QP_PREQ_GRP.ENGINE_DEBUG('------------Rltd Info----------------');
14195: QP_PREQ_GRP.ENGINE_DEBUG('Rltd Info count '|| x_related_lines_tbl.COUNT);
14196: END IF;
14197: j := x_related_lines_tbl.FIRST;
14196: END IF;
14197: j := x_related_lines_tbl.FIRST;
14198: WHILE j IS NOT NULL
14199: LOOP
14200: IF l_debug = FND_API.G_TRUE THEN
14201: QP_PREQ_GRP.ENGINE_DEBUG('line_index '
14202: || x_related_lines_tbl(j).line_index ||' related_line_index '
14203: || x_related_lines_tbl(j).related_line_index ||' dtl_index '
14204: || x_related_lines_tbl(j).line_detail_index ||' rltd_dtl_index '
14207: END IF;
14208: j := x_related_lines_tbl.NEXT(j);
14209: END LOOP;
14210:
14211: END IF; --IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14212: --*******************************************************************
14213: END IF; --temp_table_insert_flag = G_YES and check_cust_view_flag = G_NO
14214:
14215:
14228: l_return_status_text
14229: );
14230: x_return_status := l_return_status;
14231: x_return_status_text := l_return_status_text;
14232: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
14233: RAISE E_DEBUG_ROUTINE_ERROR;
14234: END IF;
14235: END IF;
14236:
14233: RAISE E_DEBUG_ROUTINE_ERROR;
14234: END IF;
14235: END IF;
14236:
14237: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
14238: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS';
14239:
14240: l_pricing_end_time := dbms_utility.get_time;
14241:
14247: WHERE v$mystat.statistic# = v$statname.statistic#
14248: AND v$statname.name = 'redo size';
14249: EXCEPTION
14250: WHEN OTHERS THEN
14251: IF l_debug = FND_API.G_TRUE THEN
14252: QP_PREQ_GRP.engine_debug('Error in looking up redo end in PUB '|| SQLERRM);
14253: END IF;
14254: END;
14255: END IF;
14256:
14257: l_time_difference := (l_pricing_end_time - l_pricing_start_time) / 100 ;
14258: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
14259:
14260: IF l_debug = FND_API.G_TRUE THEN
14261: QP_PREQ_GRP.engine_debug('Total time taken in PUB Pkg: '|| l_time_difference);
14262: QP_PREQ_GRP.engine_debug('redo log in PUB: '|| l_redo_difference);
14263:
14264: END IF;
14283:
14284: EXCEPTION
14285:
14286: WHEN OTHERS THEN
14287: IF l_debug = FND_API.G_TRUE THEN
14288: QP_PREQ_GRP.engine_debug('Failed to get time statistics in QP_PREQ_PUB');
14289: END IF;
14290: END;
14291: END IF;
14288: QP_PREQ_GRP.engine_debug('Failed to get time statistics in QP_PREQ_PUB');
14289: END IF;
14290: END;
14291: END IF;
14292: IF l_debug = FND_API.G_TRUE THEN
14293: QP_PREQ_GRP.ENGINE_DEBUG('End Price Request');
14294:
14295: END IF;
14296: --============END: Post-pricing process needed by JAVA and PL/SQL Engine======
14300: qp_debug_util.tflush;
14301:
14302: EXCEPTION
14303: WHEN E_BYPASS_PRICING THEN
14304: IF l_debug = FND_API.G_TRUE THEN
14305: QP_PREQ_GRP.ENGINE_DEBUG('Bypassed Pricing Engine');
14306: END IF;
14307: x_return_status := FND_API.G_RET_STS_SUCCESS;
14308: --to write temp table data into debug tables
14303: WHEN E_BYPASS_PRICING THEN
14304: IF l_debug = FND_API.G_TRUE THEN
14305: QP_PREQ_GRP.ENGINE_DEBUG('Bypassed Pricing Engine');
14306: END IF;
14307: x_return_status := FND_API.G_RET_STS_SUCCESS;
14308: --to write temp table data into debug tables
14309: IF (G_QP_DEBUG = G_YES) OR
14310: (G_QP_DEBUG = G_DONT_WRITE_TO_DEBUG) THEN -- If Debug is on
14311: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14311: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14312: l_return_status,
14313: l_return_status_text
14314: );
14315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14316: IF l_debug = FND_API.G_TRUE THEN
14317: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14318: END IF;
14319: END IF;
14312: l_return_status,
14313: l_return_status_text
14314: );
14315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14316: IF l_debug = FND_API.G_TRUE THEN
14317: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14318: END IF;
14319: END IF;
14320: END IF;
14319: END IF;
14320: END IF;
14321: --added by yangli for Java Engine PUB 3086881
14322: WHEN PRICING_EXCEPTION THEN
14323: x_return_status := FND_API.G_RET_STS_ERROR;
14324: IF l_debug = FND_API.G_TRUE THEN
14325: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14326: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14327: END IF;
14320: END IF;
14321: --added by yangli for Java Engine PUB 3086881
14322: WHEN PRICING_EXCEPTION THEN
14323: x_return_status := FND_API.G_RET_STS_ERROR;
14324: IF l_debug = FND_API.G_TRUE THEN
14325: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14326: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14327: END IF;
14328: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14325: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14326: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14327: END IF;
14328: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14329: x_return_status := FND_API.G_RET_STS_ERROR;
14330: IF l_debug = FND_API.G_TRUE THEN
14331: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14332: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14333: END IF;
14326: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14327: END IF;
14328: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14329: x_return_status := FND_API.G_RET_STS_ERROR;
14330: IF l_debug = FND_API.G_TRUE THEN
14331: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14332: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14333: END IF;
14334: --added by yangli for Java Engine PUB 3086881
14333: END IF;
14334: --added by yangli for Java Engine PUB 3086881
14335:
14336: WHEN PRICE_REQUEST_EXC THEN
14337: IF l_debug = FND_API.G_TRUE THEN
14338: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14339: END IF;
14340: NULL;
14341: x_return_status := FND_API.G_RET_STS_ERROR;
14337: IF l_debug = FND_API.G_TRUE THEN
14338: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14339: END IF;
14340: NULL;
14341: x_return_status := FND_API.G_RET_STS_ERROR;
14342: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14343: --to write temp table data into debug tables
14344: IF (G_QP_DEBUG = G_YES) OR
14345: (G_QP_DEBUG = G_DONT_WRITE_TO_DEBUG) THEN -- If Debug is on
14346: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14347: l_return_status,
14348: l_return_status_text
14349: );
14350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14351: IF l_debug = FND_API.G_TRUE THEN
14352: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14353: END IF;
14354: END IF;
14347: l_return_status,
14348: l_return_status_text
14349: );
14350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14351: IF l_debug = FND_API.G_TRUE THEN
14352: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14353: END IF;
14354: END IF;
14355: END IF;
14353: END IF;
14354: END IF;
14355: END IF;
14356: WHEN E_DEBUG_ROUTINE_ERROR THEN
14357: IF l_debug = FND_API.G_TRUE THEN
14358: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14359: END IF;
14360: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14361: IF l_debug = FND_API.G_TRUE THEN
14357: IF l_debug = FND_API.G_TRUE THEN
14358: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14359: END IF;
14360: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14361: IF l_debug = FND_API.G_TRUE THEN
14362: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14363: END IF;
14364: x_return_status := FND_API.G_RET_STS_ERROR;
14365: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14360: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14361: IF l_debug = FND_API.G_TRUE THEN
14362: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14363: END IF;
14364: x_return_status := FND_API.G_RET_STS_ERROR;
14365: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14366: WHEN OTHERS THEN
14367: IF l_debug = FND_API.G_TRUE THEN
14368: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14363: END IF;
14364: x_return_status := FND_API.G_RET_STS_ERROR;
14365: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14366: WHEN OTHERS THEN
14367: IF l_debug = FND_API.G_TRUE THEN
14368: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14369: END IF;
14370: x_return_status := FND_API.G_RET_STS_ERROR;
14371: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14366: WHEN OTHERS THEN
14367: IF l_debug = FND_API.G_TRUE THEN
14368: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14369: END IF;
14370: x_return_status := FND_API.G_RET_STS_ERROR;
14371: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14372: --to write temp table data into debug tables
14373: IF (G_QP_DEBUG = G_YES) OR
14374: (G_QP_DEBUG = G_DONT_WRITE_TO_DEBUG) THEN -- If Debug is on
14375: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14376: l_return_status,
14377: l_return_status_text
14378: );
14379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14380: IF l_debug = FND_API.G_TRUE THEN
14381: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14382: END IF;
14383: END IF;
14376: l_return_status,
14377: l_return_status_text
14378: );
14379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14380: IF l_debug = FND_API.G_TRUE THEN
14381: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14382: END IF;
14383: END IF;
14384: END IF;
14582: x_return_status_text => x_return_status_text
14583: );
14584:
14585: /*
14586: IF l_return_status IN (FND_API.G_RET_STS_ERROR
14587: ,FND_API.G_RET_STS_UNEXP_ERROR)
14588: THEN
14589:
14590: RAISE PRICE_REQUEST_EXC;
14583: );
14584:
14585: /*
14586: IF l_return_status IN (FND_API.G_RET_STS_ERROR
14587: ,FND_API.G_RET_STS_UNEXP_ERROR)
14588: THEN
14589:
14590: RAISE PRICE_REQUEST_EXC;
14591: END IF;
14594:
14595:
14596: EXCEPTION
14597: WHEN PRICE_REQUEST_EXC THEN
14598: IF l_debug = FND_API.G_TRUE THEN
14599: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14600: END IF;
14601: NULL;
14602: -- x_return_status := FND_API.G_RET_STS_ERROR;
14598: IF l_debug = FND_API.G_TRUE THEN
14599: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14600: END IF;
14601: NULL;
14602: -- x_return_status := FND_API.G_RET_STS_ERROR;
14603: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14604: WHEN OTHERS THEN
14605: IF l_debug = FND_API.G_TRUE THEN
14606: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14601: NULL;
14602: -- x_return_status := FND_API.G_RET_STS_ERROR;
14603: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14604: WHEN OTHERS THEN
14605: IF l_debug = FND_API.G_TRUE THEN
14606: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14607: END IF;
14608: x_return_status := FND_API.G_RET_STS_ERROR;
14609: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14604: WHEN OTHERS THEN
14605: IF l_debug = FND_API.G_TRUE THEN
14606: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14607: END IF;
14608: x_return_status := FND_API.G_RET_STS_ERROR;
14609: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14610:
14611: END PRICE_REQUEST;
14612:
14624:
14625: l_routine VARCHAR2(100) := 'Routine :QP_PREQ_PUB.get_price_for_line ';
14626: BEGIN
14627:
14628: IF l_debug = FND_API.G_TRUE THEN
14629: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14630: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14631: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14632: END IF;
14632: END IF;
14633:
14634: --added by yangli for java engine
14635: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
14636: IF l_debug = FND_API.G_TRUE THEN
14637: QP_PREQ_GRP.ENGINE_DEBUG('java engine is not running');
14638: END IF;
14639: IF p_line_index IS NOT NULL THEN
14640: SELECT line_unit_price,
14658: x_pricing_status_text
14659: FROM QP_NPREQ_LINES_TMP
14660: WHERE line_id = p_line_id;
14661: ELSE
14662: x_return_status := FND_API.G_RET_STS_ERROR;
14663: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14664: END IF;
14665: --added by yangli for java engine
14666: ELSE
14663: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14664: END IF;
14665: --added by yangli for java engine
14666: ELSE
14667: IF l_debug = FND_API.G_TRUE THEN
14668: QP_PREQ_GRP.ENGINE_DEBUG('java engine running');
14669: END IF;
14670: IF p_line_index IS NOT NULL THEN
14671: SELECT line_unit_price,
14689: x_pricing_status_text
14690: FROM QP_INT_LINES
14691: WHERE line_id = p_line_id;
14692: ELSE
14693: x_return_status := FND_API.G_RET_STS_ERROR;
14694: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14695: END IF;
14696: END IF;
14697:
14694: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14695: END IF;
14696: END IF;
14697:
14698: IF l_debug = FND_API.G_TRUE THEN
14699: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14700: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14701: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14702: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14702: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14703: END IF;
14704:
14705: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14706: x_return_status := FND_API.G_RET_STS_SUCCESS;
14707: ELSE
14708: x_return_status := FND_API.G_RET_STS_ERROR;
14709: END IF;
14710:
14704:
14705: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14706: x_return_status := FND_API.G_RET_STS_SUCCESS;
14707: ELSE
14708: x_return_status := FND_API.G_RET_STS_ERROR;
14709: END IF;
14710:
14711: EXCEPTION
14712:
14710:
14711: EXCEPTION
14712:
14713: WHEN NO_DATA_FOUND THEN
14714: IF l_debug = FND_API.G_TRUE THEN
14715: QP_PREQ_GRP.ENGINE_DEBUG('no_data_found Exception in : ' || l_routine || ' ' || SQLERRM);
14716: END IF;
14717: x_return_status := FND_API.G_RET_STS_ERROR;
14718: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14713: WHEN NO_DATA_FOUND THEN
14714: IF l_debug = FND_API.G_TRUE THEN
14715: QP_PREQ_GRP.ENGINE_DEBUG('no_data_found Exception in : ' || l_routine || ' ' || SQLERRM);
14716: END IF;
14717: x_return_status := FND_API.G_RET_STS_ERROR;
14718: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14719:
14720: WHEN OTHERS THEN
14721: IF l_debug = FND_API.G_TRUE THEN
14717: x_return_status := FND_API.G_RET_STS_ERROR;
14718: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14719:
14720: WHEN OTHERS THEN
14721: IF l_debug = FND_API.G_TRUE THEN
14722: QP_PREQ_GRP.ENGINE_DEBUG('Others Exception in : ' || l_routine || ' ' || SQLERRM);
14723: END IF;
14724: x_return_status := FND_API.G_RET_STS_ERROR;
14725: x_pricing_status_text := 'Others Exception in : ' || l_routine || ' ' || SQLERRM;
14720: WHEN OTHERS THEN
14721: IF l_debug = FND_API.G_TRUE THEN
14722: QP_PREQ_GRP.ENGINE_DEBUG('Others Exception in : ' || l_routine || ' ' || SQLERRM);
14723: END IF;
14724: x_return_status := FND_API.G_RET_STS_ERROR;
14725: x_pricing_status_text := 'Others Exception in : ' || l_routine || ' ' || SQLERRM;
14726: END get_price_for_line;
14727:
14728: