[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 AND bug#14102682
550: 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 AND bug#14102682
550: 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_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
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_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
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_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO 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_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_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_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_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_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1978: l_BENEFIT_QTY QP_PREQ_GRP.NUMBER_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1979: l_BENEFIT_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1980: l_SERVICE_DURATION QP_PREQ_GRP.NUMBER_TYPE; -- service project
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1981: l_SERVICE_PERIOD QP_PREQ_GRP.VARCHAR_TYPE; -- service project
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1982: l_LIST_LINE_NO QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1983: l_ACCRUAL_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1984: l_ACCRUAL_CONVERSION_RATE QP_PREQ_GRP.NUMBER_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1985: l_ESTIM_ACCRUAL_RATE QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1986: l_RECURRING_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1987: l_SELECTED_VOLUME_ATTR QP_PREQ_GRP.VARCHAR_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1988: l_ROUNDING_FACTOR QP_PREQ_GRP.PLS_INTEGER_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1989: l_HEADER_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1990: l_LINE_LIMIT_EXISTS QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1991: l_CHARGE_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
1992: l_CHARGE_SUBTYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
1993: l_CURRENCY_DETAIL_ID QP_PREQ_GRP.NUMBER_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1994: l_CURRENCY_HEADER_ID QP_PREQ_GRP.NUMBER_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1995: l_SELLING_ROUNDING_FACTOR QP_PREQ_GRP.NUMBER_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
1996: l_ORDER_CURRENCY QP_PREQ_GRP.VARCHAR_TYPE;
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
1997: l_PRICING_EFFECTIVE_DATE QP_PREQ_GRP.DATE_TYPE;
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
1998: l_BASE_CURRENCY_CODE QP_PREQ_GRP.VARCHAR_TYPE;
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
1999: l_LINE_QUANTITY QP_PREQ_GRP.NUMBER_TYPE;
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2000: l_UPDATED_FLAG QP_PREQ_GRP.VARCHAR_TYPE;
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2001: l_CALCULATION_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2002: l_CHANGE_REASON_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2003: l_CHANGE_REASON_TEXT QP_PREQ_GRP.VARCHAR_TYPE;
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2004: l_PRICE_ADJUSTMENT_ID QP_PREQ_GRP.NUMBER_TYPE; -- bug 3099847
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2012:
2005: l_ACCUM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2012:
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2006: l_ACCUM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2012:
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2007: l_ACCUM_FLAG QP_PREQ_GRP.VARCHAR_TYPE; -- accum range break
2008: l_BREAK_UOM_CODE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2012:
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2009: l_BREAK_UOM_CONTEXT QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2012:
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2010: l_BREAK_UOM_ATTRIBUTE QP_PREQ_GRP.VARCHAR_TYPE; /* Proration*/
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2012:
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2011: l_PROCESS_CODE QP_PREQ_GRP.VARCHAR_TYPE; -- 3215497
2012:
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2019: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2012:
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2019: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2020: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2013: l_LINE_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2019: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2020: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2021: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2014: l_LINE_DETAIL_INDEX1 QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2019: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2020: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2021: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2022:
2015: l_RELATIONSHIP_TYPE_CODE QP_PREQ_GRP.VARCHAR_TYPE;
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2019: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2020: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2021: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2022:
2023: l_debug VARCHAR2(3);
2016: l_RELATED_LINE_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2019: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2020: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2021: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2022:
2023: l_debug VARCHAR2(3);
2024: l_pbh_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2017: l_RELATED_LINE_DETAIL_INDEX QP_PREQ_GRP.PLS_INTEGER_TYPE; -- 3215497
2018: l_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2019: l_RLTD_LIST_LINE_ID QP_PREQ_GRP.NUMBER_TYPE;
2020: --l_pricing_status_code QP_PREQ_GRP.VARCHAR_TYPE;
2021: --l_pricing_status_text QP_PREQ_GRP.VARCHAR_TYPE;
2022:
2023: l_debug VARCHAR2(3);
2024: l_pbh_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2025: l_prg_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2025: l_prg_adj_exists VARCHAR2(1) := QP_PREQ_PUB.G_NO;
2026:
2027: BEGIN
2028: x_return_status := FND_API.G_RET_STS_SUCCESS;
2029: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2030:
2031: --per bug3238607, no need to check HVOP
2032: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2033: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2030:
2031: --per bug3238607, no need to check HVOP
2032: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2033: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2034: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2036: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2037: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2038: END IF;
2031: --per bug3238607, no need to check HVOP
2032: IF(QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = QP_PREQ_PUB.G_YES ) THEN
2033: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2034: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2036: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2037: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2038: END IF;
2039:
2033: --QP_UTIL_PUB.HVOP_PRICING_ON = QP_PREQ_PUB.G_NO) THEN
2034: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2035: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG=Y and ');
2036: --'QP_BULK_PREQ_GRP.G_HVOP_Pricing_ON=N');
2037: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_GET_FREIGHT_FLAG:' || QP_PREQ_PUB.G_GET_FREIGHT_FLAG);
2038: END IF;
2039:
2040: OPEN l_ldets_cur;
2041: LOOP
2102: l_BREAK_UOM_ATTRIBUTE.DELETE;
2103: l_PROCESS_CODE.DELETE; -- 3215497
2104:
2105: IF l_debug = FND_API.G_TRUE THEN
2106: QP_PREQ_GRP.engine_debug('fetching l_ldets_cur');
2107: END IF;
2108:
2109: FETCH l_ldets_cur
2110: BULK COLLECT INTO
2173: -- LIMIT nrows;
2174: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2175:
2176: IF l_debug = FND_API.G_TRUE THEN
2177: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2178: END IF;
2179:
2180: IF l_LINE_DETAIL_index.COUNT > 0
2181: AND l_debug = FND_API.G_TRUE
2181: AND l_debug = FND_API.G_TRUE
2182: THEN
2183: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2184: LOOP
2185: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2186: ' line_detail_type_code: '|| l_LINE_DETAIL_TYPE_CODE(i) ||
2187: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2188: ' list_price: ' || l_LIST_PRICE(i) ||
2189: ' line_index: '|| l_LINE_INDEX(i));
2187: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2188: ' list_price: ' || l_LIST_PRICE(i) ||
2189: ' line_index: '|| l_LINE_INDEX(i));
2190:
2191: QP_PREQ_GRP.engine_debug('created_from_list_header_id: '|| l_CREATED_FROM_LIST_HEADER_ID(i) ||
2192: ' created_from_list_line_id: '|| l_CREATED_FROM_LIST_LINE_ID(i) ||
2193: ' created_from_list_line_type: '|| l_CREATED_FROM_LIST_LINE_TYPE(i) ||
2194: ' created_from_list_type_code: '|| l_CREATED_FROM_LIST_TYPE_CODE(i) ||
2195: ' created_from_sql: '|| l_CREATED_FROM_SQL(i) ||
2196: ' pricing_group_sequence: ' || l_PRICING_GROUP_SEQUENCE(i) ||
2197: ' pricing_phase_id: '|| l_PRICING_PHASE_ID(i) ||
2198: ' oprand_calculation_code: ' || l_OPERAND_CALCULATION_CODE(i) ||
2199: ' operand_value: ' || l_OPERAND_VALUE(i));
2200: QP_PREQ_GRP.engine_debug(' substitution_type_code: ' || l_SUBSTITUTION_TYPE_CODE(i) ||
2201: ' substitution_value_from: ' || l_SUBSTITUTION_VALUE_FROM(i) ||
2202: ' substitution_value_to: ' || l_SUBSTITUTION_VALUE_TO(i) ||
2203: ' ask_for_flag: ' || l_ASK_FOR_FLAG(i) ||
2204: ' price_formula_id: '|| l_PRICE_FORMULA_ID(i) ||
2206: ' pricing_status_text: '|| l_PRICING_STATUS_TEXT(i) ||
2207: ' product_precedence: '|| l_PRODUCT_PRECEDENCE(i) ||
2208: ' incompatability_grp_code: ' || l_INCOMPATABLILITY_GRP_CODE(i));
2209:
2210: QP_PREQ_GRP.engine_debug(' processed_flag: '|| l_PROCESSED_FLAG(i) ||
2211: ' applied_flag: '|| l_APPLIED_FLAG(i) ||
2212: ' automatic_flag: '|| l_AUTOMATIC_FLAG(i) ||
2213: ' override_flag: '|| l_OVERRIDE_FLAG(i) ||
2214: ' primary_uom_flag: '|| l_PRIMARY_UOM_FLAG(i) ||
2218: ' BENEFIT_UOM_CODE: '|| l_BENEFIT_UOM_CODE(i) ||
2219: ' SERVICE_DURATION: '|| l_SERVICE_DURATION(i) || -- service project
2220: ' SERVICE_PERIOD: '|| l_SERVICE_PERIOD(i)); -- service project
2221:
2222: QP_PREQ_GRP.engine_debug(' LIST_LINE_NO: '|| l_LIST_LINE_NO(i) ||
2223: ' ACCRUAL_FLAG: '|| l_ACCRUAL_FLAG(i) ||
2224: ' ACCRUAL_CONVERSION_RATE: '|| l_ACCRUAL_CONVERSION_RATE(i) ||
2225: ' ESTIM_ACCRUAL_RATE: '|| l_ESTIM_ACCRUAL_RATE(i) ||
2226: ' RECURRING_FLAG: '|| l_RECURRING_FLAG(i) ||
2228: ' ROUNDING_FACTOR: '|| l_ROUNDING_FACTOR(i) ||
2229: ' HEADER_LIMIT_EXISTS: '|| l_HEADER_LIMIT_EXISTS(i) ||
2230: ' LINE_LIMIT_EXISTS: '|| l_LINE_LIMIT_EXISTS(i));
2231:
2232: QP_PREQ_GRP.engine_debug(' CHARGE_TYPE_CODE:'|| l_CHARGE_TYPE_CODE(i) ||
2233: ' CHARGE_SUBTYPE_CODE:'|| l_CHARGE_SUBTYPE_CODE(i) ||
2234: ' CURRENCY_DETAIL_ID:'|| l_CURRENCY_DETAIL_ID(i) ||
2235: ' CURRENCY_HEADER_ID:'|| l_CURRENCY_HEADER_ID(i) ||
2236: ' SELLING_ROUNDING_FACTOR:'|| l_SELLING_ROUNDING_FACTOR(i) ||
2238: ' PRICING_EFFECTIVE_DATE:'|| l_PRICING_EFFECTIVE_DATE(i) ||
2239: ' BASE_CURRENCY_CODE:'|| l_BASE_CURRENCY_CODE(i) ||
2240: ' LINE_QUANTITY:'|| l_LINE_QUANTITY(i));
2241:
2242: QP_PREQ_GRP.engine_debug(' UPDATED_FLAG:'|| l_UPDATED_FLAG(i) ||
2243: ' CALCULATION_CODE:'|| l_CALCULATION_CODE(i) ||
2244: ' CHANGE_REASON_CODE:'|| l_CHANGE_REASON_CODE(i) ||
2245: ' CHANGE_REASON_TEXT:'|| l_CHANGE_REASON_TEXT(i) ||
2246: ' PRICE_ADJUSTMENT_ID:'|| l_PRICE_ADJUSTMENT_ID(i) ||
2255: END IF; --l_line_detail_index.COUNT
2256:
2257: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2258: IF l_debug = FND_API.G_TRUE THEN
2259: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2260: END IF;
2261: QP_PREQ_GRP.INSERT_LDETS2
2262: (l_LINE_DETAIL_index,
2263: l_LINE_DETAIL_TYPE_CODE,
2257: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2258: IF l_debug = FND_API.G_TRUE THEN
2259: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2260: END IF;
2261: QP_PREQ_GRP.INSERT_LDETS2
2262: (l_LINE_DETAIL_index,
2263: l_LINE_DETAIL_TYPE_CODE,
2264: l_PRICE_BREAK_TYPE_CODE,
2265: l_LIST_PRICE,
2329: END LOOP;
2330: CLOSE l_ldets_cur;
2331:
2332: IF l_debug = FND_API.G_TRUE THEN
2333: QP_PREQ_GRP.engine_debug('close l_ldets_cur');
2334: END IF;
2335:
2336:
2337: IF l_debug = FND_API.G_TRUE THEN
2334: END IF;
2335:
2336:
2337: IF l_debug = FND_API.G_TRUE THEN
2338: QP_PREQ_GRP.engine_debug('Begin Insert rltd lines');
2339: END IF;
2340:
2341: OPEN l_pbh_adj_exists_cur;
2342: FETCH l_pbh_adj_exists_cur INTO l_pbh_adj_exists;
2346: FETCH l_prg_adj_exists_cur INTO l_prg_adj_exists;
2347: CLOSE l_prg_adj_exists_cur;
2348:
2349: IF l_debug = FND_API.G_TRUE THEN
2350: QP_PREQ_GRP.engine_debug('Check l_pbh_adj_exists '|| l_pbh_adj_exists);
2351: QP_PREQ_GRP.engine_debug('Check l_prg_adj_exists '|| l_prg_adj_exists);
2352: END IF;
2353:
2354: --IF l_pbh_adj_exists = QP_PREQ_PUB.G_YES
2347: CLOSE l_prg_adj_exists_cur;
2348:
2349: IF l_debug = FND_API.G_TRUE THEN
2350: QP_PREQ_GRP.engine_debug('Check l_pbh_adj_exists '|| l_pbh_adj_exists);
2351: QP_PREQ_GRP.engine_debug('Check l_prg_adj_exists '|| l_prg_adj_exists);
2352: END IF;
2353:
2354: --IF l_pbh_adj_exists = QP_PREQ_PUB.G_YES
2355: --THEN
2365: l_RLTD_LIST_LINE_ID.DELETE;
2366: l_pricing_status_text.DELETE;
2367:
2368: IF l_debug = FND_API.G_TRUE THEN
2369: QP_PREQ_GRP.engine_debug('fetching l_rltd_lines_cur');
2370: END IF;
2371:
2372: FETCH l_rltd_lines_cur
2373: BULK COLLECT INTO
2382: -- LIMIT nrows;
2383: EXIT WHEN l_LINE_index1.COUNT = 0;
2384:
2385: IF l_debug = FND_API.G_TRUE THEN
2386: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_index1.COUNT);
2387: END IF;
2388:
2389: IF l_LINE_index1.COUNT > 0
2390: AND l_debug = FND_API.G_TRUE
2390: AND l_debug = FND_API.G_TRUE
2391: THEN
2392: FOR i IN l_LINE_index1.FIRST..l_LINE_index1.LAST
2393: LOOP
2394: QP_PREQ_GRP.engine_debug('======line_index: '|| l_LINE_index1(i) ||
2395: ' line_detail_index: '|| l_LINE_DETAIL_index1(i) ||
2396: ' relationship_type_code: '|| l_RELATIONSHIP_TYPE_CODE(i) ||
2397: ' related_line_index: '|| l_RELATED_LINE_INDEX(i) ||
2398: ' related_line_detail_index: ' || l_RELATED_LINE_DETAIL_INDEX(i) ||
2402: END LOOP;
2403: END IF; --l_LINE_index1.COUNT
2404:
2405: IF l_debug = FND_API.G_TRUE THEN
2406: QP_PREQ_GRP.engine_debug('calling INSERT_RLTD_LDETS2');
2407: END IF;
2408: QP_PREQ_GRP.INSERT_RLTD_LINES2
2409: (l_LINE_INDEX1
2410: , l_LINE_DETAIL_INDEX1
2404:
2405: IF l_debug = FND_API.G_TRUE THEN
2406: QP_PREQ_GRP.engine_debug('calling INSERT_RLTD_LDETS2');
2407: END IF;
2408: QP_PREQ_GRP.INSERT_RLTD_LINES2
2409: (l_LINE_INDEX1
2410: , l_LINE_DETAIL_INDEX1
2411: , l_RELATIONSHIP_TYPE_CODE
2412: , l_RELATED_LINE_INDEX
2424: END LOOP;
2425: CLOSE l_rltd_lines_cur;
2426:
2427: IF l_debug = FND_API.G_TRUE THEN
2428: QP_PREQ_GRP.engine_debug('close l_rltd_lines_cur');
2429: END IF;
2430:
2431: IF l_prg_adj_exists = 'Y' THEN
2432: OPEN l_getline_dis_cur;
2494: l_BREAK_UOM_ATTRIBUTE.DELETE;
2495: l_PROCESS_CODE.DELETE; -- 3215497
2496:
2497: IF l_debug = FND_API.G_TRUE THEN
2498: QP_PREQ_GRP.engine_debug('fetching l_getline_dis_cur');
2499: END IF;
2500:
2501: FETCH l_getline_dis_cur
2502: BULK COLLECT INTO
2565: -- LIMIT nrows;
2566: EXIT WHEN l_LINE_DETAIL_index.COUNT = 0;
2567:
2568: IF l_debug = FND_API.G_TRUE THEN
2569: QP_PREQ_GRP.engine_debug('rows fetched:'|| l_line_detail_index.COUNT);
2570: END IF;
2571:
2572: IF l_LINE_DETAIL_index.COUNT > 0
2573: AND l_debug = FND_API.G_TRUE
2573: AND l_debug = FND_API.G_TRUE
2574: THEN
2575: FOR i IN l_LINE_DETAIL_index.FIRST..l_LINE_DETAIL_index.LAST
2576: LOOP
2577: QP_PREQ_GRP.engine_debug('=======line_detail_index: '|| l_LINE_DETAIL_index(i) ||
2578: ' line_detail_type_code: '|| l_LINE_DETAIL_TYPE_CODE(i) ||
2579: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2580: ' list_price: ' || l_LIST_PRICE(i) ||
2581: ' line_index: '|| l_LINE_INDEX(i));
2579: ' price_break_type_code: '|| l_PRICE_BREAK_TYPE_CODE(i) ||
2580: ' list_price: ' || l_LIST_PRICE(i) ||
2581: ' line_index: '|| l_LINE_INDEX(i));
2582:
2583: QP_PREQ_GRP.engine_debug('created_from_list_header_id: '|| l_CREATED_FROM_LIST_HEADER_ID(i) ||
2584: ' created_from_list_line_id: '|| l_CREATED_FROM_LIST_LINE_ID(i) ||
2585: ' created_from_list_line_type: '|| l_CREATED_FROM_LIST_LINE_TYPE(i) ||
2586: ' created_from_list_type_code: '|| l_CREATED_FROM_LIST_TYPE_CODE(i) ||
2587: ' created_from_sql: '|| l_CREATED_FROM_SQL(i) ||
2588: ' pricing_group_sequence: ' || l_PRICING_GROUP_SEQUENCE(i) ||
2589: ' pricing_phase_id: '|| l_PRICING_PHASE_ID(i) ||
2590: ' oprand_calculation_code: ' || l_OPERAND_CALCULATION_CODE(i) ||
2591: ' operand_value: ' || l_OPERAND_VALUE(i));
2592: QP_PREQ_GRP.engine_debug(' substitution_type_code: ' || l_SUBSTITUTION_TYPE_CODE(i) ||
2593: ' substitution_value_from: ' || l_SUBSTITUTION_VALUE_FROM(i) ||
2594: ' substitution_value_to: ' || l_SUBSTITUTION_VALUE_TO(i) ||
2595: ' ask_for_flag: ' || l_ASK_FOR_FLAG(i) ||
2596: ' price_formula_id: '|| l_PRICE_FORMULA_ID(i) ||
2598: ' pricing_status_text: '|| l_PRICING_STATUS_TEXT(i) ||
2599: ' product_precedence: '|| l_PRODUCT_PRECEDENCE(i) ||
2600: ' incompatability_grp_code: ' || l_INCOMPATABLILITY_GRP_CODE(i));
2601:
2602: QP_PREQ_GRP.engine_debug(' processed_flag: '|| l_PROCESSED_FLAG(i) ||
2603: ' applied_flag: '|| l_APPLIED_FLAG(i) ||
2604: ' automatic_flag: '|| l_AUTOMATIC_FLAG(i) ||
2605: ' override_flag: '|| l_OVERRIDE_FLAG(i) ||
2606: ' primary_uom_flag: '|| l_PRIMARY_UOM_FLAG(i) ||
2610: ' BENEFIT_UOM_CODE: '|| l_BENEFIT_UOM_CODE(i) ||
2611: ' SERVICE_DURATION: '|| l_SERVICE_DURATION(i) || -- service project
2612: ' SERVICE_PERIOD: '|| l_SERVICE_PERIOD(i)); -- service project
2613:
2614: QP_PREQ_GRP.engine_debug(' LIST_LINE_NO: '|| l_LIST_LINE_NO(i) ||
2615: ' ACCRUAL_FLAG: '|| l_ACCRUAL_FLAG(i) ||
2616: ' ACCRUAL_CONVERSION_RATE: '|| l_ACCRUAL_CONVERSION_RATE(i) ||
2617: ' ESTIM_ACCRUAL_RATE: '|| l_ESTIM_ACCRUAL_RATE(i) ||
2618: ' RECURRING_FLAG: '|| l_RECURRING_FLAG(i) ||
2620: ' ROUNDING_FACTOR: '|| l_ROUNDING_FACTOR(i) ||
2621: ' HEADER_LIMIT_EXISTS: '|| l_HEADER_LIMIT_EXISTS(i) ||
2622: ' LINE_LIMIT_EXISTS: '|| l_LINE_LIMIT_EXISTS(i));
2623:
2624: QP_PREQ_GRP.engine_debug(' CHARGE_TYPE_CODE:'|| l_CHARGE_TYPE_CODE(i) ||
2625: ' CHARGE_SUBTYPE_CODE:'|| l_CHARGE_SUBTYPE_CODE(i) ||
2626: ' CURRENCY_DETAIL_ID:'|| l_CURRENCY_DETAIL_ID(i) ||
2627: ' CURRENCY_HEADER_ID:'|| l_CURRENCY_HEADER_ID(i) ||
2628: ' SELLING_ROUNDING_FACTOR:'|| l_SELLING_ROUNDING_FACTOR(i) ||
2630: ' PRICING_EFFECTIVE_DATE:'|| l_PRICING_EFFECTIVE_DATE(i) ||
2631: ' BASE_CURRENCY_CODE:'|| l_BASE_CURRENCY_CODE(i) ||
2632: ' LINE_QUANTITY:'|| l_LINE_QUANTITY(i));
2633:
2634: QP_PREQ_GRP.engine_debug(' UPDATED_FLAG:'|| l_UPDATED_FLAG(i) ||
2635: ' CALCULATION_CODE:'|| l_CALCULATION_CODE(i) ||
2636: ' CHANGE_REASON_CODE:'|| l_CHANGE_REASON_CODE(i) ||
2637: ' CHANGE_REASON_TEXT:'|| l_CHANGE_REASON_TEXT(i) ||
2638: ' PRICE_ADJUSTMENT_ID:'|| l_PRICE_ADJUSTMENT_ID(i) ||
2647: END IF; --l_line_detail_index.COUNT
2648:
2649: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2650: IF l_debug = FND_API.G_TRUE THEN
2651: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2652: END IF;
2653: QP_PREQ_GRP.INSERT_LDETS2
2654: (l_LINE_DETAIL_index,
2655: l_LINE_DETAIL_TYPE_CODE,
2649: IF l_LINE_DETAIL_index.COUNT > 0 THEN
2650: IF l_debug = FND_API.G_TRUE THEN
2651: QP_PREQ_GRP.engine_debug('calling INSERT_LDETS2');
2652: END IF;
2653: QP_PREQ_GRP.INSERT_LDETS2
2654: (l_LINE_DETAIL_index,
2655: l_LINE_DETAIL_TYPE_CODE,
2656: l_PRICE_BREAK_TYPE_CODE,
2657: l_LIST_PRICE,
2722: --CLOSE l_ldets_cur;
2723: CLOSE l_getline_dis_cur;
2724:
2725: IF l_debug = FND_API.G_TRUE THEN
2726: QP_PREQ_GRP.engine_debug('close l_getline_dis_cur');
2727: END IF;
2728:
2729: END IF;
2730:
2746: x_return_status_text OUT NOCOPY VARCHAR2) IS
2747:
2748: BEGIN
2749:
2750: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2751:
2752: --when any changes are made to this, the similar updated stmt
2753: --in Update_Related_Line_Info procedure in this file also needs to be changed
2754: UPDATE qp_npreq_rltd_lines_tmp rltd
2798: AND rltd.relationship_type_code = G_PBH_LINE
2799: AND rltd.pricing_status_code = G_STATUS_NEW;
2800:
2801: IF (l_debug = FND_API.G_TRUE) THEN
2802: QP_PREQ_GRP.engine_debug('Updating PBH rltd dlts COUNT: '
2803: || SQL%ROWCOUNT);
2804: QP_PREQ_GRP.engine_debug('Updating the child detail type code');
2805: END IF;
2806:
2800:
2801: IF (l_debug = FND_API.G_TRUE) THEN
2802: QP_PREQ_GRP.engine_debug('Updating PBH rltd dlts COUNT: '
2803: || SQL%ROWCOUNT);
2804: QP_PREQ_GRP.engine_debug('Updating the child detail type code');
2805: END IF;
2806:
2807: UPDATE qp_npreq_ldets_tmp
2808: SET line_detail_type_code = QP_PREQ_PUB.G_CHILD_DETAIL_TYPE
2815: FOR i IN (SELECT line_detail_index
2816: FROM qp_npreq_ldets_tmp
2817: WHERE line_detail_type_code = QP_PREQ_PUB.G_CHILD_DETAIL_TYPE)
2818: LOOP
2819: QP_PREQ_GRP.engine_debug(' PBH Child Line Detail Index : ' || i.line_detail_index);
2820: END LOOP;
2821:
2822: END IF;
2823:
2845: l_gsa_indicator VARCHAR2(1) := 'N';
2846: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.CHECK_GSA_INDICATOR';
2847: BEGIN
2848: IF l_debug = FND_API.G_TRUE THEN
2849: QP_PREQ_GRP.engine_debug('Begin CHECK_GSA_INDICATOR '|| l_gsa_indicator);
2850:
2851: END IF;
2852: OPEN l_check_gsa_ind_cur;
2853: FETCH l_check_gsa_ind_cur INTO l_gsa_indicator;
2853: FETCH l_check_gsa_ind_cur INTO l_gsa_indicator;
2854: CLOSE l_check_gsa_ind_cur;
2855:
2856: IF l_debug = FND_API.G_TRUE THEN
2857: QP_PREQ_GRP.engine_debug('Cursor fetched '|| l_gsa_indicator);
2858:
2859: END IF;
2860: RETURN l_gsa_indicator;
2861:
2859: END IF;
2860: RETURN l_gsa_indicator;
2861:
2862: IF l_debug = FND_API.G_TRUE THEN
2863: QP_PREQ_GRP.engine_debug('END CHECK_GSA_INDICATOR ');
2864: END IF;
2865: EXCEPTION
2866: WHEN OTHERS THEN
2867: IF l_debug = FND_API.G_TRUE THEN
2864: END IF;
2865: EXCEPTION
2866: WHEN OTHERS THEN
2867: IF l_debug = FND_API.G_TRUE THEN
2868: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
2869: END IF;
2870: RETURN l_gsa_indicator;
2871: END CHECK_GSA_INDICATOR;
2872:
2964: , line.pricing_effective_date))
2965: GROUP BY line.line_index, line.adjusted_unit_price;
2966:
2967:
2968: l_gsa_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
2969: l_gsa_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
2970: I PLS_INTEGER := 0;
2971: BEGIN
2972: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2965: GROUP BY line.line_index, line.adjusted_unit_price;
2966:
2967:
2968: l_gsa_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
2969: l_gsa_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
2970: I PLS_INTEGER := 0;
2971: BEGIN
2972: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2973: l_gsa_line_index_tbl.DELETE;
2968: l_gsa_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
2969: l_gsa_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
2970: I PLS_INTEGER := 0;
2971: BEGIN
2972: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2973: l_gsa_line_index_tbl.DELETE;
2974: l_gsa_sts_text_tbl.DELETE;
2975:
2976: IF l_debug = FND_API.G_TRUE THEN
2973: l_gsa_line_index_tbl.DELETE;
2974: l_gsa_sts_text_tbl.DELETE;
2975:
2976: IF l_debug = FND_API.G_TRUE THEN
2977: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
2978:
2979: END IF;
2980: -- Call GSA Check only for non-gsa customers(GSA_QUALIFIER_FLAG IS NULL)
2981: IF G_GSA_CHECK_FLAG = G_YES
2982: AND G_GSA_ENABLED_FLAG = G_YES
2983: AND G_GSA_INDICATOR = G_NO
2984: THEN
2985: IF l_debug = FND_API.G_TRUE THEN
2986: QP_PREQ_GRP.engine_debug('IN GSA check attrmgr '|| G_ATTR_MGR_INSTALLED);
2987:
2988: END IF;
2989: IF G_ATTR_MGR_INSTALLED = G_NO
2990: THEN
2991: FOR GSA IN l_gsa_check_cur
2992: LOOP
2993: -- I := I + 1; bug2426025 placed the counter in the if condition
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2996: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2997: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2998: END IF;
2999: IF GSA.adjusted_unit_price <= GSA.operand
2992: LOOP
2993: -- I := I + 1; bug2426025 placed the counter in the if condition
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2996: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2997: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2998: END IF;
2999: IF GSA.adjusted_unit_price <= GSA.operand
3000: THEN
2993: -- I := I + 1; bug2426025 placed the counter in the if condition
2994: IF l_debug = FND_API.G_TRUE THEN
2995: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
2996: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
2997: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
2998: END IF;
2999: IF GSA.adjusted_unit_price <= GSA.operand
3000: THEN
3001: I := I + 1;
3001: I := I + 1;
3002: l_gsa_line_index_tbl(I) := GSA.line_index;
3003: l_gsa_sts_text_tbl(I) := GSA.operand;
3004: IF l_debug = FND_API.G_TRUE THEN
3005: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3006: || l_gsa_line_index_tbl(I));
3007: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3008: || l_gsa_sts_text_tbl(I));
3009: END IF;
3003: l_gsa_sts_text_tbl(I) := GSA.operand;
3004: IF l_debug = FND_API.G_TRUE THEN
3005: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3006: || l_gsa_line_index_tbl(I));
3007: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3008: || l_gsa_sts_text_tbl(I));
3009: END IF;
3010: END IF;
3011: END LOOP; --l_gsa_check_cur
3013: FOR GSA IN l_attrmgr_gsa_check_cur
3014: LOOP
3015: -- I := I + 1; bug2426025 placed the counter in the if condition
3016: IF l_debug = FND_API.G_TRUE THEN
3017: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3018: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3019: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3020: END IF;
3021: IF GSA.adjusted_unit_price <= GSA.operand
3014: LOOP
3015: -- I := I + 1; bug2426025 placed the counter in the if condition
3016: IF l_debug = FND_API.G_TRUE THEN
3017: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3018: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3019: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3020: END IF;
3021: IF GSA.adjusted_unit_price <= GSA.operand
3022: THEN
3015: -- I := I + 1; bug2426025 placed the counter in the if condition
3016: IF l_debug = FND_API.G_TRUE THEN
3017: QP_PREQ_GRP.engine_debug('GSA check: line_index '|| GSA.line_index);
3018: QP_PREQ_GRP.engine_debug('GSA check: gsa_price '|| GSA.operand);
3019: QP_PREQ_GRP.engine_debug('GSA check: adj_price '|| GSA.adjusted_unit_price);
3020: END IF;
3021: IF GSA.adjusted_unit_price <= GSA.operand
3022: THEN
3023: I := I + 1;
3023: I := I + 1;
3024: l_gsa_line_index_tbl(I) := GSA.line_index;
3025: l_gsa_sts_text_tbl(I) := GSA.operand;
3026: IF l_debug = FND_API.G_TRUE THEN
3027: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3028: || l_gsa_line_index_tbl(I));
3029: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3030: || l_gsa_sts_text_tbl(I));
3031: END IF;
3025: l_gsa_sts_text_tbl(I) := GSA.operand;
3026: IF l_debug = FND_API.G_TRUE THEN
3027: QP_PREQ_GRP.engine_debug('GSA violtn:lineindex '
3028: || l_gsa_line_index_tbl(I));
3029: QP_PREQ_GRP.engine_debug('GSA violtn:gsa price '
3030: || l_gsa_sts_text_tbl(I));
3031: END IF;
3032: END IF;
3033: END LOOP; --l_attrmgr_gsa_check_cur
3033: END LOOP; --l_attrmgr_gsa_check_cur
3034: END IF; --G_ATTR_MGR_INSTALLED --not installed
3035:
3036: IF l_debug = FND_API.G_TRUE THEN
3037: QP_PREQ_GRP.engine_debug('AFTER GSA check');
3038: END IF;
3039: END IF;
3040:
3041: IF l_gsa_line_index_tbl.COUNT > 0
3040:
3041: IF l_gsa_line_index_tbl.COUNT > 0
3042: THEN
3043: IF l_debug = FND_API.G_TRUE THEN
3044: QP_PREQ_GRP.engine_debug('Before GSA update '|| l_gsa_line_index_tbl.COUNT);
3045: END IF;
3046: FORALL I IN l_gsa_line_index_tbl.FIRST..l_gsa_line_index_tbl.LAST
3047: UPDATE qp_npreq_lines_tmp
3048: SET pricing_status_code = G_STATUS_GSA_VIOLATION,
3051: WHERE line_index = l_gsa_line_index_tbl(I);
3052: END IF; --l_gsa_line_index_tbl.COUNT
3053:
3054: IF l_debug = FND_API.G_TRUE THEN
3055: QP_PREQ_GRP.engine_debug('Pub GSA check completed');
3056:
3057: END IF;
3058: --GSA VIOLATION CHECK
3059:
3060:
3061: EXCEPTION
3062: WHEN OTHERS THEN
3063: IF l_debug = FND_API.G_TRUE THEN
3064: QP_PREQ_GRP.ENGINE_DEBUG('exception QP_PREQ_PUB.check gsa_violation: '|| SQLERRM);
3065: END IF;
3066: x_return_status := FND_API.G_RET_STS_ERROR;
3067: x_return_status_text := 'QP_PREQ_PUB.check gsa_violation: '|| SQLERRM;
3068: END CHECK_GSA_VIOLATION;
3139: ORDER BY precedence;
3140:
3141: l_back_calc_rec back_calc_rec_type;
3142:
3143: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3144: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3145: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3140:
3141: l_back_calc_rec back_calc_rec_type;
3142:
3143: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3144: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3145: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3141: l_back_calc_rec back_calc_rec_type;
3142:
3143: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3144: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3145: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3142:
3143: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3144: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3145: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3143: l_back_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3144: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3145: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3144: l_back_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3145: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3145: l_back_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3146: l_back_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3147: l_back_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3148: l_back_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3149: l_back_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3150: l_back_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3151: l_back_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3152: l_back_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3153: l_back_operand_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3154: l_back_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3155: l_back_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3156: l_back_rounding_fac_tbl QP_PREQ_GRP.NUMBER_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3157: l_back_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3158: l_back_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3159: l_back_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3160: l_back_list_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3161: l_back_price_brk_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3162: l_back_chrg_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3170: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3163: l_back_chrg_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3170: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3171: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3164: l_back_auto_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3170: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3171: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3172: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3165: l_back_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3170: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3171: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3172: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3173:
3166: l_back_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3170: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3171: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3172: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3173:
3174: BACK_CALCULATE_SUCC BOOLEAN := TRUE;
3167: l_back_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3170: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3171: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3172: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3173:
3174: BACK_CALCULATE_SUCC BOOLEAN := TRUE;
3175: l_return_status VARCHAR2(30);
3168: l_back_bucket_tbl QP_PREQ_GRP.NUMBER_TYPE;
3169: l_back_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3170: l_back_calculation_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3171: l_back_calc_precedence_tbl QP_PREQ_GRP.NUMBER_TYPE;
3172: l_back_modifier_level_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3173:
3174: BACK_CALCULATE_SUCC BOOLEAN := TRUE;
3175: l_return_status VARCHAR2(30);
3176: l_return_status_text VARCHAR2(240);
3180: i NUMBER;
3181:
3182: BEGIN
3183:
3184: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3185: --**************************************************************
3186: --BACK CALCULATION ROUTINE
3187: --**************************************************************
3188: IF l_debug = FND_API.G_TRUE THEN
3185: --**************************************************************
3186: --BACK CALCULATION ROUTINE
3187: --**************************************************************
3188: IF l_debug = FND_API.G_TRUE THEN
3189: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE '
3190: || G_BACK_CALCULATION_CODE);
3191:
3192:
3193: END IF;
3193: END IF;
3194: OPEN l_back_calculate_cur;
3195: --LOOP
3196: IF l_debug = FND_API.G_TRUE THEN
3197: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE1');
3198: END IF;
3199: l_back_list_line_id_tbl.DELETE;
3200: l_back_line_index_tbl.DELETE;
3201: l_back_line_dtl_index_tbl.DELETE;
3258: l_back_list_line_no_tbl,
3259: l_back_calculation_code_tbl,
3260: l_back_calc_precedence_tbl;
3261: IF l_debug = FND_API.G_TRUE THEN
3262: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2');
3263: END IF;
3264: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3265: CLOSE l_back_calculate_cur;
3266:
3264: --EXIT WHEN l_back_list_line_id_tbl.COUNT = 0;
3265: CLOSE l_back_calculate_cur;
3266:
3267: IF l_debug = FND_API.G_TRUE THEN
3268: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3269: END IF;
3270: --DEBUG
3271: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3272: AND l_back_list_line_id_tbl.COUNT>0
3267: IF l_debug = FND_API.G_TRUE THEN
3268: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE2.5');
3269: END IF;
3270: --DEBUG
3271: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3272: AND l_back_list_line_id_tbl.COUNT>0
3273: THEN
3274: IF l_debug = FND_API.G_TRUE THEN
3275: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3271: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3272: AND l_back_list_line_id_tbl.COUNT>0
3273: THEN
3274: IF l_debug = FND_API.G_TRUE THEN
3275: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE3'|| l_back_list_line_id_tbl.COUNT);
3276: END IF;
3277: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3278: LOOP
3279: IF l_debug = FND_API.G_TRUE THEN
3276: END IF;
3277: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3278: LOOP
3279: IF l_debug = FND_API.G_TRUE THEN
3280: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4');
3281: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ADJ '
3282: || l_back_list_line_id_tbl(i) ||' line index '
3283: || l_back_line_index_tbl(i) ||' detail index '
3284: || l_back_line_dtl_index_tbl(i) ||' adj type '
3277: FOR I IN 1..l_back_list_line_id_tbl.COUNT
3278: LOOP
3279: IF l_debug = FND_API.G_TRUE THEN
3280: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4');
3281: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ADJ '
3282: || l_back_list_line_id_tbl(i) ||' line index '
3283: || l_back_line_index_tbl(i) ||' detail index '
3284: || l_back_line_dtl_index_tbl(i) ||' adj type '
3285: || l_back_list_line_type_tbl(i) ||' applied flag '
3299: END LOOP;
3300: END IF;
3301:
3302: IF l_debug = FND_API.G_TRUE THEN
3303: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE4.5');
3304: END IF;
3305: IF l_back_line_index_tbl.COUNT > 0
3306: THEN
3307: IF p_amount_changed <= 0
3309: FOR I IN
3310: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3311: LOOP
3312: IF l_debug = FND_API.G_TRUE THEN
3313: QP_PREQ_GRP.ENGINE_DEBUG('forward loop '|| i);
3314: END IF;
3315:
3316: --fix for bug 2790460 to add the amount_changed to the
3317: --adjustment_amount if the adj
3342: IF BACK_CALCULATE_SUCC
3343: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3344: THEN
3345: IF l_debug = FND_API.G_TRUE THEN
3346: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3347: || l_adjustment_amount ||' list_line_id '
3348: || l_back_list_line_id_tbl(i) ||' operand val '
3349: || l_operand_value);
3350:
3422: FOR I IN REVERSE
3423: l_back_line_dtl_index_tbl.FIRST..l_back_line_dtl_index_tbl.LAST
3424: LOOP
3425: IF l_debug = FND_API.G_TRUE THEN
3426: QP_PREQ_GRP.ENGINE_DEBUG('reverse loop '|| i);
3427: END IF;
3428: --fix for bug 2790460 to add the amount_changed to the
3429: --adjustment_amount if the adj
3430: --has been applied already and it is not back calculated
3454: IF BACK_CALCULATE_SUCC
3455: AND l_return_status = FND_API.G_RET_STS_SUCCESS
3456: THEN
3457: IF l_debug = FND_API.G_TRUE THEN
3458: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ '
3459: || l_adjustment_amount ||' list_line_id '
3460: || l_back_list_line_id_tbl(i) ||' operand val '
3461: || l_operand_value);
3462:
3533: THEN
3534: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3535: THEN
3536: IF l_debug = FND_API.G_TRUE THEN
3537: QP_PREQ_GRP.ENGINE_DEBUG('back cal succ set status');
3538: END IF;
3539: x_return_status := l_return_status;
3540: x_return_status_text := l_return_status_text;
3541: x_back_calc_rec := l_back_calc_rec;
3543: ELSE
3544: IF l_return_status = FND_API.G_RET_STS_SUCCESS
3545: THEN
3546: IF l_debug = FND_API.G_TRUE THEN
3547: QP_PREQ_GRP.ENGINE_DEBUG('back cal fail set status');
3548: END IF;
3549: x_return_status := G_BACK_CALCULATION_STS;
3550: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3551: x_back_calc_rec := l_back_calc_rec;
3550: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION FAILURE ';
3551: x_back_calc_rec := l_back_calc_rec;
3552: ELSE
3553: IF l_debug = FND_API.G_TRUE THEN
3554: QP_PREQ_GRP.ENGINE_DEBUG('back cal error set status');
3555: END IF;
3556: x_return_status := G_BACK_CALCULATION_STS;
3557: x_return_status_text := 'QP_PREQ_PUB: BACK CALCULATION ERROR '|| l_return_status_text;
3558: x_back_calc_rec := l_back_calc_rec;
3560: END IF;
3561:
3562: ELSE
3563: IF l_debug = FND_API.G_TRUE THEN
3564: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3565: END IF;
3566: x_return_status := G_BACK_CALCULATION_STS;
3567: IF l_debug = FND_API.G_TRUE THEN
3568: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3564: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE5');
3565: END IF;
3566: x_return_status := G_BACK_CALCULATION_STS;
3567: IF l_debug = FND_API.G_TRUE THEN
3568: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3569: END IF;
3570: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3571: IF l_debug = FND_API.G_TRUE THEN
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3568: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6');
3569: END IF;
3570: x_return_status_text := 'QP_PREQ_PUB.BACK_CAL: NO MANUAL ADJ';
3571: IF l_debug = FND_API.G_TRUE THEN
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3573: END IF;
3574: END IF;
3575: IF l_debug = FND_API.G_TRUE THEN
3576: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE7');
3572: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE6.5');
3573: END IF;
3574: END IF;
3575: IF l_debug = FND_API.G_TRUE THEN
3576: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE7');
3577:
3578: END IF;
3579: EXCEPTION
3580: WHEN OTHERS THEN
3578: END IF;
3579: EXCEPTION
3580: WHEN OTHERS THEN
3581: IF l_debug = FND_API.G_TRUE THEN
3582: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION EXCEPTION '|| SQLERRM);
3583: END IF;
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: x_return_status_text := 'Error QP_PREQ_PUB.BACK_CALCULATION '|| SQLERRM;
3586: END BACK_CALCULATION;
3650: OR line.order_uom_selling_price IS NULL )
3651: AND nvl(line.QUALIFIERS_EXIST_FLAG, G_NO) <> G_CALCULATE_ONLY
3652: AND nvl(line.processed_flag, 'N') <> G_FREEGOOD_LINE; -- added for bug 3116349 /*avallark*/
3653:
3654: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3651: AND nvl(line.QUALIFIERS_EXIST_FLAG, G_NO) <> G_CALCULATE_ONLY
3652: AND nvl(line.processed_flag, 'N') <> G_FREEGOOD_LINE; -- added for bug 3116349 /*avallark*/
3653:
3654: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3652: AND nvl(line.processed_flag, 'N') <> G_FREEGOOD_LINE; -- added for bug 3116349 /*avallark*/
3653:
3654: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3653:
3654: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3654: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3655: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3656: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3657: l_ord_uom_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3665: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3658: l_line_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3665: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3666: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3659: l_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3665: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3666: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3667: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3660: l_catchwt_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3665: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3666: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3667: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3668: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3661: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3665: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3666: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3667: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3668: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3669:
3662: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3665: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3666: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3667: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3668: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3669:
3670: l_return_status VARCHAR2(30);
3663: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3664: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
3665: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
3666: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3667: l_pricing_sts_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
3668: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.UPDATE_UNIT_PRICE';
3669:
3670: l_return_status VARCHAR2(30);
3671: l_return_status_text VARCHAR2(240);
3674: i NUMBER;
3675:
3676: l_back_calc_ret_rec back_calc_rec_type;
3677:
3678: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3679: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3680: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3675:
3676: l_back_calc_ret_rec back_calc_rec_type;
3677:
3678: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3679: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3680: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3676: l_back_calc_ret_rec back_calc_rec_type;
3677:
3678: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3679: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3680: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3677:
3678: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3679: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3680: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3678: l_ldet_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
3679: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3680: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3679: l_ldet_line_index QP_PREQ_GRP.NUMBER_TYPE;
3680: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3687: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3680: l_ldet_operand_value QP_PREQ_GRP.NUMBER_TYPE;
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3687: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3688: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3681: l_ldet_adjamt QP_PREQ_GRP.NUMBER_TYPE;
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3687: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3688: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3689: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3682: l_ldet_applied_flag QP_PREQ_GRP.FLAG_TYPE;
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3687: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3688: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3689: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3690:
3683: l_ldet_updated_flag QP_PREQ_GRP.FLAG_TYPE;
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3687: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3688: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3689: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3690:
3691: --[prarasto:Post Round] Start : new variables
3684: l_ldet_process_code QP_PREQ_GRP.VARCHAR_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3687: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3688: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3689: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3690:
3691: --[prarasto:Post Round] Start : new variables
3692: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3685: l_ldet_sts_code QP_PREQ_GRP.VARCHAR_TYPE;
3686: l_ldet_sts_text QP_PREQ_GRP.VARCHAR_TYPE;
3687: l_ldet_calc_code QP_PREQ_GRP.VARCHAR_TYPE;
3688: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3689: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3690:
3691: --[prarasto:Post Round] Start : new variables
3692: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3693: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3688: l_ldet_ord_qty_operand QP_PREQ_GRP.NUMBER_TYPE; --3057395
3689: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3690:
3691: --[prarasto:Post Round] Start : new variables
3692: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3693: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3694: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3695: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3696: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3689: l_ldet_ord_qty_adj_amt QP_PREQ_GRP.NUMBER_TYPE; --3057395
3690:
3691: --[prarasto:Post Round] Start : new variables
3692: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3693: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3694: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3695: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3696: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3697: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3690:
3691: --[prarasto:Post Round] Start : new variables
3692: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3693: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3694: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3695: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3696: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3697: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3698: --[prarasto:Post Round] End : new variables
3691: --[prarasto:Post Round] Start : new variables
3692: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3693: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3694: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3695: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3696: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3697: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3698: --[prarasto:Post Round] End : new variables
3699:
3692: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3693: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3694: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3695: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3696: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3697: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3698: --[prarasto:Post Round] End : new variables
3699:
3700: BEGIN
3693: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3694: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
3695: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3696: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
3697: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3698: --[prarasto:Post Round] End : new variables
3699:
3700: BEGIN
3701: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3697: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
3698: --[prarasto:Post Round] End : new variables
3699:
3700: BEGIN
3701: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3702: IF l_debug = FND_API.G_TRUE THEN
3703: QP_PREQ_GRP.engine_debug('Begin update_unit_price');
3704:
3705: END IF;
3699:
3700: BEGIN
3701: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3702: IF l_debug = FND_API.G_TRUE THEN
3703: QP_PREQ_GRP.engine_debug('Begin update_unit_price');
3704:
3705: END IF;
3706: OPEN l_check_adjustments_cur;
3707: l_line_index_tbl.DELETE;
3741: l_amount_changed_tbl,
3742: l_line_unit_price_tbl;
3743: CLOSE l_check_adjustments_cur;
3744:
3745: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
3746: AND l_line_index_tbl.COUNT > 0
3747: THEN
3748: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3749: LOOP
3747: THEN
3748: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
3749: LOOP
3750: IF l_debug = FND_API.G_TRUE THEN
3751: QP_PREQ_GRP.engine_debug('line_index '
3752: || l_line_index_tbl(i) ||' unit_price '
3753: || l_unit_price_tbl(i) ||' adj_unit_price '
3754: || l_adj_unit_price_tbl(i) ||' price_qty '
3755: || l_priced_qty_tbl(i) ||' ordqty '|| l_line_qty_tbl(i)
3769: --if the caller has overridden the selling price
3770: --and if the line did not go thru calculation
3771: IF l_upd_adj_unit_price_tbl(i) IS NOT NULL THEN
3772: IF l_debug = FND_API.G_TRUE THEN
3773: QP_PREQ_GRP.engine_debug('back calculation for line '
3774: || l_line_index_tbl(i));
3775: END IF; --l_debug
3776:
3777: ---- 9537858/ 10315863 for ASO only when Line qty and Price qty are different Unit price is re calculated if occurs for other products please add in if
3799: (l_upd_adj_unit_price_tbl(i) - l_adj_unit_price_tbl(i));
3800:
3801:
3802: IF l_debug = FND_API.G_TRUE THEN
3803: QP_PREQ_GRP.engine_debug('amt chg '|| l_amount_changed_tbl(i));
3804: END IF; --l_debug
3805:
3806: IF l_amount_changed_tbl(i) <= 0 THEN
3807: G_BACK_CALCULATION_CODE := 'DIS';
3817:
3818: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3819: --need to do this check for bug 2833753
3820: IF l_debug = FND_API.G_TRUE THEN
3821: QP_PREQ_GRP.engine_debug('back cal succ insert rec ');
3822: END IF; --l_debug
3823:
3824: l_adj_unit_price_tbl(i) := l_upd_adj_unit_price_tbl(i);
3825:
3830: -- Ravi bug# 2745337-divisor by zero
3831: IF (l_line_qty_tbl(i) <> 0
3832: OR l_back_calc_ret_rec.modifier_level_code = G_ORDER_LEVEL) THEN
3833: IF (l_debug = FND_API.G_TRUE) THEN
3834: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6');
3835: END IF; --l_debug
3836: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3837: p_priced_qty => l_priced_qty_tbl(i),
3838: p_catchweight_qty => l_catchwt_qty_tbl(i),
3848: x_return_status => x_return_status,
3849: x_return_status_text => x_return_status_text);
3850: ELSE --l_line_qty_tbl(i)
3851: IF l_debug = FND_API.G_TRUE THEN
3852: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_line_qty_tbl(i));
3853: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
3854: END IF; --l_debug
3855: l_ord_qty_operand := 0;
3856: l_ord_qty_adj_amt := 0;
3849: x_return_status_text => x_return_status_text);
3850: ELSE --l_line_qty_tbl(i)
3851: IF l_debug = FND_API.G_TRUE THEN
3852: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_line_qty_tbl(i));
3853: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
3854: END IF; --l_debug
3855: l_ord_qty_operand := 0;
3856: l_ord_qty_adj_amt := 0;
3857: END IF; --l_line_qty_tbl(i)
3895: l_ord_qty_adj_amt; --3057395
3896:
3897: ELSE --l_ret_status
3898: IF l_debug = FND_API.G_TRUE THEN
3899: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
3900: END IF; --l_debug
3901: l_pricing_sts_code_tbl(i) := l_return_status;
3902: l_pricing_sts_text_tbl(i) := l_return_status_text;
3903: END IF; --ret_status
3908: l_adj_unit_price_tbl(i) := l_unit_price_tbl(i);
3909: END IF; --l_upd_adj_unit_price_tbl IS NOT NULL
3910:
3911: IF l_debug = FND_API.G_TRUE THEN
3912: QP_PREQ_GRP.engine_debug('end back calc for line '
3913: ||' unit price '|| l_unit_price_tbl(i)
3914: ||' adj_unit_price '|| l_adj_unit_price_tbl(i)
3915: ||' upd_adj_unit_price '|| l_upd_adj_unit_price_tbl(i));
3916: END IF; --l_debug
3920: IF (l_line_qty_tbl(i) <> 0
3921: OR l_back_calc_ret_rec.modifier_level_code =
3922: G_ORDER_LEVEL) THEN
3923: IF (l_debug = FND_API.G_TRUE) THEN
3924: QP_PREQ_GRP.engine_debug('Before GET_ORDERQTY_VALUES #6.5');
3925: END IF; --l_debug
3926: GET_ORDERQTY_VALUES(p_ordered_qty => l_line_qty_tbl(i),
3927: p_priced_qty => l_priced_qty_tbl(i),
3928: p_catchweight_qty => l_catchwt_qty_tbl(i),
3936: x_return_status => x_return_status,
3937: x_return_status_text => x_return_status_text);
3938: ELSE --ordered_qty
3939: IF l_debug = FND_API.G_TRUE THEN
3940: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
3941: || l_line_qty_tbl(i));
3942: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
3943: ||'0 or modifier level code is not ORDER');
3944: END IF; --l_debug
3938: ELSE --ordered_qty
3939: IF l_debug = FND_API.G_TRUE THEN
3940: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
3941: || l_line_qty_tbl(i));
3942: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
3943: ||'0 or modifier level code is not ORDER');
3944: END IF; --l_debug
3945: l_line_unit_price_tbl(i) := 0;
3946: l_ord_uom_selling_price_tbl(i) := 0;
3971: END IF;
3972:
3973:
3974: IF l_debug = FND_API.G_TRUE THEN
3975: QP_PREQ_GRP.engine_debug('roundingfac to round sellingprice: '
3976: || l_rounding_factor_tbl(i));
3977: END IF; --l_debug
3978:
3979: IF (G_ROUND_INDIVIDUAL_ADJ = G_NO_ROUND) or (l_rounding_factor_tbl(i) is null) THEN
3987: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
3988: END IF;
3989:
3990: IF l_debug = FND_API.G_TRUE THEN
3991: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3992: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3993: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3994: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3995: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3988: END IF;
3989:
3990: IF l_debug = FND_API.G_TRUE THEN
3991: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3992: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3993: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3994: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3995: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3996: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3989:
3990: IF l_debug = FND_API.G_TRUE THEN
3991: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3992: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3993: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3994: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3995: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3996: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3997: END IF; --l_debug
3990: IF l_debug = FND_API.G_TRUE THEN
3991: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3992: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3993: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3994: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3995: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3996: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3997: END IF; --l_debug
3998: --===[prarasto:Post Round] End : Calculate rounded values ==--
3991: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
3992: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3993: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3994: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3995: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3996: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3997: END IF; --l_debug
3998: --===[prarasto:Post Round] End : Calculate rounded values ==--
3999:
3992: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
3993: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
3994: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
3995: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
3996: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
3997: END IF; --l_debug
3998: --===[prarasto:Post Round] End : Calculate rounded values ==--
3999:
4000: /*
4014: END IF;--l_rounding_factor_tbl
4015: */
4016:
4017: IF l_debug = FND_API.G_TRUE THEN
4018: QP_PREQ_GRP.engine_debug('line_index '
4019: || l_line_index_tbl(i) ||' ord_uom_selling_price '
4020: || l_ord_uom_selling_price_tbl(i));
4021: END IF; --l_debug
4022:
4047: IF l_line_index_tbl.COUNT > 0
4048: THEN
4049:
4050: IF l_debug = FND_API.G_TRUE THEN
4051: QP_PREQ_GRP.engine_debug('unit price needs to be updated');
4052: END IF;
4053:
4054: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
4055: UPDATE qp_npreq_lines_tmp
4074: WHEN OTHERS THEN
4075: x_return_status := FND_API.G_RET_STS_ERROR;
4076: x_return_status_text := l_routine ||' '|| SQLERRM;
4077: IF l_debug = FND_API.G_TRUE THEN
4078: QP_PREQ_GRP.ENGINE_DEBUG(x_return_status_text);
4079: END IF;
4080: END UPDATE_UNIT_PRICE;
4081:
4082:
4087: PROCEDURE Update_Line_Status(x_return_status OUT NOCOPY VARCHAR2,
4088: x_return_status_text OUT NOCOPY VARCHAR2) IS
4089:
4090: BEGIN
4091: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4092: IF l_debug = FND_API.G_TRUE THEN
4093: QP_PREQ_GRP.engine_debug('Begin Update_Line_Status:calculate_flag '|| G_CALCULATE_FLAG);
4094:
4095: END IF;
4089:
4090: BEGIN
4091: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4092: IF l_debug = FND_API.G_TRUE THEN
4093: QP_PREQ_GRP.engine_debug('Begin Update_Line_Status:calculate_flag '|| G_CALCULATE_FLAG);
4094:
4095: END IF;
4096:
4097: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
4265: l_adj_tbl QP_PREQ_PUB.adj_tbl_type;
4266: l_frt_tbl FRT_CHARGE_TBL;
4267: l_back_calc_ret_rec back_calc_rec_type;
4268:
4269: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4270: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4271: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4266: l_frt_tbl FRT_CHARGE_TBL;
4267: l_back_calc_ret_rec back_calc_rec_type;
4268:
4269: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4270: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4271: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4267: l_back_calc_ret_rec back_calc_rec_type;
4268:
4269: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4270: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4271: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4268:
4269: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4270: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4271: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4269: l_ldet_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4270: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4271: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4270: l_ldet_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4271: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4271: l_ldet_list_hdr_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4272: l_ldet_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4273: l_ldet_list_line_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4274: l_ldet_operand_value_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4275: l_ldet_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4276: l_ldet_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4277: l_ldet_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4278: l_ldet_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4279: l_ldet_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4280: l_ldet_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4281: l_ldet_price_break_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4282: l_ldet_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4283: l_ldet_operand_calc_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4284: l_ldet_pricing_grp_seq_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4285: l_ldet_list_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4286: l_ldet_limit_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4287: l_ldet_limit_text_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4288: l_ldet_list_line_no_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4296: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4289: l_ldet_charge_type_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4296: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4290: l_ldet_charge_subtype_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4296: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ldet_price_adjust_id_tbl QP_PREQ_GRP.NUMBER_TYPE; --bug 12731184
4291: l_ldet_automatic_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4296: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ldet_price_adjust_id_tbl QP_PREQ_GRP.NUMBER_TYPE; --bug 12731184
4299:
4292: l_ldet_pricing_phase_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4296: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ldet_price_adjust_id_tbl QP_PREQ_GRP.NUMBER_TYPE; --bug 12731184
4299:
4300:
4293: l_ldet_modifier_level_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4296: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ldet_price_adjust_id_tbl QP_PREQ_GRP.NUMBER_TYPE; --bug 12731184
4299:
4300:
4301: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4294: l_ldet_is_max_frt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4295: l_ldet_calc_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4296: l_ldet_ordqty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ldet_price_adjust_id_tbl QP_PREQ_GRP.NUMBER_TYPE; --bug 12731184
4299:
4300:
4301: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4302: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4297: l_ldet_ordqty_adjamt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ldet_price_adjust_id_tbl QP_PREQ_GRP.NUMBER_TYPE; --bug 12731184
4299:
4300:
4301: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4302: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4298: l_ldet_price_adjust_id_tbl QP_PREQ_GRP.NUMBER_TYPE; --bug 12731184
4299:
4300:
4301: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4302: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4299:
4300:
4301: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4302: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4300:
4301: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4302: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4301: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4302: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4302: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4303: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4303: l_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4304: l_amount_changed_tbl QP_PREQ_GRP.NUMBER_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4305: l_ordered_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4306: l_line_priced_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4307: l_catchweight_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4308: l_actual_order_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4316: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4309: l_line_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4316: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4317: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4310: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4316: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4317: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4318: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4311: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4316: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4317: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4318: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4319: l_calc_quantity NUMBER;
4312: l_process_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4316: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4317: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4318: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4319: l_calc_quantity NUMBER;
4320:
4313: l_upd_adj_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4316: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4317: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4318: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4319: l_calc_quantity NUMBER;
4320:
4321: --[prarasto:Post Round] Start : new variables
4314: l_processed_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
4315: l_rounding_factor_tbl QP_PREQ_GRP.NUMBER_TYPE;
4316: l_ordqty_selling_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4317: l_ordqty_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
4318: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4319: l_calc_quantity NUMBER;
4320:
4321: --[prarasto:Post Round] Start : new variables
4322: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4318: l_ntamt_adj_unit_price QP_PREQ_GRP.NUMBER_TYPE; -- 3126019
4319: l_calc_quantity NUMBER;
4320:
4321: --[prarasto:Post Round] Start : new variables
4322: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4323: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4324: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4325: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4326: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4319: l_calc_quantity NUMBER;
4320:
4321: --[prarasto:Post Round] Start : new variables
4322: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4323: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4324: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4325: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4326: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4327: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4320:
4321: --[prarasto:Post Round] Start : new variables
4322: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4323: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4324: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4325: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4326: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4327: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4328: --[prarasto:Post Round] End : new variables
4321: --[prarasto:Post Round] Start : new variables
4322: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4323: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4324: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4325: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4326: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4327: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4328: --[prarasto:Post Round] End : new variables
4329:
4322: l_extended_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4323: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4324: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4325: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4326: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4327: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4328: --[prarasto:Post Round] End : new variables
4329:
4330: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4323: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4324: l_unit_selling_price_ur QP_PREQ_GRP.NUMBER_TYPE;
4325: l_extended_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4326: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4327: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4328: --[prarasto:Post Round] End : new variables
4329:
4330: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4331: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4326: l_adjusted_unit_price QP_PREQ_GRP.NUMBER_TYPE;
4327: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4328: --[prarasto:Post Round] End : new variables
4329:
4330: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4331: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4332: l_back_calc_plsql_tbl_index QP_PREQ_GRP.NUMBER_TYPE;
4333:
4334: l_back_calc_dtl_ind NUMBER;
4327: l_unit_selling_price QP_PREQ_GRP.NUMBER_TYPE;
4328: --[prarasto:Post Round] End : new variables
4329:
4330: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4331: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4332: l_back_calc_plsql_tbl_index QP_PREQ_GRP.NUMBER_TYPE;
4333:
4334: l_back_calc_dtl_ind NUMBER;
4335: l_back_calc_adj_amount NUMBER;
4328: --[prarasto:Post Round] End : new variables
4329:
4330: l_back_calc_dtl_index QP_PREQ_GRP.NUMBER_TYPE;
4331: l_back_calc_adj_amt QP_PREQ_GRP.NUMBER_TYPE;
4332: l_back_calc_plsql_tbl_index QP_PREQ_GRP.NUMBER_TYPE;
4333:
4334: l_back_calc_dtl_ind NUMBER;
4335: l_back_calc_adj_amount NUMBER;
4336: l_back_calc_plsql_index NUMBER;
4342:
4343: l_pricing_attribute VARCHAR2(240);
4344:
4345: --added to calculate order level adjustments' adj amt
4346: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4347: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4348: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4349: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4350: l_ord_qty_adj_amt NUMBER := 0;
4343: l_pricing_attribute VARCHAR2(240);
4344:
4345: --added to calculate order level adjustments' adj amt
4346: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4347: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4348: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4349: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4350: l_ord_qty_adj_amt NUMBER := 0;
4351: l_ord_qty_operand NUMBER := 0;
4344:
4345: --added to calculate order level adjustments' adj amt
4346: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4347: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4348: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4349: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4350: l_ord_qty_adj_amt NUMBER := 0;
4351: l_ord_qty_operand NUMBER := 0;
4352:
4345: --added to calculate order level adjustments' adj amt
4346: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
4347: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4348: l_ord_qty_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
4349: l_ord_qty_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
4350: l_ord_qty_adj_amt NUMBER := 0;
4351: l_ord_qty_operand NUMBER := 0;
4352:
4353: -- begin 2892848, net amount
4430: l_netamt_flag VARCHAR2(1);
4431: l_bucketed_flag VARCHAR2(1);
4432:
4433: -- [julin/5025231]
4434: l_line_ind_ind_lookup_tbl QP_PREQ_GRP.NUMBER_TYPE;
4435:
4436: BEGIN
4437: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4438: IF l_debug = FND_API.G_TRUE THEN
4433: -- [julin/5025231]
4434: l_line_ind_ind_lookup_tbl QP_PREQ_GRP.NUMBER_TYPE;
4435:
4436: BEGIN
4437: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4438: IF l_debug = FND_API.G_TRUE THEN
4439: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4440:
4441: QP_PREQ_GRP.engine_debug('Display related records ');
4435:
4436: BEGIN
4437: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4438: IF l_debug = FND_API.G_TRUE THEN
4439: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4440:
4441: QP_PREQ_GRP.engine_debug('Display related records ');
4442: END IF;
4443: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4437: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4438: IF l_debug = FND_API.G_TRUE THEN
4439: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4440:
4441: QP_PREQ_GRP.engine_debug('Display related records ');
4442: END IF;
4443: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4444: THEN
4445: --fix for bug 2515762 to print in debug the rltd info
4439: QP_PREQ_GRP.engine_debug('begin calculate price 1');
4440:
4441: QP_PREQ_GRP.engine_debug('Display related records ');
4442: END IF;
4443: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4444: THEN
4445: --fix for bug 2515762 to print in debug the rltd info
4446: FOR cl IN l_rltd_lines_cur
4447: LOOP
4445: --fix for bug 2515762 to print in debug the rltd info
4446: FOR cl IN l_rltd_lines_cur
4447: LOOP
4448: IF l_debug = FND_API.G_TRUE THEN
4449: QP_PREQ_GRP.engine_debug('related records with status N '
4450: ||' line_dtl_index '|| cl.line_detail_index
4451: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
4452: ||' line_index '|| cl.line_index
4453: ||' rltd_line_index '|| cl.related_line_index
4539:
4540: l_adj_tbl := p_adj_tbl;
4541:
4542: IF l_debug = FND_API.G_TRUE THEN
4543: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4544: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4545:
4546: END IF;
4547: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4540: l_adj_tbl := p_adj_tbl;
4541:
4542: IF l_debug = FND_API.G_TRUE THEN
4543: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4544: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4545:
4546: END IF;
4547: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4548: THEN
4543: QP_PREQ_GRP.engine_debug('begin calculate price 2');
4544: QP_PREQ_GRP.engine_debug('SL, this direct insert path'); -- 2892848
4545:
4546: END IF;
4547: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4548: THEN
4549: IF l_debug = FND_API.G_TRUE THEN
4550: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4551: END IF;
4546: END IF;
4547: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
4548: THEN
4549: IF l_debug = FND_API.G_TRUE THEN
4550: QP_PREQ_GRP.engine_debug('begin calculate price 3');
4551: END IF;
4552: FOR z IN 1..l_adj_tbl.COUNT
4553: LOOP
4554: IF l_debug = FND_API.G_TRUE THEN
4551: END IF;
4552: FOR z IN 1..l_adj_tbl.COUNT
4553: LOOP
4554: IF l_debug = FND_API.G_TRUE THEN
4555: QP_PREQ_GRP.engine_debug('Processing Adjustments:
4556: line index '|| l_adj_tbl(z).line_ind ||' '||
4557: ' line dtl index '|| l_adj_tbl(z).line_detail_index ||
4558: ' pricing_status '|| l_adj_tbl(z).pricing_status_code ||
4559: ' ldet rec '|| l_adj_tbl(z).is_ldet_rec ||
4589: END IF;
4590: -- end 2892848
4591:
4592: IF l_debug = FND_API.G_TRUE THEN
4593: QP_PREQ_GRP.engine_debug('Processing Line: Line Index '
4594: || l_adj_tbl(j).line_ind ||
4595: ' list price: '|| l_adj_tbl(j).unit_price ||
4596: ' l_adj_tbl(j).updated_adjusted_unit_price: '|| l_adj_tbl(j).updated_adjusted_unit_price ||
4597: ' previous l_adjusted_price: '|| l_adjusted_price || -- 2892848
4612:
4613: -- l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0); -- SL_more, do not reset, since we need USP from prev bucket sometimes
4614: IF (l_ntamt_adj_unit_price.EXISTS(l_adj_tbl(j).line_ind)) THEN
4615: IF l_debug = FND_API.G_TRUE THEN
4616: QP_PREQ_GRP.engine_debug('l_ntamt_adj_unit_price(cur_line_ind): '|| l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind));
4617: END IF; -- Added For Bug No - 4033618
4618: l_adjusted_price := nvl(l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind), l_adj_tbl(j).unit_price);
4619: ELSE
4620: l_adjusted_price := nvl(l_adj_tbl(j).unit_price, 0); -- SL_more
4624: l_adjusted_price := 0; -- NULL cause nvl(l_ntamt_adj_unit_price(l_adj_tbl(j).line_ind),l_adj_tbl(j).unit_price) being null
4625: END IF; -- end debug
4626:
4627: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4628: QP_PREQ_GRP.engine_debug('l_adjusted_price default: '|| l_adjusted_price);
4629: END IF; -- end debug
4630:
4631: IF (l_adj_tbl(j).pricing_group_sequence IS NULL OR
4632: l_adj_tbl(j).pricing_group_sequence = 0) THEN
4650: l_adjusted_price *l_adj_tbl(j).line_priced_quantity;
4651: */
4652:
4653: IF l_debug = FND_API.G_TRUE THEN -- SL_more
4654: QP_PREQ_GRP.engine_debug('l_prev_line_index: '|| l_prev_line_index);
4655: END IF; -- end debug
4656:
4657: -- same line
4658: IF l_prev_line_index = l_adj_tbl(j).line_ind THEN -- will be at least 1
4687: -- [julin/4055310]
4688: l_prev_bucket_amt_tbl := l_bucket_amt_tbl;
4689:
4690: IF l_debug = FND_API.G_TRUE THEN
4691: QP_PREQ_GRP.engine_debug('same line, different bucket.'
4692: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4693: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4694: || l_adjusted_price || '*' ||
4695: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4689:
4690: IF l_debug = FND_API.G_TRUE THEN
4691: QP_PREQ_GRP.engine_debug('same line, different bucket.'
4692: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4693: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4694: || l_adjusted_price || '*' ||
4695: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4696: END IF; -- end debug
4697:
4696: END IF; -- end debug
4697:
4698: ELSE -- SL_more, same line same bucket, ELSE IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4699: IF l_debug = FND_API.G_TRUE THEN
4700: QP_PREQ_GRP.engine_debug('same line, same bucket.'
4701: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4702: END IF; -- end debug
4703: END IF; -- END IF (l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence)
4704:
4732: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4733: l_adjusted_price := l_sub_total_price;
4734: END IF;
4735: IF l_debug = FND_API.G_TRUE THEN
4736: QP_PREQ_GRP.engine_debug('different line, different bucket. '
4737: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4738: END IF; -- end debug
4739:
4740: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4739:
4740: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4741: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity;
4742: IF l_debug = FND_API.G_TRUE THEN
4743: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
4744: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4745: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4746: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4747: END IF; -- end debug
4740: IF l_prev_line_index = - 9999 THEN -- 1st line as no USP in l_adj_unit_price_tbl
4741: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity;
4742: IF l_debug = FND_API.G_TRUE THEN
4743: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
4744: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_adj_tbl(j).line_ind ||'): '
4745: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4746: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4747: END IF; -- end debug
4748:
4749: -- bucket change, line change and not the 1st line
4750: ELSE -- l_prev_line_index <> -9999
4751:
4752: IF l_debug = FND_API.G_TRUE THEN
4753: QP_PREQ_GRP.engine_debug('bucket change, line change and not the 1st line, sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4754: END IF; -- END DEBUG
4755: IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index)) THEN
4756: -- moment to capture current USP for prev line_index,
4757: -- so we have correct amts in l_bucket_amt_tbl when using it
4757: -- so we have correct amts in l_bucket_amt_tbl when using it
4758: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_ntamt_adj_unit_price(l_prev_line_index), l_adj_tbl(j).unit_price) * l_prev_qty;
4759:
4760: IF l_debug = FND_API.G_TRUE THEN
4761: QP_PREQ_GRP.engine_debug('capture bucket amt of prev_line_index l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4762: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), l_adj_tbl(j).unit_price) || '*' ||
4763: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4764: END IF; -- end debug
4765:
4766: ELSE -- ELSE IF (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index))
4767: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_adj_tbl(j).unit_price, 0) * l_prev_qty;
4768: IF l_debug = FND_API.G_TRUE THEN
4769:
4770: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
4771: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4772: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4773: END IF; -- end debug
4774: END IF; -- END (l_ntamt_adj_unit_price.EXISTS(l_prev_line_index))
4788:
4789: END IF;
4790:
4791: IF l_debug = FND_API.G_TRUE THEN
4792: QP_PREQ_GRP.engine_debug('different line, same bucket');
4793: QP_PREQ_GRP.engine_debug('sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4794: END IF; -- end debug
4795:
4796: -- moment to capture current USP for prev line_index,
4789: END IF;
4790:
4791: IF l_debug = FND_API.G_TRUE THEN
4792: QP_PREQ_GRP.engine_debug('different line, same bucket');
4793: QP_PREQ_GRP.engine_debug('sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
4794: END IF; -- end debug
4795:
4796: -- moment to capture current USP for prev line_index,
4797: -- so we have correct amts in l_bucket_amt_tbl when using it
4797: -- so we have correct amts in l_bucket_amt_tbl when using it
4798: IF l_ntamt_adj_unit_price.EXISTS(l_prev_line_index) THEN
4799: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) * l_prev_qty;
4800: IF l_debug = FND_API.G_TRUE THEN
4801: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
4802: || nvl(l_ntamt_adj_unit_price(l_prev_line_index), 0) || '*' ||
4803: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
4804: END IF; -- end debug
4805: /*
4811: -- SL_more, default, 1st bucket for this line has no prev buckets no prev adjs
4812: IF l_1st_bucket = 'Y' THEN -- 1st bucket for this line, bucket at lease 1 up
4813: l_bucket_amt_tbl(l_adj_tbl(j).line_ind) := nvl(l_adj_tbl(j).unit_price, 0) * l_adj_tbl(j).line_priced_quantity; -- for line level net amt we need this
4814: IF l_debug = FND_API.G_TRUE THEN
4815: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_adj_tbl(j).line_ind ||'): '
4816: || nvl(l_adj_tbl(j).unit_price, 0) || '*' ||
4817: l_adj_tbl(j).line_priced_quantity || '=' || l_bucket_amt_tbl(l_adj_tbl(j).line_ind));
4818: END IF; -- end debug
4819: END IF; -- END IF l_1st_bucket ='Y'
4826: END IF; -- end if bucket is null or 0
4827:
4828: IF l_debug = FND_API.G_TRUE THEN
4829:
4830: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4831: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4832: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4833:
4834: END IF; -- Added For 4033618
4827:
4828: IF l_debug = FND_API.G_TRUE THEN
4829:
4830: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4831: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4832: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4833:
4834: END IF; -- Added For 4033618
4835: --SL_more
4828: IF l_debug = FND_API.G_TRUE THEN
4829:
4830: QP_PREQ_GRP.engine_debug('after NET_AMT_STUFF block...');
4831: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
4832: QP_PREQ_GRP.engine_debug('l_adjusted_price: '|| l_adjusted_price);
4833:
4834: END IF; -- Added For 4033618
4835: --SL_more
4836: IF l_sub_total_price IS NULL THEN -- default just in case
4846: ---Bucket calculations
4847: IF l_prev_line_index = l_adj_tbl(j).line_ind
4848: THEN
4849: IF l_debug = FND_API.G_TRUE THEN
4850: QP_PREQ_GRP.engine_debug('no line change'
4851: ||' prev_line_index '||l_prev_line_index
4852: ||' prev_bucket '||l_prev_bucket);
4853: END IF;
4854: line_change := false;
4854: line_change := false;
4855:
4856:
4857: IF l_debug = FND_API.G_TRUE THEN
4858: QP_PREQ_GRP.engine_debug('same line.');
4859: --||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4860: END IF;
4861: ELSE
4862: line_change := true;
4879:
4880: END IF; -- end index exists
4881:
4882: IF l_debug = FND_API.G_TRUE THEN
4883: QP_PREQ_GRP.engine_debug('line change '
4884: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4885: END IF;
4886:
4887: END IF; --l_prev_line_index = line_index
4892: IF l_adj_tbl(J).pricing_group_sequence <> 0 AND l_adj_tbl(J).pricing_group_sequence IS NOT NULL THEN -- bucket 0 is line event list price
4893: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
4894: IF l_prev_bucket <> l_adj_tbl(j).pricing_group_sequence THEN
4895: IF l_debug = FND_API.G_TRUE THEN
4896: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to debug adj_amts or unit_adjs up to prev bucket.');
4897: END IF; -- END debug
4898:
4899: -- for LINE GROUP
4900: -- need capture the l_prev_lg_adj_amt
4903:
4904: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
4905: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
4906: IF l_debug = FND_API.G_TRUE THEN
4907: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
4908: END IF; -- END debug
4909:
4910: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
4911:
4921: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4922: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4923:
4924: IF l_debug = FND_API.G_TRUE THEN
4925: QP_PREQ_GRP.engine_debug ('debug LINE unit adjs up to prev bucket for line index'||l_adj_tbl(j).line_ind ||': '||l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) );
4926: END IF; -- END debug
4927: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4928:
4929: -- begin shu fix bug for special case, bucket change within same line index
4930: IF line_change = false THEN
4931: l_sub_total_price :=l_adj_unit_price_tbl(l_adj_tbl(j).line_ind);
4932:
4933: IF l_debug = FND_API.G_TRUE THEN
4934: QP_PREQ_GRP.engine_debug('bucket change within same line'
4935: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4936: END IF;
4937: END IF; -- END IF line_change = flase
4938: -- end shu fix bug
4949: l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind):= l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind);
4950: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind)
4951:
4952: IF l_debug = FND_API.G_TRUE THEN
4953: QP_PREQ_GRP.engine_debug ('line change, debug LINE unit adjs up to prev bucket for line index'||l_adj_tbl(j).line_ind ||': '||l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) );
4954: END IF; -- END debug
4955: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
4956: END IF; -- END IF line_change true
4957:
4960: ELSE -- bucket is 0 or null -- begin shu fix bug
4961: l_sub_total_price := nvl(l_adj_tbl(j).unit_price, 0);
4962: l_adjusted_price :=nvl (l_adj_unit_price_tbl(l_adj_tbl(j).line_ind),0);
4963: IF l_debug = FND_API.G_TRUE THEN
4964: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
4965: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
4966: END IF;
4967: -- end shu fix bug
4968:
4977: --to break the link from other lines that have this line
4978: --group adjustment
4979: l_calc_quantity := 0;
4980: --bug 4900095
4981: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind)
4982: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index))
4983: and l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
4984: --only for service items
4985: --when uom_quantity is passed as null,
4978: --group adjustment
4979: l_calc_quantity := 0;
4980: --bug 4900095
4981: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind)
4982: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index))
4983: and l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
4984: --only for service items
4985: --when uom_quantity is passed as null,
4986: -- and contract_start/end_dates are passed
4986: -- and contract_start/end_dates are passed
4987: --and for a line/linegroup lumpsum DIS/PBH/SUR/FREIGHT
4988: IF l_adj_tbl(j).modifier_level_code = G_LINE_GROUP THEN
4989: IF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index)
4990: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4991: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index),
4992: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4993: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4994: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4988: IF l_adj_tbl(j).modifier_level_code = G_LINE_GROUP THEN
4989: IF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index)
4990: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4991: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index),
4992: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4993: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4994: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4995: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4996: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4991: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index),
4992: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4993: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4994: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4995: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4996: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4997: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4998: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4999: ELSE
4992: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index));
4993: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4994: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4995: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4996: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4997: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4998: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4999: ELSE
5000: l_calc_quantity :=
4993: ELSIF G_Service_pbh_lg_amt_qty.exists(l_adj_tbl(j).line_detail_index) THEN
4994: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4995: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4996: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4997: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4998: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4999: ELSE
5000: l_calc_quantity :=
5001: nvl(nvl(l_adj_tbl(j).group_quantity
4994: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_adj_tbl(j).line_detail_index);
4995: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_adj_tbl(j).line_detail_index) THEN
4996: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_adj_tbl(j).line_detail_index);
4997: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
4998: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
4999: ELSE
5000: l_calc_quantity :=
5001: nvl(nvl(l_adj_tbl(j).group_quantity
5002: , l_adj_tbl(j).group_amount) -- this is group_amount_per_unit
5003: , nvl(l_adj_tbl(j).priced_quantity
5004: , l_adj_tbl(j).line_priced_quantity));
5005: END IF;--G_Service_pbh_lg_amt_qty.exists
5006: ELSIF l_adj_tbl(j).modifier_level_code = G_LINE_LEVEL THEN
5007: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
5008: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
5009: ELSE
5010: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
5011: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
5004: , l_adj_tbl(j).line_priced_quantity));
5005: END IF;--G_Service_pbh_lg_amt_qty.exists
5006: ELSIF l_adj_tbl(j).modifier_level_code = G_LINE_LEVEL THEN
5007: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_adj_tbl(j).line_ind) THEN
5008: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
5009: ELSE
5010: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
5011: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
5012: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists
5008: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_adj_tbl(j).line_ind);
5009: ELSE
5010: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
5011: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
5012: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists
5013: END IF;--l_adj_tbl(j).modifier_level_code
5014: ELSE
5015: IF l_adj_tbl(j).modifier_level_code = G_LINE_GROUP
5016: -- and nvl(l_adj_tbl(j).is_ldet_rec,G_YES) = G_YES
5023: ELSE
5024: l_calc_quantity := nvl(l_adj_tbl(j).line_priced_quantity
5025: , l_adj_tbl(j).priced_quantity) ; -- request line qty, shu fix recurring 2702384
5026: END IF;
5027: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists(
5028:
5029: l_calc_quantity := nvl(l_calc_quantity, 1);
5030:
5031: -- SHU
5033: -- group_amount is 40, group_amount_per_unit
5034: -- line_priced_quantity is 20, order qty for line 1
5035:
5036: IF l_debug = FND_API.G_TRUE THEN -- SHU
5037: QP_PREQ_GRP.engine_debug(
5038: 'figuring out qty level '|| l_adj_tbl(j).modifier_level_code
5039: ||' priced_quantity '|| l_adj_tbl(j).priced_quantity -- from ldets.line_quantity
5040: ||' group_quantity '|| l_adj_tbl(j).group_quantity
5041: ||' group_amount '|| l_adj_tbl(j).group_amount
5047: AND l_adj_tbl(j).pricing_status_code
5048: IN (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5049: THEN
5050: IF l_debug = FND_API.G_TRUE THEN
5051: QP_PREQ_GRP.engine_debug('Processing Price Break. call Price_Break_Calculation');
5052:
5053: END IF;
5054:
5055: --changes for PBH line group LUMPSUM bug 2388011 commented out
5098: l_req_value_per_unit := l_adj_tbl(j).line_priced_quantity; --20
5099: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848 SL_latest move to here as default
5100: END IF;
5101: IF l_debug = FND_API.G_TRUE THEN
5102: QP_PREQ_GRP.engine_debug('l_qualifier_value default: '|| l_adj_tbl(j).priced_quantity);
5103: QP_PREQ_GRP.engine_debug('l_qualifier_value : '|| l_qualifier_value);
5104: END IF; -- end debug
5105: -- begin 2892848
5106: -- net_amount line level (not group of line) modifier
5099: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848 SL_latest move to here as default
5100: END IF;
5101: IF l_debug = FND_API.G_TRUE THEN
5102: QP_PREQ_GRP.engine_debug('l_qualifier_value default: '|| l_adj_tbl(j).priced_quantity);
5103: QP_PREQ_GRP.engine_debug('l_qualifier_value : '|| l_qualifier_value);
5104: END IF; -- end debug
5105: -- begin 2892848
5106: -- net_amount line level (not group of line) modifier
5107: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5105: -- begin 2892848
5106: -- net_amount line level (not group of line) modifier
5107: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5108: IF l_debug = FND_API.G_TRUE THEN
5109: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_adj_tbl(J).created_from_list_line_id);
5110: END IF; -- end debug
5111:
5112: /* SL_latest 2892848
5113: IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5113: IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5114: -- priced_quantity is line amount, line_priced_quantity is order qty
5115: l_qualifier_value:= l_adj_tbl(j).priced_quantity + nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0)* l_adj_tbl(j).line_priced_quantity;
5116: IF l_debug = FND_API.G_TRUE THEN
5117: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5118: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5119: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0) );
5120: END IF; -- end debug
5121: ELSE
5114: -- priced_quantity is line amount, line_priced_quantity is order qty
5115: l_qualifier_value:= l_adj_tbl(j).priced_quantity + nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0)* l_adj_tbl(j).line_priced_quantity;
5116: IF l_debug = FND_API.G_TRUE THEN
5117: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5118: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5119: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0) );
5120: END IF; -- end debug
5121: ELSE
5122: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5115: l_qualifier_value:= l_adj_tbl(j).priced_quantity + nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0)* l_adj_tbl(j).line_priced_quantity;
5116: IF l_debug = FND_API.G_TRUE THEN
5117: QP_PREQ_GRP.engine_debug('line amount: '||l_adj_tbl(j).priced_quantity);
5118: QP_PREQ_GRP.engine_debug('order qty : '||l_adj_tbl(j).line_priced_quantity);
5119: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_adj_tbl(j).line_ind),0) );
5120: END IF; -- end debug
5121: ELSE
5122: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5123: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j))
5122: l_qualifier_value:= l_adj_tbl(j).priced_quantity;
5123: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j))
5124:
5125: IF l_debug = FND_API.G_TRUE THEN
5126: QP_PREQ_GRP.engine_debug('line level net amount: '||l_qualifier_value);
5127: END IF; -- end debug
5128: ELSE -- not net_amount modifier
5129: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5130:
5128: ELSE -- not net_amount modifier
5129: l_qualifier_value := l_adj_tbl(j).priced_quantity; --2892848
5130:
5131: IF l_debug = FND_API.G_TRUE THEN
5132: QP_PREQ_GRP.engine_debug('not net amount pbh qualifier value: '||l_qualifier_value);
5133: END IF; -- end debug
5134: */
5135: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5136: l_qualifier_value := l_bucket_amt_tbl(l_adj_tbl(j).line_ind);
5134: */
5135: IF l_bucket_amt_tbl.EXISTS(l_adj_tbl(j).line_ind)THEN
5136: l_qualifier_value := l_bucket_amt_tbl(l_adj_tbl(j).line_ind);
5137: IF l_debug = FND_API.G_TRUE THEN
5138: QP_PREQ_GRP.engine_debug('line level net amount: '|| l_qualifier_value);
5139: END IF; -- end debug
5140: END IF; -- END IF l_bucket_amt_tbl.EXISTs
5141: END IF; -- END IF net_amount modifier
5142: -- end 2892848
5143:
5144: END IF; --G_pbhvolattr_attribute
5145:
5146: IF l_debug = FND_API.G_TRUE THEN
5147: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5148: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5149: ||' l_total_value '|| l_total_value ||' l_req_value_per_unit '
5150: || l_req_value_per_unit);
5151: END IF; --l_debug
5187: -- IF net amount linegroup modifier
5188: IF l_adj_tbl(j).net_amount_flag IN (G_YES, 'P') THEN
5189:
5190: IF l_debug = FND_API.G_TRUE THEN
5191: QP_PREQ_GRP.engine_debug('net amount linegroup modifier list_line_id: '|| l_adj_tbl(J).created_from_list_line_id);
5192: END IF; -- end debug
5193:
5194: -- begin SL_latest 2892848
5195: l_lg_net_amt := 0; --SL_latest
5219: IF nvl(l_adj_tbl(j).net_amount_flag, 'N') = 'P' THEN
5220: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5221: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id);
5222: IF l_debug = FND_API.G_TRUE THEN
5223: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5224: END IF; --end debug
5225: ELSE -- need to calculate l_lg_net_amt
5226: IF l_debug = FND_API.G_TRUE THEN
5227: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
5223: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
5224: END IF; --end debug
5225: ELSE -- need to calculate l_lg_net_amt
5226: IF l_debug = FND_API.G_TRUE THEN
5227: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
5228: END IF;
5229: -- calculate amount using product attribute net amount grouping
5230: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5231: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
5230: FOR t IN l_prod_attr_info(l_adj_tbl(j).created_from_list_line_id) LOOP
5231: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
5232: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
5233: IF l_debug = FND_API.G_TRUE THEN
5234: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
5235: END IF; --end debug
5236: ELSE
5237: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5238: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5236: ELSE
5237: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5238: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5239: IF l_debug = FND_API.G_TRUE THEN
5240: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
5241: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
5242: END IF;
5243: END IF;
5244: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5237: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
5238: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
5239: IF l_debug = FND_API.G_TRUE THEN
5240: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
5241: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
5242: END IF;
5243: END IF;
5244: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5245:
5243: END IF;
5244: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5245:
5246: IF l_debug = FND_API.G_TRUE THEN
5247: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
5248: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
5249: END IF;
5250: END LOOP;
5251:
5244: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
5245:
5246: IF l_debug = FND_API.G_TRUE THEN
5247: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
5248: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
5249: END IF;
5250: END LOOP;
5251:
5252: 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
5255:
5256: IF (l_1st_bucket = 'Y') THEN
5257:
5258: IF l_debug = FND_API.G_TRUE THEN
5259: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
5260: END IF; -- end debug
5261: l_lg_net_amt := l_adj_tbl(j).priced_quantity;
5262:
5263: ELSE -- l_1st_bucket='N'
5262:
5263: ELSE -- l_1st_bucket='N'
5264:
5265: IF l_debug = FND_API.G_TRUE THEN
5266: QP_PREQ_GRP.engine_debug(' - not first bucket');
5267: END IF; --Added For Bug No - 4033618
5268: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5269: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5270: IF l_debug = FND_API.G_TRUE THEN
5267: END IF; --Added For Bug No - 4033618
5268: IF l_mod_lg_net_amt_tbl.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5269: l_lg_net_amt := l_mod_lg_net_amt_tbl(l_adj_tbl(j).created_from_list_line_id); -- 5346093
5270: IF l_debug = FND_API.G_TRUE THEN
5271: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5272: END IF; --end debug
5273: ELSE -- need to calculate l_lg_net_amt
5274: IF l_debug = FND_API.G_TRUE THEN
5275: QP_PREQ_GRP.engine_debug('lg_net_amt for list line '|| l_adj_tbl(j).created_from_list_line_id ||' not cached');
5271: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_net_amt);
5272: END IF; --end debug
5273: ELSE -- need to calculate l_lg_net_amt
5274: IF l_debug = FND_API.G_TRUE THEN
5275: QP_PREQ_GRP.engine_debug('lg_net_amt for list line '|| l_adj_tbl(j).created_from_list_line_id ||' not cached');
5276: END IF;
5277: -- regular net amount processing
5278: l_adj_exists_in_tmp_tbl := 'N'; -- reset bug 3618464
5279: FOR t IN l_net_mod_index_cur(l_adj_tbl(j).created_from_list_line_id) LOOP
5280: l_adj_exists_in_tmp_tbl := 'Y'; -- bug 3618464
5281: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
5282: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
5283: IF l_debug = FND_API.G_TRUE THEN
5284: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
5285: END IF; --end debug
5286: ELSE
5287: l_line_bucket_amt := 0;
5288: END IF;
5288: END IF;
5289: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5290:
5291: IF l_debug = FND_API.G_TRUE THEN
5292: QP_PREQ_GRP.engine_debug('l_line_bucket_amt: ' || l_line_bucket_amt);
5293: QP_PREQ_GRP.engine_debug('up-tp-date l_lg_net_amt: ' || l_lg_net_amt); -- grp amt
5294: END IF; --end debug
5295: END LOOP; -- end l_net_mod_index_cur
5296:
5289: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5290:
5291: IF l_debug = FND_API.G_TRUE THEN
5292: QP_PREQ_GRP.engine_debug('l_line_bucket_amt: ' || l_line_bucket_amt);
5293: QP_PREQ_GRP.engine_debug('up-tp-date l_lg_net_amt: ' || l_lg_net_amt); -- grp amt
5294: END IF; --end debug
5295: END LOOP; -- end l_net_mod_index_cur
5296:
5297: -- Bug 3618464 - GROUP OF LINES, NET AMOUNT, OVERRIDE MODIFIER
5300: IF G_LINE_INDEXES_FOR_LINE_ID.EXISTS(l_adj_tbl(j).created_from_list_line_id) THEN
5301: l_line_index_str := G_LINE_INDEXES_FOR_LINE_ID(l_adj_tbl(j).created_from_list_line_id);
5302: END IF;
5303: IF l_debug = FND_API.G_TRUE THEN
5304: QP_PREQ_GRP.engine_debug('l_line_index_str = ' || l_line_index_str);
5305: END IF;
5306: IF l_line_index_str IS NOT NULL THEN
5307: LOOP
5308: l_instr_pos := instr(l_line_index_str, ',');
5313:
5314: IF l_bucket_amt_tbl.EXISTS(l_index) THEN
5315: l_line_bucket_amt := nvl(l_bucket_amt_tbl(l_index), 0);
5316: IF l_debug = FND_API.G_TRUE THEN
5317: QP_PREQ_GRP.engine_debug('Net Amount Override PBH LINEGROUP ' || l_index || ':' || l_bucket_amt_tbl(l_index));
5318: END IF; --end debug
5319: ELSE
5320: l_line_bucket_amt := 0;
5321: END IF;
5321: END IF;
5322: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
5323:
5324: IF l_debug = FND_API.G_TRUE THEN
5325: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_index ||'): '|| l_line_bucket_amt);
5326: END IF; --end debug
5327: END LOOP;
5328: END IF; --if l_line_index_str is not null
5329: END IF; --if l_adj_exists_in_tmp_tbl = 'N'
5334:
5335: END IF; -- END IF l_prev_bucket = -9999
5336:
5337: IF l_debug = FND_API.G_TRUE THEN
5338: QP_PREQ_GRP.engine_debug('final l_lg_net_amt: '|| l_lg_net_amt);
5339: END IF; --end debug
5340: -- end SL_latest
5341:
5342: -- [julin/4112395/4220399]
5360: END IF;
5361: END IF;
5362:
5363: IF l_debug = FND_API.G_TRUE THEN
5364: QP_PREQ_GRP.engine_debug('group amount: ' || l_adj_tbl(j).priced_quantity); -- grp amt
5365: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
5366: END IF; --end debug
5367:
5368: ELSE -- not net amount modifier
5361: END IF;
5362:
5363: IF l_debug = FND_API.G_TRUE THEN
5364: QP_PREQ_GRP.engine_debug('group amount: ' || l_adj_tbl(j).priced_quantity); -- grp amt
5365: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
5366: END IF; --end debug
5367:
5368: ELSE -- not net amount modifier
5369: l_qualifier_value := l_adj_tbl(j).priced_quantity; -- not net amount grouop of line modifier
5372:
5373: END IF; --G_pbhvolattr_attribute
5374:
5375: IF l_debug = FND_API.G_TRUE THEN
5376: QP_PREQ_GRP.engine_debug('PBH calc dtls attribute '
5377: || G_pbhvolattr_attribute(l_adj_tbl(j).created_from_list_line_id)
5378: ||' l_total_value '|| l_total_value --4000
5379: ||' l_req_value_per_unit '|| l_req_value_per_unit); --40
5380: END IF; --l_debug
5430: l_return_adjustment := - 1 * nvl(l_return_adjustment, 0);
5431:
5432: -- 2892848
5433: IF l_debug = FND_API.G_TRUE THEN
5434: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
5435: END IF; --l_debug
5436: -- end 2892848
5437:
5438: END IF; --l_adj_tbl(j).price_flag
5439:
5440:
5441: ELSE --created_from_list_line_type not PBH, 2892848 change comment only
5442: IF l_debug = FND_API.G_TRUE THEN
5443: QP_PREQ_GRP.engine_debug('Processing DIS/SUR/FRT: '|| l_adj_tbl(j).created_from_list_line_id); -- 2892848, change debug msg
5444: END IF; -- end debug
5445:
5446: IF l_adj_tbl(j).created_from_list_line_type = G_DISCOUNT
5447: AND l_adj_tbl(j).operand_calculation_code <> G_NEWPRICE_DISCOUNT
5452: l_sign := 1;
5453: END IF; --l_adj_tbl(j).created_from_list_line_type=g_discount
5454:
5455: IF l_debug = FND_API.G_TRUE THEN
5456: QP_PREQ_GRP.engine_debug('this check '
5457: || l_adj_tbl(j).line_type_code ||' '
5458: || l_calc_quantity ||' '|| l_adj_tbl(j).operand_calculation_code);
5459:
5460: END IF;
5463: AND l_adj_tbl(j).operand_calculation_code = G_LUMPSUM_DISCOUNT
5464: THEN
5465: l_calc_quantity := 1;
5466: IF l_debug = FND_API.G_TRUE THEN
5467: QP_PREQ_GRP.engine_debug('Order lvl qty '||
5468: l_calc_quantity);
5469: END IF;
5470: END IF;
5471:
5469: END IF;
5470: END IF;
5471:
5472: IF l_debug = FND_API.G_TRUE THEN
5473: QP_PREQ_GRP.engine_debug('this sign '|| l_sign);
5474: END IF;
5475:
5476: IF l_adj_tbl(j).PRICING_STATUS_CODE IN
5477: (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5484: THEN
5485: --to avoid rounding issues in rev calculations
5486: --for user-overridden adjustments
5487: IF l_debug = FND_API.G_TRUE THEN
5488: qp_preq_grp.engine_debug(' adj amt manual adj '||
5489: l_adj_tbl(j).adjustment_amount);
5490: END IF;
5491: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5492: ELSE
5491: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5492: ELSE
5493: */--commented to avoid overriding errors
5494: IF l_debug = FND_API.G_TRUE THEN
5495: qp_preq_grp.engine_debug(' adj amt manual adj '||
5496: l_adj_tbl(j).adjustment_amount);
5497:
5498: END IF;
5499: --bug 2691794
5507: THEN
5508: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5509: -- begin 12670913 smbalara
5510: IF l_debug = FND_API.G_TRUE THEN
5511: QP_PREQ_GRP.engine_debug('-- Debug for LUMPSUM, RETURN --');
5512: QP_PREQ_GRP.engine_debug('-- round(operand/qty, factor) => '||
5513: 'round('||l_adj_tbl(j).operand_value||'/'||
5514: l_adj_tbl(j).line_priced_quantity||', '||
5515: l_adj_tbl(j).rounding_factor||') = '||
5508: l_return_adjustment := l_adj_tbl(j).adjustment_amount;
5509: -- begin 12670913 smbalara
5510: IF l_debug = FND_API.G_TRUE THEN
5511: QP_PREQ_GRP.engine_debug('-- Debug for LUMPSUM, RETURN --');
5512: QP_PREQ_GRP.engine_debug('-- round(operand/qty, factor) => '||
5513: 'round('||l_adj_tbl(j).operand_value||'/'||
5514: l_adj_tbl(j).line_priced_quantity||', '||
5515: l_adj_tbl(j).rounding_factor||') = '||
5516: round(
5516: round(
5517: l_adj_tbl(j).operand_value/l_adj_tbl(j).line_priced_quantity,
5518: -1*l_adj_tbl(j).rounding_factor)
5519: );
5520: QP_PREQ_GRP.engine_debug('-- compare to adjustment amount '||
5521: l_adj_tbl(j).adjustment_amount);
5522: END IF;
5523: IF round(
5524: l_adj_tbl(j).operand_value/l_adj_tbl(j).line_priced_quantity,
5525: -1*l_adj_tbl(j).rounding_factor) * l_sign <>
5526: l_adj_tbl(j).adjustment_amount
5527: THEN
5528: IF l_debug = FND_API.G_TRUE THEN
5529: QP_PREQ_GRP.engine_debug('-- recalculating frtchg operand ='||
5530: 'qty*adj amt');
5531: END IF;
5532: --end 12670913 smbalara
5533: l_adj_tbl(j).operand_value :=
5536: l_sign;
5537: --begin 12670913 smbalara
5538: ELSE
5539: IF l_debug = FND_API.G_TRUE THEN
5540: QP_PREQ_GRP.engine_debug('-- keeping frtchg operand.');
5541: END IF;
5542: END IF;
5543: -- end 12670913 smbalara
5544: IF l_debug = FND_API.G_TRUE THEN
5541: END IF;
5542: END IF;
5543: -- end 12670913 smbalara
5544: IF l_debug = FND_API.G_TRUE THEN
5545: QP_PREQ_GRP.engine_debug('return line frtchg operand '
5546: || l_adj_tbl(j).operand_value ||' adj amt '
5547: || l_return_adjustment);
5548: END IF; --l_debug
5549: ELSE --l_adj_tbl(j).created_from_list_line_type = frt
5584: l_calc_quantity := l_calc_quantity / l_adj_tbl(j).unit_price;
5585: END IF;
5586: END IF; --l_pricing_attribute
5587: IF l_debug = FND_API.G_TRUE THEN
5588: QP_PREQ_GRP.engine_debug('l_calc_qty for lumpsum '
5589: || l_calc_quantity);
5590: END IF; --l_debug
5591: END IF; --l_adj_tbl(j).operand_calculation_code
5592:
5614: --returned with each line and to return only one order level
5615: --adjustment with the summary line
5616:
5617: IF (l_debug = FND_API.G_TRUE) THEN
5618: QP_PREQ_GRP.engine_debug('Is Ldet Rec : ' || l_adj_tbl(j).is_ldet_rec);
5619: END IF;
5620:
5621: IF ((l_adj_tbl(j).is_ldet_rec IN
5622: (G_LDET_LINE_TYPE, G_ADJ_LINE_TYPE, G_ASO_LINE_TYPE)
5638:
5639: --need to store this for bug 2833753
5640: G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)) := i;
5641: IF (l_debug = FND_API.G_TRUE) THEN
5642: QP_PREQ_GRP.engine_debug('Adding line details : '
5643: || l_ldet_line_dtl_index_tbl(i) ||' plsqlind '
5644: || G_ldet_plsql_index_tbl(l_ldet_line_dtl_index_tbl(i)));
5645: END IF;
5646: l_ldet_line_index_tbl(i) := l_adj_tbl(j).curr_line_index;
5648: l_adj_tbl(j).created_from_list_header_id;
5649: l_ldet_list_line_id_tbl(i) :=
5650: l_adj_tbl(j).created_from_list_line_id;
5651: IF l_debug = FND_API.G_TRUE THEN
5652: QP_PREQ_GRP.engine_debug('adjusted amt 1 ');
5653: END IF;
5654: l_ldet_list_line_type_tbl(i) :=
5655: l_adj_tbl(j).created_from_list_line_type;
5656: IF l_debug = FND_API.G_TRUE THEN
5653: END IF;
5654: l_ldet_list_line_type_tbl(i) :=
5655: l_adj_tbl(j).created_from_list_line_type;
5656: IF l_debug = FND_API.G_TRUE THEN
5657: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5658: END IF;
5659: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5660: IF l_debug = FND_API.G_TRUE THEN
5661: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5657: QP_PREQ_GRP.engine_debug('adjusted amt 2 ');
5658: END IF;
5659: l_ldet_adj_amt_tbl(i) := nvl(l_return_adjustment, 0);
5660: IF l_debug = FND_API.G_TRUE THEN
5661: QP_PREQ_GRP.engine_debug('adjusted amt 3 ');
5662: END IF;
5663:
5664: -- begin 2892848
5665: IF l_debug = FND_API.G_TRUE THEN
5662: END IF;
5663:
5664: -- begin 2892848
5665: IF l_debug = FND_API.G_TRUE THEN
5666: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_ldet_adj_amt_tbl('|| i ||'): '|| l_ldet_adj_amt_tbl(i)); -- 2892848
5667: END IF; --END IF l_debug
5668: /* SL_latest 2892848
5669: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
5670: -- only for bucket modifiers, 0 is price list line, null is reg modifier
5670: -- only for bucket modifiers, 0 is price list line, null is reg modifier
5671: IF l_adj_tbl(j).pricing_group_sequence IS NOT NULL AND l_adj_tbl(j).pricing_group_sequence <> 0 THEN
5672: IF l_bucket_adj_amt_tbl.EXISTS(l_adj_tbl(j).pricing_group_sequence) THEN -- avoid no data found or table index not exists for 1st rec
5673: IF l_debug = FND_API.G_TRUE THEN
5674: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5675: END IF; -- end debug
5676: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence),0) +
5677: nvl(l_ldet_adj_amt_tbl(i),0)* l_adj_tbl(j).line_priced_quantity;
5678:
5679: ELSE -- avoid no data found err
5680: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_ldet_adj_amt_tbl(i),0) * l_adj_tbl(j).line_priced_quantity;
5681: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5682: IF l_debug = FND_API.G_TRUE THEN
5683: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5684: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5685: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5686: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5687: END IF; -- END debug
5680: l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence):= nvl(l_ldet_adj_amt_tbl(i),0) * l_adj_tbl(j).line_priced_quantity;
5681: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5682: IF l_debug = FND_API.G_TRUE THEN
5683: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5684: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5685: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5686: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5687: END IF; -- END debug
5688:
5681: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
5682: IF l_debug = FND_API.G_TRUE THEN
5683: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5684: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5685: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5686: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5687: END IF; -- END debug
5688:
5689: -- for LINE LEVEL
5682: IF l_debug = FND_API.G_TRUE THEN
5683: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_adj_tbl(j).pricing_group_sequence);
5684: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_ldet_adj_amt_tbl(i), 0));
5685: QP_PREQ_GRP.engine_debug (' order qty: '||l_adj_tbl(j).line_priced_quantity);
5686: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_adj_tbl(j).pricing_group_sequence));
5687: END IF; -- END debug
5688:
5689: -- for LINE LEVEL
5690: IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5688:
5689: -- for LINE LEVEL
5690: IF l_bucket_index_adj_tbl.EXISTS(l_adj_tbl(j).line_ind) THEN
5691: IF l_debug = FND_API.G_TRUE THEN
5692: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0));
5693: END IF; -- end debug
5694: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind), 0) + nvl(l_ldet_adj_amt_tbl(i), 0);
5695: ELSE -- avoid no datat found err
5696: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5695: ELSE -- avoid no datat found err
5696: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5697: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
5698: IF l_debug = FND_API.G_TRUE THEN
5699: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_adj_tbl(j).line_ind);
5700: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind));
5701: END IF; -- END debug
5702: END IF; -- END IF bucket is not null and 0
5703:
5696: l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind) := nvl(l_ldet_adj_amt_tbl(i), 0);
5697: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
5698: IF l_debug = FND_API.G_TRUE THEN
5699: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_adj_tbl(j).line_ind);
5700: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_adj_tbl(j).line_ind));
5701: END IF; -- END debug
5702: END IF; -- END IF bucket is not null and 0
5703:
5704: -- end 2892848
5706: /* out 2892848
5707: --begin net_amount, 2720717
5708: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5709: IF l_debug = FND_API.G_TRUE THEN
5710: QP_PREQ_GRP.engine_debug('------ ');
5711: QP_PREQ_GRP.engine_debug('i: '||i);
5712: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5713: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5714: END IF; --END IF l_debug
5707: --begin net_amount, 2720717
5708: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5709: IF l_debug = FND_API.G_TRUE THEN
5710: QP_PREQ_GRP.engine_debug('------ ');
5711: QP_PREQ_GRP.engine_debug('i: '||i);
5712: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5713: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5714: END IF; --END IF l_debug
5715: --end net_amount, 2720717
5708: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_ldet_adj_amt_tbl(i);
5709: IF l_debug = FND_API.G_TRUE THEN
5710: QP_PREQ_GRP.engine_debug('------ ');
5711: QP_PREQ_GRP.engine_debug('i: '||i);
5712: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5713: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5714: END IF; --END IF l_debug
5715: --end net_amount, 2720717
5716: */
5709: IF l_debug = FND_API.G_TRUE THEN
5710: QP_PREQ_GRP.engine_debug('------ ');
5711: QP_PREQ_GRP.engine_debug('i: '||i);
5712: QP_PREQ_GRP.engine_debug('l_ldet_adj_amt_tbl(i): '||l_ldet_adj_amt_tbl(i));
5713: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
5714: END IF; --END IF l_debug
5715: --end net_amount, 2720717
5716: */
5717:
5722: := nvl(l_return_adjustment, 0);
5723: l_back_calc_plsql_tbl_index(l_adj_tbl(j).line_ind)
5724: := i;
5725: IF l_debug = FND_API.G_TRUE THEN
5726: QP_PREQ_GRP.engine_debug('Back calc line index '
5727: || l_back_calc_dtl_index(l_adj_tbl(j).line_ind)
5728: ||' adjamt '|| l_back_calc_adj_amt(l_adj_tbl(j).line_ind)
5729: ||' plsql ind '
5730: || l_back_calc_plsql_tbl_index(l_adj_tbl(j).line_ind));
5736: --which is the line_quantity on lines_tmp
5737: -- Ravi bug# 2745337-divisor by zero
5738: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
5739: IF (l_debug = FND_API.G_TRUE) THEN
5740: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #1');
5741: END IF;
5742: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
5743: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
5744: p_catchweight_qty => l_adj_tbl(j).catchweight_qty,
5754: x_return_status => x_return_status,
5755: x_return_status_text => x_return_status_text);
5756: ELSE
5757: IF l_debug = FND_API.G_TRUE THEN
5758: QP_PREQ_GRP.engine_debug('Ordered Qty #1: ' || l_adj_tbl(j).ordered_qty);
5759: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
5760: END IF;
5761: l_ldet_ordqty_operand_tbl(i) := 0;
5762: l_ldet_ordqty_adjamt_tbl(i) := 0;
5755: x_return_status_text => x_return_status_text);
5756: ELSE
5757: IF l_debug = FND_API.G_TRUE THEN
5758: QP_PREQ_GRP.engine_debug('Ordered Qty #1: ' || l_adj_tbl(j).ordered_qty);
5759: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
5760: END IF;
5761: l_ldet_ordqty_operand_tbl(i) := 0;
5762: l_ldet_ordqty_adjamt_tbl(i) := 0;
5763: END IF;
5762: l_ldet_ordqty_adjamt_tbl(i) := 0;
5763: END IF;
5764:
5765: IF l_debug = FND_API.G_TRUE THEN
5766: QP_PREQ_GRP.engine_debug('Printing ordqty_operand '
5767: || l_ldet_ordqty_operand_tbl(i) ||' ordqty_adjamt '
5768: || l_ldet_ordqty_adjamt_tbl(i));
5769: END IF; --l_debug
5770:
5782: ( - 1 * l_adj_tbl(j).rounding_factor));
5783: END IF;
5784:
5785: IF l_debug = FND_API.G_TRUE THEN
5786: QP_PREQ_GRP.engine_debug('rounded adj: '|| l_ldet_adj_amt_tbl(i) ||
5787: ' rounding fac '|| l_adj_tbl(j).rounding_factor ||
5788: ' ordqty_adjamt '|| l_ldet_ordqty_adjamt_tbl(i) ||
5789: ' '|| l_adj_tbl(j).curr_line_index ||' '|| l_adj_tbl(j).line_ind ||
5790: ' is_ldet_rec '|| l_adj_tbl(j).is_ldet_rec ||
5812: --l_ldet_line_quantity_tbl(i) := nvl(l_calc_quantity,1); -- 40,SHU, this is inconsistent with PL/SQL path
5813: l_ldet_line_quantity_tbl(i) := l_adj_tbl(j).priced_quantity; -- -- 2388011, SHU FIX diff PRIYA,to be the same as PL/SQL path
5814: l_ldet_is_max_frt_tbl(i) := G_NO;
5815: IF l_debug = FND_API.G_TRUE THEN
5816: QP_PREQ_GRP.engine_debug('adjusted amt 4 ');
5817:
5818: QP_PREQ_GRP.engine_debug('Returned adj : '|| i
5819: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
5820: ||' adj amt '|| l_ldet_adj_amt_tbl(i));
5814: l_ldet_is_max_frt_tbl(i) := G_NO;
5815: IF l_debug = FND_API.G_TRUE THEN
5816: QP_PREQ_GRP.engine_debug('adjusted amt 4 ');
5817:
5818: QP_PREQ_GRP.engine_debug('Returned adj : '|| i
5819: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
5820: ||' adj amt '|| l_ldet_adj_amt_tbl(i));
5821:
5822:
5823: END IF;
5824: IF l_return_status = FND_API.G_RET_STS_ERROR
5825: THEN
5826: IF l_debug = FND_API.G_TRUE THEN
5827: QP_PREQ_GRP.engine_debug('Calc Error');
5828: END IF;
5829: l_ldet_pricing_sts_code_tbl(i) := G_STATUS_CALC_ERROR;
5830: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5831: l_ldet_applied_flag_tbl(i) := G_NO;
5830: l_ldet_pricing_sts_txt_tbl(i) := l_return_status_text;
5831: l_ldet_applied_flag_tbl(i) := G_NO;
5832: ELSE
5833: IF l_debug = FND_API.G_TRUE THEN
5834: QP_PREQ_GRP.engine_debug('Calc Succ');
5835: END IF;
5836: l_ldet_pricing_sts_code_tbl(i) :=
5837: l_adj_tbl(j).pricing_status_code;
5838: IF l_adj_tbl(j).pricing_status_code = G_STATUS_UNCHANGED
5867: AND l_adj_tbl(j).pricing_status_code IN
5868: (G_STATUS_NEW, G_STATUS_UPDATED, G_STATUS_UNCHANGED)
5869: THEN
5870: IF l_debug = FND_API.G_TRUE THEN
5871: QP_PREQ_GRP.engine_debug('looping thru FRT for list_line id '
5872: || l_adj_tbl(j).created_from_list_line_id ||' adj amt '
5873: || l_ldet_adj_amt_tbl(i) ||' upd '
5874: || l_adj_tbl(j).updated_flag
5875: ||' level '|| l_adj_tbl(j).modifier_level_code);
5881: THEN
5882: --no record for charge type subtype combn
5883: --so insert into l_frt_tbl
5884: IF l_debug = FND_API.G_TRUE THEN
5885: QP_PREQ_GRP.engine_debug('No frtcharge in tbl: insert rec');
5886: END IF;
5887: l_frt_tbl(1).line_index := l_adj_tbl(j).line_ind;
5888: l_frt_tbl(1).line_detail_index :=
5889: l_adj_tbl(j).line_detail_index;
5909: END IF;
5910: ELSIF l_frt_tbl.COUNT > 0
5911: THEN
5912: IF l_debug = FND_API.G_TRUE THEN
5913: QP_PREQ_GRP.engine_debug('frtchrg records exist');
5914:
5915: END IF;
5916: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5917: LOOP
5915: END IF;
5916: FOR N IN l_frt_tbl.FIRST..l_frt_tbl.LAST
5917: LOOP
5918: IF l_debug = FND_API.G_TRUE THEN
5919: QP_PREQ_GRP.engine_debug('existing frt record id '
5920: || l_frt_tbl(N).created_from_list_line_id
5921: ||' level '|| l_frt_tbl(N).LEVEL);
5922:
5923: END IF;
5931: l_adj_tbl(j).modifier_level_code = G_LINE_GROUP))
5932: THEN
5933: --record exists for charge type subtype combn
5934: IF l_debug = FND_API.G_TRUE THEN
5935: QP_PREQ_GRP.engine_debug('charge combn match');
5936:
5937: END IF;
5938: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5939: THEN
5937: END IF;
5938: IF nvl(l_frt_tbl(N).updated_flag, G_NO) = G_NO
5939: THEN
5940: IF l_debug = FND_API.G_TRUE THEN
5941: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
5942: END IF;
5943: --only if user has not overridden
5944: --replace the record with the ct adj
5945:
5945:
5946: IF nvl(l_adj_tbl(j).updated_flag, G_NO) = G_YES
5947: THEN
5948: IF l_debug = FND_API.G_TRUE THEN
5949: QP_PREQ_GRP.engine_debug('Repl overridden rec');
5950: END IF;
5951: --if ct adj is overridden
5952: l_frt_tbl(N).line_detail_index
5953: := l_adj_tbl(j).line_detail_index;
5966: > l_frt_tbl(N).adjustment_amount
5967: THEN
5968: --if ct adj's adj amt is greater
5969: IF l_debug = FND_API.G_TRUE THEN
5970: QP_PREQ_GRP.engine_debug('replace high adjamt');
5971: END IF;
5972: l_frt_tbl(N).line_detail_index
5973: := l_adj_tbl(j).line_detail_index;
5974: l_frt_tbl(N).created_from_list_line_id
5988: ELSE
5989: --no match for charge type subtype combn
5990: --so insert into l_frt_tbl
5991: IF l_debug = FND_API.G_TRUE THEN
5992: QP_PREQ_GRP.engine_debug('charge combn no match');
5993:
5994: END IF;
5995: IF N = l_frt_tbl.LAST
5996: THEN
5996: THEN
5997: --this is the last record and the
5998: --charge type subtype combn not match
5999: IF l_debug = FND_API.G_TRUE THEN
6000: QP_PREQ_GRP.engine_debug('lastrec:insert new record');
6001: END IF;
6002: l_frt_tbl(N + 1).line_index :=
6003: l_adj_tbl(j).line_ind;
6004: l_frt_tbl(N + 1).line_detail_index :=
6043: AND l_adj_tbl(j).created_from_list_line_type
6044: <> G_FREIGHT_CHARGE
6045: THEN
6046: IF l_debug = FND_API.G_TRUE THEN
6047: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
6048: || l_adj_tbl(j).modifier_level_code ||' listlineid '
6049: || l_adj_tbl(j).created_from_list_line_id ||' adj '
6050: || l_return_adjustment ||'qty '
6051: || l_adj_tbl(j).line_priced_quantity);
6052: END IF;
6053: IF l_ord_dtl_index_tbl.COUNT = 0
6054: THEN
6055: IF l_debug = FND_API.G_TRUE THEN
6056: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
6057: END IF;
6058: l_ord_dtl_index_tbl(1) :=
6059: l_adj_tbl(j).line_detail_index;
6060: --fix for bug2424931 multiply by priced_qty
6062: nvl(l_return_adjustment, 0) *
6063: nvl(l_adj_tbl(j).line_priced_quantity, 0);
6064:
6065: IF l_debug = FND_API.G_TRUE THEN
6066: QP_PREQ_GRP.engine_debug('ord lvl1');
6067: QP_PREQ_GRP.engine_debug('ord lvl2'
6068: || l_adj_tbl(j).line_priced_quantity);
6069: QP_PREQ_GRP.engine_debug('ord lvl3'
6070: || l_adj_tbl(j).ordered_qty);
6063: nvl(l_adj_tbl(j).line_priced_quantity, 0);
6064:
6065: IF l_debug = FND_API.G_TRUE THEN
6066: QP_PREQ_GRP.engine_debug('ord lvl1');
6067: QP_PREQ_GRP.engine_debug('ord lvl2'
6068: || l_adj_tbl(j).line_priced_quantity);
6069: QP_PREQ_GRP.engine_debug('ord lvl3'
6070: || l_adj_tbl(j).ordered_qty);
6071: QP_PREQ_GRP.engine_debug('ord lvl4'
6065: IF l_debug = FND_API.G_TRUE THEN
6066: QP_PREQ_GRP.engine_debug('ord lvl1');
6067: QP_PREQ_GRP.engine_debug('ord lvl2'
6068: || l_adj_tbl(j).line_priced_quantity);
6069: QP_PREQ_GRP.engine_debug('ord lvl3'
6070: || l_adj_tbl(j).ordered_qty);
6071: QP_PREQ_GRP.engine_debug('ord lvl4'
6072: || l_adj_tbl(j).catchweight_qty);
6073: QP_PREQ_GRP.engine_debug('ord lvl5'
6067: QP_PREQ_GRP.engine_debug('ord lvl2'
6068: || l_adj_tbl(j).line_priced_quantity);
6069: QP_PREQ_GRP.engine_debug('ord lvl3'
6070: || l_adj_tbl(j).ordered_qty);
6071: QP_PREQ_GRP.engine_debug('ord lvl4'
6072: || l_adj_tbl(j).catchweight_qty);
6073: QP_PREQ_GRP.engine_debug('ord lvl5'
6074: || l_adj_tbl(j).actual_order_qty);
6075: QP_PREQ_GRP.engine_debug('ord lvl6'
6069: QP_PREQ_GRP.engine_debug('ord lvl3'
6070: || l_adj_tbl(j).ordered_qty);
6071: QP_PREQ_GRP.engine_debug('ord lvl4'
6072: || l_adj_tbl(j).catchweight_qty);
6073: QP_PREQ_GRP.engine_debug('ord lvl5'
6074: || l_adj_tbl(j).actual_order_qty);
6075: QP_PREQ_GRP.engine_debug('ord lvl6'
6076: || l_adj_tbl(j).operand_value);
6077: QP_PREQ_GRP.engine_debug('ord lvl7'
6071: QP_PREQ_GRP.engine_debug('ord lvl4'
6072: || l_adj_tbl(j).catchweight_qty);
6073: QP_PREQ_GRP.engine_debug('ord lvl5'
6074: || l_adj_tbl(j).actual_order_qty);
6075: QP_PREQ_GRP.engine_debug('ord lvl6'
6076: || l_adj_tbl(j).operand_value);
6077: QP_PREQ_GRP.engine_debug('ord lvl7'
6078: || l_adj_tbl(j).unit_price);
6079: QP_PREQ_GRP.engine_debug('ord lvl8'
6073: QP_PREQ_GRP.engine_debug('ord lvl5'
6074: || l_adj_tbl(j).actual_order_qty);
6075: QP_PREQ_GRP.engine_debug('ord lvl6'
6076: || l_adj_tbl(j).operand_value);
6077: QP_PREQ_GRP.engine_debug('ord lvl7'
6078: || l_adj_tbl(j).unit_price);
6079: QP_PREQ_GRP.engine_debug('ord lvl8'
6080: || l_adj_tbl(j).operand_calculation_code);
6081: QP_PREQ_GRP.engine_debug('ord lvl9'
6075: QP_PREQ_GRP.engine_debug('ord lvl6'
6076: || l_adj_tbl(j).operand_value);
6077: QP_PREQ_GRP.engine_debug('ord lvl7'
6078: || l_adj_tbl(j).unit_price);
6079: QP_PREQ_GRP.engine_debug('ord lvl8'
6080: || l_adj_tbl(j).operand_calculation_code);
6081: QP_PREQ_GRP.engine_debug('ord lvl9'
6082: || l_return_adjustment);
6083: QP_PREQ_GRP.engine_debug('ord lvl10'
6077: QP_PREQ_GRP.engine_debug('ord lvl7'
6078: || l_adj_tbl(j).unit_price);
6079: QP_PREQ_GRP.engine_debug('ord lvl8'
6080: || l_adj_tbl(j).operand_calculation_code);
6081: QP_PREQ_GRP.engine_debug('ord lvl9'
6082: || l_return_adjustment);
6083: QP_PREQ_GRP.engine_debug('ord lvl10'
6084: || l_sub_total_price);
6085: END IF; --l_debug
6079: QP_PREQ_GRP.engine_debug('ord lvl8'
6080: || l_adj_tbl(j).operand_calculation_code);
6081: QP_PREQ_GRP.engine_debug('ord lvl9'
6082: || l_return_adjustment);
6083: QP_PREQ_GRP.engine_debug('ord lvl10'
6084: || l_sub_total_price);
6085: END IF; --l_debug
6086:
6087: --l_ord_qty_adj_amt_tbl
6110: l_ord_qty_operand_tbl(1) := l_ord_qty_operand;
6111: l_ord_qty_adj_amt_tbl(1) := l_ord_qty_adj_amt;
6112:
6113: IF l_debug = FND_API.G_TRUE THEN
6114: QP_PREQ_GRP.engine_debug('ord lvl firstrec'
6115: ||' adjamt '|| l_ord_adj_amt_tbl(1)
6116: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(1)
6117: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(1));
6118: END IF;
6120: FOR n IN
6121: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
6122: LOOP
6123: IF l_debug = FND_API.G_TRUE THEN
6124: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
6125: l_ord_dtl_index_tbl(n) ||' current rec index '
6126: || l_adj_tbl(j).line_detail_index
6127: ||' count '|| l_ord_dtl_index_tbl.COUNT
6128: ||' lastrec dtl index '
6132: IF l_ord_dtl_index_tbl(n) =
6133: l_adj_tbl(j).line_detail_index
6134: THEN
6135: IF l_debug = FND_API.G_TRUE THEN
6136: QP_PREQ_GRP.engine_debug('found match '
6137: ||' ct adjamt '|| l_ord_adj_amt_tbl(n));
6138: END IF;
6139: --fix for bug2424931 multiply by priced_qty
6140: l_ord_adj_amt_tbl(n) := l_ord_adj_amt_tbl(n) +
6169: l_ord_qty_adj_amt_tbl(n) + l_ord_qty_adj_amt;
6170: l_ord_qty_operand_tbl(n) := l_ord_qty_operand;
6171:
6172: IF l_debug = FND_API.G_TRUE THEN
6173: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
6174: l_ord_adj_amt_tbl(n)
6175: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6176: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(n));
6177: END IF;
6181: AND l_ord_dtl_index_tbl(n) <>
6182: l_adj_tbl(j).line_detail_index
6183: THEN
6184: IF l_debug = FND_API.G_TRUE THEN
6185: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
6186: l_adj_tbl(j).line_detail_index ||' adjamt '
6187: || l_return_adjustment
6188: ||' qty '|| l_adj_tbl(j).line_priced_quantity);
6189: END IF;
6223: l_ord_qty_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
6224: := l_ord_qty_adj_amt;
6225:
6226: IF l_debug = FND_API.G_TRUE THEN
6227: QP_PREQ_GRP.engine_debug('ord lvl lastadjamt '||
6228: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6229: END IF;
6230: END IF; -----l_ord_dtl_index_tbl(n)
6231: IF l_debug = FND_API.G_TRUE THEN
6228: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
6229: END IF;
6230: END IF; -----l_ord_dtl_index_tbl(n)
6231: IF l_debug = FND_API.G_TRUE THEN
6232: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
6233: || l_ord_dtl_index_tbl(n) ||' adj amt '
6234: || l_ord_adj_amt_tbl(n)
6235: ||' ordqtyadjamt '|| l_ord_qty_adj_amt_tbl(n)
6236: ||' ordqtyoperand '|| l_ord_qty_operand_tbl(n));
6257: l_return_adjustment := round (l_return_adjustment, - 1 * l_adj_tbl(j).rounding_factor);
6258: END IF; -- end rounding
6259: -- end 2892848_latest
6260: IF l_debug = FND_API.G_TRUE THEN
6261: QP_PREQ_GRP.engine_debug('prev USP: '|| l_adjusted_price);
6262: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6263: END IF;
6264:
6265: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6258: END IF; -- end rounding
6259: -- end 2892848_latest
6260: IF l_debug = FND_API.G_TRUE THEN
6261: QP_PREQ_GRP.engine_debug('prev USP: '|| l_adjusted_price);
6262: QP_PREQ_GRP.engine_debug('current adjustment: '|| l_return_adjustment);
6263: END IF;
6264:
6265: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6266: IF l_debug = FND_API.G_TRUE THEN
6263: END IF;
6264:
6265: l_adjusted_price := l_adjusted_price + nvl(l_return_adjustment, 0);
6266: IF l_debug = FND_API.G_TRUE THEN
6267: QP_PREQ_GRP.engine_debug('adjusted price, i.e. current USP : '|| l_adjusted_price); -- 2892848, good place to debug current USP
6268: END IF;
6269: END IF; --created_from_list_line_type
6270:
6271: IF l_debug = FND_API.G_TRUE THEN
6269: END IF; --created_from_list_line_type
6270:
6271: IF l_debug = FND_API.G_TRUE THEN
6272:
6273: QP_PREQ_GRP.engine_debug('Processed lines: line index'
6274: || l_adj_tbl(j).line_ind ||' adjusted price '
6275: --||l_adj_tbl(j).updated_adjusted_unit_price -- 2892848
6276: || l_adjusted_price -- 2892848
6277: ||' adjustment count '|| l_ldet_line_dtl_index_tbl.COUNT);
6284:
6285: IF line_change = TRUE
6286: THEN
6287: IF l_debug = FND_API.G_TRUE THEN
6288: QP_PREQ_GRP.engine_debug('line change ');
6289: END IF;
6290:
6291: --[julin/5025231]
6292: --x := x + 1;
6302:
6303: --x:=l_adj_tbl(j).line_ind; -- 2892848, 3126019
6304:
6305: IF l_debug = FND_API.G_TRUE THEN
6306: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6307: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6308: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6309:
6310: END IF;
6303: --x:=l_adj_tbl(j).line_ind; -- 2892848, 3126019
6304:
6305: IF l_debug = FND_API.G_TRUE THEN
6306: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6307: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6308: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6309:
6310: END IF;
6311: --Update the adjustment amount for each adjustment
6304:
6305: IF l_debug = FND_API.G_TRUE THEN
6306: QP_PREQ_GRP.engine_debug('Update the adjustment amount for each adjustment...');
6307: QP_PREQ_GRP.engine_debug('line_ind: '|| l_adj_tbl(j).line_ind);
6308: QP_PREQ_GRP.engine_debug('changing price in line_tbl('|| x || ')');
6309:
6310: END IF;
6311: --Update the adjustment amount for each adjustment
6312: l_line_index_tbl(x) := l_adj_tbl(j).line_ind;
6330:
6331: -- Ravi bug# 2745337-divisor by zero
6332: IF (l_adj_tbl(j).ordered_qty <> 0 OR l_adj_tbl(j).modifier_level_code = 'ORDER') THEN
6333: IF (l_debug = FND_API.G_TRUE) THEN
6334: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #2');
6335: END IF;
6336: GET_ORDERQTY_VALUES(p_ordered_qty => l_adj_tbl(j).ordered_qty,
6337: p_priced_qty => l_adj_tbl(j).line_priced_quantity,
6338: p_catchweight_qty => l_adj_tbl(j).catchweight_qty,
6346: x_return_status => x_return_status,
6347: x_return_status_text => x_return_status_text);
6348: ELSE
6349: IF l_debug = FND_API.G_TRUE THEN
6350: QP_PREQ_GRP.engine_debug('Ordered Qty #2 : ' || l_adj_tbl(j).ordered_qty);
6351: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is 0 or modifier level code is not ORDER');
6352: END IF;
6353: l_ordqty_unit_price_tbl(x) := 0;
6354: l_ordqty_selling_price_tbl(x) := 0;
6347: x_return_status_text => x_return_status_text);
6348: ELSE
6349: IF l_debug = FND_API.G_TRUE THEN
6350: QP_PREQ_GRP.engine_debug('Ordered Qty #2 : ' || l_adj_tbl(j).ordered_qty);
6351: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is 0 or modifier level code is not ORDER');
6352: END IF;
6353: l_ordqty_unit_price_tbl(x) := 0;
6354: l_ordqty_selling_price_tbl(x) := 0;
6355: END IF;
6354: l_ordqty_selling_price_tbl(x) := 0;
6355: END IF;
6356:
6357: IF l_debug = FND_API.G_TRUE THEN
6358: QP_PREQ_GRP.engine_debug('Printing ordqty_selling_price '
6359: || l_ordqty_selling_price_tbl(x) ||' unit_price '
6360: || l_ordqty_unit_price_tbl(x));
6361: END IF; --l_debug
6362:
6388:
6389: and l_rounding_factor_tbl(x) IS NOT NULL
6390: THEN
6391: IF l_debug = FND_API.G_TRUE THEN
6392: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6393: ||l_rounding_factor_tbl(x));
6394: END IF;
6395: l_adj_unit_price_tbl(x) :=
6396: round(l_adj_unit_price_tbl(x),-1*l_rounding_factor_tbl(x));
6408: G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))) :=
6409: l_adj_unit_price_tbl(x);
6410:
6411: IF l_debug = FND_API.G_TRUE THEN
6412: QP_PREQ_GRP.engine_debug('oldfgline line ind '
6413: || l_line_index_tbl(x) ||' adjprice '
6414: || G_PRG_UNCH_CALC_PRICE_TBL(G_PRG_UNCH_LINE_IND_TBL(l_line_index_tbl(x))));
6415: END IF; --l_debug
6416: END IF; --G_PRG_UNCH_LINE_IND_TBL
6415: END IF; --l_debug
6416: END IF; --G_PRG_UNCH_LINE_IND_TBL
6417:
6418: IF l_debug = FND_API.G_TRUE THEN
6419: QP_PREQ_GRP.engine_debug('price in line_tbl'
6420: ||' table index '|| x
6421: ||' line index '|| l_line_index_tbl(x)
6422: ||' adjusted price '|| l_adj_unit_price_tbl(x)
6423: ||' orduomsellingprice '|| l_ordqty_selling_price_tbl(x)
6425: ||' amt changed '|| l_amount_changed_tbl(x));
6426:
6427:
6428:
6429: QP_PREQ_GRP.engine_debug('going to next line --------------'
6430: || i ||' x '|| x);
6431: END IF;
6432: J := l_adj_tbl.NEXT(j);
6433: END LOOP;
6431: END IF;
6432: J := l_adj_tbl.NEXT(j);
6433: END LOOP;
6434: IF l_debug = FND_API.G_TRUE THEN
6435: QP_PREQ_GRP.engine_debug('----------------------------------');
6436:
6437: END IF;
6438: IF l_frt_tbl.COUNT > 0
6439: OR l_ldet_line_dtl_index_tbl.COUNT > 0
6441: x := l_ldet_line_dtl_index_tbl.FIRST;
6442: WHILE x IS NOT NULL
6443: LOOP
6444: IF l_debug = FND_API.G_TRUE THEN
6445: QP_PREQ_GRP.engine_debug('frt charge processing listlineid1 ');
6446: QP_PREQ_GRP.engine_debug('frt charge processing listlineid '
6447: || l_ldet_line_dtl_index_tbl(x) ||' type '
6448: || l_ldet_list_line_type_tbl(x) ||' is max frt ');
6449: END IF;
6442: WHILE x IS NOT NULL
6443: LOOP
6444: IF l_debug = FND_API.G_TRUE THEN
6445: QP_PREQ_GRP.engine_debug('frt charge processing listlineid1 ');
6446: QP_PREQ_GRP.engine_debug('frt charge processing listlineid '
6447: || l_ldet_line_dtl_index_tbl(x) ||' type '
6448: || l_ldet_list_line_type_tbl(x) ||' is max frt ');
6449: END IF;
6450: -- ||l_ldet_is_max_frt_tbl(x));
6450: -- ||l_ldet_is_max_frt_tbl(x));
6451:
6452: --fix for bug2424931 update order lvl adj amt
6453: IF (l_debug = FND_API.G_TRUE) THEN
6454: QP_PREQ_GRP.engine_debug('Modifier Level : ' || l_ldet_modifier_level_tbl(x));
6455: END IF;
6456:
6457: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6458: THEN
6456:
6457: IF l_ldet_modifier_level_tbl(x) = G_ORDER_LEVEL
6458: THEN
6459: IF l_debug = FND_API.G_TRUE THEN
6460: QP_PREQ_GRP.engine_debug('update ord lvl adj amt '
6461: ||'looping thru dtlind '|| l_ldet_line_dtl_index_tbl(x));
6462: END IF;
6463: i := l_ord_dtl_index_tbl.FIRST;
6464: WHILE i IS NOT NULL
6466: IF l_ord_dtl_index_tbl(i) =
6467: l_ldet_line_dtl_index_tbl(x)
6468: THEN
6469: IF l_debug = FND_API.G_TRUE THEN
6470: QP_PREQ_GRP.engine_debug('update ord lvl '
6471: ||' line_dtl_index '|| l_ord_dtl_index_tbl(i)
6472: ||'adj amt '|| l_ord_adj_amt_tbl(i));
6473: END IF;
6474: l_ldet_adj_amt_tbl(x) :=
6486:
6487: IF l_ldet_list_line_type_tbl(x) = G_FREIGHT_CHARGE
6488: THEN
6489: IF l_debug = FND_API.G_TRUE THEN
6490: QP_PREQ_GRP.engine_debug('frt charge processing listlineid2 ');
6491: END IF;
6492: y := l_frt_tbl.FIRST;
6493: WHILE y IS NOT NULL
6494: LOOP
6492: y := l_frt_tbl.FIRST;
6493: WHILE y IS NOT NULL
6494: LOOP
6495: IF l_debug = FND_API.G_TRUE THEN
6496: QP_PREQ_GRP.engine_debug('frt charge processing listlineid3 ');
6497: QP_PREQ_GRP.engine_debug('l_ldet_line_index_tbl(x): '|| l_ldet_line_index_tbl(x));
6498: END IF;
6499: IF l_frt_tbl(y).line_detail_index =
6500: l_ldet_line_dtl_index_tbl(x)
6493: WHILE y IS NOT NULL
6494: LOOP
6495: IF l_debug = FND_API.G_TRUE THEN
6496: QP_PREQ_GRP.engine_debug('frt charge processing listlineid3 ');
6497: QP_PREQ_GRP.engine_debug('l_ldet_line_index_tbl(x): '|| l_ldet_line_index_tbl(x));
6498: END IF;
6499: IF l_frt_tbl(y).line_detail_index =
6500: l_ldet_line_dtl_index_tbl(x)
6501: AND l_ldet_line_index_tbl(x) = -- 2892848 fix bug,
6501: AND l_ldet_line_index_tbl(x) = -- 2892848 fix bug,
6502: l_frt_tbl(y).line_index -- 2892848 fix bug
6503: THEN
6504: IF l_debug = FND_API.G_TRUE THEN
6505: QP_PREQ_GRP.engine_debug('frt charge processing listlineid4 ');
6506: END IF;
6507: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6508: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6509: l_frt_tbl.DELETE(y);
6507: l_ldet_pricing_sts_code_tbl(x) := G_STATUS_NEW;
6508: l_ldet_pricing_sts_txt_tbl(x) := 'MAX FRT CHARGE';
6509: l_frt_tbl.DELETE(y);
6510: IF l_debug = FND_API.G_TRUE THEN
6511: QP_PREQ_GRP.engine_debug('frt charge retaind '
6512: || l_ldet_list_line_id_tbl(x) ||' '
6513: || l_ldet_pricing_sts_code_tbl(x));
6514: END IF;
6515: END IF;
6518: END IF; --frt_charge
6519: x := l_ldet_line_dtl_index_tbl.NEXT(x);
6520: END LOOP; --ldet_line_dtl_index_tbl
6521: IF l_debug = FND_API.G_TRUE THEN
6522: QP_PREQ_GRP.engine_debug('----------------------------------');
6523: END IF;
6524: END IF; --frt_tbl.count
6525:
6526: IF l_debug = FND_API.G_TRUE THEN
6523: END IF;
6524: END IF; --frt_tbl.count
6525:
6526: IF l_debug = FND_API.G_TRUE THEN
6527: QP_PREQ_GRP.engine_debug('----------------------------------');
6528:
6529: END IF;
6530: --**************************************************************
6531: --BACK CALCULATION ROUTINE
6532: --**************************************************************
6533: --xxxxxxxxxxxxxx
6534:
6535: IF l_debug = FND_API.G_TRUE THEN
6536: QP_PREQ_GRP.engine_debug('back calculation for line ');
6537: END IF;
6538: IF l_line_index_tbl.COUNT > 0
6539: THEN
6540: IF l_debug = FND_API.G_TRUE THEN
6537: END IF;
6538: IF l_line_index_tbl.COUNT > 0
6539: THEN
6540: IF l_debug = FND_API.G_TRUE THEN
6541: QP_PREQ_GRP.engine_debug('back calculation1 for line ');
6542: END IF;
6543: i := l_line_index_tbl.FIRST;
6544: WHILE i IS NOT NULL
6545: LOOP
6543: i := l_line_index_tbl.FIRST;
6544: WHILE i IS NOT NULL
6545: LOOP
6546: IF l_debug = FND_API.G_TRUE THEN
6547: QP_PREQ_GRP.engine_debug('back calculation2 for line '
6548: || l_amount_changed_tbl(i));
6549: END IF; --l_debug
6550:
6551: IF l_back_calc_dtl_index.EXISTS(l_line_index_tbl(i)) THEN
6557: l_back_calc_dtl_ind := 0;
6558: l_back_calc_plsql_index := 0;
6559: END IF;
6560: IF l_debug = FND_API.G_TRUE THEN
6561: QP_PREQ_GRP.engine_debug('prev back calculation rec '
6562: || l_back_calc_dtl_ind
6563: ||' plsql '|| l_back_calc_plsql_index
6564: ||' adj amt '|| l_back_calc_adj_amount);
6565: END IF; --l_debug
6572: AND ((l_upd_adj_unit_price_tbl(i) -
6573: l_adj_unit_price_tbl(i)) <> 0)
6574: THEN
6575: IF l_debug = FND_API.G_TRUE THEN
6576: QP_PREQ_GRP.engine_debug('back calculation for line '
6577: || l_line_index_tbl(i));
6578:
6579: END IF;
6580:
6607: l_back_calc_adj_amount)
6608: - l_adj_unit_price_tbl(i);
6609:
6610: IF l_debug = FND_API.G_TRUE THEN
6611: QP_PREQ_GRP.engine_debug('amt changed '
6612: || l_amount_changed_tbl(i));
6613: END IF; --l_debug
6614:
6615: IF l_amount_changed_tbl(i) <= 0 THEN
6635: l_tbl_index := l_ldet_line_dtl_index_tbl.COUNT + 1;
6636: END IF; --G_ldet_plsql_index_tbl
6637:
6638: IF l_debug = FND_API.G_TRUE THEN
6639: QP_PREQ_GRP.engine_debug('back cal succ insert rec '
6640: || l_tbl_index);
6641: END IF;
6642: l_ldet_line_dtl_index_tbl(l_tbl_index) :=
6643: l_back_calc_ret_rec.line_detail_index;
6722: IF (l_ordered_qty_tbl(i) <> 0
6723: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6724: G_ORDER_LEVEL) THEN
6725: IF (l_debug = FND_API.G_TRUE) THEN
6726: QP_PREQ_GRP.engine_debug('Before Going into '
6727: ||'GET_ORDERQTY_VALUES #2.5');
6728: END IF; --l_debug
6729: GET_ORDERQTY_VALUES(p_ordered_qty =>
6730: l_ordered_qty_tbl(i),
6740: x_return_status => x_return_status,
6741: x_return_status_text => x_return_status_text);
6742: ELSE --ordered_qty
6743: IF l_debug = FND_API.G_TRUE THEN
6744: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
6745: || l_ordered_qty_tbl(i));
6746: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
6747: ||'0 or modifier level code is not ORDER');
6748: END IF; --l_debug
6742: ELSE --ordered_qty
6743: IF l_debug = FND_API.G_TRUE THEN
6744: QP_PREQ_GRP.engine_debug('Ordered Qty #2.5 : '
6745: || l_ordered_qty_tbl(i));
6746: QP_PREQ_GRP.engine_debug('SELLING PRICE Ordered Qty is '
6747: ||'0 or modifier level code is not ORDER');
6748: END IF; --l_debug
6749: l_ordqty_unit_price_tbl(i) := 0;
6750: l_ordqty_selling_price_tbl(i) := 0;
6763: IF (l_ordered_qty_tbl(i) <> 0
6764: OR l_ldet_modifier_level_tbl(l_tbl_index) =
6765: G_ORDER_LEVEL) THEN
6766: IF (l_debug = FND_API.G_TRUE) THEN
6767: QP_PREQ_GRP.engine_debug('Before Going into GET_ORDERQTY_VALUES #3');
6768: END IF;
6769: GET_ORDERQTY_VALUES(p_ordered_qty => l_ordered_qty_tbl(i),
6770: p_priced_qty => l_line_priced_qty_tbl(i),
6771: p_catchweight_qty => l_catchweight_qty_tbl(i),
6781: x_return_status => x_return_status,
6782: x_return_status_text => x_return_status_text);
6783: ELSE
6784: IF l_debug = FND_API.G_TRUE THEN
6785: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_ordered_qty_tbl(i));
6786: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
6787: END IF;
6788: l_ldet_ordqty_operand_tbl(l_tbl_index) := 0;
6789: l_ldet_ordqty_adjamt_tbl(l_tbl_index) := 0;
6782: x_return_status_text => x_return_status_text);
6783: ELSE
6784: IF l_debug = FND_API.G_TRUE THEN
6785: QP_PREQ_GRP.engine_debug('Ordered Qty #3 : ' || l_ordered_qty_tbl(i));
6786: QP_PREQ_GRP.engine_debug('OPERAND Ordered Qty is 0 or modifier level code is not ORDER');
6787: END IF;
6788: l_ldet_ordqty_operand_tbl(l_tbl_index) := 0;
6789: l_ldet_ordqty_adjamt_tbl(l_tbl_index) := 0;
6790: END IF;
6810: --IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu fix 2239061
6811: AND l_rounding_factor_tbl(i) IS NOT NULL
6812: THEN
6813: IF l_debug = FND_API.G_TRUE THEN
6814: QP_PREQ_GRP.engine_debug('need to round selling price, rounding factor: '
6815: || l_rounding_factor_tbl(i));
6816: END IF;
6817: l_adj_unit_price_tbl(i) :=
6818: round(l_adj_unit_price_tbl(i)
6826: END IF;
6827:
6828: ELSE --ret_status
6829: IF l_debug = FND_API.G_TRUE THEN
6830: QP_PREQ_GRP.engine_debug('back cal fail no insert rec');
6831: END IF;
6832: l_pricing_sts_code_tbl(i) := l_return_status;
6833: l_pricing_sts_txt_tbl(i) :=
6834: l_return_status_text;
6837: i := l_line_index_tbl.NEXT(i);
6838: END LOOP;
6839: END IF; --count > 0
6840: IF l_debug = FND_API.G_TRUE THEN
6841: QP_PREQ_GRP.engine_debug('end back calc for line ');
6842:
6843: END IF;
6844: ---------------------------------------------------------------------
6845: --Debug Info
6843: END IF;
6844: ---------------------------------------------------------------------
6845: --Debug Info
6846: ---------------------------------------------------------------------
6847: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6848: THEN
6849: IF l_debug = FND_API.G_TRUE THEN
6850: QP_PREQ_GRP.engine_debug('in debug --------------');
6851: END IF;
6846: ---------------------------------------------------------------------
6847: IF QP_PREQ_GRP.g_debug_engine = fnd_api.g_true
6848: THEN
6849: IF l_debug = FND_API.G_TRUE THEN
6850: QP_PREQ_GRP.engine_debug('in debug --------------');
6851: END IF;
6852: j := l_line_index_tbl.FIRST;
6853: WHILE j IS NOT NULL
6854: LOOP
6868: END IF; -- end rounding 2892848
6869: */
6870:
6871: IF l_debug = FND_API.G_TRUE THEN
6872: QP_PREQ_GRP.engine_debug('(No final rounding) Line Info '|| j
6873: ||' line index '|| l_line_index_tbl(j)
6874: ||' unit price '|| l_unit_price_tbl(j)
6875: ||' final adjusted_unit_price '|| l_adj_unit_price_tbl(j)
6876: ||' pricing_status_code '|| l_pricing_sts_code_tbl(j)
6878: END IF;
6879: -- ||' processed_flag '||l_processed_flag_tbl(j));
6880: -- ||' processed_code '||l_processed_code_tbl(j));
6881: IF l_debug = FND_API.G_TRUE THEN
6882: QP_PREQ_GRP.engine_debug('----------------------------------');
6883: END IF;
6884: i := l_ldet_line_dtl_index_tbl.FIRST;
6885: WHILE i IS NOT NULL
6886: LOOP
6886: LOOP
6887: IF l_line_index_tbl(j) = l_ldet_line_index_tbl(i)
6888: THEN
6889: IF l_debug = FND_API.G_TRUE THEN
6890: QP_PREQ_GRP.engine_debug('Line detail Info '|| i
6891: ||' line detail index '|| l_ldet_line_dtl_index_tbl(i)
6892: ||' list_line_id '|| l_ldet_list_line_id_tbl(i)
6893: ||' operand '|| l_ldet_operand_value_tbl(i)
6894: ||' adjustment amount '|| l_ldet_adj_amt_tbl(i)
6900: END IF;
6901: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6902: END LOOP;
6903: IF l_debug = FND_API.G_TRUE THEN
6904: QP_PREQ_GRP.engine_debug('----------------------------------');
6905: END IF;
6906: j := l_line_index_tbl.NEXT(j);
6907: END LOOP;
6908: IF l_debug = FND_API.G_TRUE THEN
6905: END IF;
6906: j := l_line_index_tbl.NEXT(j);
6907: END LOOP;
6908: IF l_debug = FND_API.G_TRUE THEN
6909: QP_PREQ_GRP.engine_debug('-------------------------------------------');
6910:
6911: END IF;
6912: END IF;
6913:
6911: END IF;
6912: END IF;
6913:
6914: IF l_debug = FND_API.G_TRUE THEN
6915: QP_PREQ_GRP.engine_debug('Updating the line details ------------------------');
6916:
6917: END IF;
6918: ---------------------------------------------------------------------
6919: --Update Adjustments
6919: --Update Adjustments
6920: ---------------------------------------------------------------------
6921: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6922: THEN
6923: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
6924: THEN
6925: i := l_ldet_line_dtl_index_tbl.FIRST;
6926: WHILE i IS NOT NULL
6927: LOOP
6925: i := l_ldet_line_dtl_index_tbl.FIRST;
6926: WHILE i IS NOT NULL
6927: LOOP
6928: IF l_debug = FND_API.G_TRUE THEN
6929: QP_PREQ_GRP.engine_debug('line details: line index '
6930: || l_ldet_line_index_tbl(i) ||' detail index '
6931: || l_ldet_line_dtl_index_tbl(i) ||' operand '
6932: || l_ldet_operand_value_tbl(i) ||' adjamt '
6933: || l_ldet_adj_amt_tbl(i) ||' applied flag '
6939: || l_ldet_list_line_type_tbl(i) ||' adj id '
6940: || l_ldet_list_line_id_tbl(i) || ' list line id '
6941: || l_ldet_ordqty_operand_tbl(i) || ' Ord Qty Operand '
6942: || l_ldet_ordqty_adjamt_tbl(i) || 'Ord Qty Adj Amt');
6943: QP_PREQ_GRP.engine_debug('------------------------');
6944: END IF;
6945: i := l_ldet_line_dtl_index_tbl.NEXT(i);
6946: END LOOP;
6947: END IF;
6946: END LOOP;
6947: END IF;
6948:
6949: IF l_debug = FND_API.G_TRUE THEN
6950: QP_PREQ_GRP.engine_debug('line details: before update ');
6951: END IF;
6952: IF l_ldet_line_dtl_index_tbl.COUNT > 0
6953: THEN
6954: FORALL i IN l_ldet_line_dtl_index_tbl.FIRST..l_ldet_line_dtl_index_tbl.LAST
6969: AND pricing_status_code <> G_STATUS_DELETED --[julin/4671446]
6970: AND l_ldet_process_code_tbl(i) IN (G_STATUS_NEW,
6971: G_STATUS_DELETED);
6972: IF l_debug = FND_API.G_TRUE THEN
6973: QP_PREQ_GRP.engine_debug('line details: before insert ');
6974: END IF;
6975: END IF; --l_ldet_line_dtl_index_tbl.count > 0
6976:
6977: FORALL i IN l_ldet_line_dtl_index_tbl.FIRST..l_ldet_line_dtl_index_tbl.LAST
7045: END IF;
7046:
7047: ---------------------------------------------------------------------
7048: IF l_debug = FND_API.G_TRUE THEN
7049: QP_PREQ_GRP.engine_debug('Updating the line info ------------------------');
7050: END IF;
7051: ---------------------------------------------------------------------
7052: --Update Order Lines
7053: ---------------------------------------------------------------------
7057: THEN
7058: FOR i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
7059: LOOP
7060: IF l_debug = FND_API.G_TRUE THEN
7061: QP_PREQ_GRP.engine_debug('line info '|| l_line_index_tbl(i)
7062: ||' unit price '|| l_unit_price_tbl(i)
7063: ||' adj unit price '|| l_adj_unit_price_tbl(i));
7064: END IF;
7065: END LOOP;
7098: l_extended_selling_price(i) := round(l_extended_selling_price_ur(i), - 1 * l_rounding_factor_tbl(i));
7099: END IF;
7100:
7101: IF l_debug = FND_API.G_TRUE THEN
7102: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7103: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7106: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7099: END IF;
7100:
7101: IF l_debug = FND_API.G_TRUE THEN
7102: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7103: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7106: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7107: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7100:
7101: IF l_debug = FND_API.G_TRUE THEN
7102: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7103: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7106: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7107: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7108: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7101: IF l_debug = FND_API.G_TRUE THEN
7102: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7103: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7106: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7107: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7108: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7109: END IF; --l_debug
7102: QP_PREQ_GRP.engine_debug('Extended selling price unrounded : '||l_extended_selling_price_ur(i));
7103: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7106: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7107: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7108: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7109: END IF; --l_debug
7110: --===[prarasto:Post Round] End : Calculate rounded values ==--
7103: QP_PREQ_GRP.engine_debug('Extended selling price : '||l_extended_selling_price(i));
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7106: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7107: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7108: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7109: END IF; --l_debug
7110: --===[prarasto:Post Round] End : Calculate rounded values ==--
7111:
7104: QP_PREQ_GRP.engine_debug('Unit selling price unrounded : '||l_unit_selling_price_ur(i));
7105: QP_PREQ_GRP.engine_debug('Unit selling price : '||l_unit_selling_price(i));
7106: QP_PREQ_GRP.engine_debug('Adjusted unit price unrounded : '||l_adjusted_unit_price_ur(i));
7107: QP_PREQ_GRP.engine_debug('Adjusted unit price : '||l_adj_unit_price_tbl(i));
7108: QP_PREQ_GRP.engine_debug('Line unit price : '||l_ordqty_unit_price_tbl(i));
7109: END IF; --l_debug
7110: --===[prarasto:Post Round] End : Calculate rounded values ==--
7111:
7112:
7155: --X_RETURN_STATUS:= FND_API.G_RET_STS_SUCCESS;
7156: --X_RETURN_STATUS_TEXT:= l_routine||' SUCCESS ';
7157:
7158: IF l_debug = FND_API.G_TRUE THEN
7159: QP_PREQ_GRP.engine_debug('end calculate price');
7160: END IF;
7161: EXCEPTION
7162: WHEN Calculate_exc THEN
7163: IF l_debug = FND_API.G_TRUE THEN
7160: END IF;
7161: EXCEPTION
7162: WHEN Calculate_exc THEN
7163: IF l_debug = FND_API.G_TRUE THEN
7164: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| X_RETURN_STATUS_TEXT);
7165: END IF;
7166: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7167: WHEN OTHERS THEN
7168: IF l_debug = FND_API.G_TRUE THEN
7165: END IF;
7166: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7167: WHEN OTHERS THEN
7168: IF l_debug = FND_API.G_TRUE THEN
7169: QP_PREQ_GRP.engine_debug('Error in calculate_price'|| SQLERRM);
7170: END IF;
7171: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
7172: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
7173:
7184: INDX,QP_PREQ_PUB.calculate_price.l_line_cur,qp_npreq_lines_tmp_N2,LINE_TYPE_CODE,1
7185: */
7186: -- for bug 3820859, to start with adjusted_unit_price should be same as unit_price
7187: -- if not, then the same discount is getting applied twice if limit profile is set, because discounts calculations happens twice -
7188: -- once from QP_PREQ_GRP and then from QP_PREQ_PUB
7189: CURSOR l_line_cur IS SELECT
7190: line.line_index
7191: , line.unit_price adjusted_unit_price -- bug 3820859
7192: , line.unit_price
7203: , G_STATUS_GSA_VIOLATION
7204: , G_STATUS_UNCHANGED)
7205: AND nvl(processed_code, '0') <> G_BY_ENGINE
7206: AND line.usage_pricing_type IN
7207: (QP_PREQ_GRP.G_BILLING_TYPE, QP_PREQ_GRP.G_REGULAR_USAGE_TYPE);
7208:
7209: /*
7210: INDX,QP_PREQ_PUB.calculate_price.l_bucket_price_cur,qp_npreq_lines_tmp_N1,LINE_INDEX,1
7211: INDX,QP_PREQ_PUB.calculate_price.l_bucket_price_cur,qp_npreq_lines_tmp_N1,LINE_TYPE_CODE,2
7270: , G_STATUS_GSA_VIOLATION
7271: , G_STATUS_UNCHANGED)
7272: AND nvl(line.processed_code, '0') <> G_BY_ENGINE
7273: AND line.usage_pricing_type IN
7274: (QP_PREQ_GRP.G_BILLING_TYPE, QP_PREQ_GRP.G_REGULAR_USAGE_TYPE)
7275: UNION
7276: SELECT ldet.created_from_list_line_id
7277: , line.line_index line_ind
7278: , ldet.line_detail_index
7332: , G_STATUS_GSA_VIOLATION
7333: , G_STATUS_UNCHANGED)
7334: AND nvl(line.processed_code, '0') <> G_BY_ENGINE
7335: AND line.usage_pricing_type IN
7336: (QP_PREQ_GRP.G_BILLING_TYPE, QP_PREQ_GRP.G_REGULAR_USAGE_TYPE)
7337: --order by line_ind,pricing_group_sequence; -- 2892848
7338: ORDER BY pricing_group_sequence, line_ind; -- 2829848
7339:
7340: CURSOR l_chk_backcal_adj_exist_cur(p_line_index NUMBER) IS
7383: --l_prev_bucket qp_npreq_ldets_tmp.PRICING_GROUP_SEQUENCE%TYPE := g_miss_num;--FND_API.G_MISS_NUM;
7384: l_back_calc_dtl_index NUMBER := 0;
7385: l_back_calc_adj_amt NUMBER := 0;
7386:
7387: l_ldet_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7388: l_line_index NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7389: l_calc_quantity NUMBER := 0;
7390:
7391: --added to calculate order level adjustments' adj amt
7388: l_line_index NUMBER := g_miss_num; --FND_API.G_MISS_NUM;
7389: l_calc_quantity NUMBER := 0;
7390:
7391: --added to calculate order level adjustments' adj amt
7392: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7393: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7394:
7395: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7396: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7389: l_calc_quantity NUMBER := 0;
7390:
7391: --added to calculate order level adjustments' adj amt
7392: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7393: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7394:
7395: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7396: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7397:
7391: --added to calculate order level adjustments' adj amt
7392: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7393: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7394:
7395: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7396: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7397:
7398: i NUMBER := 0;
7399: j NUMBER := 0;
7392: l_ord_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
7393: l_ord_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
7394:
7395: l_updated_adj_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7396: l_adjusted_unit_price_ur QP_PREQ_GRP.NUMBER_TYPE; --[prarasto:Post Round]
7397:
7398: i NUMBER := 0;
7399: j NUMBER := 0;
7400: k NUMBER := 0;
7500: l_bucketed_flag VARCHAR2(1);
7501:
7502: BEGIN
7503:
7504: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7505: IF l_debug = FND_API.G_TRUE THEN
7506: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7507: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7508:
7502: BEGIN
7503:
7504: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7505: IF l_debug = FND_API.G_TRUE THEN
7506: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7507: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7508:
7509: END IF;
7510:
7503:
7504: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
7505: IF l_debug = FND_API.G_TRUE THEN
7506: QP_PREQ_GRP.ENGINE_DEBUG('begin calculate price');
7507: QP_PREQ_GRP.ENGINE_DEBUG('SL, this is Oracle IT path'); -- 2892848
7508:
7509: END IF;
7510:
7511: --4900095 call Determine_svc_item_quantity
7508:
7509: END IF;
7510:
7511: --4900095 call Determine_svc_item_quantity
7512: IF QP_PREQ_GRP.G_Service_line_qty_tbl.COUNT = 0 THEN
7513: Determine_svc_item_quantity;
7514: END IF;
7515:
7516:
7535: --with in the l_bucket_price_cur below
7536: l_lines_tbl(l_line_rec.line_index) := l_line_rec; -- bug 3306349
7537:
7538: IF l_debug = FND_API.G_TRUE THEN
7539: QP_PREQ_GRP.ENGINE_DEBUG('Gather lines passed: Line_Index '|| l_line_rec.line_index ||
7540: ' list price '|| l_line_rec.unit_price ||
7541: ' adjusted unit price '|| l_line_rec.adjusted_unit_price ||
7542: ' updated adjusted unit price '|| l_line_rec.updated_adjusted_unit_price);
7543:
7567: l_return_status_text := '';
7568:
7569: IF l_debug = FND_API.G_TRUE THEN
7570: /* 2892848
7571: QP_PREQ_GRP.ENGINE_DEBUG('************************ looping through request lines');
7572: QP_PREQ_GRP.ENGINE_DEBUG('Processing
7573: Line Index'||l_lines_tbl(j).line_index||
7574: ' list price '||l_lines_tbl(j).unit_price||
7575: ' updated adjusted price '||l_lines_tbl(j).updated_adjusted_unit_price);
7568:
7569: IF l_debug = FND_API.G_TRUE THEN
7570: /* 2892848
7571: QP_PREQ_GRP.ENGINE_DEBUG('************************ looping through request lines');
7572: QP_PREQ_GRP.ENGINE_DEBUG('Processing
7573: Line Index'||l_lines_tbl(j).line_index||
7574: ' list price '||l_lines_tbl(j).unit_price||
7575: ' updated adjusted price '||l_lines_tbl(j).updated_adjusted_unit_price);
7576: */
7573: Line Index'||l_lines_tbl(j).line_index||
7574: ' list price '||l_lines_tbl(j).unit_price||
7575: ' updated adjusted price '||l_lines_tbl(j).updated_adjusted_unit_price);
7576: */
7577: QP_PREQ_GRP.ENGINE_DEBUG('Display price: price '
7578: || l_list_price ||' sub-t '|| l_sub_total_price
7579: ||' adj price '|| l_adjusted_price);
7580:
7581: END IF; -- END IF l_debug
7605: l_return_adjustment := 0; -- diff other path ???
7606: -- end 2892848
7607:
7608: IF l_debug = FND_API.G_TRUE THEN
7609: QP_PREQ_GRP.ENGINE_DEBUG('------------------- looping through ldet lines');
7610: QP_PREQ_GRP.ENGINE_DEBUG('Processing Adjustments:
7611: line index '|| l_bucket_price_rec.line_ind ||
7612: ' list line id '|| l_bucket_price_rec.created_from_list_line_id ||
7613: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
7606: -- end 2892848
7607:
7608: IF l_debug = FND_API.G_TRUE THEN
7609: QP_PREQ_GRP.ENGINE_DEBUG('------------------- looping through ldet lines');
7610: QP_PREQ_GRP.ENGINE_DEBUG('Processing Adjustments:
7611: line index '|| l_bucket_price_rec.line_ind ||
7612: ' list line id '|| l_bucket_price_rec.created_from_list_line_id ||
7613: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
7614: ' net amount flag '|| l_bucket_price_rec.net_amount_flag || -- 2892848
7680: l_sub_total_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7681: l_adjusted_price := l_sub_total_price;
7682: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) * l_bucket_price_rec.priced_qty;
7683: IF l_debug = FND_API.G_TRUE THEN
7684: QP_PREQ_GRP.engine_debug('bucket change within same line.'
7685: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7686: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7687: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) || '*' ||
7688: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7682: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) * l_bucket_price_rec.priced_qty;
7683: IF l_debug = FND_API.G_TRUE THEN
7684: QP_PREQ_GRP.engine_debug('bucket change within same line.'
7685: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7686: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7687: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price, 0) || '*' ||
7688: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7689: END IF; -- end debug
7690: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7718: l_sub_total_price := 0;
7719: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7720: l_adjusted_price := l_sub_total_price;
7721: IF l_debug = FND_API.G_TRUE THEN
7722: QP_PREQ_GRP.engine_debug('bucket change, line change. '
7723: ||' sub_total_price: '|| l_sub_total_price ||' adjusted_price: '|| l_adjusted_price );
7724: END IF; -- end debug
7725:
7726: IF l_prev_line_index = - 9999 THEN
7726: IF l_prev_line_index = - 9999 THEN
7727: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7728: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty;
7729: IF l_debug = FND_API.G_TRUE THEN
7730: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
7731: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7732: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7733: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7734: END IF; -- end debug
7727: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7728: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty;
7729: IF l_debug = FND_API.G_TRUE THEN
7730: QP_PREQ_GRP.engine_debug('prev_line_index is -9999');
7731: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_bucket_price_rec.line_ind ||'): '
7732: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7733: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7734: END IF; -- end debug
7735: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7737: ELSE -- l_prev_line_index <> -9999
7738: IF (l_lines_tbl.EXISTS(l_prev_line_index)) THEN
7739: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7740: IF l_debug = FND_API.G_TRUE THEN
7741: QP_PREQ_GRP.engine_debug('capture bucket_amt of prev line l_bucket_amt_tbl('|| l_prev_line_index ||'): '
7742: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7743: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7744: END IF; -- end debug
7745: END IF; -- END IF l_lines_tbl.EXISTS(l_prev_line_index)
7757: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7758: l_adjusted_price := l_sub_total_price;
7759:
7760: IF l_debug = FND_API.G_TRUE THEN
7761: QP_PREQ_GRP.engine_debug('line change, same bucket');
7762: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
7763: END IF; -- end debug
7764:
7765: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7758: l_adjusted_price := l_sub_total_price;
7759:
7760: IF l_debug = FND_API.G_TRUE THEN
7761: QP_PREQ_GRP.engine_debug('line change, same bucket');
7762: QP_PREQ_GRP.engine_debug('l_sub_total_price: '|| l_sub_total_price);
7763: END IF; -- end debug
7764:
7765: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7766: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7764:
7765: IF l_lines_tbl.EXISTS(l_prev_line_index) THEN
7766: l_bucket_amt_tbl(l_prev_line_index) := nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) * l_prev_qty;
7767: IF l_debug = FND_API.G_TRUE THEN
7768: QP_PREQ_GRP.engine_debug('l_bucket_amt_tbl(' || l_prev_line_index ||'): '
7769: || nvl(l_lines_tbl(l_prev_line_index).adjusted_unit_price, 0) || '*' ||
7770: l_prev_qty || '=' || l_bucket_amt_tbl(l_prev_line_index));
7771: END IF; -- end debug
7772: END IF; -- END IF l_lines_tbl.EXISTS(l_prev_line_index)
7775: IF l_1st_bucket = 'Y' THEN
7776: IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
7777: l_bucket_amt_tbl(l_bucket_price_rec.line_ind) := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) * l_bucket_price_rec.priced_qty; -- for line level net amt we need this
7778: IF l_debug = FND_API.G_TRUE THEN
7779: QP_PREQ_GRP.engine_debug('1st bucket for this line l_bucket_amt_tbl('|| l_bucket_price_rec.line_ind ||'): '
7780: || nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0) || '*' ||
7781: l_bucket_price_rec.priced_qty || '=' || l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
7782: END IF; -- end debug
7783: END IF; -- END IF l_lines_tbl.EXISTS(l_bucket_price_rec.line_ind)
7797: IF l_bucket_price_rec.pricing_group_sequence <> 0 AND l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN -- bucket 0 is line event list price
7798: -- detect bucket change, need to CAPTURE unit_adjs (LINE) and adj_amts(LINEGROUP) up to the prev bucket
7799: IF l_prev_bucket <> l_bucket_price_rec.pricing_group_sequence THEN
7800: IF l_debug = FND_API.G_TRUE THEN
7801: QP_PREQ_GRP.engine_debug ('------BUCKET CHANGE----, place to record bucket USP for each line_index');
7802: END IF; -- END debug
7803:
7804: -- for LINE GROUP
7805: -- need capture the l_prev_lg_adj_amt
7808:
7809: IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket) THEN
7810: l_prev_lg_adj_amt := nvl(l_prev_lg_adj_amt,0) + l_bucket_adj_amt_tbl(l_prev_bucket);
7811: IF l_debug = FND_API.G_TRUE THEN
7812: QP_PREQ_GRP.engine_debug ('debug LINEGROUP adj amts up to prev bucket - '||l_prev_bucket ||': '||l_prev_lg_adj_amt);
7813: END IF; -- END debug
7814:
7815: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS(l_prev_bucket)
7816:
7826: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7827: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7828:
7829: IF l_debug = FND_API.G_TRUE THEN
7830: QP_PREQ_GRP.engine_debug ('debug LINE unit adjs up to prev bucket for line index'||l_bucket_price_rec.line_ind ||': '||l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) );
7831: END IF; -- END debug
7832: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7833:
7834:
7835: -- begin shu fix bug for special case, bucket change within same line index
7836: IF line_change = false THEN
7837: l_sub_total_price := nvl(l_adjusted_price, l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7838: IF l_debug = FND_API.G_TRUE THEN
7839: QP_PREQ_GRP.engine_debug('bucket change within same line'
7840: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7841: END IF;
7842: END IF; -- END IF line_change = flase
7843: -- end shu fix bug
7856: l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind):= l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind);
7857: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind)
7858:
7859: IF l_debug = FND_API.G_TRUE THEN
7860: QP_PREQ_GRP.engine_debug ('line change, debug LINE unit adjs up to prev bucket for line index'||l_bucket_price_rec.line_ind ||': '||l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) );
7861: END IF; -- END debug
7862: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
7863: END IF; -- END IF line_change true
7864:
7867: ELSE -- bucket is 0 or null -- begin shu fix bug
7868: l_sub_total_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).unit_price, 0);
7869: l_adjusted_price := nvl(l_lines_tbl(l_bucket_price_rec.line_ind).adjusted_unit_price,l_lines_tbl(l_bucket_price_rec.line_ind).unit_price);
7870: IF l_debug = FND_API.G_TRUE THEN
7871: QP_PREQ_GRP.engine_debug('bucket is 0 or null'
7872: ||' sub_total_price '||l_sub_total_price ||' adjusted_price '||l_adjusted_price );
7873: END IF;
7874: -- end shu fix bug
7875: END IF; -- END IF l_bucket_price_rec(J).pricing_group_sequence <> 0 AND ...
7887: IF l_bucket_price_rec.priced_quantity = 0
7888: AND l_bucket_price_rec.unit_price <> 0
7889: THEN
7890: IF l_debug = FND_API.G_TRUE THEN
7891: QP_PREQ_GRP.engine_debug('line_qty zero changed to null');
7892: END IF;
7893: l_bucket_price_rec.priced_quantity := NULL;
7894: END IF;
7895:
7893: l_bucket_price_rec.priced_quantity := NULL;
7894: END IF;
7895:
7896: --bug 4900095
7897: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind)
7898: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index))
7899: and l_bucket_price_rec.operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
7900: --only for service items
7901: --when uom_quantity is passed as null,
7894: END IF;
7895:
7896: --bug 4900095
7897: IF (QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind)
7898: or QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index))
7899: and l_bucket_price_rec.operand_calculation_code = G_LUMPSUM_DISCOUNT THEN
7900: --only for service items
7901: --when uom_quantity is passed as null,
7902: -- and contract_start/end_dates are passed
7902: -- and contract_start/end_dates are passed
7903: --and for a line/linegroup lumpsum DIS/PBH/SUR/FREIGHT
7904: IF l_bucket_price_rec.modifier_level_code = G_LINE_GROUP THEN
7905: IF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index)
7906: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7907: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index),
7908: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7909: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7910: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7904: IF l_bucket_price_rec.modifier_level_code = G_LINE_GROUP THEN
7905: IF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index)
7906: and QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7907: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index),
7908: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7909: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7910: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7911: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7912: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7907: l_calc_quantity := nvl(G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index),
7908: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7909: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7910: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7911: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7912: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7913: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7914: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7915: ELSE
7908: QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index));
7909: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7910: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7911: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7912: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7913: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7914: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7915: ELSE
7916: l_calc_quantity :=
7909: ELSIF G_Service_pbh_lg_amt_qty.exists(l_bucket_price_rec.line_detail_index) THEN
7910: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7911: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7912: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7913: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7914: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7915: ELSE
7916: l_calc_quantity :=
7917: nvl(nvl(l_bucket_price_rec.group_quantity
7910: l_calc_quantity := G_Service_pbh_lg_amt_qty(l_bucket_price_rec.line_detail_index);
7911: ELSIF QP_PREQ_GRP.G_service_ldet_qty_tbl.exists(l_bucket_price_rec.line_detail_index) THEN
7912: l_calc_quantity := QP_PREQ_GRP.G_service_ldet_qty_tbl(l_bucket_price_rec.line_detail_index);
7913: ELSIF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7914: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7915: ELSE
7916: l_calc_quantity :=
7917: nvl(nvl(l_bucket_price_rec.group_quantity
7918: , l_bucket_price_rec.group_amount)
7919: , nvl(l_bucket_price_rec.priced_quantity
7920: , l_bucket_price_rec.priced_qty));
7921: END IF;--G_Service_pbh_lg_amt_qty.exists
7922: ELSIF l_bucket_price_rec.modifier_level_code = G_LINE_LEVEL THEN
7923: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7924: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7925: ELSE
7926: l_calc_quantity :=
7927: nvl(nvl(l_bucket_price_rec.group_quantity
7920: , l_bucket_price_rec.priced_qty));
7921: END IF;--G_Service_pbh_lg_amt_qty.exists
7922: ELSIF l_bucket_price_rec.modifier_level_code = G_LINE_LEVEL THEN
7923: IF QP_PREQ_GRP.G_service_line_qty_tbl.exists(l_bucket_price_rec.line_ind) THEN
7924: l_calc_quantity := QP_PREQ_GRP.G_service_line_qty_tbl(l_bucket_price_rec.line_ind);
7925: ELSE
7926: l_calc_quantity :=
7927: nvl(nvl(l_bucket_price_rec.group_quantity
7928: , l_bucket_price_rec.group_amount)
7944: ELSE
7945: l_calc_quantity :=
7946: nvl(l_bucket_price_rec.priced_qty, l_bucket_price_rec.priced_quantity);
7947: END IF; --_bucket_price_rec.modifier_level_code
7948: END IF;--QP_PREQ_GRP.G_service_line_qty_tbl.exists
7949:
7950: --fix for bug2424931
7951: l_calc_quantity := nvl(l_calc_quantity, 1);
7952:
7950: --fix for bug2424931
7951: l_calc_quantity := nvl(l_calc_quantity, 1);
7952:
7953: IF l_debug = FND_API.G_TRUE THEN
7954: QP_PREQ_GRP.engine_debug('figuring out qty level '
7955: || l_bucket_price_rec.modifier_level_code
7956: ||' pricedqty '|| l_bucket_price_rec.priced_quantity
7957: ||' grpqty '|| l_bucket_price_rec.group_quantity
7958: ||' grpamt '|| l_bucket_price_rec.group_amount
8010: -- begin 2892848
8011: -- net_amount line level (not group of line) modifier
8012: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
8013: IF l_debug = FND_API.G_TRUE THEN
8014: QP_PREQ_GRP.engine_debug('net amount line level modifier: '|| l_bucket_price_rec.created_from_list_line_id);
8015: END IF; -- end debug
8016: /* SL_latest
8017: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8018: l_qualifier_value:= l_bucket_price_rec.priced_quantity
8017: IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8018: l_qualifier_value:= l_bucket_price_rec.priced_quantity
8019: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
8020: IF l_debug = FND_API.G_TRUE THEN
8021: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
8022: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
8023: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0) );
8024: END IF; -- end debug
8025: ELSE
8018: l_qualifier_value:= l_bucket_price_rec.priced_quantity
8019: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
8020: IF l_debug = FND_API.G_TRUE THEN
8021: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
8022: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
8023: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0) );
8024: END IF; -- end debug
8025: ELSE
8026: l_qualifier_value:= l_bucket_price_rec.priced_quantity;
8019: + nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0)* l_bucket_price_rec.priced_qty;
8020: IF l_debug = FND_API.G_TRUE THEN
8021: QP_PREQ_GRP.engine_debug('line amount: '||l_bucket_price_rec.priced_quantity);
8022: QP_PREQ_GRP.engine_debug('order qty : '||l_bucket_price_rec.priced_qty);
8023: QP_PREQ_GRP.engine_debug('unit adjs up to prev buckets: '|| nvl(l_prev_bucket_index_adj_tbl(l_bucket_price_rec.line_ind),0) );
8024: END IF; -- end debug
8025: ELSE
8026: l_qualifier_value:= l_bucket_price_rec.priced_quantity;
8027: END IF; -- END IF l_prev_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec)
8028: */
8029: IF l_bucket_amt_tbl.EXISTS(l_bucket_price_rec.line_ind)THEN
8030: l_qualifier_value := l_bucket_amt_tbl(l_bucket_price_rec.line_ind);
8031: IF l_debug = FND_API.G_TRUE THEN
8032: QP_PREQ_GRP.engine_debug('line level net amount, SL_latest ?: '|| l_bucket_amt_tbl(l_bucket_price_rec.line_ind));
8033: END IF; -- end debug
8034: END IF; -- END IF l_bucket_amt_tbl.EXISTs
8035: END IF; -- END IF net_amount modifier
8036: -- end 2892848
8048: -- IF net amount linegroup modifier
8049: IF l_bucket_price_rec.net_amount_flag IN (G_YES, 'P') THEN
8050:
8051: IF l_debug = FND_API.G_TRUE THEN
8052: QP_PREQ_GRP.engine_debug('net amount linegroup modifier id: '|| l_bucket_price_rec.created_from_list_line_id);
8053: END IF; -- end debug
8054:
8055: l_lg_net_amt := 0;
8056: l_line_bucket_amt := 0; -- note 0+null is null
8077: IF nvl(l_bucket_price_rec.net_amount_flag, 'N') = 'P' THEN
8078: IF l_mod_lg_prod_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8079: l_lg_prod_net_amt := l_mod_lg_prod_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8080: IF l_debug = FND_API.G_TRUE THEN
8081: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8082: END IF; --end debug
8083: ELSE -- need to calculate l_lg_net_amt
8084: IF l_debug = FND_API.G_TRUE THEN
8085: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
8081: QP_PREQ_GRP.engine_debug('recycle l_lg_prod_net_amt from l_mod_lg_net_amt_tbl: '|| l_lg_prod_net_amt);
8082: END IF; --end debug
8083: ELSE -- need to calculate l_lg_net_amt
8084: IF l_debug = FND_API.G_TRUE THEN
8085: QP_PREQ_GRP.engine_debug('1st bucket = '|| l_1st_bucket ||', net amount flag = P');
8086: END IF;
8087: -- calculate amount using product attribute net amount grouping
8088: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8089: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
8088: FOR t IN l_prod_attr_info(l_bucket_price_rec.created_from_list_line_id) LOOP
8089: IF l_prev_bucket_amt_tbl.EXISTS(t.line_index) THEN
8090: l_prod_line_bucket_amt := nvl(l_prev_bucket_amt_tbl(t.line_index), 0);
8091: IF l_debug = FND_API.G_TRUE THEN
8092: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_prev_bucket_amt_tbl(t.line_index));
8093: END IF; --end debug
8094: ELSE
8095: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8096: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8094: ELSE
8095: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8096: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8097: IF l_debug = FND_API.G_TRUE THEN
8098: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
8099: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
8100: END IF;
8101: END IF;
8102: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8095: -- have to compute list price * qty for the line (query from qp_npreq_lines_tmp)
8096: l_prod_line_bucket_amt := nvl(t.priced_quantity, 0) * nvl(t.unit_price, 0);
8097: IF l_debug = FND_API.G_TRUE THEN
8098: QP_PREQ_GRP.engine_debug('* line index '|| t.line_index ||' not in l_prev_bucket_amt_tbl');
8099: QP_PREQ_GRP.engine_debug(' got value '|| l_prod_line_bucket_amt ||' from lines_tmp instead');
8100: END IF;
8101: END IF;
8102: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8103:
8101: END IF;
8102: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8103:
8104: IF l_debug = FND_API.G_TRUE THEN
8105: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
8106: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
8107: END IF;
8108: END LOOP;
8109:
8102: l_lg_prod_net_amt := l_lg_prod_net_amt + l_prod_line_bucket_amt;
8103:
8104: IF l_debug = FND_API.G_TRUE THEN
8105: QP_PREQ_GRP.engine_debug('(catnetamt) l_prod_line_bucket_amt: ' || l_prod_line_bucket_amt);
8106: QP_PREQ_GRP.engine_debug('(catnetamt) up-tp-date l_lg_prod_net_amt: ' || l_lg_prod_net_amt); -- grp amt
8107: END IF;
8108: END LOOP;
8109:
8110: 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
8113:
8114: IF l_1st_bucket = 'Y' THEN
8115:
8116: IF l_debug = FND_API.G_TRUE THEN
8117: QP_PREQ_GRP.engine_debug(' l_1st_bucket is Y, use group amount as l_lg_net_amt'); -- grp amt
8118: END IF; -- end debug
8119: l_lg_net_amt := l_bucket_price_rec.priced_quantity;
8120:
8121: ELSE -- l_1st_bucket <>'Y'
8120:
8121: ELSE -- l_1st_bucket <>'Y'
8122:
8123: IF l_debug = FND_API.G_TRUE THEN
8124: QP_PREQ_GRP.engine_debug(' - not first bucket');
8125: END IF;
8126: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8127: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8128: IF l_debug = FND_API.G_TRUE THEN
8125: END IF;
8126: IF l_mod_lg_net_amt_tbl.EXISTS(l_bucket_price_rec.created_from_list_line_id) THEN
8127: l_qualifier_value := l_mod_lg_net_amt_tbl(l_bucket_price_rec.created_from_list_line_id);
8128: IF l_debug = FND_API.G_TRUE THEN
8129: QP_PREQ_GRP.engine_debug('recycle lg_net_amt from l_mod_lg_net_amt_tbl('|| l_bucket_price_rec.line_ind ||'): '|| l_qualifier_value);
8130: END IF; --end debug
8131:
8132: ELSE -- ELSE IF l_mod_lg_net_amt_tbl.EXISTS
8133:
8146: FOR t IN l_net_mod_index_cur(l_bucket_price_rec.created_from_list_line_id) LOOP
8147: IF l_bucket_amt_tbl.EXISTS(t.line_index) THEN
8148: l_line_bucket_amt := nvl(l_bucket_amt_tbl(t.line_index), 0);
8149: IF l_debug = FND_API.G_TRUE THEN
8150: QP_PREQ_GRP.engine_debug(t.line_index || ':' || l_bucket_amt_tbl(t.line_index));
8151: END IF; --end debug
8152: ELSE
8153: l_line_bucket_amt := 0;
8154: END IF;
8154: END IF;
8155: l_lg_net_amt := l_lg_net_amt + l_line_bucket_amt;
8156:
8157: IF l_debug = FND_API.G_TRUE THEN
8158: QP_PREQ_GRP.engine_debug('net amount l_bucket_amt_tbl('|| t.line_index ||'): '|| l_line_bucket_amt);
8159: END IF; --end debug
8160:
8161: END LOOP; -- end l_net_mod_index_cur
8162:
8188: END IF;
8189: END IF;
8190:
8191: IF l_debug = FND_API.G_TRUE THEN
8192: QP_PREQ_GRP.engine_debug('group amount: ' || l_bucket_price_rec.priced_quantity); -- grp amt
8193: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
8194:
8195: END IF; --end debug
8196:
8189: END IF;
8190:
8191: IF l_debug = FND_API.G_TRUE THEN
8192: QP_PREQ_GRP.engine_debug('group amount: ' || l_bucket_price_rec.priced_quantity); -- grp amt
8193: QP_PREQ_GRP.engine_debug('group of lines net amt: '|| l_qualifier_value);
8194:
8195: END IF; --end debug
8196:
8197: ELSE -- not net amount modifier
8203: END IF; --l_pbh_pricing_attr
8204: END IF; --modifier level code
8205:
8206: IF l_debug = FND_API.G_TRUE THEN
8207: QP_PREQ_GRP.engine_debug('PBH break dtls attribute '
8208: || l_pbh_pricing_attr ||' l_total_value '|| l_total_value
8209: ||' l_req_value_per_unit '|| l_req_value_per_unit);
8210: END IF; --l_debug
8211:
8253: - 1 * nvl(l_return_adjustment, 0);
8254:
8255: -- 2892848
8256: IF l_debug = FND_API.G_TRUE THEN
8257: QP_PREQ_GRP.engine_debug('PBH return adjustment '|| l_return_adjustment); --40
8258: END IF; --l_debug
8259: -- end 2892848
8260:
8261: ELSE --created_from_list_line_type not PBH 2892848 comment change
8293: END IF;
8294:
8295: -- 2892848
8296: IF l_debug = FND_API.G_TRUE THEN
8297: QP_PREQ_GRP.engine_debug(' unrounded adj_amt l_return_adjustment '|| l_return_adjustment); -- 2892848, will be rounded later, ok
8298: END IF; --END IF l_debug
8299: /* SL_latest
8300: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8301: IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN
8300: -- CONTINUE building l_bucket_adj_amt_tbl and l_bucket_index_adj_tbl regardless of bucket
8301: IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL THEN
8302: IF l_bucket_adj_amt_tbl.EXISTS(l_bucket_price_rec.pricing_group_sequence) THEN -- avoid no data found or table index not exists for 1st rec
8303: IF l_debug = FND_API.G_TRUE THEN
8304: QP_PREQ_GRP.engine_debug (' accumulated adj amts by bucket BEFORE: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8305: END IF; -- end debug
8306: l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence):= nvl(l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence),0) +
8307: nvl(l_return_adjustment,0)* l_bucket_price_rec.priced_qty;
8308:
8310: l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence):= nvl(l_return_adjustment,0) * l_bucket_price_rec.priced_qty;
8311: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
8312:
8313: IF l_debug = FND_API.G_TRUE THEN
8314: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8315: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8316: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8317: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8318: END IF; -- END debug
8311: END IF; -- END IF l_bucket_adj_amt_tbl.EXISTS
8312:
8313: IF l_debug = FND_API.G_TRUE THEN
8314: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8315: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8316: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8317: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8318: END IF; -- END debug
8319:
8312:
8313: IF l_debug = FND_API.G_TRUE THEN
8314: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8315: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8316: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8317: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8318: END IF; -- END debug
8319:
8320: -- for LINE LEVEL
8313: IF l_debug = FND_API.G_TRUE THEN
8314: QP_PREQ_GRP.engine_debug (' (LINEGROUP) building l_bucket_adj_amt_tbl by bucket: '||l_bucket_price_rec.pricing_group_sequence);
8315: QP_PREQ_GRP.engine_debug (' nvl of current unit adj: '||nvl(l_return_adjustment, 0));
8316: QP_PREQ_GRP.engine_debug (' order qty: '||l_bucket_price_rec.priced_qty);
8317: QP_PREQ_GRP.engine_debug (' accumulated adj amts for this bucket: ' || l_bucket_adj_amt_tbl(l_bucket_price_rec.pricing_group_sequence));
8318: END IF; -- END debug
8319:
8320: -- for LINE LEVEL
8321: IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8319:
8320: -- for LINE LEVEL
8321: IF l_bucket_index_adj_tbl.EXISTS(l_bucket_price_rec.line_ind) THEN
8322: IF l_debug = FND_API.G_TRUE THEN
8323: QP_PREQ_GRP.engine_debug (' accumulated unit adj by line BEFORE: ' || nvl(l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind), 0));
8324: END IF; -- end debug
8325: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind), 0) + nvl(l_return_adjustment, 0);
8326: ELSE -- avoid no datat found err
8327: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_return_adjustment, 0);
8327: l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind) := nvl(l_return_adjustment, 0);
8328: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
8329:
8330: IF l_debug = FND_API.G_TRUE THEN
8331: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_bucket_price_rec.line_ind);
8332: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind));
8333: END IF; -- END debug
8334: END IF; -- END IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL
8335: -- end 2892848
8328: END IF; -- END IF l_bucket_index_adj_tbl.EXISTS
8329:
8330: IF l_debug = FND_API.G_TRUE THEN
8331: QP_PREQ_GRP.engine_debug (' (LINE) building l_bucket_index_adj_tbl for line_index: '||l_bucket_price_rec.line_ind);
8332: QP_PREQ_GRP.engine_debug (' accumulated unit adjs by line index: '||l_bucket_index_adj_tbl(l_bucket_price_rec.line_ind));
8333: END IF; -- END debug
8334: END IF; -- END IF l_bucket_price_rec.pricing_group_sequence IS NOT NULL
8335: -- end 2892848
8336: */
8345: ( - 1 * l_bucket_price_rec.rounding_factor));
8346: END IF;
8347:
8348: IF l_debug = FND_API.G_TRUE THEN
8349: QP_PREQ_GRP.engine_debug('rounded adj: '||
8350: l_return_adjustment
8351: ||' roundingfac: '|| l_bucket_price_rec.rounding_factor);
8352:
8353: END IF;
8357: /* SL_latest 2892848
8358: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_bucket_price_rec.adjustment_amount; -- 2892848 SL_latest
8359:
8360: IF l_debug = FND_API.G_TRUE THEN
8361: QP_PREQ_GRP.engine_debug('adjustment_amount: '||l_bucket_price_rec.adjustment_amount);
8362: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
8363: END IF; -- END IF l_debug
8364: */
8365: --code added to calculate adj amt on order lvl adj
8358: l_pbh_net_adj_amount := l_pbh_net_adj_amount + l_bucket_price_rec.adjustment_amount; -- 2892848 SL_latest
8359:
8360: IF l_debug = FND_API.G_TRUE THEN
8361: QP_PREQ_GRP.engine_debug('adjustment_amount: '||l_bucket_price_rec.adjustment_amount);
8362: QP_PREQ_GRP.engine_debug('l_pbh_net_adj_amount: '||l_pbh_net_adj_amount);
8363: END IF; -- END IF l_debug
8364: */
8365: --code added to calculate adj amt on order lvl adj
8366: --fix for bug 1767249
8369: AND l_bucket_price_rec.created_from_list_line_type
8370: <> G_FREIGHT_CHARGE
8371: THEN
8372: IF l_debug = FND_API.G_TRUE THEN
8373: QP_PREQ_GRP.engine_debug('ord lvl adj processing '
8374: || l_bucket_price_rec.line_type ||' listlineid '
8375: || l_bucket_price_rec.created_from_list_line_id);
8376: END IF;
8377: IF l_ord_dtl_index_tbl.COUNT = 0
8376: END IF;
8377: IF l_ord_dtl_index_tbl.COUNT = 0
8378: THEN
8379: IF l_debug = FND_API.G_TRUE THEN
8380: QP_PREQ_GRP.engine_debug('ord lvl firstrec');
8381: END IF;
8382: l_ord_dtl_index_tbl(1) :=
8383: l_bucket_price_rec.line_detail_index;
8384: --fix for bug2424931 multiply by priced_qty
8385: l_ord_adj_amt_tbl(1) :=
8386: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8387: nvl(l_bucket_price_rec.priced_qty, 0);
8388: IF l_debug = FND_API.G_TRUE THEN
8389: QP_PREQ_GRP.engine_debug('ordlvl firstrec adj '
8390: || l_ord_adj_amt_tbl(1));
8391: END IF;
8392: ELSE
8393: FOR n IN
8393: FOR n IN
8394: l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
8395: LOOP
8396: IF l_debug = FND_API.G_TRUE THEN
8397: QP_PREQ_GRP.engine_debug('ord lvl adj index '||
8398: l_ord_dtl_index_tbl(n) ||' current rec index '
8399: || l_bucket_price_rec.line_detail_index
8400: ||' count '|| l_ord_dtl_index_tbl.COUNT
8401: ||' lastrec dtl index '
8408: l_ord_adj_amt_tbl(n) := l_ord_adj_amt_tbl(n) +
8409: nvl(l_bucket_price_rec.adjustment_amount, 0) *
8410: nvl(l_bucket_price_rec.priced_qty, 0);
8411: IF l_debug = FND_API.G_TRUE THEN
8412: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8413: l_ord_adj_amt_tbl(n));
8414: END IF;
8415: EXIT; --exit the loop once matches
8416: ELSIF l_ord_dtl_index_tbl(n) =
8418: AND l_ord_dtl_index_tbl(n) <>
8419: l_bucket_price_rec.line_detail_index
8420: THEN
8421: IF l_debug = FND_API.G_TRUE THEN
8422: QP_PREQ_GRP.engine_debug('ord lvl lastrec '||
8423: l_bucket_price_rec.line_detail_index ||' adjamt '
8424: || l_bucket_price_rec.adjustment_amount
8425: ||' qty '|| l_bucket_price_rec.priced_qty);
8426: END IF;
8430: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT)
8431: := nvl(l_bucket_price_rec.adjustment_amount, 0) *
8432: nvl(l_bucket_price_rec.priced_qty, 0);
8433: IF l_debug = FND_API.G_TRUE THEN
8434: QP_PREQ_GRP.engine_debug('ord lvl adj amt '||
8435: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8436: END IF;
8437: END IF;
8438: IF l_debug = FND_API.G_TRUE THEN
8435: l_ord_adj_amt_tbl(l_ord_dtl_index_tbl.COUNT));
8436: END IF;
8437: END IF;
8438: IF l_debug = FND_API.G_TRUE THEN
8439: QP_PREQ_GRP.engine_debug('ord lvl adj:dtlindex '
8440: || l_ord_dtl_index_tbl(n) ||' adj amt '
8441: || l_ord_adj_amt_tbl(n));
8442: END IF;
8443: END LOOP; --l_ord_dtl_index_tbl
8470: l_bucket_price_rec.priced_quantity;
8471: l_ldet_tbl(i) := l_bucket_price_rec;
8472:
8473: IF l_debug = FND_API.G_TRUE THEN
8474: QP_PREQ_GRP.ENGINE_DEBUG('Passed to table:
8475: line index '|| l_ldet_tbl(i).line_ind ||
8476: ' list_line_id '|| l_ldet_tbl(i).created_from_list_line_id ||
8477: ' adjustment amount '|| l_ldet_tbl(i).adjustment_amount ||
8478: ' applied flag '|| l_ldet_tbl(i).applied_flag);
8487: THEN
8488:
8489: l_adjusted_price := (l_adjusted_price + nvl(l_return_adjustment, 0));
8490: IF l_debug = FND_API.G_TRUE THEN
8491: QP_PREQ_GRP.ENGINE_DEBUG('Display price: price '
8492: --||l_list_price||' sub-t '||l_sub_total_price -- 2892848
8493: ||' adj price (USP) '|| l_adjusted_price
8494: ||' ret adj '|| l_return_adjustment);
8495: END IF; -- end debug
8507: IF G_ROUND_INDIVIDUAL_ADJ <> G_NO_ROUND -- shu, fix bug 2239061
8508: and l_lines_tbl(j).rounding_factor IS NOT NULL
8509: THEN
8510: IF l_debug = FND_API.G_TRUE THEN
8511: QP_PREQ_GRP.engine_debug('round current USP, rounding_factor: '
8512: ||l_lines_tbl(j).rounding_factor);
8513: END IF;
8514: l_lines_tbl(j).adjusted_unit_price :=
8515: round(l_lines_tbl(j).adjusted_unit_price,
8517: END IF; -- END IF G_ROUND_INDIVIDUAL_ADJ = G_ROUND_ADJ
8518: */
8519:
8520: IF l_debug = FND_API.G_TRUE THEN
8521: QP_PREQ_GRP.ENGINE_DEBUG('adjusted_price'
8522: || l_lines_tbl(j).adjusted_unit_price ||
8523: ' bucket '|| l_bucket_price_rec.pricing_group_sequence ||
8524: ' list_line_id '|| l_bucket_price_rec.created_from_list_line_id);
8525: END IF;
8531: G_FREIGHT_CHARGE
8532: AND nvl(l_bucket_price_rec.automatic_flag, G_NO) = G_YES
8533: THEN
8534: IF l_debug = FND_API.G_TRUE THEN
8535: QP_PREQ_GRP.engine_debug('frt chrge func '
8536: ||'looping thru freight charge for list_line id '
8537: || l_bucket_price_rec.created_from_list_line_id
8538: ||' adj amt '
8539: || l_bucket_price_rec.adjustment_amount ||' upd '
8549: THEN
8550: --no record for charge type subtype combn
8551: --so insert into l_frt_charge_tbl
8552: IF l_debug = FND_API.G_TRUE THEN
8553: QP_PREQ_GRP.engine_debug('No frt charge so far'
8554: ||' insert new frt record ');
8555: END IF;
8556: l_frt_charge_tbl(1).line_index :=
8557: l_bucket_price_rec.line_ind;
8580: END IF;
8581: ELSIF l_frt_charge_tbl.COUNT > 0
8582: THEN
8583: IF l_debug = FND_API.G_TRUE THEN
8584: QP_PREQ_GRP.engine_debug('frtchrg records exist');
8585:
8586: END IF;
8587: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8588: LOOP
8586: END IF;
8587: FOR N IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8588: LOOP
8589: IF l_debug = FND_API.G_TRUE THEN
8590: QP_PREQ_GRP.engine_debug('existing frt record id '
8591: || l_frt_charge_tbl(N).created_from_list_line_id);
8592: -- begin 2892848
8593: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8594: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8589: IF l_debug = FND_API.G_TRUE THEN
8590: QP_PREQ_GRP.engine_debug('existing frt record id '
8591: || l_frt_charge_tbl(N).created_from_list_line_id);
8592: -- begin 2892848
8593: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8594: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8595: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8596: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8597: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8591: || l_frt_charge_tbl(N).created_from_list_line_id);
8592: -- begin 2892848
8593: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8594: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8595: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8596: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8597: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8598: || l_bucket_price_rec.charge_subtype_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_subtype_code );
8599: QP_PREQ_GRP.engine_debug('level, rec: '-- 2892848
8593: QP_PREQ_GRP.engine_debug('begin shu debug, line_ind: '-- 2892848
8594: || l_bucket_price_rec.line_ind ||' line_index: '|| l_frt_charge_tbl(N).line_index );
8595: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8596: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8597: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8598: || l_bucket_price_rec.charge_subtype_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_subtype_code );
8599: QP_PREQ_GRP.engine_debug('level, rec: '-- 2892848
8600: || l_bucket_price_rec.modifier_level_code ||' frt tbl: '|| l_frt_charge_tbl(N).LEVEL );
8601: -- end 2892848
8595: QP_PREQ_GRP.engine_debug('charge_type_code, rec: '-- 2892848
8596: || l_bucket_price_rec.charge_type_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_type_code );
8597: QP_PREQ_GRP.engine_debug('charge_subtype_code, rec: '-- 2892848
8598: || l_bucket_price_rec.charge_subtype_code ||' frt tbl: '|| l_frt_charge_tbl(N).charge_subtype_code );
8599: QP_PREQ_GRP.engine_debug('level, rec: '-- 2892848
8600: || l_bucket_price_rec.modifier_level_code ||' frt tbl: '|| l_frt_charge_tbl(N).LEVEL );
8601: -- end 2892848
8602:
8603: END IF; -- end debug
8613: G_LINE_GROUP))
8614: THEN
8615: --record exists for charge type subtype combn
8616: IF l_debug = FND_API.G_TRUE THEN
8617: QP_PREQ_GRP.engine_debug('charge combn match'
8618: || l_frt_charge_tbl(N).updated_flag);
8619: END IF;
8620: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8621: THEN
8619: END IF;
8620: IF nvl(l_frt_charge_tbl(N).updated_flag, G_NO) = G_NO
8621: THEN
8622: IF l_debug = FND_API.G_TRUE THEN
8623: QP_PREQ_GRP.engine_debug('Rec is NOT overriden');
8624: END IF;
8625: --only if user has not overridden
8626: --replace the record with the ct adj
8627: IF nvl(l_bucket_price_rec.updated_flag, G_NO) =
8627: IF nvl(l_bucket_price_rec.updated_flag, G_NO) =
8628: G_YES
8629: THEN
8630: IF l_debug = FND_API.G_TRUE THEN
8631: QP_PREQ_GRP.engine_debug('Repl overridden rec');
8632: END IF;
8633: --if ct adj is overridden
8634: l_frt_charge_tbl(N).line_detail_index
8635: := l_bucket_price_rec.line_detail_index;
8647: > l_frt_charge_tbl(N).adjustment_amount
8648: THEN
8649: --if ct adj's adj amt is greater
8650: IF l_debug = FND_API.G_TRUE THEN
8651: QP_PREQ_GRP.engine_debug('replace high adjamt');
8652: END IF;
8653: l_frt_charge_tbl(N).line_detail_index
8654: := l_bucket_price_rec.line_detail_index;
8655: l_frt_charge_tbl(N).created_from_list_line_id
8666: ELSE
8667: --no match for charge type subtype combn
8668: --so insert into l_frt_charge_tbl
8669: IF l_debug = FND_API.G_TRUE THEN
8670: QP_PREQ_GRP.engine_debug('charge combn no match');
8671: END IF;
8672: IF N = l_frt_charge_tbl.LAST
8673: THEN
8674: --this is the last record and the
8673: THEN
8674: --this is the last record and the
8675: --charge type subtype combn not match
8676: IF l_debug = FND_API.G_TRUE THEN
8677: QP_PREQ_GRP.engine_debug('hit last rec in tbl'
8678: ||' insert new record ');
8679: QP_PREQ_GRP.engine_debug('shu debug, l_bucket_price_rec.adjustment_amount: '-- shu, 2892848
8680: || l_bucket_price_rec.adjustment_amount); -- 2892848
8681: END IF;
8675: --charge type subtype combn not match
8676: IF l_debug = FND_API.G_TRUE THEN
8677: QP_PREQ_GRP.engine_debug('hit last rec in tbl'
8678: ||' insert new record ');
8679: QP_PREQ_GRP.engine_debug('shu debug, l_bucket_price_rec.adjustment_amount: '-- shu, 2892848
8680: || l_bucket_price_rec.adjustment_amount); -- 2892848
8681: END IF;
8682: l_frt_charge_tbl(N + 1).line_index :=
8683: l_bucket_price_rec.line_ind;
8718:
8719: --Freight Charge Functionality update status of frt charge adj
8720: IF l_frt_charge_tbl.COUNT > 0
8721: THEN
8722: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
8723: THEN
8724: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8725: LOOP
8726: IF l_debug = FND_API.G_TRUE THEN
8723: THEN
8724: FOR S IN l_frt_charge_tbl.FIRST..l_frt_charge_tbl.LAST
8725: LOOP
8726: IF l_debug = FND_API.G_TRUE THEN
8727: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8728: || l_frt_charge_tbl(s).line_index); -- 2892848
8729: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8730: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8731: QP_PREQ_GRP.engine_debug('display frt dlts '
8725: LOOP
8726: IF l_debug = FND_API.G_TRUE THEN
8727: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8728: || l_frt_charge_tbl(s).line_index); -- 2892848
8729: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8730: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8731: QP_PREQ_GRP.engine_debug('display frt dlts '
8732: ||' list line id '
8733: || l_frt_charge_tbl(s).created_from_list_line_id);
8727: QP_PREQ_GRP.engine_debug('shu debug, line_index: '-- shu, 2892848
8728: || l_frt_charge_tbl(s).line_index); -- 2892848
8729: QP_PREQ_GRP.engine_debug('shu debug, l_frt_charge_tbl.line_detail_index: '-- shu, 2892848
8730: || l_frt_charge_tbl(s).line_detail_index); -- 2892848
8731: QP_PREQ_GRP.engine_debug('display frt dlts '
8732: ||' list line id '
8733: || l_frt_charge_tbl(s).created_from_list_line_id);
8734: END IF;
8735: END LOOP;
8736: END IF;
8737: FOR N IN l_ldet_tbl.FIRST..l_ldet_tbl.LAST
8738: LOOP
8739: IF l_debug = FND_API.G_TRUE THEN
8740: QP_PREQ_GRP.engine_debug('in frt charge loop (SL, l_ldet_tbl loop) '-- 2892848
8741: || l_ldet_tbl(N).created_from_list_line_id
8742: ||' '|| l_ldet_tbl(N).created_from_list_line_type
8743: ||' sts '|| l_ldet_tbl(N).pricing_status_code
8744: ||' is max frt '|| l_ldet_tbl(N).is_max_frt);
8759: l_ldet_tbl(N).pricing_status_text :=
8760: 'MAX FRT CHARGE';
8761: l_frt_charge_tbl.DELETE(M);
8762: IF l_debug = FND_API.G_TRUE THEN
8763: QP_PREQ_GRP.engine_debug('applied frt charge '
8764: || l_ldet_tbl(N).created_from_list_line_id);
8765: END IF;
8766: END IF;
8767: M := l_frt_charge_tbl.NEXT(M);
8776: j := l_lines_tbl.FIRST;
8777: WHILE j IS NOT NULL LOOP -- end 2892848
8778:
8779: IF l_debug = FND_API.G_TRUE THEN
8780: QP_PREQ_GRP.ENGINE_DEBUG('Processed lines:
8781: line index'|| l_lines_tbl(j).line_index
8782: ||' updated adjusted price '
8783: || l_lines_tbl(j).updated_adjusted_unit_price
8784: ||' adjustment count '|| l_ldet_tbl.COUNT);
8786: END IF;
8787: x := l_ldet_tbl.FIRST;
8788: WHILE x IS NOT NULL LOOP
8789: IF l_debug = FND_API.G_TRUE THEN
8790: QP_PREQ_GRP.ENGINE_DEBUG('line_detail_index '
8791: || l_ldet_tbl(x).line_detail_index
8792: ||'up adj price1 '
8793: || l_ldet_tbl(x).created_from_list_line_id
8794: ||' status '
8816: BACK CALCULATION ROUTINE
8817: ******************************************************************/
8818:
8819: IF l_debug = FND_API.G_TRUE THEN
8820: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION ROUTINE ');
8821:
8822: END IF;
8823: l_ldet_tbl.DELETE;
8824:
8828: --as l_amount_changed will be zero whereas at this point
8829: --l_amount_changed will not be zero
8830:
8831: IF l_debug = FND_API.G_TRUE THEN
8832: QP_PREQ_GRP.ENGINE_DEBUG('BACK CALCULATION check: upd adj price '
8833: || l_lines_tbl(j).updated_adjusted_unit_price
8834: ||' adj price '|| l_lines_tbl(j).adjusted_unit_price);
8835:
8836: END IF;
8856: END IF;
8857:
8858: -- 2892848
8859: IF l_debug = FND_API.G_TRUE THEN
8860: QP_PREQ_GRP.ENGINE_DEBUG('AFTER ROUNDING, adjusted_unit_price:'
8861: || l_lines_tbl(j).adjusted_unit_price
8862: ||' updated_adjusted_unit_price: '|| l_lines_tbl(j).adjusted_unit_price);
8863:
8864: END IF;
8874: IF (l_lines_tbl(j).updated_adjusted_unit_price IS NULL
8875: OR l_amount_changed = 0) --no back cal if no amt change
8876: THEN
8877: IF l_debug = FND_API.G_TRUE THEN
8878: QP_PREQ_GRP.ENGINE_DEBUG('no back calculation');
8879: END IF;
8880: BACK_CALCULATE := FALSE;
8881: ELSE
8882: IF l_debug = FND_API.G_TRUE THEN
8879: END IF;
8880: BACK_CALCULATE := FALSE;
8881: ELSE
8882: IF l_debug = FND_API.G_TRUE THEN
8883: QP_PREQ_GRP.ENGINE_DEBUG('back calculation set');
8884: END IF;
8885: BACK_CALCULATE := TRUE;
8886:
8887: OPEN l_chk_backcal_adj_exist_cur(l_lines_tbl(j).line_index);
8893: nvl(l_back_calc_dtl_index, 0);
8894: l_back_calc_adj_amt :=
8895: nvl(l_back_calc_adj_amt, 0);
8896: IF l_debug = FND_API.G_TRUE THEN
8897: QP_PREQ_GRP.engine_debug('back cal dtl '||
8898: l_back_calc_dtl_index ||' adjamt '|| l_back_calc_adj_amt);
8899: END IF;
8900:
8901: --changes for bug 2043442
8908: l_amount_changed := l_amount_changed +
8909: l_back_calc_adj_amt;
8910:
8911: IF l_debug = FND_API.G_TRUE THEN
8912: QP_PREQ_GRP.engine_debug('back cal dtl '||
8913: ' amt changed '|| l_amount_changed);
8914:
8915: END IF;
8916: IF l_amount_changed <= 0 THEN
8918: ELSIF l_amount_changed > 0 THEN
8919: l_BACK_CALCULATE_START_TYPE := G_SURCHARGE;
8920: END IF;
8921: IF l_debug = FND_API.G_TRUE THEN
8922: QP_PREQ_GRP.ENGINE_DEBUG('back calculation start type'
8923: || l_BACK_CALCULATE_START_TYPE
8924: ||' amount changed '|| l_amount_changed);
8925:
8926: END IF;
8927: l_return_status := '';
8928: l_return_status_text := '';
8929:
8930: IF l_debug = FND_API.G_TRUE THEN
8931: QP_PREQ_GRP.ENGINE_DEBUG('before back calculation '
8932: || l_lines_tbl(j).line_index
8933: ||' amt changed '|| l_amount_changed);
8934: END IF;
8935: IF l_amount_changed <= 0 THEN
8942: , l_back_calc_ret_rec
8943: , l_return_status
8944: , l_return_status_text);
8945: IF l_debug = FND_API.G_TRUE THEN
8946: QP_PREQ_GRP.ENGINE_DEBUG('after back calculation ');
8947:
8948: END IF;
8949:
8950: IF l_lines_tbl(j).rounding_factor IS NOT NULL
8955: l_back_calc_ret_rec.adjustment_amount :=
8956: round(l_back_calc_ret_rec.adjustment_amount,
8957: - 1 * l_back_calc_ret_rec.rounding_factor);
8958: IF l_debug = FND_API.G_TRUE THEN
8959: QP_PREQ_GRP.ENGINE_DEBUG('back calc rounded '
8960: || l_back_calc_ret_rec.adjustment_amount
8961: ||' roundingfac '
8962: || l_back_calc_ret_rec.rounding_factor);
8963: END IF;
8970:
8971: IF BACK_CALCULATE
8972: THEN
8973: IF l_debug = FND_API.G_TRUE THEN
8974: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
8975: END IF;
8976: IF l_back_calc_ret_rec.calculation_code
8977: = G_BACK_CALCULATE
8978: THEN
8977: = G_BACK_CALCULATE
8978: THEN
8979:
8980: IF l_debug = FND_API.G_TRUE THEN
8981: QP_PREQ_GRP.ENGINE_DEBUG('Back Calculate: '
8982: ||'before update ldets: line_detail_index '
8983: || l_back_calc_ret_rec.line_detail_index
8984: ||' list line id '
8985: || l_back_calc_ret_rec.list_line_id
8988: ||' operand '|| l_back_calc_ret_rec.operand_value
8989: ||' calculation_code '
8990: || l_back_calc_ret_rec.calculation_code);
8991:
8992: QP_PREQ_GRP.engine_debug('chk back cal dtl '||
8993: l_back_calc_dtl_index);
8994:
8995: END IF;
8996: IF l_back_calc_dtl_index <> 0
9035: END IF;
9036: END IF; --back_calculate
9037:
9038: IF l_debug = FND_API.G_TRUE THEN
9039: QP_PREQ_GRP.engine_debug('return sts '|| l_return_status);
9040: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
9041: END IF;
9042: IF BACK_CALCULATE
9043: THEN
9036: END IF; --back_calculate
9037:
9038: IF l_debug = FND_API.G_TRUE THEN
9039: QP_PREQ_GRP.engine_debug('return sts '|| l_return_status);
9040: QP_PREQ_GRP.engine_debug('return txt '|| l_return_status_text);
9041: END IF;
9042: IF BACK_CALCULATE
9043: THEN
9044: IF l_debug = FND_API.G_TRUE THEN
9041: END IF;
9042: IF BACK_CALCULATE
9043: THEN
9044: IF l_debug = FND_API.G_TRUE THEN
9045: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate');
9046:
9047: END IF;
9048: IF l_return_status = FND_API.G_RET_STS_SUCCESS
9049: THEN
9047: END IF;
9048: IF l_return_status = FND_API.G_RET_STS_SUCCESS
9049: THEN
9050: IF l_debug = FND_API.G_TRUE THEN
9051: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Success');
9052: END IF;
9053: l_lines_tbl(j).processed_flag := G_PROCESSED;
9054: --change for bug 2146050
9055: --recalculate the selling price again after back calc
9069: --skip rounding for Post Round option
9070: AND l_lines_tbl(j).rounding_factor IS NOT NULL
9071: THEN
9072: IF l_debug = FND_API.G_TRUE THEN
9073: QP_PREQ_GRP.engine_debug('need to round selling price, rounding_factor: '
9074: || l_lines_tbl(j).rounding_factor);
9075: END IF;
9076: l_lines_tbl(j).adjusted_unit_price :=
9077: round(l_lines_tbl(j).adjusted_unit_price,
9078: - 1 * l_lines_tbl(j).rounding_factor);
9079: END IF;
9080: ELSE
9081: IF l_debug = FND_API.G_TRUE THEN
9082: QP_PREQ_GRP.ENGINE_DEBUG('Back calculate Failure');
9083: END IF;
9084: l_lines_tbl(j).processed_flag := G_NOT_PROCESSED;
9085: l_lines_tbl(j).processed_code :=
9086: QP_PREQ_PUB.G_BACK_CALCULATION_STS;
9089: l_lines_tbl(j).pricing_status_text := l_return_status_text;
9090: END IF; --l_return_status
9091: ELSE
9092: IF l_debug = FND_API.G_TRUE THEN
9093: QP_PREQ_GRP.ENGINE_DEBUG('NO Back calculate');
9094: END IF;
9095: l_lines_tbl(j).processed_flag := G_PROCESSED;
9096: END IF; --back_calculate
9097:
9115: WHERE line_index = l_lines_tbl(j).line_index;
9116:
9117:
9118: IF l_debug = FND_API.G_TRUE THEN
9119: QP_PREQ_GRP.ENGINE_DEBUG('Processed Price:
9120: line index'|| l_lines_tbl(j).line_index ||
9121: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9122: 'processed_code' || l_lines_tbl(j).processed_code);
9123: END IF;
9138: WHERE line_index = l_lines_tbl(j).line_index;
9139:
9140:
9141: IF l_debug = FND_API.G_TRUE THEN
9142: QP_PREQ_GRP.ENGINE_DEBUG('Failed Process price:
9143: line index '|| l_lines_tbl(j).line_index ||
9144: ' adjusted price '|| l_lines_tbl(j).adjusted_unit_price ||
9145: 'processed_code' || l_lines_tbl(j).processed_code);
9146: END IF;
9153:
9154:
9155: j := l_lines_tbl.NEXT(j);
9156: IF l_debug = FND_API.G_TRUE THEN
9157: QP_PREQ_GRP.ENGINE_DEBUG('-----------------------------------');
9158: END IF;
9159: END LOOP;
9160:
9161: --to update adj amt on order level adjustments
9161: --to update adj amt on order level adjustments
9162: IF l_ord_dtl_index_tbl.COUNT > 0
9163: THEN
9164: IF l_debug = FND_API.G_TRUE THEN
9165: QP_PREQ_GRP.engine_debug('updating order lvl adj amt: '||
9166: l_ord_dtl_index_tbl.COUNT);
9167: END IF;
9168: FORALL i IN l_ord_dtl_index_tbl.FIRST..l_ord_dtl_index_tbl.LAST
9169: UPDATE qp_npreq_ldets_tmp
9179: IF G_GSA_CHECK_FLAG = G_YES
9180: AND G_GSA_ENABLED_FLAG = G_YES
9181: THEN
9182: IF l_debug = FND_API.G_TRUE THEN
9183: QP_PREQ_GRP.engine_debug('Begin Pub GSA check');
9184:
9185: END IF;
9186: /*
9187: INDX,QP_PREQ_PUB.calculate_price.upd5,qp_npreq_lines_tmp_N2,LINE_TYPE_CODE,1
9205: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_HEADERS_B_N1,GSA_INDICATOR,6
9206: INDX,QP_PREQ_PUB.calculate_price.upd5,QP_LIST_LINES_PK,LIST_LINE_ID,1
9207: */
9208: IF l_debug = FND_API.G_TRUE THEN
9209: QP_PREQ_GRP.engine_debug('Pub GSA attr_mgr_installed '
9210: || G_ATTR_MGR_INSTALLED);
9211: END IF;
9212: IF G_ATTR_MGR_INSTALLED = G_NO
9213: THEN
9319: AND trunc(nvl(ql.End_date_active
9320: , line.pricing_effective_date)));
9321: END IF;
9322: IF l_debug = FND_API.G_TRUE THEN
9323: QP_PREQ_GRP.engine_debug('End Pub GSA check');
9324: END IF;
9325: END IF;
9326:
9327:
9332: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9333: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9334:
9335: IF l_debug = FND_API.G_TRUE THEN
9336: QP_PREQ_GRP.ENGINE_DEBUG('end calculate price');
9337: END IF;
9338: EXCEPTION
9339: WHEN Calculate_Exc THEN
9340: IF l_debug = FND_API.G_TRUE THEN
9337: END IF;
9338: EXCEPTION
9339: WHEN Calculate_Exc THEN
9340: IF l_debug = FND_API.G_TRUE THEN
9341: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| x_return_status_text);
9342: END IF;
9343: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9344: WHEN OTHERS THEN
9345: IF l_debug = FND_API.G_TRUE THEN
9342: END IF;
9343: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9344: WHEN OTHERS THEN
9345: IF l_debug = FND_API.G_TRUE THEN
9346: QP_PREQ_GRP.ENGINE_DEBUG('Error in calculate_price'|| SQLERRM);
9347: END IF;
9348: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
9349: X_RETURN_STATUS_TEXT := l_routine || SQLERRM;
9350: END CALCULATE_PRICE;
9364: rltd.pricing_status_code
9365: FROM qp_npreq_rltd_lines_tmp rltd
9366: WHERE rltd.relationship_type_code = G_PBH_LINE;
9367: BEGIN
9368: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9369: IF l_debug = FND_API.G_TRUE
9370: THEN
9371: QP_PREQ_GRP.engine_debug('------------------------------');
9372: FOR cl IN l_dbg_cleanup_cur
9367: BEGIN
9368: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9369: IF l_debug = FND_API.G_TRUE
9370: THEN
9371: QP_PREQ_GRP.engine_debug('------------------------------');
9372: FOR cl IN l_dbg_cleanup_cur
9373: LOOP
9374: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9375: || cl.line_detail_index ||' rltd_line_dtl_index '
9370: THEN
9371: QP_PREQ_GRP.engine_debug('------------------------------');
9372: FOR cl IN l_dbg_cleanup_cur
9373: LOOP
9374: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9375: || cl.line_detail_index ||' rltd_line_dtl_index '
9376: || cl.related_line_detail_index ||' list_line_id '
9377: || cl.list_line_id ||' rltd_list_line_id '|| cl.related_list_line_id
9378: ||' pricing_status_code '|| cl.pricing_status_code);
9399: WHERE rltd.relationship_type_code = G_PBH_LINE
9400: AND rltd.pricing_status_code = G_STATUS_DELETED);
9401:
9402: IF l_debug = FND_API.G_TRUE THEN
9403: QP_PREQ_GRP.engine_debug('------------------------------');
9404: FOR cl IN l_dbg_cleanup_cur
9405: LOOP
9406: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9407: || cl.line_detail_index ||' rltd_line_dtl_index '
9402: IF l_debug = FND_API.G_TRUE THEN
9403: QP_PREQ_GRP.engine_debug('------------------------------');
9404: FOR cl IN l_dbg_cleanup_cur
9405: LOOP
9406: QP_PREQ_GRP.engine_debug('Rltd lines: line_dtl_index '
9407: || cl.line_detail_index ||' rltd_line_dtl_index '
9408: || cl.related_line_detail_index ||' list_line_id '
9409: || cl.list_line_id ||' rltd_list_line_id '|| cl.related_list_line_id
9410: ||' pricing_status_code '|| cl.pricing_status_code);
9473:
9474: BEGIN
9475:
9476: IF l_debug = FND_API.G_TRUE THEN
9477: QP_PREQ_GRP.engine_debug('-------------------------------------');
9478: FOR cl IN l_dbg_rltd_cur
9479: LOOP
9480: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9481: || cl.pricing_attr_value_from
9476: IF l_debug = FND_API.G_TRUE THEN
9477: QP_PREQ_GRP.engine_debug('-------------------------------------');
9478: FOR cl IN l_dbg_rltd_cur
9479: LOOP
9480: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9481: || cl.pricing_attr_value_from
9482: ||' value to '|| cl.pricing_attr_value_to
9483: ||' price brktype '|| cl.price_break_type_code
9484: ||' list_line_id '|| cl.list_line_id
9540: AND rltd.pricing_status_code = G_STATUS_NEW;
9541:
9542: IF l_debug = FND_API.G_TRUE
9543: THEN
9544: QP_PREQ_GRP.engine_debug('-------------------------------------');
9545: FOR cl IN l_dbg_rltd_upd_cur
9546: LOOP
9547: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9548: || cl.setup_value_from
9543: THEN
9544: QP_PREQ_GRP.engine_debug('-------------------------------------');
9545: FOR cl IN l_dbg_rltd_upd_cur
9546: LOOP
9547: QP_PREQ_GRP.engine_debug('rltd info: value_from '
9548: || cl.setup_value_from
9549: ||' value to '|| cl.setup_value_to
9550: ||' price brktype '|| cl.relationship_type_detail
9551: ||' list_line_id '|| cl.list_line_id
9653: open lcur;LOOP
9654: fetch lcur into lrec;
9655: EXIT when lcur%NOTFOUND;
9656: IF l_debug = FND_API.G_TRUE THEN
9657: QP_PREQ_GRP.ENGINE_DEBUG(lrec.line_index||
9658: ' user passed list_line_id '||lrec.created_from_list_line_id||
9659: ' pricing_status_code '||lrec.pricing_status_code||
9660: ' applied_flag '||lrec.applied_flag||
9661: ' updated_flag '||lrec.updated_flag||
9662: ' operand '||lrec.operand_value);
9663: END IF;
9664: END LOOP;
9665: IF l_debug = FND_API.G_TRUE THEN
9666: QP_PREQ_GRP.ENGINE_DEBUG('--------------------------------------------------');
9667: END IF;
9668: CLOSE lcur;
9669: */
9670:
9674: --by the calling application and mark the temporary table qp_npreq_ldets_tmp
9675: --field process_code with a value G_STATUS_NEW
9676: ----------------------------------------------------------------------------
9677: IF l_debug = FND_API.G_TRUE THEN
9678: QP_PREQ_GRP.ENGINE_DEBUG('START PROCESS ADJUSTMENTS '|| p_pricing_event);
9679:
9680: END IF;
9681: --Step 0: Update all user passed adjustments to process_code 'DELETED'
9682: --to start with
9708: OR ((nvl(Get_buy_line_price_flag(ldet.created_from_list_line_id, ldet.line_index), line.price_flag) = G_PHASE)
9709: AND (nvl(ph.user_freeze_override_flag, ph.freeze_override_flag) = G_YES))));
9710:
9711: IF l_debug = FND_API.G_TRUE THEN
9712: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1');
9713:
9714: END IF;
9715: --Second Step: Retain adjustments input by user
9716: --which have updated flag = 'Y'
9732: -- from qp_npreq_rltd_lines_tmp rltd
9733: -- where rltd.relationship_type_code = G_PBH_LINE)));
9734:
9735: IF l_debug = FND_API.G_TRUE THEN
9736: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step1.5');
9737: END IF;
9738: --summary line adjustments with price flag 'N' need to be considered for calc
9739: --reqt from contracts for performance
9740: UPDATE qp_npreq_ldets_tmp ldet SET ldet.process_code = G_STATUS_NEW
9743: WHERE line.line_type_code = G_ORDER_LEVEL
9744: AND line.price_flag = G_NO);
9745:
9746: IF l_debug = FND_API.G_TRUE THEN
9747: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step2');
9748:
9749:
9750: END IF;
9751: --Third Step : Mark the lines returned by the engine
9763: open lcur1; LOOP
9764: fetch lcur1 into lrec1;
9765: EXIT when lcur1%NOTFOUND;
9766: IF l_debug = FND_API.G_TRUE THEN
9767: QP_PREQ_GRP.ENGINE_DEBUG('list_line_id'||lrec1.created_from_list_line_id);
9768: END IF;
9769: END LOOP;
9770: CLOSE lcur1;
9771: */
9770: CLOSE lcur1;
9771: */
9772:
9773: IF l_debug = FND_API.G_TRUE THEN
9774: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step3');
9775:
9776: END IF;
9777: --Fourth Step : Among the lines with process_code = G_STATUS_NEW
9778: -- remove the duplicates. Retain lines passed by user with updated_flag 'Y' or
9792:
9793:
9794:
9795: IF l_debug = FND_API.G_TRUE THEN
9796: QP_PREQ_GRP.ENGINE_DEBUG('DUPLICATE REC:
9797: line index '|| l_duplicate_rec.line_index ||
9798: ' detail_index '|| l_duplicate_rec.line_detail_index ||
9799: 'list_line_id '|| l_duplicate_rec.created_from_list_line_id ||
9800: 'pricing_status_code '|| l_duplicate_rec.pricing_status_code ||
9800: 'pricing_status_code '|| l_duplicate_rec.pricing_status_code ||
9801: ' process_code '|| l_duplicate_rec.process_code ||
9802: ' applied_flag '|| l_duplicate_rec.applied_flag ||
9803: ' updated_flag '|| l_duplicate_rec.updated_flag);
9804: QP_PREQ_GRP.ENGINE_DEBUG('DUPLICATE REC1:
9805: line index '|| l_duplicate_rec1.line_index ||
9806: ' detail_index '|| l_duplicate_rec1.line_detail_index ||
9807: 'list_line_id '|| l_duplicate_rec1.created_from_list_line_id ||
9808: 'pricing_status_code '|| l_duplicate_rec1.pricing_status_code ||
9816: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_YES)
9817: OR (nvl(l_duplicate_rec.applied_flag, G_NO) = G_YES))) THEN
9818: --retain adj passed by user
9819: IF l_debug = FND_API.G_TRUE THEN
9820: QP_PREQ_GRP.ENGINE_DEBUG('retain user passed');
9821: END IF;
9822: l_duplicate_rec.process_code := G_STATUS_NEW;
9823: l_duplicate_rec1.process_code := G_STATUS_UNCHANGED;
9824: l_duplicate_rec1.pricing_status_code := G_STATUS_DELETED;
9828: ((nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO) OR
9829: (nvl(l_duplicate_rec.updated_flag, G_NO) = G_NO))) THEN
9830: --retain adj passed by user
9831: IF l_debug = FND_API.G_TRUE THEN
9832: QP_PREQ_GRP.ENGINE_DEBUG('retain engine passed');
9833: END IF;
9834: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9835: l_duplicate_rec.pricing_status_code := G_STATUS_DELETED;
9836: l_duplicate_rec1.pricing_status_text := 'QP_PREQ_PUB:DUPLICATE RECORD';
9837: l_duplicate_rec1.process_code := G_STATUS_NEW;
9838: ELSE
9839: --retain adj passed by engine
9840: IF l_debug = FND_API.G_TRUE THEN
9841: QP_PREQ_GRP.ENGINE_DEBUG('else retain engine');
9842:
9843: END IF;
9844: l_duplicate_rec.process_code := G_STATUS_UNCHANGED;
9845: l_duplicate_rec.pricing_status_code := G_STATUS_DELETED;
9852:
9853: l_dup_adj_tbl(i) := l_duplicate_rec;
9854:
9855: IF l_debug = FND_API.G_TRUE THEN
9856: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9857: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9858: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9859: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9860: ' applied_flag '|| l_dup_adj_tbl(i).applied_flag ||
9862: END IF;
9863: i := i + 1;
9864: l_dup_adj_tbl(i) := l_duplicate_rec1;
9865: IF l_debug = FND_API.G_TRUE THEN
9866: QP_PREQ_GRP.ENGINE_DEBUG('Processed duplicate adj:
9867: line index '|| l_dup_adj_tbl(i).line_detail_index ||
9868: 'list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9869: 'process_code '|| l_dup_adj_tbl(i).process_code ||
9870: ' applied_flag '|| l_dup_adj_tbl(i).applied_flag ||
9885: , pricing_status_text = l_dup_adj_tbl(i).pricing_status_text
9886: WHERE line_detail_index = l_dup_adj_tbl(i).line_detail_index;
9887:
9888: IF l_debug = FND_API.G_TRUE THEN
9889: QP_PREQ_GRP.ENGINE_DEBUG('Update processed adjustments:
9890: list_line_id '|| l_dup_adj_tbl(i).created_from_list_line_id ||
9891: ' pricing_status_code '|| l_dup_adj_tbl(i).pricing_status_code ||
9892: 'process_code '|| l_dup_adj_tbl(i).process_code);
9893:
9894: END IF;
9895: i := l_dup_adj_tbl.NEXT(i);
9896: END LOOP;
9897:
9898: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9899:
9900: OPEN lcur1; LOOP
9901: FETCH lcur1 INTO lrec1;
9902: EXIT WHEN lcur1%NOTFOUND;
9900: OPEN lcur1; LOOP
9901: FETCH lcur1 INTO lrec1;
9902: EXIT WHEN lcur1%NOTFOUND;
9903: IF l_debug = FND_API.G_TRUE THEN
9904: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9905: ' line_dtl_index '|| lrec1.line_detail_index ||
9906: ' line_qty '|| lrec1.line_quantity ||
9907: ' list_line_id '|| lrec1.created_from_list_line_id ||
9908: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code ||
9912: CLOSE lcur1;
9913: END IF;
9914: Cleanup_rltd_lines(x_return_status, x_return_status_text);
9915: IF l_debug = FND_API.G_TRUE THEN
9916: QP_PREQ_GRP.engine_debug('------------------------------------------');
9917:
9918: END IF;
9919: IF x_return_status = FND_API.G_RET_STS_ERROR
9920: THEN
9922: END IF;
9923:
9924: Update_Related_Line_Info(x_return_status, x_return_status_text);
9925: IF l_debug = FND_API.G_TRUE THEN
9926: QP_PREQ_GRP.engine_debug('------------------------------------------');
9927: END IF;
9928: IF x_return_status = FND_API.G_RET_STS_ERROR
9929: THEN
9930: RAISE Process_Exc;
9929: THEN
9930: RAISE Process_Exc;
9931: END IF;
9932:
9933: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9934:
9935: OPEN lcur1; LOOP
9936: FETCH lcur1 INTO lrec1;
9937: EXIT WHEN lcur1%NOTFOUND;
9935: OPEN lcur1; LOOP
9936: FETCH lcur1 INTO lrec1;
9937: EXIT WHEN lcur1%NOTFOUND;
9938: IF l_debug = FND_API.G_TRUE THEN
9939: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_index ||
9940: ' list_line_id '|| lrec1.created_from_list_line_id ||
9941: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code ||
9942: ' updated '|| lrec1.updated_flag ||' process '|| lrec1.process_code);
9943: END IF;
9945: CLOSE lcur1;
9946: END IF;
9947:
9948: IF l_debug = FND_API.G_TRUE THEN
9949: QP_PREQ_GRP.ENGINE_DEBUG('PROCESS ADJUSTMENTS: Step4');
9950:
9951: END IF;
9952: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9953: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9952: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
9953: X_RETURN_STATUS_TEXT := l_routine ||' SUCCESS ';
9954:
9955: IF l_debug = FND_API.G_TRUE THEN
9956: QP_PREQ_GRP.ENGINE_DEBUG('END PROCESS ADJUSTMENTS');
9957: END IF;
9958: EXCEPTION
9959: WHEN Process_Exc THEN
9960: IF l_debug = FND_API.G_TRUE THEN
9957: END IF;
9958: EXCEPTION
9959: WHEN Process_Exc THEN
9960: IF l_debug = FND_API.G_TRUE THEN
9961: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9962: END IF;
9963: WHEN OTHERS THEN
9964: IF l_debug = FND_API.G_TRUE THEN
9965: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9961: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| X_RETURN_STATUS_TEXT);
9962: END IF;
9963: WHEN OTHERS THEN
9964: IF l_debug = FND_API.G_TRUE THEN
9965: QP_PREQ_GRP.ENGINE_DEBUG('EXCEPTION PROCESS ADJUSTMENTS: '|| SQLERRM);
9966: END IF;
9967: x_return_status := FND_API.G_RET_STS_ERROR;
9968: x_return_status_text := l_routine ||' '|| SQLERRM;
9969: END PROCESS_ADJUSTMENTS;
9979: PROCEDURE UPDATE_QUALIFIER_VALUE(x_return_status OUT NOCOPY VARCHAR2,
9980: x_return_status_text OUT NOCOPY VARCHAR2)
9981: IS
9982: BEGIN
9983: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9984: IF l_debug = FND_API.G_TRUE THEN
9985: QP_PREQ_GRP.engine_debug('Begin UPDATE_QUALIFIER_VALUE routine');
9986:
9987: END IF;
9981: IS
9982: BEGIN
9983: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9984: IF l_debug = FND_API.G_TRUE THEN
9985: QP_PREQ_GRP.engine_debug('Begin UPDATE_QUALIFIER_VALUE routine');
9986:
9987: END IF;
9988: UPDATE qp_npreq_rltd_lines_tmp rltd
9989: SET rltd.qualifier_value = (SELECT
10005: AND line.pricing_status_code IN
10006: (G_STATUS_UNCHANGED, G_STATUS_UPDATED,
10007: G_STATUS_GSA_VIOLATION)
10008: AND line.usage_pricing_type =
10009: QP_PREQ_GRP.G_BILLING_TYPE);
10010: IF l_debug = FND_API.G_TRUE THEN
10011: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
10012: END IF;
10013: EXCEPTION
10007: G_STATUS_GSA_VIOLATION)
10008: AND line.usage_pricing_type =
10009: QP_PREQ_GRP.G_BILLING_TYPE);
10010: IF l_debug = FND_API.G_TRUE THEN
10011: QP_PREQ_GRP.engine_debug('End UPDATE_QUALIFIER_VALUE routine');
10012: END IF;
10013: EXCEPTION
10014: WHEN OTHERS THEN
10015: IF l_debug = FND_API.G_TRUE THEN
10012: END IF;
10013: EXCEPTION
10014: WHEN OTHERS THEN
10015: IF l_debug = FND_API.G_TRUE THEN
10016: QP_PREQ_GRP.engine_debug('Error UPDATE_QUALIFIER_VALUE routine '|| SQLERRM);
10017: END IF;
10018: x_return_status := FND_API.G_RET_STS_ERROR;
10019: x_return_status_text := 'QP_PREQ_PUB.UPDATE_QUALIFIER_VALUE: '|| SQLERRM;
10020: END UPDATE_QUALIFIER_VALUE;
10038: AND ldet.process_code = G_STATUS_NEW;
10039: -- and ldet1.line_index = rltd.related_line_index
10040: -- and ldet1.line_detail_index = rltd.related_line_detail_index;
10041:
10042: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10043: l_child_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10044: nRows CONSTANT NUMBER := 500;
10045: I PLS_INTEGER;
10046: BEGIN
10039: -- and ldet1.line_index = rltd.related_line_index
10040: -- and ldet1.line_detail_index = rltd.related_line_detail_index;
10041:
10042: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10043: l_child_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10044: nRows CONSTANT NUMBER := 500;
10045: I PLS_INTEGER;
10046: BEGIN
10047: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10043: l_child_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10044: nRows CONSTANT NUMBER := 500;
10045: I PLS_INTEGER;
10046: BEGIN
10047: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10048: --This is to update the status on the child break lines after calculation
10049: IF l_debug = FND_API.G_TRUE THEN
10050: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
10051: END IF;
10046: BEGIN
10047: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10048: --This is to update the status on the child break lines after calculation
10049: IF l_debug = FND_API.G_TRUE THEN
10050: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
10051: END IF;
10052: OPEN l_child_break_cur;
10053: IF l_debug = FND_API.G_TRUE THEN
10054: QP_PREQ_GRP.engine_debug('open l_child_break_cur');
10050: QP_PREQ_GRP.engine_debug('In Update_Child_break_lines routine');
10051: END IF;
10052: OPEN l_child_break_cur;
10053: IF l_debug = FND_API.G_TRUE THEN
10054: QP_PREQ_GRP.engine_debug('open l_child_break_cur');
10055: END IF;
10056: -- LOOP
10057: l_child_sts_code_tbl.DELETE;
10058: l_line_dtl_index_tbl.DELETE;
10058: l_line_dtl_index_tbl.DELETE;
10059: FETCH l_child_break_cur
10060: BULK COLLECT INTO l_child_sts_code_tbl, l_line_dtl_index_tbl;
10061: IF l_debug = FND_API.G_TRUE THEN
10062: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10063: END IF;
10064: -- LIMIT nRows;
10065: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10066: THEN
10061: IF l_debug = FND_API.G_TRUE THEN
10062: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10063: END IF;
10064: -- LIMIT nRows;
10065: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10066: THEN
10067: I := l_line_dtl_index_tbl.FIRST;
10068: WHILE I IS NOT NULL
10069: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10068: WHILE I IS NOT NULL
10069: -- FOR I in l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10070: LOOP
10071: IF l_debug = FND_API.G_TRUE THEN
10072: QP_PREQ_GRP.engine_debug('l_child_break_cur count '|| i
10073: ||' childdtl index '|| l_line_dtl_index_tbl(i)
10074: ||' status code '|| l_child_sts_code_tbl(i));
10075: END IF;
10076: I := l_line_dtl_index_tbl.NEXT(I);
10079:
10080: IF l_line_dtl_index_tbl.COUNT > 0
10081: THEN
10082: IF l_debug = FND_API.G_TRUE THEN
10083: QP_PREQ_GRP.engine_debug('before update');
10084: END IF;
10085: FORALL j IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10086: UPDATE qp_npreq_ldets_tmp
10087: SET process_code = l_child_sts_code_tbl(j)
10086: UPDATE qp_npreq_ldets_tmp
10087: SET process_code = l_child_sts_code_tbl(j)
10088: WHERE line_detail_index = l_line_dtl_index_tbl(j);
10089: IF l_debug = FND_API.G_TRUE THEN
10090: QP_PREQ_GRP.engine_debug('after update');
10091: END IF;
10092: END IF;
10093: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10094: -- END LOOP;
10092: END IF;
10093: -- EXIT WHEN l_line_dtl_index_tbl.COUNT =0;
10094: -- END LOOP;
10095: IF l_debug = FND_API.G_TRUE THEN
10096: QP_PREQ_GRP.engine_debug('END LOOP');
10097: END IF;
10098: CLOSE l_child_break_cur;
10099: IF l_debug = FND_API.G_TRUE THEN
10100: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10096: QP_PREQ_GRP.engine_debug('END LOOP');
10097: END IF;
10098: CLOSE l_child_break_cur;
10099: IF l_debug = FND_API.G_TRUE THEN
10100: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10101: END IF;
10102:
10103: IF l_debug = FND_API.G_TRUE THEN
10104: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10100: QP_PREQ_GRP.engine_debug('fetch l_child_break_cur');
10101: END IF;
10102:
10103: IF l_debug = FND_API.G_TRUE THEN
10104: QP_PREQ_GRP.engine_debug('End Update_Child_break_lines routine');
10105: END IF;
10106: EXCEPTION
10107: WHEN OTHERS THEN
10108: IF l_debug = FND_API.G_TRUE THEN
10105: END IF;
10106: EXCEPTION
10107: WHEN OTHERS THEN
10108: IF l_debug = FND_API.G_TRUE THEN
10109: QP_PREQ_GRP.engine_debug('Error Update_Child_break_lines routine '|| SQLERRM);
10110: END IF;
10111: x_return_status := FND_API.G_RET_STS_ERROR;
10112: x_return_status_text := 'QP_PREQ_PUB.Update_Child_Break_lines: '|| SQLERRM;
10113:
10116:
10117: --This is to calculate the line quantity on each child break line
10118: PROCEDURE PROCESS_PRICE_BREAK(p_rounding_flag IN VARCHAR2,
10119: p_processing_order IN NUMBER,
10120: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10121: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10122: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10123: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10124: x_return_status OUT NOCOPY VARCHAR2,
10117: --This is to calculate the line quantity on each child break line
10118: PROCEDURE PROCESS_PRICE_BREAK(p_rounding_flag IN VARCHAR2,
10119: p_processing_order IN NUMBER,
10120: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10121: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10122: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10123: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10124: x_return_status OUT NOCOPY VARCHAR2,
10125: x_return_status_text OUT NOCOPY VARCHAR2) IS
10118: PROCEDURE PROCESS_PRICE_BREAK(p_rounding_flag IN VARCHAR2,
10119: p_processing_order IN NUMBER,
10120: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10121: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10122: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10123: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10124: x_return_status OUT NOCOPY VARCHAR2,
10125: x_return_status_text OUT NOCOPY VARCHAR2) IS
10126:
10119: p_processing_order IN NUMBER,
10120: x_line_index_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10121: x_list_price_tbl OUT NOCOPY QP_PREQ_GRP.NUMBER_TYPE,
10122: x_pricing_sts_code_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10123: x_pricing_sts_txt_tbl OUT NOCOPY QP_PREQ_GRP.VARCHAR_TYPE,
10124: x_return_status OUT NOCOPY VARCHAR2,
10125: x_return_status_text OUT NOCOPY VARCHAR2) IS
10126:
10127: CURSOR l_request_line_detail_cur(p_processing_order NUMBER) IS
10153: qp_npreq_line_attrs_tmp attr
10154: WHERE line.pricing_status_code IN (G_STATUS_UNCHANGED, G_STATUS_UPDATED)
10155: AND line.price_flag = G_CALCULATE_ONLY
10156: AND nvl(line.processing_order, 1) = p_processing_order
10157: AND line.usage_pricing_type = QP_PREQ_GRP.G_BILLING_TYPE
10158: AND line.line_index = rltd.line_index
10159: AND rltd.relationship_type_code = G_PBH_LINE
10160: AND ldet.line_index = line.line_index
10161: AND ldet.pricing_status_code = 'X'
10169: ORDER BY child_detail_index, parent_detail_index;
10170:
10171: l_quantity NUMBER;
10172: l_satisfied_qty NUMBER;
10173: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10174: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10175: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10170:
10171: l_quantity NUMBER;
10172: l_satisfied_qty NUMBER;
10173: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10174: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10175: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10171: l_quantity NUMBER;
10172: l_satisfied_qty NUMBER;
10173: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10174: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10175: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10172: l_satisfied_qty NUMBER;
10173: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10174: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10175: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10180: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10173: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10174: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10175: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10180: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10181: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10174: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10175: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10180: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10181: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10182: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10175: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10180: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10181: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10182: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10183:
10176: l_total_qty_tbl QP_PREQ_GRP.NUMBER_TYPE;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10180: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10181: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10182: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10183:
10184: i NUMBER := 0;
10177: --l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10180: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10181: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10182: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10183:
10184: i NUMBER := 0;
10185: l_break_satisfied VARCHAR2(1) := G_NO;
10178: --l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10179: l_total_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10180: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10181: l_line_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10182: l_applied_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
10183:
10184: i NUMBER := 0;
10185: l_break_satisfied VARCHAR2(1) := G_NO;
10186:
10185: l_break_satisfied VARCHAR2(1) := G_NO;
10186:
10187: BEGIN
10188:
10189: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10190: IF l_debug = FND_API.G_TRUE THEN
10191: QP_PREQ_GRP.engine_debug('Begin process_price_break');
10192:
10193: END IF;
10187: BEGIN
10188:
10189: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10190: IF l_debug = FND_API.G_TRUE THEN
10191: QP_PREQ_GRP.engine_debug('Begin process_price_break');
10192:
10193: END IF;
10194: FOR I IN l_request_line_detail_cur(p_processing_order)
10195: LOOP
10193: END IF;
10194: FOR I IN l_request_line_detail_cur(p_processing_order)
10195: LOOP
10196: IF l_debug = FND_API.G_TRUE THEN
10197: QP_PREQ_GRP.engine_debug('Loop thru child break '|| I.parent_detail_index
10198: ||' child index '|| I.child_detail_index ||' list_line_id '
10199: || I.created_from_list_line_id ||' level '|| I.modifier_level_code
10200: ||' parent price '|| I.parent_price
10201: ||' val from '|| I.value_from ||' to '|| I.value_to
10206: --this is not applicable for price lists
10207: IF I.modifier_level_code = G_LINE_GROUP
10208: THEN
10209: IF l_debug = FND_API.G_TRUE THEN
10210: QP_PREQ_GRP.engine_debug('this is line group');
10211: END IF;
10212: l_quantity := nvl(nvl(nvl(I.group_quantity
10213: , I.group_amount),
10214: nvl(I.break_quantity, I.ordered_quantity)), 0);
10213: , I.group_amount),
10214: nvl(I.break_quantity, I.ordered_quantity)), 0);
10215: ELSE
10216: IF l_debug = FND_API.G_TRUE THEN
10217: QP_PREQ_GRP.engine_debug('this is not line group');
10218: END IF;
10219: l_quantity := nvl(nvl(I.break_quantity,
10220: I.ordered_quantity), 0);
10221: END IF;
10229: l_break_satisfied := G_NO;
10230: END IF;
10231:
10232: IF l_debug = FND_API.G_TRUE THEN
10233: QP_PREQ_GRP.engine_debug('process_price_break1');
10234: END IF;
10235: IF I.price_break_type = G_POINT_BREAK
10236: THEN
10237: IF l_debug = FND_API.G_TRUE THEN
10234: END IF;
10235: IF I.price_break_type = G_POINT_BREAK
10236: THEN
10237: IF l_debug = FND_API.G_TRUE THEN
10238: QP_PREQ_GRP.engine_debug('this is point break');
10239: END IF;
10240: IF l_quantity BETWEEN I.value_from AND I.value_to
10241: THEN
10242: IF l_debug = FND_API.G_TRUE THEN
10239: END IF;
10240: IF l_quantity BETWEEN I.value_from AND I.value_to
10241: THEN
10242: IF l_debug = FND_API.G_TRUE THEN
10243: QP_PREQ_GRP.engine_debug('point break satisfied');
10244: END IF;
10245: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10246: := l_quantity;
10247: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10250: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10251: := I.child_detail_index;
10252: ELSE
10253: IF l_debug = FND_API.G_TRUE THEN
10254: QP_PREQ_GRP.engine_debug('point break not satisfied');
10255: END IF;
10256: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10257: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10258: I.child_line_index;
10263:
10264: ELSIF I.price_break_type = G_RANGE_BREAK
10265: THEN
10266: IF l_debug = FND_API.G_TRUE THEN
10267: QP_PREQ_GRP.engine_debug('this is range break');
10268: END IF;
10269: l_satisfied_qty := 0;
10270: QP_Calculate_Price_PUB.Get_Satisfied_Range
10271: (p_value_from => I.value_from
10272: , p_value_to => I.value_to
10273: , p_qualifier_value => l_quantity
10274: , x_satisfied_value => l_satisfied_qty);
10275: IF l_debug = FND_API.G_TRUE THEN
10276: QP_PREQ_GRP.engine_debug('range break '|| l_satisfied_qty);
10277:
10278: END IF;
10279: IF l_satisfied_qty <> 0
10280: THEN
10278: END IF;
10279: IF l_satisfied_qty <> 0
10280: THEN
10281: IF l_debug = FND_API.G_TRUE THEN
10282: QP_PREQ_GRP.engine_debug('range break satisfied');
10283: END IF;
10284: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1)
10285: := l_satisfied_qty;
10286: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10289: l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT + 1)
10290: := I.child_detail_index;
10291: ELSE
10292: IF l_debug = FND_API.G_TRUE THEN
10293: QP_PREQ_GRP.engine_debug('range break not satisfied');
10294: END IF;
10295: l_line_quantity_tbl(l_line_quantity_tbl.COUNT + 1) := 0;
10296: l_applied_flag_tbl(l_applied_flag_tbl.COUNT + 1) := G_NO;
10297: l_line_index_tbl(l_line_index_tbl.COUNT + 1) :=
10318: x_return_status,
10319: x_return_status_text);
10320:
10321: IF l_debug = FND_API.G_TRUE THEN
10322: QP_PREQ_GRP.engine_debug('plsql tbl info dtlindex '
10323: || l_line_dtl_index_tbl(l_line_dtl_index_tbl.COUNT)
10324: ||' appl flag '|| l_applied_flag_tbl(l_line_dtl_index_tbl.COUNT)
10325: ||' line qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10326: ||' list price '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10339: l_total_price_tbl(x_line_index_tbl.COUNT) :=
10340: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10341: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10342: IF l_debug = FND_API.G_TRUE THEN
10343: QP_PREQ_GRP.engine_debug('first line '
10344: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10345: || l_total_price_tbl(x_line_index_tbl.COUNT)
10346: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10347: ||' adjamt '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10355: l_total_price_tbl(x_line_index_tbl.COUNT) +
10356: l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10357: * nvl(l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT), 0);
10358: IF l_debug = FND_API.G_TRUE THEN
10359: QP_PREQ_GRP.engine_debug('same line '
10360: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10361: || l_total_price_tbl(x_line_index_tbl.COUNT)
10362: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10363: ||' adjamt '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10383: x_pricing_sts_txt_tbl(x_line_index_tbl.COUNT) :=
10384: '';
10385: END IF;
10386: IF l_debug = FND_API.G_TRUE THEN
10387: QP_PREQ_GRP.engine_debug('next line ');
10388: END IF;
10389: x_line_index_tbl(x_line_index_tbl.COUNT + 1) :=
10390: l_line_index_tbl(l_line_index_tbl.COUNT);
10391: l_total_qty_tbl(x_line_index_tbl.COUNT) :=
10390: l_line_index_tbl(l_line_index_tbl.COUNT);
10391: l_total_qty_tbl(x_line_index_tbl.COUNT) :=
10392: I.ordered_quantity;
10393: IF l_debug = FND_API.G_TRUE THEN
10394: QP_PREQ_GRP.engine_debug('price info: line index '
10395: || x_line_index_tbl(x_line_index_tbl.COUNT)
10396: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT)
10397: ||' qty '|| l_line_quantity_tbl(l_line_dtl_index_tbl.COUNT)
10398: ||' adjamt '|| l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10404: IF x_line_index_tbl.COUNT > 0
10405: --for the last line
10406: THEN
10407: IF l_debug = FND_API.G_TRUE THEN
10408: QP_PREQ_GRP.engine_debug('price info: line index ');
10409: END IF;
10410: IF l_break_satisfied = G_NO
10411: THEN
10412: x_pricing_sts_code_tbl(x_line_index_tbl.COUNT) :=
10422: x_list_price_tbl(x_line_index_tbl.COUNT) :=
10423: l_total_price_tbl(x_line_index_tbl.COUNT) /
10424: l_total_qty_tbl(x_line_index_tbl.COUNT);
10425: IF l_debug = FND_API.G_TRUE THEN
10426: QP_PREQ_GRP.engine_debug('price info: line index '
10427: || x_line_index_tbl(x_line_index_tbl.COUNT)
10428: ||' price '|| x_list_price_tbl(x_line_index_tbl.COUNT) ||' '
10429: || l_total_qty_tbl(x_line_index_tbl.COUNT) ||' '
10430: || l_total_price_tbl(x_line_index_tbl.COUNT)
10436:
10437: IF l_line_quantity_tbl.COUNT > 0
10438: THEN
10439: IF l_debug = FND_API.G_TRUE THEN
10440: QP_PREQ_GRP.engine_debug('process_price_break5: count '
10441: || l_line_quantity_tbl.COUNT ||' first '
10442: || l_line_quantity_tbl.FIRST ||' last '
10443: || l_line_quantity_tbl.LAST);
10444: END IF;
10450: WHERE line_detail_index = l_line_dtl_index_tbl(i);
10451: END IF;
10452:
10453: IF l_debug = FND_API.G_TRUE THEN
10454: QP_PREQ_GRP.engine_debug('process_price_break5');
10455:
10456: END IF;
10457: IF x_line_index_tbl.COUNT > 0
10458: THEN
10455:
10456: END IF;
10457: IF x_line_index_tbl.COUNT > 0
10458: THEN
10459: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
10460: THEN
10461: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10462: LOOP
10463: IF l_debug = FND_API.G_TRUE THEN
10460: THEN
10461: FOR i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10462: LOOP
10463: IF l_debug = FND_API.G_TRUE THEN
10464: QP_PREQ_GRP.engine_debug('line details '|| x_line_index_tbl(i)
10465: ||' price '|| x_list_price_tbl(i) ||' sts '
10466: || x_pricing_sts_code_tbl(i));
10467: END IF;
10468: END LOOP;
10465: ||' price '|| x_list_price_tbl(i) ||' sts '
10466: || x_pricing_sts_code_tbl(i));
10467: END IF;
10468: END LOOP;
10469: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
10470: IF l_debug = FND_API.G_TRUE THEN
10471: QP_PREQ_GRP.engine_debug('update PBH ');
10472: END IF;
10473: FORALL i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10467: END IF;
10468: END LOOP;
10469: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
10470: IF l_debug = FND_API.G_TRUE THEN
10471: QP_PREQ_GRP.engine_debug('update PBH ');
10472: END IF;
10473: FORALL i IN x_line_index_tbl.FIRST..x_line_index_tbl.LAST
10474: UPDATE qp_npreq_ldets_tmp
10475: SET line_quantity = l_total_qty_tbl(i)
10489: (G_PRICE_LIST_HEADER, G_AGR_LIST_HEADER)
10490: AND adjustment_amount IS NULL;
10491:
10492: IF l_debug = FND_API.G_TRUE THEN
10493: QP_PREQ_GRP.engine_debug('End process_price_break');
10494: END IF;
10495: EXCEPTION
10496: WHEN OTHERS THEN
10497: x_return_status := FND_API.G_RET_STS_ERROR;
10497: x_return_status := FND_API.G_RET_STS_ERROR;
10498: x_return_status_text := 'QP_PREQ_PUB.Process_Price_Break Exception: '
10499: || SQLERRM;
10500: IF l_debug = FND_API.G_TRUE THEN
10501: QP_PREQ_GRP.engine_debug('Exception process_price_break '|| SQLERRM);
10502: END IF;
10503: END PROCESS_PRICE_BREAK;
10504:
10505: PROCEDURE Update_Service_Lines(x_return_status OUT NOCOPY VARCHAR2,
10518: AND rltd.related_line_index IS NOT NULL
10519: AND rltd.relationship_type_code = G_SERVICE_LINE
10520: AND line.line_index = rltd.line_index;
10521:
10522: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10523: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10524: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10525: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10526: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10519: AND rltd.relationship_type_code = G_SERVICE_LINE
10520: AND line.line_index = rltd.line_index;
10521:
10522: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10523: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10524: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10525: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10526: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10527:
10520: AND line.line_index = rltd.line_index;
10521:
10522: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10523: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10524: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10525: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10526: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10527:
10528: BEGIN
10521:
10522: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10523: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10524: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10525: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10526: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10527:
10528: BEGIN
10529:
10522: l_parent_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10523: l_service_line_tbl QP_PREQ_GRP.NUMBER_TYPE;
10524: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10525: l_priced_quantity_tbl QP_PREQ_GRP.NUMBER_TYPE;
10526: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10527:
10528: BEGIN
10529:
10530: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10526: l_priced_uom_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10527:
10528: BEGIN
10529:
10530: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10531: IF l_debug = FND_API.G_TRUE THEN
10532: QP_PREQ_GRP.engine_debug('Begin Update_Service_Lines');
10533:
10534: END IF;
10528: BEGIN
10529:
10530: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10531: IF l_debug = FND_API.G_TRUE THEN
10532: QP_PREQ_GRP.engine_debug('Begin Update_Service_Lines');
10533:
10534: END IF;
10535: OPEN l_Service_Cur;
10536: FETCH l_Service_Cur
10557: WHERE line_index = l_parent_line_tbl(i);
10558: END IF;
10559:
10560: IF l_debug = FND_API.G_TRUE THEN
10561: QP_PREQ_GRP.engine_debug('End Update_Service_Lines');
10562: END IF;
10563: EXCEPTION
10564: WHEN OTHERS THEN
10565: x_return_status := FND_API.G_RET_STS_ERROR;
10565: x_return_status := FND_API.G_RET_STS_ERROR;
10566: x_return_status_text := 'QP_PREQ_PUB.Update_Service_Lines Exception: '
10567: || SQLERRM;
10568: IF l_debug = FND_API.G_TRUE THEN
10569: QP_PREQ_GRP.engine_debug('Exception Update_Service_Lines '|| SQLERRM);
10570: END IF;
10571: END Update_Service_Lines;
10572:
10573:
10599: , line.uom_quantity service_duration
10600: , line.processing_order
10601: , line.parent_price
10602: FROM qp_npreq_lines_tmp line, qp_npreq_ldets_tmp ldet
10603: WHERE line.usage_pricing_type = QP_PREQ_GRP.G_BILLING_TYPE
10604: AND ldet.line_index = line.line_index
10605: AND line.price_flag = G_CALCULATE_ONLY
10606: AND nvl(processing_order, 1) = p_processing_order
10607: AND ldet.applied_flag = G_YES
10613: ORDER BY line_ind;
10614:
10615:
10616:
10617: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10618: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10619: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10620: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10621: l_related_item_price NUMBER;
10614:
10615:
10616:
10617: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10618: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10619: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10620: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10621: l_related_item_price NUMBER;
10622: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10615:
10616:
10617: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10618: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10619: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10620: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10621: l_related_item_price NUMBER;
10622: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10623: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10616:
10617: l_line_dtl_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10618: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10619: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10620: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10621: l_related_item_price NUMBER;
10622: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10623: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10624: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10618: l_unit_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10619: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10620: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10621: l_related_item_price NUMBER;
10622: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10623: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10624: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10625: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10626:
10619: l_adj_amt_tbl QP_PREQ_GRP.NUMBER_TYPE;
10620: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10621: l_related_item_price NUMBER;
10622: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10623: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10624: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10625: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10626:
10627: USAGE_EXCEPTION EXCEPTION;
10620: l_percent_price_tbl QP_PREQ_GRP.NUMBER_TYPE;
10621: l_related_item_price NUMBER;
10622: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10623: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10624: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10625: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10626:
10627: USAGE_EXCEPTION EXCEPTION;
10628: BEGIN
10621: l_related_item_price NUMBER;
10622: l_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
10623: --l_detail_type_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10624: l_pricing_sts_code_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10625: l_pricing_sts_txt_tbl QP_PREQ_GRP.VARCHAR_TYPE;
10626:
10627: USAGE_EXCEPTION EXCEPTION;
10628: BEGIN
10629:
10626:
10627: USAGE_EXCEPTION EXCEPTION;
10628: BEGIN
10629:
10630: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10631: IF l_debug = FND_API.G_TRUE THEN
10632: QP_PREQ_GRP.engine_debug('Begin Usage Pricing');
10633:
10634:
10628: BEGIN
10629:
10630: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
10631: IF l_debug = FND_API.G_TRUE THEN
10632: QP_PREQ_GRP.engine_debug('Begin Usage Pricing');
10633:
10634:
10635: END IF;
10636: Process_Price_Break(p_rounding_flag => p_rounding_flag,
10647: END IF;
10648: FOR cl IN l_get_price_cur(1)
10649: LOOP
10650: IF l_debug = FND_API.G_TRUE THEN
10651: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP');
10652: QP_PREQ_GRP.engine_debug('PRL line type '
10653: || cl.created_from_list_line_type ||' operator '
10654: || cl.OPERAND_CALCULATION_CODE ||' operand '
10655: || cl.OPERAND_VALUE ||' svc duration '
10648: FOR cl IN l_get_price_cur(1)
10649: LOOP
10650: IF l_debug = FND_API.G_TRUE THEN
10651: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP');
10652: QP_PREQ_GRP.engine_debug('PRL line type '
10653: || cl.created_from_list_line_type ||' operator '
10654: || cl.OPERAND_CALCULATION_CODE ||' operand '
10655: || cl.OPERAND_VALUE ||' svc duration '
10656: || nvl(cl.service_duration, 1) ||' rounding fac '
10693: := '';
10694: END IF; --l_unit_price_tbl
10695:
10696: IF l_debug = FND_API.G_TRUE THEN
10697: QP_PREQ_GRP.engine_debug('price returned '
10698: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10699: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10700: ||' line index '|| l_line_index_tbl(l_line_index_tbl.COUNT)
10701: ||' unit price '|| l_unit_price_tbl(l_unit_price_tbl.COUNT)
10708:
10709: IF l_line_dtl_index_tbl.COUNT > 0
10710: THEN
10711: IF l_debug = FND_API.G_TRUE THEN
10712: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP1');
10713: END IF;
10714: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10715: UPDATE qp_npreq_ldets_tmp
10716: SET adjustment_amount = l_adj_amt_tbl(i)
10719:
10720: IF l_line_index_tbl.COUNT > 0
10721: THEN
10722: IF l_debug = FND_API.G_TRUE THEN
10723: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP1');
10724: END IF;
10725: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10726: UPDATE qp_npreq_lines_tmp
10727: SET unit_price = l_unit_price_tbl(i),
10762:
10763: FOR cl IN l_get_price_cur(2)
10764: LOOP
10765: IF l_debug = FND_API.G_TRUE THEN
10766: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10767: QP_PREQ_GRP.engine_debug('PRL line type '
10768: || cl.created_from_list_line_type ||' operator '
10769: || cl.OPERAND_CALCULATION_CODE ||' operand '
10770: || cl.OPERAND_VALUE ||' svc duration '
10763: FOR cl IN l_get_price_cur(2)
10764: LOOP
10765: IF l_debug = FND_API.G_TRUE THEN
10766: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10767: QP_PREQ_GRP.engine_debug('PRL line type '
10768: || cl.created_from_list_line_type ||' operator '
10769: || cl.OPERAND_CALCULATION_CODE ||' operand '
10770: || cl.OPERAND_VALUE ||' svc duration '
10771: || nvl(cl.service_duration, 1) ||' rounding fac '
10807: l_pricing_sts_txt_tbl(l_pricing_sts_txt_tbl.COUNT + 1)
10808: := '';
10809: END IF; --l_unit_price_tbl
10810: IF l_debug = FND_API.G_TRUE THEN
10811: QP_PREQ_GRP.engine_debug('price returned '
10812: || l_adj_amt_tbl(l_line_dtl_index_tbl.COUNT)
10813: ||' %price '|| l_percent_price_tbl(l_percent_price_tbl.COUNT)
10814: ||' unit price '|| l_unit_price_tbl(l_unit_price_tbl.COUNT)
10815: ||' status '|| l_pricing_sts_code_tbl(l_line_index_tbl.COUNT)
10821:
10822: IF l_line_dtl_index_tbl.COUNT > 0
10823: THEN
10824: IF l_debug = FND_API.G_TRUE THEN
10825: QP_PREQ_GRP.engine_debug('Begin Usage Pricing LOOP2');
10826: END IF;
10827: FORALL i IN l_line_dtl_index_tbl.FIRST..l_line_dtl_index_tbl.LAST
10828: UPDATE qp_npreq_ldets_tmp
10829: SET adjustment_amount = l_adj_amt_tbl(i)
10832:
10833: IF l_line_index_tbl.COUNT > 0
10834: THEN
10835: IF l_debug = FND_API.G_TRUE THEN
10836: QP_PREQ_GRP.engine_debug('Begin LINES Usage Pricing LOOP2');
10837: END IF;
10838: FORALL i IN l_line_index_tbl.FIRST..l_line_index_tbl.LAST
10839: UPDATE qp_npreq_lines_tmp
10840: SET unit_price = l_unit_price_tbl(i),
10845:
10846:
10847:
10848: IF l_debug = FND_API.G_TRUE THEN
10849: QP_PREQ_GRP.engine_debug('End Usage Pricing');
10850:
10851: END IF;
10852: EXCEPTION
10853: WHEN USAGE_EXCEPTION THEN
10851: END IF;
10852: EXCEPTION
10853: WHEN USAGE_EXCEPTION THEN
10854: IF l_debug = FND_API.G_TRUE THEN
10855: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10856: END IF;
10857: x_return_status := FND_API.G_RET_STS_ERROR;
10858: WHEN OTHERS THEN
10859: IF l_debug = FND_API.G_TRUE THEN
10856: END IF;
10857: x_return_status := FND_API.G_RET_STS_ERROR;
10858: WHEN OTHERS THEN
10859: IF l_debug = FND_API.G_TRUE THEN
10860: QP_PREQ_GRP.engine_debug('Exception Usage Pricing '|| SQLERRM);
10861: END IF;
10862: x_return_status := FND_API.G_RET_STS_ERROR;
10863: x_return_status_text := 'QP_PREQ_PUB.Usage_Pricing Exception: '
10864: || SQLERRM;
10870: SELECT G_YES
10871: FROM qp_npreq_lines_tmp line
10872: WHERE line.pricing_status_code IN
10873: (G_STATUS_UPDATED, G_STATUS_UNCHANGED, G_STATUS_GSA_VIOLATION)
10874: AND line.usage_pricing_type = QP_PREQ_GRP.G_BILLING_TYPE;
10875:
10876: x_call_usage_pricing VARCHAR2(1) := G_NO;
10877: BEGIN
10878: OPEN l_chk_usage_cur;
10881: RETURN x_call_usage_pricing;
10882: EXCEPTION
10883: WHEN OTHERS THEN
10884: IF l_debug = FND_API.G_TRUE THEN
10885: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Call_Usage_Pricing Exception: '|| SQLERRM);
10886: END IF;
10887: x_call_usage_pricing := NULL;
10888: END Call_Usage_Pricing;
10889:
11052: --or (buyline.price_flag = G_PHASE
11053: --and oldprg.pricing_phase_id = ev.pricing_phase_id
11054: --and ph.freeze_override_flag = G_YES));
11055:
11056: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11057: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11058: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11059: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11060: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
11053: --and oldprg.pricing_phase_id = ev.pricing_phase_id
11054: --and ph.freeze_override_flag = G_YES));
11055:
11056: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11057: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11058: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11059: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11060: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
11061: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
11054: --and ph.freeze_override_flag = G_YES));
11055:
11056: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11057: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11058: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11059: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11060: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
11061: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
11062: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11055:
11056: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11057: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11058: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11059: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11060: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
11061: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
11062: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11063:
11056: l_fg_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11057: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11058: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11059: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11060: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
11061: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
11062: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11063:
11064: -- bug 3639169 - changed from dynamic sql to static sql for performance
11057: l_fg_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11058: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11059: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11060: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
11061: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
11062: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11063:
11064: -- bug 3639169 - changed from dynamic sql to static sql for performance
11065: CURSOR l_prg_debug IS
11058: l_buy_list_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11059: l_buy_line_index_tbl QP_PREQ_GRP.NUMBER_TYPE;
11060: l_buy_updated_flag_tbl QP_PREQ_GRP.FLAG_TYPE;
11061: l_fg_operand_tbl QP_PREQ_GRP.NUMBER_TYPE;
11062: l_fg_operator_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11063:
11064: -- bug 3639169 - changed from dynamic sql to static sql for performance
11065: CURSOR l_prg_debug IS
11066: SELECT prg.line_id buy_line_id, prg.list_line_id prg_list_line_id,
11092:
11093: l_fgdline_exist NUMBER := 0; --bug 14396941
11094: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Identify_freegood_lines ';
11095: BEGIN
11096: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11097: IF l_debug = FND_API.G_TRUE THEN
11098: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11099:
11100: END IF;
11094: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Identify_freegood_lines ';
11095: BEGIN
11096: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11097: IF l_debug = FND_API.G_TRUE THEN
11098: QP_PREQ_GRP.engine_debug('Begin Identify_freegood_lines: '|| p_event_code);
11099:
11100: END IF;
11101: x_return_status := FND_API.G_RET_STS_SUCCESS;
11102: x_return_status_text := '';
11104: IF l_debug = FND_API.G_TRUE THEN
11105: -- bug 3639169 - changed from dynamic sql to static sql for performance
11106: FOR cl IN l_prg_debug
11107: LOOP
11108: QP_PREQ_GRP.engine_debug('Printing out all PRGs irrespective of phases: '
11109: ||' buylineid '|| cl.buy_line_id ||' prglistlineid '|| cl.prg_list_line_id
11110: ||' prgpriceadjid '|| cl.prg_price_adj_id ||' prgupdatedflag '|| cl.updated_flag
11111: ||' fglineid '|| cl.fg_line_id ||' fgdis_listlineid '|| cl.fgdis_list_line_id
11112: ||' fgpriceadjid '|| cl.fg_price_adj_id ||' prg_phase_id '|| cl.prg_phase_id);
11112: ||' fgpriceadjid '|| cl.fg_price_adj_id ||' prg_phase_id '|| cl.prg_phase_id);
11113: END LOOP;
11114: END IF; --l_debug
11115:
11116: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11117: AND l_debug = FND_API.G_TRUE
11118: THEN
11119: FOR cl IN
11120: (SELECT buyline.line_index
11148: AND oldfgdis.price_adjustment_id = oldrltd.rltd_price_adj_id
11149: AND oldfgdis.list_line_type_code = 'DIS')
11150: LOOP
11151: IF l_debug = FND_API.G_TRUE THEN
11152: qp_preq_grp.engine_debug('ident fg dtls: buylineindex '|| cl.line_index
11153: ||' prg-list_line_id '|| cl.list_line_id
11154: ||' fgline_id '|| cl.line_id ||' updated_flag '|| cl.updated_flag);
11155: END IF;
11156: END LOOP; --for cl
11183: l_fgdline_exist := 0;
11184: end;
11185:
11186: IF l_debug = FND_API.G_TRUE THEN
11187: QP_PREQ_GRP.engine_debug('l_fgdline_exist 1 '|| l_fgdline_exist);
11188: END IF;
11189: ELSE
11190: l_fgdline_exist := 1;
11191: IF l_debug = FND_API.G_TRUE THEN
11188: END IF;
11189: ELSE
11190: l_fgdline_exist := 1;
11191: IF l_debug = FND_API.G_TRUE THEN
11192: QP_PREQ_GRP.engine_debug('l_fgdline_exist 2 '|| l_fgdline_exist);
11193: END IF;
11194: END IF;
11195: --bug 14396941
11196:
11216: END IF; --bug 14396941
11217: IF l_fg_line_index_tbl.COUNT > 0
11218: THEN
11219: IF l_debug = FND_API.G_TRUE THEN
11220: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11221:
11222: END IF;
11223: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11224: THEN
11219: IF l_debug = FND_API.G_TRUE THEN
11220: QP_PREQ_GRP.engine_debug('Freegood lines exist: '|| l_fg_line_index_tbl.COUNT);
11221:
11222: END IF;
11223: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11224: THEN
11225: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11226: LOOP
11227: IF l_debug = FND_API.G_TRUE THEN
11224: THEN
11225: FOR i IN l_fg_line_index_tbl.FIRST..l_fg_line_index_tbl.LAST
11226: LOOP
11227: IF l_debug = FND_API.G_TRUE THEN
11228: QP_PREQ_GRP.engine_debug('process_sts: line_ind '
11229: || l_fg_line_index_tbl(i) ||' fglist_line_id '
11230: || l_fg_list_line_id_tbl(i) ||' fgdis operand '
11231: || l_fg_operand_tbl(i) ||' fgdis operator '
11232: || l_fg_operator_tbl(i) ||' prglist_line_id '
11248: WHERE line_index = l_fg_line_index_tbl(i);
11249:
11250: END IF; --l_fg_line_index_tbl.count
11251:
11252: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11253: THEN
11254: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11255: WHERE instr(process_status, G_FREEGOOD) > 0)
11256: LOOP
11254: FOR cl IN (SELECT line_index, process_status FROM qp_npreq_lines_tmp
11255: WHERE instr(process_status, G_FREEGOOD) > 0)
11256: LOOP
11257: IF l_debug = FND_API.G_TRUE THEN
11258: QP_PREQ_GRP.engine_debug('Freegood line dtl: line_ind '
11259: || cl.line_index ||' process_sts '|| cl.process_status);
11260: END IF;
11261: END LOOP; --for cl
11262: END IF; --debug
11261: END LOOP; --for cl
11262: END IF; --debug
11263:
11264: IF l_debug = FND_API.G_TRUE THEN
11265: QP_PREQ_GRP.engine_debug('End Identify_freegood_lines');
11266: END IF;
11267: EXCEPTION
11268: WHEN OTHERS THEN
11269: x_return_status := FND_API.G_RET_STS_ERROR;
11268: WHEN OTHERS THEN
11269: x_return_status := FND_API.G_RET_STS_ERROR;
11270: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11271: IF l_debug = FND_API.G_TRUE THEN
11272: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11273: END IF;
11274: END Identify_freegood_lines;
11275:
11276: --procedure to mark the prg lines as deleted if
11289: AND rltd.relationship_type_code = G_GENERATED_LINE
11290: AND line.line_index = rltd.related_line_index
11291: AND line.process_status IN (G_NOT_VALID, G_STATUS_DELETED); --bug 3126969
11292:
11293: l_mark_prg_delete_index QP_PREQ_GRP.number_type;
11294: l_mark_fgdis_delete_index QP_PREQ_GRP.number_type;
11295: l_prg_list_line_id NUMBER;
11296:
11297: l_debug VARCHAR2(3);
11290: AND line.line_index = rltd.related_line_index
11291: AND line.process_status IN (G_NOT_VALID, G_STATUS_DELETED); --bug 3126969
11292:
11293: l_mark_prg_delete_index QP_PREQ_GRP.number_type;
11294: l_mark_fgdis_delete_index QP_PREQ_GRP.number_type;
11295: l_prg_list_line_id NUMBER;
11296:
11297: l_debug VARCHAR2(3);
11298: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11296:
11297: l_debug VARCHAR2(3);
11298: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11299: BEGIN
11300: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11301: IF l_debug = FND_API.G_TRUE THEN
11302: QP_PREQ_GRP.engine_debug('Begin Update_prg_pricing_status');
11303: END IF;
11304: OPEN l_mark_prg_delete_cur;
11298: l_routine VARCHAR2(50) := 'QP_PREQ_PUB.Update_prg_pricing_status';
11299: BEGIN
11300: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11301: IF l_debug = FND_API.G_TRUE THEN
11302: QP_PREQ_GRP.engine_debug('Begin Update_prg_pricing_status');
11303: END IF;
11304: OPEN l_mark_prg_delete_cur;
11305: l_mark_prg_delete_index.DELETE;
11306: l_mark_fgdis_delete_index.DELETE;
11315: BEGIN
11316: SELECT created_from_list_line_id INTO l_prg_list_line_id
11317: FROM qp_npreq_ldets_tmp
11318: WHERE line_detail_index = l_mark_prg_delete_index(i);
11319: QP_PREQ_GRP.engine_debug('Mark delete prg '|| l_mark_prg_delete_index(i)
11320: ||' list_line_id '|| l_prg_list_line_id);
11321: EXCEPTION
11322: WHEN OTHERS THEN
11323: QP_PREQ_GRP.engine_debug('Mark delete prg list_line_id -1');
11319: QP_PREQ_GRP.engine_debug('Mark delete prg '|| l_mark_prg_delete_index(i)
11320: ||' list_line_id '|| l_prg_list_line_id);
11321: EXCEPTION
11322: WHEN OTHERS THEN
11323: QP_PREQ_GRP.engine_debug('Mark delete prg list_line_id -1');
11324: END;
11325: END LOOP;
11326: END IF; --l_debug
11327: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = 'N' THEN
11339: BEGIN
11340: SELECT created_from_list_line_id INTO l_prg_list_line_id
11341: FROM qp_npreq_ldets_tmp
11342: WHERE line_detail_index = l_mark_fgdis_delete_index(i);
11343: QP_PREQ_GRP.engine_debug('Mark delete fgdis '|| l_mark_fgdis_delete_index
11344: (i)
11345: ||' list_line_id '|| l_prg_list_line_id);
11346: EXCEPTION
11347: WHEN OTHERS THEN
11344: (i)
11345: ||' list_line_id '|| l_prg_list_line_id);
11346: EXCEPTION
11347: WHEN OTHERS THEN
11348: QP_PREQ_GRP.engine_debug('Mark delete fgdis list_line_id -1');
11349: END;
11350: END LOOP;
11351: END IF; --l_debug
11352: FORALL i IN l_mark_fgdis_delete_index.FIRST..l_mark_fgdis_delete_index.LAST
11353: UPDATE qp_npreq_ldets_tmp SET pricing_status_code = G_STATUS_DELETED
11354: WHERE line_detail_index = l_mark_fgdis_delete_index(i);
11355: END IF; --l_mark_fgdis_delete_index.count
11356: IF l_debug = FND_API.G_TRUE THEN
11357: QP_PREQ_GRP.engine_debug('End Update_prg_pricing_status');
11358: END IF;
11359: x_return_status := FND_API.G_RET_STS_SUCCESS;
11360: EXCEPTION
11361: WHEN OTHERS THEN
11361: WHEN OTHERS THEN
11362: x_return_status := FND_API.G_RET_STS_ERROR;
11363: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
11364: IF l_debug = FND_API.G_TRUE THEN
11365: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
11366: END IF;
11367: END Update_prg_pricing_status;
11368:
11369: --This procedure processes the passed in freegood lines marked from the
11692: AND rltd.line_index = ldet.line_index
11693: AND rltd.line_detail_index = ldet.line_detail_index
11694: AND rltd.pricing_status_code = G_STATUS_NEW;
11695:
11696: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11697: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11698: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11699: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11700:
11693: AND rltd.line_detail_index = ldet.line_detail_index
11694: AND rltd.pricing_status_code = G_STATUS_NEW;
11695:
11696: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11697: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11698: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11699: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11700:
11701: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11694: AND rltd.pricing_status_code = G_STATUS_NEW;
11695:
11696: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11697: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11698: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11699: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11700:
11701: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11702:
11695:
11696: l_prg_line_ind_tbl QP_PREQ_GRP.NUMBER_TYPE;
11697: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11698: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11699: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11700:
11701: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11702:
11703: l_Process_PRG VARCHAR2(1) := G_NO;
11697: l_prg_process_sts_tbl QP_PREQ_GRP.VARCHAR_TYPE;
11698: l_prg_line_id_tbl QP_PREQ_GRP.NUMBER_TYPE;
11699: l_prg_price_flag_tbl QP_PREQ_GRP.VARCHAR_TYPE; -- Ravi
11700:
11701: l_upd_engine_fg_index QP_PREQ_GRP.NUMBER_TYPE;
11702:
11703: l_Process_PRG VARCHAR2(1) := G_NO;
11704: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Process_PRG ';
11705: l_oldfgdis_list_line_id VARCHAR2(2000);
11706: l_old_operand VARCHAR2(240);
11707:
11708: i PLS_INTEGER;
11709: BEGIN
11710: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11711: IF l_debug = FND_API.G_TRUE THEN
11712: QP_PREQ_GRP.engine_debug('Begin process_prg');
11713: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11714:
11708: i PLS_INTEGER;
11709: BEGIN
11710: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11711: IF l_debug = FND_API.G_TRUE THEN
11712: QP_PREQ_GRP.engine_debug('Begin process_prg');
11713: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11714:
11715: END IF;
11716: --initialize pl/sql tables
11709: BEGIN
11710: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
11711: IF l_debug = FND_API.G_TRUE THEN
11712: QP_PREQ_GRP.engine_debug('Begin process_prg');
11713: QP_PREQ_GRP.engine_debug('Process_prg req_type '|| G_REQUEST_TYPE_CODE);
11714:
11715: END IF;
11716: --initialize pl/sql tables
11717: l_prg_line_ind_tbl.DELETE;
11736: AND ROWNUM = 1;
11737: EXCEPTION
11738: WHEN NO_DATA_FOUND THEN
11739: IF l_debug = FND_API.G_TRUE THEN
11740: QP_PREQ_GRP.engine_debug('No PRG: ');
11741: END IF;
11742: l_Process_PRG := G_NO;
11743: WHEN OTHERS THEN
11744: IF l_debug = FND_API.G_TRUE THEN
11741: END IF;
11742: l_Process_PRG := G_NO;
11743: WHEN OTHERS THEN
11744: IF l_debug = FND_API.G_TRUE THEN
11745: QP_PREQ_GRP.engine_debug('Error in PRG: '|| SQLERRM);
11746: END IF;
11747: --x_return_status := FND_API.G_RET_STS_ERROR;
11748: --x_return_status_text := l_routine||SQLERRM;
11749: RAISE PRG_Exception;
11749: RAISE PRG_Exception;
11750: END;
11751:
11752: IF l_debug = FND_API.G_TRUE THEN
11753: QP_PREQ_GRP.engine_debug('Value of process_PRG '|| l_Process_PRG);
11754:
11755:
11756: END IF;
11757: IF l_Process_PRG = G_NO
11764: AND instr(line.process_status, G_FREEGOOD) > 0
11765: AND ROWNUM = 1;
11766:
11767: IF l_debug = FND_API.G_TRUE THEN
11768: QP_PREQ_GRP.engine_debug('Value of process_PRG after fg '|| l_Process_PRG);
11769: END IF; --l_debug
11770:
11771: IF l_Process_PRG = G_NO THEN
11772: SELECT 'Y' INTO l_Process_PRG
11792: AND adj.pricing_status_code = G_STATUS_UNCHANGED
11793: AND adj.updated_flag = G_YES);
11794: END IF; --l_PROCESS_PRG
11795: IF l_debug = FND_API.G_TRUE THEN
11796: QP_PREQ_GRP.engine_debug('Value of process_PRG after over '|| l_Process_PRG);
11797: END IF; --Bug No - 4033618
11798: EXCEPTION
11799: WHEN NO_DATA_FOUND THEN
11800: l_Process_PRG := G_NO;
11798: EXCEPTION
11799: WHEN NO_DATA_FOUND THEN
11800: l_Process_PRG := G_NO;
11801: IF l_debug = FND_API.G_TRUE THEN
11802: QP_PREQ_GRP.engine_debug('No PRG in oe_price_adj');
11803: END IF;
11804: WHEN OTHERS THEN
11805: l_Process_PRG := G_NO;
11806: IF l_debug = FND_API.G_TRUE THEN
11803: END IF;
11804: WHEN OTHERS THEN
11805: l_Process_PRG := G_NO;
11806: IF l_debug = FND_API.G_TRUE THEN
11807: QP_PREQ_GRP.engine_debug('Exception in prg '|| SQLERRM);
11808: END IF;
11809: END;
11810: END IF; --l_Process_PRG
11811:
11809: END;
11810: END IF; --l_Process_PRG
11811:
11812: IF l_debug = FND_API.G_TRUE THEN
11813: QP_PREQ_GRP.engine_debug('Value of process_PRG after query '|| l_Process_PRG);
11814:
11815: END IF;
11816:
11817: IF l_debug = FND_API.G_TRUE THEN
11830: AND adj.header_id = line.line_id
11831: AND adj.line_id IS NULL
11832: AND adj.list_line_type_code = G_PROMO_GOODS_DISCOUNT)
11833: LOOP
11834: QP_PREQ_GRP.engine_debug('PRGs check whether update_flag: '
11835: ||'prg listlineid '|| cl.list_line_id ||' updatedflag '|| cl.updated_flag
11836: ||' buylineid '|| cl.line_id ||' prgphaseid '|| cl.pricing_phase_id);
11837: FOR fg IN
11838: (SELECT rltd.related_line_index, ldet.created_from_list_line_id
11843: AND ldet.created_from_list_line_id = cl.list_line_id
11844: AND rltd.line_index = ldet.line_index
11845: AND rltd.line_detail_index = ldet.line_detail_index)
11846: LOOP
11847: QP_PREQ_GRP.engine_debug('PRGs check whether engine_prg: '
11848: ||'engine prg listlineid '|| fg.created_from_list_line_id
11849: ||' fg line_index '|| fg.related_line_index);
11850: END LOOP; --fgline
11851: END LOOP; --cl
11868: --pricing_status_code needs to be set to G_NOT_VALID so that this does not get into OM's
11869: --update statement to update lines with UPDATE status
11870:
11871: IF l_debug = FND_API.G_TRUE THEN
11872: QP_PREQ_GRP.engine_debug('Updated PRGs No. of passed-in fg lines updated '
11873: || SQL%ROWCOUNT);
11874: END IF; --l_debug
11875:
11876: OPEN l_updated_prg_fg_cur;
11880: l_upd_engine_fg_index; --, l_upd_passedin_fg_index;
11881: CLOSE l_updated_prg_fg_cur;
11882:
11883: IF l_debug = FND_API.G_TRUE THEN
11884: -- QP_PREQ_GRP.engine_debug('Count. of passed-in fg lines '
11885: -- ||l_upd_passedin_fg_index.count);
11886: QP_PREQ_GRP.engine_debug('Count. of engine-created fg lines '
11887: || l_upd_engine_fg_index.COUNT);
11888: END IF;
11882:
11883: IF l_debug = FND_API.G_TRUE THEN
11884: -- QP_PREQ_GRP.engine_debug('Count. of passed-in fg lines '
11885: -- ||l_upd_passedin_fg_index.count);
11886: QP_PREQ_GRP.engine_debug('Count. of engine-created fg lines '
11887: || l_upd_engine_fg_index.COUNT);
11888: END IF;
11889:
11890:
11910:
11911: IF l_Process_PRG = G_YES
11912: THEN
11913: --only if there are prg based modifiers
11914: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
11915: AND l_debug = FND_API.G_TRUE
11916: THEN
11917: FOR cl IN (SELECT newprg.line_index line_ind
11918: , newprg.created_from_list_line_id
11926: AND instr(oldfgline.process_status
11927: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11928: LOOP
11929: IF l_debug = FND_API.G_TRUE THEN
11930: QP_PREQ_GRP.engine_debug('prg fgline: ind '|| cl.line_ind
11931: ||' prg '|| cl.created_from_list_line_id);
11932: END IF;
11933: END LOOP; --for cl
11934: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
11930: QP_PREQ_GRP.engine_debug('prg fgline: ind '|| cl.line_ind
11931: ||' prg '|| cl.created_from_list_line_id);
11932: END IF;
11933: END LOOP; --for cl
11934: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
11935:
11936: --the following update will update the process_status on freegood lines
11937: --identified from the previous identify_freegood_lines procedure
11938: --to G_STATUS_DELETED if the pricing engine has not created matching
11952: , G_PROMO_GOODS_DISCOUNT || newprg.created_from_list_line_id || G_PROMO_GOODS_DISCOUNT) > 0)
11953: AND instr(oldfgline.process_status, G_FREEGOOD) > 0;
11954:
11955: IF l_debug = FND_API.G_TRUE THEN
11956: QP_PREQ_GRP.engine_debug('updated delete prg lines rowcnt: '|| SQL%ROWCOUNT);
11957:
11958: END IF;
11959: FOR freegood IN l_compare_freegood_cur
11960: LOOP
11958: END IF;
11959: FOR freegood IN l_compare_freegood_cur
11960: LOOP
11961: IF l_debug = FND_API.G_TRUE THEN
11962: QP_PREQ_GRP.engine_debug('In compare_cur '
11963: ||' new_priced_qty '|| freegood.new_priced_quantity
11964: ||' old_priced_qty '|| freegood.old_priced_quantity
11965: ||' new_priced_uom '|| freegood.new_priced_uom_code
11966: ||' old_priced_uom '|| freegood.old_priced_uom_code
12000: instr(freegood.old_list_line_id, G_STATUS_UPDATED) + 7),
12001: G_PROMO_GOODS_DISCOUNT, '');
12002:
12003: IF l_debug = FND_API.G_TRUE THEN
12004: QP_PREQ_GRP.engine_debug(' The old_fg_list_line_id is '
12005: || l_oldfgdis_list_line_id
12006: ||' the old_operand is '|| l_old_operand);
12007: END IF; --l_debug
12008:
12049: nvl(freegood.newfgdis_list_line_id, 0))
12050: AND (nvl(l_old_operand, 0) = nvl(freegood.newfgdis_operand, 0))
12051: THEN
12052: IF l_debug = FND_API.G_TRUE THEN
12053: QP_PREQ_GRP.engine_debug('In PRG if data unchanged ');
12054: END IF;
12055: G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT + 1) :=
12056: freegood.old_line_index;
12057: --fix for bug 2931437 this may not get populated if calculation does
12069: G_prg_unch_line_ind_tbl(freegood.old_line_index) :=
12070: G_prg_unch_line_index_tbl.COUNT;
12071:
12072: IF l_debug = FND_API.G_TRUE THEN
12073: QP_PREQ_GRP.engine_debug('if data unchanged: oldfg_lineindex '
12074: || G_prg_unch_line_index_tbl(G_prg_unch_line_index_tbl.COUNT) ||' selprice '
12075: || G_prg_unch_calc_price_tbl(G_prg_unch_line_index_tbl.COUNT));
12076: END IF; --l_debug
12077:
12087: l_prg_line_id_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_line_id;
12088: l_prg_price_flag_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_price_flag; -- Ravi
12089: ELSE --freegood cur
12090: IF l_debug = FND_API.G_TRUE THEN
12091: QP_PREQ_GRP.engine_debug('In PRG if data updated ');
12092: END IF;
12093: l_prg_line_ind_tbl(l_prg_line_ind_tbl.COUNT + 1) := freegood.old_line_index;
12094: l_prg_process_sts_tbl(l_prg_line_ind_tbl.COUNT) := G_NOT_VALID;
12095: l_prg_line_id_tbl(l_prg_line_ind_tbl.COUNT) := freegood.old_line_id;
12103:
12104: IF l_prg_line_ind_tbl.COUNT > 0
12105: THEN
12106: IF l_debug = FND_API.G_TRUE THEN
12107: QP_PREQ_GRP.engine_debug('prg details Here #1000');
12108: END IF; -- Bug No 4033618
12109: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12110: THEN
12111: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
12105: THEN
12106: IF l_debug = FND_API.G_TRUE THEN
12107: QP_PREQ_GRP.engine_debug('prg details Here #1000');
12108: END IF; -- Bug No 4033618
12109: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12110: THEN
12111: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
12112: LOOP
12113: IF l_debug = FND_API.G_TRUE THEN
12110: THEN
12111: FOR i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
12112: LOOP
12113: IF l_debug = FND_API.G_TRUE THEN
12114: QP_PREQ_GRP.engine_debug('prg details: line_index '
12115: || l_prg_line_ind_tbl(i) ||' process_status '
12116: || l_prg_process_sts_tbl(i) ||' line_id '|| l_prg_line_id_tbl(i)
12117: || 'price flag ' || l_prg_price_flag_tbl(i));
12118: END IF;
12116: || l_prg_process_sts_tbl(i) ||' line_id '|| l_prg_line_id_tbl(i)
12117: || 'price flag ' || l_prg_price_flag_tbl(i));
12118: END IF;
12119: END LOOP; --l_prg_line_ind_tbl
12120: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12121:
12122: IF l_debug = FND_API.G_TRUE THEN
12123: QP_PREQ_GRP.engine_debug('passed in frg update '|| l_prg_line_ind_tbl.COUNT);
12124:
12119: END LOOP; --l_prg_line_ind_tbl
12120: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12121:
12122: IF l_debug = FND_API.G_TRUE THEN
12123: QP_PREQ_GRP.engine_debug('passed in frg update '|| l_prg_line_ind_tbl.COUNT);
12124:
12125: END IF;
12126: FORALL i IN l_prg_line_ind_tbl.FIRST..l_prg_line_ind_tbl.LAST
12127: UPDATE qp_npreq_lines_tmp line SET
12138: WHERE line.line_index = l_prg_line_ind_tbl(i);
12139: END IF; --l_prg_line_ind_tbl.COUNT
12140:
12141: IF l_debug = FND_API.G_TRUE THEN
12142: QP_PREQ_GRP.engine_debug('End process_prg');
12143: END IF;
12144: END IF; --l_process_prg
12145: -- service project
12146: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG <> G_YES THEN
12145: -- service project
12146: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG <> G_YES THEN
12147: UPDATE qp_npreq_lines_tmp SET pricing_status_code = G_NOT_VALID, process_status = G_NOT_VALID
12148: WHERE PROCESSED_CODE = G_BY_ENGINE AND SERVICE_PERIOD IS NOT NULL;
12149: QP_PREQ_GRP.engine_debug('deleted service rows'||SQL%rowcount);
12150: END IF;
12151: -- service project
12152: --bug 2970368
12153: --IF G_REQUEST_TYPE_CODE <> 'ONT' THEN
12167: WHEN PRG_Exception THEN
12168: x_return_status := FND_API.G_RET_STS_ERROR;
12169: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12170: IF l_debug = FND_API.G_TRUE THEN
12171: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12172: END IF;
12173: WHEN OTHERS THEN
12174: x_return_status := FND_API.G_RET_STS_ERROR;
12175: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12173: WHEN OTHERS THEN
12174: x_return_status := FND_API.G_RET_STS_ERROR;
12175: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12176: IF l_debug = FND_API.G_TRUE THEN
12177: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12178: END IF;
12179: END Process_PRG;
12180:
12181: --This procedure compares the selling price of the old and new
12186: x_return_status_text OUT NOCOPY VARCHAR2) IS
12187: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_PRG_Process_status ';
12188:
12189: BEGIN
12190: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12191: IF l_debug = FND_API.G_TRUE THEN
12192: QP_PREQ_GRP.engine_debug('Begin Update_PRG_Process_status');
12193:
12194: END IF;
12188:
12189: BEGIN
12190: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12191: IF l_debug = FND_API.G_TRUE THEN
12192: QP_PREQ_GRP.engine_debug('Begin Update_PRG_Process_status');
12193:
12194: END IF;
12195: IF G_prg_unch_line_index_tbl.COUNT > 0
12196: THEN
12194: END IF;
12195: IF G_prg_unch_line_index_tbl.COUNT > 0
12196: THEN
12197: IF l_debug = FND_API.G_TRUE THEN
12198: QP_PREQ_GRP.engine_debug('unchanged prg update '
12199: || G_prg_unch_line_index_tbl.COUNT);
12200:
12201: END IF;
12202: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12198: QP_PREQ_GRP.engine_debug('unchanged prg update '
12199: || G_prg_unch_line_index_tbl.COUNT);
12200:
12201: END IF;
12202: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
12203: THEN
12204: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12205: LOOP
12206: IF l_debug = FND_API.G_TRUE THEN
12203: THEN
12204: FOR j IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12205: LOOP
12206: IF l_debug = FND_API.G_TRUE THEN
12207: QP_PREQ_GRP.engine_debug('Unchanged details unch line_index '
12208: || G_prg_unch_line_index_tbl(j) ||' new line_index '
12209: || G_prg_unch_new_index_tbl(j) ||' adj_unit_price '
12210: || G_prg_unch_calc_price_tbl(j));
12211: END IF;
12209: || G_prg_unch_new_index_tbl(j) ||' adj_unit_price '
12210: || G_prg_unch_calc_price_tbl(j));
12211: END IF;
12212: END LOOP; --G_prg_unch_line_index_tbl
12213: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12214:
12215: FORALL i IN G_prg_unch_line_index_tbl.FIRST..G_prg_unch_line_index_tbl.LAST
12216: UPDATE qp_npreq_lines_tmp line SET line.process_status =
12217: --fix for bug 2831270
12250:
12251: x_return_status := FND_API.G_RET_STS_SUCCESS;
12252:
12253: IF l_debug = FND_API.G_TRUE THEN
12254: QP_PREQ_GRP.engine_debug('End Update_PRG_Process_status');
12255:
12256: END IF;
12257: EXCEPTION
12258: WHEN OTHERS THEN
12258: WHEN OTHERS THEN
12259: x_return_status := FND_API.G_RET_STS_ERROR;
12260: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12261: IF l_debug = FND_API.G_TRUE THEN
12262: QP_PREQ_GRP.engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12263: END IF;
12264: END Update_PRG_Process_status;
12265:
12266: --This procedure will populate g_buyline_price_flag
12289: I PLS_INTEGER;
12290: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Populate_buy_line_price_flag';
12291: BEGIN
12292: IF l_debug = FND_API.G_TRUE THEN
12293: QP_PREQ_GRP.engine_debug('Begin Populate_buy_line_price_flag');
12294:
12295: END IF;
12296: --G_buyline_price_flag.delete;
12297: G_BUYLINE_INDEXES_FOR_LINE_ID.DELETE;
12301: FROM qp_npreq_rltd_lines_tmp WHERE pricing_status_code = G_STATUS_NEW
12302: AND relationship_type_code = G_GENERATED_LINE)
12303: LOOP
12304: IF l_debug = FND_API.G_TRUE THEN
12305: QP_PREQ_GRP.engine_debug('loop linedtl '|| c1.line_detail_index ||' rltddtl '
12306: || c1.related_line_detail_index ||' lineind '|| c1.line_index);
12307: END IF;
12308: FOR c2 IN (SELECT line_index, line_detail_index FROM qp_npreq_ldets_tmp
12309: WHERE line_detail_index = c1.line_detail_index
12311: AND created_from_list_line_type IN
12312: (G_OTHER_ITEM_DISCOUNT, G_PROMO_GOODS_DISCOUNT))
12313: LOOP
12314: IF l_debug = FND_API.G_TRUE THEN
12315: QP_PREQ_GRP.engine_debug('loop ldet linedtl '|| c2.line_detail_index);
12316: END IF;
12317: END LOOP; --c2
12318: END LOOP; --c1
12319: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12315: QP_PREQ_GRP.engine_debug('loop ldet linedtl '|| c2.line_detail_index);
12316: END IF;
12317: END LOOP; --c2
12318: END LOOP; --c1
12319: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
12320:
12321: FOR buyline IN l_buyline_price_flag_cur
12322: LOOP
12323: IF l_debug = FND_API.G_TRUE THEN
12320:
12321: FOR buyline IN l_buyline_price_flag_cur
12322: LOOP
12323: IF l_debug = FND_API.G_TRUE THEN
12324: QP_PREQ_GRP.engine_debug('In buyline loop list_line_id '
12325: || buyline.created_from_list_line_id
12326: ||' w/PRG ldet '|| buyline.line_detail_index -- 3493716
12327: ||' price_flag '|| buyline.price_flag
12328: ||' get line_index '|| buyline.line_index);
12335: G_BUYLINE_INDEXES_FOR_LINE_ID(buyline.created_from_list_line_id) := ',' || buyline.line_index || ',';
12336: END IF;
12337: END LOOP;
12338: /*
12339: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12340: i := G_buyline_price_flag.FIRST;
12341: WHILE i IS NOT NULL
12342: LOOP
12343: IF l_debug = FND_API.G_TRUE THEN
12340: i := G_buyline_price_flag.FIRST;
12341: WHILE i IS NOT NULL
12342: LOOP
12343: IF l_debug = FND_API.G_TRUE THEN
12344: QP_PREQ_GRP.engine_debug('In g_buyline loop list_line_id '
12345: ||I||' price_flag '||G_buyline_price_flag(I));
12346: END IF;
12347: I := G_buyline_price_flag.NEXT(I);
12348: END LOOP;--while
12345: ||I||' price_flag '||G_buyline_price_flag(I));
12346: END IF;
12347: I := G_buyline_price_flag.NEXT(I);
12348: END LOOP;--while
12349: END IF;--QP_PREQ_GRP.G_DEBUG_ENGINE
12350:
12351: OPEN l_buyline_price_flag_cur;
12352: FETCH l_buyline_price_flag_cur BULK COLLECT INTO
12353: G_buyline_list_line_id, G_buyline_price_flag;
12370: and rltd.line_detail_index = freegood_dis.line_detail_index);
12371: */
12372:
12373: IF l_debug = FND_API.G_TRUE THEN
12374: QP_PREQ_GRP.engine_debug('End Populate_buy_line_price_flag');
12375: END IF;
12376: x_return_status := FND_API.G_RET_STS_SUCCESS;
12377: EXCEPTION
12378: WHEN OTHERS THEN
12378: WHEN OTHERS THEN
12379: x_return_status := FND_API.G_RET_STS_ERROR;
12380: x_return_status_text := 'Exception in '|| l_routine ||' '|| SQLERRM;
12381: IF l_debug = FND_API.G_TRUE THEN
12382: QP_PREQ_GRP.Engine_debug(x_return_status_text);
12383: END IF;
12384: END Populate_buy_line_price_flag;
12385:
12386: -- 3721860: Added a parameter p_line_index
12392: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Get_buy_line_price_flag';
12393: l_count NUMBER;
12394: BEGIN
12395: IF l_debug = FND_API.G_TRUE THEN
12396: QP_PREQ_GRP.engine_debug('Begin Get_buy_line_price_flag, p_list_line_id p_line_index: '|| p_list_line_id || ' ' || p_line_index);
12397:
12398: END IF;
12399: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12400: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12399: IF G_BUYLINE_INDEXES_FOR_LINE_ID.COUNT > 0 THEN
12400: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12401: l_count := instr(G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id), ',' || p_line_index || ',');
12402: IF l_debug = FND_API.G_TRUE THEN
12403: QP_PREQ_GRP.engine_debug('G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id) ' || G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id));
12404: QP_PREQ_GRP.engine_debug('l_count ' || l_count);
12405: END IF;
12406: IF l_count > 0 THEN
12407: RETURN 'Y';
12400: IF G_BUYLINE_INDEXES_FOR_LINE_ID.EXISTS(p_list_line_id) THEN
12401: l_count := instr(G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id), ',' || p_line_index || ',');
12402: IF l_debug = FND_API.G_TRUE THEN
12403: QP_PREQ_GRP.engine_debug('G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id) ' || G_BUYLINE_INDEXES_FOR_LINE_ID(p_list_line_id));
12404: QP_PREQ_GRP.engine_debug('l_count ' || l_count);
12405: END IF;
12406: IF l_count > 0 THEN
12407: RETURN 'Y';
12408: ELSE
12417:
12418: EXCEPTION
12419: WHEN OTHERS THEN
12420: IF l_debug = FND_API.G_TRUE THEN
12421: QP_PREQ_GRP.Engine_debug('Exception in '|| l_routine ||' '|| SQLERRM);
12422: END IF;
12423: RETURN NULL;
12424: END Get_buy_line_price_flag;
12425:
12467:
12468: Coupon_Exception EXCEPTION;
12469:
12470: BEGIN
12471: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12472: FOR ldet IN l_get_list_lines_cur
12473: LOOP
12474: QP_COUPON_PVT.PROCESS_COUPON_ISSUE(
12475: p_line_detail_index => ldet.line_detail_index,
12485:
12486: EXCEPTION
12487: WHEN Coupon_Exception THEN
12488: IF l_debug = FND_API.G_TRUE THEN
12489: QP_PREQ_GRP.engine_debug('Exception in QP_PREQ_PUB.Process_coupon_issue '|| x_return_status_text);
12490: END IF;
12491: WHEN OTHERS THEN
12492: x_return_status := FND_API.G_RET_STS_ERROR;
12493: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12491: WHEN OTHERS THEN
12492: x_return_status := FND_API.G_RET_STS_ERROR;
12493: x_return_status_text := 'Exception in QP_PREQ_PUB.Process_coupon_issue '|| SQLERRM;
12494: IF l_debug = FND_API.G_TRUE THEN
12495: QP_PREQ_GRP.engine_debug(x_return_status_text);
12496: END IF;
12497: END Process_coupon_issue;
12498:
12499: --This procedure will update the line_quantity on ldets
12533: AND lattr.context = G_PRIC_VOLUME_CONTEXT
12534: AND qpl.list_line_id = ldet.created_from_list_line_id
12535: AND qpl.automatic_flag = 'N' ; -- this procedure is needed only for manual modifiers since for automatic modifiers will be calculated in QPXGPREB
12536:
12537: l_recur_dtl_index_tbl QP_PREQ_GRP.number_type;
12538: l_recur_tot_benefit_qty_tbl QP_PREQ_GRP.number_type;
12539: l_recur_benefit_qty_tbl QP_PREQ_GRP.number_type; --Bug 2804053
12540: l_recur_benefit_qty NUMBER;
12541: l_recur_base_qty NUMBER;
12534: AND qpl.list_line_id = ldet.created_from_list_line_id
12535: AND qpl.automatic_flag = 'N' ; -- this procedure is needed only for manual modifiers since for automatic modifiers will be calculated in QPXGPREB
12536:
12537: l_recur_dtl_index_tbl QP_PREQ_GRP.number_type;
12538: l_recur_tot_benefit_qty_tbl QP_PREQ_GRP.number_type;
12539: l_recur_benefit_qty_tbl QP_PREQ_GRP.number_type; --Bug 2804053
12540: l_recur_benefit_qty NUMBER;
12541: l_recur_base_qty NUMBER;
12542: l_recur_qualifying_qty NUMBER;
12535: AND qpl.automatic_flag = 'N' ; -- this procedure is needed only for manual modifiers since for automatic modifiers will be calculated in QPXGPREB
12536:
12537: l_recur_dtl_index_tbl QP_PREQ_GRP.number_type;
12538: l_recur_tot_benefit_qty_tbl QP_PREQ_GRP.number_type;
12539: l_recur_benefit_qty_tbl QP_PREQ_GRP.number_type; --Bug 2804053
12540: l_recur_benefit_qty NUMBER;
12541: l_recur_base_qty NUMBER;
12542: l_recur_qualifying_qty NUMBER;
12543: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_recurring_quantity';
12542: l_recur_qualifying_qty NUMBER;
12543: l_routine VARCHAR2(100) := 'QP_PREQ_PUB.Update_recurring_quantity';
12544:
12545: BEGIN
12546: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
12547: l_recur_dtl_index_tbl.DELETE;
12548: l_recur_tot_benefit_qty_tbl.DELETE;
12549:
12550: FOR recurring IN l_get_recurring_cur
12549:
12550: FOR recurring IN l_get_recurring_cur
12551: LOOP
12552: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12553: QP_PREQ_GRP.engine_debug ('------in l_get_recurring_cur loop------');
12554: END IF; -- END IF l_debug
12555:
12556: IF recurring.created_from_list_line_type IN (G_DISCOUNT, G_SURCHARGE,
12557: G_PROMO_GOODS_DISCOUNT, G_COUPON_ISSUE) THEN
12567: l_recur_benefit_qty := 1;
12568: END IF; --recurring.created_from_list_line_type
12569:
12570: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12571: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty);
12572: END IF;
12573:
12574: IF recurring.modifier_level_code IN (G_LINE_LEVEL, G_ORDER_LEVEL) THEN
12575: l_recur_qualifying_qty := recurring.line_quantity;
12599: recurring.benefit_qty;
12600: END IF;
12601:
12602: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12603: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12604: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12605: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12606: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12607: END IF; -- END IF l_debug
12600: END IF;
12601:
12602: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12603: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12604: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12605: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12606: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12607: END IF; -- END IF l_debug
12608:
12601:
12602: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12603: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12604: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12605: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12606: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12607: END IF; -- END IF l_debug
12608:
12609: END IF; --recurring.created_from_list_line_type
12602: IF l_debug = FND_API.G_TRUE THEN -- shu 2702384
12603: QP_PREQ_GRP.engine_debug ('l_recur_qualifying_qty' || l_recur_qualifying_qty);
12604: QP_PREQ_GRP.engine_debug ('l_recur_base_qty' || l_recur_base_qty);
12605: QP_PREQ_GRP.engine_debug ('l_recur_tot_benefit_qty' || l_recur_tot_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12606: QP_PREQ_GRP.engine_debug ('l_recur_benefit_qty' || l_recur_benefit_qty_tbl(l_recur_dtl_index_tbl.COUNT));
12607: END IF; -- END IF l_debug
12608:
12609: END IF; --recurring.created_from_list_line_type
12610: END LOOP; --recurring
12610: END LOOP; --recurring
12611:
12612: IF l_recur_dtl_index_tbl.COUNT > 0 THEN
12613: IF l_debug = FND_API.G_TRUE THEN
12614: QP_PREQ_GRP.engine_debug('Updating recurring qty '|| l_recur_dtl_index_tbl.COUNT);
12615: END IF;
12616: FORALL i IN l_recur_dtl_index_tbl.FIRST .. l_recur_dtl_index_tbl.LAST
12617: UPDATE qp_npreq_ldets_tmp recur SET operand_value = -- shu fix 2702384
12618: l_recur_tot_benefit_qty_tbl(i)
12623: WHEN OTHERS THEN
12624: x_return_status := FND_API.G_RET_STS_ERROR;
12625: x_return_status_text := l_routine ||' '|| SQLERRM;
12626: IF l_debug = FND_API.G_TRUE THEN
12627: QP_PREQ_GRP.engine_debug('Exception in '|| x_return_status_text);
12628: END IF;
12629: END Update_recurring_quantity;
12630:
12631: --added by yangli for Java Engine
12671: ORDER_UOM_SELLING_PRICE
12672: FROM QP_INT_LINES;
12673:
12674: /*
12675: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12676: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_INT_LDETS_N4,PRICING_STATUS_CODE,1
12677: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12678: */
12679: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12672: FROM QP_INT_LINES;
12673:
12674: /*
12675: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12676: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_INT_LDETS_N4,PRICING_STATUS_CODE,1
12677: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12678: */
12679: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12680: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12673:
12674: /*
12675: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12676: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_INT_LDETS_N4,PRICING_STATUS_CODE,1
12677: INDX,QP_PREQ_GRP.populate_output_int.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12678: */
12679: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12680: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12681: a.LINE_DETAIL_INDEX,
12742:
12743: BEGIN
12744:
12745: IF l_debug = FND_API.G_TRUE THEN
12746: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12747: END IF;
12748:
12749: FOR l_line IN l_lines_cur LOOP
12750: IF l_debug = FND_API.G_TRUE THEN
12747: END IF;
12748:
12749: FOR l_line IN l_lines_cur LOOP
12750: IF l_debug = FND_API.G_TRUE THEN
12751: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12752: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12753: END IF;
12754:
12755: IF l_debug = FND_API.G_TRUE THEN
12748:
12749: FOR l_line IN l_lines_cur LOOP
12750: IF l_debug = FND_API.G_TRUE THEN
12751: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12752: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12753: END IF;
12754:
12755: IF l_debug = FND_API.G_TRUE THEN
12756: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12752: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12753: END IF;
12754:
12755: IF l_debug = FND_API.G_TRUE THEN
12756: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12757: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12753: END IF;
12754:
12755: IF l_debug = FND_API.G_TRUE THEN
12756: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12757: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12754:
12755: IF l_debug = FND_API.G_TRUE THEN
12756: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12757: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12755: IF l_debug = FND_API.G_TRUE THEN
12756: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12757: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12756: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12757: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12757: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12758: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12759: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12760: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12761: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12762: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12763: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12764: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12765: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12766: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12767: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12768: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12769: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12770: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12771: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12772: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12773: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12774: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12775: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12783: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12776: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12783: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12784: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12777: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12783: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12784: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12785: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12778: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12783: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12784: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12785: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12786: END IF;
12779: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12783: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12784: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12785: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12786: END IF;
12787:
12780: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12783: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12784: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12785: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12786: END IF;
12787:
12788: IF l_debug = FND_API.G_TRUE THEN
12781: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
12782: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
12783: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
12784: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
12785: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12786: END IF;
12787:
12788: IF l_debug = FND_API.G_TRUE THEN
12789: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12785: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
12786: END IF;
12787:
12788: IF l_debug = FND_API.G_TRUE THEN
12789: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12790:
12791: END IF;
12792: --Populate Line detail
12793: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12792: --Populate Line detail
12793: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12794:
12795: IF l_debug = FND_API.G_TRUE THEN
12796: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12797: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12793: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
12794:
12795: IF l_debug = FND_API.G_TRUE THEN
12796: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12797: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12794:
12795: IF l_debug = FND_API.G_TRUE THEN
12796: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12797: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12795: IF l_debug = FND_API.G_TRUE THEN
12796: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12797: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12796: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
12797: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12797: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12798: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12799: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12800: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12801: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12802: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12803: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12804: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12805: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12806: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12807: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12808: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12809: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12810: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12811: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12812: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12813: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12814: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12815: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12816: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12817: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12818: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12819: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12827: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12820: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12827: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12828: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12821: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12827: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12828: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12829: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12822: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12827: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12828: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12829: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12830: END IF;
12823: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12827: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12828: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12829: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12830: END IF;
12831: --Pass throuh components
12824: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12827: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12828: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12829: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12830: END IF;
12831: --Pass throuh components
12832: IF l_debug = FND_API.G_TRUE THEN
12825: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
12826: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
12827: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
12828: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
12829: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12830: END IF;
12831: --Pass throuh components
12832: IF l_debug = FND_API.G_TRUE THEN
12833: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12829: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
12830: END IF;
12831: --Pass throuh components
12832: IF l_debug = FND_API.G_TRUE THEN
12833: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12834: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12830: END IF;
12831: --Pass throuh components
12832: IF l_debug = FND_API.G_TRUE THEN
12833: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12834: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12831: --Pass throuh components
12832: IF l_debug = FND_API.G_TRUE THEN
12833: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12834: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12832: IF l_debug = FND_API.G_TRUE THEN
12833: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12834: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12833: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
12834: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12834: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12835: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12836: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12837: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12838: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12839: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12840: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12841: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12842: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12843: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12851: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12844: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12851: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12852: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12845: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12851: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12852: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12853:
12846: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12851: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12852: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12853:
12854: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12847: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12851: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12852: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12853:
12854: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12855: END IF;
12848: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
12849: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12851: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12852: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12853:
12854: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12855: END IF;
12856: END LOOP; --l_ldets_cur
12850: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
12851: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
12852: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
12853:
12854: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12855: END IF;
12856: END LOOP; --l_ldets_cur
12857: END LOOP; --end l_lines_cur
12858: IF l_debug = FND_API.G_TRUE THEN
12855: END IF;
12856: END LOOP; --l_ldets_cur
12857: END LOOP; --end l_lines_cur
12858: IF l_debug = FND_API.G_TRUE THEN
12859: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12860:
12861: END IF;
12862: EXCEPTION
12863: WHEN OTHERS THEN
12861: END IF;
12862: EXCEPTION
12863: WHEN OTHERS THEN
12864: IF l_debug = FND_API.G_TRUE THEN
12865: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM);
12866: END IF;
12867: x_return_status := FND_API.G_RET_STS_ERROR;
12868: x_return_status_text := 'QP_PREQ_PUB.Populate_Output_INT: '|| SQLERRM;
12869: END Populate_Output_INT;
12913: SERVICE_PERIOD
12914: FROM qp_npreq_lines_tmp;
12915:
12916: /*
12917: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12918: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,qp_npreq_ldets_tmp_N4,PRICING_STATUS_CODE,1
12919: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12920: */
12921: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12914: FROM qp_npreq_lines_tmp;
12915:
12916: /*
12917: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12918: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,qp_npreq_ldets_tmp_N4,PRICING_STATUS_CODE,1
12919: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12920: */
12921: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12922: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12915:
12916: /*
12917: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_LINES_PK,LIST_LINE_ID,1
12918: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,qp_npreq_ldets_tmp_N4,PRICING_STATUS_CODE,1
12919: INDX,QP_PREQ_GRP.populate_output.l_ldets_cur,QP_LIST_HEADERS_B_PK,LIST_HEADER_ID,1
12920: */
12921: CURSOR l_ldets_cur(p_line_index NUMBER) IS
12922: SELECT /*+ ORDERED USE_NL(A B C) l_ldets_cur */
12923: a.LINE_DETAIL_INDEX,
12986:
12987: BEGIN
12988:
12989: IF l_debug = FND_API.G_TRUE THEN
12990: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12991: END IF;
12992:
12993: FOR l_line IN l_lines_cur LOOP
12994: IF l_debug = FND_API.G_TRUE THEN
12991: END IF;
12992:
12993: FOR l_line IN l_lines_cur LOOP
12994: IF l_debug = FND_API.G_TRUE THEN
12995: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12996: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12997: END IF;
12998:
12999: IF l_debug = FND_API.G_TRUE THEN
12992:
12993: FOR l_line IN l_lines_cur LOOP
12994: IF l_debug = FND_API.G_TRUE THEN
12995: QP_PREQ_GRP.engine_debug('----price line info--------------------------------');
12996: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12997: END IF;
12998:
12999: IF l_debug = FND_API.G_TRUE THEN
13000: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
12996: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
12997: END IF;
12998:
12999: IF l_debug = FND_API.G_TRUE THEN
13000: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
13001: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
12997: END IF;
12998:
12999: IF l_debug = FND_API.G_TRUE THEN
13000: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
13001: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
12998:
12999: IF l_debug = FND_API.G_TRUE THEN
13000: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
13001: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
12999: IF l_debug = FND_API.G_TRUE THEN
13000: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
13001: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13000: QP_PREQ_GRP.engine_debug('*LINE_INDEX :='|| l_line.LINE_INDEX);
13001: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13001: QP_PREQ_GRP.engine_debug('*LINE_ID :='|| l_line.LINE_ID);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13002: QP_PREQ_GRP.engine_debug('LINE_TYPE_CODE :='|| l_line.LINE_TYPE_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13003: QP_PREQ_GRP.engine_debug('UOM_QUANTITY :='|| l_line.UOM_QUANTITY);
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13004: QP_PREQ_GRP.engine_debug('CURRENCY_CODE :='|| l_line.CURRENCY_CODE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13005: QP_PREQ_GRP.engine_debug('PRICED_QUANTITY :='|| l_line.PRICED_QUANTITY);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13006: QP_PREQ_GRP.engine_debug('PRICED_UOM_CODE :='|| l_line.PRICED_UOM_CODE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13007: QP_PREQ_GRP.engine_debug('*UNIT_PRICE :='|| l_line.UNIT_PRICE);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13008: QP_PREQ_GRP.engine_debug('*PRICE_LIST_ID :='|| l_line.PRICE_LIST_HEADER_ID);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13009: QP_PREQ_GRP.engine_debug('LINE_QUANTITY:=' || l_line.LINE_QUANTITY);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13010: QP_PREQ_GRP.engine_debug('LINE_UOM_CODE:=' || l_line.LINE_UOM_CODE);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13011: QP_PREQ_GRP.engine_debug('LINE_UNIT_PRICE:=' || l_line.LINE_UNIT_PRICE); -- shu_latest
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13012: QP_PREQ_GRP.engine_debug('PERCENT_PRICE :='|| l_line.PERCENT_PRICE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13013: QP_PREQ_GRP.engine_debug('*ADJUSTED_UNIT_PRICE :='|| l_line.ADJUSTED_UNIT_PRICE);
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13014: QP_PREQ_GRP.engine_debug('PARENT_PRICE :='|| l_line.PARENT_PRICE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13015: QP_PREQ_GRP.engine_debug('PARENT_QUANTITY :='|| l_line.PARENT_QUANTITY);
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13016: QP_PREQ_GRP.engine_debug('PARENT_UOM_CODE :='|| l_line.PARENT_UOM_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13017: QP_PREQ_GRP.engine_debug('processed_code :='|| l_line.processed_code);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13018: QP_PREQ_GRP.engine_debug('processed_flag :='|| l_line.processed_flag);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13019: QP_PREQ_GRP.engine_debug('Price Flag :='|| l_line.price_flag);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13020: QP_PREQ_GRP.engine_debug('*STATUS_CODE :='|| l_line.PRICING_STATUS_CODE);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13021: QP_PREQ_GRP.engine_debug('*STATUS_TEXT :='|| substr(l_line.PRICING_STATUS_TEXT, 1, 2000));
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13029: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
13022: QP_PREQ_GRP.engine_debug('HOLD_CODE := '|| l_line.HOLD_CODE);
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13029: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
13030: QP_PREQ_GRP.engine_debug('*SERVICE_DURATION :='|| l_line.SERVICE_DURATION); -- service project
13023: QP_PREQ_GRP.engine_debug('HOLD_TEXT := '|| substr(l_line.HOLD_TEXT, 1, 240));
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13029: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
13030: QP_PREQ_GRP.engine_debug('*SERVICE_DURATION :='|| l_line.SERVICE_DURATION); -- service project
13031: QP_PREQ_GRP.engine_debug('*SERVICE_PERIOD :='|| l_line.SERVICE_PERIOD); -- service project
13024: QP_PREQ_GRP.engine_debug('PRICE_REQUEST_CODE := '|| l_line.PRICE_REQUEST_CODE);
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13029: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
13030: QP_PREQ_GRP.engine_debug('*SERVICE_DURATION :='|| l_line.SERVICE_DURATION); -- service project
13031: QP_PREQ_GRP.engine_debug('*SERVICE_PERIOD :='|| l_line.SERVICE_PERIOD); -- service project
13032: END IF;
13025: QP_PREQ_GRP.engine_debug('PRICING_DATE := '|| l_line.PRICING_EFFECTIVE_DATE);
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13029: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
13030: QP_PREQ_GRP.engine_debug('*SERVICE_DURATION :='|| l_line.SERVICE_DURATION); -- service project
13031: QP_PREQ_GRP.engine_debug('*SERVICE_PERIOD :='|| l_line.SERVICE_PERIOD); -- service project
13032: END IF;
13033:
13026: QP_PREQ_GRP.engine_debug('*PROCESS_STATUS :='|| l_line.PROCESS_STATUS);
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13029: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
13030: QP_PREQ_GRP.engine_debug('*SERVICE_DURATION :='|| l_line.SERVICE_DURATION); -- service project
13031: QP_PREQ_GRP.engine_debug('*SERVICE_PERIOD :='|| l_line.SERVICE_PERIOD); -- service project
13032: END IF;
13033:
13034: IF l_debug = FND_API.G_TRUE THEN
13027: QP_PREQ_GRP.engine_debug('*CATCHWEIGHT_QTY :='|| l_line.CATCHWEIGHT_QTY);
13028: QP_PREQ_GRP.engine_debug('*ACTUAL_ORDER_QTY :='|| l_line.ACTUAL_ORDER_QUANTITY);
13029: QP_PREQ_GRP.engine_debug('*ORDER_UOM_SELLING_PRICE :='|| l_line.ORDER_UOM_SELLING_PRICE);
13030: QP_PREQ_GRP.engine_debug('*SERVICE_DURATION :='|| l_line.SERVICE_DURATION); -- service project
13031: QP_PREQ_GRP.engine_debug('*SERVICE_PERIOD :='|| l_line.SERVICE_PERIOD); -- service project
13032: END IF;
13033:
13034: IF l_debug = FND_API.G_TRUE THEN
13035: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13031: QP_PREQ_GRP.engine_debug('*SERVICE_PERIOD :='|| l_line.SERVICE_PERIOD); -- service project
13032: END IF;
13033:
13034: IF l_debug = FND_API.G_TRUE THEN
13035: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13036:
13037: END IF;
13038: --Populate Line detail
13039: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
13038: --Populate Line detail
13039: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
13040:
13041: IF l_debug = FND_API.G_TRUE THEN
13042: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
13043: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13039: FOR l_dets IN l_ldets_cur(l_line.LINE_INDEX) LOOP
13040:
13041: IF l_debug = FND_API.G_TRUE THEN
13042: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
13043: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13040:
13041: IF l_debug = FND_API.G_TRUE THEN
13042: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
13043: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13041: IF l_debug = FND_API.G_TRUE THEN
13042: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
13043: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13042: QP_PREQ_GRP.engine_debug('-----------Line detail Info -----------------------');
13043: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13043: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13044: QP_PREQ_GRP.engine_debug('*LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13045: QP_PREQ_GRP.engine_debug('LINE_DETAIL_TYPE_CODE:=' || l_dets.LINE_DETAIL_TYPE_CODE);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13046: QP_PREQ_GRP.engine_debug('*LINE_INDEX:=' || l_dets.LINE_INDEX);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13047: QP_PREQ_GRP.engine_debug('*PROCESS_CODE:=' || l_dets.PROCESS_CODE);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13048: QP_PREQ_GRP.engine_debug('*CALCULATION_CODE:=' || l_dets.CALCULATION_CODE);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13049: QP_PREQ_GRP.engine_debug('*LIST_HEADER_ID:=' || l_dets.LIST_HEADER_ID);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13050: QP_PREQ_GRP.engine_debug('*LIST_LINE_ID:=' || l_dets.LIST_LINE_ID);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13051: QP_PREQ_GRP.engine_debug('*PRICE_ADJUSTMENT_ID:=' || l_dets.PRICE_ADJUSTMENT_ID);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13052: QP_PREQ_GRP.engine_debug('LIST_LINE_TYPE_CODE:=' || l_dets.LIST_LINE_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13053: QP_PREQ_GRP.engine_debug('SUBSTITUTION_TO:=' || l_dets.SUBSTITUTION_VALUE_TO);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13054: QP_PREQ_GRP.engine_debug('LINE_QUANTITY :='|| l_dets.LINE_QUANTITY);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13055: QP_PREQ_GRP.engine_debug('*ADJUSTMENT_AMOUNT :='|| l_dets.ADJUSTMENT_AMOUNT);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13056: QP_PREQ_GRP.engine_debug('*AUTOMATIC_FLAG :='|| l_dets.AUTOMATIC_FLAG);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13057: QP_PREQ_GRP.engine_debug('APPLIED_FLAG :='|| l_dets.APPLIED_FLAG);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13058: QP_PREQ_GRP.engine_debug('UPDATED_FLAG :='|| l_dets.UPDATED_FLAG);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13059: QP_PREQ_GRP.engine_debug('PRICING_GROUP_SEQUENCE :='|| l_dets.PRICING_GROUP_SEQUENCE);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13060: QP_PREQ_GRP.engine_debug('CREATED_FROM_LIST_TYPE_CODE:=' || l_dets.CREATED_FROM_LIST_TYPE_CODE);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13061: QP_PREQ_GRP.engine_debug('PRICE_BREAK_TYPE_CODE :='|| l_dets.PRICE_BREAK_TYPE_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13062: QP_PREQ_GRP.engine_debug('*OVERRIDE_FLAG :='|| l_dets.override_flag);
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13063: QP_PREQ_GRP.engine_debug('PRINT_ON_INVOICE_FLAG :='|| l_dets.print_on_invoice_flag);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13064: QP_PREQ_GRP.engine_debug('PRICING_PHASE_ID :='|| l_dets.PRICING_PHASE_ID);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13065: QP_PREQ_GRP.engine_debug('*OPERAND_CALCULATION_CODE :='|| l_dets.OPERAND_CALCULATION_CODE);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13073: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
13066: QP_PREQ_GRP.engine_debug('*OPERAND_VALUE :='|| l_dets.OPERAND_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13073: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
13074: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
13067: QP_PREQ_GRP.engine_debug('*ORDER_QTY_OPERAND :='|| l_dets.ORDER_QTY_OPERAND);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13073: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
13074: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
13075: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
13068: QP_PREQ_GRP.engine_debug('*ORDER_QTY_ADJ_AMT :='|| l_dets.ORDER_QTY_ADJ_AMT);
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13073: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
13074: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
13075: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
13076: END IF;
13069: QP_PREQ_GRP.engine_debug('*STATUS_CODE:=' || l_dets.PRICING_STATUS_CODE);
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13073: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
13074: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
13075: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
13076: END IF;
13077: --Pass throuh components
13070: QP_PREQ_GRP.engine_debug('*STATUS_TEXT:=' || substr(l_dets.PRICING_STATUS_TEXT, 1, 240));
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13073: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
13074: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
13075: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
13076: END IF;
13077: --Pass throuh components
13078: IF l_debug = FND_API.G_TRUE THEN
13071: QP_PREQ_GRP.engine_debug('SUBSTITUTION_ATTRIBUTE:=' || l_dets.SUBSTITUTION_ATTRIBUTE);
13072: QP_PREQ_GRP.engine_debug('ACCRUAL_FLAG:=' || l_dets.ACCRUAL_FLAG);
13073: QP_PREQ_GRP.engine_debug('LIST_LINE_NO:=' || l_dets.LIST_LINE_NO);
13074: QP_PREQ_GRP.engine_debug('ESTIM_GL_VALUE:=' || l_dets.ESTIM_GL_VALUE);
13075: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
13076: END IF;
13077: --Pass throuh components
13078: IF l_debug = FND_API.G_TRUE THEN
13079: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
13075: QP_PREQ_GRP.engine_debug('ACCRUAL_CONVERSION_RATE:=' || l_dets.ACCRUAL_CONVERSION_RATE);
13076: END IF;
13077: --Pass throuh components
13078: IF l_debug = FND_API.G_TRUE THEN
13079: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
13080: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13076: END IF;
13077: --Pass throuh components
13078: IF l_debug = FND_API.G_TRUE THEN
13079: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
13080: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13077: --Pass throuh components
13078: IF l_debug = FND_API.G_TRUE THEN
13079: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
13080: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13078: IF l_debug = FND_API.G_TRUE THEN
13079: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
13080: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13079: QP_PREQ_GRP.engine_debug('OVERRIDE_FLAG:=' || l_dets.OVERRIDE_FLAG);
13080: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13080: QP_PREQ_GRP.engine_debug('INVENTORY_ITEM_ID:=' || l_dets.INVENTORY_ITEM_ID);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13081: QP_PREQ_GRP.engine_debug('ORGANIZATION_ID:=' || l_dets.ORGANIZATION_ID);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13082: QP_PREQ_GRP.engine_debug('RELATED_ITEM_ID:=' || l_dets.RELATED_ITEM_ID);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13083: QP_PREQ_GRP.engine_debug('RELATIONSHIP_TYPE_ID:=' || l_dets.RELATIONSHIP_TYPE_ID);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13084: QP_PREQ_GRP.engine_debug('ESTIM_ACCRUAL_RATE:=' || l_dets.ESTIM_ACCRUAL_RATE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13085: QP_PREQ_GRP.engine_debug('EXPIRATION_DATE:=' || l_dets.EXPIRATION_DATE);
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13086: QP_PREQ_GRP.engine_debug('BENEFIT_PRICE_LIST_LINE_ID:=' || l_dets.BENEFIT_PRICE_LIST_LINE_ID);
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13087: QP_PREQ_GRP.engine_debug('RECURRING_FLAG:=' || l_dets.RECURRING_FLAG);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13088: QP_PREQ_GRP.engine_debug('BENEFIT_LIMIT:=' || l_dets.BENEFIT_LIMIT);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13089: QP_PREQ_GRP.engine_debug('CHARGE_TYPE_CODE:=' || l_dets.CHARGE_TYPE_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13090: QP_PREQ_GRP.engine_debug('CHARGE_SUBTYPE_CODE:=' || l_dets.CHARGE_SUBTYPE_CODE);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13091: QP_PREQ_GRP.engine_debug('BENEFIT_QTY:=' || l_dets.BENEFIT_QTY);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13099: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
13092: QP_PREQ_GRP.engine_debug('BENEFIT_UOM_CODE:=' || l_dets.BENEFIT_UOM_CODE);
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13099: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
13100: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
13093: QP_PREQ_GRP.engine_debug('SERVICE_DURATION:=' || l_dets.SERVICE_DURATION); -- service project
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13099: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
13100: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
13101:
13094: QP_PREQ_GRP.engine_debug('SERVICE_PERIOD:=' || l_dets.SERVICE_PERIOD); -- service project
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13099: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
13100: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
13101:
13102: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13095: QP_PREQ_GRP.engine_debug('PRORATION_TYPE_CODE:=' || l_dets.PRORATION_TYPE_CODE);
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13099: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
13100: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
13101:
13102: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13103: END IF;
13096: QP_PREQ_GRP.engine_debug('INCLUDE_ON_RETURNS_FLAG :='|| l_dets.INCLUDE_ON_RETURNS_FLAG);
13097: QP_PREQ_GRP.engine_debug('MODIFIER_LEVEL_CODE :='|| l_dets.MODIFIER_LEVEL_CODE);
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13099: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
13100: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
13101:
13102: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13103: END IF;
13104: END LOOP; --l_ldets_cur
13098: QP_PREQ_GRP.engine_debug('GROUP VALUE :='|| l_dets.GROUP_QUANTITY);
13099: QP_PREQ_GRP.engine_debug('LIMIT_CODE :='|| l_dets.LIMIT_CODE);
13100: QP_PREQ_GRP.engine_debug('LIMIT_TEXT :='|| substr(l_dets.LIMIT_TEXT, 1, 240));
13101:
13102: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13103: END IF;
13104: END LOOP; --l_ldets_cur
13105: END LOOP; --end l_lines_cur
13106: IF l_debug = FND_API.G_TRUE THEN
13103: END IF;
13104: END LOOP; --l_ldets_cur
13105: END LOOP; --end l_lines_cur
13106: IF l_debug = FND_API.G_TRUE THEN
13107: QP_PREQ_GRP.engine_debug('---------------------------------------------------');
13108:
13109: END IF;
13110: EXCEPTION
13111: WHEN OTHERS THEN
13109: END IF;
13110: EXCEPTION
13111: WHEN OTHERS THEN
13112: IF l_debug = FND_API.G_TRUE THEN
13113: QP_PREQ_GRP.engine_debug('QP_PREQ_PUB.Populate_Output: '|| SQLERRM);
13114: END IF;
13115: x_return_status := FND_API.G_RET_STS_ERROR;
13116: x_return_status_text := 'QP_PREQ_PUB.Populate_Output: '|| SQLERRM;
13117: END Populate_Output;
13119:
13120:
13121:
13122: PROCEDURE PRICE_REQUEST
13123: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
13124: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
13125: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13120:
13121:
13122: PROCEDURE PRICE_REQUEST
13123: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
13124: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
13125: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13121:
13122: PROCEDURE PRICE_REQUEST
13123: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
13124: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
13125: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13122: PROCEDURE PRICE_REQUEST
13123: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
13124: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
13125: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13123: (p_line_tbl IN QP_PREQ_GRP.LINE_TBL_TYPE,
13124: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
13125: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13124: p_qual_tbl IN QP_PREQ_GRP.QUAL_TBL_TYPE,
13125: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13125: p_line_attr_tbl IN QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13126: p_line_detail_tbl IN QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13127: p_line_detail_qual_tbl IN QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13135: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13128: p_line_detail_attr_tbl IN QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13135: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13136: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13129: p_related_lines_tbl IN QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13135: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13136: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13137: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13130: p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13135: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13136: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13137: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13138: x_return_status OUT NOCOPY VARCHAR2,
13131: x_line_tbl OUT NOCOPY QP_PREQ_GRP.LINE_TBL_TYPE,
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13135: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13136: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13137: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13138: x_return_status OUT NOCOPY VARCHAR2,
13139: x_return_status_text OUT NOCOPY VARCHAR2
13132: x_line_qual OUT NOCOPY QP_PREQ_GRP.QUAL_TBL_TYPE,
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13135: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13136: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13137: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13138: x_return_status OUT NOCOPY VARCHAR2,
13139: x_return_status_text OUT NOCOPY VARCHAR2
13140: ) IS
13133: x_line_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_ATTR_TBL_TYPE,
13134: x_line_detail_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE,
13135: x_line_detail_qual_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE,
13136: x_line_detail_attr_tbl OUT NOCOPY QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE,
13137: x_related_lines_tbl OUT NOCOPY QP_PREQ_GRP.RELATED_LINES_TBL_TYPE,
13138: x_return_status OUT NOCOPY VARCHAR2,
13139: x_return_status_text OUT NOCOPY VARCHAR2
13140: ) IS
13141:
13148: JAVA_ENGINE_PRICING_EXCEPTION EXCEPTION;
13149: --added by yangli for Java Engine projecct 3086881
13150: E_NO_LINES_TO_PRICE EXCEPTION; -- 4865787
13151:
13152: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
13153:
13154: l_routine VARCHAR2(50) := 'Routine: QP_PREQ_PUB.PRICE_REQUEST';
13155: l_output_file VARCHAR2(240);
13156:
13226: qp_debug_util.addSummaryTimeLog('Total time taken in Fetching Input Attributes :' || qp_debug_util.getAttribute('BLD_CNTXT_ACCUM_TIME') || 'ms',0,1,1);
13227: qp_debug_util.tstart(x_Marker=>'ENGINE_CALL_QPXPPREB',x_Desc=>'QPXPPREB Price Request for Event : '||p_control_rec.PRICING_EVENT,x_PutLine=>true);
13228:
13229: --===============START: Pre-pricing process needed by JAVA and PL/SQL engine====
13230: -- Set the debug variable G_DEBUG_ENGINE in QP_PREQ_GRP
13231: QP_PREQ_GRP.Set_QP_Debug;
13232: G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13233:
13234: --Setting current event in debug util
13227: qp_debug_util.tstart(x_Marker=>'ENGINE_CALL_QPXPPREB',x_Desc=>'QPXPPREB Price Request for Event : '||p_control_rec.PRICING_EVENT,x_PutLine=>true);
13228:
13229: --===============START: Pre-pricing process needed by JAVA and PL/SQL engine====
13230: -- Set the debug variable G_DEBUG_ENGINE in QP_PREQ_GRP
13231: QP_PREQ_GRP.Set_QP_Debug;
13232: G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13233:
13234: --Setting current event in debug util
13235: qp_debug_util.setCurrentEvent(p_control_rec.PRICING_EVENT);
13232: G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13233:
13234: --Setting current event in debug util
13235: qp_debug_util.setCurrentEvent(p_control_rec.PRICING_EVENT);
13236: --QP_PREQ_GRP.G_CURR_PRICE_EVENT := p_control_rec.PRICING_EVENT;
13237:
13238: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
13239: l_pricing_start_time := dbms_utility.get_time;
13240:
13234: --Setting current event in debug util
13235: qp_debug_util.setCurrentEvent(p_control_rec.PRICING_EVENT);
13236: --QP_PREQ_GRP.G_CURR_PRICE_EVENT := p_control_rec.PRICING_EVENT;
13237:
13238: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
13239: l_pricing_start_time := dbms_utility.get_time;
13240:
13241: /* 4865787: error out if there are no lines to be priced */
13242: IF nvl(p_control_rec.temp_table_insert_flag, G_YES) = G_NO
13278: AND v$statname.name = 'redo size';
13279: EXCEPTION
13280: WHEN OTHERS THEN
13281: IF l_debug = FND_API.G_TRUE THEN
13282: QP_PREQ_GRP.engine_debug('Error in looking up debug in PUB '|| SQLERRM);
13283: END IF; -- Bug No 4033618
13284: END;
13285: END IF;
13286:
13318:
13319: -- for QP-PO integration
13320:
13321: IF l_debug = FND_API.G_TRUE THEN
13322: QP_PREQ_GRP.engine_debug('G_REQUEST_TYPE_CODE = ' || G_REQUEST_TYPE_CODE);
13323: qp_debug_util.print_support_csv('START');
13324: END IF;
13325:
13326:
13335: -- bug9285924
13336: l_qp_license_product := FND_PROFILE.VALUE_SPECIFIC(NAME => 'QP_LICENSED_FOR_PRODUCT',application_id => 201);
13337:
13338: IF l_debug = FND_API.G_TRUE THEN
13339: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13340: QP_PREQ_GRP.engine_debug('l_qp_license_product = ' || l_qp_license_product);
13341: END IF;
13342:
13343: IF (G_LICENSED_FOR_PRODUCT = 'PO' OR
13336: l_qp_license_product := FND_PROFILE.VALUE_SPECIFIC(NAME => 'QP_LICENSED_FOR_PRODUCT',application_id => 201);
13337:
13338: IF l_debug = FND_API.G_TRUE THEN
13339: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13340: QP_PREQ_GRP.engine_debug('l_qp_license_product = ' || l_qp_license_product);
13341: END IF;
13342:
13343: IF (G_LICENSED_FOR_PRODUCT = 'PO' OR
13344: nvl(l_qp_license_product, 'X') = 'PO') THEN -- Added for 8865594
13357: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13358: END IF;
13359:
13360: IF l_debug = FND_API.G_TRUE THEN
13361: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13362: END IF;
13363:
13364: IF G_LICENSED_FOR_PRODUCT = 'AHL' THEN
13365: NULL;
13390: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
13391: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13392: --===========START: Globals Initialization specific only to PL/SQL Engine=======
13393: IF l_debug = FND_API.G_TRUE THEN
13394: QP_PREQ_GRP.ENGINE_DEBUG('01 Java Engine not Installed ----------');
13395: END IF;
13396:
13397: -- Changes made for bug 3169430 Customer Handleman as this customer has price lists only, no modifiers.
13398: OPEN modifier_exists;
13406:
13407: ----------------------------------------------------
13408: --setting debug level
13409: ----------------------------------------------------
13410: --QP_PREQ_GRP.G_DEBUG_ENGINE:= oe_debug_pub.G_DEBUG;
13411: ----------------------------------------------------
13412: --New QP profile to say whether to round adjustment_amt or selling/list_price
13413: --default to 'Y' if the profile or rounding_flag are null
13414: -- QP Profile QP_SELLING_PRICE_ROUNDING_OPTIONS
13429: --Change for 2635440 - pass 'Q' as default value for OC if request_type is 'ASO'
13430: ----------------------------------------------------
13431: G_ROUNDING_OPTIONS := FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS');
13432: IF (l_debug = FND_API.G_TRUE) THEN
13433: QP_PREQ_GRP.engine_debug('Rounding profile value '|| G_ROUNDING_OPTIONS);
13434: END IF;
13435:
13436: /*--ASO is not passing request_type_code on control_rec, it is passed
13437: --on the lines
13486: THEN
13487: G_ROUND_INDIVIDUAL_ADJ := G_POST_ROUND;
13488: END IF;
13489:
13490: -- The below code is replaced with QP_PREQ_GRP.Set_QP_Debug
13491:
13492: --getting debug profilE
13493: ----------------------------------------------------
13494: --G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13506: oe_debug_pub.Initialize;
13507: oe_debug_pub.debug_on;
13508: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13509: IF l_debug = FND_API.G_TRUE THEN
13510: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13511: END IF;
13512: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13513: ELSE
13514: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13508: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
13509: IF l_debug = FND_API.G_TRUE THEN
13510: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13511: END IF;
13512: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13513: ELSE
13514: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13515: END IF;
13516: ELSE
13510: QP_PREQ_GRP.engine_debug ('The output file is : ' || l_output_file );
13511: END IF;
13512: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13513: ELSE
13514: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13515: END IF;
13516: ELSE
13517: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13518: END IF;
13513: ELSE
13514: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_FALSE;
13515: END IF;
13516: ELSE
13517: QP_PREQ_GRP.G_DEBUG_ENGINE:= FND_API.G_TRUE;
13518: END IF;
13519:
13520: */
13521:
13536: */
13537:
13538: --GSA Check
13539: IF l_debug = FND_API.G_TRUE THEN
13540: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13541: END IF;
13542: G_GSA_INDICATOR := Check_GSA_Indicator;
13543: IF l_debug = FND_API.G_TRUE THEN
13544: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13540: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13541: END IF;
13542: G_GSA_INDICATOR := Check_GSA_Indicator;
13543: IF l_debug = FND_API.G_TRUE THEN
13544: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13545: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '|| G_GSA_ENABLED_FLAG);
13546:
13547: END IF;
13548: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13541: END IF;
13542: G_GSA_INDICATOR := Check_GSA_Indicator;
13543: IF l_debug = FND_API.G_TRUE THEN
13544: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '|| G_GSA_INDICATOR);
13545: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '|| G_GSA_ENABLED_FLAG);
13546:
13547: END IF;
13548: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13549: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13549: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13550:
13551:
13552: IF l_debug = FND_API.G_TRUE THEN
13553: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13554: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13555: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13556:
13557: END IF;
13550:
13551:
13552: IF l_debug = FND_API.G_TRUE THEN
13553: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13554: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13555: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13556:
13557: END IF;
13558: --===========END: Globals Initialization specific only to PL/SQL Engine=======
13551:
13552: IF l_debug = FND_API.G_TRUE THEN
13553: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13554: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| G_check_cust_view_flag);
13555: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '|| G_ROUND_INDIVIDUAL_ADJ);
13556:
13557: END IF;
13558: --===========END: Globals Initialization specific only to PL/SQL Engine=======
13559: END IF; --java engine is not installed
13559: END IF; --java engine is not installed
13560:
13561: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13562: IF l_debug = FND_API.G_TRUE THEN
13563: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13564: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13560:
13561: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13562: IF l_debug = FND_API.G_TRUE THEN
13563: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13564: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13561: --============START: Debug print needed by JAVA and PL/SQL Engine=====
13562: IF l_debug = FND_API.G_TRUE THEN
13563: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13564: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13569: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13562: IF l_debug = FND_API.G_TRUE THEN
13563: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13564: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13569: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13570: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13563: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: Version '|| Get_Version);
13564: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13569: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13570: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13571: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13564: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: temp table insert flag '|| p_control_rec.temp_table_insert_flag);
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13569: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13570: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13571: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13572: END IF;
13565: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: calculate_flag '|| p_control_rec.calculate_flag);
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13569: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13570: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13571: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13572: END IF;
13573: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13566: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '|| p_control_rec.check_cust_view_flag ||' reqtype '|| l_control_rec.request_type_code);
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13569: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13570: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13571: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13572: END IF;
13573: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13574:
13567: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| p_control_rec.pricing_event);
13568: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: rounding_flag '|| p_control_rec.rounding_flag);
13569: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: gsa_check '|| p_control_rec.gsa_check_flag);
13570: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: full_pricing '|| p_control_rec.full_pricing_call);
13571: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: get_freight_flag '|| G_GET_FREIGHT_FLAG);
13572: END IF;
13573: --============END: Debug print needed by JAVA and PL/SQL Engine=====
13574:
13575: /*
13574:
13575: /*
13576: --GSA Check
13577: IF l_debug = FND_API.G_TRUE THEN
13578: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13579: END IF;
13580: G_GSA_INDICATOR := Check_GSA_Indicator;
13581: IF l_debug = FND_API.G_TRUE THEN
13582: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13578: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: Begin GSA check ');
13579: END IF;
13580: G_GSA_INDICATOR := Check_GSA_Indicator;
13581: IF l_debug = FND_API.G_TRUE THEN
13582: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13583: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '||G_GSA_ENABLED_FLAG);
13584:
13585: END IF;
13586: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13579: END IF;
13580: G_GSA_INDICATOR := Check_GSA_Indicator;
13581: IF l_debug = FND_API.G_TRUE THEN
13582: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_indicator '||G_GSA_INDICATOR);
13583: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '||G_GSA_ENABLED_FLAG);
13584:
13585: END IF;
13586: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13587: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13587: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13588:
13589:
13590: IF l_debug = FND_API.G_TRUE THEN
13591: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13592: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13593: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13594:
13595: END IF;
13588:
13589:
13590: IF l_debug = FND_API.G_TRUE THEN
13591: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13592: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13593: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13594:
13595: END IF;
13596: */ --moved up into PL/SQL Engine specific path
13589:
13590: IF l_debug = FND_API.G_TRUE THEN
13591: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13592: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: check_cust_view_flag '||G_check_cust_view_flag);
13593: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: round_indv_adj '||G_ROUND_INDIVIDUAL_ADJ);
13594:
13595: END IF;
13596: */ --moved up into PL/SQL Engine specific path
13597:
13600: --to remove the commas and single quotes in the pricing_event in ctrl rec
13601: IF instr(l_control_rec.pricing_event, ',') > 0
13602: THEN
13603: IF l_debug = FND_API.G_TRUE THEN
13604: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13605: END IF;
13606: --Changes for bug 2258525: Introduced local vairable l_pricing_event
13607: --instead of changing the control_rec
13608: --this is to remove any blank spaces in the string
13616: --this is to make the cursor work for the last event
13617: l_pricing_event := l_pricing_event || ',';
13618: l_control_rec.pricing_event := l_pricing_event;
13619: IF l_debug = FND_API.G_TRUE THEN
13620: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: pricing_event '|| l_control_rec.pricing_event);
13621: END IF;
13622: l_control_rec.GSA_DUP_CHECK_FLAG := G_NO;
13623: l_control_rec.temp_table_insert_flag :=
13624: nvl(p_control_rec.temp_table_insert_flag, G_YES);
13635: l_control_rec.rounding_flag := nvl(p_control_rec.rounding_flag, G_YES);
13636: END IF; --p_control_rec.rounding_flag
13637:
13638: -- Added for Bug 2847866
13639: QP_PREQ_GRP.G_PUBLIC_API_CALL_FLAG := nvl(l_control_rec.public_api_call_flag, 'N');
13640: --============END: l_control_rec needed by JAVA and PL/SQL Engine====
13641:
13642: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13643: --===========START: specific only to PL/SQL Engine=======
13641:
13642: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13643: --===========START: specific only to PL/SQL Engine=======
13644: IF l_debug = FND_API.G_TRUE THEN
13645: QP_PREQ_GRP.ENGINE_DEBUG('02 Java Engine not Installed ----------');
13646: END IF;
13647: -----------------------------------------------------------------
13648: --Need to set the global constants for the engine to see
13649: --if the calling application populates into the temp tables directly
13654: --removing this for bug 2830206 as calculate_flag can be 'Y', 'C' or 'N'.
13655: --l_control_rec.calculate_flag := G_SEARCH_ONLY;
13656:
13657: /*-- Added for Bug 2847866
13658: 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
13659:
13660: IF (G_NO_ADJ_PROCESSING = G_YES) AND (G_QP_INSTALL_STATUS = 'I') THEN -- Added for 3169430
13661: Identify_freegood_lines(l_control_rec.pricing_event
13662: , x_return_status, x_return_status_text);
13662: , x_return_status, x_return_status_text);
13663:
13664: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13665: IF l_debug = FND_API.G_TRUE THEN
13666: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '
13667: || x_return_status_text);
13668: END IF;
13669: RAISE PRICE_REQUEST_EXC;
13670: END IF; --x_return_status
13676:
13677: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13678:
13679: IF l_debug = FND_API.G_TRUE THEN
13680: QP_PREQ_GRP.ENGINE_DEBUG('Exception Initialize_cons: '|| x_return_status_text);
13681: END IF;
13682: RAISE PRICE_REQUEST_EXC;
13683: ELSIF X_RETURN_STATUS = 'BYPASS_PRICING'
13684: THEN
13691: --added by yangli for Java Engine PUB 3086881
13692: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
13693: --=======START: Specific only to PL/SQL Engine==================
13694: IF l_debug = FND_API.G_TRUE THEN
13695: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine not Installed ----------');
13696: END IF;
13697: --added by yangli for Java Engine PUB 3086881
13698: IF l_control_rec.calculate_flag IN
13699: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_SEARCH_ONLY)
13695: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine not Installed ----------');
13696: END IF;
13697: --added by yangli for Java Engine PUB 3086881
13698: IF l_control_rec.calculate_flag IN
13699: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_SEARCH_ONLY)
13700: THEN
13701:
13702: --Performance bug fix 7309551
13703: BEGIN
13704: SELECT VALUE INTO l_old_dynamic_sampling_level
13705: FROM v$parameter
13706: WHERE name = 'optimizer_dynamic_sampling';
13707: IF l_debug = FND_API.G_TRUE THEN
13708: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13709: END IF;
13710: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13711: IF l_debug = FND_API.G_TRUE THEN
13712: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13708: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13709: END IF;
13710: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13711: IF l_debug = FND_API.G_TRUE THEN
13712: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13713: END If;
13714: EXCEPTION
13715: WHEN OTHERS THEN
13716: IF l_debug = FND_API.G_TRUE THEN
13713: END If;
13714: EXCEPTION
13715: WHEN OTHERS THEN
13716: IF l_debug = FND_API.G_TRUE THEN
13717: QP_PREQ_GRP.engine_debug('Error in looking up Dynamic sampling level '|| SQLERRM);
13718: QP_PREQ_GRP.engine_debug('Setting Dynamic Sampling level to 1');
13719: END IF;
13720: l_dynamic_sampling_level := 1;
13721: END;
13714: EXCEPTION
13715: WHEN OTHERS THEN
13716: IF l_debug = FND_API.G_TRUE THEN
13717: QP_PREQ_GRP.engine_debug('Error in looking up Dynamic sampling level '|| SQLERRM);
13718: QP_PREQ_GRP.engine_debug('Setting Dynamic Sampling level to 1');
13719: END IF;
13720: l_dynamic_sampling_level := 1;
13721: END;
13722:
13721: END;
13722:
13723: IF (l_dynamic_sampling_level IN (1) AND l_dynamic_sampling_level <> l_old_dynamic_sampling_level) THEN
13724: IF l_debug = FND_API.G_TRUE THEN
13725: QP_PREQ_GRP.ENGINE_DEBUG('Setting dynamic sampling level to '|| l_dynamic_sampling_level);
13726: END IF;
13727: BEGIN
13728: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13729: EXCEPTION
13728: Execute immediate 'Alter session set optimizer_dynamic_sampling = '||l_dynamic_sampling_level;
13729: EXCEPTION
13730: WHEN OTHERS THEN
13731: IF l_debug = FND_API.G_TRUE THEN
13732: QP_PREQ_GRP.engine_debug('Error in setting dynamic sampling level'|| SQLERRM);
13733: END IF;
13734: END;
13735: END IF;
13736: ----7309551
13735: END IF;
13736: ----7309551
13737:
13738: --Call pricing engine only if calculate flag is search_only or search and calculate
13739: QP_PREQ_GRP.PRICE_REQUEST
13740: (p_line_tbl => p_line_tbl,
13741: p_qual_tbl => p_qual_tbl,
13742: p_line_attr_tbl => p_line_attr_tbl,
13743: p_LINE_DETAIL_tbl => p_line_detail_tbl,
13761: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
13762: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
13763:
13764: IF l_debug = FND_API.G_TRUE THEN
13765: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
13766: END IF;
13767: RAISE PRICE_REQUEST_EXC;
13768: END IF;
13769:
13766: END IF;
13767: RAISE PRICE_REQUEST_EXC;
13768: END IF;
13769:
13770: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13771: OPEN lcur1; LOOP
13772: FETCH lcur1 INTO lrec1;
13773: EXIT WHEN lcur1%NOTFOUND;
13774: IF l_debug = FND_API.G_TRUE THEN
13771: OPEN lcur1; LOOP
13772: FETCH lcur1 INTO lrec1;
13773: EXIT WHEN lcur1%NOTFOUND;
13774: IF l_debug = FND_API.G_TRUE THEN
13775: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
13776: ' list_line_id '|| lrec1.created_from_list_line_id ||
13777: ' line_detail_index '|| lrec1.line_detail_index ||
13778: ' pricess_sts '|| lrec1.process_status ||
13779: ' price_flag '|| lrec1.price_flag ||
13800: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13801: , FND_API.G_RET_STS_UNEXP_ERROR)
13802: THEN
13803: IF l_debug = FND_API.G_TRUE THEN
13804: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13805: || x_return_status_text);
13806: END IF;
13807: RAISE PRICE_REQUEST_EXC;
13808: END IF;
13810: IF x_return_status IN (FND_API.G_RET_STS_ERROR
13811: , FND_API.G_RET_STS_UNEXP_ERROR)
13812: THEN
13813: IF l_debug = FND_API.G_TRUE THEN
13814: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request PUB: '
13815: || x_return_status_text);
13816: END IF;
13817: RAISE PRICE_REQUEST_EXC;
13818: END IF;
13826: END IF; --x_return_status
13827: END IF;
13828:
13829: IF p_control_rec.calculate_flag IN
13830: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
13831: AND nvl(l_control_rec.check_cust_view_flag, G_NO) = G_NO
13832: --this needs to be changed for OC and others who do direct insert
13833: AND nvl(l_control_rec.temp_table_insert_flag, G_YES) = G_YES
13834: THEN
13841:
13842: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13843:
13844: IF l_debug = FND_API.G_TRUE THEN
13845: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Adjustments: '|| x_return_status_text);
13846: END IF;
13847: RAISE PRICE_REQUEST_EXC;
13848: END IF;
13849: END IF;
13849: END IF;
13850:
13851:
13852: IF p_control_rec.calculate_flag IN
13853: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
13854: AND nvl(l_control_rec.check_cust_view_flag, G_NO) = G_NO
13855: --this needs to be changed for OC and others who do direct insert
13856: AND nvl(l_control_rec.temp_table_insert_flag, G_YES) = G_YES
13857: THEN
13863:
13864: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13865:
13866: IF l_debug = FND_API.G_TRUE THEN
13867: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13868: END IF;
13869: RAISE PRICE_REQUEST_EXC;
13870: END IF;
13871:
13874: , x_return_status_text);
13875: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13876:
13877: IF l_debug = FND_API.G_TRUE THEN
13878: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Unit_Price: '|| x_return_status_text);
13879: END IF; -- end debug
13880: RAISE PRICE_REQUEST_EXC;
13881: END IF;
13882: -- end 2892848
13884: END IF;
13885:
13886:
13887: IF p_control_rec.calculate_flag IN
13888: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
13889: --and nvl(l_control_rec.check_cust_view_flag,G_NO) = G_YES
13890: --this needs to be changed for OC and others who do direct insert
13891: AND nvl(l_control_rec.temp_table_insert_flag, G_YES) = G_NO
13892: AND G_NO_ADJ_PROCESSING = G_YES -- Added for 3169430
13896: Populate_buy_line_price_flag(x_return_status, x_return_status_text);
13897:
13898: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13899: IF l_debug = FND_API.G_TRUE THEN
13900: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_buy_line_price_flag: '
13901: || x_return_status_text);
13902: END IF; --l_debug
13903: RAISE PRICE_REQUEST_EXC;
13904: END IF;
13906: Update_recurring_quantity(x_return_status, x_return_status_text);
13907:
13908: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13909: IF l_debug = FND_API.G_TRUE THEN
13910: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_recurring_quantity: '
13911: || x_return_status_text);
13912: END IF; --l_debug
13913: RAISE PRICE_REQUEST_EXC;
13914: END IF;
13918: l_control_rec.simulation_flag,
13919: x_return_status, x_return_status_text);
13920: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13921: IF l_debug = FND_API.G_TRUE THEN
13922: QP_PREQ_GRP.ENGINE_DEBUG('Exception Process_Coupon_issue: '
13923: || x_return_status_text);
13924: END IF; --debug
13925: RAISE PRICE_REQUEST_EXC;
13926: END IF;
13943:
13944: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13945:
13946: IF l_debug = FND_API.G_TRUE THEN
13947: QP_PREQ_GRP.ENGINE_DEBUG('Exception Calculate_price: '|| x_return_status_text);
13948: END IF;
13949: RAISE PRICE_REQUEST_EXC;
13950: END IF;
13951: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13951: -- bug 3487840 - duplicate PBH child lines causing ORA-01427: single-row subquery returns more than one row
13952: Cleanup_rltd_lines(x_return_status, x_return_status_text);
13953: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13954: IF l_debug = FND_API.G_TRUE THEN
13955: QP_PREQ_GRP.ENGINE_DEBUG('Exception Cleanup_rltd_lines: '|| x_return_status_text);
13956: END IF;
13957: RAISE PRICE_REQUEST_EXC;
13958: END IF;
13959:
13959:
13960: Update_Adj_orderqty_cols(x_return_status, x_return_status_text);
13961: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13962: IF l_debug = FND_API.G_TRUE THEN
13963: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_Adj_orderqty_cols: '
13964: || x_return_status_text);
13965: END IF; --debug
13966: RAISE PRICE_REQUEST_EXC;
13967: END IF;
13970: --lines are passed
13971: IF l_control_rec.full_pricing_call = G_NO
13972: THEN
13973: IF l_debug = FND_API.G_TRUE THEN
13974: QP_PREQ_GRP.engine_debug('Starting changed lines check');
13975: END IF;
13976: CHECK_ORDER_LINE_CHANGES(p_request_type_code =>
13977: G_REQUEST_TYPE_CODE,
13978: p_full_pricing_call =>
13980: x_return_status => x_return_status,
13981: x_return_status_text => x_return_status_text);
13982: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR THEN
13983: IF l_debug = FND_API.G_TRUE THEN
13984: QP_PREQ_GRP.ENGINE_DEBUG('Exception CHECK_ORDER_LINE_CHANGES: '|| x_return_status_text);
13985: END IF;
13986: RAISE PRICE_REQUEST_EXC;
13987: END IF;
13988: END IF;
13989:
13990: -- Update_PRG_Process_status(x_return_status, x_return_status_text);
13991: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
13992: IF l_debug = FND_API.G_TRUE THEN
13993: QP_PREQ_GRP.ENGINE_DEBUG('Exception Update_PRG_Process_status: '
13994: || x_return_status_text);
13995: END IF; --debug
13996: RAISE PRICE_REQUEST_EXC;
13997: END IF;
14008: AND (applied_flag = G_YES OR updated_flag = G_YES)
14009: AND pricing_status_code = G_STATUS_UNCHANGED;
14010:
14011:
14012: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14013: THEN
14014: Populate_Output(x_return_status, x_return_status);
14015:
14016: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14015:
14016: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14017: THEN
14018: IF l_debug = FND_API.G_TRUE THEN
14019: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14020: END IF;
14021: RAISE PRICE_REQUEST_EXC;
14022: END IF; --X_RETURN_STATUS
14023: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14019: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14020: END IF;
14021: RAISE PRICE_REQUEST_EXC;
14022: END IF; --X_RETURN_STATUS
14023: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14024:
14025: IF l_debug = FND_API.G_TRUE THEN
14026: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
14027:
14022: END IF; --X_RETURN_STATUS
14023: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14024:
14025: IF l_debug = FND_API.G_TRUE THEN
14026: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
14027:
14028: END IF;
14029: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14030: --this is for debug for rltd lines
14025: IF l_debug = FND_API.G_TRUE THEN
14026: QP_PREQ_GRP.engine_debug('-------------------rltd info--------------------');
14027:
14028: END IF;
14029: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14030: --this is for debug for rltd lines
14031: FOR cl IN (SELECT line_index,
14032: related_line_index,
14033: line_detail_index,
14045: FROM qp_npreq_rltd_lines_tmp
14046: WHERE pricing_status_code = G_STATUS_NEW)
14047: LOOP
14048: IF l_debug = FND_API.G_TRUE THEN
14049: QP_PREQ_GRP.engine_debug('related records with status N '
14050: ||' line_dtl_index '|| cl.line_detail_index
14051: ||' rltd_line_dtl_index '|| cl.related_line_detail_index
14052: ||' line_index '|| cl.line_index
14053: ||' rltd_line_index '|| cl.related_line_index
14061: ||' setval_to '|| cl.setup_value_to
14062: ||' qual_value '|| cl.qualifier_value);
14063: END IF;
14064: END LOOP; --for cl
14065: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14066: END IF;
14067:
14068:
14069:
14066: END IF;
14067:
14068:
14069:
14070: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14071: OPEN lcur1; LOOP
14072: FETCH lcur1 INTO lrec1;
14073: EXIT WHEN lcur1%NOTFOUND;
14074: IF l_debug = FND_API.G_TRUE THEN
14071: OPEN lcur1; LOOP
14072: FETCH lcur1 INTO lrec1;
14073: EXIT WHEN lcur1%NOTFOUND;
14074: IF l_debug = FND_API.G_TRUE THEN
14075: QP_PREQ_GRP.ENGINE_DEBUG('line_index '|| lrec1.line_ind ||
14076: ' list_line_id '|| lrec1.created_from_list_line_id ||
14077: ' line_detail_index '|| lrec1.line_detail_index ||
14078: ' applied '|| lrec1.applied_flag ||' status '|| lrec1.pricing_status_code
14079: ||' process_code '|| lrec1.process_code);
14082: CLOSE lcur1;
14083: END IF;
14084: --Performance bug fix 7309551
14085: IF (l_dynamic_sampling_level IN (1) AND l_dynamic_sampling_level <> l_old_dynamic_sampling_level) THEN
14086: QP_PREQ_GRP.ENGINE_DEBUG('Setting dynamic sampling level back to '|| l_old_dynamic_sampling_level);
14087: BEGIN
14088: Execute immediate 'alter session set optimizer_dynamic_sampling = '||l_old_dynamic_sampling_level;
14089: EXCEPTION
14090: WHEN OTHERS THEN
14088: Execute immediate 'alter session set optimizer_dynamic_sampling = '||l_old_dynamic_sampling_level;
14089: EXCEPTION
14090: WHEN OTHERS THEN
14091: IF l_debug = FND_API.G_TRUE THEN
14092: QP_PREQ_GRP.engine_debug('Error in resetting the dynamic sampling level to old value'|| SQLERRM);
14093: END IF;
14094: END;
14095: END IF;
14096: --End 7309551
14099: --=======END: Specific only to PL/SQL Engine==================
14100: --added by yangli for Java Engine PUB 3086881
14101: ELSE -- java engine is installed
14102: --=======START: Specific only to JAVA Engine==================
14103: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14104: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
14105: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
14106: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
14107: END IF;
14100: --added by yangli for Java Engine PUB 3086881
14101: ELSE -- java engine is installed
14102: --=======START: Specific only to JAVA Engine==================
14103: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14104: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
14105: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
14106: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
14107: END IF;
14108:
14101: ELSE -- java engine is installed
14102: --=======START: Specific only to JAVA Engine==================
14103: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14104: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
14105: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
14106: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
14107: END IF;
14108:
14109: --for OM call, need Pre-Insert Logic to fetch/format data from OE tables into
14102: --=======START: Specific only to JAVA Engine==================
14103: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14104: QP_PREQ_GRP.ENGINE_DEBUG('03 Java Engine is installed');
14105: QP_PREQ_GRP.ENGINE_DEBUG('temp_table_insert_flag:' || l_control_rec.temp_table_insert_flag);
14106: QP_PREQ_GRP.ENGINE_DEBUG('QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG:' || QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG);
14107: END IF;
14108:
14109: --for OM call, need Pre-Insert Logic to fetch/format data from OE tables into
14110: --Java Engine interface tables
14117: IF QP_PREQ_PUB.G_CHECK_CUST_VIEW_FLAG = G_YES THEN
14118: --Preinsert Logic for OM call
14119: --to fetch out-of-phases modifiers and in-phase PRG modifiers
14120: --to fetch rltd information
14121: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14122: QP_PREQ_GRP.ENGINE_DEBUG('Before calling INT_TABLES_PREINSERT');
14123: END IF;
14124: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
14125: p_event_code => l_control_rec.pricing_event,
14118: --Preinsert Logic for OM call
14119: --to fetch out-of-phases modifiers and in-phase PRG modifiers
14120: --to fetch rltd information
14121: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14122: QP_PREQ_GRP.ENGINE_DEBUG('Before calling INT_TABLES_PREINSERT');
14123: END IF;
14124: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
14125: p_event_code => l_control_rec.pricing_event,
14126: x_return_status => l_return_status,
14124: INT_TABLES_PREINSERT(p_calculate_flag => l_control_rec.calculate_flag,
14125: p_event_code => l_control_rec.pricing_event,
14126: x_return_status => l_return_status,
14127: x_return_status_text => l_status_Text);
14128: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14129: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
14130: END IF;
14131: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
14132: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
14125: p_event_code => l_control_rec.pricing_event,
14126: x_return_status => l_return_status,
14127: x_return_status_text => l_status_Text);
14128: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14129: QP_PREQ_GRP.ENGINE_DEBUG('Existing INT_TABLES_PREINSERT');
14130: END IF;
14131: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
14132: l_status_text := 'INT_TABLES_PREINSERT:' || l_status_text;
14133: RAISE E_ROUTINE_ERRORS;
14137:
14138: IF l_control_rec.temp_table_insert_flag = G_NO THEN
14139: l_request_id := QP_Price_Request_Context.GET_REQUEST_ID;
14140: IF l_debug = FND_API.G_TRUE THEN
14141: QP_PREQ_GRP.engine_debug('Request Id:'|| l_request_id);
14142: END IF;
14143: QP_JAVA_ENGINE.request_price(request_id => l_request_id,
14144: p_control_rec => l_control_rec,
14145: x_return_status => l_return_status,
14147:
14148: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
14149: --l_status_text:= 'QP_JAVA_ENGINE.request_price failed for request id:'||l_request_id||l_status_text;
14150: IF l_debug = FND_API.G_TRUE THEN
14151: QP_PREQ_GRP.engine_debug(l_status_text);
14152: END IF; --Bug No 4033618
14153: x_return_status := l_return_status;
14154: x_return_status_text := l_status_text;
14155: RAISE JAVA_ENGINE_PRICING_EXCEPTION;
14155: RAISE JAVA_ENGINE_PRICING_EXCEPTION;
14156: END IF;
14157: ELSE
14158: IF l_debug = FND_API.G_TRUE THEN
14159: QP_PREQ_GRP.engine_debug('Before calling QP_PREQ_GRP.PRICE_REQUEST.....');
14160: END IF;
14161: QP_PREQ_GRP.PRICE_REQUEST
14162: (p_line_tbl => p_line_tbl,
14163: p_qual_tbl => p_qual_tbl,
14157: ELSE
14158: IF l_debug = FND_API.G_TRUE THEN
14159: QP_PREQ_GRP.engine_debug('Before calling QP_PREQ_GRP.PRICE_REQUEST.....');
14160: END IF;
14161: QP_PREQ_GRP.PRICE_REQUEST
14162: (p_line_tbl => p_line_tbl,
14163: p_qual_tbl => p_qual_tbl,
14164: p_line_attr_tbl => p_line_attr_tbl,
14165: p_LINE_DETAIL_tbl => p_line_detail_tbl,
14180: IF X_RETURN_STATUS IN (FND_API.G_RET_STS_ERROR
14181: , FND_API.G_RET_STS_UNEXP_ERROR) THEN
14182:
14183: IF l_debug = FND_API.G_TRUE THEN
14184: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request GRP: '|| x_return_status_text);
14185: END IF;
14186: RAISE PRICE_REQUEST_EXC;
14187: END IF;
14188: END IF; --TEMP_TABLE_INSERT_FLAG=Y
14196: -- from QP_CLEANUP_ADJUSTMENTS_PVT.Fetch_Adjustments
14197: --call cleanup of adj only for OM
14198:
14199: IF l_debug = FND_API.G_TRUE THEN
14200: QP_PREQ_GRP.engine_debug('deleting related lines');
14201: END IF;
14202: DELETE FROM qp_int_rltd_lines
14203: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14204: AND relationship_type_code = QP_PREQ_PUB.G_PBH_LINE
14203: WHERE pricing_status_code = QP_PREQ_PUB.G_STATUS_NEW
14204: AND relationship_type_code = QP_PREQ_PUB.G_PBH_LINE
14205: AND pricing_status_text = 'INSERTED FOR CALCULATION';
14206: IF l_debug = FND_API.G_TRUE THEN
14207: QP_PREQ_GRP.engine_debug('deleted related lines '|| SQL%ROWCOUNT);
14208: END IF;
14209:
14210: IF l_control_rec.calculate_flag IN
14211: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14207: QP_PREQ_GRP.engine_debug('deleted related lines '|| SQL%ROWCOUNT);
14208: END IF;
14209:
14210: IF l_control_rec.calculate_flag IN
14211: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14212: THEN
14213: l_cleanup_flag := QP_PREQ_PUB.G_YES;
14214: --added for bug 3399997 by yangli
14215: Update_Line_Status(x_return_status, x_return_status_text);
14219: END IF;
14220: --added for bug 3399997 by yangli
14221:
14222: IF l_debug = FND_API.G_TRUE THEN
14223: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments');
14224: END IF;
14225: QP_CLEANUP_ADJUSTMENTS_PVT.cleanup_adjustments('ONTVIEW',
14226: G_REQUEST_TYPE_CODE,
14227: l_cleanup_flag,
14232: RAISE Pricing_Exception;
14233: END IF;
14234: --moved down per bug3238607
14235: /*IF l_debug = FND_API.G_TRUE THEN
14236: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14237: END IF;
14238:
14239: --populate the price adjustment id from sequence for rec with process_code = N
14240: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status,x_return_status_text);
14250: --to indicate populate_price_adj_id is needed
14251: IF G_REQUEST_TYPE_CODE = 'ONT' AND
14252: l_control_rec.simulation_flag = G_NO THEN
14253: IF l_control_rec.calculate_flag IN
14254: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14255: THEN
14256: IF l_debug = FND_API.G_TRUE THEN
14257: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14258: END IF;
14253: IF l_control_rec.calculate_flag IN
14254: (QP_PREQ_GRP.G_SEARCH_N_CALCULATE, QP_PREQ_GRP.G_CALCULATE_ONLY)
14255: THEN
14256: IF l_debug = FND_API.G_TRUE THEN
14257: QP_PREQ_GRP.engine_debug('Java Engine calling QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID');
14258: END IF;
14259:
14260: --populate the price adjustment id from sequence for rec with process_code = N
14261: QP_CLEANUP_ADJUSTMENTS_PVT.Populate_Price_Adj_ID(x_return_status, x_return_status_text);
14266: END IF;
14267: END IF;
14268: END IF;
14269:
14270: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE
14271: THEN
14272: Populate_Output_INT(x_return_status, x_return_status);
14273:
14274: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14273:
14274: IF X_RETURN_STATUS = FND_API.G_RET_STS_ERROR
14275: THEN
14276: IF l_debug = FND_API.G_TRUE THEN
14277: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14278: END IF;
14279: RAISE PRICE_REQUEST_EXC;
14280: END IF; --X_RETURN_STATUS
14281: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14277: QP_PREQ_GRP.ENGINE_DEBUG('Exception Populate_Output: '|| x_return_status_text);
14278: END IF;
14279: RAISE PRICE_REQUEST_EXC;
14280: END IF; --X_RETURN_STATUS
14281: END IF; --QP_PREQ_GRP.G_DEBUG_ENGINE
14282: --=======END: Specific only to JAVA Engine==================
14283: END IF; -- java engine is installed
14284: --added by yangli for Java Engine PUB 3086881
14285:
14297: --POPULATE OUT PROCESS CODE IN PRICING_STATUS_CODE
14298: --ONLY UPDATE THE RECORDS INPUT BY USER WHCH WERE USED IN CALCULATION
14299: ------------------------------------------------------------
14300: IF l_debug = FND_API.G_TRUE THEN
14301: QP_PREQ_GRP.ENGINE_DEBUG('Java Engine not Installed ----------');
14302: END IF;
14303: --added by yangli for Java Engine PUB 3086881
14304:
14305: IF l_debug = FND_API.G_TRUE THEN
14302: END IF;
14303: --added by yangli for Java Engine PUB 3086881
14304:
14305: IF l_debug = FND_API.G_TRUE THEN
14306: QP_PREQ_GRP.ENGINE_DEBUG('Update Process code to Pricing Code ');
14307: END IF;
14308: /*
14309: indxno index used Ravi
14310: */
14318:
14319: --added by yangli for Java Engine PUB 3086881
14320: END IF; --Java Engine is not installed;
14321: --added by yangli for Java Engine PUB 3086881
14322: QP_PREQ_GRP.POPULATE_OUTPUT(
14323: x_line_tbl => x_line_tbl,
14324: x_line_qual_tbl => x_line_qual,
14325: x_line_attr_tbl => x_line_attr_tbl,
14326: x_line_detail_tbl => x_line_detail_tbl,
14329: x_related_lines_tbl => x_related_lines_tbl);
14330:
14331:
14332: IF l_debug = FND_API.G_TRUE THEN
14333: QP_PREQ_GRP.ENGINE_DEBUG('Line Detail Count : ' || x_line_detail_tbl.COUNT);
14334:
14335: END IF;
14336: --*******************************************************************
14337: --DEBUG
14335: END IF;
14336: --*******************************************************************
14337: --DEBUG
14338:
14339: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14340: j := x_line_tbl.FIRST;
14341: WHILE j IS NOT NULL
14342: LOOP
14343: IF l_debug = FND_API.G_TRUE THEN
14340: j := x_line_tbl.FIRST;
14341: WHILE j IS NOT NULL
14342: LOOP
14343: IF l_debug = FND_API.G_TRUE THEN
14344: QP_PREQ_GRP.ENGINE_DEBUG('PRICE LINE : '||
14345: x_line_tbl(j).line_index ||
14346: ' list price '|| x_line_tbl(j).unit_price ||
14347: ' adj price '|| x_line_tbl(j).adjusted_unit_price ||
14348: ' up adj price '|| x_line_tbl(j).updated_adjusted_unit_price ||
14347: ' adj price '|| x_line_tbl(j).adjusted_unit_price ||
14348: ' up adj price '|| x_line_tbl(j).updated_adjusted_unit_price ||
14349: ' process code '|| x_line_tbl(j).processed_code);
14350:
14351: QP_PREQ_GRP.ENGINE_DEBUG('---------------------------------------------------');
14352: END IF;
14353: i := x_line_detail_tbl.FIRST;
14354: WHILE i IS NOT NULL
14355: LOOP
14354: WHILE i IS NOT NULL
14355: LOOP
14356: IF x_line_detail_tbl(i).line_index = x_line_tbl(j).line_index THEN
14357: IF l_debug = FND_API.G_TRUE THEN
14358: QP_PREQ_GRP.ENGINE_DEBUG('PRICE ADJUSTMENTS: '
14359: ||' mod_id '|| x_line_detail_tbl(i).list_line_id
14360: ||' dtl_index '|| x_line_detail_tbl(i).line_detail_index
14361: ||' adj amount '|| x_line_detail_tbl(i).adjustment_amount
14362: ||' op '|| x_line_detail_tbl(i).operand_calculation_code
14369: END IF;
14370: i := x_line_detail_tbl.NEXT(i);
14371: END LOOP;
14372: IF l_debug = FND_API.G_TRUE THEN
14373: QP_PREQ_GRP.ENGINE_DEBUG('---------------------------------------------------');
14374: END IF;
14375: j := x_line_tbl.NEXT(j);
14376: END LOOP;
14377:
14376: END LOOP;
14377:
14378: --fix for bug 2515762 automatic overrideable break debug for rltd info
14379: IF l_debug = FND_API.G_TRUE THEN
14380: QP_PREQ_GRP.ENGINE_DEBUG('------------Rltd Info----------------');
14381: QP_PREQ_GRP.ENGINE_DEBUG('Rltd Info count '|| x_related_lines_tbl.COUNT);
14382: END IF;
14383: j := x_related_lines_tbl.FIRST;
14384: WHILE j IS NOT NULL
14377:
14378: --fix for bug 2515762 automatic overrideable break debug for rltd info
14379: IF l_debug = FND_API.G_TRUE THEN
14380: QP_PREQ_GRP.ENGINE_DEBUG('------------Rltd Info----------------');
14381: QP_PREQ_GRP.ENGINE_DEBUG('Rltd Info count '|| x_related_lines_tbl.COUNT);
14382: END IF;
14383: j := x_related_lines_tbl.FIRST;
14384: WHILE j IS NOT NULL
14385: LOOP
14383: j := x_related_lines_tbl.FIRST;
14384: WHILE j IS NOT NULL
14385: LOOP
14386: IF l_debug = FND_API.G_TRUE THEN
14387: QP_PREQ_GRP.ENGINE_DEBUG('line_index '
14388: || x_related_lines_tbl(j).line_index ||' related_line_index '
14389: || x_related_lines_tbl(j).related_line_index ||' dtl_index '
14390: || x_related_lines_tbl(j).line_detail_index ||' rltd_dtl_index '
14391: || x_related_lines_tbl(j).related_line_detail_index ||' relation '
14393: END IF;
14394: j := x_related_lines_tbl.NEXT(j);
14395: END LOOP;
14396:
14397: END IF; --IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14398: --*******************************************************************
14399: END IF; --temp_table_insert_flag = G_YES and check_cust_view_flag = G_NO
14400:
14401:
14434: AND v$statname.name = 'redo size';
14435: EXCEPTION
14436: WHEN OTHERS THEN
14437: IF l_debug = FND_API.G_TRUE THEN
14438: QP_PREQ_GRP.engine_debug('Error in looking up redo end in PUB '|| SQLERRM);
14439: END IF;
14440: END;
14441: END IF;
14442:
14443: l_time_difference := (l_pricing_end_time - l_pricing_start_time) / 100 ;
14444: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
14445:
14446: IF l_debug = FND_API.G_TRUE THEN
14447: QP_PREQ_GRP.engine_debug('Total time taken in PUB Pkg: '|| l_time_difference);
14448: QP_PREQ_GRP.engine_debug('redo log in PUB: '|| l_redo_difference);
14449:
14450: END IF;
14451:
14444: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
14445:
14446: IF l_debug = FND_API.G_TRUE THEN
14447: QP_PREQ_GRP.engine_debug('Total time taken in PUB Pkg: '|| l_time_difference);
14448: QP_PREQ_GRP.engine_debug('redo log in PUB: '|| l_redo_difference);
14449:
14450: END IF;
14451:
14452: --Changes for bug2961617
14470: EXCEPTION
14471:
14472: WHEN OTHERS THEN
14473: IF l_debug = FND_API.G_TRUE THEN
14474: QP_PREQ_GRP.engine_debug('Failed to get time statistics in QP_PREQ_PUB');
14475: END IF;
14476: END;
14477: END IF;
14478: IF l_debug = FND_API.G_TRUE THEN
14475: END IF;
14476: END;
14477: END IF;
14478: IF l_debug = FND_API.G_TRUE THEN
14479: QP_PREQ_GRP.ENGINE_DEBUG('End Price Request');
14480: qp_debug_util.print_support_csv('END');
14481: END IF;
14482: --============END: Post-pricing process needed by JAVA and PL/SQL Engine======
14483:
14489:
14490: EXCEPTION
14491: WHEN E_BYPASS_PRICING THEN
14492: IF l_debug = FND_API.G_TRUE THEN
14493: QP_PREQ_GRP.ENGINE_DEBUG('Bypassed Pricing Engine');
14494: END IF;
14495: x_return_status := FND_API.G_RET_STS_SUCCESS;
14496: --to write temp table data into debug tables
14497: IF (G_QP_DEBUG = G_YES) OR
14501: l_return_status_text
14502: );
14503: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14504: IF l_debug = FND_API.G_TRUE THEN
14505: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14506: END IF;
14507: END IF;
14508: END IF;
14509: --added by yangli for Java Engine PUB 3086881
14509: --added by yangli for Java Engine PUB 3086881
14510: WHEN PRICING_EXCEPTION THEN
14511: x_return_status := FND_API.G_RET_STS_ERROR;
14512: IF l_debug = FND_API.G_TRUE THEN
14513: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14514: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14515: END IF;
14516: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14517: x_return_status := FND_API.G_RET_STS_ERROR;
14510: WHEN PRICING_EXCEPTION THEN
14511: x_return_status := FND_API.G_RET_STS_ERROR;
14512: IF l_debug = FND_API.G_TRUE THEN
14513: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| SQLERRM);
14514: QP_PREQ_GRP.engine_debug('error in fetch_adjustments: '|| x_return_status_text);
14515: END IF;
14516: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14517: x_return_status := FND_API.G_RET_STS_ERROR;
14518: IF l_debug = FND_API.G_TRUE THEN
14515: END IF;
14516: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14517: x_return_status := FND_API.G_RET_STS_ERROR;
14518: IF l_debug = FND_API.G_TRUE THEN
14519: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14520: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14521: END IF;
14522: --added by yangli for Java Engine PUB 3086881
14523:
14516: WHEN JAVA_ENGINE_PRICING_EXCEPTION THEN
14517: x_return_status := FND_API.G_RET_STS_ERROR;
14518: IF l_debug = FND_API.G_TRUE THEN
14519: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| SQLERRM);
14520: QP_PREQ_GRP.engine_debug('error in QP_JAVA_ENGINE.price_request():'|| x_return_status_text);
14521: END IF;
14522: --added by yangli for Java Engine PUB 3086881
14523:
14524: WHEN PRICE_REQUEST_EXC THEN
14522: --added by yangli for Java Engine PUB 3086881
14523:
14524: WHEN PRICE_REQUEST_EXC THEN
14525: IF l_debug = FND_API.G_TRUE THEN
14526: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14527: END IF;
14528: NULL;
14529: x_return_status := FND_API.G_RET_STS_ERROR;
14530: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14536: l_return_status_text
14537: );
14538: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14539: IF l_debug = FND_API.G_TRUE THEN
14540: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14541: END IF;
14542: END IF;
14543: END IF;
14544: WHEN E_DEBUG_ROUTINE_ERROR THEN
14542: END IF;
14543: END IF;
14544: WHEN E_DEBUG_ROUTINE_ERROR THEN
14545: IF l_debug = FND_API.G_TRUE THEN
14546: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14547: END IF;
14548: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14549: IF l_debug = FND_API.G_TRUE THEN
14550: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14546: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || x_return_status_text);
14547: END IF;
14548: WHEN E_NO_LINES_TO_PRICE THEN -- 4865787
14549: IF l_debug = FND_API.G_TRUE THEN
14550: QP_PREQ_GRP.engine_debug('Error in QP_PREQ_PUB.Price_Request: There are no lines to price!');
14551: END IF;
14552: x_return_status := FND_API.G_RET_STS_ERROR;
14553: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14554: WHEN OTHERS THEN
14552: x_return_status := FND_API.G_RET_STS_ERROR;
14553: x_return_status_text := l_routine ||' '|| ': There are no lines to price!';
14554: WHEN OTHERS THEN
14555: IF l_debug = FND_API.G_TRUE THEN
14556: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14557: END IF;
14558: x_return_status := FND_API.G_RET_STS_ERROR;
14559: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14560: --to write temp table data into debug tables
14565: l_return_status_text
14566: );
14567: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14568: IF l_debug = FND_API.G_TRUE THEN
14569: QP_PREQ_GRP.engine_debug('Error occured in Debug Routine: ' || l_return_status_text);
14570: END IF;
14571: END IF;
14572: END IF;
14573:
14725: END Raise_GSA_Error;
14726:
14727: --overloaded for applications who insert into temp tables directly
14728: PROCEDURE PRICE_REQUEST
14729: (p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE,
14730: x_return_status OUT NOCOPY VARCHAR2,
14731: x_return_status_text OUT NOCOPY VARCHAR2
14732: ) IS
14733:
14730: x_return_status OUT NOCOPY VARCHAR2,
14731: x_return_status_text OUT NOCOPY VARCHAR2
14732: ) IS
14733:
14734: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14735: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14736: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14731: x_return_status_text OUT NOCOPY VARCHAR2
14732: ) IS
14733:
14734: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14735: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14736: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14739: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14732: ) IS
14733:
14734: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14735: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14736: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14739: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14740: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14733:
14734: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14735: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14736: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14739: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14740: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14741: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14734: l_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
14735: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14736: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14739: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14740: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14741: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14742: --l_return_status VARCHAR2(30);
14735: l_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
14736: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14739: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14740: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14741: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14742: --l_return_status VARCHAR2(30);
14743: --l_return_status_text VARCHAR2(240);
14736: l_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14739: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14740: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14741: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14742: --l_return_status VARCHAR2(30);
14743: --l_return_status_text VARCHAR2(240);
14744:
14737: l_line_detail_tbl QP_PREQ_GRP.LINE_DETAIL_TBL_TYPE;
14738: l_line_detail_qual_tbl QP_PREQ_GRP.LINE_DETAIL_QUAL_TBL_TYPE;
14739: l_line_detail_attr_tbl QP_PREQ_GRP.LINE_DETAIL_ATTR_TBL_TYPE;
14740: l_related_lines_tbl QP_PREQ_GRP.RELATED_LINES_TBL_TYPE;
14741: l_control_rec QP_PREQ_GRP.CONTROL_RECORD_TYPE;
14742: --l_return_status VARCHAR2(30);
14743: --l_return_status_text VARCHAR2(240);
14744:
14745: PRICE_REQUEST_EXC EXCEPTION;
14783:
14784: EXCEPTION
14785: WHEN PRICE_REQUEST_EXC THEN
14786: IF l_debug = FND_API.G_TRUE THEN
14787: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14788: END IF;
14789: NULL;
14790: -- x_return_status := FND_API.G_RET_STS_ERROR;
14791: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14790: -- x_return_status := FND_API.G_RET_STS_ERROR;
14791: -- x_return_status_TEXT := l_routine||' '||SQLERRM;
14792: WHEN OTHERS THEN
14793: IF l_debug = FND_API.G_TRUE THEN
14794: QP_PREQ_GRP.ENGINE_DEBUG('Exception Price Request: '|| SQLERRM);
14795: END IF;
14796: x_return_status := FND_API.G_RET_STS_ERROR;
14797: x_return_status_TEXT := l_routine ||' '|| SQLERRM;
14798:
14813: l_routine VARCHAR2(100) := 'Routine :QP_PREQ_PUB.get_price_for_line ';
14814: BEGIN
14815:
14816: IF l_debug = FND_API.G_TRUE THEN
14817: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14818: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14819: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14820: END IF;
14821:
14814: BEGIN
14815:
14816: IF l_debug = FND_API.G_TRUE THEN
14817: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14818: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14819: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14820: END IF;
14821:
14822: --added by yangli for java engine
14815:
14816: IF l_debug = FND_API.G_TRUE THEN
14817: QP_PREQ_GRP.ENGINE_DEBUG('In : ' || l_routine);
14818: QP_PREQ_GRP.ENGINE_DEBUG('p_line_index : ' || p_line_index);
14819: QP_PREQ_GRP.ENGINE_DEBUG('p_line_id : ' || p_line_id);
14820: END IF;
14821:
14822: --added by yangli for java engine
14823: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
14821:
14822: --added by yangli for java engine
14823: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
14824: IF l_debug = FND_API.G_TRUE THEN
14825: QP_PREQ_GRP.ENGINE_DEBUG('java engine is not running');
14826: END IF;
14827: IF p_line_index IS NOT NULL THEN
14828: SELECT line_unit_price,
14829: order_uom_selling_price,
14852: END IF;
14853: --added by yangli for java engine
14854: ELSE
14855: IF l_debug = FND_API.G_TRUE THEN
14856: QP_PREQ_GRP.ENGINE_DEBUG('java engine running');
14857: END IF;
14858: IF p_line_index IS NOT NULL THEN
14859: SELECT line_unit_price,
14860: order_uom_selling_price,
14883: END IF;
14884: END IF;
14885:
14886: IF l_debug = FND_API.G_TRUE THEN
14887: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14888: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14889: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14890: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14891: END IF;
14884: END IF;
14885:
14886: IF l_debug = FND_API.G_TRUE THEN
14887: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14888: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14889: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14890: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14891: END IF;
14892:
14885:
14886: IF l_debug = FND_API.G_TRUE THEN
14887: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14888: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14889: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14890: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14891: END IF;
14892:
14893: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14886: IF l_debug = FND_API.G_TRUE THEN
14887: QP_PREQ_GRP.ENGINE_DEBUG('x_line_unit_price : ' || x_line_unit_price);
14888: QP_PREQ_GRP.ENGINE_DEBUG('x_adjusted_unit_price : ' || x_adjusted_unit_price);
14889: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14890: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14891: END IF;
14892:
14893: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14894: x_return_status := FND_API.G_RET_STS_SUCCESS;
14889: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_code : ' || x_pricing_status_code);
14890: QP_PREQ_GRP.ENGINE_DEBUG('x_pricing_status_text : ' || x_pricing_status_text);
14891: END IF;
14892:
14893: IF x_pricing_status_code IN (QP_PREQ_GRP.G_STATUS_NEW, QP_PREQ_GRP.G_STATUS_UPDATED, QP_PREQ_GRP.G_STATUS_UNCHANGED) THEN
14894: x_return_status := FND_API.G_RET_STS_SUCCESS;
14895: ELSE
14896: x_return_status := FND_API.G_RET_STS_ERROR;
14897: END IF;
14899: EXCEPTION
14900:
14901: WHEN NO_DATA_FOUND THEN
14902: IF l_debug = FND_API.G_TRUE THEN
14903: QP_PREQ_GRP.ENGINE_DEBUG('no_data_found Exception in : ' || l_routine || ' ' || SQLERRM);
14904: END IF;
14905: x_return_status := FND_API.G_RET_STS_ERROR;
14906: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14907:
14906: x_pricing_status_text := 'No record found for line_index ' || p_line_index || ' or line_id ' || p_line_id || ' in ' || l_routine;
14907:
14908: WHEN OTHERS THEN
14909: IF l_debug = FND_API.G_TRUE THEN
14910: QP_PREQ_GRP.ENGINE_DEBUG('Others Exception in : ' || l_routine || ' ' || SQLERRM);
14911: END IF;
14912: x_return_status := FND_API.G_RET_STS_ERROR;
14913: x_pricing_status_text := 'Others Exception in : ' || l_routine || ' ' || SQLERRM;
14914: END get_price_for_line;