1: PACKAGE BODY pay_hk_payslip_archive AS
2: /* $Header: pyhkparc.pkb 120.4 2006/12/28 05:53:48 jalin noship $ */
3:
4: ---------------------------------------------------------------------+
5: -- This is a global variable used to store Archive assignment action id
282: BEGIN
283: l_procedure_name := 'archive_stat_elements'; -- Bug: 3604131
284:
285: IF g_debug THEN
286: hr_utility.set_location('Entering Procedure pay_hk_payslip_archive.' || l_procedure_name,10);
287:
288: hr_utility.trace('Opening Cursor csr_std_elements');
289: END IF;
290:
342: END LOOP;
343: IF g_debug THEN
344: hr_utility.trace('Closing Cursor csr_std_elements');
345: hr_utility.set_location('End of archive Standard Element',4);
346: hr_utility.set_location('Leaving Procedure pay_hk_payslip_archive.' || l_procedure_name,10);
347: END IF;
348:
349: EXCEPTION
350: WHEN OTHERS THEN
448:
449: l_procedure_name := 'Archive_Stat_Balances'; -- Bug: 3604131
450:
451: IF g_debug THEN
452: hr_utility.set_location('Entering Procedure pay_hk_payslip_archive.' || l_procedure_name,10);
453: hr_utility.set_location('Calling balance_total from pay_hk_soe_pkg',20);
454: END IF;
455:
456: -- Get the totals of all the balances
546:
547: IF g_debug THEN
548: hr_utility.set_location('End of Archiving Stat Balances ',80);
549:
550: hr_utility.set_location('Leaving Procedure pay_hk_payslip_archive.' || l_procedure_name,90);
551: END IF;
552:
553:
554: EXCEPTION
668:
669: l_procedure_name := 'archive_employee_details'; -- Bug: 3604131
670:
671: IF g_debug THEN
672: hr_utility.set_location('Entering Procedure pay_hk_payslip_archive.'|| l_procedure_name,10);
673:
674:
675: -- call generic procedure to retrieve and archive all data for
676: -- EMPLOYEE DETAILS, ADDRESS DETAILS and EMPLOYEE NET PAY DISTRIBUTION
789: IF g_debug THEN
790:
791: hr_utility.trace('Closing Cursor csr_action_information_id');
792:
793: hr_utility.set_location('Leaving Procedure pay_hk_payslip_archive.' || l_procedure_name,10);
794: END IF;
795:
796: EXCEPTION
797: WHEN OTHERS THEN
945:
946: END IF;
947:
948: IF g_debug THEN
949: hr_utility.set_location('Leaving Procedure pay_hk_payslip_archive.' || l_procedure_name,10);
950: END IF;
951:
952:
953: EXCEPTION
1213: END get_assessed_ri;
1214:
1215:
1216:
1217: END pay_hk_payslip_archive;