The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* Select the ship-to location associated with a given
** deliver-to location.
*/
begin
SELECT ship_to_location_id
INTO X_ship_to_loc_id
FROM hr_locations_all
WHERE location_id = X_deliver_to_loc_id;
SELECT location_id
INTO X_ship_to_loc_id
FROM hz_locations
WHERE location_id = X_deliver_to_loc_id;
SELECT location_id
INTO X_location_id_v
FROM hr_locations_all
WHERE location_id = X_ship_to_loc_id
AND sysdate < nvl(inactive_date, sysdate + 1);
SELECT location_id
INTO X_location_id_v
FROM hz_locations
WHERE location_id = X_ship_to_loc_id
AND sysdate < nvl(address_expiration_date, sysdate + 1);
SELECT 'location_ok'
INTO x_status
FROM HR_LOCATIONS_ALL
WHERE LOCATION_ID = x_location_id
AND NVL(INVENTORY_ORGANIZATION_ID, x_organization_id) = x_organization_id
AND NVL(INACTIVE_DATE, SYSDATE+1) > SYSDATE;
SELECT 'location_ok'
INTO x_status
FROM HZ_LOCATIONS
WHERE LOCATION_ID = x_location_id
AND NVL(ADDRESS_EXPIRATION_DATE, SYSDATE+1) > SYSDATE;
select location_code,
inventory_organization_id
into X_loc_dsp,
X_org_id
from hr_locations
where location_id = X_temp_loc_id;
select (substrb(rtrim(address1)||'-'||rtrim(city),1,20)) location_code ,
null
into X_loc_dsp,
x_org_id
from hz_locations
where location_id = X_temp_loc_id;
SELECT hrl.inventory_organization_id
INTO x_org_id
FROM hr_locations hrl,
org_organization_definitions ood
WHERE ood.organization_id = hrl.inventory_organization_id
AND ood.set_of_books_id = x_sob_id
AND hrl.location_id = x_location_id;
SELECT ood.organization_name,
ood.organization_code
INTO x_org_name,
X_org_code
FROM org_organization_definitions ood
WHERE ood.organization_id = x_org_id;
SELECT count(1)
INTO X_number_of_inv_dest
FROM po_distributions pd
WHERE pd.line_location_id = X_line_location_id
AND pd.destination_type_code = 'INVENTORY';
SELECT count(1)
INTO X_number_of_inv_dest
FROM rcv_shipment_lines rsl
WHERE rsl.shipment_line_id = X_shipment_line_id
AND rsl.destination_type_code = 'INVENTORY';
SELECT hrl.location_code
INTO x_location_code
FROM hr_locations hrl
WHERE hrl.location_id = x_location_id;
SELECT 'Y'
INTO X_valid_loc
FROM HR_LOCATIONS_ALL
WHERE LOCATION_ID = x_location_id
AND NVL(SHIP_TO_SITE_FLAG,'N') = 'Y'
AND NVL(INVENTORY_ORGANIZATION_ID, X_organization_id) = X_organization_id
AND NVL(INACTIVE_DATE, SYSDATE+1) > SYSDATE;
SELECT 'Y'
INTO X_valid_loc
FROM HZ_LOCATIONS
WHERE LOCATION_ID = x_location_id
AND NVL(ADDRESS_EXPIRATION_DATE, SYSDATE+1) > SYSDATE;
SELECT 'Y'
INTO X_valid_loc
FROM HR_LOCATIONS_ALL
WHERE LOCATION_ID = x_location_id
AND NVL(RECEIVING_SITE_FLAG,'N') = 'Y'
AND NVL(INVENTORY_ORGANIZATION_ID, X_organization_id) = X_organization_id
AND NVL(INACTIVE_DATE, SYSDATE+1) > SYSDATE;
SELECT 'Y'
INTO X_valid_loc
FROM HZ_LOCATIONS
WHERE LOCATION_ID = x_location_id
AND NVL(ADDRESS_EXPIRATION_DATE, SYSDATE+1) > SYSDATE;
sql_str := 'SELECT location_code, location_id FROM hr_locations WHERE ';
sql_str := 'SELECT (substrb(rtrim(address1)||' || '''-'''||
'||rtrim(city),1,20)) location_code, location_id '||
'FROM hz_locations WHERE ';
X_sql_str := 'select inactive_date,receiving_site_flag,inventory_organization_id from hr_locations where ';
X_sql_str := 'select address_expiration_date from hz_locations where ';
(PERWSLOC) to validate any locations that can be deleted
from the database. It checks for any location that is
currently in use in the PO, RCV, CHV base tables
==========================================================================*/
PROCEDURE PO_PREDEL_VALIDATION (p_location_id IN NUMBER) IS
v_delete_allowed VARCHAR2(1);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_AGENTS
WHERE location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_CONTROL_RULES
WHERE location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_DISTRIBUTIONS_ALL
WHERE deliver_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_DISTRIBUTIONS_ARCHIVE_ALL
WHERE deliver_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_DISTRIBUTIONS_INTERFACE
WHERE deliver_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_HEADERS_ALL
WHERE ship_to_location_id = p_location_id
OR bill_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_HEADERS_ARCHIVE_ALL
WHERE ship_to_location_id = p_location_id
OR bill_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_HEADERS_INTERFACE
WHERE ship_to_location_id = p_location_id
OR bill_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_LINES_INTERFACE
WHERE ship_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_LINE_LOCATIONS_ALL
WHERE ship_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_LINE_LOCATIONS_ARCHIVE_ALL
WHERE ship_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_LOCATION_ASSOCIATIONS
WHERE location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_REQUISITIONS_INTERFACE_ALL
WHERE deliver_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_REQUISITION_LINES_ALL
WHERE deliver_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_VENDORS
WHERE ship_to_location_id = p_location_id
OR bill_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM PO_VENDOR_SITES_ALL
WHERE ship_to_location_id = p_location_id
OR bill_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM RCV_HEADERS_INTERFACE
WHERE location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM RCV_SHIPMENT_HEADERS
WHERE ship_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM RCV_SHIPMENT_LINES
WHERE ship_to_location_id = p_location_id
OR deliver_to_location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM RCV_SUPPLY
WHERE location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM RCV_TRANSACTIONS
WHERE deliver_to_location_id = p_location_id
OR location_id = p_location_id
);
SELECT 'Y'
INTO v_delete_allowed
FROM sys.dual
WHERE NOT EXISTS (
SELECT null
FROM RCV_TRANSACTIONS_INTERFACE
WHERE ship_to_location_id = p_location_id
OR deliver_to_location_id = p_location_id
OR location_id = p_location_id
);