The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_update_location_info (
x_location_code IN VARCHAR2,
x_business_grp_name IN VARCHAR2,
x_effective_date IN DATE,
x_description IN VARCHAR2,
x_address_style IN VARCHAR2,
x_address_line_1 IN VARCHAR2,
x_address_line_2 IN VARCHAR2,
x_address_line_3 IN VARCHAR2,
x_city IN VARCHAR2,
x_state IN VARCHAR2,
x_county IN VARCHAR2,
x_country IN VARCHAR2,
x_postal_code IN VARCHAR2,
x_telephone_number_1 IN VARCHAR2,
x_telephone_number_2 IN VARCHAR2,
x_shipToLocation IN VARCHAR2,
x_ship_to_flag IN VARCHAR2,
x_bill_to_flag IN VARCHAR2,
x_receiving_site IN VARCHAR2,
x_office_site_flag IN VARCHAR2,
x_inv_org IN VARCHAR2,
x_tax_name IN VARCHAR2)
IS
l_location_id NUMBER;
select org_id into l_operating_unit_id from financials_system_parameters;
hr_location_api.update_location(
p_location_code => x_location_code,
p_effective_date => x_effective_date,
p_description => x_description,
p_address_line_1 => x_address_line_1,
p_address_line_2 => x_address_line_2,
p_address_line_3 => x_address_line_3,
p_country => l_country_code,
p_town_or_city => x_city,
p_region_2 => x_state,
p_region_1 => x_county,
p_postal_code => x_postal_code,
p_telephone_number_1 => x_telephone_number_1,
p_telephone_number_2 => x_telephone_number_2,
p_style => l_address_style_code,
p_ship_to_site_flag => x_ship_to_flag,
p_ship_to_location_id => l_ship_to_loc_id,
p_bill_to_site_flag => x_bill_to_flag,
p_receiving_site_flag => x_receiving_site,
p_office_site_flag => x_office_site_flag,
p_inventory_organization_id => l_inventory_org_id,
p_operating_unit_id => l_operating_unit_id,
p_tax_name => x_tax_name,
p_location_id => l_location_id,
p_object_version_number => l_object_version_number) ;
END insert_update_location_info;
SELECT 1 INTO l_count
FROM hr_locations_all
WHERE location_code = p_location_code AND business_group_id = l_business_grp_id;
SELECT business_group_id INTO l_business_group_id
FROM per_business_groups
WHERE name = p_business_group_name;
SELECT location_id, object_version_number
INTO p_location_id, p_object_version_number
FROM hr_locations_all
WHERE location_code = p_location_code;
SELECT HOU.organization_id
INTO l_organization_id
FROM HR_ORGANIZATION_UNITS HOU,
HR_ORGANIZATION_INFORMATION HOI1,
HR_ORGANIZATION_INFORMATION HOI2,
MTL_PARAMETERS MP,
GL_SETS_OF_BOOKS GSOB
WHERE HOU.ORGANIZATION_ID = HOI1.ORGANIZATION_ID
AND HOU.ORGANIZATION_ID = HOI2.ORGANIZATION_ID
AND HOU.ORGANIZATION_ID = MP.ORGANIZATION_ID
AND HOI1.ORG_INFORMATION1 = 'INV'
AND HOI1.ORG_INFORMATION2 = 'Y'
AND ( HOI1.ORG_INFORMATION_CONTEXT || '') = 'CLASS'
AND ( HOI2.ORG_INFORMATION_CONTEXT || '') ='Accounting Information'
AND HOI2.ORG_INFORMATION1 = TO_CHAR(GSOB.SET_OF_BOOKS_ID)
AND HOU.NAME = p_organization_name;
SELECT location_id INTO l_location_id
FROM hr_locations_all
WHERE location_code = p_location_code;
SELECT descriptive_flex_context_code INTO l_address_style_code
FROM fnd_descr_flex_contexts_vl
WHERE descriptive_flexfield_name = 'Address Location'
AND enabled_flag = 'Y'
AND descriptive_flex_context_code not in ('Global Data Elements')
AND (hr_general.chk_geocodes_installed = 'Y' or
descriptive_flex_context_code not in ('CA','US'))
AND descriptive_flex_context_name = p_address_style;
SELECT territory_code INTO l_country_code
FROM fnd_territories_vl
WHERE territory_short_name = p_country_name;