The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_TERRITORY_CODE in VARCHAR2,
X_PHONE_COUNTRY_CODE in VARCHAR2,
X_AREA_CODE in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_CREATED_BY in NUMBER,
X_CREATION_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATE_LOGIN in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER
) is
cursor C is select ROWID
from HZ_PHONE_AREA_CODES
where
TERRITORY_CODE = X_TERRITORY_CODE
and AREA_CODE = X_AREA_CODE;
insert into HZ_PHONE_AREA_CODES
(TERRITORY_CODE,
PHONE_COUNTRY_CODE,
AREA_CODE,
DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER)
values
(X_TERRITORY_CODE,
X_PHONE_COUNTRY_CODE,
X_AREA_CODE,
X_DESCRIPTION,
X_CREATED_BY,
X_CREATION_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATE_LOGIN,
X_OBJECT_VERSION_NUMBER);
end INSERT_ROW;
cursor c is select
PHONE_COUNTRY_CODE,
DESCRIPTION,
OBJECT_VERSION_NUMBER
from HZ_PHONE_AREA_CODES
where TERRITORY_CODE = X_TERRITORY_CODE
and AREA_CODE = X_AREA_CODE
for update of PHONE_COUNTRY_CODE, DESCRIPTION, OBJECT_VERSION_NUMBER nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_TERRITORY_CODE in VARCHAR2,
X_PHONE_COUNTRY_CODE in VARCHAR2,
X_AREA_CODE in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATE_LOGIN in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER
) is
begin
update HZ_PHONE_AREA_CODES
set PHONE_COUNTRY_CODE = X_PHONE_COUNTRY_CODE,
DESCRIPTION = X_DESCRIPTION,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where TERRITORY_CODE = X_TERRITORY_CODE
and AREA_CODE = X_AREA_CODE;
end UPDATE_ROW;
procedure DELETE_ROW (
X_TERRITORY_CODE in VARCHAR2,
X_AREA_CODE in VARCHAR2
) is
begin
delete from HZ_PHONE_AREA_CODES
where TERRITORY_CODE = X_TERRITORY_CODE
and AREA_CODE = X_AREA_CODE;
end DELETE_ROW;
UPDATE_ROW (X_TERRITORY_CODE, X_PHONE_COUNTRY_CODE, X_AREA_CODE, X_DESCRIPTION, USER_ID, SYSDATE, USER_ID, 0);
INSERT_ROW (ROW_ID, X_TERRITORY_CODE, X_PHONE_COUNTRY_CODE, X_AREA_CODE, X_DESCRIPTION, USER_ID, SYSDATE, USER_ID, SYSDATE, USER_ID, 0);
update HZ_PHONE_AREA_CODES
set PHONE_COUNTRY_CODE = X_PHONE_COUNTRY_CODE,
DESCRIPTION = X_DESCRIPTION,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = fnd_load_util.owner_id(X_OWNER),
LAST_UPDATE_LOGIN = 0
where TERRITORY_CODE = X_TERRITORY_CODE
and AREA_CODE = X_AREA_CODE
and userenv('LANG') = ( select LANGUAGE_CODE from FND_LANGUAGES
where INSTALLED_FLAG = 'B' );