31: end;
32:
33: procedure delete_entries(errbuf out nocopy VARCHAR2,
34: retcode out nocopy NUMBER,
35: p_element_type_id in pay_element_types_f.element_type_id%type,
36: p_start_date in VARCHAR2,
37: p_end_date in VARCHAR2,
38: p_bus_grp_id in pay_element_types_f.business_group_id%type,
39: p_assignment_set_id in Number )
34: retcode out nocopy NUMBER,
35: p_element_type_id in pay_element_types_f.element_type_id%type,
36: p_start_date in VARCHAR2,
37: p_end_date in VARCHAR2,
38: p_bus_grp_id in pay_element_types_f.business_group_id%type,
39: p_assignment_set_id in Number )
40: is
41: l_ben_start_date_id pay_input_values_f.input_value_id%type;
42: l_ben_end_date_id pay_input_values_f.input_value_id%type;
39: p_assignment_set_id in Number )
40: is
41: l_ben_start_date_id pay_input_values_f.input_value_id%type;
42: l_ben_end_date_id pay_input_values_f.input_value_id%type;
43: l_element_name pay_element_types_f.element_name%type;
44: l_count NUMBER default 0;
45: l_effective_start_date_dummy DATE;
46: l_effective_end_date_dummy DATE;
47: l_del_warning_dummy BOOLEAN;
47: l_del_warning_dummy BOOLEAN;
48: e_p11d_element_err exception;
49: e_p11d_ben_st_dt_err exception;
50: e_p11d_ben_end_dt_err exception;
51: cursor csr_get_element_name(v_element_type_id pay_element_types_f.element_type_id%type)
52: is
53: select element_name
54: from pay_element_types_f pet
55: where pet.element_type_id = v_element_type_id;
50: e_p11d_ben_end_dt_err exception;
51: cursor csr_get_element_name(v_element_type_id pay_element_types_f.element_type_id%type)
52: is
53: select element_name
54: from pay_element_types_f pet
55: where pet.element_type_id = v_element_type_id;
56:
57: cursor csr_get_benefit_date_id(v_ben_date_type VARCHAR2,
58: v_element_type_id pay_element_types_f.element_type_id%type)
54: from pay_element_types_f pet
55: where pet.element_type_id = v_element_type_id;
56:
57: cursor csr_get_benefit_date_id(v_ben_date_type VARCHAR2,
58: v_element_type_id pay_element_types_f.element_type_id%type)
59: is
60: select input_value_id
61: from pay_input_values_f piv
62: where piv.element_type_id = v_element_type_id
65: cursor csr_get_del_element_entry_id(v_ben_start_date_id pay_input_values_f.input_value_id%type,
66: v_start_date VARCHAR2,
67: v_ben_end_date_id pay_input_values_f.input_value_id%type,
68: v_end_date VARCHAR2,
69: v_bus_grp_id pay_element_types_f.business_group_id%type,
70: v_element_type_id pay_element_types_f.element_type_id%type)
71: is
72: select /*+ ordered */
73: pee.element_entry_id, pee.object_version_number, pee.effective_start_date
66: v_start_date VARCHAR2,
67: v_ben_end_date_id pay_input_values_f.input_value_id%type,
68: v_end_date VARCHAR2,
69: v_bus_grp_id pay_element_types_f.business_group_id%type,
70: v_element_type_id pay_element_types_f.element_type_id%type)
71: is
72: select /*+ ordered */
73: pee.element_entry_id, pee.object_version_number, pee.effective_start_date
74: from pay_element_links_f pel,
95: cursor csr_del_entries_assignset(v_ben_start_date_id pay_input_values_f.input_value_id%type,
96: v_start_date VARCHAR2,
97: v_ben_end_date_id pay_input_values_f.input_value_id%type,
98: v_end_date VARCHAR2,
99: v_bus_grp_id pay_element_types_f.business_group_id%type,
100: v_element_type_id pay_element_types_f.element_type_id%type,
101: v_assignment_set_id Number)
102: is
103: select /*+ ordered */
96: v_start_date VARCHAR2,
97: v_ben_end_date_id pay_input_values_f.input_value_id%type,
98: v_end_date VARCHAR2,
99: v_bus_grp_id pay_element_types_f.business_group_id%type,
100: v_element_type_id pay_element_types_f.element_type_id%type,
101: v_assignment_set_id Number)
102: is
103: select /*+ ordered */
104: pee.element_entry_id, pee.object_version_number, pee.effective_start_date