488: EXCEPTION
489: WHEN OTHERS THEN
490: hr_utility.trace('Exception in get hours worked end of function block.');
491: hr_utility.trace(SQLCODE || ' - ' || sqlerrm );
492: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
493: return null;
494: END get_hours_worked;
495:
496: /*
641: EXCEPTION
642: WHEN OTHERS THEN
643: hr_utility.trace('Exception in get_periods_covered end of function block.');
644: hr_utility.trace(SQLCODE || ' - ' || sqlerrm );
645: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
646: return null;
647: END get_periods_covered;
648:
649:
797: EXCEPTION
798: WHEN OTHERS THEN
799: hr_utility.trace('Exception in get_irregular_payment end of function block.');
800: hr_utility.trace(SQLCODE || ' - ' || sqlerrm );
801: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
802: return null;
803: END get_irregular_payment;
804:
805:
951: EXCEPTION
952: WHEN OTHERS THEN
953: hr_utility.trace('Exception in get_oneoff_payment end of function block.');
954: hr_utility.trace(SQLCODE || ' - ' || sqlerrm );
955: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
956: return null;
957: END get_oneoff_payment;
958:
959: /*
1092: EXCEPTION
1093: WHEN OTHERS THEN
1094: hr_utility.trace('Exception in get_payment_non_indiv end of function block.');
1095: hr_utility.trace(SQLCODE || ' - ' || sqlerrm );
1096: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
1097: return null;
1098: END get_payment_non_indiv;
1099:
1100:
1234: EXCEPTION
1235: WHEN OTHERS THEN
1236: hr_utility.trace('Exception in get_onstrike_indicator end of function block.');
1237: hr_utility.trace(SQLCODE || ' - ' || sqlerrm );
1238: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
1239: return null;
1240: END get_onstrike_indicator;
1241:
1242:
1375: EXCEPTION
1376: WHEN OTHERS THEN
1377: hr_utility.trace('Exception in get_unpaid_absence end of function block.');
1378: hr_utility.trace(SQLCODE || ' - ' || sqlerrm );
1379: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
1380: return null;
1381: END get_unpaid_absence;
1382:
1383: /*
2625: EXCEPTION
2626: WHEN OTHERS THEN
2627: hr_utility.set_location('Error in function fetch_fps_asg_det1 ', 15);
2628: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
2629: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
2630: RAISE;
2631: END fetch_fps_asg_det1;
2632: --
2633:
3427: EXCEPTION
3428: WHEN OTHERS THEN
3429: hr_utility.set_location('Error in function fetch_fps_asg_det1 ', 15);
3430: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
3431: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
3432: RAISE;
3433: END fetch_fps_nopay_asg_det1;
3434:
3435:
4221: EXCEPTION
4222: WHEN OTHERS THEN
4223: hr_utility.set_location('Error in function fetch_fps_aggr_asg_det1 ', 15);
4224: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
4225: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
4226: RAISE;
4227: END fetch_fps_aggr_asg_det1;
4228: --
4229: --
4791: EXCEPTION
4792: WHEN OTHERS THEN
4793: hr_utility.set_location('Error in function fetch_fps_asg_det2 ', 15);
4794: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
4795: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
4796: RAISE;
4797:
4798: END fetch_first_fps_asg_det2;
4799:
5041: EXCEPTION
5042: WHEN OTHERS THEN
5043: hr_utility.set_location('Error in function fetch_first_fps_agg_asg_det2 ', 15);
5044: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
5045: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
5046: RAISE;
5047:
5048: END fetch_first_fps_agg_asg_det2;
5049:
5722: EXCEPTION
5723: WHEN OTHERS THEN
5724: hr_utility.set_location('Error in function fetch_fps_asg_det2 ', 15);
5725: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
5726: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
5727: RAISE;
5728: END fetch_fps_asg_det2;
5729: --
5730: --
6418: EXCEPTION
6419: WHEN OTHERS THEN
6420: hr_utility.set_location('Error in function fetch_fps_agg_asg_det2 ', 15);
6421: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
6422: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
6423: RAISE;
6424: END fetch_fps_agg_asg_det2;
6425:
6426: PROCEDURE populate_run_msg(
6744: fetch c_first_fps_ran into l_frst_fps_ran;
6745: close c_first_fps_ran;
6746:
6747: if l_frst_fps_ran = 'Y' then
6748: fnd_file.put_line (fnd_file.LOG,'Error : First FPS has already been run for the requested payroll. Either rollback or select to run a normal FPS.');
6749: --raise first_fps_ran_already_error;
6750: end if;
6751: end if;
6752:
6751: end if;
6752:
6753: if l_first_fps_ind is not null and l_first_fps_ind <> 'Y'
6754: and l_first_fps_date is not null then
6755: fnd_file.put_line (fnd_file.LOG,'Error : First FPS date should not be entered when First FPS Indicator is not Yes.');
6756: RAISE first_fps_indicator_error;
6757: end if;
6758:
6759: if l_first_fps_ind = 'Y' and l_first_fps_date is null then
6756: RAISE first_fps_indicator_error;
6757: end if;
6758:
6759: if l_first_fps_ind = 'Y' and l_first_fps_date is null then
6760: fnd_file.put_line (fnd_file.LOG,'Error : Enter the First FPS date when First FPS Indicator is Yes.');
6761: RAISE first_fps_indicator_error;
6762: end if;
6763:
6764: -- Raise error if Date Scheme Ceased not entered when Final Submission set to Yes - Final for Ceased PAYE Ref
6762: end if;
6763:
6764: -- Raise error if Date Scheme Ceased not entered when Final Submission set to Yes - Final for Ceased PAYE Ref
6765: if l_final_submission = 'YCEAS' and l_date_scheme_ceased is null then
6766: fnd_file.put_line (fnd_file.LOG,'Error : Enter Date Scheme Ceased when Final Submission is Yes - Final for Ceased PAYE Ref.');
6767: fnd_file.put_line (fnd_file.output,'Error : Enter Date Scheme Ceased when Final Submission is Yes - Final for Ceased PAYE Ref.');
6768: RAISE date_scheme_error;
6769: end if;
6770:
6763:
6764: -- Raise error if Date Scheme Ceased not entered when Final Submission set to Yes - Final for Ceased PAYE Ref
6765: if l_final_submission = 'YCEAS' and l_date_scheme_ceased is null then
6766: fnd_file.put_line (fnd_file.LOG,'Error : Enter Date Scheme Ceased when Final Submission is Yes - Final for Ceased PAYE Ref.');
6767: fnd_file.put_line (fnd_file.output,'Error : Enter Date Scheme Ceased when Final Submission is Yes - Final for Ceased PAYE Ref.');
6768: RAISE date_scheme_error;
6769: end if;
6770:
6771: -- Raise error if Date Scheme Ceased entered when Final Submission not set to Yes - Final for Ceased PAYE Ref
6769: end if;
6770:
6771: -- Raise error if Date Scheme Ceased entered when Final Submission not set to Yes - Final for Ceased PAYE Ref
6772: if l_date_scheme_ceased is not null and l_final_submission <> 'YCEAS' then
6773: fnd_file.put_line (fnd_file.LOG,'Error : Date Scheme Ceased should not be entered when Final Submission is not Yes - Final for Ceased PAYE Ref.');
6774: fnd_file.put_line (fnd_file.output,'Error : Date Scheme Ceased should not be entered when Final Submission is not Yes - Final for Ceased PAYE Ref.');
6775: RAISE date_scheme_error;
6776: end if;
6777:
6770:
6771: -- Raise error if Date Scheme Ceased entered when Final Submission not set to Yes - Final for Ceased PAYE Ref
6772: if l_date_scheme_ceased is not null and l_final_submission <> 'YCEAS' then
6773: fnd_file.put_line (fnd_file.LOG,'Error : Date Scheme Ceased should not be entered when Final Submission is not Yes - Final for Ceased PAYE Ref.');
6774: fnd_file.put_line (fnd_file.output,'Error : Date Scheme Ceased should not be entered when Final Submission is not Yes - Final for Ceased PAYE Ref.');
6775: RAISE date_scheme_error;
6776: end if;
6777:
6778: if l_date_scheme_ceased < l_start_year or l_date_scheme_ceased > l_end_year then
6775: RAISE date_scheme_error;
6776: end if;
6777:
6778: if l_date_scheme_ceased < l_start_year or l_date_scheme_ceased > l_end_year then
6779: fnd_file.put_line (fnd_file.LOG,'Error : Date Scheme Ceased should be within Tax Year.');
6780: fnd_file.put_line (fnd_file.output,'Error : Date Scheme Ceased should be within Tax Year.');
6781: RAISE date_scheme_error;
6782: end if;
6783:
6776: end if;
6777:
6778: if l_date_scheme_ceased < l_start_year or l_date_scheme_ceased > l_end_year then
6779: fnd_file.put_line (fnd_file.LOG,'Error : Date Scheme Ceased should be within Tax Year.');
6780: fnd_file.put_line (fnd_file.output,'Error : Date Scheme Ceased should be within Tax Year.');
6781: RAISE date_scheme_error;
6782: end if;
6783:
6784: sqlstr := 'select distinct PERSON_ID '|| 'from per_all_assignments_f paaf, '
7523:
7524: -- If there are no assignment action ids, no payment has been made for the assignment
7525: -- This assignment will not be archived.
7526: IF l_last_asg_action_id is null then
7527: fnd_file.put_line (fnd_file.LOG,'No Payment has been made for assignment ' || asg_record.assignment_id|| '.');
7528: l_flag:= 'N';
7529: end if;
7530: CLOSE csr_last_action;
7531:
7718: hr_utility.set_location('l_ni_rpt_date: ' || l_ni_rpt_date, 50);
7719:
7720: if l_ni_rpt_asg_id is null then
7721: hr_utility.set_location('NO RTI Reporting asg for :'|| l_asg_number, 50);
7722: fnd_file.put_line (fnd_file.LOG,'NO RTI Reporting asg for :'|| l_asg_number);
7723: --raise_application_error(-20001,'NO RTI Reporting asg for :'|| asg_rec.assignment_id);
7724: else
7725: -- check whether the RTI reporting is being processed in the current assignment.
7726: open csr_rti_rpt_proc_prepay(l_ni_rpt_asg_id,l_pre_pact_id);
8161: if (g_start_year <= l_pre_pact_effective_date and g_end_year >= l_pre_pact_effective_date) then
8162: hr_utility.trace('Valid Effective Date for FPS Concurrent Program');
8163: else
8164: hr_utility.trace('Invalid Effective Date for FPS Concurrent Program');
8165: fnd_file.put_line(fnd_file.LOG,'FPS Program Effective date must be within the tax year of corresponding Pre-Payment Process Effective Date.');
8166: fnd_file.put_line(fnd_file.output,'FPS Program Effective date must be within the tax year of corresponding Pre-Payment Process Effective Date.');
8167: raise_application_error(-20001,'FPS Program Effective date must be within the tax year of corresponding Pre-Payment Process Effective Date.');
8168: end if;
8169:
8162: hr_utility.trace('Valid Effective Date for FPS Concurrent Program');
8163: else
8164: hr_utility.trace('Invalid Effective Date for FPS Concurrent Program');
8165: fnd_file.put_line(fnd_file.LOG,'FPS Program Effective date must be within the tax year of corresponding Pre-Payment Process Effective Date.');
8166: fnd_file.put_line(fnd_file.output,'FPS Program Effective date must be within the tax year of corresponding Pre-Payment Process Effective Date.');
8167: raise_application_error(-20001,'FPS Program Effective date must be within the tax year of corresponding Pre-Payment Process Effective Date.');
8168: end if;
8169:
8170: /*
8226: hr_utility.set_location('Leaving '|| l_proc, 10);
8227:
8228: EXCEPTION
8229: WHEN OTHERS THEN
8230: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
8231: hr_utility.raise_error;
8232: END archinit;
8233: --
8234: procedure add_other_asg_ni_ytd(c_asg_act_id in number , p_archive_tab in out nocopy act_info_rec) is
10490: end if;
10491: exception
10492: when others then
10493: populate_run_msg(p_assactid, 'Hash error '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
10494: fnd_file.put_line (fnd_file.LOG,'Hash error '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
10495: raise_application_error(-20001,'Hash error '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
10496: end;
10497:
10498: hr_utility.trace('l_large_bacs_payment: '||l_large_bacs_payment);
10817: IF l_archive_person AND l_archive_addr AND l_archive_asg_det1 AND l_archive_asg_det2 THEN
10818: IF l_personaddr_val_err OR l_fps_val_err OR l_fps_ni_val_err -- If validation fails , that record will not be archived.
10819: THEN
10820: hr_utility.set_location('Validation failed, raise error.',999);
10821: fnd_file.put_line(fnd_file.LOG,'Not Archiving');
10822: raise error_found;
10823: ELSE
10824: hr_utility.set_location('Validation successful, archive data.',999);
10825: insert_archive_row(p_assactid, p_effective_date,l_archive_tab);
10976: --Raising Exception for the current assignment
10977: if (csr_aggr_all_payroll_actions%NOTFOUND) then
10978: hr_utility.trace('Current Assignment is already processed in an earlier FPS run. Hence, not processing now.');
10979: populate_run_msg(p_assactid, 'Current Assignment '|| l_assignment_number ||' is already processed in an earlier FPS run. Hence, not processing now.','W');
10980: fnd_file.put_line (fnd_file.LOG,'Current Assignment '|| l_assignment_number ||' is already processed in an earlier FPS run. Hence, not processing now.');
10981: raise already_processed;
10982: end if;
10983: --
10984: hr_utility.trace('l_single_payroll_run_exists start point: ' ||l_single_payroll_run_exists);
11047: CLOSE csr_asg_num;
11048:
11049: hr_utility.set_location('Pre payment is not run for asg action id: '|| l_cur_asg_action_id,999);
11050: populate_run_msg(p_assactid, ' Pre payment is not run for the assignment '||l_assignment_number||' (asg action id: '|| l_cur_asg_action_id||')');
11051: fnd_file.put_line (fnd_file.LOG,' Pre payment is not run for the assignment '||l_assignment_number||' (asg action id: '|| l_cur_asg_action_id||')');
11052: raise error_found;
11053:
11054: --prepayment run check ends here
11055: else
11180: END IF;
11181: EXCEPTION
11182: WHEN others THEN
11183: populate_run_msg (p_assactid,'Hash error1 '|| sqlerrm|| ' for the assignment '|| l_assignment_number|| '.');
11184: fnd_file.put_line (fnd_file.log,'Hash error1 '|| sqlerrm|| ' for the assignment '|| l_assignment_number|| '.');
11185: raise_application_error(-20001,'Hash error1 '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
11186: END;
11187:
11188: hr_utility.trace('l_large_bacs_payment: '||l_large_bacs_payment);
11564: if (nvl(l_asg_act_processed_earlier,-1) <> 0 and l_retry_req_flag is not null ) then
11565: hr_utility.trace('Current Assignment is already processed in an earlier FPS run. Hence, not processing now.');
11566: l_archive_flag := 'N';
11567: populate_run_msg(p_assactid, ' Assignment ' || l_assignment_number|| ' is already processed.','W');
11568: fnd_file.put_line (fnd_file.LOG,' Assignment ' || l_assignment_number|| ' is already processed.');
11569:
11570: else --this else is for nvl(l_asg_act_processed_earlier,-1) <> 0
11571:
11572: hr_utility.trace('l_processed_in_prepayment: ' ||l_processed_in_prepayment);
11603: END IF;
11604: EXCEPTION
11605: WHEN others THEN
11606: populate_run_msg (p_assactid,'Hash error '|| sqlerrm|| ' for the assignment '|| l_assignment_number|| '.');
11607: fnd_file.put_line (fnd_file.log,'Hash error '|| sqlerrm|| ' for the assignment '|| l_assignment_number|| '.');
11608: raise_application_error(-20001,'Hash error '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
11609: END;
11610:
11611: hr_utility.trace('l_large_bacs_payment: '||l_large_bacs_payment);
11998: if (nvl(l_asg_act_processed_earlier,-1) <> 0 and l_retry_req_flag is null) then
11999: hr_utility.trace('Current Assignment is already processed in an earlier FPS run. Hence, not processing now.');
12000: l_archive_flag := 'N';
12001: populate_run_msg(p_assactid, ' Assignment ' || l_assignment_number|| ' is already processed.','W');
12002: fnd_file.put_line (fnd_file.LOG,' Assignment ' || l_assignment_number|| ' is already processed.');
12003:
12004: end if;
12005:
12006: end if;
12119: -- IF l_personaddr_val_err OR l_fps_val_err OR l_fps_ni_val_err -- If validation fails , that record will not be archived.
12120: IF l_personaddr_val_err OR l_fps_val_err OR l_fps_ni_val_err -- If validation fails , that record will not be archived.
12121: THEN
12122: hr_utility.set_location('Validation failed, raise error.',999);
12123: fnd_file.put_line(fnd_file.LOG,'Not Archiving');
12124: raise error_found;
12125: ELSE
12126:
12127: hr_utility.set_location('Validation successful, archive data.',999);
12253: end if;
12254: exception
12255: when others then
12256: populate_run_msg(p_assactid, 'Hash error '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
12257: fnd_file.put_line (fnd_file.LOG,'Hash error '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
12258: raise_application_error(-20001,'Hash error '||SQLERRM||' for the assignment ' || l_assignment_number|| '.');
12259: end;
12260:
12261: hr_utility.trace('l_large_bacs_payment: '||l_large_bacs_payment);
12728: -- IF l_personaddr_val_err OR l_fps_val_err OR l_fps_ni_val_err -- If validation fails , that record will not be archived.
12729: IF l_personaddr_val_err OR l_fps_val_err OR l_fps_ni_val_err -- If validation fails , that record will not be archived.
12730: THEN
12731: hr_utility.set_location('Validation failed, raise error.',999);
12732: fnd_file.put_line(fnd_file.LOG,'Not Archiving');
12733: raise error_found;
12734: ELSE
12735: hr_utility.set_location('Validation successful, archive data.',999);
12736: if l_ni_rti_flag = 'Y' then
13009: );
13010: end if; --l_ni_aggr_max_act_id = l_last_asg_action_id
13011: else
13012: hr_utility.set_location('No NI reporting assignment for the assignment: ' || l_asg_id ,1000);
13013: fnd_file.put_line(fnd_file.LOG,'No NI reporting assignment for the assignment: ' || l_asg_id);
13014: populate_run_msg(p_assactid, 'No NI reporting assignment for the assignment: '||l_assignment_number);
13015: raise error_found;
13016: end if; -- l_ni_rpt_asg_id is not null
13017: -- make the NI YTD to 0.
13058:
13059: EXCEPTION
13060: WHEN error_found THEN
13061: reset_flag('GB_RTI_ASG_DETAILS',g_reset_flag_type, p_assactid);
13062: fnd_file.put_line(fnd_file.LOG,'Errors found while archiving data.');
13063: raise_application_error(-20001,'Errors found while archiving data.');
13064:
13065: WHEN already_processed THEN
13066: fnd_file.put_line (fnd_file.LOG,'Current Assignment '|| l_assignment_number ||' is already processed in an earlier FPS run. Hence, not processing now.');
13062: fnd_file.put_line(fnd_file.LOG,'Errors found while archiving data.');
13063: raise_application_error(-20001,'Errors found while archiving data.');
13064:
13065: WHEN already_processed THEN
13066: fnd_file.put_line (fnd_file.LOG,'Current Assignment '|| l_assignment_number ||' is already processed in an earlier FPS run. Hence, not processing now.');
13067:
13068: WHEN OTHERS THEN
13069: fnd_file.put_line(fnd_file.LOG,'An error encountered was - '||SQLERRM);
13070: raise_application_error(-20001,'An error encountered was - '||SQLERRM);
13065: WHEN already_processed THEN
13066: fnd_file.put_line (fnd_file.LOG,'Current Assignment '|| l_assignment_number ||' is already processed in an earlier FPS run. Hence, not processing now.');
13067:
13068: WHEN OTHERS THEN
13069: fnd_file.put_line(fnd_file.LOG,'An error encountered was - '||SQLERRM);
13070: raise_application_error(-20001,'An error encountered was - '||SQLERRM);
13071: END archive_code;
13072: --
13073: --
13298: OPEN csr_prepay_err_msg(action_id.asg_action_id);
13299: FETCH csr_prepay_err_msg INTO l_err_msg;
13300: exit when csr_prepay_err_msg%notfound;
13301:
13302: fnd_file.put_line(fnd_file.output,'Pre-Payments is not run for few errored employments. Must Rollback this FPS, Complete Pre-Payments and then Re-Submit FPS.');
13303: -- exit when csr_prepay_err_msg%found;
13304: CLOSE csr_prepay_err_msg;
13305: END loop;
13306:
13303: -- exit when csr_prepay_err_msg%found;
13304: CLOSE csr_prepay_err_msg;
13305: END loop;
13306:
13307: fnd_file.put_line(fnd_file.output,' ');
13308: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
13309: fnd_file.put_line(fnd_file.output,' ');
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13304: CLOSE csr_prepay_err_msg;
13305: END loop;
13306:
13307: fnd_file.put_line(fnd_file.output,' ');
13308: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
13309: fnd_file.put_line(fnd_file.output,' ');
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13305: END loop;
13306:
13307: fnd_file.put_line(fnd_file.output,' ');
13308: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
13309: fnd_file.put_line(fnd_file.output,' ');
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13306:
13307: fnd_file.put_line(fnd_file.output,' ');
13308: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
13309: fnd_file.put_line(fnd_file.output,' ');
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13307: fnd_file.put_line(fnd_file.output,' ');
13308: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
13309: fnd_file.put_line(fnd_file.output,' ');
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13308: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
13309: fnd_file.put_line(fnd_file.output,' ');
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13309: fnd_file.put_line(fnd_file.output,' ');
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13317: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
13310: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13317: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
13318: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
13311: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13317: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
13318: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
13319: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
13312: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13317: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
13318: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
13319: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
13320:
13313: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13317: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
13318: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
13319: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
13320:
13321: IF LENGTH(l_addr2) > 0 THEN
13314: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13317: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
13318: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
13319: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
13320:
13321: IF LENGTH(l_addr2) > 0 THEN
13322: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
13315: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
13316: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
13317: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
13318: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
13319: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
13320:
13321: IF LENGTH(l_addr2) > 0 THEN
13322: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
13323: END IF;
13318: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
13319: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
13320:
13321: IF LENGTH(l_addr2) > 0 THEN
13322: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
13323: END IF;
13324: IF LENGTH(l_addr3) > 0 THEN
13325: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr3);
13326: END IF;
13321: IF LENGTH(l_addr2) > 0 THEN
13322: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
13323: END IF;
13324: IF LENGTH(l_addr3) > 0 THEN
13325: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr3);
13326: END IF;
13327: IF LENGTH(l_addr4) > 0 THEN
13328: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr4);
13329: END IF;
13324: IF LENGTH(l_addr3) > 0 THEN
13325: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr3);
13326: END IF;
13327: IF LENGTH(l_addr4) > 0 THEN
13328: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr4);
13329: END IF;
13330:
13331: fnd_file.put_line(fnd_file.output,rpad('Payroll : ',32) || l_payroll_name);
13332: fnd_file.put_line(fnd_file.output,rpad('Prepayment Effective Date : ',32) || l_prepay_eff_date);
13327: IF LENGTH(l_addr4) > 0 THEN
13328: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr4);
13329: END IF;
13330:
13331: fnd_file.put_line(fnd_file.output,rpad('Payroll : ',32) || l_payroll_name);
13332: fnd_file.put_line(fnd_file.output,rpad('Prepayment Effective Date : ',32) || l_prepay_eff_date);
13333:
13334: END write_header;
13335: ---
13328: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr4);
13329: END IF;
13330:
13331: fnd_file.put_line(fnd_file.output,rpad('Payroll : ',32) || l_payroll_name);
13332: fnd_file.put_line(fnd_file.output,rpad('Prepayment Effective Date : ',32) || l_prepay_eff_date);
13333:
13334: END write_header;
13335: ---
13336: PROCEDURE write_sub_header(
13337: p_type VARCHAR2,
13338: report_type VARCHAR2)
13339: IS
13340: BEGIN
13341: fnd_file.put_line(fnd_file.output,NULL);
13342: IF p_type = 'E' THEN
13343: fnd_file.put_line(fnd_file.output,'The following employments have completed with error');
13344: ELSIF p_type = 'W' THEN
13345: fnd_file.put_line(fnd_file.output,'The following employments have completed with warning');
13339: IS
13340: BEGIN
13341: fnd_file.put_line(fnd_file.output,NULL);
13342: IF p_type = 'E' THEN
13343: fnd_file.put_line(fnd_file.output,'The following employments have completed with error');
13344: ELSIF p_type = 'W' THEN
13345: fnd_file.put_line(fnd_file.output,'The following employments have completed with warning');
13346: ELSE
13347: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
13341: fnd_file.put_line(fnd_file.output,NULL);
13342: IF p_type = 'E' THEN
13343: fnd_file.put_line(fnd_file.output,'The following employments have completed with error');
13344: ELSIF p_type = 'W' THEN
13345: fnd_file.put_line(fnd_file.output,'The following employments have completed with warning');
13346: ELSE
13347: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
13348: END IF;
13349:
13343: fnd_file.put_line(fnd_file.output,'The following employments have completed with error');
13344: ELSIF p_type = 'W' THEN
13345: fnd_file.put_line(fnd_file.output,'The following employments have completed with warning');
13346: ELSE
13347: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
13348: END IF;
13349:
13350: IF p_type = 'W' THEN -- warning records
13351: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51)
13347: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
13348: END IF;
13349:
13350: IF p_type = 'W' THEN -- warning records
13351: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51)
13352: || rpad('Warning Messages',30));
13353: ELSIF p_type <> 'E' THEN --Completed records
13354: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51));
13355: ELSE -- errored records
13350: IF p_type = 'W' THEN -- warning records
13351: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51)
13352: || rpad('Warning Messages',30));
13353: ELSIF p_type <> 'E' THEN --Completed records
13354: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51));
13355: ELSE -- errored records
13356: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51)
13357: || rpad('Error Messages',30));
13358: END IF;
13352: || rpad('Warning Messages',30));
13353: ELSIF p_type <> 'E' THEN --Completed records
13354: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51));
13355: ELSE -- errored records
13356: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51)
13357: || rpad('Error Messages',30));
13358: END IF;
13359:
13360: IF p_type = 'W' THEN -- warning records
13357: || rpad('Error Messages',30));
13358: END IF;
13359:
13360: IF p_type = 'W' THEN -- warning records
13361: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-') || ' '
13362: || rpad('-',30,'-'));
13363: ELSIF p_type <> 'E' THEN -- Completed records
13364: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-'));
13365: ELSE -- errored records
13360: IF p_type = 'W' THEN -- warning records
13361: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-') || ' '
13362: || rpad('-',30,'-'));
13363: ELSIF p_type <> 'E' THEN -- Completed records
13364: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-'));
13365: ELSE -- errored records
13366: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-') || ' '
13367: || rpad('-',30,'-'));
13368: END IF;
13362: || rpad('-',30,'-'));
13363: ELSIF p_type <> 'E' THEN -- Completed records
13364: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-'));
13365: ELSE -- errored records
13366: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-') || ' '
13367: || rpad('-',30,'-'));
13368: END IF;
13369: END write_sub_header;
13370: ---
13472: l_count_warns := 0;
13473: open csr_get_prepayment_date(g_pre_pact_id);
13474: fetch csr_get_prepayment_date into l_effective_date;
13475: close csr_get_prepayment_date;
13476: fnd_file.put_line(fnd_file.LOG, 'l_effective_date: ' || l_effective_date);
13477: --Completed Records
13478: IF p_type = 'ET'THEN
13479: FOR action_id IN get_asg_action_id
13480: LOOP
13482: FETCH get_person_details INTO et_asg_rec;
13483: CLOSE get_person_details;
13484: l_et_temp := et_asg_rec.l_name || ', '|| et_asg_rec.title || ' ' || et_asg_rec.f_name || ' ' || et_asg_rec.m_name;
13485: IF et_asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
13486: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
13487: || rpad(l_et_temp,50) );
13488: ELSE
13489: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
13490: || rpad(l_et_temp,50));
13485: IF et_asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
13486: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
13487: || rpad(l_et_temp,50) );
13488: ELSE
13489: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
13490: || rpad(l_et_temp,50));
13491: END IF;
13492: l_count := l_count + 1;
13493: END LOOP;
13512: l_error_flag := 'Y';
13513:
13514: l_temp := asg_rec.l_name || ', '|| asg_rec.title || ' ' || asg_rec.f_name || ' ' || asg_rec.m_name;
13515: IF asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
13516: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13517: || ' ' || rpad(err_msg,120) ); -- error message
13518: ELSE
13519: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13520: || ' ' || rpad(err_msg,120) ); -- error message
13515: IF asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
13516: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13517: || ' ' || rpad(err_msg,120) ); -- error message
13518: ELSE
13519: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13520: || ' ' || rpad(err_msg,120) ); -- error message
13521: END IF;
13522:
13523: -- To print remaining error messgaes if any
13524: LOOP
13525: FETCH csr_err_msg INTO err_msg;
13526: EXIT
13527: WHEN csr_err_msg%notfound;
13528: fnd_file.put_line(fnd_file.output,rpad(' ',81,' ')||rpad(err_msg,120));
13529: END LOOP;
13530:
13531: CLOSE csr_err_msg;
13532: l_count := l_count + 1;
13531: CLOSE csr_err_msg;
13532: l_count := l_count + 1;
13533: END LOOP;
13534: END IF;
13535: fnd_file.put_line(fnd_file.output,NULL);
13536:
13537: -- Warning Records
13538: IF p_type = 'W'THEN
13539:
13544: OPEN get_person_details(action_id.assignment_id);
13545: FETCH get_person_details INTO asg_rec;
13546: CLOSE get_person_details;
13547:
13548: -- fnd_file.put_line(fnd_file.LOG,'action_id.asg_action_id: '||action_id.asg_action_id);
13549:
13550: OPEN csr_warn_msg(action_id.asg_action_id);
13551: FETCH csr_warn_msg INTO err_msg;
13552:
13549:
13550: OPEN csr_warn_msg(action_id.asg_action_id);
13551: FETCH csr_warn_msg INTO err_msg;
13552:
13553: -- fnd_file.put_line(fnd_file.LOG,'action_id.asg_action_id: '||action_id.asg_action_id);
13554:
13555: /* if csr_err_msg%notfound then
13556: SELECT LINE_TEXT into err_msg FROM pay_message_lines WHERE source_id = action_id.asg_action_id
13557: AND MESSAGE_LEVEL = 'W' and rownum <=1;
13562: NULL;
13563: ELSE
13564: l_temp := asg_rec.l_name || ', '|| asg_rec.title || ' ' || asg_rec.f_name || ' ' || asg_rec.m_name;
13565: IF asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
13566: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13567: || ' ' || rpad(err_msg,100) );
13568: ELSE
13569: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13570: || ' ' || rpad(err_msg,100) );
13565: IF asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
13566: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13567: || ' ' || rpad(err_msg,100) );
13568: ELSE
13569: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
13570: || ' ' || rpad(err_msg,100) );
13571: END IF;
13572: l_count_warns := l_count_warns + 1;
13573: END IF;
13575:
13576: END LOOP;
13577:
13578: END IF;
13579: fnd_file.put_line(fnd_file.output,NULL);
13580:
13581: IF p_type = 'E' THEN
13582: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with error : ' || l_count);
13583: ELSIF p_type = 'W' THEN
13578: END IF;
13579: fnd_file.put_line(fnd_file.output,NULL);
13580:
13581: IF p_type = 'E' THEN
13582: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with error : ' || l_count);
13583: ELSIF p_type = 'W' THEN
13584: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with warning : ' || l_count_warns);
13585: ELSE
13586: fnd_file.put_line(fnd_file.output,'Total Number of employments completed successfully :' || l_count);
13580:
13581: IF p_type = 'E' THEN
13582: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with error : ' || l_count);
13583: ELSIF p_type = 'W' THEN
13584: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with warning : ' || l_count_warns);
13585: ELSE
13586: fnd_file.put_line(fnd_file.output,'Total Number of employments completed successfully :' || l_count);
13587: END IF;
13588: l_counter := l_counter + l_count;
13582: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with error : ' || l_count);
13583: ELSIF p_type = 'W' THEN
13584: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with warning : ' || l_count_warns);
13585: ELSE
13586: fnd_file.put_line(fnd_file.output,'Total Number of employments completed successfully :' || l_count);
13587: END IF;
13588: l_counter := l_counter + l_count;
13589: END write_body;
13590: ---
13608: OPEN get_person_count;
13609: FETCH get_person_count INTO l_person_count;
13610: CLOSE get_person_count;
13611:
13612: fnd_file.put_line(fnd_file.output,NULL);
13613: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
13614: fnd_file.put_line(fnd_file.output,NULL);
13615: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
13616: END write_footer;
13609: FETCH get_person_count INTO l_person_count;
13610: CLOSE get_person_count;
13611:
13612: fnd_file.put_line(fnd_file.output,NULL);
13613: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
13614: fnd_file.put_line(fnd_file.output,NULL);
13615: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
13616: END write_footer;
13617: ---------------------
13610: CLOSE get_person_count;
13611:
13612: fnd_file.put_line(fnd_file.output,NULL);
13613: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
13614: fnd_file.put_line(fnd_file.output,NULL);
13615: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
13616: END write_footer;
13617: ---------------------
13618: BEGIN
13611:
13612: fnd_file.put_line(fnd_file.output,NULL);
13613: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
13614: fnd_file.put_line(fnd_file.output,NULL);
13615: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
13616: END write_footer;
13617: ---------------------
13618: BEGIN
13619: hr_utility.trace('Entering deinit: '||l_proc);
13782: end if;
13783: */
13784: EXCEPTION
13785: When l_exp then
13786: fnd_file.put_line(fnd_file.LOG,'Errors found while archiving data.');
13787: raise_application_error(-20001,'Errors found while archiving data.');
13788: END deinitialization_code;
13789: --
13790: END PAY_GB_RTI_FPS_ARCHIVE;