The following lines contain the word 'select', 'insert', 'update' or 'delete':
,x_create_update OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_inventory_item_id NUMBER;
l_create_update VARCHAR2(1);
SELECT 'Y', INVENTORY_ITEM_ID, LAST_VLD_ORGANIZATION_ID, SERIAL_NUMBER, INSTANCE_NUMBER,NETWORK_ASSET_FLAG
INTO l_exists, l_inventory_item_id, l_organization_id,l_serial_number, l_instance_number,l_network_asset_flag
FROM CSI_ITEM_INSTANCES
WHERE INSTANCE_ID = p_instance_id;
SELECT Nvl((SELECT 'EAM'
From MFG_LOOKUPS ml1, MTL_SYSTEM_ITEMS_B_KFV msi,csi_item_instances cii
where
msi.inventory_item_id = cii.inventory_item_id
AND cii.last_vld_organization_id=msi.organization_id
AND (cii.active_start_date IS NULL OR (cii.active_start_date <= sysdate))
AND (cii.active_end_date IS NULL OR (cii.active_end_date >= sysdate))
AND ml1.lookup_type = 'EAM_ITEM_TYPE'
AND msi.eam_item_type = ml1.lookup_code
AND NVL(cii.maintainable_flag,'Y') = 'Y'
AND cii.instance_id = p_instance_id
),'CSE' )
INTO l_instance_type
FROM DUAL;
SELECT EAM_ITEM_TYPE,SERIAL_NUMBER_CONTROL_CODE
INTO l_csi_item_type,l_serial_number_control_code
FROM MTL_SYSTEM_ITEMS_B_KFV
WHERE INVENTORY_ITEM_ID = l_inventory_item_id
AND ORGANIZATION_ID = l_organization_id;
SELECT 'U'
INTO l_create_update
FROM CSI_II_GEOLOCATIONS
WHERE INSTANCE_ID = p_instance_id;
l_create_update := 'C';
x_create_update := l_create_update;
SELECT decode(substr(l_value,l_length),'N','N','S','S','E','E','W','W','A')
INTO l_direction
FROM DUAL;
SELECT decode(substr(l_value,1,1),'+','+','-','-','+')
INTO l_sign
FROM DUAL;
SELECT to_number(nvl(substr(l_value,1,l_d_pos-1),-1))
INTO l_degrees
FROM DUAL;
SELECT to_number(nvl(substr(l_value,l_d_pos+1,(l_m_pos-l_d_pos-1)),-1))
INTO l_minutes
FROM DUAL;
SELECT to_number(nvl(substr(l_value,l_m_pos+1,(l_s_pos-l_m_pos-1)),-1))
INTO l_seconds
FROM DUAL;
SELECT decode(substr(l_latitude,1,1),'+','+','-','-','+'),decode(substr(l_longitude,1,1),'+','+','-','-','+')
INTO l_latitude_sign,l_longitude_sign
FROM DUAL;
SELECT decode(substr(l_latitude,l_latitude_length),'N','N','S','S','E','E','W','W','A')
,decode(substr(l_longitude,l_longitude_length),'N','N','S','S','E','E','W','W','A')
INTO l_latitude_direction
,l_longitude_direction
FROM DUAL;
SELECT to_number(l_latitude)
INTO l_latitude_value
FROM DUAL;
SELECT to_number(l_longitude)
INTO l_longitude_value
FROM DUAL;