The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_insert varchar2(1) := 'N';
SELECT template_id
FROM pay_element_templates
WHERE template_name = l_template_name
AND legislation_code = p_legislation_code
AND template_type = 'T'
AND business_group_id is NULL;
SELECT formula_id
FROM ff_formulas_f
WHERE formula_name = 'US_ITER_GROSSUP'
and legislation_code = 'US';
SELECT input_value_id, name
FROM pay_input_values_f
WHERE element_type_id = l_pri_ele_type_id;
SELECT element_type_id
FROM pay_element_types_f
WHERE element_name = p_object_name
AND business_group_id+0 = p_bg_id;
SELECT piv.input_value_id
FROM pay_input_values_f piv
WHERE piv.name = p_object_name
AND piv.element_type_id = p_object_id
AND piv.business_group_id + 0 = p_bg_id;
SELECT balance_type_id
FROM pay_balance_types pbt
WHERE pbt.balance_name = p_object_name
AND NVL(pbt.business_group_id, p_bg_id) = p_bg_id
AND NVL(pbt.legislation_code, p_legislation_code) = p_legislation_code;
select 'Y'
into l_reserved
from pay_balance_types
where p_ele_name = balance_name -- Bug 3350067
and nvl(legislation_code, 'US') = 'US'
and nvl(business_group_id, p_bg_id) = p_bg_id;
select element_type_id, object_version_number
into l_element_type_id, l_ele_obj_ver_number
from pay_shadow_element_types
where template_id = l_template_id
and element_name = p_ele_name;
select element_type_id, object_version_number
into l_sf_element_type_id, l_sf_ele_obj_ver_number
from pay_shadow_element_types
where template_id = l_template_id
and element_name = p_ele_name||' Special Features';
pay_shadow_element_api.update_shadow_element
(p_validate => false
,p_effective_date => p_ele_eff_start_date
,p_element_type_id => l_element_type_id
,p_classification_name => nvl(p_ele_classification, hr_api.g_varchar2)
,p_description => p_ele_description
,p_reporting_name => p_ele_reporting_name
,p_element_information_category => nvl(upper(p_legislation_code||'_'||
p_ele_classification), hr_api.g_varchar2)
,p_element_information1 => nvl(p_supp_category, hr_api.g_varchar2)
--,p_element_information10 => l_pri_bal_id /* done later */
,p_processing_type => nvl(p_ele_processing_type, hr_api.g_varchar2)
,p_standard_link_flag => nvl(p_ele_standard_link, hr_api.g_varchar2)
,p_skip_formula => l_skip_formula
,p_object_version_number => l_ele_obj_ver_number
);
pay_shadow_element_api.update_shadow_element
(p_validate => false
,p_effective_date => p_ele_eff_start_date
,p_element_type_id => l_sf_element_type_id
,p_classification_name => nvl(p_ele_classification, hr_api.g_varchar2)
,p_description => 'SF element for '||p_ele_name
,p_element_information_category => nvl(upper(p_legislation_code||'_'||
p_ele_classification), hr_api.g_varchar2)
,p_processing_type => nvl(p_ele_processing_type, hr_api.g_varchar2)
,p_object_version_number => l_sf_ele_obj_ver_number
);
UPDATE pay_element_types_f
SET element_information10 = l_pri_bal_id,
iterative_formula_id = l_iter_formula_id,
iterative_flag = 'Y',
iterative_priority = 5 ,
grossup_flag = 'Y',
process_mode = 'S',
post_termination_rule = p_termination_rule
WHERE element_type_id = l_pri_ele_type_id
AND business_group_id + 0 = p_bg_id;
l_insert := 'Y';
l_insert := 'Y';
l_insert := 'Y';
l_insert := 'Y';
l_insert := 'Y';
IF l_insert = 'Y' THEN
hr_utility.set_location('p_ele_eff_start_date = '||p_ele_eff_start_date, 149);
l_insert := 'N';
UPDATE pay_input_values_f
SET formula_id = t_form_id(i)
,warning_or_error = t_we_flag(i)
,default_value = t_def_val(i)
WHERE input_value_id = t_ipv_id(i);
hr_utility.set_location('select element type id', 136);
Select element_type_id
into l_seeded_ele_type_id
from pay_element_types_f
where upper(element_name) = 'FIT_GROSSUP_ADJUSTMENT'
and legislation_code = 'US';
Select input_value_id
into l_seeded_input_val_id
from pay_input_values_f
where element_type_id = l_seeded_ele_type_id
and upper(name) = 'AMOUNT';
select pay_formula_result_rules_s.nextval
into l_nextval
from dual;
select status_processing_rule_id
into l_status_pro_rule_id
from pay_status_processing_rules_f
where element_type_id = l_pri_ele_type_id;
insert into pay_formula_result_rules_f
(formula_result_rule_id,
effective_start_date,
effective_end_date,
business_group_id,
legislation_code,
element_type_id,
status_processing_rule_id,
result_name,
result_rule_type,
input_value_id,
last_update_date,
last_updated_by,
last_update_login,
created_by,
creation_date)
values
(l_nextval,
trunc(TO_DATE('0001/01/01', 'YYYY/MM/DD')),
trunc(TO_DATE('4712/12/31', 'YYYY/MM/DD')),
p_bg_id,
decode(p_bg_id,NULL,'US',NULL),
l_seeded_ele_type_id,
l_status_pro_rule_id,
'AMOUNT',
'I',
l_seeded_input_val_id,
sysdate,
-1,
-1,
-1,
sysdate);
PROCEDURE delete_user_template_objects
(p_business_group_id in number
,p_ele_name in varchar2
) IS
--
l_template_id NUMBER(9);
l_proc VARCHAR2(60) := 'ntg_earnings_template.delete_ele_template_objects';
SELECT template_id
FROM pay_element_templates
WHERE base_name = p_ele_name
AND business_group_id + 0 = p_business_group_id
AND template_type = 'U';
pay_element_template_api.delete_user_structure
(p_validate => false
,p_drop_formula_packages => true
,p_template_id => l_template_id);
END delete_user_template_objects;