[Home] [Help]
19:
20: G_LIMITS_INSTALLED CONSTANT VARCHAR2(1) := FND_PROFILE.VALUE('QP_LIMITS_INSTALLED');
21:
22: --prg processing pl/sql tbl
23: G_PRG_UNCH_CALC_PRICE_TBL QP_PREQ_GRP.NUMBER_TYPE;
24: G_PRG_UNCH_LINE_ID_TBL QP_PREQ_GRP.NUMBER_TYPE;
25: G_PRG_UNCH_LINE_IND_TBL QP_PREQ_GRP.NUMBER_TYPE;
26: G_prg_unch_new_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
27: G_prg_unch_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
20: G_LIMITS_INSTALLED CONSTANT VARCHAR2(1) := FND_PROFILE.VALUE('QP_LIMITS_INSTALLED');
21:
22: --prg processing pl/sql tbl
23: G_PRG_UNCH_CALC_PRICE_TBL QP_PREQ_GRP.NUMBER_TYPE;
24: G_PRG_UNCH_LINE_ID_TBL QP_PREQ_GRP.NUMBER_TYPE;
25: G_PRG_UNCH_LINE_IND_TBL QP_PREQ_GRP.NUMBER_TYPE;
26: G_prg_unch_new_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
27: G_prg_unch_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
28: G_prg_unch_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
21:
22: --prg processing pl/sql tbl
23: G_PRG_UNCH_CALC_PRICE_TBL QP_PREQ_GRP.NUMBER_TYPE;
24: G_PRG_UNCH_LINE_ID_TBL QP_PREQ_GRP.NUMBER_TYPE;
25: G_PRG_UNCH_LINE_IND_TBL QP_PREQ_GRP.NUMBER_TYPE;
26: G_prg_unch_new_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
27: G_prg_unch_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
28: G_prg_unch_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
29:
22: --prg processing pl/sql tbl
23: G_PRG_UNCH_CALC_PRICE_TBL QP_PREQ_GRP.NUMBER_TYPE;
24: G_PRG_UNCH_LINE_ID_TBL QP_PREQ_GRP.NUMBER_TYPE;
25: G_PRG_UNCH_LINE_IND_TBL QP_PREQ_GRP.NUMBER_TYPE;
26: G_prg_unch_new_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
27: G_prg_unch_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
28: G_prg_unch_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
29:
30: G_ldet_plsql_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
23: G_PRG_UNCH_CALC_PRICE_TBL QP_PREQ_GRP.NUMBER_TYPE;
24: G_PRG_UNCH_LINE_ID_TBL QP_PREQ_GRP.NUMBER_TYPE;
25: G_PRG_UNCH_LINE_IND_TBL QP_PREQ_GRP.NUMBER_TYPE;
26: G_prg_unch_new_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
27: G_prg_unch_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
28: G_prg_unch_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
29:
30: G_ldet_plsql_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
31: G_BACK_CALCULATION_CODE VARCHAR2(30);
24: G_PRG_UNCH_LINE_ID_TBL QP_PREQ_GRP.NUMBER_TYPE;
25: G_PRG_UNCH_LINE_IND_TBL QP_PREQ_GRP.NUMBER_TYPE;
26: G_prg_unch_new_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
27: G_prg_unch_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
28: G_prg_unch_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
29:
30: G_ldet_plsql_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
31: G_BACK_CALCULATION_CODE VARCHAR2(30);
32:
26: G_prg_unch_new_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
27: G_prg_unch_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
28: G_prg_unch_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
29:
30: G_ldet_plsql_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
31: G_BACK_CALCULATION_CODE VARCHAR2(30);
32:
33: G_NO_ADJ_PROCESSING VARCHAR2(1); --3169430
34: G_QP_INSTALL_STATUS VARCHAR2(1) := QP_UTIL.get_qp_status; --3169430
72: BEGIN
73: RETURN G_Version;
74: END Get_Version;
75:
76: PROCEDURE INITIALIZE_CONSTANTS(p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE
77: , x_return_status_text OUT NOCOPY VARCHAR2
78: , x_return_status OUT NOCOPY VARCHAR2) IS
79: /*
80: indxno index used
150: E_BYPASS_PRICING EXCEPTION;
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;
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:
160:
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
183: OPEN l_init_pricelist_phase_cur;
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
198:
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);
227: FETCH l_check_pricing_phase_exists INTO l_pricing_phase, l_freeze_override_flag;
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;
245: OPEN l_CURRENCY_CODE_CUR;
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'
268: --This is to avoid any more order level adjustments applied
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
285: UPDATE qp_npreq_line_attrs_tmp attr SET attr.list_header_id =
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);
297:
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);
297:
298: END IF;
302: IF p_control_rec.calculate_flag = G_CALCULATE_ONLY
303: AND nvl(p_control_rec.rounding_flag, G_YES) IN ('Q', 'U', G_YES, 'P') --[prarasto:Post Round] Added check to
304: --update rounding factor for Post Rounding
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
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
320: IF l_debug = FND_API.G_TRUE THEN
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');
325: IF l_source_qty_flag = G_YES
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: /*
332: indxno index used
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
402: WHEN OTHERS THEN
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;
408: END;
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');
418: IF l_source_amt_flag = G_YES
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
425: */
460: , LINE_TYPE_CODE
461: , NULL
462: , NULL
463: , G_NO
464: , QP_PREQ_GRP.G_LIST_NOT_APPLIED
465: , G_STATUS_UNCHANGED
466: , NULL
467: , NULL
468: , G_YES
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
493: WHEN OTHERS THEN
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
517: IF l_order_header_id = 0 THEN
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
517: IF l_order_header_id = 0 THEN
518: QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE := G_REQUEST_TYPE_CODE || '-' || l_missing_header;
519: ELSE
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
517: IF l_order_header_id = 0 THEN
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;
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
517: IF l_order_header_id = 0 THEN
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
516: QP_PREQ_GRP.G_LINE_ID := null; -- 5706129, accum range break
517: IF l_order_header_id = 0 THEN
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;
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
527: --this is not an error may be the summary line was not passed
524: END IF;
525: EXCEPTION
526: WHEN OTHERS THEN
527: --this is not an error may be the summary line was not passed
528: QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE := G_REQUEST_TYPE_CODE || '-' || l_missing_header;
529: END;
530: --END IF;--G_LIMITS_INSTALLED
531:
532: IF G_LIMITS_INSTALLED = G_YES THEN
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
538: SELECT G_YES INTO l_null_price_req_code
543:
544: IF l_null_price_req_code = G_YES THEN
545: UPDATE qp_npreq_lines_tmp SET
546: price_request_code = decode(line_type_code,
547: G_ORDER_LEVEL, QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE
548: , G_LINE_LEVEL, QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE || '-' || nvl(line_id, qp_limit_price_request_code_s.NEXTVAL))
549: WHERE price_request_code IS NULL
550: AND price_flag IN (G_YES, G_PHASE);
551: END IF; --l_null_price_req_code
544: IF l_null_price_req_code = G_YES THEN
545: UPDATE qp_npreq_lines_tmp SET
546: price_request_code = decode(line_type_code,
547: G_ORDER_LEVEL, QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE
548: , G_LINE_LEVEL, QP_PREQ_GRP.G_ORDER_PRICE_REQUEST_CODE || '-' || nvl(line_id, qp_limit_price_request_code_s.NEXTVAL))
549: WHERE price_request_code IS NULL
550: AND price_flag IN (G_YES, G_PHASE);
551: END IF; --l_null_price_req_code
552: EXCEPTION
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;
560: END IF; --G_LIMITS_INSTALLED
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
568: WHEN E_CURRENCY_CODE_IS_NULL THEN
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';
574: WHEN E_INVALID_CONTROL_RECORD THEN
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;
582: x_return_status_text := l_routine ||' Invalid phase sequence for Price List phase, Check setup data';
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';
588: x_return_status_text := l_routine ||' Pricing Bypassed';
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;
598: END INITIALIZE_CONSTANTS;
610: --which is a number and can go beyond the binary integer bounds
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
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;
620: IF l_debug = FND_API.G_TRUE THEN
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;
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
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
625: l_line_index := QP_PREQ_GRP.G_service_line_ind_tbl(i);
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
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);
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
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:
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
631: (select line.line_index, ldet.line_detail_index,
637: and line.price_flag in (G_YES, G_PHASE)
638: and line.line_type_code = G_LINE_LEVEL
639: and ldet.line_index = line.line_index
640: and ldet.pricing_status_code in
641: (QP_PREQ_GRP.G_STATUS_NEW, G_STATUS_UNCHANGED)
642: and ldet.applied_flag = G_YES
643: and nvl(ldet.operand_calculation_code,
644: QP_PREQ_GRP.G_LUMPSUM_DISCOUNT) = QP_PREQ_GRP.G_LUMPSUM_DISCOUNT
645: and ldet.created_from_list_line_type in
640: and ldet.pricing_status_code in
641: (QP_PREQ_GRP.G_STATUS_NEW, G_STATUS_UNCHANGED)
642: and ldet.applied_flag = G_YES
643: and nvl(ldet.operand_calculation_code,
644: QP_PREQ_GRP.G_LUMPSUM_DISCOUNT) = QP_PREQ_GRP.G_LUMPSUM_DISCOUNT
645: and ldet.created_from_list_line_type 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))
644: QP_PREQ_GRP.G_LUMPSUM_DISCOUNT) = QP_PREQ_GRP.G_LUMPSUM_DISCOUNT
645: and ldet.created_from_list_line_type 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
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);
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 '
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
664: 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
664: END IF;--l_debug
665:
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
664: END IF;--l_debug
665:
666: --for linegroup modifiers, need to evaluate group lumpsum qty
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
664: END IF;--l_debug
665:
666: --for linegroup modifiers, need to evaluate group lumpsum qty
667: IF cl.modifier_level_code = QP_PREQ_GRP.G_LINE_GROUP
663: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl
664: END IF;--l_debug
665:
666: --for linegroup modifiers, need to evaluate group lumpsum qty
667: IF cl.modifier_level_code = QP_PREQ_GRP.G_LINE_GROUP
668: THEN
669: IF l_lumpsum_qty.exists(cl.created_from_list_line_id) THEN
670: QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index) :=
671: l_lumpsum_qty(cl.created_from_list_line_id);
666: --for linegroup modifiers, need to evaluate group lumpsum qty
667: IF cl.modifier_level_code = QP_PREQ_GRP.G_LINE_GROUP
668: THEN
669: IF l_lumpsum_qty.exists(cl.created_from_list_line_id) THEN
670: QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index) :=
671: l_lumpsum_qty(cl.created_from_list_line_id);
672: ELSE--new list_line_id
673: BEGIN
674: --determine the volume attribute on the linegrp modifier
675: select attribute
676: into l_lgrp_vol_attr
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);
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
686: When OTHERS then
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
693: l_lumpsum_qty(cl.created_from_list_line_id) := 0;
703: where ldet.created_from_list_line_id = cl.created_from_list_line_id
704: and ldet.pricing_status_code = G_STATUS_NEW
705: and ldet.applied_flag = G_YES
706: and line.line_index = ldet.line_index
707: and lattr.context = QP_PREQ_GRP.G_PRIC_VOLUME_CONTEXT
708: and lattr.attribute = l_lgrp_vol_attr
709: and lattr.line_index = line.line_index
710: and lattr.line_detail_index is null)
711: loop
708: and lattr.attribute = l_lgrp_vol_attr
709: and lattr.line_index = line.line_index
710: and lattr.line_detail_index is null)
711: loop
712: IF QP_PREQ_GRP.G_service_line_ind_tbl.exists(cl1.line_index) THEN
713: --this is a service line linegroup lumpsum
714: l_lumpsum_qty(cl.created_from_list_line_id) :=
715: l_lumpsum_qty(cl.created_from_list_line_id) +
716: cl1.parent_quantity * cl1.value_from;
718: --this is a non-service line linegroup lumpsum
719: l_lumpsum_qty(cl.created_from_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
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
729: ||' parent_qty '||cl1.parent_quantity
734: end loop; --cl1
735: IF l_lgrp_vol_attr = G_LINE_AMT_ATTRIBUTE THEN
736: G_Service_pbh_lg_amt_qty(cl.line_detail_index) :=
737: l_lumpsum_qty(cl.created_from_list_line_id)/cl.unit_price;
738: QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index) :=
739: l_lumpsum_qty(cl.created_from_list_line_id);
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);
737: l_lumpsum_qty(cl.created_from_list_line_id)/cl.unit_price;
738: QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index) :=
739: l_lumpsum_qty(cl.created_from_list_line_id);
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)
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 '
749: ||cl.line_detail_index||' qty '
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 '
749: ||cl.line_detail_index||' qty '
750: ||QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index));
751: END IF;--QP_PREQ_GRP.G_Service_ldet_qty_tbl.exists
746: THEN
747: QP_PREQ_GRP.engine_debug('linegrp lumpsum qty for list_line_id '
748: ||cl.created_from_list_line_id||' dtl_index '
749: ||cl.line_detail_index||' qty '
750: ||QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index));
751: END IF;--QP_PREQ_GRP.G_Service_ldet_qty_tbl.exists
752: END IF;
753: END IF;--l_lumpsum_qty.exists
754: END IF;--cl.modifier_level_code
747: QP_PREQ_GRP.engine_debug('linegrp lumpsum qty for list_line_id '
748: ||cl.created_from_list_line_id||' dtl_index '
749: ||cl.line_detail_index||' qty '
750: ||QP_PREQ_GRP.G_Service_ldet_qty_tbl(cl.line_detail_index));
751: END IF;--QP_PREQ_GRP.G_Service_ldet_qty_tbl.exists
752: END IF;
753: END IF;--l_lumpsum_qty.exists
754: END IF;--cl.modifier_level_code
755: end loop;--cl
753: END IF;--l_lumpsum_qty.exists
754: END IF;--cl.modifier_level_code
755: end loop;--cl
756: --go to next line
757: i := QP_PREQ_GRP.G_service_line_ind_tbl.next(i);
758: END LOOP;--while
759:
760: /*
761: for cl3 in (select sum(line.parent_quantity) lumpsum_qty
762: from qp_npreq_lines_tmp line
763: --qp_npreq_line_attrs_tmp ldetattr, qp_npreq_line_attrs_tmp lattr,
764: where ldetattr.line_index = cl.line_index
765: and line.priced_uom_code <> line.line_uom_code
766: and ldetattr.context = QP_PREQ_GRP.G_PRIC_VOLUME_CONTEXT
767: and ldetattr.line_detail_index = cl.line_detail_index
768: and lattr.line_index = cl.line_index
769: and lattr.context = QP_PREQ_GRP.G_PRIC_VOLUME_CONTEXT
770: and lattr.attribute = ldetattr.attribute
765: and line.priced_uom_code <> line.line_uom_code
766: and ldetattr.context = QP_PREQ_GRP.G_PRIC_VOLUME_CONTEXT
767: and ldetattr.line_detail_index = cl.line_detail_index
768: and lattr.line_index = cl.line_index
769: and lattr.context = QP_PREQ_GRP.G_PRIC_VOLUME_CONTEXT
770: and lattr.attribute = ldetattr.attribute
771: and exists (select 'Y'
772: from qp_npreq_ldets_tmp ldet
773: where ldet.created_from_list_line_id = cl.created_from_list_line_id
770: and lattr.attribute = ldetattr.attribute
771: and exists (select 'Y'
772: from qp_npreq_ldets_tmp ldet
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);
771: and exists (select 'Y'
772: from qp_npreq_ldets_tmp ldet
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;
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
782: */
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
782: */
783: EXCEPTION
784: When OTHERS Then
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;
790:
800: IS
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:
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;
810:
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
823: x_calc_adjustment := p_operand_value;
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
829: --removed absolute value to account for negative newprice
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
837: --fix for bug 2394680 for zero list price qty can be 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;
850: END IF; --p_operand_calculation_code
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:
864: END IF;
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;
872: END CALCULATE_BUCKET_PRICE;
889: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.BACK_CALCULATE_PRICE';
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 ||
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 ||
899: ' adjustment_amount_passed '|| p_adjustment_amount ||
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;
927: IF p_adjustment_type = G_DISCOUNT AND (x_adjustment_amount <= 0
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
934: IF l_debug = FND_API.G_TRUE THEN
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
939: IF l_debug = FND_API.G_TRUE THEN
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;
944:
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:
956: END IF;
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';
964: WHEN OTHERS THEN
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;
970:
1002: --as adj_unit_price cannot be null and if it is zero, x_ordqty_selling_price
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 '
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 '
1014: || p_adjusted_unit_price ||' lineunitprice '|| p_line_unit_price
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:
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;
1112: x_return_status := FND_API.G_RET_STS_ERROR;
1139: AND nvl(ldet.applied_flag, G_NO) = G_NO
1140: AND nvl(ldet.updated_flag, G_NO) = G_NO
1141: AND line.line_index = ldet.line_index;
1142:
1143: l_ordqty_line_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
1144: l_ordqty_operand QP_PREQ_GRP.NUMBER_TYPE;
1145: l_ordqty_operator QP_PREQ_GRP.VARCHAR_TYPE;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1140: AND nvl(ldet.updated_flag, G_NO) = G_NO
1141: AND line.line_index = ldet.line_index;
1142:
1143: l_ordqty_line_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
1144: l_ordqty_operand QP_PREQ_GRP.NUMBER_TYPE;
1145: l_ordqty_operator QP_PREQ_GRP.VARCHAR_TYPE;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1141: AND line.line_index = ldet.line_index;
1142:
1143: l_ordqty_line_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
1144: l_ordqty_operand QP_PREQ_GRP.NUMBER_TYPE;
1145: l_ordqty_operator QP_PREQ_GRP.VARCHAR_TYPE;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1149: l_ordqty_catchweight_qty QP_PREQ_GRP.NUMBER_TYPE;
1142:
1143: l_ordqty_line_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
1144: l_ordqty_operand QP_PREQ_GRP.NUMBER_TYPE;
1145: l_ordqty_operator QP_PREQ_GRP.VARCHAR_TYPE;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1149: l_ordqty_catchweight_qty QP_PREQ_GRP.NUMBER_TYPE;
1150: l_ordqty_ordered_qty QP_PREQ_GRP.NUMBER_TYPE;
1143: l_ordqty_line_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
1144: l_ordqty_operand QP_PREQ_GRP.NUMBER_TYPE;
1145: l_ordqty_operator QP_PREQ_GRP.VARCHAR_TYPE;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1149: l_ordqty_catchweight_qty QP_PREQ_GRP.NUMBER_TYPE;
1150: l_ordqty_ordered_qty QP_PREQ_GRP.NUMBER_TYPE;
1151: l_ordqty_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE;
1144: l_ordqty_operand QP_PREQ_GRP.NUMBER_TYPE;
1145: l_ordqty_operator QP_PREQ_GRP.VARCHAR_TYPE;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1149: l_ordqty_catchweight_qty QP_PREQ_GRP.NUMBER_TYPE;
1150: l_ordqty_ordered_qty QP_PREQ_GRP.NUMBER_TYPE;
1151: l_ordqty_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE;
1152:
1145: l_ordqty_operator QP_PREQ_GRP.VARCHAR_TYPE;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1149: l_ordqty_catchweight_qty QP_PREQ_GRP.NUMBER_TYPE;
1150: l_ordqty_ordered_qty QP_PREQ_GRP.NUMBER_TYPE;
1151: l_ordqty_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE;
1152:
1153: l_dummy NUMBER;
1146: l_ordqty_mod_lvl QP_PREQ_GRP.VARCHAR_TYPE;
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1149: l_ordqty_catchweight_qty QP_PREQ_GRP.NUMBER_TYPE;
1150: l_ordqty_ordered_qty QP_PREQ_GRP.NUMBER_TYPE;
1151: l_ordqty_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE;
1152:
1153: l_dummy NUMBER;
1154: BEGIN
1147: l_ordqty_priced_qty QP_PREQ_GRP.NUMBER_TYPE;
1148: l_ordqty_actual_order_qty QP_PREQ_GRP.NUMBER_TYPE;
1149: l_ordqty_catchweight_qty QP_PREQ_GRP.NUMBER_TYPE;
1150: l_ordqty_ordered_qty QP_PREQ_GRP.NUMBER_TYPE;
1151: l_ordqty_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE;
1152:
1153: l_dummy NUMBER;
1154: BEGIN
1155: --initialise
1152:
1153: l_dummy NUMBER;
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
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;
1163: l_ordqty_line_dtl_index.DELETE;
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
1188: FOR i IN l_ordqty_line_dtl_index.FIRST..l_ordqty_line_dtl_index.LAST
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),
1196: p_priced_qty => l_ordqty_priced_qty(i),
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;
1215: END IF; --l_ordqty_ordered_qty
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;
1215: END IF; --l_ordqty_ordered_qty
1216: END LOOP; --i
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 '
1225: || l_ordqty_ord_qty_operand(j));
1226: END LOOP; --j
1227: END IF; --l_debug
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
1239: WHEN OTHERS THEN
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;
1245: END Update_Adj_orderqty_cols;
1263: l_adj_sum_operand NUMBER := 0;
1264: BEGIN
1265:
1266: --initialise
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
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;
1276: --do this only if caller has passed changed lines
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
1291: FROM qp_npreq_lines_tmp
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
1305: BEGIN
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;
1325: --do this only if the header does not have error status
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
1335: FROM qp_npreq_ldets_tmp ldet
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);
1353: END IF;
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);
1353: END IF;
1354: --only if there is a change in the operand from previous
1355: --call, we need to recalculate
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
1379: SELECT line_id INTO l_header_id
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
1394: BEGIN
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
1422: FROM qp_npreq_ldets_tmp ldet
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);
1449: END IF; --l_debug
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);
1449: END IF; --l_debug
1450: --only if there is a change in the operand from previous
1451: --call, we need to recalculate
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;
1471:
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:
1481: /*
1944: --(getline.price_flag in (QP_PREQ_PUB.G_YES, QP_PREQ_PUB.G_PHASE,QP_PREQ_PUB.G_CALCULATE_ONLY)
1945: --OR nvl(line.processed_code,'0') = QP_PREQ_PUB.G_BY_ENGINE)
1946: --and line.line_type_code = QP_PREQ_PUB.G_LINE_LEVEL
1947:
1948: l_LINE_DETAIL_index QP_PREQ_GRP.PLS_INTEGER_TYPE;
1949: l_LINE_DETAIL_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1950: l_PRICE_BREAK_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1945: --OR nvl(line.processed_code,'0') = QP_PREQ_PUB.G_BY_ENGINE)
1946: --and line.line_type_code = QP_PREQ_PUB.G_LINE_LEVEL
1947:
1948: l_LINE_DETAIL_index QP_PREQ_GRP.PLS_INTEGER_TYPE;
1949: l_LINE_DETAIL_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1950: l_PRICE_BREAK_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1946: --and line.line_type_code = QP_PREQ_PUB.G_LINE_LEVEL
1947:
1948: l_LINE_DETAIL_index QP_PREQ_GRP.PLS_INTEGER_TYPE;
1949: l_LINE_DETAIL_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1950: l_PRICE_BREAK_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1947:
1948: l_LINE_DETAIL_index QP_PREQ_GRP.PLS_INTEGER_TYPE;
1949: l_LINE_DETAIL_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1950: l_PRICE_BREAK_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1948: l_LINE_DETAIL_index QP_PREQ_GRP.PLS_INTEGER_TYPE;
1949: l_LINE_DETAIL_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1950: l_PRICE_BREAK_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1949: l_LINE_DETAIL_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1950: l_PRICE_BREAK_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1950: l_PRICE_BREAK_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1951: l_LIST_PRICE QP_PREQ_GRP.NUMBER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1952: l_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1953: l_CREATED_FROM_LIST_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1954: l_CREATED_FROM_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1955: l_CREATED_FROM_LIST_LINE_TYPE QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1956: l_CREATED_FROM_LIST_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1957: l_CREATED_FROM_SQL QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1958: l_PRICING_GROUP_SEQUENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1959: l_PRICING_PHASE_ID QP_PREQ_GRP.PLS_INTEGER_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1960: l_OPERAND_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1961: l_OPERAND_VALUE QP_PREQ_GRP.VARCHAR_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1962: l_SUBSTITUTION_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1963: l_SUBSTITUTION_VALUE_FROM QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1964: l_SUBSTITUTION_VALUE_TO QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1965: l_ASK_FOR_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1966: l_PRICE_FORMULA_ID QP_PREQ_GRP.NUMBER_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1967: l_PRICING_STATUS_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1968: l_PRICING_STATUS_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1969: l_PRODUCT_PRECEDENCE QP_PREQ_GRP.PLS_INTEGER_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1970: l_INCOMPATABLILITY_GRP_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1971: l_PROCESSED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1972: l_APPLIED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1973: l_AUTOMATIC_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1974: l_OVERRIDE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1975: l_PRIMARY_UOM_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1976: l_PRINT_ON_INVOICE_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1977: l_MODIFIER_LEVEL_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1981: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1984: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1985: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1986: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1988: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1990: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1994: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
1995: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
1996: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
1997: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
1998: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
1999: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2000: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2001: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2002: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2010:
2003: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2010:
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2004: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2010:
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2005: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2010:
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2007: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2010:
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2008: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2010:
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2009: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2010:
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2017: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2010:
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2017: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2018: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2011: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2017: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2018: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2019: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2012: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2017: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2018: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2019: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2020:
2013: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2017: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2018: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2019: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2020:
2021: l_debug VARCHAR2(3);
2014: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2017: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2018: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2019: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2020:
2021: l_debug VARCHAR2(3);
2022: l_pbh_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2015: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2016: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2017: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2018: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2019: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2020:
2021: l_debug VARCHAR2(3);
2022: l_pbh_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2023: l_prg_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2023: l_prg_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2024:
2025: BEGIN
2026: x_return_status := FND_API.G_RET_STS_SUCCESS;
2027: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2028:
2029: --per bug3238607, no need to check HVOP
2030: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2031: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2028:
2029: --per bug3238607, no need to check HVOP
2030: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2031: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2032: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2033: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2034: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2036: END IF;
2029: --per bug3238607, no need to check HVOP
2030: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2031: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2032: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2033: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2034: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2036: END IF;
2037:
2031: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2032: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2033: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2034: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2036: END IF;
2037:
2038: OPEN l_ldets_cur;
2039: LOOP
2100: l_BREAK_UOM_ATTRIBUTE.DELETE;
2101: l_PROCESS_CODE.DELETE; -- 3215497
2102:
2103: IF l_debug = FND_API.G_TRUE THEN
2104: QP_PREQ_GRP.engine_debug('fetching l_ldets_cur');
2105: END IF;
2106:
2107: FETCH l_ldets_cur
2108: BULK COLLECT INTO
2171: -- LIMIT nrows;
2172: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2173:
2174: IF l_debug = FND_API.G_TRUE THEN
2175: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2176: END IF;
2177:
2178: IF l_LINE_DETAIL_index.COUNT > 0
2179: AND l_debug = FND_API.G_TRUE
2179: AND l_debug = FND_API.G_TRUE
2180: THEN
2181: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2182: LOOP
2183: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2184: ' line_detail_type_code: '|| l_LINE_DETAIL_TYPE_CODE(i) ||
2185: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2186: ' list_price: ' || l_LIST_PRICE(i) ||
2187: ' line_index: '|| l_LINE_INDEX(i));
2185: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2186: ' list_price: ' || l_LIST_PRICE(i) ||
2187: ' line_index: '|| l_LINE_INDEX(i));
2188:
2189: QP_PREQ_GRP.engine_debug('created_from_list_header_id: '|| l_CREATED_FROM_LIST_HEADER_ID(i) ||
2190: ' created_from_list_line_id: '|| l_CREATED_FROM_LIST_LINE_ID(i) ||
2191: ' created_from_list_line_type: '|| l_CREATED_FROM_LIST_LINE_TYPE(i) ||
2192: ' created_from_list_type_code: '|| l_CREATED_FROM_LIST_TYPE_CODE(i) ||
2193: ' created_from_sql: '|| l_CREATED_FROM_SQL(i) ||
2194: ' pricing_group_sequence: ' || l_PRICING_GROUP_SEQUENCE(i) ||
2195: ' pricing_phase_id: '|| l_PRICING_PHASE_ID(i) ||
2196: ' oprand_calculation_code: ' || l_OPERAND_CALCULATION_CODE(i) ||
2197: ' operand_value: ' || l_OPERAND_VALUE(i));
2198: QP_PREQ_GRP.engine_debug(' substitution_type_code: ' || l_SUBSTITUTION_TYPE_CODE(i) ||
2199: ' substitution_value_from: ' || l_SUBSTITUTION_VALUE_FROM(i) ||
2200: ' substitution_value_to: ' || l_SUBSTITUTION_VALUE_TO(i) ||
2201: ' ask_for_flag: ' || l_ASK_FOR_FLAG(i) ||
2202: ' price_formula_id: '|| l_PRICE_FORMULA_ID(i) ||
2204: ' pricing_status_text: '|| l_PRICING_STATUS_TEXT(i) ||
2205: ' product_precedence: '|| l_PRODUCT_PRECEDENCE(i) ||
2206: ' incompatability_grp_code: ' || l_INCOMPATABLILITY_GRP_CODE(i));
2207:
2208: QP_PREQ_GRP.engine_debug(' processed_flag: '|| l_PROCESSED_FLAG(i) ||
2209: ' applied_flag: '|| l_APPLIED_FLAG(i) ||
2210: ' automatic_flag: '|| l_AUTOMATIC_FLAG(i) ||
2211: ' override_flag: '|| l_OVERRIDE_FLAG(i) ||
2212: ' primary_uom_flag: '|| l_PRIMARY_UOM_FLAG(i) ||
2214: ' MODIFIER_LEVEL_CODE: '|| l_MODIFIER_LEVEL_CODE(i) ||
2215: ' BENEFIT_QTY: '|| l_BENEFIT_QTY(i) ||
2216: ' BENEFIT_UOM_CODE: '|| l_BENEFIT_UOM_CODE(i));
2217:
2218: QP_PREQ_GRP.engine_debug(' LIST_LINE_NO: '|| l_LIST_LINE_NO(i) ||
2219: ' ACCRUAL_FLAG: '|| l_ACCRUAL_FLAG(i) ||
2220: ' ACCRUAL_CONVERSION_RATE: '|| l_ACCRUAL_CONVERSION_RATE(i) ||
2221: ' ESTIM_ACCRUAL_RATE: '|| l_ESTIM_ACCRUAL_RATE(i) ||
2222: ' RECURRING_FLAG: '|| l_RECURRING_FLAG(i) ||
2224: ' ROUNDING_FACTOR: '|| l_ROUNDING_FACTOR(i) ||
2225: ' HEADER_LIMIT_EXISTS: '|| l_HEADER_LIMIT_EXISTS(i) ||
2226: ' LINE_LIMIT_EXISTS: '|| l_LINE_LIMIT_EXISTS(i));
2227:
2228: QP_PREQ_GRP.engine_debug(' CHARGE_TYPE_CODE:'|| l_CHARGE_TYPE_CODE(i) ||
2229: ' CHARGE_SUBTYPE_CODE:'|| l_CHARGE_SUBTYPE_CODE(i) ||
2230: ' CURRENCY_DETAIL_ID:'|| l_CURRENCY_DETAIL_ID(i) ||
2231: ' CURRENCY_HEADER_ID:'|| l_CURRENCY_HEADER_ID(i) ||
2232: ' SELLING_ROUNDING_FACTOR:'|| l_SELLING_ROUNDING_FACTOR(i) ||
2234: ' PRICING_EFFECTIVE_DATE:'|| l_PRICING_EFFECTIVE_DATE(i) ||
2235: ' BASE_CURRENCY_CODE:'|| l_BASE_CURRENCY_CODE(i) ||
2236: ' LINE_QUANTITY:'|| l_LINE_QUANTITY(i));
2237:
2238: QP_PREQ_GRP.engine_debug(' UPDATED_FLAG:'|| l_UPDATED_FLAG(i) ||
2239: ' CALCULATION_CODE:'|| l_CALCULATION_CODE(i) ||
2240: ' CHANGE_REASON_CODE:'|| l_CHANGE_REASON_CODE(i) ||
2241: ' CHANGE_REASON_TEXT:'|| l_CHANGE_REASON_TEXT(i) ||
2242: ' PRICE_ADJUSTMENT_ID:'|| l_PRICE_ADJUSTMENT_ID(i) ||
2251: END IF; --l_line_detail_index.COUNT
2252:
2253: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2254: IF l_debug = FND_API.G_TRUE THEN
2255: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2256: END IF;
2257: QP_PREQ_GRP.INSERT_LDETS2
2258: (l_LINE_DETAIL_index,
2259: l_LINE_DETAIL_TYPE_CODE,
2253: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2254: IF l_debug = FND_API.G_TRUE THEN
2255: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2256: END IF;
2257: QP_PREQ_GRP.INSERT_LDETS2
2258: (l_LINE_DETAIL_index,
2259: l_LINE_DETAIL_TYPE_CODE,
2260: l_PRICE_BREAK_TYPE_CODE,
2261: l_LIST_PRICE,
2323: END LOOP;
2324: CLOSE l_ldets_cur;
2325:
2326: IF l_debug = FND_API.G_TRUE THEN
2327: QP_PREQ_GRP.engine_debug('close l_ldets_cur');
2328: END IF;
2329:
2330:
2331: IF l_debug = FND_API.G_TRUE THEN
2328: END IF;
2329:
2330:
2331: IF l_debug = FND_API.G_TRUE THEN
2332: QP_PREQ_GRP.engine_debug('Begin Insert rltd lines');
2333: END IF;
2334:
2335: OPEN l_pbh_adj_exists_cur;
2336: FETCH l_pbh_adj_exists_cur INTO l_pbh_adj_exists;
2340: FETCH l_prg_adj_exists_cur INTO l_prg_adj_exists;
2341: CLOSE l_prg_adj_exists_cur;
2342:
2343: IF l_debug = FND_API.G_TRUE THEN
2344: QP_PREQ_GRP.engine_debug('Check l_pbh_adj_exists '|| l_pbh_adj_exists);
2345: QP_PREQ_GRP.engine_debug('Check l_prg_adj_exists '|| l_prg_adj_exists);
2346: END IF;
2347:
2348: --IF l_pbh_adj_exists = QP_PREQ_PUB.G_YES
2341: CLOSE l_prg_adj_exists_cur;
2342:
2343: IF l_debug = FND_API.G_TRUE THEN
2344: QP_PREQ_GRP.engine_debug('Check l_pbh_adj_exists '|| l_pbh_adj_exists);
2345: QP_PREQ_GRP.engine_debug('Check l_prg_adj_exists '|| l_prg_adj_exists);
2346: END IF;
2347:
2348: --IF l_pbh_adj_exists = QP_PREQ_PUB.G_YES
2349: --THEN
2359: l_RLTD_LIST_LINE_ID.DELETE;
2360: l_pricing_status_text.DELETE;
2361:
2362: IF l_debug = FND_API.G_TRUE THEN
2363: QP_PREQ_GRP.engine_debug('fetching l_rltd_lines_cur');
2364: END IF;
2365:
2366: FETCH l_rltd_lines_cur
2367: BULK COLLECT INTO
2376: -- LIMIT nrows;
2377: EXIT WHEN l_LINE_index1.COUNT = 0;
2378:
2379: IF l_debug = FND_API.G_TRUE THEN
2380: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_index1.COUNT);
2381: END IF;
2382:
2383: IF l_LINE_index1.COUNT > 0
2384: AND l_debug = FND_API.G_TRUE
2384: AND l_debug = FND_API.G_TRUE
2385: THEN
2386: FOR i IN l_LINE_index1.FIRST..l_LINE_index1.LAST
2387: LOOP
2388: QP_PREQ_GRP.engine_debug('======line_index: '|| l_LINE_index1(i) ||
2389: ' line_detail_index: '|| l_LINE_DETAIL_index1(i) ||
2390: ' relationship_type_code: '|| l_RELATIONSHIP_TYPE_CODE(i) ||
2391: ' related_line_index: '|| l_RELATED_LINE_INDEX(i) ||
2392: ' related_line_detail_index: ' || l_RELATED_LINE_DETAIL_INDEX(i) ||
2396: END LOOP;
2397: END IF; --l_LINE_index1.COUNT
2398:
2399: IF l_debug = FND_API.G_TRUE THEN
2400: QP_PREQ_GRP.engine_debug('calling INSERT_RLTD_LDETS2');
2401: END IF;
2402: QP_PREQ_GRP.INSERT_RLTD_LINES2
2403: (l_LINE_INDEX1
2404: , l_LINE_DETAIL_INDEX1
2398:
2399: IF l_debug = FND_API.G_TRUE THEN
2400: QP_PREQ_GRP.engine_debug('calling INSERT_RLTD_LDETS2');
2401: END IF;
2402: QP_PREQ_GRP.INSERT_RLTD_LINES2
2403: (l_LINE_INDEX1
2404: , l_LINE_DETAIL_INDEX1
2405: , l_RELATIONSHIP_TYPE_CODE
2406: , l_RELATED_LINE_INDEX
2418: END LOOP;
2419: CLOSE l_rltd_lines_cur;
2420:
2421: IF l_debug = FND_API.G_TRUE THEN
2422: QP_PREQ_GRP.engine_debug('close l_rltd_lines_cur');
2423: END IF;
2424:
2425: IF l_prg_adj_exists = 'Y' THEN
2426: OPEN l_getline_dis_cur;
2488: l_BREAK_UOM_ATTRIBUTE.DELETE;
2489: l_PROCESS_CODE.DELETE; -- 3215497
2490:
2491: IF l_debug = FND_API.G_TRUE THEN
2492: QP_PREQ_GRP.engine_debug('fetching l_getline_dis_cur');
2493: END IF;
2494:
2495: FETCH l_getline_dis_cur
2496: BULK COLLECT INTO
2559: -- LIMIT nrows;
2560: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2561:
2562: IF l_debug = FND_API.G_TRUE THEN
2563: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2564: END IF;
2565:
2566: IF l_LINE_DETAIL_index.COUNT > 0
2567: AND l_debug = FND_API.G_TRUE
2567: AND l_debug = FND_API.G_TRUE
2568: THEN
2569: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2570: LOOP
2571: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2572: ' line_detail_type_code: '|| l_LINE_DETAIL_TYPE_CODE(i) ||
2573: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2574: ' list_price: ' || l_LIST_PRICE(i) ||
2575: ' line_index: '|| l_LINE_INDEX(i));
2573: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2574: ' list_price: ' || l_LIST_PRICE(i) ||
2575: ' line_index: '|| l_LINE_INDEX(i));
2576:
2577: QP_PREQ_GRP.engine_debug('created_from_list_header_id: '|| l_CREATED_FROM_LIST_HEADER_ID(i) ||
2578: ' created_from_list_line_id: '|| l_CREATED_FROM_LIST_LINE_ID(i) ||
2579: ' created_from_list_line_type: '|| l_CREATED_FROM_LIST_LINE_TYPE(i) ||
2580: ' created_from_list_type_code: '|| l_CREATED_FROM_LIST_TYPE_CODE(i) ||
2581: ' created_from_sql: '|| l_CREATED_FROM_SQL(i) ||
2582: ' pricing_group_sequence: ' || l_PRICING_GROUP_SEQUENCE(i) ||
2583: ' pricing_phase_id: '|| l_PRICING_PHASE_ID(i) ||
2584: ' oprand_calculation_code: ' || l_OPERAND_CALCULATION_CODE(i) ||
2585: ' operand_value: ' || l_OPERAND_VALUE(i));
2586: QP_PREQ_GRP.engine_debug(' substitution_type_code: ' || l_SUBSTITUTION_TYPE_CODE(i) ||
2587: ' substitution_value_from: ' || l_SUBSTITUTION_VALUE_FROM(i) ||
2588: ' substitution_value_to: ' || l_SUBSTITUTION_VALUE_TO(i) ||
2589: ' ask_for_flag: ' || l_ASK_FOR_FLAG(i) ||
2590: ' price_formula_id: '|| l_PRICE_FORMULA_ID(i) ||
2592: ' pricing_status_text: '|| l_PRICING_STATUS_TEXT(i) ||
2593: ' product_precedence: '|| l_PRODUCT_PRECEDENCE(i) ||
2594: ' incompatability_grp_code: ' || l_INCOMPATABLILITY_GRP_CODE(i));
2595:
2596: QP_PREQ_GRP.engine_debug(' processed_flag: '|| l_PROCESSED_FLAG(i) ||
2597: ' applied_flag: '|| l_APPLIED_FLAG(i) ||
2598: ' automatic_flag: '|| l_AUTOMATIC_FLAG(i) ||
2599: ' override_flag: '|| l_OVERRIDE_FLAG(i) ||
2600: ' primary_uom_flag: '|| l_PRIMARY_UOM_FLAG(i) ||
2602: ' MODIFIER_LEVEL_CODE: '|| l_MODIFIER_LEVEL_CODE(i) ||
2603: ' BENEFIT_QTY: '|| l_BENEFIT_QTY(i) ||
2604: ' BENEFIT_UOM_CODE: '|| l_BENEFIT_UOM_CODE(i));
2605:
2606: QP_PREQ_GRP.engine_debug(' LIST_LINE_NO: '|| l_LIST_LINE_NO(i) ||
2607: ' ACCRUAL_FLAG: '|| l_ACCRUAL_FLAG(i) ||
2608: ' ACCRUAL_CONVERSION_RATE: '|| l_ACCRUAL_CONVERSION_RATE(i) ||
2609: ' ESTIM_ACCRUAL_RATE: '|| l_ESTIM_ACCRUAL_RATE(i) ||
2610: ' RECURRING_FLAG: '|| l_RECURRING_FLAG(i) ||
2612: ' ROUNDING_FACTOR: '|| l_ROUNDING_FACTOR(i) ||
2613: ' HEADER_LIMIT_EXISTS: '|| l_HEADER_LIMIT_EXISTS(i) ||
2614: ' LINE_LIMIT_EXISTS: '|| l_LINE_LIMIT_EXISTS(i));
2615:
2616: QP_PREQ_GRP.engine_debug(' CHARGE_TYPE_CODE:'|| l_CHARGE_TYPE_CODE(i) ||
2617: ' CHARGE_SUBTYPE_CODE:'|| l_CHARGE_SUBTYPE_CODE(i) ||
2618: ' CURRENCY_DETAIL_ID:'|| l_CURRENCY_DETAIL_ID(i) ||
2619: ' CURRENCY_HEADER_ID:'|| l_CURRENCY_HEADER_ID(i) ||
2620: ' SELLING_ROUNDING_FACTOR:'|| l_SELLING_ROUNDING_FACTOR(i) ||
2622: ' PRICING_EFFECTIVE_DATE:'|| l_PRICING_EFFECTIVE_DATE(i) ||
2623: ' BASE_CURRENCY_CODE:'|| l_BASE_CURRENCY_CODE(i) ||
2624: ' LINE_QUANTITY:'|| l_LINE_QUANTITY(i));
2625:
2626: QP_PREQ_GRP.engine_debug(' UPDATED_FLAG:'|| l_UPDATED_FLAG(i) ||
2627: ' CALCULATION_CODE:'|| l_CALCULATION_CODE(i) ||
2628: ' CHANGE_REASON_CODE:'|| l_CHANGE_REASON_CODE(i) ||
2629: ' CHANGE_REASON_TEXT:'|| l_CHANGE_REASON_TEXT(i) ||
2630: ' PRICE_ADJUSTMENT_ID:'|| l_PRICE_ADJUSTMENT_ID(i) ||
2639: END IF; --l_line_detail_index.COUNT
2640:
2641: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2642: IF l_debug = FND_API.G_TRUE THEN
2643: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2644: END IF;
2645: QP_PREQ_GRP.INSERT_LDETS2
2646: (l_LINE_DETAIL_index,
2647: l_LINE_DETAIL_TYPE_CODE,
2641: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2642: IF l_debug = FND_API.G_TRUE THEN
2643: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2644: END IF;
2645: QP_PREQ_GRP.INSERT_LDETS2
2646: (l_LINE_DETAIL_index,
2647: l_LINE_DETAIL_TYPE_CODE,
2648: l_PRICE_BREAK_TYPE_CODE,
2649: l_LIST_PRICE,
2712: --CLOSE l_ldets_cur;
2713: CLOSE l_getline_dis_cur;
2714:
2715: IF l_debug = FND_API.G_TRUE THEN
2716: QP_PREQ_GRP.engine_debug('close l_getline_dis_cur');
2717: END IF;
2718:
2719: END IF;
2720:
2736: x_return_status_text OUT NOCOPY VARCHAR2) IS
2737:
2738: BEGIN
2739:
2740: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2741:
2742: --when any changes are made to this, the similar updated stmt
2743: --in Update_Related_Line_Info procedure in this file also needs to be changed
2744: UPDATE qp_npreq_rltd_lines_tmp rltd
2788: AND rltd.relationship_type_code = G_PBH_LINE
2789: AND rltd.pricing_status_code = G_STATUS_NEW;
2790:
2791: IF (l_debug = FND_API.G_TRUE) THEN
2792: QP_PREQ_GRP.engine_debug('Updating PBH rltd dlts COUNT: '
2793: || SQL%ROWCOUNT);
2794: QP_PREQ_GRP.engine_debug('Updating the child detail type code');
2795: END IF;
2796:
2790:
2791: IF (l_debug = FND_API.G_TRUE) THEN
2792: QP_PREQ_GRP.engine_debug('Updating PBH rltd dlts COUNT: '
2793: || SQL%ROWCOUNT);
2794: QP_PREQ_GRP.engine_debug('Updating the child detail type code');
2795: END IF;
2796:
2797: UPDATE qp_npreq_ldets_tmp
2798: SET line_detail_type_code = QP_PREQ_PUB.G_CHILD_DETAIL_TYPE
2805: FOR i IN (SELECT line_detail_index
2806: FROM qp_npreq_ldets_tmp
2807: WHERE line_detail_type_code = QP_PREQ_PUB.G_CHILD_DETAIL_TYPE)
2808: LOOP
2809: QP_PREQ_GRP.engine_debug(' PBH Child Line Detail Index : ' || i.line_detail_index);
2810: END LOOP;
2811:
2812: END IF;
2813:
2835: l_gsa_indicator VARCHAR2(1) := 'N';
2836: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.CHECK_GSA_INDICATOR';
2837: BEGIN
2838: IF l_debug = FND_API.G_TRUE THEN
2839: QP_PREQ_GRP.engine_debug('Begin CHECK_GSA_INDICATOR '|| l_gsa_indicator);
2840:
2841: END IF;
2842: OPEN l_check_gsa_ind_cur;
2843: FETCH l_check_gsa_ind_cur INTO l_gsa_indicator;
2843: FETCH l_check_gsa_ind_cur INTO l_gsa_indicator;
2844: CLOSE l_check_gsa_ind_cur;
2845:
2846: IF l_debug = FND_API.G_TRUE THEN
2847: QP_PREQ_GRP.engine_debug('Cursor fetched '|| l_gsa_indicator);
2848:
2849: END IF;
2850: RETURN l_gsa_indicator;
2851:
2849: END IF;
2850: RETURN l_gsa_indicator;
2851:
2852: IF l_debug = FND_API.G_TRUE THEN
2853: QP_PREQ_GRP.engine_debug('END CHECK_GSA_INDICATOR ');
2854: END IF;
2855: EXCEPTION
2856: WHEN OTHERS THEN
2857: IF l_debug = FND_API.G_TRUE THEN
2854: END IF;
2855: EXCEPTION
2856: WHEN OTHERS THEN
2857: IF l_debug = FND_API.G_TRUE THEN
2858: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
2859: END IF;
2860: RETURN l_gsa_indicator;
2861: END CHECK_GSA_INDICATOR;
2862:
2954: , line.pricing_effective_date))
2955: GROUP BY line.line_index, line.adjusted_unit_price;
2956:
2957:
2958: l_gsa_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
2959: l_gsa_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
2960: I PLS_INTEGER := 0;
2961: BEGIN
2962: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2955: GROUP BY line.line_index, line.adjusted_unit_price;
2956:
2957:
2958: l_gsa_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
2959: l_gsa_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
2960: I PLS_INTEGER := 0;
2961: BEGIN
2962: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2963: l_gsa_line_index_tbl.DELETE;
2958: l_gsa_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
2959: l_gsa_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
2960: I PLS_INTEGER := 0;
2961: BEGIN
2962: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2963: l_gsa_line_index_tbl.DELETE;
2964: l_gsa_sts_text_tbl.DELETE;
2965:
2966: IF l_debug = FND_API.G_TRUE THEN
2963: l_gsa_line_index_tbl.DELETE;
2964: l_gsa_sts_text_tbl.DELETE;
2965:
2966: IF l_debug = FND_API.G_TRUE THEN
2967: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
2968:
2969: END IF;
2970: -- Call GSA Check only for non-gsa customers(GSA_QUALIFIER_FLAG IS NULL)
2971: IF G_GSA_CHECK_FLAG = G_YES
2972: AND G_GSA_ENABLED_FLAG = G_YES
2973: AND G_GSA_INDICATOR = G_NO
2974: THEN
2975: IF l_debug = FND_API.G_TRUE THEN
2976: QP_PREQ_GRP.engine_debug('IN GSA check attrmgr '|| G_ATTR_MGR_INSTALLED);
2977:
2978: END IF;
2979: IF G_ATTR_MGR_INSTALLED = G_NO
2980: THEN
2981: FOR GSA IN l_gsa_check_cur
2982: LOOP
2983: -- I := I + 1; bug2426025 placed the counter in the if condition
2984: IF l_debug = FND_API.G_TRUE THEN
2985: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2986: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2987: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2988: END IF;
2989: IF GSA.adjusted_unit_price <= GSA.operand
2982: LOOP
2983: -- I := I + 1; bug2426025 placed the counter in the if condition
2984: IF l_debug = FND_API.G_TRUE THEN
2985: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2986: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2987: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2988: END IF;
2989: IF GSA.adjusted_unit_price <= GSA.operand
2990: THEN
2983: -- I := I + 1; bug2426025 placed the counter in the if condition
2984: IF l_debug = FND_API.G_TRUE THEN
2985: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2986: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2987: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2988: END IF;
2989: IF GSA.adjusted_unit_price <= GSA.operand
2990: THEN
2991: I := I + 1;
2991: I := I + 1;
2992: l_gsa_line_index_tbl(I) := GSA.line_index;
2993: l_gsa_sts_text_tbl(I) := GSA.operand;
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
2996: || l_gsa_line_index_tbl(I));
2997: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
2998: || l_gsa_sts_text_tbl(I));
2999: END IF;
2993: l_gsa_sts_text_tbl(I) := GSA.operand;
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
2996: || l_gsa_line_index_tbl(I));
2997: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
2998: || l_gsa_sts_text_tbl(I));
2999: END IF;
3000: END IF;
3001: END LOOP; --l_gsa_check_cur
3003: FOR GSA IN l_attrmgr_gsa_check_cur
3004: LOOP
3005: -- I := I + 1; bug2426025 placed the counter in the if condition
3006: IF l_debug = FND_API.G_TRUE THEN
3007: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3008: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3009: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3010: END IF;
3011: IF GSA.adjusted_unit_price <= GSA.operand
3004: LOOP
3005: -- I := I + 1; bug2426025 placed the counter in the if condition
3006: IF l_debug = FND_API.G_TRUE THEN
3007: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3008: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3009: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3010: END IF;
3011: IF GSA.adjusted_unit_price <= GSA.operand
3012: THEN
3005: -- I := I + 1; bug2426025 placed the counter in the if condition
3006: IF l_debug = FND_API.G_TRUE THEN
3007: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3008: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3009: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3010: END IF;
3011: IF GSA.adjusted_unit_price <= GSA.operand
3012: THEN
3013: I := I + 1;
3013: I := I + 1;
3014: l_gsa_line_index_tbl(I) := GSA.line_index;
3015: l_gsa_sts_text_tbl(I) := GSA.operand;
3016: IF l_debug = FND_API.G_TRUE THEN
3017: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3018: || l_gsa_line_index_tbl(I));
3019: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3020: || l_gsa_sts_text_tbl(I));
3021: END IF;
3015: l_gsa_sts_text_tbl(I) := GSA.operand;
3016: IF l_debug = FND_API.G_TRUE THEN
3017: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3018: || l_gsa_line_index_tbl(I));
3019: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3020: || l_gsa_sts_text_tbl(I));
3021: END IF;
3022: END IF;
3023: END LOOP; --l_attrmgr_gsa_check_cur
3023: END LOOP; --l_attrmgr_gsa_check_cur
3024: END IF; --G_ATTR_MGR_INSTALLED --not installed
3025:
3026: IF l_debug = FND_API.G_TRUE THEN
3027: QP_PREQ_GRP.engine_debug('AFTER GSA check');
3028: END IF;
3029: END IF;
3030:
3031: IF l_gsa_line_index_tbl.COUNT > 0
3030:
3031: IF l_gsa_line_index_tbl.COUNT > 0
3032: THEN
3033: IF l_debug = FND_API.G_TRUE THEN
3034: QP_PREQ_GRP.engine_debug('Before GSA update '|| l_gsa_line_index_tbl.COUNT);
3035: END IF;
3036: FORALL I IN l_gsa_line_index_tbl.FIRST..l_gsa_line_index_tbl.LAST
3037: UPDATE qp_npreq_lines_tmp
3038: SET pricing_status_code = G_STATUS_GSA_VIOLATION,
3041: WHERE line_index = l_gsa_line_index_tbl(I);
3042: END IF; --l_gsa_line_index_tbl.COUNT
3043:
3044: IF l_debug = FND_API.G_TRUE THEN
3045: QP_PREQ_GRP.engine_debug('Pub GSA check completed');
3046:
3047: END IF;
3048: --GSA VIOLATION CHECK
3049:
3050:
3051: EXCEPTION
3052: WHEN OTHERS THEN
3053: IF l_debug = FND_API.G_TRUE THEN
3054: QP_PREQ_GRP.ENGINE_DEBUG('exception QP_PREQ_PUB.check gsa_violation: '|| SQLERRM);
3055: END IF;
3056: x_return_status := FND_API.G_RET_STS_ERROR;
3057: x_return_status_text := 'QP_PREQ_PUB.check gsa_violation: '|| SQLERRM;
3058: END CHECK_GSA_VIOLATION;
3129: ORDER BY precedence;
3130:
3131: l_back_calc_rec back_calc_rec_type;
3132:
3133: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3134: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3135: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3130:
3131: l_back_calc_rec back_calc_rec_type;
3132:
3133: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3134: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3135: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3131: l_back_calc_rec back_calc_rec_type;
3132:
3133: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3134: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3135: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3132:
3133: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3134: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3135: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3133: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3134: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3135: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3134: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3135: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3135: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3136: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3137: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3138: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3139: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3140: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3143: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3144: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3145: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3147: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3149: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3150: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3152: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3154: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3162: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3162: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163:
3156: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3162: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163:
3164: BACK_CALCULATE_SUCC BOOLEAN := TRUE;
3157: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3162: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163:
3164: BACK_CALCULATE_SUCC BOOLEAN := TRUE;
3165: l_return_status VARCHAR2(30);
3158: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3162: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163:
3164: BACK_CALCULATE_SUCC BOOLEAN := TRUE;
3165: l_return_status VARCHAR2(30);
3166: l_return_status_text VARCHAR2(240);
3170: i NUMBER;
3171:
3172: BEGIN
3173:
3174: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3175: --**************************************************************
3176: --BACK CALCULATION ROUTINE
3177: --**************************************************************
3178: IF l_debug = FND_API.G_TRUE THEN
3175: --**************************************************************
3176: --BACK CALCULATION ROUTINE
3177: --**************************************************************
3178: IF l_debug = FND_API.G_TRUE THEN
3179: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE '
3180: || G_BACK_CALCULATION_CODE);
3181:
3182:
3183: END IF;
3183: END IF;
3184: OPEN l_back_calculate_cur;
3185: --LOOP
3186: IF l_debug = FND_API.G_TRUE THEN
3187: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE1');
3188: END IF;
3189: l_back_list_line_id_tbl.DELETE;
3190: l_back_line_index_tbl.DELETE;
3191: l_back_line_dtl_index_tbl.DELETE;
3248: l_back_list_line_no_tbl,
3249: l_back_calculation_code_tbl,
3250: l_back_calc_precedence_tbl;
3251: IF l_debug = FND_API.G_TRUE THEN
3252: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2');
3253: END IF;
3254: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3255: CLOSE l_back_calculate_cur;
3256:
3254: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3255: CLOSE l_back_calculate_cur;
3256:
3257: IF l_debug = FND_API.G_TRUE THEN
3258: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3259: END IF;
3260: --DEBUG
3261: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3262: AND l_back_list_line_id_tbl.COUNT>0
3257: IF l_debug = FND_API.G_TRUE THEN
3258: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3259: END IF;
3260: --DEBUG
3261: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3262: AND l_back_list_line_id_tbl.COUNT>0
3263: THEN
3264: IF l_debug = FND_API.G_TRUE THEN
3265: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3261: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3262: AND l_back_list_line_id_tbl.COUNT>0
3263: THEN
3264: IF l_debug = FND_API.G_TRUE THEN
3265: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3266: END IF;
3267: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3268: LOOP
3269: IF l_debug = FND_API.G_TRUE THEN
3266: END IF;
3267: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3268: LOOP
3269: IF l_debug = FND_API.G_TRUE THEN
3270: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4');
3271: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ADJ '
3272: || l_back_list_line_id_tbl(i) ||' line index '
3273: || l_back_line_index_tbl(i) ||' detail index '
3274: || l_back_line_dtl_index_tbl(i) ||' adj type '
3267: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3268: LOOP
3269: IF l_debug = FND_API.G_TRUE THEN
3270: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4');
3271: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ADJ '
3272: || l_back_list_line_id_tbl(i) ||' line index '
3273: || l_back_line_index_tbl(i) ||' detail index '
3274: || l_back_line_dtl_index_tbl(i) ||' adj type '
3275: || l_back_list_line_type_tbl(i) ||' applied flag '
3289: END LOOP;
3290: END IF;
3291:
3292: IF l_debug = FND_API.G_TRUE THEN
3293: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4.5');
3294: END IF;
3295: IF l_back_line_index_tbl.COUNT > 0
3296: THEN
3297: IF p_amount_changed <= 0
3299: FOR I IN
3300: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3301: LOOP
3302: IF l_debug = FND_API.G_TRUE THEN
3303: QP_PREQ_GRP.ENGINE_DEBUG('forward loop '|| i);
3304: END IF;
3305:
3306: --fix for bug 2790460 to add the amount_changed to the
3307: --adjustment_amount if the adj
3332: IF BACK_CALCULATE_SUCC
3333: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3334: THEN
3335: IF l_debug = FND_API.G_TRUE THEN
3336: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3337: || l_adjustment_amount ||' list_line_id '
3338: || l_back_list_line_id_tbl(i) ||' operand val '
3339: || l_operand_value);
3340:
3412: FOR I IN REVERSE
3413: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3414: LOOP
3415: IF l_debug = FND_API.G_TRUE THEN
3416: QP_PREQ_GRP.ENGINE_DEBUG('reverse loop '|| i);
3417: END IF;
3418: --fix for bug 2790460 to add the amount_changed to the
3419: --adjustment_amount if the adj
3420: --has been applied already and it is not back calculated
3444: IF BACK_CALCULATE_SUCC
3445: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3446: THEN
3447: IF l_debug = FND_API.G_TRUE THEN
3448: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3449: || l_adjustment_amount ||' list_line_id '
3450: || l_back_list_line_id_tbl(i) ||' operand val '
3451: || l_operand_value);
3452:
3523: THEN
3524: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3525: THEN
3526: IF l_debug = FND_API.G_TRUE THEN
3527: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ set status');
3528: END IF;
3529: x_return_status := l_return_status;
3530: x_return_status_text := l_return_status_text;
3531: x_back_calc_rec := l_back_calc_rec;
3533: ELSE
3534: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3535: THEN
3536: IF l_debug = FND_API.G_TRUE THEN
3537: QP_PREQ_GRP.ENGINE_DEBUG('back cal fail set status');
3538: END IF;
3539: x_return_status := G_BACK_CALCULATION_STS;
3540: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3541: x_back_calc_rec := l_back_calc_rec;
3540: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3541: x_back_calc_rec := l_back_calc_rec;
3542: ELSE
3543: IF l_debug = FND_API.G_TRUE THEN
3544: QP_PREQ_GRP.ENGINE_DEBUG('back cal error set status');
3545: END IF;
3546: x_return_status := G_BACK_CALCULATION_STS;
3547: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION ERROR '|| l_return_status_text;
3548: x_back_calc_rec := l_back_calc_rec;
3550: END IF;
3551:
3552: ELSE
3553: IF l_debug = FND_API.G_TRUE THEN
3554: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3555: END IF;
3556: x_return_status := G_BACK_CALCULATION_STS;
3557: IF l_debug = FND_API.G_TRUE THEN
3558: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3554: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3555: END IF;
3556: x_return_status := G_BACK_CALCULATION_STS;
3557: IF l_debug = FND_API.G_TRUE THEN
3558: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3559: END IF;
3560: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3561: IF l_debug = FND_API.G_TRUE THEN
3562: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3558: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3559: END IF;
3560: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3561: IF l_debug = FND_API.G_TRUE THEN
3562: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3563: END IF;
3564: END IF;
3565: IF l_debug = FND_API.G_TRUE THEN
3566: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE7');
3562: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3563: END IF;
3564: END IF;
3565: IF l_debug = FND_API.G_TRUE THEN
3566: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE7');
3567:
3568: END IF;
3569: EXCEPTION
3570: WHEN OTHERS THEN
3568: END IF;
3569: EXCEPTION
3570: WHEN OTHERS THEN
3571: IF l_debug = FND_API.G_TRUE THEN
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION EXCEPTION '|| SQLERRM);
3573: END IF;
3574: x_return_status := FND_API.G_RET_STS_ERROR;
3575: x_return_status_text := 'Error QP_PREQ_PUB.BACK_CALCULATION '|| SQLERRM;
3576: END BACK_CALCULATION;
3640: OR line.order_uom_selling_price IS NULL )
3641: AND nvl(line.QUALIFIERS_EXIST_FLAG, G_NO) <> G_CALCULATE_ONLY
3642: AND nvl(line.processed_flag, 'N') <> G_FREEGOOD_LINE; -- added for bug 3116349 /*avallark*/
3643:
3644: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3645: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3646: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3641: AND nvl(line.QUALIFIERS_EXIST_FLAG, G_NO) <> G_CALCULATE_ONLY
3642: AND nvl(line.processed_flag, 'N') <> G_FREEGOOD_LINE; -- added for bug 3116349 /*avallark*/
3643:
3644: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3645: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3646: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3642: AND nvl(line.processed_flag, 'N') <> G_FREEGOOD_LINE; -- added for bug 3116349 /*avallark*/
3643:
3644: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3645: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3646: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3643:
3644: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3645: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3646: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3644: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3645: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3646: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3645: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3646: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3646: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3647: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3648: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3649: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3657: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3650: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3657: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3658: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3651: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3657: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3658: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3659:
3652: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3657: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3658: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3659:
3660: l_return_status VARCHAR2(30);
3653: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3657: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3658: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3659:
3660: l_return_status VARCHAR2(30);
3661: l_return_status_text VARCHAR2(240);
3664: i NUMBER;
3665:
3666: l_back_calc_ret_rec back_calc_rec_type;
3667:
3668: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3669: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3670: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3665:
3666: l_back_calc_ret_rec back_calc_rec_type;
3667:
3668: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3669: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3670: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3666: l_back_calc_ret_rec back_calc_rec_type;
3667:
3668: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3669: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3670: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3667:
3668: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3669: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3670: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3668: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3669: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3670: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3669: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3670: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3677: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3670: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3677: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3678: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3671: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3677: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3678: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3679: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3672: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3677: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3678: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3679: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3680:
3673: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3677: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3678: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3679: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3680:
3681: --[prarasto:Post Round] Start : new variables
3674: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3677: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3678: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3679: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3680:
3681: --[prarasto:Post Round] Start : new variables
3682: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3675: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3676: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3677: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3678: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3679: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3680:
3681: --[prarasto:Post Round] Start : new variables
3682: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3683: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3678: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3679: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3680:
3681: --[prarasto:Post Round] Start : new variables
3682: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3683: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3684: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3685: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3686: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3679: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3680:
3681: --[prarasto:Post Round] Start : new variables
3682: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3683: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3684: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3685: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3686: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3687: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3680:
3681: --[prarasto:Post Round] Start : new variables
3682: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3683: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3684: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3685: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3686: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3687: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3688: --[prarasto:Post Round] End : new variables
3681: --[prarasto:Post Round] Start : new variables
3682: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3683: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3684: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3685: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3686: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3687: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3688: --[prarasto:Post Round] End : new variables
3689:
3682: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3683: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3684: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3685: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3686: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3687: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3688: --[prarasto:Post Round] End : new variables
3689:
3690: BEGIN
3683: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3684: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3685: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3686: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3687: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3688: --[prarasto:Post Round] End : new variables
3689:
3690: BEGIN
3691: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3687: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3688: --[prarasto:Post Round] End : new variables
3689:
3690: BEGIN
3691: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3692: IF l_debug = FND_API.G_TRUE THEN
3693: QP_PREQ_GRP.engine_debug('Begin update_unit_price');
3694:
3695: END IF;
3689:
3690: BEGIN
3691: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3692: IF l_debug = FND_API.G_TRUE THEN
3693: QP_PREQ_GRP.engine_debug('Begin update_unit_price');
3694:
3695: END IF;
3696: OPEN l_check_adjustments_cur;
3697: l_line_index_tbl.DELETE;
3731: l_amount_changed_tbl,
3732: l_line_unit_price_tbl;
3733: CLOSE l_check_adjustments_cur;
3734:
3735: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3736: AND l_line_index_tbl.COUNT > 0
3737: THEN
3738: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3739: LOOP
3737: THEN
3738: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3739: LOOP
3740: IF l_debug = FND_API.G_TRUE THEN
3741: QP_PREQ_GRP.engine_debug('line_index '
3742: || l_line_index_tbl(i) ||' unit_price '
3743: || l_unit_price_tbl(i) ||' adj_unit_price '
3744: || l_adj_unit_price_tbl(i) ||' price_qty '
3745: || l_priced_qty_tbl(i) ||' ordqty '|| l_line_qty_tbl(i)
3759: --if the caller has overridden the selling price
3760: --and if the line did not go thru calculation
3761: IF l_upd_adj_unit_price_tbl(i) IS NOT NULL THEN
3762: IF l_debug = FND_API.G_TRUE THEN
3763: QP_PREQ_GRP.engine_debug('back calculation for line '
3764: || l_line_index_tbl(i));
3765: END IF; --l_debug
3766:
3767: IF G_ROUND_INDIVIDUAL_ADJ not in (G_NO_ROUND, G_POST_ROUND)
3780: (l_upd_adj_unit_price_tbl(i) - l_adj_unit_price_tbl(i));
3781:
3782:
3783: IF l_debug = FND_API.G_TRUE THEN
3784: QP_PREQ_GRP.engine_debug('amt chg '|| l_amount_changed_tbl(i));
3785: END IF; --l_debug
3786:
3787: IF l_amount_changed_tbl(i) <= 0 THEN
3788: G_BACK_CALCULATION_CODE := 'DIS';
3798:
3799: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3800: --need to do this check for bug 2833753
3801: IF l_debug = FND_API.G_TRUE THEN
3802: QP_PREQ_GRP.engine_debug('back cal succ insert rec ');
3803: END IF; --l_debug
3804:
3805: l_adj_unit_price_tbl(i) := l_upd_adj_unit_price_tbl(i);
3806:
3811: -- Ravi bug# 2745337-divisor by zero
3812: IF (l_line_qty_tbl(i) <> 0
3813: OR l_back_calc_ret_rec.modifier_level_code = G_ORDER_LEVEL) THEN
3814: IF (l_debug = FND_API.G_TRUE) THEN
3815: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6');
3816: END IF; --l_debug
3817: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3818: p_priced_qty => l_priced_qty_tbl(i),
3819: p_catchweight_qty => l_catchwt_qty_tbl(i),
3829: x_return_status => x_return_status,
3830: x_return_status_text => x_return_status_text);
3831: ELSE --l_line_qty_tbl(i)
3832: IF l_debug = FND_API.G_TRUE THEN
3833: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_line_qty_tbl(i));
3834: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
3835: END IF; --l_debug
3836: l_ord_qty_operand := 0;
3837: l_ord_qty_adj_amt := 0;
3830: x_return_status_text => x_return_status_text);
3831: ELSE --l_line_qty_tbl(i)
3832: IF l_debug = FND_API.G_TRUE THEN
3833: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_line_qty_tbl(i));
3834: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
3835: END IF; --l_debug
3836: l_ord_qty_operand := 0;
3837: l_ord_qty_adj_amt := 0;
3838: END IF; --l_line_qty_tbl(i)
3876: l_ord_qty_adj_amt; --3057395
3877:
3878: ELSE --l_ret_status
3879: IF l_debug = FND_API.G_TRUE THEN
3880: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
3881: END IF; --l_debug
3882: l_pricing_sts_code_tbl(i) := l_return_status;
3883: l_pricing_sts_text_tbl(i) := l_return_status_text;
3884: END IF; --ret_status
3889: l_adj_unit_price_tbl(i) := l_unit_price_tbl(i);
3890: END IF; --l_upd_adj_unit_price_tbl IS NOT NULL
3891:
3892: IF l_debug = FND_API.G_TRUE THEN
3893: QP_PREQ_GRP.engine_debug('end back calc for line '
3894: ||' unit price '|| l_unit_price_tbl(i)
3895: ||' adj_unit_price '|| l_adj_unit_price_tbl(i)
3896: ||' upd_adj_unit_price '|| l_upd_adj_unit_price_tbl(i));
3897: END IF; --l_debug
3901: IF (l_line_qty_tbl(i) <> 0
3902: OR l_back_calc_ret_rec.modifier_level_code =
3903: G_ORDER_LEVEL) THEN
3904: IF (l_debug = FND_API.G_TRUE) THEN
3905: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6.5');
3906: END IF; --l_debug
3907: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3908: p_priced_qty => l_priced_qty_tbl(i),
3909: p_catchweight_qty => l_catchwt_qty_tbl(i),
3917: x_return_status => x_return_status,
3918: x_return_status_text => x_return_status_text);
3919: ELSE --ordered_qty
3920: IF l_debug = FND_API.G_TRUE THEN
3921: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
3922: || l_line_qty_tbl(i));
3923: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
3924: ||'0 or modifier level code is not ORDER');
3925: END IF; --l_debug
3919: ELSE --ordered_qty
3920: IF l_debug = FND_API.G_TRUE THEN
3921: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
3922: || l_line_qty_tbl(i));
3923: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
3924: ||'0 or modifier level code is not ORDER');
3925: END IF; --l_debug
3926: l_line_unit_price_tbl(i) := 0;
3927: l_ord_uom_selling_price_tbl(i) := 0;
3952: END IF;
3953:
3954:
3955: IF l_debug = FND_API.G_TRUE THEN
3956: QP_PREQ_GRP.engine_debug('roundingfac to round sellingprice: '
3957: || l_rounding_factor_tbl(i));
3958: END IF; --l_debug
3959:
3960: IF (G_ROUND_INDIVIDUAL_ADJ = G_NO_ROUND) or (l_rounding_factor_tbl(i) is null) THEN
3968: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
3969: END IF;
3970:
3971: IF l_debug = FND_API.G_TRUE THEN
3972: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3973: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3974: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3975: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3976: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3969: END IF;
3970:
3971: IF l_debug = FND_API.G_TRUE THEN
3972: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3973: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3974: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3975: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3976: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3977: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3970:
3971: IF l_debug = FND_API.G_TRUE THEN
3972: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3973: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3974: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3975: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3976: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3977: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3978: END IF; --l_debug
3971: IF l_debug = FND_API.G_TRUE THEN
3972: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3973: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3974: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3975: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3976: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3977: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3978: END IF; --l_debug
3979: --===[prarasto:Post Round] End : Calculate rounded values ==--
3972: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3973: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3974: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3975: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3976: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3977: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3978: END IF; --l_debug
3979: --===[prarasto:Post Round] End : Calculate rounded values ==--
3980:
3973: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3974: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3975: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3976: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3977: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3978: END IF; --l_debug
3979: --===[prarasto:Post Round] End : Calculate rounded values ==--
3980:
3981: /*
3995: END IF;--l_rounding_factor_tbl
3996: */
3997:
3998: IF l_debug = FND_API.G_TRUE THEN
3999: QP_PREQ_GRP.engine_debug('line_index '
4000: || l_line_index_tbl(i) ||' ord_uom_selling_price '
4001: || l_ord_uom_selling_price_tbl(i));
4002: END IF; --l_debug
4003:
4028: IF l_line_index_tbl.COUNT > 0
4029: THEN
4030:
4031: IF l_debug = FND_API.G_TRUE THEN
4032: QP_PREQ_GRP.engine_debug('unit price needs to be updated');
4033: END IF;
4034:
4035: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
4036: UPDATE qp_npreq_lines_tmp
4055: WHEN OTHERS THEN
4056: x_return_status := FND_API.G_RET_STS_ERROR;
4057: x_return_status_text := l_routine ||' '|| SQLERRM;
4058: IF l_debug = FND_API.G_TRUE THEN
4059: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
4060: END IF;
4061: END UPDATE_UNIT_PRICE;
4062:
4063:
4068: PROCEDURE Update_Line_Status(x_return_status OUT NOCOPY VARCHAR2,
4069: x_return_status_text OUT NOCOPY VARCHAR2) IS
4070:
4071: BEGIN
4072: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4073: IF l_debug = FND_API.G_TRUE THEN
4074: QP_PREQ_GRP.engine_debug('Begin Update_Line_Status:calculate_flag '|| G_CALCULATE_FLAG);
4075:
4076: END IF;
4070:
4071: BEGIN
4072: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4073: IF l_debug = FND_API.G_TRUE THEN
4074: QP_PREQ_GRP.engine_debug('Begin Update_Line_Status:calculate_flag '|| G_CALCULATE_FLAG);
4075:
4076: END IF;
4077:
4078: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
4246: l_adj_tbl QP_PREQ_PUB.adj_tbl_type;
4247: l_frt_tbl FRT_CHARGE_TBL;
4248: l_back_calc_ret_rec back_calc_rec_type;
4249:
4250: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4251: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4252: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4247: l_frt_tbl FRT_CHARGE_TBL;
4248: l_back_calc_ret_rec back_calc_rec_type;
4249:
4250: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4251: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4252: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4248: l_back_calc_ret_rec back_calc_rec_type;
4249:
4250: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4251: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4252: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4249:
4250: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4251: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4252: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4250: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4251: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4252: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4251: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4252: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4252: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4253: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4254: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4255: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4256: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4257: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4258: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4259: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4260: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4261: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4262: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4263: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4264: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4265: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4266: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4267: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4268: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4269: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4277: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4270: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4277: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4278: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4271: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4277: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4278: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4279:
4272: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4277: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4278: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4279:
4280:
4273: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4277: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4278: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4279:
4280:
4281: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4274: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4275: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4277: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4278: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4279:
4280:
4281: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4282: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4277: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4278: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4279:
4280:
4281: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4282: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4278: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4279:
4280:
4281: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4282: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4279:
4280:
4281: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4282: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4280:
4281: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4282: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4281: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4282: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4282: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4283: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4285: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4286: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4287: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4288: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4296: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4296: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4296: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4291: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4296: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4299: l_calc_quantity NUMBER;
4292: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4296: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4299: l_calc_quantity NUMBER;
4300:
4293: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4296: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4299: l_calc_quantity NUMBER;
4300:
4301: --[prarasto:Post Round] Start : new variables
4294: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4295: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4296: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4299: l_calc_quantity NUMBER;
4300:
4301: --[prarasto:Post Round] Start : new variables
4302: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4299: l_calc_quantity NUMBER;
4300:
4301: --[prarasto:Post Round] Start : new variables
4302: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4304: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4305: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4306: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4299: l_calc_quantity NUMBER;
4300:
4301: --[prarasto:Post Round] Start : new variables
4302: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4304: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4305: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4306: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4307: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4300:
4301: --[prarasto:Post Round] Start : new variables
4302: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4304: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4305: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4306: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4307: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4308: --[prarasto:Post Round] End : new variables
4301: --[prarasto:Post Round] Start : new variables
4302: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4304: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4305: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4306: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4307: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4308: --[prarasto:Post Round] End : new variables
4309:
4302: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4304: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4305: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4306: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4307: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4308: --[prarasto:Post Round] End : new variables
4309:
4310: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4304: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4305: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4306: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4307: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4308: --[prarasto:Post Round] End : new variables
4309:
4310: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4311: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4306: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4307: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4308: --[prarasto:Post Round] End : new variables
4309:
4310: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4311: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4312: l_back_calc_plsql_tbl_index QP_PREQ_GRP.NUMBER_TYPE;
4313:
4314: l_back_calc_dtl_ind NUMBER;
4307: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4308: --[prarasto:Post Round] End : new variables
4309:
4310: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4311: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4312: l_back_calc_plsql_tbl_index QP_PREQ_GRP.NUMBER_TYPE;
4313:
4314: l_back_calc_dtl_ind NUMBER;
4315: l_back_calc_adj_amount NUMBER;
4308: --[prarasto:Post Round] End : new variables
4309:
4310: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4311: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4312: l_back_calc_plsql_tbl_index QP_PREQ_GRP.NUMBER_TYPE;
4313:
4314: l_back_calc_dtl_ind NUMBER;
4315: l_back_calc_adj_amount NUMBER;
4316: l_back_calc_plsql_index NUMBER;
4322:
4323: l_pricing_attribute VARCHAR2(240);
4324:
4325: --added to calculate order level adjustments' adj amt
4326: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4327: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4328: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4329: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4330: l_ord_qty_adj_amt NUMBER := 0;
4323: l_pricing_attribute VARCHAR2(240);
4324:
4325: --added to calculate order level adjustments' adj amt
4326: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4327: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4328: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4329: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4330: l_ord_qty_adj_amt NUMBER := 0;
4331: l_ord_qty_operand NUMBER := 0;
4324:
4325: --added to calculate order level adjustments' adj amt
4326: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4327: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4328: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4329: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4330: l_ord_qty_adj_amt NUMBER := 0;
4331: l_ord_qty_operand NUMBER := 0;
4332:
4325: --added to calculate order level adjustments' adj amt
4326: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4327: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4328: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4329: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4330: l_ord_qty_adj_amt NUMBER := 0;
4331: l_ord_qty_operand NUMBER := 0;
4332:
4333: -- begin 2892848, net amount
4410: l_netamt_flag VARCHAR2(1);
4411: l_bucketed_flag VARCHAR2(1);
4412:
4413: -- [julin/5025231]
4414: l_line_ind_ind_lookup_tbl QP_PREQ_GRP.NUMBER_TYPE;
4415:
4416: BEGIN
4417: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4418: IF l_debug = FND_API.G_TRUE THEN
4413: -- [julin/5025231]
4414: l_line_ind_ind_lookup_tbl QP_PREQ_GRP.NUMBER_TYPE;
4415:
4416: BEGIN
4417: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4418: IF l_debug = FND_API.G_TRUE THEN
4419: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4420:
4421: QP_PREQ_GRP.engine_debug('Display related records ');
4415:
4416: BEGIN
4417: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4418: IF l_debug = FND_API.G_TRUE THEN
4419: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4420:
4421: QP_PREQ_GRP.engine_debug('Display related records ');
4422: END IF;
4423: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4417: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4418: IF l_debug = FND_API.G_TRUE THEN
4419: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4420:
4421: QP_PREQ_GRP.engine_debug('Display related records ');
4422: END IF;
4423: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4424: THEN
4425: --fix for bug 2515762 to print in debug the rltd info
4419: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4420:
4421: QP_PREQ_GRP.engine_debug('Display related records ');
4422: END IF;
4423: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4424: THEN
4425: --fix for bug 2515762 to print in debug the rltd info
4426: FOR cl IN l_rltd_lines_cur
4427: LOOP
4425: --fix for bug 2515762 to print in debug the rltd info
4426: FOR cl IN l_rltd_lines_cur
4427: LOOP
4428: IF l_debug = FND_API.G_TRUE THEN
4429: QP_PREQ_GRP.engine_debug('related records with status N '
4430: ||' line_dtl_index '|| cl.line_detail_index
4431: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
4432: ||' line_index '|| cl.line_index
4433: ||' rltd_line_index '|| cl.related_line_index
4518:
4519: l_adj_tbl := p_adj_tbl;
4520:
4521: IF l_debug = FND_API.G_TRUE THEN
4522: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4523: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4524:
4525: END IF;
4526: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4519: l_adj_tbl := p_adj_tbl;
4520:
4521: IF l_debug = FND_API.G_TRUE THEN
4522: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4523: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4524:
4525: END IF;
4526: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4527: THEN
4522: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4523: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4524:
4525: END IF;
4526: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4527: THEN
4528: IF l_debug = FND_API.G_TRUE THEN
4529: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4530: END IF;
4525: END IF;
4526: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4527: THEN
4528: IF l_debug = FND_API.G_TRUE THEN
4529: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4530: END IF;
4531: FOR z IN 1..l_adj_tbl.COUNT
4532: LOOP
4533: IF l_debug = FND_API.G_TRUE THEN
4530: END IF;
4531: FOR z IN 1..l_adj_tbl.COUNT
4532: LOOP
4533: IF l_debug = FND_API.G_TRUE THEN
4534: QP_PREQ_GRP.engine_debug('Processing Adjustments:
4535: line index '|| l_adj_tbl(z).line_ind ||' '||
4536: ' line dtl index '|| l_adj_tbl(z).line_detail_index ||
4537: ' pricing_status '|| l_adj_tbl(z).pricing_status_code ||
4538: ' ldet rec '|| l_adj_tbl(z).is_ldet_rec ||
4566: END IF;
4567: -- end 2892848
4568:
4569: IF l_debug = FND_API.G_TRUE THEN
4570: QP_PREQ_GRP.engine_debug('Processing Line: Line Index '
4571: || l_adj_tbl(j).line_ind ||
4572: ' list price: '|| l_adj_tbl(j).unit_price ||
4573: ' l_adj_tbl(j).updated_adjusted_unit_price: '|| l_adj_tbl(j).updated_adjusted_unit_price ||
4574: ' previous l_adjusted_price: '|| l_adjusted_price || -- 2892848
4589:
4590: -- l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0); -- SL_more, do not reset, since we need USP from prev bucket sometimes
4591: IF (l_ntamt_adj_unit_price.EXISTS(l_adj_tbl(j).line_ind)) THEN
4592: IF l_debug = FND_API.G_TRUE THEN
4593: QP_PREQ_GRP.engine_debug('l_ntamt_adj_unit_price(cur_line_ind): '|| l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind));
4594: END IF; -- Added For Bug No - 4033618
4595: l_adjusted_price := nvl(l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind), l_adj_tbl(j).unit_price);
4596: ELSE
4597: l_adjusted_price := nvl(l_adj_tbl(j).unit_price, 0); -- SL_more
4601: l_adjusted_price := 0; -- NULL cause nvl(l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind),l_adj_tbl(j).unit_price) being null
4602: END IF; -- end debug
4603:
4604: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4605: QP_PREQ_GRP.engine_debug('l_adjusted_price default: '|| l_adjusted_price);
4606: END IF; -- end debug
4607:
4608: IF (l_adj_tbl(j).pricing_group_sequence IS NULL OR
4609: l_adj_tbl(j).pricing_group_sequence = 0) THEN
4627: l_adjusted_price *l_adj_tbl(j).line_priced_quantity;
4628: */
4629:
4630: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4631: QP_PREQ_GRP.engine_debug('l_prev_line_index: '|| l_prev_line_index);
4632: END IF; -- end debug
4633:
4634: -- same line
4635: IF l_prev_line_index = l_adj_tbl(j).line_ind THEN -- will be at least 1
4664: -- [julin/4055310]
4665: l_prev_bucket_amt_tbl := l_bucket_amt_tbl;
4666:
4667: IF l_debug = FND_API.G_TRUE THEN
4668: QP_PREQ_GRP.engine_debug('same line, different bucket.'
4669: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4670: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4671: || l_adjusted_price || '*' ||
4672: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4666:
4667: IF l_debug = FND_API.G_TRUE THEN
4668: QP_PREQ_GRP.engine_debug('same line, different bucket.'
4669: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4670: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4671: || l_adjusted_price || '*' ||
4672: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4673: END IF; -- end debug
4674:
4673: END IF; -- end debug
4674:
4675: ELSE -- SL_more, same line same bucket, ELSE IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4676: IF l_debug = FND_API.G_TRUE THEN
4677: QP_PREQ_GRP.engine_debug('same line, same bucket.'
4678: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4679: END IF; -- end debug
4680: END IF; -- END IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4681:
4709: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4710: l_adjusted_price := l_sub_total_price;
4711: END IF;
4712: IF l_debug = FND_API.G_TRUE THEN
4713: QP_PREQ_GRP.engine_debug('different line, different bucket. '
4714: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4715: END IF; -- end debug
4716:
4717: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4716:
4717: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4718: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity;
4719: IF l_debug = FND_API.G_TRUE THEN
4720: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
4721: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4722: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4723: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4724: END IF; -- end debug
4717: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4718: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity;
4719: IF l_debug = FND_API.G_TRUE THEN
4720: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
4721: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4722: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4723: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4724: END IF; -- end debug
4725:
4726: -- bucket change, line change and not the 1st line
4727: ELSE -- l_prev_line_index <> -9999
4728:
4729: IF l_debug = FND_API.G_TRUE THEN
4730: QP_PREQ_GRP.engine_debug('bucket change, line change and not the 1st line, sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4731: END IF; -- END DEBUG
4732: IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index)) THEN
4733: -- moment to capture current USP for prev line_index,
4734: -- so we have correct amts in l_bucket_amt_tbl when using it
4734: -- so we have correct amts in l_bucket_amt_tbl when using it
4735: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_ntamt_adj_unit_price(l_prev_line_index), l_adj_tbl(j).unit_price) * l_prev_qty;
4736:
4737: IF l_debug = FND_API.G_TRUE THEN
4738: QP_PREQ_GRP.engine_debug('capture bucket amt of prev_line_index l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4739: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), l_adj_tbl(j).unit_price) || '*' ||
4740: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4741: END IF; -- end debug
4742:
4743: ELSE -- ELSE IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index))
4744: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_adj_tbl(j).unit_price, 0) * l_prev_qty;
4745: IF l_debug = FND_API.G_TRUE THEN
4746:
4747: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
4748: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4749: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4750: END IF; -- end debug
4751: END IF; -- END (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index))
4765:
4766: END IF;
4767:
4768: IF l_debug = FND_API.G_TRUE THEN
4769: QP_PREQ_GRP.engine_debug('different line, same bucket');
4770: QP_PREQ_GRP.engine_debug('sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4771: END IF; -- end debug
4772:
4773: -- moment to capture current USP for prev line_index,
4766: END IF;
4767:
4768: IF l_debug = FND_API.G_TRUE THEN
4769: QP_PREQ_GRP.engine_debug('different line, same bucket');
4770: QP_PREQ_GRP.engine_debug('sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4771: END IF; -- end debug
4772:
4773: -- moment to capture current USP for prev line_index,
4774: -- so we have correct amts in l_bucket_amt_tbl when using it
4774: -- so we have correct amts in l_bucket_amt_tbl when using it
4775: IF l_ntamt_adj_unit_price.EXISTS(l_prev_line_index) THEN
4776: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) * l_prev_qty;
4777: IF l_debug = FND_API.G_TRUE THEN
4778: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4779: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) || '*' ||
4780: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4781: END IF; -- end debug
4782: /*
4788: -- SL_more, default, 1st bucket for this line has no prev buckets no prev adjs
4789: IF l_1st_bucket = 'Y' THEN -- 1st bucket for this line, bucket at lease 1 up
4790: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity; -- for line level net amt we need this
4791: IF l_debug = FND_API.G_TRUE THEN
4792: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_adj_tbl(j).line_ind ||'): '
4793: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4794: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4795: END IF; -- end debug
4796: END IF; -- END IF l_1st_bucket ='Y'
4803: END IF; -- end if bucket is null or 0
4804:
4805: IF l_debug = FND_API.G_TRUE THEN
4806:
4807: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4808: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4809: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4810:
4811: END IF; -- Added For 4033618
4804:
4805: IF l_debug = FND_API.G_TRUE THEN
4806:
4807: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4808: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4809: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4810:
4811: END IF; -- Added For 4033618
4812: --SL_more
4805: IF l_debug = FND_API.G_TRUE THEN
4806:
4807: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4808: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4809: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4810:
4811: END IF; -- Added For 4033618
4812: --SL_more
4813: IF l_sub_total_price IS NULL THEN -- default just in case
4823: ---Bucket calculations
4824: IF l_prev_line_index = l_adj_tbl(j).line_ind
4825: THEN
4826: IF l_debug = FND_API.G_TRUE THEN
4827: QP_PREQ_GRP.engine_debug('no line change'
4828: ||' prev_line_index '||l_prev_line_index
4829: ||' prev_bucket '||l_prev_bucket);
4830: END IF;
4831: line_change := false;
4831: line_change := false;
4832:
4833:
4834: IF l_debug = FND_API.G_TRUE THEN
4835: QP_PREQ_GRP.engine_debug('same line.');
4836: --||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4837: END IF;
4838: ELSE
4839: line_change := true;
4856:
4857: END IF; -- end index exists
4858:
4859: IF l_debug = FND_API.G_TRUE THEN
4860: QP_PREQ_GRP.engine_debug('line change '
4861: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4862: END IF;
4863:
4864: END IF; --l_prev_line_index = line_index
4869: IF l_adj_tbl(J).pricing_group_sequence <> 0 AND l_adj_tbl(J).pricing_group_sequence IS NOT NULL THEN -- bucket 0 is line event list price
4870: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
4871: IF l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence THEN
4872: IF l_debug = FND_API.G_TRUE THEN
4873: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to debug adj_amts or unit_adjs up to prev bucket.');
4874: END IF; -- END debug
4875:
4876: -- for LINE GROUP
4877: -- need capture the l_prev_lg_adj_amt
4880:
4881: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
4882: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
4883: IF l_debug = FND_API.G_TRUE THEN
4884: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
4885: END IF; -- END debug
4886:
4887: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
4888:
4898: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4899: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4900:
4901: IF l_debug = FND_API.G_TRUE THEN
4902: QP_PREQ_GRP.engine_debug ('debug LINE unit adjs up to prev bucket for line index'||l_adj_tbl(j).line_ind ||': '||l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) );
4903: END IF; -- END debug
4904: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4905:
4906: -- begin shu fix bug for special case, bucket change within same line index
4907: IF line_change = false THEN
4908: l_sub_total_price :=l_adj_unit_price_tbl(l_adj_tbl(j).line_ind);
4909:
4910: IF l_debug = FND_API.G_TRUE THEN
4911: QP_PREQ_GRP.engine_debug('bucket change within same line'
4912: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4913: END IF;
4914: END IF; -- END IF line_change = flase
4915: -- end shu fix bug
4926: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4927: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4928:
4929: IF l_debug = FND_API.G_TRUE THEN
4930: QP_PREQ_GRP.engine_debug ('line change, debug LINE unit adjs up to prev bucket for line index'||l_adj_tbl(j).line_ind ||': '||l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) );
4931: END IF; -- END debug
4932: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4933: END IF; -- END IF line_change true
4934:
4937: ELSE -- bucket is 0 or null -- begin shu fix bug
4938: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4939: l_adjusted_price :=nvl (l_adj_unit_price_tbl(l_adj_tbl(j).line_ind),0);
4940: IF l_debug = FND_API.G_TRUE THEN
4941: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
4942: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4943: END IF;
4944: -- end shu fix bug
4945:
4954: --to break the link from other lines that have this line
4955: --group adjustment
4956: l_calc_quantity := 0;
4957: --bug 4900095
4958: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind)
4959: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index))
4960: and l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
4961: --only for service items
4962: --when uom_quantity is passed as null,
4955: --group adjustment
4956: l_calc_quantity := 0;
4957: --bug 4900095
4958: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind)
4959: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index))
4960: and l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
4961: --only for service items
4962: --when uom_quantity is passed as null,
4963: -- and contract_start/end_dates are passed
4963: -- and contract_start/end_dates are passed
4964: --and for a line/linegroup lumpsum DIS/PBH/SUR/FREIGHT
4965: IF l_adj_tbl(j).modifier_level_code = G_LINE_GROUP THEN
4966: IF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index)
4967: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4968: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index),
4969: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4970: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4971: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4965: IF l_adj_tbl(j).modifier_level_code = G_LINE_GROUP THEN
4966: IF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index)
4967: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4968: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index),
4969: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4970: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4971: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4972: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4973: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4968: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index),
4969: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4970: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4971: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4972: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4973: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4974: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4975: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4976: ELSE
4969: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4970: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4971: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4972: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4973: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4974: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4975: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4976: ELSE
4977: l_calc_quantity :=
4970: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4971: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4972: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4973: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4974: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4975: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4976: ELSE
4977: l_calc_quantity :=
4978: nvl(nvl(l_adj_tbl(j).group_quantity
4971: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4972: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4973: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4974: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4975: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4976: ELSE
4977: l_calc_quantity :=
4978: nvl(nvl(l_adj_tbl(j).group_quantity
4979: , l_adj_tbl(j).group_amount) -- this is group_amount_per_unit
4980: , nvl(l_adj_tbl(j).priced_quantity
4981: , l_adj_tbl(j).line_priced_quantity));
4982: END IF;--G_Service_pbh_lg_amt_qty.exists
4983: ELSIF l_adj_tbl(j).modifier_level_code = G_LINE_LEVEL THEN
4984: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4985: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4986: ELSE
4987: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
4988: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
4981: , l_adj_tbl(j).line_priced_quantity));
4982: END IF;--G_Service_pbh_lg_amt_qty.exists
4983: ELSIF l_adj_tbl(j).modifier_level_code = G_LINE_LEVEL THEN
4984: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4985: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4986: ELSE
4987: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
4988: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
4989: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists
4985: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4986: ELSE
4987: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
4988: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
4989: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists
4990: END IF;--l_adj_tbl(j).modifier_level_code
4991: ELSE
4992: IF l_adj_tbl(j).modifier_level_code = G_LINE_GROUP
4993: -- and nvl(l_adj_tbl(j).is_ldet_rec,G_YES) = G_YES
5000: ELSE
5001: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
5002: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
5003: END IF;
5004: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists(
5005:
5006: l_calc_quantity := nvl(l_calc_quantity, 1);
5007:
5008: -- SHU
5010: -- group_amount is 40, group_amount_per_unit
5011: -- line_priced_quantity is 20, order qty for line 1
5012:
5013: IF l_debug = FND_API.G_TRUE THEN -- SHU
5014: QP_PREQ_GRP.engine_debug(
5015: 'figuring out qty level '|| l_adj_tbl(j).modifier_level_code
5016: ||' priced_quantity '|| l_adj_tbl(j).priced_quantity -- from ldets.line_quantity
5017: ||' group_quantity '|| l_adj_tbl(j).group_quantity
5018: ||' group_amount '|| l_adj_tbl(j).group_amount
5024: AND l_adj_tbl(j).pricing_status_code
5025: IN (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5026: THEN
5027: IF l_debug = FND_API.G_TRUE THEN
5028: QP_PREQ_GRP.engine_debug('Processing Price Break. call Price_Break_Calculation');
5029:
5030: END IF;
5031:
5032: --changes for PBH line group LUMPSUM bug 2388011 commented out
5075: l_req_value_per_unit := l_adj_tbl(j).line_priced_quantity; --20
5076: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848 SL_latest move to here as default
5077: END IF;
5078: IF l_debug = FND_API.G_TRUE THEN
5079: QP_PREQ_GRP.engine_debug('l_qualifier_value default: '|| l_adj_tbl(j).priced_quantity);
5080: QP_PREQ_GRP.engine_debug('l_qualifier_value : '|| l_qualifier_value);
5081: END IF; -- end debug
5082: -- begin 2892848
5083: -- net_amount line level (not group of line) modifier
5076: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848 SL_latest move to here as default
5077: END IF;
5078: IF l_debug = FND_API.G_TRUE THEN
5079: QP_PREQ_GRP.engine_debug('l_qualifier_value default: '|| l_adj_tbl(j).priced_quantity);
5080: QP_PREQ_GRP.engine_debug('l_qualifier_value : '|| l_qualifier_value);
5081: END IF; -- end debug
5082: -- begin 2892848
5083: -- net_amount line level (not group of line) modifier
5084: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5082: -- begin 2892848
5083: -- net_amount line level (not group of line) modifier
5084: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5085: IF l_debug = FND_API.G_TRUE THEN
5086: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_adj_tbl(J).created_from_list_line_id);
5087: END IF; -- end debug
5088:
5089: /* SL_latest 2892848
5090: IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5090: IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5091: -- priced_quantity is line amount, line_priced_quantity is order qty
5092: l_qualifier_value:= l_adj_tbl(j).priced_quantity + nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0)* l_adj_tbl(j).line_priced_quantity;
5093: IF l_debug = FND_API.G_TRUE THEN
5094: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5095: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5096: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0) );
5097: END IF; -- end debug
5098: ELSE
5091: -- priced_quantity is line amount, line_priced_quantity is order qty
5092: l_qualifier_value:= l_adj_tbl(j).priced_quantity + nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0)* l_adj_tbl(j).line_priced_quantity;
5093: IF l_debug = FND_API.G_TRUE THEN
5094: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5095: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5096: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0) );
5097: END IF; -- end debug
5098: ELSE
5099: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5092: l_qualifier_value:= l_adj_tbl(j).priced_quantity + nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0)* l_adj_tbl(j).line_priced_quantity;
5093: IF l_debug = FND_API.G_TRUE THEN
5094: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5095: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5096: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0) );
5097: END IF; -- end debug
5098: ELSE
5099: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5100: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j))
5099: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5100: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j))
5101:
5102: IF l_debug = FND_API.G_TRUE THEN
5103: QP_PREQ_GRP.engine_debug('line level net amount: '||l_qualifier_value);
5104: END IF; -- end debug
5105: ELSE -- not net_amount modifier
5106: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5107:
5105: ELSE -- not net_amount modifier
5106: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5107:
5108: IF l_debug = FND_API.G_TRUE THEN
5109: QP_PREQ_GRP.engine_debug('not net amount pbh qualifier value: '||l_qualifier_value);
5110: END IF; -- end debug
5111: */
5112: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5113: l_qualifier_value := l_bucket_amt_tbl(l_adj_tbl(j).line_ind);
5111: */
5112: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5113: l_qualifier_value := l_bucket_amt_tbl(l_adj_tbl(j).line_ind);
5114: IF l_debug = FND_API.G_TRUE THEN
5115: QP_PREQ_GRP.engine_debug('line level net amount: '|| l_qualifier_value);
5116: END IF; -- end debug
5117: END IF; -- END IF l_bucket_amt_tbl.EXISTs
5118: END IF; -- END IF net_amount modifier
5119: -- end 2892848
5120:
5121: END IF; --G_pbhvolattr_attribute
5122:
5123: IF l_debug = FND_API.G_TRUE THEN
5124: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5125: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5126: ||' l_total_value '|| l_total_value ||' l_req_value_per_unit '
5127: || l_req_value_per_unit);
5128: END IF; --l_debug
5164: -- IF net amount linegroup modifier
5165: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5166:
5167: IF l_debug = FND_API.G_TRUE THEN
5168: QP_PREQ_GRP.engine_debug('net amount linegroup modifier list_line_id: '|| l_adj_tbl(J).created_from_list_line_id);
5169: END IF; -- end debug
5170:
5171: -- begin SL_latest 2892848
5172: l_lg_net_amt := 0; --SL_latest
5196: IF nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P' THEN
5197: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5198: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id);
5199: IF l_debug = FND_API.G_TRUE THEN
5200: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5201: END IF; --end debug
5202: ELSE -- need to calculate l_lg_net_amt
5203: IF l_debug = FND_API.G_TRUE THEN
5204: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
5200: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5201: END IF; --end debug
5202: ELSE -- need to calculate l_lg_net_amt
5203: IF l_debug = FND_API.G_TRUE THEN
5204: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
5205: END IF;
5206: -- calculate amount using product attribute net amount grouping
5207: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5208: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
5207: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5208: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
5209: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
5210: IF l_debug = FND_API.G_TRUE THEN
5211: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
5212: END IF; --end debug
5213: ELSE
5214: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5215: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5213: ELSE
5214: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5215: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5216: IF l_debug = FND_API.G_TRUE THEN
5217: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
5218: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
5219: END IF;
5220: END IF;
5221: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5214: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5215: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5216: IF l_debug = FND_API.G_TRUE THEN
5217: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
5218: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
5219: END IF;
5220: END IF;
5221: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5222:
5220: END IF;
5221: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5222:
5223: IF l_debug = FND_API.G_TRUE THEN
5224: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
5225: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
5226: END IF;
5227: END LOOP;
5228:
5221: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5222:
5223: IF l_debug = FND_API.G_TRUE THEN
5224: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
5225: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
5226: END IF;
5227: END LOOP;
5228:
5229: l_mod_lg_prod_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id) := l_lg_prod_net_amt; -- preserve this for recycle
5232:
5233: IF (l_1st_bucket = 'Y') THEN
5234:
5235: IF l_debug = FND_API.G_TRUE THEN
5236: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
5237: END IF; -- end debug
5238: l_lg_net_amt := l_adj_tbl(j).priced_quantity;
5239:
5240: ELSE -- l_1st_bucket='N'
5239:
5240: ELSE -- l_1st_bucket='N'
5241:
5242: IF l_debug = FND_API.G_TRUE THEN
5243: QP_PREQ_GRP.engine_debug(' - not first bucket');
5244: END IF; --Added For Bug No - 4033618
5245: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5246: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5247: IF l_debug = FND_API.G_TRUE THEN
5244: END IF; --Added For Bug No - 4033618
5245: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5246: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5247: IF l_debug = FND_API.G_TRUE THEN
5248: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5249: END IF; --end debug
5250: ELSE -- need to calculate l_lg_net_amt
5251: IF l_debug = FND_API.G_TRUE THEN
5252: QP_PREQ_GRP.engine_debug('lg_net_amt for list line '|| l_adj_tbl(j).created_from_list_line_id ||' not cached');
5248: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5249: END IF; --end debug
5250: ELSE -- need to calculate l_lg_net_amt
5251: IF l_debug = FND_API.G_TRUE THEN
5252: QP_PREQ_GRP.engine_debug('lg_net_amt for list line '|| l_adj_tbl(j).created_from_list_line_id ||' not cached');
5253: END IF;
5254: -- regular net amount processing
5255: l_adj_exists_in_tmp_tbl := 'N'; -- reset bug 3618464
5256: FOR t IN l_net_mod_index_cur(l_adj_tbl(j).created_from_list_line_id) LOOP
5257: l_adj_exists_in_tmp_tbl := 'Y'; -- bug 3618464
5258: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
5259: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
5260: IF l_debug = FND_API.G_TRUE THEN
5261: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
5262: END IF; --end debug
5263: ELSE
5264: l_line_bucket_amt := 0;
5265: END IF;
5265: END IF;
5266: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5267:
5268: IF l_debug = FND_API.G_TRUE THEN
5269: QP_PREQ_GRP.engine_debug('l_line_bucket_amt: ' || l_line_bucket_amt);
5270: QP_PREQ_GRP.engine_debug('up-tp-date l_lg_net_amt: ' || l_lg_net_amt); -- grp amt
5271: END IF; --end debug
5272: END LOOP; -- end l_net_mod_index_cur
5273:
5266: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5267:
5268: IF l_debug = FND_API.G_TRUE THEN
5269: QP_PREQ_GRP.engine_debug('l_line_bucket_amt: ' || l_line_bucket_amt);
5270: QP_PREQ_GRP.engine_debug('up-tp-date l_lg_net_amt: ' || l_lg_net_amt); -- grp amt
5271: END IF; --end debug
5272: END LOOP; -- end l_net_mod_index_cur
5273:
5274: -- Bug 3618464 - GROUP OF LINES, NET AMOUNT, OVERRIDE MODIFIER
5277: IF G_LINE_INDEXES_FOR_LINE_ID.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5278: l_line_index_str := G_LINE_INDEXES_FOR_LINE_ID(l_adj_tbl(j).created_from_list_line_id);
5279: END IF;
5280: IF l_debug = FND_API.G_TRUE THEN
5281: QP_PREQ_GRP.engine_debug('l_line_index_str = ' || l_line_index_str);
5282: END IF;
5283: IF l_line_index_str IS NOT NULL THEN
5284: LOOP
5285: l_instr_pos := instr(l_line_index_str, ',');
5290:
5291: IF l_bucket_amt_tbl.EXISTS(l_index) THEN
5292: l_line_bucket_amt := nvl(l_bucket_amt_tbl(l_index), 0);
5293: IF l_debug = FND_API.G_TRUE THEN
5294: QP_PREQ_GRP.engine_debug('Net Amount Override PBH LINEGROUP ' || l_index || ':' || l_bucket_amt_tbl(l_index));
5295: END IF; --end debug
5296: ELSE
5297: l_line_bucket_amt := 0;
5298: END IF;
5298: END IF;
5299: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5300:
5301: IF l_debug = FND_API.G_TRUE THEN
5302: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_index ||'): '|| l_line_bucket_amt);
5303: END IF; --end debug
5304: END LOOP;
5305: END IF; --if l_line_index_str is not null
5306: END IF; --if l_adj_exists_in_tmp_tbl = 'N'
5311:
5312: END IF; -- END IF l_prev_bucket = -9999
5313:
5314: IF l_debug = FND_API.G_TRUE THEN
5315: QP_PREQ_GRP.engine_debug('final l_lg_net_amt: '|| l_lg_net_amt);
5316: END IF; --end debug
5317: -- end SL_latest
5318:
5319: -- [julin/4112395/4220399]
5337: END IF;
5338: END IF;
5339:
5340: IF l_debug = FND_API.G_TRUE THEN
5341: QP_PREQ_GRP.engine_debug('group amount: ' || l_adj_tbl(j).priced_quantity); -- grp amt
5342: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
5343: END IF; --end debug
5344:
5345: ELSE -- not net amount modifier
5338: END IF;
5339:
5340: IF l_debug = FND_API.G_TRUE THEN
5341: QP_PREQ_GRP.engine_debug('group amount: ' || l_adj_tbl(j).priced_quantity); -- grp amt
5342: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
5343: END IF; --end debug
5344:
5345: ELSE -- not net amount modifier
5346: l_qualifier_value := l_adj_tbl(j).priced_quantity; -- not net amount grouop of line modifier
5349:
5350: END IF; --G_pbhvolattr_attribute
5351:
5352: IF l_debug = FND_API.G_TRUE THEN
5353: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5354: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5355: ||' l_total_value '|| l_total_value --4000
5356: ||' l_req_value_per_unit '|| l_req_value_per_unit); --40
5357: END IF; --l_debug
5407: l_return_adjustment := - 1 * nvl(l_return_adjustment, 0);
5408:
5409: -- 2892848
5410: IF l_debug = FND_API.G_TRUE THEN
5411: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
5412: END IF; --l_debug
5413: -- end 2892848
5414:
5415: END IF; --l_adj_tbl(j).price_flag
5416:
5417:
5418: ELSE --created_from_list_line_type not PBH, 2892848 change comment only
5419: IF l_debug = FND_API.G_TRUE THEN
5420: QP_PREQ_GRP.engine_debug('Processing DIS/SUR/FRT: '|| l_adj_tbl(j).created_from_list_line_id); -- 2892848, change debug msg
5421: END IF; -- end debug
5422:
5423: IF l_adj_tbl(j).created_from_list_line_type = G_DISCOUNT
5424: AND l_adj_tbl(j).operand_calculation_code <> G_NEWPRICE_DISCOUNT
5429: l_sign := 1;
5430: END IF; --l_adj_tbl(j).created_from_list_line_type=g_discount
5431:
5432: IF l_debug = FND_API.G_TRUE THEN
5433: QP_PREQ_GRP.engine_debug('this check '
5434: || l_adj_tbl(j).line_type_code ||' '
5435: || l_calc_quantity ||' '|| l_adj_tbl(j).operand_calculation_code);
5436:
5437: END IF;
5440: AND l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT
5441: THEN
5442: l_calc_quantity := 1;
5443: IF l_debug = FND_API.G_TRUE THEN
5444: QP_PREQ_GRP.engine_debug('Order lvl qty '||
5445: l_calc_quantity);
5446: END IF;
5447: END IF;
5448:
5446: END IF;
5447: END IF;
5448:
5449: IF l_debug = FND_API.G_TRUE THEN
5450: QP_PREQ_GRP.engine_debug('this sign '|| l_sign);
5451: END IF;
5452:
5453: IF l_adj_tbl(j).PRICING_STATUS_CODE IN
5454: (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5461: THEN
5462: --to avoid rounding issues in rev calculations
5463: --for user-overridden adjustments
5464: IF l_debug = FND_API.G_TRUE THEN
5465: qp_preq_grp.engine_debug(' adj amt manual adj '||
5466: l_adj_tbl(j).adjustment_amount);
5467: END IF;
5468: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5469: ELSE
5468: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5469: ELSE
5470: */--commented to avoid overriding errors
5471: IF l_debug = FND_API.G_TRUE THEN
5472: qp_preq_grp.engine_debug(' adj amt manual adj '||
5473: l_adj_tbl(j).adjustment_amount);
5474:
5475: END IF;
5476: --bug 2691794
5487: l_adj_tbl(j).line_priced_quantity *
5488: l_adj_tbl(j).adjustment_amount *
5489: l_sign;
5490: IF l_debug = FND_API.G_TRUE THEN
5491: QP_PREQ_GRP.engine_debug('return line frtchg operand '
5492: || l_adj_tbl(j).operand_value ||' adj amt '
5493: || l_return_adjustment);
5494: END IF; --l_debug
5495: ELSE --l_adj_tbl(j).created_from_list_line_type = frt
5530: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5531: END IF;
5532: END IF; --l_pricing_attribute
5533: IF l_debug = FND_API.G_TRUE THEN
5534: QP_PREQ_GRP.engine_debug('l_calc_qty for lumpsum '
5535: || l_calc_quantity);
5536: END IF; --l_debug
5537: END IF; --l_adj_tbl(j).operand_calculation_code
5538:
5560: --returned with each line and to return only one order level
5561: --adjustment with the summary line
5562:
5563: IF (l_debug = FND_API.G_TRUE) THEN
5564: QP_PREQ_GRP.engine_debug('Is Ldet Rec : ' || l_adj_tbl(j).is_ldet_rec);
5565: END IF;
5566:
5567: IF ((l_adj_tbl(j).is_ldet_rec IN
5568: (G_LDET_LINE_TYPE, G_ADJ_LINE_TYPE, G_ASO_LINE_TYPE)
5575: l_ldet_line_dtl_index_tbl(i) := l_adj_tbl(j).line_detail_index;
5576: --need to store this for bug 2833753
5577: G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)) := i;
5578: IF (l_debug = FND_API.G_TRUE) THEN
5579: QP_PREQ_GRP.engine_debug('Adding line details : '
5580: || l_ldet_line_dtl_index_tbl(i) ||' plsqlind '
5581: || G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)));
5582: END IF;
5583: l_ldet_line_index_tbl(i) := l_adj_tbl(j).curr_line_index;
5585: l_adj_tbl(j).created_from_list_header_id;
5586: l_ldet_list_line_id_tbl(i) :=
5587: l_adj_tbl(j).created_from_list_line_id;
5588: IF l_debug = FND_API.G_TRUE THEN
5589: QP_PREQ_GRP.engine_debug('adjusted amt 1 ');
5590: END IF;
5591: l_ldet_list_line_type_tbl(i) :=
5592: l_adj_tbl(j).created_from_list_line_type;
5593: IF l_debug = FND_API.G_TRUE THEN
5590: END IF;
5591: l_ldet_list_line_type_tbl(i) :=
5592: l_adj_tbl(j).created_from_list_line_type;
5593: IF l_debug = FND_API.G_TRUE THEN
5594: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5595: END IF;
5596: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5597: IF l_debug = FND_API.G_TRUE THEN
5598: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5594: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5595: END IF;
5596: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5597: IF l_debug = FND_API.G_TRUE THEN
5598: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5599: END IF;
5600:
5601: -- begin 2892848
5602: IF l_debug = FND_API.G_TRUE THEN
5599: END IF;
5600:
5601: -- begin 2892848
5602: IF l_debug = FND_API.G_TRUE THEN
5603: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_ldet_adj_amt_tbl('|| i ||'): '|| l_ldet_adj_amt_tbl(i)); -- 2892848
5604: END IF; --END IF l_debug
5605: /* SL_latest 2892848
5606: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
5607: -- only for bucket modifiers, 0 is price list line, null is reg modifier
5607: -- only for bucket modifiers, 0 is price list line, null is reg modifier
5608: IF l_adj_tbl(j).pricing_group_sequence IS NOT NULL AND l_adj_tbl(j).pricing_group_sequence <> 0 THEN
5609: IF l_bucket_adj_amt_tbl.EXISTS(l_adj_tbl(j).pricing_group_sequence) THEN -- avoid no data found or table index not exists for 1st rec
5610: IF l_debug = FND_API.G_TRUE THEN
5611: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5612: END IF; -- end debug
5613: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence),0) +
5614: nvl(l_ldet_adj_amt_tbl(i),0)* l_adj_tbl(j).line_priced_quantity;
5615:
5616: ELSE -- avoid no data found err
5617: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_ldet_adj_amt_tbl(i),0) * l_adj_tbl(j).line_priced_quantity;
5618: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5619: IF l_debug = FND_API.G_TRUE THEN
5620: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5621: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5622: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5623: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5624: END IF; -- END debug
5617: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_ldet_adj_amt_tbl(i),0) * l_adj_tbl(j).line_priced_quantity;
5618: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5619: IF l_debug = FND_API.G_TRUE THEN
5620: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5621: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5622: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5623: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5624: END IF; -- END debug
5625:
5618: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5619: IF l_debug = FND_API.G_TRUE THEN
5620: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5621: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5622: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5623: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5624: END IF; -- END debug
5625:
5626: -- for LINE LEVEL
5619: IF l_debug = FND_API.G_TRUE THEN
5620: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5621: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5622: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5623: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5624: END IF; -- END debug
5625:
5626: -- for LINE LEVEL
5627: IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5625:
5626: -- for LINE LEVEL
5627: IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5628: IF l_debug = FND_API.G_TRUE THEN
5629: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0));
5630: END IF; -- end debug
5631: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0) + nvl(l_ldet_adj_amt_tbl(i), 0);
5632: ELSE -- avoid no datat found err
5633: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5632: ELSE -- avoid no datat found err
5633: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5634: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
5635: IF l_debug = FND_API.G_TRUE THEN
5636: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_adj_tbl(j).line_ind);
5637: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind));
5638: END IF; -- END debug
5639: END IF; -- END IF bucket is not null and 0
5640:
5633: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5634: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
5635: IF l_debug = FND_API.G_TRUE THEN
5636: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_adj_tbl(j).line_ind);
5637: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind));
5638: END IF; -- END debug
5639: END IF; -- END IF bucket is not null and 0
5640:
5641: -- end 2892848
5643: /* out 2892848
5644: --begin net_amount, 2720717
5645: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5646: IF l_debug = FND_API.G_TRUE THEN
5647: QP_PREQ_GRP.engine_debug('------ ');
5648: QP_PREQ_GRP.engine_debug('i: '||i);
5649: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5650: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5651: END IF; --END IF l_debug
5644: --begin net_amount, 2720717
5645: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5646: IF l_debug = FND_API.G_TRUE THEN
5647: QP_PREQ_GRP.engine_debug('------ ');
5648: QP_PREQ_GRP.engine_debug('i: '||i);
5649: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5650: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5651: END IF; --END IF l_debug
5652: --end net_amount, 2720717
5645: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5646: IF l_debug = FND_API.G_TRUE THEN
5647: QP_PREQ_GRP.engine_debug('------ ');
5648: QP_PREQ_GRP.engine_debug('i: '||i);
5649: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5650: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5651: END IF; --END IF l_debug
5652: --end net_amount, 2720717
5653: */
5646: IF l_debug = FND_API.G_TRUE THEN
5647: QP_PREQ_GRP.engine_debug('------ ');
5648: QP_PREQ_GRP.engine_debug('i: '||i);
5649: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5650: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5651: END IF; --END IF l_debug
5652: --end net_amount, 2720717
5653: */
5654:
5659: := nvl(l_return_adjustment, 0);
5660: l_back_calc_plsql_tbl_index(l_adj_tbl(j).line_ind)
5661: := i;
5662: IF l_debug = FND_API.G_TRUE THEN
5663: QP_PREQ_GRP.engine_debug('Back calc line index '
5664: || l_back_calc_dtl_index(l_adj_tbl(j).line_ind)
5665: ||' adjamt '|| l_back_calc_adj_amt(l_adj_tbl(j).line_ind)
5666: ||' plsql ind '
5667: || l_back_calc_plsql_tbl_index(l_adj_tbl(j).line_ind));
5673: --which is the line_quantity on lines_tmp
5674: -- Ravi bug# 2745337-divisor by zero
5675: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
5676: IF (l_debug = FND_API.G_TRUE) THEN
5677: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #1');
5678: END IF;
5679: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
5680: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
5681: p_catchweight_qty => l_adj_tbl(j).catchweight_qty,
5691: x_return_status => x_return_status,
5692: x_return_status_text => x_return_status_text);
5693: ELSE
5694: IF l_debug = FND_API.G_TRUE THEN
5695: QP_PREQ_GRP.engine_debug('Ordered Qty #1: ' || l_adj_tbl(j).ordered_qty);
5696: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
5697: END IF;
5698: l_ldet_ordqty_operand_tbl(i) := 0;
5699: l_ldet_ordqty_adjamt_tbl(i) := 0;
5692: x_return_status_text => x_return_status_text);
5693: ELSE
5694: IF l_debug = FND_API.G_TRUE THEN
5695: QP_PREQ_GRP.engine_debug('Ordered Qty #1: ' || l_adj_tbl(j).ordered_qty);
5696: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
5697: END IF;
5698: l_ldet_ordqty_operand_tbl(i) := 0;
5699: l_ldet_ordqty_adjamt_tbl(i) := 0;
5700: END IF;
5699: l_ldet_ordqty_adjamt_tbl(i) := 0;
5700: END IF;
5701:
5702: IF l_debug = FND_API.G_TRUE THEN
5703: QP_PREQ_GRP.engine_debug('Printing ordqty_operand '
5704: || l_ldet_ordqty_operand_tbl(i) ||' ordqty_adjamt '
5705: || l_ldet_ordqty_adjamt_tbl(i));
5706: END IF; --l_debug
5707:
5719: ( - 1 * l_adj_tbl(j).rounding_factor));
5720: END IF;
5721:
5722: IF l_debug = FND_API.G_TRUE THEN
5723: QP_PREQ_GRP.engine_debug('rounded adj: '|| l_ldet_adj_amt_tbl(i) ||
5724: ' rounding fac '|| l_adj_tbl(j).rounding_factor ||
5725: ' ordqty_adjamt '|| l_ldet_ordqty_adjamt_tbl(i) ||
5726: ' '|| l_adj_tbl(j).curr_line_index ||' '|| l_adj_tbl(j).line_ind ||
5727: ' is_ldet_rec '|| l_adj_tbl(j).is_ldet_rec ||
5749: --l_ldet_line_quantity_tbl(i) := nvl(l_calc_quantity,1); -- 40,SHU, this is inconsistent with PL/SQL path
5750: l_ldet_line_quantity_tbl(i) := l_adj_tbl(j).priced_quantity; -- -- 2388011, SHU FIX diff PRIYA,to be the same as PL/SQL path
5751: l_ldet_is_max_frt_tbl(i) := G_NO;
5752: IF l_debug = FND_API.G_TRUE THEN
5753: QP_PREQ_GRP.engine_debug('adjusted amt 4 ');
5754:
5755: QP_PREQ_GRP.engine_debug('Returned adj : '|| i
5756: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
5757: ||' adj amt '|| l_ldet_adj_amt_tbl(i));
5751: l_ldet_is_max_frt_tbl(i) := G_NO;
5752: IF l_debug = FND_API.G_TRUE THEN
5753: QP_PREQ_GRP.engine_debug('adjusted amt 4 ');
5754:
5755: QP_PREQ_GRP.engine_debug('Returned adj : '|| i
5756: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
5757: ||' adj amt '|| l_ldet_adj_amt_tbl(i));
5758:
5759:
5760: END IF;
5761: IF l_return_status = FND_API.G_RET_STS_ERROR
5762: THEN
5763: IF l_debug = FND_API.G_TRUE THEN
5764: QP_PREQ_GRP.engine_debug('Calc Error');
5765: END IF;
5766: l_ldet_pricing_sts_code_tbl(i) := G_STATUS_CALC_ERROR;
5767: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5768: l_ldet_applied_flag_tbl(i) := G_NO;
5767: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5768: l_ldet_applied_flag_tbl(i) := G_NO;
5769: ELSE
5770: IF l_debug = FND_API.G_TRUE THEN
5771: QP_PREQ_GRP.engine_debug('Calc Succ');
5772: END IF;
5773: l_ldet_pricing_sts_code_tbl(i) :=
5774: l_adj_tbl(j).pricing_status_code;
5775: IF l_adj_tbl(j).pricing_status_code = G_STATUS_UNCHANGED
5804: AND l_adj_tbl(j).pricing_status_code IN
5805: (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5806: THEN
5807: IF l_debug = FND_API.G_TRUE THEN
5808: QP_PREQ_GRP.engine_debug('looping thru FRT for list_line id '
5809: || l_adj_tbl(j).created_from_list_line_id ||' adj amt '
5810: || l_ldet_adj_amt_tbl(i) ||' upd '
5811: || l_adj_tbl(j).updated_flag
5812: ||' level '|| l_adj_tbl(j).modifier_level_code);
5818: THEN
5819: --no record for charge type subtype combn
5820: --so insert into l_frt_tbl
5821: IF l_debug = FND_API.G_TRUE THEN
5822: QP_PREQ_GRP.engine_debug('No frtcharge in tbl: insert rec');
5823: END IF;
5824: l_frt_tbl(1).line_index := l_adj_tbl(j).line_ind;
5825: l_frt_tbl(1).line_detail_index :=
5826: l_adj_tbl(j).line_detail_index;
5846: END IF;
5847: ELSIF l_frt_tbl.COUNT > 0
5848: THEN
5849: IF l_debug = FND_API.G_TRUE THEN
5850: QP_PREQ_GRP.engine_debug('frtchrg records exist');
5851:
5852: END IF;
5853: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5854: LOOP
5852: END IF;
5853: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5854: LOOP
5855: IF l_debug = FND_API.G_TRUE THEN
5856: QP_PREQ_GRP.engine_debug('existing frt record id '
5857: || l_frt_tbl(N).created_from_list_line_id
5858: ||' level '|| l_frt_tbl(N).LEVEL);
5859:
5860: END IF;
5868: l_adj_tbl(j).modifier_level_code = G_LINE_GROUP))
5869: THEN
5870: --record exists for charge type subtype combn
5871: IF l_debug = FND_API.G_TRUE THEN
5872: QP_PREQ_GRP.engine_debug('charge combn match');
5873:
5874: END IF;
5875: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5876: THEN
5874: END IF;
5875: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5876: THEN
5877: IF l_debug = FND_API.G_TRUE THEN
5878: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
5879: END IF;
5880: --only if user has not overridden
5881: --replace the record with the ct adj
5882:
5882:
5883: IF nvl(l_adj_tbl(j).updated_flag, G_NO) = G_YES
5884: THEN
5885: IF l_debug = FND_API.G_TRUE THEN
5886: QP_PREQ_GRP.engine_debug('Repl overridden rec');
5887: END IF;
5888: --if ct adj is overridden
5889: l_frt_tbl(N).line_detail_index
5890: := l_adj_tbl(j).line_detail_index;
5903: > l_frt_tbl(N).adjustment_amount
5904: THEN
5905: --if ct adj's adj amt is greater
5906: IF l_debug = FND_API.G_TRUE THEN
5907: QP_PREQ_GRP.engine_debug('replace high adjamt');
5908: END IF;
5909: l_frt_tbl(N).line_detail_index
5910: := l_adj_tbl(j).line_detail_index;
5911: l_frt_tbl(N).created_from_list_line_id
5925: ELSE
5926: --no match for charge type subtype combn
5927: --so insert into l_frt_tbl
5928: IF l_debug = FND_API.G_TRUE THEN
5929: QP_PREQ_GRP.engine_debug('charge combn no match');
5930:
5931: END IF;
5932: IF N = l_frt_tbl.LAST
5933: THEN
5933: THEN
5934: --this is the last record and the
5935: --charge type subtype combn not match
5936: IF l_debug = FND_API.G_TRUE THEN
5937: QP_PREQ_GRP.engine_debug('lastrec:insert new record');
5938: END IF;
5939: l_frt_tbl(N + 1).line_index :=
5940: l_adj_tbl(j).line_ind;
5941: l_frt_tbl(N + 1).line_detail_index :=
5980: AND l_adj_tbl(j).created_from_list_line_type
5981: <> G_FREIGHT_CHARGE
5982: THEN
5983: IF l_debug = FND_API.G_TRUE THEN
5984: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
5985: || l_adj_tbl(j).modifier_level_code ||' listlineid '
5986: || l_adj_tbl(j).created_from_list_line_id ||' adj '
5987: || l_return_adjustment ||'qty '
5988: || l_adj_tbl(j).line_priced_quantity);
5989: END IF;
5990: IF l_ord_dtl_index_tbl.COUNT = 0
5991: THEN
5992: IF l_debug = FND_API.G_TRUE THEN
5993: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
5994: END IF;
5995: l_ord_dtl_index_tbl(1) :=
5996: l_adj_tbl(j).line_detail_index;
5997: --fix for bug2424931 multiply by priced_qty
5999: nvl(l_return_adjustment, 0) *
6000: nvl(l_adj_tbl(j).line_priced_quantity, 0);
6001:
6002: IF l_debug = FND_API.G_TRUE THEN
6003: QP_PREQ_GRP.engine_debug('ord lvl1');
6004: QP_PREQ_GRP.engine_debug('ord lvl2'
6005: || l_adj_tbl(j).line_priced_quantity);
6006: QP_PREQ_GRP.engine_debug('ord lvl3'
6007: || l_adj_tbl(j).ordered_qty);
6000: nvl(l_adj_tbl(j).line_priced_quantity, 0);
6001:
6002: IF l_debug = FND_API.G_TRUE THEN
6003: QP_PREQ_GRP.engine_debug('ord lvl1');
6004: QP_PREQ_GRP.engine_debug('ord lvl2'
6005: || l_adj_tbl(j).line_priced_quantity);
6006: QP_PREQ_GRP.engine_debug('ord lvl3'
6007: || l_adj_tbl(j).ordered_qty);
6008: QP_PREQ_GRP.engine_debug('ord lvl4'
6002: IF l_debug = FND_API.G_TRUE THEN
6003: QP_PREQ_GRP.engine_debug('ord lvl1');
6004: QP_PREQ_GRP.engine_debug('ord lvl2'
6005: || l_adj_tbl(j).line_priced_quantity);
6006: QP_PREQ_GRP.engine_debug('ord lvl3'
6007: || l_adj_tbl(j).ordered_qty);
6008: QP_PREQ_GRP.engine_debug('ord lvl4'
6009: || l_adj_tbl(j).catchweight_qty);
6010: QP_PREQ_GRP.engine_debug('ord lvl5'
6004: QP_PREQ_GRP.engine_debug('ord lvl2'
6005: || l_adj_tbl(j).line_priced_quantity);
6006: QP_PREQ_GRP.engine_debug('ord lvl3'
6007: || l_adj_tbl(j).ordered_qty);
6008: QP_PREQ_GRP.engine_debug('ord lvl4'
6009: || l_adj_tbl(j).catchweight_qty);
6010: QP_PREQ_GRP.engine_debug('ord lvl5'
6011: || l_adj_tbl(j).actual_order_qty);
6012: QP_PREQ_GRP.engine_debug('ord lvl6'
6006: QP_PREQ_GRP.engine_debug('ord lvl3'
6007: || l_adj_tbl(j).ordered_qty);
6008: QP_PREQ_GRP.engine_debug('ord lvl4'
6009: || l_adj_tbl(j).catchweight_qty);
6010: QP_PREQ_GRP.engine_debug('ord lvl5'
6011: || l_adj_tbl(j).actual_order_qty);
6012: QP_PREQ_GRP.engine_debug('ord lvl6'
6013: || l_adj_tbl(j).operand_value);
6014: QP_PREQ_GRP.engine_debug('ord lvl7'
6008: QP_PREQ_GRP.engine_debug('ord lvl4'
6009: || l_adj_tbl(j).catchweight_qty);
6010: QP_PREQ_GRP.engine_debug('ord lvl5'
6011: || l_adj_tbl(j).actual_order_qty);
6012: QP_PREQ_GRP.engine_debug('ord lvl6'
6013: || l_adj_tbl(j).operand_value);
6014: QP_PREQ_GRP.engine_debug('ord lvl7'
6015: || l_adj_tbl(j).unit_price);
6016: QP_PREQ_GRP.engine_debug('ord lvl8'
6010: QP_PREQ_GRP.engine_debug('ord lvl5'
6011: || l_adj_tbl(j).actual_order_qty);
6012: QP_PREQ_GRP.engine_debug('ord lvl6'
6013: || l_adj_tbl(j).operand_value);
6014: QP_PREQ_GRP.engine_debug('ord lvl7'
6015: || l_adj_tbl(j).unit_price);
6016: QP_PREQ_GRP.engine_debug('ord lvl8'
6017: || l_adj_tbl(j).operand_calculation_code);
6018: QP_PREQ_GRP.engine_debug('ord lvl9'
6012: QP_PREQ_GRP.engine_debug('ord lvl6'
6013: || l_adj_tbl(j).operand_value);
6014: QP_PREQ_GRP.engine_debug('ord lvl7'
6015: || l_adj_tbl(j).unit_price);
6016: QP_PREQ_GRP.engine_debug('ord lvl8'
6017: || l_adj_tbl(j).operand_calculation_code);
6018: QP_PREQ_GRP.engine_debug('ord lvl9'
6019: || l_return_adjustment);
6020: QP_PREQ_GRP.engine_debug('ord lvl10'
6014: QP_PREQ_GRP.engine_debug('ord lvl7'
6015: || l_adj_tbl(j).unit_price);
6016: QP_PREQ_GRP.engine_debug('ord lvl8'
6017: || l_adj_tbl(j).operand_calculation_code);
6018: QP_PREQ_GRP.engine_debug('ord lvl9'
6019: || l_return_adjustment);
6020: QP_PREQ_GRP.engine_debug('ord lvl10'
6021: || l_sub_total_price);
6022: END IF; --l_debug
6016: QP_PREQ_GRP.engine_debug('ord lvl8'
6017: || l_adj_tbl(j).operand_calculation_code);
6018: QP_PREQ_GRP.engine_debug('ord lvl9'
6019: || l_return_adjustment);
6020: QP_PREQ_GRP.engine_debug('ord lvl10'
6021: || l_sub_total_price);
6022: END IF; --l_debug
6023:
6024: --l_ord_qty_adj_amt_tbl
6047: l_ord_qty_operand_tbl(1) := l_ord_qty_operand;
6048: l_ord_qty_adj_amt_tbl(1) := l_ord_qty_adj_amt;
6049:
6050: IF l_debug = FND_API.G_TRUE THEN
6051: QP_PREQ_GRP.engine_debug('ord lvl firstrec'
6052: ||' adjamt '|| l_ord_adj_amt_tbl(1)
6053: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(1)
6054: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(1));
6055: END IF;
6057: FOR n IN
6058: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
6059: LOOP
6060: IF l_debug = FND_API.G_TRUE THEN
6061: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
6062: l_ord_dtl_index_tbl(n) ||' current rec index '
6063: || l_adj_tbl(j).line_detail_index
6064: ||' count '|| l_ord_dtl_index_tbl.COUNT
6065: ||' lastrec dtl index '
6069: IF l_ord_dtl_index_tbl(n) =
6070: l_adj_tbl(j).line_detail_index
6071: THEN
6072: IF l_debug = FND_API.G_TRUE THEN
6073: QP_PREQ_GRP.engine_debug('found match '
6074: ||' ct adjamt '|| l_ord_adj_amt_tbl(n));
6075: END IF;
6076: --fix for bug2424931 multiply by priced_qty
6077: l_ord_adj_amt_tbl(n) := l_ord_adj_amt_tbl(n) +
6106: l_ord_qty_adj_amt_tbl(n) + l_ord_qty_adj_amt;
6107: l_ord_qty_operand_tbl(n) := l_ord_qty_operand;
6108:
6109: IF l_debug = FND_API.G_TRUE THEN
6110: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
6111: l_ord_adj_amt_tbl(n)
6112: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6113: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(n));
6114: END IF;
6118: AND l_ord_dtl_index_tbl(n) <>
6119: l_adj_tbl(j).line_detail_index
6120: THEN
6121: IF l_debug = FND_API.G_TRUE THEN
6122: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
6123: l_adj_tbl(j).line_detail_index ||' adjamt '
6124: || l_return_adjustment
6125: ||' qty '|| l_adj_tbl(j).line_priced_quantity);
6126: END IF;
6160: l_ord_qty_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
6161: := l_ord_qty_adj_amt;
6162:
6163: IF l_debug = FND_API.G_TRUE THEN
6164: QP_PREQ_GRP.engine_debug('ord lvl lastadjamt '||
6165: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6166: END IF;
6167: END IF; -----l_ord_dtl_index_tbl(n)
6168: IF l_debug = FND_API.G_TRUE THEN
6165: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6166: END IF;
6167: END IF; -----l_ord_dtl_index_tbl(n)
6168: IF l_debug = FND_API.G_TRUE THEN
6169: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
6170: || l_ord_dtl_index_tbl(n) ||' adj amt '
6171: || l_ord_adj_amt_tbl(n)
6172: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6173: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(n));
6194: l_return_adjustment := round (l_return_adjustment, - 1 * l_adj_tbl(j).rounding_factor);
6195: END IF; -- end rounding
6196: -- end 2892848_latest
6197: IF l_debug = FND_API.G_TRUE THEN
6198: QP_PREQ_GRP.engine_debug('prev USP: '|| l_adjusted_price);
6199: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6200: END IF;
6201:
6202: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6195: END IF; -- end rounding
6196: -- end 2892848_latest
6197: IF l_debug = FND_API.G_TRUE THEN
6198: QP_PREQ_GRP.engine_debug('prev USP: '|| l_adjusted_price);
6199: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6200: END IF;
6201:
6202: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6203: IF l_debug = FND_API.G_TRUE THEN
6200: END IF;
6201:
6202: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6203: IF l_debug = FND_API.G_TRUE THEN
6204: QP_PREQ_GRP.engine_debug('adjusted price, i.e. current USP : '|| l_adjusted_price); -- 2892848, good place to debug current USP
6205: END IF;
6206: END IF; --created_from_list_line_type
6207:
6208: IF l_debug = FND_API.G_TRUE THEN
6206: END IF; --created_from_list_line_type
6207:
6208: IF l_debug = FND_API.G_TRUE THEN
6209:
6210: QP_PREQ_GRP.engine_debug('Processed lines: line index'
6211: || l_adj_tbl(j).line_ind ||' adjusted price '
6212: --||l_adj_tbl(j).updated_adjusted_unit_price -- 2892848
6213: || l_adjusted_price -- 2892848
6214: ||' adjustment count '|| l_ldet_line_dtl_index_tbl.COUNT);
6221:
6222: IF line_change = TRUE
6223: THEN
6224: IF l_debug = FND_API.G_TRUE THEN
6225: QP_PREQ_GRP.engine_debug('line change ');
6226: END IF;
6227:
6228: --[julin/5025231]
6229: --x := x + 1;
6239:
6240: --x:=l_adj_tbl(j).line_ind; -- 2892848, 3126019
6241:
6242: IF l_debug = FND_API.G_TRUE THEN
6243: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6244: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6245: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6246:
6247: END IF;
6240: --x:=l_adj_tbl(j).line_ind; -- 2892848, 3126019
6241:
6242: IF l_debug = FND_API.G_TRUE THEN
6243: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6244: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6245: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6246:
6247: END IF;
6248: --Update the adjustment amount for each adjustment
6241:
6242: IF l_debug = FND_API.G_TRUE THEN
6243: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6244: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6245: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6246:
6247: END IF;
6248: --Update the adjustment amount for each adjustment
6249: l_line_index_tbl(x) := l_adj_tbl(j).line_ind;
6267:
6268: -- Ravi bug# 2745337-divisor by zero
6269: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
6270: IF (l_debug = FND_API.G_TRUE) THEN
6271: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #2');
6272: END IF;
6273: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
6274: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
6275: p_catchweight_qty => l_adj_tbl(j).catchweight_qty,
6283: x_return_status => x_return_status,
6284: x_return_status_text => x_return_status_text);
6285: ELSE
6286: IF l_debug = FND_API.G_TRUE THEN
6287: QP_PREQ_GRP.engine_debug('Ordered Qty #2 : ' || l_adj_tbl(j).ordered_qty);
6288: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is 0 or modifier level code is not ORDER');
6289: END IF;
6290: l_ordqty_unit_price_tbl(x) := 0;
6291: l_ordqty_selling_price_tbl(x) := 0;
6284: x_return_status_text => x_return_status_text);
6285: ELSE
6286: IF l_debug = FND_API.G_TRUE THEN
6287: QP_PREQ_GRP.engine_debug('Ordered Qty #2 : ' || l_adj_tbl(j).ordered_qty);
6288: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is 0 or modifier level code is not ORDER');
6289: END IF;
6290: l_ordqty_unit_price_tbl(x) := 0;
6291: l_ordqty_selling_price_tbl(x) := 0;
6292: END IF;
6291: l_ordqty_selling_price_tbl(x) := 0;
6292: END IF;
6293:
6294: IF l_debug = FND_API.G_TRUE THEN
6295: QP_PREQ_GRP.engine_debug('Printing ordqty_selling_price '
6296: || l_ordqty_selling_price_tbl(x) ||' unit_price '
6297: || l_ordqty_unit_price_tbl(x));
6298: END IF; --l_debug
6299:
6325:
6326: and l_rounding_factor_tbl(x) IS NOT NULL
6327: THEN
6328: IF l_debug = FND_API.G_TRUE THEN
6329: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6330: ||l_rounding_factor_tbl(x));
6331: END IF;
6332: l_adj_unit_price_tbl(x) :=
6333: round(l_adj_unit_price_tbl(x),-1*l_rounding_factor_tbl(x));
6345: G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))) :=
6346: l_adj_unit_price_tbl(x);
6347:
6348: IF l_debug = FND_API.G_TRUE THEN
6349: QP_PREQ_GRP.engine_debug('oldfgline line ind '
6350: || l_line_index_tbl(x) ||' adjprice '
6351: || G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))));
6352: END IF; --l_debug
6353: END IF; --G_PRG_UNCH_LINE_IND_TBL
6352: END IF; --l_debug
6353: END IF; --G_PRG_UNCH_LINE_IND_TBL
6354:
6355: IF l_debug = FND_API.G_TRUE THEN
6356: QP_PREQ_GRP.engine_debug('price in line_tbl'
6357: ||' table index '|| x
6358: ||' line index '|| l_line_index_tbl(x)
6359: ||' adjusted price '|| l_adj_unit_price_tbl(x)
6360: ||' orduomsellingprice '|| l_ordqty_selling_price_tbl(x)
6362: ||' amt changed '|| l_amount_changed_tbl(x));
6363:
6364:
6365:
6366: QP_PREQ_GRP.engine_debug('going to next line --------------'
6367: || i ||' x '|| x);
6368: END IF;
6369: J := l_adj_tbl.NEXT(j);
6370: END LOOP;
6368: END IF;
6369: J := l_adj_tbl.NEXT(j);
6370: END LOOP;
6371: IF l_debug = FND_API.G_TRUE THEN
6372: QP_PREQ_GRP.engine_debug('----------------------------------');
6373:
6374: END IF;
6375: IF l_frt_tbl.COUNT > 0
6376: OR l_ldet_line_dtl_index_tbl.COUNT > 0
6378: x := l_ldet_line_dtl_index_tbl.FIRST;
6379: WHILE x IS NOT NULL
6380: LOOP
6381: IF l_debug = FND_API.G_TRUE THEN
6382: QP_PREQ_GRP.engine_debug('frt charge processing listlineid1 ');
6383: QP_PREQ_GRP.engine_debug('frt charge processing listlineid '
6384: || l_ldet_line_dtl_index_tbl(x) ||' type '
6385: || l_ldet_list_line_type_tbl(x) ||' is max frt ');
6386: END IF;
6379: WHILE x IS NOT NULL
6380: LOOP
6381: IF l_debug = FND_API.G_TRUE THEN
6382: QP_PREQ_GRP.engine_debug('frt charge processing listlineid1 ');
6383: QP_PREQ_GRP.engine_debug('frt charge processing listlineid '
6384: || l_ldet_line_dtl_index_tbl(x) ||' type '
6385: || l_ldet_list_line_type_tbl(x) ||' is max frt ');
6386: END IF;
6387: -- ||l_ldet_is_max_frt_tbl(x));
6387: -- ||l_ldet_is_max_frt_tbl(x));
6388:
6389: --fix for bug2424931 update order lvl adj amt
6390: IF (l_debug = FND_API.G_TRUE) THEN
6391: QP_PREQ_GRP.engine_debug('Modifier Level : ' || l_ldet_modifier_level_tbl(x));
6392: END IF;
6393:
6394: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6395: THEN
6393:
6394: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6395: THEN
6396: IF l_debug = FND_API.G_TRUE THEN
6397: QP_PREQ_GRP.engine_debug('update ord lvl adj amt '
6398: ||'looping thru dtlind '|| l_ldet_line_dtl_index_tbl(x));
6399: END IF;
6400: i := l_ord_dtl_index_tbl.FIRST;
6401: WHILE i IS NOT NULL
6403: IF l_ord_dtl_index_tbl(i) =
6404: l_ldet_line_dtl_index_tbl(x)
6405: THEN
6406: IF l_debug = FND_API.G_TRUE THEN
6407: QP_PREQ_GRP.engine_debug('update ord lvl '
6408: ||' line_dtl_index '|| l_ord_dtl_index_tbl(i)
6409: ||'adj amt '|| l_ord_adj_amt_tbl(i));
6410: END IF;
6411: l_ldet_adj_amt_tbl(x) :=
6423:
6424: IF l_ldet_list_line_type_tbl(x) = G_FREIGHT_CHARGE
6425: THEN
6426: IF l_debug = FND_API.G_TRUE THEN
6427: QP_PREQ_GRP.engine_debug('frt charge processing listlineid2 ');
6428: END IF;
6429: y := l_frt_tbl.FIRST;
6430: WHILE y IS NOT NULL
6431: LOOP
6429: y := l_frt_tbl.FIRST;
6430: WHILE y IS NOT NULL
6431: LOOP
6432: IF l_debug = FND_API.G_TRUE THEN
6433: QP_PREQ_GRP.engine_debug('frt charge processing listlineid3 ');
6434: QP_PREQ_GRP.engine_debug('l_ldet_line_index_tbl(x): '|| l_ldet_line_index_tbl(x));
6435: END IF;
6436: IF l_frt_tbl(y).line_detail_index =
6437: l_ldet_line_dtl_index_tbl(x)
6430: WHILE y IS NOT NULL
6431: LOOP
6432: IF l_debug = FND_API.G_TRUE THEN
6433: QP_PREQ_GRP.engine_debug('frt charge processing listlineid3 ');
6434: QP_PREQ_GRP.engine_debug('l_ldet_line_index_tbl(x): '|| l_ldet_line_index_tbl(x));
6435: END IF;
6436: IF l_frt_tbl(y).line_detail_index =
6437: l_ldet_line_dtl_index_tbl(x)
6438: AND l_ldet_line_index_tbl(x) = -- 2892848 fix bug,
6438: AND l_ldet_line_index_tbl(x) = -- 2892848 fix bug,
6439: l_frt_tbl(y).line_index -- 2892848 fix bug
6440: THEN
6441: IF l_debug = FND_API.G_TRUE THEN
6442: QP_PREQ_GRP.engine_debug('frt charge processing listlineid4 ');
6443: END IF;
6444: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6445: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6446: l_frt_tbl.DELETE(y);
6444: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6445: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6446: l_frt_tbl.DELETE(y);
6447: IF l_debug = FND_API.G_TRUE THEN
6448: QP_PREQ_GRP.engine_debug('frt charge retaind '
6449: || l_ldet_list_line_id_tbl(x) ||' '
6450: || l_ldet_pricing_sts_code_tbl(x));
6451: END IF;
6452: END IF;
6455: END IF; --frt_charge
6456: x := l_ldet_line_dtl_index_tbl.NEXT(x);
6457: END LOOP; --ldet_line_dtl_index_tbl
6458: IF l_debug = FND_API.G_TRUE THEN
6459: QP_PREQ_GRP.engine_debug('----------------------------------');
6460: END IF;
6461: END IF; --frt_tbl.count
6462:
6463: IF l_debug = FND_API.G_TRUE THEN
6460: END IF;
6461: END IF; --frt_tbl.count
6462:
6463: IF l_debug = FND_API.G_TRUE THEN
6464: QP_PREQ_GRP.engine_debug('----------------------------------');
6465:
6466: END IF;
6467: --**************************************************************
6468: --BACK CALCULATION ROUTINE
6469: --**************************************************************
6470: --xxxxxxxxxxxxxx
6471:
6472: IF l_debug = FND_API.G_TRUE THEN
6473: QP_PREQ_GRP.engine_debug('back calculation for line ');
6474: END IF;
6475: IF l_line_index_tbl.COUNT > 0
6476: THEN
6477: IF l_debug = FND_API.G_TRUE THEN
6474: END IF;
6475: IF l_line_index_tbl.COUNT > 0
6476: THEN
6477: IF l_debug = FND_API.G_TRUE THEN
6478: QP_PREQ_GRP.engine_debug('back calculation1 for line ');
6479: END IF;
6480: i := l_line_index_tbl.FIRST;
6481: WHILE i IS NOT NULL
6482: LOOP
6480: i := l_line_index_tbl.FIRST;
6481: WHILE i IS NOT NULL
6482: LOOP
6483: IF l_debug = FND_API.G_TRUE THEN
6484: QP_PREQ_GRP.engine_debug('back calculation2 for line '
6485: || l_amount_changed_tbl(i));
6486: END IF; --l_debug
6487:
6488: IF l_back_calc_dtl_index.EXISTS(l_line_index_tbl(i)) THEN
6494: l_back_calc_dtl_ind := 0;
6495: l_back_calc_plsql_index := 0;
6496: END IF;
6497: IF l_debug = FND_API.G_TRUE THEN
6498: QP_PREQ_GRP.engine_debug('prev back calculation rec '
6499: || l_back_calc_dtl_ind
6500: ||' plsql '|| l_back_calc_plsql_index
6501: ||' adj amt '|| l_back_calc_adj_amount);
6502: END IF; --l_debug
6509: AND ((l_upd_adj_unit_price_tbl(i) -
6510: l_adj_unit_price_tbl(i)) <> 0)
6511: THEN
6512: IF l_debug = FND_API.G_TRUE THEN
6513: QP_PREQ_GRP.engine_debug('back calculation for line '
6514: || l_line_index_tbl(i));
6515:
6516: END IF;
6517: --fix for bug 2146050
6536: l_back_calc_adj_amount)
6537: - l_adj_unit_price_tbl(i);
6538:
6539: IF l_debug = FND_API.G_TRUE THEN
6540: QP_PREQ_GRP.engine_debug('amt changed '
6541: || l_amount_changed_tbl(i));
6542: END IF; --l_debug
6543:
6544: IF l_amount_changed_tbl(i) <= 0 THEN
6564: l_tbl_index := l_ldet_line_dtl_index_tbl.COUNT + 1;
6565: END IF; --G_ldet_plsql_index_tbl
6566:
6567: IF l_debug = FND_API.G_TRUE THEN
6568: QP_PREQ_GRP.engine_debug('back cal succ insert rec '
6569: || l_tbl_index);
6570: END IF;
6571: l_ldet_line_dtl_index_tbl(l_tbl_index) :=
6572: l_back_calc_ret_rec.line_detail_index;
6647: IF (l_ordered_qty_tbl(i) <> 0
6648: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6649: G_ORDER_LEVEL) THEN
6650: IF (l_debug = FND_API.G_TRUE) THEN
6651: QP_PREQ_GRP.engine_debug('Before Going into '
6652: ||'GET_ORDERQTY_VALUES #2.5');
6653: END IF; --l_debug
6654: GET_ORDERQTY_VALUES(p_ordered_qty =>
6655: l_ordered_qty_tbl(i),
6665: x_return_status => x_return_status,
6666: x_return_status_text => x_return_status_text);
6667: ELSE --ordered_qty
6668: IF l_debug = FND_API.G_TRUE THEN
6669: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
6670: || l_ordered_qty_tbl(i));
6671: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
6672: ||'0 or modifier level code is not ORDER');
6673: END IF; --l_debug
6667: ELSE --ordered_qty
6668: IF l_debug = FND_API.G_TRUE THEN
6669: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
6670: || l_ordered_qty_tbl(i));
6671: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
6672: ||'0 or modifier level code is not ORDER');
6673: END IF; --l_debug
6674: l_ordqty_unit_price_tbl(i) := 0;
6675: l_ordqty_selling_price_tbl(i) := 0;
6688: IF (l_ordered_qty_tbl(i) <> 0
6689: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6690: G_ORDER_LEVEL) THEN
6691: IF (l_debug = FND_API.G_TRUE) THEN
6692: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #3');
6693: END IF;
6694: GET_ORDERQTY_VALUES(p_ordered_qty => l_ordered_qty_tbl(i),
6695: p_priced_qty => l_line_priced_qty_tbl(i),
6696: p_catchweight_qty => l_catchweight_qty_tbl(i),
6706: x_return_status => x_return_status,
6707: x_return_status_text => x_return_status_text);
6708: ELSE
6709: IF l_debug = FND_API.G_TRUE THEN
6710: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_ordered_qty_tbl(i));
6711: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
6712: END IF;
6713: l_ldet_ordqty_operand_tbl(l_tbl_index) := 0;
6714: l_ldet_ordqty_adjamt_tbl(l_tbl_index) := 0;
6707: x_return_status_text => x_return_status_text);
6708: ELSE
6709: IF l_debug = FND_API.G_TRUE THEN
6710: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_ordered_qty_tbl(i));
6711: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
6712: END IF;
6713: l_ldet_ordqty_operand_tbl(l_tbl_index) := 0;
6714: l_ldet_ordqty_adjamt_tbl(l_tbl_index) := 0;
6715: END IF;
6735: --IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu fix 2239061
6736: AND l_rounding_factor_tbl(i) IS NOT NULL
6737: THEN
6738: IF l_debug = FND_API.G_TRUE THEN
6739: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6740: || l_rounding_factor_tbl(i));
6741: END IF;
6742: l_adj_unit_price_tbl(i) :=
6743: round(l_adj_unit_price_tbl(i)
6751: END IF;
6752:
6753: ELSE --ret_status
6754: IF l_debug = FND_API.G_TRUE THEN
6755: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
6756: END IF;
6757: l_pricing_sts_code_tbl(i) := l_return_status;
6758: l_pricing_sts_txt_tbl(i) :=
6759: l_return_status_text;
6762: i := l_line_index_tbl.NEXT(i);
6763: END LOOP;
6764: END IF; --count > 0
6765: IF l_debug = FND_API.G_TRUE THEN
6766: QP_PREQ_GRP.engine_debug('end back calc for line ');
6767:
6768: END IF;
6769: ---------------------------------------------------------------------
6770: --Debug Info
6768: END IF;
6769: ---------------------------------------------------------------------
6770: --Debug Info
6771: ---------------------------------------------------------------------
6772: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6773: THEN
6774: IF l_debug = FND_API.G_TRUE THEN
6775: QP_PREQ_GRP.engine_debug('in debug --------------');
6776: END IF;
6771: ---------------------------------------------------------------------
6772: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6773: THEN
6774: IF l_debug = FND_API.G_TRUE THEN
6775: QP_PREQ_GRP.engine_debug('in debug --------------');
6776: END IF;
6777: j := l_line_index_tbl.FIRST;
6778: WHILE j IS NOT NULL
6779: LOOP
6793: END IF; -- end rounding 2892848
6794: */
6795:
6796: IF l_debug = FND_API.G_TRUE THEN
6797: QP_PREQ_GRP.engine_debug('(No final rounding) Line Info '|| j
6798: ||' line index '|| l_line_index_tbl(j)
6799: ||' unit price '|| l_unit_price_tbl(j)
6800: ||' final adjusted_unit_price '|| l_adj_unit_price_tbl(j)
6801: ||' pricing_status_code '|| l_pricing_sts_code_tbl(j)
6803: END IF;
6804: -- ||' processed_flag '||l_processed_flag_tbl(j));
6805: -- ||' processed_code '||l_processed_code_tbl(j));
6806: IF l_debug = FND_API.G_TRUE THEN
6807: QP_PREQ_GRP.engine_debug('----------------------------------');
6808: END IF;
6809: i := l_ldet_line_dtl_index_tbl.FIRST;
6810: WHILE i IS NOT NULL
6811: LOOP
6811: LOOP
6812: IF l_line_index_tbl(j) = l_ldet_line_index_tbl(i)
6813: THEN
6814: IF l_debug = FND_API.G_TRUE THEN
6815: QP_PREQ_GRP.engine_debug('Line detail Info '|| i
6816: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
6817: ||' list_line_id '|| l_ldet_list_line_id_tbl(i)
6818: ||' operand '|| l_ldet_operand_value_tbl(i)
6819: ||' adjustment amount '|| l_ldet_adj_amt_tbl(i)
6825: END IF;
6826: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6827: END LOOP;
6828: IF l_debug = FND_API.G_TRUE THEN
6829: QP_PREQ_GRP.engine_debug('----------------------------------');
6830: END IF;
6831: j := l_line_index_tbl.NEXT(j);
6832: END LOOP;
6833: IF l_debug = FND_API.G_TRUE THEN
6830: END IF;
6831: j := l_line_index_tbl.NEXT(j);
6832: END LOOP;
6833: IF l_debug = FND_API.G_TRUE THEN
6834: QP_PREQ_GRP.engine_debug('-------------------------------------------');
6835:
6836: END IF;
6837: END IF;
6838:
6836: END IF;
6837: END IF;
6838:
6839: IF l_debug = FND_API.G_TRUE THEN
6840: QP_PREQ_GRP.engine_debug('Updating the line details ------------------------');
6841:
6842: END IF;
6843: ---------------------------------------------------------------------
6844: --Update Adjustments
6844: --Update Adjustments
6845: ---------------------------------------------------------------------
6846: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6847: THEN
6848: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
6849: THEN
6850: i := l_ldet_line_dtl_index_tbl.FIRST;
6851: WHILE i IS NOT NULL
6852: LOOP
6850: i := l_ldet_line_dtl_index_tbl.FIRST;
6851: WHILE i IS NOT NULL
6852: LOOP
6853: IF l_debug = FND_API.G_TRUE THEN
6854: QP_PREQ_GRP.engine_debug('line details: line index '
6855: || l_ldet_line_index_tbl(i) ||' detail index '
6856: || l_ldet_line_dtl_index_tbl(i) ||' operand '
6857: || l_ldet_operand_value_tbl(i) ||' adjamt '
6858: || l_ldet_adj_amt_tbl(i) ||' applied flag '
6864: || l_ldet_list_line_type_tbl(i) ||' adj id '
6865: || l_ldet_list_line_id_tbl(i) || ' list line id '
6866: || l_ldet_ordqty_operand_tbl(i) || ' Ord Qty Operand '
6867: || l_ldet_ordqty_adjamt_tbl(i) || 'Ord Qty Adj Amt');
6868: QP_PREQ_GRP.engine_debug('------------------------');
6869: END IF;
6870: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6871: END LOOP;
6872: END IF;
6871: END LOOP;
6872: END IF;
6873:
6874: IF l_debug = FND_API.G_TRUE THEN
6875: QP_PREQ_GRP.engine_debug('line details: before update ');
6876: END IF;
6877: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6878: THEN
6879: FORALL i IN l_ldet_line_dtl_index_tbl.FIRST..l_ldet_line_dtl_index_tbl.LAST
6894: AND pricing_status_code <> G_STATUS_DELETED --[julin/4671446]
6895: AND l_ldet_process_code_tbl(i) IN (G_STATUS_NEW,
6896: G_STATUS_DELETED);
6897: IF l_debug = FND_API.G_TRUE THEN
6898: QP_PREQ_GRP.engine_debug('line details: before insert ');
6899: END IF;
6900: END IF; --l_ldet_line_dtl_index_tbl.count > 0
6901:
6902: FORALL i IN l_ldet_line_dtl_index_tbl.FIRST..l_ldet_line_dtl_index_tbl.LAST
6968: END IF;
6969:
6970: ---------------------------------------------------------------------
6971: IF l_debug = FND_API.G_TRUE THEN
6972: QP_PREQ_GRP.engine_debug('Updating the line info ------------------------');
6973: END IF;
6974: ---------------------------------------------------------------------
6975: --Update Order Lines
6976: ---------------------------------------------------------------------
6980: THEN
6981: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
6982: LOOP
6983: IF l_debug = FND_API.G_TRUE THEN
6984: QP_PREQ_GRP.engine_debug('line info '|| l_line_index_tbl(i)
6985: ||' unit price '|| l_unit_price_tbl(i)
6986: ||' adj unit price '|| l_adj_unit_price_tbl(i));
6987: END IF;
6988: END LOOP;
7021: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
7022: END IF;
7023:
7024: IF l_debug = FND_API.G_TRUE THEN
7025: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7026: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7029: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7022: END IF;
7023:
7024: IF l_debug = FND_API.G_TRUE THEN
7025: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7026: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7029: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7030: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7023:
7024: IF l_debug = FND_API.G_TRUE THEN
7025: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7026: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7029: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7030: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7031: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7024: IF l_debug = FND_API.G_TRUE THEN
7025: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7026: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7029: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7030: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7031: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7032: END IF; --l_debug
7025: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7026: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7029: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7030: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7031: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7032: END IF; --l_debug
7033: --===[prarasto:Post Round] End : Calculate rounded values ==--
7026: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7029: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7030: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7031: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7032: END IF; --l_debug
7033: --===[prarasto:Post Round] End : Calculate rounded values ==--
7034:
7027: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7028: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7029: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7030: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7031: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7032: END IF; --l_debug
7033: --===[prarasto:Post Round] End : Calculate rounded values ==--
7034:
7035:
7078: --X_RETURN_STATUS:= FND_API.G_RET_STS_SUCCESS;
7079: --X_RETURN_STATUS_TEXT:= l_routine||' SUCCESS ';
7080:
7081: IF l_debug = FND_API.G_TRUE THEN
7082: QP_PREQ_GRP.engine_debug('end calculate price');
7083: END IF;
7084: EXCEPTION
7085: WHEN Calculate_exc THEN
7086: IF l_debug = FND_API.G_TRUE THEN
7083: END IF;
7084: EXCEPTION
7085: WHEN Calculate_exc THEN
7086: IF l_debug = FND_API.G_TRUE THEN
7087: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7088: END IF;
7089: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7090: WHEN OTHERS THEN
7091: IF l_debug = FND_API.G_TRUE THEN
7088: END IF;
7089: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7090: WHEN OTHERS THEN
7091: IF l_debug = FND_API.G_TRUE THEN
7092: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7093: END IF;
7094: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7095: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
7096:
7107: INDX,QP_PREQ_PUB.calculate_price.l_line_cur,qp_npreq_lines_tmp_N2,LINE_TYPE_CODE,1
7108: */
7109: -- for bug 3820859, to start with adjusted_unit_price should be same as unit_price
7110: -- if not, then the same discount is getting applied twice if limit profile is set, because discounts calculations happens twice -
7111: -- once from QP_PREQ_GRP and then from QP_PREQ_PUB
7112: CURSOR l_line_cur IS SELECT
7113: line.line_index
7114: , line.unit_price adjusted_unit_price -- bug 3820859
7115: , line.unit_price
7126: , G_STATUS_GSA_VIOLATION
7127: , G_STATUS_UNCHANGED)
7128: AND nvl(processed_code, '0') <> G_BY_ENGINE
7129: AND line.usage_pricing_type IN
7130: (QP_PREQ_GRP.G_BILLING_TYPE, QP_PREQ_GRP.G_REGULAR_USAGE_TYPE);
7131:
7132: /*
7133: INDX,QP_PREQ_PUB.calculate_price.l_bucket_price_cur,qp_npreq_lines_tmp_N1,LINE_INDEX,1
7134: INDX,QP_PREQ_PUB.calculate_price.l_bucket_price_cur,qp_npreq_lines_tmp_N1,LINE_TYPE_CODE,2
7193: , G_STATUS_GSA_VIOLATION
7194: , G_STATUS_UNCHANGED)
7195: AND nvl(line.processed_code, '0') <> G_BY_ENGINE
7196: AND line.usage_pricing_type IN
7197: (QP_PREQ_GRP.G_BILLING_TYPE, QP_PREQ_GRP.G_REGULAR_USAGE_TYPE)
7198: UNION
7199: SELECT ldet.created_from_list_line_id
7200: , line.line_index line_ind
7201: , ldet.line_detail_index
7255: , G_STATUS_GSA_VIOLATION
7256: , G_STATUS_UNCHANGED)
7257: AND nvl(line.processed_code, '0') <> G_BY_ENGINE
7258: AND line.usage_pricing_type IN
7259: (QP_PREQ_GRP.G_BILLING_TYPE, QP_PREQ_GRP.G_REGULAR_USAGE_TYPE)
7260: --order by line_ind,pricing_group_sequence; -- 2892848
7261: ORDER BY pricing_group_sequence, line_ind; -- 2829848
7262:
7263: CURSOR l_chk_backcal_adj_exist_cur(p_line_index NUMBER) IS
7306: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7307: l_back_calc_dtl_index NUMBER := 0;
7308: l_back_calc_adj_amt NUMBER := 0;
7309:
7310: l_ldet_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7311: l_line_index NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7312: l_calc_quantity NUMBER := 0;
7313:
7314: --added to calculate order level adjustments' adj amt
7311: l_line_index NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7312: l_calc_quantity NUMBER := 0;
7313:
7314: --added to calculate order level adjustments' adj amt
7315: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7316: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7317:
7318: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7319: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7312: l_calc_quantity NUMBER := 0;
7313:
7314: --added to calculate order level adjustments' adj amt
7315: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7316: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7317:
7318: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7319: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7320:
7314: --added to calculate order level adjustments' adj amt
7315: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7316: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7317:
7318: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7319: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7320:
7321: i NUMBER := 0;
7322: j NUMBER := 0;
7315: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7316: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7317:
7318: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7319: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7320:
7321: i NUMBER := 0;
7322: j NUMBER := 0;
7323: k NUMBER := 0;
7423: l_bucketed_flag VARCHAR2(1);
7424:
7425: BEGIN
7426:
7427: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7428: IF l_debug = FND_API.G_TRUE THEN
7429: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7430: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7431:
7425: BEGIN
7426:
7427: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7428: IF l_debug = FND_API.G_TRUE THEN
7429: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7430: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7431:
7432: END IF;
7433:
7426:
7427: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7428: IF l_debug = FND_API.G_TRUE THEN
7429: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7430: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7431:
7432: END IF;
7433:
7434: --4900095 call Determine_svc_item_quantity
7431:
7432: END IF;
7433:
7434: --4900095 call Determine_svc_item_quantity
7435: IF QP_PREQ_GRP.G_Service_line_qty_tbl.COUNT = 0 THEN
7436: Determine_svc_item_quantity;
7437: END IF;
7438:
7439:
7458: --with in the l_bucket_price_cur below
7459: l_lines_tbl(l_line_rec.line_index) := l_line_rec; -- bug 3306349
7460:
7461: IF l_debug = FND_API.G_TRUE THEN
7462: QP_PREQ_GRP.ENGINE_DEBUG('Gather lines passed: Line_Index '|| l_line_rec.line_index ||
7463: ' list price '|| l_line_rec.unit_price ||
7464: ' adjusted unit price '|| l_line_rec.adjusted_unit_price ||
7465: ' updated adjusted unit price '|| l_line_rec.updated_adjusted_unit_price);
7466:
7490: l_return_status_text := '';
7491:
7492: IF l_debug = FND_API.G_TRUE THEN
7493: /* 2892848
7494: QP_PREQ_GRP.ENGINE_DEBUG('************************ looping through request lines');
7495: QP_PREQ_GRP.ENGINE_DEBUG('Processing
7496: Line Index'||l_lines_tbl(j).line_index||
7497: ' list price '||l_lines_tbl(j).unit_price||
7498: ' updated adjusted price '||l_lines_tbl(j).updated_adjusted_unit_price);
7491:
7492: IF l_debug = FND_API.G_TRUE THEN
7493: /* 2892848
7494: QP_PREQ_GRP.ENGINE_DEBUG('************************ looping through request lines');
7495: QP_PREQ_GRP.ENGINE_DEBUG('Processing
7496: Line Index'||l_lines_tbl(j).line_index||
7497: ' list price '||l_lines_tbl(j).unit_price||
7498: ' updated adjusted price '||l_lines_tbl(j).updated_adjusted_unit_price);
7499: */
7496: Line Index'||l_lines_tbl(j).line_index||
7497: ' list price '||l_lines_tbl(j).unit_price||
7498: ' updated adjusted price '||l_lines_tbl(j).updated_adjusted_unit_price);
7499: */
7500: QP_PREQ_GRP.ENGINE_DEBUG('Display price: price '
7501: || l_list_price ||' sub-t '|| l_sub_total_price
7502: ||' adj price '|| l_adjusted_price);
7503:
7504: END IF; -- END IF l_debug
7528: l_return_adjustment := 0; -- diff other path ???
7529: -- end 2892848
7530:
7531: IF l_debug = FND_API.G_TRUE THEN
7532: QP_PREQ_GRP.ENGINE_DEBUG('------------------- looping through ldet lines');
7533: QP_PREQ_GRP.ENGINE_DEBUG('Processing Adjustments:
7534: line index '|| l_bucket_price_rec.line_ind ||
7535: ' list line id '|| l_bucket_price_rec.created_from_list_line_id ||
7536: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
7529: -- end 2892848
7530:
7531: IF l_debug = FND_API.G_TRUE THEN
7532: QP_PREQ_GRP.ENGINE_DEBUG('------------------- looping through ldet lines');
7533: QP_PREQ_GRP.ENGINE_DEBUG('Processing Adjustments:
7534: line index '|| l_bucket_price_rec.line_ind ||
7535: ' list line id '|| l_bucket_price_rec.created_from_list_line_id ||
7536: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
7537: ' net amount flag '|| l_bucket_price_rec.net_amount_flag || -- 2892848
7603: l_sub_total_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7604: l_adjusted_price := l_sub_total_price;
7605: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) * l_bucket_price_rec.priced_qty;
7606: IF l_debug = FND_API.G_TRUE THEN
7607: QP_PREQ_GRP.engine_debug('bucket change within same line.'
7608: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7609: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7610: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) || '*' ||
7611: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7605: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) * l_bucket_price_rec.priced_qty;
7606: IF l_debug = FND_API.G_TRUE THEN
7607: QP_PREQ_GRP.engine_debug('bucket change within same line.'
7608: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7609: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7610: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) || '*' ||
7611: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7612: END IF; -- end debug
7613: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7641: l_sub_total_price := 0;
7642: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7643: l_adjusted_price := l_sub_total_price;
7644: IF l_debug = FND_API.G_TRUE THEN
7645: QP_PREQ_GRP.engine_debug('bucket change, line change. '
7646: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7647: END IF; -- end debug
7648:
7649: IF l_prev_line_index = - 9999 THEN
7649: IF l_prev_line_index = - 9999 THEN
7650: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7651: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty;
7652: IF l_debug = FND_API.G_TRUE THEN
7653: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
7654: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7655: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7656: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7657: END IF; -- end debug
7650: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7651: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty;
7652: IF l_debug = FND_API.G_TRUE THEN
7653: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
7654: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7655: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7656: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7657: END IF; -- end debug
7658: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7660: ELSE -- l_prev_line_index <> -9999
7661: IF (l_lines_tbl.EXISTS(l_prev_line_index)) THEN
7662: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7663: IF l_debug = FND_API.G_TRUE THEN
7664: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
7665: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7666: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7667: END IF; -- end debug
7668: END IF; -- END IF l_lines_tbl.EXISTS(l_prev_line_index)
7680: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7681: l_adjusted_price := l_sub_total_price;
7682:
7683: IF l_debug = FND_API.G_TRUE THEN
7684: QP_PREQ_GRP.engine_debug('line change, same bucket');
7685: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
7686: END IF; -- end debug
7687:
7688: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7681: l_adjusted_price := l_sub_total_price;
7682:
7683: IF l_debug = FND_API.G_TRUE THEN
7684: QP_PREQ_GRP.engine_debug('line change, same bucket');
7685: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
7686: END IF; -- end debug
7687:
7688: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7689: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7687:
7688: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7689: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7690: IF l_debug = FND_API.G_TRUE THEN
7691: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
7692: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7693: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7694: END IF; -- end debug
7695: END IF; -- END IF l_lines_tbl.EXISTS(l_prev_line_index)
7698: IF l_1st_bucket = 'Y' THEN
7699: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7700: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty; -- for line level net amt we need this
7701: IF l_debug = FND_API.G_TRUE THEN
7702: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_bucket_price_rec.line_ind ||'): '
7703: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7704: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7705: END IF; -- end debug
7706: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7720: IF l_bucket_price_rec.pricing_group_sequence <> 0 AND l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN -- bucket 0 is line event list price
7721: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
7722: IF l_prev_bucket <> l_bucket_price_rec.pricing_group_sequence THEN
7723: IF l_debug = FND_API.G_TRUE THEN
7724: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to record bucket USP for each line_index');
7725: END IF; -- END debug
7726:
7727: -- for LINE GROUP
7728: -- need capture the l_prev_lg_adj_amt
7731:
7732: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
7733: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
7734: IF l_debug = FND_API.G_TRUE THEN
7735: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
7736: END IF; -- END debug
7737:
7738: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
7739:
7749: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7750: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7751:
7752: IF l_debug = FND_API.G_TRUE THEN
7753: QP_PREQ_GRP.engine_debug ('debug LINE unit adjs up to prev bucket for line index'||l_bucket_price_rec.line_ind ||': '||l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) );
7754: END IF; -- END debug
7755: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7756:
7757:
7758: -- begin shu fix bug for special case, bucket change within same line index
7759: IF line_change = false THEN
7760: l_sub_total_price := nvl(l_adjusted_price, l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7761: IF l_debug = FND_API.G_TRUE THEN
7762: QP_PREQ_GRP.engine_debug('bucket change within same line'
7763: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7764: END IF;
7765: END IF; -- END IF line_change = flase
7766: -- end shu fix bug
7779: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7780: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7781:
7782: IF l_debug = FND_API.G_TRUE THEN
7783: QP_PREQ_GRP.engine_debug ('line change, debug LINE unit adjs up to prev bucket for line index'||l_bucket_price_rec.line_ind ||': '||l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) );
7784: END IF; -- END debug
7785: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7786: END IF; -- END IF line_change true
7787:
7790: ELSE -- bucket is 0 or null -- begin shu fix bug
7791: l_sub_total_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0);
7792: l_adjusted_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price,l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7793: IF l_debug = FND_API.G_TRUE THEN
7794: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
7795: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7796: END IF;
7797: -- end shu fix bug
7798: END IF; -- END IF l_bucket_price_rec(J).pricing_group_sequence <> 0 AND ...
7810: IF l_bucket_price_rec.priced_quantity = 0
7811: AND l_bucket_price_rec.unit_price <> 0
7812: THEN
7813: IF l_debug = FND_API.G_TRUE THEN
7814: QP_PREQ_GRP.engine_debug('line_qty zero changed to null');
7815: END IF;
7816: l_bucket_price_rec.priced_quantity := NULL;
7817: END IF;
7818:
7816: l_bucket_price_rec.priced_quantity := NULL;
7817: END IF;
7818:
7819: --bug 4900095
7820: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind)
7821: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index))
7822: and l_bucket_price_rec.operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
7823: --only for service items
7824: --when uom_quantity is passed as null,
7817: END IF;
7818:
7819: --bug 4900095
7820: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind)
7821: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index))
7822: and l_bucket_price_rec.operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
7823: --only for service items
7824: --when uom_quantity is passed as null,
7825: -- and contract_start/end_dates are passed
7825: -- and contract_start/end_dates are passed
7826: --and for a line/linegroup lumpsum DIS/PBH/SUR/FREIGHT
7827: IF l_bucket_price_rec.modifier_level_code = G_LINE_GROUP THEN
7828: IF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index)
7829: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7830: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index),
7831: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7832: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7833: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7827: IF l_bucket_price_rec.modifier_level_code = G_LINE_GROUP THEN
7828: IF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index)
7829: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7830: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index),
7831: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7832: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7833: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7834: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7835: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7830: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index),
7831: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7832: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7833: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7834: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7835: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7836: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7837: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7838: ELSE
7831: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7832: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7833: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7834: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7835: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7836: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7837: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7838: ELSE
7839: l_calc_quantity :=
7832: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7833: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7834: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7835: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7836: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7837: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7838: ELSE
7839: l_calc_quantity :=
7840: nvl(nvl(l_bucket_price_rec.group_quantity
7833: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7834: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7835: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7836: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7837: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7838: ELSE
7839: l_calc_quantity :=
7840: nvl(nvl(l_bucket_price_rec.group_quantity
7841: , l_bucket_price_rec.group_amount)
7842: , nvl(l_bucket_price_rec.priced_quantity
7843: , l_bucket_price_rec.priced_qty));
7844: END IF;--G_Service_pbh_lg_amt_qty.exists
7845: ELSIF l_bucket_price_rec.modifier_level_code = G_LINE_LEVEL THEN
7846: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7847: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7848: ELSE
7849: l_calc_quantity :=
7850: nvl(nvl(l_bucket_price_rec.group_quantity
7843: , l_bucket_price_rec.priced_qty));
7844: END IF;--G_Service_pbh_lg_amt_qty.exists
7845: ELSIF l_bucket_price_rec.modifier_level_code = G_LINE_LEVEL THEN
7846: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7847: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7848: ELSE
7849: l_calc_quantity :=
7850: nvl(nvl(l_bucket_price_rec.group_quantity
7851: , l_bucket_price_rec.group_amount)
7867: ELSE
7868: l_calc_quantity :=
7869: nvl(l_bucket_price_rec.priced_qty, l_bucket_price_rec.priced_quantity);
7870: END IF; --_bucket_price_rec.modifier_level_code
7871: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists
7872:
7873: --fix for bug2424931
7874: l_calc_quantity := nvl(l_calc_quantity, 1);
7875:
7873: --fix for bug2424931
7874: l_calc_quantity := nvl(l_calc_quantity, 1);
7875:
7876: IF l_debug = FND_API.G_TRUE THEN
7877: QP_PREQ_GRP.engine_debug('figuring out qty level '
7878: || l_bucket_price_rec.modifier_level_code
7879: ||' pricedqty '|| l_bucket_price_rec.priced_quantity
7880: ||' grpqty '|| l_bucket_price_rec.group_quantity
7881: ||' grpamt '|| l_bucket_price_rec.group_amount
7933: -- begin 2892848
7934: -- net_amount line level (not group of line) modifier
7935: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
7936: IF l_debug = FND_API.G_TRUE THEN
7937: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_bucket_price_rec.created_from_list_line_id);
7938: END IF; -- end debug
7939: /* SL_latest
7940: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7941: l_qualifier_value:= l_bucket_price_rec.priced_quantity
7940: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7941: l_qualifier_value:= l_bucket_price_rec.priced_quantity
7942: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
7943: IF l_debug = FND_API.G_TRUE THEN
7944: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
7945: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
7946: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0) );
7947: END IF; -- end debug
7948: ELSE
7941: l_qualifier_value:= l_bucket_price_rec.priced_quantity
7942: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
7943: IF l_debug = FND_API.G_TRUE THEN
7944: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
7945: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
7946: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0) );
7947: END IF; -- end debug
7948: ELSE
7949: l_qualifier_value:= l_bucket_price_rec.priced_quantity;
7942: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
7943: IF l_debug = FND_API.G_TRUE THEN
7944: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
7945: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
7946: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0) );
7947: END IF; -- end debug
7948: ELSE
7949: l_qualifier_value:= l_bucket_price_rec.priced_quantity;
7950: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec)
7951: */
7952: IF l_bucket_amt_tbl.EXISTS(l_bucket_price_rec.line_ind)THEN
7953: l_qualifier_value := l_bucket_amt_tbl(l_bucket_price_rec.line_ind);
7954: IF l_debug = FND_API.G_TRUE THEN
7955: QP_PREQ_GRP.engine_debug('line level net amount, SL_latest ?: '|| l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7956: END IF; -- end debug
7957: END IF; -- END IF l_bucket_amt_tbl.EXISTs
7958: END IF; -- END IF net_amount modifier
7959: -- end 2892848
7971: -- IF net amount linegroup modifier
7972: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
7973:
7974: IF l_debug = FND_API.G_TRUE THEN
7975: QP_PREQ_GRP.engine_debug('net amount linegroup modifier id: '|| l_bucket_price_rec.created_from_list_line_id);
7976: END IF; -- end debug
7977:
7978: l_lg_net_amt := 0;
7979: l_line_bucket_amt := 0; -- note 0+null is null
8000: IF nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P' THEN
8001: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8002: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8003: IF l_debug = FND_API.G_TRUE THEN
8004: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8005: END IF; --end debug
8006: ELSE -- need to calculate l_lg_net_amt
8007: IF l_debug = FND_API.G_TRUE THEN
8008: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
8004: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8005: END IF; --end debug
8006: ELSE -- need to calculate l_lg_net_amt
8007: IF l_debug = FND_API.G_TRUE THEN
8008: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
8009: END IF;
8010: -- calculate amount using product attribute net amount grouping
8011: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8012: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
8011: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8012: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
8013: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
8014: IF l_debug = FND_API.G_TRUE THEN
8015: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
8016: END IF; --end debug
8017: ELSE
8018: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8019: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8017: ELSE
8018: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8019: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8020: IF l_debug = FND_API.G_TRUE THEN
8021: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
8022: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
8023: END IF;
8024: END IF;
8025: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8018: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8019: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8020: IF l_debug = FND_API.G_TRUE THEN
8021: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
8022: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
8023: END IF;
8024: END IF;
8025: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8026:
8024: END IF;
8025: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8026:
8027: IF l_debug = FND_API.G_TRUE THEN
8028: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
8029: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
8030: END IF;
8031: END LOOP;
8032:
8025: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8026:
8027: IF l_debug = FND_API.G_TRUE THEN
8028: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
8029: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
8030: END IF;
8031: END LOOP;
8032:
8033: l_mod_lg_prod_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id) := l_lg_prod_net_amt; -- preserve this for recycle
8036:
8037: IF l_1st_bucket = 'Y' THEN
8038:
8039: IF l_debug = FND_API.G_TRUE THEN
8040: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
8041: END IF; -- end debug
8042: l_lg_net_amt := l_bucket_price_rec.priced_quantity;
8043:
8044: ELSE -- l_1st_bucket <>'Y'
8043:
8044: ELSE -- l_1st_bucket <>'Y'
8045:
8046: IF l_debug = FND_API.G_TRUE THEN
8047: QP_PREQ_GRP.engine_debug(' - not first bucket');
8048: END IF;
8049: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8050: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8051: IF l_debug = FND_API.G_TRUE THEN
8048: END IF;
8049: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8050: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8051: IF l_debug = FND_API.G_TRUE THEN
8052: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl('|| l_bucket_price_rec.line_ind ||'): '|| l_qualifier_value);
8053: END IF; --end debug
8054:
8055: ELSE -- ELSE IF l_mod_lg_net_amt_tbl.EXISTS
8056:
8069: FOR t IN l_net_mod_index_cur(l_bucket_price_rec.created_from_list_line_id) LOOP
8070: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
8071: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
8072: IF l_debug = FND_API.G_TRUE THEN
8073: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
8074: END IF; --end debug
8075: ELSE
8076: l_line_bucket_amt := 0;
8077: END IF;
8077: END IF;
8078: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
8079:
8080: IF l_debug = FND_API.G_TRUE THEN
8081: QP_PREQ_GRP.engine_debug('net amount l_bucket_amt_tbl('|| t.line_index ||'): '|| l_line_bucket_amt);
8082: END IF; --end debug
8083:
8084: END LOOP; -- end l_net_mod_index_cur
8085:
8111: END IF;
8112: END IF;
8113:
8114: IF l_debug = FND_API.G_TRUE THEN
8115: QP_PREQ_GRP.engine_debug('group amount: ' || l_bucket_price_rec.priced_quantity); -- grp amt
8116: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
8117:
8118: END IF; --end debug
8119:
8112: END IF;
8113:
8114: IF l_debug = FND_API.G_TRUE THEN
8115: QP_PREQ_GRP.engine_debug('group amount: ' || l_bucket_price_rec.priced_quantity); -- grp amt
8116: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
8117:
8118: END IF; --end debug
8119:
8120: ELSE -- not net amount modifier
8126: END IF; --l_pbh_pricing_attr
8127: END IF; --modifier level code
8128:
8129: IF l_debug = FND_API.G_TRUE THEN
8130: QP_PREQ_GRP.engine_debug('PBH break dtls attribute '
8131: || l_pbh_pricing_attr ||' l_total_value '|| l_total_value
8132: ||' l_req_value_per_unit '|| l_req_value_per_unit);
8133: END IF; --l_debug
8134:
8176: - 1 * nvl(l_return_adjustment, 0);
8177:
8178: -- 2892848
8179: IF l_debug = FND_API.G_TRUE THEN
8180: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
8181: END IF; --l_debug
8182: -- end 2892848
8183:
8184: ELSE --created_from_list_line_type not PBH 2892848 comment change
8216: END IF;
8217:
8218: -- 2892848
8219: IF l_debug = FND_API.G_TRUE THEN
8220: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_return_adjustment '|| l_return_adjustment); -- 2892848, will be rounded later, ok
8221: END IF; --END IF l_debug
8222: /* SL_latest
8223: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8224: IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN
8223: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8224: IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN
8225: IF l_bucket_adj_amt_tbl.EXISTS(l_bucket_price_rec.pricing_group_sequence) THEN -- avoid no data found or table index not exists for 1st rec
8226: IF l_debug = FND_API.G_TRUE THEN
8227: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8228: END IF; -- end debug
8229: l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence):= nvl(l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence),0) +
8230: nvl(l_return_adjustment,0)* l_bucket_price_rec.priced_qty;
8231:
8233: l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence):= nvl(l_return_adjustment,0) * l_bucket_price_rec.priced_qty;
8234: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
8235:
8236: IF l_debug = FND_API.G_TRUE THEN
8237: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8238: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8239: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8240: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8241: END IF; -- END debug
8234: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
8235:
8236: IF l_debug = FND_API.G_TRUE THEN
8237: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8238: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8239: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8240: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8241: END IF; -- END debug
8242:
8235:
8236: IF l_debug = FND_API.G_TRUE THEN
8237: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8238: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8239: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8240: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8241: END IF; -- END debug
8242:
8243: -- for LINE LEVEL
8236: IF l_debug = FND_API.G_TRUE THEN
8237: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8238: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8239: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8240: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8241: END IF; -- END debug
8242:
8243: -- for LINE LEVEL
8244: IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8242:
8243: -- for LINE LEVEL
8244: IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8245: IF l_debug = FND_API.G_TRUE THEN
8246: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind), 0));
8247: END IF; -- end debug
8248: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind), 0) + nvl(l_return_adjustment, 0);
8249: ELSE -- avoid no datat found err
8250: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_return_adjustment, 0);
8250: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_return_adjustment, 0);
8251: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
8252:
8253: IF l_debug = FND_API.G_TRUE THEN
8254: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_bucket_price_rec.line_ind);
8255: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind));
8256: END IF; -- END debug
8257: END IF; -- END IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL
8258: -- end 2892848
8251: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
8252:
8253: IF l_debug = FND_API.G_TRUE THEN
8254: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_bucket_price_rec.line_ind);
8255: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind));
8256: END IF; -- END debug
8257: END IF; -- END IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL
8258: -- end 2892848
8259: */
8268: ( - 1 * l_bucket_price_rec.rounding_factor));
8269: END IF;
8270:
8271: IF l_debug = FND_API.G_TRUE THEN
8272: QP_PREQ_GRP.engine_debug('rounded adj: '||
8273: l_return_adjustment
8274: ||' roundingfac: '|| l_bucket_price_rec.rounding_factor);
8275:
8276: END IF;
8280: /* SL_latest 2892848
8281: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_bucket_price_rec.adjustment_amount; -- 2892848 SL_latest
8282:
8283: IF l_debug = FND_API.G_TRUE THEN
8284: QP_PREQ_GRP.engine_debug('adjustment_amount: '||l_bucket_price_rec.adjustment_amount);
8285: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
8286: END IF; -- END IF l_debug
8287: */
8288: --code added to calculate adj amt on order lvl adj
8281: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_bucket_price_rec.adjustment_amount; -- 2892848 SL_latest
8282:
8283: IF l_debug = FND_API.G_TRUE THEN
8284: QP_PREQ_GRP.engine_debug('adjustment_amount: '||l_bucket_price_rec.adjustment_amount);
8285: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
8286: END IF; -- END IF l_debug
8287: */
8288: --code added to calculate adj amt on order lvl adj
8289: --fix for bug 1767249
8292: AND l_bucket_price_rec.created_from_list_line_type
8293: <> G_FREIGHT_CHARGE
8294: THEN
8295: IF l_debug = FND_API.G_TRUE THEN
8296: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
8297: || l_bucket_price_rec.line_type ||' listlineid '
8298: || l_bucket_price_rec.created_from_list_line_id);
8299: END IF;
8300: IF l_ord_dtl_index_tbl.COUNT = 0
8299: END IF;
8300: IF l_ord_dtl_index_tbl.COUNT = 0
8301: THEN
8302: IF l_debug = FND_API.G_TRUE THEN
8303: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
8304: END IF;
8305: l_ord_dtl_index_tbl(1) :=
8306: l_bucket_price_rec.line_detail_index;
8307: --fix for bug2424931 multiply by priced_qty
8308: l_ord_adj_amt_tbl(1) :=
8309: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8310: nvl(l_bucket_price_rec.priced_qty, 0);
8311: IF l_debug = FND_API.G_TRUE THEN
8312: QP_PREQ_GRP.engine_debug('ordlvl firstrec adj '
8313: || l_ord_adj_amt_tbl(1));
8314: END IF;
8315: ELSE
8316: FOR n IN
8316: FOR n IN
8317: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
8318: LOOP
8319: IF l_debug = FND_API.G_TRUE THEN
8320: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
8321: l_ord_dtl_index_tbl(n) ||' current rec index '
8322: || l_bucket_price_rec.line_detail_index
8323: ||' count '|| l_ord_dtl_index_tbl.COUNT
8324: ||' lastrec dtl index '
8331: l_ord_adj_amt_tbl(n) := l_ord_adj_amt_tbl(n) +
8332: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8333: nvl(l_bucket_price_rec.priced_qty, 0);
8334: IF l_debug = FND_API.G_TRUE THEN
8335: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8336: l_ord_adj_amt_tbl(n));
8337: END IF;
8338: EXIT; --exit the loop once matches
8339: ELSIF l_ord_dtl_index_tbl(n) =
8341: AND l_ord_dtl_index_tbl(n) <>
8342: l_bucket_price_rec.line_detail_index
8343: THEN
8344: IF l_debug = FND_API.G_TRUE THEN
8345: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
8346: l_bucket_price_rec.line_detail_index ||' adjamt '
8347: || l_bucket_price_rec.adjustment_amount
8348: ||' qty '|| l_bucket_price_rec.priced_qty);
8349: END IF;
8353: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
8354: := nvl(l_bucket_price_rec.adjustment_amount, 0) *
8355: nvl(l_bucket_price_rec.priced_qty, 0);
8356: IF l_debug = FND_API.G_TRUE THEN
8357: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8358: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8359: END IF;
8360: END IF;
8361: IF l_debug = FND_API.G_TRUE THEN
8358: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8359: END IF;
8360: END IF;
8361: IF l_debug = FND_API.G_TRUE THEN
8362: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
8363: || l_ord_dtl_index_tbl(n) ||' adj amt '
8364: || l_ord_adj_amt_tbl(n));
8365: END IF;
8366: END LOOP; --l_ord_dtl_index_tbl
8393: l_bucket_price_rec.priced_quantity;
8394: l_ldet_tbl(i) := l_bucket_price_rec;
8395:
8396: IF l_debug = FND_API.G_TRUE THEN
8397: QP_PREQ_GRP.ENGINE_DEBUG('Passed to table:
8398: line index '|| l_ldet_tbl(i).line_ind ||
8399: ' list_line_id '|| l_ldet_tbl(i).created_from_list_line_id ||
8400: ' adjustment amount '|| l_ldet_tbl(i).adjustment_amount ||
8401: ' applied flag '|| l_ldet_tbl(i).applied_flag);
8410: THEN
8411:
8412: l_adjusted_price := (l_adjusted_price + nvl(l_return_adjustment, 0));
8413: IF l_debug = FND_API.G_TRUE THEN
8414: QP_PREQ_GRP.ENGINE_DEBUG('Display price: price '
8415: --||l_list_price||' sub-t '||l_sub_total_price -- 2892848
8416: ||' adj price (USP) '|| l_adjusted_price
8417: ||' ret adj '|| l_return_adjustment);
8418: END IF; -- end debug
8430: IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu, fix bug 2239061
8431: and l_lines_tbl(j).rounding_factor IS NOT NULL
8432: THEN
8433: IF l_debug = FND_API.G_TRUE THEN
8434: QP_PREQ_GRP.engine_debug('round current USP, rounding_factor: '
8435: ||l_lines_tbl(j).rounding_factor);
8436: END IF;
8437: l_lines_tbl(j).adjusted_unit_price :=
8438: round(l_lines_tbl(j).adjusted_unit_price,
8440: END IF; -- END IF G_ROUND_INDIVIDUAL_ADJ = G_ROUND_ADJ
8441: */
8442:
8443: IF l_debug = FND_API.G_TRUE THEN
8444: QP_PREQ_GRP.ENGINE_DEBUG('adjusted_price'
8445: || l_lines_tbl(j).adjusted_unit_price ||
8446: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
8447: ' list_line_id '|| l_bucket_price_rec.created_from_list_line_id);
8448: END IF;
8454: G_FREIGHT_CHARGE
8455: AND nvl(l_bucket_price_rec.automatic_flag, G_NO) = G_YES
8456: THEN
8457: IF l_debug = FND_API.G_TRUE THEN
8458: QP_PREQ_GRP.engine_debug('frt chrge func '
8459: ||'looping thru freight charge for list_line id '
8460: || l_bucket_price_rec.created_from_list_line_id
8461: ||' adj amt '
8462: || l_bucket_price_rec.adjustment_amount ||' upd '
8472: THEN
8473: --no record for charge type subtype combn
8474: --so insert into l_frt_charge_tbl
8475: IF l_debug = FND_API.G_TRUE THEN
8476: QP_PREQ_GRP.engine_debug('No frt charge so far'
8477: ||' insert new frt record ');
8478: END IF;
8479: l_frt_charge_tbl(1).line_index :=
8480: l_bucket_price_rec.line_ind;
8503: END IF;
8504: ELSIF l_frt_charge_tbl.COUNT > 0
8505: THEN
8506: IF l_debug = FND_API.G_TRUE THEN
8507: QP_PREQ_GRP.engine_debug('frtchrg records exist');
8508:
8509: END IF;
8510: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8511: LOOP
8509: END IF;
8510: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8511: LOOP
8512: IF l_debug = FND_API.G_TRUE THEN
8513: QP_PREQ_GRP.engine_debug('existing frt record id '
8514: || l_frt_charge_tbl(N).created_from_list_line_id);
8515: -- begin 2892848
8516: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8517: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8512: IF l_debug = FND_API.G_TRUE THEN
8513: QP_PREQ_GRP.engine_debug('existing frt record id '
8514: || l_frt_charge_tbl(N).created_from_list_line_id);
8515: -- begin 2892848
8516: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8517: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8518: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8519: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8520: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8514: || l_frt_charge_tbl(N).created_from_list_line_id);
8515: -- begin 2892848
8516: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8517: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8518: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8519: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8520: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8521: || l_bucket_price_rec.charge_subtype_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_subtype_code );
8522: QP_PREQ_GRP.engine_debug('level, rec: '-- 2892848
8516: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8517: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8518: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8519: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8520: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8521: || l_bucket_price_rec.charge_subtype_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_subtype_code );
8522: QP_PREQ_GRP.engine_debug('level, rec: '-- 2892848
8523: || l_bucket_price_rec.modifier_level_code ||' frt tbl: '|| l_frt_charge_tbl(N).LEVEL );
8524: -- end 2892848
8518: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8519: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8520: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8521: || l_bucket_price_rec.charge_subtype_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_subtype_code );
8522: QP_PREQ_GRP.engine_debug('level, rec: '-- 2892848
8523: || l_bucket_price_rec.modifier_level_code ||' frt tbl: '|| l_frt_charge_tbl(N).LEVEL );
8524: -- end 2892848
8525:
8526: END IF; -- end debug
8536: G_LINE_GROUP))
8537: THEN
8538: --record exists for charge type subtype combn
8539: IF l_debug = FND_API.G_TRUE THEN
8540: QP_PREQ_GRP.engine_debug('charge combn match'
8541: || l_frt_charge_tbl(N).updated_flag);
8542: END IF;
8543: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8544: THEN
8542: END IF;
8543: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8544: THEN
8545: IF l_debug = FND_API.G_TRUE THEN
8546: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
8547: END IF;
8548: --only if user has not overridden
8549: --replace the record with the ct adj
8550: IF nvl(l_bucket_price_rec.updated_flag, G_NO) =
8550: IF nvl(l_bucket_price_rec.updated_flag, G_NO) =
8551: G_YES
8552: THEN
8553: IF l_debug = FND_API.G_TRUE THEN
8554: QP_PREQ_GRP.engine_debug('Repl overridden rec');
8555: END IF;
8556: --if ct adj is overridden
8557: l_frt_charge_tbl(N).line_detail_index
8558: := l_bucket_price_rec.line_detail_index;
8570: > l_frt_charge_tbl(N).adjustment_amount
8571: THEN
8572: --if ct adj's adj amt is greater
8573: IF l_debug = FND_API.G_TRUE THEN
8574: QP_PREQ_GRP.engine_debug('replace high adjamt');
8575: END IF;
8576: l_frt_charge_tbl(N).line_detail_index
8577: := l_bucket_price_rec.line_detail_index;
8578: l_frt_charge_tbl(N).created_from_list_line_id
8589: ELSE
8590: --no match for charge type subtype combn
8591: --so insert into l_frt_charge_tbl
8592: IF l_debug = FND_API.G_TRUE THEN
8593: QP_PREQ_GRP.engine_debug('charge combn no match');
8594: END IF;
8595: IF N = l_frt_charge_tbl.LAST
8596: THEN
8597: --this is the last record and the
8596: THEN
8597: --this is the last record and the
8598: --charge type subtype combn not match
8599: IF l_debug = FND_API.G_TRUE THEN
8600: QP_PREQ_GRP.engine_debug('hit last rec in tbl'
8601: ||' insert new record ');
8602: QP_PREQ_GRP.engine_debug('shu debug, l_bucket_price_rec.adjustment_amount: '-- shu, 2892848
8603: || l_bucket_price_rec.adjustment_amount); -- 2892848
8604: END IF;
8598: --charge type subtype combn not match
8599: IF l_debug = FND_API.G_TRUE THEN
8600: QP_PREQ_GRP.engine_debug('hit last rec in tbl'
8601: ||' insert new record ');
8602: QP_PREQ_GRP.engine_debug('shu debug, l_bucket_price_rec.adjustment_amount: '-- shu, 2892848
8603: || l_bucket_price_rec.adjustment_amount); -- 2892848
8604: END IF;
8605: l_frt_charge_tbl(N + 1).line_index :=
8606: l_bucket_price_rec.line_ind;
8641:
8642: --Freight Charge Functionality update status of frt charge adj
8643: IF l_frt_charge_tbl.COUNT > 0
8644: THEN
8645: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
8646: THEN
8647: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8648: LOOP
8649: IF l_debug = FND_API.G_TRUE THEN
8646: THEN
8647: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8648: LOOP
8649: IF l_debug = FND_API.G_TRUE THEN
8650: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8651: || l_frt_charge_tbl(s).line_index); -- 2892848
8652: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8653: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8654: QP_PREQ_GRP.engine_debug('display frt dlts '
8648: LOOP
8649: IF l_debug = FND_API.G_TRUE THEN
8650: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8651: || l_frt_charge_tbl(s).line_index); -- 2892848
8652: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8653: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8654: QP_PREQ_GRP.engine_debug('display frt dlts '
8655: ||' list line id '
8656: || l_frt_charge_tbl(s).created_from_list_line_id);
8650: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8651: || l_frt_charge_tbl(s).line_index); -- 2892848
8652: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8653: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8654: QP_PREQ_GRP.engine_debug('display frt dlts '
8655: ||' list line id '
8656: || l_frt_charge_tbl(s).created_from_list_line_id);
8657: END IF;
8658: END LOOP;
8659: END IF;
8660: FOR N IN l_ldet_tbl.FIRST..l_ldet_tbl.LAST
8661: LOOP
8662: IF l_debug = FND_API.G_TRUE THEN
8663: QP_PREQ_GRP.engine_debug('in frt charge loop (SL, l_ldet_tbl loop) '-- 2892848
8664: || l_ldet_tbl(N).created_from_list_line_id
8665: ||' '|| l_ldet_tbl(N).created_from_list_line_type
8666: ||' sts '|| l_ldet_tbl(N).pricing_status_code
8667: ||' is max frt '|| l_ldet_tbl(N).is_max_frt);
8682: l_ldet_tbl(N).pricing_status_text :=
8683: 'MAX FRT CHARGE';
8684: l_frt_charge_tbl.DELETE(M);
8685: IF l_debug = FND_API.G_TRUE THEN
8686: QP_PREQ_GRP.engine_debug('applied frt charge '
8687: || l_ldet_tbl(N).created_from_list_line_id);
8688: END IF;
8689: END IF;
8690: M := l_frt_charge_tbl.NEXT(M);
8699: j := l_lines_tbl.FIRST;
8700: WHILE j IS NOT NULL LOOP -- end 2892848
8701:
8702: IF l_debug = FND_API.G_TRUE THEN
8703: QP_PREQ_GRP.ENGINE_DEBUG('Processed lines:
8704: line index'|| l_lines_tbl(j).line_index
8705: ||' updated adjusted price '
8706: || l_lines_tbl(j).updated_adjusted_unit_price
8707: ||' adjustment count '|| l_ldet_tbl.COUNT);
8709: END IF;
8710: x := l_ldet_tbl.FIRST;
8711: WHILE x IS NOT NULL LOOP
8712: IF l_debug = FND_API.G_TRUE THEN
8713: QP_PREQ_GRP.ENGINE_DEBUG('line_detail_index '
8714: || l_ldet_tbl(x).line_detail_index
8715: ||'up adj price1 '
8716: || l_ldet_tbl(x).created_from_list_line_id
8717: ||' status '
8739: BACK CALCULATION ROUTINE
8740: ******************************************************************/
8741:
8742: IF l_debug = FND_API.G_TRUE THEN
8743: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE ');
8744:
8745: END IF;
8746: l_ldet_tbl.DELETE;
8747:
8751: --as l_amount_changed will be zero whereas at this point
8752: --l_amount_changed will not be zero
8753:
8754: IF l_debug = FND_API.G_TRUE THEN
8755: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION check: upd adj price '
8756: || l_lines_tbl(j).updated_adjusted_unit_price
8757: ||' adj price '|| l_lines_tbl(j).adjusted_unit_price);
8758:
8759: END IF;
8779: END IF;
8780:
8781: -- 2892848
8782: IF l_debug = FND_API.G_TRUE THEN
8783: QP_PREQ_GRP.ENGINE_DEBUG('AFTER ROUNDING, adjusted_unit_price:'
8784: || l_lines_tbl(j).adjusted_unit_price
8785: ||' updated_adjusted_unit_price: '|| l_lines_tbl(j).adjusted_unit_price);
8786:
8787: END IF;
8797: IF (l_lines_tbl(j).updated_adjusted_unit_price IS NULL
8798: OR l_amount_changed = 0) --no back cal if no amt change
8799: THEN
8800: IF l_debug = FND_API.G_TRUE THEN
8801: QP_PREQ_GRP.ENGINE_DEBUG('no back calculation');
8802: END IF;
8803: BACK_CALCULATE := FALSE;
8804: ELSE
8805: IF l_debug = FND_API.G_TRUE THEN
8802: END IF;
8803: BACK_CALCULATE := FALSE;
8804: ELSE
8805: IF l_debug = FND_API.G_TRUE THEN
8806: QP_PREQ_GRP.ENGINE_DEBUG('back calculation set');
8807: END IF;
8808: BACK_CALCULATE := TRUE;
8809:
8810: OPEN l_chk_backcal_adj_exist_cur(l_lines_tbl(j).line_index);
8816: nvl(l_back_calc_dtl_index, 0);
8817: l_back_calc_adj_amt :=
8818: nvl(l_back_calc_adj_amt, 0);
8819: IF l_debug = FND_API.G_TRUE THEN
8820: QP_PREQ_GRP.engine_debug('back cal dtl '||
8821: l_back_calc_dtl_index ||' adjamt '|| l_back_calc_adj_amt);
8822: END IF;
8823:
8824: --changes for bug 2043442
8831: l_amount_changed := l_amount_changed +
8832: l_back_calc_adj_amt;
8833:
8834: IF l_debug = FND_API.G_TRUE THEN
8835: QP_PREQ_GRP.engine_debug('back cal dtl '||
8836: ' amt changed '|| l_amount_changed);
8837:
8838: END IF;
8839: IF l_amount_changed <= 0 THEN
8841: ELSIF l_amount_changed > 0 THEN
8842: l_BACK_CALCULATE_START_TYPE := G_SURCHARGE;
8843: END IF;
8844: IF l_debug = FND_API.G_TRUE THEN
8845: QP_PREQ_GRP.ENGINE_DEBUG('back calculation start type'
8846: || l_BACK_CALCULATE_START_TYPE
8847: ||' amount changed '|| l_amount_changed);
8848:
8849: END IF;
8850: l_return_status := '';
8851: l_return_status_text := '';
8852:
8853: IF l_debug = FND_API.G_TRUE THEN
8854: QP_PREQ_GRP.ENGINE_DEBUG('before back calculation '
8855: || l_lines_tbl(j).line_index
8856: ||' amt changed '|| l_amount_changed);
8857: END IF;
8858: IF l_amount_changed <= 0 THEN
8865: , l_back_calc_ret_rec
8866: , l_return_status
8867: , l_return_status_text);
8868: IF l_debug = FND_API.G_TRUE THEN
8869: QP_PREQ_GRP.ENGINE_DEBUG('after back calculation ');
8870:
8871: END IF;
8872:
8873: IF l_lines_tbl(j).rounding_factor IS NOT NULL
8878: l_back_calc_ret_rec.adjustment_amount :=
8879: round(l_back_calc_ret_rec.adjustment_amount,
8880: - 1 * l_back_calc_ret_rec.rounding_factor);
8881: IF l_debug = FND_API.G_TRUE THEN
8882: QP_PREQ_GRP.ENGINE_DEBUG('back calc rounded '
8883: || l_back_calc_ret_rec.adjustment_amount
8884: ||' roundingfac '
8885: || l_back_calc_ret_rec.rounding_factor);
8886: END IF;
8893:
8894: IF BACK_CALCULATE
8895: THEN
8896: IF l_debug = FND_API.G_TRUE THEN
8897: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
8898: END IF;
8899: IF l_back_calc_ret_rec.calculation_code
8900: = G_BACK_CALCULATE
8901: THEN
8900: = G_BACK_CALCULATE
8901: THEN
8902:
8903: IF l_debug = FND_API.G_TRUE THEN
8904: QP_PREQ_GRP.ENGINE_DEBUG('Back Calculate: '
8905: ||'before update ldets: line_detail_index '
8906: || l_back_calc_ret_rec.line_detail_index
8907: ||' list line id '
8908: || l_back_calc_ret_rec.list_line_id
8911: ||' operand '|| l_back_calc_ret_rec.operand_value
8912: ||' calculation_code '
8913: || l_back_calc_ret_rec.calculation_code);
8914:
8915: QP_PREQ_GRP.engine_debug('chk back cal dtl '||
8916: l_back_calc_dtl_index);
8917:
8918: END IF;
8919: IF l_back_calc_dtl_index <> 0
8958: END IF;
8959: END IF; --back_calculate
8960:
8961: IF l_debug = FND_API.G_TRUE THEN
8962: QP_PREQ_GRP.engine_debug('return sts '|| l_return_status);
8963: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
8964: END IF;
8965: IF BACK_CALCULATE
8966: THEN
8959: END IF; --back_calculate
8960:
8961: IF l_debug = FND_API.G_TRUE THEN
8962: QP_PREQ_GRP.engine_debug('return sts '|| l_return_status);
8963: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
8964: END IF;
8965: IF BACK_CALCULATE
8966: THEN
8967: IF l_debug = FND_API.G_TRUE THEN
8964: END IF;
8965: IF BACK_CALCULATE
8966: THEN
8967: IF l_debug = FND_API.G_TRUE THEN
8968: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
8969:
8970: END IF;
8971: IF l_return_status = FND_API.G_RET_STS_SUCCESS
8972: THEN
8970: END IF;
8971: IF l_return_status = FND_API.G_RET_STS_SUCCESS
8972: THEN
8973: IF l_debug = FND_API.G_TRUE THEN
8974: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Success');
8975: END IF;
8976: l_lines_tbl(j).processed_flag := G_PROCESSED;
8977: --change for bug 2146050
8978: --recalculate the selling price again after back calc
8992: --skip rounding for Post Round option
8993: AND l_lines_tbl(j).rounding_factor IS NOT NULL
8994: THEN
8995: IF l_debug = FND_API.G_TRUE THEN
8996: QP_PREQ_GRP.engine_debug('need to round selling price, rounding_factor: '
8997: || l_lines_tbl(j).rounding_factor);
8998: END IF;
8999: l_lines_tbl(j).adjusted_unit_price :=
9000: round(l_lines_tbl(j).adjusted_unit_price,
9001: - 1 * l_lines_tbl(j).rounding_factor);
9002: END IF;
9003: ELSE
9004: IF l_debug = FND_API.G_TRUE THEN
9005: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Failure');
9006: END IF;
9007: l_lines_tbl(j).processed_flag := G_NOT_PROCESSED;
9008: l_lines_tbl(j).processed_code :=
9009: QP_PREQ_PUB.G_BACK_CALCULATION_STS;
9012: l_lines_tbl(j).pricing_status_text := l_return_status_text;
9013: END IF; --l_return_status
9014: ELSE
9015: IF l_debug = FND_API.G_TRUE THEN
9016: QP_PREQ_GRP.ENGINE_DEBUG('NO Back calculate');
9017: END IF;
9018: l_lines_tbl(j).processed_flag := G_PROCESSED;
9019: END IF; --back_calculate
9020:
9038: WHERE line_index = l_lines_tbl(j).line_index;
9039:
9040:
9041: IF l_debug = FND_API.G_TRUE THEN
9042: QP_PREQ_GRP.ENGINE_DEBUG('Processed Price:
9043: line index'|| l_lines_tbl(j).line_index ||
9044: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9045: 'processed_code' || l_lines_tbl(j).processed_code);
9046: END IF;
9061: WHERE line_index = l_lines_tbl(j).line_index;
9062:
9063:
9064: IF l_debug = FND_API.G_TRUE THEN
9065: QP_PREQ_GRP.ENGINE_DEBUG('Failed Process price:
9066: line index '|| l_lines_tbl(j).line_index ||
9067: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9068: 'processed_code' || l_lines_tbl(j).processed_code);
9069: END IF;
9076:
9077:
9078: j := l_lines_tbl.NEXT(j);
9079: IF l_debug = FND_API.G_TRUE THEN
9080: QP_PREQ_GRP.ENGINE_DEBUG('-----------------------------------');
9081: END IF;
9082: END LOOP;
9083:
9084: --to update adj amt on order level adjustments
9084: --to update adj amt on order level adjustments
9085: IF l_ord_dtl_index_tbl.COUNT > 0
9086: THEN
9087: IF l_debug = FND_API.G_TRUE THEN
9088: QP_PREQ_GRP.engine_debug('updating order lvl adj amt: '||
9089: l_ord_dtl_index_tbl.COUNT);
9090: END IF;
9091: FORALL i IN l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
9092: UPDATE qp_npreq_ldets_tmp
9102: IF G_GSA_CHECK_FLAG = G_YES
9103: AND G_GSA_ENABLED_FLAG = G_YES
9104: THEN
9105: IF l_debug = FND_API.G_TRUE THEN
9106: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
9107:
9108: END IF;
9109: /*
9110: INDX,QP_PREQ_PUB.calculate_price.upd5,qp_npreq_lines_tmp_N2,LINE_TYPE_CODE,1
9128: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_HEADERS_B_N1,GSA_INDICATOR,6
9129: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_LINES_PK,LIST_LINE_ID,1
9130: */
9131: IF l_debug = FND_API.G_TRUE THEN
9132: QP_PREQ_GRP.engine_debug('Pub GSA attr_mgr_installed '
9133: || G_ATTR_MGR_INSTALLED);
9134: END IF;
9135: IF G_ATTR_MGR_INSTALLED = G_NO
9136: THEN
9242: AND trunc(nvl(ql.End_date_active
9243: , line.pricing_effective_date)));
9244: END IF;
9245: IF l_debug = FND_API.G_TRUE THEN
9246: QP_PREQ_GRP.engine_debug('End Pub GSA check');
9247: END IF;
9248: END IF;
9249:
9250:
9255: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9256: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9257:
9258: IF l_debug = FND_API.G_TRUE THEN
9259: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9260: END IF;
9261: EXCEPTION
9262: WHEN Calculate_Exc THEN
9263: IF l_debug = FND_API.G_TRUE THEN
9260: END IF;
9261: EXCEPTION
9262: WHEN Calculate_Exc THEN
9263: IF l_debug = FND_API.G_TRUE THEN
9264: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9265: END IF;
9266: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9267: WHEN OTHERS THEN
9268: IF l_debug = FND_API.G_TRUE THEN
9265: END IF;
9266: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9267: WHEN OTHERS THEN
9268: IF l_debug = FND_API.G_TRUE THEN
9269: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9270: END IF;
9271: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9272: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
9273: END CALCULATE_PRICE;
9287: rltd.pricing_status_code
9288: FROM qp_npreq_rltd_lines_tmp rltd
9289: WHERE rltd.relationship_type_code = G_PBH_LINE;
9290: BEGIN
9291: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9292: IF l_debug = FND_API.G_TRUE
9293: THEN
9294: QP_PREQ_GRP.engine_debug('------------------------------');
9295: FOR cl IN l_dbg_cleanup_cur
9290: BEGIN
9291: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9292: IF l_debug = FND_API.G_TRUE
9293: THEN
9294: QP_PREQ_GRP.engine_debug('------------------------------');
9295: FOR cl IN l_dbg_cleanup_cur
9296: LOOP
9297: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9298: || cl.line_detail_index ||' rltd_line_dtl_index '
9293: THEN
9294: QP_PREQ_GRP.engine_debug('------------------------------');
9295: FOR cl IN l_dbg_cleanup_cur
9296: LOOP
9297: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9298: || cl.line_detail_index ||' rltd_line_dtl_index '
9299: || cl.related_line_detail_index ||' list_line_id '
9300: || cl.list_line_id ||' rltd_list_line_id '|| cl.related_list_line_id
9301: ||' pricing_status_code '|| cl.pricing_status_code);
9322: WHERE rltd.relationship_type_code = G_PBH_LINE
9323: AND rltd.pricing_status_code = G_STATUS_DELETED);
9324:
9325: IF l_debug = FND_API.G_TRUE THEN
9326: QP_PREQ_GRP.engine_debug('------------------------------');
9327: FOR cl IN l_dbg_cleanup_cur
9328: LOOP
9329: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9330: || cl.line_detail_index ||' rltd_line_dtl_index '
9325: IF l_debug = FND_API.G_TRUE THEN
9326: QP_PREQ_GRP.engine_debug('------------------------------');
9327: FOR cl IN l_dbg_cleanup_cur
9328: LOOP
9329: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9330: || cl.line_detail_index ||' rltd_line_dtl_index '
9331: || cl.related_line_detail_index ||' list_line_id '
9332: || cl.list_line_id ||' rltd_list_line_id '|| cl.related_list_line_id
9333: ||' pricing_status_code '|| cl.pricing_status_code);
9396:
9397: BEGIN
9398:
9399: IF l_debug = FND_API.G_TRUE THEN
9400: QP_PREQ_GRP.engine_debug('-------------------------------------');
9401: FOR cl IN l_dbg_rltd_cur
9402: LOOP
9403: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9404: || cl.pricing_attr_value_from
9399: IF l_debug = FND_API.G_TRUE THEN
9400: QP_PREQ_GRP.engine_debug('-------------------------------------');
9401: FOR cl IN l_dbg_rltd_cur
9402: LOOP
9403: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9404: || cl.pricing_attr_value_from
9405: ||' value to '|| cl.pricing_attr_value_to
9406: ||' price brktype '|| cl.price_break_type_code
9407: ||' list_line_id '|| cl.list_line_id
9463: AND rltd.pricing_status_code = G_STATUS_NEW;
9464:
9465: IF l_debug = FND_API.G_TRUE
9466: THEN
9467: QP_PREQ_GRP.engine_debug('-------------------------------------');
9468: FOR cl IN l_dbg_rltd_upd_cur
9469: LOOP
9470: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9471: || cl.setup_value_from
9466: THEN
9467: QP_PREQ_GRP.engine_debug('-------------------------------------');
9468: FOR cl IN l_dbg_rltd_upd_cur
9469: LOOP
9470: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9471: || cl.setup_value_from
9472: ||' value to '|| cl.setup_value_to
9473: ||' price brktype '|| cl.relationship_type_detail
9474: ||' list_line_id '|| cl.list_line_id
9574: open lcur;LOOP
9575: fetch lcur into lrec;
9576: EXIT when lcur%NOTFOUND;
9577: IF l_debug = FND_API.G_TRUE THEN
9578: QP_PREQ_GRP.ENGINE_DEBUG(lrec.line_index||
9579: ' user passed list_line_id '||lrec.created_from_list_line_id||
9580: ' pricing_status_code '||lrec.pricing_status_code||
9581: ' applied_flag '||lrec.applied_flag||
9582: ' updated_flag '||lrec.updated_flag||
9583: ' operand '||lrec.operand_value);
9584: END IF;
9585: END LOOP;
9586: IF l_debug = FND_API.G_TRUE THEN
9587: QP_PREQ_GRP.ENGINE_DEBUG('--------------------------------------------------');
9588: END IF;
9589: CLOSE lcur;
9590: */
9591:
9595: --by the calling application and mark the temporary table qp_npreq_ldets_tmp
9596: --field process_code with a value G_STATUS_NEW
9597: ----------------------------------------------------------------------------
9598: IF l_debug = FND_API.G_TRUE THEN
9599: QP_PREQ_GRP.ENGINE_DEBUG('START PROCESS ADJUSTMENTS '|| p_pricing_event);
9600:
9601: END IF;
9602: --Step 0: Update all user passed adjustments to process_code 'DELETED'
9603: --to start with
9629: OR ((nvl(Get_buy_line_price_flag(ldet.created_from_list_line_id, ldet.line_index), line.price_flag) = G_PHASE)
9630: AND (nvl(ph.user_freeze_override_flag, ph.freeze_override_flag) = G_YES))));
9631:
9632: IF l_debug = FND_API.G_TRUE THEN
9633: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1');
9634:
9635: END IF;
9636: --Second Step: Retain adjustments input by user
9637: --which have updated flag = 'Y'
9653: -- from qp_npreq_rltd_lines_tmp rltd
9654: -- where rltd.relationship_type_code = G_PBH_LINE)));
9655:
9656: IF l_debug = FND_API.G_TRUE THEN
9657: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1.5');
9658: END IF;
9659: --summary line adjustments with price flag 'N' need to be considered for calc
9660: --reqt from contracts for performance
9661: UPDATE qp_npreq_ldets_tmp ldet SET ldet.process_code = G_STATUS_NEW
9664: WHERE line.line_type_code = G_ORDER_LEVEL
9665: AND line.price_flag = G_NO);
9666:
9667: IF l_debug = FND_API.G_TRUE THEN
9668: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step2');
9669:
9670:
9671: END IF;
9672: --Third Step : Mark the lines returned by the engine
9684: open lcur1; LOOP
9685: fetch lcur1 into lrec1;
9686: EXIT when lcur1%NOTFOUND;
9687: IF l_debug = FND_API.G_TRUE THEN
9688: QP_PREQ_GRP.ENGINE_DEBUG('list_line_id'||lrec1.created_from_list_line_id);
9689: END IF;
9690: END LOOP;
9691: CLOSE lcur1;
9692: */
9691: CLOSE lcur1;
9692: */
9693:
9694: IF l_debug = FND_API.G_TRUE THEN
9695: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step3');
9696:
9697: END IF;
9698: --Fourth Step : Among the lines with process_code = G_STATUS_NEW
9699: -- remove the duplicates. Retain lines passed by user with updated_flag 'Y' or
9713:
9714:
9715:
9716: IF l_debug = FND_API.G_TRUE THEN
9717: QP_PREQ_GRP.ENGINE_DEBUG('DUPLICATE REC:
9718: line index '|| l_duplicate_rec.line_index ||
9719: ' detail_index '|| l_duplicate_rec.line_detail_index ||
9720: 'list_line_id '|| l_duplicate_rec.created_from_list_line_id ||
9721: 'pricing_status_code '|| l_duplicate_rec.pricing_status_code ||
9721: 'pricing_status_code '|| l_duplicate_rec.pricing_status_code ||
9722: ' process_code '|| l_duplicate_rec.process_code ||
9723: ' applied_flag '|| l_duplicate_rec.applied_flag ||
9724: ' updated_flag '|| l_duplicate_rec.updated_flag);
9725: QP_PREQ_GRP.ENGINE_DEBUG('DUPLICATE REC1:
9726: line index '|| l_duplicate_rec1.line_index ||
9727: ' detail_index '|| l_duplicate_rec1.line_detail_index ||
9728: 'list_line_id '|| l_duplicate_rec1.created_from_list_line_id ||
9729: 'pricing_status_code '|| l_duplicate_rec1.pricing_status_code ||
9737: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_YES)
9738: OR (nvl(l_duplicate_rec.applied_flag, G_NO) = G_YES))) THEN
9739: --retain adj passed by user
9740: IF l_debug = FND_API.G_TRUE THEN
9741: QP_PREQ_GRP.ENGINE_DEBUG('retain user passed');
9742: END IF;
9743: l_duplicate_rec.process_code := G_STATUS_NEW;
9744: l_duplicate_rec1.process_code := G_STATUS_UNCHANGED;
9745: l_duplicate_rec1.pricing_status_code := G_STATUS_DELETED;
9749: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO) OR
9750: (nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO))) THEN
9751: --retain adj passed by user
9752: IF l_debug = FND_API.G_TRUE THEN
9753: QP_PREQ_GRP.ENGINE_DEBUG('retain engine passed');
9754: END IF;
9755: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9756: l_duplicate_rec.pricing_status_code := G_STATUS_DELETED;
9757: l_duplicate_rec1.pricing_status_text := 'QP_PREQ_PUB:DUPLICATE RECORD';
9758: l_duplicate_rec1.process_code := G_STATUS_NEW;
9759: ELSE
9760: --retain adj passed by engine
9761: IF l_debug = FND_API.G_TRUE THEN
9762: QP_PREQ_GRP.ENGINE_DEBUG('else retain engine');
9763:
9764: END IF;
9765: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9766: l_duplicate_rec.pricing_status_code := G_STATUS_DELETED;
9773:
9774: l_dup_adj_tbl(i) := l_duplicate_rec;
9775:
9776: IF l_debug = FND_API.G_TRUE THEN
9777: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9778: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9779: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9780: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9781: ' applied_flag '|| l_dup_adj_tbl(i).applied_flag ||
9783: END IF;
9784: i := i + 1;
9785: l_dup_adj_tbl(i) := l_duplicate_rec1;
9786: IF l_debug = FND_API.G_TRUE THEN
9787: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9788: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9789: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9790: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9791: ' applied_flag '|| l_dup_adj_tbl(i).applied_flag ||
9806: , pricing_status_text = l_dup_adj_tbl(i).pricing_status_text
9807: WHERE line_detail_index = l_dup_adj_tbl(i).line_detail_index;
9808:
9809: IF l_debug = FND_API.G_TRUE THEN
9810: QP_PREQ_GRP.ENGINE_DEBUG('Update processed adjustments:
9811: list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9812: ' pricing_status_code '|| l_dup_adj_tbl(i).pricing_status_code ||
9813: 'process_code '|| l_dup_adj_tbl(i).process_code);
9814:
9815: END IF;
9816: i := l_dup_adj_tbl.NEXT(i);
9817: END LOOP;
9818:
9819: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9820:
9821: OPEN lcur1; LOOP
9822: FETCH lcur1 INTO lrec1;
9823: EXIT WHEN lcur1%NOTFOUND;
9821: OPEN lcur1; LOOP
9822: FETCH lcur1 INTO lrec1;
9823: EXIT WHEN lcur1%NOTFOUND;
9824: IF l_debug = FND_API.G_TRUE THEN
9825: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9826: ' line_dtl_index '|| lrec1.line_detail_index ||
9827: ' line_qty '|| lrec1.line_quantity ||
9828: ' list_line_id '|| lrec1.created_from_list_line_id ||
9829: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code ||
9833: CLOSE lcur1;
9834: END IF;
9835: Cleanup_rltd_lines(x_return_status, x_return_status_text);
9836: IF l_debug = FND_API.G_TRUE THEN
9837: QP_PREQ_GRP.engine_debug('------------------------------------------');
9838:
9839: END IF;
9840: IF x_return_status = FND_API.G_RET_STS_ERROR
9841: THEN
9843: END IF;
9844:
9845: Update_Related_Line_Info(x_return_status, x_return_status_text);
9846: IF l_debug = FND_API.G_TRUE THEN
9847: QP_PREQ_GRP.engine_debug('------------------------------------------');
9848: END IF;
9849: IF x_return_status = FND_API.G_RET_STS_ERROR
9850: THEN
9851: RAISE Process_Exc;
9850: THEN
9851: RAISE Process_Exc;
9852: END IF;
9853:
9854: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9855:
9856: OPEN lcur1; LOOP
9857: FETCH lcur1 INTO lrec1;
9858: EXIT WHEN lcur1%NOTFOUND;
9856: OPEN lcur1; LOOP
9857: FETCH lcur1 INTO lrec1;
9858: EXIT WHEN lcur1%NOTFOUND;
9859: IF l_debug = FND_API.G_TRUE THEN
9860: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9861: ' list_line_id '|| lrec1.created_from_list_line_id ||
9862: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code ||
9863: ' updated '|| lrec1.updated_flag ||' process '|| lrec1.process_code);
9864: END IF;
9866: CLOSE lcur1;
9867: END IF;
9868:
9869: IF l_debug = FND_API.G_TRUE THEN
9870: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step4');
9871:
9872: END IF;
9873: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9874: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9873: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9874: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9875:
9876: IF l_debug = FND_API.G_TRUE THEN
9877: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9878: END IF;
9879: EXCEPTION
9880: WHEN Process_Exc THEN
9881: IF l_debug = FND_API.G_TRUE THEN
9878: END IF;
9879: EXCEPTION
9880: WHEN Process_Exc THEN
9881: IF l_debug = FND_API.G_TRUE THEN
9882: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9883: END IF;
9884: WHEN OTHERS THEN
9885: IF l_debug = FND_API.G_TRUE THEN
9886: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9882: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9883: END IF;
9884: WHEN OTHERS THEN
9885: IF l_debug = FND_API.G_TRUE THEN
9886: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9887: END IF;
9888: x_return_status := FND_API.G_RET_STS_ERROR;
9889: x_return_status_text := l_routine ||' '|| SQLERRM;
9890: END PROCESS_ADJUSTMENTS;
9900: PROCEDURE UPDATE_QUALIFIER_VALUE(x_return_status OUT NOCOPY VARCHAR2,
9901: x_return_status_text OUT NOCOPY VARCHAR2)
9902: IS
9903: BEGIN
9904: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9905: IF l_debug = FND_API.G_TRUE THEN
9906: QP_PREQ_GRP.engine_debug('Begin UPDATE_QUALIFIER_VALUE routine');
9907:
9908: END IF;
9902: IS
9903: BEGIN
9904: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9905: IF l_debug = FND_API.G_TRUE THEN
9906: QP_PREQ_GRP.engine_debug('Begin UPDATE_QUALIFIER_VALUE routine');
9907:
9908: END IF;
9909: UPDATE qp_npreq_rltd_lines_tmp rltd
9910: SET rltd.qualifier_value = (SELECT
9926: AND line.pricing_status_code IN
9927: (G_STATUS_UNCHANGED, G_STATUS_UPDATED,
9928: G_STATUS_GSA_VIOLATION)
9929: AND line.usage_pricing_type =
9930: QP_PREQ_GRP.G_BILLING_TYPE);
9931: IF l_debug = FND_API.G_TRUE THEN
9932: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
9933: END IF;
9934: EXCEPTION
9928: G_STATUS_GSA_VIOLATION)
9929: AND line.usage_pricing_type =
9930: QP_PREQ_GRP.G_BILLING_TYPE);
9931: IF l_debug = FND_API.G_TRUE THEN
9932: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
9933: END IF;
9934: EXCEPTION
9935: WHEN OTHERS THEN
9936: IF l_debug = FND_API.G_TRUE THEN
9933: END IF;
9934: EXCEPTION
9935: WHEN OTHERS THEN
9936: IF l_debug = FND_API.G_TRUE THEN
9937: QP_PREQ_GRP.engine_debug('Error UPDATE_QUALIFIER_VALUE routine '|| SQLERRM);
9938: END IF;
9939: x_return_status := FND_API.G_RET_STS_ERROR;
9940: x_return_status_text := 'QP_PREQ_PUB.UPDATE_QUALIFIER_VALUE: '|| SQLERRM;
9941: END UPDATE_QUALIFIER_VALUE;
9959: AND ldet.process_code = G_STATUS_NEW;
9960: -- and ldet1.line_index = rltd.related_line_index
9961: -- and ldet1.line_detail_index = rltd.related_line_detail_index;
9962:
9963: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
9964: l_child_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
9965: nRows CONSTANT NUMBER := 500;
9966: I PLS_INTEGER;
9967: BEGIN
9960: -- and ldet1.line_index = rltd.related_line_index
9961: -- and ldet1.line_detail_index = rltd.related_line_detail_index;
9962:
9963: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
9964: l_child_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
9965: nRows CONSTANT NUMBER := 500;
9966: I PLS_INTEGER;
9967: BEGIN
9968: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9964: l_child_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
9965: nRows CONSTANT NUMBER := 500;
9966: I PLS_INTEGER;
9967: BEGIN
9968: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9969: --This is to update the status on the child break lines after calculation
9970: IF l_debug = FND_API.G_TRUE THEN
9971: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
9972: END IF;
9967: BEGIN
9968: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9969: --This is to update the status on the child break lines after calculation
9970: IF l_debug = FND_API.G_TRUE THEN
9971: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
9972: END IF;
9973: OPEN l_child_break_cur;
9974: IF l_debug = FND_API.G_TRUE THEN
9975: QP_PREQ_GRP.engine_debug('open l_child_break_cur');
9971: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
9972: END IF;
9973: OPEN l_child_break_cur;
9974: IF l_debug = FND_API.G_TRUE THEN
9975: QP_PREQ_GRP.engine_debug('open l_child_break_cur');
9976: END IF;
9977: -- LOOP
9978: l_child_sts_code_tbl.DELETE;
9979: l_line_dtl_index_tbl.DELETE;
9979: l_line_dtl_index_tbl.DELETE;
9980: FETCH l_child_break_cur
9981: BULK COLLECT INTO l_child_sts_code_tbl, l_line_dtl_index_tbl;
9982: IF l_debug = FND_API.G_TRUE THEN
9983: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
9984: END IF;
9985: -- LIMIT nRows;
9986: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
9987: THEN
9982: IF l_debug = FND_API.G_TRUE THEN
9983: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
9984: END IF;
9985: -- LIMIT nRows;
9986: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
9987: THEN
9988: I := l_line_dtl_index_tbl.FIRST;
9989: WHILE I IS NOT NULL
9990: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
9989: WHILE I IS NOT NULL
9990: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
9991: LOOP
9992: IF l_debug = FND_API.G_TRUE THEN
9993: QP_PREQ_GRP.engine_debug('l_child_break_cur count '|| i
9994: ||' childdtl index '|| l_line_dtl_index_tbl(i)
9995: ||' status code '|| l_child_sts_code_tbl(i));
9996: END IF;
9997: I := l_line_dtl_index_tbl.NEXT(I);
10000:
10001: IF l_line_dtl_index_tbl.COUNT > 0
10002: THEN
10003: IF l_debug = FND_API.G_TRUE THEN
10004: QP_PREQ_GRP.engine_debug('before update');
10005: END IF;
10006: FORALL j IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10007: UPDATE qp_npreq_ldets_tmp
10008: SET process_code = l_child_sts_code_tbl(j)
10007: UPDATE qp_npreq_ldets_tmp
10008: SET process_code = l_child_sts_code_tbl(j)
10009: WHERE line_detail_index = l_line_dtl_index_tbl(j);
10010: IF l_debug = FND_API.G_TRUE THEN
10011: QP_PREQ_GRP.engine_debug('after update');
10012: END IF;
10013: END IF;
10014: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10015: -- END LOOP;
10013: END IF;
10014: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10015: -- END LOOP;
10016: IF l_debug = FND_API.G_TRUE THEN
10017: QP_PREQ_GRP.engine_debug('END LOOP');
10018: END IF;
10019: CLOSE l_child_break_cur;
10020: IF l_debug = FND_API.G_TRUE THEN
10021: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10017: QP_PREQ_GRP.engine_debug('END LOOP');
10018: END IF;
10019: CLOSE l_child_break_cur;
10020: IF l_debug = FND_API.G_TRUE THEN
10021: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10022: END IF;
10023:
10024: IF l_debug = FND_API.G_TRUE THEN
10025: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10021: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10022: END IF;
10023:
10024: IF l_debug = FND_API.G_TRUE THEN
10025: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10026: END IF;
10027: EXCEPTION
10028: WHEN OTHERS THEN
10029: IF l_debug = FND_API.G_TRUE THEN
10026: END IF;
10027: EXCEPTION
10028: WHEN OTHERS THEN
10029: IF l_debug = FND_API.G_TRUE THEN
10030: QP_PREQ_GRP.engine_debug('Error Update_Child_break_lines routine '|| SQLERRM);
10031: END IF;
10032: x_return_status := FND_API.G_RET_STS_ERROR;
10033: x_return_status_text := 'QP_PREQ_PUB.Update_Child_Break_lines: '|| SQLERRM;
10034:
10037:
10038: --This is to calculate the line quantity on each child break line
10039: PROCEDURE PROCESS_PRICE_BREAK(p_rounding_flag IN VARCHAR2,
10040: p_processing_order IN NUMBER,
10041: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10042: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10043: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10044: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10045: x_return_status OUT NOCOPY VARCHAR2,
10038: --This is to calculate the line quantity on each child break line
10039: PROCEDURE PROCESS_PRICE_BREAK(p_rounding_flag IN VARCHAR2,
10040: p_processing_order IN NUMBER,
10041: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10042: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10043: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10044: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10045: x_return_status OUT NOCOPY VARCHAR2,
10046: x_return_status_text OUT NOCOPY VARCHAR2) IS
10039: PROCEDURE PROCESS_PRICE_BREAK(p_rounding_flag IN VARCHAR2,
10040: p_processing_order IN NUMBER,
10041: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10042: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10043: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10044: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10045: x_return_status OUT NOCOPY VARCHAR2,
10046: x_return_status_text OUT NOCOPY VARCHAR2) IS
10047:
10040: p_processing_order IN NUMBER,
10041: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10042: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10043: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10044: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10045: x_return_status OUT NOCOPY VARCHAR2,
10046: x_return_status_text OUT NOCOPY VARCHAR2) IS
10047:
10048: CURSOR l_request_line_detail_cur(p_processing_order NUMBER) IS
10074: qp_npreq_line_attrs_tmp attr
10075: WHERE line.pricing_status_code IN (G_STATUS_UNCHANGED, G_STATUS_UPDATED)
10076: AND line.price_flag = G_CALCULATE_ONLY
10077: AND nvl(line.processing_order, 1) = p_processing_order
10078: AND line.usage_pricing_type = QP_PREQ_GRP.G_BILLING_TYPE
10079: AND line.line_index = rltd.line_index
10080: AND rltd.relationship_type_code = G_PBH_LINE
10081: AND ldet.line_index = line.line_index
10082: AND ldet.pricing_status_code = 'X'
10090: ORDER BY child_detail_index, parent_detail_index;
10091:
10092: l_quantity NUMBER;
10093: l_satisfied_qty NUMBER;
10094: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10095: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10096: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10091:
10092: l_quantity NUMBER;
10093: l_satisfied_qty NUMBER;
10094: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10095: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10096: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10092: l_quantity NUMBER;
10093: l_satisfied_qty NUMBER;
10094: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10095: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10096: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10093: l_satisfied_qty NUMBER;
10094: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10095: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10096: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10101: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10094: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10095: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10096: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10101: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10102: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10095: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10096: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10101: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10102: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10103: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10096: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10101: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10102: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10103: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10104:
10097: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10101: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10102: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10103: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10104:
10105: i NUMBER := 0;
10098: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10101: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10102: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10103: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10104:
10105: i NUMBER := 0;
10106: l_break_satisfied VARCHAR2(1) := G_NO;
10099: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10100: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10101: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10102: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10103: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10104:
10105: i NUMBER := 0;
10106: l_break_satisfied VARCHAR2(1) := G_NO;
10107:
10106: l_break_satisfied VARCHAR2(1) := G_NO;
10107:
10108: BEGIN
10109:
10110: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10111: IF l_debug = FND_API.G_TRUE THEN
10112: QP_PREQ_GRP.engine_debug('Begin process_price_break');
10113:
10114: END IF;
10108: BEGIN
10109:
10110: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10111: IF l_debug = FND_API.G_TRUE THEN
10112: QP_PREQ_GRP.engine_debug('Begin process_price_break');
10113:
10114: END IF;
10115: FOR I IN l_request_line_detail_cur(p_processing_order)
10116: LOOP
10114: END IF;
10115: FOR I IN l_request_line_detail_cur(p_processing_order)
10116: LOOP
10117: IF l_debug = FND_API.G_TRUE THEN
10118: QP_PREQ_GRP.engine_debug('Loop thru child break '|| I.parent_detail_index
10119: ||' child index '|| I.child_detail_index ||' list_line_id '
10120: || I.created_from_list_line_id ||' level '|| I.modifier_level_code
10121: ||' parent price '|| I.parent_price
10122: ||' val from '|| I.value_from ||' to '|| I.value_to
10127: --this is not applicable for price lists
10128: IF I.modifier_level_code = G_LINE_GROUP
10129: THEN
10130: IF l_debug = FND_API.G_TRUE THEN
10131: QP_PREQ_GRP.engine_debug('this is line group');
10132: END IF;
10133: l_quantity := nvl(nvl(nvl(I.group_quantity
10134: , I.group_amount),
10135: nvl(I.break_quantity, I.ordered_quantity)), 0);
10134: , I.group_amount),
10135: nvl(I.break_quantity, I.ordered_quantity)), 0);
10136: ELSE
10137: IF l_debug = FND_API.G_TRUE THEN
10138: QP_PREQ_GRP.engine_debug('this is not line group');
10139: END IF;
10140: l_quantity := nvl(nvl(I.break_quantity,
10141: I.ordered_quantity), 0);
10142: END IF;
10150: l_break_satisfied := G_NO;
10151: END IF;
10152:
10153: IF l_debug = FND_API.G_TRUE THEN
10154: QP_PREQ_GRP.engine_debug('process_price_break1');
10155: END IF;
10156: IF I.price_break_type = G_POINT_BREAK
10157: THEN
10158: IF l_debug = FND_API.G_TRUE THEN
10155: END IF;
10156: IF I.price_break_type = G_POINT_BREAK
10157: THEN
10158: IF l_debug = FND_API.G_TRUE THEN
10159: QP_PREQ_GRP.engine_debug('this is point break');
10160: END IF;
10161: IF l_quantity BETWEEN I.value_from AND I.value_to
10162: THEN
10163: IF l_debug = FND_API.G_TRUE THEN
10160: END IF;
10161: IF l_quantity BETWEEN I.value_from AND I.value_to
10162: THEN
10163: IF l_debug = FND_API.G_TRUE THEN
10164: QP_PREQ_GRP.engine_debug('point break satisfied');
10165: END IF;
10166: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10167: := l_quantity;
10168: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10171: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10172: := I.child_detail_index;
10173: ELSE
10174: IF l_debug = FND_API.G_TRUE THEN
10175: QP_PREQ_GRP.engine_debug('point break not satisfied');
10176: END IF;
10177: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10178: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10179: I.child_line_index;
10184:
10185: ELSIF I.price_break_type = G_RANGE_BREAK
10186: THEN
10187: IF l_debug = FND_API.G_TRUE THEN
10188: QP_PREQ_GRP.engine_debug('this is range break');
10189: END IF;
10190: l_satisfied_qty := 0;
10191: QP_Calculate_Price_PUB.Get_Satisfied_Range
10192: (p_value_from => I.value_from
10193: , p_value_to => I.value_to
10194: , p_qualifier_value => l_quantity
10195: , x_satisfied_value => l_satisfied_qty);
10196: IF l_debug = FND_API.G_TRUE THEN
10197: QP_PREQ_GRP.engine_debug('range break '|| l_satisfied_qty);
10198:
10199: END IF;
10200: IF l_satisfied_qty <> 0
10201: THEN
10199: END IF;
10200: IF l_satisfied_qty <> 0
10201: THEN
10202: IF l_debug = FND_API.G_TRUE THEN
10203: QP_PREQ_GRP.engine_debug('range break satisfied');
10204: END IF;
10205: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10206: := l_satisfied_qty;
10207: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10210: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10211: := I.child_detail_index;
10212: ELSE
10213: IF l_debug = FND_API.G_TRUE THEN
10214: QP_PREQ_GRP.engine_debug('range break not satisfied');
10215: END IF;
10216: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10217: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_NO;
10218: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10239: x_return_status,
10240: x_return_status_text);
10241:
10242: IF l_debug = FND_API.G_TRUE THEN
10243: QP_PREQ_GRP.engine_debug('plsql tbl info dtlindex '
10244: || l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT)
10245: ||' appl flag '|| l_applied_flag_tbl(l_line_dtl_index_tbl.COUNT)
10246: ||' line qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10247: ||' list price '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10260: l_total_price_tbl(x_line_index_tbl.COUNT) :=
10261: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10262: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10263: IF l_debug = FND_API.G_TRUE THEN
10264: QP_PREQ_GRP.engine_debug('first line '
10265: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10266: || l_total_price_tbl(x_line_index_tbl.COUNT)
10267: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10268: ||' adjamt '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10276: l_total_price_tbl(x_line_index_tbl.COUNT) +
10277: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10278: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10279: IF l_debug = FND_API.G_TRUE THEN
10280: QP_PREQ_GRP.engine_debug('same line '
10281: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10282: || l_total_price_tbl(x_line_index_tbl.COUNT)
10283: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10284: ||' adjamt '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10304: x_pricing_sts_txt_tbl(x_line_index_tbl.COUNT) :=
10305: '';
10306: END IF;
10307: IF l_debug = FND_API.G_TRUE THEN
10308: QP_PREQ_GRP.engine_debug('next line ');
10309: END IF;
10310: x_line_index_tbl(x_line_index_tbl.COUNT + 1) :=
10311: l_line_index_tbl(l_line_index_tbl.COUNT);
10312: l_total_qty_tbl(x_line_index_tbl.COUNT) :=
10311: l_line_index_tbl(l_line_index_tbl.COUNT);
10312: l_total_qty_tbl(x_line_index_tbl.COUNT) :=
10313: I.ordered_quantity;
10314: IF l_debug = FND_API.G_TRUE THEN
10315: QP_PREQ_GRP.engine_debug('price info: line index '
10316: || x_line_index_tbl(x_line_index_tbl.COUNT)
10317: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT)
10318: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10319: ||' adjamt '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10325: IF x_line_index_tbl.COUNT > 0
10326: --for the last line
10327: THEN
10328: IF l_debug = FND_API.G_TRUE THEN
10329: QP_PREQ_GRP.engine_debug('price info: line index ');
10330: END IF;
10331: IF l_break_satisfied = G_NO
10332: THEN
10333: x_pricing_sts_code_tbl(x_line_index_tbl.COUNT) :=
10343: x_list_price_tbl(x_line_index_tbl.COUNT) :=
10344: l_total_price_tbl(x_line_index_tbl.COUNT) /
10345: l_total_qty_tbl(x_line_index_tbl.COUNT);
10346: IF l_debug = FND_API.G_TRUE THEN
10347: QP_PREQ_GRP.engine_debug('price info: line index '
10348: || x_line_index_tbl(x_line_index_tbl.COUNT)
10349: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT) ||' '
10350: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10351: || l_total_price_tbl(x_line_index_tbl.COUNT)
10357:
10358: IF l_line_quantity_tbl.COUNT > 0
10359: THEN
10360: IF l_debug = FND_API.G_TRUE THEN
10361: QP_PREQ_GRP.engine_debug('process_price_break5: count '
10362: || l_line_quantity_tbl.COUNT ||' first '
10363: || l_line_quantity_tbl.FIRST ||' last '
10364: || l_line_quantity_tbl.LAST);
10365: END IF;
10371: WHERE line_detail_index = l_line_dtl_index_tbl(i);
10372: END IF;
10373:
10374: IF l_debug = FND_API.G_TRUE THEN
10375: QP_PREQ_GRP.engine_debug('process_price_break5');
10376:
10377: END IF;
10378: IF x_line_index_tbl.COUNT > 0
10379: THEN
10376:
10377: END IF;
10378: IF x_line_index_tbl.COUNT > 0
10379: THEN
10380: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10381: THEN
10382: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10383: LOOP
10384: IF l_debug = FND_API.G_TRUE THEN
10381: THEN
10382: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10383: LOOP
10384: IF l_debug = FND_API.G_TRUE THEN
10385: QP_PREQ_GRP.engine_debug('line details '|| x_line_index_tbl(i)
10386: ||' price '|| x_list_price_tbl(i) ||' sts '
10387: || x_pricing_sts_code_tbl(i));
10388: END IF;
10389: END LOOP;
10386: ||' price '|| x_list_price_tbl(i) ||' sts '
10387: || x_pricing_sts_code_tbl(i));
10388: END IF;
10389: END LOOP;
10390: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
10391: IF l_debug = FND_API.G_TRUE THEN
10392: QP_PREQ_GRP.engine_debug('update PBH ');
10393: END IF;
10394: FORALL i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10388: END IF;
10389: END LOOP;
10390: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
10391: IF l_debug = FND_API.G_TRUE THEN
10392: QP_PREQ_GRP.engine_debug('update PBH ');
10393: END IF;
10394: FORALL i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10395: UPDATE qp_npreq_ldets_tmp
10396: SET line_quantity = l_total_qty_tbl(i)
10410: (G_PRICE_LIST_HEADER, G_AGR_LIST_HEADER)
10411: AND adjustment_amount IS NULL;
10412:
10413: IF l_debug = FND_API.G_TRUE THEN
10414: QP_PREQ_GRP.engine_debug('End process_price_break');
10415: END IF;
10416: EXCEPTION
10417: WHEN OTHERS THEN
10418: x_return_status := FND_API.G_RET_STS_ERROR;
10418: x_return_status := FND_API.G_RET_STS_ERROR;
10419: x_return_status_text := 'QP_PREQ_PUB.Process_Price_Break Exception: '
10420: || SQLERRM;
10421: IF l_debug = FND_API.G_TRUE THEN
10422: QP_PREQ_GRP.engine_debug('Exception process_price_break '|| SQLERRM);
10423: END IF;
10424: END PROCESS_PRICE_BREAK;
10425:
10426: PROCEDURE Update_Service_Lines(x_return_status OUT NOCOPY VARCHAR2,
10439: AND rltd.related_line_index IS NOT NULL
10440: AND rltd.relationship_type_code = G_SERVICE_LINE
10441: AND line.line_index = rltd.line_index;
10442:
10443: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10444: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10445: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10446: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10447: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10440: AND rltd.relationship_type_code = G_SERVICE_LINE
10441: AND line.line_index = rltd.line_index;
10442:
10443: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10444: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10445: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10446: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10447: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10448:
10441: AND line.line_index = rltd.line_index;
10442:
10443: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10444: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10445: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10446: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10447: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10448:
10449: BEGIN
10442:
10443: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10444: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10445: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10446: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10447: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10448:
10449: BEGIN
10450:
10443: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10444: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10445: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10446: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10447: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10448:
10449: BEGIN
10450:
10451: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10447: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10448:
10449: BEGIN
10450:
10451: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10452: IF l_debug = FND_API.G_TRUE THEN
10453: QP_PREQ_GRP.engine_debug('Begin Update_Service_Lines');
10454:
10455: END IF;
10449: BEGIN
10450:
10451: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10452: IF l_debug = FND_API.G_TRUE THEN
10453: QP_PREQ_GRP.engine_debug('Begin Update_Service_Lines');
10454:
10455: END IF;
10456: OPEN l_Service_Cur;
10457: FETCH l_Service_Cur
10478: WHERE line_index = l_parent_line_tbl(i);
10479: END IF;
10480:
10481: IF l_debug = FND_API.G_TRUE THEN
10482: QP_PREQ_GRP.engine_debug('End Update_Service_Lines');
10483: END IF;
10484: EXCEPTION
10485: WHEN OTHERS THEN
10486: x_return_status := FND_API.G_RET_STS_ERROR;
10486: x_return_status := FND_API.G_RET_STS_ERROR;
10487: x_return_status_text := 'QP_PREQ_PUB.Update_Service_Lines Exception: '
10488: || SQLERRM;
10489: IF l_debug = FND_API.G_TRUE THEN
10490: QP_PREQ_GRP.engine_debug('Exception Update_Service_Lines '|| SQLERRM);
10491: END IF;
10492: END Update_Service_Lines;
10493:
10494:
10520: , line.uom_quantity service_duration
10521: , line.processing_order
10522: , line.parent_price
10523: FROM qp_npreq_lines_tmp line, qp_npreq_ldets_tmp ldet
10524: WHERE line.usage_pricing_type = QP_PREQ_GRP.G_BILLING_TYPE
10525: AND ldet.line_index = line.line_index
10526: AND line.price_flag = G_CALCULATE_ONLY
10527: AND nvl(processing_order, 1) = p_processing_order
10528: AND ldet.applied_flag = G_YES
10534: ORDER BY line_ind;
10535:
10536:
10537:
10538: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10539: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10540: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10541: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10542: l_related_item_price NUMBER;
10535:
10536:
10537:
10538: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10539: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10540: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10541: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10542: l_related_item_price NUMBER;
10543: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10536:
10537:
10538: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10539: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10540: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10541: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10542: l_related_item_price NUMBER;
10543: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10544: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10537:
10538: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10539: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10540: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10541: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10542: l_related_item_price NUMBER;
10543: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10544: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10545: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10539: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10540: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10541: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10542: l_related_item_price NUMBER;
10543: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10544: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10545: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10546: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10547:
10540: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10541: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10542: l_related_item_price NUMBER;
10543: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10544: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10545: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10546: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10547:
10548: USAGE_EXCEPTION EXCEPTION;
10541: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10542: l_related_item_price NUMBER;
10543: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10544: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10545: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10546: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10547:
10548: USAGE_EXCEPTION EXCEPTION;
10549: BEGIN
10542: l_related_item_price NUMBER;
10543: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10544: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10545: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10546: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10547:
10548: USAGE_EXCEPTION EXCEPTION;
10549: BEGIN
10550:
10547:
10548: USAGE_EXCEPTION EXCEPTION;
10549: BEGIN
10550:
10551: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10552: IF l_debug = FND_API.G_TRUE THEN
10553: QP_PREQ_GRP.engine_debug('Begin Usage Pricing');
10554:
10555:
10549: BEGIN
10550:
10551: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10552: IF l_debug = FND_API.G_TRUE THEN
10553: QP_PREQ_GRP.engine_debug('Begin Usage Pricing');
10554:
10555:
10556: END IF;
10557: Process_Price_Break(p_rounding_flag => p_rounding_flag,
10568: END IF;
10569: FOR cl IN l_get_price_cur(1)
10570: LOOP
10571: IF l_debug = FND_API.G_TRUE THEN
10572: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP');
10573: QP_PREQ_GRP.engine_debug('PRL line type '
10574: || cl.created_from_list_line_type ||' operator '
10575: || cl.OPERAND_CALCULATION_CODE ||' operand '
10576: || cl.OPERAND_VALUE ||' svc duration '
10569: FOR cl IN l_get_price_cur(1)
10570: LOOP
10571: IF l_debug = FND_API.G_TRUE THEN
10572: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP');
10573: QP_PREQ_GRP.engine_debug('PRL line type '
10574: || cl.created_from_list_line_type ||' operator '
10575: || cl.OPERAND_CALCULATION_CODE ||' operand '
10576: || cl.OPERAND_VALUE ||' svc duration '
10577: || nvl(cl.service_duration, 1) ||' rounding fac '
10614: := '';
10615: END IF; --l_unit_price_tbl
10616:
10617: IF l_debug = FND_API.G_TRUE THEN
10618: QP_PREQ_GRP.engine_debug('price returned '
10619: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10620: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10621: ||' line index '|| l_line_index_tbl(l_line_index_tbl.COUNT)
10622: ||' unit price '|| l_unit_price_tbl(l_unit_price_tbl.COUNT)
10629:
10630: IF l_line_dtl_index_tbl.COUNT > 0
10631: THEN
10632: IF l_debug = FND_API.G_TRUE THEN
10633: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP1');
10634: END IF;
10635: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10636: UPDATE qp_npreq_ldets_tmp
10637: SET adjustment_amount = l_adj_amt_tbl(i)
10640:
10641: IF l_line_index_tbl.COUNT > 0
10642: THEN
10643: IF l_debug = FND_API.G_TRUE THEN
10644: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP1');
10645: END IF;
10646: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10647: UPDATE qp_npreq_lines_tmp
10648: SET unit_price = l_unit_price_tbl(i),
10683:
10684: FOR cl IN l_get_price_cur(2)
10685: LOOP
10686: IF l_debug = FND_API.G_TRUE THEN
10687: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10688: QP_PREQ_GRP.engine_debug('PRL line type '
10689: || cl.created_from_list_line_type ||' operator '
10690: || cl.OPERAND_CALCULATION_CODE ||' operand '
10691: || cl.OPERAND_VALUE ||' svc duration '
10684: FOR cl IN l_get_price_cur(2)
10685: LOOP
10686: IF l_debug = FND_API.G_TRUE THEN
10687: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10688: QP_PREQ_GRP.engine_debug('PRL line type '
10689: || cl.created_from_list_line_type ||' operator '
10690: || cl.OPERAND_CALCULATION_CODE ||' operand '
10691: || cl.OPERAND_VALUE ||' svc duration '
10692: || nvl(cl.service_duration, 1) ||' rounding fac '
10728: l_pricing_sts_txt_tbl(l_pricing_sts_txt_tbl.COUNT + 1)
10729: := '';
10730: END IF; --l_unit_price_tbl
10731: IF l_debug = FND_API.G_TRUE THEN
10732: QP_PREQ_GRP.engine_debug('price returned '
10733: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10734: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10735: ||' unit price '|| l_unit_price_tbl(l_unit_price_tbl.COUNT)
10736: ||' status '|| l_pricing_sts_code_tbl(l_line_index_tbl.COUNT)
10742:
10743: IF l_line_dtl_index_tbl.COUNT > 0
10744: THEN
10745: IF l_debug = FND_API.G_TRUE THEN
10746: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10747: END IF;
10748: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10749: UPDATE qp_npreq_ldets_tmp
10750: SET adjustment_amount = l_adj_amt_tbl(i)
10753:
10754: IF l_line_index_tbl.COUNT > 0
10755: THEN
10756: IF l_debug = FND_API.G_TRUE THEN
10757: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP2');
10758: END IF;
10759: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10760: UPDATE qp_npreq_lines_tmp
10761: SET unit_price = l_unit_price_tbl(i),
10766:
10767:
10768:
10769: IF l_debug = FND_API.G_TRUE THEN
10770: QP_PREQ_GRP.engine_debug('End Usage Pricing');
10771:
10772: END IF;
10773: EXCEPTION
10774: WHEN USAGE_EXCEPTION THEN
10772: END IF;
10773: EXCEPTION
10774: WHEN USAGE_EXCEPTION THEN
10775: IF l_debug = FND_API.G_TRUE THEN
10776: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10777: END IF;
10778: x_return_status := FND_API.G_RET_STS_ERROR;
10779: WHEN OTHERS THEN
10780: IF l_debug = FND_API.G_TRUE THEN
10777: END IF;
10778: x_return_status := FND_API.G_RET_STS_ERROR;
10779: WHEN OTHERS THEN
10780: IF l_debug = FND_API.G_TRUE THEN
10781: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10782: END IF;
10783: x_return_status := FND_API.G_RET_STS_ERROR;
10784: x_return_status_text := 'QP_PREQ_PUB.Usage_Pricing Exception: '
10785: || SQLERRM;
10791: SELECT G_YES
10792: FROM qp_npreq_lines_tmp line
10793: WHERE line.pricing_status_code IN
10794: (G_STATUS_UPDATED, G_STATUS_UNCHANGED, G_STATUS_GSA_VIOLATION)
10795: AND line.usage_pricing_type = QP_PREQ_GRP.G_BILLING_TYPE;
10796:
10797: x_call_usage_pricing VARCHAR2(1) := G_NO;
10798: BEGIN
10799: OPEN l_chk_usage_cur;
10802: RETURN x_call_usage_pricing;
10803: EXCEPTION
10804: WHEN OTHERS THEN
10805: IF l_debug = FND_API.G_TRUE THEN
10806: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Call_Usage_Pricing Exception: '|| SQLERRM);
10807: END IF;
10808: x_call_usage_pricing := NULL;
10809: END Call_Usage_Pricing;
10810:
10966: --or (buyline.price_flag = G_PHASE
10967: --and oldprg.pricing_phase_id = ev.pricing_phase_id
10968: --and ph.freeze_override_flag = G_YES));
10969:
10970: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10971: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10972: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10973: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10974: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10967: --and oldprg.pricing_phase_id = ev.pricing_phase_id
10968: --and ph.freeze_override_flag = G_YES));
10969:
10970: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10971: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10972: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10973: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10974: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10975: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
10968: --and ph.freeze_override_flag = G_YES));
10969:
10970: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10971: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10972: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10973: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10974: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10975: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
10976: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10969:
10970: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10971: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10972: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10973: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10974: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10975: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
10976: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10977:
10970: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10971: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10972: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10973: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10974: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10975: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
10976: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10977:
10978: -- bug 3639169 - changed from dynamic sql to static sql for performance
10971: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10972: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10973: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10974: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10975: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
10976: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10977:
10978: -- bug 3639169 - changed from dynamic sql to static sql for performance
10979: CURSOR l_prg_debug IS
10972: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
10973: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10974: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10975: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
10976: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10977:
10978: -- bug 3639169 - changed from dynamic sql to static sql for performance
10979: CURSOR l_prg_debug IS
10980: SELECT prg.line_id buy_line_id, prg.list_line_id prg_list_line_id,
11005: AND fgdis.price_adjustment_id = ass.rltd_price_adj_id;
11006:
11007: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Identify_freegood_lines ';
11008: BEGIN
11009: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11010: IF l_debug = FND_API.G_TRUE THEN
11011: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11012:
11013: END IF;
11007: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Identify_freegood_lines ';
11008: BEGIN
11009: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11010: IF l_debug = FND_API.G_TRUE THEN
11011: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11012:
11013: END IF;
11014: x_return_status := FND_API.G_RET_STS_SUCCESS;
11015: x_return_status_text := '';
11017: IF l_debug = FND_API.G_TRUE THEN
11018: -- bug 3639169 - changed from dynamic sql to static sql for performance
11019: FOR cl IN l_prg_debug
11020: LOOP
11021: QP_PREQ_GRP.engine_debug('Printing out all PRGs irrespective of phases: '
11022: ||' buylineid '|| cl.buy_line_id ||' prglistlineid '|| cl.prg_list_line_id
11023: ||' prgpriceadjid '|| cl.prg_price_adj_id ||' prgupdatedflag '|| cl.updated_flag
11024: ||' fglineid '|| cl.fg_line_id ||' fgdis_listlineid '|| cl.fgdis_list_line_id
11025: ||' fgpriceadjid '|| cl.fg_price_adj_id ||' prg_phase_id '|| cl.prg_phase_id);
11025: ||' fgpriceadjid '|| cl.fg_price_adj_id ||' prg_phase_id '|| cl.prg_phase_id);
11026: END LOOP;
11027: END IF; --l_debug
11028:
11029: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11030: AND l_debug = FND_API.G_TRUE
11031: THEN
11032: FOR cl IN
11033: (SELECT buyline.line_index
11061: AND oldfgdis.price_adjustment_id = oldrltd.rltd_price_adj_id
11062: AND oldfgdis.list_line_type_code = 'DIS')
11063: LOOP
11064: IF l_debug = FND_API.G_TRUE THEN
11065: qp_preq_grp.engine_debug('ident fg dtls: buylineindex '|| cl.line_index
11066: ||' prg-list_line_id '|| cl.list_line_id
11067: ||' fgline_id '|| cl.line_id ||' updated_flag '|| cl.updated_flag);
11068: END IF;
11069: END LOOP; --for cl
11088:
11089: IF l_fg_line_index_tbl.COUNT > 0
11090: THEN
11091: IF l_debug = FND_API.G_TRUE THEN
11092: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11093:
11094: END IF;
11095: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11096: THEN
11091: IF l_debug = FND_API.G_TRUE THEN
11092: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11093:
11094: END IF;
11095: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11096: THEN
11097: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11098: LOOP
11099: IF l_debug = FND_API.G_TRUE THEN
11096: THEN
11097: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11098: LOOP
11099: IF l_debug = FND_API.G_TRUE THEN
11100: QP_PREQ_GRP.engine_debug('process_sts: line_ind '
11101: || l_fg_line_index_tbl(i) ||' fglist_line_id '
11102: || l_fg_list_line_id_tbl(i) ||' fgdis operand '
11103: || l_fg_operand_tbl(i) ||' fgdis operator '
11104: || l_fg_operator_tbl(i) ||' prglist_line_id '
11120: WHERE line_index = l_fg_line_index_tbl(i);
11121:
11122: END IF; --l_fg_line_index_tbl.count
11123:
11124: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11125: THEN
11126: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11127: WHERE instr(process_status, G_FREEGOOD) > 0)
11128: LOOP
11126: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11127: WHERE instr(process_status, G_FREEGOOD) > 0)
11128: LOOP
11129: IF l_debug = FND_API.G_TRUE THEN
11130: QP_PREQ_GRP.engine_debug('Freegood line dtl: line_ind '
11131: || cl.line_index ||' process_sts '|| cl.process_status);
11132: END IF;
11133: END LOOP; --for cl
11134: END IF; --debug
11133: END LOOP; --for cl
11134: END IF; --debug
11135:
11136: IF l_debug = FND_API.G_TRUE THEN
11137: QP_PREQ_GRP.engine_debug('End Identify_freegood_lines');
11138: END IF;
11139: EXCEPTION
11140: WHEN OTHERS THEN
11141: x_return_status := FND_API.G_RET_STS_ERROR;
11140: WHEN OTHERS THEN
11141: x_return_status := FND_API.G_RET_STS_ERROR;
11142: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11143: IF l_debug = FND_API.G_TRUE THEN
11144: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11145: END IF;
11146: END Identify_freegood_lines;
11147:
11148: --procedure to mark the prg lines as deleted if
11161: AND rltd.relationship_type_code = G_GENERATED_LINE
11162: AND line.line_index = rltd.related_line_index
11163: AND line.process_status IN (G_NOT_VALID, G_STATUS_DELETED); --bug 3126969
11164:
11165: l_mark_prg_delete_index QP_PREQ_GRP.number_type;
11166: l_mark_fgdis_delete_index QP_PREQ_GRP.number_type;
11167: l_prg_list_line_id NUMBER;
11168:
11169: l_debug VARCHAR2(3);
11162: AND line.line_index = rltd.related_line_index
11163: AND line.process_status IN (G_NOT_VALID, G_STATUS_DELETED); --bug 3126969
11164:
11165: l_mark_prg_delete_index QP_PREQ_GRP.number_type;
11166: l_mark_fgdis_delete_index QP_PREQ_GRP.number_type;
11167: l_prg_list_line_id NUMBER;
11168:
11169: l_debug VARCHAR2(3);
11170: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11168:
11169: l_debug VARCHAR2(3);
11170: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11171: BEGIN
11172: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11173: IF l_debug = FND_API.G_TRUE THEN
11174: QP_PREQ_GRP.engine_debug('Begin Update_prg_pricing_status');
11175: END IF;
11176: OPEN l_mark_prg_delete_cur;
11170: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11171: BEGIN
11172: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11173: IF l_debug = FND_API.G_TRUE THEN
11174: QP_PREQ_GRP.engine_debug('Begin Update_prg_pricing_status');
11175: END IF;
11176: OPEN l_mark_prg_delete_cur;
11177: l_mark_prg_delete_index.DELETE;
11178: l_mark_fgdis_delete_index.DELETE;
11187: BEGIN
11188: SELECT created_from_list_line_id INTO l_prg_list_line_id
11189: FROM qp_npreq_ldets_tmp
11190: WHERE line_detail_index = l_mark_prg_delete_index(i);
11191: QP_PREQ_GRP.engine_debug('Mark delete prg '|| l_mark_prg_delete_index(i)
11192: ||' list_line_id '|| l_prg_list_line_id);
11193: EXCEPTION
11194: WHEN OTHERS THEN
11195: QP_PREQ_GRP.engine_debug('Mark delete prg list_line_id -1');
11191: QP_PREQ_GRP.engine_debug('Mark delete prg '|| l_mark_prg_delete_index(i)
11192: ||' list_line_id '|| l_prg_list_line_id);
11193: EXCEPTION
11194: WHEN OTHERS THEN
11195: QP_PREQ_GRP.engine_debug('Mark delete prg list_line_id -1');
11196: END;
11197: END LOOP;
11198: END IF; --l_debug
11199: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = 'N' THEN
11211: BEGIN
11212: SELECT created_from_list_line_id INTO l_prg_list_line_id
11213: FROM qp_npreq_ldets_tmp
11214: WHERE line_detail_index = l_mark_fgdis_delete_index(i);
11215: QP_PREQ_GRP.engine_debug('Mark delete fgdis '|| l_mark_fgdis_delete_index
11216: (i)
11217: ||' list_line_id '|| l_prg_list_line_id);
11218: EXCEPTION
11219: WHEN OTHERS THEN
11216: (i)
11217: ||' list_line_id '|| l_prg_list_line_id);
11218: EXCEPTION
11219: WHEN OTHERS THEN
11220: QP_PREQ_GRP.engine_debug('Mark delete fgdis list_line_id -1');
11221: END;
11222: END LOOP;
11223: END IF; --l_debug
11224: FORALL i IN l_mark_fgdis_delete_index.FIRST..l_mark_fgdis_delete_index.LAST
11225: UPDATE qp_npreq_ldets_tmp SET pricing_status_code = G_STATUS_DELETED
11226: WHERE line_detail_index = l_mark_fgdis_delete_index(i);
11227: END IF; --l_mark_fgdis_delete_index.count
11228: IF l_debug = FND_API.G_TRUE THEN
11229: QP_PREQ_GRP.engine_debug('End Update_prg_pricing_status');
11230: END IF;
11231: x_return_status := FND_API.G_RET_STS_SUCCESS;
11232: EXCEPTION
11233: WHEN OTHERS THEN
11233: WHEN OTHERS THEN
11234: x_return_status := FND_API.G_RET_STS_ERROR;
11235: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11236: IF l_debug = FND_API.G_TRUE THEN
11237: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11238: END IF;
11239: END Update_prg_pricing_status;
11240:
11241: --This procedure processes the passed in freegood lines marked from the
11556: AND rltd.line_index = ldet.line_index
11557: AND rltd.line_detail_index = ldet.line_detail_index
11558: AND rltd.pricing_status_code = G_STATUS_NEW;
11559:
11560: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11561: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11562: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11563: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11564:
11557: AND rltd.line_detail_index = ldet.line_detail_index
11558: AND rltd.pricing_status_code = G_STATUS_NEW;
11559:
11560: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11561: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11562: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11563: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11564:
11565: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11558: AND rltd.pricing_status_code = G_STATUS_NEW;
11559:
11560: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11561: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11562: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11563: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11564:
11565: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11566:
11559:
11560: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11561: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11562: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11563: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11564:
11565: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11566:
11567: l_Process_PRG VARCHAR2(1) := G_NO;
11561: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11562: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11563: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11564:
11565: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11566:
11567: l_Process_PRG VARCHAR2(1) := G_NO;
11568: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Process_PRG ';
11569: l_oldfgdis_list_line_id VARCHAR2(2000);
11570: l_old_operand VARCHAR2(240);
11571:
11572: i PLS_INTEGER;
11573: BEGIN
11574: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11575: IF l_debug = FND_API.G_TRUE THEN
11576: QP_PREQ_GRP.engine_debug('Begin process_prg');
11577: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11578:
11572: i PLS_INTEGER;
11573: BEGIN
11574: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11575: IF l_debug = FND_API.G_TRUE THEN
11576: QP_PREQ_GRP.engine_debug('Begin process_prg');
11577: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11578:
11579: END IF;
11580: --initialize pl/sql tables
11573: BEGIN
11574: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11575: IF l_debug = FND_API.G_TRUE THEN
11576: QP_PREQ_GRP.engine_debug('Begin process_prg');
11577: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11578:
11579: END IF;
11580: --initialize pl/sql tables
11581: l_prg_line_ind_tbl.DELETE;
11600: AND ROWNUM = 1;
11601: EXCEPTION
11602: WHEN NO_DATA_FOUND THEN
11603: IF l_debug = FND_API.G_TRUE THEN
11604: QP_PREQ_GRP.engine_debug('No PRG: ');
11605: END IF;
11606: l_Process_PRG := G_NO;
11607: WHEN OTHERS THEN
11608: IF l_debug = FND_API.G_TRUE THEN
11605: END IF;
11606: l_Process_PRG := G_NO;
11607: WHEN OTHERS THEN
11608: IF l_debug = FND_API.G_TRUE THEN
11609: QP_PREQ_GRP.engine_debug('Error in PRG: '|| SQLERRM);
11610: END IF;
11611: --x_return_status := FND_API.G_RET_STS_ERROR;
11612: --x_return_status_text := l_routine||SQLERRM;
11613: RAISE PRG_Exception;
11613: RAISE PRG_Exception;
11614: END;
11615:
11616: IF l_debug = FND_API.G_TRUE THEN
11617: QP_PREQ_GRP.engine_debug('Value of process_PRG '|| l_Process_PRG);
11618:
11619:
11620: END IF;
11621: IF l_Process_PRG = G_NO
11628: AND instr(line.process_status, G_FREEGOOD) > 0
11629: AND ROWNUM = 1;
11630:
11631: IF l_debug = FND_API.G_TRUE THEN
11632: QP_PREQ_GRP.engine_debug('Value of process_PRG after fg '|| l_Process_PRG);
11633: END IF; --l_debug
11634:
11635: IF l_Process_PRG = G_NO THEN
11636: SELECT 'Y' INTO l_Process_PRG
11656: AND adj.pricing_status_code = G_STATUS_UNCHANGED
11657: AND adj.updated_flag = G_YES);
11658: END IF; --l_PROCESS_PRG
11659: IF l_debug = FND_API.G_TRUE THEN
11660: QP_PREQ_GRP.engine_debug('Value of process_PRG after over '|| l_Process_PRG);
11661: END IF; --Bug No - 4033618
11662: EXCEPTION
11663: WHEN NO_DATA_FOUND THEN
11664: l_Process_PRG := G_NO;
11662: EXCEPTION
11663: WHEN NO_DATA_FOUND THEN
11664: l_Process_PRG := G_NO;
11665: IF l_debug = FND_API.G_TRUE THEN
11666: QP_PREQ_GRP.engine_debug('No PRG in oe_price_adj');
11667: END IF;
11668: WHEN OTHERS THEN
11669: l_Process_PRG := G_NO;
11670: IF l_debug = FND_API.G_TRUE THEN
11667: END IF;
11668: WHEN OTHERS THEN
11669: l_Process_PRG := G_NO;
11670: IF l_debug = FND_API.G_TRUE THEN
11671: QP_PREQ_GRP.engine_debug('Exception in prg '|| SQLERRM);
11672: END IF;
11673: END;
11674: END IF; --l_Process_PRG
11675:
11673: END;
11674: END IF; --l_Process_PRG
11675:
11676: IF l_debug = FND_API.G_TRUE THEN
11677: QP_PREQ_GRP.engine_debug('Value of process_PRG after query '|| l_Process_PRG);
11678:
11679: END IF;
11680:
11681: IF l_debug = FND_API.G_TRUE THEN
11694: AND adj.header_id = line.line_id
11695: AND adj.line_id IS NULL
11696: AND adj.list_line_type_code = G_PROMO_GOODS_DISCOUNT)
11697: LOOP
11698: QP_PREQ_GRP.engine_debug('PRGs check whether update_flag: '
11699: ||'prg listlineid '|| cl.list_line_id ||' updatedflag '|| cl.updated_flag
11700: ||' buylineid '|| cl.line_id ||' prgphaseid '|| cl.pricing_phase_id);
11701: FOR fg IN
11702: (SELECT rltd.related_line_index, ldet.created_from_list_line_id
11707: AND ldet.created_from_list_line_id = cl.list_line_id
11708: AND rltd.line_index = ldet.line_index
11709: AND rltd.line_detail_index = ldet.line_detail_index)
11710: LOOP
11711: QP_PREQ_GRP.engine_debug('PRGs check whether engine_prg: '
11712: ||'engine prg listlineid '|| fg.created_from_list_line_id
11713: ||' fg line_index '|| fg.related_line_index);
11714: END LOOP; --fgline
11715: END LOOP; --cl
11732: --pricing_status_code needs to be set to G_NOT_VALID so that this does not get into OM's
11733: --update statement to update lines with UPDATE status
11734:
11735: IF l_debug = FND_API.G_TRUE THEN
11736: QP_PREQ_GRP.engine_debug('Updated PRGs No. of passed-in fg lines updated '
11737: || SQL%ROWCOUNT);
11738: END IF; --l_debug
11739:
11740: OPEN l_updated_prg_fg_cur;
11744: l_upd_engine_fg_index; --, l_upd_passedin_fg_index;
11745: CLOSE l_updated_prg_fg_cur;
11746:
11747: IF l_debug = FND_API.G_TRUE THEN
11748: -- QP_PREQ_GRP.engine_debug('Count. of passed-in fg lines '
11749: -- ||l_upd_passedin_fg_index.count);
11750: QP_PREQ_GRP.engine_debug('Count. of engine-created fg lines '
11751: || l_upd_engine_fg_index.COUNT);
11752: END IF;
11746:
11747: IF l_debug = FND_API.G_TRUE THEN
11748: -- QP_PREQ_GRP.engine_debug('Count. of passed-in fg lines '
11749: -- ||l_upd_passedin_fg_index.count);
11750: QP_PREQ_GRP.engine_debug('Count. of engine-created fg lines '
11751: || l_upd_engine_fg_index.COUNT);
11752: END IF;
11753:
11754:
11770:
11771: IF l_Process_PRG = G_YES
11772: THEN
11773: --only if there are prg based modifiers
11774: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11775: AND l_debug = FND_API.G_TRUE
11776: THEN
11777: FOR cl IN (SELECT newprg.line_index line_ind
11778: , newprg.created_from_list_line_id
11786: AND instr(oldfgline.process_status
11787: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11788: LOOP
11789: IF l_debug = FND_API.G_TRUE THEN
11790: QP_PREQ_GRP.engine_debug('prg fgline: ind '|| cl.line_ind
11791: ||' prg '|| cl.created_from_list_line_id);
11792: END IF;
11793: END LOOP; --for cl
11794: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
11790: QP_PREQ_GRP.engine_debug('prg fgline: ind '|| cl.line_ind
11791: ||' prg '|| cl.created_from_list_line_id);
11792: END IF;
11793: END LOOP; --for cl
11794: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
11795:
11796: --the following update will update the process_status on freegood lines
11797: --identified from the previous identify_freegood_lines procedure
11798: --to G_STATUS_DELETED if the pricing engine has not created matching
11812: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11813: AND instr(oldfgline.process_status, G_FREEGOOD) > 0;
11814:
11815: IF l_debug = FND_API.G_TRUE THEN
11816: QP_PREQ_GRP.engine_debug('updated delete prg lines rowcnt: '|| SQL%ROWCOUNT);
11817:
11818: END IF;
11819: FOR freegood IN l_compare_freegood_cur
11820: LOOP
11818: END IF;
11819: FOR freegood IN l_compare_freegood_cur
11820: LOOP
11821: IF l_debug = FND_API.G_TRUE THEN
11822: QP_PREQ_GRP.engine_debug('In compare_cur '
11823: ||' new_priced_qty '|| freegood.new_priced_quantity
11824: ||' old_priced_qty '|| freegood.old_priced_quantity
11825: ||' new_priced_uom '|| freegood.new_priced_uom_code
11826: ||' old_priced_uom '|| freegood.old_priced_uom_code
11855: instr(freegood.old_list_line_id, G_STATUS_UPDATED) + 7),
11856: G_PROMO_GOODS_DISCOUNT, '');
11857:
11858: IF l_debug = FND_API.G_TRUE THEN
11859: QP_PREQ_GRP.engine_debug(' The old_fg_list_line_id is '
11860: || l_oldfgdis_list_line_id
11861: ||' the old_operand is '|| l_old_operand);
11862: END IF; --l_debug
11863:
11898: nvl(freegood.newfgdis_list_line_id, 0))
11899: AND (nvl(l_old_operand, 0) = nvl(freegood.newfgdis_operand, 0))
11900: THEN
11901: IF l_debug = FND_API.G_TRUE THEN
11902: QP_PREQ_GRP.engine_debug('In PRG if data unchanged ');
11903: END IF;
11904: G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT + 1) :=
11905: freegood.old_line_index;
11906: --fix for bug 2931437 this may not get populated if calculation does
11918: G_prg_unch_line_ind_tbl(freegood.old_line_index) :=
11919: G_prg_unch_line_index_tbl.COUNT;
11920:
11921: IF l_debug = FND_API.G_TRUE THEN
11922: QP_PREQ_GRP.engine_debug('if data unchanged: oldfg_lineindex '
11923: || G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT) ||' selprice '
11924: || G_prg_unch_calc_price_tbl(G_prg_unch_line_index_tbl.COUNT));
11925: END IF; --l_debug
11926:
11936: l_prg_line_id_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_line_id;
11937: l_prg_price_flag_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_price_flag; -- Ravi
11938: ELSE --freegood cur
11939: IF l_debug = FND_API.G_TRUE THEN
11940: QP_PREQ_GRP.engine_debug('In PRG if data updated ');
11941: END IF;
11942: l_prg_line_ind_tbl(l_prg_line_ind_tbl.COUNT + 1) := freegood.old_line_index;
11943: l_prg_process_sts_tbl(l_prg_line_ind_tbl.COUNT) := G_NOT_VALID;
11944: l_prg_line_id_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_line_id;
11952:
11953: IF l_prg_line_ind_tbl.COUNT > 0
11954: THEN
11955: IF l_debug = FND_API.G_TRUE THEN
11956: QP_PREQ_GRP.engine_debug('prg details Here #1000');
11957: END IF; -- Bug No 4033618
11958: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11959: THEN
11960: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
11954: THEN
11955: IF l_debug = FND_API.G_TRUE THEN
11956: QP_PREQ_GRP.engine_debug('prg details Here #1000');
11957: END IF; -- Bug No 4033618
11958: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11959: THEN
11960: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
11961: LOOP
11962: IF l_debug = FND_API.G_TRUE THEN
11959: THEN
11960: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
11961: LOOP
11962: IF l_debug = FND_API.G_TRUE THEN
11963: QP_PREQ_GRP.engine_debug('prg details: line_index '
11964: || l_prg_line_ind_tbl(i) ||' process_status '
11965: || l_prg_process_sts_tbl(i) ||' line_id '|| l_prg_line_id_tbl(i)
11966: || 'price flag ' || l_prg_price_flag_tbl(i));
11967: END IF;
11965: || l_prg_process_sts_tbl(i) ||' line_id '|| l_prg_line_id_tbl(i)
11966: || 'price flag ' || l_prg_price_flag_tbl(i));
11967: END IF;
11968: END LOOP; --l_prg_line_ind_tbl
11969: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
11970:
11971: IF l_debug = FND_API.G_TRUE THEN
11972: QP_PREQ_GRP.engine_debug('passed in frg update '|| l_prg_line_ind_tbl.COUNT);
11973:
11968: END LOOP; --l_prg_line_ind_tbl
11969: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
11970:
11971: IF l_debug = FND_API.G_TRUE THEN
11972: QP_PREQ_GRP.engine_debug('passed in frg update '|| l_prg_line_ind_tbl.COUNT);
11973:
11974: END IF;
11975: FORALL i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
11976: UPDATE qp_npreq_lines_tmp line SET
11987: WHERE line.line_index = l_prg_line_ind_tbl(i);
11988: END IF; --l_prg_line_ind_tbl.COUNT
11989:
11990: IF l_debug = FND_API.G_TRUE THEN
11991: QP_PREQ_GRP.engine_debug('End process_prg');
11992: END IF;
11993: END IF; --l_process_prg
11994:
11995: --bug 2970368
12010: WHEN PRG_Exception THEN
12011: x_return_status := FND_API.G_RET_STS_ERROR;
12012: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12013: IF l_debug = FND_API.G_TRUE THEN
12014: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12015: END IF;
12016: WHEN OTHERS THEN
12017: x_return_status := FND_API.G_RET_STS_ERROR;
12018: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12016: WHEN OTHERS THEN
12017: x_return_status := FND_API.G_RET_STS_ERROR;
12018: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12019: IF l_debug = FND_API.G_TRUE THEN
12020: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12021: END IF;
12022: END Process_PRG;
12023:
12024: --This procedure compares the selling price of the old and new
12029: x_return_status_text OUT NOCOPY VARCHAR2) IS
12030: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_PRG_Process_status ';
12031:
12032: BEGIN
12033: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12034: IF l_debug = FND_API.G_TRUE THEN
12035: QP_PREQ_GRP.engine_debug('Begin Update_PRG_Process_status');
12036:
12037: END IF;
12031:
12032: BEGIN
12033: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12034: IF l_debug = FND_API.G_TRUE THEN
12035: QP_PREQ_GRP.engine_debug('Begin Update_PRG_Process_status');
12036:
12037: END IF;
12038: IF G_prg_unch_line_index_tbl.COUNT > 0
12039: THEN
12037: END IF;
12038: IF G_prg_unch_line_index_tbl.COUNT > 0
12039: THEN
12040: IF l_debug = FND_API.G_TRUE THEN
12041: QP_PREQ_GRP.engine_debug('unchanged prg update '
12042: || G_prg_unch_line_index_tbl.COUNT);
12043:
12044: END IF;
12045: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12041: QP_PREQ_GRP.engine_debug('unchanged prg update '
12042: || G_prg_unch_line_index_tbl.COUNT);
12043:
12044: END IF;
12045: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12046: THEN
12047: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12048: LOOP
12049: IF l_debug = FND_API.G_TRUE THEN
12046: THEN
12047: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12048: LOOP
12049: IF l_debug = FND_API.G_TRUE THEN
12050: QP_PREQ_GRP.engine_debug('Unchanged details unch line_index '
12051: || G_prg_unch_line_index_tbl(j) ||' new line_index '
12052: || G_prg_unch_new_index_tbl(j) ||' adj_unit_price '
12053: || G_prg_unch_calc_price_tbl(j));
12054: END IF;
12052: || G_prg_unch_new_index_tbl(j) ||' adj_unit_price '
12053: || G_prg_unch_calc_price_tbl(j));
12054: END IF;
12055: END LOOP; --G_prg_unch_line_index_tbl
12056: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12057:
12058: FORALL i IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12059: UPDATE qp_npreq_lines_tmp line SET line.process_status =
12060: --fix for bug 2831270
12093:
12094: x_return_status := FND_API.G_RET_STS_SUCCESS;
12095:
12096: IF l_debug = FND_API.G_TRUE THEN
12097: QP_PREQ_GRP.engine_debug('End Update_PRG_Process_status');
12098:
12099: END IF;
12100: EXCEPTION
12101: WHEN OTHERS THEN
12101: WHEN OTHERS THEN
12102: x_return_status := FND_API.G_RET_STS_ERROR;
12103: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12104: IF l_debug = FND_API.G_TRUE THEN
12105: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12106: END IF;
12107: END Update_PRG_Process_status;
12108:
12109: --This procedure will populate g_buyline_price_flag
12132: I PLS_INTEGER;
12133: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Populate_buy_line_price_flag';
12134: BEGIN
12135: IF l_debug = FND_API.G_TRUE THEN
12136: QP_PREQ_GRP.engine_debug('Begin Populate_buy_line_price_flag');
12137:
12138: END IF;
12139: --G_buyline_price_flag.delete;
12140: G_BUYLINE_INDEXES_FOR_LINE_ID.DELETE;
12144: FROM qp_npreq_rltd_lines_tmp WHERE pricing_status_code = G_STATUS_NEW
12145: AND relationship_type_code = G_GENERATED_LINE)
12146: LOOP
12147: IF l_debug = FND_API.G_TRUE THEN
12148: QP_PREQ_GRP.engine_debug('loop linedtl '|| c1.line_detail_index ||' rltddtl '
12149: || c1.related_line_detail_index ||' lineind '|| c1.line_index);
12150: END IF;
12151: FOR c2 IN (SELECT line_index, line_detail_index FROM qp_npreq_ldets_tmp
12152: WHERE line_detail_index = c1.line_detail_index
12154: AND created_from_list_line_type IN
12155: (G_OTHER_ITEM_DISCOUNT, G_PROMO_GOODS_DISCOUNT))
12156: LOOP
12157: IF l_debug = FND_API.G_TRUE THEN
12158: QP_PREQ_GRP.engine_debug('loop ldet linedtl '|| c2.line_detail_index);
12159: END IF;
12160: END LOOP; --c2
12161: END LOOP; --c1
12162: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12158: QP_PREQ_GRP.engine_debug('loop ldet linedtl '|| c2.line_detail_index);
12159: END IF;
12160: END LOOP; --c2
12161: END LOOP; --c1
12162: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12163:
12164: FOR buyline IN l_buyline_price_flag_cur
12165: LOOP
12166: IF l_debug = FND_API.G_TRUE THEN
12163:
12164: FOR buyline IN l_buyline_price_flag_cur
12165: LOOP
12166: IF l_debug = FND_API.G_TRUE THEN
12167: QP_PREQ_GRP.engine_debug('In buyline loop list_line_id '
12168: || buyline.created_from_list_line_id
12169: ||' w/PRG ldet '|| buyline.line_detail_index -- 3493716
12170: ||' price_flag '|| buyline.price_flag
12171: ||' get line_index '|| buyline.line_index);
12178: G_BUYLINE_INDEXES_FOR_LINE_ID(buyline.created_from_list_line_id) := ',' || buyline.line_index || ',';
12179: END IF;
12180: END LOOP;
12181: /*
12182: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12183: i := G_buyline_price_flag.FIRST;
12184: WHILE i IS NOT NULL
12185: LOOP
12186: IF l_debug = FND_API.G_TRUE THEN
12183: i := G_buyline_price_flag.FIRST;
12184: WHILE i IS NOT NULL
12185: LOOP
12186: IF l_debug = FND_API.G_TRUE THEN
12187: QP_PREQ_GRP.engine_debug('In g_buyline loop list_line_id '
12188: ||I||' price_flag '||G_buyline_price_flag(I));
12189: END IF;
12190: I := G_buyline_price_flag.NEXT(I);
12191: END LOOP;--while
12188: ||I||' price_flag '||G_buyline_price_flag(I));
12189: END IF;
12190: I := G_buyline_price_flag.NEXT(I);
12191: END LOOP;--while
12192: END IF;--QP_PREQ_GRP.G_DEBUG_ENGINE
12193:
12194: OPEN l_buyline_price_flag_cur;
12195: FETCH l_buyline_price_flag_cur BULK COLLECT INTO
12196: G_buyline_list_line_id, G_buyline_price_flag;
12213: and rltd.line_detail_index = freegood_dis.line_detail_index);
12214: */
12215:
12216: IF l_debug = FND_API.G_TRUE THEN
12217: QP_PREQ_GRP.engine_debug('End Populate_buy_line_price_flag');
12218: END IF;
12219: x_return_status := FND_API.G_RET_STS_SUCCESS;
12220: EXCEPTION
12221: WHEN OTHERS THEN
12221: WHEN OTHERS THEN
12222: x_return_status := FND_API.G_RET_STS_ERROR;
12223: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12224: IF l_debug = FND_API.G_TRUE THEN
12225: QP_PREQ_GRP.Engine_debug(x_return_status_text);
12226: END IF;
12227: END Populate_buy_line_price_flag;
12228:
12229: -- 3721860: Added a parameter p_line_index
12235: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Get_buy_line_price_flag';
12236: l_count NUMBER;
12237: BEGIN
12238: IF l_debug = FND_API.G_TRUE THEN
12239: QP_PREQ_GRP.engine_debug('Begin Get_buy_line_price_flag, p_list_line_id p_line_index: '|| p_list_line_id || ' ' || p_line_index);
12240:
12241: END IF;
12242: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12243: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12242: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12243: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12244: l_count := instr(G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id), ',' || p_line_index || ',');
12245: IF l_debug = FND_API.G_TRUE THEN
12246: QP_PREQ_GRP.engine_debug('G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id) ' || G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id));
12247: QP_PREQ_GRP.engine_debug('l_count ' || l_count);
12248: END IF;
12249: IF l_count > 0 THEN
12250: RETURN 'Y';
12243: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12244: l_count := instr(G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id), ',' || p_line_index || ',');
12245: IF l_debug = FND_API.G_TRUE THEN
12246: QP_PREQ_GRP.engine_debug('G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id) ' || G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id));
12247: QP_PREQ_GRP.engine_debug('l_count ' || l_count);
12248: END IF;
12249: IF l_count > 0 THEN
12250: RETURN 'Y';
12251: ELSE
12260:
12261: EXCEPTION
12262: WHEN OTHERS THEN
12263: IF l_debug = FND_API.G_TRUE THEN
12264: QP_PREQ_GRP.Engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12265: END IF;
12266: RETURN NULL;
12267: END Get_buy_line_price_flag;
12268:
12310:
12311: Coupon_Exception EXCEPTION;
12312:
12313: BEGIN
12314: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12315: FOR ldet IN l_get_list_lines_cur
12316: LOOP
12317: QP_COUPON_PVT.PROCESS_COUPON_ISSUE(
12318: p_line_detail_index => ldet.line_detail_index,
12328:
12329: EXCEPTION
12330: WHEN Coupon_Exception THEN
12331: IF l_debug = FND_API.G_TRUE THEN
12332: QP_PREQ_GRP.engine_debug('Exception in QP_PREQ_PUB.Process_coupon_issue '|| x_return_status_text);
12333: END IF;
12334: WHEN OTHERS THEN
12335: x_return_status := FND_API.G_RET_STS_ERROR;
12336: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12334: WHEN OTHERS THEN
12335: x_return_status := FND_API.G_RET_STS_ERROR;
12336: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12337: IF l_debug = FND_API.G_TRUE THEN
12338: QP_PREQ_GRP.engine_debug(x_return_status_text);
12339: END IF;
12340: END Process_coupon_issue;
12341:
12342: --This procedure will update the line_quantity on ldets
12376: AND lattr.context = G_PRIC_VOLUME_CONTEXT
12377: AND qpl.list_line_id = ldet.created_from_list_line_id
12378: AND qpl.automatic_flag = 'N' ; -- this procedure is needed only for manual modifiers since for automatic modifiers will be calculated in QPXGPREB
12379:
12380: l_recur_dtl_index_tbl QP_PREQ_GRP.number_type;
12381: l_recur_tot_benefit_qty_tbl QP_PREQ_GRP.number_type;
12382: l_recur_benefit_qty_tbl QP_PREQ_GRP.number_type; --Bug 2804053
12383: l_recur_benefit_qty NUMBER;
12384: l_recur_base_qty NUMBER;
12377: AND qpl.list_line_id = ldet.created_from_list_line_id
12378: AND qpl.automatic_flag = 'N' ; -- this procedure is needed only for manual modifiers since for automatic modifiers will be calculated in QPXGPREB
12379:
12380: l_recur_dtl_index_tbl QP_PREQ_GRP.number_type;
12381: l_recur_tot_benefit_qty_tbl QP_PREQ_GRP.number_type;
12382: l_recur_benefit_qty_tbl QP_PREQ_GRP.number_type; --Bug 2804053
12383: l_recur_benefit_qty NUMBER;
12384: l_recur_base_qty NUMBER;
12385: l_recur_qualifying_qty NUMBER;
12378: AND qpl.automatic_flag = 'N' ; -- this procedure is needed only for manual modifiers since for automatic modifiers will be calculated in QPXGPREB
12379:
12380: l_recur_dtl_index_tbl QP_PREQ_GRP.number_type;
12381: l_recur_tot_benefit_qty_tbl QP_PREQ_GRP.number_type;
12382: l_recur_benefit_qty_tbl QP_PREQ_GRP.number_type; --Bug 2804053
12383: l_recur_benefit_qty NUMBER;
12384: l_recur_base_qty NUMBER;
12385: l_recur_qualifying_qty NUMBER;
12386: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_recurring_quantity';
12385: l_recur_qualifying_qty NUMBER;
12386: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_recurring_quantity';
12387:
12388: BEGIN
12389: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12390: l_recur_dtl_index_tbl.DELETE;
12391: l_recur_tot_benefit_qty_tbl.DELETE;
12392:
12393: FOR recurring IN l_get_recurring_cur
12392:
12393: FOR recurring IN l_get_recurring_cur
12394: LOOP
12395: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12396: QP_PREQ_GRP.engine_debug ('------in l_get_recurring_cur loop------');
12397: END IF; -- END IF l_debug
12398:
12399: IF recurring.created_from_list_line_type IN (G_DISCOUNT, G_SURCHARGE,
12400: G_PROMO_GOODS_DISCOUNT, G_COUPON_ISSUE) THEN
12410: l_recur_benefit_qty := 1;
12411: END IF; --recurring.created_from_list_line_type
12412:
12413: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12414: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty);
12415: END IF;
12416:
12417: IF recurring.modifier_level_code IN (G_LINE_LEVEL, G_ORDER_LEVEL) THEN
12418: l_recur_qualifying_qty := recurring.line_quantity;
12442: recurring.benefit_qty;
12443: END IF;
12444:
12445: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12446: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12447: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12448: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12449: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12450: END IF; -- END IF l_debug
12443: END IF;
12444:
12445: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12446: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12447: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12448: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12449: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12450: END IF; -- END IF l_debug
12451:
12444:
12445: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12446: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12447: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12448: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12449: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12450: END IF; -- END IF l_debug
12451:
12452: END IF; --recurring.created_from_list_line_type
12445: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12446: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12447: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12448: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12449: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12450: END IF; -- END IF l_debug
12451:
12452: END IF; --recurring.created_from_list_line_type
12453: END LOOP; --recurring
12453: END LOOP; --recurring
12454:
12455: IF l_recur_dtl_index_tbl.COUNT > 0 THEN
12456: IF l_debug = FND_API.G_TRUE THEN
12457: QP_PREQ_GRP.engine_debug('Updating recurring qty '|| l_recur_dtl_index_tbl.COUNT);
12458: END IF;
12459: FORALL i IN l_recur_dtl_index_tbl.FIRST .. l_recur_dtl_index_tbl.LAST
12460: UPDATE qp_npreq_ldets_tmp recur SET operand_value = -- shu fix 2702384
12461: l_recur_tot_benefit_qty_tbl(i)
12466: WHEN OTHERS THEN
12467: x_return_status := FND_API.G_RET_STS_ERROR;
12468: x_return_status_text := l_routine ||' '|| SQLERRM;
12469: IF l_debug = FND_API.G_TRUE THEN
12470: QP_PREQ_GRP.engine_debug('Exception in '|| x_return_status_text);
12471: END IF;
12472: END Update_recurring_quantity;
12473:
12474: --added by yangli for Java Engine
12514: ORDER_UOM_SELLING_PRICE
12515: FROM QP_INT_LINES;
12516:
12517: /*
12518: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12519: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_INT_LDETS_N4,PRICING_STATUS_CODE,1
12520: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12521: */
12522: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12515: FROM QP_INT_LINES;
12516:
12517: /*
12518: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12519: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_INT_LDETS_N4,PRICING_STATUS_CODE,1
12520: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12521: */
12522: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12523: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12516:
12517: /*
12518: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12519: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_INT_LDETS_N4,PRICING_STATUS_CODE,1
12520: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12521: */
12522: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12523: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12524: a.LINE_DETAIL_INDEX,
12585:
12586: BEGIN
12587:
12588: IF l_debug = FND_API.G_TRUE THEN
12589: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12590: END IF;
12591:
12592: FOR l_line IN l_lines_cur LOOP
12593: IF l_debug = FND_API.G_TRUE THEN
12590: END IF;
12591:
12592: FOR l_line IN l_lines_cur LOOP
12593: IF l_debug = FND_API.G_TRUE THEN
12594: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12595: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12596: END IF;
12597:
12598: IF l_debug = FND_API.G_TRUE THEN
12591:
12592: FOR l_line IN l_lines_cur LOOP
12593: IF l_debug = FND_API.G_TRUE THEN
12594: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12595: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12596: END IF;
12597:
12598: IF l_debug = FND_API.G_TRUE THEN
12599: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12595: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12596: END IF;
12597:
12598: IF l_debug = FND_API.G_TRUE THEN
12599: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12600: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12596: END IF;
12597:
12598: IF l_debug = FND_API.G_TRUE THEN
12599: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12600: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12597:
12598: IF l_debug = FND_API.G_TRUE THEN
12599: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12600: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12598: IF l_debug = FND_API.G_TRUE THEN
12599: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12600: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12599: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12600: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12600: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12601: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12602: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12603: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12604: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12605: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12606: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12607: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12608: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12609: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12610: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12611: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12612: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12613: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12614: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12615: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12616: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12617: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12618: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12626: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12619: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12626: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12627: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12620: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12626: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12627: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12628: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12621: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12626: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12627: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12628: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12629: END IF;
12622: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12626: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12627: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12628: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12629: END IF;
12630:
12623: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12626: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12627: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12628: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12629: END IF;
12630:
12631: IF l_debug = FND_API.G_TRUE THEN
12624: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12625: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12626: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12627: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12628: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12629: END IF;
12630:
12631: IF l_debug = FND_API.G_TRUE THEN
12632: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12628: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12629: END IF;
12630:
12631: IF l_debug = FND_API.G_TRUE THEN
12632: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12633:
12634: END IF;
12635: --Populate Line detail
12636: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12635: --Populate Line detail
12636: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12637:
12638: IF l_debug = FND_API.G_TRUE THEN
12639: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12640: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12636: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12637:
12638: IF l_debug = FND_API.G_TRUE THEN
12639: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12640: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12637:
12638: IF l_debug = FND_API.G_TRUE THEN
12639: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12640: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12638: IF l_debug = FND_API.G_TRUE THEN
12639: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12640: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12639: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12640: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12640: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12641: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12642: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12643: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12644: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12645: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12646: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12647: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12648: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12649: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12650: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12651: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12652: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12653: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12654: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12655: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12656: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12657: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12658: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12659: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12660: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12661: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12662: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12670: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12663: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12670: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12671: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12664: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12670: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12671: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12672: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12665: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12670: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12671: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12672: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12673: END IF;
12666: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12670: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12671: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12672: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12673: END IF;
12674: --Pass throuh components
12667: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12670: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12671: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12672: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12673: END IF;
12674: --Pass throuh components
12675: IF l_debug = FND_API.G_TRUE THEN
12668: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12669: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12670: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12671: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12672: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12673: END IF;
12674: --Pass throuh components
12675: IF l_debug = FND_API.G_TRUE THEN
12676: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12672: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12673: END IF;
12674: --Pass throuh components
12675: IF l_debug = FND_API.G_TRUE THEN
12676: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12677: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12673: END IF;
12674: --Pass throuh components
12675: IF l_debug = FND_API.G_TRUE THEN
12676: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12677: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12674: --Pass throuh components
12675: IF l_debug = FND_API.G_TRUE THEN
12676: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12677: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12675: IF l_debug = FND_API.G_TRUE THEN
12676: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12677: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12676: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12677: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12677: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12678: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12679: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12680: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12681: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12682: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12683: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12684: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12685: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12686: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12694: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12687: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12694: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12695: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12688: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12694: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12695: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12696:
12689: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12694: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12695: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12696:
12697: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12690: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12694: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12695: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12696:
12697: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12698: END IF;
12691: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12692: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12694: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12695: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12696:
12697: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12698: END IF;
12699: END LOOP; --l_ldets_cur
12693: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12694: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12695: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12696:
12697: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12698: END IF;
12699: END LOOP; --l_ldets_cur
12700: END LOOP; --end l_lines_cur
12701: IF l_debug = FND_API.G_TRUE THEN
12698: END IF;
12699: END LOOP; --l_ldets_cur
12700: END LOOP; --end l_lines_cur
12701: IF l_debug = FND_API.G_TRUE THEN
12702: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12703:
12704: END IF;
12705: EXCEPTION
12706: WHEN OTHERS THEN
12704: END IF;
12705: EXCEPTION
12706: WHEN OTHERS THEN
12707: IF l_debug = FND_API.G_TRUE THEN
12708: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM);
12709: END IF;
12710: x_return_status := FND_API.G_RET_STS_ERROR;
12711: x_return_status_text := 'QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM;
12712: END Populate_Output_INT;
12754: ORDER_UOM_SELLING_PRICE
12755: FROM qp_npreq_lines_tmp;
12756:
12757: /*
12758: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12759: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,qp_npreq_ldets_tmp_N4,PRICING_STATUS_CODE,1
12760: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12761: */
12762: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12755: FROM qp_npreq_lines_tmp;
12756:
12757: /*
12758: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12759: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,qp_npreq_ldets_tmp_N4,PRICING_STATUS_CODE,1
12760: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12761: */
12762: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12763: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12756:
12757: /*
12758: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12759: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,qp_npreq_ldets_tmp_N4,PRICING_STATUS_CODE,1
12760: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12761: */
12762: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12763: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12764: a.LINE_DETAIL_INDEX,
12825:
12826: BEGIN
12827:
12828: IF l_debug = FND_API.G_TRUE THEN
12829: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12830: END IF;
12831:
12832: FOR l_line IN l_lines_cur LOOP
12833: IF l_debug = FND_API.G_TRUE THEN
12830: END IF;
12831:
12832: FOR l_line IN l_lines_cur LOOP
12833: IF l_debug = FND_API.G_TRUE THEN
12834: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12835: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12836: END IF;
12837:
12838: IF l_debug = FND_API.G_TRUE THEN
12831:
12832: FOR l_line IN l_lines_cur LOOP
12833: IF l_debug = FND_API.G_TRUE THEN
12834: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12835: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12836: END IF;
12837:
12838: IF l_debug = FND_API.G_TRUE THEN
12839: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12835: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12836: END IF;
12837:
12838: IF l_debug = FND_API.G_TRUE THEN
12839: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12840: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12836: END IF;
12837:
12838: IF l_debug = FND_API.G_TRUE THEN
12839: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12840: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12837:
12838: IF l_debug = FND_API.G_TRUE THEN
12839: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12840: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12838: IF l_debug = FND_API.G_TRUE THEN
12839: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12840: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12839: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12840: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12840: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12841: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12842: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12843: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12844: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12845: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12846: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12847: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12848: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12849: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12850: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12851: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12852: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12853: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12854: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12855: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12856: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12857: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12858: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12866: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12859: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12866: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12867: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12860: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12866: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12867: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12868: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12861: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12866: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12867: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12868: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12869: END IF;
12862: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12866: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12867: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12868: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12869: END IF;
12870:
12863: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12866: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12867: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12868: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12869: END IF;
12870:
12871: IF l_debug = FND_API.G_TRUE THEN
12864: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12865: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12866: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12867: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12868: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12869: END IF;
12870:
12871: IF l_debug = FND_API.G_TRUE THEN
12872: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12868: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12869: END IF;
12870:
12871: IF l_debug = FND_API.G_TRUE THEN
12872: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12873:
12874: END IF;
12875: --Populate Line detail
12876: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12875: --Populate Line detail
12876: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12877:
12878: IF l_debug = FND_API.G_TRUE THEN
12879: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12880: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12876: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12877:
12878: IF l_debug = FND_API.G_TRUE THEN
12879: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12880: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12877:
12878: IF l_debug = FND_API.G_TRUE THEN
12879: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12880: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12878: IF l_debug = FND_API.G_TRUE THEN
12879: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12880: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12879: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12880: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12880: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12881: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12882: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12883: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12884: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12885: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12886: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12887: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12888: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12889: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12890: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12891: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12892: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12893: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12894: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12895: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12896: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12897: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12898: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12899: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12900: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12901: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12902: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12910: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12903: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12910: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12911: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12904: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12910: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12911: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12912: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12905: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12910: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12911: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12912: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12913: END IF;
12906: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12910: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12911: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12912: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12913: END IF;
12914: --Pass throuh components
12907: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12910: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12911: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12912: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12913: END IF;
12914: --Pass throuh components
12915: IF l_debug = FND_API.G_TRUE THEN
12908: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12909: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12910: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12911: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12912: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12913: END IF;
12914: --Pass throuh components
12915: IF l_debug = FND_API.G_TRUE THEN
12916: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12912: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12913: END IF;
12914: --Pass throuh components
12915: IF l_debug = FND_API.G_TRUE THEN
12916: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12917: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12913: END IF;
12914: --Pass throuh components
12915: IF l_debug = FND_API.G_TRUE THEN
12916: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12917: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12914: --Pass throuh components
12915: IF l_debug = FND_API.G_TRUE THEN
12916: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12917: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12915: IF l_debug = FND_API.G_TRUE THEN
12916: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12917: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12916: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12917: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12917: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12918: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12919: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12920: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12921: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12922: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12923: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12924: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12925: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12926: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12934: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12927: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12934: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12935: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12928: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12934: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12935: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12936:
12929: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12934: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12935: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12936:
12937: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12930: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12934: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12935: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12936:
12937: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12938: END IF;
12931: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12932: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12934: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12935: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12936:
12937: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12938: END IF;
12939: END LOOP; --l_ldets_cur
12933: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12934: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12935: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12936:
12937: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12938: END IF;
12939: END LOOP; --l_ldets_cur
12940: END LOOP; --end l_lines_cur
12941: IF l_debug = FND_API.G_TRUE THEN
12938: END IF;
12939: END LOOP; --l_ldets_cur
12940: END LOOP; --end l_lines_cur
12941: IF l_debug = FND_API.G_TRUE THEN
12942: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12943:
12944: END IF;
12945: EXCEPTION
12946: WHEN OTHERS THEN
12944: END IF;
12945: EXCEPTION
12946: WHEN OTHERS THEN
12947: IF l_debug = FND_API.G_TRUE THEN
12948: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output: '|| SQLERRM);
12949: END IF;
12950: x_return_status := FND_API.G_RET_STS_ERROR;
12951: x_return_status_text := 'QP_PREQ_PUB.Populate_Output: '|| SQLERRM;
12952: END Populate_Output;
12954:
12955:
12956:
12957: PROCEDURE PRICE_REQUEST
12958: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
12959: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
12960: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12955:
12956:
12957: PROCEDURE PRICE_REQUEST
12958: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
12959: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
12960: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12956:
12957: PROCEDURE PRICE_REQUEST
12958: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
12959: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
12960: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12957: PROCEDURE PRICE_REQUEST
12958: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
12959: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
12960: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12958: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
12959: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
12960: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12959: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
12960: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12960: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12961: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12962: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12970: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12963: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12970: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12971: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12964: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12970: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12971: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12972: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12965: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12970: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12971: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12972: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12973: x_return_status OUT NOCOPY VARCHAR2,
12966: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12970: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12971: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12972: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12973: x_return_status OUT NOCOPY VARCHAR2,
12974: x_return_status_text OUT NOCOPY VARCHAR2
12967: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12970: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12971: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12972: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12973: x_return_status OUT NOCOPY VARCHAR2,
12974: x_return_status_text OUT NOCOPY VARCHAR2
12975: ) IS
12968: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
12969: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
12970: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
12971: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
12972: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
12973: x_return_status OUT NOCOPY VARCHAR2,
12974: x_return_status_text OUT NOCOPY VARCHAR2
12975: ) IS
12976:
12983: JAVA_ENGINE_PRICING_EXCEPTION EXCEPTION;
12984: --added by yangli for Java Engine projecct 3086881
12985: E_NO_LINES_TO_PRICE EXCEPTION; -- 4865787
12986:
12987: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
12988:
12989: l_routine VARCHAR2(50) := 'Routine: QP_PREQ_PUB.PRICE_REQUEST';
12990: l_output_file VARCHAR2(240);
12991:
13055: BEGIN
13056: qp_debug_util.tstart(x_Marker=>'ENGINE_CALL_QPXPPREB',x_Desc=>'QPXPPREB Price Request for Event : '||p_control_rec.PRICING_EVENT,x_PutLine=>true);
13057:
13058: --===============START: Pre-pricing process needed by JAVA and PL/SQL engine====
13059: -- Set the debug variable G_DEBUG_ENGINE in QP_PREQ_GRP
13060: QP_PREQ_GRP.Set_QP_Debug;
13061: G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13062:
13063: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
13056: qp_debug_util.tstart(x_Marker=>'ENGINE_CALL_QPXPPREB',x_Desc=>'QPXPPREB Price Request for Event : '||p_control_rec.PRICING_EVENT,x_PutLine=>true);
13057:
13058: --===============START: Pre-pricing process needed by JAVA and PL/SQL engine====
13059: -- Set the debug variable G_DEBUG_ENGINE in QP_PREQ_GRP
13060: QP_PREQ_GRP.Set_QP_Debug;
13061: G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13062:
13063: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
13064: l_pricing_start_time := dbms_utility.get_time;
13059: -- Set the debug variable G_DEBUG_ENGINE in QP_PREQ_GRP
13060: QP_PREQ_GRP.Set_QP_Debug;
13061: G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13062:
13063: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
13064: l_pricing_start_time := dbms_utility.get_time;
13065:
13066: /* 4865787: error out if there are no lines to be priced */
13067: IF nvl(p_control_rec.temp_table_insert_flag, G_YES) = G_NO
13103: AND v$statname.name = 'redo size';
13104: EXCEPTION
13105: WHEN OTHERS THEN
13106: IF l_debug = FND_API.G_TRUE THEN
13107: QP_PREQ_GRP.engine_debug('Error in looking up debug in PUB '|| SQLERRM);
13108: END IF; -- Bug No 4033618
13109: END;
13110: END IF;
13111:
13142: G_GET_FREIGHT_FLAG := nvl(l_control_rec.get_freight_flag, G_NO);
13143:
13144: -- for QP-PO integration
13145: IF l_debug = FND_API.G_TRUE THEN
13146: QP_PREQ_GRP.engine_debug('G_REQUEST_TYPE_CODE = ' || G_REQUEST_TYPE_CODE);
13147: END IF;
13148:
13149: IF G_REQUEST_TYPE_CODE IN ('PO', 'ICX') THEN
13150: IF G_LICENSED_FOR_PRODUCT IS NULL THEN
13151: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13152: END IF;
13153:
13154: IF l_debug = FND_API.G_TRUE THEN
13155: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13156: END IF;
13157:
13158: IF G_LICENSED_FOR_PRODUCT = 'PO' THEN
13159: NULL;
13171: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13172: END IF;
13173:
13174: IF l_debug = FND_API.G_TRUE THEN
13175: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13176: END IF;
13177:
13178: IF G_LICENSED_FOR_PRODUCT = 'AHL' THEN
13179: NULL;
13204: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
13205: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13206: --===========START: Globals Initialization specific only to PL/SQL Engine=======
13207: IF l_debug = FND_API.G_TRUE THEN
13208: QP_PREQ_GRP.ENGINE_DEBUG('01 Java Engine not Installed ----------');
13209: END IF;
13210:
13211: -- Changes made for bug 3169430 Customer Handleman as this customer has price lists only, no modifiers.
13212: OPEN modifier_exists;
13220:
13221: ----------------------------------------------------
13222: --setting debug level
13223: ----------------------------------------------------
13224: --QP_PREQ_GRP.G_DEBUG_ENGINE:= oe_debug_pub.G_DEBUG;
13225: ----------------------------------------------------
13226: --New QP profile to say whether to round adjustment_amt or selling/list_price
13227: --default to 'Y' if the profile or rounding_flag are null
13228: -- QP Profile QP_SELLING_PRICE_ROUNDING_OPTIONS
13243: --Change for 2635440 - pass 'Q' as default value for OC if request_type is 'ASO'
13244: ----------------------------------------------------
13245: G_ROUNDING_OPTIONS := FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS');
13246: IF (l_debug = FND_API.G_TRUE) THEN
13247: QP_PREQ_GRP.engine_debug('Rounding profile value '|| G_ROUNDING_OPTIONS);
13248: END IF;
13249:
13250: /*--ASO is not passing request_type_code on control_rec, it is passed
13251: --on the lines
13300: THEN
13301: G_ROUND_INDIVIDUAL_ADJ := G_POST_ROUND;
13302: END IF;
13303:
13304: -- The below code is replaced with QP_PREQ_GRP.Set_QP_Debug
13305:
13306: --getting debug profilE
13307: ----------------------------------------------------
13308: --G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13320: oe_debug_pub.Initialize;
13321: oe_debug_pub.debug_on;
13322: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13323: IF l_debug = FND_API.G_TRUE THEN
13324: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13325: END IF;
13326: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13327: ELSE
13328: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13322: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13323: IF l_debug = FND_API.G_TRUE THEN
13324: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13325: END IF;
13326: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13327: ELSE
13328: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13329: END IF;
13330: ELSE
13324: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13325: END IF;
13326: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13327: ELSE
13328: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13329: END IF;
13330: ELSE
13331: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13332: END IF;
13327: ELSE
13328: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13329: END IF;
13330: ELSE
13331: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13332: END IF;
13333:
13334: */
13335:
13350: */
13351:
13352: --GSA Check
13353: IF l_debug = FND_API.G_TRUE THEN
13354: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13355: END IF;
13356: G_GSA_INDICATOR := Check_GSA_Indicator;
13357: IF l_debug = FND_API.G_TRUE THEN
13358: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13354: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13355: END IF;
13356: G_GSA_INDICATOR := Check_GSA_Indicator;
13357: IF l_debug = FND_API.G_TRUE THEN
13358: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13359: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '|| G_GSA_ENABLED_FLAG);
13360:
13361: END IF;
13362: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13355: END IF;
13356: G_GSA_INDICATOR := Check_GSA_Indicator;
13357: IF l_debug = FND_API.G_TRUE THEN
13358: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13359: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '|| G_GSA_ENABLED_FLAG);
13360:
13361: END IF;
13362: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13363: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13363: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13364:
13365:
13366: IF l_debug = FND_API.G_TRUE THEN
13367: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13368: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13369: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13370:
13371: END IF;
13364:
13365:
13366: IF l_debug = FND_API.G_TRUE THEN
13367: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13368: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13369: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13370:
13371: END IF;
13372: --===========END: Globals Initialization specific only to PL/SQL Engine=======
13365:
13366: IF l_debug = FND_API.G_TRUE THEN
13367: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13368: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13369: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13370:
13371: END IF;
13372: --===========END: Globals Initialization specific only to PL/SQL Engine=======
13373: END IF; --java engine is not installed
13373: END IF; --java engine is not installed
13374:
13375: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13376: IF l_debug = FND_API.G_TRUE THEN
13377: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13378: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13374:
13375: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13376: IF l_debug = FND_API.G_TRUE THEN
13377: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13378: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13375: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13376: IF l_debug = FND_API.G_TRUE THEN
13377: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13378: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13383: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13376: IF l_debug = FND_API.G_TRUE THEN
13377: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13378: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13383: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13384: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13377: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13378: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13383: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13384: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13385: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13378: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13383: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13384: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13385: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13386: END IF;
13379: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13383: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13384: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13385: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13386: END IF;
13387: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13380: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13383: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13384: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13385: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13386: END IF;
13387: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13388:
13381: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13382: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13383: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13384: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13385: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13386: END IF;
13387: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13388:
13389: /*
13388:
13389: /*
13390: --GSA Check
13391: IF l_debug = FND_API.G_TRUE THEN
13392: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13393: END IF;
13394: G_GSA_INDICATOR := Check_GSA_Indicator;
13395: IF l_debug = FND_API.G_TRUE THEN
13396: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13392: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13393: END IF;
13394: G_GSA_INDICATOR := Check_GSA_Indicator;
13395: IF l_debug = FND_API.G_TRUE THEN
13396: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13397: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '||G_GSA_ENABLED_FLAG);
13398:
13399: END IF;
13400: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13393: END IF;
13394: G_GSA_INDICATOR := Check_GSA_Indicator;
13395: IF l_debug = FND_API.G_TRUE THEN
13396: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13397: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '||G_GSA_ENABLED_FLAG);
13398:
13399: END IF;
13400: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13401: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13401: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13402:
13403:
13404: IF l_debug = FND_API.G_TRUE THEN
13405: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13406: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13407: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13408:
13409: END IF;
13402:
13403:
13404: IF l_debug = FND_API.G_TRUE THEN
13405: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13406: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13407: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13408:
13409: END IF;
13410: */ --moved up into PL/SQL Engine specific path
13403:
13404: IF l_debug = FND_API.G_TRUE THEN
13405: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13406: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13407: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13408:
13409: END IF;
13410: */ --moved up into PL/SQL Engine specific path
13411:
13414: --to remove the commas and single quotes in the pricing_event in ctrl rec
13415: IF instr(l_control_rec.pricing_event, ',') > 0
13416: THEN
13417: IF l_debug = FND_API.G_TRUE THEN
13418: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13419: END IF;
13420: --Changes for bug 2258525: Introduced local vairable l_pricing_event
13421: --instead of changing the control_rec
13422: --this is to remove any blank spaces in the string
13430: --this is to make the cursor work for the last event
13431: l_pricing_event := l_pricing_event || ',';
13432: l_control_rec.pricing_event := l_pricing_event;
13433: IF l_debug = FND_API.G_TRUE THEN
13434: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13435: END IF;
13436: l_control_rec.GSA_DUP_CHECK_FLAG := G_NO;
13437: l_control_rec.temp_table_insert_flag :=
13438: nvl(p_control_rec.temp_table_insert_flag, G_YES);
13449: l_control_rec.rounding_flag := nvl(p_control_rec.rounding_flag, G_YES);
13450: END IF; --p_control_rec.rounding_flag
13451:
13452: -- Added for Bug 2847866
13453: QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG := nvl(l_control_rec.public_api_call_flag, 'N');
13454: --============END: l_control_rec needed by JAVA and PL/SQL Engine====
13455:
13456: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13457: --===========START: specific only to PL/SQL Engine=======
13455:
13456: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13457: --===========START: specific only to PL/SQL Engine=======
13458: IF l_debug = FND_API.G_TRUE THEN
13459: QP_PREQ_GRP.ENGINE_DEBUG('02 Java Engine not Installed ----------');
13460: END IF;
13461: -----------------------------------------------------------------
13462: --Need to set the global constants for the engine to see
13463: --if the calling application populates into the temp tables directly
13468: --removing this for bug 2830206 as calculate_flag can be 'Y', 'C' or 'N'.
13469: --l_control_rec.calculate_flag := G_SEARCH_ONLY;
13470:
13471: /*-- Added for Bug 2847866
13472: QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG:=nvl(l_control_rec.public_api_call_flag,'N');*/--moved above, needed by Java and PL/SQL Engine
13473:
13474: IF (G_NO_ADJ_PROCESSING = G_YES) AND (G_QP_INSTALL_STATUS = 'I') THEN -- Added for 3169430
13475: Identify_freegood_lines(l_control_rec.pricing_event
13476: , x_return_status, x_return_status_text);
13476: , x_return_status, x_return_status_text);
13477:
13478: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13479: IF l_debug = FND_API.G_TRUE THEN
13480: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '
13481: || x_return_status_text);
13482: END IF;
13483: RAISE PRICE_REQUEST_EXC;
13484: END IF; --x_return_status
13490:
13491: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13492:
13493: IF l_debug = FND_API.G_TRUE THEN
13494: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '|| x_return_status_text);
13495: END IF;
13496: RAISE PRICE_REQUEST_EXC;
13497: ELSIF X_RETURN_STATUS = 'BYPASS_PRICING'
13498: THEN
13505: --added by yangli for Java Engine PUB 3086881
13506: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13507: --=======START: Specific only to PL/SQL Engine==================
13508: IF l_debug = FND_API.G_TRUE THEN
13509: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine not Installed ----------');
13510: END IF;
13511: --added by yangli for Java Engine PUB 3086881
13512: IF l_control_rec.calculate_flag IN
13513: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_SEARCH_ONLY)
13509: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine not Installed ----------');
13510: END IF;
13511: --added by yangli for Java Engine PUB 3086881
13512: IF l_control_rec.calculate_flag IN
13513: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_SEARCH_ONLY)
13514: THEN
13515:
13516: --Performance bug fix 7309551
13517: BEGIN
13518: SELECT VALUE INTO l_old_dynamic_sampling_level
13519: FROM v$parameter
13520: WHERE name = 'optimizer_dynamic_sampling';
13521: IF l_debug = FND_API.G_TRUE THEN
13522: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13523: END IF;
13524: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13525: IF l_debug = FND_API.G_TRUE THEN
13526: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13522: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13523: END IF;
13524: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13525: IF l_debug = FND_API.G_TRUE THEN
13526: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13527: END If;
13528: EXCEPTION
13529: WHEN OTHERS THEN
13530: IF l_debug = FND_API.G_TRUE THEN
13527: END If;
13528: EXCEPTION
13529: WHEN OTHERS THEN
13530: IF l_debug = FND_API.G_TRUE THEN
13531: QP_PREQ_GRP.engine_debug('Error in looking up Dynamic sampling level '|| SQLERRM);
13532: QP_PREQ_GRP.engine_debug('Setting Dynamic Sampling level to 1');
13533: END IF;
13534: l_dynamic_sampling_level := 1;
13535: END;
13528: EXCEPTION
13529: WHEN OTHERS THEN
13530: IF l_debug = FND_API.G_TRUE THEN
13531: QP_PREQ_GRP.engine_debug('Error in looking up Dynamic sampling level '|| SQLERRM);
13532: QP_PREQ_GRP.engine_debug('Setting Dynamic Sampling level to 1');
13533: END IF;
13534: l_dynamic_sampling_level := 1;
13535: END;
13536:
13535: END;
13536:
13537: IF (l_dynamic_sampling_level IN (1) AND l_dynamic_sampling_level <> l_old_dynamic_sampling_level) THEN
13538: IF l_debug = FND_API.G_TRUE THEN
13539: QP_PREQ_GRP.ENGINE_DEBUG('Setting dynamic sampling level to '|| l_dynamic_sampling_level);
13540: END IF;
13541: BEGIN
13542: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13543: EXCEPTION
13542: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13543: EXCEPTION
13544: WHEN OTHERS THEN
13545: IF l_debug = FND_API.G_TRUE THEN
13546: QP_PREQ_GRP.engine_debug('Error in setting dynamic sampling level'|| SQLERRM);
13547: END IF;
13548: END;
13549: END IF;
13550: ----7309551
13549: END IF;
13550: ----7309551
13551:
13552: --Call pricing engine only if calculate flag is search_only or search and calculate
13553: QP_PREQ_GRP.PRICE_REQUEST
13554: (p_line_tbl => p_line_tbl,
13555: p_qual_tbl => p_qual_tbl,
13556: p_line_attr_tbl => p_line_attr_tbl,
13557: p_LINE_DETAIL_tbl => p_line_detail_tbl,
13575: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13576: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13577:
13578: IF l_debug = FND_API.G_TRUE THEN
13579: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13580: END IF;
13581: RAISE PRICE_REQUEST_EXC;
13582: END IF;
13583:
13580: END IF;
13581: RAISE PRICE_REQUEST_EXC;
13582: END IF;
13583:
13584: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13585: OPEN lcur1; LOOP
13586: FETCH lcur1 INTO lrec1;
13587: EXIT WHEN lcur1%NOTFOUND;
13588: IF l_debug = FND_API.G_TRUE THEN
13585: OPEN lcur1; LOOP
13586: FETCH lcur1 INTO lrec1;
13587: EXIT WHEN lcur1%NOTFOUND;
13588: IF l_debug = FND_API.G_TRUE THEN
13589: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
13590: ' list_line_id '|| lrec1.created_from_list_line_id ||
13591: ' line_detail_index '|| lrec1.line_detail_index ||
13592: ' pricess_sts '|| lrec1.process_status ||
13593: ' price_flag '|| lrec1.price_flag ||
13614: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13615: , FND_API.G_RET_STS_UNEXP_ERROR)
13616: THEN
13617: IF l_debug = FND_API.G_TRUE THEN
13618: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13619: || x_return_status_text);
13620: END IF;
13621: RAISE PRICE_REQUEST_EXC;
13622: END IF;
13624: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13625: , FND_API.G_RET_STS_UNEXP_ERROR)
13626: THEN
13627: IF l_debug = FND_API.G_TRUE THEN
13628: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13629: || x_return_status_text);
13630: END IF;
13631: RAISE PRICE_REQUEST_EXC;
13632: END IF;
13640: END IF; --x_return_status
13641: END IF;
13642:
13643: IF p_control_rec.calculate_flag IN
13644: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
13645: AND nvl(l_control_rec.check_cust_view_flag, G_NO) = G_NO
13646: --this needs to be changed for OC and others who do direct insert
13647: AND nvl(l_control_rec.temp_table_insert_flag, G_YES) = G_YES
13648: THEN
13655:
13656: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13657:
13658: IF l_debug = FND_API.G_TRUE THEN
13659: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Adjustments: '|| x_return_status_text);
13660: END IF;
13661: RAISE PRICE_REQUEST_EXC;
13662: END IF;
13663: END IF;
13663: END IF;
13664:
13665:
13666: IF p_control_rec.calculate_flag IN
13667: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
13668: AND nvl(l_control_rec.check_cust_view_flag, G_NO) = G_NO
13669: --this needs to be changed for OC and others who do direct insert
13670: AND nvl(l_control_rec.temp_table_insert_flag, G_YES) = G_YES
13671: THEN
13677:
13678: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13679:
13680: IF l_debug = FND_API.G_TRUE THEN
13681: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13682: END IF;
13683: RAISE PRICE_REQUEST_EXC;
13684: END IF;
13685:
13688: , x_return_status_text);
13689: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13690:
13691: IF l_debug = FND_API.G_TRUE THEN
13692: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Unit_Price: '|| x_return_status_text);
13693: END IF; -- end debug
13694: RAISE PRICE_REQUEST_EXC;
13695: END IF;
13696: -- end 2892848
13698: END IF;
13699:
13700:
13701: IF p_control_rec.calculate_flag IN
13702: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
13703: --and nvl(l_control_rec.check_cust_view_flag,G_NO) = G_YES
13704: --this needs to be changed for OC and others who do direct insert
13705: AND nvl(l_control_rec.temp_table_insert_flag, G_YES) = G_NO
13706: AND G_NO_ADJ_PROCESSING = G_YES -- Added for 3169430
13710: Populate_buy_line_price_flag(x_return_status, x_return_status_text);
13711:
13712: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13713: IF l_debug = FND_API.G_TRUE THEN
13714: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_buy_line_price_flag: '
13715: || x_return_status_text);
13716: END IF; --l_debug
13717: RAISE PRICE_REQUEST_EXC;
13718: END IF;
13720: Update_recurring_quantity(x_return_status, x_return_status_text);
13721:
13722: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13723: IF l_debug = FND_API.G_TRUE THEN
13724: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_recurring_quantity: '
13725: || x_return_status_text);
13726: END IF; --l_debug
13727: RAISE PRICE_REQUEST_EXC;
13728: END IF;
13732: l_control_rec.simulation_flag,
13733: x_return_status, x_return_status_text);
13734: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13735: IF l_debug = FND_API.G_TRUE THEN
13736: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Coupon_issue: '
13737: || x_return_status_text);
13738: END IF; --debug
13739: RAISE PRICE_REQUEST_EXC;
13740: END IF;
13757:
13758: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13759:
13760: IF l_debug = FND_API.G_TRUE THEN
13761: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13762: END IF;
13763: RAISE PRICE_REQUEST_EXC;
13764: END IF;
13765: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13765: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13766: Cleanup_rltd_lines(x_return_status, x_return_status_text);
13767: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13768: IF l_debug = FND_API.G_TRUE THEN
13769: QP_PREQ_GRP.ENGINE_DEBUG('Exception Cleanup_rltd_lines: '|| x_return_status_text);
13770: END IF;
13771: RAISE PRICE_REQUEST_EXC;
13772: END IF;
13773:
13773:
13774: Update_Adj_orderqty_cols(x_return_status, x_return_status_text);
13775: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13776: IF l_debug = FND_API.G_TRUE THEN
13777: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Adj_orderqty_cols: '
13778: || x_return_status_text);
13779: END IF; --debug
13780: RAISE PRICE_REQUEST_EXC;
13781: END IF;
13784: --lines are passed
13785: IF l_control_rec.full_pricing_call = G_NO
13786: THEN
13787: IF l_debug = FND_API.G_TRUE THEN
13788: QP_PREQ_GRP.engine_debug('Starting changed lines check');
13789: END IF;
13790: CHECK_ORDER_LINE_CHANGES(p_request_type_code =>
13791: G_REQUEST_TYPE_CODE,
13792: p_full_pricing_call =>
13794: x_return_status => x_return_status,
13795: x_return_status_text => x_return_status_text);
13796: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13797: IF l_debug = FND_API.G_TRUE THEN
13798: QP_PREQ_GRP.ENGINE_DEBUG('Exception CHECK_ORDER_LINE_CHANGES: '|| x_return_status_text);
13799: END IF;
13800: RAISE PRICE_REQUEST_EXC;
13801: END IF;
13802: END IF;
13803:
13804: -- Update_PRG_Process_status(x_return_status, x_return_status_text);
13805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13806: IF l_debug = FND_API.G_TRUE THEN
13807: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_PRG_Process_status: '
13808: || x_return_status_text);
13809: END IF; --debug
13810: RAISE PRICE_REQUEST_EXC;
13811: END IF;
13822: AND (applied_flag = G_YES OR updated_flag = G_YES)
13823: AND pricing_status_code = G_STATUS_UNCHANGED;
13824:
13825:
13826: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
13827: THEN
13828: Populate_Output(x_return_status, x_return_status);
13829:
13830: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
13829:
13830: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
13831: THEN
13832: IF l_debug = FND_API.G_TRUE THEN
13833: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
13834: END IF;
13835: RAISE PRICE_REQUEST_EXC;
13836: END IF; --X_RETURN_STATUS
13837: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
13833: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
13834: END IF;
13835: RAISE PRICE_REQUEST_EXC;
13836: END IF; --X_RETURN_STATUS
13837: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
13838:
13839: IF l_debug = FND_API.G_TRUE THEN
13840: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
13841:
13836: END IF; --X_RETURN_STATUS
13837: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
13838:
13839: IF l_debug = FND_API.G_TRUE THEN
13840: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
13841:
13842: END IF;
13843: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13844: --this is for debug for rltd lines
13839: IF l_debug = FND_API.G_TRUE THEN
13840: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
13841:
13842: END IF;
13843: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13844: --this is for debug for rltd lines
13845: FOR cl IN (SELECT line_index,
13846: related_line_index,
13847: line_detail_index,
13859: FROM qp_npreq_rltd_lines_tmp
13860: WHERE pricing_status_code = G_STATUS_NEW)
13861: LOOP
13862: IF l_debug = FND_API.G_TRUE THEN
13863: QP_PREQ_GRP.engine_debug('related records with status N '
13864: ||' line_dtl_index '|| cl.line_detail_index
13865: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
13866: ||' line_index '|| cl.line_index
13867: ||' rltd_line_index '|| cl.related_line_index
13875: ||' setval_to '|| cl.setup_value_to
13876: ||' qual_value '|| cl.qualifier_value);
13877: END IF;
13878: END LOOP; --for cl
13879: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
13880: END IF;
13881:
13882:
13883:
13880: END IF;
13881:
13882:
13883:
13884: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13885: OPEN lcur1; LOOP
13886: FETCH lcur1 INTO lrec1;
13887: EXIT WHEN lcur1%NOTFOUND;
13888: IF l_debug = FND_API.G_TRUE THEN
13885: OPEN lcur1; LOOP
13886: FETCH lcur1 INTO lrec1;
13887: EXIT WHEN lcur1%NOTFOUND;
13888: IF l_debug = FND_API.G_TRUE THEN
13889: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
13890: ' list_line_id '|| lrec1.created_from_list_line_id ||
13891: ' line_detail_index '|| lrec1.line_detail_index ||
13892: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code
13893: ||' process_code '|| lrec1.process_code);
13896: CLOSE lcur1;
13897: END IF;
13898: --Performance bug fix 7309551
13899: IF (l_dynamic_sampling_level IN (1) AND l_dynamic_sampling_level <> l_old_dynamic_sampling_level) THEN
13900: QP_PREQ_GRP.ENGINE_DEBUG('Setting dynamic sampling level back to '|| l_old_dynamic_sampling_level);
13901: BEGIN
13902: Execute immediate 'alter session set optimizer_dynamic_sampling = '||l_old_dynamic_sampling_level;
13903: EXCEPTION
13904: WHEN OTHERS THEN
13902: Execute immediate 'alter session set optimizer_dynamic_sampling = '||l_old_dynamic_sampling_level;
13903: EXCEPTION
13904: WHEN OTHERS THEN
13905: IF l_debug = FND_API.G_TRUE THEN
13906: QP_PREQ_GRP.engine_debug('Error in resetting the dynamic sampling level to old value'|| SQLERRM);
13907: END IF;
13908: END;
13909: END IF;
13910: --End 7309551
13913: --=======END: Specific only to PL/SQL Engine==================
13914: --added by yangli for Java Engine PUB 3086881
13915: ELSE -- java engine is installed
13916: --=======START: Specific only to JAVA Engine==================
13917: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13918: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
13919: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
13920: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
13921: END IF;
13914: --added by yangli for Java Engine PUB 3086881
13915: ELSE -- java engine is installed
13916: --=======START: Specific only to JAVA Engine==================
13917: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13918: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
13919: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
13920: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
13921: END IF;
13922:
13915: ELSE -- java engine is installed
13916: --=======START: Specific only to JAVA Engine==================
13917: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13918: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
13919: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
13920: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
13921: END IF;
13922:
13923: --for OM call, need Pre-Insert Logic to fetch/format data from OE tables into
13916: --=======START: Specific only to JAVA Engine==================
13917: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13918: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
13919: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
13920: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
13921: END IF;
13922:
13923: --for OM call, need Pre-Insert Logic to fetch/format data from OE tables into
13924: --Java Engine interface tables
13931: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = G_YES THEN
13932: --Preinsert Logic for OM call
13933: --to fetch out-of-phases modifiers and in-phase PRG modifiers
13934: --to fetch rltd information
13935: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13936: QP_PREQ_GRP.ENGINE_DEBUG('Before calling INT_TABLES_PREINSERT');
13937: END IF;
13938: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
13939: p_event_code => l_control_rec.pricing_event,
13932: --Preinsert Logic for OM call
13933: --to fetch out-of-phases modifiers and in-phase PRG modifiers
13934: --to fetch rltd information
13935: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13936: QP_PREQ_GRP.ENGINE_DEBUG('Before calling INT_TABLES_PREINSERT');
13937: END IF;
13938: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
13939: p_event_code => l_control_rec.pricing_event,
13940: x_return_status => l_return_status,
13938: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
13939: p_event_code => l_control_rec.pricing_event,
13940: x_return_status => l_return_status,
13941: x_return_status_text => l_status_Text);
13942: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13943: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
13944: END IF;
13945: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
13946: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
13939: p_event_code => l_control_rec.pricing_event,
13940: x_return_status => l_return_status,
13941: x_return_status_text => l_status_Text);
13942: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13943: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
13944: END IF;
13945: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
13946: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
13947: RAISE E_ROUTINE_ERRORS;
13951:
13952: IF l_control_rec.temp_table_insert_flag = G_NO THEN
13953: l_request_id := QP_Price_Request_Context.GET_REQUEST_ID;
13954: IF l_debug = FND_API.G_TRUE THEN
13955: QP_PREQ_GRP.engine_debug('Request Id:'|| l_request_id);
13956: END IF;
13957: QP_JAVA_ENGINE.request_price(request_id => l_request_id,
13958: p_control_rec => l_control_rec,
13959: x_return_status => l_return_status,
13961:
13962: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
13963: --l_status_text:= 'QP_JAVA_ENGINE.request_price failed for request id:'||l_request_id||l_status_text;
13964: IF l_debug = FND_API.G_TRUE THEN
13965: QP_PREQ_GRP.engine_debug(l_status_text);
13966: END IF; --Bug No 4033618
13967: x_return_status := l_return_status;
13968: x_return_status_text := l_status_text;
13969: RAISE JAVA_ENGINE_PRICING_EXCEPTION;
13969: RAISE JAVA_ENGINE_PRICING_EXCEPTION;
13970: END IF;
13971: ELSE
13972: IF l_debug = FND_API.G_TRUE THEN
13973: QP_PREQ_GRP.engine_debug('Before calling QP_PREQ_GRP.PRICE_REQUEST.....');
13974: END IF;
13975: QP_PREQ_GRP.PRICE_REQUEST
13976: (p_line_tbl => p_line_tbl,
13977: p_qual_tbl => p_qual_tbl,
13971: ELSE
13972: IF l_debug = FND_API.G_TRUE THEN
13973: QP_PREQ_GRP.engine_debug('Before calling QP_PREQ_GRP.PRICE_REQUEST.....');
13974: END IF;
13975: QP_PREQ_GRP.PRICE_REQUEST
13976: (p_line_tbl => p_line_tbl,
13977: p_qual_tbl => p_qual_tbl,
13978: p_line_attr_tbl => p_line_attr_tbl,
13979: p_LINE_DETAIL_tbl => p_line_detail_tbl,
13994: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13995: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13996:
13997: IF l_debug = FND_API.G_TRUE THEN
13998: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13999: END IF;
14000: RAISE PRICE_REQUEST_EXC;
14001: END IF;
14002: END IF; --TEMP_TABLE_INSERT_FLAG=Y
14010: -- from QP_CLEANUP_ADJUSTMENTS_PVT.Fetch_Adjustments
14011: --call cleanup of adj only for OM
14012:
14013: IF l_debug = FND_API.G_TRUE THEN
14014: QP_PREQ_GRP.engine_debug('deleting related lines');
14015: END IF;
14016: DELETE FROM qp_int_rltd_lines
14017: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14018: AND relationship_type_code = QP_PREQ_PUB.G_PBH_LINE
14017: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14018: AND relationship_type_code = QP_PREQ_PUB.G_PBH_LINE
14019: AND pricing_status_text = 'INSERTED FOR CALCULATION';
14020: IF l_debug = FND_API.G_TRUE THEN
14021: QP_PREQ_GRP.engine_debug('deleted related lines '|| SQL%ROWCOUNT);
14022: END IF;
14023:
14024: IF l_control_rec.calculate_flag IN
14025: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14021: QP_PREQ_GRP.engine_debug('deleted related lines '|| SQL%ROWCOUNT);
14022: END IF;
14023:
14024: IF l_control_rec.calculate_flag IN
14025: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14026: THEN
14027: l_cleanup_flag := QP_PREQ_PUB.G_YES;
14028: --added for bug 3399997 by yangli
14029: Update_Line_Status(x_return_status, x_return_status_text);
14033: END IF;
14034: --added for bug 3399997 by yangli
14035:
14036: IF l_debug = FND_API.G_TRUE THEN
14037: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments');
14038: END IF;
14039: QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments('ONTVIEW',
14040: G_REQUEST_TYPE_CODE,
14041: l_cleanup_flag,
14046: RAISE Pricing_Exception;
14047: END IF;
14048: --moved down per bug3238607
14049: /*IF l_debug = FND_API.G_TRUE THEN
14050: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14051: END IF;
14052:
14053: --populate the price adjustment id from sequence for rec with process_code = N
14054: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status,x_return_status_text);
14064: --to indicate populate_price_adj_id is needed
14065: IF G_REQUEST_TYPE_CODE = 'ONT' AND
14066: l_control_rec.simulation_flag = G_NO THEN
14067: IF l_control_rec.calculate_flag IN
14068: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14069: THEN
14070: IF l_debug = FND_API.G_TRUE THEN
14071: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14072: END IF;
14067: IF l_control_rec.calculate_flag IN
14068: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14069: THEN
14070: IF l_debug = FND_API.G_TRUE THEN
14071: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14072: END IF;
14073:
14074: --populate the price adjustment id from sequence for rec with process_code = N
14075: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status, x_return_status_text);
14080: END IF;
14081: END IF;
14082: END IF;
14083:
14084: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14085: THEN
14086: Populate_Output_INT(x_return_status, x_return_status);
14087:
14088: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14087:
14088: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14089: THEN
14090: IF l_debug = FND_API.G_TRUE THEN
14091: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14092: END IF;
14093: RAISE PRICE_REQUEST_EXC;
14094: END IF; --X_RETURN_STATUS
14095: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14091: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14092: END IF;
14093: RAISE PRICE_REQUEST_EXC;
14094: END IF; --X_RETURN_STATUS
14095: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14096: --=======END: Specific only to JAVA Engine==================
14097: END IF; -- java engine is installed
14098: --added by yangli for Java Engine PUB 3086881
14099:
14111: --POPULATE OUT PROCESS CODE IN PRICING_STATUS_CODE
14112: --ONLY UPDATE THE RECORDS INPUT BY USER WHCH WERE USED IN CALCULATION
14113: ------------------------------------------------------------
14114: IF l_debug = FND_API.G_TRUE THEN
14115: QP_PREQ_GRP.ENGINE_DEBUG('Java Engine not Installed ----------');
14116: END IF;
14117: --added by yangli for Java Engine PUB 3086881
14118:
14119: IF l_debug = FND_API.G_TRUE THEN
14116: END IF;
14117: --added by yangli for Java Engine PUB 3086881
14118:
14119: IF l_debug = FND_API.G_TRUE THEN
14120: QP_PREQ_GRP.ENGINE_DEBUG('Update Process code to Pricing Code ');
14121: END IF;
14122: /*
14123: indxno index used Ravi
14124: */
14132:
14133: --added by yangli for Java Engine PUB 3086881
14134: END IF; --Java Engine is not installed;
14135: --added by yangli for Java Engine PUB 3086881
14136: QP_PREQ_GRP.POPULATE_OUTPUT(
14137: x_line_tbl => x_line_tbl,
14138: x_line_qual_tbl => x_line_qual,
14139: x_line_attr_tbl => x_line_attr_tbl,
14140: x_line_detail_tbl => x_line_detail_tbl,
14143: x_related_lines_tbl => x_related_lines_tbl);
14144:
14145:
14146: IF l_debug = FND_API.G_TRUE THEN
14147: QP_PREQ_GRP.ENGINE_DEBUG('Line Detail Count : ' || x_line_detail_tbl.COUNT);
14148:
14149: END IF;
14150: --*******************************************************************
14151: --DEBUG
14149: END IF;
14150: --*******************************************************************
14151: --DEBUG
14152:
14153: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14154: j := x_line_tbl.FIRST;
14155: WHILE j IS NOT NULL
14156: LOOP
14157: IF l_debug = FND_API.G_TRUE THEN
14154: j := x_line_tbl.FIRST;
14155: WHILE j IS NOT NULL
14156: LOOP
14157: IF l_debug = FND_API.G_TRUE THEN
14158: QP_PREQ_GRP.ENGINE_DEBUG('PRICE LINE : '||
14159: x_line_tbl(j).line_index ||
14160: ' list price '|| x_line_tbl(j).unit_price ||
14161: ' adj price '|| x_line_tbl(j).adjusted_unit_price ||
14162: ' up adj price '|| x_line_tbl(j).updated_adjusted_unit_price ||
14161: ' adj price '|| x_line_tbl(j).adjusted_unit_price ||
14162: ' up adj price '|| x_line_tbl(j).updated_adjusted_unit_price ||
14163: ' process code '|| x_line_tbl(j).processed_code);
14164:
14165: QP_PREQ_GRP.ENGINE_DEBUG('---------------------------------------------------');
14166: END IF;
14167: i := x_line_detail_tbl.FIRST;
14168: WHILE i IS NOT NULL
14169: LOOP
14168: WHILE i IS NOT NULL
14169: LOOP
14170: IF x_line_detail_tbl(i).line_index = x_line_tbl(j).line_index THEN
14171: IF l_debug = FND_API.G_TRUE THEN
14172: QP_PREQ_GRP.ENGINE_DEBUG('PRICE ADJUSTMENTS: '
14173: ||' mod_id '|| x_line_detail_tbl(i).list_line_id
14174: ||' dtl_index '|| x_line_detail_tbl(i).line_detail_index
14175: ||' adj amount '|| x_line_detail_tbl(i).adjustment_amount
14176: ||' op '|| x_line_detail_tbl(i).operand_calculation_code
14183: END IF;
14184: i := x_line_detail_tbl.NEXT(i);
14185: END LOOP;
14186: IF l_debug = FND_API.G_TRUE THEN
14187: QP_PREQ_GRP.ENGINE_DEBUG('---------------------------------------------------');
14188: END IF;
14189: j := x_line_tbl.NEXT(j);
14190: END LOOP;
14191:
14190: END LOOP;
14191:
14192: --fix for bug 2515762 automatic overrideable break debug for rltd info
14193: IF l_debug = FND_API.G_TRUE THEN
14194: QP_PREQ_GRP.ENGINE_DEBUG('------------Rltd Info----------------');
14195: QP_PREQ_GRP.ENGINE_DEBUG('Rltd Info count '|| x_related_lines_tbl.COUNT);
14196: END IF;
14197: j := x_related_lines_tbl.FIRST;
14198: WHILE j IS NOT NULL
14191:
14192: --fix for bug 2515762 automatic overrideable break debug for rltd info
14193: IF l_debug = FND_API.G_TRUE THEN
14194: QP_PREQ_GRP.ENGINE_DEBUG('------------Rltd Info----------------');
14195: QP_PREQ_GRP.ENGINE_DEBUG('Rltd Info count '|| x_related_lines_tbl.COUNT);
14196: END IF;
14197: j := x_related_lines_tbl.FIRST;
14198: WHILE j IS NOT NULL
14199: LOOP
14197: j := x_related_lines_tbl.FIRST;
14198: WHILE j IS NOT NULL
14199: LOOP
14200: IF l_debug = FND_API.G_TRUE THEN
14201: QP_PREQ_GRP.ENGINE_DEBUG('line_index '
14202: || x_related_lines_tbl(j).line_index ||' related_line_index '
14203: || x_related_lines_tbl(j).related_line_index ||' dtl_index '
14204: || x_related_lines_tbl(j).line_detail_index ||' rltd_dtl_index '
14205: || x_related_lines_tbl(j).related_line_detail_index ||' relation '
14207: END IF;
14208: j := x_related_lines_tbl.NEXT(j);
14209: END LOOP;
14210:
14211: END IF; --IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14212: --*******************************************************************
14213: END IF; --temp_table_insert_flag = G_YES and check_cust_view_flag = G_NO
14214:
14215:
14248: AND v$statname.name = 'redo size';
14249: EXCEPTION
14250: WHEN OTHERS THEN
14251: IF l_debug = FND_API.G_TRUE THEN
14252: QP_PREQ_GRP.engine_debug('Error in looking up redo end in PUB '|| SQLERRM);
14253: END IF;
14254: END;
14255: END IF;
14256:
14257: l_time_difference := (l_pricing_end_time - l_pricing_start_time) / 100 ;
14258: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
14259:
14260: IF l_debug = FND_API.G_TRUE THEN
14261: QP_PREQ_GRP.engine_debug('Total time taken in PUB Pkg: '|| l_time_difference);
14262: QP_PREQ_GRP.engine_debug('redo log in PUB: '|| l_redo_difference);
14263:
14264: END IF;
14265:
14258: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
14259:
14260: IF l_debug = FND_API.G_TRUE THEN
14261: QP_PREQ_GRP.engine_debug('Total time taken in PUB Pkg: '|| l_time_difference);
14262: QP_PREQ_GRP.engine_debug('redo log in PUB: '|| l_redo_difference);
14263:
14264: END IF;
14265:
14266: --Changes for bug2961617
14284: EXCEPTION
14285:
14286: WHEN OTHERS THEN
14287: IF l_debug = FND_API.G_TRUE THEN
14288: QP_PREQ_GRP.engine_debug('Failed to get time statistics in QP_PREQ_PUB');
14289: END IF;
14290: END;
14291: END IF;
14292: IF l_debug = FND_API.G_TRUE THEN
14289: END IF;
14290: END;
14291: END IF;
14292: IF l_debug = FND_API.G_TRUE THEN
14293: QP_PREQ_GRP.ENGINE_DEBUG('End Price Request');
14294:
14295: END IF;
14296: --============END: Post-pricing process needed by JAVA and PL/SQL Engine======
14297:
14301:
14302: EXCEPTION
14303: WHEN E_BYPASS_PRICING THEN
14304: IF l_debug = FND_API.G_TRUE THEN
14305: QP_PREQ_GRP.ENGINE_DEBUG('Bypassed Pricing Engine');
14306: END IF;
14307: x_return_status := FND_API.G_RET_STS_SUCCESS;
14308: --to write temp table data into debug tables
14309: IF (G_QP_DEBUG = G_YES) OR
14313: l_return_status_text
14314: );
14315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14316: IF l_debug = FND_API.G_TRUE THEN
14317: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14318: END IF;
14319: END IF;
14320: END IF;
14321: --added by yangli for Java Engine PUB 3086881
14321: --added by yangli for Java Engine PUB 3086881
14322: WHEN PRICING_EXCEPTION THEN
14323: x_return_status := FND_API.G_RET_STS_ERROR;
14324: IF l_debug = FND_API.G_TRUE THEN
14325: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14326: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14327: END IF;
14328: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14329: x_return_status := FND_API.G_RET_STS_ERROR;
14322: WHEN PRICING_EXCEPTION THEN
14323: x_return_status := FND_API.G_RET_STS_ERROR;
14324: IF l_debug = FND_API.G_TRUE THEN
14325: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14326: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14327: END IF;
14328: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14329: x_return_status := FND_API.G_RET_STS_ERROR;
14330: IF l_debug = FND_API.G_TRUE THEN
14327: END IF;
14328: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14329: x_return_status := FND_API.G_RET_STS_ERROR;
14330: IF l_debug = FND_API.G_TRUE THEN
14331: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14332: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14333: END IF;
14334: --added by yangli for Java Engine PUB 3086881
14335:
14328: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14329: x_return_status := FND_API.G_RET_STS_ERROR;
14330: IF l_debug = FND_API.G_TRUE THEN
14331: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14332: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14333: END IF;
14334: --added by yangli for Java Engine PUB 3086881
14335:
14336: WHEN PRICE_REQUEST_EXC THEN
14334: --added by yangli for Java Engine PUB 3086881
14335:
14336: WHEN PRICE_REQUEST_EXC THEN
14337: IF l_debug = FND_API.G_TRUE THEN
14338: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14339: END IF;
14340: NULL;
14341: x_return_status := FND_API.G_RET_STS_ERROR;
14342: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14348: l_return_status_text
14349: );
14350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14351: IF l_debug = FND_API.G_TRUE THEN
14352: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14353: END IF;
14354: END IF;
14355: END IF;
14356: WHEN E_DEBUG_ROUTINE_ERROR THEN
14354: END IF;
14355: END IF;
14356: WHEN E_DEBUG_ROUTINE_ERROR THEN
14357: IF l_debug = FND_API.G_TRUE THEN
14358: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14359: END IF;
14360: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14361: IF l_debug = FND_API.G_TRUE THEN
14362: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14358: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14359: END IF;
14360: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14361: IF l_debug = FND_API.G_TRUE THEN
14362: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14363: END IF;
14364: x_return_status := FND_API.G_RET_STS_ERROR;
14365: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14366: WHEN OTHERS THEN
14364: x_return_status := FND_API.G_RET_STS_ERROR;
14365: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14366: WHEN OTHERS THEN
14367: IF l_debug = FND_API.G_TRUE THEN
14368: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14369: END IF;
14370: x_return_status := FND_API.G_RET_STS_ERROR;
14371: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14372: --to write temp table data into debug tables
14377: l_return_status_text
14378: );
14379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14380: IF l_debug = FND_API.G_TRUE THEN
14381: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14382: END IF;
14383: END IF;
14384: END IF;
14385:
14537: END Raise_GSA_Error;
14538:
14539: --overloaded for applications who insert into temp tables directly
14540: PROCEDURE PRICE_REQUEST
14541: (p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
14542: x_return_status OUT NOCOPY VARCHAR2,
14543: x_return_status_text OUT NOCOPY VARCHAR2
14544: ) IS
14545:
14542: x_return_status OUT NOCOPY VARCHAR2,
14543: x_return_status_text OUT NOCOPY VARCHAR2
14544: ) IS
14545:
14546: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14547: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14548: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14543: x_return_status_text OUT NOCOPY VARCHAR2
14544: ) IS
14545:
14546: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14547: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14548: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14551: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14544: ) IS
14545:
14546: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14547: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14548: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14551: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14552: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14545:
14546: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14547: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14548: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14551: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14552: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14553: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14546: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14547: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14548: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14551: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14552: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14553: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14554: --l_return_status VARCHAR2(30);
14547: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14548: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14551: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14552: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14553: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14554: --l_return_status VARCHAR2(30);
14555: --l_return_status_text VARCHAR2(240);
14548: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14551: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14552: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14553: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14554: --l_return_status VARCHAR2(30);
14555: --l_return_status_text VARCHAR2(240);
14556:
14549: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14550: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14551: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14552: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14553: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14554: --l_return_status VARCHAR2(30);
14555: --l_return_status_text VARCHAR2(240);
14556:
14557: PRICE_REQUEST_EXC EXCEPTION;
14595:
14596: EXCEPTION
14597: WHEN PRICE_REQUEST_EXC THEN
14598: IF l_debug = FND_API.G_TRUE THEN
14599: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14600: END IF;
14601: NULL;
14602: -- x_return_status := FND_API.G_RET_STS_ERROR;
14603: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14602: -- x_return_status := FND_API.G_RET_STS_ERROR;
14603: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14604: WHEN OTHERS THEN
14605: IF l_debug = FND_API.G_TRUE THEN
14606: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14607: END IF;
14608: x_return_status := FND_API.G_RET_STS_ERROR;
14609: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14610:
14625: l_routine VARCHAR2(100) := 'Routine :QP_PREQ_PUB.get_price_for_line ';
14626: BEGIN
14627:
14628: IF l_debug = FND_API.G_TRUE THEN
14629: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14630: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14631: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14632: END IF;
14633:
14626: BEGIN
14627:
14628: IF l_debug = FND_API.G_TRUE THEN
14629: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14630: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14631: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14632: END IF;
14633:
14634: --added by yangli for java engine
14627:
14628: IF l_debug = FND_API.G_TRUE THEN
14629: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14630: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14631: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14632: END IF;
14633:
14634: --added by yangli for java engine
14635: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
14633:
14634: --added by yangli for java engine
14635: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
14636: IF l_debug = FND_API.G_TRUE THEN
14637: QP_PREQ_GRP.ENGINE_DEBUG('java engine is not running');
14638: END IF;
14639: IF p_line_index IS NOT NULL THEN
14640: SELECT line_unit_price,
14641: order_uom_selling_price,
14664: END IF;
14665: --added by yangli for java engine
14666: ELSE
14667: IF l_debug = FND_API.G_TRUE THEN
14668: QP_PREQ_GRP.ENGINE_DEBUG('java engine running');
14669: END IF;
14670: IF p_line_index IS NOT NULL THEN
14671: SELECT line_unit_price,
14672: order_uom_selling_price,
14695: END IF;
14696: END IF;
14697:
14698: IF l_debug = FND_API.G_TRUE THEN
14699: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14700: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14701: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14702: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14703: END IF;
14696: END IF;
14697:
14698: IF l_debug = FND_API.G_TRUE THEN
14699: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14700: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14701: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14702: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14703: END IF;
14704:
14697:
14698: IF l_debug = FND_API.G_TRUE THEN
14699: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14700: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14701: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14702: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14703: END IF;
14704:
14705: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14698: IF l_debug = FND_API.G_TRUE THEN
14699: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14700: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14701: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14702: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14703: END IF;
14704:
14705: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14706: x_return_status := FND_API.G_RET_STS_SUCCESS;
14701: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14702: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14703: END IF;
14704:
14705: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14706: x_return_status := FND_API.G_RET_STS_SUCCESS;
14707: ELSE
14708: x_return_status := FND_API.G_RET_STS_ERROR;
14709: END IF;
14711: EXCEPTION
14712:
14713: WHEN NO_DATA_FOUND THEN
14714: IF l_debug = FND_API.G_TRUE THEN
14715: QP_PREQ_GRP.ENGINE_DEBUG('no_data_found Exception in : ' || l_routine || ' ' || SQLERRM);
14716: END IF;
14717: x_return_status := FND_API.G_RET_STS_ERROR;
14718: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14719:
14718: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14719:
14720: WHEN OTHERS THEN
14721: IF l_debug = FND_API.G_TRUE THEN
14722: QP_PREQ_GRP.ENGINE_DEBUG('Others Exception in : ' || l_routine || ' ' || SQLERRM);
14723: END IF;
14724: x_return_status := FND_API.G_RET_STS_ERROR;
14725: x_pricing_status_text := 'Others Exception in : ' || l_routine || ' ' || SQLERRM;
14726: END get_price_for_line;