909: EXCEPTION
910: WHEN OTHERS THEN
911: hr_utility.set_location('Error in function fetch_fps_asg_det1 ', 15);
912: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
913: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
914: RAISE;
915: END fetch_asg_det1;
916: --
917: --
1210: EXCEPTION
1211: WHEN OTHERS THEN
1212: hr_utility.set_location('Error in function fetch_asg_det2 ', 15);
1213: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
1214: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
1215: RAISE;
1216: END fetch_asg_det2;
1217: --
1218:
1988: EXCEPTION
1989: WHEN OTHERS THEN
1990: hr_utility.set_location('Error in function fetch_ni_det ', 15);
1991: hr_utility.trace('Exception:' || SQLCODE || ' - ' || SQLERRM );
1992: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
1993: RAISE;
1994: END fetch_ni_det;
1995:
1996: --
2562:
2563: -- Sender Id
2564: if l_payroll_rec.sender_id = ' ' or l_payroll_rec.sender_id is null then
2565: hr_utility.set_location('The Sender ID is missing.',10);
2566: fnd_file.put_line(fnd_file.output,'The Sender ID is missing.');
2567: l_err := true;
2568: end if;
2569:
2570: -- HMRC Office Number
2569:
2570: -- HMRC Office Number
2571: if l_payroll_rec.tax_office_no = ' ' or l_payroll_rec.tax_office_no is null then
2572: hr_utility.set_location('The HMRC Office number is missing.',10);
2573: fnd_file.put_line(fnd_file.output,'The HMRC Office number is missing.');
2574: l_err := true;
2575: elsif validate_input(substr(l_payroll_rec.tax_office_no,1,3),'NUMBER') > 0
2576: then
2577: hr_utility.set_location('The HMRC Office Number '||l_payroll_rec.tax_office_no||' has invalid characters.',10);
2574: l_err := true;
2575: elsif validate_input(substr(l_payroll_rec.tax_office_no,1,3),'NUMBER') > 0
2576: then
2577: hr_utility.set_location('The HMRC Office Number '||l_payroll_rec.tax_office_no||' has invalid characters.',10);
2578: fnd_file.put_line(fnd_file.output,'The HMRC Office Number '||l_payroll_rec.tax_office_no||' has invalid characters.');
2579: l_err := true;
2580: end if;
2581:
2582: -- Employer PAYE Ref
2581:
2582: -- Employer PAYE Ref
2583: if l_payroll_rec.tax_ref_no = ' ' or l_payroll_rec.tax_ref_no is null then
2584: hr_utility.set_location('The Employer PAYE Reference is missing.',10);
2585: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference is missing.');
2586: l_err := true;
2587: elsif validate_input(l_payroll_rec.tax_ref_no,'FULL_EDI') > 0 then
2588: hr_utility.set_location('The Employer PAYE Reference '||l_payroll_rec.tax_ref_no||' has invalid characters.',10);
2589: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference '||l_payroll_rec.tax_ref_no||' has invalid characters.');
2585: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference is missing.');
2586: l_err := true;
2587: elsif validate_input(l_payroll_rec.tax_ref_no,'FULL_EDI') > 0 then
2588: hr_utility.set_location('The Employer PAYE Reference '||l_payroll_rec.tax_ref_no||' has invalid characters.',10);
2589: fnd_file.put_line(fnd_file.output,'The Employer PAYE Reference '||l_payroll_rec.tax_ref_no||' has invalid characters.');
2590: l_err := true;
2591: end if;
2592:
2593: -- Employer Name
2592:
2593: -- Employer Name
2594: if l_payroll_rec.employer_name = ' ' or l_payroll_rec.employer_name is null then
2595: hr_utility.set_location('The Employer Name is missing.',10);
2596: fnd_file.put_line(fnd_file.output,'The Employer Name is missing.');
2597: l_err := true;
2598: elsif validate_input(l_payroll_rec.employer_name,'EMP_NAME') > 0 then
2599: hr_utility.set_location('The Employer Name '||l_payroll_rec.employer_name ||' has invalid characters.',10);
2600: fnd_file.put_line(fnd_file.output,'The Employer Name '||l_payroll_rec.employer_name ||' has invalid characters.');
2596: fnd_file.put_line(fnd_file.output,'The Employer Name is missing.');
2597: l_err := true;
2598: elsif validate_input(l_payroll_rec.employer_name,'EMP_NAME') > 0 then
2599: hr_utility.set_location('The Employer Name '||l_payroll_rec.employer_name ||' has invalid characters.',10);
2600: fnd_file.put_line(fnd_file.output,'The Employer Name '||l_payroll_rec.employer_name ||' has invalid characters.');
2601: l_err := true;
2602: end if;
2603:
2604: -- Accounts Office Number
2603:
2604: -- Accounts Office Number
2605: if l_payroll_rec.acc_ref_no = ' ' or l_payroll_rec.acc_ref_no is null then
2606: hr_utility.set_location('The Employer Accounts Office Ref Number is missing.',10);
2607: fnd_file.put_line(fnd_file.output,'The Employer Accounts Office Ref Number is missing.');
2608: l_err := true;
2609: elsif (length(l_payroll_rec.acc_ref_no) > 13
2610: OR REGEXP_INSTR(l_payroll_rec.acc_ref_no,'^([[:digit:]]{1,3})P([[:alpha:]]{1})([[:digit:]]{1,7})([[:digit:]]|X)$') = 0 ) THEN
2611:
2609: elsif (length(l_payroll_rec.acc_ref_no) > 13
2610: OR REGEXP_INSTR(l_payroll_rec.acc_ref_no,'^([[:digit:]]{1,3})P([[:alpha:]]{1})([[:digit:]]{1,7})([[:digit:]]|X)$') = 0 ) THEN
2611:
2612: hr_utility.set_location ('Incorrect format entered for Employer Accounts Office Ref Num field. Valid format is NNNPANNNNNNNX.',10);
2613: fnd_file.put_line(fnd_file.output,'Incorrect format entered for Employer Accounts Office Ref Num field. Valid format is NNNPANNNNNNNX.');
2614: l_err := true;
2615: END IF;
2616:
2617: -- Econ
2617: -- Econ
2618: if l_payroll_rec.econ is not null then
2619: IF econ_validate(l_payroll_rec.econ) = 0 THEN
2620: hr_utility.set_location('ECON Number '||l_payroll_rec.econ ||' is invalid',10);
2621: fnd_file.put_line(fnd_file.output,'ECON Number '||l_payroll_rec.econ ||' is invalid.');
2622: l_err := true;
2623: END IF;
2624: END IF;
2625:
2723: --Address line 1 is mandatory if Start date is not null or nino is null
2724: IF l_start_date is not null or l_national_identifier is null then
2725: IF l_address_line1 = ' ' OR l_address_line1 IS NULL THEN
2726: populate_run_msg(p_assactid,'The Address Line 1 of the assignment ' || l_assignment_number || ' is missing.');
2727: fnd_file.put_line (fnd_file.LOG,'The Address Line 1 of the assignment ' || l_assignment_number || ' is missing.');
2728: edi_validation_fail := 'Y';
2729: ELSIF validate_input(l_address_line1,'ADDRESS') > 0 THEN
2730: populate_run_msg(p_assactid,'The Address Line 1 ' || l_address_line1 || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2731: fnd_file.put_line (fnd_file.LOG,'The Address Line 1 ' || l_address_line1 || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2727: fnd_file.put_line (fnd_file.LOG,'The Address Line 1 of the assignment ' || l_assignment_number || ' is missing.');
2728: edi_validation_fail := 'Y';
2729: ELSIF validate_input(l_address_line1,'ADDRESS') > 0 THEN
2730: populate_run_msg(p_assactid,'The Address Line 1 ' || l_address_line1 || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2731: fnd_file.put_line (fnd_file.LOG,'The Address Line 1 ' || l_address_line1 || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2732: edi_validation_fail := 'Y';
2733: END IF;
2734: END IF;
2735:
2736: --Address line 2 is mandatory if Start date is not null or nino is null
2737: IF l_start_date is not null or l_national_identifier is null then
2738: IF l_address_line2 = ' ' OR l_address_line2 IS NULL THEN
2739: populate_run_msg(p_assactid,'The Address Line 2 of the assignment ' || l_assignment_number || ' is missing.');
2740: fnd_file.put_line (fnd_file.LOG,'The Address Line 2 of the assignment ' || l_assignment_number || ' is missing.');
2741: edi_validation_fail := 'Y';
2742: ELSIF validate_input(l_address_line2,'ADDRESS') > 0 THEN
2743: populate_run_msg(p_assactid,'The Address Line 2 ' || l_address_line2 || ' of the assignment '|| l_assignment_number || ' has invalid characters.');
2744: fnd_file.put_line (fnd_file.LOG,'The Address Line 2 ' || l_address_line2 || ' of the assignment '|| l_assignment_number || ' has invalid characters.');
2740: fnd_file.put_line (fnd_file.LOG,'The Address Line 2 of the assignment ' || l_assignment_number || ' is missing.');
2741: edi_validation_fail := 'Y';
2742: ELSIF validate_input(l_address_line2,'ADDRESS') > 0 THEN
2743: populate_run_msg(p_assactid,'The Address Line 2 ' || l_address_line2 || ' of the assignment '|| l_assignment_number || ' has invalid characters.');
2744: fnd_file.put_line (fnd_file.LOG,'The Address Line 2 ' || l_address_line2 || ' of the assignment '|| l_assignment_number || ' has invalid characters.');
2745: edi_validation_fail := 'Y';
2746: END IF;
2747: END IF;
2748:
2748:
2749: IF l_address_line3 <> ' ' and l_address_line3 IS NOT NULL THEN
2750: IF validate_input(l_address_line3,'ADDRESS') > 0 THEN
2751: populate_run_msg(p_assactid,'The Address Line 3 ' || l_address_line3 || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2752: fnd_file.put_line (fnd_file.LOG,'The Address Line 3 ' || l_address_line3 || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2753: edi_validation_fail := 'Y';
2754: END IF;
2755: END IF;
2756:
2756:
2757: IF l_town_or_city <> ' ' and l_town_or_city IS NOT NULL THEN
2758: IF validate_input(l_town_or_city,'ADDRESS') > 0 THEN
2759: populate_run_msg(p_assactid,'The Town Or City ' || l_town_or_city || ' of the assignment '|| l_assignment_number || ' has invalid characters.');
2760: fnd_file.put_line (fnd_file.LOG,'The Town Or City ' || l_town_or_city ||' of the assignment ' || l_assignment_number || ' has invalid characters.');
2761: edi_validation_fail := 'Y';
2762: END IF;
2763: END IF;
2764:
2764:
2765: IF l_country <> ' ' and l_country IS NOT NULL THEN
2766: IF validate_input(l_country,'COUNTRY') > 0 THEN
2767: populate_run_msg(p_assactid,'The Country ' || l_country || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2768: fnd_file.put_line (fnd_file.LOG,'The Country ' || l_country || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2769: edi_validation_fail := 'Y';
2770: END IF;
2771: END IF;
2772:
2772:
2773: IF l_postal_code <> ' ' and l_postal_code IS NOT NULL THEN
2774: IF validate_input(l_postal_code,'POSTALCODE') > 0 THEN
2775: populate_run_msg(p_assactid,'The Postal Code ' || l_postal_code || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2776: fnd_file.put_line (fnd_file.LOG,'The Postal Code ' || l_postal_code || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2777: edi_validation_fail := 'Y';
2778: END IF;
2779: END IF;
2780:
2782:
2783: -- Last name is mandatory field
2784: IF l_last_name = ' ' OR l_last_name IS NULL THEN
2785: populate_run_msg(p_assactid,'The Last Name of the assignment ' || l_assignment_number || ' is missing.');
2786: fnd_file.put_line (fnd_file.LOG,'The Last Name of the assignment '|| l_assignment_number || ' is missing.');
2787: edi_validation_fail := 'Y';
2788: ELSIF validate_input(l_last_name,'NAME') > 0 THEN
2789: populate_run_msg(p_assactid,'The Last Name ' || l_last_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2790: fnd_file.put_line (fnd_file.LOG,'The Last Name ' || l_last_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2786: fnd_file.put_line (fnd_file.LOG,'The Last Name of the assignment '|| l_assignment_number || ' is missing.');
2787: edi_validation_fail := 'Y';
2788: ELSIF validate_input(l_last_name,'NAME') > 0 THEN
2789: populate_run_msg(p_assactid,'The Last Name ' || l_last_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2790: fnd_file.put_line (fnd_file.LOG,'The Last Name ' || l_last_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2791: edi_validation_fail := 'Y';
2792: END IF;
2793:
2794: -- First name is mandatory field
2793:
2794: -- First name is mandatory field
2795: IF l_first_name = ' ' OR l_first_name IS NULL THEN
2796: populate_run_msg(p_assactid,'The First Name of the assignment '|| l_assignment_number || ' is missing.');
2797: fnd_file.put_line (fnd_file.LOG,'The First Name of the assignment ' || l_assignment_number || ' is missing.');
2798: edi_validation_fail := 'Y';
2799: ELSIF validate_input(l_first_name,'NAME') > 0 THEN
2800: populate_run_msg(p_assactid,'The First Name ' || l_first_name ||' of the assignment ' || l_assignment_number || ' has invalid characters.');
2801: fnd_file.put_line (fnd_file.LOG,'The First Name ' || l_first_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2797: fnd_file.put_line (fnd_file.LOG,'The First Name of the assignment ' || l_assignment_number || ' is missing.');
2798: edi_validation_fail := 'Y';
2799: ELSIF validate_input(l_first_name,'NAME') > 0 THEN
2800: populate_run_msg(p_assactid,'The First Name ' || l_first_name ||' of the assignment ' || l_assignment_number || ' has invalid characters.');
2801: fnd_file.put_line (fnd_file.LOG,'The First Name ' || l_first_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2802: edi_validation_fail := 'Y';
2803: END IF;
2804:
2805: -- Middle name = Second First name
2805: -- Middle name = Second First name
2806: IF l_middle_name <> ' ' AND l_middle_name IS NOT NULL THEN
2807: IF validate_input(l_middle_name,'NAME') > 0 THEN
2808: populate_run_msg(p_assactid,'The Middle Name ' || l_middle_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2809: fnd_file.put_line (fnd_file.LOG,'The Middle Name ' || l_middle_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2810: edi_validation_fail := 'Y';
2811: END IF;
2812: END IF;
2813:
2814:
2815: IF l_title <> ' ' AND l_title is not null THEN
2816: IF validate_input(l_title,'TITLE') > 0 THEN
2817: populate_run_msg(p_assactid,'The Title ' || l_title || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2818: fnd_file.put_line (fnd_file.LOG,'The Title ' || l_title || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2819: edi_validation_fail := 'Y';
2820: END IF;
2821: END IF;
2822:
2822:
2823: IF l_national_identifier IS NOT NULL AND
2824: hr_gb_utility.ni_validate(l_national_identifier,sysdate) <> 0 THEN
2825: populate_run_msg(p_assactid,'The National Insurance number ' || l_national_identifier || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2826: fnd_file.put_line (fnd_file.LOG,'The National Insurance number ' || l_national_identifier || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2827: edi_validation_fail := 'Y';
2828: END IF;
2829:
2830: -- Gender is mandatory field
2829:
2830: -- Gender is mandatory field
2831: IF ((l_sex <> 'M' AND l_sex <> 'F') OR (l_sex = ' ' OR l_sex IS NULL)) THEN
2832: populate_run_msg(p_assactid,'Gender is not specified for the assignment ' || l_assignment_number || '.');
2833: fnd_file.put_line (fnd_file.LOG,'Gender is not specified for the assignment ' || l_assignment_number || '.');
2834: edi_validation_fail := 'Y';
2835: END IF;
2836:
2837: IF l_passport_no <> ' ' OR l_passport_no IS NOT NULL THEN
2836:
2837: IF l_passport_no <> ' ' OR l_passport_no IS NOT NULL THEN
2838: IF validate_input(l_passport_no,'PASSPORT') > 0 THEN
2839: populate_run_msg(p_assactid,'The Passport Number ' || l_passport_no || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2840: fnd_file.put_line (fnd_file.LOG,'The Passport Number ' || l_passport_no || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2841: edi_validation_fail := 'Y';
2842: END IF;
2843: END IF;
2844:
2844:
2845: -- Date of Birth is mandatory field
2846: IF l_date_of_birth IS NULL THEN
2847: populate_run_msg(p_assactid,'The Date of Birth of the assignment ' || l_assignment_number || ' is missing.');
2848: fnd_file.put_line (fnd_file.LOG,'The Date of Birth of the assignment '|| l_assignment_number || ' is missing.');
2849: edi_validation_fail := 'Y';
2850: END IF;
2851:
2852: IF ((l_date_of_birth > sysdate) OR (l_year1 > 130)) THEN
2850: END IF;
2851:
2852: IF ((l_date_of_birth > sysdate) OR (l_year1 > 130)) THEN
2853: populate_run_msg(p_assactid,'The Date of Birth of the assignment ' || l_assignment_number || ' is invalid');
2854: fnd_file.put_line (fnd_file.LOG,'The Date of Birth of the assignment '|| l_assignment_number || ' is invalid');
2855: edi_validation_fail := 'Y';
2856: END IF;
2857:
2858: -- Partner validations
2861: IF l_partner_last_name <> ' ' OR l_partner_last_name IS NOT NULL THEN
2862:
2863: IF l_aspp IS NULL THEN
2864: populate_run_msg(p_assactid, 'Additional Statutory Paternity Pay for assignment ' || l_assignment_number||' is missing, although Partner details are present.');
2865: fnd_file.put_line (fnd_file.LOG,'Additional Statutory Paternity Pay for assignment ' || l_assignment_number||' is missing, although Partner details are present.');
2866: edi_validation_fail := 'Y';
2867: END IF;
2868:
2869: IF validate_input(l_partner_last_name,'NAME') > 0 THEN
2867: END IF;
2868:
2869: IF validate_input(l_partner_last_name,'NAME') > 0 THEN
2870: populate_run_msg(p_assactid,'The Partner Last Name ' || l_partner_last_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2871: fnd_file.put_line (fnd_file.LOG,'The Partner Last Name ' || l_partner_last_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2872: edi_validation_fail := 'Y';
2873: END IF;
2874: END IF;
2875:
2875:
2876: -- Partner First name is mandatory field if last name is present
2877: IF l_partner_last_name IS NOT NULL AND (l_partner_first_name = ' ' OR l_partner_first_name IS NULL) THEN
2878: populate_run_msg(p_assactid,'The Partner First Name of the assignment '|| l_assignment_number || ' is missing.');
2879: fnd_file.put_line (fnd_file.LOG,'The Partner First Name of the assignment ' || l_assignment_number || ' is missing.');
2880: edi_validation_fail := 'Y';
2881: ELSIF validate_input(l_partner_first_name,'NAME') > 0 THEN
2882: populate_run_msg(p_assactid,'The Partner First Name ' || l_partner_first_name ||' of the assignment ' || l_assignment_number || ' has invalid characters.');
2883: fnd_file.put_line (fnd_file.LOG,'The Partner First Name ' || l_partner_first_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2879: fnd_file.put_line (fnd_file.LOG,'The Partner First Name of the assignment ' || l_assignment_number || ' is missing.');
2880: edi_validation_fail := 'Y';
2881: ELSIF validate_input(l_partner_first_name,'NAME') > 0 THEN
2882: populate_run_msg(p_assactid,'The Partner First Name ' || l_partner_first_name ||' of the assignment ' || l_assignment_number || ' has invalid characters.');
2883: fnd_file.put_line (fnd_file.LOG,'The Partner First Name ' || l_partner_first_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2884: edi_validation_fail := 'Y';
2885: END IF;
2886:
2887: -- Middle name = Second First name
2887: -- Middle name = Second First name
2888: IF l_partner_middle_name <> ' ' AND l_partner_middle_name IS NOT NULL THEN
2889: IF validate_input(l_partner_middle_name,'NAME') > 0 THEN
2890: populate_run_msg(p_assactid,'The Partner First Name ' || l_partner_middle_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2891: fnd_file.put_line (fnd_file.LOG,'The Partner First Name ' || l_partner_middle_name || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2892: edi_validation_fail := 'Y';
2893: END IF;
2894: END IF;
2895:
2895:
2896: IF l_partner_national_id IS NOT NULL AND
2897: hr_gb_utility.ni_validate(l_partner_national_id,sysdate) <> 0 THEN
2898: populate_run_msg(p_assactid,'The Partner National Insurance number ' || l_partner_national_id || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2899: fnd_file.put_line (fnd_file.LOG,'The Partner National Insurance number ' || l_partner_national_id || ' of the assignment ' || l_assignment_number || ' has invalid characters.');
2900: edi_validation_fail := 'Y';
2901: END IF;
2902:
2903:
2990:
2991: IF l_start_date IS NOT NULL
2992: and date_validate(p_assactid,'UK_EMPL_DATE',l_start_date) = 0 THEN
2993: populate_run_msg(p_assactid,' The start date of employment for the assignment ' || l_assignment_number || ' is invalid.');
2994: fnd_file.put_line (fnd_file.LOG,'The start date of employment for the assignment ' || l_assignment_number || ' is invalid.');
2995: edi_validation_fail := 'Y';
2996: END IF;
2997:
2998: IF l_end_date IS NOT NULL
2997:
2998: IF l_end_date IS NOT NULL
2999: and date_validate(p_assactid,'UK_EMPL_DATE_LEAVING',l_end_date) = 0 THEN
3000: populate_run_msg(p_assactid,' The end date of employment for the assignment ' || l_assignment_number || ' is invalid.');
3001: fnd_file.put_line (fnd_file.LOG,'The end date of employment for the assignment ' || l_assignment_number || ' is invalid.');
3002: edi_validation_fail := 'Y';
3003: END IF;
3004:
3005: IF l_stay_over_six_months <> 'Y' AND l_stay_less_six_months <> 'Y' AND l_living_abroad <> 'Y' AND l_annual_occupational_pension IS NULL ThEN
3004:
3005: IF l_stay_over_six_months <> 'Y' AND l_stay_less_six_months <> 'Y' AND l_living_abroad <> 'Y' AND l_annual_occupational_pension IS NULL ThEN
3006: IF l_start_date IS NOT NULL AND l_starter_declaration IS NULL THEN
3007: populate_run_msg(p_assactid, 'The Starter Declaration is missing for assignment ' || l_assignment_number || '.');
3008: fnd_file.put_line (fnd_file.LOG,'The Starter Declaration is missing for assignment ' || l_assignment_number || '.');
3009: edi_validation_fail := 'Y';
3010: END IF;
3011: END IF;
3012:
3012:
3013: IF l_starter_declaration IS NOT NULL THEN
3014: IF l_starter_declaration NOT IN ('A' , 'B' , 'C') THEN
3015: populate_run_msg(p_assactid, 'The Starter Declaration ' ||l_starter_declaration|| ' for assignment ' || l_assignment_number||' is invalid.');
3016: fnd_file.put_line (fnd_file.LOG,'The Starter Declaration ' ||l_starter_declaration|| ' for assignment ' || l_assignment_number||' is invalid.');
3017: edi_validation_fail := 'Y';
3018: END IF;
3019: END IF;
3020:
3020:
3021: IF l_starter_declaration IS NOT NULL THEN
3022: IF l_stay_over_six_months = 'Y' OR l_stay_less_six_months = 'Y' OR l_living_abroad = 'Y' OR l_annual_occupational_pension IS NOT NULL ThEN
3023: populate_run_msg(p_assactid, 'Starter Declaration must not be present for assignment ' || l_assignment_number||' as Expat Statement or Annual Pension is also present.');
3024: fnd_file.put_line (fnd_file.LOG,'Starter Declaration must not be present for assignment ' || l_assignment_number||' as Expat Statement or Annual Pension is also present.');
3025: edi_validation_fail := 'Y';
3026: END IF;
3027: END IF;
3028:
3030: -- l_stay_over_six_months , l_stay_less_six_months , l_living_abroad
3031:
3032: IF l_stay_over_six_months = 'Y' AND (l_stay_less_six_months = 'Y' OR l_living_abroad = 'Y') THEN
3033: populate_run_msg(p_assactid, 'Stay in UK over six months for assignment ' || l_assignment_number||' is invalid.');
3034: fnd_file.put_line (fnd_file.LOG,'Stay in UK over six months for assignment ' || l_assignment_number||' is invalid.');
3035: edi_validation_fail := 'Y';
3036: END IF;
3037:
3038: IF l_stay_less_six_months = 'Y' AND (l_stay_over_six_months = 'Y' OR l_living_abroad = 'Y') THEN
3036: END IF;
3037:
3038: IF l_stay_less_six_months = 'Y' AND (l_stay_over_six_months = 'Y' OR l_living_abroad = 'Y') THEN
3039: populate_run_msg(p_assactid, 'Stay in UK less than six months for assignment ' || l_assignment_number||' is invalid.');
3040: fnd_file.put_line (fnd_file.LOG,'Stay in UK less than six months for assignment ' || l_assignment_number||' is invalid.');
3041: edi_validation_fail := 'Y';
3042: END IF;
3043:
3044: IF l_living_abroad = 'Y' AND (l_stay_less_six_months = 'Y' OR l_stay_over_six_months = 'Y') THEN
3042: END IF;
3043:
3044: IF l_living_abroad = 'Y' AND (l_stay_less_six_months = 'Y' OR l_stay_over_six_months = 'Y') THEN
3045: populate_run_msg(p_assactid, 'Working in/out of UK but living abroad for assignment ' || l_assignment_number||' is invalid.');
3046: fnd_file.put_line (fnd_file.LOG,'Working in/out of UK but living abroad for assignment ' || l_assignment_number||' is invalid.');
3047: edi_validation_fail := 'Y';
3048: END IF;
3049:
3050: IF (l_living_abroad = 'Y' OR l_stay_less_six_months = 'Y' OR l_stay_over_six_months = 'Y') AND l_eea <> 'Y' THEN
3048: END IF;
3049:
3050: IF (l_living_abroad = 'Y' OR l_stay_less_six_months = 'Y' OR l_stay_over_six_months = 'Y') AND l_eea <> 'Y' THEN
3051: populate_run_msg(p_assactid, 'EEA Citizen for assignment ' || l_assignment_number||' is invalid.');
3052: fnd_file.put_line (fnd_file.LOG,'EEA Citizen for assignment ' || l_assignment_number||' is invalid.');
3053: edi_validation_fail := 'Y';
3054: END IF;
3055:
3056: IF l_occ_pension_indicator = 'Y' AND l_annual_occupational_pension IS NULL THEN
3054: END IF;
3055:
3056: IF l_occ_pension_indicator = 'Y' AND l_annual_occupational_pension IS NULL THEN
3057: populate_run_msg(p_assactid, 'The Annual amount of Occupational Pension for assignment ' || l_assignment_number||' is missing,although Recently Bereaved Indicator is present.');
3058: fnd_file.put_line (fnd_file.LOG,'The Annual amount of Occupational Pension for assignment ' || l_assignment_number||' is missing,although Recently Bereaved Indicator is present.');
3059: edi_validation_fail := 'Y';
3060: END IF;
3061:
3062:
3062:
3063: IF l_annual_occupational_pension IS NOT NULL THEN
3064: IF l_annual_occupational_pension < 0 THEN
3065: populate_run_msg(p_assactid, 'The Annual amount of Occupational Pension ' ||l_annual_occupational_pension|| ' for assignment ' || l_assignment_number||' must be greater than or equal to zero.');
3066: fnd_file.put_line (fnd_file.LOG,'The Annual amount of Occupational Pension ' ||l_annual_occupational_pension|| ' for assignment ' || l_assignment_number||' must be greater than or equal to zero.');
3067: edi_validation_fail := 'Y';
3068: ELSIF l_annual_occupational_pension > 999999999.99 THEN
3069: populate_run_msg(p_assactid, 'The Annual amount of Occupational Pension ' ||l_annual_occupational_pension|| ' exceeds 999999999.99 for assignment ' || l_assignment_number||'.');
3070: fnd_file.put_line (fnd_file.LOG,'The Annual amount of Occupational Pension ' ||l_annual_occupational_pension|| ' exceeds 999999999.99 for assignment ' || l_assignment_number||'.');
3066: fnd_file.put_line (fnd_file.LOG,'The Annual amount of Occupational Pension ' ||l_annual_occupational_pension|| ' for assignment ' || l_assignment_number||' must be greater than or equal to zero.');
3067: edi_validation_fail := 'Y';
3068: ELSIF l_annual_occupational_pension > 999999999.99 THEN
3069: populate_run_msg(p_assactid, 'The Annual amount of Occupational Pension ' ||l_annual_occupational_pension|| ' exceeds 999999999.99 for assignment ' || l_assignment_number||'.');
3070: fnd_file.put_line (fnd_file.LOG,'The Annual amount of Occupational Pension ' ||l_annual_occupational_pension|| ' exceeds 999999999.99 for assignment ' || l_assignment_number||'.');
3071: edi_validation_fail := 'Y';
3072: END IF;
3073: END IF;
3074:
3074:
3075: IF ((l_payroll_id <> ' ' and l_payroll_id IS NOT NULL)
3076: and validate_input(l_payroll_id,'PAYROLLID') > 0) THEN
3077: populate_run_msg(p_assactid,'Payroll ID '||l_payroll_id||' for the assignment ' || l_assignment_number || ' has invalid characters.');
3078: fnd_file.put_line (fnd_file.LOG,'Payroll ID '||l_payroll_id||' for the assignment ' || l_assignment_number || ' has invalid characters.');
3079: edi_validation_fail := 'Y';
3080: END IF;
3081:
3082:
3081:
3082:
3083: IF l_taxable_pay_to_date IS NOT NULL AND abs(l_taxable_pay_to_date) > 99999999999 THEN
3084: populate_run_msg(p_assactid, 'Taxable Pay '||l_taxable_pay_to_date||' exceeds 999999999.99 for assignment ' || l_assignment_number|| '.');
3085: fnd_file.put_line (fnd_file.LOG,'Taxable Pay '||l_taxable_pay_to_date||' exceeds 999999999.99 for assignment ' || l_assignment_number|| '.');
3086: edi_validation_fail := 'Y';
3087: END IF;
3088:
3089: IF l_student_loan_repayment IS NOT NULL AND abs(l_student_loan_repayment) > 9999900 THEN
3087: END IF;
3088:
3089: IF l_student_loan_repayment IS NOT NULL AND abs(l_student_loan_repayment) > 9999900 THEN
3090: populate_run_msg(p_assactid, 'The Total Student loan repayment recovered to date exceeds 99999.00 for assignment ' || l_assignment_number|| '.' );
3091: fnd_file.put_line (fnd_file.LOG,'The Total Student loan repayment recovered to date exceeds 99999.00 for assignment ' || l_assignment_number|| '.');
3092: edi_validation_fail := 'Y';
3093: END IF;
3094:
3095: IF l_tax_deducted_refunded IS NOT NULL AND abs(l_tax_deducted_refunded) > 999999999999 THEN
3093: END IF;
3094:
3095: IF l_tax_deducted_refunded IS NOT NULL AND abs(l_tax_deducted_refunded) > 999999999999 THEN
3096: populate_run_msg(p_assactid, 'Tax Deducted or Refunded '||l_tax_deducted_refunded||' exceeds 9999999999.99 for assignment ' || l_assignment_number|| '.');
3097: fnd_file.put_line (fnd_file.LOG,'Tax Deducted or Refunded '||l_tax_deducted_refunded||' exceeds 9999999999.99 for assignment ' || l_assignment_number|| '.');
3098: edi_validation_fail := 'Y';
3099: END IF;
3100:
3101: --Statutory Sick Pay (SSP)-EYU
3100:
3101: --Statutory Sick Pay (SSP)-EYU
3102: IF l_ssp IS NOT NULL AND abs(l_ssp) > 999999 THEN
3103: populate_run_msg(p_assactid, 'Statutory Sick Pay '||l_ssp||' exceeds 9999.99 for assignment ' || l_assignment_number|| '.');
3104: fnd_file.put_line (fnd_file.LOG,'Statutory Sick Pay '||l_ssp||' exceeds 9999.99 for assignment ' || l_assignment_number|| '.');
3105: edi_validation_fail := 'Y';
3106: END IF;
3107:
3108: --Statutory Maternity Pay (SMP)-EYU
3107:
3108: --Statutory Maternity Pay (SMP)-EYU
3109: IF l_smp IS NOT NULL AND abs(l_smp) > 99999999 THEN
3110: populate_run_msg(p_assactid, 'Statutory Maternity Pay '||l_smp||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3111: fnd_file.put_line (fnd_file.LOG,'Statutory Maternity Pay '||l_smp||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3112: edi_validation_fail := 'Y';
3113: END IF;
3114:
3115:
3114:
3115:
3116: IF l_smp > 0 AND l_gender <> 'F' THEN
3117: populate_run_msg(p_assactid, 'Gender must be female for assignment ' || l_assignment_number|| ' to claim Statutory Maternity Pay.');
3118: fnd_file.put_line (fnd_file.LOG,'Gender must be female for assignment ' || l_assignment_number|| ' to claim Statutory Maternity Pay.');
3119: edi_validation_fail := 'Y';
3120: END IF;
3121:
3122: --Ordinary Statutory Paternity Pay (OSPP)-EYU
3121:
3122: --Ordinary Statutory Paternity Pay (OSPP)-EYU
3123: IF l_ospp IS NOT NULL AND abs(l_ospp) > 99999999 THEN
3124: populate_run_msg(p_assactid, 'Ordinary Statutory Paternity Pay '||l_ospp||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3125: fnd_file.put_line (fnd_file.LOG,'Ordinary Statutory Paternity Pay '||l_ospp||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3126: edi_validation_fail := 'Y';
3127: END IF;
3128:
3129: --Statutory Adoption Pay (SAP)-EYU
3128:
3129: --Statutory Adoption Pay (SAP)-EYU
3130: IF l_sap IS NOT NULL AND abs(l_sap) > 99999999 THEN
3131: populate_run_msg(p_assactid, 'Statutory Adoption Pay '||l_sap||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3132: fnd_file.put_line (fnd_file.LOG,'Statutory Adoption Pay '||l_sap||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3133: edi_validation_fail := 'Y';
3134: END IF;
3135:
3136: --Additional Statutory Paternity Pay (ASPP)-EYU
3135:
3136: --Additional Statutory Paternity Pay (ASPP)-EYU
3137: IF l_aspp IS NOT NULL AND abs(l_aspp) > 99999999 THEN
3138: populate_run_msg(p_assactid, 'Additional Statutory Paternity Pay '||l_aspp||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3139: fnd_file.put_line (fnd_file.LOG,'Additional Statutory Paternity Pay '||l_aspp||' exceeds 999999.99 for assignment ' || l_assignment_number|| '.');
3140: edi_validation_fail := 'Y';
3141: END IF;
3142:
3143:
3143:
3144: -- Tax Code
3145: IF (l_tax_code = ' ' OR l_tax_code IS NULL) then
3146: populate_run_msg(p_assactid, 'The Tax Code is missing for assignment ' || l_assignment_number || '.');
3147: fnd_file.put_line (fnd_file.LOG,'The Tax Code is missing for assignment ' || l_assignment_number || '.');
3148: edi_validation_fail := 'Y';
3149: END IF;
3150:
3151:
3157:
3158: IF (l_tax_code <> ' ' and l_tax_code IS NOT NULL)
3159: AND (l_msg_value <> ' ') THEN
3160: populate_run_msg(p_assactid,'The Tax Code ' || l_tax_code || ' for assignment ' || l_assignment_number||' is invalid.');
3161: fnd_file.put_line (fnd_file.LOG,'The Tax Code ' || l_tax_code || ' for assignment ' || l_assignment_number||' is invalid.');
3162: edi_validation_fail := 'Y';
3163: END IF;
3164:
3165:
3220: IF (l_gender = 'M' AND l_ni_category NOT IN ('A','C','D','J','L','N','Q','R','W','X')) OR
3221: (l_gender = 'F' AND l_ni_category NOT IN ('A','B','C','D','E','J','L','N','O','Q','R','T','W','X')) THEN
3222:
3223: populate_run_msg(p_assactid,'NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is invalid.');
3224: fnd_file.put_line (fnd_file.LOG,'NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is invalid.');
3225: edi_validation_fail := 'Y';
3226:
3227: END IF;
3228: END IF;
3229:
3230: IF l_ni_category IS NOT NULL THEN
3231: IF l_earnings_lel IS NULL THEN
3232: populate_run_msg(p_assactid,'Earnings at Lower Earnings Limit Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3233: fnd_file.put_line (fnd_file.LOG,'Earnings at Lower Earnings Limit Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3234: edi_validation_fail := 'Y';
3235: ELSIF l_ni_category = 'X' AND l_earnings_lel <> 0 THEN
3236: populate_run_msg(p_assactid,'Earnings at Lower Earnings Limit Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3237: fnd_file.put_line (fnd_file.LOG,'Earnings at Lower Earnings Limit Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3233: fnd_file.put_line (fnd_file.LOG,'Earnings at Lower Earnings Limit Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3234: edi_validation_fail := 'Y';
3235: ELSIF l_ni_category = 'X' AND l_earnings_lel <> 0 THEN
3236: populate_run_msg(p_assactid,'Earnings at Lower Earnings Limit Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3237: fnd_file.put_line (fnd_file.LOG,'Earnings at Lower Earnings Limit Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3238: edi_validation_fail := 'Y';
3239: END IF;
3240: END IF;
3241:
3241:
3242: IF l_ni_category IS NOT NULL THEN
3243: IF l_earnings_above_lel IS NULL THEN
3244: populate_run_msg(p_assactid,'Earnings above LEL upto PT Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3245: fnd_file.put_line (fnd_file.LOG,'Earnings above LEL upto PT Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3246: edi_validation_fail := 'Y';
3247: ELSIF l_ni_category = 'X' AND l_earnings_above_lel <> 0 THEN
3248: populate_run_msg(p_assactid,'Earnings above LEL upto PT Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3249: fnd_file.put_line (fnd_file.LOG,'Earnings above LEL upto PT Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3245: fnd_file.put_line (fnd_file.LOG,'Earnings above LEL upto PT Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3246: edi_validation_fail := 'Y';
3247: ELSIF l_ni_category = 'X' AND l_earnings_above_lel <> 0 THEN
3248: populate_run_msg(p_assactid,'Earnings above LEL upto PT Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3249: fnd_file.put_line (fnd_file.LOG,'Earnings above LEL upto PT Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3250: edi_validation_fail := 'Y';
3251: END IF;
3252: END IF;
3253:
3253:
3254: IF l_ni_category IS NOT NULL THEN
3255: IF l_earnings_above_pt IS NULL THEN
3256: populate_run_msg(p_assactid,'Earnings above PT upto UAP Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3257: fnd_file.put_line (fnd_file.LOG,'Earnings above PT upto UAP Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3258: edi_validation_fail := 'Y';
3259: ELSIF l_ni_category = 'X' AND l_earnings_above_pt <> 0 THEN
3260: populate_run_msg(p_assactid,'Earnings above PT upto UAP Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3261: fnd_file.put_line (fnd_file.LOG,'Earnings above PT upto UAP Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3257: fnd_file.put_line (fnd_file.LOG,'Earnings above PT upto UAP Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3258: edi_validation_fail := 'Y';
3259: ELSIF l_ni_category = 'X' AND l_earnings_above_pt <> 0 THEN
3260: populate_run_msg(p_assactid,'Earnings above PT upto UAP Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3261: fnd_file.put_line (fnd_file.LOG,'Earnings above PT upto UAP Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3262: edi_validation_fail := 'Y';
3263: END IF;
3264: END IF;
3265:
3265:
3266: IF l_ni_category IS NOT NULL THEN
3267: IF l_earnings_above_uap IS NULL THEN
3268: populate_run_msg(p_assactid,'Earnings above UAP upto UEL Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3269: fnd_file.put_line (fnd_file.LOG,'Earnings above UAP upto UEL Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3270: edi_validation_fail := 'Y';
3271: ELSIF l_ni_category = 'X' AND l_earnings_above_uap <> 0 THEN
3272: populate_run_msg(p_assactid,'Earnings above UAP upto UEL Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3273: fnd_file.put_line (fnd_file.LOG,'Earnings above UAP upto UEL Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3269: fnd_file.put_line (fnd_file.LOG,'Earnings above UAP upto UEL Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' is missing.');
3270: edi_validation_fail := 'Y';
3271: ELSIF l_ni_category = 'X' AND l_earnings_above_uap <> 0 THEN
3272: populate_run_msg(p_assactid,'Earnings above UAP upto UEL Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3273: fnd_file.put_line (fnd_file.LOG,'Earnings above UAP upto UEL Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3274: edi_validation_fail := 'Y';
3275: END IF;
3276: END IF;
3277:
3277:
3278:
3279: IF l_employer_contrib_y2d IS NULL THEN
3280: populate_run_msg(p_assactid, 'The Total of Employer contributions Year to Date is missing for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number);
3281: fnd_file.put_line (fnd_file.LOG,'The Total of Employer contributions Year to Date is missing for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number);
3282: edi_validation_fail := 'Y';
3283: ELSIF l_ni_category = 'X' AND l_employer_contrib_y2d <> 0 THEN
3284: populate_run_msg(p_assactid, 'The Total of Employer contributions Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3285: fnd_file.put_line (fnd_file.LOG,'The Total of Employer contributions Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3281: fnd_file.put_line (fnd_file.LOG,'The Total of Employer contributions Year to Date is missing for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number);
3282: edi_validation_fail := 'Y';
3283: ELSIF l_ni_category = 'X' AND l_employer_contrib_y2d <> 0 THEN
3284: populate_run_msg(p_assactid, 'The Total of Employer contributions Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3285: fnd_file.put_line (fnd_file.LOG,'The Total of Employer contributions Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3286: edi_validation_fail := 'Y';
3287: END IF;
3288:
3289: IF l_employee_contrib_y2d IS NULL THEN
3287: END IF;
3288:
3289: IF l_employee_contrib_y2d IS NULL THEN
3290: populate_run_msg(p_assactid, 'The Employee contributions Payable Year to Date is missing for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number);
3291: fnd_file.put_line (fnd_file.LOG,'The Employee contributions Payable Year to Date is missing for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number);
3292: edi_validation_fail := 'Y';
3293: ELSIF l_ni_category IN ('X','C','W') AND l_employee_contrib_y2d <> 0 THEN
3294: populate_run_msg(p_assactid, 'The Employee contributions Payable Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3295: fnd_file.put_line (fnd_file.LOG,'The Employee contributions Payable Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3291: fnd_file.put_line (fnd_file.LOG,'The Employee contributions Payable Year to Date is missing for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number);
3292: edi_validation_fail := 'Y';
3293: ELSIF l_ni_category IN ('X','C','W') AND l_employee_contrib_y2d <> 0 THEN
3294: populate_run_msg(p_assactid, 'The Employee contributions Payable Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3295: fnd_file.put_line (fnd_file.LOG,'The Employee contributions Payable Year to Date for NI Category '||l_ni_category|| ' of the assignment ' || l_assignment_number||' must be zero.');
3296: edi_validation_fail := 'Y';
3297: END IF;
3298:
3299: IF l_nic_refund is not null and l_nic_refund not in ('Y','N') then
3297: END IF;
3298:
3299: IF l_nic_refund is not null and l_nic_refund not in ('Y','N') then
3300: populate_run_msg(p_assactid,'NIC Refund '||l_nic_refund|| ' of the assignment ' || l_assignment_number||' is invalid.');
3301: fnd_file.put_line (fnd_file.LOG,'NIC Refund '||l_nic_refund|| ' of the assignment ' || l_assignment_number||' is invalid.');
3302: edi_validation_fail := 'Y';
3303: end if;
3304:
3305: -- For Employer - ECON field validation
3323: -- ECON Validations
3324: IF g_econ_ni_check = 'Y' THEN
3325: IF econ IS NULL THEN
3326: hr_utility.set_location('ECON is missing.',10);
3327: fnd_file.put_line(fnd_file.output,'ECON is missing. Provide the ECON , rollback and rerun the process.');
3328: l_err := true;
3329: END IF;
3330: END IF;
3331:
5280: hr_utility.set_location('Leaving '|| l_proc, 10);
5281:
5282: EXCEPTION
5283: WHEN OTHERS THEN
5284: fnd_file.put_line(fnd_file.LOG,'Exception:' || SQLCODE || ' - ' || SQLERRM);
5285: hr_utility.raise_error;
5286: END archinit;
5287: --
5288: --
5664:
5665: -- no payment for the assignment exist
5666: if l_last_fps_pactid is null and l_flag_strt = 'N' then
5667: populate_run_msg(p_assactid, 'No payment has been made for assignment ' || l_asg_no || '.');
5668: fnd_file.put_line (fnd_file.LOG,'No payment has been made for assignment ' || l_asg_no || '.');
5669: raise error_found;
5670: ELSIF l_last_fps_pactid is not null and l_flag = 'N' and l_flag_ni = 'N' then
5671: populate_run_msg(p_assactid, 'No payment has been made for assignment ' || l_asg_no || '.');
5672: fnd_file.put_line (fnd_file.LOG,'No payment has been made for assignment ' || l_asg_no || '.');
5668: fnd_file.put_line (fnd_file.LOG,'No payment has been made for assignment ' || l_asg_no || '.');
5669: raise error_found;
5670: ELSIF l_last_fps_pactid is not null and l_flag = 'N' and l_flag_ni = 'N' then
5671: populate_run_msg(p_assactid, 'No payment has been made for assignment ' || l_asg_no || '.');
5672: fnd_file.put_line (fnd_file.LOG,'No payment has been made for assignment ' || l_asg_no || '.');
5673: raise error_found;
5674: end if;
5675:
5676: if l_last_fps_pactid is null or (l_flag = 'Y' or l_flag_ni = 'Y') then
5709:
5710: EXCEPTION
5711: WHEN error_found THEN
5712: reset_flag('GB_RTI_ASG_DETAILS',g_reset_flag_type, p_assactid);
5713: fnd_file.put_line(fnd_file.LOG,'Errors found while archiving data.');
5714: raise_application_error(-20001,'Errors found while archiving data.');
5715: WHEN OTHERS THEN
5716: fnd_file.put_line(fnd_file.LOG,'An error encountered was - '||SQLERRM);
5717: raise_application_error(-20001,'An error encountered was - '||SQLERRM);
5712: reset_flag('GB_RTI_ASG_DETAILS',g_reset_flag_type, p_assactid);
5713: fnd_file.put_line(fnd_file.LOG,'Errors found while archiving data.');
5714: raise_application_error(-20001,'Errors found while archiving data.');
5715: WHEN OTHERS THEN
5716: fnd_file.put_line(fnd_file.LOG,'An error encountered was - '||SQLERRM);
5717: raise_application_error(-20001,'An error encountered was - '||SQLERRM);
5718: END archive_code;
5719: --
5720: --
5897:
5898: l_form := 'RTI_EYU_REP_13';
5899: l_form_name := 'RTI Earlier Year Update Process (EYU) 2012/13';
5900:
5901: fnd_file.put_line(fnd_file.output,' ');
5902: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
5903: fnd_file.put_line(fnd_file.output,' ');
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5898: l_form := 'RTI_EYU_REP_13';
5899: l_form_name := 'RTI Earlier Year Update Process (EYU) 2012/13';
5900:
5901: fnd_file.put_line(fnd_file.output,' ');
5902: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
5903: fnd_file.put_line(fnd_file.output,' ');
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5899: l_form_name := 'RTI Earlier Year Update Process (EYU) 2012/13';
5900:
5901: fnd_file.put_line(fnd_file.output,' ');
5902: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
5903: fnd_file.put_line(fnd_file.output,' ');
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5900:
5901: fnd_file.put_line(fnd_file.output,' ');
5902: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
5903: fnd_file.put_line(fnd_file.output,' ');
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5901: fnd_file.put_line(fnd_file.output,' ');
5902: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
5903: fnd_file.put_line(fnd_file.output,' ');
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5902: fnd_file.put_line(fnd_file.output,'EDI Transmission Report:');
5903: fnd_file.put_line(fnd_file.output,' ');
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5903: fnd_file.put_line(fnd_file.output,' ');
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5911: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
5904: fnd_file.put_line(fnd_file.output,rpad('Form Type : ',32) || l_form_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5911: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
5912: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
5905: fnd_file.put_line(fnd_file.output,rpad('Sender : ',32) || l_det.sender_id);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5911: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
5912: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
5913: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
5906: fnd_file.put_line(fnd_file.output,rpad('Date : ',32) || TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS'));
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5911: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
5912: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
5913: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
5914:
5907: fnd_file.put_line(fnd_file.output,rpad('Interchange Control Reference : ',32) || l_param.control_id);
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5911: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
5912: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
5913: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
5914:
5915: IF LENGTH(l_addr2) > 0 THEN
5908: fnd_file.put_line(fnd_file.output,rpad('Test Transmission : ',32) || l_test);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5911: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
5912: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
5913: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
5914:
5915: IF LENGTH(l_addr2) > 0 THEN
5916: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
5909: fnd_file.put_line(fnd_file.output,rpad('-',80,'-'));
5910: fnd_file.put_line(fnd_file.output,rpad('Employers PAYE Reference : ',32) || l_tax_ref);
5911: fnd_file.put_line(fnd_file.output,rpad('HRMC Office : ',32) || l_det.hrmc_office);
5912: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
5913: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
5914:
5915: IF LENGTH(l_addr2) > 0 THEN
5916: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
5917: END IF;
5912: fnd_file.put_line(fnd_file.output,rpad('Employer Name : ',32) || l_det.er_name);
5913: fnd_file.put_line(fnd_file.output,rpad('Employer Address : ',32) || l_addr1);
5914:
5915: IF LENGTH(l_addr2) > 0 THEN
5916: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
5917: END IF;
5918: IF LENGTH(l_addr3) > 0 THEN
5919: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr3);
5920: END IF;
5915: IF LENGTH(l_addr2) > 0 THEN
5916: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr2);
5917: END IF;
5918: IF LENGTH(l_addr3) > 0 THEN
5919: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr3);
5920: END IF;
5921: IF LENGTH(l_addr4) > 0 THEN
5922: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr4);
5923: END IF;
5918: IF LENGTH(l_addr3) > 0 THEN
5919: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr3);
5920: END IF;
5921: IF LENGTH(l_addr4) > 0 THEN
5922: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr4);
5923: END IF;
5924:
5925: fnd_file.put_line(fnd_file.output,rpad('Payroll : ',32) || l_payroll_name);
5926:
5921: IF LENGTH(l_addr4) > 0 THEN
5922: fnd_file.put_line(fnd_file.output,rpad(' ',32) || l_addr4);
5923: END IF;
5924:
5925: fnd_file.put_line(fnd_file.output,rpad('Payroll : ',32) || l_payroll_name);
5926:
5927: END write_header;
5928: ---
5929: PROCEDURE write_sub_header(
5930: p_type VARCHAR2,
5931: report_type VARCHAR2)
5932: IS
5933: BEGIN
5934: fnd_file.put_line(fnd_file.output,NULL);
5935: IF p_type = 'E' THEN
5936: fnd_file.put_line(fnd_file.output,'The following employments have completed with error');
5937: ELSE
5938: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
5932: IS
5933: BEGIN
5934: fnd_file.put_line(fnd_file.output,NULL);
5935: IF p_type = 'E' THEN
5936: fnd_file.put_line(fnd_file.output,'The following employments have completed with error');
5937: ELSE
5938: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
5939: END IF;
5940:
5934: fnd_file.put_line(fnd_file.output,NULL);
5935: IF p_type = 'E' THEN
5936: fnd_file.put_line(fnd_file.output,'The following employments have completed with error');
5937: ELSE
5938: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
5939: END IF;
5940:
5941: IF p_type <> 'E' THEN --Completed records
5942: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51));
5938: fnd_file.put_line(fnd_file.output,'The following employments have completed successfully');
5939: END IF;
5940:
5941: IF p_type <> 'E' THEN --Completed records
5942: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51));
5943: ELSE -- errored records
5944: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51)
5945: || rpad('Error Messages',30));
5946: END IF;
5940:
5941: IF p_type <> 'E' THEN --Completed records
5942: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51));
5943: ELSE -- errored records
5944: fnd_file.put_line(fnd_file.output,rpad('Assignment Number',19) || rpad('NI Number',11) || rpad('Employee Name', 51)
5945: || rpad('Error Messages',30));
5946: END IF;
5947:
5948: IF p_type <> 'E' THEN -- Completed records
5945: || rpad('Error Messages',30));
5946: END IF;
5947:
5948: IF p_type <> 'E' THEN -- Completed records
5949: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-'));
5950: ELSE -- errored records
5951: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-') || ' '
5952: || rpad('-',30,'-'));
5953: END IF;
5947:
5948: IF p_type <> 'E' THEN -- Completed records
5949: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-'));
5950: ELSE -- errored records
5951: fnd_file.put_line(fnd_file.output,rpad('-',18,'-') || ' ' || rpad('-',10,'-') || ' ' || rpad('-',50,'-') || ' '
5952: || rpad('-',30,'-'));
5953: END IF;
5954: END write_sub_header;
5955: ---
6042: l_et_temp VARCHAR2(255);
6043: BEGIN
6044: l_count := 0;
6045:
6046: fnd_file.put_line(fnd_file.LOG, 'l_effective_date: ' || l_effective_date);
6047: --Completed Records
6048: IF p_type = 'ET' THEN
6049: FOR action_id IN get_asg_action_id
6050: LOOP
6052: FETCH get_person_details INTO et_asg_rec;
6053: CLOSE get_person_details;
6054: l_et_temp := et_asg_rec.l_name || ', '|| et_asg_rec.title || ' ' || et_asg_rec.f_name || ' ' || et_asg_rec.m_name;
6055: IF et_asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
6056: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
6057: || rpad(l_et_temp,50) );
6058: ELSE
6059: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
6060: || rpad(l_et_temp,50));
6055: IF et_asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
6056: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
6057: || rpad(l_et_temp,50) );
6058: ELSE
6059: fnd_file.put_line(fnd_file.output,rpad(et_asg_rec.emp_no, 18) || ' ' || rpad(et_asg_rec.ni_no ,10) || ' '
6060: || rpad(l_et_temp,50));
6061: END IF;
6062: l_count := l_count + 1;
6063: END LOOP;
6082: l_error_flag := 'Y';
6083:
6084: l_temp := asg_rec.l_name || ', '|| asg_rec.title || ' ' || asg_rec.f_name || ' ' || asg_rec.m_name;
6085: IF asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
6086: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
6087: || ' ' || rpad(err_msg,120) ); -- error message
6088: ELSE
6089: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
6090: || ' ' || rpad(err_msg,120) ); -- error message
6085: IF asg_rec.end_date = fnd_date.canonical_to_date('4712/12/31 00:00:00') THEN
6086: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
6087: || ' ' || rpad(err_msg,120) ); -- error message
6088: ELSE
6089: fnd_file.put_line(fnd_file.output,rpad(asg_rec.emp_no, 18) || ' ' || rpad(asg_rec.ni_no ,10) || ' ' || rpad(l_temp,50)
6090: || ' ' || rpad(err_msg,120) ); -- error message
6091: END IF;
6092:
6093: -- To print remaining error messgaes if any
6094: LOOP
6095: FETCH csr_err_msg INTO err_msg;
6096: EXIT
6097: WHEN csr_err_msg%notfound;
6098: fnd_file.put_line(fnd_file.output,rpad(' ',81,' ')||rpad(err_msg,120));
6099: END LOOP;
6100:
6101: CLOSE csr_err_msg;
6102: l_count := l_count + 1;
6101: CLOSE csr_err_msg;
6102: l_count := l_count + 1;
6103: END LOOP;
6104: END IF;
6105: fnd_file.put_line(fnd_file.output,NULL);
6106:
6107: IF p_type = 'E' THEN
6108: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with error : ' || l_count);
6109: ELSE
6104: END IF;
6105: fnd_file.put_line(fnd_file.output,NULL);
6106:
6107: IF p_type = 'E' THEN
6108: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with error : ' || l_count);
6109: ELSE
6110: fnd_file.put_line(fnd_file.output,'Total Number of employments completed successfully :' || l_count);
6111: END IF;
6112: l_counter := l_counter + l_count;
6106:
6107: IF p_type = 'E' THEN
6108: fnd_file.put_line(fnd_file.output,'Total Number of employments completed with error : ' || l_count);
6109: ELSE
6110: fnd_file.put_line(fnd_file.output,'Total Number of employments completed successfully :' || l_count);
6111: END IF;
6112: l_counter := l_counter + l_count;
6113: END write_body;
6114: ---
6130: OPEN get_person_count;
6131: FETCH get_person_count INTO l_person_count;
6132: CLOSE get_person_count;
6133:
6134: fnd_file.put_line(fnd_file.output,NULL);
6135: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
6136: fnd_file.put_line(fnd_file.output,NULL);
6137: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
6138: END write_footer;
6131: FETCH get_person_count INTO l_person_count;
6132: CLOSE get_person_count;
6133:
6134: fnd_file.put_line(fnd_file.output,NULL);
6135: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
6136: fnd_file.put_line(fnd_file.output,NULL);
6137: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
6138: END write_footer;
6139: ---------------------
6132: CLOSE get_person_count;
6133:
6134: fnd_file.put_line(fnd_file.output,NULL);
6135: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
6136: fnd_file.put_line(fnd_file.output,NULL);
6137: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
6138: END write_footer;
6139: ---------------------
6140: BEGIN
6133:
6134: fnd_file.put_line(fnd_file.output,NULL);
6135: fnd_file.put_line(fnd_file.output,'Total Number of employments : ' || l_counter);
6136: fnd_file.put_line(fnd_file.output,NULL);
6137: fnd_file.put_line(fnd_file.output,'Total Number of employees successfully processed : ' || l_person_count);
6138: END write_footer;
6139: ---------------------
6140: BEGIN
6141: hr_utility.trace('Entering deinit: '||l_proc);
6236: hr_utility.set_location('Leaving: '||l_proc,999);
6237:
6238: EXCEPTION
6239: When l_exp then
6240: fnd_file.put_line(fnd_file.LOG,'Errors found while archiving data.');
6241: raise_application_error(-20001,'Errors found while archiving data.');
6242: END deinitialization_code;
6243: --
6244: END PAY_GB_RTI_EYU;