The following lines contain the word 'select', 'insert', 'update' or 'delete':
select application_id
from fnd_application
where application_short_name = upper(P_APPLICATION_SHORT_NAME);
select customized_restriction_id
from PAY_CUSTOMIZED_RESTRICTIONS pcr
where
pcr.application_id = l_appl_id
and pcr.form_name = P_FORM_NAME
and pcr.name = P_NAME
and pcr.legislation_code = P_LEGISLATION_CODE;
select 1
from PAY_RESTRICTION_VALUES prv
where prv.customized_restriction_id = l_cr_id
and prv.restriction_code = P_RESTRICTION_CODE
and prv.value = P_VALUE
and (P_ROWID is null
or P_ROWID <> prv.rowid);
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_APPLICATION_SHORT_NAME in VARCHAR2,
X_FORM_NAME in VARCHAR2,
X_NAME in VARCHAR2,
X_BUSINESS_GROUP_NAME in VARCHAR2,
X_LEGISLATION_CODE in VARCHAR2,
X_RESTRICTION_CODE in VARCHAR2,
X_VALUE 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
l_cr_id number;
select application_id
from fnd_application
where application_short_name = upper(X_APPLICATION_SHORT_NAME);
select customized_restriction_id
from PAY_CUSTOMIZED_RESTRICTIONS pcr
where
pcr.application_id = l_appl_id
and pcr.form_name = X_FORM_NAME
and pcr.name = X_NAME
and (X_LEGISLATION_CODE is null or
(X_LEGISLATION_CODE is not null
and pcr.legislation_code = X_LEGISLATION_CODE));
select ROWID
from PAY_RESTRICTION_VALUES prv
where prv.customized_restriction_id = l_cr_id
and prv.value = X_VALUE
and prv.restriction_code = X_RESTRICTION_CODE
;
insert into PAY_RESTRICTION_VALUES (
CUSTOMIZED_RESTRICTION_ID,
RESTRICTION_CODE,
VALUE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
l_cr_id,
X_RESTRICTION_CODE,
X_VALUE,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
end INSERT_ROW;
select application_id
from fnd_application
where application_short_name = upper(X_APPLICATION_SHORT_NAME);
select customized_restriction_id
from PAY_CUSTOMIZED_RESTRICTIONS pcr
where
pcr.application_id = l_appl_id
and pcr.form_name = X_FORM_NAME
and pcr.name = X_NAME
and nvl(pcr.legislation_code,'XXX') = nvl(X_LEGISLATION_CODE,'XXX');
cursor c is select
RESTRICTION_CODE,
VALUE
from PAY_RESTRICTION_VALUES prv
where prv.CUSTOMIZED_RESTRICTION_ID = l_cr_id
and prv.value = X_VALUE
and prv.restriction_code = X_RESTRICTION_CODE
for update of VALUE nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_APPLICATION_SHORT_NAME in VARCHAR2,
X_FORM_NAME in VARCHAR2,
X_NAME in VARCHAR2,
X_BUSINESS_GROUP_NAME in VARCHAR2,
X_LEGISLATION_CODE in VARCHAR2,
X_RESTRICTION_CODE in VARCHAR2,
X_VALUE in VARCHAR2,
X_RESTRICTION_CODE_NEW in VARCHAR2,
X_VALUE_NEW in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
l_appl_id number;
select application_id
from fnd_application
where application_short_name = X_APPLICATION_SHORT_NAME;
select customized_restriction_id
from PAY_CUSTOMIZED_RESTRICTIONS pcr
where
pcr.application_id = l_appl_id
and pcr.form_name = X_FORM_NAME
and pcr.name = X_NAME
and nvl(pcr.legislation_code,'XXX') = nvl(X_LEGISLATION_CODE,'XXX');
update PAY_RESTRICTION_VALUES set
RESTRICTION_CODE = X_RESTRICTION_CODE_NEW ,
VALUE = X_VALUE_NEW,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where CUSTOMIZED_RESTRICTION_ID = l_cr_id
and value = X_VALUE
and restriction_code = X_RESTRICTION_CODE;
end UPDATE_ROW;
procedure DELETE_ROW (
X_APPLICATION_SHORT_NAME in VARCHAR2,
X_FORM_NAME in VARCHAR2,
X_NAME in VARCHAR2,
X_BUSINESS_GROUP_NAME in VARCHAR2,
X_LEGISLATION_CODE in VARCHAR2,
X_RESTRICTION_CODE in VARCHAR2,
X_VALUE in VARCHAR2
) is
l_appl_id number;
select application_id
from fnd_application
where application_short_name = X_APPLICATION_SHORT_NAME;
select customized_restriction_id
from PAY_CUSTOMIZED_RESTRICTIONS pcr
where
pcr.application_id = l_appl_id
and pcr.form_name = X_FORM_NAME
and pcr.name = X_NAME
and pcr.legislation_code = X_LEGISLATION_CODE;
delete from PAY_RESTRICTION_VALUES
where CUSTOMIZED_RESTRICTION_ID = l_cr_id
and value = X_VALUE
and restriction_code = X_RESTRICTION_CODE;
end DELETE_ROW;
l_last_update_date PAY_RESTRICTION_VALUES.last_update_date%TYPE := SYSDATE;
l_last_updated_by PAY_RESTRICTION_VALUES.last_updated_by%TYPE := 0;
l_last_update_login PAY_RESTRICTION_VALUES.last_update_login%TYPE := 0;
l_last_updated_by := 1;
UPDATE_ROW
(X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME
,X_FORM_NAME => X_FORM_NAME
,X_NAME => X_NAME
,X_BUSINESS_GROUP_NAME => X_BUSINESS_GROUP_NAME
,X_LEGISLATION_CODE => X_LEGISLATION_CODE
,X_RESTRICTION_CODE => X_RESTRICTION_CODE
,X_VALUE => X_VALUE
,X_RESTRICTION_CODE_NEW => X_RESTRICTION_CODE
,X_VALUE_NEW => X_VALUE
,X_LAST_UPDATE_DATE => l_last_update_date
,X_LAST_UPDATED_BY => l_last_updated_by
,X_LAST_UPDATE_LOGIN => l_last_update_login
);
INSERT_ROW
(X_ROWID => l_rowid
,X_APPLICATION_SHORT_NAME => X_APPLICATION_SHORT_NAME
,X_FORM_NAME => X_FORM_NAME
,X_NAME => X_NAME
,X_BUSINESS_GROUP_NAME => X_BUSINESS_GROUP_NAME
,X_LEGISLATION_CODE => X_LEGISLATION_CODE
,X_RESTRICTION_CODE => X_RESTRICTION_CODE
,X_VALUE => X_VALUE
,X_CREATED_BY => l_created_by
,X_CREATION_DATE => l_creation_date
,X_LAST_UPDATE_DATE => l_last_update_date
,X_LAST_UPDATED_BY => l_last_updated_by
,X_LAST_UPDATE_LOGIN => l_last_update_login
);
UPDATE per_info_type_security
SET description = X_DESCRIPTION
,last_update_date = SYSDATE
,last_updated_by = DECODE(X_OWNER,'SEED',1,0)
,last_update_login = 0
WHERE USERENV('LANG') = (select language_code from fnd_languages
where installed_flag = 'B')
AND application_id = l_appl_id
AND responsibility_id = l_resp_id
AND info_type_table_name = X_INFO_TYPE_TABLE_NAME
AND information_type = X_INFORMATION_TYPE;