[Home] [Help]
52: ** 05-DEC-2002 viviswan 2643489 Performance changes and nocopy changes.
53: ** 20-DEC-2002 smrobins Changes to deriving weeks at class A
54: ** following changes to prsi balance
55: ** structure
56: ** 15-MAY-2003 nsugavan 2943335 Changed PROCEDURE setup_standard_balance_table
57: ** to archive balance, IE Taxable Social Benefit
58: ** instead of balance, IE Benefit Amount
59: ** Also, commented the cursor cur_cal_option
60: ** and used IE Taxable Social Benefit balance value
110: ** 30-JUN-2005 sgajula 115.42 Initialized g_archive_end_date in archinit to support Retry Option.
111: ** 06-JUL-2005 sgajula 115.43 Moved 'PA' archive code from range_cursor to archive_deinit,handled
112: ** case of zero pay but non-zero PAYE,avoid data corruption by locking,
113: ** and proper archiving of EMEA PAYROLL INFO
114: ** 22-JUL-2005 sgajula 115.44 Called setup_standard_balance_table in archive_deinit(4508661)
115: ** 26-SEP-2005 rrajaman 115.45 Added IE_EXEMPTION tax_basis condition to cursor cur_non_cum_tax(4619038).
116: ** 29-SEP-2005 sgajula 115.46 Changed the deceased attribute tags(4641660)
117: ** 24-OCT-2005 sgajula 115.47 Modified for 2006 Changes.
118: ** 26-OCT-2005 sgajula 115.48 Changed NOTFOUND condition for cur_child_pay_action
157: ** process_balance to have date join.
158: ** 4. 5510536 - PRSI figures displayed on P45 XML should be this employment
159: ** figures. So made changes in process_balance procedure.
160: ** 22-Sep-2006 rbhardwa 115.70 Bug 5528450. Chaged tax credit and cutoff to Period Weekly Tax Credit and
161: ** Period Weekly Standard Rate Cutoff to archive correct values.
162: ** 28-Sep-2006 sgajula 115.71 Bug 5519933. changed to report correct value against non cumulative flag
163: ** If employee is rehired in same tax year.
164: ** 09-oct-2006 vikgupta 115.72 5597735 - Performance fix (the same was also raised in bug 5233518)
165: ** 5591812 - to display PRSI classes only if its insurable weeks are not zero.
353: archive Balance Names and their Values
354: Balances With Index 1-19 are Total YTD Balances and
355: Balances with Index 20 -33 are Balances used for Supplementary P45
356: */
357: PROCEDURE setup_standard_balance_table
358: IS
359: TYPE balance_name_rec IS RECORD (
360: balance_name VARCHAR2(60));
361: TYPE balance_id_rec IS RECORD (
387: l_found VARCHAR2(1) := 'N';
388: l_max_stat_balance NUMBER := 19;
389: l_pactid NUMBER;
390: l_payroll_pact NUMBER;
391: l_proc VARCHAR2(100) := g_package || 'setup_standard_balance_table';
392: BEGIN
393: hr_utility.set_location('Entering ' || l_proc,10);
394: hr_utility.set_location('Step ' || l_proc,20);
395: l_statutory_balance(1).balance_name := 'IE Taxable Pay';
490: g_max_statutory_balance_index := l_archive_index;
491: -- hr_utility.set_location('Step ' || l_proc,50);
492: -- hr_utility.set_location('l_archive_index = ' || l_archive_index,50);
493: -- hr_utility.set_location('Leaving ' || l_proc,60);
494: END setup_standard_balance_table;
495: ---------------------------------------
496:
497: PROCEDURE archinit (p_payroll_action_id IN NUMBER)
498: IS
609: FETCH csr_input_value_id INTO g_paye_details_element_id,
610: g_period_week_tax_rate;
611: CLOSE csr_input_value_id;
612:
613: -- Fetch the Input value ID of Monthly Standard Rate Cutoff 5128377
614: OPEN csr_input_value_id('IE PAYE details','Monthly Standard Rate Cutoff');
615: FETCH csr_input_value_id INTO g_paye_details_element_id,
616: g_month_std_cutoff;
617: CLOSE csr_input_value_id;
610: g_period_week_tax_rate;
611: CLOSE csr_input_value_id;
612:
613: -- Fetch the Input value ID of Monthly Standard Rate Cutoff 5128377
614: OPEN csr_input_value_id('IE PAYE details','Monthly Standard Rate Cutoff');
615: FETCH csr_input_value_id INTO g_paye_details_element_id,
616: g_month_std_cutoff;
617: CLOSE csr_input_value_id;
618:
615: FETCH csr_input_value_id INTO g_paye_details_element_id,
616: g_month_std_cutoff;
617: CLOSE csr_input_value_id;
618:
619: -- Fetch the Input value ID of Weekly Standard Rate Cutoff 5128377
620: OPEN csr_input_value_id('IE PAYE details','Weekly Standard Rate Cutoff');
621: FETCH csr_input_value_id INTO g_paye_details_element_id,
622: g_week_std_cutoff;
623: CLOSE csr_input_value_id;
616: g_month_std_cutoff;
617: CLOSE csr_input_value_id;
618:
619: -- Fetch the Input value ID of Weekly Standard Rate Cutoff 5128377
620: OPEN csr_input_value_id('IE PAYE details','Weekly Standard Rate Cutoff');
621: FETCH csr_input_value_id INTO g_paye_details_element_id,
622: g_week_std_cutoff;
623: CLOSE csr_input_value_id;
624:
621: FETCH csr_input_value_id INTO g_paye_details_element_id,
622: g_week_std_cutoff;
623: CLOSE csr_input_value_id;
624:
625: -- Changed to Period Weekly Standard Rate Cutoff for Bug 5528450.
626: OPEN csr_input_value_id('IE PAYE details','Period Weekly Standard Rate Cutoff');
627: FETCH csr_input_value_id INTO g_paye_details_element_id,
628: g_period_week_std_cutoff;
629: CLOSE csr_input_value_id;
622: g_week_std_cutoff;
623: CLOSE csr_input_value_id;
624:
625: -- Changed to Period Weekly Standard Rate Cutoff for Bug 5528450.
626: OPEN csr_input_value_id('IE PAYE details','Period Weekly Standard Rate Cutoff');
627: FETCH csr_input_value_id INTO g_paye_details_element_id,
628: g_period_week_std_cutoff;
629: CLOSE csr_input_value_id;
630:
628: g_period_week_std_cutoff;
629: CLOSE csr_input_value_id;
630:
631: hr_utility.set_location('stage 2',23);
632: pay_ie_p45_archive.setup_standard_balance_table;
633:
634: hr_utility.set_location('stage 3',24);
635:
636: -- hr_utility.set_location('l_payroll_id = ' || l_payroll_id,20);
2778: as the same cursor csr_payroll_info can be used to get the required details */
2779: /*
2780: END LOOP;
2781: -- setup statutory balances pl/sql table
2782: pay_ie_p45_archive.setup_standard_balance_table;
2783: FOR rec_payroll_info in csr_all_payroll_info(p_payroll_action_id)
2784: LOOP
2785: */
2786: hr_utility.trace('Entered payroll info');