The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'VALID'
INTO l_dummy
FROM MFG_LOOKUPS
WHERE LOOKUP_TYPE = 'MTL_TXN_REQUEST_STATUS'
AND p_line_status IN (1,7)
AND LOOKUP_CODE = p_line_status;
SELECT wip_entity_name
FROM wip_entities
WHERE wip_entity_id = p_wip_entity_id
AND organization_id = p_organization_id;
SELECT concatenated_segments
FROM mtl_system_items_kfv
WHERE inventory_item_id = p_item_id
AND organization_id = p_organization_id;
SELECT nvl(stock_locator_control_code, 1)
into l_org_loc_control
from mtl_parameters
where organization_id = p_trolin_rec.organization_id;
select nvl(locator_type,3)
into l_sub_loc_control
from mtl_secondary_inventories
where organization_id = p_trolin_rec.organization_id
and secondary_inventory_name = p_trolin_rec.to_subinventory_code;
select nvl(location_control_code,1)
into l_item_loc_control
from mtl_system_items_b
where organization_id = p_trolin_rec.organization_id
and inventory_item_id = p_trolin_rec.inventory_item_id;
SELECT NVL(lpn_controlled_flag, 0), reservable_type
INTO l_sub_lpn_controlled, l_sub_reservable
FROM mtl_secondary_inventories
WHERE organization_id = p_trolin_rec.organization_id
AND secondary_inventory_name = p_trolin_rec.to_subinventory_code;
select 1
into l_dummy
from pjm_unit_numbers_lov_v
where unit_number = p_trolin_rec.unit_number;
SELECT 'Y' INTO l_found
FROM mtl_item_sub_trk_all_v
WHERE inventory_item_id = p_trolin_Rec.inventory_item_id
AND organization_id = p_trolin_rec.organization_id
AND secondary_inventory_name = p_trolin_rec.from_subinventory_code;
SELECT 'Y' INTO l_found
FROM mtl_subinventories_trk_val_v
WHERE organization_id = p_trolin_rec.organization_id
AND secondary_inventory_name = p_trolin_rec.from_subinventory_code ;
IF p_trolin_rec.last_updated_by IS NOT NULL AND
( p_trolin_rec.last_updated_by <>
p_old_trolin_rec.last_updated_by OR
p_old_trolin_rec.last_updated_by IS NULL )
THEN
IF INV_Validate.Last_Updated_By(p_trolin_rec.last_updated_by) =
INV_Validate.F
THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_trolin_rec.last_update_date IS NULL THEN
p_trolin_rec.last_update_date := SYSDATE;
IF p_trolin_rec.last_update_date IS NOT NULL AND
( p_trolin_rec.last_update_date <>
p_old_trolin_rec.last_update_date OR
p_old_trolin_rec.last_update_date IS NULL )
THEN
IF INV_Validate.Last_Update_Date(p_trolin_rec.last_update_date) =
inv_validate.f
THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_trolin_rec.last_update_login IS NOT NULL AND
( p_trolin_rec.last_update_login <>
p_old_trolin_rec.last_update_login OR
p_old_trolin_rec.last_update_login IS NULL )
THEN
IF INV_Validate.Last_Update_Login(p_trolin_rec.last_update_login) =
INV_Validate.f
THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_trolin_rec.program_update_date IS NOT NULL AND
( p_trolin_rec.program_update_date <>
p_old_trolin_rec.program_update_date OR
p_old_trolin_rec.program_update_date IS NULL )
THEN
IF
INV_Validate.Program_Update_Date(p_trolin_rec.program_update_date)
= inv_validate.F THEN
x_return_status := FND_API.G_RET_STS_ERROR;
SELECT move_order_type INTO l_mov_order_type
FROM mtl_txn_request_headers
WHERE header_id=p_trolin_rec.header_id;
SELECT ORG.CHART_OF_ACCOUNTS_ID
INTO l_chart_of_accounts_id
FROM ORG_ORGANIZATION_DEFINITIONS ORG
WHERE ORG.ORGANIZATION_ID = inv_validate_trohdr.g_org.organization_id;
SELECT 'Y' INTO l_found
FROM mtl_secondary_inventories sec, mtl_item_sub_inventories item
WHERE item.inventory_item_id = p_trolin_rec.inventory_item_id
AND sec.organization_id = p_trolin_Rec.organization_id
AND sec.secondary_inventory_name = p_trolin_rec.to_subinventory_code
AND sec.organization_id = item.organization_id
AND sec.secondary_inventory_name = item.secondary_inventory;
SELECT 'Y' INTO l_found
FROM mtl_secondary_inventories
WHERE organization_id = p_trolin_rec.organization_id
AND secondary_inventory_name = p_trolin_rec.to_subinventory_code
AND nvl(disable_date, SYSDATE+1) > SYSDATE;
SELECT 'EXISTS'
INTO l_temp
FROM MTL_ITEM_LOCATIONS
WHERE INVENTORY_LOCATION_ID = l_combination_id
AND ORGANIZATION_ID = inv_validate_trohdr.g_org.organization_id
AND SUBINVENTORY_CODE = g_to_sub.secondary_inventory_name;
UPDATE mtl_item_locations
SET SUBINVENTORY_CODE = g_to_sub.secondary_inventory_name
WHERE INVENTORY_LOCATION_ID = l_combination_id
AND ORGANIZATION_ID = inv_validate_trohdr.g_org.organization_id
AND SUBINVENTORY_CODE = NULL;
SELECT PROJECT_ID,TASK_ID
INTO l_project_id, l_task_id
FROM MTL_ITEM_LOCATIONS
WHERE INVENTORY_LOCATION_ID = l_combination_id
AND ORGANIZATION_ID =inv_validate_trohdr.g_org.organization_id;
SELECT PROJECT_ID
INTO l_project_id_mil
FROM MTL_ITEM_LOCATIONS
WHERE INVENTORY_LOCATION_ID = g_to_locator.inventory_location_id
AND ORGANIZATION_ID = p_trolin_rec.organization_id;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, p_trolin_rec IN INV_Move_Order_PUB.Trolin_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Entity_Delete');
END Entity_Delete;