The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in OUT NOCOPY VARCHAR2,
X_EXP_TEMPLATE_ID in NUMBER,
X_SET_CLAUSE in VARCHAR2,
X_EXPORT_TYPE in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_TEMPLATE_NAME in VARCHAR2,
X_SEEDED_SELECT_CLAUSE in LONG,
X_FROM_CLAUSE in VARCHAR2,
X_JOIN_CONDITION in VARCHAR2,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
insert into AMS_EXP_TEMPLATE (
SET_CLAUSE,
EXPORT_TYPE,
EXP_TEMPLATE_ID,
LAST_UPDATED_BY,
OBJECT_VERSION_NUMBER,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
CREATION_DATE,
TEMPLATE_NAME,
SEEDED_SELECT_CLAUSE,
FROM_CLAUSE,
JOIN_CONDITION
) values
(
X_SET_CLAUSE,
X_EXPORT_TYPE,
X_EXP_TEMPLATE_ID,
X_LAST_UPDATED_BY,
X_OBJECT_VERSION_NUMBER,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
X_LAST_UPDATE_DATE,
X_CREATION_DATE,
X_TEMPLATE_NAME,
X_SEEDED_SELECT_CLAUSE,
X_FROM_CLAUSE,
X_JOIN_CONDITION);
end INSERT_ROW;
X_SEEDED_SELECT_CLAUSE in LONG,
X_FROM_CLAUSE in VARCHAR2,
X_JOIN_CONDITION in VARCHAR2
) is
cursor c1 is select
SET_CLAUSE,
EXPORT_TYPE,
OBJECT_VERSION_NUMBER,
TEMPLATE_NAME,
SEEDED_SELECT_CLAUSE,
FROM_CLAUSE,
JOIN_CONDITION,
EXP_TEMPLATE_ID
from AMS_EXP_TEMPLATE
where EXP_TEMPLATE_ID = X_EXP_TEMPLATE_ID
for update of EXP_TEMPLATE_ID nowait;
AND (tlinfo.SEEDED_SELECT_CLAUSE = X_SEEDED_SELECT_CLAUSE)
AND (tlinfo.FROM_CLAUSE = X_FROM_CLAUSE)
AND (tlinfo.JOIN_CONDITION = X_JOIN_CONDITION)
) then
null;
procedure UPDATE_ROW (
X_EXP_TEMPLATE_ID in NUMBER,
X_SET_CLAUSE in VARCHAR2,
X_EXPORT_TYPE in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_TEMPLATE_NAME in VARCHAR2,
X_SEEDED_SELECT_CLAUSE in LONG,
X_FROM_CLAUSE in VARCHAR2,
X_JOIN_CONDITION in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update AMS_EXP_TEMPLATE set
SET_CLAUSE = X_SET_CLAUSE,
EXPORT_TYPE = X_EXPORT_TYPE,
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
TEMPLATE_NAME = X_TEMPLATE_NAME,
SEEDED_SELECT_CLAUSE = X_SEEDED_SELECT_CLAUSE,
FROM_CLAUSE = X_FROM_CLAUSE,
JOIN_CONDITION = X_JOIN_CONDITION,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where EXP_TEMPLATE_ID = X_EXP_TEMPLATE_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_EXP_TEMPLATE_ID in NUMBER
) is
begin
delete from AMS_EXP_TEMPLATE
where EXP_TEMPLATE_ID = X_EXP_TEMPLATE_ID;
end DELETE_ROW;
X_SEEDED_SELECT_CLAUSE in LONG,
X_FROM_CLAUSE in VARCHAR2,
X_JOIN_CONDITION in VARCHAR2,
X_OWNER in VARCHAR2
) is
l_user_id number := 0;
select 'x'
from AMS_EXP_TEMPLATE
where EXP_TEMPLATE_ID = X_EXP_TEMPLATE_ID;
select AMS_EXP_TEMPLATE_S.nextval
from dual;
AMS_EXP_TEMPLATE_PKG.INSERT_ROW (
X_ROWID => l_row_id,
X_EXP_TEMPLATE_ID => X_EXP_TEMPLATE_ID,
X_SET_CLAUSE => X_SET_CLAUSE,
X_EXPORT_TYPE => X_EXPORT_TYPE,
X_OBJECT_VERSION_NUMBER => l_obj_verno,
X_TEMPLATE_NAME => X_TEMPLATE_NAME,
X_SEEDED_SELECT_CLAUSE => X_SEEDED_SELECT_CLAUSE,
X_FROM_CLAUSE => X_FROM_CLAUSE,
X_JOIN_CONDITION => X_JOIN_CONDITION,
X_CREATION_DATE => sysdate,
X_CREATED_BY => l_user_id,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0);
AMS_EXP_TEMPLATE_PKG.UPDATE_ROW(
X_EXP_TEMPLATE_ID => X_EXP_TEMPLATE_ID,
X_SET_CLAUSE => X_SET_CLAUSE,
X_EXPORT_TYPE => X_EXPORT_TYPE,
X_OBJECT_VERSION_NUMBER => l_obj_verno,
X_TEMPLATE_NAME => X_TEMPLATE_NAME,
X_SEEDED_SELECT_CLAUSE => X_SEEDED_SELECT_CLAUSE,
X_FROM_CLAUSE => X_FROM_CLAUSE,
X_JOIN_CONDITION => X_JOIN_CONDITION,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => l_user_id,
X_LAST_UPDATE_LOGIN => 0);