[Home] [Help]
2969: End ;
2970:
2971: IF ( NVL(p_x_line_rec.booked_flag,'N') = 'N' OR
2972: ( NVL(p_x_line_rec.booked_flag,'N') = 'Y' and
2973: NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_x_line_rec.ship_from_org_id) and
2974: NVL(p_x_line_rec.reserved_quantity, 0) = 0 -- ER 6110708 Do not allow item substitutions for Booked lines if line is reserved
2975: )
2976: ) -- Modified for ER 6110708, allow item substitution for Booked Lines also, but do not allow for OPM after Booking
2977: AND p_x_line_rec.line_set_id is null
3892: IF l_debug_level > 0 THEN
3893: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3894: END IF;
3895: -- Bug3361870 (commenting this piece of code. Not required)
3896: /* IF INV_GMI_RSV_BRANCH.Process_Branch -- INVCONV - delete this
3897: (p_organization_id => p_old_line_rec.ship_from_org_id)
3898: THEN
3899: Update oe_order_lines_all
3900: Set ordered_quantity = 0,
4027: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
4028: AND p_line_rec.ato_line_id is null
4029: AND ( NVL(p_line_rec.booked_flag,'N') = 'N' OR
4030: ( NVL(p_line_rec.booked_flag,'N') = 'Y' and
4031: NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_line_rec.ship_from_org_id) and
4032: NVL(p_line_rec.reserved_quantity, 0) = 0 -- ER 6110708 Do not allow item substitutions for Booked lines if line is reserved
4033: )
4034: ) -- Modified for ER 6110708, allow item substitution for Booked Lines also, but do not allow for OPM after Booking
4035: AND p_line_rec.line_set_id is null
6869: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
6870: oe_debug_pub.add( 'Sub inventory IS : ' || p_subinventory_code , 1 ) ; --11777419
6871: END IF;
6872: -- added by fabdi 03/May/2001
6873: /* IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id) -- INVCONV remove OPM stuff
6874: THEN
6875: l_process_flag := FND_API.G_FALSE;
6876: ELSE
6877: l_process_flag := FND_API.G_TRUE;
7153: p_subinventory_code => g_atp_tbl(K).subinventory_code --11777419
7154: );
7155:
7156: /* -- added by fabdi 03/May/2001 NOT NEEDED NOW FOR OPM INVENTORY CONVERGENCE INVCONV
7157: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id
7158: => g_atp_tbl(K).ship_from_org_id)
7159: THEN
7160: l_process_flag := FND_API.G_FALSE;
7161: ELSE
14172: oe_debug_pub.add( '2. fulfillment_base: '|| l_fulfillment_base , 1 ) ;
14173: END IF;
14174: --ER#14763609 End
14175:
14176: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id
14177: => g_atp_tbl(K).ship_from_org_id)
14178: THEN
14179: l_process_flag := FND_API.G_FALSE;
14180: ELSE
14240: END IF;
14241:
14242: --ER#14763609 End
14243:
14244: ELSE -- NOT INV_GMI_RSV_BRANCH.Process_Branch
14245: IF g_atp_tbl(K).substitute_flag = 'N' THEN
14246: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
14247: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
14248: IF l_debug_level > 0 THEN
15845: l_qty2_to_retain := l_ordered_quantity2; -- INVCONV
15846: --- End 2346233 --
15847:
15848: /* need OPM branching -- Don't branch now INVCONV
15849: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_x_line_tbl(I).ship_from_org_id) THEN */
15850: J:= 1;
15851: FOR K IN 1..l_rsv_tbl.count LOOP
15852: -- IF l_qty_to_retain > 0 THEN -- If cond modified for bug16788917
15853: IF ( (l_qty_to_retain >0 AND Nvl(p_x_line_tbl(I).fulfillment_base ,'P') ='P')
17233:
17234: -- INVCONV
17235: /* OPM 14/SEP/00 send process attributes into the reservation
17236: =============================================================*
17237: IF INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_line_rec.ship_from_org_id) -- OPM 2645605
17238: then */
17239:
17240: -- l_rsv_new_rec.attribute1 := p_line_rec.preferred_grade;
17241: /* --commented for --ER#14763609, found regression in this code when multille reservations exxists