[Home] [Help]
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'oe_line_util';
7: --bug4080363 commenting out the following
8: -- bug 3491752
9: --G_LIST_PRICE_OVERRIDE Varchar2(30) := nvl(fnd_profile.value('ONT_LIST_PRICE_OVERRIDE_PRIV'), 'NONE');
10:
11: -- Added new API for FP bug 6628653 base bug 6513023
12: PROCEDURE HANDLE_RFR
13: (
885: if l_debug_level > 0 then
886: oe_debug_pub.add('after calling jg');
887: end if;
888: --bug 2971066 Begin
889: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
890: if l_debug_level > 0 then
891: oe_debug_pub.add('value of ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
892: oe_debug_pub.add('p_x_line_rec.inventory_item_id : '||p_x_line_rec.inventory_item_id);
893: oe_debug_pub.add('p_old_line_rec.inventory_item_id : '||p_old_line_rec.inventory_item_id);
1069: if l_debug_level > 0 then
1070: oe_debug_pub.add('before checking profile ONT_HONOR_ITEM_CHANGE',5);
1071: end if;
1072: --change made for bug 1998333 Begin
1073: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
1074: if l_debug_level > 0 then
1075: oe_debug_pub.add('value of profile ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
1076: end if;
1077: if nvl(l_item_chg_prof,'N') = 'N' then
1109: if l_debug_level > 0 then
1110: oe_debug_pub.add('before checking profile ONT_HONOR_ITEM_CHANGE',5);
1111: end if;
1112: --change made for bug 1998333 Begin
1113: l_item_chg_prof := fnd_profile.value('ONT_HONOR_ITEM_CHANGE');
1114: if l_debug_level > 0 then
1115: oe_debug_pub.add('value of profile ONT_HONOR_ITEM_CHANGE:'||l_item_chg_prof,5);
1116: end if;
1117: if nvl(l_item_chg_prof,'N') = 'N' then
2192: -- Call Pricing
2193: -- For performance bug 1351111, turning off Pricing for scheduling
2194:
2195: /* Commenting out for 1419204
2196: l_turn_off_pricing := FND_PROFILE.VALUE('ONT_NO_PRICING_AT_SCHEDULING');
2197: -- by default, turn off pricing at scheduling
2198: IF l_turn_off_pricing = 'N' THEN
2199: OE_GLOBALS.G_PRICE_FLAG := 'Y';
2200: End If;
2352: -- change can happen either as a direct Update operation, OR
2353: -- during split of order lines, where original record will be
2354: -- Updated while new record will be Created
2355:
2356: l_po_NeedByDate_Update := NVL(FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM'),'NO');
2357:
2358: IF l_debug_level > 0 THEN
2359: oe_debug_pub.add(' Need By Date update is allowed ? '||l_po_NeedByDate_Update);
2360: END IF;
2430: -- change can happen either as a direct Update operation, OR
2431: -- during split of order lines, where original record will be
2432: -- Updated while new record will be Created
2433:
2434: l_po_NeedByDate_Update := NVL(FND_PROFILE.VALUE('POR_SYNC_NEEDBYDATE_OM'),'NO');
2435:
2436: IF l_debug_level > 0 THEN
2437: oe_debug_pub.add(' Need By Date update is allowed ? '||l_po_NeedByDate_Update);
2438: END IF;
2629: -- instead of decimal points, introduced
2630: -- fnd_number.canonical_to_number which converts the returned
2631: -- VARCHAR value to a number.
2632:
2633: l_epsilon :=fnd_number.canonical_to_number(NVL(FND_PROFILE.VALUE('IC$EPSILON'),0)) ;
2634: n := (-1) * round(log(10,l_epsilon));
2635: l_OPM_shipped_quantity:=round(l_OPM_shipped_quantity, n);
2636:
2637:
2848: l_update_shipping := FND_API.G_TRUE;
2849: /* may need to call pricing */
2850: -- For performance bug 1351111, turning off Pricing for scheduling
2851: /* commenting out for fix 1419204
2852: l_turn_off_pricing := FND_PROFILE.VALUE('ONT_NO_PRICING_AT_SCHEDULING');
2853: -- by default, turn off pricing at scheduling
2854: IF l_turn_off_pricing = 'N' THEN
2855: OE_GLOBALS.G_PRICE_FLAG := 'Y';
2856: End If;
4315: p_x_line_rec.order_quantity_uom is not null and
4316: p_x_line_rec.order_quantity_uom <> fnd_api.g_miss_char
4317: AND oe_code_control.code_release_level >= '110510'
4318: -- bug 3491752
4319: --AND /*nvl(fnd_profile.value('ONT_LIST_PRICE_OVERRIDE_PRIV'), 'NONE')*/ --G_LIST_PRICE_OVERRIDE = 'UNLIMITED' --bug4080363
4320: AND OE_GLOBALS.G_UI_FLAG
4321: AND OE_Globals.G_PRICING_RECURSION = 'N' THEN
4322:
4323: IF p_x_line_rec.unit_list_price IS NOT NULL AND
5023: IF NVL(OE_GLOBALS.g_pricing_recursion, 'N') <> 'Y'
5024: OR (NVL(OE_GLOBALS.g_pricing_recursion, 'N') = 'Y' AND
5025: oe_globals.g_commitment_balance IS NULL) THEN
5026: l_class := NULL;
5027: l_so_source_code := FND_PROFILE.VALUE('ONT_SOURCE_CODE');
5028: l_oe_installed_flag := 'I';
5029:
5030: -- get the available commitmenb balance before saving the line.
5031: IF NOT (p_x_line_rec.operation = OE_GLOBALS.G_OPR_CREATE AND
5246:
5247: -- Moved to OE_ACKNOWLEDGMENT_PUB as part of 3417899 and 3412458
5248: /* IF l_3a7_attribute_change = FND_API.G_TRUE
5249: AND OE_Code_Control.code_release_level >= '110510'
5250: AND NVL(FND_PROFILE.VALUE('ONT_3A7_RESPONSE_REQUIRED'), 'N') = 'Y'
5251: AND p_x_line_rec.order_source_id= OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
5252: AND nvl(p_x_line_rec.xml_transaction_type_code, OE_Acknowledgment_Pub.G_TRANSACTION_CSO) = OE_Acknowledgment_Pub.G_TRANSACTION_CSO
5253: AND p_x_line_rec.booked_flag = 'Y'
5254: AND p_x_line_rec.ordered_quantity <> 0 -- for bug 3421996
9885:
9886: END IF;
9887:
9888:
9889: IF (NVL(FND_PROFILE.VALUE('WSH_ENABLE_DCP'), -1) = 1 OR
9890: NVL(FND_PROFILE.VALUE('WSH_ENABLE_DCP'), -1) = 2) AND
9891: WSH_DCP_PVT.G_CALL_DCP_CHECK = 'Y' THEN
9892:
9893: WSH_DCP_PVT.G_INIT_MSG_COUNT := fnd_msg_pub.count_msg;
9886: END IF;
9887:
9888:
9889: IF (NVL(FND_PROFILE.VALUE('WSH_ENABLE_DCP'), -1) = 1 OR
9890: NVL(FND_PROFILE.VALUE('WSH_ENABLE_DCP'), -1) = 2) AND
9891: WSH_DCP_PVT.G_CALL_DCP_CHECK = 'Y' THEN
9892:
9893: WSH_DCP_PVT.G_INIT_MSG_COUNT := fnd_msg_pub.count_msg;
9894:
16262: l_pricing_event := 'BATCH';
16263: END IF;
16264: --bug 3018331
16265: if p_x_line_rec.source_document_type_id = 5 and
16266: nvl(fnd_profile.value('ONT_GRP_PRICE_FOR_DSP'),'N') = 'N' then
16267: null;
16268: if l_debug_level > 0 then
16269: oe_debug_pub.add('not logging price order - delete operation ');
16270: end if;
18463: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
18464:
18465: BEGIN
18466: /* INVCONV
18467: IF FND_PROFILE.VALUE ('ONT_PROCESS_INSTALLED_FLAG') = 'N' THEN
18468: RETURN FALSE;
18469: END IF; */
18470:
18471: /* If item and warehouse are both present, assess if this is