The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_RESPONSIBILITY_ID in NUMBER,
X_ACTION_ID in NUMBER,
X_RULE_TYPE 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)
is
cursor C is select ROWID from FND_RESP_FUNCTIONS
where APPLICATION_ID = X_APPLICATION_ID
and RESPONSIBILITY_ID = X_RESPONSIBILITY_ID
and RULE_TYPE = X_RULE_TYPE
and ACTION_ID = X_ACTION_ID;
insert into FND_RESP_FUNCTIONS (
APPLICATION_ID,
RESPONSIBILITY_ID,
ACTION_ID,
RULE_TYPE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_APPLICATION_ID,
X_RESPONSIBILITY_ID,
X_ACTION_ID,
X_RULE_TYPE,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
fnd_function_security_cache.update_resp(X_RESPONSIBILITY_ID, X_APPLICATION_ID);
end INSERT_ROW;
cursor c1 is select
RULE_TYPE
from FND_RESP_FUNCTIONS
where APPLICATION_ID = X_APPLICATION_ID
and RESPONSIBILITY_ID = X_RESPONSIBILITY_ID
and RULE_TYPE = X_RULE_TYPE
and ACTION_ID = X_ACTION_ID
for update of APPLICATION_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_APPLICATION_ID in NUMBER,
X_RESPONSIBILITY_ID in NUMBER,
X_ACTION_ID in NUMBER,
X_RULE_TYPE in VARCHAR2,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATE_LOGIN in NUMBER)
is
begin
-- Kind of dull, but included for completeness.
update FND_RESP_FUNCTIONS set
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where APPLICATION_ID = X_APPLICATION_ID
and RESPONSIBILITY_ID = X_RESPONSIBILITY_ID
and RULE_TYPE = X_RULE_TYPE
and ACTION_ID = X_ACTION_ID;
fnd_function_security_cache.update_resp(X_RESPONSIBILITY_ID, X_APPLICATION_ID);
end UPDATE_ROW;
procedure DELETE_ROW (
X_APPLICATION_ID in NUMBER,
X_RESPONSIBILITY_ID in NUMBER,
X_RULE_TYPE in VARCHAR2,
X_ACTION_ID in NUMBER
) is
begin
delete from FND_RESP_FUNCTIONS
where APPLICATION_ID = X_APPLICATION_ID
and RESPONSIBILITY_ID = X_RESPONSIBILITY_ID
and RULE_TYPE = X_RULE_TYPE
and ACTION_ID = X_ACTION_ID;
fnd_function_security_cache.update_resp(X_RESPONSIBILITY_ID, X_APPLICATION_ID);
end DELETE_ROW;
X_LAST_UPDATE_DATE => '');
X_LAST_UPDATE_DATE in VARCHAR2 )
is
row_id varchar2(64);
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
select application_id into app_id
from fnd_application
where application_short_name = X_APP_SHORT_NAME;
select responsibility_id into resp_id
from fnd_responsibility
where responsibility_key = X_RESP_KEY
and application_id = app_id;
select function_id into act_id
from fnd_form_functions_vl
where function_name = X_ACTION;
select menu_id into act_id
from fnd_menus_vl
where menu_name = X_ACTION;
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 fnd_resp_functions
where ACTION_ID = act_id
and APPLICATION_ID = app_id
and RESPONSIBILITY_ID = resp_id
and RULE_TYPE = X_RULE_TYPE;
fnd_resp_functions_pkg.update_row(
X_APPLICATION_ID => app_id,
X_RESPONSIBILITY_ID => resp_id,
X_ACTION_ID => act_id,
X_RULE_TYPE => X_RULE_TYPE,
X_LAST_UPDATED_BY => f_luby,
X_LAST_UPDATE_DATE => f_ludate,
X_LAST_UPDATE_LOGIN => 0);
fnd_resp_functions_pkg.insert_row (
X_ROWID => row_id ,
X_APPLICATION_ID => app_id,
X_RESPONSIBILITY_ID => resp_id,
X_ACTION_ID => act_id,
X_RULE_TYPE => X_RULE_TYPE,
X_CREATED_BY => f_luby,
X_CREATION_DATE => f_ludate,
X_LAST_UPDATED_BY => f_luby,
X_LAST_UPDATE_DATE => f_ludate,
X_LAST_UPDATE_LOGIN => 0);