[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:
2024: l_pbh_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2025: l_prg_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2026:
2027: BEGIN
2028: x_return_status := FND_API.G_RET_STS_SUCCESS;
2029: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2030:
2031: --per bug3238607, no need to check HVOP
2032: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2030:
2031: --per bug3238607, no need to check HVOP
2032: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2033: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2034: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2036: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2037: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2038: END IF;
2101: l_BREAK_UOM_CONTEXT.DELETE;
2102: l_BREAK_UOM_ATTRIBUTE.DELETE;
2103: l_PROCESS_CODE.DELETE; -- 3215497
2104:
2105: IF l_debug = FND_API.G_TRUE THEN
2106: QP_PREQ_GRP.engine_debug('fetching l_ldets_cur');
2107: END IF;
2108:
2109: FETCH l_ldets_cur
2172: l_PROCESS_CODE; -- 3215497
2173: -- LIMIT nrows;
2174: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2175:
2176: IF l_debug = FND_API.G_TRUE THEN
2177: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2178: END IF;
2179:
2180: IF l_LINE_DETAIL_index.COUNT > 0
2177: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2178: END IF;
2179:
2180: IF l_LINE_DETAIL_index.COUNT > 0
2181: AND l_debug = FND_API.G_TRUE
2182: THEN
2183: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2184: LOOP
2185: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2254: END LOOP;
2255: END IF; --l_line_detail_index.COUNT
2256:
2257: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2258: IF l_debug = FND_API.G_TRUE THEN
2259: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2260: END IF;
2261: QP_PREQ_GRP.INSERT_LDETS2
2262: (l_LINE_DETAIL_index,
2328: END IF;
2329: END LOOP;
2330: CLOSE l_ldets_cur;
2331:
2332: IF l_debug = FND_API.G_TRUE THEN
2333: QP_PREQ_GRP.engine_debug('close l_ldets_cur');
2334: END IF;
2335:
2336:
2333: QP_PREQ_GRP.engine_debug('close l_ldets_cur');
2334: END IF;
2335:
2336:
2337: IF l_debug = FND_API.G_TRUE THEN
2338: QP_PREQ_GRP.engine_debug('Begin Insert rltd lines');
2339: END IF;
2340:
2341: OPEN l_pbh_adj_exists_cur;
2345: OPEN l_prg_adj_exists_cur;
2346: FETCH l_prg_adj_exists_cur INTO l_prg_adj_exists;
2347: CLOSE l_prg_adj_exists_cur;
2348:
2349: IF l_debug = FND_API.G_TRUE THEN
2350: QP_PREQ_GRP.engine_debug('Check l_pbh_adj_exists '|| l_pbh_adj_exists);
2351: QP_PREQ_GRP.engine_debug('Check l_prg_adj_exists '|| l_prg_adj_exists);
2352: END IF;
2353:
2364: l_LIST_LINE_ID.DELETE;
2365: l_RLTD_LIST_LINE_ID.DELETE;
2366: l_pricing_status_text.DELETE;
2367:
2368: IF l_debug = FND_API.G_TRUE THEN
2369: QP_PREQ_GRP.engine_debug('fetching l_rltd_lines_cur');
2370: END IF;
2371:
2372: FETCH l_rltd_lines_cur
2381: l_pricing_status_text;
2382: -- LIMIT nrows;
2383: EXIT WHEN l_LINE_index1.COUNT = 0;
2384:
2385: IF l_debug = FND_API.G_TRUE THEN
2386: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_index1.COUNT);
2387: END IF;
2388:
2389: IF l_LINE_index1.COUNT > 0
2386: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_index1.COUNT);
2387: END IF;
2388:
2389: IF l_LINE_index1.COUNT > 0
2390: AND l_debug = FND_API.G_TRUE
2391: THEN
2392: FOR i IN l_LINE_index1.FIRST..l_LINE_index1.LAST
2393: LOOP
2394: QP_PREQ_GRP.engine_debug('======line_index: '|| l_LINE_index1(i) ||
2401: ' pricing_status_text:' || l_pricing_status_text(i));
2402: END LOOP;
2403: END IF; --l_LINE_index1.COUNT
2404:
2405: IF l_debug = FND_API.G_TRUE THEN
2406: QP_PREQ_GRP.engine_debug('calling INSERT_RLTD_LDETS2');
2407: END IF;
2408: QP_PREQ_GRP.INSERT_RLTD_LINES2
2409: (l_LINE_INDEX1
2423: */ --need to delete them later
2424: END LOOP;
2425: CLOSE l_rltd_lines_cur;
2426:
2427: IF l_debug = FND_API.G_TRUE THEN
2428: QP_PREQ_GRP.engine_debug('close l_rltd_lines_cur');
2429: END IF;
2430:
2431: IF l_prg_adj_exists = 'Y' THEN
2493: l_BREAK_UOM_CONTEXT.DELETE;
2494: l_BREAK_UOM_ATTRIBUTE.DELETE;
2495: l_PROCESS_CODE.DELETE; -- 3215497
2496:
2497: IF l_debug = FND_API.G_TRUE THEN
2498: QP_PREQ_GRP.engine_debug('fetching l_getline_dis_cur');
2499: END IF;
2500:
2501: FETCH l_getline_dis_cur
2564: l_PROCESS_CODE; -- 3215497
2565: -- LIMIT nrows;
2566: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2567:
2568: IF l_debug = FND_API.G_TRUE THEN
2569: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2570: END IF;
2571:
2572: IF l_LINE_DETAIL_index.COUNT > 0
2569: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2570: END IF;
2571:
2572: IF l_LINE_DETAIL_index.COUNT > 0
2573: AND l_debug = FND_API.G_TRUE
2574: THEN
2575: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2576: LOOP
2577: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2646: END LOOP;
2647: END IF; --l_line_detail_index.COUNT
2648:
2649: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2650: IF l_debug = FND_API.G_TRUE THEN
2651: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2652: END IF;
2653: QP_PREQ_GRP.INSERT_LDETS2
2654: (l_LINE_DETAIL_index,
2721: END LOOP;
2722: --CLOSE l_ldets_cur;
2723: CLOSE l_getline_dis_cur;
2724:
2725: IF l_debug = FND_API.G_TRUE THEN
2726: QP_PREQ_GRP.engine_debug('close l_getline_dis_cur');
2727: END IF;
2728:
2729: END IF;
2797: AND ldet.created_from_list_line_type = G_PRICE_BREAK_TYPE)
2798: AND rltd.relationship_type_code = G_PBH_LINE
2799: AND rltd.pricing_status_code = G_STATUS_NEW;
2800:
2801: IF (l_debug = FND_API.G_TRUE) THEN
2802: QP_PREQ_GRP.engine_debug('Updating PBH rltd dlts COUNT: '
2803: || SQL%ROWCOUNT);
2804: QP_PREQ_GRP.engine_debug('Updating the child detail type code');
2805: END IF;
2810: FROM qp_npreq_rltd_lines_tmp
2811: WHERE relationship_type_code = G_PBH_LINE
2812: AND pricing_status_code = G_STATUS_NEW);
2813:
2814: IF (l_debug = FND_API.G_TRUE) THEN
2815: FOR i IN (SELECT line_detail_index
2816: FROM qp_npreq_ldets_tmp
2817: WHERE line_detail_type_code = QP_PREQ_PUB.G_CHILD_DETAIL_TYPE)
2818: LOOP
2821:
2822: END IF;
2823:
2824:
2825: x_return_status := FND_API.G_RET_STS_SUCCESS;
2826: EXCEPTION
2827: WHEN OTHERS THEN
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829: x_return_status_text := 'Exception in updated_passed_pbh '|| SQLERRM;
2824:
2825: x_return_status := FND_API.G_RET_STS_SUCCESS;
2826: EXCEPTION
2827: WHEN OTHERS THEN
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829: x_return_status_text := 'Exception in updated_passed_pbh '|| SQLERRM;
2830: END Update_passed_in_pbh;
2831:
2832: FUNCTION CHECK_GSA_INDICATOR RETURN VARCHAR2 IS
2844:
2845: l_gsa_indicator VARCHAR2(1) := 'N';
2846: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.CHECK_GSA_INDICATOR';
2847: BEGIN
2848: IF l_debug = FND_API.G_TRUE THEN
2849: QP_PREQ_GRP.engine_debug('Begin CHECK_GSA_INDICATOR '|| l_gsa_indicator);
2850:
2851: END IF;
2852: OPEN l_check_gsa_ind_cur;
2852: OPEN l_check_gsa_ind_cur;
2853: FETCH l_check_gsa_ind_cur INTO l_gsa_indicator;
2854: CLOSE l_check_gsa_ind_cur;
2855:
2856: IF l_debug = FND_API.G_TRUE THEN
2857: QP_PREQ_GRP.engine_debug('Cursor fetched '|| l_gsa_indicator);
2858:
2859: END IF;
2860: RETURN l_gsa_indicator;
2858:
2859: END IF;
2860: RETURN l_gsa_indicator;
2861:
2862: IF l_debug = FND_API.G_TRUE THEN
2863: QP_PREQ_GRP.engine_debug('END CHECK_GSA_INDICATOR ');
2864: END IF;
2865: EXCEPTION
2866: WHEN OTHERS THEN
2863: QP_PREQ_GRP.engine_debug('END CHECK_GSA_INDICATOR ');
2864: END IF;
2865: EXCEPTION
2866: WHEN OTHERS THEN
2867: IF l_debug = FND_API.G_TRUE THEN
2868: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
2869: END IF;
2870: RETURN l_gsa_indicator;
2871: END CHECK_GSA_INDICATOR;
2972: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2973: l_gsa_line_index_tbl.DELETE;
2974: l_gsa_sts_text_tbl.DELETE;
2975:
2976: IF l_debug = FND_API.G_TRUE THEN
2977: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
2978:
2979: END IF;
2980: -- Call GSA Check only for non-gsa customers(GSA_QUALIFIER_FLAG IS NULL)
2981: IF G_GSA_CHECK_FLAG = G_YES
2982: AND G_GSA_ENABLED_FLAG = G_YES
2983: AND G_GSA_INDICATOR = G_NO
2984: THEN
2985: IF l_debug = FND_API.G_TRUE THEN
2986: QP_PREQ_GRP.engine_debug('IN GSA check attrmgr '|| G_ATTR_MGR_INSTALLED);
2987:
2988: END IF;
2989: IF G_ATTR_MGR_INSTALLED = G_NO
2990: THEN
2991: FOR GSA IN l_gsa_check_cur
2992: LOOP
2993: -- I := I + 1; bug2426025 placed the counter in the if condition
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2996: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2997: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2998: END IF;
3000: THEN
3001: I := I + 1;
3002: l_gsa_line_index_tbl(I) := GSA.line_index;
3003: l_gsa_sts_text_tbl(I) := GSA.operand;
3004: IF l_debug = FND_API.G_TRUE THEN
3005: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3006: || l_gsa_line_index_tbl(I));
3007: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3008: || l_gsa_sts_text_tbl(I));
3012: ELSE --G_ATTR_MGR_INSTALLED --not installed
3013: FOR GSA IN l_attrmgr_gsa_check_cur
3014: LOOP
3015: -- I := I + 1; bug2426025 placed the counter in the if condition
3016: IF l_debug = FND_API.G_TRUE THEN
3017: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3018: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3019: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3020: END IF;
3022: THEN
3023: I := I + 1;
3024: l_gsa_line_index_tbl(I) := GSA.line_index;
3025: l_gsa_sts_text_tbl(I) := GSA.operand;
3026: IF l_debug = FND_API.G_TRUE THEN
3027: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3028: || l_gsa_line_index_tbl(I));
3029: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3030: || l_gsa_sts_text_tbl(I));
3032: END IF;
3033: END LOOP; --l_attrmgr_gsa_check_cur
3034: END IF; --G_ATTR_MGR_INSTALLED --not installed
3035:
3036: IF l_debug = FND_API.G_TRUE THEN
3037: QP_PREQ_GRP.engine_debug('AFTER GSA check');
3038: END IF;
3039: END IF;
3040:
3039: END IF;
3040:
3041: IF l_gsa_line_index_tbl.COUNT > 0
3042: THEN
3043: IF l_debug = FND_API.G_TRUE THEN
3044: QP_PREQ_GRP.engine_debug('Before GSA update '|| l_gsa_line_index_tbl.COUNT);
3045: END IF;
3046: FORALL I IN l_gsa_line_index_tbl.FIRST..l_gsa_line_index_tbl.LAST
3047: UPDATE qp_npreq_lines_tmp
3050: 'GSA VIOLATION - GSA PRICE '|| l_gsa_sts_text_tbl(I)
3051: WHERE line_index = l_gsa_line_index_tbl(I);
3052: END IF; --l_gsa_line_index_tbl.COUNT
3053:
3054: IF l_debug = FND_API.G_TRUE THEN
3055: QP_PREQ_GRP.engine_debug('Pub GSA check completed');
3056:
3057: END IF;
3058: --GSA VIOLATION CHECK
3059:
3060:
3061: EXCEPTION
3062: WHEN OTHERS THEN
3063: IF l_debug = FND_API.G_TRUE THEN
3064: QP_PREQ_GRP.ENGINE_DEBUG('exception QP_PREQ_PUB.check gsa_violation: '|| SQLERRM);
3065: END IF;
3066: x_return_status := FND_API.G_RET_STS_ERROR;
3067: x_return_status_text := 'QP_PREQ_PUB.check gsa_violation: '|| SQLERRM;
3062: WHEN OTHERS THEN
3063: IF l_debug = FND_API.G_TRUE THEN
3064: QP_PREQ_GRP.ENGINE_DEBUG('exception QP_PREQ_PUB.check gsa_violation: '|| SQLERRM);
3065: END IF;
3066: x_return_status := FND_API.G_RET_STS_ERROR;
3067: x_return_status_text := 'QP_PREQ_PUB.check gsa_violation: '|| SQLERRM;
3068: END CHECK_GSA_VIOLATION;
3069:
3070:
3184: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3185: --**************************************************************
3186: --BACK CALCULATION ROUTINE
3187: --**************************************************************
3188: IF l_debug = FND_API.G_TRUE THEN
3189: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE '
3190: || G_BACK_CALCULATION_CODE);
3191:
3192:
3192:
3193: END IF;
3194: OPEN l_back_calculate_cur;
3195: --LOOP
3196: IF l_debug = FND_API.G_TRUE THEN
3197: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE1');
3198: END IF;
3199: l_back_list_line_id_tbl.DELETE;
3200: l_back_line_index_tbl.DELETE;
3257: l_back_bucket_tbl,
3258: l_back_list_line_no_tbl,
3259: l_back_calculation_code_tbl,
3260: l_back_calc_precedence_tbl;
3261: IF l_debug = FND_API.G_TRUE THEN
3262: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2');
3263: END IF;
3264: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3265: CLOSE l_back_calculate_cur;
3263: END IF;
3264: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3265: CLOSE l_back_calculate_cur;
3266:
3267: IF l_debug = FND_API.G_TRUE THEN
3268: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3269: END IF;
3270: --DEBUG
3271: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3267: IF l_debug = FND_API.G_TRUE THEN
3268: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3269: END IF;
3270: --DEBUG
3271: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3272: AND l_back_list_line_id_tbl.COUNT>0
3273: THEN
3274: IF l_debug = FND_API.G_TRUE THEN
3275: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3270: --DEBUG
3271: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3272: AND l_back_list_line_id_tbl.COUNT>0
3273: THEN
3274: IF l_debug = FND_API.G_TRUE THEN
3275: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3276: END IF;
3277: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3278: LOOP
3275: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3276: END IF;
3277: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3278: LOOP
3279: IF l_debug = FND_API.G_TRUE THEN
3280: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4');
3281: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ADJ '
3282: || l_back_list_line_id_tbl(i) ||' line index '
3283: || l_back_line_index_tbl(i) ||' detail index '
3298: END IF;
3299: END LOOP;
3300: END IF;
3301:
3302: IF l_debug = FND_API.G_TRUE THEN
3303: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4.5');
3304: END IF;
3305: IF l_back_line_index_tbl.COUNT > 0
3306: THEN
3308: THEN
3309: FOR I IN
3310: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3311: LOOP
3312: IF l_debug = FND_API.G_TRUE THEN
3313: QP_PREQ_GRP.ENGINE_DEBUG('forward loop '|| i);
3314: END IF;
3315:
3316: --fix for bug 2790460 to add the amount_changed to the
3339: , l_return_status
3340: , l_return_status_text);
3341:
3342: IF BACK_CALCULATE_SUCC
3343: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3344: THEN
3345: IF l_debug = FND_API.G_TRUE THEN
3346: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3347: || l_adjustment_amount ||' list_line_id '
3341:
3342: IF BACK_CALCULATE_SUCC
3343: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3344: THEN
3345: IF l_debug = FND_API.G_TRUE THEN
3346: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3347: || l_adjustment_amount ||' list_line_id '
3348: || l_back_list_line_id_tbl(i) ||' operand val '
3349: || l_operand_value);
3421: ELSE --p_amount_changed is positive, then its a surcharge
3422: FOR I IN REVERSE
3423: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3424: LOOP
3425: IF l_debug = FND_API.G_TRUE THEN
3426: QP_PREQ_GRP.ENGINE_DEBUG('reverse loop '|| i);
3427: END IF;
3428: --fix for bug 2790460 to add the amount_changed to the
3429: --adjustment_amount if the adj
3451: , l_return_status
3452: , l_return_status_text);
3453:
3454: IF BACK_CALCULATE_SUCC
3455: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3456: THEN
3457: IF l_debug = FND_API.G_TRUE THEN
3458: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3459: || l_adjustment_amount ||' list_line_id '
3453:
3454: IF BACK_CALCULATE_SUCC
3455: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3456: THEN
3457: IF l_debug = FND_API.G_TRUE THEN
3458: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3459: || l_adjustment_amount ||' list_line_id '
3460: || l_back_list_line_id_tbl(i) ||' operand val '
3461: || l_operand_value);
3530: END IF; --p_amount_changed
3531:
3532: IF BACK_CALCULATE_SUCC
3533: THEN
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 succ set status');
3538: END IF;
3532: IF BACK_CALCULATE_SUCC
3533: THEN
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 succ set status');
3538: END IF;
3539: x_return_status := l_return_status;
3540: x_return_status_text := l_return_status_text;
3540: x_return_status_text := l_return_status_text;
3541: x_back_calc_rec := l_back_calc_rec;
3542: END IF;
3543: ELSE
3544: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3545: THEN
3546: IF l_debug = FND_API.G_TRUE THEN
3547: QP_PREQ_GRP.ENGINE_DEBUG('back cal fail set status');
3548: END IF;
3542: END IF;
3543: ELSE
3544: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3545: THEN
3546: IF l_debug = FND_API.G_TRUE THEN
3547: QP_PREQ_GRP.ENGINE_DEBUG('back cal fail set status');
3548: END IF;
3549: x_return_status := G_BACK_CALCULATION_STS;
3550: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3549: x_return_status := G_BACK_CALCULATION_STS;
3550: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3551: x_back_calc_rec := l_back_calc_rec;
3552: ELSE
3553: IF l_debug = FND_API.G_TRUE THEN
3554: QP_PREQ_GRP.ENGINE_DEBUG('back cal error set status');
3555: END IF;
3556: x_return_status := G_BACK_CALCULATION_STS;
3557: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION ERROR '|| l_return_status_text;
3559: END IF;
3560: END IF;
3561:
3562: ELSE
3563: IF l_debug = FND_API.G_TRUE THEN
3564: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3565: END IF;
3566: x_return_status := G_BACK_CALCULATION_STS;
3567: IF l_debug = FND_API.G_TRUE THEN
3563: IF l_debug = FND_API.G_TRUE THEN
3564: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3565: END IF;
3566: x_return_status := G_BACK_CALCULATION_STS;
3567: IF l_debug = FND_API.G_TRUE THEN
3568: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3569: END IF;
3570: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3571: IF l_debug = FND_API.G_TRUE THEN
3567: IF l_debug = FND_API.G_TRUE THEN
3568: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3569: END IF;
3570: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3571: IF l_debug = FND_API.G_TRUE THEN
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3573: END IF;
3574: END IF;
3575: IF l_debug = FND_API.G_TRUE THEN
3571: IF l_debug = FND_API.G_TRUE THEN
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3573: END IF;
3574: END IF;
3575: IF l_debug = FND_API.G_TRUE THEN
3576: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE7');
3577:
3578: END IF;
3579: EXCEPTION
3577:
3578: END IF;
3579: EXCEPTION
3580: WHEN OTHERS THEN
3581: IF l_debug = FND_API.G_TRUE THEN
3582: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION EXCEPTION '|| SQLERRM);
3583: END IF;
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: x_return_status_text := 'Error QP_PREQ_PUB.BACK_CALCULATION '|| SQLERRM;
3580: WHEN OTHERS THEN
3581: IF l_debug = FND_API.G_TRUE THEN
3582: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION EXCEPTION '|| SQLERRM);
3583: END IF;
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: x_return_status_text := 'Error QP_PREQ_PUB.BACK_CALCULATION '|| SQLERRM;
3586: END BACK_CALCULATION;
3587:
3588: --procedure to update the line's adjusted_unit_price with unit_price
3698: --[prarasto:Post Round] End : new variables
3699:
3700: BEGIN
3701: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3702: IF l_debug = FND_API.G_TRUE THEN
3703: QP_PREQ_GRP.engine_debug('Begin update_unit_price');
3704:
3705: END IF;
3706: OPEN l_check_adjustments_cur;
3741: l_amount_changed_tbl,
3742: l_line_unit_price_tbl;
3743: CLOSE l_check_adjustments_cur;
3744:
3745: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3746: AND l_line_index_tbl.COUNT > 0
3747: THEN
3748: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3749: LOOP
3746: AND l_line_index_tbl.COUNT > 0
3747: THEN
3748: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3749: LOOP
3750: IF l_debug = FND_API.G_TRUE THEN
3751: QP_PREQ_GRP.engine_debug('line_index '
3752: || l_line_index_tbl(i) ||' unit_price '
3753: || l_unit_price_tbl(i) ||' adj_unit_price '
3754: || l_adj_unit_price_tbl(i) ||' price_qty '
3768: --for bug 2926554 back calculation needs to be done here
3769: --if the caller has overridden the selling price
3770: --and if the line did not go thru calculation
3771: IF l_upd_adj_unit_price_tbl(i) IS NOT NULL THEN
3772: IF l_debug = FND_API.G_TRUE THEN
3773: QP_PREQ_GRP.engine_debug('back calculation for line '
3774: || l_line_index_tbl(i));
3775: END IF; --l_debug
3776:
3798: l_amount_changed_tbl(i) :=
3799: (l_upd_adj_unit_price_tbl(i) - l_adj_unit_price_tbl(i));
3800:
3801:
3802: IF l_debug = FND_API.G_TRUE THEN
3803: QP_PREQ_GRP.engine_debug('amt chg '|| l_amount_changed_tbl(i));
3804: END IF; --l_debug
3805:
3806: IF l_amount_changed_tbl(i) <= 0 THEN
3814: , l_back_calc_ret_rec
3815: , l_return_status
3816: , l_return_status_text);
3817:
3818: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3819: --need to do this check for bug 2833753
3820: IF l_debug = FND_API.G_TRUE THEN
3821: QP_PREQ_GRP.engine_debug('back cal succ insert rec ');
3822: END IF; --l_debug
3816: , l_return_status_text);
3817:
3818: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3819: --need to do this check for bug 2833753
3820: IF l_debug = FND_API.G_TRUE THEN
3821: QP_PREQ_GRP.engine_debug('back cal succ insert rec ');
3822: END IF; --l_debug
3823:
3824: l_adj_unit_price_tbl(i) := l_upd_adj_unit_price_tbl(i);
3829: --which is the line_quantity on lines_tmp
3830: -- Ravi bug# 2745337-divisor by zero
3831: IF (l_line_qty_tbl(i) <> 0
3832: OR l_back_calc_ret_rec.modifier_level_code = G_ORDER_LEVEL) THEN
3833: IF (l_debug = FND_API.G_TRUE) THEN
3834: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6');
3835: END IF; --l_debug
3836: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3837: p_priced_qty => l_priced_qty_tbl(i),
3847: x_ordqty_output2 => l_ord_qty_adj_amt,
3848: x_return_status => x_return_status,
3849: x_return_status_text => x_return_status_text);
3850: ELSE --l_line_qty_tbl(i)
3851: IF l_debug = FND_API.G_TRUE THEN
3852: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_line_qty_tbl(i));
3853: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
3854: END IF; --l_debug
3855: l_ord_qty_operand := 0;
3894: l_ldet_ord_qty_adj_amt(l_ldet_dtl_index.COUNT) :=
3895: l_ord_qty_adj_amt; --3057395
3896:
3897: ELSE --l_ret_status
3898: IF l_debug = FND_API.G_TRUE THEN
3899: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
3900: END IF; --l_debug
3901: l_pricing_sts_code_tbl(i) := l_return_status;
3902: l_pricing_sts_text_tbl(i) := l_return_status_text;
3907: --selling price needs to be replaced as the selling price
3908: l_adj_unit_price_tbl(i) := l_unit_price_tbl(i);
3909: END IF; --l_upd_adj_unit_price_tbl IS NOT NULL
3910:
3911: IF l_debug = FND_API.G_TRUE THEN
3912: QP_PREQ_GRP.engine_debug('end back calc for line '
3913: ||' unit price '|| l_unit_price_tbl(i)
3914: ||' adj_unit_price '|| l_adj_unit_price_tbl(i)
3915: ||' upd_adj_unit_price '|| l_upd_adj_unit_price_tbl(i));
3919: --changes to calculate the order_uom_selling_price
3920: IF (l_line_qty_tbl(i) <> 0
3921: OR l_back_calc_ret_rec.modifier_level_code =
3922: G_ORDER_LEVEL) THEN
3923: IF (l_debug = FND_API.G_TRUE) THEN
3924: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6.5');
3925: END IF; --l_debug
3926: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3927: p_priced_qty => l_priced_qty_tbl(i),
3935: x_ordqty_output2 => l_ord_uom_selling_price_tbl(i),
3936: x_return_status => x_return_status,
3937: x_return_status_text => x_return_status_text);
3938: ELSE --ordered_qty
3939: IF l_debug = FND_API.G_TRUE THEN
3940: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
3941: || l_line_qty_tbl(i));
3942: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
3943: ||'0 or modifier level code is not ORDER');
3970: END IF;
3971: END IF;
3972:
3973:
3974: IF l_debug = FND_API.G_TRUE THEN
3975: QP_PREQ_GRP.engine_debug('roundingfac to round sellingprice: '
3976: || l_rounding_factor_tbl(i));
3977: END IF; --l_debug
3978:
3986: l_unit_selling_price(i) := round(l_unit_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
3987: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
3988: END IF;
3989:
3990: IF l_debug = FND_API.G_TRUE THEN
3991: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3992: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3993: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3994: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
4013: l_ord_uom_selling_price_tbl(i) := round(l_ord_uom_selling_price_tbl(i), (-1 * l_rounding_factor_tbl(i)));
4014: END IF;--l_rounding_factor_tbl
4015: */
4016:
4017: IF l_debug = FND_API.G_TRUE THEN
4018: QP_PREQ_GRP.engine_debug('line_index '
4019: || l_line_index_tbl(i) ||' ord_uom_selling_price '
4020: || l_ord_uom_selling_price_tbl(i));
4021: END IF; --l_debug
4046:
4047: IF l_line_index_tbl.COUNT > 0
4048: THEN
4049:
4050: IF l_debug = FND_API.G_TRUE THEN
4051: QP_PREQ_GRP.engine_debug('unit price needs to be updated');
4052: END IF;
4053:
4054: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
4071: END IF;
4072:
4073: EXCEPTION
4074: WHEN OTHERS THEN
4075: x_return_status := FND_API.G_RET_STS_ERROR;
4076: x_return_status_text := l_routine ||' '|| SQLERRM;
4077: IF l_debug = FND_API.G_TRUE THEN
4078: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
4079: END IF;
4073: EXCEPTION
4074: WHEN OTHERS THEN
4075: x_return_status := FND_API.G_RET_STS_ERROR;
4076: x_return_status_text := l_routine ||' '|| SQLERRM;
4077: IF l_debug = FND_API.G_TRUE THEN
4078: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
4079: END IF;
4080: END UPDATE_UNIT_PRICE;
4081:
4088: x_return_status_text OUT NOCOPY VARCHAR2) IS
4089:
4090: BEGIN
4091: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4092: IF l_debug = FND_API.G_TRUE THEN
4093: QP_PREQ_GRP.engine_debug('Begin Update_Line_Status:calculate_flag '|| G_CALCULATE_FLAG);
4094:
4095: END IF;
4096:
4183: END IF;
4184:
4185: EXCEPTION
4186: WHEN OTHERS THEN
4187: x_return_status := FND_API.G_RET_STS_ERROR;
4188: x_return_status_text := 'Exception in QP_PREQ_PUB.Update_Line_Status: '|| SQLERRM;
4189: END Update_Line_Status;
4190:
4191: --overloaded for QP.G reqts
4434: l_line_ind_ind_lookup_tbl QP_PREQ_GRP.NUMBER_TYPE;
4435:
4436: BEGIN
4437: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4438: IF l_debug = FND_API.G_TRUE THEN
4439: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4440:
4441: QP_PREQ_GRP.engine_debug('Display related records ');
4442: END IF;
4439: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4440:
4441: QP_PREQ_GRP.engine_debug('Display related records ');
4442: END IF;
4443: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4444: THEN
4445: --fix for bug 2515762 to print in debug the rltd info
4446: FOR cl IN l_rltd_lines_cur
4447: LOOP
4444: THEN
4445: --fix for bug 2515762 to print in debug the rltd info
4446: FOR cl IN l_rltd_lines_cur
4447: LOOP
4448: IF l_debug = FND_API.G_TRUE THEN
4449: QP_PREQ_GRP.engine_debug('related records with status N '
4450: ||' line_dtl_index '|| cl.line_detail_index
4451: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
4452: ||' line_index '|| cl.line_index
4538: l_ntamt_adj_unit_price.DELETE; --3126019
4539:
4540: l_adj_tbl := p_adj_tbl;
4541:
4542: IF l_debug = FND_API.G_TRUE THEN
4543: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4544: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4545:
4546: END IF;
4543: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4544: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4545:
4546: END IF;
4547: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4548: THEN
4549: IF l_debug = FND_API.G_TRUE THEN
4550: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4551: END IF;
4545:
4546: END IF;
4547: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4548: THEN
4549: IF l_debug = FND_API.G_TRUE THEN
4550: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4551: END IF;
4552: FOR z IN 1..l_adj_tbl.COUNT
4553: LOOP
4550: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4551: END IF;
4552: FOR z IN 1..l_adj_tbl.COUNT
4553: LOOP
4554: IF l_debug = FND_API.G_TRUE THEN
4555: QP_PREQ_GRP.engine_debug('Processing Adjustments:
4556: line index '|| l_adj_tbl(z).line_ind ||' '||
4557: ' line dtl index '|| l_adj_tbl(z).line_detail_index ||
4558: ' pricing_status '|| l_adj_tbl(z).pricing_status_code ||
4567: END IF;
4568:
4569: -- back_calculate := false;
4570: -- line_change := true;
4571: -- l_prev_line_index := fnd_api.g_miss_num;
4572: i := l_ldet_line_dtl_index_tbl.COUNT;
4573: j := l_adj_tbl.COUNT;
4574: x := l_line_index_tbl.COUNT;
4575: --l_pbh_net_adj_amount := 0; -- 2892848 no need
4588: CLOSE l_net_amount_flag_cur;
4589: END IF;
4590: -- end 2892848
4591:
4592: IF l_debug = FND_API.G_TRUE THEN
4593: QP_PREQ_GRP.engine_debug('Processing Line: Line Index '
4594: || l_adj_tbl(j).line_ind ||
4595: ' list price: '|| l_adj_tbl(j).unit_price ||
4596: ' l_adj_tbl(j).updated_adjusted_unit_price: '|| l_adj_tbl(j).updated_adjusted_unit_price ||
4611: -- defaulting l_sub_total_price and l_adjusted_price
4612:
4613: -- 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
4614: IF (l_ntamt_adj_unit_price.EXISTS(l_adj_tbl(j).line_ind)) THEN
4615: IF l_debug = FND_API.G_TRUE THEN
4616: QP_PREQ_GRP.engine_debug('l_ntamt_adj_unit_price(cur_line_ind): '|| l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind));
4617: END IF; -- Added For Bug No - 4033618
4618: l_adjusted_price := nvl(l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind), l_adj_tbl(j).unit_price);
4619: ELSE
4623: IF (l_adjusted_price IS NULL) THEN -- SL_more
4624: 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
4625: END IF; -- end debug
4626:
4627: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4628: QP_PREQ_GRP.engine_debug('l_adjusted_price default: '|| l_adjusted_price);
4629: END IF; -- end debug
4630:
4631: IF (l_adj_tbl(j).pricing_group_sequence IS NULL OR
4649: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) :=
4650: l_adjusted_price *l_adj_tbl(j).line_priced_quantity;
4651: */
4652:
4653: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4654: QP_PREQ_GRP.engine_debug('l_prev_line_index: '|| l_prev_line_index);
4655: END IF; -- end debug
4656:
4657: -- same line
4686:
4687: -- [julin/4055310]
4688: l_prev_bucket_amt_tbl := l_bucket_amt_tbl;
4689:
4690: IF l_debug = FND_API.G_TRUE THEN
4691: QP_PREQ_GRP.engine_debug('same line, different bucket.'
4692: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4693: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4694: || l_adjusted_price || '*' ||
4695: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4696: END IF; -- end debug
4697:
4698: ELSE -- SL_more, same line same bucket, ELSE IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4699: IF l_debug = FND_API.G_TRUE THEN
4700: QP_PREQ_GRP.engine_debug('same line, same bucket.'
4701: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4702: END IF; -- end debug
4703: END IF; -- END IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4731: ELSE
4732: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4733: l_adjusted_price := l_sub_total_price;
4734: END IF;
4735: IF l_debug = FND_API.G_TRUE THEN
4736: QP_PREQ_GRP.engine_debug('different line, different bucket. '
4737: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4738: END IF; -- end debug
4739:
4738: END IF; -- end debug
4739:
4740: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4741: 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;
4742: IF l_debug = FND_API.G_TRUE THEN
4743: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
4744: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4745: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4746: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4748:
4749: -- bucket change, line change and not the 1st line
4750: ELSE -- l_prev_line_index <> -9999
4751:
4752: IF l_debug = FND_API.G_TRUE THEN
4753: 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 );
4754: END IF; -- END DEBUG
4755: IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index)) THEN
4756: -- moment to capture current USP for prev line_index,
4756: -- moment to capture current USP for prev line_index,
4757: -- so we have correct amts in l_bucket_amt_tbl when using it
4758: 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;
4759:
4760: IF l_debug = FND_API.G_TRUE THEN
4761: QP_PREQ_GRP.engine_debug('capture bucket amt of prev_line_index l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4762: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), l_adj_tbl(j).unit_price) || '*' ||
4763: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4764: END IF; -- end debug
4764: END IF; -- end debug
4765:
4766: ELSE -- ELSE IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index))
4767: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_adj_tbl(j).unit_price, 0) * l_prev_qty;
4768: IF l_debug = FND_API.G_TRUE THEN
4769:
4770: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
4771: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4772: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4787: l_adjusted_price := l_sub_total_price;
4788:
4789: END IF;
4790:
4791: IF l_debug = FND_API.G_TRUE THEN
4792: QP_PREQ_GRP.engine_debug('different line, same bucket');
4793: QP_PREQ_GRP.engine_debug('sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4794: END IF; -- end debug
4795:
4796: -- moment to capture current USP for prev line_index,
4797: -- so we have correct amts in l_bucket_amt_tbl when using it
4798: IF l_ntamt_adj_unit_price.EXISTS(l_prev_line_index) THEN
4799: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) * l_prev_qty;
4800: IF l_debug = FND_API.G_TRUE THEN
4801: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4802: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) || '*' ||
4803: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4804: END IF; -- end debug
4810:
4811: -- SL_more, default, 1st bucket for this line has no prev buckets no prev adjs
4812: IF l_1st_bucket = 'Y' THEN -- 1st bucket for this line, bucket at lease 1 up
4813: 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
4814: IF l_debug = FND_API.G_TRUE THEN
4815: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_adj_tbl(j).line_ind ||'): '
4816: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4817: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4818: END IF; -- end debug
4824: l_prev_qty := l_adj_tbl(j).line_priced_quantity;
4825: END IF; --l_prev_line_index = line_index
4826: END IF; -- end if bucket is null or 0
4827:
4828: IF l_debug = FND_API.G_TRUE THEN
4829:
4830: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4831: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4832: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4845: -- l_sub_total_price is bucketed unit price, l_adjusted_price is the current USP (diff data for diff line_index)
4846: ---Bucket calculations
4847: IF l_prev_line_index = l_adj_tbl(j).line_ind
4848: THEN
4849: IF l_debug = FND_API.G_TRUE THEN
4850: QP_PREQ_GRP.engine_debug('no line change'
4851: ||' prev_line_index '||l_prev_line_index
4852: ||' prev_bucket '||l_prev_bucket);
4853: END IF;
4853: END IF;
4854: line_change := false;
4855:
4856:
4857: IF l_debug = FND_API.G_TRUE THEN
4858: QP_PREQ_GRP.engine_debug('same line.');
4859: --||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4860: END IF;
4861: ELSE
4878: l_adjusted_price := l_adj_tbl(j).unit_price;
4879:
4880: END IF; -- end index exists
4881:
4882: IF l_debug = FND_API.G_TRUE THEN
4883: QP_PREQ_GRP.engine_debug('line change '
4884: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4885: END IF;
4886:
4891: -- MOVE TO HERE
4892: 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
4893: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
4894: IF l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence THEN
4895: IF l_debug = FND_API.G_TRUE THEN
4896: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to debug adj_amts or unit_adjs up to prev bucket.');
4897: END IF; -- END debug
4898:
4899: -- for LINE GROUP
4902: -- prev_lg_adj_amt is the sum of adj_amts for all lines up to prev buckets
4903:
4904: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
4905: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
4906: IF l_debug = FND_API.G_TRUE THEN
4907: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
4908: END IF; -- END debug
4909:
4910: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
4920: ELSE
4921: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4922: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4923:
4924: IF l_debug = FND_API.G_TRUE THEN
4925: 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) );
4926: END IF; -- END debug
4927: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4928:
4929: -- begin shu fix bug for special case, bucket change within same line index
4930: IF line_change = false THEN
4931: l_sub_total_price :=l_adj_unit_price_tbl(l_adj_tbl(j).line_ind);
4932:
4933: IF l_debug = FND_API.G_TRUE THEN
4934: QP_PREQ_GRP.engine_debug('bucket change within same line'
4935: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4936: END IF;
4937: END IF; -- END IF line_change = flase
4948: ELSE
4949: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4950: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4951:
4952: IF l_debug = FND_API.G_TRUE THEN
4953: 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) );
4954: END IF; -- END debug
4955: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4956: END IF; -- END IF line_change true
4959:
4960: ELSE -- bucket is 0 or null -- begin shu fix bug
4961: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4962: l_adjusted_price :=nvl (l_adj_unit_price_tbl(l_adj_tbl(j).line_ind),0);
4963: IF l_debug = FND_API.G_TRUE THEN
4964: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
4965: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4966: END IF;
4967: -- end shu fix bug
5032: -- priced_quantity is 4000, group_amount i.e. 20*100 + 10* 200
5033: -- group_amount is 40, group_amount_per_unit
5034: -- line_priced_quantity is 20, order qty for line 1
5035:
5036: IF l_debug = FND_API.G_TRUE THEN -- SHU
5037: QP_PREQ_GRP.engine_debug(
5038: 'figuring out qty level '|| l_adj_tbl(j).modifier_level_code
5039: ||' priced_quantity '|| l_adj_tbl(j).priced_quantity -- from ldets.line_quantity
5040: ||' group_quantity '|| l_adj_tbl(j).group_quantity
5046: IF l_adj_tbl(j).created_from_list_line_type = G_PRICE_BREAK_TYPE
5047: AND l_adj_tbl(j).pricing_status_code
5048: IN (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5049: THEN
5050: IF l_debug = FND_API.G_TRUE THEN
5051: QP_PREQ_GRP.engine_debug('Processing Price Break. call Price_Break_Calculation');
5052:
5053: END IF;
5054:
5097: l_total_value := l_adj_tbl(j).priced_quantity; --4000
5098: l_req_value_per_unit := l_adj_tbl(j).line_priced_quantity; --20
5099: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848 SL_latest move to here as default
5100: END IF;
5101: IF l_debug = FND_API.G_TRUE THEN
5102: QP_PREQ_GRP.engine_debug('l_qualifier_value default: '|| l_adj_tbl(j).priced_quantity);
5103: QP_PREQ_GRP.engine_debug('l_qualifier_value : '|| l_qualifier_value);
5104: END IF; -- end debug
5105: -- begin 2892848
5104: END IF; -- end debug
5105: -- begin 2892848
5106: -- net_amount line level (not group of line) modifier
5107: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5108: IF l_debug = FND_API.G_TRUE THEN
5109: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_adj_tbl(J).created_from_list_line_id);
5110: END IF; -- end debug
5111:
5112: /* SL_latest 2892848
5112: /* SL_latest 2892848
5113: IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5114: -- priced_quantity is line amount, line_priced_quantity is order qty
5115: 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;
5116: IF l_debug = FND_API.G_TRUE THEN
5117: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5118: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5119: 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) );
5120: END IF; -- end debug
5121: ELSE
5122: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5123: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j))
5124:
5125: IF l_debug = FND_API.G_TRUE THEN
5126: QP_PREQ_GRP.engine_debug('line level net amount: '||l_qualifier_value);
5127: END IF; -- end debug
5128: ELSE -- not net_amount modifier
5129: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5127: END IF; -- end debug
5128: ELSE -- not net_amount modifier
5129: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5130:
5131: IF l_debug = FND_API.G_TRUE THEN
5132: QP_PREQ_GRP.engine_debug('not net amount pbh qualifier value: '||l_qualifier_value);
5133: END IF; -- end debug
5134: */
5135: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5133: END IF; -- end debug
5134: */
5135: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5136: l_qualifier_value := l_bucket_amt_tbl(l_adj_tbl(j).line_ind);
5137: IF l_debug = FND_API.G_TRUE THEN
5138: QP_PREQ_GRP.engine_debug('line level net amount: '|| l_qualifier_value);
5139: END IF; -- end debug
5140: END IF; -- END IF l_bucket_amt_tbl.EXISTs
5141: END IF; -- END IF net_amount modifier
5142: -- end 2892848
5143:
5144: END IF; --G_pbhvolattr_attribute
5145:
5146: IF l_debug = FND_API.G_TRUE THEN
5147: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5148: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5149: ||' l_total_value '|| l_total_value ||' l_req_value_per_unit '
5150: || l_req_value_per_unit);
5174: --fetch adj from OM, group_amt is range_break_qty which
5175: --is the line_qty returned by the pricing engine and the
5176: --the group_amt passed back by engine is not stored by OM
5177: --so we need to do this for adj not searched by engine
5178: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5179: IF (l_adj_tbl(j).unit_price = 0) THEN
5180: l_req_value_per_unit := FND_API.G_NULL_NUM;
5181: ELSE
5182: l_req_value_per_unit := l_adj_tbl(j).group_amount / l_adj_tbl(j).unit_price;
5176: --the group_amt passed back by engine is not stored by OM
5177: --so we need to do this for adj not searched by engine
5178: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5179: IF (l_adj_tbl(j).unit_price = 0) THEN
5180: l_req_value_per_unit := FND_API.G_NULL_NUM;
5181: ELSE
5182: l_req_value_per_unit := l_adj_tbl(j).group_amount / l_adj_tbl(j).unit_price;
5183: END IF;
5184: END IF;
5186: -- begin 2892848
5187: -- IF net amount linegroup modifier
5188: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5189:
5190: IF l_debug = FND_API.G_TRUE THEN
5191: QP_PREQ_GRP.engine_debug('net amount linegroup modifier list_line_id: '|| l_adj_tbl(J).created_from_list_line_id);
5192: END IF; -- end debug
5193:
5194: -- begin SL_latest 2892848
5218: -- calculate the list price * qty for those lines.
5219: IF nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P' THEN
5220: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5221: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id);
5222: IF l_debug = FND_API.G_TRUE THEN
5223: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5224: END IF; --end debug
5225: ELSE -- need to calculate l_lg_net_amt
5226: IF l_debug = FND_API.G_TRUE THEN
5222: IF l_debug = FND_API.G_TRUE THEN
5223: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5224: END IF; --end debug
5225: ELSE -- need to calculate l_lg_net_amt
5226: IF l_debug = FND_API.G_TRUE THEN
5227: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
5228: END IF;
5229: -- calculate amount using product attribute net amount grouping
5230: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5229: -- calculate amount using product attribute net amount grouping
5230: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5231: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
5232: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
5233: IF l_debug = FND_API.G_TRUE THEN
5234: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
5235: END IF; --end debug
5236: ELSE
5237: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5235: END IF; --end debug
5236: ELSE
5237: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5238: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5239: IF l_debug = FND_API.G_TRUE THEN
5240: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
5241: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
5242: END IF;
5243: END IF;
5242: END IF;
5243: END IF;
5244: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5245:
5246: IF l_debug = FND_API.G_TRUE THEN
5247: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
5248: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
5249: END IF;
5250: END LOOP;
5254: END IF; -- end l_adj_tbl(j).net_amount_flag = 'P' -- [julin/3265308]
5255:
5256: IF (l_1st_bucket = 'Y') THEN
5257:
5258: IF l_debug = FND_API.G_TRUE THEN
5259: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
5260: END IF; -- end debug
5261: l_lg_net_amt := l_adj_tbl(j).priced_quantity;
5262:
5261: l_lg_net_amt := l_adj_tbl(j).priced_quantity;
5262:
5263: ELSE -- l_1st_bucket='N'
5264:
5265: IF l_debug = FND_API.G_TRUE THEN
5266: QP_PREQ_GRP.engine_debug(' - not first bucket');
5267: END IF; --Added For Bug No - 4033618
5268: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5269: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5266: QP_PREQ_GRP.engine_debug(' - not first bucket');
5267: END IF; --Added For Bug No - 4033618
5268: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5269: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5270: IF l_debug = FND_API.G_TRUE THEN
5271: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5272: END IF; --end debug
5273: ELSE -- need to calculate l_lg_net_amt
5274: IF l_debug = FND_API.G_TRUE THEN
5270: IF l_debug = FND_API.G_TRUE THEN
5271: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5272: END IF; --end debug
5273: ELSE -- need to calculate l_lg_net_amt
5274: IF l_debug = FND_API.G_TRUE THEN
5275: QP_PREQ_GRP.engine_debug('lg_net_amt for list line '|| l_adj_tbl(j).created_from_list_line_id ||' not cached');
5276: END IF;
5277: -- regular net amount processing
5278: l_adj_exists_in_tmp_tbl := 'N'; -- reset bug 3618464
5279: FOR t IN l_net_mod_index_cur(l_adj_tbl(j).created_from_list_line_id) LOOP
5280: l_adj_exists_in_tmp_tbl := 'Y'; -- bug 3618464
5281: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
5282: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
5283: IF l_debug = FND_API.G_TRUE THEN
5284: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
5285: END IF; --end debug
5286: ELSE
5287: l_line_bucket_amt := 0;
5287: l_line_bucket_amt := 0;
5288: END IF;
5289: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5290:
5291: IF l_debug = FND_API.G_TRUE THEN
5292: QP_PREQ_GRP.engine_debug('l_line_bucket_amt: ' || l_line_bucket_amt);
5293: QP_PREQ_GRP.engine_debug('up-tp-date l_lg_net_amt: ' || l_lg_net_amt); -- grp amt
5294: END IF; --end debug
5295: END LOOP; -- end l_net_mod_index_cur
5299: IF l_adj_exists_in_tmp_tbl = 'N' THEN
5300: IF G_LINE_INDEXES_FOR_LINE_ID.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5301: l_line_index_str := G_LINE_INDEXES_FOR_LINE_ID(l_adj_tbl(j).created_from_list_line_id);
5302: END IF;
5303: IF l_debug = FND_API.G_TRUE THEN
5304: QP_PREQ_GRP.engine_debug('l_line_index_str = ' || l_line_index_str);
5305: END IF;
5306: IF l_line_index_str IS NOT NULL THEN
5307: LOOP
5312: l_line_index_str := substr(l_line_index_str, l_instr_pos + 1);
5313:
5314: IF l_bucket_amt_tbl.EXISTS(l_index) THEN
5315: l_line_bucket_amt := nvl(l_bucket_amt_tbl(l_index), 0);
5316: IF l_debug = FND_API.G_TRUE THEN
5317: QP_PREQ_GRP.engine_debug('Net Amount Override PBH LINEGROUP ' || l_index || ':' || l_bucket_amt_tbl(l_index));
5318: END IF; --end debug
5319: ELSE
5320: l_line_bucket_amt := 0;
5320: l_line_bucket_amt := 0;
5321: END IF;
5322: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5323:
5324: IF l_debug = FND_API.G_TRUE THEN
5325: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_index ||'): '|| l_line_bucket_amt);
5326: END IF; --end debug
5327: END LOOP;
5328: END IF; --if l_line_index_str is not null
5333: END IF; --l_mod_lg_net_amt_tbl.EXIST
5334:
5335: END IF; -- END IF l_prev_bucket = -9999
5336:
5337: IF l_debug = FND_API.G_TRUE THEN
5338: QP_PREQ_GRP.engine_debug('final l_lg_net_amt: '|| l_lg_net_amt);
5339: END IF; --end debug
5340: -- end SL_latest
5341:
5341:
5342: -- [julin/4112395/4220399]
5343: IF (nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P') THEN
5344: l_qualifier_value := l_lg_prod_net_amt;
5345: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5346: IF (l_sub_total_price = 0) THEN
5347: l_req_value_per_unit := FND_API.G_NULL_NUM;
5348: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
5349: ELSE
5343: IF (nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P') THEN
5344: l_qualifier_value := l_lg_prod_net_amt;
5345: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5346: IF (l_sub_total_price = 0) THEN
5347: l_req_value_per_unit := FND_API.G_NULL_NUM;
5348: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
5349: ELSE
5350: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
5351: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
5344: l_qualifier_value := l_lg_prod_net_amt;
5345: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5346: IF (l_sub_total_price = 0) THEN
5347: l_req_value_per_unit := FND_API.G_NULL_NUM;
5348: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
5349: ELSE
5350: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
5351: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
5352: END IF;
5351: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
5352: END IF;
5353: ELSE
5354: l_qualifier_value := l_lg_net_amt;
5355: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5356: IF (l_sub_total_price = 0) THEN
5357: l_req_value_per_unit := FND_API.G_NULL_NUM;
5358: ELSE
5359: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
5353: ELSE
5354: l_qualifier_value := l_lg_net_amt;
5355: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5356: IF (l_sub_total_price = 0) THEN
5357: l_req_value_per_unit := FND_API.G_NULL_NUM;
5358: ELSE
5359: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
5360: END IF;
5361: END IF;
5359: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
5360: END IF;
5361: END IF;
5362:
5363: IF l_debug = FND_API.G_TRUE THEN
5364: QP_PREQ_GRP.engine_debug('group amount: ' || l_adj_tbl(j).priced_quantity); -- grp amt
5365: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
5366: END IF; --end debug
5367:
5371: -- end 2892848
5372:
5373: END IF; --G_pbhvolattr_attribute
5374:
5375: IF l_debug = FND_API.G_TRUE THEN
5376: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5377: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5378: ||' l_total_value '|| l_total_value --4000
5379: ||' l_req_value_per_unit '|| l_req_value_per_unit); --40
5429:
5430: l_return_adjustment := - 1 * nvl(l_return_adjustment, 0);
5431:
5432: -- 2892848
5433: IF l_debug = FND_API.G_TRUE THEN
5434: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
5435: END IF; --l_debug
5436: -- end 2892848
5437:
5438: END IF; --l_adj_tbl(j).price_flag
5439:
5440:
5441: ELSE --created_from_list_line_type not PBH, 2892848 change comment only
5442: IF l_debug = FND_API.G_TRUE THEN
5443: QP_PREQ_GRP.engine_debug('Processing DIS/SUR/FRT: '|| l_adj_tbl(j).created_from_list_line_id); -- 2892848, change debug msg
5444: END IF; -- end debug
5445:
5446: IF l_adj_tbl(j).created_from_list_line_type = G_DISCOUNT
5451: ELSE
5452: l_sign := 1;
5453: END IF; --l_adj_tbl(j).created_from_list_line_type=g_discount
5454:
5455: IF l_debug = FND_API.G_TRUE THEN
5456: QP_PREQ_GRP.engine_debug('this check '
5457: || l_adj_tbl(j).line_type_code ||' '
5458: || l_calc_quantity ||' '|| l_adj_tbl(j).operand_calculation_code);
5459:
5462: AND l_calc_quantity = 0
5463: AND l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT
5464: THEN
5465: l_calc_quantity := 1;
5466: IF l_debug = FND_API.G_TRUE THEN
5467: QP_PREQ_GRP.engine_debug('Order lvl qty '||
5468: l_calc_quantity);
5469: END IF;
5470: END IF;
5468: l_calc_quantity);
5469: END IF;
5470: END IF;
5471:
5472: IF l_debug = FND_API.G_TRUE THEN
5473: QP_PREQ_GRP.engine_debug('this sign '|| l_sign);
5474: END IF;
5475:
5476: IF l_adj_tbl(j).PRICING_STATUS_CODE IN
5479: /*
5480: IF l_adj_tbl(j).updated_flag = G_YES
5481: and nvl(l_adj_tbl(j).automatic_flag,G_NO) = G_NO
5482: and (l_adj_tbl(j).adjustment_amount IS NOT NULL
5483: and l_adj_tbl(j).adjustment_amount <> g_miss_num) --FND_API.G_MISS_NUM)
5484: THEN
5485: --to avoid rounding issues in rev calculations
5486: --for user-overridden adjustments
5487: IF l_debug = FND_API.G_TRUE THEN
5483: and l_adj_tbl(j).adjustment_amount <> g_miss_num) --FND_API.G_MISS_NUM)
5484: THEN
5485: --to avoid rounding issues in rev calculations
5486: --for user-overridden adjustments
5487: IF l_debug = FND_API.G_TRUE THEN
5488: qp_preq_grp.engine_debug(' adj amt manual adj '||
5489: l_adj_tbl(j).adjustment_amount);
5490: END IF;
5491: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5490: END IF;
5491: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5492: ELSE
5493: */--commented to avoid overriding errors
5494: IF l_debug = FND_API.G_TRUE THEN
5495: qp_preq_grp.engine_debug(' adj amt manual adj '||
5496: l_adj_tbl(j).adjustment_amount);
5497:
5498: END IF;
5506: (G_LDET_ORDER_TYPE, G_LDET_LINE_TYPE) -- 4534961/4492066
5507: THEN
5508: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5509: -- begin 12670913 smbalara
5510: IF l_debug = FND_API.G_TRUE THEN
5511: QP_PREQ_GRP.engine_debug('-- Debug for LUMPSUM, RETURN --');
5512: QP_PREQ_GRP.engine_debug('-- round(operand/qty, factor) => '||
5513: 'round('||l_adj_tbl(j).operand_value||'/'||
5514: l_adj_tbl(j).line_priced_quantity||', '||
5524: l_adj_tbl(j).operand_value/l_adj_tbl(j).line_priced_quantity,
5525: -1*l_adj_tbl(j).rounding_factor) * l_sign <>
5526: l_adj_tbl(j).adjustment_amount
5527: THEN
5528: IF l_debug = FND_API.G_TRUE THEN
5529: QP_PREQ_GRP.engine_debug('-- recalculating frtchg operand ='||
5530: 'qty*adj amt');
5531: END IF;
5532: --end 12670913 smbalara
5535: l_adj_tbl(j).adjustment_amount *
5536: l_sign;
5537: --begin 12670913 smbalara
5538: ELSE
5539: IF l_debug = FND_API.G_TRUE THEN
5540: QP_PREQ_GRP.engine_debug('-- keeping frtchg operand.');
5541: END IF;
5542: END IF;
5543: -- end 12670913 smbalara
5540: QP_PREQ_GRP.engine_debug('-- keeping frtchg operand.');
5541: END IF;
5542: END IF;
5543: -- end 12670913 smbalara
5544: IF l_debug = FND_API.G_TRUE THEN
5545: QP_PREQ_GRP.engine_debug('return line frtchg operand '
5546: || l_adj_tbl(j).operand_value ||' adj amt '
5547: || l_return_adjustment);
5548: END IF; --l_debug
5576: --fetch adj from OM, group_amt is range_break_qty which
5577: --is the line_qty returned by the pricing engine and the
5578: --the group_amt passed back by engine is not stored by OM
5579: --so we need to do this for adj not searched by engine
5580: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5581: IF (l_adj_tbl(j).unit_price = 0) THEN
5582: l_calc_quantity := FND_API.G_NULL_NUM;
5583: ELSE
5584: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5578: --the group_amt passed back by engine is not stored by OM
5579: --so we need to do this for adj not searched by engine
5580: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
5581: IF (l_adj_tbl(j).unit_price = 0) THEN
5582: l_calc_quantity := FND_API.G_NULL_NUM;
5583: ELSE
5584: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5585: END IF;
5586: END IF; --l_pricing_attribute
5583: ELSE
5584: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5585: END IF;
5586: END IF; --l_pricing_attribute
5587: IF l_debug = FND_API.G_TRUE THEN
5588: QP_PREQ_GRP.engine_debug('l_calc_qty for lumpsum '
5589: || l_calc_quantity);
5590: END IF; --l_debug
5591: END IF; --l_adj_tbl(j).operand_calculation_code
5600: , l_return_status
5601: , l_return_status_text);
5602: END IF; --l_adj_tbl(j).created_from_list_line_type = frt
5603:
5604: IF l_return_status = FND_API.G_RET_STS_ERROR
5605: THEN
5606: x_return_status := l_return_status;
5607: x_return_status_text := l_return_status_text;
5608: END IF;
5613: --This code is to avoid the order level adjustments being
5614: --returned with each line and to return only one order level
5615: --adjustment with the summary line
5616:
5617: IF (l_debug = FND_API.G_TRUE) THEN
5618: QP_PREQ_GRP.engine_debug('Is Ldet Rec : ' || l_adj_tbl(j).is_ldet_rec);
5619: END IF;
5620:
5621: IF ((l_adj_tbl(j).is_ldet_rec IN
5637: -- bug 12731184 end
5638:
5639: --need to store this for bug 2833753
5640: G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)) := i;
5641: IF (l_debug = FND_API.G_TRUE) THEN
5642: QP_PREQ_GRP.engine_debug('Adding line details : '
5643: || l_ldet_line_dtl_index_tbl(i) ||' plsqlind '
5644: || G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)));
5645: END IF;
5647: l_ldet_list_hdr_id_tbl(i) :=
5648: l_adj_tbl(j).created_from_list_header_id;
5649: l_ldet_list_line_id_tbl(i) :=
5650: l_adj_tbl(j).created_from_list_line_id;
5651: IF l_debug = FND_API.G_TRUE THEN
5652: QP_PREQ_GRP.engine_debug('adjusted amt 1 ');
5653: END IF;
5654: l_ldet_list_line_type_tbl(i) :=
5655: l_adj_tbl(j).created_from_list_line_type;
5652: QP_PREQ_GRP.engine_debug('adjusted amt 1 ');
5653: END IF;
5654: l_ldet_list_line_type_tbl(i) :=
5655: l_adj_tbl(j).created_from_list_line_type;
5656: IF l_debug = FND_API.G_TRUE THEN
5657: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5658: END IF;
5659: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5660: IF l_debug = FND_API.G_TRUE THEN
5656: IF l_debug = FND_API.G_TRUE THEN
5657: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5658: END IF;
5659: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5660: IF l_debug = FND_API.G_TRUE THEN
5661: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5662: END IF;
5663:
5664: -- begin 2892848
5661: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5662: END IF;
5663:
5664: -- begin 2892848
5665: IF l_debug = FND_API.G_TRUE THEN
5666: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_ldet_adj_amt_tbl('|| i ||'): '|| l_ldet_adj_amt_tbl(i)); -- 2892848
5667: END IF; --END IF l_debug
5668: /* SL_latest 2892848
5669: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
5669: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
5670: -- only for bucket modifiers, 0 is price list line, null is reg modifier
5671: IF l_adj_tbl(j).pricing_group_sequence IS NOT NULL AND l_adj_tbl(j).pricing_group_sequence <> 0 THEN
5672: 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
5673: IF l_debug = FND_API.G_TRUE THEN
5674: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5675: END IF; -- end debug
5676: 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) +
5677: nvl(l_ldet_adj_amt_tbl(i),0)* l_adj_tbl(j).line_priced_quantity;
5678:
5679: ELSE -- avoid no data found err
5680: 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;
5681: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5682: IF l_debug = FND_API.G_TRUE THEN
5683: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5684: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5685: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5686: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5687: END IF; -- END debug
5688:
5689: -- for LINE LEVEL
5690: IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5691: IF l_debug = FND_API.G_TRUE THEN
5692: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0));
5693: END IF; -- end debug
5694: 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);
5695: ELSE -- avoid no datat found err
5694: 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);
5695: ELSE -- avoid no datat found err
5696: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5697: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
5698: IF l_debug = FND_API.G_TRUE THEN
5699: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_adj_tbl(j).line_ind);
5700: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind));
5701: END IF; -- END debug
5702: END IF; -- END IF bucket is not null and 0
5705: */
5706: /* out 2892848
5707: --begin net_amount, 2720717
5708: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5709: IF l_debug = FND_API.G_TRUE THEN
5710: QP_PREQ_GRP.engine_debug('------ ');
5711: QP_PREQ_GRP.engine_debug('i: '||i);
5712: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5713: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5721: l_back_calc_adj_amt(l_adj_tbl(j).line_ind)
5722: := nvl(l_return_adjustment, 0);
5723: l_back_calc_plsql_tbl_index(l_adj_tbl(j).line_ind)
5724: := i;
5725: IF l_debug = FND_API.G_TRUE THEN
5726: QP_PREQ_GRP.engine_debug('Back calc line index '
5727: || l_back_calc_dtl_index(l_adj_tbl(j).line_ind)
5728: ||' adjamt '|| l_back_calc_adj_amt(l_adj_tbl(j).line_ind)
5729: ||' plsql ind '
5735: --selling_price,adjustment_amount and operand in ordered_qty
5736: --which is the line_quantity on lines_tmp
5737: -- Ravi bug# 2745337-divisor by zero
5738: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
5739: IF (l_debug = FND_API.G_TRUE) THEN
5740: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #1');
5741: END IF;
5742: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
5743: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
5753: x_ordqty_output2 => l_ldet_ordqty_adjamt_tbl(i),
5754: x_return_status => x_return_status,
5755: x_return_status_text => x_return_status_text);
5756: ELSE
5757: IF l_debug = FND_API.G_TRUE THEN
5758: QP_PREQ_GRP.engine_debug('Ordered Qty #1: ' || l_adj_tbl(j).ordered_qty);
5759: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
5760: END IF;
5761: l_ldet_ordqty_operand_tbl(i) := 0;
5761: l_ldet_ordqty_operand_tbl(i) := 0;
5762: l_ldet_ordqty_adjamt_tbl(i) := 0;
5763: END IF;
5764:
5765: IF l_debug = FND_API.G_TRUE THEN
5766: QP_PREQ_GRP.engine_debug('Printing ordqty_operand '
5767: || l_ldet_ordqty_operand_tbl(i) ||' ordqty_adjamt '
5768: || l_ldet_ordqty_adjamt_tbl(i));
5769: END IF; --l_debug
5781: round(l_ldet_ordqty_adjamt_tbl(i),
5782: ( - 1 * l_adj_tbl(j).rounding_factor));
5783: END IF;
5784:
5785: IF l_debug = FND_API.G_TRUE THEN
5786: QP_PREQ_GRP.engine_debug('rounded adj: '|| l_ldet_adj_amt_tbl(i) ||
5787: ' rounding fac '|| l_adj_tbl(j).rounding_factor ||
5788: ' ordqty_adjamt '|| l_ldet_ordqty_adjamt_tbl(i) ||
5789: ' '|| l_adj_tbl(j).curr_line_index ||' '|| l_adj_tbl(j).line_ind ||
5811: --to store gro/line qty in line qty based on mod level
5812: --l_ldet_line_quantity_tbl(i) := nvl(l_calc_quantity,1); -- 40,SHU, this is inconsistent with PL/SQL path
5813: 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
5814: l_ldet_is_max_frt_tbl(i) := G_NO;
5815: IF l_debug = FND_API.G_TRUE THEN
5816: QP_PREQ_GRP.engine_debug('adjusted amt 4 ');
5817:
5818: QP_PREQ_GRP.engine_debug('Returned adj : '|| i
5819: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
5820: ||' adj amt '|| l_ldet_adj_amt_tbl(i));
5821:
5822:
5823: END IF;
5824: IF l_return_status = FND_API.G_RET_STS_ERROR
5825: THEN
5826: IF l_debug = FND_API.G_TRUE THEN
5827: QP_PREQ_GRP.engine_debug('Calc Error');
5828: END IF;
5822:
5823: END IF;
5824: IF l_return_status = FND_API.G_RET_STS_ERROR
5825: THEN
5826: IF l_debug = FND_API.G_TRUE THEN
5827: QP_PREQ_GRP.engine_debug('Calc Error');
5828: END IF;
5829: l_ldet_pricing_sts_code_tbl(i) := G_STATUS_CALC_ERROR;
5830: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5829: l_ldet_pricing_sts_code_tbl(i) := G_STATUS_CALC_ERROR;
5830: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5831: l_ldet_applied_flag_tbl(i) := G_NO;
5832: ELSE
5833: IF l_debug = FND_API.G_TRUE THEN
5834: QP_PREQ_GRP.engine_debug('Calc Succ');
5835: END IF;
5836: l_ldet_pricing_sts_code_tbl(i) :=
5837: l_adj_tbl(j).pricing_status_code;
5859: END IF;
5860: */
5861: l_ldet_pricing_sts_txt_tbl(i) :=
5862: l_adj_tbl(j).pricing_status_text;
5863: END IF; --l_return_status = FND_API.G_RET_STS_ERROR
5864:
5865: IF l_adj_tbl(j).created_from_list_line_type = G_FREIGHT_CHARGE
5866: AND nvl(l_adj_tbl(j).automatic_flag, G_NO) = G_YES
5867: AND l_adj_tbl(j).pricing_status_code IN
5866: AND nvl(l_adj_tbl(j).automatic_flag, G_NO) = G_YES
5867: AND l_adj_tbl(j).pricing_status_code IN
5868: (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5869: THEN
5870: IF l_debug = FND_API.G_TRUE THEN
5871: QP_PREQ_GRP.engine_debug('looping thru FRT for list_line id '
5872: || l_adj_tbl(j).created_from_list_line_id ||' adj amt '
5873: || l_ldet_adj_amt_tbl(i) ||' upd '
5874: || l_adj_tbl(j).updated_flag
5880: IF l_frt_tbl.COUNT = 0
5881: THEN
5882: --no record for charge type subtype combn
5883: --so insert into l_frt_tbl
5884: IF l_debug = FND_API.G_TRUE THEN
5885: QP_PREQ_GRP.engine_debug('No frtcharge in tbl: insert rec');
5886: END IF;
5887: l_frt_tbl(1).line_index := l_adj_tbl(j).line_ind;
5888: l_frt_tbl(1).line_detail_index :=
5908: l_frt_tbl(1).LEVEL := G_ORDER_LEVEL;
5909: END IF;
5910: ELSIF l_frt_tbl.COUNT > 0
5911: THEN
5912: IF l_debug = FND_API.G_TRUE THEN
5913: QP_PREQ_GRP.engine_debug('frtchrg records exist');
5914:
5915: END IF;
5916: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5914:
5915: END IF;
5916: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5917: LOOP
5918: IF l_debug = FND_API.G_TRUE THEN
5919: QP_PREQ_GRP.engine_debug('existing frt record id '
5920: || l_frt_tbl(N).created_from_list_line_id
5921: ||' level '|| l_frt_tbl(N).LEVEL);
5922:
5930: OR (l_frt_tbl(N).LEVEL = G_LINE_LEVEL AND
5931: l_adj_tbl(j).modifier_level_code = G_LINE_GROUP))
5932: THEN
5933: --record exists for charge type subtype combn
5934: IF l_debug = FND_API.G_TRUE THEN
5935: QP_PREQ_GRP.engine_debug('charge combn match');
5936:
5937: END IF;
5938: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5936:
5937: END IF;
5938: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5939: THEN
5940: IF l_debug = FND_API.G_TRUE THEN
5941: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
5942: END IF;
5943: --only if user has not overridden
5944: --replace the record with the ct adj
5944: --replace the record with the ct adj
5945:
5946: IF nvl(l_adj_tbl(j).updated_flag, G_NO) = G_YES
5947: THEN
5948: IF l_debug = FND_API.G_TRUE THEN
5949: QP_PREQ_GRP.engine_debug('Repl overridden rec');
5950: END IF;
5951: --if ct adj is overridden
5952: l_frt_tbl(N).line_detail_index
5965: AND l_ldet_adj_amt_tbl(i)
5966: > l_frt_tbl(N).adjustment_amount
5967: THEN
5968: --if ct adj's adj amt is greater
5969: IF l_debug = FND_API.G_TRUE THEN
5970: QP_PREQ_GRP.engine_debug('replace high adjamt');
5971: END IF;
5972: l_frt_tbl(N).line_detail_index
5973: := l_adj_tbl(j).line_detail_index;
5987: EXIT;
5988: ELSE
5989: --no match for charge type subtype combn
5990: --so insert into l_frt_tbl
5991: IF l_debug = FND_API.G_TRUE THEN
5992: QP_PREQ_GRP.engine_debug('charge combn no match');
5993:
5994: END IF;
5995: IF N = l_frt_tbl.LAST
5995: IF N = l_frt_tbl.LAST
5996: THEN
5997: --this is the last record and the
5998: --charge type subtype combn not match
5999: IF l_debug = FND_API.G_TRUE THEN
6000: QP_PREQ_GRP.engine_debug('lastrec:insert new record');
6001: END IF;
6002: l_frt_tbl(N + 1).line_index :=
6003: l_adj_tbl(j).line_ind;
6042: G_ORDER_LEVEL
6043: AND l_adj_tbl(j).created_from_list_line_type
6044: <> G_FREIGHT_CHARGE
6045: THEN
6046: IF l_debug = FND_API.G_TRUE THEN
6047: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
6048: || l_adj_tbl(j).modifier_level_code ||' listlineid '
6049: || l_adj_tbl(j).created_from_list_line_id ||' adj '
6050: || l_return_adjustment ||'qty '
6051: || l_adj_tbl(j).line_priced_quantity);
6052: END IF;
6053: IF l_ord_dtl_index_tbl.COUNT = 0
6054: THEN
6055: IF l_debug = FND_API.G_TRUE THEN
6056: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
6057: END IF;
6058: l_ord_dtl_index_tbl(1) :=
6059: l_adj_tbl(j).line_detail_index;
6061: l_ord_adj_amt_tbl(1) :=
6062: nvl(l_return_adjustment, 0) *
6063: nvl(l_adj_tbl(j).line_priced_quantity, 0);
6064:
6065: IF l_debug = FND_API.G_TRUE THEN
6066: QP_PREQ_GRP.engine_debug('ord lvl1');
6067: QP_PREQ_GRP.engine_debug('ord lvl2'
6068: || l_adj_tbl(j).line_priced_quantity);
6069: QP_PREQ_GRP.engine_debug('ord lvl3'
6109:
6110: l_ord_qty_operand_tbl(1) := l_ord_qty_operand;
6111: l_ord_qty_adj_amt_tbl(1) := l_ord_qty_adj_amt;
6112:
6113: IF l_debug = FND_API.G_TRUE THEN
6114: QP_PREQ_GRP.engine_debug('ord lvl firstrec'
6115: ||' adjamt '|| l_ord_adj_amt_tbl(1)
6116: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(1)
6117: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(1));
6119: ELSE ---l_ord_dtl_index_tbl.COUNT
6120: FOR n IN
6121: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
6122: LOOP
6123: IF l_debug = FND_API.G_TRUE THEN
6124: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
6125: l_ord_dtl_index_tbl(n) ||' current rec index '
6126: || l_adj_tbl(j).line_detail_index
6127: ||' count '|| l_ord_dtl_index_tbl.COUNT
6131: END IF;
6132: IF l_ord_dtl_index_tbl(n) =
6133: l_adj_tbl(j).line_detail_index
6134: THEN
6135: IF l_debug = FND_API.G_TRUE THEN
6136: QP_PREQ_GRP.engine_debug('found match '
6137: ||' ct adjamt '|| l_ord_adj_amt_tbl(n));
6138: END IF;
6139: --fix for bug2424931 multiply by priced_qty
6168: l_ord_qty_adj_amt_tbl(n) :=
6169: l_ord_qty_adj_amt_tbl(n) + l_ord_qty_adj_amt;
6170: l_ord_qty_operand_tbl(n) := l_ord_qty_operand;
6171:
6172: IF l_debug = FND_API.G_TRUE THEN
6173: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
6174: l_ord_adj_amt_tbl(n)
6175: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6176: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(n));
6180: l_ord_dtl_index_tbl(l_ord_dtl_index_tbl.LAST)
6181: AND l_ord_dtl_index_tbl(n) <>
6182: l_adj_tbl(j).line_detail_index
6183: THEN
6184: IF l_debug = FND_API.G_TRUE THEN
6185: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
6186: l_adj_tbl(j).line_detail_index ||' adjamt '
6187: || l_return_adjustment
6188: ||' qty '|| l_adj_tbl(j).line_priced_quantity);
6222: := l_ord_qty_operand;
6223: l_ord_qty_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
6224: := l_ord_qty_adj_amt;
6225:
6226: IF l_debug = FND_API.G_TRUE THEN
6227: QP_PREQ_GRP.engine_debug('ord lvl lastadjamt '||
6228: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6229: END IF;
6230: END IF; -----l_ord_dtl_index_tbl(n)
6227: QP_PREQ_GRP.engine_debug('ord lvl lastadjamt '||
6228: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6229: END IF;
6230: END IF; -----l_ord_dtl_index_tbl(n)
6231: IF l_debug = FND_API.G_TRUE THEN
6232: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
6233: || l_ord_dtl_index_tbl(n) ||' adj amt '
6234: || l_ord_adj_amt_tbl(n)
6235: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6256: THEN
6257: l_return_adjustment := round (l_return_adjustment, - 1 * l_adj_tbl(j).rounding_factor);
6258: END IF; -- end rounding
6259: -- end 2892848_latest
6260: IF l_debug = FND_API.G_TRUE THEN
6261: QP_PREQ_GRP.engine_debug('prev USP: '|| l_adjusted_price);
6262: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6263: END IF;
6264:
6262: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6263: END IF;
6264:
6265: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6266: IF l_debug = FND_API.G_TRUE THEN
6267: QP_PREQ_GRP.engine_debug('adjusted price, i.e. current USP : '|| l_adjusted_price); -- 2892848, good place to debug current USP
6268: END IF;
6269: END IF; --created_from_list_line_type
6270:
6267: QP_PREQ_GRP.engine_debug('adjusted price, i.e. current USP : '|| l_adjusted_price); -- 2892848, good place to debug current USP
6268: END IF;
6269: END IF; --created_from_list_line_type
6270:
6271: IF l_debug = FND_API.G_TRUE THEN
6272:
6273: QP_PREQ_GRP.engine_debug('Processed lines: line index'
6274: || l_adj_tbl(j).line_ind ||' adjusted price '
6275: --||l_adj_tbl(j).updated_adjusted_unit_price -- 2892848
6283: /* out 2892848*/
6284:
6285: IF line_change = TRUE
6286: THEN
6287: IF l_debug = FND_API.G_TRUE THEN
6288: QP_PREQ_GRP.engine_debug('line change ');
6289: END IF;
6290:
6291: --[julin/5025231]
6301:
6302:
6303: --x:=l_adj_tbl(j).line_ind; -- 2892848, 3126019
6304:
6305: IF l_debug = FND_API.G_TRUE THEN
6306: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6307: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6308: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6309:
6329: -- End Ravi
6330:
6331: -- Ravi bug# 2745337-divisor by zero
6332: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
6333: IF (l_debug = FND_API.G_TRUE) THEN
6334: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #2');
6335: END IF;
6336: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
6337: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
6345: x_ordqty_output2 => l_ordqty_selling_price_tbl(x),
6346: x_return_status => x_return_status,
6347: x_return_status_text => x_return_status_text);
6348: ELSE
6349: IF l_debug = FND_API.G_TRUE THEN
6350: QP_PREQ_GRP.engine_debug('Ordered Qty #2 : ' || l_adj_tbl(j).ordered_qty);
6351: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is 0 or modifier level code is not ORDER');
6352: END IF;
6353: l_ordqty_unit_price_tbl(x) := 0;
6353: l_ordqty_unit_price_tbl(x) := 0;
6354: l_ordqty_selling_price_tbl(x) := 0;
6355: END IF;
6356:
6357: IF l_debug = FND_API.G_TRUE THEN
6358: QP_PREQ_GRP.engine_debug('Printing ordqty_selling_price '
6359: || l_ordqty_selling_price_tbl(x) ||' unit_price '
6360: || l_ordqty_unit_price_tbl(x));
6361: END IF; --l_debug
6387: -- this is not the final USP since now we order by bucket
6388:
6389: and l_rounding_factor_tbl(x) IS NOT NULL
6390: THEN
6391: IF l_debug = FND_API.G_TRUE THEN
6392: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6393: ||l_rounding_factor_tbl(x));
6394: END IF;
6395: l_adj_unit_price_tbl(x) :=
6407: --fix for bug 2831270
6408: G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))) :=
6409: l_adj_unit_price_tbl(x);
6410:
6411: IF l_debug = FND_API.G_TRUE THEN
6412: QP_PREQ_GRP.engine_debug('oldfgline line ind '
6413: || l_line_index_tbl(x) ||' adjprice '
6414: || G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))));
6415: END IF; --l_debug
6414: || G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))));
6415: END IF; --l_debug
6416: END IF; --G_PRG_UNCH_LINE_IND_TBL
6417:
6418: IF l_debug = FND_API.G_TRUE THEN
6419: QP_PREQ_GRP.engine_debug('price in line_tbl'
6420: ||' table index '|| x
6421: ||' line index '|| l_line_index_tbl(x)
6422: ||' adjusted price '|| l_adj_unit_price_tbl(x)
6430: || i ||' x '|| x);
6431: END IF;
6432: J := l_adj_tbl.NEXT(j);
6433: END LOOP;
6434: IF l_debug = FND_API.G_TRUE THEN
6435: QP_PREQ_GRP.engine_debug('----------------------------------');
6436:
6437: END IF;
6438: IF l_frt_tbl.COUNT > 0
6440: THEN
6441: x := l_ldet_line_dtl_index_tbl.FIRST;
6442: WHILE x IS NOT NULL
6443: LOOP
6444: IF l_debug = FND_API.G_TRUE THEN
6445: QP_PREQ_GRP.engine_debug('frt charge processing listlineid1 ');
6446: QP_PREQ_GRP.engine_debug('frt charge processing listlineid '
6447: || l_ldet_line_dtl_index_tbl(x) ||' type '
6448: || l_ldet_list_line_type_tbl(x) ||' is max frt ');
6449: END IF;
6450: -- ||l_ldet_is_max_frt_tbl(x));
6451:
6452: --fix for bug2424931 update order lvl adj amt
6453: IF (l_debug = FND_API.G_TRUE) THEN
6454: QP_PREQ_GRP.engine_debug('Modifier Level : ' || l_ldet_modifier_level_tbl(x));
6455: END IF;
6456:
6457: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6455: END IF;
6456:
6457: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6458: THEN
6459: IF l_debug = FND_API.G_TRUE THEN
6460: QP_PREQ_GRP.engine_debug('update ord lvl adj amt '
6461: ||'looping thru dtlind '|| l_ldet_line_dtl_index_tbl(x));
6462: END IF;
6463: i := l_ord_dtl_index_tbl.FIRST;
6465: LOOP
6466: IF l_ord_dtl_index_tbl(i) =
6467: l_ldet_line_dtl_index_tbl(x)
6468: THEN
6469: IF l_debug = FND_API.G_TRUE THEN
6470: QP_PREQ_GRP.engine_debug('update ord lvl '
6471: ||' line_dtl_index '|| l_ord_dtl_index_tbl(i)
6472: ||'adj amt '|| l_ord_adj_amt_tbl(i));
6473: END IF;
6485: END IF; --l_ldet_modifier_level_tbl
6486:
6487: IF l_ldet_list_line_type_tbl(x) = G_FREIGHT_CHARGE
6488: THEN
6489: IF l_debug = FND_API.G_TRUE THEN
6490: QP_PREQ_GRP.engine_debug('frt charge processing listlineid2 ');
6491: END IF;
6492: y := l_frt_tbl.FIRST;
6493: WHILE y IS NOT NULL
6491: END IF;
6492: y := l_frt_tbl.FIRST;
6493: WHILE y IS NOT NULL
6494: LOOP
6495: IF l_debug = FND_API.G_TRUE THEN
6496: QP_PREQ_GRP.engine_debug('frt charge processing listlineid3 ');
6497: QP_PREQ_GRP.engine_debug('l_ldet_line_index_tbl(x): '|| l_ldet_line_index_tbl(x));
6498: END IF;
6499: IF l_frt_tbl(y).line_detail_index =
6500: l_ldet_line_dtl_index_tbl(x)
6501: AND l_ldet_line_index_tbl(x) = -- 2892848 fix bug,
6502: l_frt_tbl(y).line_index -- 2892848 fix bug
6503: THEN
6504: IF l_debug = FND_API.G_TRUE THEN
6505: QP_PREQ_GRP.engine_debug('frt charge processing listlineid4 ');
6506: END IF;
6507: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6508: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6506: END IF;
6507: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6508: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6509: l_frt_tbl.DELETE(y);
6510: IF l_debug = FND_API.G_TRUE THEN
6511: QP_PREQ_GRP.engine_debug('frt charge retaind '
6512: || l_ldet_list_line_id_tbl(x) ||' '
6513: || l_ldet_pricing_sts_code_tbl(x));
6514: END IF;
6517: END LOOP; --frt_tbl
6518: END IF; --frt_charge
6519: x := l_ldet_line_dtl_index_tbl.NEXT(x);
6520: END LOOP; --ldet_line_dtl_index_tbl
6521: IF l_debug = FND_API.G_TRUE THEN
6522: QP_PREQ_GRP.engine_debug('----------------------------------');
6523: END IF;
6524: END IF; --frt_tbl.count
6525:
6522: QP_PREQ_GRP.engine_debug('----------------------------------');
6523: END IF;
6524: END IF; --frt_tbl.count
6525:
6526: IF l_debug = FND_API.G_TRUE THEN
6527: QP_PREQ_GRP.engine_debug('----------------------------------');
6528:
6529: END IF;
6530: --**************************************************************
6531: --BACK CALCULATION ROUTINE
6532: --**************************************************************
6533: --xxxxxxxxxxxxxx
6534:
6535: IF l_debug = FND_API.G_TRUE THEN
6536: QP_PREQ_GRP.engine_debug('back calculation for line ');
6537: END IF;
6538: IF l_line_index_tbl.COUNT > 0
6539: THEN
6536: QP_PREQ_GRP.engine_debug('back calculation for line ');
6537: END IF;
6538: IF l_line_index_tbl.COUNT > 0
6539: THEN
6540: IF l_debug = FND_API.G_TRUE THEN
6541: QP_PREQ_GRP.engine_debug('back calculation1 for line ');
6542: END IF;
6543: i := l_line_index_tbl.FIRST;
6544: WHILE i IS NOT NULL
6542: END IF;
6543: i := l_line_index_tbl.FIRST;
6544: WHILE i IS NOT NULL
6545: LOOP
6546: IF l_debug = FND_API.G_TRUE THEN
6547: QP_PREQ_GRP.engine_debug('back calculation2 for line '
6548: || l_amount_changed_tbl(i));
6549: END IF; --l_debug
6550:
6556: l_back_calc_adj_amount := 0;
6557: l_back_calc_dtl_ind := 0;
6558: l_back_calc_plsql_index := 0;
6559: END IF;
6560: IF l_debug = FND_API.G_TRUE THEN
6561: QP_PREQ_GRP.engine_debug('prev back calculation rec '
6562: || l_back_calc_dtl_ind
6563: ||' plsql '|| l_back_calc_plsql_index
6564: ||' adj amt '|| l_back_calc_adj_amount);
6571: IF l_upd_adj_unit_price_tbl(i) IS NOT NULL
6572: AND ((l_upd_adj_unit_price_tbl(i) -
6573: l_adj_unit_price_tbl(i)) <> 0)
6574: THEN
6575: IF l_debug = FND_API.G_TRUE THEN
6576: QP_PREQ_GRP.engine_debug('back calculation for line '
6577: || l_line_index_tbl(i));
6578:
6579: END IF;
6606: (l_upd_adj_unit_price_tbl(i) +
6607: l_back_calc_adj_amount)
6608: - l_adj_unit_price_tbl(i);
6609:
6610: IF l_debug = FND_API.G_TRUE THEN
6611: QP_PREQ_GRP.engine_debug('amt changed '
6612: || l_amount_changed_tbl(i));
6613: END IF; --l_debug
6614:
6623: , l_back_calc_ret_rec
6624: , l_return_status
6625: , l_return_status_text);
6626:
6627: IF l_return_status = FND_API.G_RET_STS_SUCCESS
6628: THEN
6629:
6630: --need to do this check for bug 2833753
6631: IF G_ldet_plsql_index_tbl.EXISTS(l_back_calc_ret_rec.line_detail_index) THEN
6634: ELSE
6635: l_tbl_index := l_ldet_line_dtl_index_tbl.COUNT + 1;
6636: END IF; --G_ldet_plsql_index_tbl
6637:
6638: IF l_debug = FND_API.G_TRUE THEN
6639: QP_PREQ_GRP.engine_debug('back cal succ insert rec '
6640: || l_tbl_index);
6641: END IF;
6642: l_ldet_line_dtl_index_tbl(l_tbl_index) :=
6721: --changes to calculate the order_uom_selling_price
6722: IF (l_ordered_qty_tbl(i) <> 0
6723: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6724: G_ORDER_LEVEL) THEN
6725: IF (l_debug = FND_API.G_TRUE) THEN
6726: QP_PREQ_GRP.engine_debug('Before Going into '
6727: ||'GET_ORDERQTY_VALUES #2.5');
6728: END IF; --l_debug
6729: GET_ORDERQTY_VALUES(p_ordered_qty =>
6739: x_ordqty_output2 => l_ordqty_selling_price_tbl(i),
6740: x_return_status => x_return_status,
6741: x_return_status_text => x_return_status_text);
6742: ELSE --ordered_qty
6743: IF l_debug = FND_API.G_TRUE THEN
6744: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
6745: || l_ordered_qty_tbl(i));
6746: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
6747: ||'0 or modifier level code is not ORDER');
6762: -- Ravi bug# 2745337-divisor by zero
6763: IF (l_ordered_qty_tbl(i) <> 0
6764: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6765: G_ORDER_LEVEL) THEN
6766: IF (l_debug = FND_API.G_TRUE) THEN
6767: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #3');
6768: END IF;
6769: GET_ORDERQTY_VALUES(p_ordered_qty => l_ordered_qty_tbl(i),
6770: p_priced_qty => l_line_priced_qty_tbl(i),
6780: x_ordqty_output2 => l_ldet_ordqty_adjamt_tbl(l_tbl_index),
6781: x_return_status => x_return_status,
6782: x_return_status_text => x_return_status_text);
6783: ELSE
6784: IF l_debug = FND_API.G_TRUE THEN
6785: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_ordered_qty_tbl(i));
6786: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
6787: END IF;
6788: l_ldet_ordqty_operand_tbl(l_tbl_index) := 0;
6809: 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
6810: --IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu fix 2239061
6811: AND l_rounding_factor_tbl(i) IS NOT NULL
6812: THEN
6813: IF l_debug = FND_API.G_TRUE THEN
6814: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6815: || l_rounding_factor_tbl(i));
6816: END IF;
6817: l_adj_unit_price_tbl(i) :=
6825: , - 1 * l_rounding_factor_tbl(i));
6826: END IF;
6827:
6828: ELSE --ret_status
6829: IF l_debug = FND_API.G_TRUE THEN
6830: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
6831: END IF;
6832: l_pricing_sts_code_tbl(i) := l_return_status;
6833: l_pricing_sts_txt_tbl(i) :=
6836: END IF;
6837: i := l_line_index_tbl.NEXT(i);
6838: END LOOP;
6839: END IF; --count > 0
6840: IF l_debug = FND_API.G_TRUE THEN
6841: QP_PREQ_GRP.engine_debug('end back calc for line ');
6842:
6843: END IF;
6844: ---------------------------------------------------------------------
6843: END IF;
6844: ---------------------------------------------------------------------
6845: --Debug Info
6846: ---------------------------------------------------------------------
6847: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6848: THEN
6849: IF l_debug = FND_API.G_TRUE THEN
6850: QP_PREQ_GRP.engine_debug('in debug --------------');
6851: END IF;
6845: --Debug Info
6846: ---------------------------------------------------------------------
6847: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6848: THEN
6849: IF l_debug = FND_API.G_TRUE THEN
6850: QP_PREQ_GRP.engine_debug('in debug --------------');
6851: END IF;
6852: j := l_line_index_tbl.FIRST;
6853: WHILE j IS NOT NULL
6867: ,-1*l_rounding_factor_tbl(j));
6868: END IF; -- end rounding 2892848
6869: */
6870:
6871: IF l_debug = FND_API.G_TRUE THEN
6872: QP_PREQ_GRP.engine_debug('(No final rounding) Line Info '|| j
6873: ||' line index '|| l_line_index_tbl(j)
6874: ||' unit price '|| l_unit_price_tbl(j)
6875: ||' final adjusted_unit_price '|| l_adj_unit_price_tbl(j)
6877: ||' pricing_status_text '|| l_pricing_sts_txt_tbl(j));
6878: END IF;
6879: -- ||' processed_flag '||l_processed_flag_tbl(j));
6880: -- ||' processed_code '||l_processed_code_tbl(j));
6881: IF l_debug = FND_API.G_TRUE THEN
6882: QP_PREQ_GRP.engine_debug('----------------------------------');
6883: END IF;
6884: i := l_ldet_line_dtl_index_tbl.FIRST;
6885: WHILE i IS NOT NULL
6885: WHILE i IS NOT NULL
6886: LOOP
6887: IF l_line_index_tbl(j) = l_ldet_line_index_tbl(i)
6888: THEN
6889: IF l_debug = FND_API.G_TRUE THEN
6890: QP_PREQ_GRP.engine_debug('Line detail Info '|| i
6891: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
6892: ||' list_line_id '|| l_ldet_list_line_id_tbl(i)
6893: ||' operand '|| l_ldet_operand_value_tbl(i)
6899: END IF;
6900: END IF;
6901: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6902: END LOOP;
6903: IF l_debug = FND_API.G_TRUE THEN
6904: QP_PREQ_GRP.engine_debug('----------------------------------');
6905: END IF;
6906: j := l_line_index_tbl.NEXT(j);
6907: END LOOP;
6904: QP_PREQ_GRP.engine_debug('----------------------------------');
6905: END IF;
6906: j := l_line_index_tbl.NEXT(j);
6907: END LOOP;
6908: IF l_debug = FND_API.G_TRUE THEN
6909: QP_PREQ_GRP.engine_debug('-------------------------------------------');
6910:
6911: END IF;
6912: END IF;
6910:
6911: END IF;
6912: END IF;
6913:
6914: IF l_debug = FND_API.G_TRUE THEN
6915: QP_PREQ_GRP.engine_debug('Updating the line details ------------------------');
6916:
6917: END IF;
6918: ---------------------------------------------------------------------
6919: --Update Adjustments
6920: ---------------------------------------------------------------------
6921: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6922: THEN
6923: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
6924: THEN
6925: i := l_ldet_line_dtl_index_tbl.FIRST;
6926: WHILE i IS NOT NULL
6927: LOOP
6924: THEN
6925: i := l_ldet_line_dtl_index_tbl.FIRST;
6926: WHILE i IS NOT NULL
6927: LOOP
6928: IF l_debug = FND_API.G_TRUE THEN
6929: QP_PREQ_GRP.engine_debug('line details: line index '
6930: || l_ldet_line_index_tbl(i) ||' detail index '
6931: || l_ldet_line_dtl_index_tbl(i) ||' operand '
6932: || l_ldet_operand_value_tbl(i) ||' adjamt '
6945: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6946: END LOOP;
6947: END IF;
6948:
6949: IF l_debug = FND_API.G_TRUE THEN
6950: QP_PREQ_GRP.engine_debug('line details: before update ');
6951: END IF;
6952: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6953: THEN
6968: -- AND line_index = l_ldet_line_index_tbl(i)
6969: AND pricing_status_code <> G_STATUS_DELETED --[julin/4671446]
6970: AND l_ldet_process_code_tbl(i) IN (G_STATUS_NEW,
6971: G_STATUS_DELETED);
6972: IF l_debug = FND_API.G_TRUE THEN
6973: QP_PREQ_GRP.engine_debug('line details: before insert ');
6974: END IF;
6975: END IF; --l_ldet_line_dtl_index_tbl.count > 0
6976:
7044: WHERE l_ldet_process_code_tbl(i) = G_STATUS_UPDATED;
7045: END IF;
7046:
7047: ---------------------------------------------------------------------
7048: IF l_debug = FND_API.G_TRUE THEN
7049: QP_PREQ_GRP.engine_debug('Updating the line info ------------------------');
7050: END IF;
7051: ---------------------------------------------------------------------
7052: --Update Order Lines
7056: IF l_line_index_tbl.COUNT > 0
7057: THEN
7058: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
7059: LOOP
7060: IF l_debug = FND_API.G_TRUE THEN
7061: QP_PREQ_GRP.engine_debug('line info '|| l_line_index_tbl(i)
7062: ||' unit price '|| l_unit_price_tbl(i)
7063: ||' adj unit price '|| l_adj_unit_price_tbl(i));
7064: END IF;
7097: l_unit_selling_price(i) := round(l_unit_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
7098: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
7099: END IF;
7100:
7101: IF l_debug = FND_API.G_TRUE THEN
7102: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7103: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7151:
7152: -- QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments('ONTVIEW',G_YES);
7153:
7154:
7155: --X_RETURN_STATUS:= FND_API.G_RET_STS_SUCCESS;
7156: --X_RETURN_STATUS_TEXT:= l_routine||' SUCCESS ';
7157:
7158: IF l_debug = FND_API.G_TRUE THEN
7159: QP_PREQ_GRP.engine_debug('end calculate price');
7154:
7155: --X_RETURN_STATUS:= FND_API.G_RET_STS_SUCCESS;
7156: --X_RETURN_STATUS_TEXT:= l_routine||' SUCCESS ';
7157:
7158: IF l_debug = FND_API.G_TRUE THEN
7159: QP_PREQ_GRP.engine_debug('end calculate price');
7160: END IF;
7161: EXCEPTION
7162: WHEN Calculate_exc THEN
7159: QP_PREQ_GRP.engine_debug('end calculate price');
7160: END IF;
7161: EXCEPTION
7162: WHEN Calculate_exc THEN
7163: IF l_debug = FND_API.G_TRUE THEN
7164: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7165: END IF;
7166: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7167: WHEN OTHERS THEN
7162: WHEN Calculate_exc THEN
7163: IF l_debug = FND_API.G_TRUE THEN
7164: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7165: END IF;
7166: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7167: WHEN OTHERS THEN
7168: IF l_debug = FND_API.G_TRUE THEN
7169: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7170: END IF;
7164: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7165: END IF;
7166: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7167: WHEN OTHERS THEN
7168: IF l_debug = FND_API.G_TRUE THEN
7169: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7170: END IF;
7171: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7172: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
7167: WHEN OTHERS THEN
7168: IF l_debug = FND_API.G_TRUE THEN
7169: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7170: END IF;
7171: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7172: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
7173:
7174: END CALCULATE_PRICE;
7175:
7353: WHERE list_line_id = p_list_line_id;
7354:
7355: l_bucket_price_rec l_bucket_price_cur%ROWTYPE;
7356: l_line_rec l_line_cur%ROWTYPE;
7357: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7358: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7359: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7360: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7361:
7354:
7355: l_bucket_price_rec l_bucket_price_cur%ROWTYPE;
7356: l_line_rec l_line_cur%ROWTYPE;
7357: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7358: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7359: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7360: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7361:
7362:
7355: l_bucket_price_rec l_bucket_price_cur%ROWTYPE;
7356: l_line_rec l_line_cur%ROWTYPE;
7357: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7358: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7359: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7360: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7361:
7362:
7363:
7356: l_line_rec l_line_cur%ROWTYPE;
7357: l_return_adjustment NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7358: l_sub_total_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7359: l_list_price NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7360: --l_adjusted_price NUMBER := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7361:
7362:
7363:
7364: TYPE LINES_TBL_TYPE IS TABLE OF l_line_rec%TYPE INDEX BY BINARY_INTEGER;
7370: l_back_calc_ret_rec back_calc_rec_type;
7371:
7372: BACK_CALCULATE BOOLEAN := TRUE;
7373:
7374: --l_prev_line_index NUMBER := g_miss_num;--FND_API.G_MISS_NUM;
7375: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7376: l_1st_bucket VARCHAR2(1) := 'N';
7377: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7378: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7373:
7374: --l_prev_line_index NUMBER := g_miss_num;--FND_API.G_MISS_NUM;
7375: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7376: l_1st_bucket VARCHAR2(1) := 'N';
7377: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7378: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7379: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7380: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7381: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7374: --l_prev_line_index NUMBER := g_miss_num;--FND_API.G_MISS_NUM;
7375: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7376: l_1st_bucket VARCHAR2(1) := 'N';
7377: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7378: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7379: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7380: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7381: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7382: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7375: l_prev_line_index NUMBER := - 9999; -- 2892848, SL_latest
7376: l_1st_bucket VARCHAR2(1) := 'N';
7377: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7378: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7379: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7380: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7381: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7382: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7383: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7376: l_1st_bucket VARCHAR2(1) := 'N';
7377: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7378: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7379: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7380: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7381: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7382: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7383: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7384: l_back_calc_dtl_index NUMBER := 0;
7377: l_prev_adj NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7378: l_sign NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7379: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7380: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7381: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7382: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7383: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7384: l_back_calc_dtl_index NUMBER := 0;
7385: l_back_calc_adj_amt NUMBER := 0;
7379: l_amount_changed NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7380: l_adjustment_amount NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7381: l_operand_value NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7382: l_BACK_CALCULATE_START_TYPE VARCHAR2(30) := G_BACK_CALCULATION_STS_NONE; -- 2892848
7383: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7384: l_back_calc_dtl_index NUMBER := 0;
7385: l_back_calc_adj_amt NUMBER := 0;
7386:
7387: l_ldet_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7384: l_back_calc_dtl_index NUMBER := 0;
7385: l_back_calc_adj_amt NUMBER := 0;
7386:
7387: l_ldet_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7388: l_line_index NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7389: l_calc_quantity NUMBER := 0;
7390:
7391: --added to calculate order level adjustments' adj amt
7392: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7501:
7502: BEGIN
7503:
7504: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7505: IF l_debug = FND_API.G_TRUE THEN
7506: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7507: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7508:
7509: END IF;
7534: --has been coded with an assumption that only one line is dealt
7535: --with in the l_bucket_price_cur below
7536: l_lines_tbl(l_line_rec.line_index) := l_line_rec; -- bug 3306349
7537:
7538: IF l_debug = FND_API.G_TRUE THEN
7539: QP_PREQ_GRP.ENGINE_DEBUG('Gather lines passed: Line_Index '|| l_line_rec.line_index ||
7540: ' list price '|| l_line_rec.unit_price ||
7541: ' adjusted unit price '|| l_line_rec.adjusted_unit_price ||
7542: ' updated adjusted unit price '|| l_line_rec.updated_adjusted_unit_price);
7559: BACK_CALCULATE := FALSE;
7560: --l_list_price := l_lines_tbl(j).unit_price; -- 2892848
7561: --l_sub_total_price := l_list_price; -- 2892848
7562: --l_adjusted_price := l_list_price; -- 2892848
7563: --l_prev_bucket := g_miss_num;--FND_API.G_MISS_NUM; -- 2892848
7564: l_amount_changed := 0;
7565: l_BACK_CALCULATE_START_TYPE := G_BACK_CALCULATION_STS_NONE;
7566: l_return_status := '';
7567: l_return_status_text := '';
7565: l_BACK_CALCULATE_START_TYPE := G_BACK_CALCULATION_STS_NONE;
7566: l_return_status := '';
7567: l_return_status_text := '';
7568:
7569: IF l_debug = FND_API.G_TRUE THEN
7570: /* 2892848
7571: QP_PREQ_GRP.ENGINE_DEBUG('************************ looping through request lines');
7572: QP_PREQ_GRP.ENGINE_DEBUG('Processing
7573: Line Index'||l_lines_tbl(j).line_index||
7604: END IF;
7605: l_return_adjustment := 0; -- diff other path ???
7606: -- end 2892848
7607:
7608: IF l_debug = FND_API.G_TRUE THEN
7609: QP_PREQ_GRP.ENGINE_DEBUG('------------------- looping through ldet lines');
7610: QP_PREQ_GRP.ENGINE_DEBUG('Processing Adjustments:
7611: line index '|| l_bucket_price_rec.line_ind ||
7612: ' list line id '|| l_bucket_price_rec.created_from_list_line_id ||
7679: IF (l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)) THEN
7680: 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);
7681: l_adjusted_price := l_sub_total_price;
7682: 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;
7683: IF l_debug = FND_API.G_TRUE THEN
7684: QP_PREQ_GRP.engine_debug('bucket change within same line.'
7685: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7686: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7687: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) || '*' ||
7717: ELSE
7718: l_sub_total_price := 0;
7719: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7720: l_adjusted_price := l_sub_total_price;
7721: IF l_debug = FND_API.G_TRUE THEN
7722: QP_PREQ_GRP.engine_debug('bucket change, line change. '
7723: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7724: END IF; -- end debug
7725:
7725:
7726: IF l_prev_line_index = - 9999 THEN
7727: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7728: 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;
7729: IF l_debug = FND_API.G_TRUE THEN
7730: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
7731: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7732: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7733: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7736:
7737: ELSE -- l_prev_line_index <> -9999
7738: IF (l_lines_tbl.EXISTS(l_prev_line_index)) THEN
7739: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7740: IF l_debug = FND_API.G_TRUE THEN
7741: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
7742: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7743: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7744: END IF; -- end debug
7756: l_sub_total_price := 0;
7757: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7758: l_adjusted_price := l_sub_total_price;
7759:
7760: IF l_debug = FND_API.G_TRUE THEN
7761: QP_PREQ_GRP.engine_debug('line change, same bucket');
7762: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
7763: END IF; -- end debug
7764:
7763: END IF; -- end debug
7764:
7765: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7766: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7767: IF l_debug = FND_API.G_TRUE THEN
7768: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
7769: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7770: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7771: END IF; -- end debug
7774: -- SL_more, to default and for line level net amt, in case no further line to set this
7775: IF l_1st_bucket = 'Y' THEN
7776: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7777: 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
7778: IF l_debug = FND_API.G_TRUE THEN
7779: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_bucket_price_rec.line_ind ||'): '
7780: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7781: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7782: END IF; -- end debug
7796: -- MOVE TO HERE
7797: 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
7798: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
7799: IF l_prev_bucket <> l_bucket_price_rec.pricing_group_sequence THEN
7800: IF l_debug = FND_API.G_TRUE THEN
7801: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to record bucket USP for each line_index');
7802: END IF; -- END debug
7803:
7804: -- for LINE GROUP
7807: -- prev_lg_adj_amt is the sum of adj_amts for all lines up to prev buckets
7808:
7809: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
7810: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
7811: IF l_debug = FND_API.G_TRUE THEN
7812: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
7813: END IF; -- END debug
7814:
7815: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
7825: ELSE
7826: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7827: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7828:
7829: IF l_debug = FND_API.G_TRUE THEN
7830: 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) );
7831: END IF; -- END debug
7832: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7833:
7834:
7835: -- begin shu fix bug for special case, bucket change within same line index
7836: IF line_change = false THEN
7837: l_sub_total_price := nvl(l_adjusted_price, l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7838: IF l_debug = FND_API.G_TRUE THEN
7839: QP_PREQ_GRP.engine_debug('bucket change within same line'
7840: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7841: END IF;
7842: END IF; -- END IF line_change = flase
7855: ELSE
7856: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7857: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7858:
7859: IF l_debug = FND_API.G_TRUE THEN
7860: 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) );
7861: END IF; -- END debug
7862: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7863: END IF; -- END IF line_change true
7866:
7867: ELSE -- bucket is 0 or null -- begin shu fix bug
7868: l_sub_total_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0);
7869: 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);
7870: IF l_debug = FND_API.G_TRUE THEN
7871: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
7872: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7873: END IF;
7874: -- end shu fix bug
7886: --for bug2897524 retain line_quantity for zerounitprice
7887: IF l_bucket_price_rec.priced_quantity = 0
7888: AND l_bucket_price_rec.unit_price <> 0
7889: THEN
7890: IF l_debug = FND_API.G_TRUE THEN
7891: QP_PREQ_GRP.engine_debug('line_qty zero changed to null');
7892: END IF;
7893: l_bucket_price_rec.priced_quantity := NULL;
7894: END IF;
7949:
7950: --fix for bug2424931
7951: l_calc_quantity := nvl(l_calc_quantity, 1);
7952:
7953: IF l_debug = FND_API.G_TRUE THEN
7954: QP_PREQ_GRP.engine_debug('figuring out qty level '
7955: || l_bucket_price_rec.modifier_level_code
7956: ||' pricedqty '|| l_bucket_price_rec.priced_quantity
7957: ||' grpqty '|| l_bucket_price_rec.group_quantity
8009:
8010: -- begin 2892848
8011: -- net_amount line level (not group of line) modifier
8012: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
8013: IF l_debug = FND_API.G_TRUE THEN
8014: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_bucket_price_rec.created_from_list_line_id);
8015: END IF; -- end debug
8016: /* SL_latest
8017: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8016: /* SL_latest
8017: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8018: l_qualifier_value:= l_bucket_price_rec.priced_quantity
8019: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
8020: IF l_debug = FND_API.G_TRUE THEN
8021: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
8022: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
8023: 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) );
8024: END IF; -- end debug
8027: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec)
8028: */
8029: IF l_bucket_amt_tbl.EXISTS(l_bucket_price_rec.line_ind)THEN
8030: l_qualifier_value := l_bucket_amt_tbl(l_bucket_price_rec.line_ind);
8031: IF l_debug = FND_API.G_TRUE THEN
8032: QP_PREQ_GRP.engine_debug('line level net amount, SL_latest ?: '|| l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
8033: END IF; -- end debug
8034: END IF; -- END IF l_bucket_amt_tbl.EXISTs
8035: END IF; -- END IF net_amount modifier
8047: -- begin 2892848
8048: -- IF net amount linegroup modifier
8049: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
8050:
8051: IF l_debug = FND_API.G_TRUE THEN
8052: QP_PREQ_GRP.engine_debug('net amount linegroup modifier id: '|| l_bucket_price_rec.created_from_list_line_id);
8053: END IF; -- end debug
8054:
8055: l_lg_net_amt := 0;
8076: -- calculate the list price * qty for those lines.
8077: IF nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P' THEN
8078: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8079: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8080: IF l_debug = FND_API.G_TRUE THEN
8081: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8082: END IF; --end debug
8083: ELSE -- need to calculate l_lg_net_amt
8084: IF l_debug = FND_API.G_TRUE THEN
8080: IF l_debug = FND_API.G_TRUE THEN
8081: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8082: END IF; --end debug
8083: ELSE -- need to calculate l_lg_net_amt
8084: IF l_debug = FND_API.G_TRUE THEN
8085: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
8086: END IF;
8087: -- calculate amount using product attribute net amount grouping
8088: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8087: -- calculate amount using product attribute net amount grouping
8088: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8089: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
8090: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
8091: IF l_debug = FND_API.G_TRUE THEN
8092: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
8093: END IF; --end debug
8094: ELSE
8095: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8093: END IF; --end debug
8094: ELSE
8095: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8096: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8097: IF l_debug = FND_API.G_TRUE THEN
8098: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
8099: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
8100: END IF;
8101: END IF;
8100: END IF;
8101: END IF;
8102: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8103:
8104: IF l_debug = FND_API.G_TRUE THEN
8105: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
8106: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
8107: END IF;
8108: END LOOP;
8112: END IF; -- end l_bucket_price_rec.net_amount_flag = 'P' -- [julin/3265308]
8113:
8114: IF l_1st_bucket = 'Y' THEN
8115:
8116: IF l_debug = FND_API.G_TRUE THEN
8117: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
8118: END IF; -- end debug
8119: l_lg_net_amt := l_bucket_price_rec.priced_quantity;
8120:
8119: l_lg_net_amt := l_bucket_price_rec.priced_quantity;
8120:
8121: ELSE -- l_1st_bucket <>'Y'
8122:
8123: IF l_debug = FND_API.G_TRUE THEN
8124: QP_PREQ_GRP.engine_debug(' - not first bucket');
8125: END IF;
8126: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8127: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8124: QP_PREQ_GRP.engine_debug(' - not first bucket');
8125: END IF;
8126: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8127: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8128: IF l_debug = FND_API.G_TRUE THEN
8129: 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);
8130: END IF; --end debug
8131:
8132: ELSE -- ELSE IF l_mod_lg_net_amt_tbl.EXISTS
8145:
8146: FOR t IN l_net_mod_index_cur(l_bucket_price_rec.created_from_list_line_id) LOOP
8147: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
8148: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
8149: IF l_debug = FND_API.G_TRUE THEN
8150: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
8151: END IF; --end debug
8152: ELSE
8153: l_line_bucket_amt := 0;
8153: l_line_bucket_amt := 0;
8154: END IF;
8155: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
8156:
8157: IF l_debug = FND_API.G_TRUE THEN
8158: QP_PREQ_GRP.engine_debug('net amount l_bucket_amt_tbl('|| t.line_index ||'): '|| l_line_bucket_amt);
8159: END IF; --end debug
8160:
8161: END LOOP; -- end l_net_mod_index_cur
8169:
8170: -- [julin/4112395/4220399]
8171: IF (nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P') THEN
8172: l_qualifier_value := l_lg_prod_net_amt;
8173: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8174: IF (l_sub_total_price = 0) THEN
8175: l_req_value_per_unit := FND_API.G_NULL_NUM;
8176: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
8177: ELSE
8171: IF (nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P') THEN
8172: l_qualifier_value := l_lg_prod_net_amt;
8173: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8174: IF (l_sub_total_price = 0) THEN
8175: l_req_value_per_unit := FND_API.G_NULL_NUM;
8176: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
8177: ELSE
8178: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
8179: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
8172: l_qualifier_value := l_lg_prod_net_amt;
8173: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8174: IF (l_sub_total_price = 0) THEN
8175: l_req_value_per_unit := FND_API.G_NULL_NUM;
8176: l_applied_req_value_per_unit := FND_API.G_NULL_NUM;
8177: ELSE
8178: l_req_value_per_unit := l_lg_prod_net_amt / l_sub_total_price; --bug 3404493
8179: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
8180: END IF;
8179: l_applied_req_value_per_unit := l_lg_net_amt / l_sub_total_price;
8180: END IF;
8181: ELSE
8182: l_qualifier_value := l_lg_net_amt;
8183: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8184: IF (l_sub_total_price = 0) THEN
8185: l_req_value_per_unit := FND_API.G_NULL_NUM;
8186: ELSE
8187: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
8181: ELSE
8182: l_qualifier_value := l_lg_net_amt;
8183: -- [julin/4571612/4671446] explicitly set FND_API.G_NULL_NUM means infinity
8184: IF (l_sub_total_price = 0) THEN
8185: l_req_value_per_unit := FND_API.G_NULL_NUM;
8186: ELSE
8187: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
8188: END IF;
8189: END IF;
8187: l_req_value_per_unit := l_lg_net_amt / l_sub_total_price; --bug 3404493
8188: END IF;
8189: END IF;
8190:
8191: IF l_debug = FND_API.G_TRUE THEN
8192: QP_PREQ_GRP.engine_debug('group amount: ' || l_bucket_price_rec.priced_quantity); -- grp amt
8193: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
8194:
8195: END IF; --end debug
8202:
8203: END IF; --l_pbh_pricing_attr
8204: END IF; --modifier level code
8205:
8206: IF l_debug = FND_API.G_TRUE THEN
8207: QP_PREQ_GRP.engine_debug('PBH break dtls attribute '
8208: || l_pbh_pricing_attr ||' l_total_value '|| l_total_value
8209: ||' l_req_value_per_unit '|| l_req_value_per_unit);
8210: END IF; --l_debug
8252: l_return_adjustment :=
8253: - 1 * nvl(l_return_adjustment, 0);
8254:
8255: -- 2892848
8256: IF l_debug = FND_API.G_TRUE THEN
8257: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
8258: END IF; --l_debug
8259: -- end 2892848
8260:
8263: IF l_bucket_price_rec.updated_flag = G_YES
8264: and nvl(l_bucket_price_rec.automatic_flag,G_NO) = G_NO
8265: and (l_bucket_price_rec.adjustment_amount IS NOT NULL
8266: and l_bucket_price_rec.adjustment_amount <>
8267: G_MISS_NUM) --FND_API.G_MISS_NUM)
8268: THEN
8269: --to avoid rounding issues in rev calculations
8270: --for user-overridden adjustments
8271: l_return_adjustment :=
8284: , l_return_status_text);
8285: -- END IF;
8286: END IF;
8287:
8288: IF l_return_status = FND_API.G_RET_STS_ERROR
8289: THEN
8290: x_return_status := l_return_status;
8291: x_return_status_text := l_return_status_text;
8292: RAISE Calculate_Exc;
8292: RAISE Calculate_Exc;
8293: END IF;
8294:
8295: -- 2892848
8296: IF l_debug = FND_API.G_TRUE THEN
8297: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_return_adjustment '|| l_return_adjustment); -- 2892848, will be rounded later, ok
8298: END IF; --END IF l_debug
8299: /* SL_latest
8300: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8299: /* SL_latest
8300: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8301: IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN
8302: 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
8303: IF l_debug = FND_API.G_TRUE THEN
8304: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8305: END IF; -- end debug
8306: 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) +
8307: nvl(l_return_adjustment,0)* l_bucket_price_rec.priced_qty;
8309: ELSE -- avoid no data found err
8310: l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence):= nvl(l_return_adjustment,0) * l_bucket_price_rec.priced_qty;
8311: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
8312:
8313: IF l_debug = FND_API.G_TRUE THEN
8314: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8315: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8316: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8317: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8318: END IF; -- END debug
8319:
8320: -- for LINE LEVEL
8321: IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8322: IF l_debug = FND_API.G_TRUE THEN
8323: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind), 0));
8324: END IF; -- end debug
8325: 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);
8326: ELSE -- avoid no datat found err
8326: ELSE -- avoid no datat found err
8327: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_return_adjustment, 0);
8328: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
8329:
8330: IF l_debug = FND_API.G_TRUE THEN
8331: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_bucket_price_rec.line_ind);
8332: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind));
8333: END IF; -- END debug
8334: END IF; -- END IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL
8344: round(l_return_adjustment,
8345: ( - 1 * l_bucket_price_rec.rounding_factor));
8346: END IF;
8347:
8348: IF l_debug = FND_API.G_TRUE THEN
8349: QP_PREQ_GRP.engine_debug('rounded adj: '||
8350: l_return_adjustment
8351: ||' roundingfac: '|| l_bucket_price_rec.rounding_factor);
8352:
8356:
8357: /* SL_latest 2892848
8358: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_bucket_price_rec.adjustment_amount; -- 2892848 SL_latest
8359:
8360: IF l_debug = FND_API.G_TRUE THEN
8361: QP_PREQ_GRP.engine_debug('adjustment_amount: '||l_bucket_price_rec.adjustment_amount);
8362: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
8363: END IF; -- END IF l_debug
8364: */
8368: G_ORDER_LEVEL
8369: AND l_bucket_price_rec.created_from_list_line_type
8370: <> G_FREIGHT_CHARGE
8371: THEN
8372: IF l_debug = FND_API.G_TRUE THEN
8373: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
8374: || l_bucket_price_rec.line_type ||' listlineid '
8375: || l_bucket_price_rec.created_from_list_line_id);
8376: END IF;
8375: || l_bucket_price_rec.created_from_list_line_id);
8376: END IF;
8377: IF l_ord_dtl_index_tbl.COUNT = 0
8378: THEN
8379: IF l_debug = FND_API.G_TRUE THEN
8380: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
8381: END IF;
8382: l_ord_dtl_index_tbl(1) :=
8383: l_bucket_price_rec.line_detail_index;
8384: --fix for bug2424931 multiply by priced_qty
8385: l_ord_adj_amt_tbl(1) :=
8386: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8387: nvl(l_bucket_price_rec.priced_qty, 0);
8388: IF l_debug = FND_API.G_TRUE THEN
8389: QP_PREQ_GRP.engine_debug('ordlvl firstrec adj '
8390: || l_ord_adj_amt_tbl(1));
8391: END IF;
8392: ELSE
8392: ELSE
8393: FOR n IN
8394: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
8395: LOOP
8396: IF l_debug = FND_API.G_TRUE THEN
8397: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
8398: l_ord_dtl_index_tbl(n) ||' current rec index '
8399: || l_bucket_price_rec.line_detail_index
8400: ||' count '|| l_ord_dtl_index_tbl.COUNT
8407: --fix for bug2424931 multiply by priced_qty
8408: l_ord_adj_amt_tbl(n) := l_ord_adj_amt_tbl(n) +
8409: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8410: nvl(l_bucket_price_rec.priced_qty, 0);
8411: IF l_debug = FND_API.G_TRUE THEN
8412: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8413: l_ord_adj_amt_tbl(n));
8414: END IF;
8415: EXIT; --exit the loop once matches
8417: l_ord_dtl_index_tbl(l_ord_dtl_index_tbl.LAST)
8418: AND l_ord_dtl_index_tbl(n) <>
8419: l_bucket_price_rec.line_detail_index
8420: THEN
8421: IF l_debug = FND_API.G_TRUE THEN
8422: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
8423: l_bucket_price_rec.line_detail_index ||' adjamt '
8424: || l_bucket_price_rec.adjustment_amount
8425: ||' qty '|| l_bucket_price_rec.priced_qty);
8429: --fix for bug2424931 multiply by priced_qty
8430: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
8431: := nvl(l_bucket_price_rec.adjustment_amount, 0) *
8432: nvl(l_bucket_price_rec.priced_qty, 0);
8433: IF l_debug = FND_API.G_TRUE THEN
8434: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8435: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8436: END IF;
8437: END IF;
8434: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8435: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8436: END IF;
8437: END IF;
8438: IF l_debug = FND_API.G_TRUE THEN
8439: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
8440: || l_ord_dtl_index_tbl(n) ||' adj amt '
8441: || l_ord_adj_amt_tbl(n));
8442: END IF;
8455: ELSE
8456: l_bucket_price_rec.applied_flag := G_NO;
8457: END IF;
8458:
8459: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8460:
8461: l_bucket_price_rec.process_code :=
8462: FND_API.G_RET_STS_ERROR;
8463: l_bucket_price_rec.pricing_status_text :=
8458:
8459: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8460:
8461: l_bucket_price_rec.process_code :=
8462: FND_API.G_RET_STS_ERROR;
8463: l_bucket_price_rec.pricing_status_text :=
8464: l_return_status_text;
8465: END IF;
8466:
8469: l_bucket_price_rec.priced_quantity :=
8470: l_bucket_price_rec.priced_quantity;
8471: l_ldet_tbl(i) := l_bucket_price_rec;
8472:
8473: IF l_debug = FND_API.G_TRUE THEN
8474: QP_PREQ_GRP.ENGINE_DEBUG('Passed to table:
8475: line index '|| l_ldet_tbl(i).line_ind ||
8476: ' list_line_id '|| l_ldet_tbl(i).created_from_list_line_id ||
8477: ' adjustment amount '|| l_ldet_tbl(i).adjustment_amount ||
8486: AND nvl(l_bucket_price_rec.accrual_flag, G_NO) = G_NO
8487: THEN
8488:
8489: l_adjusted_price := (l_adjusted_price + nvl(l_return_adjustment, 0));
8490: IF l_debug = FND_API.G_TRUE THEN
8491: QP_PREQ_GRP.ENGINE_DEBUG('Display price: price '
8492: --||l_list_price||' sub-t '||l_sub_total_price -- 2892848
8493: ||' adj price (USP) '|| l_adjusted_price
8494: ||' ret adj '|| l_return_adjustment);
8506: /*
8507: IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu, fix bug 2239061
8508: and l_lines_tbl(j).rounding_factor IS NOT NULL
8509: THEN
8510: IF l_debug = FND_API.G_TRUE THEN
8511: QP_PREQ_GRP.engine_debug('round current USP, rounding_factor: '
8512: ||l_lines_tbl(j).rounding_factor);
8513: END IF;
8514: l_lines_tbl(j).adjusted_unit_price :=
8516: -1*l_lines_tbl(j).rounding_factor);
8517: END IF; -- END IF G_ROUND_INDIVIDUAL_ADJ = G_ROUND_ADJ
8518: */
8519:
8520: IF l_debug = FND_API.G_TRUE THEN
8521: QP_PREQ_GRP.ENGINE_DEBUG('adjusted_price'
8522: || l_lines_tbl(j).adjusted_unit_price ||
8523: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
8524: ' list_line_id '|| l_bucket_price_rec.created_from_list_line_id);
8530: IF l_bucket_price_rec.created_from_list_line_type =
8531: G_FREIGHT_CHARGE
8532: AND nvl(l_bucket_price_rec.automatic_flag, G_NO) = G_YES
8533: THEN
8534: IF l_debug = FND_API.G_TRUE THEN
8535: QP_PREQ_GRP.engine_debug('frt chrge func '
8536: ||'looping thru freight charge for list_line id '
8537: || l_bucket_price_rec.created_from_list_line_id
8538: ||' adj amt '
8548: IF l_frt_charge_tbl.COUNT = 0
8549: THEN
8550: --no record for charge type subtype combn
8551: --so insert into l_frt_charge_tbl
8552: IF l_debug = FND_API.G_TRUE THEN
8553: QP_PREQ_GRP.engine_debug('No frt charge so far'
8554: ||' insert new frt record ');
8555: END IF;
8556: l_frt_charge_tbl(1).line_index :=
8579: l_frt_charge_tbl(1).LEVEL := G_ORDER_LEVEL;
8580: END IF;
8581: ELSIF l_frt_charge_tbl.COUNT > 0
8582: THEN
8583: IF l_debug = FND_API.G_TRUE THEN
8584: QP_PREQ_GRP.engine_debug('frtchrg records exist');
8585:
8586: END IF;
8587: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8585:
8586: END IF;
8587: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8588: LOOP
8589: IF l_debug = FND_API.G_TRUE THEN
8590: QP_PREQ_GRP.engine_debug('existing frt record id '
8591: || l_frt_charge_tbl(N).created_from_list_line_id);
8592: -- begin 2892848
8593: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8612: l_bucket_price_rec.modifier_level_code =
8613: G_LINE_GROUP))
8614: THEN
8615: --record exists for charge type subtype combn
8616: IF l_debug = FND_API.G_TRUE THEN
8617: QP_PREQ_GRP.engine_debug('charge combn match'
8618: || l_frt_charge_tbl(N).updated_flag);
8619: END IF;
8620: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8618: || l_frt_charge_tbl(N).updated_flag);
8619: END IF;
8620: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8621: THEN
8622: IF l_debug = FND_API.G_TRUE THEN
8623: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
8624: END IF;
8625: --only if user has not overridden
8626: --replace the record with the ct adj
8626: --replace the record with the ct adj
8627: IF nvl(l_bucket_price_rec.updated_flag, G_NO) =
8628: G_YES
8629: THEN
8630: IF l_debug = FND_API.G_TRUE THEN
8631: QP_PREQ_GRP.engine_debug('Repl overridden rec');
8632: END IF;
8633: --if ct adj is overridden
8634: l_frt_charge_tbl(N).line_detail_index
8646: AND l_bucket_price_rec.adjustment_amount
8647: > l_frt_charge_tbl(N).adjustment_amount
8648: THEN
8649: --if ct adj's adj amt is greater
8650: IF l_debug = FND_API.G_TRUE THEN
8651: QP_PREQ_GRP.engine_debug('replace high adjamt');
8652: END IF;
8653: l_frt_charge_tbl(N).line_detail_index
8654: := l_bucket_price_rec.line_detail_index;
8665: EXIT;
8666: ELSE
8667: --no match for charge type subtype combn
8668: --so insert into l_frt_charge_tbl
8669: IF l_debug = FND_API.G_TRUE THEN
8670: QP_PREQ_GRP.engine_debug('charge combn no match');
8671: END IF;
8672: IF N = l_frt_charge_tbl.LAST
8673: THEN
8672: IF N = l_frt_charge_tbl.LAST
8673: THEN
8674: --this is the last record and the
8675: --charge type subtype combn not match
8676: IF l_debug = FND_API.G_TRUE THEN
8677: QP_PREQ_GRP.engine_debug('hit last rec in tbl'
8678: ||' insert new record ');
8679: QP_PREQ_GRP.engine_debug('shu debug, l_bucket_price_rec.adjustment_amount: '-- shu, 2892848
8680: || l_bucket_price_rec.adjustment_amount); -- 2892848
8718:
8719: --Freight Charge Functionality update status of frt charge adj
8720: IF l_frt_charge_tbl.COUNT > 0
8721: THEN
8722: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
8723: THEN
8724: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8725: LOOP
8726: IF l_debug = FND_API.G_TRUE THEN
8722: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
8723: THEN
8724: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8725: LOOP
8726: IF l_debug = FND_API.G_TRUE THEN
8727: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8728: || l_frt_charge_tbl(s).line_index); -- 2892848
8729: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8730: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8735: END LOOP;
8736: END IF;
8737: FOR N IN l_ldet_tbl.FIRST..l_ldet_tbl.LAST
8738: LOOP
8739: IF l_debug = FND_API.G_TRUE THEN
8740: QP_PREQ_GRP.engine_debug('in frt charge loop (SL, l_ldet_tbl loop) '-- 2892848
8741: || l_ldet_tbl(N).created_from_list_line_id
8742: ||' '|| l_ldet_tbl(N).created_from_list_line_type
8743: ||' sts '|| l_ldet_tbl(N).pricing_status_code
8758: G_STATUS_NEW;
8759: l_ldet_tbl(N).pricing_status_text :=
8760: 'MAX FRT CHARGE';
8761: l_frt_charge_tbl.DELETE(M);
8762: IF l_debug = FND_API.G_TRUE THEN
8763: QP_PREQ_GRP.engine_debug('applied frt charge '
8764: || l_ldet_tbl(N).created_from_list_line_id);
8765: END IF;
8766: END IF;
8775:
8776: j := l_lines_tbl.FIRST;
8777: WHILE j IS NOT NULL LOOP -- end 2892848
8778:
8779: IF l_debug = FND_API.G_TRUE THEN
8780: QP_PREQ_GRP.ENGINE_DEBUG('Processed lines:
8781: line index'|| l_lines_tbl(j).line_index
8782: ||' updated adjusted price '
8783: || l_lines_tbl(j).updated_adjusted_unit_price
8785:
8786: END IF;
8787: x := l_ldet_tbl.FIRST;
8788: WHILE x IS NOT NULL LOOP
8789: IF l_debug = FND_API.G_TRUE THEN
8790: QP_PREQ_GRP.ENGINE_DEBUG('line_detail_index '
8791: || l_ldet_tbl(x).line_detail_index
8792: ||'up adj price1 '
8793: || l_ldet_tbl(x).created_from_list_line_id
8815: /*****************************************************************
8816: BACK CALCULATION ROUTINE
8817: ******************************************************************/
8818:
8819: IF l_debug = FND_API.G_TRUE THEN
8820: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE ');
8821:
8822: END IF;
8823: l_ldet_tbl.DELETE;
8827: --price there is no point to check for back_calculate at the beginning
8828: --as l_amount_changed will be zero whereas at this point
8829: --l_amount_changed will not be zero
8830:
8831: IF l_debug = FND_API.G_TRUE THEN
8832: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION check: upd adj price '
8833: || l_lines_tbl(j).updated_adjusted_unit_price
8834: ||' adj price '|| l_lines_tbl(j).adjusted_unit_price);
8835:
8855: - 1 * l_lines_tbl(j).rounding_factor);
8856: END IF;
8857:
8858: -- 2892848
8859: IF l_debug = FND_API.G_TRUE THEN
8860: QP_PREQ_GRP.ENGINE_DEBUG('AFTER ROUNDING, adjusted_unit_price:'
8861: || l_lines_tbl(j).adjusted_unit_price
8862: ||' updated_adjusted_unit_price: '|| l_lines_tbl(j).adjusted_unit_price);
8863:
8873: --Back calculation
8874: IF (l_lines_tbl(j).updated_adjusted_unit_price IS NULL
8875: OR l_amount_changed = 0) --no back cal if no amt change
8876: THEN
8877: IF l_debug = FND_API.G_TRUE THEN
8878: QP_PREQ_GRP.ENGINE_DEBUG('no back calculation');
8879: END IF;
8880: BACK_CALCULATE := FALSE;
8881: ELSE
8878: QP_PREQ_GRP.ENGINE_DEBUG('no back calculation');
8879: END IF;
8880: BACK_CALCULATE := FALSE;
8881: ELSE
8882: IF l_debug = FND_API.G_TRUE THEN
8883: QP_PREQ_GRP.ENGINE_DEBUG('back calculation set');
8884: END IF;
8885: BACK_CALCULATE := TRUE;
8886:
8892: l_back_calc_dtl_index :=
8893: nvl(l_back_calc_dtl_index, 0);
8894: l_back_calc_adj_amt :=
8895: nvl(l_back_calc_adj_amt, 0);
8896: IF l_debug = FND_API.G_TRUE THEN
8897: QP_PREQ_GRP.engine_debug('back cal dtl '||
8898: l_back_calc_dtl_index ||' adjamt '|| l_back_calc_adj_amt);
8899: END IF;
8900:
8907: --second time or thereafter
8908: l_amount_changed := l_amount_changed +
8909: l_back_calc_adj_amt;
8910:
8911: IF l_debug = FND_API.G_TRUE THEN
8912: QP_PREQ_GRP.engine_debug('back cal dtl '||
8913: ' amt changed '|| l_amount_changed);
8914:
8915: END IF;
8917: l_BACK_CALCULATE_START_TYPE := G_DISCOUNT;
8918: ELSIF l_amount_changed > 0 THEN
8919: l_BACK_CALCULATE_START_TYPE := G_SURCHARGE;
8920: END IF;
8921: IF l_debug = FND_API.G_TRUE THEN
8922: QP_PREQ_GRP.ENGINE_DEBUG('back calculation start type'
8923: || l_BACK_CALCULATE_START_TYPE
8924: ||' amount changed '|| l_amount_changed);
8925:
8926: END IF;
8927: l_return_status := '';
8928: l_return_status_text := '';
8929:
8930: IF l_debug = FND_API.G_TRUE THEN
8931: QP_PREQ_GRP.ENGINE_DEBUG('before back calculation '
8932: || l_lines_tbl(j).line_index
8933: ||' amt changed '|| l_amount_changed);
8934: END IF;
8941: , l_amount_changed
8942: , l_back_calc_ret_rec
8943: , l_return_status
8944: , l_return_status_text);
8945: IF l_debug = FND_API.G_TRUE THEN
8946: QP_PREQ_GRP.ENGINE_DEBUG('after back calculation ');
8947:
8948: END IF;
8949:
8954: --it must have been rounded already
8955: l_back_calc_ret_rec.adjustment_amount :=
8956: round(l_back_calc_ret_rec.adjustment_amount,
8957: - 1 * l_back_calc_ret_rec.rounding_factor);
8958: IF l_debug = FND_API.G_TRUE THEN
8959: QP_PREQ_GRP.ENGINE_DEBUG('back calc rounded '
8960: || l_back_calc_ret_rec.adjustment_amount
8961: ||' roundingfac '
8962: || l_back_calc_ret_rec.rounding_factor);
8969:
8970:
8971: IF BACK_CALCULATE
8972: THEN
8973: IF l_debug = FND_API.G_TRUE THEN
8974: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
8975: END IF;
8976: IF l_back_calc_ret_rec.calculation_code
8977: = G_BACK_CALCULATE
8976: IF l_back_calc_ret_rec.calculation_code
8977: = G_BACK_CALCULATE
8978: THEN
8979:
8980: IF l_debug = FND_API.G_TRUE THEN
8981: QP_PREQ_GRP.ENGINE_DEBUG('Back Calculate: '
8982: ||'before update ldets: line_detail_index '
8983: || l_back_calc_ret_rec.line_detail_index
8984: ||' list line id '
9034: l_back_calc_ret_rec.list_line_id;
9035: END IF;
9036: END IF; --back_calculate
9037:
9038: IF l_debug = FND_API.G_TRUE THEN
9039: QP_PREQ_GRP.engine_debug('return sts '|| l_return_status);
9040: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
9041: END IF;
9042: IF BACK_CALCULATE
9040: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
9041: END IF;
9042: IF BACK_CALCULATE
9043: THEN
9044: IF l_debug = FND_API.G_TRUE THEN
9045: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
9046:
9047: END IF;
9048: IF l_return_status = FND_API.G_RET_STS_SUCCESS
9044: IF l_debug = FND_API.G_TRUE THEN
9045: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
9046:
9047: END IF;
9048: IF l_return_status = FND_API.G_RET_STS_SUCCESS
9049: THEN
9050: IF l_debug = FND_API.G_TRUE THEN
9051: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Success');
9052: END IF;
9046:
9047: END IF;
9048: IF l_return_status = FND_API.G_RET_STS_SUCCESS
9049: THEN
9050: IF l_debug = FND_API.G_TRUE THEN
9051: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Success');
9052: END IF;
9053: l_lines_tbl(j).processed_flag := G_PROCESSED;
9054: --change for bug 2146050
9068: IF G_ROUND_INDIVIDUAL_ADJ not in ( G_NO_ROUND, G_POST_ROUND ) --[prarasto:Post Round] added check to
9069: --skip rounding for Post Round option
9070: AND l_lines_tbl(j).rounding_factor IS NOT NULL
9071: THEN
9072: IF l_debug = FND_API.G_TRUE THEN
9073: QP_PREQ_GRP.engine_debug('need to round selling price, rounding_factor: '
9074: || l_lines_tbl(j).rounding_factor);
9075: END IF;
9076: l_lines_tbl(j).adjusted_unit_price :=
9077: round(l_lines_tbl(j).adjusted_unit_price,
9078: - 1 * l_lines_tbl(j).rounding_factor);
9079: END IF;
9080: ELSE
9081: IF l_debug = FND_API.G_TRUE THEN
9082: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Failure');
9083: END IF;
9084: l_lines_tbl(j).processed_flag := G_NOT_PROCESSED;
9085: l_lines_tbl(j).processed_code :=
9088: QP_PREQ_PUB.G_BACK_CALCULATION_STS;
9089: l_lines_tbl(j).pricing_status_text := l_return_status_text;
9090: END IF; --l_return_status
9091: ELSE
9092: IF l_debug = FND_API.G_TRUE THEN
9093: QP_PREQ_GRP.ENGINE_DEBUG('NO Back calculate');
9094: END IF;
9095: l_lines_tbl(j).processed_flag := G_PROCESSED;
9096: END IF; --back_calculate
9114: , QUALIFIERS_EXIST_FLAG = G_CALCULATE_ONLY
9115: WHERE line_index = l_lines_tbl(j).line_index;
9116:
9117:
9118: IF l_debug = FND_API.G_TRUE THEN
9119: QP_PREQ_GRP.ENGINE_DEBUG('Processed Price:
9120: line index'|| l_lines_tbl(j).line_index ||
9121: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9122: 'processed_code' || l_lines_tbl(j).processed_code);
9137: , QUALIFIERS_EXIST_FLAG = G_CALCULATE_ONLY
9138: WHERE line_index = l_lines_tbl(j).line_index;
9139:
9140:
9141: IF l_debug = FND_API.G_TRUE THEN
9142: QP_PREQ_GRP.ENGINE_DEBUG('Failed Process price:
9143: line index '|| l_lines_tbl(j).line_index ||
9144: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9145: 'processed_code' || l_lines_tbl(j).processed_code);
9152:
9153:
9154:
9155: j := l_lines_tbl.NEXT(j);
9156: IF l_debug = FND_API.G_TRUE THEN
9157: QP_PREQ_GRP.ENGINE_DEBUG('-----------------------------------');
9158: END IF;
9159: END LOOP;
9160:
9160:
9161: --to update adj amt on order level adjustments
9162: IF l_ord_dtl_index_tbl.COUNT > 0
9163: THEN
9164: IF l_debug = FND_API.G_TRUE THEN
9165: QP_PREQ_GRP.engine_debug('updating order lvl adj amt: '||
9166: l_ord_dtl_index_tbl.COUNT);
9167: END IF;
9168: FORALL i IN l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
9178: -- Call GSA Check only for non-gsa customers(GSA_QUALIFIER_FLAG IS NULL)
9179: IF G_GSA_CHECK_FLAG = G_YES
9180: AND G_GSA_ENABLED_FLAG = G_YES
9181: THEN
9182: IF l_debug = FND_API.G_TRUE THEN
9183: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
9184:
9185: END IF;
9186: /*
9204: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_HEADERS_B_N1,LIST_HEADER_ID,5
9205: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_HEADERS_B_N1,GSA_INDICATOR,6
9206: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_LINES_PK,LIST_LINE_ID,1
9207: */
9208: IF l_debug = FND_API.G_TRUE THEN
9209: QP_PREQ_GRP.engine_debug('Pub GSA attr_mgr_installed '
9210: || G_ATTR_MGR_INSTALLED);
9211: END IF;
9212: IF G_ATTR_MGR_INSTALLED = G_NO
9318: , line.pricing_effective_date))
9319: AND trunc(nvl(ql.End_date_active
9320: , line.pricing_effective_date)));
9321: END IF;
9322: IF l_debug = FND_API.G_TRUE THEN
9323: QP_PREQ_GRP.engine_debug('End Pub GSA check');
9324: END IF;
9325: END IF;
9326:
9328:
9329: --GSA VIOLATION CHECK
9330:
9331:
9332: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9333: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9334:
9335: IF l_debug = FND_API.G_TRUE THEN
9336: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9331:
9332: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9333: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9334:
9335: IF l_debug = FND_API.G_TRUE THEN
9336: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9337: END IF;
9338: EXCEPTION
9339: WHEN Calculate_Exc THEN
9336: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9337: END IF;
9338: EXCEPTION
9339: WHEN Calculate_Exc THEN
9340: IF l_debug = FND_API.G_TRUE THEN
9341: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9342: END IF;
9343: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9344: WHEN OTHERS THEN
9339: WHEN Calculate_Exc THEN
9340: IF l_debug = FND_API.G_TRUE THEN
9341: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9342: END IF;
9343: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9344: WHEN OTHERS THEN
9345: IF l_debug = FND_API.G_TRUE THEN
9346: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9347: END IF;
9341: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9342: END IF;
9343: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9344: WHEN OTHERS THEN
9345: IF l_debug = FND_API.G_TRUE THEN
9346: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9347: END IF;
9348: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9349: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
9344: WHEN OTHERS THEN
9345: IF l_debug = FND_API.G_TRUE THEN
9346: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9347: END IF;
9348: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9349: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
9350: END CALCULATE_PRICE;
9351:
9352:
9365: FROM qp_npreq_rltd_lines_tmp rltd
9366: WHERE rltd.relationship_type_code = G_PBH_LINE;
9367: BEGIN
9368: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9369: IF l_debug = FND_API.G_TRUE
9370: THEN
9371: QP_PREQ_GRP.engine_debug('------------------------------');
9372: FOR cl IN l_dbg_cleanup_cur
9373: LOOP
9398: FROM qp_npreq_rltd_lines_tmp rltd
9399: WHERE rltd.relationship_type_code = G_PBH_LINE
9400: AND rltd.pricing_status_code = G_STATUS_DELETED);
9401:
9402: IF l_debug = FND_API.G_TRUE THEN
9403: QP_PREQ_GRP.engine_debug('------------------------------');
9404: FOR cl IN l_dbg_cleanup_cur
9405: LOOP
9406: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9411: END LOOP;
9412: END IF;
9413: EXCEPTION
9414: WHEN OTHERS THEN
9415: x_return_status := FND_API.G_RET_STS_ERROR;
9416: x_return_status_text := 'Exception in QP_PREQ_PUB.Cleanup_rltd_lines '|| SQLERRM;
9417: END Cleanup_rltd_lines;
9418:
9419:
9472: AND rltd.relationship_type_code = G_PBH_LINE;
9473:
9474: BEGIN
9475:
9476: IF l_debug = FND_API.G_TRUE THEN
9477: QP_PREQ_GRP.engine_debug('-------------------------------------');
9478: FOR cl IN l_dbg_rltd_cur
9479: LOOP
9480: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9538: AND ldet.created_from_list_line_type = G_PRICE_BREAK_TYPE)
9539: AND rltd.relationship_type_code = G_PBH_LINE
9540: AND rltd.pricing_status_code = G_STATUS_NEW;
9541:
9542: IF l_debug = FND_API.G_TRUE
9543: THEN
9544: QP_PREQ_GRP.engine_debug('-------------------------------------');
9545: FOR cl IN l_dbg_rltd_upd_cur
9546: LOOP
9558: END LOOP;
9559: END IF;
9560: EXCEPTION
9561: WHEN OTHERS THEN
9562: x_return_status := FND_API.G_RET_STS_ERROR;
9563: x_return_status_text := 'Exception in QP_PREQ_PUB.Update_Related_Line_Info '|| SQLERRM;
9564: END Update_Related_Line_Info;
9565:
9566:
9652: /*
9653: open lcur;LOOP
9654: fetch lcur into lrec;
9655: EXIT when lcur%NOTFOUND;
9656: IF l_debug = FND_API.G_TRUE THEN
9657: QP_PREQ_GRP.ENGINE_DEBUG(lrec.line_index||
9658: ' user passed list_line_id '||lrec.created_from_list_line_id||
9659: ' pricing_status_code '||lrec.pricing_status_code||
9660: ' applied_flag '||lrec.applied_flag||
9661: ' updated_flag '||lrec.updated_flag||
9662: ' operand '||lrec.operand_value);
9663: END IF;
9664: END LOOP;
9665: IF l_debug = FND_API.G_TRUE THEN
9666: QP_PREQ_GRP.ENGINE_DEBUG('--------------------------------------------------');
9667: END IF;
9668: CLOSE lcur;
9669: */
9673: --pricing engine in the temporary tables, compare the adjustments passes
9674: --by the calling application and mark the temporary table qp_npreq_ldets_tmp
9675: --field process_code with a value G_STATUS_NEW
9676: ----------------------------------------------------------------------------
9677: IF l_debug = FND_API.G_TRUE THEN
9678: QP_PREQ_GRP.ENGINE_DEBUG('START PROCESS ADJUSTMENTS '|| p_pricing_event);
9679:
9680: END IF;
9681: --Step 0: Update all user passed adjustments to process_code 'DELETED'
9707: AND ((nvl(Get_buy_line_price_flag(ldet.created_from_list_line_id, ldet.line_index), line.price_flag) = G_YES)
9708: OR ((nvl(Get_buy_line_price_flag(ldet.created_from_list_line_id, ldet.line_index), line.price_flag) = G_PHASE)
9709: AND (nvl(ph.user_freeze_override_flag, ph.freeze_override_flag) = G_YES))));
9710:
9711: IF l_debug = FND_API.G_TRUE THEN
9712: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1');
9713:
9714: END IF;
9715: --Second Step: Retain adjustments input by user
9731: -- (select rltd.related_line_detail_index
9732: -- from qp_npreq_rltd_lines_tmp rltd
9733: -- where rltd.relationship_type_code = G_PBH_LINE)));
9734:
9735: IF l_debug = FND_API.G_TRUE THEN
9736: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1.5');
9737: END IF;
9738: --summary line adjustments with price flag 'N' need to be considered for calc
9739: --reqt from contracts for performance
9742: (SELECT line.line_index FROM qp_npreq_lines_tmp line
9743: WHERE line.line_type_code = G_ORDER_LEVEL
9744: AND line.price_flag = G_NO);
9745:
9746: IF l_debug = FND_API.G_TRUE THEN
9747: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step2');
9748:
9749:
9750: END IF;
9762: /*
9763: open lcur1; LOOP
9764: fetch lcur1 into lrec1;
9765: EXIT when lcur1%NOTFOUND;
9766: IF l_debug = FND_API.G_TRUE THEN
9767: QP_PREQ_GRP.ENGINE_DEBUG('list_line_id'||lrec1.created_from_list_line_id);
9768: END IF;
9769: END LOOP;
9770: CLOSE lcur1;
9769: END LOOP;
9770: CLOSE lcur1;
9771: */
9772:
9773: IF l_debug = FND_API.G_TRUE THEN
9774: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step3');
9775:
9776: END IF;
9777: --Fourth Step : Among the lines with process_code = G_STATUS_NEW
9791: i := i + 1;
9792:
9793:
9794:
9795: IF l_debug = FND_API.G_TRUE THEN
9796: QP_PREQ_GRP.ENGINE_DEBUG('DUPLICATE REC:
9797: line index '|| l_duplicate_rec.line_index ||
9798: ' detail_index '|| l_duplicate_rec.line_detail_index ||
9799: 'list_line_id '|| l_duplicate_rec.created_from_list_line_id ||
9815: IF (l_duplicate_rec.pricing_status_code = G_STATUS_UNCHANGED AND
9816: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_YES)
9817: OR (nvl(l_duplicate_rec.applied_flag, G_NO) = G_YES))) THEN
9818: --retain adj passed by user
9819: IF l_debug = FND_API.G_TRUE THEN
9820: QP_PREQ_GRP.ENGINE_DEBUG('retain user passed');
9821: END IF;
9822: l_duplicate_rec.process_code := G_STATUS_NEW;
9823: l_duplicate_rec1.process_code := G_STATUS_UNCHANGED;
9827: ELSIF (l_duplicate_rec.pricing_status_code = G_STATUS_UNCHANGED AND
9828: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO) OR
9829: (nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO))) THEN
9830: --retain adj passed by user
9831: IF l_debug = FND_API.G_TRUE THEN
9832: QP_PREQ_GRP.ENGINE_DEBUG('retain engine passed');
9833: END IF;
9834: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9835: l_duplicate_rec.pricing_status_code := G_STATUS_DELETED;
9836: l_duplicate_rec1.pricing_status_text := 'QP_PREQ_PUB:DUPLICATE RECORD';
9837: l_duplicate_rec1.process_code := G_STATUS_NEW;
9838: ELSE
9839: --retain adj passed by engine
9840: IF l_debug = FND_API.G_TRUE THEN
9841: QP_PREQ_GRP.ENGINE_DEBUG('else retain engine');
9842:
9843: END IF;
9844: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9851: END IF;
9852:
9853: l_dup_adj_tbl(i) := l_duplicate_rec;
9854:
9855: IF l_debug = FND_API.G_TRUE THEN
9856: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9857: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9858: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9859: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9861: ' updated_flag '|| l_dup_adj_tbl(i).updated_flag);
9862: END IF;
9863: i := i + 1;
9864: l_dup_adj_tbl(i) := l_duplicate_rec1;
9865: IF l_debug = FND_API.G_TRUE THEN
9866: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9867: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9868: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9869: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9884: , pricing_status_code = l_dup_adj_tbl(i).pricing_status_code
9885: , pricing_status_text = l_dup_adj_tbl(i).pricing_status_text
9886: WHERE line_detail_index = l_dup_adj_tbl(i).line_detail_index;
9887:
9888: IF l_debug = FND_API.G_TRUE THEN
9889: QP_PREQ_GRP.ENGINE_DEBUG('Update processed adjustments:
9890: list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9891: ' pricing_status_code '|| l_dup_adj_tbl(i).pricing_status_code ||
9892: 'process_code '|| l_dup_adj_tbl(i).process_code);
9894: END IF;
9895: i := l_dup_adj_tbl.NEXT(i);
9896: END LOOP;
9897:
9898: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9899:
9900: OPEN lcur1; LOOP
9901: FETCH lcur1 INTO lrec1;
9902: EXIT WHEN lcur1%NOTFOUND;
9899:
9900: OPEN lcur1; LOOP
9901: FETCH lcur1 INTO lrec1;
9902: EXIT WHEN lcur1%NOTFOUND;
9903: IF l_debug = FND_API.G_TRUE THEN
9904: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9905: ' line_dtl_index '|| lrec1.line_detail_index ||
9906: ' line_qty '|| lrec1.line_quantity ||
9907: ' list_line_id '|| lrec1.created_from_list_line_id ||
9911: END LOOP;
9912: CLOSE lcur1;
9913: END IF;
9914: Cleanup_rltd_lines(x_return_status, x_return_status_text);
9915: IF l_debug = FND_API.G_TRUE THEN
9916: QP_PREQ_GRP.engine_debug('------------------------------------------');
9917:
9918: END IF;
9919: IF x_return_status = FND_API.G_RET_STS_ERROR
9915: IF l_debug = FND_API.G_TRUE THEN
9916: QP_PREQ_GRP.engine_debug('------------------------------------------');
9917:
9918: END IF;
9919: IF x_return_status = FND_API.G_RET_STS_ERROR
9920: THEN
9921: RAISE Process_Exc;
9922: END IF;
9923:
9921: RAISE Process_Exc;
9922: END IF;
9923:
9924: Update_Related_Line_Info(x_return_status, x_return_status_text);
9925: IF l_debug = FND_API.G_TRUE THEN
9926: QP_PREQ_GRP.engine_debug('------------------------------------------');
9927: END IF;
9928: IF x_return_status = FND_API.G_RET_STS_ERROR
9929: THEN
9924: Update_Related_Line_Info(x_return_status, x_return_status_text);
9925: IF l_debug = FND_API.G_TRUE THEN
9926: QP_PREQ_GRP.engine_debug('------------------------------------------');
9927: END IF;
9928: IF x_return_status = FND_API.G_RET_STS_ERROR
9929: THEN
9930: RAISE Process_Exc;
9931: END IF;
9932:
9929: THEN
9930: RAISE Process_Exc;
9931: END IF;
9932:
9933: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9934:
9935: OPEN lcur1; LOOP
9936: FETCH lcur1 INTO lrec1;
9937: EXIT WHEN lcur1%NOTFOUND;
9934:
9935: OPEN lcur1; LOOP
9936: FETCH lcur1 INTO lrec1;
9937: EXIT WHEN lcur1%NOTFOUND;
9938: IF l_debug = FND_API.G_TRUE THEN
9939: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9940: ' list_line_id '|| lrec1.created_from_list_line_id ||
9941: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code ||
9942: ' updated '|| lrec1.updated_flag ||' process '|| lrec1.process_code);
9944: END LOOP;
9945: CLOSE lcur1;
9946: END IF;
9947:
9948: IF l_debug = FND_API.G_TRUE THEN
9949: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step4');
9950:
9951: END IF;
9952: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9948: IF l_debug = FND_API.G_TRUE THEN
9949: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step4');
9950:
9951: END IF;
9952: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9953: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9954:
9955: IF l_debug = FND_API.G_TRUE THEN
9956: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9951: END IF;
9952: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9953: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9954:
9955: IF l_debug = FND_API.G_TRUE THEN
9956: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9957: END IF;
9958: EXCEPTION
9959: WHEN Process_Exc THEN
9956: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9957: END IF;
9958: EXCEPTION
9959: WHEN Process_Exc THEN
9960: IF l_debug = FND_API.G_TRUE THEN
9961: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9962: END IF;
9963: WHEN OTHERS THEN
9964: IF l_debug = FND_API.G_TRUE THEN
9960: IF l_debug = FND_API.G_TRUE THEN
9961: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9962: END IF;
9963: WHEN OTHERS THEN
9964: IF l_debug = FND_API.G_TRUE THEN
9965: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9966: END IF;
9967: x_return_status := FND_API.G_RET_STS_ERROR;
9968: x_return_status_text := l_routine ||' '|| SQLERRM;
9963: WHEN OTHERS THEN
9964: IF l_debug = FND_API.G_TRUE THEN
9965: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9966: END IF;
9967: x_return_status := FND_API.G_RET_STS_ERROR;
9968: x_return_status_text := l_routine ||' '|| SQLERRM;
9969: END PROCESS_ADJUSTMENTS;
9970:
9971:
9980: x_return_status_text OUT NOCOPY VARCHAR2)
9981: IS
9982: BEGIN
9983: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9984: IF l_debug = FND_API.G_TRUE THEN
9985: QP_PREQ_GRP.engine_debug('Begin UPDATE_QUALIFIER_VALUE routine');
9986:
9987: END IF;
9988: UPDATE qp_npreq_rltd_lines_tmp rltd
10006: (G_STATUS_UNCHANGED, G_STATUS_UPDATED,
10007: G_STATUS_GSA_VIOLATION)
10008: AND line.usage_pricing_type =
10009: QP_PREQ_GRP.G_BILLING_TYPE);
10010: IF l_debug = FND_API.G_TRUE THEN
10011: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
10012: END IF;
10013: EXCEPTION
10014: WHEN OTHERS THEN
10011: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
10012: END IF;
10013: EXCEPTION
10014: WHEN OTHERS THEN
10015: IF l_debug = FND_API.G_TRUE THEN
10016: QP_PREQ_GRP.engine_debug('Error UPDATE_QUALIFIER_VALUE routine '|| SQLERRM);
10017: END IF;
10018: x_return_status := FND_API.G_RET_STS_ERROR;
10019: x_return_status_text := 'QP_PREQ_PUB.UPDATE_QUALIFIER_VALUE: '|| SQLERRM;
10014: WHEN OTHERS THEN
10015: IF l_debug = FND_API.G_TRUE THEN
10016: QP_PREQ_GRP.engine_debug('Error UPDATE_QUALIFIER_VALUE routine '|| SQLERRM);
10017: END IF;
10018: x_return_status := FND_API.G_RET_STS_ERROR;
10019: x_return_status_text := 'QP_PREQ_PUB.UPDATE_QUALIFIER_VALUE: '|| SQLERRM;
10020: END UPDATE_QUALIFIER_VALUE;
10021:
10022: --This is to update the status on the child break lines after calculation
10045: I PLS_INTEGER;
10046: BEGIN
10047: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10048: --This is to update the status on the child break lines after calculation
10049: IF l_debug = FND_API.G_TRUE THEN
10050: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
10051: END IF;
10052: OPEN l_child_break_cur;
10053: IF l_debug = FND_API.G_TRUE THEN
10049: IF l_debug = FND_API.G_TRUE THEN
10050: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
10051: END IF;
10052: OPEN l_child_break_cur;
10053: IF l_debug = FND_API.G_TRUE THEN
10054: QP_PREQ_GRP.engine_debug('open l_child_break_cur');
10055: END IF;
10056: -- LOOP
10057: l_child_sts_code_tbl.DELETE;
10057: l_child_sts_code_tbl.DELETE;
10058: l_line_dtl_index_tbl.DELETE;
10059: FETCH l_child_break_cur
10060: BULK COLLECT INTO l_child_sts_code_tbl, l_line_dtl_index_tbl;
10061: IF l_debug = FND_API.G_TRUE THEN
10062: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10063: END IF;
10064: -- LIMIT nRows;
10065: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10061: IF l_debug = FND_API.G_TRUE THEN
10062: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10063: END IF;
10064: -- LIMIT nRows;
10065: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10066: THEN
10067: I := l_line_dtl_index_tbl.FIRST;
10068: WHILE I IS NOT NULL
10069: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10067: I := l_line_dtl_index_tbl.FIRST;
10068: WHILE I IS NOT NULL
10069: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10070: LOOP
10071: IF l_debug = FND_API.G_TRUE THEN
10072: QP_PREQ_GRP.engine_debug('l_child_break_cur count '|| i
10073: ||' childdtl index '|| l_line_dtl_index_tbl(i)
10074: ||' status code '|| l_child_sts_code_tbl(i));
10075: END IF;
10078: END IF;
10079:
10080: IF l_line_dtl_index_tbl.COUNT > 0
10081: THEN
10082: IF l_debug = FND_API.G_TRUE THEN
10083: QP_PREQ_GRP.engine_debug('before update');
10084: END IF;
10085: FORALL j IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10086: UPDATE qp_npreq_ldets_tmp
10085: FORALL j IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10086: UPDATE qp_npreq_ldets_tmp
10087: SET process_code = l_child_sts_code_tbl(j)
10088: WHERE line_detail_index = l_line_dtl_index_tbl(j);
10089: IF l_debug = FND_API.G_TRUE THEN
10090: QP_PREQ_GRP.engine_debug('after update');
10091: END IF;
10092: END IF;
10093: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10091: END IF;
10092: END IF;
10093: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10094: -- END LOOP;
10095: IF l_debug = FND_API.G_TRUE THEN
10096: QP_PREQ_GRP.engine_debug('END LOOP');
10097: END IF;
10098: CLOSE l_child_break_cur;
10099: IF l_debug = FND_API.G_TRUE THEN
10095: IF l_debug = FND_API.G_TRUE THEN
10096: QP_PREQ_GRP.engine_debug('END LOOP');
10097: END IF;
10098: CLOSE l_child_break_cur;
10099: IF l_debug = FND_API.G_TRUE THEN
10100: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10101: END IF;
10102:
10103: IF l_debug = FND_API.G_TRUE THEN
10099: IF l_debug = FND_API.G_TRUE THEN
10100: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10101: END IF;
10102:
10103: IF l_debug = FND_API.G_TRUE THEN
10104: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10105: END IF;
10106: EXCEPTION
10107: WHEN OTHERS THEN
10104: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10105: END IF;
10106: EXCEPTION
10107: WHEN OTHERS THEN
10108: IF l_debug = FND_API.G_TRUE THEN
10109: QP_PREQ_GRP.engine_debug('Error Update_Child_break_lines routine '|| SQLERRM);
10110: END IF;
10111: x_return_status := FND_API.G_RET_STS_ERROR;
10112: x_return_status_text := 'QP_PREQ_PUB.Update_Child_Break_lines: '|| SQLERRM;
10107: WHEN OTHERS THEN
10108: IF l_debug = FND_API.G_TRUE THEN
10109: QP_PREQ_GRP.engine_debug('Error Update_Child_break_lines routine '|| SQLERRM);
10110: END IF;
10111: x_return_status := FND_API.G_RET_STS_ERROR;
10112: x_return_status_text := 'QP_PREQ_PUB.Update_Child_Break_lines: '|| SQLERRM;
10113:
10114: END Update_Child_Break_Lines;
10115:
10186:
10187: BEGIN
10188:
10189: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10190: IF l_debug = FND_API.G_TRUE THEN
10191: QP_PREQ_GRP.engine_debug('Begin process_price_break');
10192:
10193: END IF;
10194: FOR I IN l_request_line_detail_cur(p_processing_order)
10192:
10193: END IF;
10194: FOR I IN l_request_line_detail_cur(p_processing_order)
10195: LOOP
10196: IF l_debug = FND_API.G_TRUE THEN
10197: QP_PREQ_GRP.engine_debug('Loop thru child break '|| I.parent_detail_index
10198: ||' child index '|| I.child_detail_index ||' list_line_id '
10199: || I.created_from_list_line_id ||' level '|| I.modifier_level_code
10200: ||' parent price '|| I.parent_price
10205: END IF;
10206: --this is not applicable for price lists
10207: IF I.modifier_level_code = G_LINE_GROUP
10208: THEN
10209: IF l_debug = FND_API.G_TRUE THEN
10210: QP_PREQ_GRP.engine_debug('this is line group');
10211: END IF;
10212: l_quantity := nvl(nvl(nvl(I.group_quantity
10213: , I.group_amount),
10212: l_quantity := nvl(nvl(nvl(I.group_quantity
10213: , I.group_amount),
10214: nvl(I.break_quantity, I.ordered_quantity)), 0);
10215: ELSE
10216: IF l_debug = FND_API.G_TRUE THEN
10217: QP_PREQ_GRP.engine_debug('this is not line group');
10218: END IF;
10219: l_quantity := nvl(nvl(I.break_quantity,
10220: I.ordered_quantity), 0);
10228: THEN
10229: l_break_satisfied := G_NO;
10230: END IF;
10231:
10232: IF l_debug = FND_API.G_TRUE THEN
10233: QP_PREQ_GRP.engine_debug('process_price_break1');
10234: END IF;
10235: IF I.price_break_type = G_POINT_BREAK
10236: THEN
10233: QP_PREQ_GRP.engine_debug('process_price_break1');
10234: END IF;
10235: IF I.price_break_type = G_POINT_BREAK
10236: THEN
10237: IF l_debug = FND_API.G_TRUE THEN
10238: QP_PREQ_GRP.engine_debug('this is point break');
10239: END IF;
10240: IF l_quantity BETWEEN I.value_from AND I.value_to
10241: THEN
10238: QP_PREQ_GRP.engine_debug('this is point break');
10239: END IF;
10240: IF l_quantity BETWEEN I.value_from AND I.value_to
10241: THEN
10242: IF l_debug = FND_API.G_TRUE THEN
10243: QP_PREQ_GRP.engine_debug('point break satisfied');
10244: END IF;
10245: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10246: := l_quantity;
10249: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_YES;
10250: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10251: := I.child_detail_index;
10252: ELSE
10253: IF l_debug = FND_API.G_TRUE THEN
10254: QP_PREQ_GRP.engine_debug('point break not satisfied');
10255: END IF;
10256: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10257: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10262: END IF;
10263:
10264: ELSIF I.price_break_type = G_RANGE_BREAK
10265: THEN
10266: IF l_debug = FND_API.G_TRUE THEN
10267: QP_PREQ_GRP.engine_debug('this is range break');
10268: END IF;
10269: l_satisfied_qty := 0;
10270: QP_Calculate_Price_PUB.Get_Satisfied_Range
10271: (p_value_from => I.value_from
10272: , p_value_to => I.value_to
10273: , p_qualifier_value => l_quantity
10274: , x_satisfied_value => l_satisfied_qty);
10275: IF l_debug = FND_API.G_TRUE THEN
10276: QP_PREQ_GRP.engine_debug('range break '|| l_satisfied_qty);
10277:
10278: END IF;
10279: IF l_satisfied_qty <> 0
10277:
10278: END IF;
10279: IF l_satisfied_qty <> 0
10280: THEN
10281: IF l_debug = FND_API.G_TRUE THEN
10282: QP_PREQ_GRP.engine_debug('range break satisfied');
10283: END IF;
10284: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10285: := l_satisfied_qty;
10288: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_YES;
10289: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10290: := I.child_detail_index;
10291: ELSE
10292: IF l_debug = FND_API.G_TRUE THEN
10293: QP_PREQ_GRP.engine_debug('range break not satisfied');
10294: END IF;
10295: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10296: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_NO;
10317: l_percent_price_tbl(l_line_quantity_tbl.COUNT),
10318: x_return_status,
10319: x_return_status_text);
10320:
10321: IF l_debug = FND_API.G_TRUE THEN
10322: QP_PREQ_GRP.engine_debug('plsql tbl info dtlindex '
10323: || l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT)
10324: ||' appl flag '|| l_applied_flag_tbl(l_line_dtl_index_tbl.COUNT)
10325: ||' line qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10338: I.ordered_quantity;
10339: l_total_price_tbl(x_line_index_tbl.COUNT) :=
10340: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10341: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10342: IF l_debug = FND_API.G_TRUE THEN
10343: QP_PREQ_GRP.engine_debug('first line '
10344: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10345: || l_total_price_tbl(x_line_index_tbl.COUNT)
10346: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10354: l_total_price_tbl(x_line_index_tbl.COUNT) :=
10355: l_total_price_tbl(x_line_index_tbl.COUNT) +
10356: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10357: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10358: IF l_debug = FND_API.G_TRUE THEN
10359: QP_PREQ_GRP.engine_debug('same line '
10360: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10361: || l_total_price_tbl(x_line_index_tbl.COUNT)
10362: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10382: G_STATUS_UPDATED;
10383: x_pricing_sts_txt_tbl(x_line_index_tbl.COUNT) :=
10384: '';
10385: END IF;
10386: IF l_debug = FND_API.G_TRUE THEN
10387: QP_PREQ_GRP.engine_debug('next line ');
10388: END IF;
10389: x_line_index_tbl(x_line_index_tbl.COUNT + 1) :=
10390: l_line_index_tbl(l_line_index_tbl.COUNT);
10389: x_line_index_tbl(x_line_index_tbl.COUNT + 1) :=
10390: l_line_index_tbl(l_line_index_tbl.COUNT);
10391: l_total_qty_tbl(x_line_index_tbl.COUNT) :=
10392: I.ordered_quantity;
10393: IF l_debug = FND_API.G_TRUE THEN
10394: QP_PREQ_GRP.engine_debug('price info: line index '
10395: || x_line_index_tbl(x_line_index_tbl.COUNT)
10396: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT)
10397: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10403:
10404: IF x_line_index_tbl.COUNT > 0
10405: --for the last line
10406: THEN
10407: IF l_debug = FND_API.G_TRUE THEN
10408: QP_PREQ_GRP.engine_debug('price info: line index ');
10409: END IF;
10410: IF l_break_satisfied = G_NO
10411: THEN
10421: END IF;
10422: x_list_price_tbl(x_line_index_tbl.COUNT) :=
10423: l_total_price_tbl(x_line_index_tbl.COUNT) /
10424: l_total_qty_tbl(x_line_index_tbl.COUNT);
10425: IF l_debug = FND_API.G_TRUE THEN
10426: QP_PREQ_GRP.engine_debug('price info: line index '
10427: || x_line_index_tbl(x_line_index_tbl.COUNT)
10428: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT) ||' '
10429: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10435: END IF;
10436:
10437: IF l_line_quantity_tbl.COUNT > 0
10438: THEN
10439: IF l_debug = FND_API.G_TRUE THEN
10440: QP_PREQ_GRP.engine_debug('process_price_break5: count '
10441: || l_line_quantity_tbl.COUNT ||' first '
10442: || l_line_quantity_tbl.FIRST ||' last '
10443: || l_line_quantity_tbl.LAST);
10449: , adjustment_amount = l_adj_amt_tbl(i)
10450: WHERE line_detail_index = l_line_dtl_index_tbl(i);
10451: END IF;
10452:
10453: IF l_debug = FND_API.G_TRUE THEN
10454: QP_PREQ_GRP.engine_debug('process_price_break5');
10455:
10456: END IF;
10457: IF x_line_index_tbl.COUNT > 0
10455:
10456: END IF;
10457: IF x_line_index_tbl.COUNT > 0
10458: THEN
10459: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10460: THEN
10461: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10462: LOOP
10463: IF l_debug = FND_API.G_TRUE THEN
10459: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10460: THEN
10461: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10462: LOOP
10463: IF l_debug = FND_API.G_TRUE THEN
10464: QP_PREQ_GRP.engine_debug('line details '|| x_line_index_tbl(i)
10465: ||' price '|| x_list_price_tbl(i) ||' sts '
10466: || x_pricing_sts_code_tbl(i));
10467: END IF;
10466: || x_pricing_sts_code_tbl(i));
10467: END IF;
10468: END LOOP;
10469: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
10470: IF l_debug = FND_API.G_TRUE THEN
10471: QP_PREQ_GRP.engine_debug('update PBH ');
10472: END IF;
10473: FORALL i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10474: UPDATE qp_npreq_ldets_tmp
10488: AND created_from_list_type_code IN
10489: (G_PRICE_LIST_HEADER, G_AGR_LIST_HEADER)
10490: AND adjustment_amount IS NULL;
10491:
10492: IF l_debug = FND_API.G_TRUE THEN
10493: QP_PREQ_GRP.engine_debug('End process_price_break');
10494: END IF;
10495: EXCEPTION
10496: WHEN OTHERS THEN
10493: QP_PREQ_GRP.engine_debug('End process_price_break');
10494: END IF;
10495: EXCEPTION
10496: WHEN OTHERS THEN
10497: x_return_status := FND_API.G_RET_STS_ERROR;
10498: x_return_status_text := 'QP_PREQ_PUB.Process_Price_Break Exception: '
10499: || SQLERRM;
10500: IF l_debug = FND_API.G_TRUE THEN
10501: QP_PREQ_GRP.engine_debug('Exception process_price_break '|| SQLERRM);
10496: WHEN OTHERS THEN
10497: x_return_status := FND_API.G_RET_STS_ERROR;
10498: x_return_status_text := 'QP_PREQ_PUB.Process_Price_Break Exception: '
10499: || SQLERRM;
10500: IF l_debug = FND_API.G_TRUE THEN
10501: QP_PREQ_GRP.engine_debug('Exception process_price_break '|| SQLERRM);
10502: END IF;
10503: END PROCESS_PRICE_BREAK;
10504:
10527:
10528: BEGIN
10529:
10530: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10531: IF l_debug = FND_API.G_TRUE THEN
10532: QP_PREQ_GRP.engine_debug('Begin Update_Service_Lines');
10533:
10534: END IF;
10535: OPEN l_Service_Cur;
10556: SET processing_order = 1
10557: WHERE line_index = l_parent_line_tbl(i);
10558: END IF;
10559:
10560: IF l_debug = FND_API.G_TRUE THEN
10561: QP_PREQ_GRP.engine_debug('End Update_Service_Lines');
10562: END IF;
10563: EXCEPTION
10564: WHEN OTHERS THEN
10561: QP_PREQ_GRP.engine_debug('End Update_Service_Lines');
10562: END IF;
10563: EXCEPTION
10564: WHEN OTHERS THEN
10565: x_return_status := FND_API.G_RET_STS_ERROR;
10566: x_return_status_text := 'QP_PREQ_PUB.Update_Service_Lines Exception: '
10567: || SQLERRM;
10568: IF l_debug = FND_API.G_TRUE THEN
10569: QP_PREQ_GRP.engine_debug('Exception Update_Service_Lines '|| SQLERRM);
10564: WHEN OTHERS THEN
10565: x_return_status := FND_API.G_RET_STS_ERROR;
10566: x_return_status_text := 'QP_PREQ_PUB.Update_Service_Lines Exception: '
10567: || SQLERRM;
10568: IF l_debug = FND_API.G_TRUE THEN
10569: QP_PREQ_GRP.engine_debug('Exception Update_Service_Lines '|| SQLERRM);
10570: END IF;
10571: END Update_Service_Lines;
10572:
10627: USAGE_EXCEPTION EXCEPTION;
10628: BEGIN
10629:
10630: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10631: IF l_debug = FND_API.G_TRUE THEN
10632: QP_PREQ_GRP.engine_debug('Begin Usage Pricing');
10633:
10634:
10635: END IF;
10640: x_pricing_sts_code_tbl => l_pricing_sts_code_tbl,
10641: x_pricing_sts_txt_tbl => l_pricing_sts_txt_tbl,
10642: x_return_status => x_return_status,
10643: x_return_status_text => x_return_status_text);
10644: IF x_return_status = FND_API.G_RET_STS_ERROR
10645: THEN
10646: RAISE Usage_Exception;
10647: END IF;
10648: FOR cl IN l_get_price_cur(1)
10646: RAISE Usage_Exception;
10647: END IF;
10648: FOR cl IN l_get_price_cur(1)
10649: LOOP
10650: IF l_debug = FND_API.G_TRUE THEN
10651: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP');
10652: QP_PREQ_GRP.engine_debug('PRL line type '
10653: || cl.created_from_list_line_type ||' operator '
10654: || cl.OPERAND_CALCULATION_CODE ||' operand '
10692: l_pricing_sts_txt_tbl(l_pricing_sts_txt_tbl.COUNT + 1)
10693: := '';
10694: END IF; --l_unit_price_tbl
10695:
10696: IF l_debug = FND_API.G_TRUE THEN
10697: QP_PREQ_GRP.engine_debug('price returned '
10698: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10699: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10700: ||' line index '|| l_line_index_tbl(l_line_index_tbl.COUNT)
10707: END LOOP;
10708:
10709: IF l_line_dtl_index_tbl.COUNT > 0
10710: THEN
10711: IF l_debug = FND_API.G_TRUE THEN
10712: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP1');
10713: END IF;
10714: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10715: UPDATE qp_npreq_ldets_tmp
10718: END IF; --l_line_dtl_index_tbl.COUNT
10719:
10720: IF l_line_index_tbl.COUNT > 0
10721: THEN
10722: IF l_debug = FND_API.G_TRUE THEN
10723: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP1');
10724: END IF;
10725: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10726: UPDATE qp_npreq_lines_tmp
10740:
10741:
10742: Update_Service_Lines(x_return_status, x_return_status_text);
10743:
10744: IF x_return_status = FND_API.G_RET_STS_ERROR
10745: THEN
10746: RAISE Usage_Exception;
10747: END IF;
10748:
10754: x_pricing_sts_code_tbl => l_pricing_sts_code_tbl,
10755: x_pricing_sts_txt_tbl => l_pricing_sts_txt_tbl,
10756: x_return_status => x_return_status,
10757: x_return_status_text => x_return_status_text);
10758: IF x_return_status = FND_API.G_RET_STS_ERROR
10759: THEN
10760: RAISE Usage_Exception;
10761: END IF;
10762:
10761: END IF;
10762:
10763: FOR cl IN l_get_price_cur(2)
10764: LOOP
10765: IF l_debug = FND_API.G_TRUE THEN
10766: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10767: QP_PREQ_GRP.engine_debug('PRL line type '
10768: || cl.created_from_list_line_type ||' operator '
10769: || cl.OPERAND_CALCULATION_CODE ||' operand '
10806: := G_STATUS_UPDATED;
10807: l_pricing_sts_txt_tbl(l_pricing_sts_txt_tbl.COUNT + 1)
10808: := '';
10809: END IF; --l_unit_price_tbl
10810: IF l_debug = FND_API.G_TRUE THEN
10811: QP_PREQ_GRP.engine_debug('price returned '
10812: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10813: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10814: ||' unit price '|| l_unit_price_tbl(l_unit_price_tbl.COUNT)
10820: END LOOP;
10821:
10822: IF l_line_dtl_index_tbl.COUNT > 0
10823: THEN
10824: IF l_debug = FND_API.G_TRUE THEN
10825: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10826: END IF;
10827: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10828: UPDATE qp_npreq_ldets_tmp
10831: END IF; --l_line_dtl_index_tbl.COUNT
10832:
10833: IF l_line_index_tbl.COUNT > 0
10834: THEN
10835: IF l_debug = FND_API.G_TRUE THEN
10836: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP2');
10837: END IF;
10838: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10839: UPDATE qp_npreq_lines_tmp
10844: END IF; --l_line_index_tbl.COUNT
10845:
10846:
10847:
10848: IF l_debug = FND_API.G_TRUE THEN
10849: QP_PREQ_GRP.engine_debug('End Usage Pricing');
10850:
10851: END IF;
10852: EXCEPTION
10850:
10851: END IF;
10852: EXCEPTION
10853: WHEN USAGE_EXCEPTION THEN
10854: IF l_debug = FND_API.G_TRUE THEN
10855: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10856: END IF;
10857: x_return_status := FND_API.G_RET_STS_ERROR;
10858: WHEN OTHERS THEN
10853: WHEN USAGE_EXCEPTION THEN
10854: IF l_debug = FND_API.G_TRUE THEN
10855: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10856: END IF;
10857: x_return_status := FND_API.G_RET_STS_ERROR;
10858: WHEN OTHERS THEN
10859: IF l_debug = FND_API.G_TRUE THEN
10860: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10861: END IF;
10855: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10856: END IF;
10857: x_return_status := FND_API.G_RET_STS_ERROR;
10858: WHEN OTHERS THEN
10859: IF l_debug = FND_API.G_TRUE THEN
10860: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10861: END IF;
10862: x_return_status := FND_API.G_RET_STS_ERROR;
10863: x_return_status_text := 'QP_PREQ_PUB.Usage_Pricing Exception: '
10858: WHEN OTHERS THEN
10859: IF l_debug = FND_API.G_TRUE THEN
10860: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10861: END IF;
10862: x_return_status := FND_API.G_RET_STS_ERROR;
10863: x_return_status_text := 'QP_PREQ_PUB.Usage_Pricing Exception: '
10864: || SQLERRM;
10865: END Usage_pricing;
10866:
10880: CLOSE l_chk_usage_cur;
10881: RETURN x_call_usage_pricing;
10882: EXCEPTION
10883: WHEN OTHERS THEN
10884: IF l_debug = FND_API.G_TRUE THEN
10885: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Call_Usage_Pricing Exception: '|| SQLERRM);
10886: END IF;
10887: x_call_usage_pricing := NULL;
10888: END Call_Usage_Pricing;
11093: l_fgdline_exist NUMBER := 0; --bug 14396941
11094: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Identify_freegood_lines ';
11095: BEGIN
11096: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11097: IF l_debug = FND_API.G_TRUE THEN
11098: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11099:
11100: END IF;
11101: x_return_status := FND_API.G_RET_STS_SUCCESS;
11097: IF l_debug = FND_API.G_TRUE THEN
11098: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11099:
11100: END IF;
11101: x_return_status := FND_API.G_RET_STS_SUCCESS;
11102: x_return_status_text := '';
11103:
11104: IF l_debug = FND_API.G_TRUE THEN
11105: -- bug 3639169 - changed from dynamic sql to static sql for performance
11100: END IF;
11101: x_return_status := FND_API.G_RET_STS_SUCCESS;
11102: x_return_status_text := '';
11103:
11104: IF l_debug = FND_API.G_TRUE THEN
11105: -- bug 3639169 - changed from dynamic sql to static sql for performance
11106: FOR cl IN l_prg_debug
11107: LOOP
11108: QP_PREQ_GRP.engine_debug('Printing out all PRGs irrespective of phases: '
11112: ||' fgpriceadjid '|| cl.fg_price_adj_id ||' prg_phase_id '|| cl.prg_phase_id);
11113: END LOOP;
11114: END IF; --l_debug
11115:
11116: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11117: AND l_debug = FND_API.G_TRUE
11118: THEN
11119: FOR cl IN
11120: (SELECT buyline.line_index
11113: END LOOP;
11114: END IF; --l_debug
11115:
11116: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11117: AND l_debug = FND_API.G_TRUE
11118: THEN
11119: FOR cl IN
11120: (SELECT buyline.line_index
11121: , oldprg.list_line_id, oldfgdis.line_id
11147: AND oldrltd.price_adjustment_id = oldprg.price_adjustment_id
11148: AND oldfgdis.price_adjustment_id = oldrltd.rltd_price_adj_id
11149: AND oldfgdis.list_line_type_code = 'DIS')
11150: LOOP
11151: IF l_debug = FND_API.G_TRUE THEN
11152: qp_preq_grp.engine_debug('ident fg dtls: buylineindex '|| cl.line_index
11153: ||' prg-list_line_id '|| cl.list_line_id
11154: ||' fgline_id '|| cl.line_id ||' updated_flag '|| cl.updated_flag);
11155: END IF;
11182: WHEN NO_DATA_FOUND THEN
11183: l_fgdline_exist := 0;
11184: end;
11185:
11186: IF l_debug = FND_API.G_TRUE THEN
11187: QP_PREQ_GRP.engine_debug('l_fgdline_exist 1 '|| l_fgdline_exist);
11188: END IF;
11189: ELSE
11190: l_fgdline_exist := 1;
11187: QP_PREQ_GRP.engine_debug('l_fgdline_exist 1 '|| l_fgdline_exist);
11188: END IF;
11189: ELSE
11190: l_fgdline_exist := 1;
11191: IF l_debug = FND_API.G_TRUE THEN
11192: QP_PREQ_GRP.engine_debug('l_fgdline_exist 2 '|| l_fgdline_exist);
11193: END IF;
11194: END IF;
11195: --bug 14396941
11215: CLOSE l_Identify_freegood_cur;
11216: END IF; --bug 14396941
11217: IF l_fg_line_index_tbl.COUNT > 0
11218: THEN
11219: IF l_debug = FND_API.G_TRUE THEN
11220: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11221:
11222: END IF;
11223: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11219: IF l_debug = FND_API.G_TRUE THEN
11220: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11221:
11222: END IF;
11223: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11224: THEN
11225: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11226: LOOP
11227: IF l_debug = FND_API.G_TRUE THEN
11223: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11224: THEN
11225: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11226: LOOP
11227: IF l_debug = FND_API.G_TRUE THEN
11228: QP_PREQ_GRP.engine_debug('process_sts: line_ind '
11229: || l_fg_line_index_tbl(i) ||' fglist_line_id '
11230: || l_fg_list_line_id_tbl(i) ||' fgdis operand '
11231: || l_fg_operand_tbl(i) ||' fgdis operator '
11248: WHERE line_index = l_fg_line_index_tbl(i);
11249:
11250: END IF; --l_fg_line_index_tbl.count
11251:
11252: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11253: THEN
11254: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11255: WHERE instr(process_status, G_FREEGOOD) > 0)
11256: LOOP
11253: THEN
11254: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11255: WHERE instr(process_status, G_FREEGOOD) > 0)
11256: LOOP
11257: IF l_debug = FND_API.G_TRUE THEN
11258: QP_PREQ_GRP.engine_debug('Freegood line dtl: line_ind '
11259: || cl.line_index ||' process_sts '|| cl.process_status);
11260: END IF;
11261: END LOOP; --for cl
11260: END IF;
11261: END LOOP; --for cl
11262: END IF; --debug
11263:
11264: IF l_debug = FND_API.G_TRUE THEN
11265: QP_PREQ_GRP.engine_debug('End Identify_freegood_lines');
11266: END IF;
11267: EXCEPTION
11268: WHEN OTHERS THEN
11265: QP_PREQ_GRP.engine_debug('End Identify_freegood_lines');
11266: END IF;
11267: EXCEPTION
11268: WHEN OTHERS THEN
11269: x_return_status := FND_API.G_RET_STS_ERROR;
11270: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11271: IF l_debug = FND_API.G_TRUE THEN
11272: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11273: END IF;
11267: EXCEPTION
11268: WHEN OTHERS THEN
11269: x_return_status := FND_API.G_RET_STS_ERROR;
11270: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11271: IF l_debug = FND_API.G_TRUE THEN
11272: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11273: END IF;
11274: END Identify_freegood_lines;
11275:
11297: l_debug VARCHAR2(3);
11298: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11299: BEGIN
11300: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11301: IF l_debug = FND_API.G_TRUE THEN
11302: QP_PREQ_GRP.engine_debug('Begin Update_prg_pricing_status');
11303: END IF;
11304: OPEN l_mark_prg_delete_cur;
11305: l_mark_prg_delete_index.DELETE;
11308: l_mark_prg_delete_index, l_mark_fgdis_delete_index;
11309: CLOSE l_mark_prg_delete_cur;
11310:
11311: IF l_mark_prg_delete_index.COUNT > 0 THEN
11312: IF l_debug = FND_API.G_TRUE THEN
11313: FOR i IN l_mark_prg_delete_index.FIRST..l_mark_prg_delete_index.LAST
11314: LOOP
11315: BEGIN
11316: SELECT created_from_list_line_id INTO l_prg_list_line_id
11332: END IF; --l_mark_prg_delete_index.COUNT
11333:
11334: IF l_mark_fgdis_delete_index.COUNT > 0 THEN
11335:
11336: IF l_debug = FND_API.G_TRUE THEN
11337: FOR i IN l_mark_fgdis_delete_index.FIRST..l_mark_fgdis_delete_index.LAST
11338: LOOP
11339: BEGIN
11340: SELECT created_from_list_line_id INTO l_prg_list_line_id
11352: FORALL i IN l_mark_fgdis_delete_index.FIRST..l_mark_fgdis_delete_index.LAST
11353: UPDATE qp_npreq_ldets_tmp SET pricing_status_code = G_STATUS_DELETED
11354: WHERE line_detail_index = l_mark_fgdis_delete_index(i);
11355: END IF; --l_mark_fgdis_delete_index.count
11356: IF l_debug = FND_API.G_TRUE THEN
11357: QP_PREQ_GRP.engine_debug('End Update_prg_pricing_status');
11358: END IF;
11359: x_return_status := FND_API.G_RET_STS_SUCCESS;
11360: EXCEPTION
11355: END IF; --l_mark_fgdis_delete_index.count
11356: IF l_debug = FND_API.G_TRUE THEN
11357: QP_PREQ_GRP.engine_debug('End Update_prg_pricing_status');
11358: END IF;
11359: x_return_status := FND_API.G_RET_STS_SUCCESS;
11360: EXCEPTION
11361: WHEN OTHERS THEN
11362: x_return_status := FND_API.G_RET_STS_ERROR;
11363: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11358: END IF;
11359: x_return_status := FND_API.G_RET_STS_SUCCESS;
11360: EXCEPTION
11361: WHEN OTHERS THEN
11362: x_return_status := FND_API.G_RET_STS_ERROR;
11363: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11364: IF l_debug = FND_API.G_TRUE THEN
11365: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11366: END IF;
11360: EXCEPTION
11361: WHEN OTHERS THEN
11362: x_return_status := FND_API.G_RET_STS_ERROR;
11363: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11364: IF l_debug = FND_API.G_TRUE THEN
11365: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11366: END IF;
11367: END Update_prg_pricing_status;
11368:
11707:
11708: i PLS_INTEGER;
11709: BEGIN
11710: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11711: IF l_debug = FND_API.G_TRUE THEN
11712: QP_PREQ_GRP.engine_debug('Begin process_prg');
11713: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11714:
11715: END IF;
11735: AND applied_flag = 'Y'
11736: AND ROWNUM = 1;
11737: EXCEPTION
11738: WHEN NO_DATA_FOUND THEN
11739: IF l_debug = FND_API.G_TRUE THEN
11740: QP_PREQ_GRP.engine_debug('No PRG: ');
11741: END IF;
11742: l_Process_PRG := G_NO;
11743: WHEN OTHERS THEN
11740: QP_PREQ_GRP.engine_debug('No PRG: ');
11741: END IF;
11742: l_Process_PRG := G_NO;
11743: WHEN OTHERS THEN
11744: IF l_debug = FND_API.G_TRUE THEN
11745: QP_PREQ_GRP.engine_debug('Error in PRG: '|| SQLERRM);
11746: END IF;
11747: --x_return_status := FND_API.G_RET_STS_ERROR;
11748: --x_return_status_text := l_routine||SQLERRM;
11743: WHEN OTHERS THEN
11744: IF l_debug = FND_API.G_TRUE THEN
11745: QP_PREQ_GRP.engine_debug('Error in PRG: '|| SQLERRM);
11746: END IF;
11747: --x_return_status := FND_API.G_RET_STS_ERROR;
11748: --x_return_status_text := l_routine||SQLERRM;
11749: RAISE PRG_Exception;
11750: END;
11751:
11748: --x_return_status_text := l_routine||SQLERRM;
11749: RAISE PRG_Exception;
11750: END;
11751:
11752: IF l_debug = FND_API.G_TRUE THEN
11753: QP_PREQ_GRP.engine_debug('Value of process_PRG '|| l_Process_PRG);
11754:
11755:
11756: END IF;
11763: G_STATUS_UPDATED, G_STATUS_NEW, G_STATUS_GSA_VIOLATION, G_STATUS_INVALID_PRICE_LIST)
11764: AND instr(line.process_status, G_FREEGOOD) > 0
11765: AND ROWNUM = 1;
11766:
11767: IF l_debug = FND_API.G_TRUE THEN
11768: QP_PREQ_GRP.engine_debug('Value of process_PRG after fg '|| l_Process_PRG);
11769: END IF; --l_debug
11770:
11771: IF l_Process_PRG = G_NO THEN
11791: WHERE adj.created_from_list_line_type = G_PROMO_GOODS_DISCOUNT
11792: AND adj.pricing_status_code = G_STATUS_UNCHANGED
11793: AND adj.updated_flag = G_YES);
11794: END IF; --l_PROCESS_PRG
11795: IF l_debug = FND_API.G_TRUE THEN
11796: QP_PREQ_GRP.engine_debug('Value of process_PRG after over '|| l_Process_PRG);
11797: END IF; --Bug No - 4033618
11798: EXCEPTION
11799: WHEN NO_DATA_FOUND THEN
11797: END IF; --Bug No - 4033618
11798: EXCEPTION
11799: WHEN NO_DATA_FOUND THEN
11800: l_Process_PRG := G_NO;
11801: IF l_debug = FND_API.G_TRUE THEN
11802: QP_PREQ_GRP.engine_debug('No PRG in oe_price_adj');
11803: END IF;
11804: WHEN OTHERS THEN
11805: l_Process_PRG := G_NO;
11802: QP_PREQ_GRP.engine_debug('No PRG in oe_price_adj');
11803: END IF;
11804: WHEN OTHERS THEN
11805: l_Process_PRG := G_NO;
11806: IF l_debug = FND_API.G_TRUE THEN
11807: QP_PREQ_GRP.engine_debug('Exception in prg '|| SQLERRM);
11808: END IF;
11809: END;
11810: END IF; --l_Process_PRG
11808: END IF;
11809: END;
11810: END IF; --l_Process_PRG
11811:
11812: IF l_debug = FND_API.G_TRUE THEN
11813: QP_PREQ_GRP.engine_debug('Value of process_PRG after query '|| l_Process_PRG);
11814:
11815: END IF;
11816:
11813: QP_PREQ_GRP.engine_debug('Value of process_PRG after query '|| l_Process_PRG);
11814:
11815: END IF;
11816:
11817: IF l_debug = FND_API.G_TRUE THEN
11818: FOR cl IN
11819: (SELECT adj.list_line_id, adj.updated_flag, line.line_index, --removed index oe_price_adjustments_n1 smbalara 14393164
11820: adj.pricing_phase_id, adj.price_adjustment_id, adj.line_id
11821: FROM qp_npreq_lines_tmp line, oe_price_adjustments adj
11867: --has not been deleted as the PRG has been overridden
11868: --pricing_status_code needs to be set to G_NOT_VALID so that this does not get into OM's
11869: --update statement to update lines with UPDATE status
11870:
11871: IF l_debug = FND_API.G_TRUE THEN
11872: QP_PREQ_GRP.engine_debug('Updated PRGs No. of passed-in fg lines updated '
11873: || SQL%ROWCOUNT);
11874: END IF; --l_debug
11875:
11879: BULK COLLECT INTO
11880: l_upd_engine_fg_index; --, l_upd_passedin_fg_index;
11881: CLOSE l_updated_prg_fg_cur;
11882:
11883: IF l_debug = FND_API.G_TRUE THEN
11884: -- QP_PREQ_GRP.engine_debug('Count. of passed-in fg lines '
11885: -- ||l_upd_passedin_fg_index.count);
11886: QP_PREQ_GRP.engine_debug('Count. of engine-created fg lines '
11887: || l_upd_engine_fg_index.COUNT);
11910:
11911: IF l_Process_PRG = G_YES
11912: THEN
11913: --only if there are prg based modifiers
11914: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11915: AND l_debug = FND_API.G_TRUE
11916: THEN
11917: FOR cl IN (SELECT newprg.line_index line_ind
11918: , newprg.created_from_list_line_id
11911: IF l_Process_PRG = G_YES
11912: THEN
11913: --only if there are prg based modifiers
11914: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11915: AND l_debug = FND_API.G_TRUE
11916: THEN
11917: FOR cl IN (SELECT newprg.line_index line_ind
11918: , newprg.created_from_list_line_id
11919: FROM qp_npreq_lines_tmp oldfgline
11925: AND newprg.pricing_status_code = G_STATUS_NEW
11926: AND instr(oldfgline.process_status
11927: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11928: LOOP
11929: IF l_debug = FND_API.G_TRUE THEN
11930: QP_PREQ_GRP.engine_debug('prg fgline: ind '|| cl.line_ind
11931: ||' prg '|| cl.created_from_list_line_id);
11932: END IF;
11933: END LOOP; --for cl
11951: AND instr(oldfgline.process_status
11952: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11953: AND instr(oldfgline.process_status, G_FREEGOOD) > 0;
11954:
11955: IF l_debug = FND_API.G_TRUE THEN
11956: QP_PREQ_GRP.engine_debug('updated delete prg lines rowcnt: '|| SQL%ROWCOUNT);
11957:
11958: END IF;
11959: FOR freegood IN l_compare_freegood_cur
11957:
11958: END IF;
11959: FOR freegood IN l_compare_freegood_cur
11960: LOOP
11961: IF l_debug = FND_API.G_TRUE THEN
11962: QP_PREQ_GRP.engine_debug('In compare_cur '
11963: ||' new_priced_qty '|| freegood.new_priced_quantity
11964: ||' old_priced_qty '|| freegood.old_priced_quantity
11965: ||' new_priced_uom '|| freegood.new_priced_uom_code
11999: l_old_operand := REPLACE(substr(freegood.old_list_line_id,
12000: instr(freegood.old_list_line_id, G_STATUS_UPDATED) + 7),
12001: G_PROMO_GOODS_DISCOUNT, '');
12002:
12003: IF l_debug = FND_API.G_TRUE THEN
12004: QP_PREQ_GRP.engine_debug(' The old_fg_list_line_id is '
12005: || l_oldfgdis_list_line_id
12006: ||' the old_operand is '|| l_old_operand);
12007: END IF; --l_debug
12048: AND (nvl(l_oldfgdis_list_line_id, 0) =
12049: nvl(freegood.newfgdis_list_line_id, 0))
12050: AND (nvl(l_old_operand, 0) = nvl(freegood.newfgdis_operand, 0))
12051: THEN
12052: IF l_debug = FND_API.G_TRUE THEN
12053: QP_PREQ_GRP.engine_debug('In PRG if data unchanged ');
12054: END IF;
12055: G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT + 1) :=
12056: freegood.old_line_index;
12068: --this will be used in calculation
12069: G_prg_unch_line_ind_tbl(freegood.old_line_index) :=
12070: G_prg_unch_line_index_tbl.COUNT;
12071:
12072: IF l_debug = FND_API.G_TRUE THEN
12073: QP_PREQ_GRP.engine_debug('if data unchanged: oldfg_lineindex '
12074: || G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT) ||' selprice '
12075: || G_prg_unch_calc_price_tbl(G_prg_unch_line_index_tbl.COUNT));
12076: END IF; --l_debug
12086: -- 'NEW'||G_STATUS_UNCHANGED;
12087: l_prg_line_id_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_line_id;
12088: l_prg_price_flag_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_price_flag; -- Ravi
12089: ELSE --freegood cur
12090: IF l_debug = FND_API.G_TRUE THEN
12091: QP_PREQ_GRP.engine_debug('In PRG if data updated ');
12092: END IF;
12093: l_prg_line_ind_tbl(l_prg_line_ind_tbl.COUNT + 1) := freegood.old_line_index;
12094: l_prg_process_sts_tbl(l_prg_line_ind_tbl.COUNT) := G_NOT_VALID;
12102: END LOOP; --freegood
12103:
12104: IF l_prg_line_ind_tbl.COUNT > 0
12105: THEN
12106: IF l_debug = FND_API.G_TRUE THEN
12107: QP_PREQ_GRP.engine_debug('prg details Here #1000');
12108: END IF; -- Bug No 4033618
12109: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12110: THEN
12105: THEN
12106: IF l_debug = FND_API.G_TRUE THEN
12107: QP_PREQ_GRP.engine_debug('prg details Here #1000');
12108: END IF; -- Bug No 4033618
12109: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12110: THEN
12111: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
12112: LOOP
12113: IF l_debug = FND_API.G_TRUE THEN
12109: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12110: THEN
12111: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
12112: LOOP
12113: IF l_debug = FND_API.G_TRUE THEN
12114: QP_PREQ_GRP.engine_debug('prg details: line_index '
12115: || l_prg_line_ind_tbl(i) ||' process_status '
12116: || l_prg_process_sts_tbl(i) ||' line_id '|| l_prg_line_id_tbl(i)
12117: || 'price flag ' || l_prg_price_flag_tbl(i));
12118: END IF;
12119: END LOOP; --l_prg_line_ind_tbl
12120: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12121:
12122: IF l_debug = FND_API.G_TRUE THEN
12123: QP_PREQ_GRP.engine_debug('passed in frg update '|| l_prg_line_ind_tbl.COUNT);
12124:
12125: END IF;
12126: FORALL i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
12137: , line.price_flag = l_prg_price_flag_tbl(i) -- Ravi
12138: WHERE line.line_index = l_prg_line_ind_tbl(i);
12139: END IF; --l_prg_line_ind_tbl.COUNT
12140:
12141: IF l_debug = FND_API.G_TRUE THEN
12142: QP_PREQ_GRP.engine_debug('End process_prg');
12143: END IF;
12144: END IF; --l_process_prg
12145: -- service project
12160: -- for ASO, not OM, but we discovered it needs to go for OM as well.
12161: --IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG <> G_YES THEN
12162: update_prg_pricing_status(x_return_status, x_return_status_text);
12163:
12164: x_return_status := FND_API.G_RET_STS_SUCCESS;
12165: x_return_status_text := NULL;
12166: EXCEPTION
12167: WHEN PRG_Exception THEN
12168: x_return_status := FND_API.G_RET_STS_ERROR;
12164: x_return_status := FND_API.G_RET_STS_SUCCESS;
12165: x_return_status_text := NULL;
12166: EXCEPTION
12167: WHEN PRG_Exception THEN
12168: x_return_status := FND_API.G_RET_STS_ERROR;
12169: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12170: IF l_debug = FND_API.G_TRUE THEN
12171: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12172: END IF;
12166: EXCEPTION
12167: WHEN PRG_Exception THEN
12168: x_return_status := FND_API.G_RET_STS_ERROR;
12169: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12170: IF l_debug = FND_API.G_TRUE THEN
12171: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12172: END IF;
12173: WHEN OTHERS THEN
12174: x_return_status := FND_API.G_RET_STS_ERROR;
12170: IF l_debug = FND_API.G_TRUE THEN
12171: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12172: END IF;
12173: WHEN OTHERS THEN
12174: x_return_status := FND_API.G_RET_STS_ERROR;
12175: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12176: IF l_debug = FND_API.G_TRUE THEN
12177: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12178: END IF;
12172: END IF;
12173: WHEN OTHERS THEN
12174: x_return_status := FND_API.G_RET_STS_ERROR;
12175: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12176: IF l_debug = FND_API.G_TRUE THEN
12177: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12178: END IF;
12179: END Process_PRG;
12180:
12187: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_PRG_Process_status ';
12188:
12189: BEGIN
12190: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12191: IF l_debug = FND_API.G_TRUE THEN
12192: QP_PREQ_GRP.engine_debug('Begin Update_PRG_Process_status');
12193:
12194: END IF;
12195: IF G_prg_unch_line_index_tbl.COUNT > 0
12193:
12194: END IF;
12195: IF G_prg_unch_line_index_tbl.COUNT > 0
12196: THEN
12197: IF l_debug = FND_API.G_TRUE THEN
12198: QP_PREQ_GRP.engine_debug('unchanged prg update '
12199: || G_prg_unch_line_index_tbl.COUNT);
12200:
12201: END IF;
12198: QP_PREQ_GRP.engine_debug('unchanged prg update '
12199: || G_prg_unch_line_index_tbl.COUNT);
12200:
12201: END IF;
12202: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12203: THEN
12204: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12205: LOOP
12206: IF l_debug = FND_API.G_TRUE THEN
12202: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12203: THEN
12204: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12205: LOOP
12206: IF l_debug = FND_API.G_TRUE THEN
12207: QP_PREQ_GRP.engine_debug('Unchanged details unch line_index '
12208: || G_prg_unch_line_index_tbl(j) ||' new line_index '
12209: || G_prg_unch_new_index_tbl(j) ||' adj_unit_price '
12210: || G_prg_unch_calc_price_tbl(j));
12247: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG <> G_YES THEN
12248: update_prg_pricing_status(x_return_status, x_return_status_text);
12249: END IF; --G_REQUEST_TYPE_CODE
12250:
12251: x_return_status := FND_API.G_RET_STS_SUCCESS;
12252:
12253: IF l_debug = FND_API.G_TRUE THEN
12254: QP_PREQ_GRP.engine_debug('End Update_PRG_Process_status');
12255:
12249: END IF; --G_REQUEST_TYPE_CODE
12250:
12251: x_return_status := FND_API.G_RET_STS_SUCCESS;
12252:
12253: IF l_debug = FND_API.G_TRUE THEN
12254: QP_PREQ_GRP.engine_debug('End Update_PRG_Process_status');
12255:
12256: END IF;
12257: EXCEPTION
12255:
12256: END IF;
12257: EXCEPTION
12258: WHEN OTHERS THEN
12259: x_return_status := FND_API.G_RET_STS_ERROR;
12260: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12261: IF l_debug = FND_API.G_TRUE THEN
12262: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12263: END IF;
12257: EXCEPTION
12258: WHEN OTHERS THEN
12259: x_return_status := FND_API.G_RET_STS_ERROR;
12260: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12261: IF l_debug = FND_API.G_TRUE THEN
12262: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12263: END IF;
12264: END Update_PRG_Process_status;
12265:
12288:
12289: I PLS_INTEGER;
12290: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Populate_buy_line_price_flag';
12291: BEGIN
12292: IF l_debug = FND_API.G_TRUE THEN
12293: QP_PREQ_GRP.engine_debug('Begin Populate_buy_line_price_flag');
12294:
12295: END IF;
12296: --G_buyline_price_flag.delete;
12295: END IF;
12296: --G_buyline_price_flag.delete;
12297: G_BUYLINE_INDEXES_FOR_LINE_ID.DELETE;
12298:
12299: IF l_debug = FND_API.G_TRUE THEN
12300: FOR c1 IN (SELECT line_detail_index, related_line_detail_index, line_index
12301: FROM qp_npreq_rltd_lines_tmp WHERE pricing_status_code = G_STATUS_NEW
12302: AND relationship_type_code = G_GENERATED_LINE)
12303: LOOP
12300: FOR c1 IN (SELECT line_detail_index, related_line_detail_index, line_index
12301: FROM qp_npreq_rltd_lines_tmp WHERE pricing_status_code = G_STATUS_NEW
12302: AND relationship_type_code = G_GENERATED_LINE)
12303: LOOP
12304: IF l_debug = FND_API.G_TRUE THEN
12305: QP_PREQ_GRP.engine_debug('loop linedtl '|| c1.line_detail_index ||' rltddtl '
12306: || c1.related_line_detail_index ||' lineind '|| c1.line_index);
12307: END IF;
12308: FOR c2 IN (SELECT line_index, line_detail_index FROM qp_npreq_ldets_tmp
12310: AND pricing_status_code = G_STATUS_NEW
12311: AND created_from_list_line_type IN
12312: (G_OTHER_ITEM_DISCOUNT, G_PROMO_GOODS_DISCOUNT))
12313: LOOP
12314: IF l_debug = FND_API.G_TRUE THEN
12315: QP_PREQ_GRP.engine_debug('loop ldet linedtl '|| c2.line_detail_index);
12316: END IF;
12317: END LOOP; --c2
12318: END LOOP; --c1
12319: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12320:
12321: FOR buyline IN l_buyline_price_flag_cur
12322: LOOP
12323: IF l_debug = FND_API.G_TRUE THEN
12324: QP_PREQ_GRP.engine_debug('In buyline loop list_line_id '
12325: || buyline.created_from_list_line_id
12326: ||' w/PRG ldet '|| buyline.line_detail_index -- 3493716
12327: ||' price_flag '|| buyline.price_flag
12335: G_BUYLINE_INDEXES_FOR_LINE_ID(buyline.created_from_list_line_id) := ',' || buyline.line_index || ',';
12336: END IF;
12337: END LOOP;
12338: /*
12339: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12340: i := G_buyline_price_flag.FIRST;
12341: WHILE i IS NOT NULL
12342: LOOP
12343: IF l_debug = FND_API.G_TRUE THEN
12339: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12340: i := G_buyline_price_flag.FIRST;
12341: WHILE i IS NOT NULL
12342: LOOP
12343: IF l_debug = FND_API.G_TRUE THEN
12344: QP_PREQ_GRP.engine_debug('In g_buyline loop list_line_id '
12345: ||I||' price_flag '||G_buyline_price_flag(I));
12346: END IF;
12347: I := G_buyline_price_flag.NEXT(I);
12369: and rltd.relationship_type_code = G_GENERATED_LINE
12370: and rltd.line_detail_index = freegood_dis.line_detail_index);
12371: */
12372:
12373: IF l_debug = FND_API.G_TRUE THEN
12374: QP_PREQ_GRP.engine_debug('End Populate_buy_line_price_flag');
12375: END IF;
12376: x_return_status := FND_API.G_RET_STS_SUCCESS;
12377: EXCEPTION
12372:
12373: IF l_debug = FND_API.G_TRUE THEN
12374: QP_PREQ_GRP.engine_debug('End Populate_buy_line_price_flag');
12375: END IF;
12376: x_return_status := FND_API.G_RET_STS_SUCCESS;
12377: EXCEPTION
12378: WHEN OTHERS THEN
12379: x_return_status := FND_API.G_RET_STS_ERROR;
12380: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12375: END IF;
12376: x_return_status := FND_API.G_RET_STS_SUCCESS;
12377: EXCEPTION
12378: WHEN OTHERS THEN
12379: x_return_status := FND_API.G_RET_STS_ERROR;
12380: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12381: IF l_debug = FND_API.G_TRUE THEN
12382: QP_PREQ_GRP.Engine_debug(x_return_status_text);
12383: END IF;
12377: EXCEPTION
12378: WHEN OTHERS THEN
12379: x_return_status := FND_API.G_RET_STS_ERROR;
12380: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12381: IF l_debug = FND_API.G_TRUE THEN
12382: QP_PREQ_GRP.Engine_debug(x_return_status_text);
12383: END IF;
12384: END Populate_buy_line_price_flag;
12385:
12391: i PLS_INTEGER;
12392: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Get_buy_line_price_flag';
12393: l_count NUMBER;
12394: BEGIN
12395: IF l_debug = FND_API.G_TRUE THEN
12396: 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);
12397:
12398: END IF;
12399: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12398: END IF;
12399: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12400: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12401: l_count := instr(G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id), ',' || p_line_index || ',');
12402: IF l_debug = FND_API.G_TRUE THEN
12403: 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));
12404: QP_PREQ_GRP.engine_debug('l_count ' || l_count);
12405: END IF;
12406: IF l_count > 0 THEN
12416: END IF; --G_BUYLINE_INDEXES_FOR_LINE_ID.count
12417:
12418: EXCEPTION
12419: WHEN OTHERS THEN
12420: IF l_debug = FND_API.G_TRUE THEN
12421: QP_PREQ_GRP.Engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12422: END IF;
12423: RETURN NULL;
12424: END Get_buy_line_price_flag;
12477: p_line_quantity => ldet.line_quantity,
12478: p_simulation_flag => p_simulation_flag,
12479: x_return_status => x_return_status,
12480: x_return_status_txt => x_return_status_text);
12481: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
12482: RAISE Coupon_Exception;
12483: END IF; --x_return_status
12484: END LOOP; --get_list_lines_cur
12485:
12484: END LOOP; --get_list_lines_cur
12485:
12486: EXCEPTION
12487: WHEN Coupon_Exception THEN
12488: IF l_debug = FND_API.G_TRUE THEN
12489: QP_PREQ_GRP.engine_debug('Exception in QP_PREQ_PUB.Process_coupon_issue '|| x_return_status_text);
12490: END IF;
12491: WHEN OTHERS THEN
12492: x_return_status := FND_API.G_RET_STS_ERROR;
12488: IF l_debug = FND_API.G_TRUE THEN
12489: QP_PREQ_GRP.engine_debug('Exception in QP_PREQ_PUB.Process_coupon_issue '|| x_return_status_text);
12490: END IF;
12491: WHEN OTHERS THEN
12492: x_return_status := FND_API.G_RET_STS_ERROR;
12493: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12494: IF l_debug = FND_API.G_TRUE THEN
12495: QP_PREQ_GRP.engine_debug(x_return_status_text);
12496: END IF;
12490: END IF;
12491: WHEN OTHERS THEN
12492: x_return_status := FND_API.G_RET_STS_ERROR;
12493: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12494: IF l_debug = FND_API.G_TRUE THEN
12495: QP_PREQ_GRP.engine_debug(x_return_status_text);
12496: END IF;
12497: END Process_coupon_issue;
12498:
12548: l_recur_tot_benefit_qty_tbl.DELETE;
12549:
12550: FOR recurring IN l_get_recurring_cur
12551: LOOP
12552: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12553: QP_PREQ_GRP.engine_debug ('------in l_get_recurring_cur loop------');
12554: END IF; -- END IF l_debug
12555:
12556: IF recurring.created_from_list_line_type IN (G_DISCOUNT, G_SURCHARGE,
12566: ELSIF recurring.created_from_list_line_type = G_COUPON_ISSUE THEN
12567: l_recur_benefit_qty := 1;
12568: END IF; --recurring.created_from_list_line_type
12569:
12570: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12571: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty);
12572: END IF;
12573:
12574: IF recurring.modifier_level_code IN (G_LINE_LEVEL, G_ORDER_LEVEL) THEN
12598: l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT) :=
12599: recurring.benefit_qty;
12600: END IF;
12601:
12602: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12603: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12604: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12605: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12606: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12609: END IF; --recurring.created_from_list_line_type
12610: END LOOP; --recurring
12611:
12612: IF l_recur_dtl_index_tbl.COUNT > 0 THEN
12613: IF l_debug = FND_API.G_TRUE THEN
12614: QP_PREQ_GRP.engine_debug('Updating recurring qty '|| l_recur_dtl_index_tbl.COUNT);
12615: END IF;
12616: FORALL i IN l_recur_dtl_index_tbl.FIRST .. l_recur_dtl_index_tbl.LAST
12617: UPDATE qp_npreq_ldets_tmp recur SET operand_value = -- shu fix 2702384
12620: WHERE recur.line_detail_index = l_recur_dtl_index_tbl(i);
12621: END IF; --l_recur_dtl_index_tbl.COUNT
12622: EXCEPTION
12623: WHEN OTHERS THEN
12624: x_return_status := FND_API.G_RET_STS_ERROR;
12625: x_return_status_text := l_routine ||' '|| SQLERRM;
12626: IF l_debug = FND_API.G_TRUE THEN
12627: QP_PREQ_GRP.engine_debug('Exception in '|| x_return_status_text);
12628: END IF;
12622: EXCEPTION
12623: WHEN OTHERS THEN
12624: x_return_status := FND_API.G_RET_STS_ERROR;
12625: x_return_status_text := l_routine ||' '|| SQLERRM;
12626: IF l_debug = FND_API.G_TRUE THEN
12627: QP_PREQ_GRP.engine_debug('Exception in '|| x_return_status_text);
12628: END IF;
12629: END Update_recurring_quantity;
12630:
12741: AND a.PRICING_STATUS_CODE = G_STATUS_NEW;
12742:
12743: BEGIN
12744:
12745: IF l_debug = FND_API.G_TRUE THEN
12746: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12747: END IF;
12748:
12749: FOR l_line IN l_lines_cur LOOP
12746: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12747: END IF;
12748:
12749: FOR l_line IN l_lines_cur LOOP
12750: IF l_debug = FND_API.G_TRUE THEN
12751: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12752: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12753: END IF;
12754:
12751: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12752: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12753: END IF;
12754:
12755: IF l_debug = FND_API.G_TRUE THEN
12756: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12757: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12784: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12785: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12786: END IF;
12787:
12788: IF l_debug = FND_API.G_TRUE THEN
12789: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12790:
12791: END IF;
12792: --Populate Line detail
12791: END IF;
12792: --Populate Line detail
12793: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12794:
12795: IF l_debug = FND_API.G_TRUE THEN
12796: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12797: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12828: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12829: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12830: END IF;
12831: --Pass throuh components
12832: IF l_debug = FND_API.G_TRUE THEN
12833: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12834: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12854: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12855: END IF;
12856: END LOOP; --l_ldets_cur
12857: END LOOP; --end l_lines_cur
12858: IF l_debug = FND_API.G_TRUE THEN
12859: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12860:
12861: END IF;
12862: EXCEPTION
12860:
12861: END IF;
12862: EXCEPTION
12863: WHEN OTHERS THEN
12864: IF l_debug = FND_API.G_TRUE THEN
12865: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM);
12866: END IF;
12867: x_return_status := FND_API.G_RET_STS_ERROR;
12868: x_return_status_text := 'QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM;
12863: WHEN OTHERS THEN
12864: IF l_debug = FND_API.G_TRUE THEN
12865: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM);
12866: END IF;
12867: x_return_status := FND_API.G_RET_STS_ERROR;
12868: x_return_status_text := 'QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM;
12869: END Populate_Output_INT;
12870: --added by yangli for Java Engine project
12871:
12985: AND a.PRICING_STATUS_CODE = G_STATUS_NEW;
12986:
12987: BEGIN
12988:
12989: IF l_debug = FND_API.G_TRUE THEN
12990: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12991: END IF;
12992:
12993: FOR l_line IN l_lines_cur LOOP
12990: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12991: END IF;
12992:
12993: FOR l_line IN l_lines_cur LOOP
12994: IF l_debug = FND_API.G_TRUE THEN
12995: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12996: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12997: END IF;
12998:
12995: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12996: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12997: END IF;
12998:
12999: IF l_debug = FND_API.G_TRUE THEN
13000: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
13001: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13030: QP_PREQ_GRP.engine_debug('*SERVICE_DURATION :='|| l_line.SERVICE_DURATION); -- service project
13031: QP_PREQ_GRP.engine_debug('*SERVICE_PERIOD :='|| l_line.SERVICE_PERIOD); -- service project
13032: END IF;
13033:
13034: IF l_debug = FND_API.G_TRUE THEN
13035: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13036:
13037: END IF;
13038: --Populate Line detail
13037: END IF;
13038: --Populate Line detail
13039: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
13040:
13041: IF l_debug = FND_API.G_TRUE THEN
13042: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
13043: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13074: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
13075: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
13076: END IF;
13077: --Pass throuh components
13078: IF l_debug = FND_API.G_TRUE THEN
13079: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
13080: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13102: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13103: END IF;
13104: END LOOP; --l_ldets_cur
13105: END LOOP; --end l_lines_cur
13106: IF l_debug = FND_API.G_TRUE THEN
13107: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13108:
13109: END IF;
13110: EXCEPTION
13108:
13109: END IF;
13110: EXCEPTION
13111: WHEN OTHERS THEN
13112: IF l_debug = FND_API.G_TRUE THEN
13113: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output: '|| SQLERRM);
13114: END IF;
13115: x_return_status := FND_API.G_RET_STS_ERROR;
13116: x_return_status_text := 'QP_PREQ_PUB.Populate_Output: '|| SQLERRM;
13111: WHEN OTHERS THEN
13112: IF l_debug = FND_API.G_TRUE THEN
13113: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output: '|| SQLERRM);
13114: END IF;
13115: x_return_status := FND_API.G_RET_STS_ERROR;
13116: x_return_status_text := 'QP_PREQ_PUB.Populate_Output: '|| SQLERRM;
13117: END Populate_Output;
13118:
13119:
13277: WHERE v$mystat.statistic# = v$statname.statistic#
13278: AND v$statname.name = 'redo size';
13279: EXCEPTION
13280: WHEN OTHERS THEN
13281: IF l_debug = FND_API.G_TRUE THEN
13282: QP_PREQ_GRP.engine_debug('Error in looking up debug in PUB '|| SQLERRM);
13283: END IF; -- Bug No 4033618
13284: END;
13285: END IF;
13317: G_GET_FREIGHT_FLAG := nvl(l_control_rec.get_freight_flag, G_NO);
13318:
13319: -- for QP-PO integration
13320:
13321: IF l_debug = FND_API.G_TRUE THEN
13322: QP_PREQ_GRP.engine_debug('G_REQUEST_TYPE_CODE = ' || G_REQUEST_TYPE_CODE);
13323: qp_debug_util.print_support_csv('START');
13324: END IF;
13325:
13334:
13335: -- bug9285924
13336: l_qp_license_product := FND_PROFILE.VALUE_SPECIFIC(NAME => 'QP_LICENSED_FOR_PRODUCT',application_id => 201);
13337:
13338: IF l_debug = FND_API.G_TRUE THEN
13339: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13340: QP_PREQ_GRP.engine_debug('l_qp_license_product = ' || l_qp_license_product);
13341: END IF;
13342:
13343: IF (G_LICENSED_FOR_PRODUCT = 'PO' OR
13344: nvl(l_qp_license_product, 'X') = 'PO') THEN -- Added for 8865594
13345: NULL;
13346: ELSE
13347: x_return_status := FND_API.G_RET_STS_ERROR;
13348: FND_MESSAGE.SET_NAME('QP', 'QP_NOT_LICENSED_PO');
13349: x_return_status_text := FND_MESSAGE.get;
13350: RETURN;
13351: END IF;
13356: IF G_LICENSED_FOR_PRODUCT IS NULL THEN
13357: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13358: END IF;
13359:
13360: IF l_debug = FND_API.G_TRUE THEN
13361: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13362: END IF;
13363:
13364: IF G_LICENSED_FOR_PRODUCT = 'AHL' THEN
13363:
13364: IF G_LICENSED_FOR_PRODUCT = 'AHL' THEN
13365: NULL;
13366: ELSE
13367: x_return_status := FND_API.G_RET_STS_ERROR;
13368: FND_MESSAGE.SET_NAME('QP', 'QP_NOT_LICENSED_CMRO');
13369: x_return_status_text := FND_MESSAGE.get;
13370: RETURN;
13371: END IF;
13378: QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq(l_return_status,
13379: l_return_status_text);
13380: x_return_status := l_return_status;
13381: x_return_status_text := l_return_status_text;
13382: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13383: RAISE E_DEBUG_ROUTINE_ERROR;
13384: END IF;
13385:
13386: END IF;
13389:
13390: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
13391: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13392: --===========START: Globals Initialization specific only to PL/SQL Engine=======
13393: IF l_debug = FND_API.G_TRUE THEN
13394: QP_PREQ_GRP.ENGINE_DEBUG('01 Java Engine not Installed ----------');
13395: END IF;
13396:
13397: -- Changes made for bug 3169430 Customer Handleman as this customer has price lists only, no modifiers.
13428: -- Q - look at the QP profile
13429: --Change for 2635440 - pass 'Q' as default value for OC if request_type is 'ASO'
13430: ----------------------------------------------------
13431: G_ROUNDING_OPTIONS := FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS');
13432: IF (l_debug = FND_API.G_TRUE) THEN
13433: QP_PREQ_GRP.engine_debug('Rounding profile value '|| G_ROUNDING_OPTIONS);
13434: END IF;
13435:
13436: /*--ASO is not passing request_type_code on control_rec, it is passed
13505: oe_debug_pub.SetDebugLevel(10);
13506: oe_debug_pub.Initialize;
13507: oe_debug_pub.debug_on;
13508: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13509: IF l_debug = FND_API.G_TRUE THEN
13510: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13511: END IF;
13512: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13513: ELSE
13508: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13509: IF l_debug = FND_API.G_TRUE THEN
13510: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13511: END IF;
13512: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13513: ELSE
13514: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13515: END IF;
13516: ELSE
13510: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13511: END IF;
13512: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13513: ELSE
13514: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13515: END IF;
13516: ELSE
13517: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13518: END IF;
13513: ELSE
13514: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13515: END IF;
13516: ELSE
13517: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13518: END IF;
13519:
13520: */
13521:
13527: QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq(l_return_status,
13528: l_return_status_text);
13529: x_return_status := l_return_status;
13530: x_return_status_text := l_return_status_text;
13531: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13532: RAISE E_DEBUG_ROUTINE_ERROR;
13533: END IF;
13534:
13535: END IF;
13535: END IF;
13536: */
13537:
13538: --GSA Check
13539: IF l_debug = FND_API.G_TRUE THEN
13540: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13541: END IF;
13542: G_GSA_INDICATOR := Check_GSA_Indicator;
13543: IF l_debug = FND_API.G_TRUE THEN
13539: IF l_debug = FND_API.G_TRUE THEN
13540: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13541: END IF;
13542: G_GSA_INDICATOR := Check_GSA_Indicator;
13543: IF l_debug = FND_API.G_TRUE THEN
13544: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13545: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '|| G_GSA_ENABLED_FLAG);
13546:
13547: END IF;
13548: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13549: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13550:
13551:
13552: IF l_debug = FND_API.G_TRUE THEN
13553: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13554: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13555: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13556:
13558: --===========END: Globals Initialization specific only to PL/SQL Engine=======
13559: END IF; --java engine is not installed
13560:
13561: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13562: IF l_debug = FND_API.G_TRUE THEN
13563: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13564: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: 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);
13573: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13574:
13575: /*
13576: --GSA Check
13577: IF l_debug = FND_API.G_TRUE THEN
13578: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13579: END IF;
13580: G_GSA_INDICATOR := Check_GSA_Indicator;
13581: IF l_debug = FND_API.G_TRUE THEN
13577: IF l_debug = FND_API.G_TRUE THEN
13578: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13579: END IF;
13580: G_GSA_INDICATOR := Check_GSA_Indicator;
13581: IF l_debug = FND_API.G_TRUE THEN
13582: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13583: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '||G_GSA_ENABLED_FLAG);
13584:
13585: END IF;
13586: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13587: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13588:
13589:
13590: IF l_debug = FND_API.G_TRUE THEN
13591: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13592: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13593: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13594:
13599: --to convert multiple events passed as string to a readable format
13600: --to remove the commas and single quotes in the pricing_event in ctrl rec
13601: IF instr(l_control_rec.pricing_event, ',') > 0
13602: THEN
13603: IF l_debug = FND_API.G_TRUE THEN
13604: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13605: END IF;
13606: --Changes for bug 2258525: Introduced local vairable l_pricing_event
13607: --instead of changing the control_rec
13615:
13616: --this is to make the cursor work for the last event
13617: l_pricing_event := l_pricing_event || ',';
13618: l_control_rec.pricing_event := l_pricing_event;
13619: IF l_debug = FND_API.G_TRUE THEN
13620: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13621: END IF;
13622: l_control_rec.GSA_DUP_CHECK_FLAG := G_NO;
13623: l_control_rec.temp_table_insert_flag :=
13640: --============END: l_control_rec needed by JAVA and PL/SQL Engine====
13641:
13642: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13643: --===========START: specific only to PL/SQL Engine=======
13644: IF l_debug = FND_API.G_TRUE THEN
13645: QP_PREQ_GRP.ENGINE_DEBUG('02 Java Engine not Installed ----------');
13646: END IF;
13647: -----------------------------------------------------------------
13648: --Need to set the global constants for the engine to see
13660: IF (G_NO_ADJ_PROCESSING = G_YES) AND (G_QP_INSTALL_STATUS = 'I') THEN -- Added for 3169430
13661: Identify_freegood_lines(l_control_rec.pricing_event
13662: , x_return_status, x_return_status_text);
13663:
13664: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13665: IF l_debug = FND_API.G_TRUE THEN
13666: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '
13667: || x_return_status_text);
13668: END IF;
13661: Identify_freegood_lines(l_control_rec.pricing_event
13662: , x_return_status, x_return_status_text);
13663:
13664: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13665: IF l_debug = FND_API.G_TRUE THEN
13666: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '
13667: || x_return_status_text);
13668: END IF;
13669: RAISE PRICE_REQUEST_EXC;
13673: l_control_rec
13674: , x_return_status_text
13675: , x_return_status);
13676:
13677: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13678:
13679: IF l_debug = FND_API.G_TRUE THEN
13680: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '|| x_return_status_text);
13681: END IF;
13675: , x_return_status);
13676:
13677: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13678:
13679: IF l_debug = FND_API.G_TRUE THEN
13680: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '|| x_return_status_text);
13681: END IF;
13682: RAISE PRICE_REQUEST_EXC;
13683: ELSIF X_RETURN_STATUS = 'BYPASS_PRICING'
13690:
13691: --added by yangli for Java Engine PUB 3086881
13692: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13693: --=======START: Specific only to PL/SQL Engine==================
13694: IF l_debug = FND_API.G_TRUE THEN
13695: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine not Installed ----------');
13696: END IF;
13697: --added by yangli for Java Engine PUB 3086881
13698: IF l_control_rec.calculate_flag IN
13703: BEGIN
13704: SELECT VALUE INTO l_old_dynamic_sampling_level
13705: FROM v$parameter
13706: WHERE name = 'optimizer_dynamic_sampling';
13707: IF l_debug = FND_API.G_TRUE THEN
13708: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13709: END IF;
13710: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13711: IF l_debug = FND_API.G_TRUE THEN
13707: IF l_debug = FND_API.G_TRUE THEN
13708: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13709: END IF;
13710: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13711: IF l_debug = FND_API.G_TRUE THEN
13712: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13713: END If;
13714: EXCEPTION
13715: WHEN OTHERS THEN
13712: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13713: END If;
13714: EXCEPTION
13715: WHEN OTHERS THEN
13716: IF l_debug = FND_API.G_TRUE THEN
13717: QP_PREQ_GRP.engine_debug('Error in looking up Dynamic sampling level '|| SQLERRM);
13718: QP_PREQ_GRP.engine_debug('Setting Dynamic Sampling level to 1');
13719: END IF;
13720: l_dynamic_sampling_level := 1;
13720: l_dynamic_sampling_level := 1;
13721: END;
13722:
13723: IF (l_dynamic_sampling_level IN (1) AND l_dynamic_sampling_level <> l_old_dynamic_sampling_level) THEN
13724: IF l_debug = FND_API.G_TRUE THEN
13725: QP_PREQ_GRP.ENGINE_DEBUG('Setting dynamic sampling level to '|| l_dynamic_sampling_level);
13726: END IF;
13727: BEGIN
13728: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13727: BEGIN
13728: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13729: EXCEPTION
13730: WHEN OTHERS THEN
13731: IF l_debug = FND_API.G_TRUE THEN
13732: QP_PREQ_GRP.engine_debug('Error in setting dynamic sampling level'|| SQLERRM);
13733: END IF;
13734: END;
13735: END IF;
13757: );
13758: END IF;
13759:
13760:
13761: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13762: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13763:
13764: IF l_debug = FND_API.G_TRUE THEN
13765: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13758: END IF;
13759:
13760:
13761: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13762: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13763:
13764: IF l_debug = FND_API.G_TRUE THEN
13765: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13766: END IF;
13760:
13761: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13762: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13763:
13764: IF l_debug = FND_API.G_TRUE THEN
13765: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13766: END IF;
13767: RAISE PRICE_REQUEST_EXC;
13768: END IF;
13766: END IF;
13767: RAISE PRICE_REQUEST_EXC;
13768: END IF;
13769:
13770: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13771: OPEN lcur1; LOOP
13772: FETCH lcur1 INTO lrec1;
13773: EXIT WHEN lcur1%NOTFOUND;
13774: IF l_debug = FND_API.G_TRUE THEN
13770: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13771: OPEN lcur1; LOOP
13772: FETCH lcur1 INTO lrec1;
13773: EXIT WHEN lcur1%NOTFOUND;
13774: IF l_debug = FND_API.G_TRUE THEN
13775: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
13776: ' list_line_id '|| lrec1.created_from_list_line_id ||
13777: ' line_detail_index '|| lrec1.line_detail_index ||
13778: ' pricess_sts '|| lrec1.process_status ||
13796: --rounding of list price will be taken care of in Calculate_price_pub
13797: Usage_pricing(l_control_rec.rounding_flag,
13798: x_return_status, x_return_status_text);
13799:
13800: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13801: , FND_API.G_RET_STS_UNEXP_ERROR)
13802: THEN
13803: IF l_debug = FND_API.G_TRUE THEN
13804: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13797: Usage_pricing(l_control_rec.rounding_flag,
13798: x_return_status, x_return_status_text);
13799:
13800: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13801: , FND_API.G_RET_STS_UNEXP_ERROR)
13802: THEN
13803: IF l_debug = FND_API.G_TRUE THEN
13804: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13805: || x_return_status_text);
13799:
13800: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13801: , FND_API.G_RET_STS_UNEXP_ERROR)
13802: THEN
13803: IF l_debug = FND_API.G_TRUE THEN
13804: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13805: || x_return_status_text);
13806: END IF;
13807: RAISE PRICE_REQUEST_EXC;
13806: END IF;
13807: RAISE PRICE_REQUEST_EXC;
13808: END IF;
13809: Update_Qualifier_Value(x_return_status, x_return_status_text);
13810: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13811: , FND_API.G_RET_STS_UNEXP_ERROR)
13812: THEN
13813: IF l_debug = FND_API.G_TRUE THEN
13814: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13807: RAISE PRICE_REQUEST_EXC;
13808: END IF;
13809: Update_Qualifier_Value(x_return_status, x_return_status_text);
13810: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13811: , FND_API.G_RET_STS_UNEXP_ERROR)
13812: THEN
13813: IF l_debug = FND_API.G_TRUE THEN
13814: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13815: || x_return_status_text);
13809: Update_Qualifier_Value(x_return_status, x_return_status_text);
13810: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13811: , FND_API.G_RET_STS_UNEXP_ERROR)
13812: THEN
13813: IF l_debug = FND_API.G_TRUE THEN
13814: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13815: || x_return_status_text);
13816: END IF;
13817: RAISE PRICE_REQUEST_EXC;
13820: END IF;
13821: IF (G_NO_ADJ_PROCESSING = G_YES) AND (G_QP_INSTALL_STATUS = 'I') THEN -- Added for 3169430
13822: QP_PREQ_PUB.process_prg(x_return_status, x_return_status_text);
13823:
13824: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13825: RAISE PRICE_REQUEST_EXC;
13826: END IF; --x_return_status
13827: END IF;
13828:
13838: Process_Adjustments(l_CONTROL_REC.PRICING_EVENT
13839: , x_return_status
13840: , x_return_status_text);
13841:
13842: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13843:
13844: IF l_debug = FND_API.G_TRUE THEN
13845: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Adjustments: '|| x_return_status_text);
13846: END IF;
13840: , x_return_status_text);
13841:
13842: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13843:
13844: IF l_debug = FND_API.G_TRUE THEN
13845: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Adjustments: '|| x_return_status_text);
13846: END IF;
13847: RAISE PRICE_REQUEST_EXC;
13848: END IF;
13860: Calculate_price(nvl(l_control_rec.rounding_flag, G_YES)
13861: , x_return_status
13862: , x_return_status_text);
13863:
13864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13865:
13866: IF l_debug = FND_API.G_TRUE THEN
13867: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13868: END IF;
13862: , x_return_status_text);
13863:
13864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13865:
13866: IF l_debug = FND_API.G_TRUE THEN
13867: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13868: END IF;
13869: RAISE PRICE_REQUEST_EXC;
13870: END IF;
13871:
13872: -- begin 2892848 instructed to add this
13873: Update_Unit_Price (x_return_status
13874: , x_return_status_text);
13875: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13876:
13877: IF l_debug = FND_API.G_TRUE THEN
13878: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Unit_Price: '|| x_return_status_text);
13879: END IF; -- end debug
13873: Update_Unit_Price (x_return_status
13874: , x_return_status_text);
13875: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13876:
13877: IF l_debug = FND_API.G_TRUE THEN
13878: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Unit_Price: '|| x_return_status_text);
13879: END IF; -- end debug
13880: RAISE PRICE_REQUEST_EXC;
13881: END IF;
13894:
13895: --before doing calculation we need to populate g_buyline_price_flag
13896: Populate_buy_line_price_flag(x_return_status, x_return_status_text);
13897:
13898: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13899: IF l_debug = FND_API.G_TRUE THEN
13900: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_buy_line_price_flag: '
13901: || x_return_status_text);
13902: END IF; --l_debug
13895: --before doing calculation we need to populate g_buyline_price_flag
13896: Populate_buy_line_price_flag(x_return_status, x_return_status_text);
13897:
13898: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13899: IF l_debug = FND_API.G_TRUE THEN
13900: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_buy_line_price_flag: '
13901: || x_return_status_text);
13902: END IF; --l_debug
13903: RAISE PRICE_REQUEST_EXC;
13904: END IF;
13905:
13906: Update_recurring_quantity(x_return_status, x_return_status_text);
13907:
13908: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13909: IF l_debug = FND_API.G_TRUE THEN
13910: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_recurring_quantity: '
13911: || x_return_status_text);
13912: END IF; --l_debug
13905:
13906: Update_recurring_quantity(x_return_status, x_return_status_text);
13907:
13908: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13909: IF l_debug = FND_API.G_TRUE THEN
13910: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_recurring_quantity: '
13911: || x_return_status_text);
13912: END IF; --l_debug
13913: RAISE PRICE_REQUEST_EXC;
13916: IF G_QP_INSTALL_STATUS = 'I' THEN -- Added for 3169430
13917: Process_Coupon_issue(l_control_rec.pricing_event,
13918: l_control_rec.simulation_flag,
13919: x_return_status, x_return_status_text);
13920: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13921: IF l_debug = FND_API.G_TRUE THEN
13922: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Coupon_issue: '
13923: || x_return_status_text);
13924: END IF; --debug
13917: Process_Coupon_issue(l_control_rec.pricing_event,
13918: l_control_rec.simulation_flag,
13919: x_return_status, x_return_status_text);
13920: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13921: IF l_debug = FND_API.G_TRUE THEN
13922: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Coupon_issue: '
13923: || x_return_status_text);
13924: END IF; --debug
13925: RAISE PRICE_REQUEST_EXC;
13940: -- Update_Child_Break_Lines(x_return_status,
13941: -- x_return_status_text);
13942:
13943:
13944: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13945:
13946: IF l_debug = FND_API.G_TRUE THEN
13947: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13948: END IF;
13942:
13943:
13944: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13945:
13946: IF l_debug = FND_API.G_TRUE THEN
13947: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13948: END IF;
13949: RAISE PRICE_REQUEST_EXC;
13950: END IF;
13949: RAISE PRICE_REQUEST_EXC;
13950: END IF;
13951: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13952: Cleanup_rltd_lines(x_return_status, x_return_status_text);
13953: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13954: IF l_debug = FND_API.G_TRUE THEN
13955: QP_PREQ_GRP.ENGINE_DEBUG('Exception Cleanup_rltd_lines: '|| x_return_status_text);
13956: END IF;
13957: RAISE PRICE_REQUEST_EXC;
13950: END IF;
13951: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13952: Cleanup_rltd_lines(x_return_status, x_return_status_text);
13953: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13954: IF l_debug = FND_API.G_TRUE THEN
13955: QP_PREQ_GRP.ENGINE_DEBUG('Exception Cleanup_rltd_lines: '|| x_return_status_text);
13956: END IF;
13957: RAISE PRICE_REQUEST_EXC;
13958: END IF;
13957: RAISE PRICE_REQUEST_EXC;
13958: END IF;
13959:
13960: Update_Adj_orderqty_cols(x_return_status, x_return_status_text);
13961: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13962: IF l_debug = FND_API.G_TRUE THEN
13963: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Adj_orderqty_cols: '
13964: || x_return_status_text);
13965: END IF; --debug
13958: END IF;
13959:
13960: Update_Adj_orderqty_cols(x_return_status, x_return_status_text);
13961: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13962: IF l_debug = FND_API.G_TRUE THEN
13963: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Adj_orderqty_cols: '
13964: || x_return_status_text);
13965: END IF; --debug
13966: RAISE PRICE_REQUEST_EXC;
13969: --to check if new order level adj are inserted when changed
13970: --lines are passed
13971: IF l_control_rec.full_pricing_call = G_NO
13972: THEN
13973: IF l_debug = FND_API.G_TRUE THEN
13974: QP_PREQ_GRP.engine_debug('Starting changed lines check');
13975: END IF;
13976: CHECK_ORDER_LINE_CHANGES(p_request_type_code =>
13977: G_REQUEST_TYPE_CODE,
13978: p_full_pricing_call =>
13979: l_control_rec.full_pricing_call,
13980: x_return_status => x_return_status,
13981: x_return_status_text => x_return_status_text);
13982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13983: IF l_debug = FND_API.G_TRUE THEN
13984: QP_PREQ_GRP.ENGINE_DEBUG('Exception CHECK_ORDER_LINE_CHANGES: '|| x_return_status_text);
13985: END IF;
13986: RAISE PRICE_REQUEST_EXC;
13979: l_control_rec.full_pricing_call,
13980: x_return_status => x_return_status,
13981: x_return_status_text => x_return_status_text);
13982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13983: IF l_debug = FND_API.G_TRUE THEN
13984: QP_PREQ_GRP.ENGINE_DEBUG('Exception CHECK_ORDER_LINE_CHANGES: '|| x_return_status_text);
13985: END IF;
13986: RAISE PRICE_REQUEST_EXC;
13987: END IF;
13987: END IF;
13988: END IF;
13989:
13990: -- Update_PRG_Process_status(x_return_status, x_return_status_text);
13991: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13992: IF l_debug = FND_API.G_TRUE THEN
13993: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_PRG_Process_status: '
13994: || x_return_status_text);
13995: END IF; --debug
13988: END IF;
13989:
13990: -- Update_PRG_Process_status(x_return_status, x_return_status_text);
13991: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13992: IF l_debug = FND_API.G_TRUE THEN
13993: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_PRG_Process_status: '
13994: || x_return_status_text);
13995: END IF; --debug
13996: RAISE PRICE_REQUEST_EXC;
14008: AND (applied_flag = G_YES OR updated_flag = G_YES)
14009: AND pricing_status_code = G_STATUS_UNCHANGED;
14010:
14011:
14012: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14013: THEN
14014: Populate_Output(x_return_status, x_return_status);
14015:
14016: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14012: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14013: THEN
14014: Populate_Output(x_return_status, x_return_status);
14015:
14016: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14017: THEN
14018: IF l_debug = FND_API.G_TRUE THEN
14019: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14020: END IF;
14014: Populate_Output(x_return_status, x_return_status);
14015:
14016: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14017: THEN
14018: IF l_debug = FND_API.G_TRUE THEN
14019: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14020: END IF;
14021: RAISE PRICE_REQUEST_EXC;
14022: END IF; --X_RETURN_STATUS
14021: RAISE PRICE_REQUEST_EXC;
14022: END IF; --X_RETURN_STATUS
14023: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14024:
14025: IF l_debug = FND_API.G_TRUE THEN
14026: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
14027:
14028: END IF;
14029: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14025: IF l_debug = FND_API.G_TRUE THEN
14026: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
14027:
14028: END IF;
14029: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14030: --this is for debug for rltd lines
14031: FOR cl IN (SELECT line_index,
14032: related_line_index,
14033: line_detail_index,
14044: qualifier_value
14045: FROM qp_npreq_rltd_lines_tmp
14046: WHERE pricing_status_code = G_STATUS_NEW)
14047: LOOP
14048: IF l_debug = FND_API.G_TRUE THEN
14049: QP_PREQ_GRP.engine_debug('related records with status N '
14050: ||' line_dtl_index '|| cl.line_detail_index
14051: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
14052: ||' line_index '|| cl.line_index
14066: END IF;
14067:
14068:
14069:
14070: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14071: OPEN lcur1; LOOP
14072: FETCH lcur1 INTO lrec1;
14073: EXIT WHEN lcur1%NOTFOUND;
14074: IF l_debug = FND_API.G_TRUE THEN
14070: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14071: OPEN lcur1; LOOP
14072: FETCH lcur1 INTO lrec1;
14073: EXIT WHEN lcur1%NOTFOUND;
14074: IF l_debug = FND_API.G_TRUE THEN
14075: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
14076: ' list_line_id '|| lrec1.created_from_list_line_id ||
14077: ' line_detail_index '|| lrec1.line_detail_index ||
14078: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code
14087: BEGIN
14088: Execute immediate 'alter session set optimizer_dynamic_sampling = '||l_old_dynamic_sampling_level;
14089: EXCEPTION
14090: WHEN OTHERS THEN
14091: IF l_debug = FND_API.G_TRUE THEN
14092: QP_PREQ_GRP.engine_debug('Error in resetting the dynamic sampling level to old value'|| SQLERRM);
14093: END IF;
14094: END;
14095: END IF;
14099: --=======END: Specific only to PL/SQL Engine==================
14100: --added by yangli for Java Engine PUB 3086881
14101: ELSE -- java engine is installed
14102: --=======START: Specific only to JAVA Engine==================
14103: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14104: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
14105: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
14106: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
14107: END IF;
14117: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = G_YES THEN
14118: --Preinsert Logic for OM call
14119: --to fetch out-of-phases modifiers and in-phase PRG modifiers
14120: --to fetch rltd information
14121: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14122: QP_PREQ_GRP.ENGINE_DEBUG('Before calling INT_TABLES_PREINSERT');
14123: END IF;
14124: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
14125: p_event_code => l_control_rec.pricing_event,
14124: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
14125: p_event_code => l_control_rec.pricing_event,
14126: x_return_status => l_return_status,
14127: x_return_status_text => l_status_Text);
14128: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14129: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
14130: END IF;
14131: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
14132: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
14127: x_return_status_text => l_status_Text);
14128: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14129: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
14130: END IF;
14131: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
14132: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
14133: RAISE E_ROUTINE_ERRORS;
14134: END IF;
14135: END IF;
14136: END IF;
14137:
14138: IF l_control_rec.temp_table_insert_flag = G_NO THEN
14139: l_request_id := QP_Price_Request_Context.GET_REQUEST_ID;
14140: IF l_debug = FND_API.G_TRUE THEN
14141: QP_PREQ_GRP.engine_debug('Request Id:'|| l_request_id);
14142: END IF;
14143: QP_JAVA_ENGINE.request_price(request_id => l_request_id,
14144: p_control_rec => l_control_rec,
14144: p_control_rec => l_control_rec,
14145: x_return_status => l_return_status,
14146: x_return_status_text => l_status_Text);
14147:
14148: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
14149: --l_status_text:= 'QP_JAVA_ENGINE.request_price failed for request id:'||l_request_id||l_status_text;
14150: IF l_debug = FND_API.G_TRUE THEN
14151: QP_PREQ_GRP.engine_debug(l_status_text);
14152: END IF; --Bug No 4033618
14146: x_return_status_text => l_status_Text);
14147:
14148: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
14149: --l_status_text:= 'QP_JAVA_ENGINE.request_price failed for request id:'||l_request_id||l_status_text;
14150: IF l_debug = FND_API.G_TRUE THEN
14151: QP_PREQ_GRP.engine_debug(l_status_text);
14152: END IF; --Bug No 4033618
14153: x_return_status := l_return_status;
14154: x_return_status_text := l_status_text;
14154: x_return_status_text := l_status_text;
14155: RAISE JAVA_ENGINE_PRICING_EXCEPTION;
14156: END IF;
14157: ELSE
14158: IF l_debug = FND_API.G_TRUE THEN
14159: QP_PREQ_GRP.engine_debug('Before calling QP_PREQ_GRP.PRICE_REQUEST.....');
14160: END IF;
14161: QP_PREQ_GRP.PRICE_REQUEST
14162: (p_line_tbl => p_line_tbl,
14176: x_related_lines_tbl => x_related_lines_tbl,
14177: x_return_status => x_return_status,
14178: x_return_status_text => x_return_status_text
14179: );
14180: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
14181: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
14182:
14183: IF l_debug = FND_API.G_TRUE THEN
14184: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
14177: x_return_status => x_return_status,
14178: x_return_status_text => x_return_status_text
14179: );
14180: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
14181: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
14182:
14183: IF l_debug = FND_API.G_TRUE THEN
14184: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
14185: END IF;
14179: );
14180: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
14181: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
14182:
14183: IF l_debug = FND_API.G_TRUE THEN
14184: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
14185: END IF;
14186: RAISE PRICE_REQUEST_EXC;
14187: END IF;
14195: -- and Populate_Price_Adj_Id logic
14196: -- from QP_CLEANUP_ADJUSTMENTS_PVT.Fetch_Adjustments
14197: --call cleanup of adj only for OM
14198:
14199: IF l_debug = FND_API.G_TRUE THEN
14200: QP_PREQ_GRP.engine_debug('deleting related lines');
14201: END IF;
14202: DELETE FROM qp_int_rltd_lines
14203: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14202: DELETE FROM qp_int_rltd_lines
14203: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14204: AND relationship_type_code = QP_PREQ_PUB.G_PBH_LINE
14205: AND pricing_status_text = 'INSERTED FOR CALCULATION';
14206: IF l_debug = FND_API.G_TRUE THEN
14207: QP_PREQ_GRP.engine_debug('deleted related lines '|| SQL%ROWCOUNT);
14208: END IF;
14209:
14210: IF l_control_rec.calculate_flag IN
14212: THEN
14213: l_cleanup_flag := QP_PREQ_PUB.G_YES;
14214: --added for bug 3399997 by yangli
14215: Update_Line_Status(x_return_status, x_return_status_text);
14216: IF x_return_status = FND_API.G_RET_STS_ERROR
14217: THEN
14218: RAISE Pricing_Exception;
14219: END IF;
14220: --added for bug 3399997 by yangli
14218: RAISE Pricing_Exception;
14219: END IF;
14220: --added for bug 3399997 by yangli
14221:
14222: IF l_debug = FND_API.G_TRUE THEN
14223: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments');
14224: END IF;
14225: QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments('ONTVIEW',
14226: G_REQUEST_TYPE_CODE,
14226: G_REQUEST_TYPE_CODE,
14227: l_cleanup_flag,
14228: x_return_status,
14229: x_return_status_text);
14230: IF x_return_status = FND_API.G_RET_STS_ERROR
14231: THEN
14232: RAISE Pricing_Exception;
14233: END IF;
14234: --moved down per bug3238607
14231: THEN
14232: RAISE Pricing_Exception;
14233: END IF;
14234: --moved down per bug3238607
14235: /*IF l_debug = FND_API.G_TRUE THEN
14236: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14237: END IF;
14238:
14239: --populate the price adjustment id from sequence for rec with process_code = N
14238:
14239: --populate the price adjustment id from sequence for rec with process_code = N
14240: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status,x_return_status_text);
14241:
14242: IF x_return_status = FND_API.G_RET_STS_ERROR
14243: THEN
14244: Raise Pricing_Exception;
14245: END IF;*/
14246: --moved down per bug3238607
14252: l_control_rec.simulation_flag = G_NO THEN
14253: IF l_control_rec.calculate_flag IN
14254: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14255: THEN
14256: IF l_debug = FND_API.G_TRUE THEN
14257: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14258: END IF;
14259:
14260: --populate the price adjustment id from sequence for rec with process_code = N
14259:
14260: --populate the price adjustment id from sequence for rec with process_code = N
14261: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status, x_return_status_text);
14262:
14263: IF x_return_status = FND_API.G_RET_STS_ERROR
14264: THEN
14265: RAISE Pricing_Exception;
14266: END IF;
14267: END IF;
14266: END IF;
14267: END IF;
14268: END IF;
14269:
14270: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14271: THEN
14272: Populate_Output_INT(x_return_status, x_return_status);
14273:
14274: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14270: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14271: THEN
14272: Populate_Output_INT(x_return_status, x_return_status);
14273:
14274: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14275: THEN
14276: IF l_debug = FND_API.G_TRUE THEN
14277: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14278: END IF;
14272: Populate_Output_INT(x_return_status, x_return_status);
14273:
14274: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14275: THEN
14276: IF l_debug = FND_API.G_TRUE THEN
14277: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14278: END IF;
14279: RAISE PRICE_REQUEST_EXC;
14280: END IF; --X_RETURN_STATUS
14296: ------------------------------------------------------------
14297: --POPULATE OUT PROCESS CODE IN PRICING_STATUS_CODE
14298: --ONLY UPDATE THE RECORDS INPUT BY USER WHCH WERE USED IN CALCULATION
14299: ------------------------------------------------------------
14300: IF l_debug = FND_API.G_TRUE THEN
14301: QP_PREQ_GRP.ENGINE_DEBUG('Java Engine not Installed ----------');
14302: END IF;
14303: --added by yangli for Java Engine PUB 3086881
14304:
14301: QP_PREQ_GRP.ENGINE_DEBUG('Java Engine not Installed ----------');
14302: END IF;
14303: --added by yangli for Java Engine PUB 3086881
14304:
14305: IF l_debug = FND_API.G_TRUE THEN
14306: QP_PREQ_GRP.ENGINE_DEBUG('Update Process code to Pricing Code ');
14307: END IF;
14308: /*
14309: indxno index used Ravi
14328: x_line_detail_attr_tbl => x_line_detail_attr_tbl,
14329: x_related_lines_tbl => x_related_lines_tbl);
14330:
14331:
14332: IF l_debug = FND_API.G_TRUE THEN
14333: QP_PREQ_GRP.ENGINE_DEBUG('Line Detail Count : ' || x_line_detail_tbl.COUNT);
14334:
14335: END IF;
14336: --*******************************************************************
14335: END IF;
14336: --*******************************************************************
14337: --DEBUG
14338:
14339: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14340: j := x_line_tbl.FIRST;
14341: WHILE j IS NOT NULL
14342: LOOP
14343: IF l_debug = FND_API.G_TRUE THEN
14339: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14340: j := x_line_tbl.FIRST;
14341: WHILE j IS NOT NULL
14342: LOOP
14343: IF l_debug = FND_API.G_TRUE THEN
14344: QP_PREQ_GRP.ENGINE_DEBUG('PRICE LINE : '||
14345: x_line_tbl(j).line_index ||
14346: ' list price '|| x_line_tbl(j).unit_price ||
14347: ' adj price '|| x_line_tbl(j).adjusted_unit_price ||
14353: i := x_line_detail_tbl.FIRST;
14354: WHILE i IS NOT NULL
14355: LOOP
14356: IF x_line_detail_tbl(i).line_index = x_line_tbl(j).line_index THEN
14357: IF l_debug = FND_API.G_TRUE THEN
14358: QP_PREQ_GRP.ENGINE_DEBUG('PRICE ADJUSTMENTS: '
14359: ||' mod_id '|| x_line_detail_tbl(i).list_line_id
14360: ||' dtl_index '|| x_line_detail_tbl(i).line_detail_index
14361: ||' adj amount '|| x_line_detail_tbl(i).adjustment_amount
14368: END IF;
14369: END IF;
14370: i := x_line_detail_tbl.NEXT(i);
14371: END LOOP;
14372: IF l_debug = FND_API.G_TRUE THEN
14373: QP_PREQ_GRP.ENGINE_DEBUG('---------------------------------------------------');
14374: END IF;
14375: j := x_line_tbl.NEXT(j);
14376: END LOOP;
14375: j := x_line_tbl.NEXT(j);
14376: END LOOP;
14377:
14378: --fix for bug 2515762 automatic overrideable break debug for rltd info
14379: IF l_debug = FND_API.G_TRUE THEN
14380: QP_PREQ_GRP.ENGINE_DEBUG('------------Rltd Info----------------');
14381: QP_PREQ_GRP.ENGINE_DEBUG('Rltd Info count '|| x_related_lines_tbl.COUNT);
14382: END IF;
14383: j := x_related_lines_tbl.FIRST;
14382: END IF;
14383: j := x_related_lines_tbl.FIRST;
14384: WHILE j IS NOT NULL
14385: LOOP
14386: IF l_debug = FND_API.G_TRUE THEN
14387: QP_PREQ_GRP.ENGINE_DEBUG('line_index '
14388: || x_related_lines_tbl(j).line_index ||' related_line_index '
14389: || x_related_lines_tbl(j).related_line_index ||' dtl_index '
14390: || x_related_lines_tbl(j).line_detail_index ||' rltd_dtl_index '
14393: END IF;
14394: j := x_related_lines_tbl.NEXT(j);
14395: END LOOP;
14396:
14397: END IF; --IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14398: --*******************************************************************
14399: END IF; --temp_table_insert_flag = G_YES and check_cust_view_flag = G_NO
14400:
14401:
14414: l_return_status_text
14415: );
14416: x_return_status := l_return_status;
14417: x_return_status_text := l_return_status_text;
14418: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
14419: RAISE E_DEBUG_ROUTINE_ERROR;
14420: END IF;
14421: END IF;
14422:
14419: RAISE E_DEBUG_ROUTINE_ERROR;
14420: END IF;
14421: END IF;
14422:
14423: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
14424: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS';
14425:
14426: l_pricing_end_time := dbms_utility.get_time;
14427:
14433: WHERE v$mystat.statistic# = v$statname.statistic#
14434: AND v$statname.name = 'redo size';
14435: EXCEPTION
14436: WHEN OTHERS THEN
14437: IF l_debug = FND_API.G_TRUE THEN
14438: QP_PREQ_GRP.engine_debug('Error in looking up redo end in PUB '|| SQLERRM);
14439: END IF;
14440: END;
14441: END IF;
14442:
14443: l_time_difference := (l_pricing_end_time - l_pricing_start_time) / 100 ;
14444: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
14445:
14446: IF l_debug = FND_API.G_TRUE THEN
14447: QP_PREQ_GRP.engine_debug('Total time taken in PUB Pkg: '|| l_time_difference);
14448: QP_PREQ_GRP.engine_debug('redo log in PUB: '|| l_redo_difference);
14449:
14450: END IF;
14469:
14470: EXCEPTION
14471:
14472: WHEN OTHERS THEN
14473: IF l_debug = FND_API.G_TRUE THEN
14474: QP_PREQ_GRP.engine_debug('Failed to get time statistics in QP_PREQ_PUB');
14475: END IF;
14476: END;
14477: END IF;
14474: QP_PREQ_GRP.engine_debug('Failed to get time statistics in QP_PREQ_PUB');
14475: END IF;
14476: END;
14477: END IF;
14478: IF l_debug = FND_API.G_TRUE THEN
14479: QP_PREQ_GRP.ENGINE_DEBUG('End Price Request');
14480: qp_debug_util.print_support_csv('END');
14481: END IF;
14482: --============END: Post-pricing process needed by JAVA and PL/SQL Engine======
14488: qp_debug_util.tflush;
14489:
14490: EXCEPTION
14491: WHEN E_BYPASS_PRICING THEN
14492: IF l_debug = FND_API.G_TRUE THEN
14493: QP_PREQ_GRP.ENGINE_DEBUG('Bypassed Pricing Engine');
14494: END IF;
14495: x_return_status := FND_API.G_RET_STS_SUCCESS;
14496: --to write temp table data into debug tables
14491: WHEN E_BYPASS_PRICING THEN
14492: IF l_debug = FND_API.G_TRUE THEN
14493: QP_PREQ_GRP.ENGINE_DEBUG('Bypassed Pricing Engine');
14494: END IF;
14495: x_return_status := FND_API.G_RET_STS_SUCCESS;
14496: --to write temp table data into debug tables
14497: IF (G_QP_DEBUG = G_YES) OR
14498: (G_QP_DEBUG = G_DONT_WRITE_TO_DEBUG) THEN -- If Debug is on
14499: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14499: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14500: l_return_status,
14501: l_return_status_text
14502: );
14503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14504: IF l_debug = FND_API.G_TRUE THEN
14505: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14506: END IF;
14507: END IF;
14500: l_return_status,
14501: l_return_status_text
14502: );
14503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14504: IF l_debug = FND_API.G_TRUE THEN
14505: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14506: END IF;
14507: END IF;
14508: END IF;
14507: END IF;
14508: END IF;
14509: --added by yangli for Java Engine PUB 3086881
14510: WHEN PRICING_EXCEPTION THEN
14511: x_return_status := FND_API.G_RET_STS_ERROR;
14512: IF l_debug = FND_API.G_TRUE THEN
14513: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14514: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14515: END IF;
14508: END IF;
14509: --added by yangli for Java Engine PUB 3086881
14510: WHEN PRICING_EXCEPTION THEN
14511: x_return_status := FND_API.G_RET_STS_ERROR;
14512: IF l_debug = FND_API.G_TRUE THEN
14513: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14514: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14515: END IF;
14516: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14513: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14514: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14515: END IF;
14516: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14517: x_return_status := FND_API.G_RET_STS_ERROR;
14518: IF l_debug = FND_API.G_TRUE THEN
14519: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14520: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14521: END IF;
14514: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14515: END IF;
14516: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14517: x_return_status := FND_API.G_RET_STS_ERROR;
14518: IF l_debug = FND_API.G_TRUE THEN
14519: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14520: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14521: END IF;
14522: --added by yangli for Java Engine PUB 3086881
14521: END IF;
14522: --added by yangli for Java Engine PUB 3086881
14523:
14524: WHEN PRICE_REQUEST_EXC THEN
14525: IF l_debug = FND_API.G_TRUE THEN
14526: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14527: END IF;
14528: NULL;
14529: x_return_status := FND_API.G_RET_STS_ERROR;
14525: IF l_debug = FND_API.G_TRUE THEN
14526: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14527: END IF;
14528: NULL;
14529: x_return_status := FND_API.G_RET_STS_ERROR;
14530: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14531: --to write temp table data into debug tables
14532: IF (G_QP_DEBUG = G_YES) OR
14533: (G_QP_DEBUG = G_DONT_WRITE_TO_DEBUG) THEN -- If Debug is on
14534: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14535: l_return_status,
14536: l_return_status_text
14537: );
14538: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14539: IF l_debug = FND_API.G_TRUE THEN
14540: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14541: END IF;
14542: END IF;
14535: l_return_status,
14536: l_return_status_text
14537: );
14538: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14539: IF l_debug = FND_API.G_TRUE THEN
14540: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14541: END IF;
14542: END IF;
14543: END IF;
14541: END IF;
14542: END IF;
14543: END IF;
14544: WHEN E_DEBUG_ROUTINE_ERROR THEN
14545: IF l_debug = FND_API.G_TRUE THEN
14546: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14547: END IF;
14548: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14549: IF l_debug = FND_API.G_TRUE THEN
14545: IF l_debug = FND_API.G_TRUE THEN
14546: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14547: END IF;
14548: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14549: IF l_debug = FND_API.G_TRUE THEN
14550: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14551: END IF;
14552: x_return_status := FND_API.G_RET_STS_ERROR;
14553: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14548: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14549: IF l_debug = FND_API.G_TRUE THEN
14550: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14551: END IF;
14552: x_return_status := FND_API.G_RET_STS_ERROR;
14553: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14554: WHEN OTHERS THEN
14555: IF l_debug = FND_API.G_TRUE THEN
14556: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14551: END IF;
14552: x_return_status := FND_API.G_RET_STS_ERROR;
14553: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14554: WHEN OTHERS THEN
14555: IF l_debug = FND_API.G_TRUE THEN
14556: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14557: END IF;
14558: x_return_status := FND_API.G_RET_STS_ERROR;
14559: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14554: WHEN OTHERS THEN
14555: IF l_debug = FND_API.G_TRUE THEN
14556: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14557: END IF;
14558: x_return_status := FND_API.G_RET_STS_ERROR;
14559: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14560: --to write temp table data into debug tables
14561: IF (G_QP_DEBUG = G_YES) OR
14562: (G_QP_DEBUG = G_DONT_WRITE_TO_DEBUG) THEN -- If Debug is on
14563: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
14564: l_return_status,
14565: l_return_status_text
14566: );
14567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14568: IF l_debug = FND_API.G_TRUE THEN
14569: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14570: END IF;
14571: END IF;
14564: l_return_status,
14565: l_return_status_text
14566: );
14567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14568: IF l_debug = FND_API.G_TRUE THEN
14569: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14570: END IF;
14571: END IF;
14572: END IF;
14770: x_return_status_text => x_return_status_text
14771: );
14772:
14773: /*
14774: IF l_return_status IN (FND_API.G_RET_STS_ERROR
14775: ,FND_API.G_RET_STS_UNEXP_ERROR)
14776: THEN
14777:
14778: RAISE PRICE_REQUEST_EXC;
14771: );
14772:
14773: /*
14774: IF l_return_status IN (FND_API.G_RET_STS_ERROR
14775: ,FND_API.G_RET_STS_UNEXP_ERROR)
14776: THEN
14777:
14778: RAISE PRICE_REQUEST_EXC;
14779: END IF;
14782:
14783:
14784: EXCEPTION
14785: WHEN PRICE_REQUEST_EXC THEN
14786: IF l_debug = FND_API.G_TRUE THEN
14787: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14788: END IF;
14789: NULL;
14790: -- x_return_status := FND_API.G_RET_STS_ERROR;
14786: IF l_debug = FND_API.G_TRUE THEN
14787: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14788: END IF;
14789: NULL;
14790: -- x_return_status := FND_API.G_RET_STS_ERROR;
14791: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14792: WHEN OTHERS THEN
14793: IF l_debug = FND_API.G_TRUE THEN
14794: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14789: NULL;
14790: -- x_return_status := FND_API.G_RET_STS_ERROR;
14791: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14792: WHEN OTHERS THEN
14793: IF l_debug = FND_API.G_TRUE THEN
14794: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14795: END IF;
14796: x_return_status := FND_API.G_RET_STS_ERROR;
14797: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14792: WHEN OTHERS THEN
14793: IF l_debug = FND_API.G_TRUE THEN
14794: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14795: END IF;
14796: x_return_status := FND_API.G_RET_STS_ERROR;
14797: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14798:
14799: END PRICE_REQUEST;
14800:
14812:
14813: l_routine VARCHAR2(100) := 'Routine :QP_PREQ_PUB.get_price_for_line ';
14814: BEGIN
14815:
14816: IF l_debug = FND_API.G_TRUE THEN
14817: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14818: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14819: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14820: END IF;
14820: END IF;
14821:
14822: --added by yangli for java engine
14823: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
14824: IF l_debug = FND_API.G_TRUE THEN
14825: QP_PREQ_GRP.ENGINE_DEBUG('java engine is not running');
14826: END IF;
14827: IF p_line_index IS NOT NULL THEN
14828: SELECT line_unit_price,
14846: x_pricing_status_text
14847: FROM QP_NPREQ_LINES_TMP
14848: WHERE line_id = p_line_id;
14849: ELSE
14850: x_return_status := FND_API.G_RET_STS_ERROR;
14851: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14852: END IF;
14853: --added by yangli for java engine
14854: ELSE
14851: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14852: END IF;
14853: --added by yangli for java engine
14854: ELSE
14855: IF l_debug = FND_API.G_TRUE THEN
14856: QP_PREQ_GRP.ENGINE_DEBUG('java engine running');
14857: END IF;
14858: IF p_line_index IS NOT NULL THEN
14859: SELECT line_unit_price,
14877: x_pricing_status_text
14878: FROM QP_INT_LINES
14879: WHERE line_id = p_line_id;
14880: ELSE
14881: x_return_status := FND_API.G_RET_STS_ERROR;
14882: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14883: END IF;
14884: END IF;
14885:
14882: x_pricing_status_text := 'Must pass either p_line_index or p_line_id while calling ' || l_routine;
14883: END IF;
14884: END IF;
14885:
14886: IF l_debug = FND_API.G_TRUE THEN
14887: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14888: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14889: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14890: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14890: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14891: END IF;
14892:
14893: 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
14894: x_return_status := FND_API.G_RET_STS_SUCCESS;
14895: ELSE
14896: x_return_status := FND_API.G_RET_STS_ERROR;
14897: END IF;
14898:
14892:
14893: 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
14894: x_return_status := FND_API.G_RET_STS_SUCCESS;
14895: ELSE
14896: x_return_status := FND_API.G_RET_STS_ERROR;
14897: END IF;
14898:
14899: EXCEPTION
14900:
14898:
14899: EXCEPTION
14900:
14901: WHEN NO_DATA_FOUND THEN
14902: IF l_debug = FND_API.G_TRUE THEN
14903: QP_PREQ_GRP.ENGINE_DEBUG('no_data_found Exception in : ' || l_routine || ' ' || SQLERRM);
14904: END IF;
14905: x_return_status := FND_API.G_RET_STS_ERROR;
14906: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14901: WHEN NO_DATA_FOUND THEN
14902: IF l_debug = FND_API.G_TRUE THEN
14903: QP_PREQ_GRP.ENGINE_DEBUG('no_data_found Exception in : ' || l_routine || ' ' || SQLERRM);
14904: END IF;
14905: x_return_status := FND_API.G_RET_STS_ERROR;
14906: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14907:
14908: WHEN OTHERS THEN
14909: IF l_debug = FND_API.G_TRUE THEN
14905: x_return_status := FND_API.G_RET_STS_ERROR;
14906: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14907:
14908: WHEN OTHERS THEN
14909: IF l_debug = FND_API.G_TRUE THEN
14910: QP_PREQ_GRP.ENGINE_DEBUG('Others Exception in : ' || l_routine || ' ' || SQLERRM);
14911: END IF;
14912: x_return_status := FND_API.G_RET_STS_ERROR;
14913: x_pricing_status_text := 'Others Exception in : ' || l_routine || ' ' || SQLERRM;
14908: WHEN OTHERS THEN
14909: IF l_debug = FND_API.G_TRUE THEN
14910: QP_PREQ_GRP.ENGINE_DEBUG('Others Exception in : ' || l_routine || ' ' || SQLERRM);
14911: END IF;
14912: x_return_status := FND_API.G_RET_STS_ERROR;
14913: x_pricing_status_text := 'Others Exception in : ' || l_routine || ' ' || SQLERRM;
14914: END get_price_for_line;
14915:
14916: