[Home] [Help]
54: SELECT physical_location_id ,
55: inventory_location_id
56: INTO l_physical_locator_id,
57: l_locator_id
58: FROM mtl_item_locations
59: WHERE inventory_location_id =p_inventory_location_id
60: and organization_id = p_organization_id; */
61:
62: SELECT
91: x_max_cubic_area,
92: x_current_cubic_area,
93: x_suggested_cubic_area,
94: x_available_cubic_area
95: from mtl_item_locations
96: where organization_id = p_organization_id
97: and inventory_location_id = p_inventory_location_id;
98:
99: IF (l_physical_locator_id is NOT null) AND (l_physical_locator_id <> p_inventory_location_id) THEN
127: x_max_cubic_area,
128: x_current_cubic_area,
129: x_suggested_cubic_area,
130: x_available_cubic_area
131: from mtl_item_locations
132: where organization_id = p_organization_id
133: and inventory_location_id = l_physical_locator_id;
134:
135: END IF;
200: SELECT physical_location_id ,
201: inventory_location_id
202: INTO l_physical_locator_id,
203: l_locator_id
204: FROM mtl_item_locations
205: WHERE inventory_location_id =p_inventory_location_id
206: and organization_id = p_organization_id; */
207: SELECT physical_location_id ,
208: inventory_location_id ,
215: x_location_maximum_units,
216: x_location_current_units,
217: x_location_available_units,
218: x_location_suggested_units
219: FROM mtl_item_locations
220: WHERE inventory_location_id =p_inventory_location_id
221: and organization_id = p_organization_id;
222:
223: IF (l_physical_locator_id is NOT null) AND (l_physical_locator_id <> p_inventory_location_id) THEN
230: x_location_maximum_units,
231: x_location_current_units,
232: x_location_available_units,
233: x_location_suggested_units
234: from mtl_item_locations
235: where organization_id = p_organization_id
236: and inventory_location_id = l_inventory_location_id;
237: END IF;
238:
304: SELECT physical_location_id ,
305: inventory_location_id
306: INTO l_physical_locator_id,
307: l_locator_id
308: FROM mtl_item_locations
309: WHERE inventory_location_id =p_inventory_location_id
310: and organization_id = p_organization_id; */
311: SELECT physical_location_id ,
312: inventory_location_id,
321: x_max_weight,
322: x_current_weight,
323: x_suggested_weight,
324: x_available_weight
325: FROM mtl_item_locations
326: WHERE inventory_location_id =p_inventory_location_id
327: and organization_id = p_organization_id;
328:
329: IF (l_physical_locator_id is NOT null) AND (l_physical_locator_id <> p_inventory_location_id) THEN
338: x_max_weight,
339: x_current_weight,
340: x_suggested_weight,
341: x_available_weight
342: from mtl_item_locations
343: where organization_id = p_organization_id
344: and inventory_location_id = l_inventory_location_id;
345: END IF;
346:
411: SELECT physical_location_id ,
412: inventory_location_id
413: INTO l_physical_locator_id,
414: l_locator_id
415: FROM mtl_item_locations
416: WHERE inventory_location_id =p_inventory_location_id
417: and organization_id = p_organization_id; */
418:
419: SELECT physical_location_id ,
429: x_max_cubic_area,
430: x_current_cubic_area,
431: x_suggested_cubic_area,
432: x_available_cubic_area
433: FROM mtl_item_locations
434: WHERE organization_id = p_organization_id
435: and inventory_location_id = p_inventory_location_id;
436:
437: IF (l_physical_locator_id is NOT null) AND (l_physical_locator_id <> l_inventory_location_id) THEN
446: x_max_cubic_area,
447: x_current_cubic_area,
448: x_suggested_cubic_area,
449: x_available_cubic_area
450: from mtl_item_locations
451: where organization_id = p_organization_id
452: and inventory_location_id = l_physical_locator_id;
453: END IF;
454:
569: SELECT physical_location_id ,
570: inventory_location_id
571: INTO l_physical_locator_id,
572: l_locator_id
573: FROM mtl_item_locations
574: WHERE inventory_location_id =p_inventory_location_id
575: and organization_id = p_organization_id;
576:
577: IF l_physical_locator_id is null THEN
584: ############# If the locator capacity is infinite, then dont update anything, simply return#############
585: */
586: SELECT location_maximum_units, max_weight, max_cubic_area
587: INTO l_max_units, l_max_weight, l_max_cubic_area
588: FROM mtl_item_locations_kfv
589: WHERE organization_id = p_organization_id
590: AND inventory_location_id = l_inventory_location_id;
591:
592: IF l_max_units IS NULL AND l_max_weight IS NULL AND l_max_cubic_area IS NULL THEN
598: mdebug('Before locking locator ' || l_inventory_location_id || ' in update_loc_curr_capacity_nauto');
599: END IF;
600:
601: SELECT inventory_location_id INTO l_inventory_location_id
602: FROM mtl_item_locations
603: WHERE inventory_location_id = l_inventory_location_id
604: and organization_id = p_organization_id
605: FOR UPDATE NOWAIT;
606:
611: -- ensure that the input quantity (p_quantity) is always positive regardless whether
612: -- issue or receipt
613: l_quantity :=Abs(p_quantity);
614:
615: -- select necessary data from mtl_system_items and mtl_item_locations
616: select
617: primary_uom_code,
618: weight_uom_code,
619: unit_weight,
658: l_max_cubic_area,
659: l_current_cubic_area,
660: l_suggested_cubic_area,
661: l_available_cubic_area
662: from mtl_item_locations
663: where organization_id = p_organization_id
664: and inventory_location_id = l_inventory_location_id;
665:
666: IF (l_debug = 1) THEN
924: END IF;
925: IF (l_debug = 1) THEN
926: mdebug('l_upd_loc_current_units: '|| l_upd_loc_current_units);
927: END IF;
928: -- Now we update the table MTL_ITEM_LOCATIONS
929: IF (l_update_weight) OR (l_update_volume) OR (l_update_units) THEN
930: UPDATE mtl_item_locations
931: SET
932: location_current_units = l_upd_loc_current_units,
926: mdebug('l_upd_loc_current_units: '|| l_upd_loc_current_units);
927: END IF;
928: -- Now we update the table MTL_ITEM_LOCATIONS
929: IF (l_update_weight) OR (l_update_volume) OR (l_update_units) THEN
930: UPDATE mtl_item_locations
931: SET
932: location_current_units = l_upd_loc_current_units,
933: location_available_units = l_upd_loc_available_units,
934: current_weight = l_upd_loc_current_weight,
1246: SELECT physical_location_id ,
1247: inventory_location_id
1248: INTO l_physical_locator_id,
1249: l_locator_id
1250: FROM mtl_item_locations
1251: WHERE inventory_location_id =p_inventory_location_id
1252: and organization_id = p_organization_id;
1253:
1254: IF l_physical_locator_id is null THEN
1261: ############# If the locator capacity is infinite, then dont update anything, simply return#############
1262: */
1263: SELECT location_maximum_units, max_weight, max_cubic_area
1264: INTO l_max_units, l_max_weight, l_max_cubic_area
1265: FROM mtl_item_locations_kfv
1266: WHERE organization_id = p_organization_id
1267: AND inventory_location_id = l_inventory_location_id;
1268:
1269: IF l_max_units IS NULL AND l_max_weight IS NULL AND l_max_cubic_area IS NULL THEN
1275: mdebug('Before locking locator ' || l_inventory_location_id || ' in update_loc_sugg_capacity_nauto');
1276: END IF;
1277:
1278: SELECT inventory_location_id INTO l_inventory_location_id
1279: FROM mtl_item_locations
1280: WHERE inventory_location_id = l_inventory_location_id
1281: and organization_id = p_organization_id
1282: FOR UPDATE NOWAIT;
1283:
1287:
1288: -- ensure that the input quantity (p_quantity) is always positive regardless whether
1289: -- issue or receipt
1290: l_quantity :=Abs(p_quantity);
1291: -- select necessary data from mtl_system_items and mtl_item_locations
1292: select
1293: primary_uom_code,
1294: weight_uom_code,
1295: unit_weight,
1334: l_max_cubic_area,
1335: l_current_cubic_area,
1336: l_suggested_cubic_area,
1337: l_available_cubic_area
1338: from mtl_item_locations
1339: where organization_id = p_organization_id
1340: and inventory_location_id = l_inventory_location_id;
1341:
1342: IF (l_debug = 1) THEN
1520:
1521: IF (l_debug = 1) THEN
1522: mdebug('l_upd_loc_suggested_units: '|| l_upd_loc_suggested_units);
1523: END IF;
1524: -- Now we update the table MTL_ITEM_LOCATIONS
1525: IF (l_update_weight) OR (l_update_volume) OR (l_update_units) THEN
1526: UPDATE mtl_item_locations
1527: SET
1528: location_suggested_units = l_upd_loc_suggested_units,
1522: mdebug('l_upd_loc_suggested_units: '|| l_upd_loc_suggested_units);
1523: END IF;
1524: -- Now we update the table MTL_ITEM_LOCATIONS
1525: IF (l_update_weight) OR (l_update_volume) OR (l_update_units) THEN
1526: UPDATE mtl_item_locations
1527: SET
1528: location_suggested_units = l_upd_loc_suggested_units,
1529: location_available_units = l_upd_loc_available_units,
1530: suggested_weight = l_upd_loc_suggested_weight,
1781: SELECT physical_location_id ,
1782: inventory_location_id
1783: INTO l_physical_locator_id,
1784: l_locator_id
1785: FROM mtl_item_locations
1786: WHERE inventory_location_id =p_inventory_location_id
1787: and organization_id = p_organization_id;
1788:
1789: IF l_physical_locator_id is null THEN
1796: ############# If the locator capacity is infinite, then dont update anything, simply return#############
1797: */
1798: SELECT location_maximum_units, max_weight, max_cubic_area
1799: INTO l_max_units, l_max_weight, l_max_cubic_area
1800: FROM mtl_item_locations_kfv
1801: WHERE organization_id = p_organization_id
1802: AND inventory_location_id = l_inventory_location_id;
1803:
1804: IF l_max_units IS NULL AND l_max_weight IS NULL AND l_max_cubic_area IS NULL THEN
1814: LOOP
1815: BEGIN
1816:
1817: SELECT inventory_location_id INTO l_inventory_location_id
1818: FROM mtl_item_locations
1819: WHERE inventory_location_id = l_inventory_location_id
1820: AND organization_id = p_organization_id
1821: FOR UPDATE NOWAIT;
1822:
1848:
1849: -- ensure that the input quantity (p_quantity) is always positive regardless whether
1850: -- issue or receipt
1851: l_quantity :=Abs(p_quantity);
1852: -- select necessary data from mtl_system_items and mtl_item_locations
1853: select
1854: primary_uom_code,
1855: weight_uom_code,
1856: unit_weight,
1895: l_max_cubic_area,
1896: l_current_cubic_area,
1897: l_suggested_cubic_area,
1898: l_available_cubic_area
1899: from mtl_item_locations
1900: where organization_id = p_organization_id
1901: and inventory_location_id = l_inventory_location_id;
1902:
1903: -- Convert transaction quantity into primary quantity (l_primary_quantity) if needed
2082: l_upd_loc_suggested_units := l_suggested_units;
2083: l_upd_loc_available_units := l_available_units;
2084: END IF;
2085:
2086: -- Now we update the table MTL_ITEM_LOCATIONS
2087: IF (l_update_weight) OR (l_update_volume) OR (l_update_units) THEN
2088: UPDATE mtl_item_locations
2089: SET
2090: location_suggested_units = l_upd_loc_suggested_units,
2084: END IF;
2085:
2086: -- Now we update the table MTL_ITEM_LOCATIONS
2087: IF (l_update_weight) OR (l_update_volume) OR (l_update_units) THEN
2088: UPDATE mtl_item_locations
2089: SET
2090: location_suggested_units = l_upd_loc_suggested_units,
2091: location_available_units = l_upd_loc_available_units,
2092: suggested_weight = l_upd_loc_suggested_weight,
2522: volume_uom_code,
2523: location_maximum_units,
2524: max_weight,
2525: max_cubic_area
2526: from mtl_item_locations
2527: where organization_id = p_organization_id
2528: AND subinventory_code = nvl(p_subinventory,subinventory_code)
2529: --Bug #3949621 (Changed the query, because for PJM Orgs, Physical Location Id won't be null)
2530: AND nvl(physical_location_id,inventory_location_id) = nvl(p_locator_id ,nvl(physical_location_id,inventory_location_id) );
2547: --moq.lpn_id lpn_id,
2548: wlpn.outermost_lpn_id lpn_id,
2549: TO_NUMBER(NULL) transaction_status
2550: FROM MTL_ONHAND_QUANTITIES_DETAIL MOQ,
2551: mtl_item_locations mil,
2552: wms_license_plate_numbers wlpn
2553: WHERE moq.locator_id = mil.inventory_location_id
2554: AND mil.organization_id = moq.organization_id
2555: AND mil.subinventory_code = moq.subinventory_code
2577: , mmtt.content_lpn_id content_lpn_id
2578: , mmtt.lpn_id lpn_id
2579: , transaction_status transaction_status
2580: FROM mtl_material_transactions_temp mmtt,
2581: mtl_item_locations mil
2582: WHERE mmtt.locator_id = mil.inventory_location_id
2583: AND mil.organization_id = mmtt.organization_id
2584: AND mil.subinventory_code = mmtt.subinventory_code
2585: AND nvl(mil.physical_location_id,mil.inventory_location_id) = l_locator_id
2609: , mmtt.content_lpn_id content_lpn_id
2610: , mmtt.lpn_id lpn_id
2611: , transaction_status transaction_status
2612: FROM mtl_material_transactions_temp mmtt,
2613: mtl_item_locations mil
2614: WHERE mmtt.transfer_to_location = mil.inventory_location_id
2615: AND mil.organization_id = mmtt.organization_id
2616: AND mil.subinventory_code = mmtt.transfer_subinventory--bug 6110275 for destination locator
2617: AND nvl(mil.physical_location_id,mil.inventory_location_id) = l_locator_id
3330:
3331: l_bulk_count := c_all_locators%rowcount;
3332: -- BULK update
3333: forall i in t_locator.first..t_locator.last
3334: update mtl_item_locations
3335: set
3336: location_current_units = t_location_current_units(i)
3337: , location_suggested_units = t_location_suggested_units(i)
3338: , location_available_units = t_location_available_units(i)
3544: SELECT physical_location_id
3545: , inventory_location_id
3546: INTO l_physical_locator_id
3547: , l_loc_id
3548: FROM mtl_item_locations
3549: WHERE inventory_location_id = p_inventory_location_id
3550: AND organization_id = p_organization_id;
3551:
3552: /*---------------------------------------------------------------------------------------------
3614: , l_locator_maximum_units
3615: , l_locator_current_units
3616: , l_locator_available_units
3617: , l_locator_suggested_units
3618: FROM MTL_ITEM_LOCATIONS
3619: WHERE organization_id = p_organization_id
3620: AND inventory_location_id = p_inventory_location_id;
3621:
3622: /*------------------------------------------------------------------------------------------
4404: IF (l_debug = 1) THEN
4405: mdebug(l_proc_name||'issue transaction is successful ');
4406: END IF;
4407:
4408: UPDATE MTL_ITEM_LOCATIONS mil
4409: SET current_weight = nvl(l_locator_current_weight,current_weight)
4410: , available_weight = nvl(l_locator_available_weight,available_weight)
4411: , current_cubic_area = nvl(l_locator_current_cubic_area,current_cubic_area)
4412: , available_cubic_area = nvl(l_locator_available_cubic_area,available_cubic_area)
4512: IF l_locator_available_cubic_area <0 THEN
4513: l_locator_available_cubic_area := 0;
4514: END IF;
4515:
4516: UPDATE MTL_ITEM_LOCATIONS
4517: SET current_weight = nvl(l_locator_current_weight,current_weight)
4518: , available_weight = nvl(l_locator_available_weight,available_weight)
4519: , current_cubic_area = nvl(l_locator_current_cubic_area,current_cubic_area)
4520: , available_cubic_area = nvl(l_locator_available_cubic_area,available_cubic_area)
4609: mdebug('Before locking source locator ' || l_old_inventory_location_id || ' in UPD_LPN_LOC_CPTY_FOR_XFR');
4610: END IF;
4611:
4612: SELECT inventory_location_id INTO l_old_inventory_location_id
4613: FROM mtl_item_locations
4614: WHERE inventory_location_id = l_old_inventory_location_id
4615: and organization_id = l_old_organization_id
4616: FOR UPDATE NOWAIT;
4617:
4923: END IF;
4924: END IF;
4925:
4926: IF l_update_table THEN
4927: UPDATE MTL_ITEM_LOCATIONS
4928: SET current_weight = nvl(l_old_loc_current_weight,current_weight)
4929: , available_weight = nvl(l_old_loc_available_weight,available_weight)
4930: , current_cubic_area = nvl(l_old_loc_current_vol,current_cubic_area)
4931: , available_cubic_area = nvl(l_old_loc_available_vol,available_cubic_area)
5021: IF l_loc_available_vol < 0 THEN
5022: l_loc_available_vol := 0;
5023: END IF;
5024:
5025: UPDATE MTL_ITEM_LOCATIONS
5026: SET current_weight = nvl(l_loc_current_weight,current_weight)
5027: , available_weight = nvl(l_loc_available_weight,available_weight)
5028: , current_cubic_area = nvl(l_loc_current_vol,current_cubic_area)
5029: , available_cubic_area = nvl(l_loc_available_vol,available_cubic_area)
5142: IF l_locator_available_cubic_area < 0 THEN
5143: l_locator_available_cubic_area := 0;
5144: END IF;
5145:
5146: UPDATE MTL_ITEM_LOCATIONS
5147: SET current_cubic_area = nvl(l_locator_current_cubic_area,current_cubic_area)
5148: , available_cubic_area = nvl(l_locator_available_cubic_area,available_cubic_area)
5149: , current_weight = nvl(l_locator_current_weight,current_weight)
5150: , available_weight = nvl(l_locator_available_weight,available_weight)
5315: IF l_locator_available_cubic_area < 0 THEN
5316: l_locator_available_cubic_area := 0;
5317: END IF;
5318:
5319: UPDATE MTL_ITEM_LOCATIONS
5320: SET current_cubic_area = nvl(l_locator_current_cubic_area,current_cubic_area)
5321: , available_cubic_area = nvl(l_locator_available_cubic_area,available_cubic_area)
5322: , current_weight = nvl(l_locator_current_weight,current_weight)
5323: , available_weight = nvl(l_locator_available_weight,available_weight)
5398: ############# If the locator capacity is infinite, then dont update anything, simply return#############
5399: */
5400: SELECT location_maximum_units, max_weight, max_cubic_area
5401: INTO l_max_units, l_max_weight, l_max_cubic_area
5402: FROM mtl_item_locations_kfv
5403: WHERE organization_id = p_organization_id
5404: AND inventory_location_id = l_inventory_location_id;
5405:
5406: IF l_max_units IS NULL AND l_max_weight IS NULL AND l_max_cubic_area IS NULL AND p_transaction_action_id NOT IN (2,3,28) THEN
5413: );
5414:
5415: SELECT location_maximum_units, max_weight, max_cubic_area
5416: INTO l_max_units, l_max_weight, l_max_cubic_area
5417: FROM mtl_item_locations_kfv
5418: WHERE organization_id = p_from_org_id
5419: AND inventory_location_id = l_from_inventory_location_id;
5420:
5421: IF l_max_units IS NULL AND l_max_weight IS NULL AND l_max_cubic_area IS NULL THEN /* If from locator is infinite */
5429: mdebug('Before locking locator ' || l_inventory_location_id || ' in UPD_LPN_LOC_CURR_CPTY_NOAUTO');
5430: END IF;
5431:
5432: SELECT inventory_location_id INTO l_inventory_location_id
5433: FROM mtl_item_locations
5434: WHERE inventory_location_id = l_inventory_location_id
5435: and organization_id = p_organization_id
5436: FOR UPDATE NOWAIT;
5437:
6869: SELECT physical_location_id ,
6870: inventory_location_id
6871: INTO l_physical_locator_id,
6872: l_loc_id
6873: FROM mtl_item_locations
6874: WHERE inventory_location_id = p_inventory_location_id
6875: and organization_id = p_organization_id;
6876:
6877: IF l_physical_locator_id is null THEN
6885: mdebug('Before locking locator ' || l_inventory_location_id || ' in LOC_EMPTY_MIXED_FLAG(1)');
6886: END IF;
6887:
6888: SELECT inventory_location_id INTO l_inventory_location_id
6889: FROM mtl_item_locations
6890: WHERE inventory_location_id = l_inventory_location_id
6891: and organization_id = p_organization_id
6892: FOR UPDATE NOWAIT;
6893:
6970: SELECT physical_location_id ,
6971: inventory_location_id
6972: INTO l_des_physical_locator_id,
6973: l_des_loc_id
6974: FROM mtl_item_locations
6975: WHERE inventory_location_id = p_transfer_location_id
6976: and organization_id = p_transfer_organization;
6977:
6978: IF l_des_physical_locator_id is null THEN
6986: mdebug('Before locking destination locator ' || l_des_inventory_location_id || ' in LOC_EMPTY_MIXED_FLAG(2)');
6987: END IF;
6988:
6989: SELECT inventory_location_id INTO l_des_inventory_location_id
6990: FROM mtl_item_locations
6991: WHERE inventory_location_id = l_des_inventory_location_id
6992: and organization_id = p_transfer_organization
6993: FOR UPDATE NOWAIT;
6994:
7029: INV_TRX_UTIL_PUB.TRACE('The values of Mixed_Flag is '||l_mixed_flag , 'LOC_EMPTY_MIXED_FLAG',10);
7030: INV_TRX_UTIL_PUB.TRACE('The values of Item ID is '||l_item_id , 'LOC_EMPTY_MIXED_FLAG',10);
7031: END IF;
7032:
7033: UPDATE MTL_ITEM_LOCATIONS mil
7034: SET EMPTY_FLAG = nvl(l_empty_flag,mil.empty_flag)
7035: , MIXED_ITEMS_FLAG = nvl(l_mixed_flag,mil.mixed_items_flag)
7036: , INVENTORY_ITEM_ID = nvl(l_item_id,mil.inventory_item_id)
7037: , LAST_UPDATE_DATE = sysdate /* Added for Bug 6363028 */
7078:
7079: --Bug#2756609. Should update empty_flag and mixed_items_flag only if
7080: --the values passed are not null.
7081:
7082: UPDATE MTL_ITEM_LOCATIONS MIL
7083: SET EMPTY_FLAG = NVL(l_empty_flag,MIL.empty_flag)
7084: , MIXED_ITEMS_FLAG = NVL(l_mixed_flag,MIL.mixed_items_flag)
7085: , INVENTORY_ITEM_ID = NVL(l_item_id,MIL.inventory_item_id)
7086: , LAST_UPDATE_DATE = sysdate /* Added for Bug 6363028 */
7181: l_loc_suggested_units,
7182: l_mixed_flag,
7183: l_inventory_item_id,
7184: l_empty_flag
7185: FROM MTL_ITEM_LOCATIONS
7186: WHERE INVENTORY_LOCATION_ID = p_locator_id
7187: AND ORGANIZATION_ID = P_ORG_ID;
7188:
7189: IF ((nvl(l_loc_current_units,0) = 0) and
7315: END IF;
7316: --Added to get subinventory bug3237709
7317: SELECT subinventory_code
7318: INTO l_subinventory_code
7319: FROM mtl_item_locations
7320: WHERE inventory_location_id = p_locator_id
7321: and organization_id = p_org_id;
7322:
7323: BEGIN
7411: MMTT.transfer_lpn_id,
7412: MMTT.content_lpn_id,
7413: MMTT.lpn_id
7414: FROM MTL_MATERIAL_TRANSACTIONS_TEMP MMTT,
7415: MTL_ITEM_LOCATIONS MIL
7416: WHERE MMTT.transaction_status <> 2
7417: AND MMTT.organization_id = p_organization_id
7418: AND MMTT.LOCATOR_ID = MIL.INVENTORY_LOCATION_ID
7419: AND MIL.MIXED_ITEMS_FLAG ='Y'
7788: ,MIL.VOLUME_UOM_CODE
7789: ,null
7790: ,null),0))),0) content_volume
7791: FROM wms_license_plate_numbers WLPN,
7792: MTL_ITEM_LOCATIONS MIL
7793: WHERE MIL.INVENTORY_LOCATION_ID = WLPN.LOCATOR_ID
7794: AND WLPN.organization_id =p_organization_id
7795: AND WLPN.lpn_context =1
7796: AND WLPN.parent_lpn_id is null
7820: ,MIL.VOLUME_UOM_CODE
7821: ,null
7822: ,null),0))),0) content_volume
7823: FROM wms_license_plate_numbers WLPN,
7824: MTL_ITEM_LOCATIONS MIL
7825: WHERE WLPN.LOCATOR_ID = MIL.INVENTORY_LOCATION_ID
7826: AND WLPN.organization_id =p_organization_id
7827: AND WLPN.lpn_context =1
7828: AND WLPN.parent_lpn_id is null
7869: SELECT physical_location_id ,
7870: inventory_location_id
7871: INTO l_physical_locator_id,
7872: l_locator_id
7873: FROM mtl_item_locations
7874: WHERE inventory_location_id =l_curr_cpty.locator_id
7875: and organization_id = p_organization_id;
7876:
7877: IF l_physical_locator_id is null THEN
7900: when no_data_found then
7901: null;
7902: end;
7903:
7904: UPDATE mtl_item_locations
7905: set current_weight=nvl(current_weight,0)+l_curr_cpty.gross_weight,
7906: available_weight = max_weight-(nvl(suggested_weight,0) + nvl(current_weight,0)),
7907: current_cubic_area = nvl(current_cubic_area,0) + l_curr_cpty.content_volume,
7908: available_cubic_area = max_cubic_area -(nvl(suggested_cubic_area,0)+nvl(current_cubic_area,0)),
7935: SELECT physical_location_id ,
7936: inventory_location_id
7937: INTO l_physical_locator_id,
7938: l_locator_id
7939: FROM mtl_item_locations
7940: WHERE inventory_location_id =l_curr_cpty.locator_id
7941: and organization_id = p_organization_id;
7942:
7943: IF l_physical_locator_id is null THEN
7966: when no_data_found then
7967: null;
7968: end;
7969:
7970: UPDATE mtl_item_locations
7971: set current_weight=nvl(current_weight,0)+l_curr_cpty.gross_weight,
7972: available_weight = max_weight-(nvl(suggested_weight,0) + nvl(current_weight,0)),
7973: current_cubic_area = nvl(current_cubic_area,0) + l_curr_cpty.content_volume,
7974: available_cubic_area = max_cubic_area -(nvl(suggested_cubic_area,0)+nvl(current_cubic_area,0)),
8077: SELECT physical_location_id,
8078: inventory_location_id
8079: INTO l_physical_locator_id,
8080: l_locator_id
8081: FROM mtl_item_locations
8082: WHERE inventory_location_id = p_locator_id
8083: and organization_id = p_org_id;
8084:
8085: IF (l_debug = 1) THEN
8134: l_mixed_flag := 'N';
8135: END;
8136:
8137: --Update the empty flag/mixed flag
8138: UPDATE mtl_item_locations mil
8139: SET empty_flag = NVL(l_empty_flag,mil.empty_flag)
8140: , mixed_items_flag = NVL(l_mixed_flag,mil.mixed_items_flag)
8141: , last_update_date = sysdate /* Added for Bug 6363028 */
8142: WHERE inventory_location_id = l_locator_id