44: l_debug NUMBER;
45:
46: BEGIN
47: IF is_debug IS NULL THEN
48: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
49: If l_debug = 1 Then
50: is_debug := TRUE;
51: Else
52: is_debug := FALSE;
59:
60: -- Check whether backorder caching is turned off
61: -- Bug 6997809, the profile value when No is 2, so changing 0 to 2.
62: IF g_use_backorder_cache IS NULL THEN
63: g_use_backorder_cache := NVL(FND_PROFILE.VALUE('INV_BACKORDER_CACHE'),2);
64: END IF;
65:
66: -- Bug 6997809, the profile value when No is 2, so changing 0 to 2.
67: IF g_use_backorder_cache = 2 THEN
181:
182: BEGIN
183:
184: IF is_debug IS NULL THEN
185: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
186: If l_debug = 1 Then
187: is_debug := TRUE;
188: Else
189: is_debug := FALSE;
213: x_min_tolerance2 := 0;
214:
215:
216: ELSIF (l_move_order_type = inv_globals.g_move_order_pick_wave
217: AND NVL(fnd_profile.VALUE('WSH_OVERPICK_ENABLED'), 'N') = 'Y') THEN
218:
219: OPEN c_detail_info;
220: FETCH c_detail_info INTO l_detail_info;
221: --l_found_flag := c_detail_info%FOUND;
331: -- To avoid the problem of excess reservations, the lines for which the
332: -- from sub on the reservation does not match will not be passed from
333: -- shipping. See 4529693 for further details
334: IF g_honor_pick_from IS NULL THEN
335: g_honor_pick_from := NVL(FND_PROFILE.VALUE('WSH_HONOR_PICK_FROM'),'N');
336: END IF;
337: l_mo_from_sub := p_mo_line_rec.from_subinventory_code;
338: IF l_mo_from_sub IS NOT NULL THEN
339: IF l_mo_from_sub <> nvl(p_res_rec.subinventory_code,l_mo_from_sub) THEN
1061:
1062: --Bug 8560030, added below code in order to allow picking of non-rsvable lots for Internal Orders.
1063: IF (l_qty_available_to_reserve <= 0 AND l_qty_att > 0 AND p_demand_source_type = 8 AND l_is_lot_control) THEN
1064: IF g_prf_pick_nonrsv_lots IS NULL THEN
1065: g_prf_pick_nonrsv_lots := NVL(FND_PROFILE.VALUE('INV_PICK_NONRSV_LOTS'),2);
1066: IF (is_debug) THEN
1067: print_debug('g_prf_pick_nonrsv_lots = '||g_prf_pick_nonrsv_lots, 'Inv_Pick_Release_PVT.Process_Reservations');
1068: END IF;
1069: END IF;
1983: l_return_value BOOLEAN;
1984: l_to_subinventory VARCHAR2(10);
1985: BEGIN
1986: IF is_debug IS NULL THEN
1987: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1988: If l_debug = 1 Then
1989: is_debug := TRUE;
1990: Else
1991: is_debug := FALSE;
2376:
2377:
2378: BEGIN
2379: IF is_debug IS NULL THEN
2380: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2381: If l_debug = 1 Then
2382: is_debug := TRUE;
2383: Else
2384: is_debug := FALSE;