The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_VDU_TYPE_ID in NUMBER,
X_VDU_TYPE_NAME in VARCHAR2,
X_HARDWARE_LAYER 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 IEC_P_VDU_TYPES
where
VDU_TYPE_ID = X_VDU_TYPE_ID
and VDU_TYPE_NAME = X_VDU_TYPE_NAME
and HARDWARE_LAYER = X_HARDWARE_LAYER;
insert into IEC_P_VDU_TYPES
( VDU_TYPE_ID,
VDU_TYPE_NAME,
HARDWARE_LAYER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER )
values( X_VDU_TYPE_ID,
X_VDU_TYPE_NAME,
X_HARDWARE_LAYER,
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
VDU_TYPE_NAME,
HARDWARE_LAYER,
OBJECT_VERSION_NUMBER
from IEC_P_VDU_TYPES
where VDU_TYPE_ID = X_VDU_TYPE_ID
for update of VDU_TYPE_NAME, HARDWARE_LAYER, OBJECT_VERSION_NUMBER nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_VDU_TYPE_ID in NUMBER,
X_VDU_TYPE_NAME in VARCHAR2,
X_HARDWARE_LAYER 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 IEC_P_VDU_TYPES b
set b.LAST_UPDATED_BY = X_LAST_UPDATED_BY,
b.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
b.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
b.VDU_TYPE_NAME = X_VDU_TYPE_NAME,
b.HARDWARE_LAYER = X_HARDWARE_LAYER
where b.VDU_TYPE_ID = X_VDU_TYPE_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_VDU_TYPE_ID in NUMBER
) is
begin
delete from IEC_P_VDU_TYPES
where VDU_TYPE_ID = X_VDU_TYPE_ID;
end DELETE_ROW;
UPDATE_ROW (X_VDU_TYPE_ID, X_VDU_TYPE_NAME, X_HARDWARE_LAYER, USER_ID, SYSDATE, USER_ID, 0);
INSERT_ROW (ROW_ID, X_VDU_TYPE_ID, X_VDU_TYPE_NAME, X_HARDWARE_LAYER, USER_ID, SYSDATE, USER_ID, SYSDATE, USER_ID, 0);