The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_APPLICATION_SHORT_NAME in VARCHAR2,
X_TEMPLATE_CODE in VARCHAR2,
X_FIELD_NAME in VARCHAR2,
X_ALIAS_NAME 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
cursor C is
select ROWID
from XDO_TEMPLATE_FIELDS
where APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
and TEMPLATE_CODE = X_TEMPLATE_CODE
and FIELD_NAME = X_FIELD_NAME;
insert into xdo_template_fields (
APPLICATION_SHORT_NAME,
TEMPLATE_CODE,
FIELD_NAME,
ALIAS_NAME,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_APPLICATION_SHORT_NAME,
X_TEMPLATE_CODE,
X_FIELD_NAME,
X_ALIAS_NAME,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
end INSERT_ROW;
cursor c is select
APPLICATION_SHORT_NAME,
TEMPLATE_CODE,
FIELD_NAME,
ALIAS_NAME
from XDO_TEMPLATE_FIELDS
where APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
and TEMPLATE_CODE = X_TEMPLATE_CODE
and FIELD_NAME = X_FIELD_NAME
for update of APPLICATION_SHORT_NAME, TEMPLATE_CODE, FIELD_NAME nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_APPLICATION_SHORT_NAME in VARCHAR2,
X_TEMPLATE_CODE in VARCHAR2,
X_FIELD_NAME in VARCHAR2,
X_ALIAS_NAME in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update XDO_TEMPLATE_FIELDS set
ALIAS_NAME = X_ALIAS_NAME,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
and TEMPLATE_CODE = X_TEMPLATE_CODE
and FIELD_NAME = X_FIELD_NAME;
end UPDATE_ROW;
procedure DELETE_ROW (
X_APPLICATION_SHORT_NAME in VARCHAR2,
X_TEMPLATE_CODE in VARCHAR2,
X_FIELD_NAME in VARCHAR2
) is
begin
delete from XDO_TEMPLATE_FIELDS
where TEMPLATE_CODE=X_TEMPLATE_CODE
and APPLICATION_SHORT_NAME=X_APPLICATION_SHORT_NAME
and FIELD_NAME = X_FIELD_NAME;
end DELETE_ROW;
X_LAST_UPDATE_DATE in VARCHAR2,
X_CUSTOM_MODE in VARCHAR2
) is
row_id varchar2(64);
db_ludate date; -- entity update in db
f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
select LAST_UPDATED_BY, LAST_UPDATE_DATE
into db_luby, db_ludate
from xdo_template_fields
where application_short_name = x_application_short_name
and template_code = x_template_code
and field_name = x_field_name;
XDO_TEMPLATE_FIELDS_PKG.UPDATE_ROW (
X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
X_TEMPLATE_CODE => X_TEMPLATE_CODE,
X_FIELD_NAME => x_field_name,
X_ALIAS_NAME => x_alias_name,
X_LAST_UPDATE_DATE => f_ludate,
X_LAST_UPDATED_BY => f_luby,
X_LAST_UPDATE_LOGIN => 0
);
XDO_TEMPLATE_FIELDS_PKG.INSERT_ROW (
X_ROWID => row_id,
X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME,
X_TEMPLATE_CODE => X_TEMPLATE_CODE,
X_FIELD_NAME => x_field_name,
X_ALIAS_NAME => x_alias_name,
X_CREATION_DATE => f_ludate,
X_CREATED_BY => f_luby,
X_LAST_UPDATE_DATE => f_ludate,
X_LAST_UPDATED_BY => f_luby,
X_LAST_UPDATE_LOGIN => 0
);