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 623: IF l_debug = FND_API.G_TRUE THEN

619: l_qp_time_uom_conversion := 'STANDARD';
620: --bug 4900095
621: l_duration_passed := 'N';
622: END IF;
623: IF l_debug = FND_API.G_TRUE THEN
624: QP_PREQ_GRP.engine_debug('Constract start/end dates '||
625: l_date_passed||
626: 'passed in ==> qp_time_uom_conversion = '||
627: l_qp_time_uom_conversion);

Line 630: IF l_debug = FND_API.G_TRUE THEN

626: 'passed in ==> qp_time_uom_conversion = '||
627: l_qp_time_uom_conversion);
628: END IF;
629:
630: IF l_debug = FND_API.G_TRUE THEN
631: QP_PREQ_GRP.engine_debug( 'Determine_Pricing_UOM1');
632: QP_PREQ_GRP.engine_debug( I.INCOMPATABILITY_GRP_CODE);
633: QP_PREQ_GRP.engine_debug( 'Line Index:'|| i.line_index);
634:

Line 638: IF l_debug = FND_API.G_TRUE THEN

634:
635: END IF;
636: Precedence_For_Price_List_Line(i.line_index,i.line_uom_code,NULL,l_precedence_tbl,l_status,l_status_text);
637:
638: IF l_debug = FND_API.G_TRUE THEN
639: QP_PREQ_GRP.engine_debug( ' Debug Point #0');
640:
641: QP_PREQ_GRP.engine_debug('Count : ' || l_precedence_tbl.count);
642:

Line 654: IF l_debug = FND_API.G_TRUE THEN

650: IF (l_precedence_tbl.COUNT > 0 ) THEN
651: v_total_count := l_precedence_tbl.COUNT;
652: v_count := 0;
653: v_list_line_count1 := NULL;
654: IF l_debug = FND_API.G_TRUE THEN
655: QP_PREQ_GRP.engine_debug( 'Precedence Table Count Line : '|| i.line_index ||' Cnt:'|| l_precedence_tbl.count);
656: END IF;
657: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
658: LOOP

Line 659: IF l_debug = FND_API.G_TRUE THEN

655: QP_PREQ_GRP.engine_debug( 'Precedence Table Count Line : '|| i.line_index ||' Cnt:'|| l_precedence_tbl.count);
656: END IF;
657: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
658: LOOP
659: IF l_debug = FND_API.G_TRUE THEN
660: QP_PREQ_GRP.engine_debug( 'Determine_Pricing_UOM2');
661: END IF;
662: IF (v_count = 0) THEN
663: v_list_line_id := l_precedence_tbl(j).created_from_list_line_id;

Line 669: IF l_debug = FND_API.G_TRUE THEN

665: END IF;
666:
667: IF (v_count > 0 ) THEN
668:
669: IF l_debug = FND_API.G_TRUE THEN
670: QP_PREQ_GRP.engine_debug( 'Precedence 1 : '|| v_list_precedence);
671: QP_PREQ_GRP.engine_debug( 'Precedence 2 : '|| l_precedence_tbl(j).product_precedence);
672:
673: END IF;

Line 686: IF l_debug = FND_API.G_TRUE THEN

682: FETCH get_attribute_count_cur INTO v_list_line_count1;
683: CLOSE get_attribute_count_cur;
684: END IF;
685:
686: IF l_debug = FND_API.G_TRUE THEN
687: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count1 : ' || v_list_line_id || ' ' || v_list_line_count1);
688:
689: END IF;
690: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line

Line 694: IF l_debug = FND_API.G_TRUE THEN

690: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line
691: FETCH get_attribute_count_cur INTO v_list_line_count2;
692: CLOSE get_attribute_count_cur;
693:
694: IF l_debug = FND_API.G_TRUE THEN
695: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count2 : ' || l_precedence_tbl(j).created_from_list_line_id || ' ' || v_list_line_count2);
696:
697: END IF;
698: -- Update the status to duplicate list lines , only after comparing the attribute counts for all list lines

Line 737: IF l_debug = FND_API.G_TRUE THEN

733: v_count := v_count + 1;
734: END LOOP;
735: END IF;
736:
737: IF l_debug = FND_API.G_TRUE THEN
738: QP_PREQ_GRP.engine_debug('List Line Id:' || v_list_line_id);
739:
740: END IF;
741: IF (v_list_line_id IS NOT NULL) THEN -- Successful in finding pll in order uom

Line 779: IF l_debug = FND_API.G_TRUE THEN

775: -- end shu fix bug 2453250
776:
777: -- begin shulin bug 1829731
778: -- use OKS API to calculate pricing_qty based on order_uom if profile set to 'ORACLE_CONTRACTS'
779: IF l_debug = FND_API.G_TRUE THEN
780: QP_PREQ_GRP.engine_debug('no uom conversion ...');
781: END IF;
782: IF l_qp_time_uom_conversion = 'ORACLE_CONTRACTS' THEN
783:

Line 784: IF l_debug = FND_API.G_TRUE THEN

780: QP_PREQ_GRP.engine_debug('no uom conversion ...');
781: END IF;
782: IF l_qp_time_uom_conversion = 'ORACLE_CONTRACTS' THEN
783:
784: IF l_debug = FND_API.G_TRUE THEN
785: QP_PREQ_GRP.engine_debug( 'contract_start_date :' || i.contract_start_date);
786: QP_PREQ_GRP.engine_debug( 'contract_end_date :' || i.contract_end_date);
787: QP_PREQ_GRP.engine_debug( 'line_uom_code/order uom :' || i.line_uom_code); -- order_uom
788: END IF;

Line 795: IF l_debug = FND_API.G_TRUE THEN

791: -- OKS_TIME_MEASURES_PUB replaced with OKS_OMINT_PUB in R12
792: /* [julin/4285975/4662388] removing dynamic SQL, unnecessary and causes error
793: * when env language has ',' delimiter
794: 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';
795: IF l_debug = FND_API.G_TRUE THEN
796: QP_PREQ_GRP.engine_debug('l_sql_stmt:' || l_sql_stmt);
797: END IF; -- end debug
798: execute immediate l_sql_stmt INTO l_oks_qty;
799: */

Line 815: IF l_debug = FND_API.G_TRUE THEN

811: ELSE
812: l_oks_qty := null;
813: END IF;--l_duration_passed = 'N'
814:
815: IF l_debug = FND_API.G_TRUE THEN
816: QP_PREQ_GRP.engine_debug('l_oks_qty:' || l_oks_qty);
817: END IF; -- end debug
818: -- when contract_start_date or contract_end_date is null, or uom is 'MO' instead of 'MTH', l_oks_qty = 0
819: -- when uom is not time_related or invalid to oks API, i.e. 'EA', 'MI', l_oks_qty = NULL

Line 827: IF l_debug = FND_API.G_TRUE THEN

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

Line 836: IF l_debug = FND_API.G_TRUE THEN

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

Line 846: IF l_debug = FND_API.G_TRUE THEN

842: ELSE -- l_qp_time_uom_conversion = 'STANDARD' THEN
843: v_pricing_qty := i.line_quantity; -- STANDARD
844: -- no need to update l_order_qty, since it has been initialized to i.line_quantity
845: l_uom_quantity := nvl(i.uom_quantity, 1); -- to back support OM, for case user order 2 of 6 MTH service
846: IF l_debug = FND_API.G_TRUE THEN
847: QP_PREQ_GRP.engine_debug('pric_qty same as order_qty :' || v_pricing_qty);
848: END IF;
849: END IF;
850: -- end shulin bug 1829731

Line 884: IF l_debug = FND_API.G_TRUE THEN

880:
881: /* IF (l_precedence_tbl.COUNT > 0) THEN
882: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
883: LOOP
884: IF l_debug = FND_API.G_TRUE THEN
885: QP_PREQ_GRP.engine_debug('List Line Id : ' || l_precedence_tbl(j).created_from_list_line_id);
886: QP_PREQ_GRP.engine_debug('Precedence : ' || l_precedence_tbl(j).product_precedence);
887: QP_PREQ_GRP.engine_debug('Inventory Item Id: ' || l_precedence_tbl(j).inventory_item_id);
888: QP_PREQ_GRP.engine_debug('Product Uom : ' || l_precedence_tbl(j).product_uom_code);

Line 899: IF l_debug = FND_API.G_TRUE THEN

895: v_count := 0;
896: v_list_line_count1 := NULL;
897: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
898: LOOP
899: IF l_debug = FND_API.G_TRUE THEN
900: QP_PREQ_GRP.engine_debug('pri flag');
901: END IF;
902: IF (v_count = 0) THEN
903: v_list_line_id := l_precedence_tbl(j).created_from_list_line_id;

Line 921: IF l_debug = FND_API.G_TRUE THEN

917: FETCH get_attribute_count_cur INTO v_list_line_count1;
918: CLOSE get_attribute_count_cur;
919: END IF;
920:
921: IF l_debug = FND_API.G_TRUE THEN
922: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count Pri1 : ' || v_list_line_id || ' ' || v_list_line_count1);
923:
924: END IF;
925: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line

Line 929: IF l_debug = FND_API.G_TRUE THEN

925: OPEN get_attribute_count_cur(i.line_index,l_precedence_tbl(j).created_from_list_line_id); -- For Second Line
926: FETCH get_attribute_count_cur INTO v_list_line_count2;
927: CLOSE get_attribute_count_cur;
928:
929: IF l_debug = FND_API.G_TRUE THEN
930: QP_PREQ_GRP.engine_debug( 'Precedence Matched . Attribute Count Pri2 : ' || l_precedence_tbl(j).created_from_list_line_id || ' ' || v_list_line_count2);
931:
932: END IF;
933: IF (nvl(v_list_line_count1,0) = nvl(v_list_line_count2,0) and v_total_count = v_count + 1) THEN

Line 970: IF l_debug = FND_API.G_TRUE THEN

966: v_count := v_count + 1;
967: END LOOP;
968: END IF; -- v_list_line_id IS NOT NULL
969:
970: IF l_debug = FND_API.G_TRUE THEN
971: QP_PREQ_GRP.engine_debug('Pri Flag List Line Id:' || v_list_line_id);
972:
973: END IF;
974: IF (v_list_line_id IS NOT NULL) THEN

Line 1020: IF l_debug = FND_API.G_TRUE THEN

1016: AND a.line_index = i.line_index;
1017: */
1018: -- end shu fix bug 2453250
1019:
1020: IF l_debug = FND_API.G_TRUE THEN
1021: QP_PREQ_GRP.engine_debug('Data Updated');
1022: QP_PREQ_GRP.engine_debug('Order Uom:' || i.line_uom_code);
1023: QP_PREQ_GRP.engine_debug('Prim UOM:' || v_primary_uom_code);
1024: QP_PREQ_GRP.engine_debug('Inventory Id:' || v_inventory_item_id);

Line 1029: IF l_debug = FND_API.G_TRUE THEN

1025: QP_PREQ_GRP.engine_debug('v_pricing_qty:' || v_pricing_qty);
1026: END IF;
1027:
1028: -- begin Bug 1829731 fix, shulin
1029: IF l_debug = FND_API.G_TRUE THEN
1030: QP_PREQ_GRP.engine_debug('uom conversion...');
1031: END IF;
1032: l_uom_quantity := i.uom_quantity; --shu_latest, to back support OM, either from usr input or null
1033: -- shulin, do OKS conversion if profile set to 'ORCALE_CONTRACTS'

Line 1036: IF l_debug = FND_API.G_TRUE THEN

1032: l_uom_quantity := i.uom_quantity; --shu_latest, to back support OM, either from usr input or null
1033: -- shulin, do OKS conversion if profile set to 'ORCALE_CONTRACTS'
1034: IF (l_qp_time_uom_conversion = 'ORACLE_CONTRACTS') THEN -- do oks conversion
1035:
1036: IF l_debug = FND_API.G_TRUE THEN
1037: QP_PREQ_GRP.engine_debug( 'contract_start_date :' || i.contract_start_date);
1038: QP_PREQ_GRP.engine_debug( 'contract_end_date :' || i.contract_end_date);
1039: QP_PREQ_GRP.engine_debug( 'primary_uom_code :' || v_primary_uom_code);
1040: QP_PREQ_GRP.engine_debug('v_pricing_qty:' || v_pricing_qty);

Line 1063: IF l_debug = FND_API.G_TRUE THEN

1059: p_source_duration => i.uom_quantity,
1060: p_target_uom => v_primary_uom_code,/*Default Month*/
1061: p_org_id => QP_PREQ_GRP.G_CURRENT_USER_OP_UNIT), l_max_decimal_digits), -999999);
1062:
1063: IF l_debug = FND_API.G_TRUE THEN
1064: QP_PREQ_GRP.engine_debug('l_oks_qty1:' || l_oks_qty);
1065: END IF; -- end debug
1066:
1067: IF (l_oks_qty IS NOT NULL OR l_oks_qty <> 0)

Line 1086: IF l_debug = FND_API.G_TRUE THEN

1082: p_source_uom => i.line_uom_code,
1083: p_source_duration => i.uom_quantity,
1084: p_target_uom => i.line_uom_code,/*Default Month*/
1085: p_org_id => QP_PREQ_GRP.G_CURRENT_USER_OP_UNIT), l_max_decimal_digits), -999999);
1086: IF l_debug = FND_API.G_TRUE THEN
1087: QP_PREQ_GRP.engine_debug('l_oks_qty2:' || l_oks_qty);
1088: END IF; -- end debug
1089:
1090: v_pricing_qty := round (l_oks_qty , l_max_decimal_digits);

Line 1093: IF l_debug = FND_API.G_TRUE THEN

1089:
1090: v_pricing_qty := round (l_oks_qty , l_max_decimal_digits);
1091:
1092: l_uom_quantity := 1; --shulin
1093: IF l_debug = FND_API.G_TRUE THEN
1094: QP_PREQ_GRP.engine_debug('OKS_API conversion...');
1095: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1096: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1097: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1112: IF l_debug = FND_API.G_TRUE THEN

1108: --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
1109: --l_uom_quantity := ROUND( i.uom_quantity * v_uom_rate, l_max_decimal_digits); -- do not nvl uom_quantity
1110: l_uom_quantity :=1; -- reset to 1, so the unit price by pricing uom does not change
1111: l_order_qty := i.line_quantity;
1112: IF l_debug = FND_API.G_TRUE THEN
1113: QP_PREQ_GRP.engine_debug('OKS_API conversion for OM...');
1114: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1115: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1116: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1127: IF l_debug = FND_API.G_TRUE THEN

1123: -- not 'ORACLE_CONTACTS' or OKS conversion failed, use standard inventory uom conversion
1124: IF (l_qp_time_uom_conversion = 'STANDARD') OR (l_oks_qty = -999999 OR l_oks_qty = 0) THEN
1125:
1126: IF (l_qp_time_uom_conversion = 'ORACLE_CONTRACTS') then
1127: IF l_debug = FND_API.G_TRUE THEN
1128: QP_PREQ_GRP.engine_debug('oks conversion had failed...');
1129: END IF;
1130: END IF; -- for debug, to distinglish if it is oks failed case or if profile set to standard case
1131:

Line 1151: IF l_debug = FND_API.G_TRUE THEN

1147:
1148: v_pricing_qty := ROUND( i.line_quantity * v_uom_rate, l_max_decimal_digits);
1149: l_uom_quantity := 1; --shu_latest
1150: l_order_qty := i.line_quantity;
1151: IF l_debug = FND_API.G_TRUE THEN
1152: QP_PREQ_GRP.engine_debug('Standard uom conversion, non-service line...');
1153: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1154: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1155: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1166: IF l_debug = FND_API.G_TRUE THEN

1162: IF (l_qp_time_uom_conversion = 'ORACLE_CONTRACTS') THEN -- from oks failed case
1163: v_pricing_qty := ROUND( i.line_quantity * v_uom_rate, l_max_decimal_digits);
1164: l_uom_quantity := 1;
1165: l_order_qty := i.line_quantity;
1166: IF l_debug = FND_API.G_TRUE THEN
1167: QP_PREQ_GRP.engine_debug('Standard uom conversion (oks failed), service line...');
1168: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1169: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1170: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1178: IF l_debug = FND_API.G_TRUE THEN

1174:
1175: ELSE -- from profile being standard case, l_uom_quantity matters for OM
1176: -- assuming OM pass l_uom_quantity is converted to order uom like the following
1177: -- 1 of 2 YR services, order_uom=YR, l_uom_quantity = 2 (YR)
1178: IF l_debug = FND_API.G_TRUE THEN
1179: QP_PREQ_GRP.engine_debug('uom_quantity from calling application:' || i.uom_quantity);
1180: END IF;
1181: 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
1182: --l_uom_quantity := ROUND( i.uom_quantity * v_uom_rate, l_max_decimal_digits); -- do not nvl uom_quantity

Line 1186: IF l_debug = FND_API.G_TRUE THEN

1182: --l_uom_quantity := ROUND( i.uom_quantity * v_uom_rate, l_max_decimal_digits); -- do not nvl uom_quantity
1183: l_uom_quantity :=1; -- reset to 1, so the unit price by pricing uom does not change
1184: l_order_qty := i.line_quantity;
1185:
1186: IF l_debug = FND_API.G_TRUE THEN
1187: QP_PREQ_GRP.engine_debug('Standard uom conversion, service line...');
1188: QP_PREQ_GRP.engine_debug('pricing_qty:' || v_pricing_qty);
1189: QP_PREQ_GRP.engine_debug('pricing_uom:' || v_primary_uom_code);
1190: QP_PREQ_GRP.engine_debug('order_qty:' || l_order_qty);

Line 1233: IF l_debug = FND_API.G_TRUE THEN

1229: n := n+1;
1230: END IF;
1231: ELSE -- No record found in primary uom and also in order uom, else IF (v_list_line_id IS NOT NULL)
1232: l_status_text := 'Could not find a price list in Ordered UOM or Primary UOM';
1233: IF l_debug = FND_API.G_TRUE THEN
1234: QP_PREQ_GRP.engine_debug(l_status_text);
1235: END IF;
1236: Update_Invalid_List_Lines(i.INCOMPATABILITY_GRP_CODE,i.line_index,p_pricing_phase_id,
1237: QP_PREQ_GRP.G_STATUS_INVALID_UOM,l_status_text, v_return_status,

Line 1282: IF l_debug = FND_API.G_TRUE THEN

1278: AND PRICING_STATUS_CODE = QP_PREQ_GRP.G_STATUS_UNCHANGED;
1279: l_upd_line_index_tbl := l_line_index_tbl_m;
1280: l_upd_priced_qty_tbl := l_priced_quantity_tbl_m;
1281:
1282: IF l_debug = FND_API.G_TRUE THEN
1283: QP_PREQ_GRP.engine_debug('Incomp Return Status : ' || v_return_status);
1284: END IF;
1285: v_return_status := x_return_status;
1286: EXCEPTION

Line 1288: IF l_debug = FND_API.G_TRUE THEN

1284: END IF;
1285: v_return_status := x_return_status;
1286: EXCEPTION
1287: WHEN INVALID_UOM_CONVERSION THEN
1288: IF l_debug = FND_API.G_TRUE THEN
1289: QP_PREQ_GRP.engine_debug(v_routine_name ||' Invalid Unit of Measure Conversion'|| l_order_uom_code || ','
1290: || v_primary_uom_code);
1291: END IF;
1292: x_return_status_txt := l_order_uom_code || ',' || v_primary_uom_code;

Line 1297: IF l_debug = FND_API.G_TRUE THEN

1293: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_UOM_CONV;
1294: x_return_status := v_return_status;
1295: x_list_line_id := NULL;
1296: WHEN DUPLICATE_PRICE_LIST THEN
1297: IF l_debug = FND_API.G_TRUE THEN
1298: QP_PREQ_GRP.engine_debug(v_routine_name || ' Duplicate Price List '|| v_list_line_id || ',' || v_dup_list_line_id);
1299: END IF;
1300: v_return_msg := v_list_line_id || ',' || v_dup_list_line_id ;
1301: IF l_debug = FND_API.G_TRUE THEN

Line 1301: IF l_debug = FND_API.G_TRUE THEN

1297: IF l_debug = FND_API.G_TRUE THEN
1298: QP_PREQ_GRP.engine_debug(v_routine_name || ' Duplicate Price List '|| v_list_line_id || ',' || v_dup_list_line_id);
1299: END IF;
1300: v_return_msg := v_list_line_id || ',' || v_dup_list_line_id ;
1301: IF l_debug = FND_API.G_TRUE THEN
1302: QP_PREQ_GRP.engine_debug(v_return_msg);
1303: END IF;
1304: x_return_status_txt := v_return_msg;
1305: v_return_status := QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST;

Line 1309: IF l_debug = FND_API.G_TRUE THEN

1305: v_return_status := QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST;
1306: x_return_status := v_return_status;
1307: x_list_line_id := NULL;
1308: WHEN INVALID_UOM THEN
1309: IF l_debug = FND_API.G_TRUE THEN
1310: QP_PREQ_GRP.engine_debug(v_routine_name || ' Could not find a price list in Ordered UOM or Primary UOM');
1311: END IF;
1312: x_return_status_txt := 'Could not find a price list in Ordered UOM or Primary UOM';
1313: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_UOM;

Line 1317: IF l_debug = FND_API.G_TRUE THEN

1313: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_UOM;
1314: x_return_status := v_return_status;
1315: x_list_line_id := NULL;
1316: WHEN OTHERS THEN
1317: IF l_debug = FND_API.G_TRUE THEN
1318: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1319: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1320: END IF;
1321: v_return_status := FND_API.G_RET_STS_ERROR;

Line 1321: v_return_status := FND_API.G_RET_STS_ERROR;

1317: IF l_debug = FND_API.G_TRUE THEN
1318: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1319: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1320: END IF;
1321: v_return_status := FND_API.G_RET_STS_ERROR;
1322: x_return_status := v_return_status;
1323: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
1324: x_list_line_id := NULL;
1325: END Determine_Pricing_UOM_And_Qty;

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

1339: v_benefit_price NUMBER;
1340: v_benefit_percent NUMBER;
1341: v_list_line_id NUMBER;
1342: v_request_qty NUMBER;
1343: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
1344: x_benefit_amount NUMBER;
1345: l_return_status VARCHAR2(30);
1346: l_return_status_text VARCHAR2(240);
1347: l_sign NUMBER;

Line 1473: IF l_debug = FND_API.G_TRUE THEN

1469: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1470: FOR i IN get_list_lines_cur
1471: LOOP
1472: /*IF (i.CREATED_FROM_LIST_LINE_TYPE = QP_PREQ_GRP.G_OTHER_ITEM_DISCOUNT) THEN
1473: IF l_debug = FND_API.G_TRUE THEN
1474: QP_PREQ_GRP.engine_debug('Benefit Price List Line Id is Very important: ' || i.BENEFIT_PRICE_LIST_LINE_ID);
1475: END IF;
1476: OPEN get_list_price_cur(i.BENEFIT_PRICE_LIST_LINE_ID);
1477: FETCH get_list_price_cur INTO v_list_price;

Line 1498: IF l_debug = FND_API.G_TRUE THEN

1494: ELSE
1495: l_sign := -1;
1496: END IF;
1497:
1498: IF l_debug = FND_API.G_TRUE THEN
1499: QP_PREQ_GRP.engine_debug('List Price For Best Price Eval: ' || p_list_price);
1500:
1501: END IF;
1502:

Line 1530: IF l_debug = FND_API.G_TRUE THEN

1526: END IF;
1527:
1528: ELSIF (i.CREATED_FROM_LIST_LINE_TYPE = QP_PREQ_GRP.G_PRICE_BREAK_TYPE) THEN
1529:
1530: IF l_debug = FND_API.G_TRUE THEN
1531: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Line Quantity : ' || i.line_quantity); --[julin/4240067/4307242]
1532: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Group Quantity : ' || i.group_quantity);
1533: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Group Amount : ' || i.group_amount);
1534:

Line 1539: IF l_debug = FND_API.G_TRUE THEN

1535: END IF;
1536: --[julin/4240067/4307242] using i.line_quantity
1537: l_request_qty := nvl(nvl(i.group_quantity,i.group_amount),i.line_quantity);
1538:
1539: IF l_debug = FND_API.G_TRUE THEN
1540: QP_PREQ_GRP.engine_debug('Best Price Eval For Price Break Qualifier Value : ' || l_request_qty);
1541:
1542: END IF;
1543:

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

1597: x_benefit_amount,
1598: l_return_status,
1599: l_return_status_text);
1600:
1601: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1602: NULL;
1603: END IF;
1604:
1605: v_benefit_price := x_benefit_amount;

Line 1608: IF l_debug = FND_API.G_TRUE THEN

1604:
1605: v_benefit_price := x_benefit_amount;
1606: END IF;
1607:
1608: IF l_debug = FND_API.G_TRUE THEN
1609: QP_PREQ_GRP.engine_debug('Benefit Price For Best Price Eval: ' || v_benefit_price);
1610:
1611: END IF;
1612: IF (i.modifier_level_code <> 'ORDER') THEN --bug 4234043

Line 1622: IF l_debug = FND_API.G_TRUE THEN

1618: ELSE -- bug 4234043
1619: v_benefit_percent :=v_benefit_price;
1620: END IF;
1621:
1622: IF l_debug = FND_API.G_TRUE THEN
1623: QP_PREQ_GRP.engine_debug('Benefit Percent For Best Price Eval: ' || v_benefit_percent);
1624:
1625: END IF;
1626: /*

Line 1685: IF l_debug = FND_API.G_TRUE THEN

1681: AND b.LINE_INDEX = p_line_index)
1682: AND a.LINE_INDEX = p_line_index; */
1683:
1684: x_list_line_id := v_list_line_id;
1685: IF l_debug = FND_API.G_TRUE THEN
1686: QP_PREQ_GRP.engine_debug('Best List line Id: ' || v_list_line_id);
1687:
1688: END IF;
1689: x_return_status := v_return_status; -- SUCCESS

Line 1693: IF l_debug = FND_API.G_TRUE THEN

1689: x_return_status := v_return_status; -- SUCCESS
1690:
1691: EXCEPTION
1692: WHEN OTHERS THEN
1693: IF l_debug = FND_API.G_TRUE THEN
1694: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1695: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1696: END IF;
1697: v_return_status := FND_API.G_RET_STS_ERROR;

Line 1697: v_return_status := FND_API.G_RET_STS_ERROR;

1693: IF l_debug = FND_API.G_TRUE THEN
1694: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
1695: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
1696: END IF;
1697: v_return_status := FND_API.G_RET_STS_ERROR;
1698: x_return_status := v_return_status;
1699: END Best_Price_Evaluation;
1700:
1701: PROCEDURE Delete_Lines_Complete (p_line_index_tbl IN QP_PREQ_GRP.NUMBER_TYPE,

Line 1707: IF l_debug = FND_API.G_TRUE THEN

1703: x_return_status OUT NOCOPY VARCHAR2,
1704: x_return_status_txt OUT NOCOPY VARCHAR2) AS
1705: BEGIN
1706: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1707: IF l_debug = FND_API.G_TRUE THEN
1708: QP_PREQ_GRP.engine_debug('deleting lines/ldets/attrs/rltd:'||p_pricing_status_text);
1709: END IF;
1710:
1711: FORALL i IN p_line_index_tbl.FIRST..p_line_index_tbl.LAST

Line 1733: x_return_status := FND_API.G_RET_STS_ERROR;

1729: PRICING_STATUS_TEXT = substr(p_pricing_status_text,1,240)
1730: WHERE RELATED_LINE_INDEX = p_line_index_tbl(i);
1731: EXCEPTION
1732: WHEN OTHERS THEN
1733: x_return_status := FND_API.G_RET_STS_ERROR;
1734: x_return_status_txt := 'Unexpected error in QP_Resolve_Incompatability_PVT.Delete_Lines_Complete: ' || SQLERRM;
1735: END Delete_Lines_Complete;
1736:
1737: PROCEDURE Delete_Ldets_Complete (p_line_detail_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 ldets/rltd:'||p_pricing_status_text);
1745: END IF;
1746:
1747: FORALL i IN p_line_detail_index_tbl.FIRST..p_line_detail_index_tbl.LAST

Line 1764: x_return_status := FND_API.G_RET_STS_ERROR;

1760: WHERE (LINE_DETAIL_INDEX = p_line_detail_index_tbl(i) OR
1761: RELATED_LINE_DETAIL_INDEX = p_line_detail_index_tbl(i)); --[julin/4671446] also deleting children ldets
1762: EXCEPTION
1763: WHEN OTHERS THEN
1764: x_return_status := FND_API.G_RET_STS_ERROR;
1765: x_return_status_txt := 'Unexpected error in QP_Resolve_Incompatability_PVT.Delete_Ldets_Complete: ' || SQLERRM;
1766: END Delete_Ldets_Complete;
1767:
1768:

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

1833:
1834: l_status_code VARCHAR2(30);
1835: l_status_text VARCHAR2(240);
1836:
1837: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
1838: v_routine_name CONSTANT VARCHAR2(240):='Routine:QP_Resolve_Incompatability_PVTRUN.Delete_Incompatible_Lines';
1839:
1840: BEGIN
1841: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;

Line 1843: IF l_debug = FND_API.G_TRUE THEN

1839:
1840: BEGIN
1841: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
1842:
1843: IF l_debug = FND_API.G_TRUE THEN
1844: QP_PREQ_GRP.engine_debug('Enter Delete_Incompatible_Lines:'||p_line_index||':'||p_incomp_grp_id||':'||p_list_line_id||':'||p_manual_dis_flag);
1845: END IF;
1846:
1847: IF (p_manual_dis_flag = QP_PREQ_GRP.G_YES) THEN

Line 1983: IF l_debug = FND_API.G_TRUE THEN

1979: END IF;
1980:
1981: IF (p_excl_discount = FALSE) THEN
1982:
1983: IF l_debug = FND_API.G_TRUE THEN
1984: QP_PREQ_GRP.engine_debug('Checking for PRG/OID losers in incompatibility group '||p_incomp_grp_id);
1985: END IF;
1986:
1987: -- [prarasto/4141235] delete loser prg/oid lines/ldets/attrs/rltd

Line 2011: IF l_debug = FND_API.G_TRUE THEN

2007: END IF;
2008:
2009: ELSE
2010:
2011: IF l_debug = FND_API.G_TRUE THEN
2012: QP_PREQ_GRP.engine_debug('Checking for PRG/OID losers to exclusive group line' );
2013: END IF;
2014:
2015: -- [prarasto/4141235] delete loser prg/oid lines/ldets/attrs/rltd, exclusive winner

Line 2042: IF l_debug = FND_API.G_TRUE THEN

2038:
2039: x_return_status := v_return_status;
2040: EXCEPTION
2041: WHEN OTHERS THEN
2042: IF l_debug = FND_API.G_TRUE THEN
2043: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2044: END IF;
2045: v_return_status := FND_API.G_RET_STS_ERROR;
2046: x_return_status := v_return_status;

Line 2045: v_return_status := FND_API.G_RET_STS_ERROR;

2041: WHEN OTHERS THEN
2042: IF l_debug = FND_API.G_TRUE THEN
2043: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2044: END IF;
2045: v_return_status := FND_API.G_RET_STS_ERROR;
2046: x_return_status := v_return_status;
2047: END Delete_Incompatible_Lines;
2048:
2049: PROCEDURE Best_Price_For_Phase(p_list_price NUMBER,

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

2070: AND PRICING_STATUS_CODE = QP_PREQ_GRP.G_STATUS_NEW;
2071:
2072:
2073: x_list_line_id NUMBER;
2074: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2075: x_ret_status VARCHAR2(30);
2076: v_excl_flag BOOLEAN := FALSE;
2077: v_manual_dis_flag VARCHAR2(1) := nvl(QP_PREQ_GRP.G_MANUAL_DISCOUNT_FLAG,'Y');
2078:

Line 2102: IF l_debug = FND_API.G_TRUE THEN

2098: FOR i IN incomp_cur(v_manual_dis_flag)
2099: LOOP
2100: IF (v_excl_flag = FALSE) THEN
2101: -- Best Price Evaluation
2102: IF l_debug = FND_API.G_TRUE THEN
2103: QP_PREQ_GRP.engine_debug('Best Price For Phase .....');
2104: END IF;
2105: Best_Price_Evaluation(p_list_price,
2106: p_line_index,

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

2109: NULL, -- Added for bug#2661540
2110: v_manual_dis_flag,
2111: x_list_line_id,
2112: x_ret_status);
2113: IF (x_ret_status = FND_API.G_RET_STS_ERROR) THEN
2114: RAISE INVALID_BEST_PRICE;
2115: END IF;
2116: END IF;
2117: -- Incomp_grp_id ='EXCL' has the highest priority(exclusivity)

Line 2144: IF l_debug = FND_API.G_TRUE THEN

2140:
2141: END IF;
2142: EXCEPTION
2143: WHEN INVALID_BEST_PRICE THEN
2144: IF l_debug = FND_API.G_TRUE THEN
2145: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2146: END IF;
2147: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2148: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;

Line 2151: IF l_debug = FND_API.G_TRUE THEN

2147: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2148: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;
2149: x_return_status := v_return_status;
2150: WHEN OTHERS THEN
2151: IF l_debug = FND_API.G_TRUE THEN
2152: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
2153: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2154: END IF;
2155: v_return_status := FND_API.G_RET_STS_ERROR;

Line 2155: v_return_status := FND_API.G_RET_STS_ERROR;

2151: IF l_debug = FND_API.G_TRUE THEN
2152: QP_PREQ_GRP.engine_debug(v_routine_name || 'Unexpected Error');
2153: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2154: END IF;
2155: v_return_status := FND_API.G_RET_STS_ERROR;
2156: x_return_status := v_return_status;
2157: END Best_Price_For_Phase;
2158:
2159: PROCEDURE Resolve_Incompatability(p_pricing_phase_id NUMBER,

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

2248: v_excl_flag BOOLEAN := FALSE;
2249: v_excl_list_line_id NUMBER;
2250: x_best_list_line_id NUMBER;
2251: x_ret_status VARCHAR2(30);
2252: v_return_status VARCHAR2(30) := FND_API.G_RET_STS_SUCCESS;
2253: v_routine_name CONSTANT VARCHAR2(240):='Routine:QP_Resolve_Incompatability_PVTRUN.Resolve_Incompatability';
2254: p_manual_dis_flag VARCHAR2(1) := nvl(QP_PREQ_GRP.G_MANUAL_DISCOUNT_FLAG,'Y');
2255: v_ask_for_constant CONSTANT NUMBER := -100000;
2256:

Line 2268: IF l_debug = FND_API.G_TRUE THEN

2264: INVALID_BEST_PRICE EXCEPTION;
2265:
2266: BEGIN
2267: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
2268: IF l_debug = FND_API.G_TRUE THEN
2269: QP_PREQ_GRP.engine_debug ('S1');
2270:
2271: END IF;
2272:

Line 2289: IF l_debug = FND_API.G_TRUE THEN

2285:
2286:
2287: FOR i IN incomp_cur(p_manual_dis_flag)
2288: LOOP
2289: IF l_debug = FND_API.G_TRUE THEN
2290: QP_PREQ_GRP.engine_debug ('#2');
2291:
2292: END IF;
2293: l_precedence_tbl.delete;

Line 2320: IF l_debug = FND_API.G_TRUE THEN

2316:
2317: IF (l_precedence_tbl.COUNT > 0) THEN
2318: FOR j IN l_precedence_tbl.FIRST .. l_precedence_tbl.LAST
2319: LOOP
2320: IF l_debug = FND_API.G_TRUE THEN
2321: QP_PREQ_GRP.engine_debug ('#3');
2322:
2323: END IF;
2324: -- Store the first list_line_id

Line 2327: IF l_debug = FND_API.G_TRUE THEN

2323: END IF;
2324: -- Store the first list_line_id
2325: IF (v_count = 0) THEN
2326: v_first_list_line_id := l_precedence_tbl(j).CREATED_FROM_LIST_LINE_ID;
2327: IF l_debug = FND_API.G_TRUE THEN
2328: QP_PREQ_GRP.engine_debug('The First List Line Id : ' || v_first_list_line_id);
2329: QP_PREQ_GRP.engine_debug('Pricing Status Code: ' || i.pricing_status_code);
2330: END IF;
2331: v_high_precedence := l_precedence_tbl(j).ORIGINAL_PRECEDENCE;

Line 2334: IF l_debug = FND_API.G_TRUE THEN

2330: END IF;
2331: v_high_precedence := l_precedence_tbl(j).ORIGINAL_PRECEDENCE;
2332: v_ask_for_flag := l_precedence_tbl(j).ASK_FOR_FLAG;
2333: END IF;
2334: IF l_debug = FND_API.G_TRUE THEN
2335: QP_PREQ_GRP.engine_debug ('#4');
2336:
2337: END IF;
2338: -- Incomp_grp_id ='EXCL' has the highest priority(exclusivity)

Line 2352: IF l_debug = FND_API.G_TRUE THEN

2348: IF ((v_ask_for_flag = QP_PREQ_GRP.G_YES and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_YES) OR
2349: (v_ask_for_flag = QP_PREQ_GRP.G_NO and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_NO)) THEN
2350: -- Best Price Evaluation
2351: IF (p_processing_flag = QP_PREQ_GRP.G_DISCOUNT_PROCESSING) THEN
2352: IF l_debug = FND_API.G_TRUE THEN
2353: QP_PREQ_GRP.engine_debug ('Best Price Evaluation');
2354: END IF;
2355: IF (p_list_price IS NOT NULL) THEN
2356: Best_Price_Evaluation(p_list_price,

Line 2364: IF l_debug = FND_API.G_TRUE THEN

2360: v_high_precedence, -- Added for bug#2661540
2361: p_manual_dis_flag,
2362: x_best_list_line_id,
2363: x_ret_status);
2364: IF l_debug = FND_API.G_TRUE THEN
2365: QP_PREQ_GRP.engine_debug('Successful Best Price Eval');
2366: END IF;
2367: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2368: RAISE INVALID_BEST_PRICE;

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

2363: x_ret_status);
2364: IF l_debug = FND_API.G_TRUE THEN
2365: QP_PREQ_GRP.engine_debug('Successful Best Price Eval');
2366: END IF;
2367: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2368: RAISE INVALID_BEST_PRICE;
2369: END IF;
2370: v_this_is_the_list_line_id := x_best_list_line_id;
2371: v_excl_list_line_id := x_best_list_line_id;

Line 2390: IF l_debug = FND_API.G_TRUE THEN

2386: END IF;
2387: END IF;
2388: END IF;
2389: END IF;
2390: IF l_debug = FND_API.G_TRUE THEN
2391: QP_PREQ_GRP.engine_debug ('#5');
2392:
2393: END IF;
2394: IF (v_others_flag = TRUE and v_excl_flag = FALSE) THEN

Line 2395: IF l_debug = FND_API.G_TRUE THEN

2391: QP_PREQ_GRP.engine_debug ('#5');
2392:
2393: END IF;
2394: IF (v_others_flag = TRUE and v_excl_flag = FALSE) THEN
2395: IF l_debug = FND_API.G_TRUE THEN
2396: QP_PREQ_GRP.engine_debug('Others_Flag: TRUE');
2397: END IF;
2398: null;
2399: ELSE

Line 2400: IF l_debug = FND_API.G_TRUE THEN

2396: QP_PREQ_GRP.engine_debug('Others_Flag: TRUE');
2397: END IF;
2398: null;
2399: ELSE
2400: IF l_debug = FND_API.G_TRUE THEN
2401: QP_PREQ_GRP.engine_debug('Others_Flag: FALSE');
2402: END IF;
2403: null;
2404: END IF;

Line 2405: IF l_debug = FND_API.G_TRUE THEN

2401: QP_PREQ_GRP.engine_debug('Others_Flag: FALSE');
2402: END IF;
2403: null;
2404: END IF;
2405: IF l_debug = FND_API.G_TRUE THEN
2406: QP_PREQ_GRP.engine_debug ('#6');
2407: QP_PREQ_GRP.engine_debug('Count: ' || v_count);
2408:
2409: END IF;

Line 2413: IF l_debug = FND_API.G_TRUE THEN

2409: END IF;
2410: IF (v_others_flag = TRUE) THEN
2411: -- If it is an asked for promo
2412: IF (v_count > 0) THEN -- Do not compare the first time for the first record
2413: IF l_debug = FND_API.G_TRUE THEN
2414: QP_PREQ_GRP.engine_debug ('Precedence1:' || v_high_precedence);
2415: QP_PREQ_GRP.engine_debug ('Precedence2:' || l_precedence_tbl(j).ORIGINAL_PRECEDENCE);
2416: QP_PREQ_GRP.engine_debug ('Ask_For_Flag1:' || v_ask_for_flag);
2417: QP_PREQ_GRP.engine_debug ('Ask_For_FLag2:' || l_precedence_tbl(j).ASK_FOR_FLAG);

Line 2426: IF l_debug = FND_API.G_TRUE THEN

2422: IF ((v_ask_for_flag = QP_PREQ_GRP.G_YES and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_YES) OR
2423: (v_ask_for_flag = QP_PREQ_GRP.G_NO and l_precedence_tbl(j).ASK_FOR_FLAG = QP_PREQ_GRP.G_NO)) THEN
2424: -- Best Price Evaluation
2425: IF (p_processing_flag = QP_PREQ_GRP.G_DISCOUNT_PROCESSING) THEN
2426: IF l_debug = FND_API.G_TRUE THEN
2427: QP_PREQ_GRP.engine_debug ('Best Price Evaluation');
2428: END IF;
2429: IF (p_list_price IS NOT NULL) THEN
2430: Best_Price_Evaluation(p_list_price,

Line 2438: IF l_debug = FND_API.G_TRUE THEN

2434: v_high_precedence, -- Added for bug#2661540
2435: p_manual_dis_flag,
2436: x_best_list_line_id,
2437: x_ret_status);
2438: IF l_debug = FND_API.G_TRUE THEN
2439: QP_PREQ_GRP.engine_debug('Successful Best Price Eval1');
2440: END IF;
2441: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2442: RAISE INVALID_BEST_PRICE;

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

2437: x_ret_status);
2438: IF l_debug = FND_API.G_TRUE THEN
2439: QP_PREQ_GRP.engine_debug('Successful Best Price Eval1');
2440: END IF;
2441: IF x_ret_status in (QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR,FND_API.G_RET_STS_ERROR) THEN
2442: RAISE INVALID_BEST_PRICE;
2443: END IF;
2444: v_this_is_the_list_line_id := x_best_list_line_id;
2445: v_others_flag := FALSE;

Line 2462: IF l_debug = FND_API.G_TRUE THEN

2458: END IF;
2459: END IF;
2460: END IF;
2461: END IF;
2462: IF l_debug = FND_API.G_TRUE THEN
2463: QP_PREQ_GRP.engine_debug ('#8');
2464: END IF;
2465: v_count := v_count + 1;
2466: END LOOP;

Line 2473: IF l_debug = FND_API.G_TRUE THEN

2469: v_count := 0; -- Reinit to 0 for an incomp grp id
2470: v_others_flag := TRUE;
2471: IF (v_this_is_the_list_line_id IS NOT NULL) THEN
2472: v_first_list_line_id := v_this_is_the_list_line_id;
2473: IF l_debug = FND_API.G_TRUE THEN
2474: QP_PREQ_GRP.engine_debug('The List Line Id : ' || v_first_list_line_id);
2475: END IF;
2476: END IF;
2477: v_this_is_the_list_line_id := null; -- Reset

Line 2479: IF l_debug = FND_API.G_TRUE THEN

2475: END IF;
2476: END IF;
2477: v_this_is_the_list_line_id := null; -- Reset
2478:
2479: IF l_debug = FND_API.G_TRUE THEN
2480: QP_PREQ_GRP.engine_debug('Before Update ......');
2481: QP_PREQ_GRP.engine_debug('Incomp Grp Code:' || i.INCOMPATABILITY_GRP_CODE);
2482: QP_PREQ_GRP.engine_debug('List Line Id:' || v_first_list_line_id);
2483: QP_PREQ_GRP.engine_debug('Pricing Phase Id:' || p_pricing_phase_id);

Line 2497: IF l_debug = FND_API.G_TRUE THEN

2493: v_excl_flag,
2494: p_manual_dis_flag,
2495: x_ret_status);
2496: END IF;
2497: IF l_debug = FND_API.G_TRUE THEN
2498: QP_PREQ_GRP.engine_debug ('#10');
2499: END IF;
2500: END LOOP;
2501: IF (v_excl_flag = TRUE) THEN

Line 2513: IF l_debug = FND_API.G_TRUE THEN

2509: END IF;
2510: x_return_status := v_return_status; -- SUCCESS
2511: EXCEPTION
2512: WHEN INVALID_INCOMPATIBILITY THEN
2513: IF l_debug = FND_API.G_TRUE THEN
2514: QP_PREQ_GRP.engine_debug(v_routine_name || ' Multiple Price Lists cannot have same precedence
2515: and cannot be asked for');
2516: END IF;
2517: x_return_status_txt := v_routine_name || ' Multiple Price Lists cannot have same precedence

Line 2522: IF l_debug = FND_API.G_TRUE THEN

2518: and cannot be asked for';
2519: v_return_status := QP_PREQ_GRP.G_STATUS_INVALID_INCOMP;
2520: x_return_status := v_return_status;
2521: WHEN INVALID_BEST_PRICE THEN
2522: IF l_debug = FND_API.G_TRUE THEN
2523: QP_PREQ_GRP.engine_debug(v_routine_name || 'Best Price Evaluation Has Error');
2524: END IF;
2525: x_return_status_txt := v_routine_name || 'Best Price Evaluation Has Error';
2526: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;

Line 2529: IF l_debug = FND_API.G_TRUE THEN

2525: x_return_status_txt := v_routine_name || 'Best Price Evaluation Has Error';
2526: v_return_status := QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR;
2527: x_return_status := v_return_status;
2528: WHEN OTHERS THEN
2529: IF l_debug = FND_API.G_TRUE THEN
2530: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2531: END IF;
2532: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2533: v_return_status := FND_API.G_RET_STS_ERROR;

Line 2533: v_return_status := FND_API.G_RET_STS_ERROR;

2529: IF l_debug = FND_API.G_TRUE THEN
2530: QP_PREQ_GRP.engine_debug(v_routine_name || ' ' || SQLERRM);
2531: END IF;
2532: x_return_status_txt := v_routine_name || ' ' || SQLERRM;
2533: v_return_status := FND_API.G_RET_STS_ERROR;
2534: x_return_status := v_return_status;
2535: END Resolve_Incompatability;
2536:
2537: END QP_Resolve_Incompatability_PVT ;