[Home] [Help]
1: PACKAGE BODY pay_sg_payslip_archive AS
2: /* $Header: pysgparc.pkb 120.5 2011/02/01 12:23:09 dduvvuri ship $ */
3:
4: ---------------------------------------------------------------------+
5: -- This is a global variable used to store Archive assignment action id
147: l_procedure_name VARCHAR2(80) ;
148:
149: BEGIN
150: l_procedure_name := 'archive_stat_elements';
151: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
152:
153: FOR csr_rec IN csr_std_elements(p_assignment_action_id,p_assignment_id)
154:
155: LOOP
195:
196: END LOOP;
197: hr_utility.trace('Closing Cursor csr_std_elements');
198: hr_utility.set_location('End of archive Standard Element',4);
199: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
200:
201: EXCEPTION
202: WHEN OTHERS THEN
203: hr_utility.set_location('Error in archiving Standard Elements ',5);
222: l_procedure_name VARCHAR2(80);
223:
224: BEGIN
225: l_procedure_name := 'archive_balances';
226: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
227: hr_utility.set_location('archiving balances :',10);
228:
229: -- Archive Statutory balances
230:
242: , p_action_information3 => NULL
243: , p_action_information4 => fnd_number.number_to_canonical(p_ytd) -- Bug 3604110
244: );
245:
246: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
247:
248:
249: EXCEPTION
250: WHEN OTHERS THEN
269: l_procedure_name VARCHAR2(80);
270:
271: BEGIN
272: l_procedure_name := 'archive_cpf_balances';
273: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
274: hr_utility.set_location('archiving cpf balances :',10);
275:
276: -- Archive CPF balances
277:
290: , p_action_information4 => fnd_number.number_to_canonical(p_curr) -- Bug 3604110
291: , p_action_information5 => fnd_number.number_to_canonical(p_ytd) -- Bug 3604110
292: );
293:
294: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
295:
296:
297: EXCEPTION
298: WHEN OTHERS THEN
343: /* Bug 2824397 */
344:
345: BEGIN
346: l_procedure_name := 'archive_stat_balances';
347: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
348: hr_utility.set_location('Calling balance_total from pay_sg_soe_pkg',20);
349:
350: /* Bug 2824397 */
351: open c_person_id(p_assignment_id);
450:
451:
452: hr_utility.set_location('End of Archiving Stat Balances ',100);
453:
454: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,110);
455:
456: EXCEPTION
457: WHEN OTHERS THEN
458: hr_utility.set_location('error in calling archive balance code :',11);
555: l_currency_code VARCHAR2(15);
556:
557: BEGIN
558: l_procedure_name := 'archive_employee_details';
559: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.'|| l_procedure_name,10);
560:
561:
562: -- call generic procedure to retrieve and archive all data for
563: -- EMPLOYEE DETAILS, ADDRESS DETAILS and EMPLOYEE NET PAY DISTRIBUTION
616: END LOOP;
617:
618: hr_utility.trace('Closing Cursor csr_action_information_id');
619:
620: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
621:
622: EXCEPTION
623: WHEN OTHERS THEN
624: hr_utility.set_location('Error in archiving Employee details ',5);
693: BEGIN
694: l_procedure_name := 'archive_employee_details';
695: hr_utility.set_location('Start of accrual archival code',1);
696:
697: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
698:
699: OPEN csr_leave_balance(p_assignment_action_id,p_assignment_id);
700: FETCH csr_leave_balance INTO
701: l_accrual_plan_name,
754: );
755:
756: END IF;
757:
758: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
759:
760:
761: EXCEPTION
762: WHEN OTHERS THEN
943: RAISE;
944: END archive_code;
945:
946:
947: END pay_sg_payslip_archive;