[Home] [Help]
73: *** 07-Sep-09 pmatamsr 115.55 8769345 Modified initialization_code,archive_code,archive_balance_details and archive_element_details procedures to support
74: *** the archival of new ETP Taxable and Tax Free balances introduced as part of statutory changes to Super Rollover.
75: *** 26-Nov-09 avenkatk 115.57 9146069 Modified the terms display in the ETP Payments section to be in sync with Validation Report
76: *** 26-Nov-09 avenkatk 115.58 9146069 Modified condition to check for Invalidity Balance
77: *** 19-Nov-09 skshin 115.60 8711855 Modifed Adjust_lumpsum_E_payments procedure to call pay_au_payment_summary.get_retro_lumpsumE_value
78: *** 19-Nov-09 skshin 115.61 9190980 Modified c_ps_element_details cursor to exclude retro gt12 balances
79: *** 15-Dec-09 pmatamsr 115.62 9190980 Added code to report Retro GT12 Pre Tax Deductions seperately under 'Lump Sum E Pre Tax' and 'Retro Pre Tax < $400'
80: *** 15-Dec-09 pmatamsr 115.63 9190980 Commented Retro Pre Tax GT 12 Mths Amount element in c_ps_element_details cursor so that the element is repoted
81: *** in Pre Tax Deductions section.
179: t_fw_gross_type fw_gross_type_table;
180: f_fw_date_tab_g pay_au_foreign_workers.tab_fw_dates;
181: j_fw_date_tab_g pay_au_foreign_workers.tab_fw_dates;
182:
183: p_fw_allowance_tab pay_au_payment_summary.t_allowance_balance%type;
184: g_balance_type_id pay_balance_types.balance_type_id%type;
185: p_fw_union_balance_type_tab pay_au_foreign_workers.tab_bal_type;
186: l_fw_union_output_tab pay_balance_pkg.t_detailed_bal_out_tab;
187:
1951:
1952: IF (g_result_table(35).balance_value - g_fw_result_table(28).balance_value) <> 0
1953: THEN
1954:
1955: pay_au_payment_summary.get_foreign_leave_payments
1956: (l_employee_details.assignment_id
1957: ,g_tax_unit_id
1958: ,g_start_date
1959: ,g_end_date
1991: /* start bug 9950136 */
1992: l_retro_fw_gross := 0;
1993: l_retro_fw_tax := 0;
1994: IF t_fw_gross_type(i_idx) = 'F' THEN
1995: n := pay_au_payment_summary.adjust_retro_fw(l_employee_details.assignment_id
1996: ,g_tax_unit_id
1997: ,g_start_date
1998: ,g_end_date
1999: ,pay_au_foreign_workers.g_fw_f_type
1999: ,pay_au_foreign_workers.g_fw_f_type
2000: ,l_retro_fw_gross
2001: ,l_retro_fw_tax);
2002: ELSIF t_fw_gross_type(i_idx) = 'J' THEN
2003: n := pay_au_payment_summary.adjust_retro_fw(l_employee_details.assignment_id
2004: ,g_tax_unit_id
2005: ,g_start_date
2006: ,g_end_date
2007: ,pay_au_foreign_workers.g_fw_j_type
2906: /* Bug 4201894 - Adjusted Amount will be cumulatively stored in
2907: g_adjusted_lump_sum_e_pay and displayed in Taxable Earnings
2908: element section */
2909: /*bug8711855 - p_assignment_action_id and p_registered_employer parameter are added to call
2910: pay_au_payment_summary.get_retro_lumpsumE_value function */
2911: --------------------------------------------------------------------+
2912: procedure Adjust_lumpsum_E_payments(p_assignment_id in pay_assignment_actions.assignment_id%type)
2913: is
2914:
2928: hr_utility.set_location('In procedure '||g_package||l_procedure,600);
2929: end if;
2930:
2931: /*bug8711855 - The calculation logic is changed to add retro GT12 and call
2932: pay_au_payment_summary.get_lumpsumE_value function to adjust by single Lump Sum E paymetns */
2933: /* bug 9190980 - Added argument v_adj_lump_sum_pre_tax in call to the function for fetching adjusted Retro GT12 Pre Tax Deductions*/
2934: v_lump_sum_E_ytd := g_result_table(15).balance_value + g_result_table(31).balance_value
2935: + g_result_table(32).balance_value - g_result_table(33).balance_value
2936: + g_result_table(40).balance_value ; -- bug 13362286
2936: + g_result_table(40).balance_value ; -- bug 13362286
2937:
2938: if v_lump_sum_E_ytd <> 0 then
2939:
2940: v_lump_sum_E_ytd := pay_au_payment_summary.get_lumpsumE_value(g_tax_unit_id, p_assignment_id, g_start_date,
2941: g_end_date, p_lump_sum_E_ptd_tab, v_lump_sum_E_ytd, v_adj_lump_sum_E_ptd
2942: ,v_adj_lump_sum_pre_tax); -- Bug 9190980
2943: end if;
2944:
3015: and pdb.business_group_id = g_business_group_id;
3016:
3017: /* Changes for 9147438 end */
3018:
3019: t_allowance_balance pay_au_payment_summary.t_allowance_balance%TYPE;
3020: counter number := 1;
3021: l_YTD_allowance number := 0;
3022: l_result number;
3023: l_procedure varchar2(240);
3068: end loop;
3069:
3070: IF t_allowance_balance.count > 0 THEN
3071:
3072: l_result := pay_au_payment_summary.adjust_retro_allowances(t_allowance_balance,
3073: g_start_date,
3074: g_end_date,
3075: p_assignment_id,
3076: g_tax_unit_id);
3172: if p_fw_allowance_tab.count >0 then
3173:
3174: IF t_fw_gross_type(i_idx) = 'F' THEN
3175: for i in f_fw_date_tab_g.FIRST .. f_fw_date_tab_g.LAST loop
3176: x := pay_au_payment_summary.adjust_retro_allowances
3177: (p_fw_allowance_tab
3178: ,f_fw_date_tab_g(i).start_date
3179: ,f_fw_date_tab_g(i).end_date
3180: ,p_assignment_id
3182: );
3183: end loop;
3184: ELSIF t_fw_gross_type(i_idx) = 'J' THEN
3185: for i in j_fw_date_tab_g.FIRST ..j_fw_date_tab_g.LAST loop
3186: x := pay_au_payment_summary.adjust_retro_allowances
3187: (p_fw_allowance_tab
3188: ,j_fw_date_tab_g(i).start_date
3189: ,j_fw_date_tab_g(i).end_date
3190: ,p_assignment_id