274: OPEN rsv_set_line(p_x_rsv_tbl(I).line_id);
275: FETCH rsv_set_line INTO l_rsv_set_rec;
276: CLOSE rsv_set_line;
277: -- comparing item information
278: IF NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).inventory_item_id, l_rsv_set_rec.inventory_item_id)
279: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty, l_rsv_set_rec.ordered_qty)
280: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ship_from_org_id, l_rsv_set_rec.ship_from_org_id)
281: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).subinventory, l_rsv_set_rec.subinventory)
282: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty2, l_rsv_set_rec.ordered_qty2) -- INVCONV from code review by AK
275: FETCH rsv_set_line INTO l_rsv_set_rec;
276: CLOSE rsv_set_line;
277: -- comparing item information
278: IF NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).inventory_item_id, l_rsv_set_rec.inventory_item_id)
279: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty, l_rsv_set_rec.ordered_qty)
280: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ship_from_org_id, l_rsv_set_rec.ship_from_org_id)
281: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).subinventory, l_rsv_set_rec.subinventory)
282: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty2, l_rsv_set_rec.ordered_qty2) -- INVCONV from code review by AK
283: OR nvl(p_x_rsv_tbl(I).shipped_quantity,0)> 0 THEN
276: CLOSE rsv_set_line;
277: -- comparing item information
278: IF NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).inventory_item_id, l_rsv_set_rec.inventory_item_id)
279: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty, l_rsv_set_rec.ordered_qty)
280: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ship_from_org_id, l_rsv_set_rec.ship_from_org_id)
281: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).subinventory, l_rsv_set_rec.subinventory)
282: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty2, l_rsv_set_rec.ordered_qty2) -- INVCONV from code review by AK
283: OR nvl(p_x_rsv_tbl(I).shipped_quantity,0)> 0 THEN
284: -- Save error message
277: -- comparing item information
278: IF NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).inventory_item_id, l_rsv_set_rec.inventory_item_id)
279: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty, l_rsv_set_rec.ordered_qty)
280: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ship_from_org_id, l_rsv_set_rec.ship_from_org_id)
281: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).subinventory, l_rsv_set_rec.subinventory)
282: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty2, l_rsv_set_rec.ordered_qty2) -- INVCONV from code review by AK
283: OR nvl(p_x_rsv_tbl(I).shipped_quantity,0)> 0 THEN
284: -- Save error message
285: fnd_message.set_name('ONT', 'OE_SCH_ITEM_NOT_RESERVABLE');
278: IF NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).inventory_item_id, l_rsv_set_rec.inventory_item_id)
279: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty, l_rsv_set_rec.ordered_qty)
280: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ship_from_org_id, l_rsv_set_rec.ship_from_org_id)
281: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).subinventory, l_rsv_set_rec.subinventory)
282: OR NOT OE_GLOBALS.EQUAL(p_x_rsv_tbl(I).ordered_qty2, l_rsv_set_rec.ordered_qty2) -- INVCONV from code review by AK
283: OR nvl(p_x_rsv_tbl(I).shipped_quantity,0)> 0 THEN
284: -- Save error message
285: fnd_message.set_name('ONT', 'OE_SCH_ITEM_NOT_RESERVABLE');
286: OE_MSG_PUB.Add;
589: FOR I IN 1..p_x_rsv_tbl.COUNT
590: LOOP
591: -- 4695715 : Start
592: l_temp :=0;
593: IF NOT OE_GLOBALS.Equal(p_x_rsv_tbl(I).ordered_qty_UOM, l_primary_uom)
594: THEN
595: IF l_debug_level > 0 THEN
596: oe_debug_pub.add( 'Before UOM convertion :' || l_total_supply || '/' || l_primary_uom, 1 ) ;
597: END IF;
640: END IF;
641:
642: --l_total_supply := l_total_supply - p_x_rsv_tbl(I).derived_reserved_qty;
643: -- 4695715 : Start
644: IF OE_GLOBALS.Equal(l_primary_uom ,p_x_rsv_tbl(I).ordered_qty_uom) THEN
645: g_consumed_for_lot := g_consumed_for_lot + p_x_rsv_tbl(I).derived_reserved_qty;
646: l_total_supply := l_total_supply - p_x_rsv_tbl(I).derived_reserved_qty;
647: ELSE
648: l_temp := INV_CONVERT.INV_UM_CONVERT( item_id => p_x_rsv_tbl(I).inventory_item_id,
662: -- 4695715 : Start
663: --l_total_supply2 := l_total_supply2 - nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0); -- INVCONV
664: l_temp :=0;
665: IF nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0) > 0 THEN
666: IF OE_GLOBALS.Equal(l_primary_uom ,p_x_rsv_tbl(I).ordered_qty_uom) THEN
667: g_consumed_for_lot2 := g_consumed_for_lot2 + nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0); -- INVCONV
668: l_total_supply2 := l_total_supply2 - nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0); -- INVCONV
669: ELSE
670: l_temp := INV_CONVERT.INV_UM_CONVERT( item_id => p_x_rsv_tbl(I).inventory_item_id,
736:
737: --4695715 : Start
738: l_temp :=0;
739: --l_total_supply := l_total_supply - p_x_rsv_tbl(I).derived_reserved_qty;
740: IF OE_GLOBALS.Equal(l_primary_uom ,p_x_rsv_tbl(I).ordered_qty_uom) THEN
741: g_consumed_for_lot := g_consumed_for_lot + p_x_rsv_tbl(I).derived_reserved_qty;
742: l_total_supply := l_total_supply - p_x_rsv_tbl(I).derived_reserved_qty;
743: ELSE
744: l_temp := INV_CONVERT.INV_UM_CONVERT( item_id => p_x_rsv_tbl(I).inventory_item_id,
759: l_temp :=0;
760: --l_total_supply2 := l_total_supply2 - nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0); -- INVCONV
761:
762: IF nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0) > 0 THEN
763: IF OE_GLOBALS.Equal(l_primary_uom ,p_x_rsv_tbl(I).ordered_qty_uom) THEN
764: g_consumed_for_lot2 := g_consumed_for_lot2 + nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0); -- INVCONV
765: l_total_supply2 := l_total_supply2 - nvl(p_x_rsv_tbl(I).derived_reserved_qty2,0); -- INVCONV
766: ELSE
767: l_temp := INV_CONVERT.INV_UM_CONVERT( item_id => p_x_rsv_tbl(I).inventory_item_id,
1025: END IF;
1026: FOR I IN 1..p_rsv_tbl.COUNT
1027: LOOP
1028:
1029: IF OE_GLOBALS.Equal(p_rsv_tbl(I).ordered_qty_uom, l_primary_uom)
1030: THEN
1031: l_total_demand := l_total_demand + p_rsv_tbl(I).ordered_qty;
1032: ELSE
1033: l_converted_qty :=
1140: FOR I in 1..p_x_rsv_tbl.COUNT
1141: LOOP
1142: -- 4695715 :Start
1143:
1144: IF NOT OE_GLOBALS.Equal(p_x_rsv_tbl(I).ordered_qty_UOM, l_primary_uom)
1145: AND NVL(p_reservation_mode,'*') ='PERCENT'
1146: THEN
1147: IF l_debug_level > 0 THEN
1148: oe_debug_pub.add( 'Before UOM convertion :' || l_total_supply || '/' || l_primary_uom, 1 ) ;
1224: -- Keeping copy of derived quantity
1225: p_x_rsv_tbl(I).derived_reserved_qty_mir := p_x_rsv_tbl(I).derived_reserved_qty;
1226: p_x_rsv_tbl(I).reserved_qty_UOM := p_x_rsv_tbl(I).ordered_qty_UOM;
1227: -- 4695715 :Start
1228: IF OE_GLOBALS.Equal(l_primary_uom, p_x_rsv_tbl(I).ordered_qty_uom) THEN
1229: g_consumed_for_lot := g_consumed_for_lot + p_x_rsv_tbl(I).derived_reserved_qty;
1230: IF NVL(p_reservation_mode,'*') ='PERCENT' THEN
1231: l_total_supply := l_total_supply - p_x_rsv_tbl(I).derived_reserved_qty;
1232:
1250: p_x_rsv_tbl(I).derived_reserved_qty2_mir := p_x_rsv_tbl(I).derived_reserved_qty2;
1251: --p_x_rsv_tbl(I).reserved_qty_UOM := p_x_rsv_tbl(I).ordered_qty_UOM;
1252: -- 4695715 : Start
1253: l_temp :=0;
1254: IF OE_GLOBALS.Equal(l_primary_uom ,p_x_rsv_tbl(I).ordered_qty_uom) THEN
1255: g_consumed_for_lot2 := g_consumed_for_lot2 + p_x_rsv_tbl(I).derived_reserved_qty2;
1256: IF NVL(p_reservation_mode,'*') ='PERCENT' THEN
1257: l_total_supply2 := l_total_supply2 - p_x_rsv_tbl(I).derived_reserved_qty2; -- INVCONV from code review comments from AK
1258: END IF;
2794: l_old_warehouse := l_rsv_tbl(I).ship_from_org_id;
2795: l_old_subinventory := l_rsv_tbl(I).subinventory;
2796: l_old_org_id := l_rsv_tbl(I).org_id; -- 4759251
2797: END IF;
2798: IF OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2799: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2800: AND OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory)
2801: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) THEN --4759251
2802: -- 6814153
2795: l_old_subinventory := l_rsv_tbl(I).subinventory;
2796: l_old_org_id := l_rsv_tbl(I).org_id; -- 4759251
2797: END IF;
2798: IF OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2799: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2800: AND OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory)
2801: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) THEN --4759251
2802: -- 6814153
2803: IF p_reservation_mode ='PARTIAL' THEN
2796: l_old_org_id := l_rsv_tbl(I).org_id; -- 4759251
2797: END IF;
2798: IF OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2799: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2800: AND OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory)
2801: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) THEN --4759251
2802: -- 6814153
2803: IF p_reservation_mode ='PARTIAL' THEN
2804: l_sales_order_id :=
2797: END IF;
2798: IF OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2799: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2800: AND OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory)
2801: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) THEN --4759251
2802: -- 6814153
2803: IF p_reservation_mode ='PARTIAL' THEN
2804: l_sales_order_id :=
2805: Oe_Schedule_Util.Get_mtl_sales_order_id(l_rsv_tbl(I).HEADER_ID);
2835: p_reserve_run_type => p_reserve_run_type,
2836: p_reserve_set_name => p_reserve_set_name);
2837:
2838: IF p_reserve_run_type ='SIMULATE'
2839: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2840: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2841: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2842: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2843: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2836: p_reserve_set_name => p_reserve_set_name);
2837:
2838: IF p_reserve_run_type ='SIMULATE'
2839: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2840: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2841: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2842: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2843: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2844: G_Consumed_for_Lot := 0;
2837:
2838: IF p_reserve_run_type ='SIMULATE'
2839: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2840: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2841: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2842: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2843: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2844: G_Consumed_for_Lot := 0;
2845: G_Total_Consumed2 := G_Total_Consumed2 + G_Consumed_for_Lot2; -- INVCONV from code review by AK
2838: IF p_reserve_run_type ='SIMULATE'
2839: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2840: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2841: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2842: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2843: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2844: G_Consumed_for_Lot := 0;
2845: G_Total_Consumed2 := G_Total_Consumed2 + G_Consumed_for_Lot2; -- INVCONV from code review by AK
2846: G_Consumed_for_Lot2 := 0;
2858: p_reserve_run_type => p_reserve_run_type,
2859: p_reserve_set_name => p_reserve_set_name);
2860:
2861: IF p_reserve_run_type ='SIMULATE'
2862: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2863: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2864: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2865: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2866: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2859: p_reserve_set_name => p_reserve_set_name);
2860:
2861: IF p_reserve_run_type ='SIMULATE'
2862: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2863: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2864: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2865: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2866: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2867: G_Consumed_for_Lot := 0;
2860:
2861: IF p_reserve_run_type ='SIMULATE'
2862: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2863: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2864: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2865: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2866: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2867: G_Consumed_for_Lot := 0;
2868: G_Total_Consumed2 := G_Total_Consumed2 + G_Consumed_for_Lot2; -- INVCONV from code review by AK
2861: IF p_reserve_run_type ='SIMULATE'
2862: AND OE_GLOBALS.Equal(l_old_item_id, l_rsv_tbl(I).inventory_item_id)
2863: AND OE_GLOBALS.Equal(l_old_warehouse, l_rsv_tbl(I).ship_from_org_id)
2864: AND OE_GLOBALS.Equal(l_old_org_id,l_rsv_tbl(I).org_id) -- 4759251
2865: AND NOT OE_GLOBALS.Equal(l_old_subinventory, l_rsv_tbl(I).subinventory) THEN
2866: G_Total_Consumed := G_Total_Consumed + G_Consumed_for_Lot;
2867: G_Consumed_for_Lot := 0;
2868: G_Total_Consumed2 := G_Total_Consumed2 + G_Consumed_for_Lot2; -- INVCONV from code review by AK
2869: G_Consumed_for_Lot2 := 0;