The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT territory_code
INTO l_country_code
FROM fnd_territories_vl
WHERE territory_short_name = p_country_name;
SELECT to_char(hz_party_number_s.nextval)
INTO l_organization_rec.party_rec.party_number
FROM dual;
SELECT to_char(hz_party_site_number_s.nextval)
INTO l_party_site_rec.party_site_number
FROM dual;
PROCEDURE Update_Organization
(
p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
p_commit IN VARCHAR2 := Fnd_Api.G_False,
p_party_id IN NUMBER,
p_party_version IN NUMBER,
p_location_id IN NUMBER,
p_location_version IN NUMBER,
p_organization_name IN VARCHAR2,
p_address1 IN VARCHAR2,
p_address2 IN VARCHAR2,
p_address3 IN VARCHAR2,
p_city IN VARCHAR2,
p_state IN VARCHAR2,
p_postal_code IN VARCHAR2,
p_county IN VARCHAR2,
p_country_name IN VARCHAR2,
p_active_flag IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Organization';
SAVEPOINT Update_Organization_Pvt;
Hz_Party_V2pub.Update_Organization
(
p_init_msg_list => Fnd_Api.G_False,
p_organization_rec => l_organization_rec,
p_party_object_version_number => l_party_version,
x_profile_id => l_profile_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
Hz_Location_V2pub.Update_Location
(
p_init_msg_list => Fnd_Api.G_False,
p_location_rec => l_location_rec,
p_object_version_number => l_location_version,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
ROLLBACK TO Update_Organization_Pvt;
ROLLBACK TO Update_Organization_Pvt;
ROLLBACK TO Update_Organization_Pvt;
END Update_Organization;