[Home] [Help]
313: BEGIN
314:
315: -- get the total insurable weeks for the last period max action id
316:
317: hr_utility.set_location('Period action id..'||p_assignment_action_id,101);
318: hr_utility.set_location('Max action id..'|| p_max_action_id,101);
319:
320: OPEN c1;
321: FETCH c1 into l_child_assignemnt_action;
314:
315: -- get the total insurable weeks for the last period max action id
316:
317: hr_utility.set_location('Period action id..'||p_assignment_action_id,101);
318: hr_utility.set_location('Max action id..'|| p_max_action_id,101);
319:
320: OPEN c1;
321: FETCH c1 into l_child_assignemnt_action;
322: CLOSE c1;
330: ,p_dimension_name --6633719
331: ,p_ppsn_override), --6633719
332: 0
333: ));
334: hr_utility.set_location('p_tot_insurable_weeks..'|| p_tot_insurable_weeks,103);
335: hr_utility.set_location('p_insurable_weeks..'|| p_insurable_weeks,104);
336: -- get the employee and total PRSI contribution till the last period max action id
337: p_this_emp_prsi_cont := to_char(p_prsi_employee_cont -
338: ROUND (
331: ,p_ppsn_override), --6633719
332: 0
333: ));
334: hr_utility.set_location('p_tot_insurable_weeks..'|| p_tot_insurable_weeks,103);
335: hr_utility.set_location('p_insurable_weeks..'|| p_insurable_weeks,104);
336: -- get the employee and total PRSI contribution till the last period max action id
337: p_this_emp_prsi_cont := to_char(p_prsi_employee_cont -
338: ROUND (
339: NVL (
391: 0
392: ),
393: 2
394: ));
395: hr_utility.set_location ('p_prsi_employee_cont'|| p_this_emp_prsi_cont,105);
396: hr_utility.set_location ('p_this_emp_prsi_cont'|| p_this_emp_prsi_cont,106);
397:
398: p_this_tot_prsi := to_char(p_prsi_tot_cont -
399: ROUND (
392: ),
393: 2
394: ));
395: hr_utility.set_location ('p_prsi_employee_cont'|| p_this_emp_prsi_cont,105);
396: hr_utility.set_location ('p_this_emp_prsi_cont'|| p_this_emp_prsi_cont,106);
397:
398: p_this_tot_prsi := to_char(p_prsi_tot_cont -
399: ROUND (
400: NVL (
506: 0
507: ),
508: 2
509: ));
510: hr_utility.set_location ('p_this_tot_prsi'|| p_this_tot_prsi,105);
511: hr_utility.set_location ('p_prsi_tot_cont'|| p_prsi_tot_cont,106);
512: FOR i IN get_prsi_classes
513: LOOP
514: IF l_counter = 0 THEN
507: ),
508: 2
509: ));
510: hr_utility.set_location ('p_this_tot_prsi'|| p_this_tot_prsi,105);
511: hr_utility.set_location ('p_prsi_tot_cont'|| p_prsi_tot_cont,106);
512: FOR i IN get_prsi_classes
513: LOOP
514: IF l_counter = 0 THEN
515: l_counter := l_counter + 1;
513: LOOP
514: IF l_counter = 0 THEN
515: l_counter := l_counter + 1;
516: l_p60_prsi_classes(l_counter) := i.result_value;
517: hr_utility.set_location ('Initial Class Value is :'|| l_p60_prsi_classes(l_counter), 16);
518: ELSE
519: FOR k IN 1 .. l_counter
520: loop
521: IF l_p60_prsi_classes(k) = i.result_value THEN
527: END LOOP;
528: IF temp_flag = 0 AND l_counter <=9 THEN
529: l_counter := l_counter + 1;
530: l_p60_prsi_classes(l_counter) := i.result_value;
531: hr_utility.set_location ('Subsequent Class Value is :'|| l_p60_prsi_classes(l_counter), 17);
532: END IF;
533: temp_flag := null;
534: END IF;
535: END LOOP;
609:
610: l_business_group_id NUMBER;
611: l_token_value VARCHAR2 (50);
612: BEGIN
613: hr_utility.set_location ( 'p_token_name = '
614: || p_token_name, 20);
615: OPEN csr_parameter_info (p_payroll_action_id, p_token_name);
616: FETCH csr_parameter_info INTO l_token_value, l_business_group_id;
617: CLOSE csr_parameter_info;
622: ELSE
623: l_token_value := TRIM (l_token_value);
624: END IF;
625:
626: hr_utility.set_location ( 'l_token_value = '
627: || l_token_value, 20);
628: hr_utility.set_location ( 'Leaving '
629: || 'get_parameters', 30);
630: RETURN l_token_value;
624: END IF;
625:
626: hr_utility.set_location ( 'l_token_value = '
627: || l_token_value, 20);
628: hr_utility.set_location ( 'Leaving '
629: || 'get_parameters', 30);
630: RETURN l_token_value;
631: END get_parameter;
632:
694: ) between l_start_date and l_end_date
695: AND ppa.business_group_id = l_bg_id;
696: vik_str varchar2(2000);
697: BEGIN
698: --hr_utility.trace_on(null,'vikp35');
699:
700: hr_utility.set_location (l_proc_name, 1);
701: l_out_var := pay_ie_p35.get_parameter (
702: p_payroll_action_id=> p_payroll_action_id,
696: vik_str varchar2(2000);
697: BEGIN
698: --hr_utility.trace_on(null,'vikp35');
699:
700: hr_utility.set_location (l_proc_name, 1);
701: l_out_var := pay_ie_p35.get_parameter (
702: p_payroll_action_id=> p_payroll_action_id,
703: p_token_name=> 'END_DATE'
704: );
713: p_token_name=> 'BG_ID'
714: );
715: l_bg_id := TO_NUMBER (l_out_var);
716:
717: /* hr_utility.set_location ('Start Date '||to_char(l_start_date), 2);
718: hr_utility.set_location ('End Date '|| to_char(l_end_date), 3);
719: hr_utility.set_location ('Business Group id '|| to_char(l_bg_id), 4);*/
720:
721: -- Check to make sure there is a p30 process run
714: );
715: l_bg_id := TO_NUMBER (l_out_var);
716:
717: /* hr_utility.set_location ('Start Date '||to_char(l_start_date), 2);
718: hr_utility.set_location ('End Date '|| to_char(l_end_date), 3);
719: hr_utility.set_location ('Business Group id '|| to_char(l_bg_id), 4);*/
720:
721: -- Check to make sure there is a p30 process run
722: -- existing for business group, otherwise fail
715: l_bg_id := TO_NUMBER (l_out_var);
716:
717: /* hr_utility.set_location ('Start Date '||to_char(l_start_date), 2);
718: hr_utility.set_location ('End Date '|| to_char(l_end_date), 3);
719: hr_utility.set_location ('Business Group id '|| to_char(l_bg_id), 4);*/
720:
721: -- Check to make sure there is a p30 process run
722: -- existing for business group, otherwise fail
723: hr_utility.set_location ('End Date 1',22);
719: hr_utility.set_location ('Business Group id '|| to_char(l_bg_id), 4);*/
720:
721: -- Check to make sure there is a p30 process run
722: -- existing for business group, otherwise fail
723: hr_utility.set_location ('End Date 1',22);
724: OPEN csr_p30_process;
725: FETCH csr_p30_process INTO l_dummy;
726: hr_utility.set_location ('End Date 2',22);
727: IF l_dummy = 0
722: -- existing for business group, otherwise fail
723: hr_utility.set_location ('End Date 1',22);
724: OPEN csr_p30_process;
725: FETCH csr_p30_process INTO l_dummy;
726: hr_utility.set_location ('End Date 2',22);
727: IF l_dummy = 0
728: THEN
729: CLOSE csr_p30_process;
730: RAISE p30_error;
731: END IF;
732:
733: CLOSE csr_p30_process;
734: --
735: hr_utility.set_location ('End Date 3',22);
736: sqlstr := 'select distinct asg.person_id
737: from per_periods_of_service pos,
738: per_assignments_f asg,
739: pay_payroll_actions ppa
742: and pos.period_of_service_id = asg.period_of_service_id
743: and pos.business_group_id = ppa.business_group_id
744: and asg.business_group_id = ppa.business_group_id
745: order by asg.person_id';
746: hr_utility.set_location ('End Date 4',22);
747:
748: EXCEPTION
749: WHEN p30_error
750: THEN
748: EXCEPTION
749: WHEN p30_error
750: THEN
751: -- Write to the conc logfile, and try to archive err msg.
752: hr_utility.set_location (
753: ' Leaving with EXCEPTION: '
754: || l_proc_name,
755: 100
756: );
1216: p_token_name=> 'BG_ID'
1217: );
1218: l_bg_id := TO_NUMBER (l_out_var);
1219:
1220: hr_utility.set_location ('l_segment4 ' ||l_segment4, 12);
1221: hr_utility.set_location ('l_assignment_set_id ' || to_char(l_assignment_set_id), 12);
1222: hr_utility.set_location ('l_payroll_id ' || to_char(l_payroll_id), 13);
1223: hr_utility.set_location ('stperson ' || to_char(stperson), 14);
1224: hr_utility.set_location ('endperson ' || to_char(endperson), 15);
1217: );
1218: l_bg_id := TO_NUMBER (l_out_var);
1219:
1220: hr_utility.set_location ('l_segment4 ' ||l_segment4, 12);
1221: hr_utility.set_location ('l_assignment_set_id ' || to_char(l_assignment_set_id), 12);
1222: hr_utility.set_location ('l_payroll_id ' || to_char(l_payroll_id), 13);
1223: hr_utility.set_location ('stperson ' || to_char(stperson), 14);
1224: hr_utility.set_location ('endperson ' || to_char(endperson), 15);
1225: hr_utility.set_location ('l_bg_id ' || to_char(l_bg_id), 16);
1218: l_bg_id := TO_NUMBER (l_out_var);
1219:
1220: hr_utility.set_location ('l_segment4 ' ||l_segment4, 12);
1221: hr_utility.set_location ('l_assignment_set_id ' || to_char(l_assignment_set_id), 12);
1222: hr_utility.set_location ('l_payroll_id ' || to_char(l_payroll_id), 13);
1223: hr_utility.set_location ('stperson ' || to_char(stperson), 14);
1224: hr_utility.set_location ('endperson ' || to_char(endperson), 15);
1225: hr_utility.set_location ('l_bg_id ' || to_char(l_bg_id), 16);
1226: hr_utility.set_location ('pactid ' || to_char(pactid), 16);
1219:
1220: hr_utility.set_location ('l_segment4 ' ||l_segment4, 12);
1221: hr_utility.set_location ('l_assignment_set_id ' || to_char(l_assignment_set_id), 12);
1222: hr_utility.set_location ('l_payroll_id ' || to_char(l_payroll_id), 13);
1223: hr_utility.set_location ('stperson ' || to_char(stperson), 14);
1224: hr_utility.set_location ('endperson ' || to_char(endperson), 15);
1225: hr_utility.set_location ('l_bg_id ' || to_char(l_bg_id), 16);
1226: hr_utility.set_location ('pactid ' || to_char(pactid), 16);
1227:
1220: hr_utility.set_location ('l_segment4 ' ||l_segment4, 12);
1221: hr_utility.set_location ('l_assignment_set_id ' || to_char(l_assignment_set_id), 12);
1222: hr_utility.set_location ('l_payroll_id ' || to_char(l_payroll_id), 13);
1223: hr_utility.set_location ('stperson ' || to_char(stperson), 14);
1224: hr_utility.set_location ('endperson ' || to_char(endperson), 15);
1225: hr_utility.set_location ('l_bg_id ' || to_char(l_bg_id), 16);
1226: hr_utility.set_location ('pactid ' || to_char(pactid), 16);
1227:
1228: --
1221: hr_utility.set_location ('l_assignment_set_id ' || to_char(l_assignment_set_id), 12);
1222: hr_utility.set_location ('l_payroll_id ' || to_char(l_payroll_id), 13);
1223: hr_utility.set_location ('stperson ' || to_char(stperson), 14);
1224: hr_utility.set_location ('endperson ' || to_char(endperson), 15);
1225: hr_utility.set_location ('l_bg_id ' || to_char(l_bg_id), 16);
1226: hr_utility.set_location ('pactid ' || to_char(pactid), 16);
1227:
1228: --
1229: OPEN csr_get_flag_from_set;
1222: hr_utility.set_location ('l_payroll_id ' || to_char(l_payroll_id), 13);
1223: hr_utility.set_location ('stperson ' || to_char(stperson), 14);
1224: hr_utility.set_location ('endperson ' || to_char(endperson), 15);
1225: hr_utility.set_location ('l_bg_id ' || to_char(l_bg_id), 16);
1226: hr_utility.set_location ('pactid ' || to_char(pactid), 16);
1227:
1228: --
1229: OPEN csr_get_flag_from_set;
1230: FETCH csr_get_flag_from_set into l_set_flag;
1237: --6633719QA
1238:
1239: FOR csr_select_asg_rec IN csr_locked_asgs
1240: LOOP
1241: hr_utility.set_location('Person id..'||to_char(csr_select_asg_rec.person_id),17);
1242: hr_utility.set_location('Temp Person id..'||to_char(l_temp_person_id),18);
1243: hr_utility.set_location('csr_select_asg_rec.assignment_id'||to_char(csr_select_asg_rec.assignment_id),18);
1244: --6633719QA
1245: --Reinitailising the variables as person changes.
1238:
1239: FOR csr_select_asg_rec IN csr_locked_asgs
1240: LOOP
1241: hr_utility.set_location('Person id..'||to_char(csr_select_asg_rec.person_id),17);
1242: hr_utility.set_location('Temp Person id..'||to_char(l_temp_person_id),18);
1243: hr_utility.set_location('csr_select_asg_rec.assignment_id'||to_char(csr_select_asg_rec.assignment_id),18);
1244: --6633719QA
1245: --Reinitailising the variables as person changes.
1246: IF l_temp_person_id <> csr_select_asg_rec.person_id
1239: FOR csr_select_asg_rec IN csr_locked_asgs
1240: LOOP
1241: hr_utility.set_location('Person id..'||to_char(csr_select_asg_rec.person_id),17);
1242: hr_utility.set_location('Temp Person id..'||to_char(l_temp_person_id),18);
1243: hr_utility.set_location('csr_select_asg_rec.assignment_id'||to_char(csr_select_asg_rec.assignment_id),18);
1244: --6633719QA
1245: --Reinitailising the variables as person changes.
1246: IF l_temp_person_id <> csr_select_asg_rec.person_id
1247: THEN
1259: END IF;
1260: --6633719QA
1261: CLOSE csr_ppsn_override;
1262:
1263: hr_utility.set_location('l_ppsn_override'||to_char(l_ppsn_override),19);
1264: IF l_ppsn_override IS NOT NULL --6633719QA
1265: THEN
1266: OPEN csr_ppsn_max_asg(l_ppsn_override,csr_select_asg_rec.person_id);
1267: FETCH csr_ppsn_max_asg INTO l_ppsn_override_asg;
1266: OPEN csr_ppsn_max_asg(l_ppsn_override,csr_select_asg_rec.person_id);
1267: FETCH csr_ppsn_max_asg INTO l_ppsn_override_asg;
1268: CLOSE csr_ppsn_max_asg;
1269: END IF; --6633719QA
1270: hr_utility.set_location('l_ppsn_override_asg'||to_char(l_ppsn_override_asg),20);
1271:
1272: -- Create assignment action per person
1273: IF ((l_temp_person_id <> csr_select_asg_rec.person_id
1274: and l_ppsn_override IS NULL)
1285: l_usc_amount := 0;
1286: l_prsi_amount:= 0;
1287: l_tax_amount := 0;
1288: --12382953
1289: hr_utility.set_location('csr_select_asg_rec.aamin '||to_char(csr_select_asg_rec.aamin),18);
1290: hr_utility.set_location('csr_select_asg_rec.aa '||to_char(csr_select_asg_rec.aa),18);
1291: hr_utility.set_location('csr_select_asg_rec.assignment_id '||to_char(csr_select_asg_rec.assignment_id),18);
1292: --12382953
1293: l_max_action_id := 0;
1286: l_prsi_amount:= 0;
1287: l_tax_amount := 0;
1288: --12382953
1289: hr_utility.set_location('csr_select_asg_rec.aamin '||to_char(csr_select_asg_rec.aamin),18);
1290: hr_utility.set_location('csr_select_asg_rec.aa '||to_char(csr_select_asg_rec.aa),18);
1291: hr_utility.set_location('csr_select_asg_rec.assignment_id '||to_char(csr_select_asg_rec.assignment_id),18);
1292: --12382953
1293: l_max_action_id := 0;
1294: l_min_action_id := 0;
1287: l_tax_amount := 0;
1288: --12382953
1289: hr_utility.set_location('csr_select_asg_rec.aamin '||to_char(csr_select_asg_rec.aamin),18);
1290: hr_utility.set_location('csr_select_asg_rec.aa '||to_char(csr_select_asg_rec.aa),18);
1291: hr_utility.set_location('csr_select_asg_rec.assignment_id '||to_char(csr_select_asg_rec.assignment_id),18);
1292: --12382953
1293: l_max_action_id := 0;
1294: l_min_action_id := 0;
1295: OPEN csr_action_type(csr_select_asg_rec.assignment_id);
1294: l_min_action_id := 0;
1295: OPEN csr_action_type(csr_select_asg_rec.assignment_id);
1296: FETCH csr_action_type into l_max_action_id, l_min_action_id;
1297: CLOSE csr_action_type;
1298: hr_utility.set_location('l_max_action_id: '||to_char(l_max_action_id),19);
1299: hr_utility.set_location('l_min_action_id: '||to_char(l_min_action_id),19);
1300: --12382953
1301: OPEN csr_exclusion_year(l_min_action_id, l_max_action_id, csr_select_asg_rec.assignment_id); --12382953
1302: FETCH csr_exclusion_year INTO l_count;
1295: OPEN csr_action_type(csr_select_asg_rec.assignment_id);
1296: FETCH csr_action_type into l_max_action_id, l_min_action_id;
1297: CLOSE csr_action_type;
1298: hr_utility.set_location('l_max_action_id: '||to_char(l_max_action_id),19);
1299: hr_utility.set_location('l_min_action_id: '||to_char(l_min_action_id),19);
1300: --12382953
1301: OPEN csr_exclusion_year(l_min_action_id, l_max_action_id, csr_select_asg_rec.assignment_id); --12382953
1302: FETCH csr_exclusion_year INTO l_count;
1303: CLOSE csr_exclusion_year;
1301: OPEN csr_exclusion_year(l_min_action_id, l_max_action_id, csr_select_asg_rec.assignment_id); --12382953
1302: FETCH csr_exclusion_year INTO l_count;
1303: CLOSE csr_exclusion_year;
1304:
1305: hr_utility.set_location('l_count: '||to_char(l_count),19);
1306:
1307: --8874161
1308: OPEN csr_inc_levy(l_max_action_id, csr_select_asg_rec.assignment_id);
1309: FETCH csr_inc_levy INTO l_levi_amount;
1308: OPEN csr_inc_levy(l_max_action_id, csr_select_asg_rec.assignment_id);
1309: FETCH csr_inc_levy INTO l_levi_amount;
1310: CLOSE csr_inc_levy;
1311:
1312: hr_utility.set_location('l_levi_amount: '||to_char(l_levi_amount),19);
1313:
1314: --12382953
1315: OPEN csr_usc_prsi_tax_amt(l_max_action_id, csr_select_asg_rec.assignment_id);
1316: FETCH csr_usc_prsi_tax_amt INTO l_usc_amount, l_prsi_amount, l_tax_amount ;
1315: OPEN csr_usc_prsi_tax_amt(l_max_action_id, csr_select_asg_rec.assignment_id);
1316: FETCH csr_usc_prsi_tax_amt INTO l_usc_amount, l_prsi_amount, l_tax_amount ;
1317: CLOSE csr_usc_prsi_tax_amt;
1318:
1319: hr_utility.set_location('l_usc_amount: '||to_char(l_usc_amount),19);
1320: hr_utility.set_location('l_prsi_amount: '||to_char(l_prsi_amount),19);
1321: hr_utility.set_location('l_tax_amount: '||to_char(l_tax_amount),19);
1322: --12382953
1323: IF l_count <> 0 OR l_levi_amount <> 0
1316: FETCH csr_usc_prsi_tax_amt INTO l_usc_amount, l_prsi_amount, l_tax_amount ;
1317: CLOSE csr_usc_prsi_tax_amt;
1318:
1319: hr_utility.set_location('l_usc_amount: '||to_char(l_usc_amount),19);
1320: hr_utility.set_location('l_prsi_amount: '||to_char(l_prsi_amount),19);
1321: hr_utility.set_location('l_tax_amount: '||to_char(l_tax_amount),19);
1322: --12382953
1323: IF l_count <> 0 OR l_levi_amount <> 0
1324: OR l_usc_amount <> 0 OR l_prsi_amount <> 0 OR l_tax_amount <> 0 THEN --8874161 --12382953
1317: CLOSE csr_usc_prsi_tax_amt;
1318:
1319: hr_utility.set_location('l_usc_amount: '||to_char(l_usc_amount),19);
1320: hr_utility.set_location('l_prsi_amount: '||to_char(l_prsi_amount),19);
1321: hr_utility.set_location('l_tax_amount: '||to_char(l_tax_amount),19);
1322: --12382953
1323: IF l_count <> 0 OR l_levi_amount <> 0
1324: OR l_usc_amount <> 0 OR l_prsi_amount <> 0 OR l_tax_amount <> 0 THEN --8874161 --12382953
1325: SELECT pay_assignment_actions_s.NEXTVAL
1325: SELECT pay_assignment_actions_s.NEXTVAL
1326: INTO l_actid
1327: FROM DUAL;
1328:
1329: hr_utility.set_location('INSIDE IF',18);
1330: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1331: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1332: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1333:
1326: INTO l_actid
1327: FROM DUAL;
1328:
1329: hr_utility.set_location('INSIDE IF',18);
1330: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1331: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1332: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1333:
1334: hr_nonrun_asact.insact (l_actid,
1327: FROM DUAL;
1328:
1329: hr_utility.set_location('INSIDE IF',18);
1330: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1331: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1332: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1333:
1334: hr_nonrun_asact.insact (l_actid,
1335: csr_select_asg_rec.assignment_id,
1328:
1329: hr_utility.set_location('INSIDE IF',18);
1330: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1331: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1332: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1333:
1334: hr_nonrun_asact.insact (l_actid,
1335: csr_select_asg_rec.assignment_id,
1336: pactid,
1352: SELECT pay_assignment_actions_s.NEXTVAL
1353: INTO l_actid
1354: FROM DUAL;
1355:
1356: hr_utility.set_location('INSIDE IF',18);
1357: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1358: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1359: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1360:
1353: INTO l_actid
1354: FROM DUAL;
1355:
1356: hr_utility.set_location('INSIDE IF',18);
1357: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1358: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1359: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1360:
1361: hr_nonrun_asact.insact (l_actid,
1354: FROM DUAL;
1355:
1356: hr_utility.set_location('INSIDE IF',18);
1357: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1358: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1359: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1360:
1361: hr_nonrun_asact.insact (l_actid,
1362: csr_select_asg_rec.assignment_id,
1355:
1356: hr_utility.set_location('INSIDE IF',18);
1357: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1358: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1359: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1360:
1361: hr_nonrun_asact.insact (l_actid,
1362: csr_select_asg_rec.assignment_id,
1363: pactid,
1377: IF l_flag_exclusion <> 'Y' then
1378: SELECT pay_assignment_actions_s.NEXTVAL
1379: INTO l_actid
1380: FROM DUAL;
1381: hr_utility.set_location('INSIDE ELSE',18);
1382: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1383: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1384: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1385: hr_nonrun_asact.insact (l_actid,
1378: SELECT pay_assignment_actions_s.NEXTVAL
1379: INTO l_actid
1380: FROM DUAL;
1381: hr_utility.set_location('INSIDE ELSE',18);
1382: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1383: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1384: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1385: hr_nonrun_asact.insact (l_actid,
1386: csr_select_asg_rec.assignment_id,
1379: INTO l_actid
1380: FROM DUAL;
1381: hr_utility.set_location('INSIDE ELSE',18);
1382: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1383: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1384: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1385: hr_nonrun_asact.insact (l_actid,
1386: csr_select_asg_rec.assignment_id,
1387: pactid,
1380: FROM DUAL;
1381: hr_utility.set_location('INSIDE ELSE',18);
1382: hr_utility.set_location('Insert asg actions asg_id '||to_char(csr_select_asg_rec.assignment_id),18);
1383: hr_utility.set_location('Insert asg actions l_actid '||to_char(l_actid),18);
1384: hr_utility.set_location('Insert asg actions pactid '||to_char(pactid),18);
1385: hr_nonrun_asact.insact (l_actid,
1386: csr_select_asg_rec.assignment_id,
1387: pactid,
1388: CHUNK,
1399: -- IF l_flag_exclusion <> 'Y' then --8322991
1400: IF l_count <> 0 OR l_levi_amount <> 0
1401: OR l_usc_amount <> 0 OR l_prsi_amount <> 0 OR l_tax_amount <> 0 THEN --8874161 --12382953
1402:
1403: hr_utility.set_location('Insert asg action Intlks l_actid'||to_char(l_actid),18);
1404: hr_utility.set_location('Insert asg action Intlks csr_select_asg_rec.aa'||to_char(csr_select_asg_rec.aa),18);
1405: hr_nonrun_asact.insint (l_actid,csr_select_asg_rec.aa);
1406: END IF;
1407: l_temp_person_id := csr_select_asg_rec.person_id;
1400: IF l_count <> 0 OR l_levi_amount <> 0
1401: OR l_usc_amount <> 0 OR l_prsi_amount <> 0 OR l_tax_amount <> 0 THEN --8874161 --12382953
1402:
1403: hr_utility.set_location('Insert asg action Intlks l_actid'||to_char(l_actid),18);
1404: hr_utility.set_location('Insert asg action Intlks csr_select_asg_rec.aa'||to_char(csr_select_asg_rec.aa),18);
1405: hr_nonrun_asact.insint (l_actid,csr_select_asg_rec.aa);
1406: END IF;
1407: l_temp_person_id := csr_select_asg_rec.person_id;
1408: --
1407: l_temp_person_id := csr_select_asg_rec.person_id;
1408: --
1409: END LOOP;
1410:
1411: hr_utility.set_location ('Leaving action_creation', 18);
1412: END action_creation;
1413:
1414:
1415: Procedure archive_code (p_assactid IN NUMBER
2657: l_child_assignment_action_id := NULL;
2658: l_Act_Context_id := NULL;
2659: l_Act_Context_value := NULL;
2660: --6633719
2661: hr_utility.set_location('p_assactid ..'||p_assactid,1000);
2662: hr_utility.set_location('p_effective_date..'||p_effective_date,1000);
2663:
2664:
2665: OPEN get_assignment_id;
2658: l_Act_Context_id := NULL;
2659: l_Act_Context_value := NULL;
2660: --6633719
2661: hr_utility.set_location('p_assactid ..'||p_assactid,1000);
2662: hr_utility.set_location('p_effective_date..'||p_effective_date,1000);
2663:
2664:
2665: OPEN get_assignment_id;
2666: FETCH get_assignment_id into v_payroll_action_id,v_assignment_id,v_chunk;
2665: OPEN get_assignment_id;
2666: FETCH get_assignment_id into v_payroll_action_id,v_assignment_id,v_chunk;
2667: CLOSE get_assignment_id;
2668:
2669: hr_utility.set_location('v_payroll_action_id..'||v_payroll_action_id,1000);
2670: hr_utility.set_location('v_assignment_id..'||v_assignment_id,1000);
2671: hr_utility.set_location('v_chunk..'||v_chunk,1000);
2672: --6633719
2673: OPEN csr_ppsn_override(v_assignment_id);
2666: FETCH get_assignment_id into v_payroll_action_id,v_assignment_id,v_chunk;
2667: CLOSE get_assignment_id;
2668:
2669: hr_utility.set_location('v_payroll_action_id..'||v_payroll_action_id,1000);
2670: hr_utility.set_location('v_assignment_id..'||v_assignment_id,1000);
2671: hr_utility.set_location('v_chunk..'||v_chunk,1000);
2672: --6633719
2673: OPEN csr_ppsn_override(v_assignment_id);
2674: FETCH csr_ppsn_override INTO l_ppsn_override;
2667: CLOSE get_assignment_id;
2668:
2669: hr_utility.set_location('v_payroll_action_id..'||v_payroll_action_id,1000);
2670: hr_utility.set_location('v_assignment_id..'||v_assignment_id,1000);
2671: hr_utility.set_location('v_chunk..'||v_chunk,1000);
2672: --6633719
2673: OPEN csr_ppsn_override(v_assignment_id);
2674: FETCH csr_ppsn_override INTO l_ppsn_override;
2675: CLOSE csr_ppsn_override;
2672: --6633719
2673: OPEN csr_ppsn_override(v_assignment_id);
2674: FETCH csr_ppsn_override INTO l_ppsn_override;
2675: CLOSE csr_ppsn_override;
2676: hr_utility.set_location('l_ppsn_override..'||l_ppsn_override,1000);
2677:
2678: IF l_ppsn_override IS NOT NULL THEN
2679: l_dimension_name := '_PER_PAYE_REF_PPSN_YTD';
2680: ELSE
2680: ELSE
2681: l_dimension_name := '_PER_PAYE_REF_YTD';
2682: END IF;
2683:
2684: hr_utility.set_location('l_dimension_name..'||l_dimension_name,1000);
2685:
2686: /* -- commented as new dimension ('_PER_PAYE_REF_PPSN_YTD') does not require contexes.
2687: IF l_ppsn_override IS NOT NULL THEN
2688: OPEN csr_child_actions(v_assignment_id);
2687: IF l_ppsn_override IS NOT NULL THEN
2688: OPEN csr_child_actions(v_assignment_id);
2689: FETCH csr_child_actions INTO l_child_assignment_action_id;
2690: CLOSE csr_child_actions;
2691: hr_utility.set_location('l_child_assignment_action_id..'||l_child_assignment_action_id,1000);
2692:
2693: IF l_child_assignment_action_id IS NOT NULL THEN
2694: OPEN Cur_Act_Contexts(l_child_assignment_action_id);
2695: FETCH Cur_Act_Contexts INTO l_Act_Context_id,l_Act_Context_value;
2693: IF l_child_assignment_action_id IS NOT NULL THEN
2694: OPEN Cur_Act_Contexts(l_child_assignment_action_id);
2695: FETCH Cur_Act_Contexts INTO l_Act_Context_id,l_Act_Context_value;
2696: CLOSE Cur_Act_Contexts;
2697: hr_utility.set_location('l_Act_Context_id..'||l_Act_Context_id,1000);
2698: hr_utility.set_location('l_Act_Context_value..'||l_Act_Context_value,1000);
2699: END IF;
2700:
2701: END IF;
2694: OPEN Cur_Act_Contexts(l_child_assignment_action_id);
2695: FETCH Cur_Act_Contexts INTO l_Act_Context_id,l_Act_Context_value;
2696: CLOSE Cur_Act_Contexts;
2697: hr_utility.set_location('l_Act_Context_id..'||l_Act_Context_id,1000);
2698: hr_utility.set_location('l_Act_Context_value..'||l_Act_Context_value,1000);
2699: END IF;
2700:
2701: END IF;
2702: */
2832: --12382953
2833:
2834:
2835: cnt := 0;
2836: --hr_utility.trace_on(null,'P35');
2837: hr_utility.set_location('In archive code..'||to_char(cnt),1001);
2838: FOR csr_interlocks IN get_actid_from_interlocks
2839: LOOP
2840: v_action_id := csr_interlocks.locked_action_id;
2833:
2834:
2835: cnt := 0;
2836: --hr_utility.trace_on(null,'P35');
2837: hr_utility.set_location('In archive code..'||to_char(cnt),1001);
2838: FOR csr_interlocks IN get_actid_from_interlocks
2839: LOOP
2840: v_action_id := csr_interlocks.locked_action_id;
2841: hr_utility.set_location('csr_interlocks.locked_action_id ..'||csr_interlocks.locked_action_id,1002);
2837: hr_utility.set_location('In archive code..'||to_char(cnt),1001);
2838: FOR csr_interlocks IN get_actid_from_interlocks
2839: LOOP
2840: v_action_id := csr_interlocks.locked_action_id;
2841: hr_utility.set_location('csr_interlocks.locked_action_id ..'||csr_interlocks.locked_action_id,1002);
2842:
2843:
2844: -- v_action_id is either prepay or P30 action id
2845: OPEN get_action_type(csr_interlocks.locked_action_id);
2845: OPEN get_action_type(csr_interlocks.locked_action_id);
2846: FETCH get_action_type into v_action_id,v_action_type;
2847: CLOSE get_action_type;
2848:
2849: hr_utility.set_location('Inside the loop ..',1002);
2850: hr_utility.set_location('Action Type ..'||v_action_type,1003);
2851: hr_utility.set_location('v_action_id ..'||v_action_id,1003);
2852: --6633719
2853: IF l_ppsn_override IS NOT NULL THEN
2846: FETCH get_action_type into v_action_id,v_action_type;
2847: CLOSE get_action_type;
2848:
2849: hr_utility.set_location('Inside the loop ..',1002);
2850: hr_utility.set_location('Action Type ..'||v_action_type,1003);
2851: hr_utility.set_location('v_action_id ..'||v_action_id,1003);
2852: --6633719
2853: IF l_ppsn_override IS NOT NULL THEN
2854: OPEN csr_rehire_ppsn_arch(v_action_id);
2847: CLOSE get_action_type;
2848:
2849: hr_utility.set_location('Inside the loop ..',1002);
2850: hr_utility.set_location('Action Type ..'||v_action_type,1003);
2851: hr_utility.set_location('v_action_id ..'||v_action_id,1003);
2852: --6633719
2853: IF l_ppsn_override IS NOT NULL THEN
2854: OPEN csr_rehire_ppsn_arch(v_action_id);
2855: FETCH csr_rehire_ppsn_arch INTO l_ppsn_bal_archived;
2860: END IF;
2861: --6633719QA
2862: CLOSE csr_rehire_ppsn_arch;
2863:
2864: hr_utility.set_location('l_ppsn_bal_archived ..'||l_ppsn_bal_archived,1004);
2865: END IF;
2866: --6633719
2867: IF cnt = 0 then
2868: -- This part to executed only once for each locking action id to fetch balances for max assignment actionid
2871: IF v_action_type = 'X' then
2872:
2873: l_max_action_id := csr_interlocks.locked_action_id;
2874:
2875: hr_utility.set_location('l_max_action_id ..'||l_max_action_id,1005);
2876: hr_utility.set_location('Inside IEPS ..'||to_char(l_actid),1005);
2877:
2878: OPEN csr_p30_bal_value (v_action_id, 'IE TAXABLE PAY',l_dimension_name);
2879: FETCH csr_p30_bal_value INTO l_arch_pay;
2872:
2873: l_max_action_id := csr_interlocks.locked_action_id;
2874:
2875: hr_utility.set_location('l_max_action_id ..'||l_max_action_id,1005);
2876: hr_utility.set_location('Inside IEPS ..'||to_char(l_actid),1005);
2877:
2878: OPEN csr_p30_bal_value (v_action_id, 'IE TAXABLE PAY',l_dimension_name);
2879: FETCH csr_p30_bal_value INTO l_arch_pay;
2880: --6633719 if condition added for the scenarios where employee is rehired
2907: 2
2908: )
2909: );
2910:
2911: hr_utility.set_location('l_arch_pay not archived ..'||l_arch_pay,1004);
2912:
2913: END IF;
2914: --6633719
2915: CLOSE csr_p30_bal_value;
2912:
2913: END IF;
2914: --6633719
2915: CLOSE csr_p30_bal_value;
2916: hr_utility.set_location('l_arch_pay..'||l_arch_pay,1005);
2917:
2918: OPEN csr_p30_bal_value (v_action_id, 'IE NET TAX',l_dimension_name);
2919: FETCH csr_p30_bal_value INTO l_arch_net_tax;
2920: --6633719
2944: 2
2945: )
2946: );
2947:
2948: hr_utility.set_location('l_arch_net_tax not archived ..'||l_arch_net_tax,1004);
2949:
2950: END IF;
2951: --6633719
2952: CLOSE csr_p30_bal_value;
2949:
2950: END IF;
2951: --6633719
2952: CLOSE csr_p30_bal_value;
2953: hr_utility.set_location('l_arch_net_tax..'||l_arch_net_tax,1005);
2954:
2955: OPEN csr_p30_bal_value (v_action_id, 'IE PRSI EMPLOYEE',l_dimension_name);
2956: FETCH csr_p30_bal_value INTO l_arch_employees_prsi_cont;
2957: --6633719
2981: 2
2982: )
2983: );
2984:
2985: hr_utility.set_location('l_arch_employees_prsi_cont not archived ..'||l_arch_employees_prsi_cont,1004);
2986:
2987: END IF;
2988: --6633719
2989: CLOSE csr_p30_bal_value;
2986:
2987: END IF;
2988: --6633719
2989: CLOSE csr_p30_bal_value;
2990: hr_utility.set_location('l_arch_employees_prsi_cont..'||l_arch_employees_prsi_cont,1005);
2991:
2992: --Bug 4553755
2993: /*OPEN csr_p30_bal_value (v_action_id, 'IE BIK TAXABLE AND PRSIABLE PAY');
2994: FETCH csr_p30_bal_value INTO l_arch_total_notional_pay;
3024: 2
3025: )
3026: );
3027:
3028: hr_utility.set_location('l_temp_prsi_cont not archived ..'||l_temp_prsi_cont,1004);
3029:
3030: END IF;
3031: --6633719
3032: CLOSE csr_p30_bal_value;
3029:
3030: END IF;
3031: --6633719
3032: CLOSE csr_p30_bal_value;
3033: hr_utility.set_location('IE PRSI K EMPLOYEE LUMP SUM l_temp_prsi_cont..'||l_temp_prsi_cont,1005);
3034:
3035: l_arch_employees_prsi_cont :=
3036: TO_CHAR (
3037: TO_NUMBER (l_arch_employees_prsi_cont)
3037: TO_NUMBER (l_arch_employees_prsi_cont)
3038: + TO_NUMBER (NVL (l_temp_prsi_cont, '0'))
3039: );
3040: l_temp_prsi_cont := NULL;
3041: hr_utility.set_location('IE PRSI K EMPLOYEE LUMP SUM l_arch_employees_prsi_cont..'||l_arch_employees_prsi_cont,1005);
3042:
3043: OPEN csr_p30_bal_value (v_action_id,'IE PRSI M EMPLOYEE LUMP SUM',l_dimension_name);
3044: FETCH csr_p30_bal_value INTO l_temp_prsi_cont;
3045: --6633719
3069: 2
3070: )
3071: );
3072:
3073: hr_utility.set_location('l_temp_prsi_cont not archived ..'||l_temp_prsi_cont,1004);
3074:
3075: END IF;
3076: --6633719
3077: CLOSE csr_p30_bal_value;
3074:
3075: END IF;
3076: --6633719
3077: CLOSE csr_p30_bal_value;
3078: hr_utility.set_location('IE PRSI M EMPLOYEE LUMP SUM l_temp_prsi_cont..'||l_temp_prsi_cont,1005);
3079:
3080: l_arch_employees_prsi_cont :=
3081: TO_CHAR (
3082: TO_NUMBER (l_arch_employees_prsi_cont)
3082: TO_NUMBER (l_arch_employees_prsi_cont)
3083: + TO_NUMBER (NVL (l_temp_prsi_cont, '0'))
3084: );
3085: l_temp_prsi_cont := NULL;
3086: hr_utility.set_location('E PRSI M EMPLOYEE LUMP SUM l_arch_employees_prsi_cont..'||l_arch_employees_prsi_cont,1005);
3087:
3088: OPEN csr_p30_bal_value (v_action_id, 'IE PRSI EMPLOYER',l_dimension_name);
3089: FETCH csr_p30_bal_value INTO l_arch_employer_prsi_cont;
3090: --6633719
3114: 2
3115: )
3116: );
3117:
3118: hr_utility.set_location('l_arch_employer_prsi_cont not archived ..'||l_arch_employer_prsi_cont,1004);
3119:
3120: END IF;
3121: --6633719
3122: CLOSE csr_p30_bal_value;
3119:
3120: END IF;
3121: --6633719
3122: CLOSE csr_p30_bal_value;
3123: hr_utility.set_location('IE PRSI EMPLOYER l_arch_employer_prsi_cont..'||l_arch_employer_prsi_cont,1005);
3124:
3125: -- Added K and M Employer figuresin case of severance payment
3126: OPEN csr_p30_bal_value (v_action_id,'IE PRSI K EMPLOYER LUMP SUM',l_dimension_name);
3127: FETCH csr_p30_bal_value INTO l_temp_prsi_cont;
3152: 2
3153: )
3154: );
3155:
3156: hr_utility.set_location('l_temp_prsi_cont not archived ..'||l_temp_prsi_cont,1004);
3157:
3158: END IF;
3159: --6633719
3160: CLOSE csr_p30_bal_value;
3157:
3158: END IF;
3159: --6633719
3160: CLOSE csr_p30_bal_value;
3161: hr_utility.set_location('IE PRSI K EMPLOYER LUMP SUM l_temp_prsi_cont..'||l_temp_prsi_cont,1005);
3162:
3163: l_arch_employer_prsi_cont :=
3164: TO_CHAR (
3165: TO_NUMBER (l_arch_employer_prsi_cont)
3165: TO_NUMBER (l_arch_employer_prsi_cont)
3166: + TO_NUMBER (NVL (l_temp_prsi_cont, '0'))
3167: );
3168: l_temp_prsi_cont := NULL;
3169: hr_utility.set_location('IE PRSI K EMPLOYER LUMP SUM l_arch_employer_prsi_cont..'||l_arch_employer_prsi_cont,1005);
3170:
3171: OPEN csr_p30_bal_value (v_action_id,'IE PRSI M EMPLOYER LUMP SUM',l_dimension_name);
3172: FETCH csr_p30_bal_value INTO l_temp_prsi_cont;
3173: --6633719
3197: 2
3198: )
3199: );
3200:
3201: hr_utility.set_location('l_temp_prsi_cont not archived ..'||l_temp_prsi_cont,1004);
3202:
3203: END IF;
3204: --6633719
3205: CLOSE csr_p30_bal_value;
3202:
3203: END IF;
3204: --6633719
3205: CLOSE csr_p30_bal_value;
3206: hr_utility.set_location('IE PRSI M EMPLOYER LUMP SUM l_temp_prsi_cont..'||l_temp_prsi_cont,1005);
3207:
3208: l_arch_employer_prsi_cont :=
3209: TO_CHAR (
3210: TO_NUMBER (l_arch_employer_prsi_cont)
3215: TO_CHAR (
3216: TO_NUMBER (NVL (l_arch_employees_prsi_cont, 0))
3217: + TO_NUMBER (NVL (l_arch_employer_prsi_cont, 0))
3218: );
3219: hr_utility.set_location('l_arch_total_prsi_cont..'||l_arch_total_prsi_cont,1005);
3220: --Bug 4553755
3221: -- Passed Payroll Run assignment action id csr_interlocks.locked_action_id 4672715
3222:
3223: l_arch_total_notional_pay :=
3243: ),
3244: 2
3245: )
3246: );
3247: hr_utility.set_location('l_arch_total_notional_pay..'||l_arch_total_notional_pay,1005);
3248: --16306646
3249: l_arch_total_share_scheme :=
3250: TO_CHAR (
3251: ROUND (
3269: ),
3270: 2
3271: )
3272: );
3273: hr_utility.set_location('l_arch_total_share_scheme..'||l_arch_total_share_scheme,1005);
3274:
3275: l_p35_taxable_pay_adjust :=
3276: TO_CHAR (
3277: ROUND (
3295: ),
3296: 2
3297: )
3298: );
3299: hr_utility.set_location('l_p35_taxable_pay_adjust..'||l_p35_taxable_pay_adjust,1005);
3300:
3301: l_p35_gross_pay_adjust :=
3302: TO_CHAR (
3303: ROUND (
3321: ),
3322: 2
3323: )
3324: );
3325: hr_utility.set_location('l_p35_gross_pay_adjust..'||l_p35_gross_pay_adjust,1005);
3326: --16306646
3327:
3328: -- Passed Payroll Run assignment action id csr_interlocks.locked_action_id 4672715
3329: /* Start Pension Balances */
3372: ),
3373: 2
3374: )
3375: );
3376: hr_utility.set_location('l_arch_pen_emp_rbs..'||l_arch_pen_emp_rbs,1005);
3377: l_arch_pen_empr_rbs :=
3378: TO_CHAR (
3379: ROUND (
3380: NVL (
3397: ),
3398: 2
3399: )
3400: );
3401: hr_utility.set_location('l_arch_pen_empr_rbs..'||l_arch_pen_empr_rbs,1005);
3402: l_arch_pen_emp_prsa :=
3403: TO_CHAR (
3404: ROUND (
3405: NVL (
3444: ),
3445: 2
3446: )
3447: );
3448: hr_utility.set_location('l_arch_pen_emp_prsa..'||l_arch_pen_emp_prsa,1005);
3449: l_arch_pen_empr_prsa :=
3450: TO_CHAR (
3451: ROUND (
3452: NVL (
3469: ),
3470: 2
3471: )
3472: );
3473: hr_utility.set_location('l_arch_pen_empr_prsa..'||l_arch_pen_empr_prsa,1005);
3474: l_arch_pen_emp_rac :=
3475: TO_CHAR (
3476: ROUND (
3477: NVL (
3495: 2
3496: )
3497: );
3498: /* End Pension Balances */
3499: hr_utility.set_location('l_arch_pen_emp_rac..'||l_arch_pen_emp_rac,1005);
3500: /* start of gross pay balances */
3501: OPEN csr_p30_bal_value (v_action_id, 'IE GROSS INCOME ADJUSTMENT',l_dimension_name); /* 8520684 */
3502: FETCH csr_p30_bal_value INTO l_temp_gross_pay;
3503: --6633719
3526: ),
3527: 2
3528: )
3529: );
3530: hr_utility.set_location('l_temp_gross_pay not archived ..'|| l_temp_gross_pay,1004);
3531: END IF;
3532: CLOSE csr_p30_bal_value;
3533: hr_utility.set_location('IE Gross Income Adjustment l_temp_gross_pay..'||l_temp_gross_pay,1005);
3534:
3529: );
3530: hr_utility.set_location('l_temp_gross_pay not archived ..'|| l_temp_gross_pay,1004);
3531: END IF;
3532: CLOSE csr_p30_bal_value;
3533: hr_utility.set_location('IE Gross Income Adjustment l_temp_gross_pay..'||l_temp_gross_pay,1005);
3534:
3535: l_arch_gross_pay :=
3536: TO_CHAR (
3537: TO_NUMBER (l_arch_gross_pay)
3537: TO_NUMBER (l_arch_gross_pay)
3538: + TO_NUMBER (NVL (l_temp_gross_pay, '0'))
3539: );
3540: l_temp_gross_pay := NULL;
3541: hr_utility.set_location('IE Gross Income Adjustment l_arch_gross_pay..'||l_arch_gross_pay,1005);
3542:
3543: OPEN csr_p30_bal_value (v_action_id, 'IE GROSS INCOME',l_dimension_name);
3544: FETCH csr_p30_bal_value INTO l_temp_gross_pay;
3545: --6633719
3568: ),
3569: 2
3570: )
3571: );
3572: hr_utility.set_location('l_temp_gross_pay not archived ..'|| l_temp_gross_pay,1004);
3573: END IF;
3574: CLOSE csr_p30_bal_value;
3575: hr_utility.set_location('IE Gross Income l_temp_gross_pay..'||l_temp_gross_pay,1005);
3576:
3571: );
3572: hr_utility.set_location('l_temp_gross_pay not archived ..'|| l_temp_gross_pay,1004);
3573: END IF;
3574: CLOSE csr_p30_bal_value;
3575: hr_utility.set_location('IE Gross Income l_temp_gross_pay..'||l_temp_gross_pay,1005);
3576:
3577: l_arch_gross_pay :=
3578: TO_CHAR (
3579: TO_NUMBER (l_arch_gross_pay)
3579: TO_NUMBER (l_arch_gross_pay)
3580: + TO_NUMBER (NVL (l_temp_gross_pay, '0'))
3581: );
3582: l_temp_gross_pay := NULL;
3583: hr_utility.set_location('IE Gross Income l_arch_gross_pay..'||l_arch_gross_pay,1005);
3584:
3585: OPEN csr_p30_bal_value (v_action_id, 'IE BIK TAXABLE AND PRSIABLE PAY',l_dimension_name);
3586: FETCH csr_p30_bal_value INTO l_temp_gross_pay;
3587: --6633719
3610: ),
3611: 2
3612: )
3613: );
3614: hr_utility.set_location('l_temp_gross_pay not archived ..'|| l_temp_gross_pay,1004);
3615: END IF;
3616: CLOSE csr_p30_bal_value;
3617: hr_utility.set_location('IE BIK Taxable and PRSIable Pay l_temp_gross_pay..'||l_temp_gross_pay,1005);
3618:
3613: );
3614: hr_utility.set_location('l_temp_gross_pay not archived ..'|| l_temp_gross_pay,1004);
3615: END IF;
3616: CLOSE csr_p30_bal_value;
3617: hr_utility.set_location('IE BIK Taxable and PRSIable Pay l_temp_gross_pay..'||l_temp_gross_pay,1005);
3618:
3619: l_arch_gross_pay :=
3620: TO_CHAR (
3621: TO_NUMBER (l_arch_gross_pay)
3621: TO_NUMBER (l_arch_gross_pay)
3622: + TO_NUMBER (NVL (l_temp_gross_pay, '0'))
3623: );
3624: l_temp_gross_pay := NULL;
3625: hr_utility.set_location('IE BIK Taxable and PRSIable Pay l_arch_gross_pay..'||l_arch_gross_pay,1005);
3626:
3627: /* income tax levy balances */
3628: OPEN csr_p30_bal_value (v_action_id, 'IE INCOME TAX LEVY',l_dimension_name); /* 8520684 */
3629: FETCH csr_p30_bal_value INTO l_temp_income_levy;
3653: ),
3654: 2
3655: )
3656: );
3657: hr_utility.set_location('l_temp_income_levy not archived ..'|| l_temp_income_levy,1004);
3658: END IF;
3659: CLOSE csr_p30_bal_value;
3660: hr_utility.set_location('IE Income Tax Levy l_temp_income_levy..'||l_temp_income_levy,1005);
3661:
3656: );
3657: hr_utility.set_location('l_temp_income_levy not archived ..'|| l_temp_income_levy,1004);
3658: END IF;
3659: CLOSE csr_p30_bal_value;
3660: hr_utility.set_location('IE Income Tax Levy l_temp_income_levy..'||l_temp_income_levy,1005);
3661:
3662: l_arch_income_levy :=
3663: TO_CHAR (
3664: TO_NUMBER (l_arch_income_levy)
3664: TO_NUMBER (l_arch_income_levy)
3665: + TO_NUMBER (NVL (l_temp_income_levy, '0'))
3666: );
3667: l_temp_income_levy := NULL;
3668: hr_utility.set_location('IE Income Tax Levy l_arch_income_levy..'||l_arch_income_levy,1005);
3669:
3670: /* 8978805 */
3671: /*
3672: OPEN csr_p30_bal_value (v_action_id, 'IE INCOME TAX LEVY REFUND AMOUNT',l_dimension_name);
3697: ),
3698: 2
3699: )
3700: );
3701: hr_utility.set_location('l_temp_income_levy not archived ..'|| l_temp_income_levy,1004);
3702: END IF;
3703: CLOSE csr_p30_bal_value;
3704: hr_utility.set_location('IE Income Tax Levy Refund Amount l_temp_income_levy..'||l_temp_income_levy,1005); */
3705:
3700: );
3701: hr_utility.set_location('l_temp_income_levy not archived ..'|| l_temp_income_levy,1004);
3702: END IF;
3703: CLOSE csr_p30_bal_value;
3704: hr_utility.set_location('IE Income Tax Levy Refund Amount l_temp_income_levy..'||l_temp_income_levy,1005); */
3705:
3706: l_arch_income_levy :=
3707: TO_CHAR (
3708: TO_NUMBER (l_arch_income_levy)
3708: TO_NUMBER (l_arch_income_levy)
3709: + TO_NUMBER (NVL (l_temp_income_levy, '0'))
3710: );
3711: l_temp_income_levy := NULL;
3712: hr_utility.set_location('IE Income Tax Levy Refund Amount l_arch_income_levy..'||l_arch_income_levy,1005);
3713:
3714: /* first band */
3715: OPEN csr_p30_bal_value (v_action_id, 'IE INCOME TAX LEVY FIRST BAND',l_dimension_name); /* 8520684 */
3716: FETCH csr_p30_bal_value INTO l_arch_income_levy_first;
3741: 2
3742: )
3743: );
3744:
3745: hr_utility.set_location('l_arch_income_levy_first not archived ..'||l_arch_income_levy_first,1004);
3746:
3747: END IF;
3748: --6633719
3749: CLOSE csr_p30_bal_value;
3746:
3747: END IF;
3748: --6633719
3749: CLOSE csr_p30_bal_value;
3750: hr_utility.set_location('l_arch_income_levy_first..'||l_arch_income_levy_first,1005);
3751:
3752: /* second band */
3753: OPEN csr_p30_bal_value (v_action_id, 'IE INCOME TAX LEVY SECOND BAND',l_dimension_name); /* 8520684 */
3754: FETCH csr_p30_bal_value INTO l_arch_income_levy_second;
3779: 2
3780: )
3781: );
3782:
3783: hr_utility.set_location('l_arch_income_levy_second not archived ..'||l_arch_income_levy_second,1004);
3784:
3785: END IF;
3786: --6633719
3787: CLOSE csr_p30_bal_value;
3784:
3785: END IF;
3786: --6633719
3787: CLOSE csr_p30_bal_value;
3788: hr_utility.set_location('l_arch_income_levy_second..'||l_arch_income_levy_second,1005);
3789:
3790:
3791: /* Third band */
3792: OPEN csr_p30_bal_value (v_action_id, 'IE INCOME TAX LEVY THIRD BAND',l_dimension_name); /* 8520684 */
3818: 2
3819: )
3820: );
3821:
3822: hr_utility.set_location('l_arch_income_levy_third not archived ..'||l_arch_income_levy_third,1004);
3823:
3824: END IF;
3825: --6633719
3826: CLOSE csr_p30_bal_value;
3823:
3824: END IF;
3825: --6633719
3826: CLOSE csr_p30_bal_value;
3827: hr_utility.set_location('l_arch_income_levy_third..'||l_arch_income_levy_third,1005);
3828:
3829: --14656910
3830: /* Illness Benefit */
3831: OPEN csr_p30_bal_value (v_action_id, 'IE ILLNESS BENEFIT',l_dimension_name); /* 8520684 */
3857: 2
3858: )
3859: );
3860:
3861: hr_utility.set_location('l_arch_illness_benefit not archived ..'||l_arch_illness_benefit,1004);
3862:
3863: END IF;
3864: --6633719
3865: CLOSE csr_p30_bal_value;
3862:
3863: END IF;
3864: --6633719
3865: CLOSE csr_p30_bal_value;
3866: hr_utility.set_location('l_arch_illness_benefit..'||l_arch_illness_benefit,1005);
3867: --14656910
3868:
3869: /* Parking Levy */
3870: OPEN csr_p30_bal_value (v_action_id, 'IE PARKING LEVY',l_dimension_name); /* 8520684 */
3896: 2
3897: )
3898: );
3899:
3900: hr_utility.set_location('l_arch_parking_levy not archived ..'||l_arch_parking_levy,1004);
3901:
3902: END IF;
3903: --6633719
3904: CLOSE csr_p30_bal_value;
3901:
3902: END IF;
3903: --6633719
3904: CLOSE csr_p30_bal_value;
3905: hr_utility.set_location('l_arch_parking_levy..'||l_arch_parking_levy,1005);
3906:
3907:
3908: -- BIK Medical insurance 5867343
3909: l_medical_insurance :=
3929: ),
3930: 2
3931: )
3932: );
3933: hr_utility.set_location('l_medical_insurance..'||l_medical_insurance,1005);
3934: /*Bug No. 4063502*/
3935: IF nvl(l_arch_pay,0) = 0 THEN -- if IE TAXABLE PAY is 0
3936: hr_utility.set_location('Inside If l_arch_non_tax_pay..'||l_arch_non_tax_pay,1005);
3937: l_arch_non_tax_pay :=
3932: );
3933: hr_utility.set_location('l_medical_insurance..'||l_medical_insurance,1005);
3934: /*Bug No. 4063502*/
3935: IF nvl(l_arch_pay,0) = 0 THEN -- if IE TAXABLE PAY is 0
3936: hr_utility.set_location('Inside If l_arch_non_tax_pay..'||l_arch_non_tax_pay,1005);
3937: l_arch_non_tax_pay :=
3938: TO_CHAR (
3939: ROUND (
3940: NVL (
3957: ),
3958: 2
3959: )
3960: );
3961: hr_utility.set_location('l_arch_non_tax_pay..'||l_arch_non_tax_pay,1005);
3962: END IF;
3963:
3964:
3965: SELECT DECODE (
3971: INTO l_arch_tax_or_refund
3972: FROM DUAL;
3973:
3974:
3975: hr_utility.set_location('l_arch_tax_or_refund..'||l_arch_tax_or_refund,1005);
3976: hr_utility.set_location('b4 cursor csr_p30_found..',1005);
3977:
3978:
3979: --12382953
3972: FROM DUAL;
3973:
3974:
3975: hr_utility.set_location('l_arch_tax_or_refund..'||l_arch_tax_or_refund,1005);
3976: hr_utility.set_location('b4 cursor csr_p30_found..',1005);
3977:
3978:
3979: --12382953
3980:
4007: ),
4008: 2
4009: )
4010: );
4011: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4012: END IF;
4013: CLOSE csr_p30_bal_value;
4014: hr_utility.set_location('IE Gross Income Adjustment l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4015:
4010: );
4011: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4012: END IF;
4013: CLOSE csr_p30_bal_value;
4014: hr_utility.set_location('IE Gross Income Adjustment l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4015:
4016: l_arch_gross_pay_usc :=
4017: TO_CHAR (
4018: TO_NUMBER (l_arch_gross_pay_usc)
4018: TO_NUMBER (l_arch_gross_pay_usc)
4019: + TO_NUMBER (NVL (l_temp_gross_pay_usc, '0'))
4020: );
4021: l_temp_gross_pay_usc := NULL;
4022: hr_utility.set_location('IE Gross Income Adjustment l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1005);
4023:
4024: OPEN csr_p30_bal_value (v_action_id, 'IE USCABLE PAY',l_dimension_name);
4025: FETCH csr_p30_bal_value INTO l_temp_gross_pay_usc;
4026: --6633719
4049: ),
4050: 2
4051: )
4052: );
4053: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4054: END IF;
4055: CLOSE csr_p30_bal_value;
4056: hr_utility.set_location('IE USCable Pay l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4057:
4052: );
4053: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4054: END IF;
4055: CLOSE csr_p30_bal_value;
4056: hr_utility.set_location('IE USCable Pay l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4057:
4058: l_arch_gross_pay_usc :=
4059: TO_CHAR (
4060: TO_NUMBER (l_arch_gross_pay_usc)
4060: TO_NUMBER (l_arch_gross_pay_usc)
4061: + TO_NUMBER (NVL (l_temp_gross_pay_usc, '0'))
4062: );
4063: l_temp_gross_pay_usc := NULL;
4064: hr_utility.set_location('IE USCable Pay l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1005);
4065:
4066: OPEN csr_p30_bal_value (v_action_id, 'IE BIK TAXABLE AND PRSIABLE PAY',l_dimension_name);
4067: FETCH csr_p30_bal_value INTO l_temp_gross_pay_usc;
4068: --6633719
4091: ),
4092: 2
4093: )
4094: );
4095: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4096: END IF;
4097: CLOSE csr_p30_bal_value;
4098: hr_utility.set_location('IE BIK Taxable and PRSIable Pay l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4099:
4094: );
4095: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4096: END IF;
4097: CLOSE csr_p30_bal_value;
4098: hr_utility.set_location('IE BIK Taxable and PRSIable Pay l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4099:
4100: l_arch_gross_pay_usc :=
4101: TO_CHAR (
4102: TO_NUMBER (l_arch_gross_pay_usc)
4102: TO_NUMBER (l_arch_gross_pay_usc)
4103: + TO_NUMBER (NVL (l_temp_gross_pay_usc, '0'))
4104: );
4105: l_temp_gross_pay_usc := NULL;
4106: hr_utility.set_location('IE BIK Taxable and PRSIable Pay l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1005);
4107:
4108: --
4109: OPEN csr_p30_bal_value (v_action_id, 'IE COURT ORDER',l_dimension_name);
4110: FETCH csr_p30_bal_value INTO l_temp_gross_pay_usc;
4134: ),
4135: 2
4136: )
4137: );
4138: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4139: END IF;
4140: CLOSE csr_p30_bal_value;
4141: hr_utility.set_location('IE Court Order l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4142:
4137: );
4138: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4139: END IF;
4140: CLOSE csr_p30_bal_value;
4141: hr_utility.set_location('IE Court Order l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4142:
4143: l_arch_gross_pay_usc :=
4144: TO_CHAR (
4145: TO_NUMBER (l_arch_gross_pay_usc)
4145: TO_NUMBER (l_arch_gross_pay_usc)
4146: - TO_NUMBER (NVL (l_temp_gross_pay_usc, '0'))
4147: );
4148: l_temp_gross_pay_usc := NULL;
4149: hr_utility.set_location('IE Court Order l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1005);
4150: --
4151:
4152: --11076169
4153: --
4179: ),
4180: 2
4181: )
4182: );
4183: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4184: END IF;
4185: CLOSE csr_p30_bal_value;
4186: hr_utility.set_location('IE Court Order Child Portion l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4187:
4182: );
4183: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4184: END IF;
4185: CLOSE csr_p30_bal_value;
4186: hr_utility.set_location('IE Court Order Child Portion l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4187:
4188: l_arch_gross_pay_usc :=
4189: TO_CHAR (
4190: TO_NUMBER (l_arch_gross_pay_usc)
4190: TO_NUMBER (l_arch_gross_pay_usc)
4191: + TO_NUMBER (NVL (l_temp_gross_pay_usc, '0'))
4192: );
4193: l_temp_gross_pay_usc := NULL;
4194: hr_utility.set_location('IE Court Order Child Portion l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1005);
4195: --
4196: --11076169
4197:
4198: --16242337
4225: ),
4226: 2
4227: )
4228: );
4229: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4230: END IF;
4231: CLOSE csr_p30_bal_value;
4232: hr_utility.set_location('IE PRSA ER Contribution l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4233:
4228: );
4229: hr_utility.set_location('l_temp_gross_pay_usc not archived ..'|| l_temp_gross_pay_usc,1004);
4230: END IF;
4231: CLOSE csr_p30_bal_value;
4232: hr_utility.set_location('IE PRSA ER Contribution l_temp_gross_pay_usc..'||l_temp_gross_pay_usc,1005);
4233:
4234: l_arch_gross_pay_usc :=
4235: TO_CHAR (
4236: TO_NUMBER (l_arch_gross_pay_usc)
4236: TO_NUMBER (l_arch_gross_pay_usc)
4237: + TO_NUMBER (NVL (l_temp_gross_pay_usc, '0'))
4238: );
4239: l_temp_gross_pay_usc := NULL;
4240: hr_utility.set_location('IE PRSA ER Contribution l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1005);
4241: --
4242: --16242337
4243:
4244: /* USC balances */
4270: ),
4271: 2
4272: )
4273: );
4274: hr_utility.set_location('l_temp_usc not archived ..'|| l_temp_usc,1004);
4275: END IF;
4276: CLOSE csr_p30_bal_value;
4277: hr_utility.set_location('IE USC Balance l_temp_usc..'||l_temp_usc,1005);
4278:
4273: );
4274: hr_utility.set_location('l_temp_usc not archived ..'|| l_temp_usc,1004);
4275: END IF;
4276: CLOSE csr_p30_bal_value;
4277: hr_utility.set_location('IE USC Balance l_temp_usc..'||l_temp_usc,1005);
4278:
4279: l_arch_usc :=
4280: TO_CHAR (
4281: TO_NUMBER (l_arch_usc)
4281: TO_NUMBER (l_arch_usc)
4282: + TO_NUMBER (NVL (l_temp_usc, '0'))
4283: );
4284: l_temp_usc := NULL;
4285: hr_utility.set_location('IE USC Balance l_arch_usc..'||l_arch_usc,1005);
4286:
4287: /* first band */
4288: OPEN csr_p30_bal_value (v_action_id, 'IE USC FIRST BAND',l_dimension_name); /* 8520684 */
4289: FETCH csr_p30_bal_value INTO l_arch_usc_first;
4314: 2
4315: )
4316: );
4317:
4318: hr_utility.set_location('l_arch_usc_first not archived ..'||l_arch_usc_first,1004);
4319:
4320: END IF;
4321: --6633719
4322: CLOSE csr_p30_bal_value;
4319:
4320: END IF;
4321: --6633719
4322: CLOSE csr_p30_bal_value;
4323: hr_utility.set_location('l_arch_usc_first..'||l_arch_usc_first,1005);
4324:
4325: /* second band */
4326: OPEN csr_p30_bal_value (v_action_id, 'IE USC SECOND BAND',l_dimension_name); /* 8520684 */
4327: FETCH csr_p30_bal_value INTO l_arch_usc_second;
4352: 2
4353: )
4354: );
4355:
4356: hr_utility.set_location('l_arch_usc_second not archived ..'||l_arch_usc_second,1004);
4357:
4358: END IF;
4359: --6633719
4360: CLOSE csr_p30_bal_value;
4357:
4358: END IF;
4359: --6633719
4360: CLOSE csr_p30_bal_value;
4361: hr_utility.set_location('l_arch_usc_second..'||l_arch_usc_second,1005);
4362:
4363:
4364: /* Third band */
4365: OPEN csr_p30_bal_value (v_action_id, 'IE USC THIRD BAND',l_dimension_name); /* 8520684 */
4391: 2
4392: )
4393: );
4394:
4395: hr_utility.set_location('l_arch_usc_third not archived ..'||l_arch_usc_third,1004);
4396:
4397: END IF;
4398: --6633719
4399: CLOSE csr_p30_bal_value;
4396:
4397: END IF;
4398: --6633719
4399: CLOSE csr_p30_bal_value;
4400: hr_utility.set_location('l_arch_usc_third..'||l_arch_usc_third,1005);
4401:
4402: --12382953
4403: --
4404: -- BUG 3306202 Added cursor CSR_P30_PERSON
4428: l_arch_previous_emp_pay,
4429: l_arch_previous_emp_tax, l_arch_previous_emp_pay_usc, l_arch_previous_emp_usc; --14659262
4430: CLOSE csr_p30_found;
4431: /* lock this v_action_id*/
4432: hr_utility.set_location('after cursor csr_p30_found..',1005);
4433: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1005);
4434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1005);
4435: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1005);
4436: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4429: l_arch_previous_emp_tax, l_arch_previous_emp_pay_usc, l_arch_previous_emp_usc; --14659262
4430: CLOSE csr_p30_found;
4431: /* lock this v_action_id*/
4432: hr_utility.set_location('after cursor csr_p30_found..',1005);
4433: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1005);
4434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1005);
4435: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1005);
4436: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4437: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4430: CLOSE csr_p30_found;
4431: /* lock this v_action_id*/
4432: hr_utility.set_location('after cursor csr_p30_found..',1005);
4433: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1005);
4434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1005);
4435: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1005);
4436: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4437: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4438: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1005);
4431: /* lock this v_action_id*/
4432: hr_utility.set_location('after cursor csr_p30_found..',1005);
4433: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1005);
4434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1005);
4435: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1005);
4436: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4437: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4438: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1005);
4439:
4432: hr_utility.set_location('after cursor csr_p30_found..',1005);
4433: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1005);
4434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1005);
4435: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1005);
4436: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4437: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4438: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1005);
4439:
4440: ELSIF v_action_type in ('P','U') THEN
4433: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1005);
4434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1005);
4435: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1005);
4436: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4437: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4438: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1005);
4439:
4440: ELSIF v_action_type in ('P','U') THEN
4441: hr_utility.set_location('Inside P,U ..'||to_char(l_actid),1006);
4434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1005);
4435: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1005);
4436: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4437: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4438: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1005);
4439:
4440: ELSIF v_action_type in ('P','U') THEN
4441: hr_utility.set_location('Inside P,U ..'||to_char(l_actid),1006);
4442: l_max_action_id := csr_interlocks.locked_action_id;
4437: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4438: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1005);
4439:
4440: ELSIF v_action_type in ('P','U') THEN
4441: hr_utility.set_location('Inside P,U ..'||to_char(l_actid),1006);
4442: l_max_action_id := csr_interlocks.locked_action_id;
4443: hr_utility.set_location('l_max_action_id..'||l_max_action_id,1006);
4444: hr_utility.set_location('v_action_id..'||v_action_id,1006);
4445: hr_utility.set_location('B4 cursor csr_prepay_found..',1006);
4439:
4440: ELSIF v_action_type in ('P','U') THEN
4441: hr_utility.set_location('Inside P,U ..'||to_char(l_actid),1006);
4442: l_max_action_id := csr_interlocks.locked_action_id;
4443: hr_utility.set_location('l_max_action_id..'||l_max_action_id,1006);
4444: hr_utility.set_location('v_action_id..'||v_action_id,1006);
4445: hr_utility.set_location('B4 cursor csr_prepay_found..',1006);
4446:
4447: OPEN csr_prepay_found (v_action_id,
4440: ELSIF v_action_type in ('P','U') THEN
4441: hr_utility.set_location('Inside P,U ..'||to_char(l_actid),1006);
4442: l_max_action_id := csr_interlocks.locked_action_id;
4443: hr_utility.set_location('l_max_action_id..'||l_max_action_id,1006);
4444: hr_utility.set_location('v_action_id..'||v_action_id,1006);
4445: hr_utility.set_location('B4 cursor csr_prepay_found..',1006);
4446:
4447: OPEN csr_prepay_found (v_action_id,
4448: csr_interlocks.locked_action_id,
4441: hr_utility.set_location('Inside P,U ..'||to_char(l_actid),1006);
4442: l_max_action_id := csr_interlocks.locked_action_id;
4443: hr_utility.set_location('l_max_action_id..'||l_max_action_id,1006);
4444: hr_utility.set_location('v_action_id..'||v_action_id,1006);
4445: hr_utility.set_location('B4 cursor csr_prepay_found..',1006);
4446:
4447: OPEN csr_prepay_found (v_action_id,
4448: csr_interlocks.locked_action_id,
4449: l_dimension_name,
4474: l_arch_pr_indicator,
4475: l_arch_previous_emp_pay,
4476: l_arch_previous_emp_tax, l_arch_previous_emp_pay_usc, l_arch_previous_emp_usc; --14659262
4477: CLOSE csr_prepay_found;
4478: hr_utility.set_location('After cursor csr_prepay_found..',1006);
4479: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1006);
4480: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1006);
4481: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1006);
4482: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4475: l_arch_previous_emp_pay,
4476: l_arch_previous_emp_tax, l_arch_previous_emp_pay_usc, l_arch_previous_emp_usc; --14659262
4477: CLOSE csr_prepay_found;
4478: hr_utility.set_location('After cursor csr_prepay_found..',1006);
4479: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1006);
4480: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1006);
4481: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1006);
4482: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4483: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4476: l_arch_previous_emp_tax, l_arch_previous_emp_pay_usc, l_arch_previous_emp_usc; --14659262
4477: CLOSE csr_prepay_found;
4478: hr_utility.set_location('After cursor csr_prepay_found..',1006);
4479: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1006);
4480: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1006);
4481: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1006);
4482: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4483: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4484: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1006);
4477: CLOSE csr_prepay_found;
4478: hr_utility.set_location('After cursor csr_prepay_found..',1006);
4479: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1006);
4480: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1006);
4481: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1006);
4482: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4483: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4484: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1006);
4485:
4478: hr_utility.set_location('After cursor csr_prepay_found..',1006);
4479: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1006);
4480: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1006);
4481: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1006);
4482: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4483: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4484: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1006);
4485:
4486:
4479: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1006);
4480: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1006);
4481: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1006);
4482: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4483: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4484: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1006);
4485:
4486:
4487: /* if data found in the prepayment cursor then call the below functions to retrieve the remaining data for archiving */
4480: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1006);
4481: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,1006);
4482: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
4483: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
4484: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,1006);
4485:
4486:
4487: /* if data found in the prepayment cursor then call the below functions to retrieve the remaining data for archiving */
4488: -- Added K and M Employee and Employer figures for severance payment to variables l_arch_employees_prsi_cont and l_arch_total_prsi_cont
4510: ),
4511: 2
4512: )
4513: );
4514: hr_utility.set_location('l_arch_net_tax..'||l_arch_net_tax,1006);
4515: l_arch_employees_prsi_cont :=
4516: TO_CHAR (
4517: ROUND (
4518: NVL (
4571: ),
4572: 2
4573: )
4574: );
4575: hr_utility.set_location('l_arch_employees_prsi_cont..'||l_arch_employees_prsi_cont,1006);
4576: l_arch_total_prsi_cont :=
4577: TO_CHAR (
4578: ROUND (
4579: NVL (
4686: ),
4687: 2
4688: )
4689: );
4690: hr_utility.set_location('l_arch_total_prsi_cont..'||l_arch_total_prsi_cont,1006);
4691: l_arch_pay :=
4692: TO_CHAR (
4693: ROUND (
4694: NVL (
4711: ),
4712: 2
4713: )
4714: );
4715: hr_utility.set_location('l_arch_pay..'||l_arch_pay,1006);
4716: l_arch_total_notional_pay :=
4717: TO_CHAR (
4718: ROUND (
4719: NVL (
4736: ),
4737: 2
4738: )
4739: );
4740: hr_utility.set_location('l_arch_total_notional_pay..'||l_arch_total_notional_pay,1006);
4741: --16306646
4742: l_arch_total_share_scheme :=
4743: TO_CHAR (
4744: ROUND (
4762: ),
4763: 2
4764: )
4765: );
4766: hr_utility.set_location('l_arch_total_share_scheme..'||l_arch_total_share_scheme,1006);
4767:
4768: l_p35_taxable_pay_adjust :=
4769: TO_CHAR (
4770: ROUND (
4788: ),
4789: 2
4790: )
4791: );
4792: hr_utility.set_location('l_p35_taxable_pay_adjust..'||l_p35_taxable_pay_adjust,1006);
4793:
4794: l_p35_gross_pay_adjust :=
4795: TO_CHAR (
4796: ROUND (
4814: ),
4815: 2
4816: )
4817: );
4818: hr_utility.set_location('l_p35_gross_pay_adjust..'||l_p35_gross_pay_adjust,1006);
4819: --16306646
4820: /* Start Pension Balances */
4821: l_arch_pen_emp_rbs :=
4822: TO_CHAR (
4863: ),
4864: 2
4865: )
4866: );
4867: hr_utility.set_location('l_arch_pen_emp_rbs..'||l_arch_pen_emp_rbs,1006);
4868: l_arch_pen_empr_rbs :=
4869: TO_CHAR (
4870: ROUND (
4871: NVL (
4888: ),
4889: 2
4890: )
4891: );
4892: hr_utility.set_location('l_arch_pen_empr_rbs..'||l_arch_pen_empr_rbs,1006);
4893: l_arch_pen_emp_prsa :=
4894: TO_CHAR (
4895: ROUND (
4896: NVL (
4935: ),
4936: 2
4937: )
4938: );
4939: hr_utility.set_location('l_arch_pen_emp_prsa..'||l_arch_pen_emp_prsa,1006);
4940: l_arch_pen_empr_prsa :=
4941: TO_CHAR (
4942: ROUND (
4943: NVL (
4960: ),
4961: 2
4962: )
4963: );
4964: hr_utility.set_location('l_arch_pen_empr_prsa..'||l_arch_pen_empr_prsa,1006);
4965: l_arch_pen_emp_rac :=
4966: TO_CHAR (
4967: ROUND (
4968: NVL (
4985: ),
4986: 2
4987: )
4988: );
4989: hr_utility.set_location('l_arch_pen_emp_rac..'||l_arch_pen_emp_rac,1006);
4990: /* End Pension Balances */
4991:
4992: /* 8520684 */
4993: /* gross pay balances */
5277: ),
5278: 2
5279: )
5280: );
5281: hr_utility.set_location('l_medical_insurance..'||l_medical_insurance,1006);
5282:
5283: --12382953
5284:
5285: /* gross pay USC balances */
5567: ),
5568: 2
5569: )
5570: );
5571: hr_utility.set_location('l_arch_non_tax_pay..'||l_arch_non_tax_pay,1006);
5572: END IF;
5573: /* lock this v_action_id*/
5574: --
5575: ELSE --v_action_type in ('R','Q','I','B','V') THEN
5572: END IF;
5573: /* lock this v_action_id*/
5574: --
5575: ELSE --v_action_type in ('R','Q','I','B','V') THEN
5576: hr_utility.set_location('Inside R,Q ..'||to_char(l_actid),1007);
5577: -- get data from run-reults
5578: hr_utility.set_location('csr_interlocks.locked_action_id..'||csr_interlocks.locked_action_id,1007);
5579:
5580: OPEN csr_run_results_found (csr_interlocks.locked_action_id,
5574: --
5575: ELSE --v_action_type in ('R','Q','I','B','V') THEN
5576: hr_utility.set_location('Inside R,Q ..'||to_char(l_actid),1007);
5577: -- get data from run-reults
5578: hr_utility.set_location('csr_interlocks.locked_action_id..'||csr_interlocks.locked_action_id,1007);
5579:
5580: OPEN csr_run_results_found (csr_interlocks.locked_action_id,
5581: l_dimension_name,
5582: l_Act_Context_id,
5607: l_arch_previous_emp_pay,
5608: l_arch_previous_emp_tax, l_arch_previous_emp_pay, l_arch_previous_emp_usc; --14659262
5609: CLOSE csr_run_results_found;
5610:
5611: hr_utility.set_location('After csr_run_results_found..',5001);
5612: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,5001);
5613: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,5001);
5614: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,5001);
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5608: l_arch_previous_emp_tax, l_arch_previous_emp_pay, l_arch_previous_emp_usc; --14659262
5609: CLOSE csr_run_results_found;
5610:
5611: hr_utility.set_location('After csr_run_results_found..',5001);
5612: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,5001);
5613: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,5001);
5614: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,5001);
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5609: CLOSE csr_run_results_found;
5610:
5611: hr_utility.set_location('After csr_run_results_found..',5001);
5612: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,5001);
5613: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,5001);
5614: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,5001);
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5617: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,5001);
5610:
5611: hr_utility.set_location('After csr_run_results_found..',5001);
5612: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,5001);
5613: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,5001);
5614: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,5001);
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5617: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,5001);
5618:
5611: hr_utility.set_location('After csr_run_results_found..',5001);
5612: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,5001);
5613: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,5001);
5614: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,5001);
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5617: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,5001);
5618:
5619: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5001);
5612: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,5001);
5613: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,5001);
5614: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,5001);
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5617: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,5001);
5618:
5619: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5001);
5620: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5001); --14659262
5613: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,5001);
5614: hr_utility.set_location('l_arch_primary_flag..'||l_arch_primary_flag,5001);
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5617: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,5001);
5618:
5619: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5001);
5620: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5001); --14659262
5621: /* if data is found in the payroll run results cursor, then calculate the remaining values required for archiving */
5615: hr_utility.set_location('l_arch_asg_location_id..'||l_arch_asg_location_id,1005); -- 10277535
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5617: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,5001);
5618:
5619: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5001);
5620: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5001); --14659262
5621: /* if data is found in the payroll run results cursor, then calculate the remaining values required for archiving */
5622: -- Added K and M Employee and Employer figures for severance payment to variables l_arch_employees_prsi_cont and l_arch_total_prsi_cont
5623: hr_utility.set_location ('B4 Arch Net Tax getval'|| l_arch_assmt_action_id_bal,996);
5616: hr_utility.set_location('l_arch_org_id..'||l_arch_org_id,1005); -- 11674153
5617: hr_utility.set_location('l_arch_assignment_id..'||l_arch_assignment_id,5001);
5618:
5619: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5001);
5620: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5001); --14659262
5621: /* if data is found in the payroll run results cursor, then calculate the remaining values required for archiving */
5622: -- Added K and M Employee and Employer figures for severance payment to variables l_arch_employees_prsi_cont and l_arch_total_prsi_cont
5623: hr_utility.set_location ('B4 Arch Net Tax getval'|| l_arch_assmt_action_id_bal,996);
5624: l_arch_net_tax :=
5619: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5001);
5620: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5001); --14659262
5621: /* if data is found in the payroll run results cursor, then calculate the remaining values required for archiving */
5622: -- Added K and M Employee and Employer figures for severance payment to variables l_arch_employees_prsi_cont and l_arch_total_prsi_cont
5623: hr_utility.set_location ('B4 Arch Net Tax getval'|| l_arch_assmt_action_id_bal,996);
5624: l_arch_net_tax :=
5625: TO_CHAR (
5626: ROUND (
5627: NVL (
5644: ),
5645: 2
5646: )
5647: );
5648: hr_utility.set_location ('l_arch_net_tax'|| l_arch_net_tax,997);
5649: l_arch_employees_prsi_cont :=
5650: TO_CHAR (
5651: ROUND (
5652: NVL (
5705: ),
5706: 2
5707: )
5708: );
5709: hr_utility.set_location ('l_arch_employees_prsi_cont'|| l_arch_employees_prsi_cont,997);
5710:
5711: l_arch_total_prsi_cont :=
5712: TO_CHAR (
5713: ROUND (
5821: ),
5822: 2
5823: )
5824: );
5825: hr_utility.set_location ('l_arch_total_prsi_cont'|| l_arch_total_prsi_cont,998);
5826: l_arch_pay :=
5827: TO_CHAR (
5828: ROUND (
5829: NVL (
5846: ),
5847: 2
5848: )
5849: );
5850: hr_utility.set_location ('vik l_arch_assmt_action_id_bal '|| l_arch_assmt_action_id_bal,999);
5851: hr_utility.set_location ('vik l_segment4 '|| l_segment4,999);
5852: hr_utility.set_location ('vik l_arch_pay '|| l_arch_pay,999);
5853:
5854: hr_utility.set_location ('l_arch_total_notional_pay'|| l_arch_total_notional_pay,1990);
5847: 2
5848: )
5849: );
5850: hr_utility.set_location ('vik l_arch_assmt_action_id_bal '|| l_arch_assmt_action_id_bal,999);
5851: hr_utility.set_location ('vik l_segment4 '|| l_segment4,999);
5852: hr_utility.set_location ('vik l_arch_pay '|| l_arch_pay,999);
5853:
5854: hr_utility.set_location ('l_arch_total_notional_pay'|| l_arch_total_notional_pay,1990);
5855: l_arch_total_notional_pay :=
5848: )
5849: );
5850: hr_utility.set_location ('vik l_arch_assmt_action_id_bal '|| l_arch_assmt_action_id_bal,999);
5851: hr_utility.set_location ('vik l_segment4 '|| l_segment4,999);
5852: hr_utility.set_location ('vik l_arch_pay '|| l_arch_pay,999);
5853:
5854: hr_utility.set_location ('l_arch_total_notional_pay'|| l_arch_total_notional_pay,1990);
5855: l_arch_total_notional_pay :=
5856: TO_CHAR (
5850: hr_utility.set_location ('vik l_arch_assmt_action_id_bal '|| l_arch_assmt_action_id_bal,999);
5851: hr_utility.set_location ('vik l_segment4 '|| l_segment4,999);
5852: hr_utility.set_location ('vik l_arch_pay '|| l_arch_pay,999);
5853:
5854: hr_utility.set_location ('l_arch_total_notional_pay'|| l_arch_total_notional_pay,1990);
5855: l_arch_total_notional_pay :=
5856: TO_CHAR (
5857: ROUND (
5858: NVL (
5875: ),
5876: 2
5877: )
5878: );
5879: hr_utility.set_location ('l_arch_total_notional_pay'|| l_arch_total_notional_pay,1990);
5880: --16306646
5881: l_arch_total_share_scheme :=
5882: TO_CHAR (
5883: ROUND (
5901: ),
5902: 2
5903: )
5904: );
5905: hr_utility.set_location ('l_arch_total_share_scheme'|| l_arch_total_share_scheme,1990);
5906:
5907: l_p35_taxable_pay_adjust :=
5908: TO_CHAR (
5909: ROUND (
5927: ),
5928: 2
5929: )
5930: );
5931: hr_utility.set_location ('l_p35_taxable_pay_adjust'|| l_p35_taxable_pay_adjust,1990);
5932:
5933: l_p35_gross_pay_adjust :=
5934: TO_CHAR (
5935: ROUND (
5953: ),
5954: 2
5955: )
5956: );
5957: hr_utility.set_location ('l_p35_gross_pay_adjust'|| l_p35_gross_pay_adjust,1990);
5958: --16306646
5959: /* Start Pension Balances */
5960: l_arch_pen_emp_rbs :=
5961: TO_CHAR (
6002: ),
6003: 2
6004: )
6005: );
6006: hr_utility.set_location ('l_arch_pen_emp_rbs'|| l_arch_pen_emp_rbs,1990);
6007: l_arch_pen_empr_rbs :=
6008: TO_CHAR (
6009: ROUND (
6010: NVL (
6027: ),
6028: 2
6029: )
6030: );
6031: hr_utility.set_location ('l_arch_pen_empr_rbs'|| l_arch_pen_empr_rbs,1990);
6032: l_arch_pen_emp_prsa :=
6033: TO_CHAR (
6034: ROUND (
6035: NVL (
6074: ),
6075: 2
6076: )
6077: );
6078: hr_utility.set_location ('l_arch_pen_emp_prsa'|| l_arch_pen_emp_prsa,1990);
6079: l_arch_pen_empr_prsa :=
6080: TO_CHAR (
6081: ROUND (
6082: NVL (
6099: ),
6100: 2
6101: )
6102: );
6103: hr_utility.set_location ('l_arch_pen_empr_prsa'|| l_arch_pen_empr_prsa,1990);
6104: l_arch_pen_emp_rac :=
6105: TO_CHAR (
6106: ROUND (
6107: NVL (
6124: ),
6125: 2
6126: )
6127: );
6128: hr_utility.set_location ('l_arch_pen_emp_rac'|| l_arch_pen_emp_rac,1990);
6129: /* End Pension Balances */
6130:
6131: /* 8520684 */
6132: /* gross pay balances */
6416: ),
6417: 2
6418: )
6419: );
6420: hr_utility.set_location ('l_medical_insurance'|| l_medical_insurance,1990);
6421:
6422: --12382953
6423: /* gross pay USC balances */
6424: l_arch_gross_pay_usc :=
6680: --12382953
6681:
6682: /*Bug No. 4063502*/
6683: IF nvl(l_arch_pay,0) = 0 THEN
6684: hr_utility.set_location ('l_arch_non_tax_pay'|| l_arch_assmt_action_id_bal,1991);
6685: l_arch_non_tax_pay :=
6686: TO_CHAR (
6687: ROUND (
6688: NVL (
6706: 2
6707: )
6708: );
6709: END IF;
6710: hr_utility.set_location ('l_arch_non_tax_pay'|| l_arch_non_tax_pay,1990);
6711: END IF;
6712: --setting the assignment id to fetch PRSI values
6713: l_max_assignment_id := l_arch_assignment_id;
6714: l_max_action_id := csr_interlocks.locked_action_id;
6714: l_max_action_id := csr_interlocks.locked_action_id;
6715: END IF;
6716: cnt := cnt +1;
6717:
6718: hr_utility.set_location('before csr_get_primary_flag_active.'||v_action_id,1991);
6719: hr_utility.set_location('l_arch_previous_emp_pay.'||l_arch_previous_emp_pay,5001);
6720: hr_utility.set_location('l_arch_previous_emp_pay_usc.'||l_arch_previous_emp_pay_usc,5001); --14659262
6721:
6722: OPEN csr_get_primary_flag_active(v_action_id);
6715: END IF;
6716: cnt := cnt +1;
6717:
6718: hr_utility.set_location('before csr_get_primary_flag_active.'||v_action_id,1991);
6719: hr_utility.set_location('l_arch_previous_emp_pay.'||l_arch_previous_emp_pay,5001);
6720: hr_utility.set_location('l_arch_previous_emp_pay_usc.'||l_arch_previous_emp_pay_usc,5001); --14659262
6721:
6722: OPEN csr_get_primary_flag_active(v_action_id);
6723: FETCH csr_get_primary_flag_active into v_work_number,v_primary_flag,asg_assignment_id,v_date;
6716: cnt := cnt +1;
6717:
6718: hr_utility.set_location('before csr_get_primary_flag_active.'||v_action_id,1991);
6719: hr_utility.set_location('l_arch_previous_emp_pay.'||l_arch_previous_emp_pay,5001);
6720: hr_utility.set_location('l_arch_previous_emp_pay_usc.'||l_arch_previous_emp_pay_usc,5001); --14659262
6721:
6722: OPEN csr_get_primary_flag_active(v_action_id);
6723: FETCH csr_get_primary_flag_active into v_work_number,v_primary_flag,asg_assignment_id,v_date;
6724: IF csr_get_primary_flag_active%NOTFOUND then
6721:
6722: OPEN csr_get_primary_flag_active(v_action_id);
6723: FETCH csr_get_primary_flag_active into v_work_number,v_primary_flag,asg_assignment_id,v_date;
6724: IF csr_get_primary_flag_active%NOTFOUND then
6725: hr_utility.set_location('Inside csr_get_primary_flag_active.'||v_action_id,1992);
6726: OPEN csr_get_primary_flag(v_action_id);
6727: FETCH csr_get_primary_flag into v_work_number,v_primary_flag,asg_assignment_id;
6728: CLOSE csr_get_primary_flag;
6729: hr_utility.set_location('Inside csr_get_primary_flag_active.'||v_action_id,1993);
6725: hr_utility.set_location('Inside csr_get_primary_flag_active.'||v_action_id,1992);
6726: OPEN csr_get_primary_flag(v_action_id);
6727: FETCH csr_get_primary_flag into v_work_number,v_primary_flag,asg_assignment_id;
6728: CLOSE csr_get_primary_flag;
6729: hr_utility.set_location('Inside csr_get_primary_flag_active.'||v_action_id,1993);
6730: END IF;
6731: hr_utility.set_location('CLOSE csr_get_primary_flag_active.'||v_action_id,1994);
6732: CLOSE csr_get_primary_flag_active;
6733:
6727: FETCH csr_get_primary_flag into v_work_number,v_primary_flag,asg_assignment_id;
6728: CLOSE csr_get_primary_flag;
6729: hr_utility.set_location('Inside csr_get_primary_flag_active.'||v_action_id,1993);
6730: END IF;
6731: hr_utility.set_location('CLOSE csr_get_primary_flag_active.'||v_action_id,1994);
6732: CLOSE csr_get_primary_flag_active;
6733:
6734: hr_utility.set_location('v_primary_flag ..'||v_primary_flag,1008);
6735: hr_utility.set_location('l_arch_works_number ..'||l_arch_works_number,1008);
6730: END IF;
6731: hr_utility.set_location('CLOSE csr_get_primary_flag_active.'||v_action_id,1994);
6732: CLOSE csr_get_primary_flag_active;
6733:
6734: hr_utility.set_location('v_primary_flag ..'||v_primary_flag,1008);
6735: hr_utility.set_location('l_arch_works_number ..'||l_arch_works_number,1008);
6736: hr_utility.set_location('v_work_number ..'||v_work_number,1008);
6737:
6738: IF v_primary_flag = 'Y' then
6731: hr_utility.set_location('CLOSE csr_get_primary_flag_active.'||v_action_id,1994);
6732: CLOSE csr_get_primary_flag_active;
6733:
6734: hr_utility.set_location('v_primary_flag ..'||v_primary_flag,1008);
6735: hr_utility.set_location('l_arch_works_number ..'||l_arch_works_number,1008);
6736: hr_utility.set_location('v_work_number ..'||v_work_number,1008);
6737:
6738: IF v_primary_flag = 'Y' then
6739: IF l_ppsn_override IS NULL THEN --6633719
6732: CLOSE csr_get_primary_flag_active;
6733:
6734: hr_utility.set_location('v_primary_flag ..'||v_primary_flag,1008);
6735: hr_utility.set_location('l_arch_works_number ..'||l_arch_works_number,1008);
6736: hr_utility.set_location('v_work_number ..'||v_work_number,1008);
6737:
6738: IF v_primary_flag = 'Y' then
6739: IF l_ppsn_override IS NULL THEN --6633719
6740: l_arch_works_number := v_work_number;
6753: 2
6754: ),
6755: 0
6756: );
6757: hr_utility.set_location('l_arch_previous_emp_pay.'||l_arch_previous_emp_pay,5001);
6758: --14659262
6759: l_arch_previous_emp_pay_usc := NVL (
6760: ROUND (
6761: TO_NUMBER (
6770: 2
6771: ),
6772: 0
6773: );
6774: hr_utility.set_location('l_arch_previous_emp_pay_usc.'||l_arch_previous_emp_pay_usc,5001);
6775: --14659262
6776:
6777: l_arch_previous_emp_tax := NVL (
6778: ROUND (
6788: 2
6789: ),
6790: 0
6791: );
6792: hr_utility.set_location('l_arch_previous_emp_tax.'||l_arch_previous_emp_tax,5001);
6793:
6794: --14659262
6795: l_arch_previous_emp_usc := NVL (
6796: ROUND (
6806: 2
6807: ),
6808: 0
6809: );
6810: hr_utility.set_location('l_arch_previous_emp_usc.'||l_arch_previous_emp_usc,5001);
6811: --14659262
6812: --EXIT;
6813: --setting the assignment id to fetch PRSI values
6814: --6633719
6816: l_max_assignment_id := asg_assignment_id;
6817: END IF;
6818: END IF;
6819: --
6820: hr_utility.set_location('l_arch_previous_emp_pay.'||l_arch_previous_emp_pay,5002);
6821: hr_utility.set_location('l_arch_previous_emp_pay_usc.'||l_arch_previous_emp_pay_usc,5002); --14659262
6822: --
6823: IF ( v_action_type not in ('P','U','X') or v_action_type is null) then
6824: v_action_id := csr_interlocks.locked_action_id;
6817: END IF;
6818: END IF;
6819: --
6820: hr_utility.set_location('l_arch_previous_emp_pay.'||l_arch_previous_emp_pay,5002);
6821: hr_utility.set_location('l_arch_previous_emp_pay_usc.'||l_arch_previous_emp_pay_usc,5002); --14659262
6822: --
6823: IF ( v_action_type not in ('P','U','X') or v_action_type is null) then
6824: v_action_id := csr_interlocks.locked_action_id;
6825: hr_utility.set_location('Inside if ..'||v_action_id,2001);
6821: hr_utility.set_location('l_arch_previous_emp_pay_usc.'||l_arch_previous_emp_pay_usc,5002); --14659262
6822: --
6823: IF ( v_action_type not in ('P','U','X') or v_action_type is null) then
6824: v_action_id := csr_interlocks.locked_action_id;
6825: hr_utility.set_location('Inside if ..'||v_action_id,2001);
6826: ELSE
6827: /* create a child assignment action and lock the P30 or prepayment
6828: action. The need for having child assignment action for
6829: retry of pay_payroll action.
6827: /* create a child assignment action and lock the P30 or prepayment
6828: action. The need for having child assignment action for
6829: retry of pay_payroll action.
6830: */
6831: hr_utility.set_location('Inside Else ..',2002);
6832: SELECT pay_assignment_actions_s.NEXTVAL
6833: INTO l_actid
6834: FROM DUAL;
6835: OPEN get_assignment_id;
6842: to_number(l_segment4),
6843: status => 'C',
6844: source_act => p_assactid
6845: );
6846: hr_utility.set_location('Inside Else ..'||v_action_id,2003);
6847: hr_nonrun_asact.insint (l_actid,v_action_id);
6848: END IF;
6849: END LOOP;
6850: -- Calculate values common for the three
6851: --6633719
6852: /* picking the works number of primary assignment for PPSN OVERRIDE*/
6853: IF l_ppsn_override IS NOT NULL THEN
6854:
6855: hr_utility.set_location('before l_arch_works_number ..'||l_arch_works_number,1008);
6856: hr_utility.set_location('before l_ppsn_override ..'||l_ppsn_override,1008);
6857:
6858: OPEN csr_get_primary_flag_active1(l_ppsn_override);
6859: FETCH csr_get_primary_flag_active1 into l_arch_works_number;
6852: /* picking the works number of primary assignment for PPSN OVERRIDE*/
6853: IF l_ppsn_override IS NOT NULL THEN
6854:
6855: hr_utility.set_location('before l_arch_works_number ..'||l_arch_works_number,1008);
6856: hr_utility.set_location('before l_ppsn_override ..'||l_ppsn_override,1008);
6857:
6858: OPEN csr_get_primary_flag_active1(l_ppsn_override);
6859: FETCH csr_get_primary_flag_active1 into l_arch_works_number;
6860: hr_utility.set_location('Inside csr_get_primary_flag_active1.'||v_assignment_id,1992);
6856: hr_utility.set_location('before l_ppsn_override ..'||l_ppsn_override,1008);
6857:
6858: OPEN csr_get_primary_flag_active1(l_ppsn_override);
6859: FETCH csr_get_primary_flag_active1 into l_arch_works_number;
6860: hr_utility.set_location('Inside csr_get_primary_flag_active1.'||v_assignment_id,1992);
6861: IF csr_get_primary_flag_active1%NOTFOUND then
6862: OPEN csr_get_primary_flag1(l_ppsn_override);
6863: FETCH csr_get_primary_flag1 into l_arch_works_number;
6864: CLOSE csr_get_primary_flag1;
6861: IF csr_get_primary_flag_active1%NOTFOUND then
6862: OPEN csr_get_primary_flag1(l_ppsn_override);
6863: FETCH csr_get_primary_flag1 into l_arch_works_number;
6864: CLOSE csr_get_primary_flag1;
6865: hr_utility.set_location('Inside csr_get_primary_flag1.'||v_assignment_id,1993);
6866: END IF;
6867: hr_utility.set_location('CLOSE csr_get_primary_flag_active1.',1994);
6868: CLOSE csr_get_primary_flag_active1;
6869: hr_utility.set_location('after l_arch_works_number ..'||l_arch_works_number,1008);
6863: FETCH csr_get_primary_flag1 into l_arch_works_number;
6864: CLOSE csr_get_primary_flag1;
6865: hr_utility.set_location('Inside csr_get_primary_flag1.'||v_assignment_id,1993);
6866: END IF;
6867: hr_utility.set_location('CLOSE csr_get_primary_flag_active1.',1994);
6868: CLOSE csr_get_primary_flag_active1;
6869: hr_utility.set_location('after l_arch_works_number ..'||l_arch_works_number,1008);
6870: END IF;
6871: --6633719
6865: hr_utility.set_location('Inside csr_get_primary_flag1.'||v_assignment_id,1993);
6866: END IF;
6867: hr_utility.set_location('CLOSE csr_get_primary_flag_active1.',1994);
6868: CLOSE csr_get_primary_flag_active1;
6869: hr_utility.set_location('after l_arch_works_number ..'||l_arch_works_number,1008);
6870: END IF;
6871: --6633719
6872:
6873: hr_utility.set_location ('Starting on other common values', 10);
6869: hr_utility.set_location('after l_arch_works_number ..'||l_arch_works_number,1008);
6870: END IF;
6871: --6633719
6872:
6873: hr_utility.set_location ('Starting on other common values', 10);
6874: l_arch_totwks_insurble_emplmnt :=
6875: TO_CHAR (
6876: NVL (
6877: pay_ie_p35.get_total_insurable_weeks (l_arch_person_id
6883: ,l_ppsn_override), --6633719
6884: 0
6885: )
6886: );
6887: hr_utility.set_location('l_arch_totwks_insurble_emplmnt.'||l_arch_totwks_insurble_emplmnt,5001);
6888: --
6889:
6890: l_arch_initial_class :=
6891: NVL (pay_ie_p35.get_initial_class (l_max_action_id,to_number(l_segment4),l_ppsn_override), ' '); --6633719
6895: l_arch_initial_class := NULL;
6896: END if;
6897: /*Bug fix 4049920*/
6898: IF l_arch_term_date <> '31-12-4712' THEN
6899: hr_utility.set_location ( 'Actual Termination date -'
6900: || l_arch_term_date, 15);
6901: OPEN csr_annual_tax_credit(l_max_assignment_id,TO_DATE(l_arch_term_date,'dd-mm-yyyy'));
6902: FETCH csr_annual_tax_credit INTO l_arch_tax_deduction_basis,l_arch_annual_tax_credit;
6903: CLOSE csr_annual_tax_credit;
6913: l_exclusion_order := '1';
6914: END IF;
6915: --12382953
6916:
6917: hr_utility.set_location ('Termination date -'|| l_arch_term_date, 15);
6918:
6919: hr_utility.set_location('Before initial Class',101);
6920: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'A'),101);
6921:
6915: --12382953
6916:
6917: hr_utility.set_location ('Termination date -'|| l_arch_term_date, 15);
6918:
6919: hr_utility.set_location('Before initial Class',101);
6920: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'A'),101);
6921:
6922: -- diaplay classes only if the total pay has value.
6923: IF l_arch_pay <> 0 THEN
6916:
6917: hr_utility.set_location ('Termination date -'|| l_arch_term_date, 15);
6918:
6919: hr_utility.set_location('Before initial Class',101);
6920: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'A'),101);
6921:
6922: -- diaplay classes only if the total pay has value.
6923: IF l_arch_pay <> 0 THEN
6924: --l_prsi_class_tab(1).prsi_class := l_arch_initial_class;
6923: IF l_arch_pay <> 0 THEN
6924: --l_prsi_class_tab(1).prsi_class := l_arch_initial_class;
6925: --l_prsi_class_tab(1).prsi_class_bal := get_prsi_weeks(t_context_value(1),
6926: -- to_number(l_segment4)); -- some dummy value
6927: hr_utility.set_location('vik t_context_value.COUNT..'||t_context_value.COUNT,100);
6928: FOR j in 1..t_context_value.COUNT
6929: LOOP
6930: l_prsi_class_tab(j).prsi_class := substr(t_context_value(j),4,2);
6931: l_prsi_class_tab(j).prsi_class_bal := get_prsi_weeks(t_context_value(j),
6931: l_prsi_class_tab(j).prsi_class_bal := get_prsi_weeks(t_context_value(j),
6932: to_number(l_segment4));
6933: END LOOP;
6934: END IF;
6935: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5002.4);
6936: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5002.4); --14659262
6937: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'B'),102);
6938:
6939: --8259095
6932: to_number(l_segment4));
6933: END LOOP;
6934: END IF;
6935: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5002.4);
6936: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5002.4); --14659262
6937: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'B'),102);
6938:
6939: --8259095
6940: hr_utility.set_location('l_supp_wk_tab.COUNT:'||l_supp_wk_tab.COUNT,102);
6933: END LOOP;
6934: END IF;
6935: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5002.4);
6936: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5002.4); --14659262
6937: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'B'),102);
6938:
6939: --8259095
6940: hr_utility.set_location('l_supp_wk_tab.COUNT:'||l_supp_wk_tab.COUNT,102);
6941: IF l_supp_wk_tab.COUNT > 0 THEN --9394859
6936: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5002.4); --14659262
6937: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'B'),102);
6938:
6939: --8259095
6940: hr_utility.set_location('l_supp_wk_tab.COUNT:'||l_supp_wk_tab.COUNT,102);
6941: IF l_supp_wk_tab.COUNT > 0 THEN --9394859
6942: FOR j in 1..l_prsi_class_tab.COUNT LOOP
6943: IF l_supp_wk_tab.EXISTS(l_prsi_class_tab(j).prsi_class) THEN
6944: hr_utility.set_location('l_supp_wk_tab() Value:'||l_supp_wk_tab(l_prsi_class_tab(j).prsi_class),102);
6940: hr_utility.set_location('l_supp_wk_tab.COUNT:'||l_supp_wk_tab.COUNT,102);
6941: IF l_supp_wk_tab.COUNT > 0 THEN --9394859
6942: FOR j in 1..l_prsi_class_tab.COUNT LOOP
6943: IF l_supp_wk_tab.EXISTS(l_prsi_class_tab(j).prsi_class) THEN
6944: hr_utility.set_location('l_supp_wk_tab() Value:'||l_supp_wk_tab(l_prsi_class_tab(j).prsi_class),102);
6945: l_prsi_class_tab(j).prsi_class_bal := l_prsi_class_tab(j).prsi_class_bal + l_supp_wk_tab(l_prsi_class_tab(j).prsi_class);
6946: END IF;
6947: END LOOP;
6948:
6969: --8259095
6970:
6971: /* if for eg second class and third class exists but weeks at second class is zero
6972: then third class will become the second class ie it is promoted */
6973: hr_utility.set_location('Before initial Class',101);
6974: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'Y'),101);
6975: hr_utility.set_location('vik l_prsi_class_tab.COUNT..'||l_prsi_class_tab.COUNT,102);
6976:
6977: --Collect all PRSI classes with non-zero PRSI weeks in a separate PL/SQL table
6970:
6971: /* if for eg second class and third class exists but weeks at second class is zero
6972: then third class will become the second class ie it is promoted */
6973: hr_utility.set_location('Before initial Class',101);
6974: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'Y'),101);
6975: hr_utility.set_location('vik l_prsi_class_tab.COUNT..'||l_prsi_class_tab.COUNT,102);
6976:
6977: --Collect all PRSI classes with non-zero PRSI weeks in a separate PL/SQL table
6978: l_cnt :=0;
6971: /* if for eg second class and third class exists but weeks at second class is zero
6972: then third class will become the second class ie it is promoted */
6973: hr_utility.set_location('Before initial Class',101);
6974: hr_utility.set_location('initial Class..'||nvl(l_arch_initial_class,'Y'),101);
6975: hr_utility.set_location('vik l_prsi_class_tab.COUNT..'||l_prsi_class_tab.COUNT,102);
6976:
6977: --Collect all PRSI classes with non-zero PRSI weeks in a separate PL/SQL table
6978: l_cnt :=0;
6979: FOR i in 1..l_prsi_class_tab.COUNT
6982: IF (l_prsi_class_tab(i).prsi_class_bal<>0 or l_arch_total_prsi_cont > 0) and l_prsi_class_tab(i).prsi_class <> 'A' then
6983: l_cnt := l_cnt + 1;
6984: l_prsi_class_bal(l_cnt).prsi_class := l_prsi_class_tab(i).prsi_class;
6985: l_prsi_class_bal(l_cnt).prsi_class_bal := l_prsi_class_tab(i).prsi_class_bal;
6986: hr_utility.set_location('l_prsi_class_tab.COUNT'||l_prsi_class_tab.COUNT,101);
6987: hr_utility.set_location('l_prsi_class_bal'||l_cnt||l_prsi_class_tab(i).prsi_class,101);
6988: hr_utility.set_location('l_prsi_class_bal'||l_cnt||l_prsi_class_tab(i).prsi_class_bal,102);
6989: END IF;
6990: END LOOP;
6983: l_cnt := l_cnt + 1;
6984: l_prsi_class_bal(l_cnt).prsi_class := l_prsi_class_tab(i).prsi_class;
6985: l_prsi_class_bal(l_cnt).prsi_class_bal := l_prsi_class_tab(i).prsi_class_bal;
6986: hr_utility.set_location('l_prsi_class_tab.COUNT'||l_prsi_class_tab.COUNT,101);
6987: hr_utility.set_location('l_prsi_class_bal'||l_cnt||l_prsi_class_tab(i).prsi_class,101);
6988: hr_utility.set_location('l_prsi_class_bal'||l_cnt||l_prsi_class_tab(i).prsi_class_bal,102);
6989: END IF;
6990: END LOOP;
6991:
6984: l_prsi_class_bal(l_cnt).prsi_class := l_prsi_class_tab(i).prsi_class;
6985: l_prsi_class_bal(l_cnt).prsi_class_bal := l_prsi_class_tab(i).prsi_class_bal;
6986: hr_utility.set_location('l_prsi_class_tab.COUNT'||l_prsi_class_tab.COUNT,101);
6987: hr_utility.set_location('l_prsi_class_bal'||l_cnt||l_prsi_class_tab(i).prsi_class,101);
6988: hr_utility.set_location('l_prsi_class_bal'||l_cnt||l_prsi_class_tab(i).prsi_class_bal,102);
6989: END IF;
6990: END LOOP;
6991:
6992: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5002.5);
6988: hr_utility.set_location('l_prsi_class_bal'||l_cnt||l_prsi_class_tab(i).prsi_class_bal,102);
6989: END IF;
6990: END LOOP;
6991:
6992: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5002.5);
6993: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5002.5); --14659262
6994:
6995: -- get the initial ,first , second, third, fourth and fifth from the non zero
6996: -- plsql table.Sine the req is to display only non zero clases
6989: END IF;
6990: END LOOP;
6991:
6992: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5002.5);
6993: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5002.5); --14659262
6994:
6995: -- get the initial ,first , second, third, fourth and fifth from the non zero
6996: -- plsql table.Sine the req is to display only non zero clases
6997: IF l_cnt >=1 then
7007: l_arch_second_class := l_prsi_class_bal(2).prsi_class;
7008: l_arch_weeks_at_second_class := l_prsi_class_bal(2).prsi_class_bal;
7009: end if;
7010: END IF;
7011: hr_utility.set_location('Hi',104);
7012: IF l_cnt >2 then
7013: if l_prsi_class_bal(3).prsi_class is not null then
7014: l_arch_third_class := l_prsi_class_bal(3).prsi_class;
7015: l_arch_weeks_at_third_class := l_prsi_class_bal(3).prsi_class_bal;
7039: l_arch_third_class := NVL(l_arch_third_class,' ');
7040: l_arch_fourth_class := NVL(l_arch_fourth_class,' ');
7041:
7042: /* Date will be locked now. */
7043: hr_utility.set_location ('b4 INSINT Locking ID' ||L_ACTID,994);
7044: hr_utility.set_location ('b4 INSACT Locked ID ' ||l_locked_action,995);
7045:
7046:
7047: hr_utility.set_location ('Asg ID -'|| l_max_assignment_id,14);
7040: l_arch_fourth_class := NVL(l_arch_fourth_class,' ');
7041:
7042: /* Date will be locked now. */
7043: hr_utility.set_location ('b4 INSINT Locking ID' ||L_ACTID,994);
7044: hr_utility.set_location ('b4 INSACT Locked ID ' ||l_locked_action,995);
7045:
7046:
7047: hr_utility.set_location ('Asg ID -'|| l_max_assignment_id,14);
7048: hr_utility.set_location ( 'Asg Act ID -'|| l_locked_action, 15);
7043: hr_utility.set_location ('b4 INSINT Locking ID' ||L_ACTID,994);
7044: hr_utility.set_location ('b4 INSACT Locked ID ' ||l_locked_action,995);
7045:
7046:
7047: hr_utility.set_location ('Asg ID -'|| l_max_assignment_id,14);
7048: hr_utility.set_location ( 'Asg Act ID -'|| l_locked_action, 15);
7049:
7050: -- For BUG Fix 4066315
7051: -- Concatination of employee address line 2 with line 3 and remaining line 3 with line 4
7044: hr_utility.set_location ('b4 INSACT Locked ID ' ||l_locked_action,995);
7045:
7046:
7047: hr_utility.set_location ('Asg ID -'|| l_max_assignment_id,14);
7048: hr_utility.set_location ( 'Asg Act ID -'|| l_locked_action, 15);
7049:
7050: -- For BUG Fix 4066315
7051: -- Concatination of employee address line 2 with line 3 and remaining line 3 with line 4
7052: if (l_arch_address_line3 is not null) then
7069: --IF l_arch_previous_emp_pay <> 0 THEN
7070: OPEN c_get_periods_of_service(l_arch_person_id,l_max_assignment_id);
7071: FETCH c_get_periods_of_service into l_pds_id;
7072: CLOSE c_get_periods_of_service;
7073: hr_utility.set_location('Period of Service id..'||to_char(l_pds_id),3002);
7074: IF l_pds_id IS NOT NULL THEN
7075: /*OPEN c_get_terminated_asg(l_pds_id);
7076: FETCH c_get_terminated_asg into l_asg_id;
7077: CLOSE c_get_terminated_asg;
7079: IF l_asg_id IS NOT NULL THEN*/
7080: OPEN c_get_max_aact(l_pds_id,l_ppsn_override,l_arch_person_id);
7081: FETCH c_get_max_aact INTO l_aact_id;
7082: CLOSE c_get_max_aact;
7083: hr_utility.set_location('l_aact_id..'||to_char(l_aact_id),3003);
7084: END IF;
7085: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7086: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7087: hr_utility.set_location('l_arch_pay..'||l_arch_pay,5004);
7081: FETCH c_get_max_aact INTO l_aact_id;
7082: CLOSE c_get_max_aact;
7083: hr_utility.set_location('l_aact_id..'||to_char(l_aact_id),3003);
7084: END IF;
7085: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7086: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7087: hr_utility.set_location('l_arch_pay..'||l_arch_pay,5004);
7088: hr_utility.set_location('l_aact_id..'||l_aact_id,5004);
7089: IF l_aact_id IS NOT NULL THEN
7082: CLOSE c_get_max_aact;
7083: hr_utility.set_location('l_aact_id..'||to_char(l_aact_id),3003);
7084: END IF;
7085: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7086: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7087: hr_utility.set_location('l_arch_pay..'||l_arch_pay,5004);
7088: hr_utility.set_location('l_aact_id..'||l_aact_id,5004);
7089: IF l_aact_id IS NOT NULL THEN
7090: -- for bug 5435931.
7083: hr_utility.set_location('l_aact_id..'||to_char(l_aact_id),3003);
7084: END IF;
7085: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7086: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7087: hr_utility.set_location('l_arch_pay..'||l_arch_pay,5004);
7088: hr_utility.set_location('l_aact_id..'||l_aact_id,5004);
7089: IF l_aact_id IS NOT NULL THEN
7090: -- for bug 5435931.
7091: l_this_pay := l_arch_pay - pay_balance_pkg.get_value (
7084: END IF;
7085: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7086: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7087: hr_utility.set_location('l_arch_pay..'||l_arch_pay,5004);
7088: hr_utility.set_location('l_aact_id..'||l_aact_id,5004);
7089: IF l_aact_id IS NOT NULL THEN
7090: -- for bug 5435931.
7091: l_this_pay := l_arch_pay - pay_balance_pkg.get_value (
7092: pay_ie_p35.get_defined_balance_id (
7103: null,
7104: 'TRUE'
7105:
7106: );
7107: hr_utility.set_location('l_this_pay..'||l_this_pay,5004);
7108: l_this_tax := l_arch_net_tax - pay_balance_pkg.get_value (
7109: pay_ie_p35.get_defined_balance_id (
7110: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7111: 'IE Net Tax'
7120: null,
7121: 'TRUE'
7122:
7123: );
7124: hr_utility.set_location('l_this_tax..'||l_this_tax,5004);
7125: /* 8978805 */
7126: l_arch_prev_gross_pay := pay_balance_pkg.get_value (
7127: pay_ie_p35.get_defined_balance_id (
7128: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7138: null,
7139: 'TRUE'
7140:
7141: );
7142: hr_utility.set_location('prev gross pay..'|| l_arch_prev_gross_pay,5004);
7143: l_arch_prev_gross_pay_adjust := pay_balance_pkg.get_value (
7144: pay_ie_p35.get_defined_balance_id (
7145: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7146: 'IE Gross Income Adjustment'
7155: null,
7156: 'TRUE'
7157:
7158: );
7159: hr_utility.set_location('prev gross pay adjust..'|| l_arch_prev_gross_pay_adjust,5004);
7160: l_arch_prev_gross_pay_BIK := pay_balance_pkg.get_value (
7161: pay_ie_p35.get_defined_balance_id (
7162: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7163: 'IE BIK Taxable and PRSIable Pay'
7172: null,
7173: 'TRUE'
7174:
7175: );
7176: hr_utility.set_location('prev BIK..'|| l_arch_prev_gross_pay_BIK,5004);
7177: l_arch_prev_gross_pay:=NVL(l_arch_prev_gross_pay,0) + NVL(l_arch_prev_gross_pay_adjust,0) + NVL(l_arch_prev_gross_pay_BIK,0);
7178: hr_utility.set_location('l_arch_prev_gross_pay '|| l_arch_prev_gross_pay,5004);
7179: l_arch_total_this_gross_pay:=l_arch_gross_pay - l_arch_prev_gross_pay;
7180: hr_utility.set_location('actual this gross pay..'|| l_arch_total_this_gross_pay,5004);
7174:
7175: );
7176: hr_utility.set_location('prev BIK..'|| l_arch_prev_gross_pay_BIK,5004);
7177: l_arch_prev_gross_pay:=NVL(l_arch_prev_gross_pay,0) + NVL(l_arch_prev_gross_pay_adjust,0) + NVL(l_arch_prev_gross_pay_BIK,0);
7178: hr_utility.set_location('l_arch_prev_gross_pay '|| l_arch_prev_gross_pay,5004);
7179: l_arch_total_this_gross_pay:=l_arch_gross_pay - l_arch_prev_gross_pay;
7180: hr_utility.set_location('actual this gross pay..'|| l_arch_total_this_gross_pay,5004);
7181: l_arch_this_income_levy :=l_arch_income_levy - pay_balance_pkg.get_value (
7182: pay_ie_p35.get_defined_balance_id (
7176: hr_utility.set_location('prev BIK..'|| l_arch_prev_gross_pay_BIK,5004);
7177: l_arch_prev_gross_pay:=NVL(l_arch_prev_gross_pay,0) + NVL(l_arch_prev_gross_pay_adjust,0) + NVL(l_arch_prev_gross_pay_BIK,0);
7178: hr_utility.set_location('l_arch_prev_gross_pay '|| l_arch_prev_gross_pay,5004);
7179: l_arch_total_this_gross_pay:=l_arch_gross_pay - l_arch_prev_gross_pay;
7180: hr_utility.set_location('actual this gross pay..'|| l_arch_total_this_gross_pay,5004);
7181: l_arch_this_income_levy :=l_arch_income_levy - pay_balance_pkg.get_value (
7182: pay_ie_p35.get_defined_balance_id (
7183: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7184: 'IE Income Tax Levy'
7193: null,
7194: 'TRUE'
7195:
7196: );
7197: hr_utility.set_location('l_arch_this_income_levy '|| l_arch_this_income_levy,5004);
7198:
7199: --11857084
7200: l_arch_prev_gross_pay_usc := pay_balance_pkg.get_value (
7201: pay_ie_p35.get_defined_balance_id (
7212: null,
7213: 'TRUE'
7214:
7215: );
7216: hr_utility.set_location('prev gross pay usc..'|| l_arch_prev_gross_pay_usc,5004);
7217: l_arch_prev_gross_pay_adj_usc := pay_balance_pkg.get_value (
7218: pay_ie_p35.get_defined_balance_id (
7219: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7220: 'IE Gross Income Adjustment'
7229: null,
7230: 'TRUE'
7231:
7232: );
7233: hr_utility.set_location('prev gross pay adjust usc..'|| l_arch_prev_gross_pay_adj_usc,5004);
7234: l_arch_prev_gross_pay_BIK_usc := pay_balance_pkg.get_value (
7235: pay_ie_p35.get_defined_balance_id (
7236: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7237: 'IE BIK Taxable and PRSIable Pay'
7246: null,
7247: 'TRUE'
7248:
7249: );
7250: hr_utility.set_location('prev BIK usc..'|| l_arch_prev_gross_pay_BIK_usc,5004);
7251:
7252: l_arch_prev_gross_pay_CO_usc := pay_balance_pkg.get_value (
7253: pay_ie_p35.get_defined_balance_id (
7254: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7264: null,
7265: 'TRUE'
7266:
7267: );
7268: hr_utility.set_location('prev CO usc..'|| l_arch_prev_gross_pay_CO_usc,5004);
7269:
7270: --11076169
7271: l_arch_prev_gross_pay_CP_usc := pay_balance_pkg.get_value (
7272: pay_ie_p35.get_defined_balance_id (
7283: null,
7284: 'TRUE'
7285:
7286: );
7287: hr_utility.set_location('prev CP usc..'|| l_arch_prev_gross_pay_CP_usc,5004);
7288: --11076169
7289:
7290: --16242337
7291: l_arch_prev_gross_pay_ERPRSA := pay_balance_pkg.get_value (
7303: null,
7304: 'TRUE'
7305:
7306: );
7307: hr_utility.set_location('prev ER PRSA usc..'|| l_arch_prev_gross_pay_ERPRSA,5004);
7308: --16242337
7309:
7310: l_arch_prev_gross_pay_usc :=NVL(l_arch_prev_gross_pay_usc,0) +
7311: NVL(l_arch_prev_gross_pay_adj_usc,0) +
7313: NVL(l_arch_prev_gross_pay_CO_usc,0) +
7314: NVL(l_arch_prev_gross_pay_CP_usc,0)+ --11076169
7315: NVL(l_arch_prev_gross_pay_ERPRSA,0); --16242337
7316:
7317: hr_utility.set_location('l_arch_prev_gross_pay_usc '|| l_arch_prev_gross_pay_usc,5004);
7318:
7319: l_arch_tot_this_gross_pay_usc := l_arch_gross_pay_usc - l_arch_prev_gross_pay_usc;
7320: hr_utility.set_location('actual this gross pay usc..'|| l_arch_tot_this_gross_pay_usc,5004);
7321:
7316:
7317: hr_utility.set_location('l_arch_prev_gross_pay_usc '|| l_arch_prev_gross_pay_usc,5004);
7318:
7319: l_arch_tot_this_gross_pay_usc := l_arch_gross_pay_usc - l_arch_prev_gross_pay_usc;
7320: hr_utility.set_location('actual this gross pay usc..'|| l_arch_tot_this_gross_pay_usc,5004);
7321:
7322: l_arch_this_usc :=l_arch_usc - pay_balance_pkg.get_value (
7323: pay_ie_p35.get_defined_balance_id (
7324: l_dimension_name, --'_PER_PAYE_REF_YTD',--6633719
7334: null,
7335: 'TRUE'
7336:
7337: );
7338: hr_utility.set_location('l_arch_this_usc '|| l_arch_this_usc,5004);
7339: --11857084
7340:
7341:
7342: -- For P60 changes, PRSI this employment Section C.
7358: p_dimension_name => l_dimension_name, --6633719
7359: p_ppsn_override => l_ppsn_override --6633719
7360: );
7361:
7362: hr_utility.set_location('After get_p60_prsi_details call',5004);
7363:
7364: ELSE
7365: -- this case will come say employee joins on 2-jan-2006.
7366: -- Enter P45 details. So in this case pervious emp pay is <> 0
7395: l_this_pay := l_arch_pay;
7396: l_this_tax := l_arch_net_tax;
7397: -- end bug 5435931
7398: END IF;*/-- l_arch_previous_emp_pay <> 0
7399: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7400: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7401: hr_utility.set_location('Before Update',1009);
7402: /* update assignment actions */
7403:
7396: l_this_tax := l_arch_net_tax;
7397: -- end bug 5435931
7398: END IF;*/-- l_arch_previous_emp_pay <> 0
7399: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7400: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7401: hr_utility.set_location('Before Update',1009);
7402: /* update assignment actions */
7403:
7404: IF v_assignment_id <> l_max_assignment_id THEN
7397: -- end bug 5435931
7398: END IF;*/-- l_arch_previous_emp_pay <> 0
7399: hr_utility.set_location('l_arch_previous_emp_pay..'||l_arch_previous_emp_pay,5004);
7400: hr_utility.set_location('l_arch_previous_emp_pay_usc..'||l_arch_previous_emp_pay_usc,5004); --14659262
7401: hr_utility.set_location('Before Update',1009);
7402: /* update assignment actions */
7403:
7404: IF v_assignment_id <> l_max_assignment_id THEN
7405: UPDATE pay_assignment_actions SET assignment_id = l_max_assignment_id
7410: WHERE source_action_id = p_assactid
7411: AND payroll_action_id = v_payroll_action_id;
7412: END IF;
7413:
7414: hr_utility.set_location('After Update',1009);
7415:
7416: -- print the hiredate only it falls in the current tax year.
7417: IF to_char(to_date(l_arch_hire_date,'DD-MM-YYYY'),'YYYY') <> to_char(l_start_date,'YYYY') THEN
7418: l_arch_hire_date := null;
7422: IF instr(l_this_initial_class,'-',1) > 0 THEN
7423: l_this_initial_class := substr(l_this_initial_class,1,instr(l_this_initial_class,'-',1)-1);
7424: END IF;
7425:
7426: hr_utility.set_location('Before create_action_information IE P35 DETAIL',1009);
7427:
7428: IF l_arch_pay >= 1 OR l_arch_income_levy > 0 OR l_arch_usc <> 0 --14656910V9
7429: --OR l_arch_non_tax_pay > 0 --6620003 --8874161 --8987577
7430: THEN
7428: IF l_arch_pay >= 1 OR l_arch_income_levy > 0 OR l_arch_usc <> 0 --14656910V9
7429: --OR l_arch_non_tax_pay > 0 --6620003 --8874161 --8987577
7430: THEN
7431:
7432: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1009);
7433: hr_utility.set_location('l_ppsn_override..'||l_ppsn_override,1009);
7434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1009);
7435: hr_utility.set_location('l_max_assignment_id..'||l_max_assignment_id,1009);
7436:
7429: --OR l_arch_non_tax_pay > 0 --6620003 --8874161 --8987577
7430: THEN
7431:
7432: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1009);
7433: hr_utility.set_location('l_ppsn_override..'||l_ppsn_override,1009);
7434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1009);
7435: hr_utility.set_location('l_max_assignment_id..'||l_max_assignment_id,1009);
7436:
7437: hr_utility.set_location('Outside l_arch_initial_class:'||l_arch_initial_class,1009);
7430: THEN
7431:
7432: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1009);
7433: hr_utility.set_location('l_ppsn_override..'||l_ppsn_override,1009);
7434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1009);
7435: hr_utility.set_location('l_max_assignment_id..'||l_max_assignment_id,1009);
7436:
7437: hr_utility.set_location('Outside l_arch_initial_class:'||l_arch_initial_class,1009);
7438: --9080372
7431:
7432: hr_utility.set_location('l_arch_works_number..'||l_arch_works_number,1009);
7433: hr_utility.set_location('l_ppsn_override..'||l_ppsn_override,1009);
7434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1009);
7435: hr_utility.set_location('l_max_assignment_id..'||l_max_assignment_id,1009);
7436:
7437: hr_utility.set_location('Outside l_arch_initial_class:'||l_arch_initial_class,1009);
7438: --9080372
7439: IF NVL(l_arch_total_prsi_cont,0) = 0 THEN
7433: hr_utility.set_location('l_ppsn_override..'||l_ppsn_override,1009);
7434: hr_utility.set_location('l_arch_ppsn..'||l_arch_ppsn,1009);
7435: hr_utility.set_location('l_max_assignment_id..'||l_max_assignment_id,1009);
7436:
7437: hr_utility.set_location('Outside l_arch_initial_class:'||l_arch_initial_class,1009);
7438: --9080372
7439: IF NVL(l_arch_total_prsi_cont,0) = 0 THEN
7440: l_arch_initial_class := NVL(TRIM(l_arch_initial_class),'M');
7441: hr_utility.set_location('Inside l_arch_initial_class:'||l_arch_initial_class,1009);
7437: hr_utility.set_location('Outside l_arch_initial_class:'||l_arch_initial_class,1009);
7438: --9080372
7439: IF NVL(l_arch_total_prsi_cont,0) = 0 THEN
7440: l_arch_initial_class := NVL(TRIM(l_arch_initial_class),'M');
7441: hr_utility.set_location('Inside l_arch_initial_class:'||l_arch_initial_class,1009);
7442: END IF;
7443: --9080372
7444:
7445: l_arch_pay := l_arch_pay + l_p35_taxable_pay_adjust; --16306646
7442: END IF;
7443: --9080372
7444:
7445: l_arch_pay := l_arch_pay + l_p35_taxable_pay_adjust; --16306646
7446: hr_utility.set_location('l_arch_pay..'||l_arch_pay,1009); --16306646
7447:
7448: pay_action_information_api.create_action_information (
7449: p_action_context_id=> p_assactid,
7450: p_action_context_type=> 'AAP',
7484: p_action_information30=> l_arch_pr_indicator,
7485: p_action_information_id=> l_arch_action_info_id,
7486: p_object_version_number=> l_arch_ovn);
7487:
7488: hr_utility.set_location('Before create_action_information IE P35 ADDITIONAL DETAILS',1009);
7489:
7490: l_arch_total_notional_pay := l_arch_total_notional_pay + l_arch_total_share_scheme ; --16306646
7491: l_arch_gross_pay_usc := l_arch_gross_pay_usc + l_p35_gross_pay_adjust; --16306646
7492:
7490: l_arch_total_notional_pay := l_arch_total_notional_pay + l_arch_total_share_scheme ; --16306646
7491: l_arch_gross_pay_usc := l_arch_gross_pay_usc + l_p35_gross_pay_adjust; --16306646
7492:
7493:
7494: hr_utility.set_location('l_arch_total_notional_pay..'||l_arch_total_notional_pay,1009); --16306646
7495: hr_utility.set_location('l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1009); --16306646
7496:
7497: pay_action_information_api.create_action_information (
7498: p_action_context_id=> p_assactid,
7491: l_arch_gross_pay_usc := l_arch_gross_pay_usc + l_p35_gross_pay_adjust; --16306646
7492:
7493:
7494: hr_utility.set_location('l_arch_total_notional_pay..'||l_arch_total_notional_pay,1009); --16306646
7495: hr_utility.set_location('l_arch_gross_pay_usc..'||l_arch_gross_pay_usc,1009); --16306646
7496:
7497: pay_action_information_api.create_action_information (
7498: p_action_context_id=> p_assactid,
7499: p_action_context_type=> 'AAP',
7538: --11857084
7539: p_action_information_id=> l_arch_action_info_id,
7540: p_object_version_number=> l_oth_arch_ovn
7541: );
7542: hr_utility.set_location('After create_action_information IE P35 ADDITIONAL DETAILS',1009);
7543:
7544: END IF;
7545: -- Empty the pl/sql tables
7546: l_prsi_class_bal := l_prsi_class_temp;
8103:
8104:
8105: --
8106:
8107: -- hr_utility.TRACE ('In procedure get_initial_class');
8108: -- Fetching the values of context_id, balance_dimension_id, assignment_action_id for furthur
8109: -- usage in the get_weeks_at_class procedures
8110:
8111: OPEN c_context_id;
8132: l_index := l_index + 1;
8133: END LOOP;*/
8134: t_asg_action_id := p_max_action_id;
8135:
8136: hr_utility.set_location ( 'context_id='|| l_context_id, 10);
8137: hr_utility.set_location ( 'l_balance_dimension_id=' || l_defined_balance_id, 20 );
8138: hr_utility.set_location ( 'l_assignment_action_id='|| t_asg_action_id, 30);
8139: -- looping the c_context_name cursor and stroring the first 5 classes for the assignment_id passed into the pl/sql table
8140: hr_utility.set_location ( 'p_person_id_global' || p_person_id_global, 31);
8133: END LOOP;*/
8134: t_asg_action_id := p_max_action_id;
8135:
8136: hr_utility.set_location ( 'context_id='|| l_context_id, 10);
8137: hr_utility.set_location ( 'l_balance_dimension_id=' || l_defined_balance_id, 20 );
8138: hr_utility.set_location ( 'l_assignment_action_id='|| t_asg_action_id, 30);
8139: -- looping the c_context_name cursor and stroring the first 5 classes for the assignment_id passed into the pl/sql table
8140: hr_utility.set_location ( 'p_person_id_global' || p_person_id_global, 31);
8141: hr_utility.set_location ( 'p_start_date' || p_start_date, 32);
8134: t_asg_action_id := p_max_action_id;
8135:
8136: hr_utility.set_location ( 'context_id='|| l_context_id, 10);
8137: hr_utility.set_location ( 'l_balance_dimension_id=' || l_defined_balance_id, 20 );
8138: hr_utility.set_location ( 'l_assignment_action_id='|| t_asg_action_id, 30);
8139: -- looping the c_context_name cursor and stroring the first 5 classes for the assignment_id passed into the pl/sql table
8140: hr_utility.set_location ( 'p_person_id_global' || p_person_id_global, 31);
8141: hr_utility.set_location ( 'p_start_date' || p_start_date, 32);
8142: hr_utility.set_location ( 'p_end_date' || p_end_date, 33);
8136: hr_utility.set_location ( 'context_id='|| l_context_id, 10);
8137: hr_utility.set_location ( 'l_balance_dimension_id=' || l_defined_balance_id, 20 );
8138: hr_utility.set_location ( 'l_assignment_action_id='|| t_asg_action_id, 30);
8139: -- looping the c_context_name cursor and stroring the first 5 classes for the assignment_id passed into the pl/sql table
8140: hr_utility.set_location ( 'p_person_id_global' || p_person_id_global, 31);
8141: hr_utility.set_location ( 'p_start_date' || p_start_date, 32);
8142: hr_utility.set_location ( 'p_end_date' || p_end_date, 33);
8143:
8144: --8259095
8137: hr_utility.set_location ( 'l_balance_dimension_id=' || l_defined_balance_id, 20 );
8138: hr_utility.set_location ( 'l_assignment_action_id='|| t_asg_action_id, 30);
8139: -- looping the c_context_name cursor and stroring the first 5 classes for the assignment_id passed into the pl/sql table
8140: hr_utility.set_location ( 'p_person_id_global' || p_person_id_global, 31);
8141: hr_utility.set_location ( 'p_start_date' || p_start_date, 32);
8142: hr_utility.set_location ( 'p_end_date' || p_end_date, 33);
8143:
8144: --8259095
8145: FOR r_c_main_supp_week IN c_main_supp_week(
8138: hr_utility.set_location ( 'l_assignment_action_id='|| t_asg_action_id, 30);
8139: -- looping the c_context_name cursor and stroring the first 5 classes for the assignment_id passed into the pl/sql table
8140: hr_utility.set_location ( 'p_person_id_global' || p_person_id_global, 31);
8141: hr_utility.set_location ( 'p_start_date' || p_start_date, 32);
8142: hr_utility.set_location ( 'p_end_date' || p_end_date, 33);
8143:
8144: --8259095
8145: FOR r_c_main_supp_week IN c_main_supp_week(
8146: p_person_id_global,
8167: IF p = l_type_context_name_tab.LAST THEN
8168: if l_context_value_counter = 0 then
8169: l_context_value_counter := l_context_value_counter + 1;
8170: t_context_value(l_context_value_counter) := l_type_context_name_tab(p).result_value;
8171: hr_utility.set_location ('Initial Class Value is :'|| t_context_value (l_context_value_counter), 16);
8172: else
8173: For k in 1 .. l_context_value_counter
8174: loop
8175: if t_context_value(k) = l_type_context_name_tab(p).result_value then
8181: END LOOP;
8182: if temp_flag = 0 and l_context_value_counter <=9 then
8183: l_context_value_counter := l_context_value_counter + 1;
8184: t_context_value(l_context_value_counter) := l_type_context_name_tab(p).result_value;
8185: hr_utility.set_location ('Subsequent Class Value is :'|| t_context_value (l_context_value_counter), 17);
8186: END IF;
8187: temp_flag := null;
8188: END IF;
8189: IF l_supp_wk_tab.EXISTS(l_supp_run_class) THEN
8242: LOOP
8243: if l_context_value_counter = 0 then
8244: l_context_value_counter := l_context_value_counter + 1;
8245: t_context_value(l_context_value_counter) := l_type_context_name_tab(q).result_value;
8246: hr_utility.set_location ('Initial Class Value is :'|| t_context_value (l_context_value_counter), 18);
8247: else
8248: For k in 1 .. l_context_value_counter
8249: loop
8250: if t_context_value(k) = l_type_context_name_tab(q).result_value then
8256: END LOOP;
8257: if temp_flag = 0 and l_context_value_counter <=9 then
8258: l_context_value_counter := l_context_value_counter + 1;
8259: t_context_value(l_context_value_counter) := l_type_context_name_tab(q).result_value;
8260: hr_utility.set_location ('Subsequent Class Value is :'|| t_context_value (l_context_value_counter), 19);
8261: END IF;
8262: temp_flag := null;
8263: END IF;
8264: END LOOP;
8273: p_end_date
8274: )
8275: LOOP
8276:
8277: hr_utility.set_location('Inside c_context_name cursor..',203);
8278: hr_utility.set_location('Inside c_context_name cursor..',203);
8279: if l_context_value_counter = 0 then
8280: l_context_value_counter := l_context_value_counter + 1;
8281: t_context_value(l_context_value_counter) := r_c_context_name.result_value;
8274: )
8275: LOOP
8276:
8277: hr_utility.set_location('Inside c_context_name cursor..',203);
8278: hr_utility.set_location('Inside c_context_name cursor..',203);
8279: if l_context_value_counter = 0 then
8280: l_context_value_counter := l_context_value_counter + 1;
8281: t_context_value(l_context_value_counter) := r_c_context_name.result_value;
8282: hr_utility.set_location ('Initial Class Value is :'|| t_context_value (l_context_value_counter), 16);
8278: hr_utility.set_location('Inside c_context_name cursor..',203);
8279: if l_context_value_counter = 0 then
8280: l_context_value_counter := l_context_value_counter + 1;
8281: t_context_value(l_context_value_counter) := r_c_context_name.result_value;
8282: hr_utility.set_location ('Initial Class Value is :'|| t_context_value (l_context_value_counter), 16);
8283: else
8284: --For j in 1 .. 1
8285: --LOOP
8286: For k in 1 .. l_context_value_counter
8294: END LOOP;
8295: if temp_flag = 0 and l_context_value_counter <=9 then
8296: l_context_value_counter := l_context_value_counter + 1;
8297: t_context_value(l_context_value_counter) := r_c_context_name.result_value;
8298: hr_utility.set_location ('Subsequent Class Value is :'|| t_context_value (l_context_value_counter), 17);
8299: --temp := null;
8300: --exit;
8301: END IF;
8302: temp_flag := null;
8310: LOOP
8311: IF r_c_context_name.result_value <> t_context_value (i) THEN
8312: t_context_value (l_context_value_counter) := r_c_context_name.result_value;
8313: l_context_value_counter := l_context_value_counter + 1;
8314: hr_utility.set_location ('Class Value is :'|| t_context_value (l_context_value_counter), 16);
8315: ELSE
8316: EXIT;
8317: END IF;
8318: END LOOP;
8331: l_context_value_counter_bal := l_context_value_counter_bal
8332: + 1;
8333: t_context_value_balinit (l_context_value_counter_bal) :=
8334: bal_context_name.class_name;
8335: hr_utility.set_location (
8336: 'Class Value for Balance Initialization is :'
8337: || t_context_value_balinit (l_context_value_counter_bal),
8338: 16
8339: );
8376: l_context_value_counter_tmp
8377: + 1;
8378: t_context_value_tmp (l_context_value_counter_tmp) :=
8379: t_context_value (i);
8380: /*hr_utility.TRACE (
8381: 'A Payroll class unmatched with Balance Initialization found'
8382: );*/
8383: END IF;
8384:
8394: -- The below if clause has been added to fix the issue.
8395: IF l_context_value_counter <> 0
8396: THEN
8397: l_initial_class := NVL (t_context_value (1), NULL);
8398: hr_utility.set_location ( 'l_initial_class' || l_initial_class, 50);
8399: --hr_utility.TRACE ('About to leave initial class');
8400: END IF;
8401:
8402: RETURN SUBSTR (l_initial_class, 4, 2);
8395: IF l_context_value_counter <> 0
8396: THEN
8397: l_initial_class := NVL (t_context_value (1), NULL);
8398: hr_utility.set_location ( 'l_initial_class' || l_initial_class, 50);
8399: --hr_utility.TRACE ('About to leave initial class');
8400: END IF;
8401:
8402: RETURN SUBSTR (l_initial_class, 4, 2);
8403: EXCEPTION
8407: -- The below if clause has been added to fix the issue.
8408: -- close c_context_id;
8409: -- close c_assignment_action_id;
8410: t_context_value := t_empty_table;
8411: hr_utility.set_location ('Error in get_total_insurable_weeks', 200);
8412: RAISE;
8413: END get_initial_class;
8414:
8415:
8422: -- Bug 2979713 - PRSI Context Balance Design Change
8423: --
8424: -- fetching the second class value
8425:
8426: -- hr_utility.TRACE ('In procedure get second class');
8427: hr_utility.set_location ( 't_context_value '
8428: || p_assignment_id, 20);
8429:
8430: IF l_context_value_counter >= 2
8423: --
8424: -- fetching the second class value
8425:
8426: -- hr_utility.TRACE ('In procedure get second class');
8427: hr_utility.set_location ( 't_context_value '
8428: || p_assignment_id, 20);
8429:
8430: IF l_context_value_counter >= 2
8431: THEN
8433: ELSE
8434: l_second_class := NULL;
8435: END IF;
8436:
8437: -- hr_utility.TRACE ('About to leave get second class');
8438: RETURN SUBSTR (l_second_class, 4, 2);
8439: END get_second_class;
8440:
8441:
8473: AND SUBSTR (piw3.combined_class, 1, 2) <>
8474: RPAD (l_initial_class, 2));
8475: --
8476: BEGIN
8477: -- hr_utility.TRACE ('In get P60 second class');
8478: /*hr_utility.TRACE ( 'p_assignment_id : '
8479: || TO_CHAR (p_assignment_id));
8480: hr_utility.TRACE (
8481: 'l_class_count_at_second_class : '
8474: RPAD (l_initial_class, 2));
8475: --
8476: BEGIN
8477: -- hr_utility.TRACE ('In get P60 second class');
8478: /*hr_utility.TRACE ( 'p_assignment_id : '
8479: || TO_CHAR (p_assignment_id));
8480: hr_utility.TRACE (
8481: 'l_class_count_at_second_class : '
8482: || TO_CHAR (l_class_count)
8476: BEGIN
8477: -- hr_utility.TRACE ('In get P60 second class');
8478: /*hr_utility.TRACE ( 'p_assignment_id : '
8479: || TO_CHAR (p_assignment_id));
8480: hr_utility.TRACE (
8481: 'l_class_count_at_second_class : '
8482: || TO_CHAR (l_class_count)
8483: );
8484: */
8490: ELSE
8491: l_second_class := ' ';
8492: END IF;
8493:
8494: /*hr_utility.TRACE ( 'l_second_class : '
8495: || l_second_class);
8496: hr_utility.TRACE (
8497: 'l_weeks_at_second_class : '
8498: || TO_CHAR (l_weeks_at_second_class)
8492: END IF;
8493:
8494: /*hr_utility.TRACE ( 'l_second_class : '
8495: || l_second_class);
8496: hr_utility.TRACE (
8497: 'l_weeks_at_second_class : '
8498: || TO_CHAR (l_weeks_at_second_class)
8499: );
8500: hr_utility.TRACE ( 'l_initial_class : '
8496: hr_utility.TRACE (
8497: 'l_weeks_at_second_class : '
8498: || TO_CHAR (l_weeks_at_second_class)
8499: );
8500: hr_utility.TRACE ( 'l_initial_class : '
8501: || l_initial_class);
8502: hr_utility.TRACE ('Leaving get_second_class');*/
8503: RETURN l_second_class;
8504: END get_p60_second_class;
8498: || TO_CHAR (l_weeks_at_second_class)
8499: );
8500: hr_utility.TRACE ( 'l_initial_class : '
8501: || l_initial_class);
8502: hr_utility.TRACE ('Leaving get_second_class');*/
8503: RETURN l_second_class;
8504: END get_p60_second_class;
8505:
8506:
8511: BEGIN
8512: -- Bug 2979713 - PRSI Context Balance Design Change
8513: -- fetching the third class value
8514:
8515: --hr_utility.TRACE ('IN Procedure get third class');
8516:
8517: IF l_context_value_counter >= 3
8518: THEN
8519: l_third_class := NVL (t_context_value (3), NULL);
8520: ELSE
8521: l_third_class := NULL;
8522: END IF;
8523:
8524: --hr_utility.TRACE ('About to leave get third class');
8525: RETURN SUBSTR (l_third_class, 4, 2);
8526: END get_third_class;
8527:
8528:
8535: -- Bug 2979713 - PRSI Context Balance Design Change
8536: --
8537: -- fetching the forth class value
8538:
8539: -- hr_utility.TRACE ('In procedure get fourth class');
8540:
8541: IF l_context_value_counter >= 4
8542: THEN
8543: l_fourth_class := NVL (t_context_value (4), NULL);
8544: ELSE
8545: l_fourth_class := NULL;
8546: END IF;
8547:
8548: -- hr_utility.TRACE ('About to leave get fourth class');
8549: RETURN SUBSTR (l_fourth_class, 4, 2);
8550: END get_fourth_class;
8551:
8552:
8559: -- Bug 2979713 - PRSI Context Balance Design Change
8560: --
8561: -- fetching the fifth class value
8562:
8563: --hr_utility.TRACE ('In procedure get fifith class');
8564:
8565: IF l_context_value_counter >= 5
8566: THEN
8567: l_fifth_class := NVL (t_context_value (5), NULL);
8568: ELSE
8569: l_fifth_class := NULL;
8570: END IF;
8571:
8572: -- hr_utility.TRACE ('About to leave get fifith class');
8573: RETURN SUBSTR (l_fifth_class, 4, 2);
8574: END get_fifth_class;
8575:
8576:
8583:
8584: AS
8585: l_weeks number:=0;
8586: BEGIN
8587: hr_utility.set_location('l_class..'||l_class,11);
8588: hr_utility.set_location('l_defined_balance_id..'||l_defined_balance_id,11);
8589: hr_utility.set_location('t_asg_action_id..'||t_asg_action_id,11);
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8584: AS
8585: l_weeks number:=0;
8586: BEGIN
8587: hr_utility.set_location('l_class..'||l_class,11);
8588: hr_utility.set_location('l_defined_balance_id..'||l_defined_balance_id,11);
8589: hr_utility.set_location('t_asg_action_id..'||t_asg_action_id,11);
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8592: hr_utility.set_location('l_context_id..'||l_context_id,11);
8585: l_weeks number:=0;
8586: BEGIN
8587: hr_utility.set_location('l_class..'||l_class,11);
8588: hr_utility.set_location('l_defined_balance_id..'||l_defined_balance_id,11);
8589: hr_utility.set_location('t_asg_action_id..'||t_asg_action_id,11);
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8592: hr_utility.set_location('l_context_id..'||l_context_id,11);
8593: hr_utility.set_location('l_class..'||l_class,11);
8586: BEGIN
8587: hr_utility.set_location('l_class..'||l_class,11);
8588: hr_utility.set_location('l_defined_balance_id..'||l_defined_balance_id,11);
8589: hr_utility.set_location('t_asg_action_id..'||t_asg_action_id,11);
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8592: hr_utility.set_location('l_context_id..'||l_context_id,11);
8593: hr_utility.set_location('l_class..'||l_class,11);
8594: hr_utility.set_location('l_class..'||l_class,11);
8587: hr_utility.set_location('l_class..'||l_class,11);
8588: hr_utility.set_location('l_defined_balance_id..'||l_defined_balance_id,11);
8589: hr_utility.set_location('t_asg_action_id..'||t_asg_action_id,11);
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8592: hr_utility.set_location('l_context_id..'||l_context_id,11);
8593: hr_utility.set_location('l_class..'||l_class,11);
8594: hr_utility.set_location('l_class..'||l_class,11);
8595:
8588: hr_utility.set_location('l_defined_balance_id..'||l_defined_balance_id,11);
8589: hr_utility.set_location('t_asg_action_id..'||t_asg_action_id,11);
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8592: hr_utility.set_location('l_context_id..'||l_context_id,11);
8593: hr_utility.set_location('l_class..'||l_class,11);
8594: hr_utility.set_location('l_class..'||l_class,11);
8595:
8596:
8589: hr_utility.set_location('t_asg_action_id..'||t_asg_action_id,11);
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8592: hr_utility.set_location('l_context_id..'||l_context_id,11);
8593: hr_utility.set_location('l_class..'||l_class,11);
8594: hr_utility.set_location('l_class..'||l_class,11);
8595:
8596:
8597: l_weeks := 0;
8590: hr_utility.set_location('l_segment4..'||l_segment4,11);
8591: hr_utility.set_location('l_class..'||l_class,11);
8592: hr_utility.set_location('l_context_id..'||l_context_id,11);
8593: hr_utility.set_location('l_class..'||l_class,11);
8594: hr_utility.set_location('l_class..'||l_class,11);
8595:
8596:
8597: l_weeks := 0;
8598:
8606: l_class,
8607: NULL,
8608: NULL
8609: );
8610: hr_utility.set_location('l_weeks..'||l_weeks,11);
8611: RETURN l_weeks;
8612: END get_prsi_weeks;
8613: /* End of new function */
8614:
8620: BEGIN
8621: --
8622: -- Bug 2979713 - PRSI Context Balance Design Change
8623: --
8624: -- hr_utility.TRACE ('In procedure weeks_at_initial_class');
8625:
8626: IF l_initial_class IS NOT NULL
8627: THEN
8628: --Bug fix 4023794, flusing of variables
8639: l_initial_class,
8640: NULL,
8641: NULL
8642: );
8643: hr_utility.set_location ( 'l_initial_weeks'
8644: || l_initial_weeks, 40);
8645: --END LOOP;
8646: ELSE
8647: l_initial_weeks := 0;
8647: l_initial_weeks := 0;
8648: END IF;
8649:
8650:
8651: -- hr_utility.TRACE ('Leaving weeks_at_initial_class');
8652: RETURN l_initial_weeks;
8653: END weeks_at_initial_class;
8654:
8655:
8661: BEGIN
8662: --
8663: -- Bug 2979713 - PRSI Context Balance Design Change
8664: --
8665: -- hr_utility.TRACE ('In proceduer weeks_at_second_class');
8666:
8667: IF l_second_class IS NOT NULL
8668: THEN -- Bug fix 4004470
8669: l_weeks_at_second_class := 0; --Bug fix 4023794, flusing of variables
8684: --END LOOP;
8685: ELSE
8686: l_weeks_at_second_class := 0;
8687: END IF;
8688: -- hr_utility.TRACE ('Leaving proceduer weeks_at_second_class');
8689: RETURN l_weeks_at_second_class;
8690: END weeks_at_second_class;
8691:
8692:
8698: BEGIN
8699: --
8700: -- Bug 2979713 - PRSI Context Balance Design Change
8701: --
8702: -- hr_utility.TRACE ('In procedure weeks_at_third_class');
8703: IF l_third_class IS NOT NULL
8704: THEN -- Bug fix 4004470
8705: l_weeks_at_third_class := 0; --Bug fix 4023794, flusing of variables
8706: --FOR csr_action_rec IN 1..t_asg_action_id.count
8720: --END LOOP;
8721: ELSE
8722: l_weeks_at_third_class := 0;
8723: END IF;
8724: -- hr_utility.TRACE ('Leaving procedure weeks_at_third_class');
8725: RETURN l_weeks_at_third_class;
8726: END weeks_at_third_class;
8727:
8728:
8733: AS
8734: BEGIN
8735: -- Bug 2979713 - PRSI Context Balance Design Change
8736:
8737: -- hr_utility.TRACE ('In procedure weeks_at_fourth_class');
8738: IF l_fourth_class IS NOT NULL
8739: THEN -- Bug fix 4004470
8740: l_weeks_at_fourth_class := 0; --Bug fix 4023794, flusing of variables
8741: --FOR csr_action_rec IN 1..t_asg_action_id.count
8756: ELSE
8757: l_weeks_at_fourth_class := 0;
8758: END IF;
8759:
8760: --hr_utility.TRACE ('Ieaving weeks_at_fourth_class');
8761: RETURN l_weeks_at_fourth_class;
8762: --hr_utility.TRACE ('About to leave get weeks at fourth class');
8763: END weeks_at_fourth_class;
8764:
8758: END IF;
8759:
8760: --hr_utility.TRACE ('Ieaving weeks_at_fourth_class');
8761: RETURN l_weeks_at_fourth_class;
8762: --hr_utility.TRACE ('About to leave get weeks at fourth class');
8763: END weeks_at_fourth_class;
8764:
8765:
8766: /* Added for fifth class by vik */
8771: AS
8772: BEGIN
8773: -- Bug 2979713 - PRSI Context Balance Design Change
8774:
8775: -- hr_utility.TRACE ('In procedure weeks_at_fourth_class');
8776: IF l_fifth_class IS NOT NULL
8777: THEN
8778: l_weeks_at_fifth_class := 0;
8779: l_weeks_at_fifth_class := l_weeks_at_fifth_class +
8814: --
8815:
8816: BEGIN
8817: --
8818: hr_utility.set_location('In Insurable Weeks.',201);
8819: hr_utility.set_location('In Insurable Weeks.'||to_char(p_assignment_action_id),202);
8820:
8821: p_start_date := get_start_date ();
8822: p_end_date := get_end_date ();
8815:
8816: BEGIN
8817: --
8818: hr_utility.set_location('In Insurable Weeks.',201);
8819: hr_utility.set_location('In Insurable Weeks.'||to_char(p_assignment_action_id),202);
8820:
8821: p_start_date := get_start_date ();
8822: p_end_date := get_end_date ();
8823:
8884:
8885:
8886:
8887: /* CLOSE c_get_assignment_action_id;*/
8888: --hr_utility.TRACE ('Else l_total_weeks='|| l_total_weeks);
8889: RETURN l_total_weeks;
8890: EXCEPTION
8891: WHEN OTHERS
8892: THEN
8893: --CLOSE c_get_assignment_action_id;
8894: t_context_value := t_empty_table;
8895: t_context_value_balinit := t_empty_table;
8896: t_context_value_tmp := t_empty_table;
8897: hr_utility.set_location ('Error in get_total_insurable_weeks', 200);
8898: RAISE;
8899: END get_total_insurable_weeks;
8900:
8901: