23: l_proc VARCHAR2(50) := g_package || 'get_parameters';
24:
25: begin
26:
27: hr_utility.set_location('Entering ' || l_proc,10);
28: hr_utility.set_location('p_token_name: ' || p_token_name,20);
29:
30: open csr_parameter_info(p_payroll_action_id,p_token_name);
31: fetch csr_parameter_info into l_token_value;
24:
25: begin
26:
27: hr_utility.set_location('Entering ' || l_proc,10);
28: hr_utility.set_location('p_token_name: ' || p_token_name,20);
29:
30: open csr_parameter_info(p_payroll_action_id,p_token_name);
31: fetch csr_parameter_info into l_token_value;
32: close csr_parameter_info;
31: fetch csr_parameter_info into l_token_value;
32: close csr_parameter_info;
33:
34: p_token_value := l_token_value;
35: hr_utility.set_location('l_token_value: ' || l_token_value,20);
36: hr_utility.set_location('Leaving ' || l_proc,30);
37:
38: exception
39: when OTHERS
32: close csr_parameter_info;
33:
34: p_token_value := l_token_value;
35: hr_utility.set_location('l_token_value: ' || l_token_value,20);
36: hr_utility.set_location('Leaving ' || l_proc,30);
37:
38: exception
39: when OTHERS
40: then
37:
38: exception
39: when OTHERS
40: then
41: hr_utility.set_location('Exception occured in get_parameters: '||SQLERRM,30);
42: raise;
43: end get_parameters;
44:
45: /**------------------------------------------------------------
55: l_proc CONSTANT VARCHAR2(50):= g_package||'range_cursor';
56:
57: begin
58:
59: hr_utility.set_location('Entering ' || l_proc,10);
60:
61: pay_ie_hist_arch_pkg.get_parameters (p_payroll_action_id => pactid
62: , p_token_name => 'PAYROLL_NAME'
63: , p_token_value => l_payroll_id);
61: pay_ie_hist_arch_pkg.get_parameters (p_payroll_action_id => pactid
62: , p_token_name => 'PAYROLL_NAME'
63: , p_token_value => l_payroll_id);
64:
65: hr_utility.set_location('l_payroll_id = ' || l_payroll_id,20);
66:
67: if l_payroll_id is null then
68: -- Use full cursor not restricting by payroll
69: hr_utility.trace('Range Cursor Not using Payroll Restriction');
65: hr_utility.set_location('l_payroll_id = ' || l_payroll_id,20);
66:
67: if l_payroll_id is null then
68: -- Use full cursor not restricting by payroll
69: hr_utility.trace('Range Cursor Not using Payroll Restriction');
70: sqlstr := 'SELECT DISTINCT person_id
71: FROM per_people_f ppf,
72: pay_payroll_actions ppa
73: WHERE ppa.payroll_action_id = :payroll_action_id
74: AND ppa.business_group_id +0= ppf.business_group_id
75: ORDER BY ppf.person_id';
76: else
77: -- The Payroll ID was used as parameter, so restrict by this
78: hr_utility.trace('Range Cursor using Payroll Restriction');
79: sqlstr := 'SELECT DISTINCT ppf.person_id
80: FROM per_all_people_f ppf,
81: pay_payroll_actions ppa,
82: per_all_assignments_f paaf
86: AND paaf.payroll_id = '|| to_char(l_payroll_id)||
87: ' ORDER BY ppf.person_id';
88: end if;
89:
90: hr_utility.set_location('Leaving ' || l_proc,30);
91: exception
92: when OTHERS
93: then
94: sqlstr := 'select 1 '||
94: sqlstr := 'select 1 '||
95: '/* ERROR - Employer Details Fetch failed with: '||
96: sqlerrm(sqlcode)||' */ '||
97: 'from dual where to_char(:payroll_action_id) = dummy';
98: hr_utility.set_location('Exception occured in range_cursor: '||SQLERRM,30);
99: raise;
100: end range_cursor;
101:
102: /**------------------------------------------------------------
160: lockingactid varchar2(100);
161: l_proc VARCHAR2(50) := g_package||'action_creation';
162:
163: begin
164: hr_utility.set_location('Entering ' || l_proc,10);
165:
166: get_parameters(pactid,'PAYROLL_NAME',l_payroll_id);
167: get_parameters(pactid,'P_START_DATE',l_start_date);
168: get_parameters(pactid,'P_END_DATE',l_end_date);
171: into l_bg_id
172: from pay_payroll_actions
173: where payroll_action_id = pactid;
174:
175: hr_utility.set_location('l_payroll_id :' ||l_payroll_id ,20);
176: hr_utility.set_location('l_start_date :' ||l_start_date ,20);
177: hr_utility.set_location('l_end_date :' ||l_end_date ,20);
178: hr_utility.set_location('l_bg_id :' ||l_bg_id ,20);
179: hr_utility.set_location('stperson :' ||stperson ,20);
172: from pay_payroll_actions
173: where payroll_action_id = pactid;
174:
175: hr_utility.set_location('l_payroll_id :' ||l_payroll_id ,20);
176: hr_utility.set_location('l_start_date :' ||l_start_date ,20);
177: hr_utility.set_location('l_end_date :' ||l_end_date ,20);
178: hr_utility.set_location('l_bg_id :' ||l_bg_id ,20);
179: hr_utility.set_location('stperson :' ||stperson ,20);
180: hr_utility.set_location('endperson :' ||endperson ,20);
173: where payroll_action_id = pactid;
174:
175: hr_utility.set_location('l_payroll_id :' ||l_payroll_id ,20);
176: hr_utility.set_location('l_start_date :' ||l_start_date ,20);
177: hr_utility.set_location('l_end_date :' ||l_end_date ,20);
178: hr_utility.set_location('l_bg_id :' ||l_bg_id ,20);
179: hr_utility.set_location('stperson :' ||stperson ,20);
180: hr_utility.set_location('endperson :' ||endperson ,20);
181:
174:
175: hr_utility.set_location('l_payroll_id :' ||l_payroll_id ,20);
176: hr_utility.set_location('l_start_date :' ||l_start_date ,20);
177: hr_utility.set_location('l_end_date :' ||l_end_date ,20);
178: hr_utility.set_location('l_bg_id :' ||l_bg_id ,20);
179: hr_utility.set_location('stperson :' ||stperson ,20);
180: hr_utility.set_location('endperson :' ||endperson ,20);
181:
182: for asgrec in get_arch_action_det(l_payroll_id,l_bg_id,l_start_date,l_end_date)
175: hr_utility.set_location('l_payroll_id :' ||l_payroll_id ,20);
176: hr_utility.set_location('l_start_date :' ||l_start_date ,20);
177: hr_utility.set_location('l_end_date :' ||l_end_date ,20);
178: hr_utility.set_location('l_bg_id :' ||l_bg_id ,20);
179: hr_utility.set_location('stperson :' ||stperson ,20);
180: hr_utility.set_location('endperson :' ||endperson ,20);
181:
182: for asgrec in get_arch_action_det(l_payroll_id,l_bg_id,l_start_date,l_end_date)
183: loop
176: hr_utility.set_location('l_start_date :' ||l_start_date ,20);
177: hr_utility.set_location('l_end_date :' ||l_end_date ,20);
178: hr_utility.set_location('l_bg_id :' ||l_bg_id ,20);
179: hr_utility.set_location('stperson :' ||stperson ,20);
180: hr_utility.set_location('endperson :' ||endperson ,20);
181:
182: for asgrec in get_arch_action_det(l_payroll_id,l_bg_id,l_start_date,l_end_date)
183: loop
184:
195: object_type => 'ASG',
196: object_id => asgrec.assignment_action_id
197: );
198: end loop;
199: hr_utility.set_location('Leaving ' || l_proc,30);
200:
201: exception
202: when OTHERS
203: then
200:
201: exception
202: when OTHERS
203: then
204: hr_utility.set_location('Exception occured in action_creation: '||SQLERRM,30);
205: raise;
206: end action_creation;
207:
208: procedure archive_init(p_payroll_action_id in number) is
208: procedure archive_init(p_payroll_action_id in number) is
209: l_proc VARCHAR2(50) := g_package || 'archinit';
210:
211: begin
212: hr_utility.set_location('Entering ' || l_proc,10);
213: null;
214: hr_utility.set_location('Leaving ' || l_proc,20);
215: end archive_init;
216:
210:
211: begin
212: hr_utility.set_location('Entering ' || l_proc,10);
213: null;
214: hr_utility.set_location('Leaving ' || l_proc,20);
215: end archive_init;
216:
217: /**------------------------------------------------------------
218: ** Name : archive_historic_data
233: l_assignment_action_id pay_assignment_actions.assignment_action_id%type;
234: l_proc VARCHAR2(50) := g_package || 'archive_historic_data';
235:
236: begin
237: hr_utility.set_location('Entering ' || l_proc,10);
238: hr_utility.set_location('Current assignment_action_id - p_assactid: '
239: || p_assactid, 10);
240:
241: --getting the archived assignment_action_id
234: l_proc VARCHAR2(50) := g_package || 'archive_historic_data';
235:
236: begin
237: hr_utility.set_location('Entering ' || l_proc,10);
238: hr_utility.set_location('Current assignment_action_id - p_assactid: '
239: || p_assactid, 10);
240:
241: --getting the archived assignment_action_id
242: open get_archive_asg_id;
242: open get_archive_asg_id;
243: fetch get_archive_asg_id into l_assignment_action_id;
244: close get_archive_asg_id;
245:
246: hr_utility.set_location('Archived assignment_action_id - l_assignment_action_id: '
247: || l_assignment_action_id, 20);
248:
249: --Calling archive procedure to archive payments and deductions details for
250: --this assignment_action_id
248:
249: --Calling archive procedure to archive payments and deductions details for
250: --this assignment_action_id
251: pay_ie_legislative_archive.get_pay_deduct_element_info(l_assignment_action_id);
252: hr_utility.set_location('Leaving ' || l_proc,40);
253:
254: exception
255: when OTHERS
256: then
253:
254: exception
255: when OTHERS
256: then
257: hr_utility.set_location('Exception occured in archive_historic_data: '||SQLERRM,30);
258: raise;
259: end archive_historic_data;
260:
261: END pay_ie_hist_arch_pkg;