The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_status
( p_api_version_number IN NUMBER
, p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
, p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_object_type IN VARCHAR2
, p_status_rec IN INV_MATERIAL_STATUS_PUB.mtl_status_update_rec_type
) IS
l_api_version_number CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30):= 'UPDATE_STATUS';
l_status_rec INV_MATERIAL_STATUS_PUB.mtl_status_update_rec_type;
update mtl_secondary_inventories
set status_id = l_status_rec.status_id
, last_updated_by = l_status_rec.last_updated_by
, last_update_date = l_status_rec.last_update_date
, last_update_login = l_status_rec.last_update_login
where organization_id = l_status_rec.organization_id
and secondary_inventory_name = l_status_rec.zone_code;
update mtl_item_locations
set status_id = l_status_rec.status_id
, last_updated_by = l_status_rec.last_updated_by
, last_update_date = l_status_rec.last_update_date
, last_update_login = l_status_rec.last_update_login
where organization_id = l_status_rec.organization_id
and inventory_location_id = l_status_rec.locator_id;
update mtl_lot_numbers
set status_id = l_status_rec.status_id
, last_updated_by = l_status_rec.last_updated_by
, last_update_date = l_status_rec.last_update_date
, last_update_login = l_status_rec.last_update_login
where organization_id = l_status_rec.organization_id
and inventory_item_id = l_status_rec.inventory_item_id
and lot_number = l_status_rec.lot_number;
update mtl_serial_numbers
set status_id = l_status_rec.status_id
, last_updated_by = l_status_rec.last_updated_by
, last_update_date = l_status_rec.last_update_date
, last_update_login = l_status_rec.last_update_login
where current_organization_id = l_status_rec.organization_id
and inventory_item_id = l_status_rec.inventory_item_id
and serial_number = l_status_rec.serial_number;
update mtl_serial_numbers
set status_id = l_status_rec.status_id
, last_updated_by = l_status_rec.last_updated_by
, last_update_date = l_status_rec.last_update_date
, last_update_login = l_status_rec.last_update_login
where current_organization_id = l_status_rec.organization_id
and inventory_item_id = l_status_rec.inventory_item_id
and serial_number > l_status_rec.serial_number and
serial_number <= l_status_rec.to_serial_number;
update mtl_onhand_quantities_detail
set status_id = l_status_rec.status_id
, last_updated_by = l_status_rec.last_updated_by
, last_update_date = l_status_rec.last_update_date
, last_update_login = l_status_rec.last_update_login
where inventory_item_id = l_status_rec.inventory_item_id
and organization_id = l_status_rec.organization_id
and subinventory_code = l_status_rec.zone_code
and nvl(lot_number, '@@@@') = nvl(l_status_rec.lot_number, '@@@@')
and nvl(locator_id, -9999) = nvl(l_status_rec.locator_id, -9999)
and nvl(lpn_id, -9999) = nvl(l_status_rec.lpn_id, -9999);
INV_MATERIAL_STATUS_PKG.Insert_status_history(p_status_rec);
END update_status;