The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1
from pay_element_classifications
where upper(classification_name) = upper(p_classification_name)
and nvl(legislation_code,nvl(p_legislation_code, ' '))
= nvl(p_legislation_code, ' ')
and (p_rowid is null
or (p_rowid is not null and p_rowid <> rowid))
and business_group_id = p_business_group_id;
SELECT 1
FROM pay_element_classifications_tl ect,
pay_element_classifications ecl
WHERE upper(ect.classification_name)=upper(p_class_name)
AND ect.classification_id = ecl.classification_id
AND ect.language = p_language
AND (ecl.classification_id <> p_class_id OR p_class_id IS NULL)
AND (ecl.business_group_id = p_bus_grp_id OR p_bus_grp_id IS NULL)
AND (ecl.legislation_code = p_leg_code OR p_leg_code IS NULL);
select decode (parent_classification_id,
null,'PRIMARY',
'SECONDARY')
from pay_element_classifications
where classification_id = p_classification_id;
select 1
from pay_element_classifications
where parent_classification_id = p_classification_id;
select 1
from pay_element_types_f
where classification_id = p_classification_id;
select 1
from pay_ele_classification_rules
where classification_id = p_classification_id;
select 1
from pay_balance_classifications
where classification_id = p_classification_id;
select 1
from pay_sub_classification_rules_f
where classification_id = p_classification_id;
select 1
from fnd_product_installations
where application_id = 800
and status = 'I';
select 1
from pay_element_classifications
where legislation_code = p_legislation_code
and business_group_id is null;
select 'x'
from hr_legislation_installations li
where li.legislation_code = p_legislation_code;
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_CLASSIFICATION_ID in NUMBER,
X_BUSINESS_GROUP_ID in NUMBER,
X_LEGISLATION_CODE in VARCHAR2,
X_LEGISLATION_SUBGROUP in VARCHAR2,
X_COSTABLE_FLAG in VARCHAR2,
X_DEFAULT_HIGH_PRIORITY in NUMBER,
X_DEFAULT_LOW_PRIORITY in NUMBER,
X_DEFAULT_PRIORITY in NUMBER,
X_DISTRIBUTABLE_OVER_FLAG in VARCHAR2,
X_NON_PAYMENTS_FLAG in VARCHAR2,
X_COSTING_DEBIT_OR_CREDIT in VARCHAR2,
X_PARENT_CLASSIFICATION_ID in NUMBER,
X_CREATE_BY_DEFAULT_FLAG in VARCHAR2,
X_BALANCE_INITIALIZATION_FLAG in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_CLASSIFICATION_NAME in VARCHAR2,
X_DESCRIPTION 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,
X_FREQ_RULE_ENABLED in VARCHAR2 default null
) is
cursor C is select ROWID from PAY_ELEMENT_CLASSIFICATIONS
where CLASSIFICATION_ID = X_CLASSIFICATION_ID
;
insert into PAY_ELEMENT_CLASSIFICATIONS (
CLASSIFICATION_ID,
CLASSIFICATION_NAME,
BUSINESS_GROUP_ID,
LEGISLATION_CODE,
LEGISLATION_SUBGROUP,
COSTABLE_FLAG,
DEFAULT_HIGH_PRIORITY,
DEFAULT_LOW_PRIORITY,
DEFAULT_PRIORITY,
DISTRIBUTABLE_OVER_FLAG,
NON_PAYMENTS_FLAG,
COSTING_DEBIT_OR_CREDIT,
PARENT_CLASSIFICATION_ID,
CREATE_BY_DEFAULT_FLAG,
BALANCE_INITIALIZATION_FLAG,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
FREQ_RULE_ENABLED
) values (
X_CLASSIFICATION_ID,
X_CLASSIFICATION_NAME,
X_BUSINESS_GROUP_ID,
X_LEGISLATION_CODE,
X_LEGISLATION_SUBGROUP,
X_COSTABLE_FLAG,
X_DEFAULT_HIGH_PRIORITY,
X_DEFAULT_LOW_PRIORITY,
X_DEFAULT_PRIORITY,
X_DISTRIBUTABLE_OVER_FLAG,
X_NON_PAYMENTS_FLAG,
X_COSTING_DEBIT_OR_CREDIT,
X_PARENT_CLASSIFICATION_ID,
X_CREATE_BY_DEFAULT_FLAG,
X_BALANCE_INITIALIZATION_FLAG,
X_OBJECT_VERSION_NUMBER,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_FREQ_RULE_ENABLED
);
insert into PAY_ELEMENT_CLASSIFICATIONS_TL (
CLASSIFICATION_ID,
CLASSIFICATION_NAME,
DESCRIPTION,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE,
LANGUAGE,
SOURCE_LANG
) select
X_CLASSIFICATION_ID,
X_CLASSIFICATION_NAME,
X_DESCRIPTION,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_CREATED_BY,
X_CREATION_DATE,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from PAY_ELEMENT_CLASSIFICATIONS_TL T
where T.CLASSIFICATION_ID = X_CLASSIFICATION_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
end INSERT_ROW;
cursor c is select
BUSINESS_GROUP_ID,
LEGISLATION_CODE,
LEGISLATION_SUBGROUP,
COSTABLE_FLAG,
DEFAULT_HIGH_PRIORITY,
DEFAULT_LOW_PRIORITY,
DEFAULT_PRIORITY,
DISTRIBUTABLE_OVER_FLAG,
NON_PAYMENTS_FLAG,
COSTING_DEBIT_OR_CREDIT,
PARENT_CLASSIFICATION_ID,
CREATE_BY_DEFAULT_FLAG,
BALANCE_INITIALIZATION_FLAG,
OBJECT_VERSION_NUMBER,
FREQ_RULE_ENABLED
from PAY_ELEMENT_CLASSIFICATIONS
where CLASSIFICATION_ID = X_CLASSIFICATION_ID
for update of CLASSIFICATION_ID nowait;
cursor c1 is select
CLASSIFICATION_NAME,
DESCRIPTION,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from PAY_ELEMENT_CLASSIFICATIONS_TL
where CLASSIFICATION_ID = X_CLASSIFICATION_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
for update of CLASSIFICATION_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_CLASSIFICATION_ID in NUMBER,
X_BUSINESS_GROUP_ID in NUMBER,
X_LEGISLATION_CODE in VARCHAR2,
X_LEGISLATION_SUBGROUP in VARCHAR2,
X_COSTABLE_FLAG in VARCHAR2,
X_DEFAULT_HIGH_PRIORITY in NUMBER,
X_DEFAULT_LOW_PRIORITY in NUMBER,
X_DEFAULT_PRIORITY in NUMBER,
X_DISTRIBUTABLE_OVER_FLAG in VARCHAR2,
X_NON_PAYMENTS_FLAG in VARCHAR2,
X_COSTING_DEBIT_OR_CREDIT in VARCHAR2,
X_PARENT_CLASSIFICATION_ID in NUMBER,
X_CREATE_BY_DEFAULT_FLAG in VARCHAR2,
X_BALANCE_INITIALIZATION_FLAG in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_CLASSIFICATION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_MESG_FLG out nocopy Boolean,
X_FREQ_RULE_ENABLED in VARCHAR2 default null
) is
P_SOURCE_LANG PAY_ELEMENT_CLASSIFICATIONS_TL.SOURCE_LANG%type;
select source_lang
into P_SOURCE_LANG
from PAY_ELEMENT_CLASSIFICATIONS_TL
where
CLASSIFICATION_ID = X_CLASSIFICATION_ID
and userenv('LANG') = LANGUAGE;
update PAY_ELEMENT_CLASSIFICATIONS set
CLASSIFICATION_NAME= decode(P_SOURCE_LANG,userenv('LANG'),X_CLASSIFICATION_NAME,CLASSIFICATION_NAME),
BUSINESS_GROUP_ID = X_BUSINESS_GROUP_ID,
LEGISLATION_CODE = X_LEGISLATION_CODE,
LEGISLATION_SUBGROUP = X_LEGISLATION_SUBGROUP,
COSTABLE_FLAG = X_COSTABLE_FLAG,
DEFAULT_HIGH_PRIORITY = X_DEFAULT_HIGH_PRIORITY,
DEFAULT_LOW_PRIORITY = X_DEFAULT_LOW_PRIORITY,
DEFAULT_PRIORITY = X_DEFAULT_PRIORITY,
DISTRIBUTABLE_OVER_FLAG = X_DISTRIBUTABLE_OVER_FLAG,
NON_PAYMENTS_FLAG = X_NON_PAYMENTS_FLAG,
COSTING_DEBIT_OR_CREDIT = X_COSTING_DEBIT_OR_CREDIT,
PARENT_CLASSIFICATION_ID = X_PARENT_CLASSIFICATION_ID,
CREATE_BY_DEFAULT_FLAG = X_CREATE_BY_DEFAULT_FLAG,
BALANCE_INITIALIZATION_FLAG = X_BALANCE_INITIALIZATION_FLAG,
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
FREQ_RULE_ENABLED = X_FREQ_RULE_ENABLED
where CLASSIFICATION_ID = X_CLASSIFICATION_ID;
update PAY_ELEMENT_CLASSIFICATIONS_TL set
CLASSIFICATION_NAME = X_CLASSIFICATION_NAME,
DESCRIPTION = X_DESCRIPTION,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
where CLASSIFICATION_ID = X_CLASSIFICATION_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
end UPDATE_ROW;
procedure DELETE_ROW (
X_CLASSIFICATION_ID in NUMBER
) is
begin
delete from PAY_ELEMENT_CLASSIFICATIONS_TL
where CLASSIFICATION_ID = X_CLASSIFICATION_ID;
delete from PAY_ELEMENT_CLASSIFICATIONS
where CLASSIFICATION_ID = X_CLASSIFICATION_ID;
end DELETE_ROW;
delete from PAY_ELEMENT_CLASSIFICATIONS_TL T
where not exists
(select NULL
from PAY_ELEMENT_CLASSIFICATIONS B
where B.CLASSIFICATION_ID = T.CLASSIFICATION_ID
);
update PAY_ELEMENT_CLASSIFICATIONS_TL T set (
CLASSIFICATION_NAME,
DESCRIPTION
) = (select
B.CLASSIFICATION_NAME,
B.DESCRIPTION
from PAY_ELEMENT_CLASSIFICATIONS_TL B
where B.CLASSIFICATION_ID = T.CLASSIFICATION_ID
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.CLASSIFICATION_ID,
T.LANGUAGE
) in (select
SUBT.CLASSIFICATION_ID,
SUBT.LANGUAGE
from PAY_ELEMENT_CLASSIFICATIONS_TL SUBB, PAY_ELEMENT_CLASSIFICATIONS_TL SUBT
where SUBB.CLASSIFICATION_ID = SUBT.CLASSIFICATION_ID
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.CLASSIFICATION_NAME <> SUBT.CLASSIFICATION_NAME
or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
));
insert into PAY_ELEMENT_CLASSIFICATIONS_TL (
CLASSIFICATION_ID,
CLASSIFICATION_NAME,
DESCRIPTION,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE,
LANGUAGE,
SOURCE_LANG
) select
B.CLASSIFICATION_ID,
B.CLASSIFICATION_NAME,
B.DESCRIPTION,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_LOGIN,
B.CREATED_BY,
B.CREATION_DATE,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from PAY_ELEMENT_CLASSIFICATIONS_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from PAY_ELEMENT_CLASSIFICATIONS_TL T
where T.CLASSIFICATION_ID = B.CLASSIFICATION_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
SELECT count(*) INTO result
FROM PAY_ELEMENT_CLASSIFICATIONS
WHERE nvl(CLASSIFICATION_NAME,'~null~') = nvl(E_CLASSIFICATION_NAME,'~null~')
and nvl(LEGISLATION_CODE,'~null~') = nvl(E_LEGISLATION_CODE,'~null~')
and BUSINESS_GROUP_ID is NULL;
UPDATE pay_element_classifications_tl
SET CLASSIFICATION_NAME = nvl(X_CLASSIFICATION_NAME,CLASSIFICATION_NAME),
description = nvl(x_description,description),
last_update_date = SYSDATE,
last_updated_by = decode(x_owner,'SEED',1,0),
last_update_login = 0,
source_lang = userenv('LANG')
WHERE userenv('LANG') IN (language,source_lang)
AND CLASSIFICATION_ID in
(select CLASSIFICATION_ID
from pay_element_classifications
where nvl(CLASSIFICATION_NAME,'~null~')=nvl(X_E_CLASSIFICATION_NAME,'~null~')
and nvl(LEGISLATION_CODE,'~null~') = nvl(X_E_LEGISLATION_CODE,'~null~')
and BUSINESS_GROUP_ID is NULL);
if (sql%notfound) then -- trap system errors during update
-- hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');