[Home] [Help]
158: l_rnd_amt number;
159:
160:
161: begin
162: g_debug := hr_utility.debug_enabled;
163: l_cents := p_actual_amt - trunc(p_actual_amt,1);
164:
165: if l_cents <= 0.025 then
166: l_rnd_amt := 0;
193:
194: l_amt_period number;
195:
196: begin
197: g_debug := hr_utility.debug_enabled;
198: if p_ann_freq = 52 then
199: l_amt_period := p_amt_week;
200: elsif p_ann_freq = 26 then
201: l_amt_period := (p_amt_week * 2);
231: l_amt_week number := 0;
232: l_new_amt number;
233:
234: begin
235: g_debug := hr_utility.debug_enabled;
236: if p_ann_freq = 52 then
237: l_amt_week := trunc (p_amt_period) + 0.99;
238: elsif p_ann_freq = 26 then
239: l_amt_week := trunc (p_amt_period / 2) + 0.99;
521: and ptp.end_date
522: between c_start_date and c_end_date;
523:
524: begin
525: g_debug := hr_utility.debug_enabled;
526:
527: if g_debug then
528: l_procedure :='pay_au_paye_ff.periods_since_hire_date';
529: hr_utility.set_location('Entering '||l_procedure,10);
525: g_debug := hr_utility.debug_enabled;
526:
527: if g_debug then
528: l_procedure :='pay_au_paye_ff.periods_since_hire_date';
529: hr_utility.set_location('Entering '||l_procedure,10);
530: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
531: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
526:
527: if g_debug then
528: l_procedure :='pay_au_paye_ff.periods_since_hire_date';
529: hr_utility.set_location('Entering '||l_procedure,10);
530: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
531: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
527: if g_debug then
528: l_procedure :='pay_au_paye_ff.periods_since_hire_date';
529: hr_utility.set_location('Entering '||l_procedure,10);
530: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
531: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
535: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
528: l_procedure :='pay_au_paye_ff.periods_since_hire_date';
529: hr_utility.set_location('Entering '||l_procedure,10);
530: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
531: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
535: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
536: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
529: hr_utility.set_location('Entering '||l_procedure,10);
530: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
531: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
535: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
536: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
537: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
530: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
531: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
535: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
536: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
537: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
538:
531: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
535: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
536: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
537: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
538:
539: end if;
532: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
535: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
536: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
537: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
538:
539: end if;
540:
533: hr_utility.set_location('IN p_assignment_action_id'||p_assignment_action_id,35);
534: hr_utility.set_location('IN p_period_num '||p_period_num,40);
535: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
536: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
537: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
538:
539: end if;
540:
541: l_check_date := p_emp_hire_date;
638:
639: end if;
640:
641: if g_debug then
642: hr_utility.trace('Value fetched l_period_num =='||l_period_num);
643: end if;
644:
645: IF nvl(l_period_num,0) = 0 and l_period_end < l_year_start THEN /*bug 13885520*/
646: l_period_num := 1;
646: l_period_num := 1;
647: END IF;
648:
649: if g_debug then
650: hr_utility.trace('Value to be returned l_period_num =='||l_period_num);
651: hr_utility.set_location('Exiting '||l_procedure,70);
652: end if;
653:
654: return l_period_num;
647: END IF;
648:
649: if g_debug then
650: hr_utility.trace('Value to be returned l_period_num =='||l_period_num);
651: hr_utility.set_location('Exiting '||l_procedure,70);
652: end if;
653:
654: return l_period_num;
655:
914: p_pre_tax_fixed := 0; /*bug4363057*/
915: p_pre_tax_prog := 0;
916: i := 1;
917: p_case :='USE_PREV_EARNINGS';
918: g_debug := hr_utility.debug_enabled;
919:
920: OPEN c_get_payroll_effective_date; /* Bug#4467198 */
921: FETCH c_get_payroll_effective_date INTO l_eff_date; /* Bug#4467198 */
922: CLOSE c_get_payroll_effective_date; /* Bug#4467198 */
922: CLOSE c_get_payroll_effective_date; /* Bug#4467198 */
923:
924: IF g_debug THEN
925: l_procedure := 'pay_au_paye_ff.calculate_asg_prev_value';
926: hr_utility.set_location('Entering '||l_procedure, 10);
927: hr_utility.set_location('IN p_assignment_id : ' ||p_assignment_id,20);
928: hr_utility.set_location('IN p_business_group_id ' ||p_business_group_id,25);
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
923:
924: IF g_debug THEN
925: l_procedure := 'pay_au_paye_ff.calculate_asg_prev_value';
926: hr_utility.set_location('Entering '||l_procedure, 10);
927: hr_utility.set_location('IN p_assignment_id : ' ||p_assignment_id,20);
928: hr_utility.set_location('IN p_business_group_id ' ||p_business_group_id,25);
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
924: IF g_debug THEN
925: l_procedure := 'pay_au_paye_ff.calculate_asg_prev_value';
926: hr_utility.set_location('Entering '||l_procedure, 10);
927: hr_utility.set_location('IN p_assignment_id : ' ||p_assignment_id,20);
928: hr_utility.set_location('IN p_business_group_id ' ||p_business_group_id,25);
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
932: hr_utility.set_location('IN p_case ' ||p_case,45);
925: l_procedure := 'pay_au_paye_ff.calculate_asg_prev_value';
926: hr_utility.set_location('Entering '||l_procedure, 10);
927: hr_utility.set_location('IN p_assignment_id : ' ||p_assignment_id,20);
928: hr_utility.set_location('IN p_business_group_id ' ||p_business_group_id,25);
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
932: hr_utility.set_location('IN p_case ' ||p_case,45);
933: hr_utility.set_location('IN p_date_earned ' ||to_char(p_date_earned,'dd/mm/yyyy'),50);
926: hr_utility.set_location('Entering '||l_procedure, 10);
927: hr_utility.set_location('IN p_assignment_id : ' ||p_assignment_id,20);
928: hr_utility.set_location('IN p_business_group_id ' ||p_business_group_id,25);
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
932: hr_utility.set_location('IN p_case ' ||p_case,45);
933: hr_utility.set_location('IN p_date_earned ' ||to_char(p_date_earned,'dd/mm/yyyy'),50);
934: hr_utility.set_location('IN p_use_tax_flag ' ||p_use_tax_flag,50);
927: hr_utility.set_location('IN p_assignment_id : ' ||p_assignment_id,20);
928: hr_utility.set_location('IN p_business_group_id ' ||p_business_group_id,25);
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
932: hr_utility.set_location('IN p_case ' ||p_case,45);
933: hr_utility.set_location('IN p_date_earned ' ||to_char(p_date_earned,'dd/mm/yyyy'),50);
934: hr_utility.set_location('IN p_use_tax_flag ' ||p_use_tax_flag,50);
935: END IF;
928: hr_utility.set_location('IN p_business_group_id ' ||p_business_group_id,25);
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
932: hr_utility.set_location('IN p_case ' ||p_case,45);
933: hr_utility.set_location('IN p_date_earned ' ||to_char(p_date_earned,'dd/mm/yyyy'),50);
934: hr_utility.set_location('IN p_use_tax_flag ' ||p_use_tax_flag,50);
935: END IF;
936:
929: hr_utility.set_location('IN p_date_earned ' ||p_date_earned,30);
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
932: hr_utility.set_location('IN p_case ' ||p_case,45);
933: hr_utility.set_location('IN p_date_earned ' ||to_char(p_date_earned,'dd/mm/yyyy'),50);
934: hr_utility.set_location('IN p_use_tax_flag ' ||p_use_tax_flag,50);
935: END IF;
936:
937: /*Bug#4467198 Find the Financial Year Start and End Dates on the basis of effective date of the current payroll run.*/
930: hr_utility.set_location('IN p_tax_unit_id ' ||p_tax_unit_id,35);
931: hr_utility.set_location('IN p_period_start_date ' ||p_period_start_date,40);
932: hr_utility.set_location('IN p_case ' ||p_case,45);
933: hr_utility.set_location('IN p_date_earned ' ||to_char(p_date_earned,'dd/mm/yyyy'),50);
934: hr_utility.set_location('IN p_use_tax_flag ' ||p_use_tax_flag,50);
935: END IF;
936:
937: /*Bug#4467198 Find the Financial Year Start and End Dates on the basis of effective date of the current payroll run.*/
938:
951:
952: END IF;
953:
954: IF g_debug THEN
955: hr_utility.set_location('l_fin_start_date: '|| l_fin_start_date, 55);
956: hr_utility.set_location('l_fin_end_date: '|| l_fin_end_date, 60);
957:
958: hr_utility.set_location('l_prev_yr_fin_start_date: '|| l_prev_yr_fin_start_date, 65);
959: hr_utility.set_location('l_prev_yr_fin_end_date: '|| l_prev_yr_fin_end_date, 70);
952: END IF;
953:
954: IF g_debug THEN
955: hr_utility.set_location('l_fin_start_date: '|| l_fin_start_date, 55);
956: hr_utility.set_location('l_fin_end_date: '|| l_fin_end_date, 60);
957:
958: hr_utility.set_location('l_prev_yr_fin_start_date: '|| l_prev_yr_fin_start_date, 65);
959: hr_utility.set_location('l_prev_yr_fin_end_date: '|| l_prev_yr_fin_end_date, 70);
960: END IF;
954: IF g_debug THEN
955: hr_utility.set_location('l_fin_start_date: '|| l_fin_start_date, 55);
956: hr_utility.set_location('l_fin_end_date: '|| l_fin_end_date, 60);
957:
958: hr_utility.set_location('l_prev_yr_fin_start_date: '|| l_prev_yr_fin_start_date, 65);
959: hr_utility.set_location('l_prev_yr_fin_end_date: '|| l_prev_yr_fin_end_date, 70);
960: END IF;
961:
962: /* Bug#4467198 - Use the below cursor to check if this is the first for the assignment in this year*/
955: hr_utility.set_location('l_fin_start_date: '|| l_fin_start_date, 55);
956: hr_utility.set_location('l_fin_end_date: '|| l_fin_end_date, 60);
957:
958: hr_utility.set_location('l_prev_yr_fin_start_date: '|| l_prev_yr_fin_start_date, 65);
959: hr_utility.set_location('l_prev_yr_fin_end_date: '|| l_prev_yr_fin_end_date, 70);
960: END IF;
961:
962: /* Bug#4467198 - Use the below cursor to check if this is the first for the assignment in this year*/
963: OPEN c_check_payroll_run(p_assignment_id,
999: END IF;
1000:
1001:
1002: IF g_debug THEN
1003: hr_utility.set_location('l_flag: '|| l_flag, 75);
1004: hr_utility.set_location('l_asg_act_id: '|| l_asg_act_id, 75);
1005: hr_utility.set_location('g_context_table(1).tax_unit_id: '|| l_tax_unit_id, 80);
1006: hr_utility.set_location('l_payroll_id: '||l_payroll_id, 85);
1007: hr_utility.set_location('p_tax_unit_id : '||p_tax_unit_id, 90);
1000:
1001:
1002: IF g_debug THEN
1003: hr_utility.set_location('l_flag: '|| l_flag, 75);
1004: hr_utility.set_location('l_asg_act_id: '|| l_asg_act_id, 75);
1005: hr_utility.set_location('g_context_table(1).tax_unit_id: '|| l_tax_unit_id, 80);
1006: hr_utility.set_location('l_payroll_id: '||l_payroll_id, 85);
1007: hr_utility.set_location('p_tax_unit_id : '||p_tax_unit_id, 90);
1008: END IF;
1001:
1002: IF g_debug THEN
1003: hr_utility.set_location('l_flag: '|| l_flag, 75);
1004: hr_utility.set_location('l_asg_act_id: '|| l_asg_act_id, 75);
1005: hr_utility.set_location('g_context_table(1).tax_unit_id: '|| l_tax_unit_id, 80);
1006: hr_utility.set_location('l_payroll_id: '||l_payroll_id, 85);
1007: hr_utility.set_location('p_tax_unit_id : '||p_tax_unit_id, 90);
1008: END IF;
1009:
1002: IF g_debug THEN
1003: hr_utility.set_location('l_flag: '|| l_flag, 75);
1004: hr_utility.set_location('l_asg_act_id: '|| l_asg_act_id, 75);
1005: hr_utility.set_location('g_context_table(1).tax_unit_id: '|| l_tax_unit_id, 80);
1006: hr_utility.set_location('l_payroll_id: '||l_payroll_id, 85);
1007: hr_utility.set_location('p_tax_unit_id : '||p_tax_unit_id, 90);
1008: END IF;
1009:
1010:
1003: hr_utility.set_location('l_flag: '|| l_flag, 75);
1004: hr_utility.set_location('l_asg_act_id: '|| l_asg_act_id, 75);
1005: hr_utility.set_location('g_context_table(1).tax_unit_id: '|| l_tax_unit_id, 80);
1006: hr_utility.set_location('l_payroll_id: '||l_payroll_id, 85);
1007: hr_utility.set_location('p_tax_unit_id : '||p_tax_unit_id, 90);
1008: END IF;
1009:
1010:
1011: IF nvl(l_asg_act_id,-99999) = -99999 THEN
1017: Average_Earnings will not be calculated.
1018: */
1019: p_case := 'POPULATE_MSG';
1020: IF g_debug THEN
1021: hr_utility.set_location('p_case: '|| p_case, 95);
1022: hr_utility.set_location('Exiting '||l_procedure,105);
1023: END IF;
1024: RETURN 110;
1025:
1018: */
1019: p_case := 'POPULATE_MSG';
1020: IF g_debug THEN
1021: hr_utility.set_location('p_case: '|| p_case, 95);
1022: hr_utility.set_location('Exiting '||l_procedure,105);
1023: END IF;
1024: RETURN 110;
1025:
1026: ELSE
1067: END IF;
1068: END IF;
1069:
1070: IF g_debug THEN
1071: hr_utility.set_location('p_paid_periods: '|| p_paid_periods, 100);
1072: END IF;
1073:
1074:
1075: IF NOT g_ytd_def_bals_populated THEN
1126: and g_ytd_bals(i).balance_name = 'Earnings_Standard'
1127: THEN
1128: p_earnings_standard := nvl(g_ytd_result_table(i).balance_value,0);
1129: IF g_debug THEN
1130: hr_utility.set_location('p_earnings_standard: '||p_earnings_standard, 60);
1131: END IF;
1132: ELSIF g_ytd_result_table(i).defined_balance_id = g_ytd_bals(i).defined_balance_id
1133: and g_ytd_bals(i).balance_name = 'Pre Tax Spread Deductions'
1134: THEN
1133: and g_ytd_bals(i).balance_name = 'Pre Tax Spread Deductions'
1134: THEN
1135: p_pre_tax_spread := nvl(g_ytd_result_table(i).balance_value,0);
1136: IF g_debug THEN
1137: hr_utility.set_location('p_pre_tax_spread_deductions: '||p_pre_tax_spread, 60);
1138: END IF;
1139:
1140: ELSIF g_ytd_result_table(i).defined_balance_id = g_ytd_bals(i).defined_balance_id
1141: and g_ytd_bals(i).balance_name = 'Pre Tax Fixed Deductions' and p_use_tax_flag = 'Y'
1142: /*bug4363057*/
1143: THEN
1144: p_pre_tax_fixed := nvl(g_ytd_result_table(i).balance_value,0);
1145: IF g_debug THEN
1146: hr_utility.set_location('p_pre_tax_fixed_deductions: '||p_pre_tax_fixed, 60);
1147: END IF;
1148: ELSIF g_ytd_result_table(i).defined_balance_id = g_ytd_bals(i).defined_balance_id
1149: and g_ytd_bals(i).balance_name = 'Pre Tax Progressive Deductions' and p_use_tax_flag = 'Y'
1150: /*bug4363057*/
1150: /*bug4363057*/
1151: THEN
1152: p_pre_tax_prog := nvl(g_ytd_result_table(i).balance_value,0);
1153: IF g_debug THEN
1154: hr_utility.set_location('p_pre_tax_progressive_deductions: '||p_pre_tax_prog, 60);
1155: END IF;
1156:
1157: ELSIF g_ytd_result_table(i).defined_balance_id = g_ytd_bals(i).defined_balance_id
1158: and g_ytd_bals(i).balance_name = 'Earnings_Leave_Loading' and p_use_tax_flag = 'Y'
1159: /*bug8725341*/
1160: THEN
1161: l_leave_loading := nvl(g_ytd_result_table(i).balance_value,0);
1162: IF g_debug THEN
1163: hr_utility.set_location('l_earnings_leave_loading: '||l_leave_loading, 60);
1164: END IF;
1165:
1166: END IF;
1167: END LOOP;
1170: p_earnings_standard := p_earnings_standard + l_leave_loading;
1171: END IF;
1172:
1173: if g_debug then
1174: hr_utility.set_location('OUT p_paid_periods: '|| p_paid_periods, 100);
1175: hr_utility.set_location('OUT p_earnings_standard: '||p_earnings_standard, 60);
1176: hr_utility.set_location('OUT p_pre_tax_spread_deductions: '||p_pre_tax_spread, 60);
1177: hr_utility.set_location('OUT p_pre_tax_fixed_deductions: '||p_pre_tax_fixed, 60);
1178: hr_utility.set_location('OUT p_pre_tax_progressive_deductions: '||p_pre_tax_prog, 60);
1171: END IF;
1172:
1173: if g_debug then
1174: hr_utility.set_location('OUT p_paid_periods: '|| p_paid_periods, 100);
1175: hr_utility.set_location('OUT p_earnings_standard: '||p_earnings_standard, 60);
1176: hr_utility.set_location('OUT p_pre_tax_spread_deductions: '||p_pre_tax_spread, 60);
1177: hr_utility.set_location('OUT p_pre_tax_fixed_deductions: '||p_pre_tax_fixed, 60);
1178: hr_utility.set_location('OUT p_pre_tax_progressive_deductions: '||p_pre_tax_prog, 60);
1179: hr_utility.set_location('Exiting '||l_procedure,105);
1172:
1173: if g_debug then
1174: hr_utility.set_location('OUT p_paid_periods: '|| p_paid_periods, 100);
1175: hr_utility.set_location('OUT p_earnings_standard: '||p_earnings_standard, 60);
1176: hr_utility.set_location('OUT p_pre_tax_spread_deductions: '||p_pre_tax_spread, 60);
1177: hr_utility.set_location('OUT p_pre_tax_fixed_deductions: '||p_pre_tax_fixed, 60);
1178: hr_utility.set_location('OUT p_pre_tax_progressive_deductions: '||p_pre_tax_prog, 60);
1179: hr_utility.set_location('Exiting '||l_procedure,105);
1180: end if;
1173: if g_debug then
1174: hr_utility.set_location('OUT p_paid_periods: '|| p_paid_periods, 100);
1175: hr_utility.set_location('OUT p_earnings_standard: '||p_earnings_standard, 60);
1176: hr_utility.set_location('OUT p_pre_tax_spread_deductions: '||p_pre_tax_spread, 60);
1177: hr_utility.set_location('OUT p_pre_tax_fixed_deductions: '||p_pre_tax_fixed, 60);
1178: hr_utility.set_location('OUT p_pre_tax_progressive_deductions: '||p_pre_tax_prog, 60);
1179: hr_utility.set_location('Exiting '||l_procedure,105);
1180: end if;
1181:
1174: hr_utility.set_location('OUT p_paid_periods: '|| p_paid_periods, 100);
1175: hr_utility.set_location('OUT p_earnings_standard: '||p_earnings_standard, 60);
1176: hr_utility.set_location('OUT p_pre_tax_spread_deductions: '||p_pre_tax_spread, 60);
1177: hr_utility.set_location('OUT p_pre_tax_fixed_deductions: '||p_pre_tax_fixed, 60);
1178: hr_utility.set_location('OUT p_pre_tax_progressive_deductions: '||p_pre_tax_prog, 60);
1179: hr_utility.set_location('Exiting '||l_procedure,105);
1180: end if;
1181:
1182: return 1000;
1175: hr_utility.set_location('OUT p_earnings_standard: '||p_earnings_standard, 60);
1176: hr_utility.set_location('OUT p_pre_tax_spread_deductions: '||p_pre_tax_spread, 60);
1177: hr_utility.set_location('OUT p_pre_tax_fixed_deductions: '||p_pre_tax_fixed, 60);
1178: hr_utility.set_location('OUT p_pre_tax_progressive_deductions: '||p_pre_tax_prog, 60);
1179: hr_utility.set_location('Exiting '||l_procedure,105);
1180: end if;
1181:
1182: return 1000;
1183: END IF;
1268:
1269:
1270:
1271: begin
1272: g_debug := hr_utility.debug_enabled;
1273:
1274: if g_debug then
1275: l_procedure :='pay_au_paye_ff.paid_periods_since_hire_date';
1276: hr_utility.set_location('Entering '||l_procedure,10);
1272: g_debug := hr_utility.debug_enabled;
1273:
1274: if g_debug then
1275: l_procedure :='pay_au_paye_ff.paid_periods_since_hire_date';
1276: hr_utility.set_location('Entering '||l_procedure,10);
1277: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
1278: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1273:
1274: if g_debug then
1275: l_procedure :='pay_au_paye_ff.paid_periods_since_hire_date';
1276: hr_utility.set_location('Entering '||l_procedure,10);
1277: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
1278: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1274: if g_debug then
1275: l_procedure :='pay_au_paye_ff.paid_periods_since_hire_date';
1276: hr_utility.set_location('Entering '||l_procedure,10);
1277: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
1278: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1282: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
1275: l_procedure :='pay_au_paye_ff.paid_periods_since_hire_date';
1276: hr_utility.set_location('Entering '||l_procedure,10);
1277: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
1278: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1282: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
1283: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
1276: hr_utility.set_location('Entering '||l_procedure,10);
1277: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
1278: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1282: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
1283: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
1284: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
1277: hr_utility.set_location('IN p_payroll_id '||p_payroll_id,20);
1278: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1282: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
1283: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
1284: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
1285:
1278: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,25);
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1282: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
1283: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
1284: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
1285:
1286: end if;
1279: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1282: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
1283: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
1284: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
1285:
1286: end if;
1287:
1280: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,35);
1281: hr_utility.set_location('IN p_period_num '||p_period_num,40);
1282: hr_utility.set_location('IN p_period_start '||to_char(p_period_start,'dd/mm/yyyy'),45);
1283: hr_utility.set_location('IN p_emp_hire_date '||to_char(p_emp_hire_date,'dd/mm/yyyy'),50);
1284: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,55);
1285:
1286: end if;
1287:
1288: OPEN c_get_payroll_effective_date; /*Bug 4438644*/
1337:
1338: l_count_period := l_count_period + 1; /*Bug 4438644 - Increment done for current payroll period*/
1339:
1340: if g_debug then
1341: hr_utility.set_location('Return l_count_period '||l_count_period,60);
1342: hr_utility.set_location('Exiting '||l_procedure,70);
1343: end if ;
1344:
1345: RETURN l_count_period;
1338: l_count_period := l_count_period + 1; /*Bug 4438644 - Increment done for current payroll period*/
1339:
1340: if g_debug then
1341: hr_utility.set_location('Return l_count_period '||l_count_period,60);
1342: hr_utility.set_location('Exiting '||l_procedure,70);
1343: end if ;
1344:
1345: RETURN l_count_period;
1346:
1366:
1367: l_amt_period number;
1368:
1369: begin
1370: g_debug := hr_utility.debug_enabled;
1371: If(p_tax_scale <> 4) then
1372: if p_ann_freq = 52 then
1373: l_amt_period := p_amt_week;
1374: elsif p_ann_freq = 26 then
1409: )
1410: return number is
1411:
1412: begin
1413: g_debug := hr_utility.debug_enabled;
1414: If(p_tax_scale <> 4) then
1415: return (round(p_actual_amt));
1416: else
1417: return (trunc(p_actual_amt));
1435: l_creator_type pay_element_entries_f.creator_type%TYPE;
1436: IS_retro_payment varchar2(10);
1437: l_procedure varchar2(80);
1438: begin
1439: g_debug := hr_utility.debug_enabled;
1440:
1441: if g_debug then
1442: l_procedure :='pay_au_paye_ff.check_if_retro';
1443: hr_utility.set_location('Entering '||l_procedure,10);
1439: g_debug := hr_utility.debug_enabled;
1440:
1441: if g_debug then
1442: l_procedure :='pay_au_paye_ff.check_if_retro';
1443: hr_utility.set_location('Entering '||l_procedure,10);
1444: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1445: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
1446: end if;
1447:
1440:
1441: if g_debug then
1442: l_procedure :='pay_au_paye_ff.check_if_retro';
1443: hr_utility.set_location('Entering '||l_procedure,10);
1444: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1445: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
1446: end if;
1447:
1448: OPEN c_get_creator_type(p_element_entry_id,p_date_earned);
1441: if g_debug then
1442: l_procedure :='pay_au_paye_ff.check_if_retro';
1443: hr_utility.set_location('Entering '||l_procedure,10);
1444: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1445: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
1446: end if;
1447:
1448: OPEN c_get_creator_type(p_element_entry_id,p_date_earned);
1449: FETCH c_get_creator_type INTO l_creator_type ;
1454: IS_retro_payment:='N';
1455: end if;
1456:
1457: if g_debug then
1458: hr_utility.set_location('Return IS_retro_payment '||IS_retro_payment,40);
1459: hr_utility.set_location('Exiting '||l_procedure,50);
1460: end if;
1461:
1462: return IS_retro_payment;
1455: end if;
1456:
1457: if g_debug then
1458: hr_utility.set_location('Return IS_retro_payment '||IS_retro_payment,40);
1459: hr_utility.set_location('Exiting '||l_procedure,50);
1460: end if;
1461:
1462: return IS_retro_payment;
1463:
1525: l_procedure varchar2(80);
1526:
1527:
1528: begin
1529: g_debug := hr_utility.debug_enabled;
1530:
1531: IF g_debug THEN
1532: l_procedure :='pay_au_paye_ff.get_retro_period';
1533: hr_utility.set_location('Entering '||l_procedure,10);
1529: g_debug := hr_utility.debug_enabled;
1530:
1531: IF g_debug THEN
1532: l_procedure :='pay_au_paye_ff.get_retro_period';
1533: hr_utility.set_location('Entering '||l_procedure,10);
1534: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1535: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
1536: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id ,40);
1537:
1530:
1531: IF g_debug THEN
1532: l_procedure :='pay_au_paye_ff.get_retro_period';
1533: hr_utility.set_location('Entering '||l_procedure,10);
1534: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1535: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
1536: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id ,40);
1537:
1538: END IF;
1531: IF g_debug THEN
1532: l_procedure :='pay_au_paye_ff.get_retro_period';
1533: hr_utility.set_location('Entering '||l_procedure,10);
1534: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1535: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
1536: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id ,40);
1537:
1538: END IF;
1539:
1532: l_procedure :='pay_au_paye_ff.get_retro_period';
1533: hr_utility.set_location('Entering '||l_procedure,10);
1534: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1535: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
1536: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id ,40);
1537:
1538: END IF;
1539:
1540:
1539:
1540:
1541: l_period_obtained_flag:=1;
1542: IF g_debug THEN
1543: hr_utility.set_location('l_period_obtained_flag '||l_period_obtained_flag,45);
1544: END IF;
1545:
1546: OPEN c_get_creator_type(p_element_entry_id,p_date_earned);
1547: FETCH c_get_creator_type INTO l_creator_type ;
1563: end if;
1564:
1565: IF g_debug THEN
1566:
1567: hr_utility.set_location('OUT p_retro_start_date '||to_char(p_retro_start_date,'dd/mm/yyyy'),50);
1568: hr_utility.set_location('OUT p_retro_end_date '||to_char(p_retro_end_date,'dd/mm/yyyy'),55);
1569: hr_utility.set_location('OUT l_period_obtained_flag '||l_period_obtained_flag,60);
1570: hr_utility.set_location('Exiting '||l_procedure,70);
1571:
1564:
1565: IF g_debug THEN
1566:
1567: hr_utility.set_location('OUT p_retro_start_date '||to_char(p_retro_start_date,'dd/mm/yyyy'),50);
1568: hr_utility.set_location('OUT p_retro_end_date '||to_char(p_retro_end_date,'dd/mm/yyyy'),55);
1569: hr_utility.set_location('OUT l_period_obtained_flag '||l_period_obtained_flag,60);
1570: hr_utility.set_location('Exiting '||l_procedure,70);
1571:
1572: END IF;
1565: IF g_debug THEN
1566:
1567: hr_utility.set_location('OUT p_retro_start_date '||to_char(p_retro_start_date,'dd/mm/yyyy'),50);
1568: hr_utility.set_location('OUT p_retro_end_date '||to_char(p_retro_end_date,'dd/mm/yyyy'),55);
1569: hr_utility.set_location('OUT l_period_obtained_flag '||l_period_obtained_flag,60);
1570: hr_utility.set_location('Exiting '||l_procedure,70);
1571:
1572: END IF;
1573:
1566:
1567: hr_utility.set_location('OUT p_retro_start_date '||to_char(p_retro_start_date,'dd/mm/yyyy'),50);
1568: hr_utility.set_location('OUT p_retro_end_date '||to_char(p_retro_end_date,'dd/mm/yyyy'),55);
1569: hr_utility.set_location('OUT l_period_obtained_flag '||l_period_obtained_flag,60);
1570: hr_utility.set_location('Exiting '||l_procedure,70);
1571:
1572: END IF;
1573:
1574: return l_period_obtained_flag;
1678:
1679:
1680: BEGIN
1681:
1682: g_debug := hr_utility.debug_enabled;
1683: l_period_obtained_flag := 1;
1684:
1685: IF g_debug THEN
1686: l_procedure := 'pay_au_payee_ff.get_enhanced_retro_period';
1683: l_period_obtained_flag := 1;
1684:
1685: IF g_debug THEN
1686: l_procedure := 'pay_au_payee_ff.get_enhanced_retro_period';
1687: hr_utility.set_location('Entering '||l_procedure,10);
1688: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1689: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1690: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1691: END IF;
1684:
1685: IF g_debug THEN
1686: l_procedure := 'pay_au_payee_ff.get_enhanced_retro_period';
1687: hr_utility.set_location('Entering '||l_procedure,10);
1688: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1689: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1690: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1691: END IF;
1692:
1685: IF g_debug THEN
1686: l_procedure := 'pay_au_payee_ff.get_enhanced_retro_period';
1687: hr_utility.set_location('Entering '||l_procedure,10);
1688: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1689: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1690: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1691: END IF;
1692:
1693: OPEN get_retropay_run_details(p_element_entry_id);
1686: l_procedure := 'pay_au_payee_ff.get_enhanced_retro_period';
1687: hr_utility.set_location('Entering '||l_procedure,10);
1688: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,20);
1689: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1690: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1691: END IF;
1692:
1693: OPEN get_retropay_run_details(p_element_entry_id);
1694: FETCH get_retropay_run_details INTO l_creator_type,p_retro_effective_date;
1739: p_time_span := l_time_span;
1740:
1741: IF g_debug
1742: THEN
1743: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,40);
1744: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,50);
1745: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,60);
1746: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,70);
1747: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1740:
1741: IF g_debug
1742: THEN
1743: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,40);
1744: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,50);
1745: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,60);
1746: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,70);
1747: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1748: hr_utility.set_location('Exiting '||l_procedure,90);
1741: IF g_debug
1742: THEN
1743: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,40);
1744: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,50);
1745: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,60);
1746: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,70);
1747: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1748: hr_utility.set_location('Exiting '||l_procedure,90);
1749: END IF;
1742: THEN
1743: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,40);
1744: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,50);
1745: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,60);
1746: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,70);
1747: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1748: hr_utility.set_location('Exiting '||l_procedure,90);
1749: END IF;
1750:
1743: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,40);
1744: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,50);
1745: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,60);
1746: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,70);
1747: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1748: hr_utility.set_location('Exiting '||l_procedure,90);
1749: END IF;
1750:
1751: RETURN l_period_obtained_flag;
1744: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,50);
1745: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,60);
1746: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,70);
1747: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1748: hr_utility.set_location('Exiting '||l_procedure,90);
1749: END IF;
1750:
1751: RETURN l_period_obtained_flag;
1752:
1781: l_proc_name VARCHAR2(80);
1782:
1783: BEGIN
1784:
1785: g_debug := hr_utility.debug_enabled;
1786:
1787: IF g_debug THEN
1788: l_proc_name := 'pay_au_paye_ff.check_if_enhanced_retro';
1789: hr_utility.set_location('Entering '||l_proc_name,10);
1785: g_debug := hr_utility.debug_enabled;
1786:
1787: IF g_debug THEN
1788: l_proc_name := 'pay_au_paye_ff.check_if_enhanced_retro';
1789: hr_utility.set_location('Entering '||l_proc_name,10);
1790: hr_utility.set_location('IN p_business_group_id => '||p_business_group_id,20);
1791: END IF;
1792:
1793: OPEN get_legislation_rule(p_business_group_id);
1786:
1787: IF g_debug THEN
1788: l_proc_name := 'pay_au_paye_ff.check_if_enhanced_retro';
1789: hr_utility.set_location('Entering '||l_proc_name,10);
1790: hr_utility.set_location('IN p_business_group_id => '||p_business_group_id,20);
1791: END IF;
1792:
1793: OPEN get_legislation_rule(p_business_group_id);
1794: FETCH get_legislation_rule INTO l_return;
1794: FETCH get_legislation_rule INTO l_return;
1795: CLOSE get_legislation_rule;
1796:
1797: IF g_debug THEN
1798: hr_utility.set_location('OUT Return Value =>'||l_return,30);
1799: hr_utility.set_location('Exiting '||l_proc_name,40);
1800: END IF;
1801:
1802: RETURN NVL(l_return,'N');
1795: CLOSE get_legislation_rule;
1796:
1797: IF g_debug THEN
1798: hr_utility.set_location('OUT Return Value =>'||l_return,30);
1799: hr_utility.set_location('Exiting '||l_proc_name,40);
1800: END IF;
1801:
1802: RETURN NVL(l_return,'N');
1803:
1865: l_temp NUMBER;
1866:
1867: BEGIN
1868:
1869: g_debug := hr_utility.debug_enabled;
1870:
1871: IF g_debug THEN
1872: l_proc_name := 'pay_au_paye_ff.get_retro_time_span';
1873: hr_utility.set_location('Entering '||l_proc_name,10);
1869: g_debug := hr_utility.debug_enabled;
1870:
1871: IF g_debug THEN
1872: l_proc_name := 'pay_au_paye_ff.get_retro_time_span';
1873: hr_utility.set_location('Entering '||l_proc_name,10);
1874: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,30);
1875: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1876: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1877: END IF;
1870:
1871: IF g_debug THEN
1872: l_proc_name := 'pay_au_paye_ff.get_retro_time_span';
1873: hr_utility.set_location('Entering '||l_proc_name,10);
1874: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,30);
1875: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1876: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1877: END IF;
1878:
1871: IF g_debug THEN
1872: l_proc_name := 'pay_au_paye_ff.get_retro_time_span';
1873: hr_utility.set_location('Entering '||l_proc_name,10);
1874: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,30);
1875: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1876: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1877: END IF;
1878:
1879: l_retro_type := NULL;
1872: l_proc_name := 'pay_au_paye_ff.get_retro_time_span';
1873: hr_utility.set_location('Entering '||l_proc_name,10);
1874: hr_utility.set_location('IN p_element_entry_id '||p_element_entry_id,30);
1875: hr_utility.set_location('IN p_date_earned '||p_date_earned,30);
1876: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,30);
1877: END IF;
1878:
1879: l_retro_type := NULL;
1880:
1886: AND l_entry_details.retro_component_id IS NOT NULL)
1887: THEN
1888: /* Entry Created using Enhanced Retropay */
1889: IF g_debug THEN
1890: hr_utility.set_location('Entry created by Enhanced Retropay ',40);
1891: hr_utility.set_location('Retro Component ID =>'||l_entry_details.retro_component_id,40);
1892: END IF;
1893: l_retro_type := 'ADVANCED_RETRO';
1894: l_temp := get_enhanced_retro_period
1887: THEN
1888: /* Entry Created using Enhanced Retropay */
1889: IF g_debug THEN
1890: hr_utility.set_location('Entry created by Enhanced Retropay ',40);
1891: hr_utility.set_location('Retro Component ID =>'||l_entry_details.retro_component_id,40);
1892: END IF;
1893: l_retro_type := 'ADVANCED_RETRO';
1894: l_temp := get_enhanced_retro_period
1895: (
1906: The Effective Dates are set to NULL as its irrelevent and not required
1907: for Retropay by element processing */
1908:
1909: IF g_debug THEN
1910: hr_utility.set_location('Entry created by Retropay by Element',50);
1911: END IF;
1912:
1913: l_retro_type := 'RETRO_ELE';
1914: p_orig_effective_date := NULL;
1941: p_retro_type := l_retro_type;
1942:
1943: IF g_debug
1944: THEN
1945: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,80);
1946: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,80);
1947: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,80);
1948: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,80);
1949: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1942:
1943: IF g_debug
1944: THEN
1945: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,80);
1946: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,80);
1947: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,80);
1948: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,80);
1949: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1950: hr_utility.set_location('OUT l_retro_type '||l_retro_type,80);
1943: IF g_debug
1944: THEN
1945: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,80);
1946: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,80);
1947: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,80);
1948: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,80);
1949: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1950: hr_utility.set_location('OUT l_retro_type '||l_retro_type,80);
1951: hr_utility.set_location('Exiting '||l_proc_name,90);
1944: THEN
1945: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,80);
1946: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,80);
1947: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,80);
1948: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,80);
1949: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1950: hr_utility.set_location('OUT l_retro_type '||l_retro_type,80);
1951: hr_utility.set_location('Exiting '||l_proc_name,90);
1952: END IF;
1945: hr_utility.set_location('OUT p_retro_start_date '||p_retro_start_date,80);
1946: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,80);
1947: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,80);
1948: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,80);
1949: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1950: hr_utility.set_location('OUT l_retro_type '||l_retro_type,80);
1951: hr_utility.set_location('Exiting '||l_proc_name,90);
1952: END IF;
1953:
1946: hr_utility.set_location('OUT p_retro_end_date '||p_retro_end_date,80);
1947: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,80);
1948: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,80);
1949: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1950: hr_utility.set_location('OUT l_retro_type '||l_retro_type,80);
1951: hr_utility.set_location('Exiting '||l_proc_name,90);
1952: END IF;
1953:
1954: return 1;
1947: hr_utility.set_location('OUT p_orig_effective_date '||p_orig_effective_date,80);
1948: hr_utility.set_location('OUT p_retro_effective_date '||p_retro_effective_date,80);
1949: hr_utility.set_location('OUT p_time_span '||p_time_span,80);
1950: hr_utility.set_location('OUT l_retro_type '||l_retro_type,80);
1951: hr_utility.set_location('Exiting '||l_proc_name,90);
1952: END IF;
1953:
1954: return 1;
1955: END get_retro_time_span;
2051:
2052: --
2053: begin
2054:
2055: g_debug := hr_utility.debug_enabled;
2056:
2057: if g_debug then
2058: l_procedure :='pay_au_paye_ff.count_retro_periods';
2059: hr_utility.set_location('Entering '||l_procedure,10);
2055: g_debug := hr_utility.debug_enabled;
2056:
2057: if g_debug then
2058: l_procedure :='pay_au_paye_ff.count_retro_periods';
2059: hr_utility.set_location('Entering '||l_procedure,10);
2060: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2061: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2062: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,20);
2063: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,20);
2056:
2057: if g_debug then
2058: l_procedure :='pay_au_paye_ff.count_retro_periods';
2059: hr_utility.set_location('Entering '||l_procedure,10);
2060: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2061: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2062: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,20);
2063: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,20);
2064: end if;
2057: if g_debug then
2058: l_procedure :='pay_au_paye_ff.count_retro_periods';
2059: hr_utility.set_location('Entering '||l_procedure,10);
2060: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2061: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2062: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,20);
2063: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,20);
2064: end if;
2065:
2058: l_procedure :='pay_au_paye_ff.count_retro_periods';
2059: hr_utility.set_location('Entering '||l_procedure,10);
2060: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2061: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2062: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,20);
2063: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,20);
2064: end if;
2065:
2066:
2059: hr_utility.set_location('Entering '||l_procedure,10);
2060: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2061: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2062: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,20);
2063: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,20);
2064: end if;
2065:
2066:
2067: OPEN c_get_effective_date(p_assignment_action_id);
2068: FETCH c_get_effective_date INTO l_pay_effective_date;
2069: CLOSE c_get_effective_date;
2070:
2071: IF g_debug THEN
2072: hr_utility.set_location('Pay Effective Date =>'||to_char(l_pay_effective_date,'dd/mm/yyyy'),30);
2073: END IF;
2074:
2075: /*bug7665727 - Based on Effective Date because +ve Offset payrolls may have Pay Date in the next
2076: financial year for a period in current financial year. */
2100: END IF;
2101: CLOSE get_legislation_rule;
2102:
2103: IF g_debug THEN
2104: hr_utility.set_location('Enhanced Retropay Rule Value =>'||l_adv_retro_flag,50);
2105: END IF;
2106:
2107:
2108: for process_element in get_element_entries
2257:
2258: END IF;
2259:
2260: if g_debug then
2261: hr_utility.set_location('Return l_retro_periods '||l_retro_periods,60);
2262: hr_utility.set_location('Exiting '||l_procedure,70);
2263: end if;
2264:
2265: return l_retro_periods;
2258: END IF;
2259:
2260: if g_debug then
2261: hr_utility.set_location('Return l_retro_periods '||l_retro_periods,60);
2262: hr_utility.set_location('Exiting '||l_procedure,70);
2263: end if;
2264:
2265: return l_retro_periods;
2266:
2427:
2428: --
2429: begin
2430:
2431: g_debug := hr_utility.debug_enabled;
2432:
2433: if g_debug then
2434: l_procedure :='pay_au_paye_ff.count_retro_periods_2009';
2435: hr_utility.set_location('Entering '||l_procedure,10);
2431: g_debug := hr_utility.debug_enabled;
2432:
2433: if g_debug then
2434: l_procedure :='pay_au_paye_ff.count_retro_periods_2009';
2435: hr_utility.set_location('Entering '||l_procedure,10);
2436: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2437: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2438: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,40);
2439: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,50);
2432:
2433: if g_debug then
2434: l_procedure :='pay_au_paye_ff.count_retro_periods_2009';
2435: hr_utility.set_location('Entering '||l_procedure,10);
2436: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2437: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2438: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,40);
2439: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,50);
2440: hr_utility.set_location('IN p_mode '||p_mode,60);
2433: if g_debug then
2434: l_procedure :='pay_au_paye_ff.count_retro_periods_2009';
2435: hr_utility.set_location('Entering '||l_procedure,10);
2436: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2437: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2438: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,40);
2439: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,50);
2440: hr_utility.set_location('IN p_mode '||p_mode,60);
2441: end if;
2434: l_procedure :='pay_au_paye_ff.count_retro_periods_2009';
2435: hr_utility.set_location('Entering '||l_procedure,10);
2436: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2437: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2438: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,40);
2439: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,50);
2440: hr_utility.set_location('IN p_mode '||p_mode,60);
2441: end if;
2442:
2435: hr_utility.set_location('Entering '||l_procedure,10);
2436: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2437: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2438: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,40);
2439: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,50);
2440: hr_utility.set_location('IN p_mode '||p_mode,60);
2441: end if;
2442:
2443:
2436: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
2437: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2438: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,40);
2439: hr_utility.set_location('IN p_use_tax_flag '||p_use_tax_flag,50);
2440: hr_utility.set_location('IN p_mode '||p_mode,60);
2441: end if;
2442:
2443:
2444: l_leaveload_mode := NVL(SUBSTR(p_mode,2,1),'Y');
2443:
2444: l_leaveload_mode := NVL(SUBSTR(p_mode,2,1),'Y');
2445:
2446: IF g_debug THEN
2447: hr_utility.set_location('l_leaveload_mode '||l_leaveload_mode,70);
2448: END IF;
2449:
2450: OPEN get_legislation_rule;
2451: FETCH get_legislation_rule INTO l_adv_retro_flag;
2454: END IF;
2455: CLOSE get_legislation_rule;
2456:
2457: IF g_debug THEN
2458: hr_utility.set_location('Enhanced Retropay Rule Value =>'||l_adv_retro_flag,70);
2459: END IF;
2460:
2461: l_retro_periods:=0;
2462: financial_year_span_start:=hr_au_routes.span_start(p_date_earned,1,'01-07');
2734: l_count := tot_period_amount.NEXT(l_count);
2735: end loop;
2736:
2737: if g_debug then
2738: hr_utility.set_location('Return l_retro_periods '||l_retro_periods,80);
2739: hr_utility.set_location('Exiting '||l_procedure,90);
2740: end if;
2741:
2742: return l_retro_periods;
2735: end loop;
2736:
2737: if g_debug then
2738: hr_utility.set_location('Return l_retro_periods '||l_retro_periods,80);
2739: hr_utility.set_location('Exiting '||l_procedure,90);
2740: end if;
2741:
2742: return l_retro_periods;
2743:
2757: tax_on_total_period number;
2758: l_procedure varchar2(80);
2759:
2760: begin
2761: g_debug := hr_utility.debug_enabled;
2762:
2763: if g_debug then
2764: l_procedure :='pay_au_paye_ff.calculate_tax';
2765: hr_utility.set_location('Entering '||l_procedure,10);
2761: g_debug := hr_utility.debug_enabled;
2762:
2763: if g_debug then
2764: l_procedure :='pay_au_paye_ff.calculate_tax';
2765: hr_utility.set_location('Entering '||l_procedure,10);
2766: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2767: hr_utility.set_location('IN p_period_amount '||p_period_amount,25);
2768: hr_utility.set_location('IN p_period_frequency '||p_period_frequency,30);
2769: hr_utility.set_location('IN p_tax_scale '||p_tax_scale,35);
2762:
2763: if g_debug then
2764: l_procedure :='pay_au_paye_ff.calculate_tax';
2765: hr_utility.set_location('Entering '||l_procedure,10);
2766: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2767: hr_utility.set_location('IN p_period_amount '||p_period_amount,25);
2768: hr_utility.set_location('IN p_period_frequency '||p_period_frequency,30);
2769: hr_utility.set_location('IN p_tax_scale '||p_tax_scale,35);
2770: hr_utility.set_location('IN p_al_variable '||p_a1_variable,40);
2763: if g_debug then
2764: l_procedure :='pay_au_paye_ff.calculate_tax';
2765: hr_utility.set_location('Entering '||l_procedure,10);
2766: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2767: hr_utility.set_location('IN p_period_amount '||p_period_amount,25);
2768: hr_utility.set_location('IN p_period_frequency '||p_period_frequency,30);
2769: hr_utility.set_location('IN p_tax_scale '||p_tax_scale,35);
2770: hr_utility.set_location('IN p_al_variable '||p_a1_variable,40);
2771: hr_utility.set_location('IN p_bl_variable '||p_a1_variable,45);
2764: l_procedure :='pay_au_paye_ff.calculate_tax';
2765: hr_utility.set_location('Entering '||l_procedure,10);
2766: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2767: hr_utility.set_location('IN p_period_amount '||p_period_amount,25);
2768: hr_utility.set_location('IN p_period_frequency '||p_period_frequency,30);
2769: hr_utility.set_location('IN p_tax_scale '||p_tax_scale,35);
2770: hr_utility.set_location('IN p_al_variable '||p_a1_variable,40);
2771: hr_utility.set_location('IN p_bl_variable '||p_a1_variable,45);
2772:
2765: hr_utility.set_location('Entering '||l_procedure,10);
2766: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2767: hr_utility.set_location('IN p_period_amount '||p_period_amount,25);
2768: hr_utility.set_location('IN p_period_frequency '||p_period_frequency,30);
2769: hr_utility.set_location('IN p_tax_scale '||p_tax_scale,35);
2770: hr_utility.set_location('IN p_al_variable '||p_a1_variable,40);
2771: hr_utility.set_location('IN p_bl_variable '||p_a1_variable,45);
2772:
2773: end if;
2766: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),20);
2767: hr_utility.set_location('IN p_period_amount '||p_period_amount,25);
2768: hr_utility.set_location('IN p_period_frequency '||p_period_frequency,30);
2769: hr_utility.set_location('IN p_tax_scale '||p_tax_scale,35);
2770: hr_utility.set_location('IN p_al_variable '||p_a1_variable,40);
2771: hr_utility.set_location('IN p_bl_variable '||p_a1_variable,45);
2772:
2773: end if;
2774:
2767: hr_utility.set_location('IN p_period_amount '||p_period_amount,25);
2768: hr_utility.set_location('IN p_period_frequency '||p_period_frequency,30);
2769: hr_utility.set_location('IN p_tax_scale '||p_tax_scale,35);
2770: hr_utility.set_location('IN p_al_variable '||p_a1_variable,40);
2771: hr_utility.set_location('IN p_bl_variable '||p_a1_variable,45);
2772:
2773: end if;
2774:
2775: pay_per_week:=convert_to_week(p_period_frequency,p_period_amount);
2787:
2788: tax_on_total_period:=convert_to_period_amt(p_period_frequency,tax_on_weekly,p_tax_scale);
2789:
2790: if g_debug then
2791: hr_utility.set_location('Return tax_on_total_period '||tax_on_total_period,50);
2792: hr_utility.set_location('Exiting '||l_procedure,60);
2793: end if ;
2794:
2795: return tax_on_total_period;
2788: tax_on_total_period:=convert_to_period_amt(p_period_frequency,tax_on_weekly,p_tax_scale);
2789:
2790: if g_debug then
2791: hr_utility.set_location('Return tax_on_total_period '||tax_on_total_period,50);
2792: hr_utility.set_location('Exiting '||l_procedure,60);
2793: end if ;
2794:
2795: return tax_on_total_period;
2796:
2882:
2883: l_procedure varchar2(80);
2884:
2885: begin
2886: g_debug := hr_utility.debug_enabled;
2887:
2888: if g_debug then
2889: l_procedure :='pay_au_paye_ff.check_fixed_deduction';
2890: hr_utility.set_location('Entering '||l_procedure,10);
2886: g_debug := hr_utility.debug_enabled;
2887:
2888: if g_debug then
2889: l_procedure :='pay_au_paye_ff.check_fixed_deduction';
2890: hr_utility.set_location('Entering '||l_procedure,10);
2891: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,20);
2892: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2893: end if ;
2894:
2887:
2888: if g_debug then
2889: l_procedure :='pay_au_paye_ff.check_fixed_deduction';
2890: hr_utility.set_location('Entering '||l_procedure,10);
2891: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,20);
2892: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2893: end if ;
2894:
2895: OPEN check_fixed_deduction(p_assignment_id , p_date_earned);
2888: if g_debug then
2889: l_procedure :='pay_au_paye_ff.check_fixed_deduction';
2890: hr_utility.set_location('Entering '||l_procedure,10);
2891: hr_utility.set_location('IN p_assignment_id '||p_assignment_id,20);
2892: hr_utility.set_location('IN p_date_earned '||to_char(p_date_earned,'dd/mm/yyyy'),30);
2893: end if ;
2894:
2895: OPEN check_fixed_deduction(p_assignment_id , p_date_earned);
2896: FETCH check_fixed_deduction into l_deduction_flag;
2900: l_deduction_flag:='N';
2901: end if;
2902:
2903: if g_debug then
2904: hr_utility.set_location('OUT l_deduction_flag '||l_deduction_flag,35);
2905: hr_utility.set_location('Exiting '||l_procedure,40);
2906: end if ;
2907:
2908: return l_deduction_flag;
2901: end if;
2902:
2903: if g_debug then
2904: hr_utility.set_location('OUT l_deduction_flag '||l_deduction_flag,35);
2905: hr_utility.set_location('Exiting '||l_procedure,40);
2906: end if ;
2907:
2908: return l_deduction_flag;
2909:
2921: l_length NUMBER := 0 ;
2922: l_blank_counter NUMBER := 0 ;
2923:
2924: BEGIN
2925: g_debug := hr_utility.debug_enabled;
2926: IF g_debug THEN
2927: hr_utility.trace('Entered function pay_au_paye_ff.validate_data_magtape');
2928: hr_utility.trace('IN p_data '||p_data);
2929: END IF;
2923:
2924: BEGIN
2925: g_debug := hr_utility.debug_enabled;
2926: IF g_debug THEN
2927: hr_utility.trace('Entered function pay_au_paye_ff.validate_data_magtape');
2928: hr_utility.trace('IN p_data '||p_data);
2929: END IF;
2930:
2931: IF (p_data IS NULL) THEN
2924: BEGIN
2925: g_debug := hr_utility.debug_enabled;
2926: IF g_debug THEN
2927: hr_utility.trace('Entered function pay_au_paye_ff.validate_data_magtape');
2928: hr_utility.trace('IN p_data '||p_data);
2929: END IF;
2930:
2931: IF (p_data IS NULL) THEN
2932: IF g_debug THEN
2929: END IF;
2930:
2931: IF (p_data IS NULL) THEN
2932: IF g_debug THEN
2933: hr_utility.trace('Exiting function pay_au_paye_ff.validate_data_magtape');
2934: END IF;
2935:
2936: RETURN ' ';
2937: END IF;
2936: RETURN ' ';
2937: END IF;
2938:
2939: IF g_debug THEN
2940: hr_utility.trace('Value of the in parameter p_data ==>' || p_data);
2941: END IF;
2942: l_data := replace(p_data,'_','-');
2943:
2944: l_length := length(p_data);
2942: l_data := replace(p_data,'_','-');
2943:
2944: l_length := length(p_data);
2945: IF g_debug THEN
2946: hr_utility.trace('Length of the input data passed ==>' || l_length);
2947: END IF;
2948: FOR l_counter IN 1..l_length
2949: LOOP
2950: IF g_debug THEN
2947: END IF;
2948: FOR l_counter IN 1..l_length
2949: LOOP
2950: IF g_debug THEN
2951: hr_utility.trace('Counter value ==>' || l_counter);
2952: END IF;
2953: l_pos_value := upper(substr(l_data,l_counter,1));
2954: IF g_debug THEN
2955: hr_utility.trace('Value at position ' || l_counter || '==>' || l_pos_value);
2951: hr_utility.trace('Counter value ==>' || l_counter);
2952: END IF;
2953: l_pos_value := upper(substr(l_data,l_counter,1));
2954: IF g_debug THEN
2955: hr_utility.trace('Value at position ' || l_counter || '==>' || l_pos_value);
2956: END IF;
2957: IF (l_pos_value = ' ' and l_counter > 1) THEN /* No need to check first character */
2958: IF (l_blank_counter = l_counter - 1) THEN
2959: IF g_debug THEN
2956: END IF;
2957: IF (l_pos_value = ' ' and l_counter > 1) THEN /* No need to check first character */
2958: IF (l_blank_counter = l_counter - 1) THEN
2959: IF g_debug THEN
2960: hr_utility.trace('Value ' || l_pos_value || 'is invalid. More than one space between words.');
2961: END IF;
2962: /* Remove all blank spaces after the first. */
2963: l_data_substr := substr(l_data, l_counter, l_length);
2964: l_data := substr(l_data, 1, l_blank_counter);
2976: l_ins_result := instr('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ()&/"''-',l_pos_value);
2977:
2978: IF l_ins_result = 0 THEN
2979: IF g_debug THEN
2980: hr_utility.trace('Value ' || l_pos_value || 'is invalid');
2981: END IF;
2982: l_data := replace(l_data,l_pos_value,' ');
2983: ELSE
2984: IF g_debug THEN
2981: END IF;
2982: l_data := replace(l_data,l_pos_value,' ');
2983: ELSE
2984: IF g_debug THEN
2985: hr_utility.trace('Value ' || l_pos_value || 'is valid');
2986: END IF;
2987: END IF;
2988: END LOOP;
2989:
2988: END LOOP;
2989:
2990: IF (ltrim(l_data) IS NULL) THEN
2991: IF g_debug THEN
2992: hr_utility.trace('Exiting function pay_au_paye_ff.validate_data_magtape');
2993: END IF;
2994: RETURN ' ';
2995: ELSE
2996: IF g_debug THEN
2993: END IF;
2994: RETURN ' ';
2995: ELSE
2996: IF g_debug THEN
2997: hr_utility.trace('Final validated value ==>' || ltrim(l_data));
2998: hr_utility.trace('Exiting function pay_au_paye_ff.validate_data_magtape');
2999: END IF;
3000: RETURN ltrim(l_data);
3001: END IF;
2994: RETURN ' ';
2995: ELSE
2996: IF g_debug THEN
2997: hr_utility.trace('Final validated value ==>' || ltrim(l_data));
2998: hr_utility.trace('Exiting function pay_au_paye_ff.validate_data_magtape');
2999: END IF;
3000: RETURN ltrim(l_data);
3001: END IF;
3002:
3007: RETURN VARCHAR2 IS
3008: msg varchar2(1000);
3009: l_procedure varchar2(80);
3010: BEGIN
3011: g_debug := hr_utility.debug_enabled;
3012:
3013: if g_debug then
3014: l_procedure :='pay_au_paye_ff.get_table_value';
3015: hr_utility.set_location('Entering '||l_procedure,10);
3011: g_debug := hr_utility.debug_enabled;
3012:
3013: if g_debug then
3014: l_procedure :='pay_au_paye_ff.get_table_value';
3015: hr_utility.set_location('Entering '||l_procedure,10);
3016: hr_utility.set_location('IN BUSINESS_GROUP_ID '||BUSINESS_GROUP_ID ,20);
3017: hr_utility.set_location('IN EARN_NAME '||EARN_NAME,25);
3018: hr_utility.set_location('IN scale '||scale,30);
3019: hr_utility.set_location('IN EARNING_VALUE '||EARNING_VALUE,35);
3012:
3013: if g_debug then
3014: l_procedure :='pay_au_paye_ff.get_table_value';
3015: hr_utility.set_location('Entering '||l_procedure,10);
3016: hr_utility.set_location('IN BUSINESS_GROUP_ID '||BUSINESS_GROUP_ID ,20);
3017: hr_utility.set_location('IN EARN_NAME '||EARN_NAME,25);
3018: hr_utility.set_location('IN scale '||scale,30);
3019: hr_utility.set_location('IN EARNING_VALUE '||EARNING_VALUE,35);
3020: hr_utility.set_location('IN PERIOD_DATE '||to_char(PERIOD_DATE,'dd/mm/yyyy'),40);
3013: if g_debug then
3014: l_procedure :='pay_au_paye_ff.get_table_value';
3015: hr_utility.set_location('Entering '||l_procedure,10);
3016: hr_utility.set_location('IN BUSINESS_GROUP_ID '||BUSINESS_GROUP_ID ,20);
3017: hr_utility.set_location('IN EARN_NAME '||EARN_NAME,25);
3018: hr_utility.set_location('IN scale '||scale,30);
3019: hr_utility.set_location('IN EARNING_VALUE '||EARNING_VALUE,35);
3020: hr_utility.set_location('IN PERIOD_DATE '||to_char(PERIOD_DATE,'dd/mm/yyyy'),40);
3021:
3014: l_procedure :='pay_au_paye_ff.get_table_value';
3015: hr_utility.set_location('Entering '||l_procedure,10);
3016: hr_utility.set_location('IN BUSINESS_GROUP_ID '||BUSINESS_GROUP_ID ,20);
3017: hr_utility.set_location('IN EARN_NAME '||EARN_NAME,25);
3018: hr_utility.set_location('IN scale '||scale,30);
3019: hr_utility.set_location('IN EARNING_VALUE '||EARNING_VALUE,35);
3020: hr_utility.set_location('IN PERIOD_DATE '||to_char(PERIOD_DATE,'dd/mm/yyyy'),40);
3021:
3022: end if;
3015: hr_utility.set_location('Entering '||l_procedure,10);
3016: hr_utility.set_location('IN BUSINESS_GROUP_ID '||BUSINESS_GROUP_ID ,20);
3017: hr_utility.set_location('IN EARN_NAME '||EARN_NAME,25);
3018: hr_utility.set_location('IN scale '||scale,30);
3019: hr_utility.set_location('IN EARNING_VALUE '||EARNING_VALUE,35);
3020: hr_utility.set_location('IN PERIOD_DATE '||to_char(PERIOD_DATE,'dd/mm/yyyy'),40);
3021:
3022: end if;
3023:
3016: hr_utility.set_location('IN BUSINESS_GROUP_ID '||BUSINESS_GROUP_ID ,20);
3017: hr_utility.set_location('IN EARN_NAME '||EARN_NAME,25);
3018: hr_utility.set_location('IN scale '||scale,30);
3019: hr_utility.set_location('IN EARNING_VALUE '||EARNING_VALUE,35);
3020: hr_utility.set_location('IN PERIOD_DATE '||to_char(PERIOD_DATE,'dd/mm/yyyy'),40);
3021:
3022: end if;
3023:
3024: IF EARNING_VALUE < 0 then
3023:
3024: IF EARNING_VALUE < 0 then
3025: msg := fffunc.gfm('PAY', 'HR_AU_NEGATIVE_EARNINGS','EARN_NAME',EARN_NAME, 'EARNING_VALUE',to_char(EARNING_VALUE));
3026: if g_debug then
3027: hr_utility.set_location('Return msg '||msg,50);
3028: hr_utility.set_location('Exiting '||l_procedure,60);
3029: end if;
3030:
3031: RETURN msg;
3024: IF EARNING_VALUE < 0 then
3025: msg := fffunc.gfm('PAY', 'HR_AU_NEGATIVE_EARNINGS','EARN_NAME',EARN_NAME, 'EARNING_VALUE',to_char(EARNING_VALUE));
3026: if g_debug then
3027: hr_utility.set_location('Return msg '||msg,50);
3028: hr_utility.set_location('Exiting '||l_procedure,60);
3029: end if;
3030:
3031: RETURN msg;
3032: ELSE
3033: a := hruserdt.get_table_value (BUSINESS_GROUP_ID, scale, scale||'a', TO_CHAR(EARNING_VALUE), PERIOD_DATE);
3034: b := hruserdt.get_table_value (BUSINESS_GROUP_ID, scale, scale||'b', TO_CHAR(EARNING_VALUE), PERIOD_DATE);
3035:
3036: if g_debug then
3037: hr_utility.set_location('OUT a '||a,45);
3038: hr_utility.set_location('OUT b '||b,50);
3039: hr_utility.set_location('Exiting '||l_procedure,60);
3040: end if;
3041:
3034: b := hruserdt.get_table_value (BUSINESS_GROUP_ID, scale, scale||'b', TO_CHAR(EARNING_VALUE), PERIOD_DATE);
3035:
3036: if g_debug then
3037: hr_utility.set_location('OUT a '||a,45);
3038: hr_utility.set_location('OUT b '||b,50);
3039: hr_utility.set_location('Exiting '||l_procedure,60);
3040: end if;
3041:
3042: RETURN 'ZZZ';
3035:
3036: if g_debug then
3037: hr_utility.set_location('OUT a '||a,45);
3038: hr_utility.set_location('OUT b '||b,50);
3039: hr_utility.set_location('Exiting '||l_procedure,60);
3040: end if;
3041:
3042: RETURN 'ZZZ';
3043: END IF;
3081: WHERE pivf.input_value_id = ppb.input_value_id
3082: AND ppb.pay_basis_id = p_pay_bases_id);
3083:
3084: BEGIN
3085: g_debug := hr_utility.debug_enabled;
3086:
3087: if g_debug then
3088: l_procedure :='pay_au_paye_ff.get_salary_basis_hours';
3089: hr_utility.set_location('Entering '||l_procedure,10);
3085: g_debug := hr_utility.debug_enabled;
3086:
3087: if g_debug then
3088: l_procedure :='pay_au_paye_ff.get_salary_basis_hours';
3089: hr_utility.set_location('Entering '||l_procedure,10);
3090: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3091: hr_utility.set_location('IN p_element_type_id '||p_element_type_id,30);
3092: hr_utility.set_location('IN p_pay_bases_id '||p_pay_bases_id,40);
3093: end if ;
3086:
3087: if g_debug then
3088: l_procedure :='pay_au_paye_ff.get_salary_basis_hours';
3089: hr_utility.set_location('Entering '||l_procedure,10);
3090: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3091: hr_utility.set_location('IN p_element_type_id '||p_element_type_id,30);
3092: hr_utility.set_location('IN p_pay_bases_id '||p_pay_bases_id,40);
3093: end if ;
3094:
3087: if g_debug then
3088: l_procedure :='pay_au_paye_ff.get_salary_basis_hours';
3089: hr_utility.set_location('Entering '||l_procedure,10);
3090: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3091: hr_utility.set_location('IN p_element_type_id '||p_element_type_id,30);
3092: hr_utility.set_location('IN p_pay_bases_id '||p_pay_bases_id,40);
3093: end if ;
3094:
3095: OPEN Cr_element_type_id;
3088: l_procedure :='pay_au_paye_ff.get_salary_basis_hours';
3089: hr_utility.set_location('Entering '||l_procedure,10);
3090: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3091: hr_utility.set_location('IN p_element_type_id '||p_element_type_id,30);
3092: hr_utility.set_location('IN p_pay_bases_id '||p_pay_bases_id,40);
3093: end if ;
3094:
3095: OPEN Cr_element_type_id;
3096: FETCH Cr_element_type_id INTO l_element_type_id;
3102: CLOSE Cr_value;
3103: END IF;
3104:
3105: if g_debug then
3106: hr_utility.set_location('OUT l_result '||l_result,50);
3107: hr_utility.set_location('Exiting '||l_procedure,60);
3108: end if ;
3109:
3110: RETURN l_result;
3103: END IF;
3104:
3105: if g_debug then
3106: hr_utility.set_location('OUT l_result '||l_result,50);
3107: hr_utility.set_location('Exiting '||l_procedure,60);
3108: end if ;
3109:
3110: RETURN l_result;
3111:
3133: l_action_id number;
3134: l_procedure varchar2(80);
3135:
3136: begin
3137: g_debug := hr_utility.debug_enabled;
3138: if g_debug then
3139: l_procedure:='pay_au_paye_ff.get_pp_action_id';
3140: hr_utility.set_location('Entering '||l_procedure,10);
3141: hr_utility.set_location('IN p_action_type '||p_action_type,20);
3136: begin
3137: g_debug := hr_utility.debug_enabled;
3138: if g_debug then
3139: l_procedure:='pay_au_paye_ff.get_pp_action_id';
3140: hr_utility.set_location('Entering '||l_procedure,10);
3141: hr_utility.set_location('IN p_action_type '||p_action_type,20);
3142: hr_utility.set_location('IN p_action_id '|| p_action_id,30);
3143: end if;
3144:
3137: g_debug := hr_utility.debug_enabled;
3138: if g_debug then
3139: l_procedure:='pay_au_paye_ff.get_pp_action_id';
3140: hr_utility.set_location('Entering '||l_procedure,10);
3141: hr_utility.set_location('IN p_action_type '||p_action_type,20);
3142: hr_utility.set_location('IN p_action_id '|| p_action_id,30);
3143: end if;
3144:
3145: --
3138: if g_debug then
3139: l_procedure:='pay_au_paye_ff.get_pp_action_id';
3140: hr_utility.set_location('Entering '||l_procedure,10);
3141: hr_utility.set_location('IN p_action_type '||p_action_type,20);
3142: hr_utility.set_location('IN p_action_id '|| p_action_id,30);
3143: end if;
3144:
3145: --
3146: if (p_action_type in ('P', 'U')) then
3156: l_action_id := null;
3157: end if;
3158:
3159: if g_debug then
3160: hr_utility.set_location('OUT l_action_id '||l_action_id,40);
3161: hr_utility.set_location('Exiting '||l_procedure,50);
3162: end if;
3163: --
3164: return l_action_id;
3157: end if;
3158:
3159: if g_debug then
3160: hr_utility.set_location('OUT l_action_id '||l_action_id,40);
3161: hr_utility.set_location('Exiting '||l_procedure,50);
3162: end if;
3163: --
3164: return l_action_id;
3165: --
3191: l_tax_unit_id pay_assignment_actions.tax_unit_id%TYPE;
3192: l_procedure varchar2(80);
3193:
3194: BEGIN
3195: g_debug := hr_utility.debug_enabled;
3196: if g_debug then
3197: l_procedure :='pay_au_paye_ff.check_tax_unit_id';
3198: hr_utility.set_location('Entering '||l_procedure,10);
3199: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3194: BEGIN
3195: g_debug := hr_utility.debug_enabled;
3196: if g_debug then
3197: l_procedure :='pay_au_paye_ff.check_tax_unit_id';
3198: hr_utility.set_location('Entering '||l_procedure,10);
3199: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3200: hr_utility.set_location('IN p_tax_unit_id '|| p_tax_unit_id,30);
3201: end if;
3202: OPEN c_get_master_tax_unit_id;
3195: g_debug := hr_utility.debug_enabled;
3196: if g_debug then
3197: l_procedure :='pay_au_paye_ff.check_tax_unit_id';
3198: hr_utility.set_location('Entering '||l_procedure,10);
3199: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3200: hr_utility.set_location('IN p_tax_unit_id '|| p_tax_unit_id,30);
3201: end if;
3202: OPEN c_get_master_tax_unit_id;
3203: FETCH c_get_master_tax_unit_id INTO l_tax_unit_id;
3196: if g_debug then
3197: l_procedure :='pay_au_paye_ff.check_tax_unit_id';
3198: hr_utility.set_location('Entering '||l_procedure,10);
3199: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3200: hr_utility.set_location('IN p_tax_unit_id '|| p_tax_unit_id,30);
3201: end if;
3202: OPEN c_get_master_tax_unit_id;
3203: FETCH c_get_master_tax_unit_id INTO l_tax_unit_id;
3204: IF c_get_master_tax_unit_id%NOTFOUND THEN
3204: IF c_get_master_tax_unit_id%NOTFOUND THEN
3205: l_flag := 'Y';
3206:
3207: if g_debug then
3208: hr_utility.set_location('Return l_flag '||l_flag,40);
3209: hr_utility.set_location('Exiting '||l_procedure,50);
3210: end if;
3211: RETURN l_flag;
3212: ELSE
3205: l_flag := 'Y';
3206:
3207: if g_debug then
3208: hr_utility.set_location('Return l_flag '||l_flag,40);
3209: hr_utility.set_location('Exiting '||l_procedure,50);
3210: end if;
3211: RETURN l_flag;
3212: ELSE
3213: IF l_tax_unit_id <> p_tax_unit_id THEN
3213: IF l_tax_unit_id <> p_tax_unit_id THEN
3214: l_flag := 'N';
3215:
3216: if g_debug then
3217: hr_utility.set_location('Return l_flag '||l_flag,40);
3218: hr_utility.set_location('Exiting '||l_procedure,50);
3219: end if;
3220:
3221: RETURN l_flag;
3214: l_flag := 'N';
3215:
3216: if g_debug then
3217: hr_utility.set_location('Return l_flag '||l_flag,40);
3218: hr_utility.set_location('Exiting '||l_procedure,50);
3219: end if;
3220:
3221: RETURN l_flag;
3222: ELSE
3222: ELSE
3223: l_flag := 'Y';
3224:
3225: if g_debug then
3226: hr_utility.set_location('Return l_flag '||l_flag,40);
3227: hr_utility.set_location('Exiting '||l_procedure,50);
3228: end if;
3229:
3230: RETURN l_flag;
3223: l_flag := 'Y';
3224:
3225: if g_debug then
3226: hr_utility.set_location('Return l_flag '||l_flag,40);
3227: hr_utility.set_location('Exiting '||l_procedure,50);
3228: end if;
3229:
3230: RETURN l_flag;
3231: END IF;
3312: l_procedure varchar2(80);
3313:
3314: begin
3315:
3316: g_debug := hr_utility.debug_enabled;
3317: if g_debug then
3318: l_procedure :='pay_au_paye_ff.get_spread_earning';
3319: hr_utility.set_location('Entering '||l_procedure,10);
3320: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3315:
3316: g_debug := hr_utility.debug_enabled;
3317: if g_debug then
3318: l_procedure :='pay_au_paye_ff.get_spread_earning';
3319: hr_utility.set_location('Entering '||l_procedure,10);
3320: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3321: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3322: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3323: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3316: g_debug := hr_utility.debug_enabled;
3317: if g_debug then
3318: l_procedure :='pay_au_paye_ff.get_spread_earning';
3319: hr_utility.set_location('Entering '||l_procedure,10);
3320: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3321: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3322: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3323: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3324: end if;
3317: if g_debug then
3318: l_procedure :='pay_au_paye_ff.get_spread_earning';
3319: hr_utility.set_location('Entering '||l_procedure,10);
3320: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3321: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3322: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3323: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3324: end if;
3325:
3318: l_procedure :='pay_au_paye_ff.get_spread_earning';
3319: hr_utility.set_location('Entering '||l_procedure,10);
3320: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3321: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3322: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3323: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3324: end if;
3325:
3326: l_total_spread_earning := 0;
3319: hr_utility.set_location('Entering '||l_procedure,10);
3320: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3321: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3322: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3323: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3324: end if;
3325:
3326: l_total_spread_earning := 0;
3327: l_spread_earning := 0;
3377:
3378: end if;
3379:
3380: if g_debug then
3381: hr_utility.set_location('OUT p_spread_earning '|| l_total_spread_earning,30);
3382: hr_utility.set_location('Leaving '||l_procedure,10);
3383: end if;
3384:
3385:
3378: end if;
3379:
3380: if g_debug then
3381: hr_utility.set_location('OUT p_spread_earning '|| l_total_spread_earning,30);
3382: hr_utility.set_location('Leaving '||l_procedure,10);
3383: end if;
3384:
3385:
3386: return l_total_spread_earning;
3420: l_procedure varchar2(80);
3421:
3422: begin
3423:
3424: g_debug := hr_utility.debug_enabled;
3425: if g_debug then
3426: l_procedure :='pay_au_paye_ff.get_retro_spread_earning';
3427: hr_utility.set_location('Entering '||l_procedure,10);
3428: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3423:
3424: g_debug := hr_utility.debug_enabled;
3425: if g_debug then
3426: l_procedure :='pay_au_paye_ff.get_retro_spread_earning';
3427: hr_utility.set_location('Entering '||l_procedure,10);
3428: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3429: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3430: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3431: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3424: g_debug := hr_utility.debug_enabled;
3425: if g_debug then
3426: l_procedure :='pay_au_paye_ff.get_retro_spread_earning';
3427: hr_utility.set_location('Entering '||l_procedure,10);
3428: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3429: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3430: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3431: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3432: end if;
3425: if g_debug then
3426: l_procedure :='pay_au_paye_ff.get_retro_spread_earning';
3427: hr_utility.set_location('Entering '||l_procedure,10);
3428: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3429: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3430: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3431: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3432: end if;
3433:
3426: l_procedure :='pay_au_paye_ff.get_retro_spread_earning';
3427: hr_utility.set_location('Entering '||l_procedure,10);
3428: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3429: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3430: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3431: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3432: end if;
3433:
3434: l_retro_spread_earning := 0;
3427: hr_utility.set_location('Entering '||l_procedure,10);
3428: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,20);
3429: hr_utility.set_location('IN p_date_paid '|| p_date_paid,20);
3430: hr_utility.set_location('IN p_pre_tax '|| p_pre_tax,20);
3431: hr_utility.set_location('IN p_spread_earning '|| p_spread_earning,20);
3432: end if;
3433:
3434: l_retro_spread_earning := 0;
3435:
3437: fetch get_retro_spread_earning into l_retro_spread_earning;
3438: close get_retro_spread_earning;
3439:
3440: if g_debug then
3441: hr_utility.set_location('OUT p_retro_spread_earning '|| l_retro_spread_earning,30);
3442: hr_utility.set_location('Leaving '||l_procedure,10);
3443: end if;
3444:
3445:
3438: close get_retro_spread_earning;
3439:
3440: if g_debug then
3441: hr_utility.set_location('OUT p_retro_spread_earning '|| l_retro_spread_earning,30);
3442: hr_utility.set_location('Leaving '||l_procedure,10);
3443: end if;
3444:
3445:
3446: return l_retro_spread_earning;
3561: l_pay_effective_date DATE;
3562:
3563: BEGIN
3564:
3565: g_debug := hr_utility.debug_enabled;
3566: l_case := NULL;
3567: l_average_earnings := 0;
3568:
3569: IF g_debug
3568:
3569: IF g_debug
3570: THEN
3571: l_procedure := 'pay_au_paye_ff.calc_average_earnings';
3572: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3573: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3574: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3569: IF g_debug
3570: THEN
3571: l_procedure := 'pay_au_paye_ff.calc_average_earnings';
3572: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3573: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3574: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3577: hr_utility.set_location('p_earnings_std_ytd '||p_earnings_std_ytd,1000);
3570: THEN
3571: l_procedure := 'pay_au_paye_ff.calc_average_earnings';
3572: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3573: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3574: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3577: hr_utility.set_location('p_earnings_std_ytd '||p_earnings_std_ytd,1000);
3578: hr_utility.set_location('p_earnings_std_ptd '||p_earnings_std_ptd,1000);
3571: l_procedure := 'pay_au_paye_ff.calc_average_earnings';
3572: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3573: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3574: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3577: hr_utility.set_location('p_earnings_std_ytd '||p_earnings_std_ytd,1000);
3578: hr_utility.set_location('p_earnings_std_ptd '||p_earnings_std_ptd,1000);
3579: hr_utility.set_location('p_taxable_value '||p_taxable_value,1000);
3572: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3573: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3574: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3577: hr_utility.set_location('p_earnings_std_ytd '||p_earnings_std_ytd,1000);
3578: hr_utility.set_location('p_earnings_std_ptd '||p_earnings_std_ptd,1000);
3579: hr_utility.set_location('p_taxable_value '||p_taxable_value,1000);
3580: END IF;
3573: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3574: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3577: hr_utility.set_location('p_earnings_std_ytd '||p_earnings_std_ytd,1000);
3578: hr_utility.set_location('p_earnings_std_ptd '||p_earnings_std_ptd,1000);
3579: hr_utility.set_location('p_taxable_value '||p_taxable_value,1000);
3580: END IF;
3581:
3574: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3577: hr_utility.set_location('p_earnings_std_ytd '||p_earnings_std_ytd,1000);
3578: hr_utility.set_location('p_earnings_std_ptd '||p_earnings_std_ptd,1000);
3579: hr_utility.set_location('p_taxable_value '||p_taxable_value,1000);
3580: END IF;
3581:
3582: l_periods := pay_au_paye_ff.periods_since_hire_date(p_payroll_id
3575: hr_utility.set_location('p_payroll_id '||p_payroll_id,1000);
3576: hr_utility.set_location('p_tax_unit_id '||p_tax_unit_id,1000);
3577: hr_utility.set_location('p_earnings_std_ytd '||p_earnings_std_ytd,1000);
3578: hr_utility.set_location('p_earnings_std_ptd '||p_earnings_std_ptd,1000);
3579: hr_utility.set_location('p_taxable_value '||p_taxable_value,1000);
3580: END IF;
3581:
3582: l_periods := pay_au_paye_ff.periods_since_hire_date(p_payroll_id
3583: ,p_assignment_id
3612: FETCH c_get_effective_date INTO l_pay_effective_date;
3613: CLOSE c_get_effective_date;
3614:
3615: IF g_debug THEN
3616: hr_utility.set_location('Pay Effective Date =>'||to_char(l_pay_effective_date,'dd/mm/yyyy'),1000);
3617: END IF;
3618:
3619:
3620: IF to_char(l_pay_effective_date,'dd/mm/yyyy') >= '01/07/2011' THEN
3624: IF check_avg_earnings%FOUND THEN
3625: l_average_earnings := l_avg_earn_rr;
3626:
3627: IF g_debug THEN
3628: hr_utility.set_location('Point 0 ',1100);
3629: hr_utility.set_location('l_average_earnings '||l_average_earnings,1100);
3630: END IF;
3631:
3632: END IF;
3625: l_average_earnings := l_avg_earn_rr;
3626:
3627: IF g_debug THEN
3628: hr_utility.set_location('Point 0 ',1100);
3629: hr_utility.set_location('l_average_earnings '||l_average_earnings,1100);
3630: END IF;
3631:
3632: END IF;
3633: CLOSE check_avg_earnings;
3637:
3638:
3639: IF g_debug
3640: THEN
3641: hr_utility.set_location('Point 1 ',1100);
3642: hr_utility.set_location('l_average_earnings '||l_average_earnings,1100);
3643: hr_utility.set_location('l_periods '||l_periods,1100);
3644: END IF;
3645:
3638:
3639: IF g_debug
3640: THEN
3641: hr_utility.set_location('Point 1 ',1100);
3642: hr_utility.set_location('l_average_earnings '||l_average_earnings,1100);
3643: hr_utility.set_location('l_periods '||l_periods,1100);
3644: END IF;
3645:
3646: l_total_avg_earn := l_average_earnings + p_taxable_value;
3639: IF g_debug
3640: THEN
3641: hr_utility.set_location('Point 1 ',1100);
3642: hr_utility.set_location('l_average_earnings '||l_average_earnings,1100);
3643: hr_utility.set_location('l_periods '||l_periods,1100);
3644: END IF;
3645:
3646: l_total_avg_earn := l_average_earnings + p_taxable_value;
3647: IF ( (l_total_avg_earn < 0) OR l_average_earnings = 0)
3670: END IF;
3671:
3672: IF g_debug
3673: THEN
3674: hr_utility.set_location('Point 2 ',1100);
3675: hr_utility.set_location('l_average_earnings '||l_average_earnings,1200);
3676: hr_utility.set_location('l_prev_earnings_standard '||l_prev_earnings_standard,1200);
3677: hr_utility.set_location('l_prev_paid_periods '||l_prev_paid_periods,1200);
3678: END IF;
3671:
3672: IF g_debug
3673: THEN
3674: hr_utility.set_location('Point 2 ',1100);
3675: hr_utility.set_location('l_average_earnings '||l_average_earnings,1200);
3676: hr_utility.set_location('l_prev_earnings_standard '||l_prev_earnings_standard,1200);
3677: hr_utility.set_location('l_prev_paid_periods '||l_prev_paid_periods,1200);
3678: END IF;
3679:
3672: IF g_debug
3673: THEN
3674: hr_utility.set_location('Point 2 ',1100);
3675: hr_utility.set_location('l_average_earnings '||l_average_earnings,1200);
3676: hr_utility.set_location('l_prev_earnings_standard '||l_prev_earnings_standard,1200);
3677: hr_utility.set_location('l_prev_paid_periods '||l_prev_paid_periods,1200);
3678: END IF;
3679:
3680: p_average_earnings := l_average_earnings;
3673: THEN
3674: hr_utility.set_location('Point 2 ',1100);
3675: hr_utility.set_location('l_average_earnings '||l_average_earnings,1200);
3676: hr_utility.set_location('l_prev_earnings_standard '||l_prev_earnings_standard,1200);
3677: hr_utility.set_location('l_prev_paid_periods '||l_prev_paid_periods,1200);
3678: END IF;
3679:
3680: p_average_earnings := l_average_earnings;
3681: p_case := l_case;
3681: p_case := l_case;
3682:
3683: IF g_debug
3684: THEN
3685: hr_utility.set_location('p_average_earnings '||p_average_earnings,1300);
3686: hr_utility.set_location('p_case '||p_case,1300);
3687: hr_utility.set_location('Leaving function '||l_procedure,1300);
3688: END IF;
3689:
3682:
3683: IF g_debug
3684: THEN
3685: hr_utility.set_location('p_average_earnings '||p_average_earnings,1300);
3686: hr_utility.set_location('p_case '||p_case,1300);
3687: hr_utility.set_location('Leaving function '||l_procedure,1300);
3688: END IF;
3689:
3690: RETURN (1);
3683: IF g_debug
3684: THEN
3685: hr_utility.set_location('p_average_earnings '||p_average_earnings,1300);
3686: hr_utility.set_location('p_case '||p_case,1300);
3687: hr_utility.set_location('Leaving function '||l_procedure,1300);
3688: END IF;
3689:
3690: RETURN (1);
3691:
3842: l_total_flood_levy number;
3843:
3844: BEGIN
3845:
3846: g_debug := hr_utility.debug_enabled;
3847:
3848: IF g_debug
3849: THEN
3850: l_procedure := 'pay_au_paye_ff.calc_lt12_prev_spread_tax';
3847:
3848: IF g_debug
3849: THEN
3850: l_procedure := 'pay_au_paye_ff.calc_lt12_prev_spread_tax';
3851: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3852: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3853: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3854: hr_utility.set_location('p_date_earned '||p_date_earned,1000);
3855: hr_utility.set_location('p_average_earnings '||p_average_earnings,1000);
3848: IF g_debug
3849: THEN
3850: l_procedure := 'pay_au_paye_ff.calc_lt12_prev_spread_tax';
3851: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3852: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3853: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3854: hr_utility.set_location('p_date_earned '||p_date_earned,1000);
3855: hr_utility.set_location('p_average_earnings '||p_average_earnings,1000);
3856: hr_utility.set_location('p_fl_earnings '||p_fl_earnings,1000);
3849: THEN
3850: l_procedure := 'pay_au_paye_ff.calc_lt12_prev_spread_tax';
3851: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3852: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3853: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3854: hr_utility.set_location('p_date_earned '||p_date_earned,1000);
3855: hr_utility.set_location('p_average_earnings '||p_average_earnings,1000);
3856: hr_utility.set_location('p_fl_earnings '||p_fl_earnings,1000);
3857: END IF;
3850: l_procedure := 'pay_au_paye_ff.calc_lt12_prev_spread_tax';
3851: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3852: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3853: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3854: hr_utility.set_location('p_date_earned '||p_date_earned,1000);
3855: hr_utility.set_location('p_average_earnings '||p_average_earnings,1000);
3856: hr_utility.set_location('p_fl_earnings '||p_fl_earnings,1000);
3857: END IF;
3858:
3851: hr_utility.set_location('Entering procedure '||l_procedure,1000);
3852: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3853: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3854: hr_utility.set_location('p_date_earned '||p_date_earned,1000);
3855: hr_utility.set_location('p_average_earnings '||p_average_earnings,1000);
3856: hr_utility.set_location('p_fl_earnings '||p_fl_earnings,1000);
3857: END IF;
3858:
3859:
3852: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
3853: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
3854: hr_utility.set_location('p_date_earned '||p_date_earned,1000);
3855: hr_utility.set_location('p_average_earnings '||p_average_earnings,1000);
3856: hr_utility.set_location('p_fl_earnings '||p_fl_earnings,1000);
3857: END IF;
3858:
3859:
3860:
3871:
3872: l_eff_date_yr_start := hr_au_routes.span_start(l_pay_effective_date,1,'01-07');
3873:
3874: IF g_debug THEN
3875: hr_utility.set_location('Enhanced Retropay Rule Value =>'||l_adv_retro_flag,70);
3876: END IF;
3877:
3878: i_index := 0;
3879:
3949: ,l_a1
3950: ,l_b1);
3951:
3952: IF g_debug THEN
3953: hr_utility.set_location('l_avg_tax '||l_avg_tax,1001);
3954: END IF;
3955:
3956: /* bug12989692 - Flood Levy */
3957: IF p_fl_earnings <> 0 THEN
3975: ,l_a1
3976: ,l_b1);
3977:
3978: IF g_debug THEN
3979: hr_utility.set_location('l_normal_fl_ded '||l_normal_fl_ded,1001);
3980: END IF;
3981:
3982: END IF;
3983:
4058: END IF;
4059:
4060: IF g_debug
4061: THEN
4062: hr_utility.set_location('Element Entry ID '||l_element_entry_tab(i),1000);
4063: hr_utility.set_location('Entry Value '||l_entry_value_tab(i),1000);
4064: hr_utility.set_location('Creator Type '||l_creator_type_tab(i),1000);
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4059:
4060: IF g_debug
4061: THEN
4062: hr_utility.set_location('Element Entry ID '||l_element_entry_tab(i),1000);
4063: hr_utility.set_location('Entry Value '||l_entry_value_tab(i),1000);
4064: hr_utility.set_location('Creator Type '||l_creator_type_tab(i),1000);
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4060: IF g_debug
4061: THEN
4062: hr_utility.set_location('Element Entry ID '||l_element_entry_tab(i),1000);
4063: hr_utility.set_location('Entry Value '||l_entry_value_tab(i),1000);
4064: hr_utility.set_location('Creator Type '||l_creator_type_tab(i),1000);
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4068: hr_utility.set_location('l_spred_tax_period '||l_spred_tax_period,1000);
4061: THEN
4062: hr_utility.set_location('Element Entry ID '||l_element_entry_tab(i),1000);
4063: hr_utility.set_location('Entry Value '||l_entry_value_tab(i),1000);
4064: hr_utility.set_location('Creator Type '||l_creator_type_tab(i),1000);
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4068: hr_utility.set_location('l_spred_tax_period '||l_spred_tax_period,1000);
4069: hr_utility.set_location('l_combined_fl_ded '||l_combined_fl_ded,1000);
4062: hr_utility.set_location('Element Entry ID '||l_element_entry_tab(i),1000);
4063: hr_utility.set_location('Entry Value '||l_entry_value_tab(i),1000);
4064: hr_utility.set_location('Creator Type '||l_creator_type_tab(i),1000);
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4068: hr_utility.set_location('l_spred_tax_period '||l_spred_tax_period,1000);
4069: hr_utility.set_location('l_combined_fl_ded '||l_combined_fl_ded,1000);
4070: hr_utility.set_location('l_flood_levy_period '||l_flood_levy_period,1000);
4063: hr_utility.set_location('Entry Value '||l_entry_value_tab(i),1000);
4064: hr_utility.set_location('Creator Type '||l_creator_type_tab(i),1000);
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4068: hr_utility.set_location('l_spred_tax_period '||l_spred_tax_period,1000);
4069: hr_utility.set_location('l_combined_fl_ded '||l_combined_fl_ded,1000);
4070: hr_utility.set_location('l_flood_levy_period '||l_flood_levy_period,1000);
4071: END IF;
4064: hr_utility.set_location('Creator Type '||l_creator_type_tab(i),1000);
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4068: hr_utility.set_location('l_spred_tax_period '||l_spred_tax_period,1000);
4069: hr_utility.set_location('l_combined_fl_ded '||l_combined_fl_ded,1000);
4070: hr_utility.set_location('l_flood_levy_period '||l_flood_levy_period,1000);
4071: END IF;
4072: END LOOP;
4065: hr_utility.set_location('Periods Spread Over '||l_spread_over,1000);
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4068: hr_utility.set_location('l_spred_tax_period '||l_spred_tax_period,1000);
4069: hr_utility.set_location('l_combined_fl_ded '||l_combined_fl_ded,1000);
4070: hr_utility.set_location('l_flood_levy_period '||l_flood_levy_period,1000);
4071: END IF;
4072: END LOOP;
4073: END IF;
4066: hr_utility.set_location('l_period_earnings '||l_period_earnings,1000);
4067: hr_utility.set_location('l_spread_tax '||l_spread_tax,1000);
4068: hr_utility.set_location('l_spred_tax_period '||l_spred_tax_period,1000);
4069: hr_utility.set_location('l_combined_fl_ded '||l_combined_fl_ded,1000);
4070: hr_utility.set_location('l_flood_levy_period '||l_flood_levy_period,1000);
4071: END IF;
4072: END LOOP;
4073: END IF;
4074:
4076: p_flood_levy := l_total_flood_levy;
4077:
4078: IF g_debug
4079: THEN
4080: hr_utility.set_location('p_spread_tax '||p_spread_tax,1200);
4081: hr_utility.set_location('p_flood_levy '||p_flood_levy,1200);
4082: hr_utility.set_location('Leaving function '||l_procedure,1200);
4083: END IF;
4084:
4077:
4078: IF g_debug
4079: THEN
4080: hr_utility.set_location('p_spread_tax '||p_spread_tax,1200);
4081: hr_utility.set_location('p_flood_levy '||p_flood_levy,1200);
4082: hr_utility.set_location('Leaving function '||l_procedure,1200);
4083: END IF;
4084:
4085: return l_dummy;
4078: IF g_debug
4079: THEN
4080: hr_utility.set_location('p_spread_tax '||p_spread_tax,1200);
4081: hr_utility.set_location('p_flood_levy '||p_flood_levy,1200);
4082: hr_utility.set_location('Leaving function '||l_procedure,1200);
4083: END IF;
4084:
4085: return l_dummy;
4086:
4158:
4159:
4160: BEGIN
4161:
4162: g_debug := hr_utility.debug_enabled;
4163:
4164: IF g_debug
4165: THEN
4166: l_procedure := 'pay_au_paye_ff.get_retro_leave_load';
4163:
4164: IF g_debug
4165: THEN
4166: l_procedure := 'pay_au_paye_ff.get_retro_leave_load';
4167: hr_utility.set_location('Entering procedure '||l_procedure,1000);
4168: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,1000);
4169: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,1000);
4170: END IF;
4171:
4164: IF g_debug
4165: THEN
4166: l_procedure := 'pay_au_paye_ff.get_retro_leave_load';
4167: hr_utility.set_location('Entering procedure '||l_procedure,1000);
4168: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,1000);
4169: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,1000);
4170: END IF;
4171:
4172: l_adj_retro_value := 0;
4165: THEN
4166: l_procedure := 'pay_au_paye_ff.get_retro_leave_load';
4167: hr_utility.set_location('Entering procedure '||l_procedure,1000);
4168: hr_utility.set_location('IN p_assignment_action_id '||p_assignment_action_id,1000);
4169: hr_utility.set_location('IN p_tax_unit_id '||p_tax_unit_id,1000);
4170: END IF;
4171:
4172: l_adj_retro_value := 0;
4173:
4189: FETCH get_retro_ytd_results INTO l_fetched_value;
4190: CLOSE get_retro_ytd_results;
4191:
4192: IF g_debug THEN
4193: hr_utility.set_location('Balance Name '||csr_rec.balance_name,1000);
4194: hr_utility.set_location('l_fetched_value '||l_fetched_value,1000);
4195: END IF;
4196:
4197: l_adj_retro_value := l_adj_retro_value + NVL(l_fetched_value,0);
4190: CLOSE get_retro_ytd_results;
4191:
4192: IF g_debug THEN
4193: hr_utility.set_location('Balance Name '||csr_rec.balance_name,1000);
4194: hr_utility.set_location('l_fetched_value '||l_fetched_value,1000);
4195: END IF;
4196:
4197: l_adj_retro_value := l_adj_retro_value + NVL(l_fetched_value,0);
4198: END LOOP;
4200:
4201: p_retro_adj_leave_load := l_adj_retro_value;
4202:
4203: IF g_debug THEN
4204: hr_utility.set_location('p_retro_adj_leave_load '||p_retro_adj_leave_load,1000);
4205: hr_utility.set_location('Leaving procedure '||l_procedure,1000);
4206: END IF;
4207:
4208: RETURN 0;
4201: p_retro_adj_leave_load := l_adj_retro_value;
4202:
4203: IF g_debug THEN
4204: hr_utility.set_location('p_retro_adj_leave_load '||p_retro_adj_leave_load,1000);
4205: hr_utility.set_location('Leaving procedure '||l_procedure,1000);
4206: END IF;
4207:
4208: RETURN 0;
4209:
4265: l_procedure VARCHAR2(80);
4266:
4267: begin
4268:
4269: g_debug := hr_utility.debug_enabled;
4270:
4271: if g_debug then
4272: l_procedure := 'pay_au_paye_ff.get_retro_tax_var_fixed';
4273: hr_utility.set_location('Entering function '||l_procedure,1000);
4269: g_debug := hr_utility.debug_enabled;
4270:
4271: if g_debug then
4272: l_procedure := 'pay_au_paye_ff.get_retro_tax_var_fixed';
4273: hr_utility.set_location('Entering function '||l_procedure,1000);
4274: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
4275: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
4276: hr_utility.set_location('p_date_earned '||to_char(p_date_earned,'DD-MON-YYYY'),1000);
4277: hr_utility.set_location('p_mode '||p_mode,1000);
4270:
4271: if g_debug then
4272: l_procedure := 'pay_au_paye_ff.get_retro_tax_var_fixed';
4273: hr_utility.set_location('Entering function '||l_procedure,1000);
4274: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
4275: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
4276: hr_utility.set_location('p_date_earned '||to_char(p_date_earned,'DD-MON-YYYY'),1000);
4277: hr_utility.set_location('p_mode '||p_mode,1000);
4278: end if;
4271: if g_debug then
4272: l_procedure := 'pay_au_paye_ff.get_retro_tax_var_fixed';
4273: hr_utility.set_location('Entering function '||l_procedure,1000);
4274: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
4275: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
4276: hr_utility.set_location('p_date_earned '||to_char(p_date_earned,'DD-MON-YYYY'),1000);
4277: hr_utility.set_location('p_mode '||p_mode,1000);
4278: end if;
4279:
4272: l_procedure := 'pay_au_paye_ff.get_retro_tax_var_fixed';
4273: hr_utility.set_location('Entering function '||l_procedure,1000);
4274: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
4275: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
4276: hr_utility.set_location('p_date_earned '||to_char(p_date_earned,'DD-MON-YYYY'),1000);
4277: hr_utility.set_location('p_mode '||p_mode,1000);
4278: end if;
4279:
4280: p_retro := 'N';
4273: hr_utility.set_location('Entering function '||l_procedure,1000);
4274: hr_utility.set_location('p_assignment_id '||p_assignment_id,1000);
4275: hr_utility.set_location('p_assignment_action_id '||p_assignment_action_id,1000);
4276: hr_utility.set_location('p_date_earned '||to_char(p_date_earned,'DD-MON-YYYY'),1000);
4277: hr_utility.set_location('p_mode '||p_mode,1000);
4278: end if;
4279:
4280: p_retro := 'N';
4281:
4302:
4303: l_retro_amount := nvl(l_retro_amount,0);
4304:
4305: if g_debug then
4306: hr_utility.set_location('l_retro_amount '||l_retro_amount,1000);
4307: hr_utility.set_location('p_retro '||p_retro,1000);
4308: hr_utility.set_location('Leaving function '||l_procedure,1000);
4309: end if;
4310:
4303: l_retro_amount := nvl(l_retro_amount,0);
4304:
4305: if g_debug then
4306: hr_utility.set_location('l_retro_amount '||l_retro_amount,1000);
4307: hr_utility.set_location('p_retro '||p_retro,1000);
4308: hr_utility.set_location('Leaving function '||l_procedure,1000);
4309: end if;
4310:
4311: return l_retro_amount;
4304:
4305: if g_debug then
4306: hr_utility.set_location('l_retro_amount '||l_retro_amount,1000);
4307: hr_utility.set_location('p_retro '||p_retro,1000);
4308: hr_utility.set_location('Leaving function '||l_procedure,1000);
4309: end if;
4310:
4311: return l_retro_amount;
4312:
4472: l_procedure varchar2(80);
4473:
4474: BEGIN
4475:
4476: g_debug := hr_utility.debug_enabled;
4477:
4478: if g_debug then
4479: l_procedure :='pay_au_paye_ff.get_addtl_message';
4480: hr_utility.set_location('Entering '||l_procedure,10);
4476: g_debug := hr_utility.debug_enabled;
4477:
4478: if g_debug then
4479: l_procedure :='pay_au_paye_ff.get_addtl_message';
4480: hr_utility.set_location('Entering '||l_procedure,10);
4481: hr_utility.set_location('IN TOKEN_NAME '||TOKEN_NAME,10);
4482: hr_utility.set_location('IN TOKEN_VALUE '||TOKEN_VALUE,10);
4483:
4484: end if;
4477:
4478: if g_debug then
4479: l_procedure :='pay_au_paye_ff.get_addtl_message';
4480: hr_utility.set_location('Entering '||l_procedure,10);
4481: hr_utility.set_location('IN TOKEN_NAME '||TOKEN_NAME,10);
4482: hr_utility.set_location('IN TOKEN_VALUE '||TOKEN_VALUE,10);
4483:
4484: end if;
4485:
4478: if g_debug then
4479: l_procedure :='pay_au_paye_ff.get_addtl_message';
4480: hr_utility.set_location('Entering '||l_procedure,10);
4481: hr_utility.set_location('IN TOKEN_NAME '||TOKEN_NAME,10);
4482: hr_utility.set_location('IN TOKEN_VALUE '||TOKEN_VALUE,10);
4483:
4484: end if;
4485:
4486: IF TOKEN_NAME = 'AMOUNT' then
4485:
4486: IF TOKEN_NAME = 'AMOUNT' then
4487: msg := fffunc.gfm('PAY', 'HR_AU_RETRO_PREV_NEGATIVE_WARN',TOKEN_NAME, TOKEN_VALUE);
4488: if g_debug then
4489: hr_utility.set_location('Return msg '||msg,90);
4490: hr_utility.set_location('Exiting '||l_procedure,90);
4491: end if;
4492:
4493: RETURN msg;
4486: IF TOKEN_NAME = 'AMOUNT' then
4487: msg := fffunc.gfm('PAY', 'HR_AU_RETRO_PREV_NEGATIVE_WARN',TOKEN_NAME, TOKEN_VALUE);
4488: if g_debug then
4489: hr_utility.set_location('Return msg '||msg,90);
4490: hr_utility.set_location('Exiting '||l_procedure,90);
4491: end if;
4492:
4493: RETURN msg;
4494: ELSE
4493: RETURN msg;
4494: ELSE
4495: msg := fffunc.gfm('PAY', 'HR_AU_NEGATIVE_ADDTL_DEDUCTION','NAME', TOKEN_VALUE);
4496: if g_debug then
4497: hr_utility.set_location('Return msg '||msg,90);
4498: hr_utility.set_location('Exiting '||l_procedure,90);
4499: end if;
4500:
4501: RETURN msg;
4494: ELSE
4495: msg := fffunc.gfm('PAY', 'HR_AU_NEGATIVE_ADDTL_DEDUCTION','NAME', TOKEN_VALUE);
4496: if g_debug then
4497: hr_utility.set_location('Return msg '||msg,90);
4498: hr_utility.set_location('Exiting '||l_procedure,90);
4499: end if;
4500:
4501: RETURN msg;
4502: