eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.QP_RESOLVE_INCOMPATABILITY_PVT dependencies on FND_API

Line 119: IF l_debug = FND_API.G_TRUE THEN

115: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
116:
117: IF (p_order_uom_code IS NOT NULL) THEN
118:
119: IF l_debug = FND_API.G_TRUE THEN
120: QP_PREQ_GRP.engine_debug('Opening Order Uom Cur : ' || p_order_uom_code);
121:
122: END IF;
123: -- Method to derive QUAL_PRECED

Line 181: IF l_debug = FND_API.G_TRUE THEN

177: ORDER BY 3,1) z
178: ORDER BY 3,1;
179: ELSE
180:
181: IF l_debug = FND_API.G_TRUE THEN
182: QP_PREQ_GRP.engine_debug('Opening Primary Uom Cur');
183:
184: END IF;
185: /* Modified cursor l_precedence_for_line_cur for 2780293 */

Line 237: IF l_debug = FND_API.G_TRUE THEN

233: EXIT WHEN g_list_line_id_tbl.count = 0;
234:
235: IF (g_list_line_id_tbl.count > 0) THEN
236:
237: IF l_debug = FND_API.G_TRUE THEN
238: QP_PREQ_GRP.engine_debug('List Line Table Count: ' || g_list_line_id_tbl.count);
239:
240: END IF;
241: FOR j in g_list_line_id_tbl.first .. g_list_line_id_tbl.last -- Inner Loop

Line 249: IF l_debug = FND_API.G_TRUE THEN

245: l_prev_precedence := g_precedence_tbl(j);
246: l_prev_qual_precedence := g_qual_precedence_tbl(j);
247: END IF;
248:
249: IF l_debug = FND_API.G_TRUE THEN
250: QP_PREQ_GRP.engine_debug('High Qual Preced Is : ' || g_qual_precedence_tbl(j));
251: QP_PREQ_GRP.engine_debug('High Prod Preced Is : ' || g_precedence_tbl(j) || ' List Line Id: ' || g_list_line_id_tbl(j));
252:
253: END IF;

Line 278: IF l_debug = FND_API.G_TRUE THEN

274: OPEN get_inventory_item_id_cur(p_line_index);
275: FETCH get_inventory_item_id_cur INTO l_inventory_item_id;
276: CLOSE get_inventory_item_id_cur;
277:
278: IF l_debug = FND_API.G_TRUE THEN
279: QP_PREQ_GRP.engine_debug('Attribute Is : ' || l_attribute);
280: QP_PREQ_GRP.engine_debug('Inventory Item Id For Item Specific : ' || l_inventory_item_id);
281:
282: END IF;

Line 284: IF l_debug = FND_API.G_TRUE THEN

280: QP_PREQ_GRP.engine_debug('Inventory Item Id For Item Specific : ' || l_inventory_item_id);
281:
282: END IF;
283: IF (l_inventory_item_id IS NULL) THEN
284: IF l_debug = FND_API.G_TRUE THEN
285: QP_PREQ_GRP.engine_debug('Could not find Item Specific. Doing generic conversion');
286: END IF;
287: x_precedence_tbl(j).inventory_item_id := 0;
288: ELSE

Line 293: IF l_debug = FND_API.G_TRUE THEN

289: x_precedence_tbl(j).inventory_item_id := l_inventory_item_id;
290: END IF;
291:
292: ELSE -- IF (l_attribute <> 'PRICING_ATTRIBUTE1')
293: IF l_debug = FND_API.G_TRUE THEN
294: QP_PREQ_GRP.engine_debug('Inventory Item Id For Item: ' || l_inventory_item_id);
295: END IF;
296: x_precedence_tbl(j).inventory_item_id := l_inventory_item_id;
297: END IF; -- IF (l_attribute <> 'PRICING_ATTRIBUTE1')

Line 301: IF l_debug = FND_API.G_TRUE THEN

297: END IF; -- IF (l_attribute <> 'PRICING_ATTRIBUTE1')
298:
299: END IF; -- (p_primary_uom_flag IS NOT NULL)
300: ELSE -- l_prev_precedence = g_precedence_tbl(j)
301: IF l_debug = FND_API.G_TRUE THEN
302: QP_PREQ_GRP.engine_debug('Exiting the inner loop after loading the higher precedence list lines');
303: END IF;
304: l_exit_status := 'T';
305: EXIT; -- Inner Loop

Line 311: IF l_debug = FND_API.G_TRUE THEN

307:
308: END LOOP;
309:
310: IF (l_exit_status = 'T') THEN
311: IF l_debug = FND_API.G_TRUE THEN
312: QP_PREQ_GRP.engine_debug('Exiting the outer loop after loading the higher precedence list lines');
313: END IF;
314: EXIT; -- Outer Main Loop
315: END IF;

Line 325: IF l_debug = FND_API.G_TRUE THEN

321:
322: IF (x_precedence_tbl.COUNT > 0) THEN
323: FOR k in x_precedence_tbl.FIRST .. x_precedence_tbl.LAST
324: LOOP
325: IF l_debug = FND_API.G_TRUE THEN
326: QP_PREQ_GRP.engine_debug('PPL List Line Id : ' || x_precedence_tbl(k).created_from_list_line_id);
327: QP_PREQ_GRP.engine_debug('PPL Precedence : ' || x_precedence_tbl(k).product_precedence);
328: QP_PREQ_GRP.engine_debug('PPL Inventory Item Id: ' || x_precedence_tbl(k).inventory_item_id);
329: QP_PREQ_GRP.engine_debug('PPL Product Uom : ' || x_precedence_tbl(k).product_uom_code);

Line 336: IF l_debug = FND_API.G_TRUE THEN

332: END IF;
333:
334: EXCEPTION
335: WHEN OTHERS THEN
336: IF l_debug = FND_API.G_TRUE THEN
337: QP_PREQ_GRP.engine_debug('In Routine Precedence_For_Price_List_Line : ' || SQLERRM);
338: END IF;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: x_return_status_text := v_routine_name || ' ' || SQLERRM;

Line 339: x_return_status := FND_API.G_RET_STS_ERROR;

335: WHEN OTHERS THEN
336: IF l_debug = FND_API.G_TRUE THEN
337: QP_PREQ_GRP.engine_debug('In Routine Precedence_For_Price_List_Line : ' || SQLERRM);
338: END IF;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: x_return_status_text := v_routine_name || ' ' || SQLERRM;
341: END Precedence_For_Price_List_Line;
342:
343: Procedure sort_on_precedence(p_sorted_tbl in out Nocopy precedence_tbl_type) Is

Line 439: x_return_status := FND_API.G_RET_STS_ERROR;

435: AND a.LINE_INDEX = p_line_index; */
436:
437: EXCEPTION
438: WHEN OTHERS THEN
439: x_return_status := FND_API.G_RET_STS_ERROR;
440: x_return_status_text := v_routine_name || ' ' || SQLERRM;
441: END Update_Invalid_List_lines;
442:
443:

Line 499: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;

495: v_dup_list_line_id NUMBER;
496: v_dup_price_list VARCHAR2(240);
497: v_old_precedence NUMBER;
498: v_count NUMBER := 0;
499: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
500: v_return_msg VARCHAR2(240);
501: v_precedence NUMBER;
502: v_counter NUMBER := 0;
503: l_id VARCHAR2(30);

Line 570: IF l_debug = FND_API.G_TRUE THEN

566: INVALID_UOM_CONVERSION EXCEPTION;
567:
568: BEGIN
569: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
570: IF l_debug = FND_API.G_TRUE THEN
571: QP_PREQ_GRP.engine_debug( 'Determine_Pricing_UOM');
572:
573: QP_PREQ_GRP.engine_debug( 'After Determine_Pricing_UOM');
574: QP_PREQ_GRP.engine_debug( 'Pricing Phase Id:'|| p_pricing_phase_id);

Line 578: --IF l_debug = FND_API.G_TRUE THEN

574: QP_PREQ_GRP.engine_debug( 'Pricing Phase Id:'|| p_pricing_phase_id);
575:
576: END IF;
577: -- shulin
578: --IF l_debug = FND_API.G_TRUE THEN
579: --QP_PREQ_GRP.engine_debug('QP_TIME_UOM_CONVERSION Profile Setting: ' ||l_qp_time_uom_conversion);
580: --END IF;
581:
582: FOR i IN incomp_cur

Line 630: IF l_debug = FND_API.G_TRUE THEN

626: l_qp_time_uom_conversion := 'STANDARD';
627: l_duration_passed := 'N';
628: END IF;
629:
630: IF l_debug = FND_API.G_TRUE THEN
631: QP_PREQ_GRP.engine_debug('Constract start/end dates '||
632: l_date_passed||
633: 'passed in ==> qp_time_uom_conversion = '||
634: l_qp_time_uom_conversion);

Line 637: IF l_debug = FND_API.G_TRUE THEN

633: 'passed in ==> qp_time_uom_conversion = '||
634: l_qp_time_uom_conversion);
635: END IF;
636:
637: IF l_debug = FND_API.G_TRUE THEN
638: QP_PREQ_GRP.engine_debug( 'Determine_Pricing_UOM1');
639: QP_PREQ_GRP.engine_debug( I.INCOMPATABILITY_GRP_CODE);
640: QP_PREQ_GRP.engine_debug( 'Line Index:'|| i.line_index);
641:

Line 645: IF l_debug = FND_API.G_TRUE THEN

641:
642: END IF;
643: Precedence_For_Price_List_Line(i.line_index,i.line_uom_code,NULL,l_precedence_tbl,l_status,l_status_text);
644:
645: IF l_debug = FND_API.G_TRUE THEN
646: QP_PREQ_GRP.engine_debug( ' Debug Point #0');
647:
648: QP_PREQ_GRP.engine_debug('Count : ' || l_precedence_tbl.count);
649:

Line 661: IF l_debug = FND_API.G_TRUE THEN

657: IF (l_precedence_tbl.COUNT > 0 ) THEN
658: v_total_count := l_precedence_tbl.COUNT;
659: v_count := 0;
660: v_list_line_count1 := NULL;
661: IF l_debug = FND_API.G_TRUE THEN
662: QP_PREQ_GRP.engine_debug( 'Precedence Table Count Line : '|| i.line_index ||' Cnt:'|| l_precedence_tbl.count);
663: END IF;
664: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
665: LOOP

Line 666: IF l_debug = FND_API.G_TRUE THEN

662: QP_PREQ_GRP.engine_debug( 'Precedence Table Count Line : '|| i.line_index ||' Cnt:'|| l_precedence_tbl.count);
663: END IF;
664: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
665: LOOP
666: IF l_debug = FND_API.G_TRUE THEN
667: QP_PREQ_GRP.engine_debug( 'Determine_Pricing_UOM2');
668: END IF;
669: IF (v_count = 0) THEN
670: v_list_line_id := l_precedence_tbl(j).created_from_list_line_id;

Line 676: IF l_debug = FND_API.G_TRUE THEN

672: END IF;
673:
674: IF (v_count > 0 ) THEN
675:
676: IF l_debug = FND_API.G_TRUE THEN
677: QP_PREQ_GRP.engine_debug( 'Precedence 1 : '|| v_list_precedence);
678: QP_PREQ_GRP.engine_debug( 'Precedence 2 : '|| l_precedence_tbl(j).product_precedence);
679:
680: END IF;

Line 693: IF l_debug = FND_API.G_TRUE THEN

689: FETCH get_attribute_count_cur INTO v_list_line_count1;
690: CLOSE get_attribute_count_cur;
691: END IF;
692:
693: IF l_debug = FND_API.G_TRUE THEN
694: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count1 : ' || v_list_line_id || ' ' || v_list_line_count1);
695:
696: END IF;
697: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line

Line 701: IF l_debug = FND_API.G_TRUE THEN

697: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line
698: FETCH get_attribute_count_cur INTO v_list_line_count2;
699: CLOSE get_attribute_count_cur;
700:
701: IF l_debug = FND_API.G_TRUE THEN
702: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count2 : ' || l_precedence_tbl(j).created_from_list_line_id || ' ' || v_list_line_count2);
703:
704: END IF;
705: -- Update the status to duplicate list lines , only after comparing the attribute counts for all list lines

Line 744: IF l_debug = FND_API.G_TRUE THEN

740: v_count := v_count + 1;
741: END LOOP;
742: END IF;
743:
744: IF l_debug = FND_API.G_TRUE THEN
745: QP_PREQ_GRP.engine_debug('List Line Id:' || v_list_line_id);
746:
747: END IF;
748: IF (v_list_line_id IS NOT NULL) THEN -- Successful in finding pll in order uom

Line 786: IF l_debug = FND_API.G_TRUE THEN

782: -- end shu fix bug 2453250
783:
784: -- begin shulin bug 1829731
785: -- use OKS API to calculate pricing_qty based on order_uom if profile set to 'ORACLE_CONTRACTS'
786: IF l_debug = FND_API.G_TRUE THEN
787: QP_PREQ_GRP.engine_debug('no uom conversion ...');
788: END IF;
789: IF l_qp_time_uom_conversion = 'ORACLE_CONTRACTS' THEN
790:

Line 791: IF l_debug = FND_API.G_TRUE THEN

787: QP_PREQ_GRP.engine_debug('no uom conversion ...');
788: END IF;
789: IF l_qp_time_uom_conversion = 'ORACLE_CONTRACTS' THEN
790:
791: IF l_debug = FND_API.G_TRUE THEN
792: QP_PREQ_GRP.engine_debug( 'contract_start_date :' || i.contract_start_date);
793: QP_PREQ_GRP.engine_debug( 'contract_end_date :' || i.contract_end_date);
794: QP_PREQ_GRP.engine_debug( 'line_uom_code/order uom :' || i.line_uom_code); -- order_uom
795: END IF;

Line 802: IF l_debug = FND_API.G_TRUE THEN

798: -- OKS_TIME_MEASURES_PUB replaced with OKS_OMINT_PUB in R12
799: /* [julin/4285975/4662388] removing dynamic SQL, unnecessary and causes error
800: * when env language has ',' delimiter
801: l_sql_stmt := 'select ' || nvl(ROUND (OKS_OMINT_PUB.get_quantity (i.contract_start_date, i.contract_end_date, i.line_uom_code, QP_PREQ_GRP.G_CURRENT_USER_OP_UNIT), l_max_decimal_digits), -999999) ||' from dual';
802: IF l_debug = FND_API.G_TRUE THEN
803: QP_PREQ_GRP.engine_debug('l_sql_stmt:' || l_sql_stmt);
804: END IF; -- end debug
805: execute immediate l_sql_stmt INTO l_oks_qty;
806: */

Line 822: IF l_debug = FND_API.G_TRUE THEN

818: ELSE
819: l_oks_qty := null;
820: END IF;--l_duration_passed = 'N'
821:
822: IF l_debug = FND_API.G_TRUE THEN
823: QP_PREQ_GRP.engine_debug('l_oks_qty:' || l_oks_qty);
824: END IF; -- end debug
825: -- when contract_start_date or contract_end_date is null, or uom is 'MO' instead of 'MTH', l_oks_qty = 0
826: -- when uom is not time_related or invalid to oks API, i.e. 'EA', 'MI', l_oks_qty = NULL

Line 834: IF l_debug = FND_API.G_TRUE THEN

830: and l_duration_passed = 'N' THEN -- oks succeed
831: v_pricing_qty := round(l_oks_qty , l_max_decimal_digits);
832: l_order_qty := v_pricing_qty; -- shu_latest, this is to correct if user enter order_qty not matching the start_date end_date
833: l_uom_quantity :=1;
834: IF l_debug = FND_API.G_TRUE THEN
835: QP_PREQ_GRP.engine_debug('Pric_Qty OKS_API Conv based on Order_UOM :' || v_pricing_qty);
836: END IF; --end debug
837:
838: ELSE -- oks fail, make v_pricing_qty as line_quantity just like STANDARD conversion

Line 843: IF l_debug = FND_API.G_TRUE THEN

839: v_pricing_qty := i.line_quantity; -- STANDARD
840: --l_uom_quantity :=1;
841: l_uom_quantity := nvl(i.uom_quantity, 1); -- to back support OM, SL BUG FOUND
842: -- no need to update l_order_qty, since it has been initialized to i.line_quantity
843: IF l_debug = FND_API.G_TRUE THEN
844: QP_PREQ_GRP.engine_debug('pric_qty same as order_qty :' || v_pricing_qty); --shu 12/26/2001
845: QP_PREQ_GRP.engine_debug('uom_qty passed :' || l_uom_quantity); --shu 12/26/2001
846: END IF; -- end debug
847:

Line 855: IF l_debug = FND_API.G_TRUE THEN

851: --v_pricing_qty := i.line_quantity; -- STANDARD
852: v_pricing_qty := ROUND(i.line_quantity,l_max_decimal_digits); --added ROUND for 9977712 smbalara
853: -- no need to update l_order_qty, since it has been initialized to i.line_quantity
854: l_uom_quantity := nvl(i.uom_quantity, 1); -- to back support OM, for case user order 2 of 6 MTH service
855: IF l_debug = FND_API.G_TRUE THEN
856: QP_PREQ_GRP.engine_debug('pric_qty same as order_qty :' || v_pricing_qty);
857: END IF;
858: END IF;
859: -- end shulin bug 1829731

Line 893: IF l_debug = FND_API.G_TRUE THEN

889:
890: /* IF (l_precedence_tbl.COUNT > 0) THEN
891: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
892: LOOP
893: IF l_debug = FND_API.G_TRUE THEN
894: QP_PREQ_GRP.engine_debug('List Line Id : ' || l_precedence_tbl(j).created_from_list_line_id);
895: QP_PREQ_GRP.engine_debug('Precedence : ' || l_precedence_tbl(j).product_precedence);
896: QP_PREQ_GRP.engine_debug('Inventory Item Id: ' || l_precedence_tbl(j).inventory_item_id);
897: QP_PREQ_GRP.engine_debug('Product Uom : ' || l_precedence_tbl(j).product_uom_code);

Line 908: IF l_debug = FND_API.G_TRUE THEN

904: v_count := 0;
905: v_list_line_count1 := NULL;
906: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
907: LOOP
908: IF l_debug = FND_API.G_TRUE THEN
909: QP_PREQ_GRP.engine_debug('pri flag');
910: END IF;
911: IF (v_count = 0) THEN
912: v_list_line_id := l_precedence_tbl(j).created_from_list_line_id;

Line 930: IF l_debug = FND_API.G_TRUE THEN

926: FETCH get_attribute_count_cur INTO v_list_line_count1;
927: CLOSE get_attribute_count_cur;
928: END IF;
929:
930: IF l_debug = FND_API.G_TRUE THEN
931: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count Pri1 : ' || v_list_line_id || ' ' || v_list_line_count1);
932:
933: END IF;
934: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line

Line 938: IF l_debug = FND_API.G_TRUE THEN

934: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line
935: FETCH get_attribute_count_cur INTO v_list_line_count2;
936: CLOSE get_attribute_count_cur;
937:
938: IF l_debug = FND_API.G_TRUE THEN
939: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count Pri2 : ' || l_precedence_tbl(j).created_from_list_line_id || ' ' || v_list_line_count2);
940:
941: END IF;
942: IF (nvl(v_list_line_count1,0) = nvl(v_list_line_count2,0) and v_total_count = v_count + 1) THEN

Line 979: IF l_debug = FND_API.G_TRUE THEN

975: v_count := v_count + 1;
976: END LOOP;
977: END IF; -- v_list_line_id IS NOT NULL
978:
979: IF l_debug = FND_API.G_TRUE THEN
980: QP_PREQ_GRP.engine_debug('Pri Flag List Line Id:' || v_list_line_id);
981:
982: END IF;
983: IF (v_list_line_id IS NOT NULL) THEN

Line 1029: IF l_debug = FND_API.G_TRUE THEN

1025: AND a.line_index = i.line_index;
1026: */
1027: -- end shu fix bug 2453250
1028:
1029: IF l_debug = FND_API.G_TRUE THEN
1030: QP_PREQ_GRP.engine_debug('Data Updated');
1031: QP_PREQ_GRP.engine_debug('Order Uom:' || i.line_uom_code);
1032: QP_PREQ_GRP.engine_debug('Prim UOM:' || v_primary_uom_code);
1033: QP_PREQ_GRP.engine_debug('Inventory Id:' || v_inventory_item_id);

Line 1038: IF l_debug = FND_API.G_TRUE THEN

1034: QP_PREQ_GRP.engine_debug('v_pricing_qty:' || v_pricing_qty);
1035: END IF;
1036:
1037: -- begin Bug 1829731 fix, shulin
1038: IF l_debug = FND_API.G_TRUE THEN
1039: QP_PREQ_GRP.engine_debug('uom conversion...');
1040: END IF;
1041: l_uom_quantity := i.uom_quantity; --shu_latest, to back support OM, either from usr input or null
1042: -- shulin, do OKS conversion if profile set to 'ORCALE_CONTRACTS'

Line 1045: IF l_debug = FND_API.G_TRUE THEN

1041: l_uom_quantity := i.uom_quantity; --shu_latest, to back support OM, either from usr input or null
1042: -- shulin, do OKS conversion if profile set to 'ORCALE_CONTRACTS'
1043: IF (l_qp_time_uom_conversion = 'ORACLE_CONTRACTS') THEN -- do oks conversion
1044:
1045: IF l_debug = FND_API.G_TRUE THEN
1046: QP_PREQ_GRP.engine_debug( 'contract_start_date :' || i.contract_start_date);
1047: QP_PREQ_GRP.engine_debug( 'contract_end_date :' || i.contract_end_date);
1048: QP_PREQ_GRP.engine_debug( 'primary_uom_code :' || v_primary_uom_code);
1049: QP_PREQ_GRP.engine_debug('v_pricing_qty:' || v_pricing_qty);

Line 1072: IF l_debug = FND_API.G_TRUE THEN

1068: p_source_duration => i.uom_quantity,
1069: p_target_uom => v_primary_uom_code,/*Default Month*/
1070: p_org_id => QP_PREQ_GRP.G_CURRENT_USER_OP_UNIT), l_max_decimal_digits), -999999);
1071:
1072: IF l_debug = FND_API.G_TRUE THEN
1073: QP_PREQ_GRP.engine_debug('l_oks_qty1:' || l_oks_qty);
1074: END IF; -- end debug
1075:
1076: IF (l_oks_qty IS NOT NULL OR l_oks_qty <> 0)

Line 1095: IF l_debug = FND_API.G_TRUE THEN

1091: p_source_uom => i.line_uom_code,
1092: p_source_duration => i.uom_quantity,
1093: p_target_uom => i.line_uom_code,/*Default Month*/
1094: p_org_id => QP_PREQ_GRP.G_CURRENT_USER_OP_UNIT), l_max_decimal_digits), -999999);
1095: IF l_debug = FND_API.G_TRUE THEN
1096: QP_PREQ_GRP.engine_debug('l_oks_qty2:' || l_oks_qty);
1097: END IF; -- end debug
1098:
1099: v_pricing_qty := round (l_oks_qty , l_max_decimal_digits);

Line 1102: IF l_debug = FND_API.G_TRUE THEN

1098:
1099: v_pricing_qty := round (l_oks_qty , l_max_decimal_digits);
1100:
1101: l_uom_quantity := 1; --shulin
1102: IF l_debug = FND_API.G_TRUE THEN
1103: QP_PREQ_GRP.engine_debug('OKS_API conversion...');
1104: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1105: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1106: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1121: IF l_debug = FND_API.G_TRUE THEN

1117: --v_pricing_qty := ROUND( i.line_quantity * l_oks_qty * nvl(i.uom_quantity,1), l_max_decimal_digits) ; -- nvl is case we only have line_quantity
1118: --l_uom_quantity := ROUND( i.uom_quantity * v_uom_rate, l_max_decimal_digits); -- do not nvl uom_quantity
1119: l_uom_quantity :=1; -- reset to 1, so the unit price by pricing uom does not change
1120: l_order_qty := i.line_quantity;
1121: IF l_debug = FND_API.G_TRUE THEN
1122: QP_PREQ_GRP.engine_debug('OKS_API conversion for OM...');
1123: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1124: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1125: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1136: IF l_debug = FND_API.G_TRUE THEN

1132: -- not 'ORACLE_CONTACTS' or OKS conversion failed, use standard inventory uom conversion
1133: IF (l_qp_time_uom_conversion = 'STANDARD') OR (l_oks_qty = -999999 OR l_oks_qty = 0) THEN
1134:
1135: IF (l_qp_time_uom_conversion = 'ORACLE_CONTRACTS') then
1136: IF l_debug = FND_API.G_TRUE THEN
1137: QP_PREQ_GRP.engine_debug('oks conversion had failed...');
1138: END IF;
1139: END IF; -- for debug, to distinglish if it is oks failed case or if profile set to standard case
1140:

Line 1160: IF l_debug = FND_API.G_TRUE THEN

1156:
1157: v_pricing_qty := ROUND( i.line_quantity * v_uom_rate, l_max_decimal_digits);
1158: l_uom_quantity := 1; --shu_latest
1159: l_order_qty := i.line_quantity;
1160: IF l_debug = FND_API.G_TRUE THEN
1161: QP_PREQ_GRP.engine_debug('Standard uom conversion, non-service line...');
1162: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1163: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1164: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1175: IF l_debug = FND_API.G_TRUE THEN

1171: IF (l_qp_time_uom_conversion = 'ORACLE_CONTRACTS') THEN -- from oks failed case
1172: v_pricing_qty := ROUND( i.line_quantity * v_uom_rate, l_max_decimal_digits);
1173: l_uom_quantity := 1;
1174: l_order_qty := i.line_quantity;
1175: IF l_debug = FND_API.G_TRUE THEN
1176: QP_PREQ_GRP.engine_debug('Standard uom conversion (oks failed), service line...');
1177: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1178: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1179: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1187: IF l_debug = FND_API.G_TRUE THEN

1183:
1184: ELSE -- from profile being standard case, l_uom_quantity matters for OM
1185: -- assuming OM pass l_uom_quantity is converted to order uom like the following
1186: -- 1 of 2 YR services, order_uom=YR, l_uom_quantity = 2 (YR)
1187: IF l_debug = FND_API.G_TRUE THEN
1188: QP_PREQ_GRP.engine_debug('uom_quantity from calling application:' || i.uom_quantity);
1189: END IF;
1190: v_pricing_qty := ROUND( i.line_quantity * v_uom_rate * nvl(i.uom_quantity,1), l_max_decimal_digits) ; -- nvl is case we only have line_quantity
1191: --l_uom_quantity := ROUND( i.uom_quantity * v_uom_rate, l_max_decimal_digits); -- do not nvl uom_quantity

Line 1195: IF l_debug = FND_API.G_TRUE THEN

1191: --l_uom_quantity := ROUND( i.uom_quantity * v_uom_rate, l_max_decimal_digits); -- do not nvl uom_quantity
1192: l_uom_quantity :=1; -- reset to 1, so the unit price by pricing uom does not change
1193: l_order_qty := i.line_quantity;
1194:
1195: IF l_debug = FND_API.G_TRUE THEN
1196: QP_PREQ_GRP.engine_debug('Standard uom conversion, service line...');
1197: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1198: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1199: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1242: IF l_debug = FND_API.G_TRUE THEN

1238: n := n+1;
1239: END IF;
1240: ELSE -- No record found in primary uom and also in order uom, else IF (v_list_line_id IS NOT NULL)
1241: l_status_text := 'Could not find a price list in Ordered UOM or Primary UOM';
1242: IF l_debug = FND_API.G_TRUE THEN
1243: QP_PREQ_GRP.engine_debug(l_status_text);
1244: END IF;
1245: Update_Invalid_List_Lines(i.INCOMPATABILITY_GRP_CODE,i.line_index,p_pricing_phase_id,
1246: QP_PREQ_GRP.G_STATUS_INVALID_UOM,l_status_text, v_return_status,

Line 1291: IF l_debug = FND_API.G_TRUE THEN

1287: AND PRICING_STATUS_CODE = QP_PREQ_GRP.G_STATUS_UNCHANGED;
1288: l_upd_line_index_tbl := l_line_index_tbl_m;
1289: l_upd_priced_qty_tbl := l_priced_quantity_tbl_m;
1290:
1291: IF l_debug = FND_API.G_TRUE THEN
1292: QP_PREQ_GRP.engine_debug('Incomp Return Status : ' || v_return_status);
1293: END IF;
1294: v_return_status := x_return_status;
1295: EXCEPTION

Line 1297: IF l_debug = FND_API.G_TRUE THEN

1293: END IF;
1294: v_return_status := x_return_status;
1295: EXCEPTION
1296: WHEN INVALID_UOM_CONVERSION THEN
1297: IF l_debug = FND_API.G_TRUE THEN
1298: QP_PREQ_GRP.engine_debug(v_routine_name ||' Invalid Unit of Measure Conversion'|| l_order_uom_code || ','
1299: || v_primary_uom_code);
1300: END IF;
1301: x_return_status_txt := l_order_uom_code || ',' || v_primary_uom_code;

Line 1306: IF l_debug = FND_API.G_TRUE THEN

1302: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_UOM_CONV;
1303: x_return_status := v_return_status;
1304: x_list_line_id := NULL;
1305: WHEN DUPLICATE_PRICE_LIST THEN
1306: IF l_debug = FND_API.G_TRUE THEN
1307: QP_PREQ_GRP.engine_debug(v_routine_name || ' Duplicate Price List '|| v_list_line_id || ',' || v_dup_list_line_id);
1308: END IF;
1309: v_return_msg := v_list_line_id || ',' || v_dup_list_line_id ;
1310: IF l_debug = FND_API.G_TRUE THEN

Line 1310: IF l_debug = FND_API.G_TRUE THEN

1306: IF l_debug = FND_API.G_TRUE THEN
1307: QP_PREQ_GRP.engine_debug(v_routine_name || ' Duplicate Price List '|| v_list_line_id || ',' || v_dup_list_line_id);
1308: END IF;
1309: v_return_msg := v_list_line_id || ',' || v_dup_list_line_id ;
1310: IF l_debug = FND_API.G_TRUE THEN
1311: QP_PREQ_GRP.engine_debug(v_return_msg);
1312: END IF;
1313: x_return_status_txt := v_return_msg;
1314: v_return_status := QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST;

Line 1318: IF l_debug = FND_API.G_TRUE THEN

1314: v_return_status := QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST;
1315: x_return_status := v_return_status;
1316: x_list_line_id := NULL;
1317: WHEN INVALID_UOM THEN
1318: IF l_debug = FND_API.G_TRUE THEN
1319: QP_PREQ_GRP.engine_debug(v_routine_name || ' Could not find a price list in Ordered UOM or Primary UOM');
1320: END IF;
1321: x_return_status_txt := 'Could not find a price list in Ordered UOM or Primary UOM';
1322: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_UOM;

Line 1326: IF l_debug = FND_API.G_TRUE THEN

1322: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_UOM;
1323: x_return_status := v_return_status;
1324: x_list_line_id := NULL;
1325: WHEN OTHERS THEN
1326: IF l_debug = FND_API.G_TRUE THEN
1327: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1328: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1329: END IF;
1330: v_return_status := FND_API.G_RET_STS_ERROR;

Line 1330: v_return_status := FND_API.G_RET_STS_ERROR;

1326: IF l_debug = FND_API.G_TRUE THEN
1327: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1328: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1329: END IF;
1330: v_return_status := FND_API.G_RET_STS_ERROR;
1331: x_return_status := v_return_status;
1332: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
1333: x_list_line_id := NULL;
1334: END Determine_Pricing_UOM_And_Qty;

Line 1352: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;

1348: v_benefit_price NUMBER;
1349: v_benefit_percent NUMBER;
1350: v_list_line_id NUMBER;
1351: v_request_qty NUMBER;
1352: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
1353: x_benefit_amount NUMBER;
1354: l_return_status VARCHAR2(30);
1355: l_return_status_text VARCHAR2(240);
1356: l_sign NUMBER;

Line 1482: IF l_debug = FND_API.G_TRUE THEN

1478: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1479: FOR i IN get_list_lines_cur
1480: LOOP
1481: /*IF (i.CREATED_FROM_LIST_LINE_TYPE = QP_PREQ_GRP.G_OTHER_ITEM_DISCOUNT) THEN
1482: IF l_debug = FND_API.G_TRUE THEN
1483: QP_PREQ_GRP.engine_debug('Benefit Price List Line Id is Very important: ' || i.BENEFIT_PRICE_LIST_LINE_ID);
1484: END IF;
1485: OPEN get_list_price_cur(i.BENEFIT_PRICE_LIST_LINE_ID);
1486: FETCH get_list_price_cur INTO v_list_price;

Line 1507: IF l_debug = FND_API.G_TRUE THEN

1503: ELSE
1504: l_sign := -1;
1505: END IF;
1506:
1507: IF l_debug = FND_API.G_TRUE THEN
1508: QP_PREQ_GRP.engine_debug('List Price For Best Price Eval: ' || p_list_price);
1509:
1510: END IF;
1511:

Line 1539: IF l_debug = FND_API.G_TRUE THEN

1535: END IF;
1536:
1537: ELSIF (i.CREATED_FROM_LIST_LINE_TYPE = QP_PREQ_GRP.G_PRICE_BREAK_TYPE) THEN
1538:
1539: IF l_debug = FND_API.G_TRUE THEN
1540: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Line Quantity : ' || i.line_quantity); --[julin/4240067/4307242]
1541: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Group Quantity : ' || i.group_quantity);
1542: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Group Amount : ' || i.group_amount);
1543:

Line 1548: IF l_debug = FND_API.G_TRUE THEN

1544: END IF;
1545: --[julin/4240067/4307242] using i.line_quantity
1546: l_request_qty := nvl(nvl(i.group_quantity,i.group_amount),i.line_quantity);
1547:
1548: IF l_debug = FND_API.G_TRUE THEN
1549: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Qualifier Value : ' || l_request_qty);
1550:
1551: END IF;
1552:

Line 1610: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

1606: x_benefit_amount,
1607: l_return_status,
1608: l_return_status_text);
1609:
1610: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1611: NULL;
1612: END IF;
1613:
1614: v_benefit_price := x_benefit_amount;

Line 1617: IF l_debug = FND_API.G_TRUE THEN

1613:
1614: v_benefit_price := x_benefit_amount;
1615: END IF;
1616:
1617: IF l_debug = FND_API.G_TRUE THEN
1618: QP_PREQ_GRP.engine_debug('Benefit Price For Best Price Eval: ' || v_benefit_price);
1619:
1620: END IF;
1621: IF (i.modifier_level_code <> 'ORDER') THEN --bug 4234043

Line 1634: IF l_debug = FND_API.G_TRUE THEN

1630: ELSE -- bug 4234043
1631: v_benefit_percent :=v_benefit_price;
1632: END IF;
1633:
1634: IF l_debug = FND_API.G_TRUE THEN
1635: QP_PREQ_GRP.engine_debug('Benefit Percent For Best Price Eval: ' || v_benefit_percent);
1636:
1637: END IF;
1638: /*

Line 1678: IF l_debug = FND_API.G_TRUE THEN

1674:
1675:
1676: --smbalara start 11924159 START :issue PBH child lines not getting updated to status B, hence best price not working correctly when PBH
1677: --line is involved
1678: IF l_debug = FND_API.G_TRUE THEN
1679: QP_PREQ_GRP.engine_debug('Number of parent lines updated with status B :' || SQL%ROWCOUNT);
1680: END IF;
1681: -- print_tmp_tabs();
1682:

Line 1693: IF l_debug = FND_API.G_TRUE THEN

1689: AND y.LINE_DETAIL_INDEX = z.LINE_DETAIL_INDEX
1690: AND z.PRICING_STATUS_CODE=QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL
1691: );
1692:
1693: IF l_debug = FND_API.G_TRUE THEN
1694: QP_PREQ_GRP.engine_debug('Number of lines child updated with status B :' || SQL%ROWCOUNT);
1695: END IF;
1696: --print_tmp_tabs();
1697: --smbalara start 11924159 END

Line 1721: IF l_debug = FND_API.G_TRUE THEN

1717: AND b.LINE_INDEX = p_line_index)
1718: AND a.LINE_INDEX = p_line_index; */
1719:
1720: x_list_line_id := v_list_line_id;
1721: IF l_debug = FND_API.G_TRUE THEN
1722: QP_PREQ_GRP.engine_debug('Best List line Id: ' || v_list_line_id);
1723:
1724: END IF;
1725: x_return_status := v_return_status; -- SUCCESS

Line 1729: IF l_debug = FND_API.G_TRUE THEN

1725: x_return_status := v_return_status; -- SUCCESS
1726:
1727: EXCEPTION
1728: WHEN OTHERS THEN
1729: IF l_debug = FND_API.G_TRUE THEN
1730: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1731: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1732: END IF;
1733: v_return_status := FND_API.G_RET_STS_ERROR;

Line 1733: v_return_status := FND_API.G_RET_STS_ERROR;

1729: IF l_debug = FND_API.G_TRUE THEN
1730: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1731: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1732: END IF;
1733: v_return_status := FND_API.G_RET_STS_ERROR;
1734: x_return_status := v_return_status;
1735: END Best_Price_Evaluation;
1736:
1737: PROCEDURE Delete_Lines_Complete (p_line_index_tbl IN QP_PREQ_GRP.NUMBER_TYPE,

Line 1743: IF l_debug = FND_API.G_TRUE THEN

1739: x_return_status OUT NOCOPY VARCHAR2,
1740: x_return_status_txt OUT NOCOPY VARCHAR2) AS
1741: BEGIN
1742: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1743: IF l_debug = FND_API.G_TRUE THEN
1744: QP_PREQ_GRP.engine_debug('deleting lines/ldets/attrs/rltd:'||p_pricing_status_text);
1745: END IF;
1746:
1747: FORALL i IN p_line_index_tbl.FIRST..p_line_index_tbl.LAST

Line 1769: x_return_status := FND_API.G_RET_STS_ERROR;

1765: PRICING_STATUS_TEXT = substr(p_pricing_status_text,1,240)
1766: WHERE RELATED_LINE_INDEX = p_line_index_tbl(i);
1767: EXCEPTION
1768: WHEN OTHERS THEN
1769: x_return_status := FND_API.G_RET_STS_ERROR;
1770: x_return_status_txt := 'Unexpected error in QP_Resolve_Incompatability_PVT.Delete_Lines_Complete: ' || SQLERRM;
1771: END Delete_Lines_Complete;
1772:
1773: PROCEDURE Delete_Ldets_Complete (p_line_detail_index_tbl IN QP_PREQ_GRP.NUMBER_TYPE,

Line 1779: IF l_debug = FND_API.G_TRUE THEN

1775: x_return_status OUT NOCOPY VARCHAR2,
1776: x_return_status_txt OUT NOCOPY VARCHAR2) AS
1777: BEGIN
1778: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1779: IF l_debug = FND_API.G_TRUE THEN
1780: QP_PREQ_GRP.engine_debug('deleting ldets/rltd:'||p_pricing_status_text);
1781: END IF;
1782:
1783: FORALL i IN p_line_detail_index_tbl.FIRST..p_line_detail_index_tbl.LAST

Line 1800: x_return_status := FND_API.G_RET_STS_ERROR;

1796: WHERE (LINE_DETAIL_INDEX = p_line_detail_index_tbl(i) OR
1797: RELATED_LINE_DETAIL_INDEX = p_line_detail_index_tbl(i)); --[julin/4671446] also deleting children ldets
1798: EXCEPTION
1799: WHEN OTHERS THEN
1800: x_return_status := FND_API.G_RET_STS_ERROR;
1801: x_return_status_txt := 'Unexpected error in QP_Resolve_Incompatability_PVT.Delete_Ldets_Complete: ' || SQLERRM;
1802: END Delete_Ldets_Complete;
1803:
1804:

Line 1873: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;

1869:
1870: l_status_code VARCHAR2(30);
1871: l_status_text VARCHAR2(240);
1872:
1873: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
1874: v_routine_name CONSTANT VARCHAR2(240):='Routine:QP_Resolve_Incompatability_PVTRUN.Delete_Incompatible_Lines';
1875:
1876: BEGIN
1877: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;

Line 1879: IF l_debug = FND_API.G_TRUE THEN

1875:
1876: BEGIN
1877: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1878:
1879: IF l_debug = FND_API.G_TRUE THEN
1880: QP_PREQ_GRP.engine_debug('Enter Delete_Incompatible_Lines:'||p_line_index||':'||p_incomp_grp_id||':'||p_list_line_id||':'||p_manual_dis_flag);
1881: END IF;
1882:
1883: IF (p_manual_dis_flag = QP_PREQ_GRP.G_YES) THEN

Line 2044: IF l_debug = FND_API.G_TRUE THEN

2040: END IF;
2041:
2042: IF (p_excl_discount = FALSE) THEN
2043:
2044: IF l_debug = FND_API.G_TRUE THEN
2045: QP_PREQ_GRP.engine_debug('Checking for PRG/OID losers in incompatibility group '||p_incomp_grp_id);
2046: END IF;
2047:
2048: -- [prarasto/4141235] delete loser prg/oid lines/ldets/attrs/rltd

Line 2072: IF l_debug = FND_API.G_TRUE THEN

2068: END IF;
2069:
2070: ELSE
2071:
2072: IF l_debug = FND_API.G_TRUE THEN
2073: QP_PREQ_GRP.engine_debug('Checking for PRG/OID losers to exclusive group line' );
2074: END IF;
2075:
2076: -- [prarasto/4141235] delete loser prg/oid lines/ldets/attrs/rltd, exclusive winner

Line 2103: IF l_debug = FND_API.G_TRUE THEN

2099:
2100: x_return_status := v_return_status;
2101: EXCEPTION
2102: WHEN OTHERS THEN
2103: IF l_debug = FND_API.G_TRUE THEN
2104: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2105: END IF;
2106: v_return_status := FND_API.G_RET_STS_ERROR;
2107: x_return_status := v_return_status;

Line 2106: v_return_status := FND_API.G_RET_STS_ERROR;

2102: WHEN OTHERS THEN
2103: IF l_debug = FND_API.G_TRUE THEN
2104: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2105: END IF;
2106: v_return_status := FND_API.G_RET_STS_ERROR;
2107: x_return_status := v_return_status;
2108: END Delete_Incompatible_Lines;
2109:
2110: PROCEDURE Best_Price_For_Phase(p_list_price NUMBER,

Line 2135: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;

2131: AND PRICING_STATUS_CODE = QP_PREQ_GRP.G_STATUS_NEW;
2132:
2133:
2134: x_list_line_id NUMBER;
2135: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2136: x_ret_status VARCHAR2(30);
2137: v_excl_flag BOOLEAN := FALSE;
2138: v_manual_dis_flag VARCHAR2(1) := nvl(QP_PREQ_GRP.G_MANUAL_DISCOUNT_FLAG,'Y');
2139:

Line 2163: IF l_debug = FND_API.G_TRUE THEN

2159: FOR i IN incomp_cur(v_manual_dis_flag)
2160: LOOP
2161: IF (v_excl_flag = FALSE) THEN
2162: -- Best Price Evaluation
2163: IF l_debug = FND_API.G_TRUE THEN
2164: QP_PREQ_GRP.engine_debug('Best Price For Phase .....');
2165: END IF;
2166: Best_Price_Evaluation(p_list_price,
2167: p_line_index,

Line 2174: IF (x_ret_status = FND_API.G_RET_STS_ERROR) THEN

2170: NULL, -- Added for bug#2661540
2171: v_manual_dis_flag,
2172: x_list_line_id,
2173: x_ret_status);
2174: IF (x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2175: RAISE INVALID_BEST_PRICE;
2176: END IF;
2177: END IF;
2178: -- Incomp_grp_id ='EXCL' has the highest priority(exclusivity)

Line 2205: IF l_debug = FND_API.G_TRUE THEN

2201:
2202: END IF;
2203: EXCEPTION
2204: WHEN INVALID_BEST_PRICE THEN
2205: IF l_debug = FND_API.G_TRUE THEN
2206: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2207: END IF;
2208: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2209: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;

Line 2212: IF l_debug = FND_API.G_TRUE THEN

2208: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2209: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;
2210: x_return_status := v_return_status;
2211: WHEN OTHERS THEN
2212: IF l_debug = FND_API.G_TRUE THEN
2213: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
2214: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2215: END IF;
2216: v_return_status := FND_API.G_RET_STS_ERROR;

Line 2216: v_return_status := FND_API.G_RET_STS_ERROR;

2212: IF l_debug = FND_API.G_TRUE THEN
2213: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
2214: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2215: END IF;
2216: v_return_status := FND_API.G_RET_STS_ERROR;
2217: x_return_status := v_return_status;
2218: END Best_Price_For_Phase;
2219:
2220: PROCEDURE Resolve_Incompatability(p_pricing_phase_id NUMBER,

Line 2313: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;

2309: v_excl_flag BOOLEAN := FALSE;
2310: v_excl_list_line_id NUMBER;
2311: x_best_list_line_id NUMBER;
2312: x_ret_status VARCHAR2(30);
2313: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2314: v_routine_name CONSTANT VARCHAR2(240):='Routine:QP_Resolve_Incompatability_PVTRUN.Resolve_Incompatability';
2315: p_manual_dis_flag VARCHAR2(1) := nvl(QP_PREQ_GRP.G_MANUAL_DISCOUNT_FLAG,'Y');
2316: v_ask_for_constant CONSTANT NUMBER := -100000;
2317:

Line 2329: IF l_debug = FND_API.G_TRUE THEN

2325: INVALID_BEST_PRICE EXCEPTION;
2326:
2327: BEGIN
2328: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2329: IF l_debug = FND_API.G_TRUE THEN
2330: QP_PREQ_GRP.engine_debug ('S1');
2331:
2332: END IF;
2333:

Line 2350: IF l_debug = FND_API.G_TRUE THEN

2346:
2347:
2348: FOR i IN incomp_cur(p_manual_dis_flag)
2349: LOOP
2350: IF l_debug = FND_API.G_TRUE THEN
2351: QP_PREQ_GRP.engine_debug ('#2');
2352:
2353: END IF;
2354: l_precedence_tbl.delete;

Line 2381: IF l_debug = FND_API.G_TRUE THEN

2377:
2378: IF (l_precedence_tbl.COUNT > 0) THEN
2379: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
2380: LOOP
2381: IF l_debug = FND_API.G_TRUE THEN
2382: QP_PREQ_GRP.engine_debug ('#3');
2383:
2384: END IF;
2385: -- Store the first list_line_id

Line 2388: IF l_debug = FND_API.G_TRUE THEN

2384: END IF;
2385: -- Store the first list_line_id
2386: IF (v_count = 0) THEN
2387: v_first_list_line_id := l_precedence_tbl(j).CREATED_FROM_LIST_LINE_ID;
2388: IF l_debug = FND_API.G_TRUE THEN
2389: QP_PREQ_GRP.engine_debug('The First List Line Id : ' || v_first_list_line_id);
2390: QP_PREQ_GRP.engine_debug('Pricing Status Code: ' || i.pricing_status_code);
2391: END IF;
2392: v_high_precedence := l_precedence_tbl(j).ORIGINAL_PRECEDENCE;

Line 2395: IF l_debug = FND_API.G_TRUE THEN

2391: END IF;
2392: v_high_precedence := l_precedence_tbl(j).ORIGINAL_PRECEDENCE;
2393: v_ask_for_flag := l_precedence_tbl(j).ASK_FOR_FLAG;
2394: END IF;
2395: IF l_debug = FND_API.G_TRUE THEN
2396: QP_PREQ_GRP.engine_debug ('#4');
2397:
2398: END IF;
2399: -- Incomp_grp_id ='EXCL' has the highest priority(exclusivity)

Line 2413: IF l_debug = FND_API.G_TRUE THEN

2409: IF ((v_ask_for_flag = QP_PREQ_GRP.G_YES and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_YES) OR
2410: (v_ask_for_flag = QP_PREQ_GRP.G_NO and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_NO)) THEN
2411: -- Best Price Evaluation
2412: IF (p_processing_flag = QP_PREQ_GRP.G_DISCOUNT_PROCESSING) THEN
2413: IF l_debug = FND_API.G_TRUE THEN
2414: QP_PREQ_GRP.engine_debug ('Best Price Evaluation');
2415: END IF;
2416: IF (p_list_price IS NOT NULL) THEN
2417: Best_Price_Evaluation(p_list_price,

Line 2425: IF l_debug = FND_API.G_TRUE THEN

2421: v_high_precedence, -- Added for bug#2661540
2422: p_manual_dis_flag,
2423: x_best_list_line_id,
2424: x_ret_status);
2425: IF l_debug = FND_API.G_TRUE THEN
2426: QP_PREQ_GRP.engine_debug('Successful Best Price Eval');
2427: END IF;
2428: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2429: RAISE INVALID_BEST_PRICE;

Line 2428: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN

2424: x_ret_status);
2425: IF l_debug = FND_API.G_TRUE THEN
2426: QP_PREQ_GRP.engine_debug('Successful Best Price Eval');
2427: END IF;
2428: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2429: RAISE INVALID_BEST_PRICE;
2430: END IF;
2431: v_this_is_the_list_line_id := x_best_list_line_id;
2432: v_excl_list_line_id := x_best_list_line_id;

Line 2451: IF l_debug = FND_API.G_TRUE THEN

2447: END IF;
2448: END IF;
2449: END IF;
2450: END IF;
2451: IF l_debug = FND_API.G_TRUE THEN
2452: QP_PREQ_GRP.engine_debug ('#5');
2453:
2454: END IF;
2455: IF (v_others_flag = TRUE and v_excl_flag = FALSE) THEN

Line 2456: IF l_debug = FND_API.G_TRUE THEN

2452: QP_PREQ_GRP.engine_debug ('#5');
2453:
2454: END IF;
2455: IF (v_others_flag = TRUE and v_excl_flag = FALSE) THEN
2456: IF l_debug = FND_API.G_TRUE THEN
2457: QP_PREQ_GRP.engine_debug('Others_Flag: TRUE');
2458: END IF;
2459: null;
2460: ELSE

Line 2461: IF l_debug = FND_API.G_TRUE THEN

2457: QP_PREQ_GRP.engine_debug('Others_Flag: TRUE');
2458: END IF;
2459: null;
2460: ELSE
2461: IF l_debug = FND_API.G_TRUE THEN
2462: QP_PREQ_GRP.engine_debug('Others_Flag: FALSE');
2463: END IF;
2464: null;
2465: END IF;

Line 2466: IF l_debug = FND_API.G_TRUE THEN

2462: QP_PREQ_GRP.engine_debug('Others_Flag: FALSE');
2463: END IF;
2464: null;
2465: END IF;
2466: IF l_debug = FND_API.G_TRUE THEN
2467: QP_PREQ_GRP.engine_debug ('#6');
2468: QP_PREQ_GRP.engine_debug('Count: ' || v_count);
2469:
2470: END IF;

Line 2474: IF l_debug = FND_API.G_TRUE THEN

2470: END IF;
2471: IF (v_others_flag = TRUE) THEN
2472: -- If it is an asked for promo
2473: IF (v_count > 0) THEN -- Do not compare the first time for the first record
2474: IF l_debug = FND_API.G_TRUE THEN
2475: QP_PREQ_GRP.engine_debug ('Precedence1:' || v_high_precedence);
2476: QP_PREQ_GRP.engine_debug ('Precedence2:' || l_precedence_tbl(j).ORIGINAL_PRECEDENCE);
2477: QP_PREQ_GRP.engine_debug ('Ask_For_Flag1:' || v_ask_for_flag);
2478: QP_PREQ_GRP.engine_debug ('Ask_For_FLag2:' || l_precedence_tbl(j).ASK_FOR_FLAG);

Line 2487: IF l_debug = FND_API.G_TRUE THEN

2483: IF ((v_ask_for_flag = QP_PREQ_GRP.G_YES and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_YES) OR
2484: (v_ask_for_flag = QP_PREQ_GRP.G_NO and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_NO)) THEN
2485: -- Best Price Evaluation
2486: IF (p_processing_flag = QP_PREQ_GRP.G_DISCOUNT_PROCESSING) THEN
2487: IF l_debug = FND_API.G_TRUE THEN
2488: QP_PREQ_GRP.engine_debug ('Best Price Evaluation');
2489: END IF;
2490: IF (p_list_price IS NOT NULL) THEN
2491: Best_Price_Evaluation(p_list_price,

Line 2499: IF l_debug = FND_API.G_TRUE THEN

2495: v_high_precedence, -- Added for bug#2661540
2496: p_manual_dis_flag,
2497: x_best_list_line_id,
2498: x_ret_status);
2499: IF l_debug = FND_API.G_TRUE THEN
2500: QP_PREQ_GRP.engine_debug('Successful Best Price Eval1');
2501: END IF;
2502: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2503: RAISE INVALID_BEST_PRICE;

Line 2502: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN

2498: x_ret_status);
2499: IF l_debug = FND_API.G_TRUE THEN
2500: QP_PREQ_GRP.engine_debug('Successful Best Price Eval1');
2501: END IF;
2502: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2503: RAISE INVALID_BEST_PRICE;
2504: END IF;
2505: v_this_is_the_list_line_id := x_best_list_line_id;
2506: v_others_flag := FALSE;

Line 2523: IF l_debug = FND_API.G_TRUE THEN

2519: END IF;
2520: END IF;
2521: END IF;
2522: END IF;
2523: IF l_debug = FND_API.G_TRUE THEN
2524: QP_PREQ_GRP.engine_debug ('#8');
2525: END IF;
2526: v_count := v_count + 1;
2527: END LOOP;

Line 2534: IF l_debug = FND_API.G_TRUE THEN

2530: v_count := 0; -- Reinit to 0 for an incomp grp id
2531: v_others_flag := TRUE;
2532: IF (v_this_is_the_list_line_id IS NOT NULL) THEN
2533: v_first_list_line_id := v_this_is_the_list_line_id;
2534: IF l_debug = FND_API.G_TRUE THEN
2535: QP_PREQ_GRP.engine_debug('The List Line Id : ' || v_first_list_line_id);
2536: END IF;
2537: END IF;
2538: v_this_is_the_list_line_id := null; -- Reset

Line 2540: IF l_debug = FND_API.G_TRUE THEN

2536: END IF;
2537: END IF;
2538: v_this_is_the_list_line_id := null; -- Reset
2539:
2540: IF l_debug = FND_API.G_TRUE THEN
2541: QP_PREQ_GRP.engine_debug('Before Update ......');
2542: QP_PREQ_GRP.engine_debug('Incomp Grp Code:' || i.INCOMPATABILITY_GRP_CODE);
2543: QP_PREQ_GRP.engine_debug('List Line Id:' || v_first_list_line_id);
2544: QP_PREQ_GRP.engine_debug('Pricing Phase Id:' || p_pricing_phase_id);

Line 2558: IF l_debug = FND_API.G_TRUE THEN

2554: v_excl_flag,
2555: p_manual_dis_flag,
2556: x_ret_status);
2557: END IF;
2558: IF l_debug = FND_API.G_TRUE THEN
2559: QP_PREQ_GRP.engine_debug ('#10');
2560: END IF;
2561: END LOOP;
2562: IF (v_excl_flag = TRUE) THEN

Line 2574: IF l_debug = FND_API.G_TRUE THEN

2570: END IF;
2571: x_return_status := v_return_status; -- SUCCESS
2572: EXCEPTION
2573: WHEN INVALID_INCOMPATIBILITY THEN
2574: IF l_debug = FND_API.G_TRUE THEN
2575: QP_PREQ_GRP.engine_debug(v_routine_name || ' Multiple Price Lists cannot have same precedence
2576: and cannot be asked for');
2577: END IF;
2578: x_return_status_txt := v_routine_name || ' Multiple Price Lists cannot have same precedence

Line 2583: IF l_debug = FND_API.G_TRUE THEN

2579: and cannot be asked for';
2580: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_INCOMP;
2581: x_return_status := v_return_status;
2582: WHEN INVALID_BEST_PRICE THEN
2583: IF l_debug = FND_API.G_TRUE THEN
2584: QP_PREQ_GRP.engine_debug(v_routine_name || 'Best Price Evaluation Has Error');
2585: END IF;
2586: x_return_status_txt := v_routine_name || 'Best Price Evaluation Has Error';
2587: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;

Line 2590: IF l_debug = FND_API.G_TRUE THEN

2586: x_return_status_txt := v_routine_name || 'Best Price Evaluation Has Error';
2587: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;
2588: x_return_status := v_return_status;
2589: WHEN OTHERS THEN
2590: IF l_debug = FND_API.G_TRUE THEN
2591: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2592: END IF;
2593: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2594: v_return_status := FND_API.G_RET_STS_ERROR;

Line 2594: v_return_status := FND_API.G_RET_STS_ERROR;

2590: IF l_debug = FND_API.G_TRUE THEN
2591: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2592: END IF;
2593: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2594: v_return_status := FND_API.G_RET_STS_ERROR;
2595: x_return_status := v_return_status;
2596: END Resolve_Incompatability;
2597:
2598: END QP_Resolve_Incompatability_PVT ;