[Home] [Help]
3004: IF l_debug_level > 0 THEN
3005: oe_debug_pub.add( 'MRP ACTION: ' || X_ATP_REC.ACTION ( I ) , 3 ) ;
3006: END IF;
3007: -- Bug3361870 (commenting this piece of code. Not required)
3008: /* IF INV_GMI_RSV_BRANCH.Process_Branch -- INVCONV - delete this
3009: (p_organization_id => p_old_line_rec.ship_from_org_id)
3010: THEN
3011: Update oe_order_lines_all
3012: Set ordered_quantity = 0,
3124: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
3125: AND p_line_rec.ato_line_id is null
3126: AND ( NVL(p_line_rec.booked_flag,'N') = 'N' OR
3127: ( NVL(p_line_rec.booked_flag,'N') = 'Y' and
3128: NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_line_rec.ship_from_org_id) and
3129: NVL(p_line_rec.reserved_quantity, 0) = 0 -- ER 6110708 Do not allow item substitutions for Booked lines if line is reserved
3130: )
3131: ) -- Modified for ER 6110708, allow item substitution for Booked Lines also, but do not allow for OPM after Booking
3132: AND p_line_rec.line_set_id is null
5787: IF l_debug_level > 0 THEN
5788: oe_debug_pub.add( 'ITEM IS : ' || P_ITEM_ID , 1 ) ;
5789: END IF;
5790: -- added by fabdi 03/May/2001
5791: /* IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id) -- INVCONV remove OPM stuff
5792: THEN
5793: l_process_flag := FND_API.G_FALSE;
5794: ELSE
5795: l_process_flag := FND_API.G_TRUE;
6057: x_avail_to_reserve2 => l_avail_to_reserve2 -- INVCONV
6058: );
6059:
6060: /* -- added by fabdi 03/May/2001 NOT NEEDED NOW FOR OPM INVENTORY CONVERGENCE INVCONV
6061: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id
6062: => g_atp_tbl(K).ship_from_org_id)
6063: THEN
6064: l_process_flag := FND_API.G_FALSE;
6065: ELSE
12525: );
12526:
12527:
12528: -- added by fabdi 03/May/2001
12529: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id
12530: => g_atp_tbl(K).ship_from_org_id)
12531: THEN
12532: l_process_flag := FND_API.G_FALSE;
12533: ELSE
13550: l_qty2_to_retain := l_ordered_quantity2; -- INVCONV
13551: --- End 2346233 --
13552:
13553: /* need OPM branching -- Don't branch now INVCONV
13554: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_x_line_tbl(I).ship_from_org_id) THEN */
13555: J:= 1;
13556: FOR K IN 1..l_rsv_tbl.count LOOP
13557: IF l_qty_to_retain > 0 THEN
13558:
14699:
14700: -- INVCONV
14701: /* OPM 14/SEP/00 send process attributes into the reservation
14702: =============================================================*
14703: IF INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_line_rec.ship_from_org_id) -- OPM 2645605
14704: then */
14705:
14706: -- l_rsv_new_rec.attribute1 := p_line_rec.preferred_grade;
14707: