[Home] [Help]
1: PACKAGE BODY pay_sg_payslip_archive AS
2: /* $Header: pysgparc.pkb 120.4 2006/12/27 21:39:57 jalin noship $ */
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
189:
190: END LOOP;
191: hr_utility.trace('Closing Cursor csr_std_elements');
192: hr_utility.set_location('End of archive Standard Element',4);
193: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
194:
195: EXCEPTION
196: WHEN OTHERS THEN
197: hr_utility.set_location('Error in archiving Standard Elements ',5);
216: l_procedure_name VARCHAR2(80);
217:
218: BEGIN
219: l_procedure_name := 'archive_balances';
220: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
221: hr_utility.set_location('archiving balances :',10);
222:
223: -- Archive Statutory balances
224:
236: , p_action_information3 => NULL
237: , p_action_information4 => fnd_number.number_to_canonical(p_ytd) -- Bug 3604110
238: );
239:
240: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
241:
242:
243: EXCEPTION
244: WHEN OTHERS THEN
263: l_procedure_name VARCHAR2(80);
264:
265: BEGIN
266: l_procedure_name := 'archive_cpf_balances';
267: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
268: hr_utility.set_location('archiving cpf balances :',10);
269:
270: -- Archive CPF balances
271:
284: , p_action_information4 => fnd_number.number_to_canonical(p_curr) -- Bug 3604110
285: , p_action_information5 => fnd_number.number_to_canonical(p_ytd) -- Bug 3604110
286: );
287:
288: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
289:
290:
291: EXCEPTION
292: WHEN OTHERS THEN
337: /* Bug 2824397 */
338:
339: BEGIN
340: l_procedure_name := 'archive_stat_balances';
341: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
342: hr_utility.set_location('Calling balance_total from pay_sg_soe_pkg',20);
343:
344: /* Bug 2824397 */
345: open c_person_id(p_assignment_id);
444:
445:
446: hr_utility.set_location('End of Archiving Stat Balances ',100);
447:
448: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,110);
449:
450: EXCEPTION
451: WHEN OTHERS THEN
452: hr_utility.set_location('error in calling archive balance code :',11);
549: l_currency_code VARCHAR2(15);
550:
551: BEGIN
552: l_procedure_name := 'archive_employee_details';
553: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.'|| l_procedure_name,10);
554:
555:
556: -- call generic procedure to retrieve and archive all data for
557: -- EMPLOYEE DETAILS, ADDRESS DETAILS and EMPLOYEE NET PAY DISTRIBUTION
610: END LOOP;
611:
612: hr_utility.trace('Closing Cursor csr_action_information_id');
613:
614: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
615:
616: EXCEPTION
617: WHEN OTHERS THEN
618: hr_utility.set_location('Error in archiving Employee details ',5);
687: BEGIN
688: l_procedure_name := 'archive_employee_details';
689: hr_utility.set_location('Start of accrual archival code',1);
690:
691: hr_utility.set_location('Entering Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
692:
693: OPEN csr_leave_balance(p_assignment_action_id,p_assignment_id);
694: FETCH csr_leave_balance INTO
695: l_accrual_plan_name,
748: );
749:
750: END IF;
751:
752: hr_utility.set_location('Leaving Procedure pay_sg_payslip_archive.' || l_procedure_name,10);
753:
754:
755: EXCEPTION
756: WHEN OTHERS THEN
937: RAISE;
938: END archive_code;
939:
940:
941: END pay_sg_payslip_archive;