The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT to_char(hz_party_number_s.nextval)
INTO l_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_PERSON (
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_location_id IN NUMBER,
p_status IN VARCHAR2,
p_person_pre_name_adjunct IN VARCHAR2,
p_person_first_name IN VARCHAR2,
p_person_middle_name IN VARCHAR2,
p_person_last_name IN VARCHAR2,
p_ssn IN VARCHAR2,
p_date_of_birth IN DATE,
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_country_code IN VARCHAR2,
p_party_object_version_number IN NUMBER,
p_loc_object_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_party_object_version_number NUMBER := p_party_object_version_number;
SAVEPOINT Update_Person_Pvt;
Hz_Party_V2pub.Update_Person
(
p_init_msg_list => FND_API.g_false,
p_person_rec => l_person_rec,
p_party_object_version_number => l_party_object_version_number,
x_profile_id => x_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_loc_object_version_number,
X_RETURN_STATUS => X_RETURN_STATUS,
X_MSG_COUNT => X_MSG_COUNT,
X_MSG_DATA => X_MSG_DATA
);
ROLLBACK TO Update_Person_Pvt;
ROLLBACK TO Update_Person_Pvt;
p_procedure_name => 'UPDATE_PERSON',
p_error_text => SUBSTRB(SQLERRM,1,240));
END UPDATE_PERSON;
select territory_code
into l_country_code
from fnd_territories_vl
where upper(territory_short_name) = upper(p_country_name);