The following lines contain the word 'select', 'insert', 'update' or 'delete':
select ecl_tl.classification_name
from pay_element_classifications_tl ecl_tl,
pay_element_classifications ecl
where ecl.classification_id = ecl_tl.classification_id
and ecl.classification_id = p_classification_id
and userenv('LANG') = ecl_tl.language;
procedure chk_insert_ele_classification
(
p_rowid varchar2,
p_element_set_id number,
p_classification_id number
) is
--
cursor csr_ele_class_rule is
select ecr.classification_id
from pay_ele_classification_rules ecr
where ecr.element_set_id = p_element_set_id
and ecr.classification_id = p_classification_id
and (p_rowid is null or
(p_rowid is not null and chartorowid(p_rowid) <> ecr.rowid));
select etr.element_type_id
from pay_element_type_rules etr,
pay_element_types_f et
where etr.element_set_id = p_element_set_id
and et.element_type_id = etr.element_type_id
and et.classification_id = p_classification_id;
hr_utility.set_message_token('INS_OR_DEL', 'insert');
end chk_insert_ele_classification;
procedure chk_delete_ele_classification
(
p_element_set_id number,
p_classification_id number
) is
--
cursor csr_ele_type_rule is
select etr.element_type_id
from pay_element_type_rules etr,
pay_element_types_f et
where etr.element_set_id = p_element_set_id
and et.element_type_id = etr.element_type_id
and et.classification_id = p_classification_id;
hr_utility.set_message_token('INS_OR_DEL', 'delete');
end chk_delete_ele_classification;
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Element_Set_Id IN OUT NOCOPY NUMBER,
X_Classification_Id NUMBER,
-- Extra Columns
X_Element_Set_Type VARCHAR2) IS
--
CURSOR C IS SELECT rowid FROM pay_ele_classification_rules
WHERE element_set_id = X_Element_Set_Id
AND classification_id = X_Classification_Id;
chk_insert_ele_classification
(X_Rowid,
X_Element_Set_Id,
X_Classification_Id);
INSERT INTO pay_ele_classification_rules
(element_set_id,
classification_id)
VALUES
(X_Element_Set_Id,
X_Classification_Id);
'pay_ele_class_rules_pkg.insert_row');
END Insert_Row;
CURSOR C IS SELECT * FROM pay_ele_classification_rules
WHERE rowid = X_Rowid FOR UPDATE of Element_Set_Id NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Element_Set_Id NUMBER,
X_Classification_Id NUMBER) IS
BEGIN
--
UPDATE pay_ele_classification_rules
SET element_set_id = X_Element_Set_Id,
classification_id = X_Classification_Id
WHERE rowid = X_rowid;
'pay_ele_class_rules_pkg.update_row');
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2,
-- Extra Columns
X_Element_Set_Id NUMBER,
X_Classification_Id NUMBER) IS
BEGIN
--
-- Lock element set to preserve the current definition.
pay_element_sets_pkg.lock_element_set
(X_Element_Set_Id);
chk_delete_ele_classification
(X_Element_Set_Id,
X_Classification_Id);
DELETE FROM pay_ele_classification_rules
WHERE rowid = X_Rowid;
'pay_ele_class_rules_pkg.delete_row');
END Delete_Row;